Olá Boa Tarde,
estou com o Seguinte erro:
---------------------------
Debugger Exception Notification
---------------------------
Project Gerente.exe raised exception class EACBrDFeException with message 'Suporte a libCapicom foi desativado por compilação {$DEFINE DFE_SEM_CAPICOM}'.
---------------------------
Break Continue Help
---------------------------
no seguinte trecho do meu código:
function AssinaXmlNFSe(prXml, prCert, prDocElem: WideString): WideString;
var
vrACBrNFSeX: TACBrNFSeX;
vrXmlAssinado: WideString;
begin //
try
vrACBrNFSeX := TACBrNFSeX.Create(nil);
vrACBrNFSeX.Configuracoes.Geral.SSLLib := {libWinCrypt;//}libCapicom;
vrACBrNFSeX.Configuracoes.Geral.SSLCryptLib := {cryWinCrypt;//}cryCapicom;
vrACBrNFSeX.Configuracoes.Geral.Provedor := proPadraoNacional;
vrACBrNFSeX.Configuracoes.Certificados.NumeroSerie := prCert;
try
vrXmlAssinado := (vrACBrNFSeX.SSL.Assinar(prXml, prDocElem, ''));
except
on E: Exception do begin
ShowMessage('Erro na assinatura: ' + E.Message);
end;
end;
finally
Result := vrXmlAssinado;
FreeAndNil(vrACBrNFSeX);
end;
end;
no erro ao selecionar "Break", o código para nessa unit ACBrDFeSSL;, no seguinte trecho da procedure TDFeSSL.SetSSLCryptLib(ASSLCryptLib: TSSLCryptLib); :
cryCapicom:
begin
{$IfNDef DFE_SEM_CAPICOM}
FreeSSLCryptLib;
FSSLCryptClass := TDFeCapicom.Create(Self);
{$Else}
raise EACBrDFeException.Create('Suporte a libCapicom foi desativado por compilação {$DEFINE DFE_SEM_CAPICOM}'); // <--- DA ERRO AQUI
{$EndIf}
end;
o componente é de 2020 eu acho, segundo o próximo trecho:
{******************************************************************************}
{ Projeto: Componentes ACBr }
{ Biblioteca multiplataforma de componentes Delphi para interação com equipa- }
{ mentos de Automação Comercial utilizados no Brasil }
{ }
{ Direitos Autorais Reservados (c) 2020 Daniel Simoes de Almeida
O que pode ser ?
E como resolver ?
Estou precisando dessa parte da ACBr para Assinar o XML da NFSe no Padrão Nacional.
Desde já agradeço a atenção!
Atenciosamente,
Moysés A. Silva - Desenvolvedor Pleno,
Águia Sistemas - Gestão e Automação Empresarial.