Changeset 793 for cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/EditTextU.pas

Timestamp:

Jun 10, 2010, 3:13:12 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/EditTextU.pas (modified) (2 diffs)

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

@@ -101 +101 @@
     cmd := 'GET ONE WP FIELD^' + FileNum + '^' + FieldNum + '^' + IENS;
     RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd; 
-    RPCBrokerV.Call;
+    //RPCBrokerV.Call;
+    CallBroker;
     RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
     if piece(RPCResult,'^',1)='-1' then begin
@@ -131 +132 @@
     RPCBrokerV.param[0].ptype := list;
     cmd := 'POST WP FIELD^' + FileNum + '^' + FieldNum + '^' + IENS;
-    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd; 
+    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
     for i := 0 to Lines.Count-1 do begin
-      RPCBrokerV.Param[0].Mult['"' + IntToStr(i+1) + '"'] := Lines.Strings[i]; 
+      RPCBrokerV.Param[0].Mult['"' + IntToStr(i+1) + '"'] := Lines.Strings[i];
     end;
-    RPCBrokerV.Call;
+    //RPCBrokerV.Call;
+    CallBroker;
     RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
     if piece(RPCResult,'^',1)='-1' then begin