Boa tarde pessoal, preciso de uma outra ajuda estou precisando pegar o retorno (cstat) de um XML de cancelamento, ele vem sempre com código 217, mas a minha aplicação não está conseguindo pegar o retorno, segue o trecho de código se alguém puder me ajudar, agradeço.
O XML segue em anexo.
if length(arquivo_xml) > 0 then
NFeletronica.NotasFiscais.LoadFromFile(form_configl.Etrilha_xmls.Text + arquivo_xml);
//
NFeletronica.EventoNFe.Evento.Clear;
//
NFeletronica.EventoNFe.idLote := funcs_var.F_cartoint(cupom); // lote é sempre numero da nota.
with NFeletronica.EventoNFe.Evento.Add do
begin
infEvento.chNFe := chave_cupom;
infEvento.CNPJ := dados_nfce.EmitCNPJ;
// 2.0.33.1.3 // isto funciona, mas o computador tem que estar um minuto menor que o servidor, e o cancelamento deve ser um minuto após a venda
infEvento.dhEvento := now;
// infEvento.dhEvento := NFeletronica.WebServices.StatusServico.dhRetorno;
if length(VG_arqlog) > 0 then
funcs_txt.P_Log(VG_arqlog, ' Chave:' + infEvento.chNFe + '; ' +
' CNPJ:' + infEvento.CNPJ + '; ' +
' Data:' + DateTimeToStr(infEvento.dhEvento), false, '', true);
infEvento.tpEvento := teCancelamento;
infEvento.detEvento.xJust := 'Desistencia do Cliente';
// não tem protocolo porque é sincrono
// infEvento.detEvento.nProt := local_SDS.FieldByName('PROTOCOLO_NFE').AsString;
end;
NFeletronica.EnviarEvento(funcs_var.F_cartoint(cupom));
51160417835784000170650010001384439001384437-sit.xml