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

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

@@ -22 +22 @@
 procedure PopKeyVars(NumLevels: Integer = 1);
 procedure PushKeyVars(const NewVals: string);
+procedure ExpandOrderObjects(var Txt: string; var ContainsObjects: boolean; msg: string = '');
 
 implementation
+
+uses
+  dShared, Windows, rTemplates;
 
 var
@@ -118 +122 @@
 end;
 
+procedure ExpandOrderObjects(var Txt: string; var ContainsObjects: boolean; msg: string = '');
+var
+  ObjList: TStringList;
+  Err: TStringList;
+  i, j, k, oLen: integer;
+  obj, ObjTxt: string;
+const
+  CRDelim = #13;
+  TC_BOILER_ERR  = 'Order Boilerplate Object Error';
+  TX_BOILER_ERR  = 'Contact IRM and inform them about this error.' + CRLF +
+                   'Make sure you give them the name of the quick' + CRLF +
+                   'order that you are processing.' ;
+begin
+  ObjList := TStringList.Create;
+  try
+    Err := nil;
+    if(not dmodShared.BoilerplateOK(Txt, CRDelim, ObjList, Err)) and (assigned(Err)) then
+    begin
+      try
+        Err.Add(CRLF + TX_BOILER_ERR);
+        InfoBox(Err.Text, TC_BOILER_ERR, MB_OK + MB_ICONERROR);
+      finally
+        Err.Free;
+      end;
+    end;
+    if(ObjList.Count > 0) then
+    begin
+      ContainsObjects := True;
+      GetTemplateText(ObjList);
+      i := 0;
+      while (i < ObjList.Count) do
+      begin
+        if(pos(ObjMarker, ObjList[i]) = 1) then
+        begin
+          obj := copy(ObjList[i], ObjMarkerLen+1, MaxInt);
+          if(obj = '') then break;
+          j := i + 1;
+          while (j < ObjList.Count) and (pos(ObjMarker, ObjList[j]) = 0) do
+            inc(j);
+          if((j - i) > 2) then
+          begin
+            ObjTxt := '';
+            for k := i+1 to j-1 do
+              ObjTxt := ObjTxt + #13 + ObjList[k];
+          end
+          else
+            ObjTxt := ObjList[i+1];
+          i := j;
+          obj := '|' + obj + '|';
+          oLen := length(obj);
+          repeat
+            j := pos(obj, Txt);
+            if(j > 0) then
+            begin
+              delete(Txt, j, OLen);
+              insert(ObjTxt, Txt, j);
+            end;
+          until(j = 0);
+        end
+        else
+          inc(i);
+      end
+    end;
+  finally
+    ObjList.Free;
+  end;
+end;
+
 initialization
   uOrderEventType := #0;