Impressão De Carta De Correção

[Thiago Cocati]

pode deixar silvasoares resolvendo posto aqui 

Agora estou com outra duvida fui ate o acbr demo e o meu erro continua a dar porem quando uso debug vejo que o xml e carregado porem não retorna nada nos campos, e obs: notem que cometei o cOrgao por isso não deu erro nele rsrsr.

olhem e veja quem pode me ajudar, e sera que estou no caminho certo ou não tem nada haver isso... 

desde já obrigado.

[Thiago Cocati]

Fiz uns teste e inserir o codigo (FieldByName('cOrgao').AsInteger := 31;//InfEvento.cOrgao;) ai sim imprimiu, mas sem os dados da carta de correção, na verdade não esta lendo o xml .

caminho do xml 'Desktop\1101103117042473781500011655001000000105100000105401-procEventoNFe.xml'

Evento que leio o Xml:

    ACBrNFeDANFEFR1.MostrarPreview := True;

    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromString(OpenDialog1.FileName); //<XML Nota Eletrônica>

    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName); //<XML Evento>
    ACBrNFeDANFEFR1.FastFileEvento := 'C:\VEEV\server\danfe\EVENTOS.fr3';

    ACBrNFe1.ImprimirEvento;

 

o que posso esta fazendo de errado?

Obrigado!

 

[Thiago Cocati]

sumiu erro "Campo cOrgao não informado."  

usei o seguinte código e tudo certo 

  OpenDialog1.Title := 'Selecione o Evento';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    //ACBrNFeDANFeRL1.MostrarPreview := True;
    ACBrNFeDANFEFR1.FastFileEvento := 'C:\VEEV\server\danfe\EVENTOS.fr3';
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName) ;
    ACBrNFe1.ImprimirEvento;
  end;

Silvasoares o meu erro sumiu com esse código ai, se precisar de ajuda só falar! 

e obrigado a todos! valeu!

 

[silvasoares]

2 minutos atrás, Thiago Cocati disse:

sumiu erro "Campo cOrgao não informado."  

usei o seguinte código e tudo certo 

  OpenDialog1.Title := 'Selecione o Evento';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    //ACBrNFeDANFeRL1.MostrarPreview := True;
    ACBrNFeDANFEFR1.FastFileEvento := 'C:\VEEV\server\danfe\EVENTOS.fr3';
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName) ;
    ACBrNFe1.ImprimirEvento;
  end;

Silvasoares o meu erro sumiu com esse código ai, se precisar de ajuda só falar! 

e obrigado a todos! valeu!

 

Obrigado, Thiago!, vou tentar.

[Adjeryan]

Em 31/10/2015 at 15:43, silvasoares disse:

Obrigado, Sérgio pelo help, mas eu até encontro o retorno do evento, o problema é que vem em 2 arquivo(125-eve.xml e 0-ped-eve.xml)  e na hora de imprimir a Carta de Correção

não aparecem os campos: o status, protocolo e data/hora do registro

(estou usando o Fortes, não sei se tem algum erro, enfim)

 

Você conseguiu resolver o seu problema? Estou com o mesmo problema e não estou conseguindo resolver.

Em 06/04/2017 at 14:52, silvasoares disse:

Obrigado, Thiago!, vou tentar.

Estou usando o Fortes reports também, você conseguiu resolver?

[silvasoares]

34 minutos atrás, Adjeryan disse:

Você conseguiu resolver o seu problema? Estou com o mesmo problema e não estou conseguindo resolver.

Estou usando o Fortes reports também, você conseguiu resolver?

Infelizmente, não. Criei por fora uma carta de correção para "quebrar o galho" e imprimir, mas não ficou o ideal. 

[Adjeryan]

Conseguir resolver meu problema extraindo o XML com o método a seguir: XMLCCe := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML;
Antes de imprimir usei:
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(xml da NFe);

ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.LerXMLFromString( XMLCCe );

Funcionou direitinho.