Gerar XML antes do envio

[Élviro Cavalcanti]

Boa dia pessoal, eu consigo gerar o XML do CTe pra poder visualizar ele antes de enviar pra poder conferir se está tudo certo com a impressão?

[Italo Giurizzato Junior]

Bom dia Élviro,

Sim, basta alimentar o componente com os dados do transporte a ser realizado, depois bastas executar o método Assinar e por fim o Imprimir.

[Élviro Cavalcanti]

Opa Italo, muito obrigado pela sua resposta, segue abaixo a rotina funcionando perfeitamente!

 

      ACBrCTeDACTeRL1.Logo := edtLogoMarca.Text;
      ACBrCTe1.Conhecimentos.Clear;
      ACBrCTe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\CTe';
      ACBrCTe1.Configuracoes.Arquivos.PathCTe := ExtractFilePath(Application.ExeName) + '\XmlDestinatario';
      ACBrCTe1.Configuracoes.Arquivos.PathInu := ExtractFilePath(Application.ExeName) + '\XmlDestinatario';
      ACBrCTe1.Configuracoes.Arquivos.PathEvento := ExtractFilePath(Application.ExeName) + '\XmlDestinatario';
      ACBrCTe1.Configuracoes.Arquivos.PathSalvar := ExtractFilePath(Application.ExeName) + '\XmlDestinatario';
      ACBrCTe1.Configuracoes.Geral.ModeloDF := moCTe;
      ACBrCTe1.Configuracoes.Geral.VersaoDF := ve300;
      GerarCTe(DM.IBConhecimentoNUMERO.AsString);

      try
       Begin
        ACBrCTe1.Conhecimentos.Assinar;
        ACBrCTe1.Conhecimentos.Validar;
        ACBrCTe1.Conhecimentos.Imprimir;