OpenDialog1.Title := 'Selecione a NFE';
OpenDialog1.DefaultExt := '*-nfe.XML';
OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
if OpenDialog1.Execute then
begin
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
idLote := '1';
if not(InputQuery('WebServices Eventos: Cancelamento', 'Identificador de controle do Lote de envio do Evento', idLote)) then
exit;
if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa', vAux)) then
exit;
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.idLote := StrToInt(idLote) ;
with ACBrNFe1.EventoNFe.Evento.Add do
begin
infEvento.dhEvento := now;
infEvento.tpEvento := teCancelamento;
infEvento.detEvento.xJust := vAux;
end;
ACBrNFe1.EnviarEventoNFe(StrToInt(idLote));
MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetWS);
memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetornoWS);
LoadXML(MemoResp, WBResposta);
ShowMessage(IntToStr(ACBrNFe1.WebServices.EnvEvento.cStat));
ShowMessage(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt);
end;
Resolvi o problema e para compartilar com todos é o seguinte esse erro apareceu porque o acbr foi atualizado mais eu esqueci de copiar o conteúdo da pasta schema dentro da pasta do meu execultável. Era só isso e tive que desmontar e montar denovo meu NFe. rsrs
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.
edsonjplima's post in Falha Na Validação Dos Dados Do Envio De Evento No Pará was marked as the answer