Boleto Data De Multa_Juros Errada

[Hetosoft Sistemas]

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;

[Hetosoft Sistemas]

Alguém pode min ajuda ?

[Juliomar Marchetti]

Bom dia

Qual o gerenciador de relatórios?

[Hetosoft Sistemas]

ACBrBoletoFCQuick1

 

Mais ate em segunda via do  boleto no site da caixa

o boleto também ta errado a informação,

na ultima linha

Editado 4 Julho, 2014 por hetoandrade

[Hetosoft Sistemas]

Alguém pode min ajuda, por favor ?

[Juliomar Marchetti]

Bom dia

então o erro está na geração da remessa correto?

[Hetosoft Sistemas]

Não , o erro está desde o boleto

porque na emissao do boleto ja sai errado.

[Juliomar Marchetti]

Heto

abra o arquivo ACBrCaixaEconomica.pas, coloque um breakpoint na linha 511 e verifique o que ele faz ao gerar o boleto!

[Hetosoft Sistemas]

Juliomar Marchetti

essa resposta

res: abra o arquivo ACBrCaixaEconomica.pas, coloque um breakpoint na linha 511 e verifique o que ele faz ao gerar o boleto!

 

é da pergunta

 

----------------

Sobre este tópico ainda não foi resolvido.

[Hetosoft Sistemas]

Resolvir,

 

mudando este codigo

na unit ACBrBoleto;

 

[Juliana Tamizou]

Boa  tarde.

 

Alteração já disponibilizada no svn.

 

Att.

[Hetosoft Sistemas]

blz, 100%