Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 5112 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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!

Postado

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.

Postado

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;

  • Moderadores
Postado

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.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.xpos.com.br
  • Este tópico foi criado há 5112 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.