homololgação de boleto on-Line BB

[Fernando Rodrigo]

fiz o cadastramento no banco do brasil como homologação e estou utilizando o demo para fazer os testes

preenche todos os dados e na hora de envio esta dando Erro: 0

Conforme o DEMO so preenchi os dados fornecidos pelo banco

 

  with ACBrBoleto1 do
  begin

    //Banco do Brasil //Dados para Homologaçao
     Cedente.CedenteWS.ClientID     := 'XXXXXXX';
     Cedente.CedenteWS.ClientSecret := XXXXXXX
     Cedente.CedenteWS.Scope        := 'cobranca.registro-boletos';
     Cedente.CedenteWS.KeyUser      := XXXXXXX

    //Função de Envio
    EnviarBoleto;
 

 

[Juliomar Marchetti]

O que gravou no log de registro?

[Fernando Rodrigo]

não gerou nenhum log,

eu preenchi os campos para remessa conforme o DEMO e so pedir para enviar e não gerou nenhum log na pasta do DEMO

      With ACBrBoleto1.CriarTituloNaLista do
       begin
       //   CriarTituloNaLista;
          Carteira         := '17';
          EspecieDoc         := '99';

          With ACBrBoleto1.Cedente do
                  begin
             //         Cedente.TipoCarteira                := tctRegistrada;
             //         Cedente.Modalidade                  := '19';

                      {Dados do cedente - Loja}
                      CodigoTransmissao := '11';
                      TipoInscricao   := pJuridica; {CNPJ}
                      CNPJCPF         := '04005416000153';
                      Nome            :='Nome Fantasia do Cliente';
                      CodigoCedente   := '4863177';
                      Convenio          := '1014051';
                      Modalidade      := '19';
                      Logradouro      :='aaa';
                      NumeroRes       := '';
                      Complemento     := '';
                      Bairro          := 'aaa';
                      Cidade          := 'aaa';
                      UF              := 'GO';
                      CEP             := '74413050';
                      Agencia         :='1';
                      AgenciaDigito   := '0';
                      Conta           :='xxx';
                      ContaDigito     := '0';
                  end;

            LocalPagamento    := 'Pagar em qualquer banco'; //MEnsagem exigida pelo bradesco
            Vencimento        := IncMonth(EncodeDate(2020,10,10),I);
            DataDocumento     := EncodeDate(2020,08,10);
            NumeroDocumento   := PadRight(IntToStr(I),8,'0');
            EspecieDoc        := 'DM';
            Aceite            := atSim;
            DataProcessamento := Now;
            Carteira          := '17';
            NossoNumero       := IntToStrZero(I,8);
            ValorDocumento    := 100.35 * (I+0.5);
            Sacado.NomeSacado := 'Jose Luiz Pedroso';
            Sacado.CNPJCPF    := '12345678901';
            Sacado.Logradouro := 'Rua da Consolacao';
            Sacado.Numero     := '100';
            Sacado.Bairro     := 'Vila Esperanca';
            Sacado.Cidade     := 'Tatui';
            Sacado.UF         := 'SP';
            Sacado.CEP        := '18270000';
            ValorAbatimento   := 10;
            DataAbatimento    := Vencimento-5;
            Instrucao1        := '00';
            Instrucao2        := '00';
            NossoNumero       := edtNossoNro.Text;

            with ACBrBoleto1.Banco do
            begin
                TipoCobranca := cobBancoDoBrasil;
            end;
       end;

 

 

**************************

 

procedure TfrmDemo.btnRegistroClick(Sender: TObject);
var
  SLRemessa: TStringList;
  i: Integer;
begin
  with ACBrBoleto1 do
  begin

    //Banco do Brasil //Dados para Homologaçao
     Cedente.CedenteWS.ClientID     := 'XXXXXX'
     Cedente.CedenteWS.ClientSecret := 'XXXXX';
     Cedente.CedenteWS.Scope        := 'cobranca.registro-boletos';
     Cedente.CedenteWS.KeyUser      := 'XXXX';

    //Função de Envio
    EnviarBoleto;

    //Verifica Lista com os retornos
    if ListaRetornoWeb.Count > 0 then
    begin
      SLRemessa := TStringList.Create;
      try
        for i:= 0 to ListaRetornoWeb.Count -1 do
        begin
          //Ler todos os campos da classe Retorno
           SLRemessa.Add('Cod_Retorno='+ ListaRetornoWeb.CodRetorno + sLineBreak +
                       'Msg_Retorno='+ ListaRetornoWeb.MsgRetorno + sLineBreak +
                       'Ori_Retorno='+ ListaRetornoWeb.OriRetorno + sLineBreak +
                       'HEADER' + sLineBreak +
                       'Versao='+ ListaRetornoWeb.Header.Versao + sLineBreak +
                       'Autenticacao=' + ListaRetornoWeb.Header.Autenticacao + sLineBreak +
                       'Usuario_Servico=' + ListaRetornoWeb.Header.Usuario_Servico + sLineBreak +
                       'Usuario=' + ListaRetornoWeb.Header.Usuario + sLineBreak +
                       'Operacao='  + TipoOperacaoToStr(ListaRetornoWeb.Header.Operacao) + sLineBreak +
                       'Indice=' + IntToStr(ListaRetornoWeb.Header.Indice) + sLineBreak +
                       'Sistema_Origem=' + ListaRetornoWeb.Header.Sistema_Origem + sLineBreak +
                       'Agencia=' + IntToStr(ListaRetornoWeb.Header.Agencia) + sLineBreak +
                       'ID_Origem=' + ListaRetornoWeb.Header.Id_Origem + sLineBreak +
                       'Data_Hora=' +FormatDateTime('dd/mm/yyyy hh:nn:ss',ListaRetornoWeb.Header.Data_Hora) + sLineBreak +
                       'ID_Processo=' + ListaRetornoWeb.Header.Id_Processo + sLineBreak +
                       'DADOS' + sLineBreak +
                       'Excessao=' +ListaRetornoWeb.DadosRet.Excecao + sLineBreak +
                       'CONTROLE_NEGOCIAL' + sLineBreak +
                       'Origem_Retorno=' + ListaRetornoWeb.DadosRet.ControleNegocial.OriRetorno + sLineBreak +
                       'NSU=' + ListaRetornoWeb.DadosRet.ControleNegocial.NSU + sLineBreak +
                       'Cod_Retorno=' + ListaRetornoWeb.DadosRet.ControleNegocial.CodRetorno + sLineBreak +
                       'Msg_Retorno=' + ListaRetornoWeb.DadosRet.ControleNegocial.Retorno + sLineBreak +
                       'COMPROVANTE' + sLineBreak +
                       'Data=' +  FormatDateTime('dd/mm/yyyy', ListaRetornoWeb.DadosRet.Comprovante.Data) + sLineBreak +
                       'Hora=' +  ListaRetornoWeb.DadosRet.Comprovante.Hora + sLineBreak +
                       'ID_BOLETO' + sLineBreak +
                       'Codigo_Barras=' + ListaRetornoWeb.DadosRet.IDBoleto.CodBarras + sLineBreak +
                       'Linha_Digitavel=' + ListaRetornoWeb.DadosRet.IDBoleto.LinhaDig + sLineBreak +
                       'Nosso_Numero=' + ListaRetornoWeb.DadosRet.IDBoleto.NossoNum + sLineBreak +
                       'URL=' + ListaRetornoWeb.DadosRet.IDBoleto.URL + sLineBreak +
                       'CONSULTA_BOLETO' + sLineBreak +
                       'Numero_Documento=' + ListaRetornoWeb.DadosRet.TituloRet.NumeroDocumento + sLineBreak +
                       'Data_Vencimento=' + FormatDateTime('dd/mm/yyyy',ListaRetornoWeb.DadosRet.TituloRet.Vencimento) + sLineBreak +
                       'Valor=' + CurrToStr(ListaRetornoWeb.DadosRet.TituloRet.ValorDocumento) + sLineBreak
                        );
        end;

        SLRemessa.SaveToFile( PathWithDelim(ExtractFilePath(Application.ExeName))+'RetornoRegistro.txt' );
      finally
        SLRemessa.Free;
      end;
      ShowMessage('Retorno Envio gerado em: '+ PathWithDelim(ExtractFilePath(Application.ExeName))+'RetornoRegistro.txt' );

    end;

  end;

end;

[José M. S. Junior]

O problema parece ser de comunicação, como está preenchendo os campos na seção WebService do Componente? Se estiver utilizando Wincrypt o Windows precisa estar atualizado para a comunicação segura...

[Fernando Rodrigo]

[José M. S. Junior]

Experimente utilizar WinCrypt em SSLHTTPLib, apenas certifique que o Windows esteja 100% atualizado...

[Fernando Rodrigo]

Em 28/08/2020 at 21:26, Fernando Rodrigo disse:

 

não deu certo, ja alterei e coloquei todas as opções e nenhum passa.

[AG Sistemas]

bom dia! 

Estou começando a fazer os testes usado o gerador de boleto.

Coloquei os dados da conta no mesmo, mas não achei onde coloco :

para "HOMOLOGAÇÃO"

ClientID: eyJpZCI6IjgwNDNiNTMtZjQ5Mi00YyIsImNvZGlnb1B1YmxpY2Fkb3IiOjEwOSwiY29kaWdvU29mdHdhcmUiOjEsIn NlcXVlbmNpYWxJbnN0YWxhY2FvIjoxfQ

Client Secret: eyJpZCI6IjBjZDFlMGQtN2UyNC00MGQyLWI0YSIsImNvZGlnb1B1YmxpY2Fkb3IiOjEwOSwiY29kaWdvU29mdHdhc mUiOjEsInNlcXVlbmNpYWxJbnN0YWxhY2FvIjoxLCJzZXF1ZW5jaWFsQ3JlZGVuY2lhbCI6MX0

e com isso da erro na geração do token.

[Juliomar Marchetti]

[AG Sistemas]

obrigado @Juliomar Marchetti achei aqui coloquei os códigos mas não era este o problema.

Ele esta sentindo falta do Token

[José M. S. Junior]

Boa tarde, no diretório do Demo ACBrBoleto tem um arquivo .txt  (configWebService.txt) com os campos obrigatórios para Integração com BB.

Se estiver utilizando a configuração HTTPLib com OpenSSL, precisa ter as dlls da openSSL no diretório do executável.

[Fernando Rodrigo]

fiz conforme o arquivo configWebService.txt e não passa de jeito nenhum, da erro no envio e não gera nenhum log para ver o que é

 

[AG Sistemas]

17 minutos atrás, José M. S. Junior disse:

Boa tarde, no diretório do Demo ACBrBoleto tem um arquivo .txt  (configWebService.txt) com os campos obrigatórios para Integração com BB.

Se estiver utilizando a configuração HTTPLib com OpenSSL, precisa ter as dlls da openSSL no diretório do executável.

Obrigado por responder !

Eu coloquei as dll na pasta coloquei as configurações que faltava esta dando este erro.

[AG Sistemas]

É necessário instalar o certificado conforme mostra no manual ??

[Juliomar Marchetti]

Sim

[Fernando Rodrigo]

esse campo ACBrBoleto1.Cedente.CedenteWS.KeyUser onde consigo ele pq no site do banco so tem 3 campos

 

developer_application_key

Credenciais OAuth

          client_id

           client_secret

 

 

Quando uso as credenciais conforme arquivo de teste passa normal, mas quando coloco minhas credenciais da o erro acima

 

 

Editado 23 Setembro, 2020 por Fernando Rodrigo

[AG Sistemas]

16 minutos atrás, Fernando Rodrigo disse:

esse campo ACBrBoleto1.Cedente.CedenteWS.KeyUser onde consigo ele pq no site do banco so tem 3 campos

 

developer_application_key

Credenciais OAuth

          client_id

           client_secret

 

 

Quando uso as credenciais conforme arquivo de teste passa normal, mas quando coloco minhas credenciais da o erro acima

 

 

é a chave "J" que é usada para acessar o banco 

[AG Sistemas]

Fiz a instalação do certificado mas o erro continua! Mas alguma ideia do que fazer ?

[José M. S. Junior]

17 horas atrás, AG Sistemas disse:

Obrigado por responder !

Eu coloquei as dll na pasta coloquei as configurações que faltava esta dando este erro.

Bom dia, note que agora não é mais erro de comunicação com Serviço de Autenticação e sim erro na validação de credenciais.

KeyUser é a chave padrão: J1234567 até onde eu sei está sendo utilizada essa chave também em produção, mas precisa confirmar com o Banco.

Este IDClient já está liberado para integração em Homologação e Produção?

[Fernando Rodrigo]

eu peguei a chave J com o cliente e mesmo assim continua o erro, estranho pq no DEMO com os dados de testes roda normal, gera o log e alguns arquivos xml, mas se colocar as minhas credenciais que foi cadatrado na api do banco não roda

da erro

 

[Fernando Rodrigo]

como faço para pegar o json gerado no envio

[Fernando Rodrigo]

-registro_boleto.xml10000000-registro_boleto.xml

Só é gerado 2 arquivos em anexo, eu falei com outro programador em java ele disse que é gerado um json para enviar para o banco, so que no acbr so gera xml

[José M. S. Junior]

Se está funcionando com os dados em homologação no demo era para funcionar com seus dados... Precisa tentar depurar para ver exatamente onde está ocorrendo esse erro.

Quando a requisição do BB é XML mesmo... segue a documentação. Apenas a autenticação OAuth retorna um JSON, note que isso é tratado internamente no componente.

Pode capturar esse retorno na função: ProcessarRespostaOAuth

[Fernando Rodrigo]

11 minutos atrás, José M. S. Junior disse:

Se está funcionando com os dados em homologação no demo era para funcionar com seus dados... Precisa tentar depurar para ver exatamente onde está ocorrendo esse erro.

Quando a requisição do BB é XML mesmo... segue a documentação. Apenas a autenticação OAuth retorna um JSON, note que isso é tratado internamente no componente.

Pode capturar esse retorno na função: ProcessarRespostaOAuth

como faço para pegar esse retorno na função ProcessarRespostaOAuth

[José M. S. Junior]

Precisa realizar um debug mesmo... tente identificar se o está tendo algum retorno na autenticação. Essa função fica na classe ACBrBoletoWS