关于市价委托的问题 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

2015-06-01 11:29:57.399 【下单】603883 价0.000000 量2000 买卖1 类型1 开平2 账户31327510 Formula 1

2015-06-01 11:29:57.399 【下单】603883 价0.000000 量2000 买卖1 类型1 开平2 账户xxxxxx Formula 1

2015-06-01 11:30:01.845 【下单】603883 价0.000000 量2000 买卖1 类型1 开平2 账户xxxxxx Formula 1

2015-06-01 11:30:01.861 【下单】603883 价0.000000 量2000 买卖1 类型1 开平2 账户xxxxxx Formula 1

2015-06-01 13:16:29.232 【下单】603883 价0.000000 量2000 买卖1 类型1 开平2 账户xxxxxx Formula 1

2015-06-01 13:31:23.554 【下单】603883 价0.000000 量2000 买卖1 类型1 开平1 账户xxxxxx Formula 1

2015-06-01 13:31:23.601 【指令】收到回报指令 ID = 51

2015-06-01 13:31:23.632 【回报】xxxxxx : 603883 - 已报单 2000 价格:0.00 平卖

2015-06-01 13:31:24.178 【指令】收到成交回报指令 ORDERID = 51

2015-06-01 13:31:24.178 【回报】xxxxxx : 603883 - 已成交 1000 价格:90.39 平卖

2015-06-01 13:31:24.178 【指令】收到成交回报指令 ORDERID = 51

2015-06-01 13:31:24.194 【回报】xxxxxx : 603883 - 已成交 1000 价格:90.39 平卖

2015-06-01 13:31:24.194 【回报】xxxxxx : 603883 - 全部成交 2000

前5笔委托是程序化运行时止损自动发出的指令，第6笔委托是我发现没有成交后，手动按钮发出的。

自动止损止盈程序:

Sub MarketData_ReportNotify(ReportData)

NEWPRICE = ReportData.NewPrice

Market=ReportData.MarketName

Code=ReportData.Label

Holding=Document.GetExtData(Market+"_"+Code+"_"+"持仓数量")

HoldingPrice=Document.GetExtData(Market+"_"+Code+"_"+"持仓价格")

StopwinPrice=Document.GetExtData(Market+"_"+Code+"_"+"移动止损")

StopMovePrice=Document.GetExtData(Market+"_"+Code+"_"+"目标止盈")

FristLossPrice=Document.GetExtData(Market+"_"+Code+"_"+"初始止损")

Account=Document.GetExtString(Market+"_"+Code+"_"+"持仓账户")

IF Holding>0 THEN

If FristLossPrice>0 AND NewPrice<=FristLossPrice AND OnlyKey<>-1 Then '初始止损

Call Order.Sell(1,Holding,0,0,Code,Market,Account,0)

OnlyKey=-1

EXIT SUB

End If

If StopwinPrice>0 AND NewPrice<=StopwinPrice AND OnlyKey<>-1 Then '移动止盈

Call order.Sell(1,Holding,0,0,Code,Market,Account,0)

OnlyKey=-1

EXIT SUB

END IF

If StopMovePrice>0 AND NewPrice>StopMovePrice AND StopMovePrice>HoldingPrice AND OnlyKey<>-1 Then '目标止盈

Call order.Sell(1,Holding,0,0,Code,Market,Account,0)

OnlyKey=-1

EXIT SUB

END IF

End Sub

手动平仓按钮程序:

'------------------------------------------------------------------------------------------------平仓

Sub BuySell_CommandButton2_Click()

Set GridA = Buy.GetGridByName("Main")

MARKET=GridA.Market

Code=GridA.StockLabel

Account=BuySell_ComboBox1.Text

maxholding=Csng(BuySell_TextBox13.Value)

IF maxholding>0 THEN

Call Order.Sell(1,maxholding,0,0,Code,Market,Account,0)

END IF

End SUB

主题：关于市价委托的问题