Ir para conteúdo
  • Cadastre-se

dev botao

ACBrPIXCD Retorno Testes do BB


Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 739 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Estou tentando implementar em Delphi o ACBrPIXCD para o Banco do Brasil.
Na tentativa de envio da criação de uma cobrança estou recebendo esse retorno Json:
{"type":"","title":"CHOM00000066060841910101","status":4764161,"detail":"O campo chave dict não é válido."}
Estou usando uma chave Pix indicada para uso em homologação pelo site de desenvolvedores do BB.
Tbm usando as credenciais fornecidas pelo site para homologação.

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores
  • Solution

Se não me engano no B.B. tem que informar alguns outros campos de ID ou chave... Veja a tela de configuração, no Demo em Lazarus

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
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

Daniel bom dia...
Obrigado pela resposta.
Antes que me esqueço.
Não é pq posto a noite que precisam responder a noite. rsrsrsrs
Vê se dorme cara. KKKK
Qto ao detalhe do Pix BB estou enviando o developer_key, o Client_Id e o Client_Secret.
Esses são os dados que o BB pede.
Mas, estou postando no Forum deles esse retorno pra ver o que está acontecendo.
No debug do acbr está gerando o token beleza.
Mas, retorna essa msg ninja na requisição.
Quando tiver a resposta e conseguir sanar o problema, informo aqui.

 

  • Haha 1
Link para o comentário
Compartilhar em outros sites

  • Fundadores

Vou fazer um teste aqui... Você conseguiu rodar o Demo em Lazarus ?

Você pode baixar o Lazarus/FPC em:  https://www.lazarus-ide.org/

(use a versão 32 bits)

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
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

Daniel,

Não consegui em Lazarus não.
Meu conhecimento em Lazarus é zero.
Estou carregando a unit.pas (FrPrincipal.pas) no Delphi mesmo e tentando adivinhar +- como está o form.
Fiz um post no forum do BB (https://app.developers.bb.com.br) e estou aguardando a resposta deles.
Assim que me retornarem, informo aqui.

De toda maneira, muito obrigado pela  atenção.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
1 hora atrás, icozeira disse:

Daniel,

Não consegui em Lazarus não.
Meu conhecimento em Lazarus é zero.
Estou carregando a unit.pas (FrPrincipal.pas) no Delphi mesmo e tentando adivinhar +- como está o form.
Fiz um post no forum do BB (https://app.developers.bb.com.br) e estou aguardando a resposta deles.
Assim que me retornarem, informo aqui.

De toda maneira, muito obrigado pela  atenção.

vou ver de mudar o exemplo e colocar para delphi mas se tu programa no delphi lazarus vai de letra

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Pessoal descobri o problema da tal chave Dict.
Na verdade quero informar que essa bendita chave dict nada mais é do que a Chave Pix.

Quando Eu carregava os dados no componente ACBrPixCD informava a chave e por um lapso meu, achei que não precisaria informar novamente durante a criação da Cobrança Pix. Barrigada mesmo.
Após informar a chave na criação da cobrança recebi o retorno http 201 (sucesso).

Entretanto, estou precisando da ajuda dos Colegas para fazer a conversão de uma função que é chamada logo após o retorno do WS (chamada na linha 841 do Formulário FrPrincipal em Lazarus)
Ela faz a formatação em Json através do Lazarus.
Aqui a chamada:
mCriarCobrancaImediata.Lines.Text := FormatarJSON(ACBrPixCD1.PSP.epCob.CobGerada.AsJSON);
Esta é a função:

function TForm1.FormatarJSON(const AJSON: String): String;  (linha 1608 do formulário FrPrincipal em Lazarus)
{$IfDef FPC}
var
  jpar: TJSONParser;
  j: TJsonObject;
{$EndIf}
begin
  Result := AJSON;
  {$IfDef FPC}
  try
    j := TJSONObject.Create();
    try
      Result := j.Decode(Result);
    finally
      j.Free;
    end;
    jpar :=TJSONParser.Create(Result, [joUTF8]);
    try
      Result := jpar.Parse.FormatJSON([], 2);
    finally
      jpar.Free;
    end;
  except
    Result := AJSON;
  end;
  {$EndIf}
end;

Alguém com conhecimento conseguiria converter essa function para o Delphi (ela está em Lazarus) p/me auxiliar?

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Pessoal
Eu novamente. rssrsrrsrs
Não precisa fazer qualquer conversão dessa função.
Ela funciona perfeitamente em Delphi.
Aliás, nem necessita dela em Delphi para mostrar o retorno da Api.
Lindo.
Funcionou perfeitamente minha cobrança.
Muito obrigado a todos e desculpa os posts indevidos.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 739 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.