撤单后开平仓问题

106209

//开多未成交
IF TGLOBALSUBMITEX(1,'',STKLABEL ,1 )>=SEC  THEN BEGIN //如果有未成交单;未成交超过SEC秒
        TCANCELEX(1,1,'',STKLABEL);//撤单
        开多未成交数量:=TGLOBALSUBMITEX(1,'',STKLABEL,0 );
        TBUY(1,开多未成交数量,MKT,0,'','');
END


//平多未成交
IF TGLOBALSUBMITEX(2,'',STKLABEL ,1 )>=SEC  THEN BEGIN //如果有未成交单;未成交超过SEC秒
        TCANCELEX(1,2,'',STKLABEL);//撤单
        平多未成交数量:=TGLOBALSUBMITEX(2,'',STKLABEL,0 );
        TSELL(1,平多未成交数量,MKT,0,'','');
END


//开空未成交
IF TGLOBALSUBMITEX(3,'',STKLABEL ,1 )>=SEC  THEN BEGIN //如果有未成交单;未成交超过SEC秒
        TCANCELEX(1,3,'',STKLABEL);//撤单
        开空未成交数量:=TGLOBALSUBMITEX(3,'',STKLABEL,0 );
        TBUYSHORT(1,开空未成交数量,MKT,0,'','');
END


//平空未成交
IF TGLOBALSUBMITEX(4,'',STKLABEL ,1 )>=SEC  THEN BEGIN //如果有未成交单;未成交超过SEC秒
        TCANCELEX(1,4,'',STKLABEL);//撤单
        平空未成交数量:=TGLOBALSUBMITEX(4,'',STKLABEL,0 );
        TSELLSHORT(1,平空未成交数量,MKT,0,'','');
END


我使用上述代码实现未成交单撤单重新下单，撤销开多/开空未成交单后再下单开多/开空没有问题，但是撤销平多/平空未成交单后再次下单平多/平空却没有成功，这是怎么回事，请教如何解决？

资深技术05

因为你撤单也是需要和柜台进行通信的，这个过程是需要时间的。

而实际你的代码运行中，在你客户端和柜台通信完成前， 就已经执行了再次平仓的指令。

开仓没有影响是因为 你只要有资金就可以再开，但是平仓不一样，我必须有可用才能执行平仓，所以订单必须收到柜台撤单成功的回报才行。


可以考虑用全局变量做标记：
以平空为例：

[PEL] 复制代码

globalvariable:wt_pk:=0;

if tglobalsubmitex(4,'',stklabel ,1 )>=sec  then begin //如果有未成交单;未成交超过sec秒
        tcancelex(1,4,'',stklabel);//撤单
        wt_pk:=1;
end

if tsellholdingex('','',1)>0 and  wt_pk=1 then begin 
        tsellshort(1,0,mkt,0,'','');
        wt_pk:=0;
end

106209

请问我要按照撤单的数量来再次开单，这个未成交单的数量怎么取值合适？（不是用0全平持仓）

资深技术05

可以用 全局变量记录下，就像上面那个wt_pk一样 在执行撤单时候 记录下来未成交的量。

106209

实盘实验了一下，用这个方法在撤单不及时的时候仍然无法再次下单平多/平空，有没有其他方法实现呢，比如读取撤单成功后再下单，或者设置间隔时间。

资深技术05

目前没有其他方式了。撤单不及时是指什么？正常执行得话，我本地看都是正常的：
设置时间是10秒。可以检查下是不是什么地方弄错了。


或者你可以考虑用系统自带的追撤单功能试试。但是代码的撤单就要去掉，避免相互干扰。

106209

有个奇怪的现象，当我把多空未成交程序弄在一个程序里面的时候，平空未成交撤单后确实没有再下单，但是单独将平空未成交的代码弄成一个程序的时候又能再下单了
集成的账户未成交监控程序代码如下：
GLOBALVARIABLE:WT_PD:=0;PDLOTS:=0;WT_PK:=0;PKLOTS:=0;

//开多未成交
IF TGLOBALSUBMITEX(1,'',STKLABEL ,1 )>=SEC  THEN BEGIN //如果有未成交单;未成交超过SEC秒
        开多未成交数量:=TGLOBALSUBMITEX(1,'',STKLABEL,0 );
        TCANCELEX(1,1,'',STKLABEL);//撤单
        TBUY(1,开多未成交数量,MKT,0,'','');
END

//平多未成交
IF TGLOBALSUBMITEX(2,'',STKLABEL ,1 )>=SEC  THEN BEGIN //如果有未成交单;未成交超过SEC秒
        PDLOTS:=TGLOBALSUBMITEX(2,'',STKLABEL,0 );
        TCANCELEX(1,2,'',STKLABEL);//撤单
        WT_PD:=1;
//        TSELL(1,平多未成交数量,MKT,0,'','');
END

IF TBUYHOLDINGEX('','',1)>0 AND WT_PD=1 THEN BEGIN
        TSELL(1,PDLOTS,MKT,0,'','');
        WT_PD:=0;
        PDLOTS:=0;
END

//开空未成交
IF TGLOBALSUBMITEX(3,'',STKLABEL ,1 )>=SEC  THEN BEGIN //如果有未成交单;未成交超过SEC秒
        开空未成交数量:=TGLOBALSUBMITEX(3,'',STKLABEL,0 );
        TCANCELEX(1,3,'',STKLABEL);//撤单
        //        DEBUGFILE('D:\账户未成交监控.TXT',"开空未成交数量%.0F",未成交数量);
        TBUYSHORT(1,开空未成交数量,MKT,0,'','');
END

//平空未成交
IF TGLOBALSUBMITEX(4,'',STKLABEL ,1 )>=SEC  THEN BEGIN //如果有未成交单;未成交超过SEC秒
        PKLOTS:=TGLOBALSUBMITEX(4,'',STKLABEL,0 );
        TCANCELEX(1,4,'',STKLABEL);//撤单
        WT_PK:=1;
//        TSELLSHORT(1,平空未成交数量,MKT,0,'','');
END

IF TSELLHOLDINGEX('','',1)>0 AND WT_PK=1 THEN BEGIN
        TSELLSHORT(1,PKLOTS,MKT,0,'','');
        WT_PK:=0;
        PKLOTS:=0;
END

106209

集成的账户未成交监控程序监控情况截图如下：

106209

单独的平空未成交程序如下（“账户未成交监控-平空”）：
//2024-12-23

GLOBALVARIABLE:WT_PK:=0;PKLOTS:=0;

//平空未成交
IF TGLOBALSUBMITEX(4,'',STKLABEL ,1 )>=SEC  THEN BEGIN //如果有未成交单;未成交超过SEC秒
        PKLOTS:=TGLOBALSUBMITEX(4,'',STKLABEL,0 );
        TCANCELEX(1,4,'',STKLABEL);//撤单
        WT_PK:=1;
//        TSELLSHORT(1,平空未成交数量,MKT,0,'','');
END

IF TSELLHOLDINGEX('','',1)>0 AND WT_PK=1 THEN BEGIN
        TSELLSHORT(1,PKLOTS,MKT,0,'','');
        WT_PK:=0;
        PKLOTS:=0;
END

106209

单独的平空未成交程序“账户未成交监控-平空”）监控截图如下：