Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.pas (modified) (13 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.pas

@@ -35 +35 @@
     memMessage: TMemo;
     Splitter1: TSplitter;
+    btnAdd: TButton;
+    Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure btnCancelClick(Sender: TObject);
@@ -55 +57 @@
     procedure lstMinuteKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure Button1Click(Sender: TObject);
   private
     FDaySchedule: array [1..7] of string;
@@ -66 +69 @@
     procedure UpdateOnFreeTextInput;
     function CheckDay(ADayStr: string): string;
+    
   public
   end;
@@ -87 +91 @@
    if frmOtherSchedule.ShowModal = mrOK then
    begin
-     ASchedule := frmOtherSchedule.FOtherSchedule;
+     ASchedule := UpperCase(frmOtherSchedule.FOtherSchedule);
      Result := True;
    end;
@@ -121 +125 @@
 procedure TfrmOtherSchedule.btn0k1Click(Sender: TObject);
 begin
+  if (cbo1.Checked = false) and (cbo2.Checked = false) and (cbo3.Checked = false) and (cbo4.Checked = false) and (cbo5.Checked = false) and
+    (cbo6.Checked = false) and (cbo7.Checked = false) then
+    begin
+      ShowMessage('A day of week must be selected!');
+      Exit;
+    end;
   if not IsValidSchStr(FOtherSchedule) then
   begin
@@ -176 +186 @@
 var
   i : integer;
-  TimePart, DayPart: string;
+  TimePart, DayPart,APRN,ASearchTxt: string;
 begin
   TimePart := '';
   DayPart := '';
+  APRN := '';
+  ASearchTxt := UpperCase(txtSchedule.Text);
+  if StrPos(PChar(ASearchTxt),PChar('PRN')) <> nil then APRN := ' PRN'; //hds8326 retain PRN free text if data time entered
   for i := 0 to FTimeSchedule.Count - 1 do
   begin
@@ -201 +214 @@
   end
   else FOtherSchedule := TimePart;
+  if Length(APRN) > 0 then FOtherSchedule := FOtherSchedule + APRN; //hds8326 retain PRN free text if data time entered
   txtSchedule.Text := FOtherSchedule;
 end;
@@ -368 +382 @@
   var
     idx: integer;
+    x: string;
   begin
     for idx := aDList.Count - 1 downto 0 do
     begin
+    // cq hds8326 PRN entered manually split PRN from DOW to retain last DOW
+      x := UpperCase(aDList.Strings[idx]); // added to properly process DOW when followed by a space "PRN".
+      if Piece(x,' ',2) = 'PRN' then
+         aDLIst.Strings[idx] := Piece(x,' ',1);
+    // cq hds8326
       if ((CheckDay(aDList[idx]) = 'SUN') or (CheckDay(aDList[idx]) = 'SU')) then
         begin
@@ -419 +439 @@
 begin
   inherited;
-  i := 0;
   dayStr  := '';
   timeStr := '';
@@ -437 +456 @@
   begin
     Val(Piece(txtSchedule.Text,'-',1), i, Code);
+    if i = 0 then begin end;  // just to make compiler not give hint
     if Code <> 0 then dayStr := Trim(txtSchedule.Text)
     else timeStr := Trim(txtSchedule.Text);
@@ -463 +483 @@
 begin
   inherited;
-  lstMinute.ItemIndex := -1;
+  if lstMinute.ItemIndex = -1 then lstMinute.ItemIndex :=0;
 end;
 
@@ -509 +529 @@
   FFromCheckBox := True;
   if lstHour.ItemIndex < 0 then Exit;
-  btnAddClick(Self);
+  //btnAddClick(Self);
   FFromCheckBox := False;
 end;
@@ -521 +541 @@
     FFromCheckBox := True;
     if lstHour.ItemIndex < 0 then Exit;
-    btnAddClick(Self);
+    //btnAddClick(Self);
     FFromCheckBox := False;
   end;
 end;
 
+procedure TfrmOtherSchedule.Button1Click(Sender: TObject);
+begin
+  inherited;
+   cbo1.Checked := true;
+   cbo2.Checked := true;
+   cbo3.Checked := true;
+   cbo4.Checked := true;
+   cbo5.Checked := true;
+   cbo6.Checked := true;
+   cbo7.Checked := true;
+end;
+
 end.