Boleto Sicoob via WebService - LerRetorno

[mlgoncalves]

Olá pessoal,

O HttpResultCode=207 é código retornado com sucesso do banco Sicoob tanto para indicar registro de boleto quando para indicar erros de preenchimento.

Então é necessário tratar corretamente o JSON retornado para o preenchimento da lista dos erros retornados, se houver.

Arquivos anexados:

ACBrBoletoRet_Bancoob.pas -> alterado com o ajuste

JSON com erro de retorno.json -> arquivo original retornado pelo Sicoob no código HttpResultCode=207 porém informando rejeição por erro de preenchimento do boleto

JSON de boleto registrado.json -> arquivo original retornado pelo Sicoob no código HttpResultCode=207 de boleto registrado

 

Atenciosamente,

Marcelo Gonçalves

ACBrBoletoRet_Bancoob.pas JSON com erro de retorno.json JSON de boleto registrado.json

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-3893

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[mlgoncalves]

Olá Victor, acabei de atualizar os fontes pelo SVN e entendo que a modificação feita não atende o requisito.

Modificação feita:

        case HttpResultCode of
          207:
          begin
            aJsonViolacoes := aJson.Values['resultado'].AsArray;
            for x := 0 to aJsonViolacoes.Count -1 do
            begin
              aJsonViolacao        := aJsonViolacoes[x].AsObject;
              aJsonViolacoes       := aJsonViolacao['status'].AsArray;
              ARejeicao            := ARetornoWS.CriarRejeicaoLista;
              ARejeicao.Codigo     := aJsonViolacao.Values['codigo'].AsString;
              ARejeicao.mensagem   := aJsonViolacao.Values['mensagem'].AsString;  
            end;
          end;
          400,406,500 :
            begin
              aJsonViolacoes := aJson.Values['mensagens'].AsArray;
              for x := 0 to aJsonViolacoes.Count -1 do
                begin
                    aJsonViolacao        := aJsonViolacoes[x].AsObject;
                    ARejeicao            := ARetornoWS.CriarRejeicaoLista;
                    ARejeicao.Codigo     := AJsonViolacao.Values['codigo'].AsString;
                    ARejeicao.mensagem     := AJsonViolacao.Values['mensagem'].AsString;
                end;
            end;
        end;

Onde está o problema no meu ponto de vista:

HTTPResultCode=207 indica tanto sucesso de registro de boleto quanto erro. Não acho correto preencher a lista de violações de regras sendo que quando o boleto é registrado não houve violação de nenhuma regra.

Insisto que quando aJsonViolacao.Values['codigo'].AsString estiver retormadp com 200, nada a fazer, boleto registrado com sucesso. Quando retornado com 400 aí sim tem problema a ser corrigido.

[mlgoncalves]

Olá Victor,

Como saber se um boleto foi ou não registrado no banco Sicoob? Resposta: quando o codigo do objeto status estiver preenchido com 200; ou ACBrBoleto.Enviar retornar false.

Como disse no post de abertura desse tópico, o Sicoob retorna sempre o código 207 (quando a comunicação é feita com sucesso) para boleto registrado ou não registrado, que retorna TRUE na função ACBrBoleto.Enviar Então não pode consultar esse valor retornado como indicador de registro de boleto.

Entendo que a outra forma seria consultar a lista ListaRejeicao que, se contiver linha preenchida indicará o motivo da rejeição. Se não tiver linha preenchida indicará que o boleto foi registrado com sucesso.

Nesse sentido estou anexando a Unit com a proposta de modificação.

Agora, caso vocês interpretem uma lógica diferente, onde o programador deverá consultar obrigatoriamente a ListaRejeicao para saber se o boleto foi ou não registrado no banco, mesmo assim será necessário corrigir a programação que alimenta a lista pois não está funcionando corretamente. Estou anexando também um exemplo de retorno.

No aguardo.

 

retorno_boleto_registrado.json ACBrBoletoRet_Bancoob.pas

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

Veja se agora atende toda a demanda

[mlgoncalves]

Olá Victor, na alteração ficou faltando uma correção.

Segue a UNIT corrigida

Marcelo

ACBrBoletoRet_Bancoob.pas

[Allan Hilário]

Olá mlgoncalves, você esta conseguindo registrar o boleto quando é informado as instruções de pagamento?

[Victor H. Gonzales - Panda]

24 minutos atrás, allan_hs disse:

Olá mlgoncalves, você esta conseguindo registrar o boleto quando é informado as instruções de pagamento?

 

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.

 

 

1 hora atrás, mlgoncalves disse:

Olá Victor, na alteração ficou faltando uma correção.

Segue a UNIT corrigida

Marcelo

ACBrBoletoRet_Bancoob.pas 20.75 kB · 2 downloads

 

no SVN

[mlgoncalves]

Obrigado. Conferido ok.

[Victor H. Gonzales - Panda]

Obrigado por reportar.

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