CIACPD

Olá alguém sabe dizer oq fazer pois após colocar a lib dbtnbmp o mouse só funciona em cima dos botões e não acessa listbox, buttom, get e outros. Daniel Segura ciacpd@terra.com.br Fw20

Olá alguém sabe dizer oq fazer pois após colocar a lib dbtnbmp o mouse só funciona em cima dos botões e não acessa listbox, buttom, get e outros. Daniel Segura ciacpd@terra.com.br Fw20

Caros Colegas, estou precisando de um exemplo para fazer um botão com menu de opções (Exemplo: como o botão voltar do Internet Explorer) Versão que utilizo 2.0 Desde já agredeço a atenção Maxwel Da Silva Lima CiaCpd

Caros Colegas, estou precisando de um exemplo para fazer um botão com menu de opções (Exemplo: como o botão voltar do Internet Explorer) Versão que utilizo 2.0 Desde já agredeço a atenção Maxwel Da Silva Lima CiaCpd

Obrigado era isto mesmo que precisava. Daniel Segura Fernandes ciacpd@terra.com.br

Caro amigos, Como fazer para saber a propriedade de um objeto say, get, etc... de uma dialog Ao clicar nele com o botão direito do mouse. Maxwel Lima FW20

Caro amigos, Como fazer para saber a propriedade de um objeto say, get, etc... de uma dialog Ao clicar nele com o botão direito do mouse. Maxwel Lima FW20

Caro amigos, Como fazer para saber a propriedade de um objeto say, get, etc... de uma dialog Ao clicar nele com o botão direito do mouse. Maxwel Lima FW20

Caros usuários de fivewin. Gostaria de saber se existe uma função no fivewin, que o usuário clique e arraste um Say, Get... A minha versão de fivewin é a 2.0 Daniel Segura ciacpd@terra.com.br

Caros usuários de fivewin. Gostaria de saber se existe uma função no fivewin, que o usuário clique e arraste um Say, Get... A minha versão de fivewin é a 2.0 Daniel Segura ciacpd@terra.com.br

Caros usuários de fivewin. Gostaria de saber se existe uma função no fivewin, que o usuário clique e arraste um Say, Get... A minha versão de fivewin é a 2.0 Daniel Segura ciacpd@terra.com.br

Não sei se ajudo mas... Algumas máquinas com XP e firewall ativado normalmente ficam bem lerdas quando se trabalha com pesquisas e muitos acesso ao disco. Problemas com a configuração de antivirus também pode gerar alguma lentidão. Daniel Segura ciacpd@terra.com.br

Caro Vagner, Utilizo a Tdosprn, PRNPADCL do Gilmer, anteriormente numca tive este problema. Valeu pelas dicas. Vou checar FW 2.0

Os comandos que utilizo estão certos. O que preciso saber é o que pode fazer um UNICO PC com a mesma configuração dos demais não aceitar os comamdos. quando instalei o programa tudo beleza 15 máquinas funcionando legal ( XP1800, Win98, 256MB, Impressora Não Fiscal Bematech) uma semana depois uma abençoada máquina parou de realizar a impressão como antes. (ela imprime correto mais pula 30 e tantas linhas até parar) já reinstalei o win 98 , mas sem formatar o hd

Caros amigos o que devo fazer quando uma determinada máquina com win98 deixa de imprimir um relatório em meia página. Ex. comprovante de pagto é impresso em meia página e de uma hora para outra somente em uma máquina de 15 q estão trabalhando, para de respeitar os comando de tamanho de página (@ li,co say chr(27)+[C]+20.... Desde já agradeço qualquer ajuda. Daniel Segura daniel_segura@ig.com.br

Tive este problema diversas vezes. - Virus e problemas na extrutura do arquivo recrie em outra maquina e puxe os dados - Pau de memória (memória ruim) teste em outra máquina - Conectores da rede com mau contato troque os conectores Daniel Segura daniel_segura@ig.com.br

Peguei o exemplo em: www.dbwide.com.ar/trucos3.htm Daniel Segura daniel_segura@ig.com.br

O arquivo .GDB é de banco de dados interbase. Instale o Interbase e voce conseguirá abrir através do IBConsole. Daniel Segura daniel_segura@ig.com.br

Caros amigos, Alguém teria algum exemplo de como fazer um pesquisa na web pelo método "POST"? Pelo método Get eu ja tenho o exemplo do google. Daniel Segura daniel_segura@ig.com.br FW 2.0

c:\FW20\SOURCE\CLASSES\PRINTER.PRG(524):METHOD Cmtr2Pix( nRow, nCol ) CLASS TPrinter Daniel Segura (011) 4718-4767 daniel_segura@ig.com.br

Abaixo está algumas funções que uso com sucesso Inclua no seu programa inicial as seguintes linhas: oPrn:=PrintBegin(cTit,.F.,.f.,,.T.) oPrn:SetPortrait() agps:=oPrn:GetPhySize() nphorz:=agps[1] npvert:=agps[2] nreshor:=oPrn:nvertres() nresver:=oPrn:nhorzres() if nreshor>2000 DEFINE PEN oPenG WIDTH 4 elseif nreshor>1700 DEFINE PEN oPenG WIDTH 2 else DEFINE PEN oPenG WIDTH 1 endif PrintEnd() function box1dsf(li,ci,lf,cf) aDes:=oPrn:Cmtr2Pix( LI, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LI, CF-0.10 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LI+0.10, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI, CF-0.10 ) aHas:=oPrn:Cmtr2Pix( LI+0.10, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI+0.10, CI ) aHas:=oPrn:Cmtr2Pix( LF-0.09, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI+0.10, CF ) aHas:=oPrn:Cmtr2Pix( LF-0.09, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LF-0.10, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CF-0.10 ) aHas:=oPrn:Cmtr2Pix( LF-0.10, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LF, CF-0.10 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) return .t. // -------------------------------------------------------------------------- // function box2dsf(li,ci,lf,cf) aDes:=oPrn:Cmtr2Pix( LI, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LI, CF-0.10 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LI+0.10, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI, CF-0.10 ) aHas:=oPrn:Cmtr2Pix( LI+0.10, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI+0.10, CI ) aHas:=oPrn:Cmtr2Pix( LF-0.09, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI+0.10, CF ) aHas:=oPrn:Cmtr2Pix( LF-0.09, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LF-0.10, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CF-0.10 ) aHas:=oPrn:Cmtr2Pix( LF-0.10, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LF, CF-0.10 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) // linha interna aDes:=oPrn:Cmtr2Pix( (LI+0.05), (CI+0.05)+0.070 ) // linha superior aHas:=oPrn:Cmtr2Pix( (LI+0.05), (CF-0.05)-0.070 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LI+0.05), (CI+0.05)+0.070 ) // canto superior esquerdo aHas:=oPrn:Cmtr2Pix( (LI+0.05)+0.070, (CI+0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LI+0.05), (CF-0.05)-0.070 ) // canto superior direito aHas:=oPrn:Cmtr2Pix( (LI+0.05)+0.070, (CF-0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LI+0.05)+0.070, (CI+0.05) ) // linha vertical esquerda aHas:=oPrn:Cmtr2Pix( (LF-0.05)-0.070, (CI+0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LI+0.05)+0.070, (CF-0.05) ) // linha vertical direita aHas:=oPrn:Cmtr2Pix( (LF-0.05)-0.070, (CF-0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LF-0.05), (CI+0.05)+0.070 ) // canto inferior esquerdo aHas:=oPrn:Cmtr2Pix( (LF-0.05)-0.070, (CI+0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LF-0.05), (CF-0.05)-0.070 ) // canto inferior direito aHas:=oPrn:Cmtr2Pix( (LF-0.05)-0.070, (CF-0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LF-0.05), (CI+0.05)+0.070 ) // linha inferior aHas:=oPrn:Cmtr2Pix( (LF-0.05), (CF-0.05)-0.070 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) return .t. // -------------------------------------------------------------------------- // function line1dsf(li,ci,lf,cf) aDes:=oPrn:Cmtr2Pix( LI, CI ) aHas:=oPrn:Cmtr2Pix( LI, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) return .t. // -------------------------------------------------------------------------- // Daniel Segura daniel_segura@ig.com.br (011) 4718-4767

Abaixo está algumas funções que uso com sucesso Inclua no seu programa inicial as seguintes linhas: oPrn:=PrintBegin(cTit,.F.,.f.,,.T.) oPrn:SetPortrait() agps:=oPrn:GetPhySize() nphorz:=agps[1] npvert:=agps[2] nreshor:=oPrn:nvertres() nresver:=oPrn:nhorzres() if nreshor>2000 DEFINE PEN oPenG WIDTH 4 elseif nreshor>1700 DEFINE PEN oPenG WIDTH 2 else DEFINE PEN oPenG WIDTH 1 endif PrintEnd() function box1dsf(li,ci,lf,cf) aDes:=oPrn:Cmtr2Pix( LI, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LI, CF-0.10 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LI+0.10, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI, CF-0.10 ) aHas:=oPrn:Cmtr2Pix( LI+0.10, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI+0.10, CI ) aHas:=oPrn:Cmtr2Pix( LF-0.09, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI+0.10, CF ) aHas:=oPrn:Cmtr2Pix( LF-0.09, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LF-0.10, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CF-0.10 ) aHas:=oPrn:Cmtr2Pix( LF-0.10, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LF, CF-0.10 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) return .t. // -------------------------------------------------------------------------- // function box2dsf(li,ci,lf,cf) aDes:=oPrn:Cmtr2Pix( LI, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LI, CF-0.10 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LI+0.10, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI, CF-0.10 ) aHas:=oPrn:Cmtr2Pix( LI+0.10, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI+0.10, CI ) aHas:=oPrn:Cmtr2Pix( LF-0.09, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LI+0.10, CF ) aHas:=oPrn:Cmtr2Pix( LF-0.09, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LF-0.10, CI ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CF-0.10 ) aHas:=oPrn:Cmtr2Pix( LF-0.10, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( LF, CI+0.10 ) aHas:=oPrn:Cmtr2Pix( LF, CF-0.10 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) // linha interna aDes:=oPrn:Cmtr2Pix( (LI+0.05), (CI+0.05)+0.070 ) // linha superior aHas:=oPrn:Cmtr2Pix( (LI+0.05), (CF-0.05)-0.070 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LI+0.05), (CI+0.05)+0.070 ) // canto superior esquerdo aHas:=oPrn:Cmtr2Pix( (LI+0.05)+0.070, (CI+0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LI+0.05), (CF-0.05)-0.070 ) // canto superior direito aHas:=oPrn:Cmtr2Pix( (LI+0.05)+0.070, (CF-0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LI+0.05)+0.070, (CI+0.05) ) // linha vertical esquerda aHas:=oPrn:Cmtr2Pix( (LF-0.05)-0.070, (CI+0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LI+0.05)+0.070, (CF-0.05) ) // linha vertical direita aHas:=oPrn:Cmtr2Pix( (LF-0.05)-0.070, (CF-0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LF-0.05), (CI+0.05)+0.070 ) // canto inferior esquerdo aHas:=oPrn:Cmtr2Pix( (LF-0.05)-0.070, (CI+0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LF-0.05), (CF-0.05)-0.070 ) // canto inferior direito aHas:=oPrn:Cmtr2Pix( (LF-0.05)-0.070, (CF-0.05) ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) aDes:=oPrn:Cmtr2Pix( (LF-0.05), (CI+0.05)+0.070 ) // linha inferior aHas:=oPrn:Cmtr2Pix( (LF-0.05), (CF-0.05)-0.070 ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) return .t. // -------------------------------------------------------------------------- // function line1dsf(li,ci,lf,cf) aDes:=oPrn:Cmtr2Pix( LI, CI ) aHas:=oPrn:Cmtr2Pix( LI, CF ) oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenG) return .t. // -------------------------------------------------------------------------- // Daniel Segura daniel_segura@ig.com.br (011) 4718-4767

Caros usuários de FiveWin Se possível gostaria de uma ajuda, pois transformei o meu arquivo de recurso .dll em .rc, tudo ficou bom, envio apenas 1 arquivo para atualizar o sistema nos clientes. Só que algumas vezes aparece um erro dizendo que não foi possível criar a dialog, e passa a dar erro na emissão de cupom fiscal nas funções da DLL32 ECF - Bematech - error base/1081 função iniportastr(2681) ECF - SWEDA - error base/1081 função iniportastr(2691) As linhas indicadas são da definição das funções das DLLs Quando reinicio o microcomputador tudo volta ao normal até quando aparece o erro da criação de dialog novamente. Desde já agradeço toda a ajuda Daniel Segura CiaCpd

Caros Amigos Onde posso encontrar aqui no Brasil o CD de Exemplos e Utilitários da CIBER-Tec do méxico Daniel Segura daniel_segura@ig.com.br

Para trabalhar em rede é precisa do server ? Daniel