Validar, Assinar E Gerarnfe

[Dall'ara]

Bom dia a todos.

 

Preciso de uma ajuda urgente. eu já tenho o XML da nota fiscal gerada pelo ACBR, porem não consigo montar uma rotina que Valide e Assine o XML estou usando um programa de terceiro pago para fazer isso. Alguém pode me dar uma ajuda, consegui validar algumas notas porem nada conclusivo pois sempre gera um erro a cada 10 notas 8 geram erros e se eu pegar o mesmo XML e passar neste programa de terceiro ele envia, valida e assina a nota.

 

Alguém pode me ajudar na rotina quais os passos que devo fazer.

[Italo Giurizzato Junior]

Bom dia Dall'ara,

 

Você esta usando o componente ACBrNFe ?

 

Se sim, o comando Valida, se encarrega de Gerar o XML com base nos dados passados para o componente, assinar o mesmo, e efetuar a validação.

[Dall'ara]

FrmNFeStatus := TFrmNFeStatus.Create(Application);
FrmNFeStatus.lblStatus.Caption := 'Verificando status do serviço e certificado...';
FrmNFeStatus.Show;
FrmNFeStatus.BringToFront;

// Status e Certificado
{$IFNDEF ACBrNFeOpenSSL}
ACBrNFe1.Configuracoes.Certificados.NumeroSerie := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado;
{$ENDIF}
ACBrNFe1.WebServices.StatusServico.Executar;

// Validar
FrmNFeStatus.lblStatus.Caption := 'Validando nota fiscal eletronica...';
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(daosController.IBNFVenda.FieldByName('NFE_CAMINHO').AsString);
ACBrNFe1.NotasFiscais.Valida;

// Assinar
ACBrNFe1.NotasFiscais.Assinar;
FrmNFeStatus.lblStatus.Caption := 'Assinando nota fiscal eletronica...';
if not ACBrNFe1.NotasFiscais.ValidaAssinatura(Msg) then
   Begin
   ShowMessage('Erro ao assinar nota fiscal eletronica : '+Msg);
   Exit;
   End;

// Carregar e Enviar
FrmNFeStatus.lblStatus.Caption := 'Carregando e enviando nota fiscal para a receita...';
ACBrNFe1.NotasFiscais.GerarNFe;
ACBrNFe1.Enviar(1,True);

// Enviando o email
FrmNFeStatus.lblStatus.Caption := 'Enviando email aos destinatarios da NFe...';
// Localiza email do destinatario com nomemclatura NFE

Bom dia Ítalo

 

O código para envio, validação e assinatura esta assim conforme abaixo:

[André Ferreira de Moraes]

E vc não precisa char o valida, assinar e gerar NFE. Apenas o Valida já gera, assina e valida o XML.

Anexe um XML em que ocorre o problema.

[Dall'ara]

André o problema acredito que não esteja no xml por que eu valido ele normalmente em um programa de terceiro.

[Dall'ara]

Existe o monitor NFe ele serve como um aplicativo que envio e validação da Nota ??

[Juliomar Marchetti]

Sim o  monitor faz toda a interação com os webservice, você envia os comandos para a criação da nf-e, assinatura, validação , envio , recebimento!

baixe instale o mesmo e veja o arquivo de ajuda que vai junto!

para demais questões utilize a pesquisa que existem centenas de tópicos e posts explicando como usar!

[Dall'ara]

// Status e Certificado
{$IFNDEF ACBrNFeOpenSSL}
ACBrNFe1.Configuracoes.Certificados.NumeroSerie := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado;
{$ENDIF}
ACBrNFe1.WebServices.StatusServico.Executar;

// Validar
FrmNFeStatus.lblStatus.Caption := 'Validando nota fiscal eletronica...';
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(daosController.IBNFVenda.FieldByName('NFE_CAMINHO').AsString);
ACBrNFe1.NotasFiscais.Valida;

// Carregar e Enviar
FrmNFeStatus.lblStatus.Caption := 'Carregando e enviando nota fiscal para a receita...';
ACBrNFe1.NotasFiscais.GerarNFe;
ACBrNFe1.Enviar(1,True);

Desculpe voltar neste assunto André, mas so para ficar claro seria assim o código (já tenho o xml pronto).