Changeset 829 for cprs/trunk/CPRS-Chart/Templates/uTemplates.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/Templates/uTemplates.pas (modified) (16 diffs)

cprs/trunk/CPRS-Chart/Templates/uTemplates.pas

@@ -253 +253 @@
 function MakeXMLParamTIU(ADCSummID: string; ADCSummRec: TEditDCSummRec): string;  overload;
 function GetXMLParamReturnValueTIU(DocInfo, ParamTag: string): string;
+procedure UpdatePersonalObjects;
+procedure SetTemplateDialogCanceled(value: Boolean);
+function WasTemplateDialogCanceled: Boolean;
+procedure SetTemplateBPHasObjects(value: Boolean);
+function TemplateBPHasObjects: Boolean;
 
 const
@@ -278 +283 @@
   ConsultsTemplate: TTemplate = nil;
   ProceduresTemplate: TTemplate = nil;
+  uPersonalObjects: TStringList = nil;   // -------- CQ #8665 - RV ------------
 
 implementation
@@ -283 +289 @@
 uses
   Windows, rTemplates, uCore, dShared, fTemplateDialog, ActiveX, ComObj, uTemplateFields,
-  XMLUtils, fTemplateImport, Word97, uSpell, rCore, uConst, ORCtrls, uEventHooks,
-  fReminderDialog, rODBase;
+  XMLUtils, fTemplateImport, uSpell, rCore, uConst, ORCtrls, uEventHooks,
+  fReminderDialog, rODBase
+  {$IFDEF VER140}
+  , Word97;
+  {$ELSE}
+  , WordXP, VAUtils;
+  {$ENDIF}
 
 const
@@ -311 +322 @@
   uDGroupConsults: integer = 0;
   uDGroupProcedures: integer = 0;
+  uTemplateDialogCanceled: Boolean = FALSE;
+  uTemplateBPHasObjects: Boolean = FALSE;
 
 type
@@ -531 +544 @@
       try
         GetTemplateRoots;
-        TmpSL.Assign(RPCBrokerV.Results);
+        FastAssign(RPCBrokerV.Results, TmpSL);
         for i := 0 to TmpSL.Count-1 do
           AddTemplate(TmpSL[i]);
@@ -559 +572 @@
         try
           GetTemplateChildren(tmpl.FID);
-          TmpSL.Assign(RPCBrokerV.Results);
+          FastAssign(RPCBrokerV.Results, TmpSL);
           for i := 0 to TmpSL.Count-1 do
             AddTemplate(TmpSL[i], tmpl);
@@ -597 +610 @@
     TempSL := nil;
   end;
+  // -------- CQ #8665 - RV ------------
+  if (assigned(uPersonalObjects)) then
+  begin
+    KillObj(@uPersonalObjects);
+    uPersonalObjects.Free;
+    uPersonalObjects := nil;
+  end;
+  // ------end CQ #8665 ------------
   if(assigned(Deleted)) then
   begin
@@ -721 +742 @@
 begin
   if(assigned(Errors)) then
-    ShowMessage(Errors.text)
+    ShowMsg(Errors.text)
   else
-    ShowMessage(SingleError);
+    ShowMsg(SingleError);
 end;
 
@@ -865 +886 @@
         else
           DescSL.Add('5,1=@');
-        TempSL.AddStrings(DescSL)
+        FastAddStrings(DescSL, TempSL)
       finally
         DescSL.Free;
@@ -1173 +1194 @@
               WApp.Connect;
               TmpVar := AFileName;
+              {$IFDEF VER140}
               WDoc.ConnectTo(WApp.Documents.Add(TmpVar, EmptyParam));
+              {$ELSE}
+              WDoc.ConnectTo(WApp.Documents.Add(TmpVar, EmptyParam, EmptyParam, EmptyParam));
+              {$ENDIF}
               ffTotal := WDoc.FormFields.Count;
 
@@ -1307 +1332 @@
                             if tmp <> '' then
                               AddField(tfDefault, tmp);
-                            Fields.AddStrings(PendingAdd);
+                            FastAddStrings(PendingAdd, Fields);
                             PendingAdd.Clear;
                             AddFieldHeader(tmpType, FALSE);
@@ -1396 +1421 @@
                           begin
                             Fields[0] := Fields[0] + IntToStr(Integer(FldCache.Objects[i])) + '">';
-                            Data.AddStrings(Fields);
+                            FastAddStrings(Fields, Data);
                           end;
                         end;
@@ -1486 +1511 @@
 
 begin
+  SetTemplateDialogCanceled(FALSE);
+  SetTemplateBPHasObjects(FALSE);
   Template := GetLinkedTemplate(IntToStr(IEN), LType);
   if assigned(Template) then
@@ -1878 +1905 @@
       try
         TmpSL.Text := FullBoilerPlate;
+        if Pos('|', TmpSL.Text) > 0 then SetTemplateBPHasObjects(TRUE);
       finally
         if(IsDialog) then
@@ -2550 +2578 @@
         dmodShared.OnTemplateLock(Self)
       else
-        ShowMessage(Format(TemplateLockedText, [FPrintName]));
+        ShowMsg(Format(TemplateLockedText, [FPrintName]));
     end;
   end
@@ -2875 +2903 @@
 end;
 
+// -------- CQ #8665 - RV ------------
+procedure UpdatePersonalObjects;
+var
+  i: integer;
+begin
+  if not assigned(uPersonalObjects) then
+  begin
+    uPersonalObjects := TStringList.Create;
+    GetAllowedPersonalObjects;
+    for i := 0 to RPCBrokerV.Results.Count-1 do
+      uPersonalObjects.Add(Piece(RPCBrokerV.Results[i],U,1));
+    uPersonalObjects.Sorted := TRUE;
+  end;
+end;
+// -----end CQ #8665 ------------
+
+
+procedure SetTemplateDialogCanceled(value: Boolean);
+begin
+  uTemplateDialogCanceled := value;
+end;  
+
+function WasTemplateDialogCanceled: Boolean;
+begin
+  Result := uTemplateDialogCanceled;
+end;
+
+procedure SetTemplateBPHasObjects(value: Boolean);
+begin
+  uTemplateBPHasObjects := value;
+end;  
+
+function TemplateBPHasObjects: Boolean;
+begin
+  Result := uTemplateBPHasObjects;
+end;
+
 initialization
 
 finalization
   ReleaseTemplates;
-
 end.
+