Ajuda na DistribuiçãoDFE

[joaovmf]

Boa noite, alguem por favor, pode fazer um organograma do processo de distribuição do DFE? Consegui pegar as chaves de acesso, mas estou apanhando para dar ciencia e fazer o download do xml.

 

Obrigado

[Breno Luiz]

Junto com os componentes do ACBr, na pasta de exemplos, tem três arquivos TXT exemplificando como é o processo de realizar o Download. Mas já que tu tens as chaves de acesso, vou te mostrar como é mais ou menos o processo:

// Para manifestar

    CNFE.EventoNFe.Evento.Clear;
    with CNFE.EventoNFe.Evento.Add do
    begin
        InfEvento.cOrgao       := 91;
        InfEvento.chNFe        := ChNFE;
        InfEvento.CNPJ         := QryEmpresa.FieldByName('CNPJ_EMPRESA').AsString;
        InfEvento.dhEvento     := Now;
        InfEvento.tpEvento     := teManifDestOperNaoRealizada;   -- Verifique que eu utilizei operação não realizada, voce deve alterar para manifestação
    end;

    CNFE.EnviarEvento(1);

 

//Para baixar o XML, somente após a manifestação

CNFE.DistribuicaoDFePorChaveNFe(QryEmpresa.FieldByName('CODIGO_UF').AsInteger,
                                    QryEmpresa.FieldByName('CNPJ_EMPRESA').AsString,
                                    ChNFE);

 

Lembrando que deve setas os caminhos nas configurações do componente. E as opções de retorno fica para você tratar

 

Abraços....