API Boletos Banco do Brasil - RequisicaoConsultaDetalhe

[rafael n magnus]

Ola.

Estou implementando o envio e consulta de boletos via API do Banco do Brasil utilizando o componente ACBrBoleto. Notei, porém, que a consulta do detalhamento do boleto não está implementada.

procedure TBoletoW_BancoBrasil_API.RequisicaoConsultaDetalhe;
begin
	//Sem Payload - Define Método GET
end;

Fiz uma alteração para poder utilizar:

procedure TBoletoW_BancoBrasil_API.RequisicaoConsultaDetalhe;
var
  Data: string;
  Json: TJSONObject;
begin
  if Assigned(Titulos) then
  begin
    Json := TJsonObject.Create;
    try
      Json.Add('id').Value.AsString := Boleto.Banco.MontarCampoNossoNumero(Titulos);
      Json.Add('numeroConvenio').Value.AsNumber := StrToInt64Def(OnlyNumber(Boleto.Cedente.Convenio),0);
      Data := Json.Stringify;

      FPDadosMsg := Data;

    finally
      Json.Free;
    end;
  end;
end;

É possivel que vocês atualizem o fonte com essas alterações?

[Victor H. Gonzales - Panda]

5 minutos atrás, rafael n magnus disse:

Ola.

Estou implementando o envio e consulta de boletos via API do Banco do Brasil utilizando o componente ACBrBoleto. Notei, porém, que a consulta do detalhamento do boleto não está implementada.

procedure TBoletoW_BancoBrasil_API.RequisicaoConsultaDetalhe;
begin
	//Sem Payload - Define Método GET
end;

Fiz uma alteração para poder utilizar:

procedure TBoletoW_BancoBrasil_API.RequisicaoConsultaDetalhe;
var
  Data: string;
  Json: TJSONObject;
begin
  if Assigned(Titulos) then
  begin
    Json := TJsonObject.Create;
    try
      Json.Add('id').Value.AsString := Boleto.Banco.MontarCampoNossoNumero(Titulos);
      Json.Add('numeroConvenio').Value.AsNumber := StrToInt64Def(OnlyNumber(Boleto.Cedente.Convenio),0);
      Data := Json.Stringify;

      FPDadosMsg := Data;

    finally
      Json.Free;
    end;
  end;
end;

É possivel que vocês atualizem o fonte com essas alterações?

Bom dia,

Esses métodos já são implementados, e não possuem payload, da forma que você está fazendo está errado conforme a documentação;

Carregue os títulos na lista, na property informe Configuracoes.WebService.Operacao := tpConsultaDetalhe

[rafael n magnus]

Certo, consegui testar.

Obrigado

[Juliana Tamizou]

Obrigado por reportar.

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