ACBrBoleto - Tratamento dos campos de descontos 2 e 3

theiller · 17 Novembro, 2022

Identifiquei que na maioria dos bancos os campos de descontos 2 e 3 não estão sendo tratados da forma que é tratado os campos de descontos "1".

Na classe TACBrBancoClass possui duas funções que podem ser implementadas e tratam o desconto "1" mas não existem algo parecido para os campos de descontos 2 e 3.

function DefineCodigoDesconto(const ACBrTitulo: TACBrTitulo): String; virtual;
function DefineDataDesconto(const ACBrTitulo: TACBrTitulo; AFormat: String = 'ddmmyyyy'): String; virtual;

Minha sugestão é também ter a mesma funcionalidade para os demais campos, facilitando e permitindo popular corretamente os registros de forma simples e reuso do código, ainda manda a função anterior já como deprecated.

function DefineCodigoDesconto(const ACBrTitulo: TACBrTitulo): String; virtual; deprecated 'Moved to the AnsiStrings unit';  //Utilizando para definir Código de Desconto na Remessa
function DefineCodigoDescontoId(const ATipo: TACBrTipoDesconto; const AValor: Currency): String; virtual;  //Utilizando para definir Código de Desconto na Remessa
function DefineDataDesconto(const ACBrTitulo: TACBrTitulo; AFormat: String = 'ddmmyyyy'): String; virtual; deprecated 'Moved to the AnsiStrings unit';   //Utilizado para definir a Data de Desconto na Remessa
function DefineDataDescontoId(const AData: TDateTime; const AValor: Currency; const AFormat: String = 'ddmmyyyy'): String; virtual;    //Utilizado para definir a Data de Desconto na Remessa

//...

function TACBrBancoClass.DefineCodigoDesconto(const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    Result := DefineCodigoDescontoId(TipoDesconto, ValorDesconto);
  end;
end;

function TACBrBancoClass.DefineCodigoDescontoId(
  const ATipo: TACBrTipoDesconto; const AValor: Currency): String;
begin
  if (AValor > 0) then
  begin
    case ATipo of
       tdValorFixoAteDataInformada : Result := '1';
       tdPercentualAteDataInformada: Result := '2';
      else
        Result := '1';
    end;
  end
  else
    Result := '0';
end;

function TACBrBancoClass.DefineDataDesconto(const ACBrTitulo: TACBrTitulo; AFormat: String): String;
begin
  with ACBrTitulo do
  begin
    DefineDataDescontoId(DataDesconto, ValorDesconto, AFormat);
  end;
end;

function TACBrBancoClass.DefineDataDescontoId(const AData: TDateTime; const AValor: Currency; const AFormat: String): String;
begin
  if (AValor > 0) then
  begin
    if (AData > 0) then
      Result := FormatDateTime(AFormat, AData)
    else
      Result := PadRight('', Length(AFormat), '0');
  end
  else
    Result := PadRight('', Length(AFormat), '0');
end;