Problema Data de Protesto com dias uteis

[Rafael Cruz]

Boa tarde, 

Estou verificando a emissão de boleto CNAB 400 para banco Itau e surgiu um detalhe. Cliente com protesto 7 dias uteis, o vencimento do titulo é 21/12.. 7 dias corridos a data do protesto é 30/12.
Eu seto então as 2 datas nas respectivas propriedades. O componente então lança faz o seguinte

      if DataProtesto <> 0 then
      begin
         if TipoDiasProtesto = diCorridos then
            AStringList.Add(ACBrStr('Protestar em ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dias corridos após o vencimento'))
         else
            AStringList.Add(ACBrStr('Protestar no ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dia útil após o vencimento'));
      end;
 

Para dia util portanto, esta usando o DaysBetween, e a mensagem sai com 9 dias úteis após vencimento, quando o correto seria 7 dias. Verifiquei se existe a propriedades DiasUteis no componente ou algo do tipo, ai alteraria essa função acima mais não encontrei. 

Alguem resolveu esse detalhe?

 

 

 

 

 

 

[microporto.suporte]

Estou tendo um problema semelhante a este. Quando sai protestar após 5 dias úteis após o vencimento dando como exemplo uma cobrança que vença em 10.01.2017 a data para protesto após o vencimento seria no dia 15. Mas o componente considera a data como dia 14.01.2017. 

Como o histórico sai automático e não temos como altera-lo o correto seria então colocar protestar a partir de 5 dias do vencimento. e não após o vencimento.

Da forma que está o cliente entende que depois de 5 dias úteis é que vai protestar que no caso seria dia 16 ( entendendo o após como depois do dia

(10 + 5 dias) = 15 sendo o após então o dia do protesto seria dia 16 e não o dia 15.

Fica aí a minha observação para melhorias no componente.

 

 

[Rafael Cruz]

Fiz o seguinte pra resolver isso da impressão

na unit ACBrBoleto

no private criei

    fDiasDeProtesto: Integer;

criei uma property

    property DiasDeProtesto: Integer read fDiasDeProtesto write fDiasDeProtesto;

no create 

  fDiasDeProtesto := 0;

e na impressão

      if TipoDiasProtesto = diCorridos then
        AStringList.Add
          (ACBrStr('Protestar em ' + IntToStr(DaysBetween(Vencimento,
          DataProtesto)) + ' dias corridos após o vencimento'))
      else
        AStringList.Add
          (ACBrStr('Protestar no ' + IntToStr(DiasDeProtesto) + ' dia útil após o vencimento'));
 

PS: não pude usar property DiasProtesto pq já era usada no banco do brasil

só passei o numero de dias de protesto na property nova.

Se tiver outra solução ou for essa o componente poderia ser ajustado

 

No aguardo

 

[Juliana Tamizou]

Boa tarde.

Favor atualizar seu svn para baixar a alteração.

Att.

[Rafael Cruz]

Bom dia Juliana, 

 

Fiz atualização do ACBr em outro pc e continua da mesma forma

 

      if DataProtesto <> 0 then
      begin
         if TipoDiasProtesto = diCorridos then
            AStringList.Add(ACBrStr('Protestar em ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dias corridos após o vencimento'))
         else
            AStringList.Add(ACBrStr('Protestar no ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dia útil após o vencimento'));
      end;
 

e não tem a property nova que criei

 

Fico no aguardo

 

[José M. S. Junior]

Bom dia,

Estamos atualizando os fontes com os ajustes para disponibilizar nas próximas atualizações.

[José M. S. Junior]

Boa Tarde

A Alteração já está disponível no repositório. Foi adicionado a propriedade "DiasDeProtesto". Caso não seja preenchida e o tipo de validação for dias úteis, utilizará uma função para o cálculo automático de dias úteis.

Obrigado pela Contribuição