Boleto Santander API - Erro na montagem do campo de mensagem

[mlgoncalves]

Olá pessoal,

A unit ACBrBoletoW_Santander_API está apresentando erro no momento de gerar a tag 'messages' que contém as mensagens do boleto.

procedure TBoletoW_Santander_API.GerarMensagens(AJson: TACBrJSONObject);
var
  LJsonArray: TACBrJSONArray;
  I: Integer;
begin
  if Assigned(ATitulo) and Assigned(AJson) then
  begin
    LJsonArray := TACBrJSONArray.Create;

    for I := 0 to PRed(ATitulo.Mensagem.Count) do
    begin
      //está dando erro na linha abaixo. ATitulo.Mensagem[I] = 'Teste'
//      LJsonArray.AddElementJSONString(ATitulo.Mensagem[I]);
      //fiz o ajuste abaixo para funcionar
      LJsonArray.AddElement(ATitulo.Mensagem[I]);
    end;

    AJson.AddPair('messages',LJsonArray);
  end;
end;

 

Não sei se é a melhor forma de se fazer, mas está funcionando.

Segue em anexo a unit modificada e ficamos no aguardo do devido ajuste.

Atc,

 

Marcelo Gonçalves

ACBrBoletoW_Santander_API.rar

Segue link do manual de montagem do JSON para esclarecer eventual dúvida.

https://developer.santander.com.br/api/documentacao/api-de-emissao-de-boletos#/paths/workspaces-workspace_id--bank_slips/post

 

[Juliomar Marchetti]

Boa noite

acabei de subir uma possível correção com mais um ajuste

por favor teste