Configura_ACBR_NFE

procedure TCONFIGURA.configurar_AcbrNFE;
var
ok : boolean;
begin
//configurar o ACBrNFe
Datamodule1.ACBrNFe1.Configuracoes.Geral.ModeloDF:=moNFE;

//configura o número de série
//Datamodule1.ACBrNFe1.SSL.NumeroSerie:=SimpleDataSetEmpresas.FieldByName('NUM_SERIE_CERTIF_DIGITAL_NFE').AsString;

//configura a senha
Datamodule1.ACBrNFe1.SSL.Senha:=SimpleDataSetEmpresas.FieldByName('SENHA_CERTIFICADO_NFE').AsString;

//configura local do arquivo pfx
Datamodule1.ACBrNFe1.SSL.ArquivoPFX:=SimpleDataSetEmpresas.FieldByName('CAMINHO_CERTIFICADO_PFX_NFE').AsString;


//configura UF
Datamodule1.ACBrNFe1.Configuracoes.WebServices.UF:=SimpleDataSetEmpresas.FieldByName('UF_WEB_SERVICE_NFE').AsString;
//configura tipo ambiente
Datamodule1.ACBrNFe1.Configuracoes.WebServices.Ambiente:=StrToTpAmb(ok , SimpleDataSetEmpresas.FieldByName('AMBIENTE_NFE').AsString);
//configura versão
Datamodule1.ACBrNFe1.Configuracoes.Geral.VersaoDF:=StrToVersaoDF(ok ,SimpleDataSetEmpresas.FieldByName('VERSAO_WEBSERVICE_NFE').AsString);

Datamodule1.ACBrNFe1.Configuracoes.Arquivos.PathSchemas:=SimpleDataSetEmpresas.FieldByName('LOCAL_SALVAR_ARQ_SCHEMAS_NFE').AsString;

Datamodule1.ACBrNFe1.Configuracoes.WebServices.SSLType:=LT_TLSv1_2;
Datamodule1.ACBrNFe1.Configuracoes.WebServices.Visualizar:=true;

Datamodule1.ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet:=true;
Datamodule1.ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet:=4000;
Datamodule1.ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas:=1000;
Datamodule1.ACBrNFe1.Configuracoes.WebServices.Tentativas:=3;


//TSSLLib = (libNone, libOpenSSL, libCapicom, libCapicomDelphiSoap, libWinCrypt, libCustom);
if SimpleDataSetEmpresas.FieldByName('SSLLIB_NFE').asstring='libNone' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLLib:=libNone;
end;
//
if SimpleDataSetEmpresas.FieldByName('SSLLIB_NFE').asstring='libOpenSSL' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLLib:=libOpenSSL;
end;
//
if SimpleDataSetEmpresas.FieldByName('SSLLIB_NFE').asstring='libCapicom' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLLib:=libCapicom;
end;
//
if SimpleDataSetEmpresas.FieldByName('SSLLIB_NFE').asstring='libCapicomDelphiSoap' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLLib:=libCapicomDelphiSoap;
end;
//
if SimpleDataSetEmpresas.FieldByName('SSLLIB_NFE').asstring='libWinCrypt' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLLib:=libWinCrypt;
end;
//
if SimpleDataSetEmpresas.FieldByName('SSLLIB_NFE').asstring='libCustom' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLLib:=libCustom;
end;

//TSSLCryptLib = (cryNone, cryOpenSSL, cryCapicom, cryWinCrypt);
if SimpleDataSetEmpresas.FieldByName('CRYPTLIB_NFE').asstring='cryNone' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLCryptLib:=cryNone;
end;
//
if SimpleDataSetEmpresas.FieldByName('CRYPTLIB_NFE').asstring='cryOpenSSL' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLCryptLib:=cryOpenSSL;
end;
//
if SimpleDataSetEmpresas.FieldByName('CRYPTLIB_NFE').asstring='cryCapicom' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLCryptLib:=cryCapicom;
end;
//
if SimpleDataSetEmpresas.FieldByName('CRYPTLIB_NFE').asstring='cryWinCrypt' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLCryptLib:=cryWinCrypt;
end;

//TSSLHttpLib = (httpNone, httpWinINet, httpWinHttp, httpOpenSSL, httpIndy);
//
if SimpleDataSetEmpresas.FieldByName('HTTPLIB_NFE').asstring='httpNone' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLHttpLib:=httpNone;
end;
//
if SimpleDataSetEmpresas.FieldByName('HTTPLIB_NFE').asstring='httpWinINet' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLHttpLib:=httpWinINet;
end;
//
if SimpleDataSetEmpresas.FieldByName('HTTPLIB_NFE').asstring='httpWinHttp' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLHttpLib:=httpWinHttp;
end;
//
if SimpleDataSetEmpresas.FieldByName('HTTPLIB_NFE').asstring='httpOpenSSL' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLHttpLib:=httpOpenSSL;
end;
//
if SimpleDataSetEmpresas.FieldByName('HTTPLIB_NFE').asstring='httpIndy' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLHttpLib:=httpIndy;
end;

//TSSLXmlSignLib = (xsNone, xsXmlSec, xsMsXml, xsMsXmlCapicom, xsLibXml2);
//
if SimpleDataSetEmpresas.FieldByName('XMLSIGNLIB_NFE').asstring='xsNone' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:=xsNone;
end;

if SimpleDataSetEmpresas.FieldByName('XMLSIGNLIB_NFE').asstring='xsXmlSec' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:=xsXmlSec;
end;

if SimpleDataSetEmpresas.FieldByName('XMLSIGNLIB_NFE').asstring='xsMsXml' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:=xsMsXml;
end;

if SimpleDataSetEmpresas.FieldByName('XMLSIGNLIB_NFE').asstring='xsMsXmlCapicom' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:=xsMsXmlCapicom;
end;


if SimpleDataSetEmpresas.FieldByName('XMLSIGNLIB_NFE').asstring='xsLibXml2' then
begin
Datamodule1.ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:=xsLibXml2;
end;

end;