[falha ao obter a chave privada do certificado para assinatura]

Resolvido !

 

configurei o SSLLib com libWinCrypt e o SSLType com LT_TLSv1_2. 

[falha ao obter a chave privada do certificado para assinatura]

Retirei todos os certificados, fiz  como solicitado, mas não deu certo, o engraçado que no meu note onde desenvolvo foi ok!  

 

 

 

[falha ao obter a chave privada do certificado para assinatura]

Boa tarde!

 

Apos a troca do certidicado A1, esta dando essa mensagem, ja troquei a chave do mesmo e instalando o A1 na minha maquina onde desenvolvo deu certo, o que sera?

[Integração Pag Hyper com Delphi 7 Professional]

1 hora atrás, Daniel Simoes disse:

Talvez você possa entrar em contato com algum dos Freelancers cadastrados...

https://www.projetoacbr.com.br/forum/companies/category/2-consultores/

Obrigado, estou tentando...

[Integração Pag Hyper com Delphi 7 Professional]

Ola, estou tendo problemas na integração do meu ERP com a solução de pagamentos Pag Hyper. Possuo o Delphi 7 Professional, Alguém poderia me dar um auxílio?

[COBRANCA BANCO DO BRASIL]

Em 25/06/2018 at 09:11, Juliana Tamizou disse:

Bom dia.

Seja especifico, qual é o erro? Vc tentou reproduzir no demo?

Att,

Obrigado pela sua atenção, resolvi.

 

[Banco do Brasil, Carteira 17 convenio 7 posições]

 ACBrBoleto.Banco.TipoCobranca          := cobBancoDoBrasil;
    ACBrBoleto.Banco.Numero                := 001;
    ACBrBoleto.Banco.Digito                := 9;
    ACBrBoleto.Banco.Nome                  := 'BANCO DO BRASIL';
    ACBrBoleto.Banco.TamanhoMaximoNossoNum := 10;
    ACBrBoleto.Cedente.CodigoCedente       := FormatFloat('0000000',1221);

    ACBrBoleto.Cedente.Agencia             := '3179';
    ACBrBoleto.Cedente.AgenciaDigito       := '4';
    ACBrBoleto.Cedente.Conta               := '5194'; 

   ACBrBoleto.Cedente.ContaDigito         := '2';
    ACBrBoleto.Cedente.Nome:='EMPRESA TESTE';
    ACBrBoleto.Cedente.CNPJCPF:='99999999999999';
    ACBrBoleto.Cedente.Logradouro:='ENDERECO';

    ACBrBoleto.Cedente.Convenio            := '1821772';
    ACBrBoleto.Cedente.TipoDocumento       := Tradicional;  
    ACBrBoleto.Cedente.Modalidade          := '19';
    ACBrBoleto.Cedente.TipoCarteira      := tctRegistrada;
    ACBrBoleto.Cedente.CaracTitulo       := tcSimples;
    ACBrBoleto.Cedente.ResponEmissao       := tbCliEmite;

    ACBrBoleto.Banco.OrientacoesBanco.Clear;

  ibqcadctr.First;

  while ibqcadctr.eof=false do begin

  with Titulo do
  begin

    Vencimento := ibqcadctrdvenctr.value;
    DataDocumento := ibqcadctrdemictr.value;

    DataProcessamento := date();

     Titulo.CarteiraEnvio                     := tceCedente;

    EspecieMod                        := 'R$';
     carteira:='17';
     Titulo.NossoNumero                       := '000000001';  
    ValorDocumento := ibqcadctrvemictr.value;
    Sacado.NomeSacado := COPY(ibqcadctrrazacli.Value,1,30);
    Sacado.CNPJCPF := limpa(ibqcadctrcfcjcli.Value);
    Sacado.Logradouro := ibqcadctrendfcli.value;
    Sacado.Numero := ibqcadctrnumfcli.value;
    Sacado.Bairro := ibqcadctrbaifcli.value;;
    Sacado.Cidade := ibqcadctrmunfcli.value;
    Sacado.UF := ibqcadctrestfcli.value;
    Sacado.CEP := limpa(ibqcadctrcepfcli.Value);
    ValorAbatimento := 0.00;
    LocalPagamento := 'ATÉ O VENCIMENTO, PREFERENCIALMENTE NO BANCO DO BRASIL, APOS O VENCIMENTO, SOMENTE BANCO DO BRASIL.';
    ValorMoraJuros := (ibqcadctrvemictr.value*((8/30)/100));
    ValorDesconto := 0.00;
    ValorAbatimento := 0.00;
    DataMoraJuros := ibqcadctrdvenctr.value+1;
    DataDesconto := StrToDateDef('  /  /    ', 0);
    DataAbatimento := StrToDateDef('  /  /    ', 0);
    DataProtesto := ibqcadctrdvenctr.value+3;
    DataMulta:=ibqcadctrdvenctr.Value+1;
    PercentualMulta := 2.00;
    Mensagem.Text := '';
    OcorrenciaOriginal.Tipo := toRemessaBaixar;
    Instrucao1 := '';
    Instrucao2 := '';

[COBRANCA BANCO DO BRASIL]

ESTOU TENDO PROBLEMAS NA GERACAO DO BOLETO DO BANCO DO BRASIL  COM CONVEIO DE 7 NUMEROS, CARTEIRA 17 E VARIACAO 019, ALGUEM PODE ME DAR UMA LUZ? DA ERRO APOS MENCIONAR A CARTEIRA...

 

[Banco do Brasil, Carteira 17 convenio 7 posições]

Em 12/05/2016 at 09:27, Gr@c@ disse:

Eu tenho um sistema emissor de boleto que não usa ACBr que faz dessa forma: o nosso numero é formado por convenio (7 posições+10 posições do numero sequencial). Implementei o Banco do Brasil e ficou em conformidade. Gera o nosso numero com 17 digitos (convenio+sequencial) e no arquivo remessa fica correto também. 

Minha configuração está assim:

Banco_LocalPagtoPadrao := 'Pagável em qualquer banco até o vencimento.';
Banco_UsoDoBanco       := '';
Banco_CodigoMora       := cCodigoMoraValor;
ACBrBoleto1.Banco.TipoCobranca          := cobBancoDoBrasil;
ACBrBoleto1.Banco.Numero                := 001;
ACBrBoleto1.Banco.Digito                := 9;
ACBrBoleto1.Banco.Nome                  := 'BANCO DO BRASIL';
ACBrBoleto1.Banco.TamanhoMaximoNossoNum := 9;
 ACBrBoleto1.Cedente.CodigoCedente       := FormatFloat('0000000',edCodCedente.AsInteger);                        

ACBrBoleto1.Cedente.Agencia             := edAgencia.Text;
ACBrBoleto1.Cedente.AgenciaDigito       := FormatFloat('0',edDVAgencia.AsInteger);
ACBrBoleto1.Cedente.Conta               := edContaCorrente.Text; {não é o codigo do cedente/cliente}
ACBrBoleto1.Cedente.ContaDigito         := edDVContaCorrente.Text;
ACBrBoleto1.Cedente.Convenio            := edConvenio.Text;
ACBrBoleto1.Cedente.TipoDocumento       := Tradicional;   //TACBrTipoDocumento = (Tradicional=1, Escritural=2);
ACBrBoleto1.Cedente.Modalidade          := FormatFloat('00',edModalidade.AsInteger);
ACBrBoleto1.Cedente.TipoCarteira      := tctRegistrada;
ACBrBoleto1.Cedente.CaracTitulo       := tcSimples;
ACBrBoleto1.Cedente.ResponEmissao       := tbCliEmite; 

.ACBrBoleto1.Banco.OrientacoesBanco.Clear;

Em titulo:

        {Dados da Carteira - Banco do Brasil tem que informar a carteira antes do NossoNumero}
        Titulo.Carteira                          := FormatFloat('0',Frm_BoletoPrincipal.edCarteira.AsInteger);
        Titulo.CarteiraEnvio                     := tceCedente; {(tceCedente, tceBanco)}
        Titulo.EspecieMod                        := 'R$';
        Titulo.NossoNumero                       := sSequencial; {aqui vai somente o sequencial sem convenio}

exemplo de NossoNumero gerado = 21945580000002345

Ola, fiz extamentente como o exemplo, mas quando coloco a carteira = '17' da erro, o que sera que esta errado,  no itau consegui fazer...