Boleto Data De Multa_Juros Errada

Hetosoft Sistemas · 2 Julho, 2014

Coloco a data Multa_Juros um dia depois da data de vencimento

mias mostra no boleto

MULTA : 0,20 REAIS A PARTIR DE 30/12/1899

e eu preencho correto.

Uso esta função

procedure TForm_Boleto.Button4Click(Sender: TObject);
var
Titulo : TACBrTitulo;
begin
     Titulo := ACBrBoleto1.CriarTituloNaLista;

     with Titulo do
     begin
        Vencimento        := StrToDate(edtVencimento.Text);
        DataDocumento     := StrToDate(edtDataDoc.Text);
        NumeroDocumento   := edtNumeroDoc.Text;
        EspecieDoc        := edtEspecieDoc.Text;
        if cbxAceite.ItemIndex = 0 then
           Aceite := atSim
        else
           Aceite := atNao;
        DataProcessamento := Now;
        //NossoNumero       := edtNossoNro.Text;
        //Carteira          := edtCarteira.Text;

        if ACBrBoleto1.Banco.TipoCobranca=cobBancoDoBrasil then
        begin
        Carteira          := edtCarteira.Text;
        NossoNumero       := edtNossoNro.Text;
        end else
        begin
        NossoNumero       := edtNossoNro.Text;
        Carteira          := edtCarteira.Text;
        end;

        ValorDocumento    := StrToCurr(edtValorDoc.Text);
        Sacado.NomeSacado := edtNome.Text;
        Sacado.CNPJCPF    := OnlyNumber(edtCPFCNPJ.Text);
        Sacado.Logradouro := edtEndereco.Text;
        Sacado.Numero     := edtNumero.Text;
        Sacado.Bairro     := edtBairro.Text;
        Sacado.Cidade     := edtCidade.Text;
        Sacado.UF         := edtUF.Text;
        Sacado.CEP        := OnlyNumber(edtCEP.Text);
        ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);
        LocalPagamento    := edtLocalPag.Text;

        ValorMoraJuros    := StrToCurrDef(edtMoraJuros.Text,0);
        ValorDesconto     := StrToCurrDef(edtValorDesconto.Text,0);
        ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);
        DataMoraJuros     := StrToDateDef(edtDataMora.Text, 0);    06/07/2014
        DataDesconto      := StrToDateDef(edtDataDesconto.Text, 0);
        DataAbatimento    := StrToDateDef(edtDataAbatimento.Text, 0);
        DataProtesto      := StrToDateDef(edtDataProtesto.Text, 0);
        PercentualMulta   := StrToCurrDef(edtMulta.Text,0);
        Mensagem.Text     := memMensagem.Text;
        //OcorrenciaOriginal.Tipo := toRemessaBaixar;
        OcorrenciaOriginal.Tipo := toRemessaRegistrar;
        Instrucao1        := padL(trim(edtInstrucoes1.Text),2,'0');
        Instrucao2        := padL(trim(edtInstrucoes2.Text),2,'0');

        if Length( SoNumeros(edtCPFCNPJ.Text) )=11 then
        Sacado.Pessoa   := pFisica else
        if Length( SoNumeros(edtCPFCNPJ.Text) )=14 then
        Sacado.Pessoa   := pJuridica else
        Sacado.Pessoa   := pOutras;

       ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem);
     end;
end;