Pesquisar na Comunidade

Boa tarde pessoal. Fiz um ajuste para o banco Sicrédi CNAB 240, na posição 119 a 126 que é para (Data do juro de mora). Atualmente esta sendo preenchido com zeros esse campo. Em anexo arquivo alterado e parte do manual onde contem este campo. ACBrBancoSicredi.pas

Boa tarde pessoal, utilizo a ACBrMonitorPlus para gerar os boletos para o banco itau, estou com a versão atualizada ACBrMonitorPLUS-1.1.0.50-20180418 baixada e compilada com Lazarus. O problema é que a data da multa referente a propriedade 'DataMoraJuros' esta prenchida no TXT mas não está sendo gerado no arquivo de remessa conforme exemplo abaixo. Na linha numero 3 a partir da posiçao 3 deveria constar a DataMoraJuros no formato DDMMAAAA 22000000000000000000200 < linha 3 gerada pelo monitor 22DDMMAAAA00000000200 < linha correta a ser gerado constando o valor do campo DataMoraJuros no formato DDMMAAAA dados para gerar o boleto BOLETO.IncluirTitulos("[Titulo1] NumeroDocumento=55278A NossoNumero=2281 Carteira=109 ValorDocumento=770,34 Vencimento=23/05/2018 DataMoraJuros=23/05/2018 DataProcessamento=18/04/2018 DataProtesto=30/05/2018 PercentualMulta=2,00 ValorMoraJuros=2,57 Sacado.NomeSacado=nome do cliente Sacado.CNPJCPF=00000000000000 Sacado.Pessoa=1 Sacado.Logradouro=AV.ITAVUVU Sacado.Numero=4000 Sacado.Bairro=JD.STA.CECILIA Sacado.Complemento= Sacado.Cidade=SOROCABA Sacado.UF=SP Sacado.CEP=18078005 [email protected] Mensagem=TITULO SUJEITO A PROTESTO.XXXXXXXXXXXXX Mensagem=APOS VCTO ACESSE WWW.ITAU.COM.BR/BOLETOS PARA ATUALIZAR SEU BOLETO Instrucao1=34 ") encontrei esse tópico parece estar com o mesmo problema Grato por qualquer dica ou correção no sistema Sami Laham cb180401.rem

Bom Dia componente não respeita o conteúdo do campo "DataMoraJuros", somando +1 dia na data deste campo, segue correção: antes: AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%', FormatCurr('R$ #,##0.00',ValorMoraJuros)) + ' por dia de atraso para pagamento a partir de ' + FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros, IncDay(DataMoraJuros,1),DataMoraJuros)))) correção: AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%', FormatCurr('R$ #,##0.00',ValorMoraJuros)) + ' por dia de atraso para pagamento a partir de ' + FormatDateTime('dd/mm/yyyy',DataMoraJuros))) segue arquivo alterado Att Joao Carlos VinheSoft ACBrBoleto.pas

Na unit ACBrBoleto linha 1618 fiz a alteração baixo pois quando informado o campo DataMoraJuros = Vencimento a descrição de Cobrar Multa de R$ x,xx após dd/mm/yyyy fica incorreto pois não é após a data e sim a partir desta data. AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' após '+FormatDateTime('dd/mm/yyyy', DataMoraJuros)))

Bom dia. Fiz um ajuste no ACBrBancoItau.pas em GerarRegistroTransacao400 pois a DataMoraJuros é sempre inicializada com zero, porém comparada com nulo: {Mora Juros} if (ValorMoraJuros > 0) then begin // DONE -oJacinto Junior: Ajustar pois DataMoraJuros é inicializada com zero, sendo portanto sempre diferente de null. // if (DataMoraJuros <> Null) then if DataMoraJuros <> 0 then ADataMoraJuros := FormatDateTime('ddmmyy', DataMoraJuros) else ADataMoraJuros := padR('', 6, '0'); end else ADataMoraJuros := padR('', 6, '0'); Att., Junior ACBrBancoItau.pas