Pesquisar na Comunidade
Showing results for tags 'datamulta'.
Encontrado 2 registros
-
Bom dia. Encontrei um problema ao tentar imprimir boletos para o banco ITAU com DataMulta diferente do vencimento, ( ACBrMonitorPlus ). Incluí a linha em destaque abaixo no DoBoletoUnit.pas para sanar o ocorrido. DataMoraJuros := StrToDateDef(Trim(aIni.ReadString(Sessao,'DataMoraJuros','')),0); DataMulta := StrToDateDef(Trim(aIni.ReadString(Sessao,'DataMulta','')),0); DataProtesto := StrToDateDef(Trim(aIni.ReadString(Sessao,'DataProtesto','')),0); Não sei se esta modificação pode ser incluída no SVN. Sem esta correção, o seguinte trecho do ACBrBoleto.pas não funciona corretamente. if PercentualMulta <> 0 then begin if DataMulta <> 0 then AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' a partir '+FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMulta, IncDay(DataMulta,1),DataMulta)))) else AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' após o vencimento.')); end; Obrigado. Flavio
-
Saudações! - Foi modificado recentemente a regra para geração da Multa conforme informado no tópico a seguir: Mas no Layout do Itaú (ACBrBancoItau), continua a usar a "DataMoraJuros" no registro responsável por tratar a instrução de Multa conforme segue: //Registro Complemento Detalhe - Multa if PercentualMulta > 0 then begin wLinhaMulta:= '2' + // Tipo de registro - 2 OPCIONAL – COMPLEMENTO DETALHE - MULTA '2' + // Cocidgo da Multa X(001) 2-percentual FormatDateTime('ddmmyyyy',DataMoraJuros) + // Data da Multa 9(008) IntToStrZero( round(PercentualMulta * 100 ), 13) + // Valor/Percentual 9(013) space(371) + // Complemento IntToStrZero(aRemessa.Count + 2 , 6); // Sequencial wLinha := wLinha + #13#10 + wLinhaMulta; end; Poderiam realizar a correção para: FormatDateTime('ddmmyyyy',DataMulta) + // Data da Multa 9(008) Grato.
