Ir para conteúdo
  • Cadastre-se

dev botao

homololgação de boleto on-Line BB


  • Este tópico foi criado há 1147 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;
 

 

image.thumb.png.78d4be27cf25b62a470932b89e515bd8.png

Link para o comentário
Compartilhar em outros sites

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;

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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...

  • Curtir 1
Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • Membros Pro

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.

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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.

image.png.0cd81d1706eddbbcf8446f6d43d38077.png

Link para o comentário
Compartilhar em outros sites

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

 

image.thumb.png.ba86ce23298c0736d7f486925a54fb52.png

 

Editado por Fernando Rodrigo
Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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

 

image.thumb.png.ba86ce23298c0736d7f486925a54fb52.png

 

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

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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.

image.png.0cd81d1706eddbbcf8446f6d43d38077.png

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?

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1147 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.