Data para cobrança de Multa e juros

[anselmooa]

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

[José M. S. Junior]

Bom dia

Está realizando os testes com o Demo ACBrBoleto? no demo pode ver exemplo dos campos que precisa preencher.

[anselmooa]

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

[José M. S. Junior]

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...

[carlos batista]

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

Editado 7 Agosto, 2020 por carlos batista

[carlos batista]

Como faço para corrigir?

[Juliana Tamizou]

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.

[Juliomar Marchetti]

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

[carlos batista]

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

[carlos batista]

2 hours ago, Juliana Tamizou said:

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

ha esqueci de mencionar que no demo também sai duplicado 

[Juliomar Marchetti]

vou roda ele aqui e colocar exatamente suas configurações.

min.

 

[carlos batista]

3 minutes ago, Juliomar Marchetti said:

vou roda ele aqui e colocar exatamente suas configurações.

min.

 

ok

[Juliomar Marchetti]

agora olhando o print que mandou tu tá mandando diversos boletos né

comenta a linha conforme abaixo

[carlos batista]

3 minutes ago, Juliomar Marchetti said:

agora olhando o print que mandou tu tá mandando diversos boletos né

comenta a linha conforme abaixo

rapaz c e fera, funcionou perfeitamente obrigado.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.