Xml Carta De Correção

[jbaneto]

Olá

 

gostaria de saber como gerar o xml da carta de correção

com a tag <detevento> comforme o anexo 1

 

pois depois que envio e gero o xml retornado gera apenas como o

segundo anexo.

 

o cliente não quer aceitar o segundo anexo, mas na minha opinião é mais valido que

o primeiro pois mostra o vinculo à nfe, mas sabe como é.

 

grato por sua atenção.

 

ps: anexo 1 XMl de uma carta de correção - Exemplo

      anexo 2 CORRECAO1_12184.XML

XML de uma Carta de Correção - Exemplo (1).xml

CORRECAO1_12184.XML

[Italo Giurizzato Junior]

Boa tarde jbaneto,

 

O primeiro XML é simplesmente o envio ou seja a solicitação, no caso de uma correção.

 

Por outro lado o segundo trata-se do retorno da SEFAZ acusando o registro do mesmo e a vinculação a NF-e.

 

Se você utiliza o componente ACBrNFe, existe um terceiro arquivo chamado *-procEventoNFe.xml

 

Este XML contem a solicitação e o retorno, ou seja os dois que você postou em um só.

[jbaneto]

Maravilha

 

agora como faço pra salvar esse

*-procEventoNFe.xml em uma pasta local?

 

grato

[Italo Giurizzato Junior]

jbaneto,

 

O *-procEventoNFe.xml é salvo se:

 

Configuracoes.Geral.Salvar for igual a True

 

ou

 

Configuracoes.Arquivos.Salvar for igual a True

[jbaneto]

Olá

 

eu vou ver então porque salvo o mesmo da seguinte forma:

 

    ACBrNFe1.Configuracoes.Geral.Salvar       := True;
    ACBrNFe1.Configuracoes.Geral.PathSalvar   := ccepasta;    //'c:\nfecorrecao';
  with ACBrNFe1.CartaCorrecao.CCe.Evento.Add do
   begin
     infEvento.chNFe := Chave;
     infEvento.cOrgao := StrToInt(codOrgao);
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := dmDados.cds_P_DataHoraDATA_HORA.AsDateTime;
     infEvento.tpEvento := 110110;
     infEvento.tpAmb := taProducao;
     infEvento.nSeqEvento := StrToInt(nSeqEvento);
     infEvento.versaoEvento := '1.00';
     infEvento.detEvento.versao := '1.00';
     infEvento.detEvento.descEvento := 'Carta de Correcao';
     infEvento.detEvento.xCorrecao := Correcao;
     infEvento.detEvento.xCondUso := memoxcond.Text;
   end;
  ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote));
  MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.CartaCorrecao.RetWS);
  memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.CartaCorrecao.RetornoWS);
  LoadXML(MemoRespWS, WBResposta);
//
   with _frmPrincipal do
   begin
     if (uppercase(edServidor) = 'LOCALHOST') then
     begin
         Salvar := copy(edPath,1,7)+'\XMLCorrecao\'+'CORRECAO'+trim(edSerieE.Text)+'_'+trim(dmDados.cdsNFiscaisNF1_NFNUMERO.AsString)+'.XML';
         SalvarPasta := copy(edPath,1,7)+'\XMLCorrecao\';
         ccePasta := copy(edPath,1,7)+'\XMLCorrecao';
     end
     else
     begin
       Salvar := '\\'+trim(edServidor)+'\XMLCorrecao\'+'CORRECAO'+trim(edSerieE.Text)+'_'+trim(dmDados.cdsNFiscaisNF1_NFNUMERO.AsString)+'.XML';
       SalvarPasta := '\\'+trim(edServidor)+'\XMLCorrecao\';
       ccePasta := '\\'+trim(edServidor)+'\XMLCorrecao';
     end;
   end;

   SaveDial.FileName := Salvar;
//  if SaveDial.Execute then
//  begin
     AssignFile(Fsaida, SaveDial.Filename);
     Rewrite(Fsaida);
     Write(Fsaida, MemoRespWS.Text);
     CloseFile(Fsaida);
 // end;
    ACBrNFe1.Configuracoes.Geral.Salvar       := False;
    ACBrNFe1.Configuracoes.Geral.PathSalvar   := '';

e o que vem é somente o anexo 2;

 

grato pela atenção

[jbaneto]

Olá

 

alguem poderia me 

mostrar como salvar os anexos acima em um só arquivo.

 

grato

[EMBarbosa]

Por favor, se é uma dúvida diferente do tópico inicial, queira criar um tópico novo.