Erro ao enviar evento EPEC

[Elias Rodrigues]

Estou testando ao envio da nota em EPEC. está aparecendo o erro abaixo:

A conexão com o servidor foi reconfigurada - URL:https://hom.nfe.fazenda.gov.br/RecepcaoEvento/RecepcaoEvento.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/RecepcaoEvento.
 

Para envio estou usando o Código abaixo:

 

                            ACBrNFe.NotasFiscais.GerarNFe;
                            ACBrNFe.NotasFiscais.Validar;
                            //ACBrNFe.NotasFiscais.Assinar;

                            ACBrNFe.NotasFiscais.Items[0].
                                GravarXML(intToStr(ACBrNFe.NotasFiscais.Items[0].NFe.Ide.cNF) + '.xml',
                                                   ExtractFilePath(Application.ExeName) + 'nfe\');;
                            vStatus := 'CONTINGENCIA(DPEC)';
                            ACBrNFe.EventoNFe.Evento.Clear;
                            ACBrNFe.EventoNFe.idLote := tmpTransNFE.FieldByName('NUMERO_NFE').AsInteger;
                            With ACBrNFe.EventoNFe.Evento.Add do
                            begin
                              infEvento.cOrgao                       := 31;
                              infEvento.tpAmb                        := ACBrNFe.NotasFiscais.Items[0].NFe.Ide.tpAmb;
                              infEvento.CNPJ                         := ACBrNFe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF;
                              infEvento.chNFe                        := copy(ACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44);
                              infEvento.dhEvento                     := Now;
                              infEvento.tpEvento                     := teEPECNFe;
                              infEvento.nSeqEvento                   := 1;
                              infEvento.detEvento.descEvento         := 'EPEC';
                              infEvento.detEvento.cOrgaoAutor        := ACBrNFe.NotasFiscais.Items[0].NFe.Ide.cUF;
                              infEvento.detEvento.tpAutor            := taEmpresaEmitente;
                              infEvento.detEvento.verAplic           := ACBrNFe.NotasFiscais.Items[0].NFe.Ide.verProc;
                              infEvento.detEvento.dhEmi              := Now;
                              infEvento.detEvento.tpNF               := ACBrNFe.NotasFiscais.Items[0].NFe.Ide.tpNF;
                              infEvento.detEvento.IE                 := ACBrNFe.NotasFiscais.Items[0].NFe.Emit.IE;
                              infEvento.detEvento.dest.UF            := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.EnderDest.UF;
                              infEvento.detEvento.dest.CNPJCPF       := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.CNPJCPF;
                              infEvento.detEvento.dest.idEstrangeiro := ACBrNFe.NotasFiscais.Items[0].NFe.Dest.idEstrangeiro;
                              infEvento.detEvento.vNF                := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF;
                              infEvento.detEvento.vICMS              := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS;
                              infEvento.detEvento.vST                := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vST;
                              infEvento.detEvento.nProt              := ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.nProt;
                            end;
                            ACBrNFe.EventoNFe.GerarXML;
                            if  ACBrNFe.EnviarEvento(tmpTransNFE.FieldByName('NUMERO_NFE').AsInteger) then
                               ShowMessage(ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt)
                            else
                               ShowMessage(ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt);
 

Segue em anexo o XML. Alterei os dados para segurança da empresa.

 

725993.xml