Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

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

Postado

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;

  • Moderadores
Postado

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.

  • 4 semanas depois ...
  • Membros Pro
Postado

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.

  • Moderadores
Postado

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.

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

Postado (editado)

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

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

Postado

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

 

image.thumb.png.2f928c0ed2bc5b7b8fbba0dcf0e41965.png

  • Moderadores
Postado

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.

Postado
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

  • Este tópico foi criado há 1390 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.

The popup will be closed in 10 segundos...