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!

O TEF vc não consegue homologar para pessoa Fisica.

veja se ajuda .... @ECHO OFF CLS IF 'A:'=='' GOTO nodrive IF 'C:'=='' GOTO nodrive IF 'C:'=='A:' GOTO nodrive :INICIO BE ROWCOL 0 0 " " BLUE ON CYAN BE ROWCOL 0 67 " MENU " BLUE ON CYAN BE ROWCOL 1 0 " " RED ON WHITE BE ROWCOL 24 0 " VERSAO COMERCIAL " BLUE ON CYAN BE WINDOW 2,0,23,79 BLUE ON BLUE BE WINDOW 5,5,18,70 BLUE ON WHITE EXPLODE SHADOW BE ROWCOL 06 07 "1 COMPRAS. " BLUE BE ROWCOL 07 07 "2 FATURAMENTO. " BLUE BE ROWCOL 08 07 "3 ESTOQUE. " BLUE BE ROWCOL 09 07 "4 FINANCEIRO. " BLUE BE ROWCOL 10 07 "5 LISTA DE PRECOS. " BLUE BE ROWCOL 11 07 "6 HISTORICO DE CLIENTES. " BLUE BE ROWCOL 12 07 "7 HISTORICO DE PRODUTOS. " BLUE BE ROWCOL 13 07 "8 DIVERSOS/CADASTROS/ORCAMENTO. " BLUE BE ROWCOL 14 07 "9 FIM DE OPERACAO. " BLUE BE ROWCOL 16 07 "OPCAO:" BE ROWCOL 16 15 "" BLINK BE ASK " " 123456789 DEF= BLUE If ErrorLevel 9 Goto SIS_09 If ErrorLevel 8 Goto SIS_08 If ErrorLevel 7 Goto SIS_07 If ErrorLevel 6 Goto SIS_06 If ErrorLevel 5 Goto SIS_05 If ErrorLevel 4 Goto SIS_04 If ErrorLevel 3 Goto SIS_03 If ErrorLevel 2 Goto SIS_02 If ErrorLevel 1 Goto SIS_01 :SIS_09 BE ROWCOL 16 35 "Aguarde..." BLINK BE ROWCOL 14 06 "û" RED BE BEEP /F200 /D5 CLS GOTO END :SIS_01 BE ROWCOL 16 35 "Aguarde..." BLINK BE ROWCOL 06 06 "û" RED BE BEEP /F200 /D5 LAVSCOM4 Goto INICIO :SIS_02 BE ROWCOL 16 35 "Aguarde..." BLINK BE ROWCOL 07 06 "û" RED BE BEEP /F200 /D5 LAVSFAT4 Goto INICIO :SIS_03 BE ROWCOL 16 35 "Aguarde..." BLINK BE ROWCOL 08 06 "û" RED BE BEEP /F200 /D5 ESTOQPRO Goto INICIO :SIS_04 BE ROWCOL 16 35 "Aguarde..." BLINK BE ROWCOL 09 06 "û" RED BE BEEP /F200 /D5 LAVSFIN4 Goto INICIO :SIS_05 BE ROWCOL 16 35 "Aguarde..." BLINK BE ROWCOL 10 06 "û" RED BE BEEP /F200 /D5 LISTAP Goto INICIO :SIS_06 BE ROWCOL 16 35 "Aguarde..." BLINK BE ROWCOL 11 06 "û" RED BE BEEP /F200 /D5 CC115CON Goto INICIO :SIS_07 BE ROWCOL 16 35 "Aguarde..." BLINK BE ROWCOL 12 06 "û" RED BE BEEP /F200 /D5 ES404TEL Goto INICIO :SIS_08 BE ROWCOL 16 35 "Aguarde..." BLINK BE ROWCOL 13 06 "û" RED BE BEEP /F200 /D5 MENU1 Goto INICIO :END CLS

Me desulpe, mais usei o FWPPC somente qdo trabalhei na Virtual, depois não tive mais contato com o produto. Creio que a pessoa mais indicada seja o Gilmer mesmo.

Luiz Fernando Se vc não emitir o CF, não há emissão do Cupom TEF pois o mesmo é vinculado.

Na condição de ex-funcionario da Virtual Object e por respeito a comunidade só tenho a declarar que: 1 – Não comercializei e nem comercializo fontes de programas, tanto que estou de consciência tranqüila e ainda deixo em aberto pra qualquer um se manifestar, caso eu tenho oferecido fontes de programas como moeda de troca e/ou firmei alguma parceria nesses moldes (hoje tenho parceria com duas Grandes Empresas, que possuíam seus sistemas em Clipper) 2 – A pessoa que adquiriu os fontes deveria fornecer o nome de quem os vendeu, pra realmente sabermos quem anda lucrando com idéias e trabalhos de terceiros. 3 – Quanto a prejudicar o Sr. Gilmer, trabalhei por seis anos na Virtual Object e sempre me mantive fiel e integro a empresa, já faz um ano que me desliguei e por estar a tanto tempo a frente do desenvolvimento e suporte, obviamente que tinha contato com o clientes (quero ainda completar que tenho contato com alguns pois nos tornamos amigos, porem com esses não trato de assuntos profissionais). A minha saída aconteceu pois tive uma oportunidade melhor e indispensável, afinal todos desejamos crescer profissionalmente, pois foi com esse objetivo que deixei meu emprego anterior e fui para a Virtual Object. Alguns desses clientes me procuraram para prestação de serviços, inclusive o primeiro eu já alertei o Sr. Gilmer (creio que ele se lembre desse episódio, pois nessa época eu até dei pra ele o chip do meu celular, para evitar maiores aborrecimentos). Quando fui procurado pelos clientes da Virtual. sempre deixei clara a minha posição. E hoje da minha carteira de clientes tenho dois clientes que pertenciam a Virtual Object, porem que são clientes que estão comigo a mais de 15 anos e que eu os levei pra para agregarem a carteira de clientes da Virtual Object (quando fiz isso, não acrescentou nenhum centavo no meu salário), porem quando me desliguei da Virtual esses dois manifestaram o interesse de continuar contando com a minha prestação de serviços. Bom quero encerrar por aqui e por mais tentem não me manifesto mais neste “postâ€, para os interessados deixo os meus contatos logo abaixo e ainda se alguém do fórum se sente lesado por algo que fiz, se for de comum acordo, entre em contato que terei o prazer em ajustar essa pendência. Att Valdecir Teixeira e-Tec Info – Tecnologia e Informática Fones: (15) 3213-8275 / 9131-2884 e-mail: valdecirteixiera@yahoo.com.br etecinfo@terra.com.br MSN: valdecir_@msn.com.br

É o mesmo procedimento do TEF, dependendo da marca do ECF vc só precisa programar para que a opção A PRAZO libere o cupom vinculado.

Olá - Isso é discado? Discado, mais tb tem a opção para Dedicado; - Quem já é homologado em TEF DISCADO, tem que fazer nova homologação? Normalmente a Homologação é feita para: REDECARD, TECBAN, VISA e AMEX (agora foi incluido o Pay & Go, vc precisa ver quais certificados vc possui. - É a mesma coisa, ou existe processos diferentes? É o mesmo processo das demais bandeiras, salvo que no modo Discado é mais demorado que o REDECARD. - Quais bandeiras aceitam nesse TEC BAN? Cheque Eletronico, Banco 24 horas e Good Card - Existe muito procura na praça por estes cartões, como é? Depende muito da Região, o Goob Card por exemplo esta entrando firme em Postos de Gasolina. Att Valdecir Teixiera

Desculpe ... Function Imp(nHandle, cString) FWrite(nHandle, CString+Chr(10)+Chr(13)) Return(Nil) Abraços

Com estas linhas nem precisa abrir as instruçoes TDOSPRN. Abraços

Sim, basta muda-lo para TDOSPRN. Abraços