Advertisement
RibaSoft

Configuração do componente ACBrNFe

Jan 3rd, 2023 (edited)
1,653
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.31 KB | None | 0 0
  1. NFC.SSL.SSLType := LT_TLSv1_2; //Protocolo de Segurança de Comunicação
  2. NFC.SSL.SSLXmlSignLib := xsLibXml2; //Gerenciador de Assinatura
  3. NFC.SSL.Senha := FormCertificado.Senha;
  4.  
  5. //Certificado A1
  6. if (FormCertificado.TipoCertificado = 0) then //arquivo pfx
  7. begin
  8.   NFC.SSL.SSLCryptLib := cryOpenSSL; //Gerenciador de Certificado
  9.   NFC.SSL.SSLHttpLib := httpOpenSSL; //Gerenciador da Comunicação
  10.   NFC.SSL.ArquivoPFX := FormCertificado.LocalCertificado;
  11. end;
  12.  
  13. //Certificado A3
  14. if (FormCertificado.TipoCertificado = 1) then //do repositorio
  15. begin
  16.   NFC.SSL.SSLCryptLib := cryWinCrypt; //Gerenciador de Certificado
  17.   NFC.SSL.SSLHttpLib := httpWinHttp; //Gerenciador da Comunicação
  18.   NFC.SSL.NumeroSerie := FormCertificado.SerieCerTificado;
  19.   NFC.SSL.CarregarCertificado;
  20. end;
  21.  
  22. NFE.Configuracoes.Geral.ForcarGerarTagRejeicao938 := fgtSempre; //Evita Rejeição
  23. NFE.Configuracoes.Arquivos.PathNFe := FormCertificado.LocalNF;
  24. NFE.Configuracoes.Arquivos.PathSchemas := FormCertificado.LocalSchemas;
  25. NFE.Configuracoes.WebServices.Ambiente := Ambiente;
  26. NFE.Configuracoes.Arquivos.SepararPorModelo := True;
  27. NFE.Configuracoes.Arquivos.SepararPorMes := True;
  28. NFE.Configuracoes.Geral.VersaoDF := ve400;
  29. NFE.DANFE := Danfe;
  30. NFE.Configuracoes.Geral.ModeloDF := moNFe;
  31. NFE.Configuracoes.Geral.AtualizarXMLCancelado := True;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement