Jump to content

dev botao

Boleto Data De Multa_Juros Errada


Hetosoft Sistemas
Go to solution Solved by Hetosoft Sistemas,
  • Este tópico foi criado há 3729 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

  • 3 weeks later...
  • Administradores

Boa  tarde.

 

Alteração já disponibilizada no svn.

 

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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.