Bugtracker ID 125

     yOverDue := IncDay(FieldbyName('erstellt_date').AsDateTime, + 35); // 28 Tage bis AutoRisiko + 7 Tage bis Überfällig
     rOverDue := IncDay(FieldbyName('erstellt_date').AsDateTime, + 7);  //  7 Tage

....
      // Auto Risiko
       if FieldByName('autorisiko').AsString <> '' then begin
           HRC_MainForm.Label_MandatAutoRisiko.Caption := rsAutoRisiko + ': ' + FormatDateTime('dd.mm.yyyy',FieldByName('autorisiko').AsDateTime);
         end;
       // Überfällig
       if (FieldbyName('vlist').AsInteger = 1) and (FieldbyName('status').AsInteger < 3) and (FieldbyName('repdone').AsInteger = 0)
         and (FieldbyName('risiko').AsInteger > 1) then begin
           case FieldbyName('risiko').AsInteger of
            2 : begin
                 if Now() > yOverDue then begin
                   HRC_MainForm.Label_Overdue.Caption := rsOverdue + ': ' + FormatDateTime('dd.mm.yyyy', yOverDue) + ' (' + DateTimeDiff(yOverDue, Now()) + ')';
                   HRC_MainForm.Panel_Overdue.Visible := True;
                 end;
                end;
            3 : begin
                  if Now() > rOverDue then begin
                    HRC_MainForm.Label_Overdue.Caption := rsOverdue + ': '  + FormatDateTime('dd.mm.yyyy',rOverDue) + ' (' + DateTimeDiff(rOverDue,Now()) + ')';
                    HRC_MainForm.Panel_Overdue.Visible := True;
                  end;
                end;
            end;
           end
          else
           begin
             HRC_MainForm.Panel_Overdue.Visible := False;
           end;
        // View Last- & Next Reminder
        if (AppConfig.RemindStatus = 1) and (AppConfig.AutoRemind > 0) then
           begin
            case AppConfig.RemindBlocked of
              0: if (FieldByName('status').AsInteger < 3) and (FieldByName('remind').Value <> NULL) then
                   begin
                    HRC_MainForm.Label_LastRemindDate.Caption := rsLastReminder + ': ' + FormatDateTime('dd.mm.yyyy', FieldByName('remind').AsDateTime);
                    HRC_MainForm.Label_NextRemindDate.Caption := rsNextReminder + ' (' + IntToStr(AppConfig.AutoRemind) + ' ' + rsDays + '): ' + FormatDateTime('dd.mm.yyyy', IncDay(FieldByName('remind').AsDateTime, AppConfig.AutoRemind));
                     // ACHTUNG! Schreibzugriff -> if (User.rRepE = 1) then
                     if (User.rRepE = 1) and ((Now() > yOverDue) or (Now() > rOverDue)) then HRC_MainForm.ToolButton_RepResetReminder.Enabled := True;
                   end;
              1: if (FieldByName('status').AsInteger <= 3) and (FieldByName('remind').Value <> NULL) then
                   begin
                    HRC_MainForm.Label_LastRemindDate.Caption := rsLastReminder + ': ' + FormatDateTime('dd.mm.yyyy', FieldByName('remind').AsDateTime);
                    HRC_MainForm.Label_NextRemindDate.Caption := rsNextReminder + ' (' + IntToStr(AppConfig.AutoRemind) + ' ' + rsDays + '): ' + FormatDateTime('dd.mm.yyyy', IncDay(FieldByName('remind').AsDateTime, AppConfig.AutoRemind));
                     // ACHTUNG! Schreibzugriff -> if (User.rRepE = 1) then
                     if (User.rRepE = 1) and ((Now() > yOverDue) or (Now() > rOverDue)) then HRC_MainForm.ToolButton_RepResetReminder.Enabled := True;
                   end;
               end;
            end;
 
....