jfaguiar

E aí meus caros gorus do FW. Consegui resolver a parada com a Function XSetFocus() do mano jef2 tim. Nota: Tive que remover o parâmetro oObj:SetPos(0) para ela funcionar. ********************************************** FUNCTION xSetFocus( oObj ) LOCAL oTempo := '' DEFINE TIMER oTempo INTERVAL 10 OF oObj:oWnd; ACTION ( oObj:SetFocus(), oTempo:Deactivate() ) // ACTION ( oObj:SetFocus(), oObj:SetPos(0), oTempo:Deactivate() ) ACTIVATE TIMER oTempo Return( Nil ) **********************************************

Olá Pessoal. Tô com um probleminha que pra vocês deve ser bico. Em uma ListBox, cujo nome do objeto é oLbxCd estou chamando uma sub-rotina de pesquisa de registros conforme exemplo abaixo. No final dessa sub-rotina executo as duas linhas abaixo: oLbx:Refresh() oLbx:SetFocus() Como vcs devem ter notado,o objetivo da segunda linha retornar o foco para a ListBox. O problema é que não retorna nem com reza braba. O que fazer? REDEFINE GET oCHAV_SEEK VAR cCHAV_SEEK ID 106 OF oDlgCg PICTURE "@!" WHEN !EMPTY(cItemOrd); VALID SeekTable(oLbxCg,cCHAV_SEEK,aNUMPESQ[nOPCCOMB] ) Editado por - jfaguiar on 12/02/2008 09:45:29

Olá Pessoal. Tô com um probleminha que pra vocês deve ser bico. Em uma ListBox, cujo nome do objeto é oLbxCd estou chamando uma sub-rotina de pesquisa de registros conforme exemplo abaixo. No final dessa sub-rotina executo as duas linhas abaixo: oLbx:Refresh() oLbx:SetFocus() Como vcs devem ter notado,o objetivo da segunda linha retornar o foco para a ListBox. O problema é que não retorna nem com reza braba. O que fazer? REDEFINE GET oCHAV_SEEK VAR cCHAV_SEEK ID 106 OF oDlgCg PICTURE "@!" WHEN !EMPTY(cItemOrd); VALID SeekTable(oLbxCg,cCHAV_SEEK,aNUMPESQ[nOPCCOMB] ) Editado por - jfaguiar on 12/02/2008 09:45:29

Valeu Pessoal

Olá galera. Gostaria de saber se existe alguma forma em FWH para detectar a impressora parão no Windows. Se alguém souber dá uma forcinha aí pra gente. Aproveito para agradecer a todos que me ajudaram por aqui. Sem dúvida nenhuma, este forum é indispensável para a minha carreira! Bom ano novo a todos. Editado por - jfaguiar on 18/01/2008 18:34:41

Olá galera. Gostaria de saber se existe alguma forma em FWH para detectar a impressora parão no Windows. Se alguém souber dá uma forcinha aí pra gente. Aproveito para agradecer a todos que me ajudaram por aqui. Sem dúvida nenhuma, este forum é indispensável para a minha carreira! Bom ano novo a todos. Editado por - jfaguiar on 18/01/2008 18:34:41

Olá pessoal Tô com um probleminha na impressão de orçamentos da HPLaserjet 6pm de modo que a letra sai muito pequena, ilegível até. A mesma impressão sai ok quando defino a epson lx-300 como padrão. Alguém poderia me dar um auxílio? Estou utilizando o método PRINT oPrn NAME...ENDPRINT e os fontes que tô utilizando são: DEFINE FONT oFONTCB1 NAME "ARIAL" SIZE 22,16 BOLD OF OPRN DEFINE FONT oFONTCB2 NAME "ARIAL" SIZE 18,-10 BOLD OF OPRN DEFINE FONT oFONTDTN NAME "ARIAL" SIZE 06,-10 BOLD OF OPRNDEFINE FONT oFONT NAME "ARIAL" SIZE 06,-10 OF OPRN Desde já agradeço João Freire

Olá pessoal Tô com um probleminha na impressão de orçamentos da HPLaserjet 6pm de modo que a letra sai muito pequena, ilegível até. A mesma impressão sai ok quando defino a epson lx-300 como padrão. Alguém poderia me dar um auxílio? Estou utilizando o método PRINT oPrn NAME...ENDPRINT e os fontes que tô utilizando são: DEFINE FONT oFONTCB1 NAME "ARIAL" SIZE 22,16 BOLD OF OPRN DEFINE FONT oFONTCB2 NAME "ARIAL" SIZE 18,-10 BOLD OF OPRN DEFINE FONT oFONTDTN NAME "ARIAL" SIZE 06,-10 BOLD OF OPRNDEFINE FONT oFONT NAME "ARIAL" SIZE 06,-10 OF OPRN Desde já agradeço João Freire

Olá pessoal. Estou com um problema nesse relatório quando executo em outro micro. No meu notebook sai tudo ok, inclusive o preview. Em outros computadores sai uma fonte ilegível e posicionada a esquerda. Alguém saberia dizer o que tá pegando? Grato Joao. PRINT oPrn NAME "DECLARAÇAO RECEBIMENTO DE RESIDUOS" PREVIEW DEFINE FONT oFONT06 NAME "ARIAL" SIZE 06,-10 OF OPRN DEFINE FONT oFONT18 NAME "ARIAL" SIZE 18,-10 BOLD OF OPRN IF !CHKFNTPRN(136,70) MsgStop( "Impressora não pronta!" ) RETURN nil ENDIF // PAGE oPrn:SetFont(oFont18) // Fonte grande nPROW := 0 // en oPrn:CharSay(PROWW(10),12, "A T E S T A D O" ) // oPrn:SetFont(oFont06) oPrn:CharSay(PROWW(),nTamRel," ","D") nPROW := 16 VLINMEMO := MLCOUNT( ALLTRIM(VLINHA),76) FOR n = 1 TO VLINMEMO oPrn:CharSay(PROWW(2),19, MEMOLINE(VLINHA,76,n) ) oPrn:CharSay(PROWW( ),nTamRel," ","D") NEXT ENDPAGE ENDPRINT RETURN nil ******************************* Editado por - jfaguiar on 18/12/2007 16:47:27

Olá pessoal. Estou com um problema nesse relatório quando executo em outro micro. No meu notebook sai tudo ok, inclusive o preview. Em outros computadores sai uma fonte ilegível e posicionada a esquerda. Alguém saberia dizer o que tá pegando? Grato Joao. PRINT oPrn NAME "DECLARAÇAO RECEBIMENTO DE RESIDUOS" PREVIEW DEFINE FONT oFONT06 NAME "ARIAL" SIZE 06,-10 OF OPRN DEFINE FONT oFONT18 NAME "ARIAL" SIZE 18,-10 BOLD OF OPRN IF !CHKFNTPRN(136,70) MsgStop( "Impressora não pronta!" ) RETURN nil ENDIF // PAGE oPrn:SetFont(oFont18) // Fonte grande nPROW := 0 // en oPrn:CharSay(PROWW(10),12, "A T E S T A D O" ) // oPrn:SetFont(oFont06) oPrn:CharSay(PROWW(),nTamRel," ","D") nPROW := 16 VLINMEMO := MLCOUNT( ALLTRIM(VLINHA),76) FOR n = 1 TO VLINMEMO oPrn:CharSay(PROWW(2),19, MEMOLINE(VLINHA,76,n) ) oPrn:CharSay(PROWW( ),nTamRel," ","D") NEXT ENDPAGE ENDPRINT RETURN nil ******************************* Editado por - jfaguiar on 18/12/2007 16:47:27

Olá Kleyton. Os arquivos que instalei foram: - Cobrebemx.dll na pasta Windows - Executei o programa instalar.exe que veio junto com a dll - O logo da empresa é um BMP que imprimiu corretamente Gif, nenhum.

Olá Pessoal. SOCORRRO Imprimi alguns boletos em FWH no Cobrebem e aparentemente tá tudo ok. O linha editável tá ok, inclusive comparei com a da minha versao em Clipper, porém o CODIGO DE BARRA tá ilegível no teste efetuado pelo banco. Por favor alguém poderia dar uma olhadinha neste fonte pra ver se existe alguma falha? Muito obrigado. Segue abaixo o fonte: SET RESOURCES TO "H:\SISCOM\cobrebem\Cobrebemx.dll" // oCBX := TOleAuto():New("CobreBemX.ContaCorrente") // Monta arquivo de licena de teste para banco 001 carteira 18 IF nOP_EMPR=1 // Boa Hora oCBX:ArquivoLicenca := "H:\SISCOM\CobreBem\BH356_20.conf" ELSE oCBX:ArquivoLicenca := "H:\SISCOM\CobreBem\TL356_42.conf" ENDIF // Monta dados da conta corrente oCBX:CodigoAgencia := STRZERO(PARAMBOL->AGENCIA,4) // "0200" oCBX:NumeroContaCorrente := LEFT(PARAMBOL->CONTA,7) // "0715383" oCBX:LocalPagamento := "Pagável em qualquer banco até o vencimento" // oCBX:CodigoCedente := LEFT(PARAMBOL->CONTA,7) // "0715383" oCBX:InicioNossoNumero := "00001" oCBX:FimNossoNumero := "79999" oCBX:ProximoNossoNumero := STRZERO(PARAMBOL->NNUMERO,5) // "00015" nNOSSNUM := PARAMBOL->NNUMERO // IF nOP_EMPR=1 // Boa Hora oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := "H:\SISCOM\bitmaps\LogoBH.bmp" ELSE oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := "H:\SISCOM\bitmaps\LogoTechlix.bmp" ENDIF oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := "H:\siscom\bitmaps\" While &cWILCOND // !eof() IF cWILCOND=="!EOF()" .AND. RECBCO # nCDBANC DbSkip() LOOP ENDIF nVALDESC:= 0 nVALTIT := RECVAL - nVALDESC nVALMULT:= 2.00 cINST01 := 'NAO DISPENSA MORA. COBRAR MORA DE '+TRIM(ARQPARAM->PMOEDA)+' '+LTRIM( TRANSF( (TMPCREC->RECVAL-nVALDESC) * nJURODIA/100,'@E 99,999.99') ) +' POR DIA DE ATRASO' cINST02 := 'APOS VENCIMENTO COBRAR MULTA DE '+TRIM(ARQPARAM->PMOEDA)+' '+LTRIM( TRANSF(nVALMULT,'@E 99,999.99')) cINST03 := 'PROTESTAR APOS '+LTRIM(ARQPARAM->PDIAPROT) + ' DIAS UTEIS DO VENCIMENTO' cINST04 := 'VALORES EXPRESSOS EM REAIS' cINST05 := 'NF '+TMPCREC->RECTITU // oBoleto := oCBX:DocumentosCobranca:Add() syswait(.1) // Tem no programa exemplo do chegado do forum // Monta dados do sacado oBoleto:NomeSacado := ARQCLI->CLIRAZAO oBoleto:EnderecoSacado:= ARQCLI->CLIENDC oBoleto:BairroSacado := ARQCLI->CLIBAIC oBoleto:CidadeSacado := ARQCLI->CLICIDC oBoleto:EstadoSacado := ARQCLI->CLIUFC oBoleto:CEPSacado := ARQCLI->CLICEPC // Monta dados do documento de cobranca oBoleto:PadroesBoleto:InstrucoesCaixa := cINST01 + " " + cINST02 + " " + cINST03 + " " + cINST04 + " " + cINST05 oBoleto:PadroesBoleto:Demonstrativo := cINST01 + " " + cINST02 + " " + cINST03 + " " + cINST04 + " " + cINST05 oBoleto:DataDocumento := DTOC(RECDEMI) oBoleto:DataProcessamento:= DTOC(RECDEMI) oBoleto:DataVencimento := DTOC(RECDVEN) oBoleto:NumeroDocumento := STRZERO(RECSEQ,6)+STR(RECPARC,1) oBoleto:ValorDocumento := nVALTIT oBoleto:TipoDocumentoCobranca:= "DS" ++ nNOSSNUM syswait(.5) DbSkip() SysRefresh() && aqui verifica numero do boleto 17/04/2007 retirar se der algo errado Enddo oCBX:ImprimeBoletosSemPreview() oCBX:End()

Olá Pessoal. SOCORRRO Imprimi alguns boletos em FWH no Cobrebem e aparentemente tá tudo ok. O linha editável tá ok, inclusive comparei com a da minha versao em Clipper, porém o CODIGO DE BARRA tá ilegível no teste efetuado pelo banco. Por favor alguém poderia dar uma olhadinha neste fonte pra ver se existe alguma falha? Muito obrigado. Segue abaixo o fonte: SET RESOURCES TO "H:\SISCOM\cobrebem\Cobrebemx.dll" // oCBX := TOleAuto():New("CobreBemX.ContaCorrente") // Monta arquivo de licena de teste para banco 001 carteira 18 IF nOP_EMPR=1 // Boa Hora oCBX:ArquivoLicenca := "H:\SISCOM\CobreBem\BH356_20.conf" ELSE oCBX:ArquivoLicenca := "H:\SISCOM\CobreBem\TL356_42.conf" ENDIF // Monta dados da conta corrente oCBX:CodigoAgencia := STRZERO(PARAMBOL->AGENCIA,4) // "0200" oCBX:NumeroContaCorrente := LEFT(PARAMBOL->CONTA,7) // "0715383" oCBX:LocalPagamento := "Pagável em qualquer banco até o vencimento" // oCBX:CodigoCedente := LEFT(PARAMBOL->CONTA,7) // "0715383" oCBX:InicioNossoNumero := "00001" oCBX:FimNossoNumero := "79999" oCBX:ProximoNossoNumero := STRZERO(PARAMBOL->NNUMERO,5) // "00015" nNOSSNUM := PARAMBOL->NNUMERO // IF nOP_EMPR=1 // Boa Hora oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := "H:\SISCOM\bitmaps\LogoBH.bmp" ELSE oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := "H:\SISCOM\bitmaps\LogoTechlix.bmp" ENDIF oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := "H:\siscom\bitmaps\" While &cWILCOND // !eof() IF cWILCOND=="!EOF()" .AND. RECBCO # nCDBANC DbSkip() LOOP ENDIF nVALDESC:= 0 nVALTIT := RECVAL - nVALDESC nVALMULT:= 2.00 cINST01 := 'NAO DISPENSA MORA. COBRAR MORA DE '+TRIM(ARQPARAM->PMOEDA)+' '+LTRIM( TRANSF( (TMPCREC->RECVAL-nVALDESC) * nJURODIA/100,'@E 99,999.99') ) +' POR DIA DE ATRASO' cINST02 := 'APOS VENCIMENTO COBRAR MULTA DE '+TRIM(ARQPARAM->PMOEDA)+' '+LTRIM( TRANSF(nVALMULT,'@E 99,999.99')) cINST03 := 'PROTESTAR APOS '+LTRIM(ARQPARAM->PDIAPROT) + ' DIAS UTEIS DO VENCIMENTO' cINST04 := 'VALORES EXPRESSOS EM REAIS' cINST05 := 'NF '+TMPCREC->RECTITU // oBoleto := oCBX:DocumentosCobranca:Add() syswait(.1) // Tem no programa exemplo do chegado do forum // Monta dados do sacado oBoleto:NomeSacado := ARQCLI->CLIRAZAO oBoleto:EnderecoSacado:= ARQCLI->CLIENDC oBoleto:BairroSacado := ARQCLI->CLIBAIC oBoleto:CidadeSacado := ARQCLI->CLICIDC oBoleto:EstadoSacado := ARQCLI->CLIUFC oBoleto:CEPSacado := ARQCLI->CLICEPC // Monta dados do documento de cobranca oBoleto:PadroesBoleto:InstrucoesCaixa := cINST01 + " " + cINST02 + " " + cINST03 + " " + cINST04 + " " + cINST05 oBoleto:PadroesBoleto:Demonstrativo := cINST01 + " " + cINST02 + " " + cINST03 + " " + cINST04 + " " + cINST05 oBoleto:DataDocumento := DTOC(RECDEMI) oBoleto:DataProcessamento:= DTOC(RECDEMI) oBoleto:DataVencimento := DTOC(RECDVEN) oBoleto:NumeroDocumento := STRZERO(RECSEQ,6)+STR(RECPARC,1) oBoleto:ValorDocumento := nVALTIT oBoleto:TipoDocumentoCobranca:= "DS" ++ nNOSSNUM syswait(.5) DbSkip() SysRefresh() && aqui verifica numero do boleto 17/04/2007 retirar se der algo errado Enddo oCBX:ImprimeBoletosSemPreview() oCBX:End()

Olá meus caros. Após programar muito em Clipper para as MPFI agora estou meio perdido com a térmica. Alguém teria os comandos básicos em FWH para a MP2100 THFI? Exemplo: Abrir cupom, vender item, fechar cupom. Desde já agradeço João

Olá meus caros. Após programar muito em Clipper para as MPFI agora estou meio perdido com a térmica. Alguém teria os comandos básicos em FWH para a MP2100 THFI? Exemplo: Abrir cupom, vender item, fechar cupom. Desde já agradeço João

Perfeito Ico. Valeu meu caro!

Olá meus amigos. Em uma dialog gerada direto pelo código (sem WS), nao aparece o conteúdo digitado nas variáveis com apenas um dígito. Tentei as PICTURES abaixo, sem sucesso. @ 01,05 GET cCONF PICT "!" VALID(cCONF $ 'SN ') @ 01,05 GET cCONF PICT "@!" VALID(cCONF $ 'SN ') @ 01,05 GET cCONF PICT "!!" VALID(cCONF $ 'SN ') Alguém teria uma soluçao? Grato Joao Freire. Editado por - jfaguiar on 30/11/2007 12:31:29

Olá meus amigos. Em uma dialog gerada direto pelo código (sem WS), nao aparece o conteúdo digitado nas variáveis com apenas um dígito. Tentei as PICTURES abaixo, sem sucesso. @ 01,05 GET cCONF PICT "!" VALID(cCONF $ 'SN ') @ 01,05 GET cCONF PICT "@!" VALID(cCONF $ 'SN ') @ 01,05 GET cCONF PICT "!!" VALID(cCONF $ 'SN ') Alguém teria uma soluçao? Grato Joao Freire. Editado por - jfaguiar on 30/11/2007 12:31:29

Obrigado pelos muitos exemplos pessoal. Problema resolvido.

Valeu Ricardo. Vou tentei mas não deu certo em FWH. Editado por - jfaguiar on 22/11/2007 23:27:36

Olá pessoal. Parece um tanto absurdo, mas me deparei com uma situaçao em que preciso declarar alguns objetos os quais säo inesperados, ou seja, estäo dentro de uma string. Exemplos: cOBJS := "oCODCLIEN" ou cOBJS := "oCODFORNE" Tentei PRIVATE &cOBJS mas nao funcionou. Alguém poderia dar uma luz? PROGREDI BASTANTE, SEM A AJUDA DE VCS AINDA ESTARIA NO CLIPPER Editado por - jfaguiar on 22/11/2007 23:30:53 Editado por - jfaguiar on 24/11/2007 00:02:11

Olá pessoal. Parece um tanto absurdo, mas me deparei com uma situaçao em que preciso declarar alguns objetos os quais säo inesperados, ou seja, estäo dentro de uma string. Exemplos: cOBJS := "oCODCLIEN" ou cOBJS := "oCODFORNE" Tentei PRIVATE &cOBJS mas nao funcionou. Alguém poderia dar uma luz? PROGREDI BASTANTE, SEM A AJUDA DE VCS AINDA ESTARIA NO CLIPPER Editado por - jfaguiar on 22/11/2007 23:30:53 Editado por - jfaguiar on 24/11/2007 00:02:11

Olá pessoal. Em alguns casos é bem mais simples montar uma form via código do quê com o ws, correto? Pois é... mas quando preciso colocar uma Listbox na mesma é que o bicho pega! O gargalo é o seguinte? Somente aparecem os tres primeiros campos. Por mais que aumente o tamanho de SIZE nada acontece. Pode ser que esteja fazendo alguma coisa errada. Alguém pode me ajudar a decifrar este enigma ? Segue abaixo parte do meu código DEFINE FONT oFontScr NAME "Ms Sans Serif" SIZE 10,-10 DEFINE DIALOG oDlg FROM 5, 5 TO 22,70 TITLE 'Siscom' @ 0.1, 0.2 TO oDlg:nHeight()*.03554,oDlg:nWidth()*.07101 OF oDlg @ 01,01 LISTBOX oLbx; FIELDS STR(RECPARC,2),DTOC(RECDVEN),STR(RECVAL,9,2),DTOC(RECDBXA),DTOC(RECDEMI); SIZES 700,1500; HEADERS "PC","VENCTO"," VALOR","DT.PAGTO","EMISSAO" OF oDlg // Posiciona os botoes na parte inferior direita @oDlg:nHeight()/2-19,oDlg:nWidth()/2-70 Button oBtnOk Prompt "&Ok" Size 30,15 Pixel ACTION ( oDlg:Cargo:=.T.,oDlg:End() ) Of oDlg @oDlg:nHeight()/2-19,oDlg:nWidth()/2-35 Button oBtnCancel Prompt "&Cancelar" Size 30,15 Pixel Action oDlg:End() Of oDlg ACTIVATE DIALOG oDlg CENTERED // Ativa a janela de dialog Editado por - jfaguiar on 16/11/2007 17:53:55

Olá pessoal. Em alguns casos é bem mais simples montar uma form via código do quê com o ws, correto? Pois é... mas quando preciso colocar uma Listbox na mesma é que o bicho pega! O gargalo é o seguinte? Somente aparecem os tres primeiros campos. Por mais que aumente o tamanho de SIZE nada acontece. Pode ser que esteja fazendo alguma coisa errada. Alguém pode me ajudar a decifrar este enigma ? Segue abaixo parte do meu código DEFINE FONT oFontScr NAME "Ms Sans Serif" SIZE 10,-10 DEFINE DIALOG oDlg FROM 5, 5 TO 22,70 TITLE 'Siscom' @ 0.1, 0.2 TO oDlg:nHeight()*.03554,oDlg:nWidth()*.07101 OF oDlg @ 01,01 LISTBOX oLbx; FIELDS STR(RECPARC,2),DTOC(RECDVEN),STR(RECVAL,9,2),DTOC(RECDBXA),DTOC(RECDEMI); SIZES 700,1500; HEADERS "PC","VENCTO"," VALOR","DT.PAGTO","EMISSAO" OF oDlg // Posiciona os botoes na parte inferior direita @oDlg:nHeight()/2-19,oDlg:nWidth()/2-70 Button oBtnOk Prompt "&Ok" Size 30,15 Pixel ACTION ( oDlg:Cargo:=.T.,oDlg:End() ) Of oDlg @oDlg:nHeight()/2-19,oDlg:nWidth()/2-35 Button oBtnCancel Prompt "&Cancelar" Size 30,15 Pixel Action oDlg:End() Of oDlg ACTIVATE DIALOG oDlg CENTERED // Ativa a janela de dialog Editado por - jfaguiar on 16/11/2007 17:53:55

Kapiaba vc é CARA!!! Os clientes queriam voltar para o sistema em Clipper! Valeu meu.