Boleto Bancoob API: unit 'ACBrBoletoW_Bancoob.pas' rotina 'RequisicaoJson': passando valores fixos

[vinizioWOW]

Bom dia,

Na unit 'ACBrBoletoW_Bancoob.pas' rotina 'RequisicaoJson' a partir da linha 340 o componente está passando valores fixos para os campos identificacaoEmissaoBoleto, identificacaoDistribuicaoBoleto e numeroParcela ao invés de passar os valores definidos no componente. Isso pode acarretar em problemas como por exemplo na composição do código de barras e da linha digitável, impossibilitando o pagamento, visto que os valores enviados ao banco estão diferentes dos informados pelo cliente na geração do boleto.

Código atual:

      Json.Add('identificacaoEmissaoBoleto').Value.AsInteger      := 1;
      Json.Add('identificacaoDistribuicaoBoleto').Value.AsInteger := 1;
      Json.Add('valor').Value.asNumber                            := aTitulo.ValorDocumento;
      Json.Add('dataVencimento').Value.asString                   := DateTimeToDateBancoob(aTitulo.Vencimento);
      Json.Add('numeroParcela').Value.AsInteger                   := 1;

Sugestão:

      if aTitulo.ACBrBoleto.Cedente.ResponEmissao <> tbCliEmite then
        Json.Add('identificacaoEmissaoBoleto').Value.AsInteger    := 1
      else
        Json.Add('identificacaoEmissaoBoleto').Value.AsInteger    := 2; // documentação do banco permite: 1 Banco Emite - 2 Cliente Emite
      if aTitulo.ACBrBoleto.Cedente.IdentDistribuicao = tbBancoDistribui then
        Json.Add('identificacaoDistribuicaoBoleto').Value.AsInteger := 1
      else
        Json.Add('identificacaoDistribuicaoBoleto').Value.AsInteger := 2; // documentação do banco permite: 1 Banco Distribui - 2 Cliente Distribui
      Json.Add('valor').Value.asNumber                            := aTitulo.ValorDocumento;
      Json.Add('dataVencimento').Value.asString                   := DateTimeToDateBancoob(aTitulo.Vencimento);
      Json.Add('numeroParcela').Value.AsInteger                   := ATitulo.Parcela; // documentação do banco permite até '99'

Cordialmente,

ACBrBoletoW_Bancoob.pas

[Allan Hilário]

Fazendo testes hj aqui peguei essa mesma situação, quando tem mais de uma parcela gera o código de barras e linha digital errado, pois sempre está enviando parcela 1. 

[Cleber Ferreira]

@Daniel InfoCotidiano boa tarde,

tem alguma previsão para análise dessa situação? Está ocorrendo aqui também. Pode nos ajudar por favor?

[Alexandre de Paula]

Boa tarde,

Criada a TK-4180 para avaliação da contribuição.

Obrigado

[vinizioWOW]

Bom dia,

Vi que foram feitos os ajustes na unit ACBrBoletoW_Bancoob.pas porém ficou faltando a questão do número da parcela (linha 346). Que é justamente o que pode causar quebra na composição da linha digitável, impossibilitando o pagamento por parte do cliente.

Código atual:

Json.Add('numeroParcela').Value.AsInteger                   := 1;

Sugestão:

Json.Add('numeroParcela').Value.AsInteger                   := ATitulo.Parcela;

 

[Daniel InfoCotidiano]

@vinizioWOW
Obrigado pela colaboração.
Subimos uma correção, por favor atualizar os fontes e reinstalar o ACBr