banco banrisul

[volmir]

alterei a unit do banco banrisul pois segundo o manual e o pessoal responsavel pela area do banco me passaram que como o campo DataDesconto (174 - 179 DATA PARA CONCESSÃO DO DESCONTO) é opcional caso nao exista deve ser informado em branco e nao zeros como estava sendo feito

- O campo 325 - 326 NÚMERO DE DIAS PARA MULTA APÓS O VENCIMENTO estava fixo '00' nao estava levando em consideracao o nr de dias apos vencimento para conseder multa.

isso na procedure GerarRegistroTransacao400.

 

na unit ACBrBoleto.pas aletrei a procedure  AdicionarMensagensPadroes

if PercentualMulta <> 0 then   //volmir 28-01-2016
      begin
        if DataMoraJuros <> 0 then
          AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00',
            IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) +
                         ' após '+FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros,
                                                                IncDay(DataMoraJuros,1),DataMoraJuros))))
        else
          AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00',
            IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) +
                         ' após o vencimento.'));
      end;

para mostrar apartir de que data deve ser cobrada multa se DataMoraJuros <> 0 

os arquivos modificados estao em anexo para analize

ACBrBoleto.pas

ACBrBancoBanrisul.pas

[Juliana Tamizou]

Boa tarde.

Alterações no svn.

Att.