Eu configuro o ACBrANE quase todo como as configurações do ACBrCTe:
If edtATMCodigo.Text <> '' then
TRY
ACBrANe1.Configuracoes.Geral.TipoDoc := tdCTe;//(tdNFe, tdCTe, tdANeATM, tdlistaErros, tdAddBackMail);
If cbxATMVersaoDF.Text = 've200' then
ACBrANe1.Configuracoes.Geral.VersaoDF := pcaConversao.ve200
Else
ACBrANe1.Configuracoes.Geral.VersaoDF := pcaConversao.ve200;
ACBrANe1.Configuracoes.Geral.Usuario := TRIM(edtATMUsuario.Text);
ACBrANe1.Configuracoes.Geral.Senha := TRIM(edtATMSenha.Text);
ACBrANe1.Configuracoes.Geral.CodATM := TRIM(edtATMCodigo.Text);
ACBrANe1.Configuracoes.Geral.CNPJEmitente := edtEmitCNPJ.Text;
ACBrANe1.Configuracoes.Geral.SSLLib := ACBrCTe1.Configuracoes.Geral.SSLLib;
ACBrANe1.Configuracoes.Geral.SSLCryptLib := ACBrCTe1.Configuracoes.Geral.SSLCryptLib;
ACBrANe1.Configuracoes.Geral.SSLHttpLib := ACBrCTe1.Configuracoes.Geral.SSLHttpLib;
ACBrANe1.Configuracoes.Geral.SSLXmlSignLib := ACBrCTe1.Configuracoes.Geral.SSLXmlSignLib;
ACBrANe1.Configuracoes.Geral.FormaEmissao := teNormal;
ACBrANe1.Configuracoes.Geral.Salvar := True;
ACBrANe1.Configuracoes.Geral.ExibirErroSchema := True;
ACBrANe1.Configuracoes.Geral.FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.';
ACBrANe1.Configuracoes.Geral.RetirarAcentos := True;
ACBrANe1.Configuracoes.Geral.RetirarEspacos := True;
ACBrANe1.Configuracoes.Geral.IdentarXML := False;
ACBrANe1.Configuracoes.Geral.ValidarDigest := True;
ACBrANe1.Configuracoes.Arquivos.EmissaoPathANe := False;
ACBrANe1.Configuracoes.Arquivos.PathANe := ACBrCTe1.Configuracoes.Arquivos.PathCTe;
ACBrANe1.Configuracoes.Arquivos.PathSalvar := ACBrCTe1.Configuracoes.Arquivos.PathSalvar;
ACBrANe1.Configuracoes.Arquivos.PathSchemas := ACBrCTe1.Configuracoes.Arquivos.PathSChemas;
ACBrANe1.Configuracoes.Arquivos.IniServicos := '';
ACBrANe1.Configuracoes.Arquivos.Salvar := True;
ACBrANe1.Configuracoes.Arquivos.AdicionarLiteral := ACBrCTe1.Configuracoes.Arquivos.AdicionarLiteral;
ACBrANe1.Configuracoes.Arquivos.SepararPorCNPJ := ACBrCTe1.Configuracoes.Arquivos.SepararPorCNPJ;
ACBrANe1.Configuracoes.Arquivos.SepararPorModelo := ACBrCTe1.Configuracoes.Arquivos.SepararPorModelo;
//ACBrANe1.Configuracoes.Arquivos.OrdenacaoPath := '';
ACBrANe1.Configuracoes.Arquivos.SepararPorAno := ACBrCTe1.Configuracoes.Arquivos.SepararPorAno;
ACBrANe1.Configuracoes.Arquivos.SepararPorMes := ACBrCTe1.Configuracoes.Arquivos.SepararPorMes;
ACBrANe1.Configuracoes.Arquivos.SepararPorDia := ACBrCTe1.Configuracoes.Arquivos.SepararPorDia;
// Configurações -> WebServices
ACBrANe1.Configuracoes.WebServices.AguardarConsultaRet := ACBrCTe1.Configuracoes.WebServices.AguardarConsultaRet;
ACBrANe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := ACBrCTe1.Configuracoes.WebServices.AjustaAguardaConsultaRet;
ACBrANe1.Configuracoes.WebServices.Ambiente := ACBrCTe1.Configuracoes.WebServices.Ambiente;
ACBrANe1.Configuracoes.WebServices.IntervaloTentativas := ACBrCTe1.Configuracoes.WebServices.IntervaloTentativas;
ACBrANe1.Configuracoes.WebServices.Tentativas := ACBrCTe1.Configuracoes.WebServices.Tentativas;
ACBrANe1.Configuracoes.WebServices.TimeOut := ACBrCTe1.Configuracoes.WebServices.TimeOut;
ACBrANe1.Configuracoes.WebServices.UF := ACBrCTe1.Configuracoes.WebServices.UF;
ACBrANe1.Configuracoes.WebServices.Visualizar := ACBrCTe1.Configuracoes.WebServices.Visualizar;
ACBrANe1.Configuracoes.WebServices.ProxyHost := ACBrCTe1.Configuracoes.WebServices.ProxyHost;
ACBrANe1.Configuracoes.WebServices.ProxyPort := ACBrCTe1.Configuracoes.WebServices.ProxyPort;
ACBrANe1.Configuracoes.WebServices.ProxyUser := ACBrCTe1.Configuracoes.WebServices.ProxyUser;
ACBrANe1.Configuracoes.WebServices.ProxyPass := ACBrCTe1.Configuracoes.WebServices.ProxyPass;
ACBrANe1.Configuracoes.WebServices.Salvar := True;
// configurações -> certificado
ACBrANe1.Configuracoes.Geral.SSLLib := ACBrCTe1.Configuracoes.Geral.SSLLib;
ACBrANe1.Configuracoes.Certificados.ArquivoPFX := ACBrCTe1.Configuracoes.Certificados.ArquivoPFX;
ACBrANe1.Configuracoes.Certificados.NumeroSerie := ACBrCTe1.Configuracoes.Certificados.NumeroSerie;
ACBrANe1.Configuracoes.Certificados.Senha := ACBrCTe1.Configuracoes.Certificados.Senha;
ACBrANe1.Configuracoes.Certificados.VerificarValidade := ACBrCTe1.Configuracoes.Certificados.VerificarValidade;
EXCEPT ON E:EXCEPTION DO
begin
RESULT := FALSE;
ShowMessage('Ocorreu um erro ao capturar os dados do Certificado Digital : ' + #13#10 + E.Message);
Ini.Free;
BuscaPath;
Exit;
end;
END;