Ir para conteúdo
  • Cadastre-se

dev botao

Data para cobrança de Multa e juros


anselmooa
Ver Solução Respondido por Juliomar Marchetti,
  • Este tópico foi criado há 1329 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde,

Estou informando a data para cobrança dos juros e da multa, porém no boleto não sai impresso que é para cobrar a partir daquela data. 

Já fiz o teste com titulo já vencido e a vencer e não saiu a informação, precisa fazer alguma configuração adicional ou passar algum outro parâmetro?

Estou gerando boleto do bradesco, é tudo teste ainda... não cheguei a enviar para o banco, apenas testando a geração do boleto, a impressão e o arquivo de remessa.

Obrigado

Anselmo

Link para o comentário
Compartilhar em outros sites

Boa tarde, 

Sim eu copiei do exemplo, rodando o programa Demo, aparece a data, mas já do meu programa, não aparece...

Fiz um boleto de testes, com vencimento para 08/04/19 e com data para mora e juros a partir de 13/04/19, na impressão não aparece a data.

fiz igual tá no programa Demo:

Titulo.DataMoraJuros := StrToDateDef(xquery_cons.FieldByName('data_juros').value, 0);

mas não sai na impressão

Obrigado

image.png.5ebcfc52e11ea80e1b9f40893e98102a.png

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Os campos que precisam ser preenchidos são:

CodigoMora, DataMoraJuros, ValorMoraJuros

PercentualMulta, DataMulta, MultaValorFixo

A mensagem é Fixa e pode mudar se a Data já estiver vencida ou não...

  • Curtir 1
Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...
  • Administradores

Boa tarde.

2 horas atrás, carlos batista disse:

Como faço para corrigir?

Você deve aguardar que alguém tenha disponibilidade para retornar, para os casos onde se necessita de urgência na resposta, recomendamos considerar o SAC ACBr, que entre outras vantagens, tem o SLA de resposta de  1 dia útil (média atual de respostas está em 10 minutos).

2 horas atrás, carlos batista disse:

estou implementando o boleto mas , no impresso esta saindo duas vezes o valor da multa e juros 

Recomendo que examine como é feito no demo e verá que lá as mensagens não são duplicadas.

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 para o comentário
Compartilhar em outros sites

  • Moderadores
2 horas atrás, carlos batista disse:

Como faço para corrigir?

verifique primeiro senão está com fontes alterados no seu micro e reverta para do svn reinstale o acbr,

também veja onde está alimentando essas informações

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

2 hours ago, Juliana Tamizou said:

Boa tarde.

Você deve aguardar que alguém tenha disponibilidade para retornar, para os casos onde se necessita de urgência na resposta, recomendamos considerar o SAC ACBr, que entre outras vantagens, tem o SLA de resposta de  1 dia útil (média atual de respostas está em 10 minutos).

Recomendo que examine como é feito no demo e verá que lá as mensagens não são duplicadas.

Att.

Olhei mas não vi diferença no preenchimento 

 ```while not FDataSet.Eof do
  begin
    LCodReceber := FDataSet.FieldByName('CodReceber').AsInteger;
    Self.BuscarTitulos(LCodReceber);
    LTitulo := FBoleto.CriarTituloNaLista;
    LVencimento := FDataSet.FieldByName('Venc').AsDateTime;
    with LTitulo do
    begin
      if Vencimento < DataAtualServidor then
        LVencimento := IncWorkingDay(DataAtualServidor, 1);
      Vencimento := LVencimento;
      DataDocumento := DataAtualServidor;
      NumeroDocumento := FQuery3.FieldByName('NumeroDocumento').AsString;
      if Naoestavazio(Sodigitos(FQuery3.FieldByName('Parcela').AsString)) then
        Parcela := FQuery3.FieldByName('Parcela').AsInteger;
      EspecieDoc := FEspecieDoc;
      EspecieMod := 'R$';
      Aceite := atNao;
      if FAceiteDocumento = 'SIM' then
        Aceite := atSim;
      DataProcessamento := DataAtualServidor;
      LTamanhoNossoNumero := FBoleto.Banco.CalcularTamMaximoNossoNumero(FCartteira, FQuery3.FieldByName('NossoNumeroBolCtrl').Value);
      Carteira := FCartteira;
      NossoNumero := PadLeft(FQuery3.FieldByName('NossoNumeroBolCtrl').Value, LTamanhoNossoNumero, '0');
      ValorDocumento := FDataSet.FieldByName('Valor').AsFloat;
      Sacado.NomeSacado := FQuery3.FieldByName('NomeSacado').AsString;
      Sacado.Pessoa := pFisica;
      if FQuery3.FieldByName('Tipo').AsString = 'Juridica' then
        Sacado.Pessoa := pJuridica;
      Sacado.CNPJCPF := FormataCpfCnpj(OnlyNumber(FQuery3.FieldByName('CNPJCPF').AsString));
      Sacado.Logradouro := FQuery3.FieldByName('Logradouro').AsString;
      Sacado.Numero := FQuery3.FieldByName('Numero').AsString;
      if EhImprimirCaixaPosta then
        Sacado.Numero := FQuery3.FieldByName('CxPostal').AsString;
      Sacado.Bairro := FQuery3.FieldByName('Bairro').AsString;
      Sacado.Cidade := FQuery3.FieldByName('Cidade').AsString;
      Sacado.UF := FQuery3.FieldByName('UF').AsString;
      Sacado.CEP := OnlyNumber(FQuery3.FieldByName('CEP').AsString);
      Sacado.Email := FQuery3.FieldByName('Email').AsString;
      if Sacado.Email = EmptyStr then
        Sacado.Email := FQuery3.FieldByName('Email2').AsString;
      UsoBanco := FUsoBanco;
      LocalPagamento := FLocalPagamento;
      OcorrenciaOriginal.Tipo := FTipoOcorrencia;
      if Assigned(FMesagemBoleto) then
        Mensagem.Text := FMesagemBoleto.Text;

      CodigoMoraJuros := cjTaxaMensal;
      ValorMoraJuros := FQuery3.FieldByName('Juros_am').AsFloat;
      ValorDesconto := FQuery3.FieldByName('ValorDesconto').AsFloat;
      DataMoraJuros := LVencimento;
      DataDesconto := IncDay(LVencimento - 1);
      if FDiasProtesto > 0 then
        DataProtesto := IncDay(LVencimento, FDiasProtesto);
      CodigoMulta := cmPercentual;
      PercentualMulta := FQuery3.FieldByName('Multa').AsFloat;

      FBoleto.AdicionarMensagensPadroes(LTitulo, Mensagem);
      ArquivoLogoEmp := ExtractFileDir(GetCurrentDir) + '\Imagens\Logo.jpg';
    end;
    FBoleto.ChecarDadosObrigatorios;
    Self.SalvarNossoNumero(LCodReceber, LTitulo);
    FDataSet.Next;
    if (LNome <> FQuery3.FieldByName('NomeSacado').AsString) or (FDataSet.Eof) then
    begin
      if FTarefaBoleto = tbImprimeBoletoCompleto then
      begin
        FBoleto.ACBrBoletoFC.NomeArquivo := GetUserTempDir + 'Boleto Cobranca ' + FBoleto.ListadeBoletos[0].Sacado.NomeSacado + '.pdf';
        Self.Imprimir();
        if FEhEnviarEmail then
          Self.EnviarEmail();
        FBoleto.ListadeBoletos.Clear;
      end;
    end;
    LNome := FQuery3.FieldByName('NomeSacado').AsString;
  end;```

2 hours ago, Juliomar Marchetti said:

verifique primeiro senão está com fontes alterados no seu micro e reverta para do svn reinstale o acbr,

também veja onde está alimentando essas informações

fiz a reinstalação do componente hoje pela manha mas, de qual quer forma verifiquei se tinha alguma alteração

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1329 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.