漏单现象！

文韦

不知道为什么原因，总之，感觉网卡的时候，重复发单次数就多，网快的时候，就好点。就是因为找不出原因，才不敢用发单方式开仓。
请教检查持仓手数用那个函数？

cnbiz850

A_BuyPosition和A_SellPosition

liq77

避免重复发单的办法之一就是不要将仓位检查（A_BuyPosition和A_SellPosition）直接作为开平仓的条件之一。实在需要，就将它改由数据库数据来传递。

文韦

23# liq77

本来就不懂编程，已经很头大了。请教如何通过数据库来设置，能否举个例子，谢谢

CFXQM

我用TradeState参数储存在数据库中，代替MarketPosition。发单后修改此参数并储存。下一个Tick来了首先读取此参数。由于此参数已修改，因此不会再次发单。发单是用的A函数，价格是(Q_AskPrice+MinPoint)或(Q_BidPrice-MinPoint)，最大限度保证单子能成交。发单后过几个TICK用A_BuyPosition和A_SellPosition检查交易是否成功（也可过几秒检查）。

文韦

25# CFXQM

谢谢!能否发一段代码?实在是不懂.不好意思

CFXQM

1. //初始化
   
2.         If(BarStatus==0)
   
3.         {      
   
4.                                 SetGlobalVar(1,0);        //储存的是开多仓或开空仓时的控制标记
   
5.                                 SetGlobalVar(6,0);        //TICK  计数清零
   
6.                                 tradState = 0;
   
7.                                 SetTBProfileString(pKey,pKeyTradState,Text(tradState));
   
8.                                 SetTBProfileString(pKey,pKeytradeNO,Text(0));
   
9.                                 SetTBProfileString(pKey,pKeyBarMark,Text(0));
   
10.                 Return;
    
11.         }
    
12.         Else
    
13.                 {       
    
14. 
    
15.                         tradState=Value(GetTBProfileString(pKey,pKeyTradState));
    
16.                         tradeNO=  Value(GetTBProfileString(pKey,pKeytradeNO));
    
17.                         BarMark=Value(GetTBProfileString(pKey,pKeyBarMark));
    
18.                         RiQiDo=GetTBProfileString(pKey,"ruDo");// 初始化时设置,程序重启后,最后一根bar有信号，避免重复发单
    
19.                         RiQi=DateTimeToString(Date+Time);
    
20.                         RiQi=Mid(RiQi,0,18);
    
21. 
    
22.                 }
    
23. 
    
24. 
    
25. //做多执行模块
    
26.         If(tradeNO == 1 && BarMark == (CurrentBar - 1))
    
27.         {
    
28. 
    
29.                 If(BarStatus == 2 && TU_MA_CWKZ(1) && tradetime  && GetGlobalVar(1)==0 && TurtleUnits > 0)
    
30.                 {
    
31.                         If (RiQi==RiQiDo)
    
32.             {
    
33.                                 tradState=1 ;
    
34.                                 SetTBProfileString(pKey,pKeyTradState,Text(tradState));
    
35.                                 SetTBProfileString(pKey,pKeyBarMark,Text(0));
    
36.                                 SetTBProfileString(pKey,pKeytradeNO,Text(0));
    
37.                                 Return;
    
38.                         }
    
39.                         SetGlobalVar(1,1);  
    
40.                         SetTBProfileString(pKey1,name+"_B",Text(1));
    
41.                         SetTBProfileString(pKey1,name+"_S",Text(0));
    
42. 
    
43. 
    
44.                 }
    
45.                 If(GetGlobalVar(1)==1)
    
46.                 {
    
47.                         TCount = GetGlobalVar(6);
    
48.                         If(TCount==0)
    
49.                         {
    
50.                                                        
    
51.                                 if(tradState == -1)
    
52.                                         {
    
53.                                                 A_SendOrder(Enum_Buy,Enum_Exit,Lots,(Q_AskPrice+MinPoint));
    
54.                                                 TCount=TCount+1;
    
55.                                         }
    
56.                                 Else
    
57.                                 {
    
58.                                         TCount=TCount+3;
    
59.                                 }
    
60.                                         SetGlobalVar(6,TCount);
    
61.                                                        
    
62.                         }
    
63.                         Else If(TCount==3)
    
64.                         {
    
65.                                                
    
66.                                                        
    
67.                                 If(A_FreeMargin()/((Q_AskPrice+MinPoint)*ContractUnit()*BigPointValue()*MarginRatio())>Lots)
    
68.                                 {
    
69.                                         A_SendOrder(Enum_Buy,Enum_Entry,TurtleUnits,(Q_AskPrice+MinPoint));
    
70. 
    
71.                                 }
    
72.                                 TCount=TCount+1;
    
73.                                 SetGlobalVar(6,TCount);                       
    
74.                                                        
    
75.                         }
    
76.                         Else If(TCount==6)
    
77.                         {
    
78.                                 tradState=1 ;
    
79.                                 TCount=0;
    
80.                                 SetGlobalVar(1,0);
    
81.                                 SetGlobalVar(6,TCount);
    
82.                                 SetTBProfileString(pKey,pKeyTradState,Text(tradState));
    
83.                                 SetTBProfileString(pKey,pKeyBarMark,Text(0));
    
84.                                 SetTBProfileString(pKey,pKeytradeNO,Text(0));
    
85.                                 RiQiDo=DateTimeToString(Date+Time);
    
86.                                 RiQiDo=Mid(RiQiDo,0,18);
    
87.                                 SetTBProfileString(pKey,"ruDo",RiQiDo);
    
88.                                 Commentary("已买入");
    
89.                                 FileAppend(ReportPath,"时间： = "+Text(CurrentTime())+"  品种："+symbol()+"准备买多"+Text(2 * TurtleUnits)+"手 ,实际买多"+Text(A_BuyPosition())+"手 ");
    
90.                         }
    
91.                         Else
    
92.                         {
    
93.                                                        
    
94.                                 TCount=TCount+1;
    
95.                                 SetGlobalVar(6,TCount);
    
96.                                                        
    
97.                         }
    
98.                                                                                
    
99.                 }
    
100.                 Else If(BarStatus != 2 Or CurrentTime>0.150001)
     
101.                 {
     
102.                        
     
103.                         myPrice = Open + nOffset*MinPoint;
     
104.                         //Buy(lots,myPrice);
     
105.                         TradState=1;
     
106.                         BarMark=0;
     
107.                         tradeNO=0;
     
108.                         SetTBProfileString(pKey,pKeyTradState,Text(1));
     
109.                         SetTBProfileString(pKey,pKeyBarMark,Text(0));
     
110.                         SetTBProfileString(pKey,pKeytradeNO,Text(0));
     
111.                         Commentary("已买入");
     
112.                 }
     
113.         }

复制代码

文韦

非常感谢！研究一下

wanyg

高手，，感谢，下来研究一下，常常遇到这类问题，头都大了

kingforestcn

我用的是BUY+SELLSHORT+交易助手，非常偶尔的情况也出现过无法解释的现象，就是图表上有交易，但是实盘账户中没有任何动作，只好手动调整。虽然出现这种情况的频率非常低，但是确实有过。