@Juliomar Marchetti
Atualizei hoje os fontes e inclui as alterações feitas pelo @Andre Cristiano Ittner para geração do CNB240 do CECRED, fiz alguns ajustes por causa da negativação do Serasa tanto para o Cecred como para o Itau CNB240.
Segue a relação das alterações para facilitar a tua analise. Foi criado uma propriedade CodigoMoraJuros mas vi que o componente tem uma CodigosMoraAceitos, talvez nesse caso possa ser feito um ajuste, não tive tempo de avaliar isso, as acredito que possa ser feito.
Foram alterados os seguintes fontes :
ACBRBoleto.Pas
Foram criadas as seguintes propriedades :
property CodigoDesconto : TACBrCodigoDesconto read fCodigoDesconto write fCodigoDesconto;
property CodigoMoraJuros : TACBrCodigoJuros read fCodigoMoraJuros write fCodigoMoraJuros;
property CodigoMulta : TACBrCodigoMulta read fCodigoMulta write fCodigoMulta;
property CodigoNegativacao : TACBrCodigoNegativacao read fCodigoNegativacao write fCodigoNegativacao default cnNaoProtestar;
Foi incluso em TACBrTitulo = class
fCodigoNegativacao : TACBrCodigoNegativacao;
fCodigoDesconto : TACBrCodigoDesconto;
fCodigoMoraJuros : TACBrCodigoJuros;
fCodigoMulta : TACBrCodigoMulta;
Foi incluso em TACBrTipoOcorrencia =
toRemessaNegativacaoSerasa,
toRemessaExcluirNegativacaoSerasa,
Foram criados :
{Definir codigo Desconto }
TACBrCodigoDesconto = (cdSemDesconto, cdValorFixo);
{Definir codigo Juros }
TACBrCodigoJuros = (cjValorDia, cjTaxaMensal, cjIsento);
{Definir codigo Multa }
TACBrCodigoMulta = (cmValorFixo, cmPercentual);
{Definir se o titulo será protestado, não protestado ou negativado }
TACBrCodigoNegativacao = (cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativar, cnNaoNegativar);
ACBrBancoCecred.Pas
Foram criadas as rotinas para geração CNB 240:
GerarRegistroHeader240
GerarRegistroTransacao240
GerarRegistroTrailler240
ACBrBancoItau.Pas
Na rotina GerarRegistroTransacao240, foram feitas alterações para o envio do cliente para Negativação no Serasa.
Criada a variavel ACodigoNegativacao para comportar o código da negativação, Serasa ou cartório, na posição 221 do registro P:
{ Pegando Tipo de Protesto/Negativação }
case CodigoNegativacao of
cnNenhum : ACodigoNegativacao := '0';
cnProtestarCorrido : ACodigoNegativacao := '1';
cnProtestarUteis : ACodigoNegativacao := '2';
cnNaoProtestar : ACodigoNegativacao := '3';
cnNegativar : ACodigoNegativacao := '7';
cnNaoNegativar : ACodigoNegativacao := '8';
else
ACodigoNegativacao := '0';
end;
Isso foi o que me lembro e que ajustei hoje.
Dercide.
ACBrBancoCecred.pas
ACBrBoleto.pas
ACBrBancoItau.pas