Procedimento para Validar e Assinar um XML

[Isael Faria Junior]

Boa tarde Pessoal,

Sou novo na utilização da DLL, pois ate então, utilizavamos o validador para fazer a validação, assinatura e envio do xml.

Com o comunicado da descontinuação do mesmo, estamos implementando a solução, para o mesmo.

Estou utilizando o Delphi xe8 para o mesmo, montando o procedimento para pegar um xml, que já geramos utilizando a dll da nfe,

para validar, assinar e enviar.

Poderiam me dar uma força ?

Segue o meu procedimento até o momento,

procedure TFormValidadorNfe.btnArquivoClick(Sender: TObject);
var
 vCaminhoXml  : String;
 vCaminhoCert : String;
 vNumeroSerie : String;
begin
 OpenDialog.DefaultExt := '*.xml';
 OpenDialog.Filter := 'Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';

 OpenDialog.Title := 'Selecionar XML\';
 OpenDialog.InitialDir := 'C:\\';
 if OpenDialog.Execute then
 Begin
   vCaminhoXml :=  OpenDialog.FileName;

   Memo1.Clear;
   Memo1.Lines.LoadFromFile(vCaminhoXML);
   ACBrNFe1.NotasFiscais.LoadFromFile(vCaminhoXML,true);
   try

    if (edtTipoCertificado.Text = 'A1') then
    begin
      OpenDialog.Title := 'Selecione o Certificado';
      OpenDialog.DefaultExt := '*.pfx';
      OpenDialog.Filter := 'Arquivos PFX (*.pfx)|*.pfx|Todos os Arquivos (*.*)|*.*';
      OpenDialog.InitialDir := ExtractFileDir(application.ExeName);
      if OpenDialog.Execute then
      begin
       vCaminhoCert := OpenDialog.FileName;
       ACBrNFe1.Configuracoes.Certificados.ArquivoPFX  := vCaminhoCert;
       ACBrNFe1.Configuracoes.Certificados.Senha       := 'associacao';
       ACBrNFe1.Configuracoes.Certificados.NumeroSerie := 'A1';
       ACBrNFe1.SSL.CarregarCertificado;
      end;
    end;
    if (edtTipoCertificado.Text = 'A3') then
    begin
     if ACBrNFe1.SSL.CertificadoLido = False then
        ACBrNFe1.SSL.SelecionarCertificado;
    end;

    ACBrNFe1.NotasFiscais.Validar;
    if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then
      MemoDados.Lines.Add('Alertas: '+ACBrNFe1.NotasFiscais.Items[0].Alertas);
      ShowMessage('Nota Fiscal Eletrônica Valida');
   except
    on E: Exception do
    begin
          MemoDados.Lines.Add('Exception: '+E.Message);
          MemoDados.Lines.Add('Erro: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacao);
          MemoDados.Lines.Add('Erro Completo: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacaoCompleto);
     end;
   end;

   //ACBrNFe1.NotasFiscais.GerarNFe;
   ACBrNFe1.NotasFiscais.Assinar;
 end;
end;

 

 

 

 

 

 

[Juliomar Marchetti]

chegou a olhar o exemplo na pasta do svn?

ou o próprio projeto do monitor que está na pasta Projetos?