Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- hrc-tool:issue:125 [28.05.2023 - 11:05] – Nino
+++ hrc-tool:issue:125 [28.05.2023 - 11:26] (aktuell) – Nino
@@ Zeile 2: / Zeile 2: @@
 [[https://bt.genial-software.de/view.php?id=125|Bugtracker ID 125]]
 <code pascal>
-  yOverDue := IncDay(FieldbyName('erstellt_date').AsDateTime, + 35); // 28 Tage bis AutoRisiko + 7 Tage bis Überfällig
+  Orange := erstellt_date (DateTime) + 35  // 28 Tage bis AutoRisiko + 7 Tage bis Überfällig
-  rOverDue := IncDay(FieldbyName('erstellt_date').AsDateTime, + 7);  //  7 Tage
+  Rot    := erstellt_date (DateTime) + 7   //  7 Tage
 </code>
 <code pascal>
-....
+if (status <(=) 3) and (remind <> NULL) // (Status = 3 = gesperrt)
-      // Auto Risiko
-       if FieldByName('autorisiko').AsString <> '' then begin
+if (User.Schreibberechtigt) und (Heute > Orange) oder (Heute > Rot) then
-           HRC_MainForm.Label_MandatAutoRisiko.Caption := rsAutoRisiko + ': ' + FormatDateTime('dd.mm.yyyy',FieldByName('autorisiko').AsDateTime);
+ToolButton_ResetReminder = Aktiv
-         end;
+</code>
-       // Ü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
-: 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;
- : 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
-: 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;
-: 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;
-....
-</code>