Pesquisar na Comunidade

Prezados, percebi alguns detalhes no fonte do ACBrBancoCredisis.pas, que descrevo abaixo: 1-Gostaria além de tudo sugerir uma melhoria, já que o segmento é opcional, seria interessante ter opção para não gerar na remessa, pelo fonte, ele sempre será gerado. 2-Parece que o campo abaixo destacado não está no padrão do banco, no fonte está com opções 2, ou 0 (segue o print) Pelo Manual do Banco, que está anexo, na posição 66, Página 13 "SEQ: 14.3R" Segue, anexados o layout que o banco enviou , a remessa que gerei e o pdf de retorno com a rejeição LAYOUT_CNAB_240_-_REMESSA_RETORNO.pdf 0_01_06_2020_164446.txt 0_01_06_2020_164446.txt-erros.pdf

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