Problemas com a Manifestação do Destinatário na NFe 4.0

[Fabio Luiz Binhara]

Olá, estou com alguns problemas ao fazer a manifestação do destinatário na NFe 4.0.

Primeiro é que ao tentar fazer a manifestação na 3.1 funciona normalmente, porém na 4.0 retorna uma exceção vazia do EACBrDFeException. (Anexo)

Segue como estou chamando o evento:

ACBrNFe1.EventoNFe.Evento.Clear;
with ACBrNFe1.EventoNFe.Evento.Add do
begin
  InfEvento.cOrgao := 91;
  infEvento.chNFe := memNSUSelecionadosCHAVENFE.AsString;
  infEvento.CNPJ := SomenteNumero(cEmpresa.sCNPJ);
  infEvento.dhEvento := DataHoraServidor;
  infEvento.tpEvento := tpEventoRealizar;
  if cEmpresa.sAmbienteNFe = 'P' then
    InfEvento.tpAmb := taProducao
  else
    InfEvento.tpAmb := taHomologacao;
end;
ACBrNFe1.EnviarEvento(1);

O estranho é que quando o mando um evento teManifDestConfirmacao ou teManifDestCiencia da o erro, só que a receita recebe o evento e confirma a manifestação.

Outro problema é que não estou conseguindo receber o -procEventoNFe.xml da nota, já tentei pelo ACBrNFe1.Consultar também e não funcionou, com isso os campos do ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento ficam vazias e não consigo saber qual o evento que foi feito na nota.

Grato.

[Fabio Luiz Binhara]

Acho que achei o motivo do primeiro problema, no ACBrNFeWebServices na função TratarResposta esta alimentando a variavel FPRetWS assim:

FPRetWS := SeparaDadosArray(['nfeRecepcaoEventoResult', 'nfeResultMsg'],FPRetornoWS );

Sendo que na 4.0 a tag do XML esta nfeRecepcaoEventoNFResult e não nfeRecepcaoEventoResult:

FPRetWS := SeparaDadosArray(['nfeRecepcaoEventoResult', 'nfeRecepcaoEventoNFResult', 'nfeResultMsg'], FPRetornoWS );

Fazendo isso parou de dar o exception vazio e retornou a mensagem da receita.

Editado 25 Outubro, 2017 por Fabio Luiz Binhara

[André Ferreira de Moraes]

Obrigado pela colaboração. Correção enviada ao SVN.

[Fabio Luiz Binhara]

41 minutos atrás, André Ferreira de Moraes disse:

Obrigado pela colaboração. Correção enviada ao SVN.

Disponha.

É feito change-log desse tipo de alteração? Não apareceu aqui...

 

Sobre o evento da manifestação, não encontrei em manual algum. É o Web Service que deveria estar mandando junto ao baixar as NSU ou tem alguma solicitação diferente?

[Juliomar Marchetti]

13 horas atrás, Fabio Luiz Binhara disse:

Disponha.

É feito change-log desse tipo de alteração? Não apareceu aqui...

 

Sobre o evento da manifestação, não encontrei em manual algum. É o Web Service que deveria estar mandando junto ao baixar as NSU ou tem alguma solicitação diferente?

Ou change log nas pastas ou no log do svn.