Gerar XML da Carta de Correção

[Isael Faria Junior]

Boa noite Pessoal,

estou gerando a carta de correção da nfe, porem não consigo salvar ela.

Procurei e não encontrei nenhum exemplo.

Alguém pode me ajudar ?

[smaniand]

Tente assim:

 

          try
            try
              nCorr:=TabellaNFeXml.FieldByName('Numero_correzioni').AsInteger;
            except
              nCorr:=0;
            end;

            inc(nCorr);

            ACBrNFe1.EventoNFe.Evento.Clear;
            if TabellaDocumentoScontrinoFiscale2.asInteger=55 then
              ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe
            else
            if TabellaDocumentoScontrinoFiscale2.asInteger=65 then
              ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe
            else
              ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe;
            with ACBrNFe1.EventoNFe.Evento.Add do
              begin
                OldTimeSeparator:=FormatSettings.TimeSeparator;
                TimeSeparator:=':';
                infEvento.chNFe := TabellaNFeXMLChave_Acesso.asString;
                if TabellaDocumentoCodFIvaNe.asString<>'' then
                  infEvento.CNPJ     := TabellaDocumentoCodFIvaNe.asString
                else
                  infEvento.CNPJ     := TabellaDocumentoCodFIvaAz.asString;
                infEvento.dhEvento := now;
                infEvento.tpEvento := teCCe;
                infEvento.nSeqEvento := nCorr;
                infEvento.detEvento.xCorrecao := Justificativa;
              end;
            Numero_lote:=ModuloDatabaseAll.IniProgressivi.IncLongint('NFE','Lote');
            ACBrNFe1.EnviarEvento(numero_lote);
            id:=ACBrNFe1.EventoNFe.Evento[0].InfEvento.id;
            delete(id,1,2);
          finally
            FormatSettings.TimeSeparator:=OldTimeSeparator;
          end;


          if ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=135 then
            begin
              TabellaNfeXml.Edit;
              TabellaNfeXml.FieldByNAme('Numero_correzioni').asInteger:=nCorr;
              TabellaNfeXml.FieldByNAme('id_evento').asString:=id;
              TabellaNfeXml.Post;
              salva_xml(path_tmp+id+'-procEventoNFe.xml',5);
              sMessageDlg('Evento: '+ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo+#13#10+
                                     ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xEvento,mtInformation,[mbok],0);
              ACBrNFeDANFEFR1.MostrarPreview:=true;
              nomefile:=path_tmp+id+'-procEventoNFe.xml';
              ACBrNFe1.EventoNFe.Evento.Clear;
              ACBrNFe1.EventoNFe.LerXML(nomefile);
              ACBrNFeDanfeFR1.FastFileEvento:=path_stampe+'Documenti\EVENTOS.fr3';
              ACBrNFe1.ImprimirEvento;
            end
          else
            sMessageDlg('Evento: '+ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo+#13#10+
                                   ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xEvento,mtInformation,[mbok],0);