Boa tarde... acabei por descobrir que faltou definir o caminho, por isso não estava gravando, para falar a verdade descobri que estava gravando dentro do diretório da aplicação
adicionei a linha:
NFE.DANFE.PathPDF := 'caminho do PDF da NF-e';
EnderecoXML := "Caminho onde está o meu xml que vou cancelar"
DM.NFE.NotasFiscais.Clear;
DM.NFE.EventoNFe.Evento.Clear;
if not DM.NFE.NotasFiscais.LoadFromFile(EnderecoXML) then
Begin
raise Exception.Create('Não foi possível carregar o XML da Nota Fiscal Eletrônica para cancelamento!');
Exit;
End;
strNrNota := "123456"
iNumeroLote := StrToInt("123456");
DM.NFE.EventoNFe.idLote := iNumeroLote;
strProtocolo := "Protocolo do XML"
strChave := "Chave do XML"
with DM.NFE.EventoNFe.Evento.Add do
begin
infEvento.chNFe := strChave;
infEvento.CNPJ := strCnpjCompleto;
infEvento.dhEvento := now;
infEvento.tpEvento := teCancelamento;
infEvento.detEvento.xJust := Justificativa;
infEvento.detEvento.nProt := strProtocolo;
end;
DM.nfe.Configuracoes.Arquivos.Salvar := True;
DM.nfe.Configuracoes.Arquivos.SalvarEvento := true;
DM.nfe.Configuracoes.Arquivos.PathNFe := EnderecoDiretorioXML;
DM.nfe.Configuracoes.Arquivos.PathEvento := EnderecoDiretorioXML;
DM.nfe.Configuracoes.Arquivos.EmissaoPathNFe := True;
if DM.NFE.EnviarEvento(iNumeroLote) then
begin
with DM.NFE.WebServices.EnvEvento do
begin
DataProtocolo := FormatDateTime('dd/mm/yyyy hh:nn:ss',EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento);
NrProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML;
Result := 'Cod:' + IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat) + '-' + EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.