张咏 发表于 2020-5-30 11:06:13

TB撤单指令及后续修改

Vars
      Numeric nCount;
      Numeric nEntryFlag;
      Numeric OrderPrice(9999999);
      String orderNo;
      Numeric i;
Begin
      If(BarStatus==0)
      {
                SetGlobalVar(0,0);
      }
      nCount = A_GetOpenOrderCount();
      If(nCount==InvalidInteger) Return;
      If(GetGlobalVar(0)==0)
      {
      For i = 1 To nCount
      {
                        nEntryFlag = A_OpenOrderEntryOrExit(i);//取得开平仓类型
                        If(orderprice>A_OpenOrderPrice(i) && nEntryFlag == Enum_Entry)
                        {
                              OrderPrice=A_OpenOrderPrice(i);
                              orderNo=A_OpenOrderContractNo(i);
                        }
      }
                A_DeleteOrder(OrderNO);
                SetGlobalVar(0,1);
      }
               

               
End

页: [1]
查看完整版本: TB撤单指令及后续修改