[RESOLVIDO] REIMPRIMIR uma NFE / DANFE Já enviada.

[Wilson]

Olá a todos!

Preciso novamente da ajuda de vocês.

Situação: Emiti a nota, validei, enviei e na hora de imprimir a impressora falhou.

Como havia fechado o programa preciso reimprimir esta DANFE.

Para isso uso os comandos, no ambiente de produção:

NFE.NotasFiscais.Clear;

NFE.NotasFiscais.LoadFromFile('Nome do arquivo NFe.xml');

Try

NFE.NotasFiscais.Imprimir;

Except

on Exc : Exception do

SHowMessage('Erro na impressão.' + exc.Message);

End;

Acontece que ele abre a nota com uma tarja cinza embaixo dizendo que a nota não foi enviada.

É como se imprimisse sem enviar. Mas ela já foi enviada.

O que fazer?

Obrigado pela ajuda amigos!

[André Ferreira de Moraes]

Configure o componente para salvar os arquivos enviados e recebidos e consulte a nota carregando o XML(Igual ao demo), depois imprima a NFe.

[Wilson]

André, obrigado por responder. Realmente devia ter olhado o exemplo... (Vergonha) rs

Mudei a rotina para:

NFE.Configuracoes.WebServices.Ambiente := taproducao;

NFE.NotasFiscais.Clear;

NFE.NotasFiscais.LoadFromFile(caminho+numchave+'-NFe.xml'); //caminho onde estão os xmls das notas.

NFE.WebServices.Consulta.Executar;

if NFE.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then begin

NFE.WebServices.ConsultaDPEC.NFeChave := NFE.NotasFiscais.Items[0].NFe.infNFe.ID;

NFE.WebServices.ConsultaDPEC.Executar;

NFE.DANFE.ProtocoloNFe := NFE.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(NFE.WebServices.ConsultaDPEC.retDPEC.dhRegDPEC);

end;

Try

NFE.NotasFiscais.Imprimir;

Except

on Exc : Exception do

SHowMessage('Erro na impressão.' + exc.Message);

End;

Ele abre o preview, mas com a seguinte mensagem no rodapé:

NF-E NÃO ENVIADO PARA SEFAZ.

Ocorre que foi enviado. Poderia me ajudar? Obrigado.

[Wilson]

Agora sim vem uma pergunta burra: Precisa enviar algo para DPEC?

O que é DPEC? (Vou pesquisar...)

[Wilson]

Obrigado novamente.

Foi resolvido, fiz algumas alterações.

É que no meu caso era a reimpressão de uma nota que foi enviada.

Fiz assim:

NFE.Configuracoes.WebServices.Ambiente := taproducao;

NFE.NotasFiscais.Clear;

NFE.NotasFiscais.LoadFromFile(emp_dirserv+'\Empresas\'+emp_id+'\NFE\'+DMRetaguarda.TNotaNFE_NumChave.Value+'-NFe.xml');

NFE.WebServices.Consulta.NFeChave := DMRetaguarda.TNotaNFE_NumChave.Value;

Try

NFE.WebServices.Consulta.Executar;

NFE.DANFE.ProtocoloNFe := NFE.WebServices.Consulta.Protocolo;

Memo1.Lines.Add(DateToStr(Now)+'-'+TimeToSTr(Now));

Memo1.Lines.Add(NFE.WebServices.Consulta.Protocolo);

Try

NFE.NotasFiscais.Imprimir;

Except

on Exc : Exception do

SHowMessage('Erro na impressão.' + exc.Message);

End;

Except

on Exc : Exception do

SHowMessage('Erro na consulta.' + exc.Message);

End;

[André Ferreira de Moraes]

Vc deve consultar o XML da NFe carregando o arquivo no componente(botão "Consultar carregando XML") e não usar o exemplo do DPEC.

DPEC é um modo de contingência da NFe, leia http://www.nfe.fazenda.gov.br/portal/do ... _v1_01.pdf para mais informações sobre os modos de contingência.