Pesquisar na Comunidade

boa tarde! Estou tentando salvar um retorno do cancelamento de NF-e e está ficando desta forma abaixo: Estou fazendo da seguinte forma o cancelamento da NF-e: // Criar o cancelamento fConfigACBR_NFe.ACBrNFe.EventoNFe.Evento.Clear; //fConfigACBR_NFe.ACBrNFe.EventoNFe.idLote := iNumLotFat; with fConfigACBR_NFe.ACBrNFe.EventoNFe.Evento.Add do begin infEvento.chNFe := chaveNFe; infEvento.CNPJ := gEmpCgc; infEvento.dhEvento := NOW; infEvento.tpEvento := teCancelamento; infEvento.detEvento.nProt := nProtocolo; infEvento.detEvento.xJust := sJustifica; end; try // Enviar o evento de cancelamento if fConfigACBR_NFe.ACBrNFe.EnviarEvento(iNumLotFat) then begin with fConfigACBR_NFe.ACBrNFe.WebServices.EnvEvento do begin if (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 101) and // 101 - cancelamento homologado (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135) and // 135 - Evento registrado e vinculado a NF-e (cancelamento de NF-e homologado) (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 151) and // 151- cancelamento homologado fora do prazo (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 155) then // 155 - Evento registrado e vinculado a NF-e fora de prazo; begin raise Exception.CreateFmt( 'Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak + 'Código:%d' + sLineBreak + 'Motivo: %s', [ EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo ]); end; // retornos sData1 := FormatDateTime('DD/MM/YYYY',EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento); sHOra1 := FormatDateTime('HH:MM:SS',EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento); nProtocoloCanc := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; wXML := ConverteXMLtoUTF8(EventoRetorno.retEvento.Items[0].RetInfEvento.XML); // aqui eu pego o retorno sStat := IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat); sMotivo := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; ffcDB_NFe.rtfProcCancNFe.Text := wXML; //SALVA ARQUIVO XML ASSINADO E PROTOCOLADO ffcDB_NFe.rtfProcCancNFe.Lines.SaveToFile(gLocalAplicativo+'ARQS\XML\NF-e\_CANCELADO\'+s_Arquivo); aqui estou salvando o mesmo sPath := gLocalAplicativo+'ARQS\XML\NF-e\_CANCELADO\'+s_Arquivo; Mensagem('Arquivo XML do cancelamento salvo na pasta: '+gLocalAplicativo+'ARQS\XML\NF-e\_CANCELADO\'+s_Arquivo); O que estou fazendo de errado? Atenciosamente, Tatiane Peixoto. NF000023978_CAN.XML