Jump to content

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Impressão via XML


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

Recommended Posts

  • 1 month later...
  • Membros Pro
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

Link to comment
Share on other sites

  • 7 months later...
  • Consultores

@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.  Discord

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


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 738 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...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.