Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

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

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...