Italo, boa tarde!
Fico grato pela atenção e informação, realmente não tinha conhecimento sobre a desativação de emissão DPEC. Já fiz as implementação para emissão de notas por meio da contingência SVC.
Agora estou implementando o registro de evento EPEC, porém o SEFAZ esta retornando a seguinte rejeição:
Identificador : 52150367620377000467550010004372924004372922
Ambiente : 2
Versão Aplicativo : GO3.0
Status Código : 217
Status Descrição : Rejeicao: NF-e nao consta na base de dados da SEFAZ
UF : GO
Chave Acesso : 52150367620377000467550010004372924004372922
Recebimento : 30/12/1899
Protocolo :
Digest Value :
Não sei o que estou fazendo de errado, visto que registro deveria ser feito no ambiente nacional. Abaixo segue rotina que estou usando para geração do evento:
NFE.EventoNFe.Evento.Clear;
try
With NFE.EventoNFe.Evento.Add do
begin
infEvento.cOrgao := 91;
infEvento.tpAmb := NFE.NotasFiscais.Items[0].NFe.Ide.tpAmb;
infEvento.CNPJ := NFE.NotasFiscais.Items[0].NFe.Emit.CNPJCPF;
infEvento.chNFe := copy(NFE.NotasFiscais.Items[0].NFe.infNFe.ID, (length(NFE.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 := NFE.NotasFiscais.Items[0].NFe.Ide.cUF;
infEvento.detEvento.tpAutor := taEmpresaEmitente;
infEvento.detEvento.verAplic := NFE.NotasFiscais.Items[0].NFe.Ide.verProc;
infEvento.detEvento.dhEmi := Now;
infEvento.detEvento.tpNF := NFE.NotasFiscais.Items[0].NFe.Ide.tpNF;
infEvento.detEvento.IE := NFE.NotasFiscais.Items[0].NFe.Emit.IE;
infEvento.detEvento.dest.UF := NFE.NotasFiscais.Items[0].NFe.Dest.EnderDest.UF;
infEvento.detEvento.dest.CNPJCPF := NFE.NotasFiscais.Items[0].NFe.Dest.CNPJCPF;
infEvento.detEvento.dest.idEstrangeiro := NFE.NotasFiscais.Items[0].NFe.Dest.idEstrangeiro;
If (NFE.NotasFiscais.Items[0].NFe.Dest.IE <> '')
or (NFE.NotasFiscais.Items[0].NFe.Dest.IE <> 'ISENTO') then
begin
infEvento.detEvento.dest.IE := NFE.NotasFiscais.Items[0].NFe.Dest.IE;
end;
infEvento.detEvento.vNF := NFE.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF;
infEvento.detEvento.vICMS := NFE.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS;
infEvento.detEvento.vST := NFE.NotasFiscais.Items[0].NFe.Total.ICMSTot.vST;
end;
NFE.EnviarEventoNFe(iLote);
RegistraSituacao();
except
on E : Exception do
begin
RegistraSituacao(e.Message);
raise;
end;
end;
