ACBrPIXCD Retorno Testes do BB

[icozeira]

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.

 

[Daniel Simoes]

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

[icozeira]

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.

 

[Daniel Simoes]

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)

[icozeira]

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.

[Juliomar Marchetti]

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

[icozeira]

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?

[icozeira]

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.

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.