В ответ на какую транзакцию приходят такие сообщения? Есть возможность предоставить фрагмент кода с описанием функции pfTransReplyCB?
//--- Transaction callback --- procedure pfTransReplyCB; var i: integer; Child: TMDIChild; begin for i:= 0 to MainForm.MDIChildCount - 1 do begin Child:= TMDIChild(MainForm.MDIChildren[i]); if(Child <> nil) then begin if(dwTransId = Child.Expert.TransID) then begin if(nTransactionResult = TRANS2QUIK_SUCCESS) then begin if(nOrderNum > 0) then Child.Expert.FOrder:= nOrderNum else //Get order done begin Child.FExpert.FTrRes:= nTransactionResult; Child.FExpert.FExCode:= nTransactionExtendedErrorCode; Child.FExpert.FTCode:= nTransactionReplyCode; Child.FExpert.FRepMess:= lpcstrTransactionReplyMessage; Child.FExpert.FStopTrading:= true; Child.Expert.FTransBusy:= false; //Stop trading Child.FExpert.FErrorEvent.SetEvent; end; end else begin Child.FExpert.FTrRes:= nTransactionResult; Child.FExpert.FExCode:= nTransactionExtendedErrorCode; Child.FExpert.FTCode:= nTransactionReplyCode; Child.FExpert.FRepMess:= lpcstrTransactionReplyMessage; Child.FExpert.FStopTrading:= true; Child.Expert.FTransBusy:= false; //Stop trading Child.FExpert.FErrorEvent.SetEvent; end; break; end else //--- Enter order --- if(dwTransId = Child.Expert.EnterOrder.TransId) then begin if(nTransactionResult = TRANS2QUIK_SUCCESS) then begin if(nOrderNum > 0) then begin Child.FExpert.FEnterOrder.Order:= nOrderNum; end; end else begin Child.FExpert.FEnterOrder.isBusy:= false; Child.FExpert.FTrRes:= nTransactionResult; Child.FExpert.FExCode:= nTransactionExtendedErrorCode; Child.FExpert.FTCode:= nTransactionReplyCode; Child.FExpert.FRepMess:= lpcstrTransactionReplyMessage; Child.FExpert.FStopTrading:= true; Child.Expert.FTransBusy:= false; //Stop trading Child.FExpert.FErrorEvent.SetEvent; end; break; end else //--- Exit order --- if(dwTransId = Child.Expert.ExitOrder.TransId) then begin if(nTransactionResult = TRANS2QUIK_SUCCESS) then begin if(nOrderNum > 0) then Child.FExpert.FExitOrder.Order:= nOrderNum; end else begin Child.FExpert.FExitOrder.isBusy:= false; Child.FExpert.FTrRes:= nTransactionResult; Child.FExpert.FExCode:= nTransactionExtendedErrorCode; Child.FExpert.FTCode:= nTransactionReplyCode; Child.FExpert.FRepMess:= lpcstrTransactionReplyMessage; Child.FExpert.FStopTrading:= true; Child.Expert.FTransBusy:= false; //Stop trading Child.FExpert.FErrorEvent.SetEvent; end; break; end; end; end; end;
