Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Boleto Data De Multa_Juros Errada


hetoandrade
Go to solution Solved by hetoandrade,
  • Este tópico foi criado há 2859 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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;

post-4970-0-53924000-1404307651_thumb.jp

post-4970-0-36322300-1404307659_thumb.jp

Link to comment
Share on other sites

  • Consultores

Bom dia

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

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • Consultores

Heto

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

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • 3 weeks later...
  • Administradores

Boa  tarde.

 

Alteração já disponibilizada no svn.

 

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.