Boleto Sicoob via WebService - GerarJuros JSON

[mlgoncalves]

Olá pessoal,

O grupo GerarJuros do JSON está com erro no preenchimento do campo 'tipoJurosMora'.

 

TACBrCodigoJuros       = (cjValorDia, cjTaxaMensal, cjIsento, cjValorMensal, cjTaxaDiaria);

Integer(aTitulo.CodigoMoraJuros) retorna

  cjValorDia = 0 -------->>>>> no JSON deve ser informado 1

  vjTaxaMensal = 1 --------->>>>>>> no JSON deve ser informado 2

 

Transcrição do código que está no SVN com erro e a proposta de correção:

        case (StrToIntDef(aTitulo.CodigoMora, 0)) of
          0:    // Isento
            begin
              AJson.Add('tipoJurosMora').Value.AsInteger :=  0;
              AJson.Add('valorJurosMora').Value.asNumber := 0;
            end;
          1:     // Dia
            begin
             // AJson.Add('taxa').Value.asNumber := aTitulo.ValorMoraJuros;
              AJson.Add('tipoJurosMora').Value.AsInteger :=  Integer(aTitulo.CodigoMoraJuros); <<<<<<----- Corrigir esta linha anotando o número 1 (um). A função retorna 0 (zero);
              AJson.Add('dataJurosMora').Value.asString := DateTimeToDateBancoob(aTitulo.DataMulta);
              AJson.Add('valorJurosMora').Value.asNumber := aTitulo.ValorMoraJuros;
            end;
          2: // Mês
            begin
              AJson.Add('tipoJurosMora').Value.AsInteger :=  Integer(aTitulo.CodigoMoraJuros); <<<<<<<<------- Corrigir esta linha anotando o número 2 (dois). A função retorna 1 (um);
              AJson.Add('dataJurosMora').Value.asString := DateTimeToDateBancoob(aTitulo.DataMulta);
              AJson.Add('valorJurosMora').Value.asNumber := aTitulo.ValorMoraJuros;
            end;
         end;

Atenciosamente,

Marcelo Gonçalves

[Daniel InfoCotidiano]

@mlgoncalves
Bom dia !
Anexe suas units alteradas por favor criamos uma tarefa para analise.
 

 

[mlgoncalves]

Olá pessoal, 

Segue a Unit modificada.

Atenciosamente,

ACBrBoletoW_Bancoob.pas

[Daniel InfoCotidiano]

@mlgoncalves
Bom dia !
Obrigado por ter enviado a contribuição, isso é muito importante para toda comunidade ACBr.
Criado a tarefa TK-3904 para que a mesma seja analisada pela equipe de boleto.

[mlgoncalves]

Olá pessoal,

O código do juros continua errado. 

Segue a unit corrigida.

Atenciosamente,

ACBrBoletoW_Bancoob.pas

[Cleonir]

Bom dia.

Eu também tive problemas com o tipoJurosMora. 

Com as alterações feitas pelo mlgoncalves  resolve o problema da conversão do CodigoMora para integer

Porem ainda ficou faltando um ajuste quando for isento, segundo a documentação o tipoJurosMora deve ser 3 quando for isento.

 

Outro detalhe é referente a dataJurosMora.

Esta adicionando a DataMulta, acho que deveria ser a DataMoraJuros.

[Daniel InfoCotidiano]

@mlgoncalves, @Cleonir
Bom bom dia!
Assim q subirmos para SVN aviso aqui

@Cleonir
Olhando assim parece q seus fontes estão desatualizados pela estrutura.

 

[Cleonir]

O que eu citei foi em GerarJuros.

[Daniel InfoCotidiano]

@mlgoncalves @Cleonir
Subimos algumas correções para o SVN, por favor atualize os repositórios e rodem o instalador !
Obrigado mais uma vez pela colaboração!

[Cleonir]

Agora ficou ok essa parte.

Mais um detalhe ainda referente a parcela esta fixo 1. 

Eu tive que alterar para ATitulo.Parcela para adicionar a parcela informada

O numero da parcela é utilizado para calcular o digito verificador do nosso numero se não me engano.

Quando eu tiver um tempo vou analisar melhor melhor aqui e postar.