valdecir

Veja se funciona como abaixo (eu nunca testei mais deve funcionar) oImpr:=FCREATE("LPT1.PRN") Imp(oImpr,chr(15) ) Imp(oImpr,"Linha 1") Imp(oImpr,"Linha 2") FCLOSE(oImpr) oImpr:=FCREATE("LPT1.PRN") Imp(oImpr,"Linha 3 ") Imp(oImpr,"Linha 4 ") Imp(oPrn,chr(12)) //Eject FCLOSE(oImpr) //*********************** Function Imp(nHandle, cString) FWrite(nHandle, CString+Chr(10)+Chr(13)) Return(Nil)

Me add no msn: valdecir_@msn.com ou por e-mail: valdecirteixeira@yahoo.com.br

abaixo e exemplo imprimindo o CF de uma venda, as declarações eu fiz como vc escreveu acima.... DllFiscal:=LoadLib32(".\DLL32\ELGIN.DLL") // Checar se a impressora est instalada... IF ( nRet := ELPrintLig() ) = 1 ELSE MsgInfo("Impressora Fiscal, nao esta pronta....","Atencao") RETURN .F. ENDIF // Abertura do cupom fiscal If (nRet := ElAbreCup(_CPF)) !=1 MsgInfo("Problemas na abertura do Cupom Fiscal","") Return .f. End SysRefresh() //Pra pegar o numero do CF cNumCupomFiscal := Space(6) If (nRet := ElNumCupom(@cNumCupomFiscal)) !=1 MsgInfo("Problemas na numeração do Cupom Fiscal","") Return .f. End VenTmp->(DbGoTop()) nSub:=0 cMensa:="Vendedor: "+StrZero(mCodVend,3)+"-"+mNomVend cST:="03" cTpQtd:="I" cDeci:="000" cTpDes:="%" cDesc:="00000,00" While VenTmp->(!Eof()) cDescr:=VenTmp->Tamanho+"/"+Left(VenTmp->Fabrica,10)+"/"+VenTmp->Refer+"/"+Left(VenTmp->Cor,4) If (nRet := ElVendItem(StrZero(VenTmp->CODPRO,6),; Left(cDescr,29),; "03",; "I",; StrZero(( VenTmp->QTDVenda ),4),; 0,; StrZero(( VenTmp->PrVenda * 100),8),; "%",; "0000") ) !=1 MsgInfo("Problemas ao enviar o item para a Impressora Fiscal.","") //fazer o cancelamento ElCanCupom() return .f. End nSub+=VenTmp->QTDVenda*VenTmp->PrVenda VenTmp->(DbSkip()) End cVarDesc:=AllTrim(Left(Str(nJuros,10,2),7)+Right(Str(nJuros,10,2),2)) If (nRet:=ElIniFechamento("A","$",nJuros))!=1 MsgInfo("Problemas ao Iniciar o Fechamento do Cupom Fiscal. ("+AllTrim(Str(nRet))+")","") ElCanCupom() return .f. End SysRefresh() If cFormaPag=="OUTROS" cFormaPag:="A PRAZO" End nPgto := (nSub+nJuros) If (nRet:=ElFormaPagto(cFormaPag,Right("000000000000"+Alltrim(Subst(str(nPgto),1,len(str(nPgto))-3))+Right(Str(nPgto),2),14)))!=1 MsgInfo("Problemas na Forma de Pagamento do Cupom Fiscal. ("+AllTrim(Str(nRet))+")","") ElCanCupom() return .f. End If cForma=="CREDIARIO" cMensa:=Str(Cliente->CodCli,5)+ "-" + Left(Cliente->NomCLi,30) + CHR(13) + CHR(10) + ; "RG.: "+Cliente->Rg + CHR(13) + CHR(10) + ; "Vendedor: "+StrZero(mCodVend,3)+"-"+mNomVend+ CHR(13) + CHR(10) Else cMensa:=vItXX+ CHR(13) + CHR(10) + ; vIt02 + CHR(13) + CHR(10) + ; "Vendedor: "+StrZero(mCodVend,3)+"-"+mNomVend End If ELTerminaFechamento(cMensa)!=1 MsgInfo("Problemas no Fechamento do Cupom","Atenção") Return .t. End FreeLib32(DllFiscal) Editado por - valdecir on 17/11/2008 17:21:39

José Paulo, por isso mesmo coloquei a declaração que uso, pois é praticamente igual e alem disso é uma herança das declarações da bematech. Editado por - valdecir on 17/11/2008 16:57:03

Uso desta maneira, e não tenho nenhum problema: DllFiscal:=LoadLib32(".\DLL32\ELGIN.DLL") ELLeituraX() FreeLib32(DllFiscal) //Declaração - leitura X Elgin DLL32 FUNCTION ElLeituraX( ) AS LONG PASCAL ; FROM "Elgin_LeituraX" LIB DllFiscal

Esta em DICAS .... qq duvida estamos a disposição... citação:Coloca em DICAS!! Ai todo mundo pode olhar.... Eduardo Mendes eduardo@conesnet.com.br Fwh 2.7 + xH 0.99.51 + sqllib + xDev xH 0.99.70 + GTWVW + DBFCDX + xDev Clipper 5.2e + DBFCDX + Exospace Campo Grande - MS id=quote>id=quote>

me passa seu e-mail que te envio as rotinas do TEF, sem nenhum custo.

citação: citação:Uso o travamento de teclado das Dlls (para os ECFs que descrevi acima) e recebi a certificação sem nenhum problema. Qto a recomendação das homologadoras, as pessoas que passam o roteiro de certificação praticamente não entendem nada de programação e eles repetem o que ouvem no ambiente de homologação, e se tem pronto, é só usar. id=quote>id=quote>Concordo que eles não entendem nada mesmo. Mas é uma analise simples Tenho 10 impressoras Então uso 10 funções diferentes para travar teclado ou uma só que faz tudo??? É neste caso prefiro usar uma só. Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. id=quote>id=quote>Sem duvida fica mais pratico, particularmente não sabia e como uso essas marcas de ECFs acabei me acomodando em relação a isso...

Uso o travamento de teclado das Dlls (para os ECFs que descrevi acima) e recebi a certificação sem nenhum problema. Qto a recomendação das homologadoras, as pessoas que passam o roteiro de certificação praticamente não entendem nada de programação e eles repetem o que ouvem no ambiente de homologação, e se tem pronto, é só usar.

As DLLs da Bematech, Elgin e Daruma ja tem isso pronto, as demais marcas de ECF não sei pois não usei.

Qual ECF vc esta usando ?

Todas as Software Houses que tiveram seus aplicativos certificados há mais de um ano deverão realizar a recertificação de seu sistema com o objetivo de renovar o Certificado de Compatibilidade. Ressaltamos a importância da realização do roteiro simplificado, a fim de checar os pontos críticos que serão verificados na certificação, pois de acordo com nossas estimativas mais da metade das empresas que reprovaram no processo de recertificação, não realizaram esses testes previamente. O novo módulo e sua documentação estão disponíveis em www.sevenpdv.com.br/new/conteudo/downloads.htm Assim que executados os testes enviar os mesmos para a SevenPdv para análise, no prazo máximo de uma semana para o retorno da análise a tempo das devidas correções, principalmente para as empresas que estarão participando do evento nas cidades comunicadas. Independente do resultado dos testes entraremos em contato para agendar a certificação. SevenPdv Aveninda Paulista, 475 - 9º andar Cerqueira César Cep: 01311-908 - São Paulo, SP Vale lembrar que no dia da certificação será executado o roteiro de certificação padrão com todos os testes. A certificação será realizada em Recife-PE do dia 18 ao dia 29/08/2008. Favor responder nesse e-mail (constec2@sevenpdv.com.br). Qualquer dúvida entre em contato conosco através do fone (11) 3549-6728. Atenciosamente, SevenPDV-Consultoria Técnica constec@sevenpdv.com.br

Todas as Software Houses que tiveram seus aplicativos certificados há mais de um ano deverão realizar a recertificação de seu sistema com o objetivo de renovar o Certificado de Compatibilidade. Ressaltamos a importância da realização do roteiro simplificado, a fim de checar os pontos críticos que serão verificados na certificação, pois de acordo com nossas estimativas mais da metade das empresas que reprovaram no processo de recertificação, não realizaram esses testes previamente. O novo módulo e sua documentação estão disponíveis em www.sevenpdv.com.br/new/conteudo/downloads.htm Assim que executados os testes enviar os mesmos para a SevenPdv para análise, no prazo máximo de uma semana para o retorno da análise a tempo das devidas correções, principalmente para as empresas que estarão participando do evento nas cidades comunicadas. Independente do resultado dos testes entraremos em contato para agendar a certificação. SevenPdv Aveninda Paulista, 475 - 9º andar Cerqueira César Cep: 01311-908 - São Paulo, SP Vale lembrar que no dia da certificação será executado o roteiro de certificação padrão com todos os testes. A certificação será realizada em Recife-PE do dia 18 ao dia 29/08/2008. Favor responder nesse e-mail (constec2@sevenpdv.com.br). Qualquer dúvida entre em contato conosco através do fone (11) 3549-6728. Atenciosamente, SevenPDV-Consultoria Técnica constec@sevenpdv.com.br

Como estamos na 'Era Digital', foi necessário rever os velhos ditados e adaptá-los à nova realidade. Vejam alguns: 1. A pressa é inimiga da conexão. 2. Amigos, amigos, senhas à parte. 3. Antes só, do que em chats aborrecidos. 4. A arquivo dado não se olha o formato. 5. Diga-me que chat freqüentas e te direi quem és. 6. Para bom provedor uma senha basta. 7. Não adianta chorar sobre arquivo deletado. 8. Em briga de namorados virtuais não se mete o mouse. 9. Em terra off-line, quem tem um 486 é rei. 10. Hacker que ladra, não morde. 11. Mais vale um arquivo no HD do que dois baixando. 12. Mouse sujo se limpa em casa. 13. Melhor prevenir do que formatar. 14. O barato sai caro. E lento. 15. Quando a esmola é demais, o santo desconfia que tem vírus anexado. 16. Quando um não quer, dois não teclam. 17. Quem ama um 486, Pentium 5 lhe parece. 18. Quem clica seus males multiplica. 19. Quem com vírus infecta, com vírus será infectado. 20. Quem envia o que quer, recebe o que não quer. 21. Quem não tem banda larga, caça com modem. 22. Quem nunca errou, que aperte a primeira tecla. 23. Quem semeia e-mails, colhe spams. 24. Quem tem dedo vai a Roma.com 25. Um é pouco, dois é bom, três é chat ou lista virtual. 26. Vão-se os arquivos, ficam os back-ups. 27. Diga-me que computador tens e direi quem és. 28. Há dois tipos de pessoas na informática. Os que perderam o HD e os que ainda vão perder... 29. Uma impressora disse para outra: Essa folha é sua ou é impressão minha. 30. Aluno de informática não cola, faz backup. 31. O problema do computador é o USB (Usuário Super Burro). 32. Na informática nada se perde, nada se cria. Tudo se copia... e depois se cola. 33. O Natal das pessoas viciadas em computador é diferente. No dia 25 de Dezembro, o Papai Noel desce pelo cabo de rede, sai pela porta serial e diz: Feliz Natal, ROM, ROM, ROM!

Como estamos na 'Era Digital', foi necessário rever os velhos ditados e adaptá-los à nova realidade. Vejam alguns: 1. A pressa é inimiga da conexão. 2. Amigos, amigos, senhas à parte. 3. Antes só, do que em chats aborrecidos. 4. A arquivo dado não se olha o formato. 5. Diga-me que chat freqüentas e te direi quem és. 6. Para bom provedor uma senha basta. 7. Não adianta chorar sobre arquivo deletado. 8. Em briga de namorados virtuais não se mete o mouse. 9. Em terra off-line, quem tem um 486 é rei. 10. Hacker que ladra, não morde. 11. Mais vale um arquivo no HD do que dois baixando. 12. Mouse sujo se limpa em casa. 13. Melhor prevenir do que formatar. 14. O barato sai caro. E lento. 15. Quando a esmola é demais, o santo desconfia que tem vírus anexado. 16. Quando um não quer, dois não teclam. 17. Quem ama um 486, Pentium 5 lhe parece. 18. Quem clica seus males multiplica. 19. Quem com vírus infecta, com vírus será infectado. 20. Quem envia o que quer, recebe o que não quer. 21. Quem não tem banda larga, caça com modem. 22. Quem nunca errou, que aperte a primeira tecla. 23. Quem semeia e-mails, colhe spams. 24. Quem tem dedo vai a Roma.com 25. Um é pouco, dois é bom, três é chat ou lista virtual. 26. Vão-se os arquivos, ficam os back-ups. 27. Diga-me que computador tens e direi quem és. 28. Há dois tipos de pessoas na informática. Os que perderam o HD e os que ainda vão perder... 29. Uma impressora disse para outra: Essa folha é sua ou é impressão minha. 30. Aluno de informática não cola, faz backup. 31. O problema do computador é o USB (Usuário Super Burro). 32. Na informática nada se perde, nada se cria. Tudo se copia... e depois se cola. 33. O Natal das pessoas viciadas em computador é diferente. No dia 25 de Dezembro, o Papai Noel desce pelo cabo de rede, sai pela porta serial e diz: Feliz Natal, ROM, ROM, ROM!