Jump to content

logo_acbr_paygo.png

Chegou o TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao_saibamais.png

beneficios.png

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Vinicius Pereira

Impressão via XML

  • Este tópico foi criado há 229 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

Em 25/02/2019 at 11:54, Vinicius Pereira disse:

Bom dia pessoal,

Existe algum modo onde eu possa imprimir as Guias via XML gerado ?

Obrigado.

Faço assim, 

marco no componente em arquivos para salvar o txt.

e no codigo:

Try
     dm.ACBrGNRE1.Enviar( false);


     except on e: exception do begin
       FMain.tipoerro:= 1;
       raise Exception.Create(e.message);
     end;
     End;

     if dm.ACBrGNRE1.WebServices.Retorno.codigo = 402 then begin


     dm.ACBrGNRE1.GuiasRetorno.Clear;
     dm.ACBrGNRE1.GuiasRetorno.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Backup\Documentos\GNRE\TXT\' + dm.ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt');
     if fileexists(ExtractFilePath(Application.ExeName) + 'Backup\Documentos\GNRE\TXT\' + dm.ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt') then begin

     dm.ACBrGNRE1.GuiasRetorno.Imprimir;
     dm.ACBrGNRE1.GuiasRetorno.ImprimirPDF;

     end;

     end else begin

     Application.CreateForm(TFMessage, FMessage);
         FMessage.sLabel2.Caption:= 'codigo: '+ IntToStr(dm.ACBrGNRE1.WebServices.Retorno.codigo) + #10+#13+
                  'descricao: '+ dm.ACBrGNRE1.WebServices.Retorno.descricao + #10+#13+
                  'Recibo: '+ dm.ACBrGNRE1.WebServices.Retorno.numeroRecibo + #10+#13+
                  'Protocolo: '+ dm.ACBrGNRE1.WebServices.Retorno.protocolo;
         FMessage.ShowModal;
         FMessage.Release;
     end;
 

O acbr gera um txt, importo ele, dai gera o pdf e a impressão

Abraços

Share this post


Link to post
Share on other sites

@lucastonussi sua postagem foi movida para um novo tópico, pois se trata de uma nova situação.

 

Dado o ultimo post deste tópico, o mesmo será fechado.

Att.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
  • Este tópico foi criado há 229 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui
Guest
This topic is now closed to further replies.

×
×
  • Create New...