TB撤单指令及后续修改

张咏

1. Vars
   
2.         Numeric nCount;
   
3.         Numeric nEntryFlag;
   
4.         Numeric OrderPrice(9999999);
   
5.         String orderNo;
   
6.         Numeric i;
   
7. Begin
   
8.         If(BarStatus==0)
   
9.         {
   
10.                 SetGlobalVar(0,0);
    
11.         }
    
12.         nCount = A_GetOpenOrderCount();
    
13.         If(nCount==InvalidInteger) Return;
    
14.         If(GetGlobalVar(0)==0)
    
15.         {
    
16.         For i = 1 To nCount
    
17.         {
    
18.                         nEntryFlag = A_OpenOrderEntryOrExit(i);//取得开平仓类型
    
19.                         If(orderprice>A_OpenOrderPrice(i) && nEntryFlag == Enum_Entry)
    
20.                         {
    
21.                                 OrderPrice=A_OpenOrderPrice(i);
    
22.                                 orderNo=A_OpenOrderContractNo(i);
    
23.                         }
    
24.         }
    
25.                 A_DeleteOrder(OrderNO);
    
26.                 SetGlobalVar(0,1);
    
27.         }
    
28.                
    
29. 
    
30.                
    
31. End

复制代码