如何复核A函数取帐户持仓是否正确 - 开拓者期货期权程序化系统交易论坛

//------------------------------------------------------------------------
// 简称: test3
// 名称:
// 类别: 公式应用
// 类型: 用户应用
//------------------------------------------------------------------------
Params
Numeric jyss(0); //固定手数下单数量
Numeric offSet(10); //委托价格偏移跳数，为了保证成交
Vars
Numeric qC;
Numeric qH;
Numeric qL;
Numeric HasSendbuy(0); //发送buy标志
Numeric HasSendsell(0); //发送sell标志
Numeric HasSendSellShort(0);//发送 SellShort标志
Numeric HasSendBuyToCover(0);//发送BuyToCover标志
Numeric wtpyl; //委托偏移量
Numeric TickCount;//Tick计数器
Numeric NumValue;
Begin
qH = h[1];
qL = l[1];
wtpyl= offSet*MinMove*PriceScale; //委托偏移量
//-------------------始化全局变量-----------------------------
if ( BarStatus==0 )
{
TickCount =0;
HasSendbuy = 0;
HasSendsell = 0;
HasSendSellShort = 0;
HasSendBuyToCover = 0;
SetGlobalVar(0,TickCount); //设置为第一个全局变量
SetGlobalVar(1,HasSendbuy);
SetGlobalVar(2,HasSendsell);
SetGlobalVar(3,HasSendSellShort);
SetGlobalVar(4,HasSendBuyToCover);
}
//--------------------实时交易---------------------------
If(!CallAuctionFilter()) Return; //等待开盘
IF (BarStatus==2&&AccountDataExist==True )//实时交易
{
TickCount = GetGlobalVar(0);//取前一Tick全局变量值
HasSendbuy = GetGlobalVar(1);
HasSendsell = GetGlobalVar(2);
HasSendSellShort = GetGlobalVar(3);
HasSendBuyToCover = GetGlobalVar(4);
if (A_BuyPosition==InvalidNumeric)//检测账户持仓数据是否有效
{
Alert("帐户多头持仓数据无效，检查原因！");
Return;
}
if (A_SellPosition==InvalidNumeric)
{
Alert("帐户空头持仓数据无效，检查原因！");
Return;
}
TickCount =TickCount+1;
SetGlobalVar(0,TickCount);
if (TickCount==1)//第一个tick把帐户持仓数据更新到数据库
{
SetTBProfileString("TotalPosition",Symbol,Text(A_TotalPosition));
}
NumValue =Value(GetTBProfileString("TotalPosition",Symbol));//取数据库持仓数据
if (NumValue<>A_TotalPosition) //与最新柜台数据比较
{
Alert("账户持仓本地记录与柜台数据不符，检查原因！");
Return;
}
//----------------------做多------------------------------
if (A_BuyPosition==0&&HasSendbuy==0&&Q_Last>qH)//开多
{
SetTBProfileString("TotalPosition",Symbol,Text(jyss));//开多手数记录到数据库
A_SendOrder(Enum_Buy,Enum_Entry,jyss,Min(Q_UpperLimit,Q_AskPrice+wtpyl));
HasSendbuy = 1;//开仓后，禁止重复发单
SetGlobalVar(1,HasSendbuy);
HasSendsell = 0;//开仓后，允许平仓
SetGlobalVar(2,HasSendsell);
}
if (A_BuyPosition>0&&HasSendsell==0&&Q_Last<qL )//跌破前低平多
{
SetTBProfileString("TotalPosition",Symbol,Text(A_BuyPosition));//平多手数记录到数据库
A_SendOrder(Enum_Sell,Enum_Exit,A_BuyPosition,Max(Q_LowerLimit,Q_BidPrice-wtpyl));
HasSendsell = 1;
SetGlobalVar(2,HasSendsell);
HasSendbuy = 0;//平仓后允许开多仓
SetGlobalVar(1,HasSendbuy);
}
//-------------------------放空-------------------------------
if (A_SellPosition==0&&HasSendSellShort==0&&Q_Last<qL)//开空
{
SetTBProfileString("TotalPosition",Symbol,Text(-1*jyss));//开空手数记录到数据库
A_SendOrder(Enum_Sell,Enum_Entry,jyss,Max(Q_LowerLimit,Q_BidPrice-wtpyl));
HasSendSellShort = 1;
SetGlobalVar(3,HasSendSellShort);
HasSendBuyToCover = 0;
SetGlobalVar(4,HasSendBuyToCover);
}
if (A_SellPosition>0&&HasSendBuyToCover==0&&Q_Last>qH )//超越前高平空
{
SetTBProfileString("TotalPosition",Symbol,Text(-1*A_SellPosition));//平空手数记录到数据库
A_SendOrder(Enum_buy,Enum_Exit,A_SellPosition,Min(Q_UpperLimit,Q_AskPrice+wtpyl));
HasSendBuyToCover = 1;
SetGlobalVar(4,HasSendBuyToCover);
HasSendSellShort = 0;
SetGlobalVar(3,HasSendSellShort);
}
}
End
//------------------------------------------------------------------------
// 编译版本 GS2015.12.25
// 用户版本 2016/08/01 06:59:50
// 版权所有 laofu602
// 更改声明 TradeBlazer Software保留对TradeBlazer平台
// 每一版本的TradeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

复制代码