luisinfo

Ja testei varios programas, mais o que melhor funcionou foi instalar a impressora USB e ativar o pool de impressão, assim não precisa mudar nada no programa, recurso do proprio Windows, instale a impressora USB normalmente no Windows depois inclui mais uma impressora ativando o pool de impressora como segue no link abaixo. http://www.visualset.com.br/tutoriais/USB.pdf

Mandei no seu e-mail. Luis Claudio

O retorno é na variavel cRetorno, quanto a função tenta assim: cTimeSitef tem q ser no formato: hhmmss IniciaFuncaoSiTefInterativoA(cResultado, "000000", ALLTRIM(TRANSFORM(nValCartao,"@E 999999999.99")), cNroCOO, DTOS(dDataHoje), cTimeSitef, cUsuario,"") Luis Claudio Editado por - luisinfo on 13/11/2010 10:32:03

valor=STR(DATFT->PUNPE,16,4) valor=StrTran(valor,Chr(32),"#")

Isso é da versão do validador, vc deve estar usando a versão de 2008, ela esta com problemas. Procure a versão de 2007. http://www.sefa.pa.gov.br/site/index.cfm?fuseaction=downloads.sintegra Atenciosamente, Luis Claudio Editado por - luisinfo on 06/06/2008 16:20:56

Tenta colocar a linha FWRITE(ARQ,WLIN) antes do enddo. Eu uso assim e não demora tanto. do while ! eof() wlin="1" mcodigo=val(codigo) wlin+=strzero(mcodigo,7) wlin+=nome wlin+=unidade+space(2) wlin+=left(referencia,15) wlin+=strzero(preco*100,7) wlin+="01" wlin+=codigo wlin+="S" wlin+="S" wlin+=space(102) wlin+="X"+chr(13)+chr(10) conta=1 FWRITE(ARQ,WLIN) skip loop enddo wlin="9" FWRITE(ARQ,WLIN) FCLOSE(ARQ) Luis Claudio maximogta@hotmail.com Editado por - luisinfo on 24/03/2008 07:41:56

Olá, tenho um sistema com TEF DEDICADO homologado, segue abaixo como declaro a função. Tente usar as funções com A no final, ai vc trata todas as variaveis como caracter. ConfiguraIntSiTefInterativoA IniciaFuncaoSiTefInterativoA ContinuaFuncaoSiTefInterativoA FinalizaTransacaoSiTefInterativoA EfetuaPagamentoAASiTefInterativoA EscreveMensagemPermanentePinPadA CorrespondenteBancarioSiTefInterativoA nDLLSITEF:= loadlibrary( "CliSitef32I.DLL" ) DLL32 FUNCTION ContinuaFuncaoSiTefInterativoA(Resultado AS LPSTR,Comando AS LPSTR,Tipo AS LPSTR,TamMinimo AS LPSTR,TamMaximo AS LPSTR,Buffer AS LPSTR,TBuffer AS LPSTR,Continua AS LPSTR) as LONG PASCAL LIB nDLLSITEF Atenciosamente, Luis Claudio NetCom Informatica netcom.informatica@uol.com.br maximogta@hotmail.com (MSN) Guaratingueta-SP Editado por - luisinfo on 28/11/2007 20:47:26

Eu tenho o manual da DLLG2, do curso q fiz na Dataregis sobre a MFD, disseram q funciona com a Elgin e Urano, teste mesmo eu nao fiz ainda, se servir me avisa, vc pode testar com o emulador da Dataregis. Luis Claudio maximoluis@uol.com.br Guaratingueta-SP

If oDlg:nLastkey=27 Endif Luis Claudio maximoluis@uol.com.br

Tenta assim: Keybd_event(13,,0) // KeyBoard(Chr(13)) DLL32 FUNCTION keybd_event(bVk AS 7,bScan AS 7,dwFlags AS 8,dwExtrainfo AS 7) AS 7 PASCAL LIB "User32.dll" Luis Claudio

No lugar da KeyBoard estou usando o seguinte comando. Keybd_event(13,,0) // KeyBoard(Chr(13)) DLL32 FUNCTION keybd_event(bVk AS 7,bScan AS 7,dwFlags AS 8,dwExtrainfo AS 7) AS 7 PASCAL LIB "User32.dll" Luis Claudio FWH 2.5 / xHarbour 0.99.3 Comercial

Tente usar os comandos do proprio xHarbour, pois tambem tentei usar os do FiveWin e nao deu certo. // // - Funcao para iniciar a porta Serial // nScanner := Init_Port("COM1", 9600, 8, 1, 2, 8000 ) if nScanner=-1 MsgAlert('Erro Iniciando porta serial do Scanner!','Atencao') endif OutBufClr( nScanner ) // Limpa o Buffer de Sa¡da // // - Funcao para ler os dados da Serial // nBytes := InbufSize( nScanner ) // Quantidade de bytes do buffer IF nBytes>0 nBytes := InbufSize( nScanner ) nOk:=InChr( nScanner, nBytes, @cDadosDoc ) // Le Buffer Endif Retorno:=Len(Alltrim(cDadosDoc)) If Retorno>0 ? cDadosDoc Endif Luis Claudio FWH 2.5 / xHarbour 0.99.3 Comercial

http://www.oasys.itu.nom.br/cepbr.exe Luis Claudio maximoluis@uol.com.br maximogta@hotmail.com

Recebi um exemplo do amigo Clemerson, que resolveu o problema. Obrigado a todos

Gostaria de saber com fazer a leitura do codigo de barra de um leitor serial ( Seal ou Metrologic ) em FiveWin, no clipper eu usava a CATOOLS e funcionava normal. Atenciosamente, Luis Claudio maximoluis@uol.com.br Clear nSerial=2 * Numero da porta serial AbreSerial(nSerial,9600,"N",8,2) @ 0,0 say "Passe o codigo de barra pelo leitor..." @ 2,0 say LeSerial(nSerial,13) FechaSerial(nSerial) Return //---------------------------------------------- //Nome______: AbreSerial() - Abertura da Porta Serial //Parametro1: nPorta (1 p/COM1 OU 2-p/COM2) //Parametro2: nVeloc (2400,4800,9600 etc) //Parametro3: cParidade (N->Nenhuma O->Impar etc..) //Parametro4: nDados (7 ou 8 etc..) //Parametro5: nStop (1 ou 2 etc..) //---------------------------------------------------- FUNCTION AbreSerial(nPorta,nVeloc,cParidade,nDados,nStop) LOCAL lRETURN:=.T. lRETURN:=COM_OPEN(nPorta) IF lRETURN lRETURN:=COM_INIT(nPorta,nVeloc,cParidade,nDados,nStop) ENDIF RETURN(lRETURN) //--------------------------------------------- // Nome______: LeSerial() - Leitura da Serial // Parametro1: nPorta (1 p/COM1 OU 2-p/COM2) // Parametro2: nTamanho (13) //--------------------------------------------- FUNCTION LeSerial(nPorta,ntamanho) LOCAL cSTRING:="",cSTS:="L,",nCHAR COM_FLUSH(nPorta) WAITPERIOD(3600) cSTRING:="" cSTS="" tecla=255 DO WHILE COM_COUNT(nPorta) < nTamanho .AND. tecla#27 .AND. tecla#13 .and. WAITPERIOD() cSTS:=COM_READ(nPorta,1) IF Asc(cSTS)=13 .or. tecla=13 EXIT ENDIF If Asc(cSTS)>=48 .and. Asc(cSTS)<=57 .and. len(cString)<13 cSTRING=cSTRING+cSTS Endif tecla=INKEY() If tecla=8 .and. len(cString)>1 cString=Left(cString,len(cString)-1) Endif If tecla>=48 .and. tecla<=57 .and. len(cString)<13 cString=cString+Chr(tecla) Clear Type KeyBoard(chr(255)) Inkey(0) Clear Type Endif ENDDO e_an=StrZero(Val(cString),13) RETURN(e_an) //------------------------------------------------------ //Nome_____: FechaSerial() - Fecha a porta serial //Parametro: nPorta (1 p/COM1 OU 2-p/COM2) //------------------------------------------------------ FUNCTION FechaSerial(nPorta) lRETURN:=COM_CLOSE(nPorta) IF !lRETURN ALERT("PORTA NAO FECHADA") ENDIF RETURN(lRETURN)

Revolvi o problema parcialmente, o comando OpenComm, funcionou em conjunto com o INIT_PORT da IOLIB, mas somente no Windows 98. Eu estava usando o Windows XP e nao funcionava, hoje testei no Windows 98 e imprimiu normalmente. Agora uma pergunta como configurar a porta serial em 9600,n,8,1, toda vez que uso o OpenComm ele muda para Paridade EVEN e Bits de Entrada 7, pensei que fosse o comando BuildCommDcb, mas nao funciona, estou fazendo isto atravez do comando INIT_PORT da IOLIB.

A impressora e uma EPSON TM-U375, estou dando mandando o comando CHR(27)+CHR(64) que e para iniciar a impressora. O problema e que anda imprimindo somente a primeira linha do WriteComm e apenas 16 caracteres. Luis Claudio maximoluis@uol.com.br

oCOMM=OpenComm("COM2") BuildCommDcb( "COM2:9600,n,8,1" ) WriteComm( oComm,"M.J.ALVES NUNES SUPERMERCADO"+chr(10)) CloseComm( oComm )

Com a TDOSPRN, da a seguinte mensagem: Nao foi possivel gravar no dispositivo COM1 E com a OpenComm(), tambem nao deu certo, tentei imprimir na com2 com o WriteComm(), ele so imprimiu 16 caracteres e nao muda de linha.

Como eu posso imprimir diretamente em uma impressora serial. No Clipper em imprimia assim: #include "iolib.ch" INIT_PORT(COM2,BPS9600,EIGHT_DATA_BITS,NO_PARITY,ONE_STOP_BIT,3,8192) Set console off Set bell off set printer to com2 set print on ? "LINHA 1" ? "LINHA 2" ? "LINHA 3" ? chr(13) ? chr(27)+chr(33)+chr(33)+"LINHA 5"+CHR(27)+CHR(33)+CHR(1) ? chr(13) ? chr(13) Agradeço desde ja. Luis Claudio

Obrigado a todos. Luis Claudio maximogta@uol.com.br (12) 9778-0116

Alguem poderia me explicar como montar um Browse, com a classe TWBrowse, estou precisando montar um browse parecido c o programa CAWIND opcao clientes.