Changeset 829 for cprs/trunk/CPRS-Chart/Orders/fOrderFlag.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Orders/fOrderFlag.pas (modified) (5 diffs)

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, ORCtrls;
+  fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, ORCtrls, VA508AccessibilityManager;
 
 type
   TfrmFlagOrder = class(TfrmAutoSz)
-    txtReason: TCaptionEdit;
     Label1: TLabel;
     cmdOK: TButton;
@@ -16 +15 @@
     lblAlertRecipient: TLabel;
     cboAlertRecipient: TORComboBox;
+    cboFlagReason: TORComboBox;
     procedure FormCreate(Sender: TObject);
     procedure cmdOKClick(Sender: TObject);
@@ -51 +51 @@
       if OKPressed then
       begin
-        FlagOrder(AnOrder, txtReason.Text, AlertRecip);
+        FlagOrder(AnOrder, cboFlagReason.Text, AlertRecip);
         Result := True;
       end;
@@ -62 +62 @@
 
 procedure TfrmFlagOrder.FormCreate(Sender: TObject);
+var
+  tmpList: TStringList;
 begin
   inherited;
   OKPressed := False;
+  tmpList := TStringList.Create;
+  try
+    GetUserListParam(tmpList, 'OR FLAGGED ORD REASONS');
+    FastAssign(tmpList, cboFlagReason.Items);
+  finally
+    tmpList.Free;
+  end;
   cboAlertRecipient.InitLongList('');
   //cboAlertRecipient.SelectByIEN(User.DUZ);
@@ -75 +84 @@
 begin
   inherited;
-  if txtReason.Text = '' then
+  if cboFlagReason.Text = '' then
+  //if txtReason.Text = '' then
   begin
     InfoBox(TX_REASON_REQ, TC_REASON_REQ, MB_OK);