Ajuste retorno API Sicoob

[Metasis Sistemas]

Boa Tarde

Encontrei um problema ao consultar o boleto na API do Sicoob.

no arquivo ACBrBoletoRet_Bancoob.pas linha 130

esta disparando uma exceção devido ao retorno da consulta não ser do tipo array conforme documentação da api:

 

então fiz a seguinte alteração para continuar preenchendo o componente, não sei se é a melhor forma, mas precisar ser ajustado senão a consulta não alimenta o componente mesma retornando os dados corretamente.

alterei a linha

aJsonViolacoes := aJson.Values['resultado'].AsArray;

para:

        try

          aJsonViolacoes := aJson.Values['resultado'].AsArray;

        except

          aJsonViolacoes := TJsonArray.Create;

        end;

segue o arquivo em anexo.

   

ACBrBoletoRet_Bancoob.pas

[Antonio Gomes]

Mas isso nao tem como testar, se o nó resultado é array ? Sem try except?

 

[Juliomar Marchetti]

Neste caso não creio que é o caminho correto conforme o amigo relatou

jamais se omite um erro e sim trata para seguir caminhos diferentes

[Metasis Sistemas]

poderia utilizar a seguinte abordagem então para resolvermos o except:

        if (aJson.Values['resultado'].ValueType = jvArray) then begin
            aJsonViolacoes := aJson.Values['resultado'].AsArray;
        end else begin
            aJsonViolacoes := TJsonArray.Create;
       end;

neste caso verifico se se o tipo é um Array senão crio o objeto vazio para continuar a execução sem causar erros.

[Cleonir]

Bom dia.

É só adicionar um if pelo tipo da operação. Por que nesse caso não tem o objeto status que esta tentando carregar ali.

Como mencionei em

 

[Juliomar Marchetti]

vamos seguir só nesse tópico mencionado.