Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMVerify.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/fOMVerify.pas (modified) (3 diffs)

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

@@ -30 +30 @@
 {$R *.DFM}
 
-uses ORFn, uConst, fFrame, rMisc;
+uses ORFn, uConst, fFrame, rMisc, uODBase;
 
 procedure ShowVerifyText(var QuickLevel: Integer; var VerifyText: string; InptDispGrp: boolean);
@@ -37 +37 @@
   tempStrs,prompts: TStringList;
   flag: boolean;
+  HasObjects: boolean;
 
   function CutoffOutptPrompts(const promptIDs: TStringList; var promptList: TStringList): boolean;
@@ -83 +84 @@
       SetBounds(frmFrame.Left, frmFrame.Top + frmFrame.Height - Height, Width, Height);
       SetFormPosition(frmOMVerify);
+      ExpandOrderObjects(VerifyText, HasObjects);
       memText.Lines.SetText(PChar(VerifyText));
       ShowModal;