Changeset 801 for cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtQuery.pas

Timestamp:

Jun 16, 2010, 8:23:07 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Bug fixes. Improved Adding Image

File:

• cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtQuery.pas (modified) (3 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtQuery.pas

@@ -105 +105 @@
     cmd := cmd + '^' + JobNumber;
     RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
-    RPCBrokerV.Call;
+    //RPCBrokerV.Call;
+    CallBroker;
     if RPCBrokerV.Results.Count > 0 then begin
       RPCResult := RPCBrokerV.Results[0]
@@ -126 +127 @@
     cmd := cmd + '^' + SearchFileNumber + '^' + SearchString;
     RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
-    RPCBrokerV.Call;
+    //RPCBrokerV.Call;
+    CallBroker;
     if RPCBrokerV.Results.Count > 0 then begin
       RPCResult := RPCBrokerV.Results[0]
@@ -150 +152 @@
     cmd := cmd + '^' + JobNumber + '^' + FldNum;
     RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
-    RPCBrokerV.Call;
+    //RPCBrokerV.Call;
+    CallBroker;
 
     frmRPCResults.listRPCResults.Clear;