Cleomar Pacheco

Boa tarde, Estamos com um cliente que possui um certificado A3 (emitido pela Safeweb), modelo DxToken, windows 10 atualizado. O problema ocorre na função assinar, em debug fomos até a função CryptSignHash, aí ocorre o erro(Imagem em anexo). No exemplo o erro ocorre ao clicar no botão SHA256+RSA com a opção Assinar selecionada. Reinstalamos o drives do certificado e as cadeias, o detalhe é que no site do e-cac está funcionando perfeitamente. Alguma ideia de solução para este problema? Agradeço desde já, Cleomar Pacheco

Algum retorno sobre esse assunto?

Manual em anexo, estou usando o CNAB 400. Mudei no fonte do ACBr para só fical 'UNICREDI' ai eles aceitaram a homologação. estou usando o 136, o pessoal do banco passou que o código do banco é o 136. MANUAL UNICRED CNAB 240 E 400.pdf

Bom dia! Também fui fazer agora uma homologação e deu esse problema no UNICREDI, com o nome. Essa questão vai ser ajustada no ACBr para ficar corrigido nos próximos ou faço a alteração no meu .pas?

José foi exatamente isso que fiz, pois é complicado esse banco, CNAB 400 difere do CNAB 240. Ai funcionou, vou usar assim para não mexer no ACBr Grato pela resposta!

Já pesquisei e baixei a ultima versão, Cnab 400 é 9 digitos a conta e sem digito da conta Se mandar da maneira que esta vai dar problema na conta colocando sempre um zero no final o que não pode. e Cnab 240 esta certo , pois ai tem digito da conta. vou pra ajustar no sistema antes de mandar para o ACBR, vou colocar o último digito da conta para o digito, para ver se da certo.

esqueci que tem o erro no monta código de barras, se deixar assim vai dar problema na geração do código de barras para o cnab 240 que usa digito

a Conta do banco Safra é 9 digitos e sem o ContaDigito, para corrigir e passar a homologação, fiz conforme abaixo (em azul). procedure TACBrBancoSafra.GerarRegistroHeader400(NumeroRemessa: integer; ARemessa: TStringList); var wLinha: String; aAgencia, aConta: String; begin aTotal := 0; aCount := 0; aAgencia := PadLeft(RightStr( ACBrBanco.ACBrBoleto.Cedente.Agencia, 5), 5, '0'); //Alterado banco Safra não tem digito e o tamanho da conta é 9 digitos //aConta := PadLeft(ACBrBanco.ACBrBoleto.Cedente.Conta, 8, '0') + // PadLeft(ACBrBanco.ACBrBoleto.Cedente.ContaDigito, 1, '0'); aConta := PadLeft(ACBrBanco.ACBrBoleto.Cedente.Conta, 9, '0');

Bom dia! Também estou com problema para instalar o ACBR em anexo ACBr_MDFeDamdfeFR.dpk(56) Fatal: Could not compile used unit '..\.. \..\..\..\..\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fast \ACBrMDFeDAMDFEFRDM.pas' Compilation failure Erro ao compilar o pacote "ACBr_MDFeDamdfeFR.dpk" log_Delphi_7.txt