Boletos do banco SICREDI

[Osmar de Luca]

Boa noite,

Alterei a remessa pra o banco SICREDI do layout c240 e c400 o campo de CODIGOMORA para pegar de acordo com o tipo TACBrCodigoJuros, só pega o tipo se o campo CODIGOMORA for em branco para não causar problemas de quebra de código antigo, por favor vejam se é viável atualizar ai ou não.

ValorMoraJurosCalculado := ValorMoraJuros;
    if CodigoMora='' then
      case CodigoMoraJuros of
        cjValorDia:  CodigoMora := '1';
        cjTaxaMensal: CodigoMora := '2';
        cjIsento:
          begin
            CodigoMora := '3';
            ValorMoraJurosCalculado := 0;
          end;
        cjValorMensal:
          begin
            CodigoMora := '1';
            ValorMoraJurosCalculado := AcbrUtil.RoundABNT(ValorMoraJuros / 30, 2);
          end;
        cjTaxaDiaria:
          begin
            CodigoMora := '2';
            ValorMoraJurosCalculado := AcbrUtil.RoundABNT(ValorMoraJuros * 30, 2);
          end;
      end;
 

ACBrBancoSicredi.pas

[Juliana Tamizou]

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

[Victor H. Gonzales - Panda]

Em 01/10/2021 at 19:19, Osmar de Luca disse:

Boa noite,

Alterei a remessa pra o banco SICREDI do layout c240 e c400 o campo de CODIGOMORA para pegar de acordo com o tipo TACBrCodigoJuros, só pega o tipo se o campo CODIGOMORA for em branco para não causar problemas de quebra de código antigo, por favor vejam se é viável atualizar ai ou não.

ValorMoraJurosCalculado := ValorMoraJuros;
    if CodigoMora='' then
      case CodigoMoraJuros of
        cjValorDia:  CodigoMora := '1';
        cjTaxaMensal: CodigoMora := '2';
        cjIsento:
          begin
            CodigoMora := '3';
            ValorMoraJurosCalculado := 0;
          end;
        cjValorMensal:
          begin
            CodigoMora := '1';
            ValorMoraJurosCalculado := AcbrUtil.RoundABNT(ValorMoraJuros / 30, 2);
          end;
        cjTaxaDiaria:
          begin
            CodigoMora := '2';
            ValorMoraJurosCalculado := AcbrUtil.RoundABNT(ValorMoraJuros * 30, 2);
          end;
      end;
 

ACBrBancoSicredi.pas 123 kB · 0 downloads

Boa tarde,

Referente ao CodigoMora = '' por padrão no arquivo sairia o campo 1 (Mensal) quando valorMoraJuros maior que 0 ou valor 3 (Isento) quando 0;

utilizar o case codigoMoraJuros quando CodigoMora for vazio, poderia ser válido.

Agora a regra de calculo ValorMoraJurosCalculado, ao meu ver isso é regra de negócios da aplicação, isso pode gerar um erro em compatibilidade das aplicações com demais bancos, a pessoa pensando que está passando um valor, e está acontecendo uma operação aritmética.

 

[Juliana Tamizou]

Tópico fechado por falta de retorno do usuário