管理員救命.單程序老出問題，老會多補一手，然后平掉.

作者：開拓者 TB 來源：cxh99.com 發布時間：2012年08月30日

咨詢內容： sjdc=A_buyPosition;
sjkc=A_SellPosition;
FileAppend("D:\\false.txt","實際多倉校驗前"+Text(sjdc));
FileAppend("D:\\false.txt","實際多倉校驗前"+Text(sjkc));
If(sjdc!=InvalidNumeric and sjkc!=InvalidNumeric)
{ If(A_GetOpenOrderCount()>0 )// and  (CurrentTime-A_OpenOrderTime(0))*1000000>2
{FileAppend("D:\\false.txt","未成交掛單前"+Text(A_GetOpenOrderCount()));
A_DeleteOrder(A_OpenOrderContractNo());
}
FileAppend("D:\\false.txt","未成交掛單后"+Text(A_GetOpenOrderCount()));
If(A_GetOpenOrderCount()==0 )
{if(MyRealMP>=0)
{If(sjkc>0)
{A_SendOrder(Enum_buy,Enum_Exit,sjkc,Q_askPrice);
}else
   If(sjdc>MyRealMP*EveryLots)
{ A_SendOrder(Enum_sell,Enum_Exit,sjdc-MyRealMP,Q_BidPrice);
}else
   if(sjdc<MyRealMP*EveryLots)
{A_SendOrder(Enum_buy,Enum_Entry,MyRealMP-sjdc,Q_AskPrice);
}
}
   IF(MyRealMP<0)
{If(sjdc>0)//實際多倉，A_sellpositon==NA
{A_SendOrder(Enum_Sell,Enum_Exit,sjdc,Q_BidPrice);
}else
   if(sjkc>Abs(MyRealMP)*EveryLots)
{A_SendOrder(Enum_buy,Enum_Exit,sjkc-Abs(MyRealMP),Q_AskPrice);
}else
   if(sjkc<Abs(MyRealMP)*EveryLots)
{A_SendOrder(Enum_Sell,Enum_Entry,Abs(MyRealMP)-sjkc,Q_BidPrice);
}
}

}
}
FileAppend("D:\\false.txt","實際多倉校驗后"+Text(A_buyPosition));
FileAppend("D:\\false.txt","實際多倉校驗后"+Text(A_buyPosition));
TB技術人員： 交易的時候該補1手多單，老是會先開2手多單，再平掉1手。或者先開3手再平2手。有時候是正常的