欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件金字塔软件问题提交 → 3.0的正式什么时候出

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有3250人关注过本帖树形打印复制链接

主题:3.0的正式什么时候出

帅哥哟,离线,有人找我吗?
klc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:993 积分:1787 威望:0 精华:5 注册:2012/11/28 17:37:20
  发帖心情 Post By:2013/8/7 17:43:05 [显示全部帖子]

测试重点应该在同步持仓,大家可以写段代码自己监控下是否持仓一致,不一致发email通知:

 

我有一点代码大家可以参考:

 

首先把公式的holding写到全局变量中(EXTGBDATA),比较简单,这个就不给代码了

 

VBA监控代码:

Holding = Document.GetExtData("IFHOLDING")

dim BuyHoding
 dim BuyTodayHoding
 dim SellHoding
 dim SellTodayHoding
 dim BuyCost
 dim SellCost
 dim PNL
 Dim UseMargin

strcon = ""

Result = Order.HoldingInfoByCode2("IF08","ZJ",BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin,"资金账户账号")
 If Result = 1 Then
  if Round(BuyHoding-SellHoding)<>Round(Holding) then
   strcon = strcon & code(0) & "持仓不同步,实际持仓" & Round(BuyHoding-SellHoding) & "手,应为" & Holding & "手" & vbCrLf
  end if
 End If

以上VBA代码可根据自己的需要每隔一段时间运行一次(例如1分钟循环检查),例子是监控IF08,看你交易的是什么了


 回到顶部