Changeset 1679 for cprs/trunk/CPRS-Chart/Orders/fOtherSchedule.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Orders/fOtherSchedule.pas (modified) (2 diffs)

cprs/trunk/CPRS-Chart/Orders/fOtherSchedule.pas

@@ -66 +66 @@
     procedure btnSchRemoveClick(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure NSScboScheduleExit(Sender: TObject);
+    procedure NSScboScheduleKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
   private
     FDaySchedule: array [1..7] of string;
@@ -683 +686 @@
 end;
 
+procedure TfrmOtherSchedule.NSScboScheduleExit(Sender: TObject);
+begin
+  inherited;
+  if Pos(CRLF, NSScboSchedule.Text)> 0 then
+    begin
+      NSScboSchedule.Text := '';
+      NSScboSchedule.ItemIndex := -1;
+      Application.MessageBox('Schedule field cannot contain a control character. Please select a valid unique schedule from the list.' +CRLF +
+                             'Or remove the schedule text from the schedule list and select specific times from the administration times list.',
+                              'Incorrect Schedule.');
+      NSScboSchedule.SetFocus;
+    end;
+  if (NSScboSchedule.Text <> '') and (NSScboSchedule.ItemIndex = -1) then
+    begin
+      Application.MessageBox('Please select a valid unique schedule from the list.' +CRLF +
+                             'Or remove the schedule text from the schedule list and select specific times from the administration times list.',
+                              'Incorrect Schedule.');
+      NSSCboSchedule.Text := '';
+      NSScboSchedule.SetFocus;
+    end;
+
+end;
+
+procedure TfrmOtherSchedule.NSScboScheduleKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  if (Key = VK_BACK) and (NSScboSchedule.Text = '') then NSScboSchedule.itemindex:= -1;
+end;
+
 procedure TfrmOtherSchedule.lstMinuteKeyDown(Sender: TObject;
   var Key: Word; Shift: TShiftState);