Impressão via XML

[Vinicius Pereira]

Bom dia pessoal,

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

Obrigado.

Editado 25 Fevereiro, 2019 por Vinicius Pereira

[rodrigoogioni]

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

[Juliana Tamizou]

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