Evento não mapeado da DFe da CTe

[francinaldoac]

Bom dia, 

Ao fazer isso da função :

TpEventoToDescStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].procEvento.tpEvento);

Quando o evento é 310611 "MDF-e Cancelado", a função retorna "NaoMapeado", assim também a função:

TpEventoToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].procEvento.tpEvento)

Retorna o valor -99999.

Meu componente está atualizado, tem algum problema ou essa função está descontinuada?

Grato.

[Italo Giurizzato Junior]

Bom dia Francinaldo,

Na unit pcteConversaoCTe altere a função StrToTpEventoCTe para:

function StrToTpEventoCTe(out ok: boolean; const s: string): TpcnTpEvento;
begin
  Result := StrToEnumerado(ok, s,
            ['-99999', '110110', '110111', '110113', '110160', '110170',
             '110180', '110181', '610110', '310610', '310611'],
            [teNaoMapeado, teCCe, teCancelamento, teEPEC, teMultiModal,
             teGTV, teComprEntrega, teCancComprEntrega, tePrestDesacordo,
             teMDFeAutorizado2, teMDFeCancelado2]);
end;

Note que acrescentei o tipo de evento 310611.

E faça novos testes.

[francinaldoac]

Funcionou perfeitamente Italo, obrigado.

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.