Clipper On Line • Ver Tópico - ecf epson tm-t20 exemplo

ecf epson tm-t20 exemplo

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

ecf epson tm-t20 exemplo

Mensagempor pena » 28 Jan 2019 15:48

Alguem teria um exemplo pra comunicar e imprimir usando a epson tm-t20, tenho da bematech e daruma e foi facil de fazer, com esta medonha to apanhando
Avatar de usuário

pena
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 331
Data de registro: 06 Jul 2004 18:08
Cidade/Estado: CACHOEIRA DO SUL-RS
Curtiu: 0 vez
Mens.Curtidas: 3 vezes

ecf epson tm-t20 exemplo

Mensagempor fladimir » 28 Jan 2019 20:31

TM-T20 q eu saiba não é ECF e sim uma impressora termica q pode ter comunicação via USB, Ethernet, Serial

Nesse caso se estivermos falando da mesma impressora a forma de imprimir é a mesma utilizada nas demais impressoras térmicas, no caso eu uso assim,

Se compartilhar ela, depois mapeia via NET Use como se fosse uma LPT1 e faz um Copy File (nome do arquivo TXT com os comandos ESC/POS etc) TO PORTA

Se for usar via Driver utilize o win_Prn():New( NomedaImpressoranoWindows ) e os comandos necessários da classe.

Partindo do principio q já imprima em impressoras USB, a explicação acima resolveria.

Agora se não imprime em USB ai tem q primeiro resolver esta parte pra depois direcionar pra impressora em questão.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

ecf epson tm-t20 exemplo

Mensagempor pena » 29 Jan 2019 07:06

Desculpe pela ignorância, foi muito tempo imprimindo com impressora fiscal, por isso o termo ecf, mas é isso mesmo, o drama é que preciso imprimir nfc-e, o problema é o QrCode, que na bematech e daruma basta chamar a dll, porém na epson não funciona, como se não carregasse a dll
Avatar de usuário

pena
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 331
Data de registro: 06 Jul 2004 18:08
Cidade/Estado: CACHOEIRA DO SUL-RS
Curtiu: 0 vez
Mens.Curtidas: 3 vezes

ecf epson tm-t20 exemplo

Mensagempor wagner_fix » 06 Fev 2019 00:48

Boa noite, estou com o mesmo problema.
E estou apanhando bastante, estou usando Delphi e não encontro nenhum modelo, e os que eu achei não consigo se comunicar com a .dll alguém poderia nos dar uma luz?
Grato,
Wagner
wagner_fix
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 4
Data de registro: 06 Fev 2019 00:45
Cidade/Estado: Campinas/SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

ecf epson tm-t20 exemplo

Mensagempor pena » 06 Fev 2019 07:19

Tentei com C# sem sucesso também, neste caso carrega a DLL, acha os métodos, mas quando envio comando pra ela, nada faz, eu instalei como se fosse uma impressora comum, conforme manda o manual.
Avatar de usuário

pena
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 331
Data de registro: 06 Jul 2004 18:08
Cidade/Estado: CACHOEIRA DO SUL-RS
Curtiu: 0 vez
Mens.Curtidas: 3 vezes

ecf epson tm-t20 exemplo

Mensagempor MSDN » 06 Fev 2019 11:16

Eu imprimo nessa impressora, para tal faço o seguinte : ( foi a que achei mais prática para o meu caso, mas funciona )

1 - Utilizo um software que cria uma porta COM associada á uma impressora instalada via USB, para saber como fazer e baixar, veja neste link http://wiki.adaptive.com.br/index.php/Emulador_de_Porta_COM_para_ECF_USB

2 - Para imprimir

   IF MsgYesNo('Imprimir CUPOM NÃO FISCAL ?')
        TRY
          SELE fecha
          fecha->(DBGoTop())
          SET PRINTER ON
          SET PRINTER TO COM5 //definido usando software porta virtual
          SET CONSOLE OFF

          ? '------------------------------------------------'
          ? '         CUPOM PARA SIMPLES CONFERENCIA'
          ? '             NAO E DOCUMENTO FISCAL'
          ? '        COMA BEM RESTAURANTE E LANCHES'
          ? '================================================'
          ? 'DATA      : '+dtoc(date())+'  HORA: '+time()
          ? '------------------------------------------------'
          ? 'PRODUTO                  QTD    UNIT.  SUB-TOTAL'
          ? '------------------------------------------------'

          WHILE .NOT. Eof()
               ? SubStr(fecha->nomeprod,1,25)+' '+Str(fecha->qtd,6,3)+' '+Str(fecha->unitario,5,2)+' '+Str(fecha->subtotal,8,2)
               v_desconto  := ( v_desconto + fecha->desc )
               v_acrescimo := ( v_acrescimo + fecha->adic )
               v_soma      := ( v_soma + fecha->subtotal )
               fecha->(DBSkip())
          END

          ? '------------------------------------------------'
          ? '                      SUB-TOTAL R$ ' + Str(v_soma,10,2)
          ? '                      SUB-TOTAL R$ ' + Str(v_acrescimo,10,2)
          ? '                      SUB-TOTAL R$ ' + Str(v_desconto,10,2)
          ? '                      SUB-TOTAL R$ ' + Str((v_soma+v_acrescimo)-(v_desconto),10,2)
          ? '------------------------------------------------'
          ? 'Agradecemos a preferencia, Volte Sempre !'
          ? ''
          ? ''
          ? ''
          ? ''
          ? ''

          SET CONSOLE ON
          SET PRINTER TO
          SET PRINTER OFF

      // cortar o papel

          v_comando = fcreate( "COM5",0 )
          fwrite( v_comando, CHR(27)+"d"+CHR(3) )
          fwrite( v_comando, CHR(27)+CHR(109) )
          fclose( v_comando )
        CATCH
          Alerta('Falha na impressão','ATENÇÃO',3)
        END
     ENDIF


Caso queira tirar alguma dúvida, meus contatos estão na assinatura.

Abraços
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 178 vezes
Mens.Curtidas: 123 vezes

ecf epson tm-t20 exemplo

Mensagempor wagner_fix » 06 Fev 2019 13:14

Direto pelo o IDE eu também tive sucesso, mas queria usar pela a DLL...
Mesmo assim muito obrigado pela resposta, vamos ver se alguém tem alguma solução sobre as DLL.

Se alguém precisar eu tenho um exemplo em delphi, consegui imprimir / cortar papel / imprimir imagem

Grato,
Wagner
wagner_fix
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 4
Data de registro: 06 Fev 2019 00:45
Cidade/Estado: Campinas/SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

ecf epson tm-t20 exemplo

Mensagempor pena » 06 Fev 2019 13:27

Wagner, eu quero
Avatar de usuário

pena
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 331
Data de registro: 06 Jul 2004 18:08
Cidade/Estado: CACHOEIRA DO SUL-RS
Curtiu: 0 vez
Mens.Curtidas: 3 vezes

ecf epson tm-t20 exemplo

Mensagempor MSDN » 06 Fev 2019 13:55

Eu não tenho resposta pronta....rsss, mas talvez isso ajude !

Qual a diferença entre Printer Class e Vender Class da Impressora EPSON TM-T20 ?
[url]https://www.oobj.com.br/bc/article/qual-a-diferença-entre-printer-class-e-vender-class-da-impressora-epson-tm-t20-454.html[/url]

Como configurar a impressora Epson TM-T20 USB para utilizá-la com a InterfaceEpsonNf.dll ?


Abraços
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 178 vezes
Mens.Curtidas: 123 vezes

ecf epson tm-t20 exemplo

Mensagempor rubens » 06 Fev 2019 17:05

Não serve o ACBRmonitor?
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

ecf epson tm-t20 exemplo

Mensagempor wagner_fix » 06 Fev 2019 18:28

MSDN, muito boa a observação mas já tinha feito... O problema é que eu não acho essa tal .dll no site, todos os links estão quebrados. A única .dll que eu achei foi na internet. Possa ser ela que está com problemas...

Pena segue o código

Para imprimir logo

var
Bitmap: TBitmap;
begin
BitMap:=TBitmap.Create;
BitMap.LoadFromFile('C:\EDI\logo0.bmp');
with Printer do
begin
BeginDoc;
Canvas.Draw(25,25,BitMap);
EndDoc;
end;
BitMap.Free;

Para imprimir texto

var
i: Integer;
lst: TextFile;
begin
AssignPrn(lst);
Rewrite(lst);
Writeln(lst, '');
Writeln(lst, Centraliza(UpperCase(FormatDateTime('"Cidade", dd " DE " mmmm " DE " yyyy "."', Date)),48));
Writeln(lst, '');
Writeln(lst, '');
Writeln(lst, '');
Writeln(lst, Centraliza('ASS. :____________________________________',48));
Writeln(lst, '');
Writeln(lst, Centraliza(Trim('*** VOLTE SEMPRE!!! ***'),48));
CloseFile(lst);
wagner_fix
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 4
Data de registro: 06 Fev 2019 00:45
Cidade/Estado: Campinas/SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

ecf epson tm-t20 exemplo

Mensagempor MSDN » 06 Fev 2019 18:52

Tenta baixar nesse link : https://download.epson-biz.com/modules/pos/index.php?page=prod&pcat=3&pid=37

outros links para ajudar

https://www.oobj.com.br/bc/article/como-configurar-impressora-epson-tm-t20-para-operar-via-dll-455.html

http://www.sfhera.com.br/suporte/2017/05/04/instalar-epson-nf/

OBS : pelo jeito a DLL não é um arquivo que vc baixa avulso, e sim instalado através de um dos programas da Epson.

Abraços
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 178 vezes
Mens.Curtidas: 123 vezes

ecf epson tm-t20 exemplo

Mensagempor wagner_fix » 06 Fev 2019 21:57

MSDN primeiramente gostaria de agradecer por você ter tirado um tempo para me responder.

Esses link já testei todos.

Se o link funciona encaminha para o site da Epson mas não tem a .dll

Se vai para outros link, está tudo quebrado erro 404

E verifiquei se a .dll está na instalação, infelizmente não é o caso.

Quem sabe alguém do grupo tem esse bendito .dll e compartilha conosco.

Grato,
Wagner
wagner_fix
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 4
Data de registro: 06 Fev 2019 00:45
Cidade/Estado: Campinas/SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

ecf epson tm-t20 exemplo

Mensagempor edsonfast » 23 Jun 2020 10:41

edsonfast
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 1
Data de registro: 23 Jun 2020 10:40
Cidade/Estado: Balneario Camboriu
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro