RFI031.R001 — Data Final ajustada automaticamente pela Data Inicial

Módulo: RFI031 · Menu: Fiscal > Relatórios > Sped Fiscal(EFD) Classificação: intencional · Relevância: media

Regra

Se a Data Inicial for maior que a Data Final, ou a Data Final estiver vazia, o sistema substitui a Data Final pelo último dia do mês da Data Inicial.

Quando dispara

Ao sair do campo Data Inicial na tela de filtro.

Como o usuário resolve

Comportamento automático; revisar a Data Final sugerida antes de gerar o arquivo.

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/RFI031/UdmRFI031.pas	76-84	TdmRFI031.tabFILTRODT_INICIALValidate

source/RFI031/UdmRFI031.pas:76

procedure TdmRFI031.tabFILTRODT_INICIALValidate(Sender: TField);
begin
   if ( (Trim(tabFILTRODT_INICIAL.AsString) <> '') And
        (Trim(tabFILTRODT_FINAL.AsString)   <> '') ) then
      if ( tabFILTRODT_INICIAL.AsDateTime > tabFILTRODT_FINAL.AsDateTime ) then
         tabFILTRODT_FINAL.AsString := DateToStr(EndOfTheMonth(tabFILTRODT_INICIAL.AsDateTime));
   if ( Trim(tabFILTRODT_FINAL.AsString) = '' ) then
      tabFILTRODT_FINAL.AsString := DateToStr(EndOfTheMonth(tabFILTRODT_INICIAL.AsDateTime));
end;