Ignore:
Timestamp:
Jun 16, 2010, 8:23:07 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

Bug fixes. Improved Adding Image

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/uLogic.pas

    r800 r801  
    973973    cmd := cmd + '^' + FileNum + '^' + StartFrom + '^' + IntToStr(Direction) + '^^' + GetSimple;
    974974    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    975     RPCBrokerV.Call;
     975    //RPCBrokerV.Call;
     976    CallBroker;
    976977    if RPCBrokerV.Results.Count > 0 then begin
    977978      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    … …  
    10081009    RPCBrokerV.param[0].ptype := list;
    10091010    RPCBrokerV.Param[0].Mult['"REQUEST"'] := 'IS WP FIELD^' + FileNum + '^' + FieldNum;
    1010     RPCBrokerV.Call;
     1011    //RPCBrokerV.Call;
     1012    CallBroker;
    10111013    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    10121014    if piece(RPCResult,'^',1)='-1' then begin
    … …  
    10751077    cmd := cmd + '^' + FileNum + '^' + StartFrom + '^' + IntToStr(Direction) + '^^' + GetSimple;
    10761078    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    1077     RPCBrokerV.Call;
     1079    //RPCBrokerV.Call;
     1080    CallBroker;
    10781081    if RPCBrokerV.Results.Count > 0 then begin
    10791082      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    … …  
    11061109    cmd := cmd + '^' + FileNum + '^' + StartFrom + '^' + IntToStr(Direction);
    11071110    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    1108     RPCBrokerV.Call;
     1111    //RPCBrokerV.Call;
     1112    CallBroker;
    11091113    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    11101114    if piece(RPCResult,'^',1)='-1' then begin
Note: See TracChangeset for help on using the changeset viewer.