Pesquisar na Comunidade

Estive fazendo a atualização do pasta raiz do componentes ACBR e vim que houve algumas alterações no arquivo ACBrBancoCaixa.pas Porém alterações no SEGMENTO R , campo 16.3R Valor/Percentual Ser Aplicado , Posição 75 até 89 . Não atender necessidades de cálculos para multa por valor fixo ou por percentagem conforme o código de multa para valor fixo ou Percentual. Atualmente não verificar se o codigomulta é valor "cmValorfoxo" ou "cmPercentual", se calcular é igual para todos. IfThen(PercentualMulta > 0, IntToStrZero(round(PercentualMulta * 100), 15), PadRight('', 15, '0')) + // 75 a 89 - Valor/Percentual Desta forma o calculor é feito diacordo com valor do CodigoMulta e Valorfixo ou Percentual. IfThen((CodigoMulta = cmValorFixo) and (PercentualMulta > 0) , IntToStrZero(round(ValorDocumento * PercentualMulta),15), IfThen((CodigoMulta = cmPercentual) and (PercentualMulta > 0), IntToStrZero(round(PercentualMulta * 100), 15), PadRight('', 15, '0'))) + // 75 a 89 - Valor/Percentual a ser aplicado ficou na aguardo . seguir outro post feito no inicio do ano sobre o assunto. https://www.projetoacbr.com.br/forum/topic/34346-algumas-divergentes-contido-arquivo-de-remessa-com-o-boleto-da-caix/#comment-231758

Olá Amigos. Recebi algumas solicitação de clientes na geração de boleto e arquivos de remessa pela ACBrBancoCaixa (240 posições), mais para que boleto possa atualizado pelo cedente do boleto após o vencimento pelo link abaixo (https://bloquetoexpresso.caixa.gov.br/bloquetoexpresso/index.jsp) estaria com algumas divergentes contido arquivo de remessa com o boleto da Caixa . Nos seguintes campos. No segmento R Campo 14.3R> Nome Código da Multa>Posição 066 > contém o valor 1, deve conter o valor 2 (Código da multa: 1- Valor fixo, 2- Percentual) Porem quando o valor de multa for fixo de ser informado código de multa "1" e campo 16.3R Valor/Percentual Ser Aplicado , Posição 75 até 89 Preencher de acordo com a informação do campo 14.3R (Código da Multa), utilizando duas casas decimais: Se 14.3R = '0', preencher com zeros; Se = ‘1’, informar Valor; Se = ‘2’, informar percentual; Como não havia implementação para esse caso no fontes ACBrBancoCaixa tive realizar algumas alteração fontes ACBrBoleto e ACBrBancoCaixa. Caso não esteja no padrão do ACBr fico grato que seja analisando, pois fiz algumas alterações para poder recebe valor 1 no campo código multa 1 e para recebe valor fixo da multa igual o valor contido campo observação no boleto gerado pelo Acbr. Seguir as alterações dos arquivos abaixo. Na Classe TACBrTitulo property CodigoMulta : String read fCodigoMulta write SetCodigoMulta; procedure TACBrTitulo.SetCodigoMulta(const AValue: String); begin if fCodigoMulta = AValue then exit; fCodigoMulta := AValue; end; Na ACBrBancoCaixa alteração feitas {Multa} if (PercentualMulta > 0) then ADataMulta := IfThen(DataMoraJuros > 0, FormatDateTime('ddmmyyyy', DataMoraJuros), FormatDateTime('ddmmyyyy', Vencimento + 1)) else begin ADataMulta := PadLeft('', 8, '0'); CodigoMulta := '0'; end; IfThen(CodigoMulta = '1' ,'1', IfThen((PercentualMulta <> null) and (PercentualMulta > 0), '2', '0')) + // 66 a 66 - Código da Multa ADataMulta + // 67 a 74 - Data da Multa IfThen(CodigoMulta = '1',IntToStrZero(round(ValorDocumento * PercentualMulta),15), IfThen(PercentualMulta > 0, IntToStrZero(round(PercentualMulta * 100), 15), PadRight('', 15, '0'))) + // 75 a 89 - Valor/Percentual a ser aplicado ACBrBancoCaixa.pas ACBrBoleto.pas