以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  HoldingCalc  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=62111)
--  作者：szp
--  发布时间：2014/2/27 13:45:00
--  HoldingCalc
Sub Test()

dim longPosition,shortPosition,closableLongPosition,closableShortPosition
dim longCost,longTodayPosition,shortCost,shortTodayPosition,pnl,usedMargin
dim ret
ret=0
longCost=-1
Order.HoldingCalc=1
ret=Order.HoldingInfoByCode2("IF03","ZJ",longPosition,longCost,longTodayPosition,shortPosition,shortCost,shortTodayPosition,pnl,usedMargin)
if ret=0 and longCost=-1 then
application.MsgOut "获取持仓信息失败"
else
ret=0
longCost=-1
Order.HoldingCalc=0
ret=Order.HoldingInfoByCode2("IF03","ZJ",closableLongPosition,longCost,longTodayPosition,closableShortPosition,shortCost,shortTodayPosition,pnl,usedMargin)
if ret=0 and longCost=-1 then
application.MsgOut "lfont-family: Verdana;"> application.MsgOut "shortPosition=" & shortPosition
application.MsgOut "获取可平持仓信息失败"
else
application.MsgOut "lfont-family: Verdana;"> application.MsgOut "shortPosition=" & shortPosition
application.MsgOut "closableLfont-family: Verdana;"> application.MsgOut "closableShortPosition=" & closableShortPosition
end if
end if
End Sub

结果:

longPosition=0
shortPosition=1
closableLongPosition=0
closableShortPosition=1

实际:有一手空单持仓,但已挂出平仓单,没有成交,也就是 HoldingCalc 无效?
--  作者：王锋
--  发布时间：2014/2/27 16:12:37
--  

3.1版确实有这个问题，3.11BETA3版问题已经解决，请等待发布的新版