AX 防止重复过账方法
博客专区 > White_CJ 的博客 > 博客详情
AX 防止重复过账方法
White_CJ 发表于4个月前
AX 防止重复过账方法
  • 发表于 4个月前
  • 阅读 9
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 技术升级10大核心产品年终让利>>>   

// 过账钱检查 是否已过账 及 取消 标记

// _int : 1 表示检查状态 及过账前标记 , 2 表示过账后 取消标记

// 20170802 by chengjun

public boolean WD_checkPostStatus( int _int )

{

boolean ret = false;

THK_ProdInTransitRouteTable _ProdInTransitRouteTable;

WD_OrderPostCheck WD_OrderPostCheck;

UserConnection userCon;

;

_ProdInTransitRouteTable = THK_ProdInTransitRouteTable::find(inTransitRouteTable.IntransitRouteId);



select firstOnly forUpdate WD_OrderPostCheck

WHERE WD_OrderPostCheck._TableId == _ProdInTransitRouteTable.TableId

&& WD_OrderPostCheck._OrderRecid == _ProdInTransitRouteTable.RecId;



userCon = new UserConnection();



userCon.ttsbegin();



WD_OrderPostCheck.setConnection(userCon);



switch (_int)

{

case 1:

if(_ProdInTransitRouteTable.Posted)

ret = checkFailed(strFmt("该单据:%1 已过账",inTransitRouteTable.IntransitRouteId));

else

ret = true;

if(ret)

if(!WD_OrderPostCheck)

{

WD_OrderPostCheck.clear();

WD_OrderPostCheck._TableId = inTransitRouteTable.TableId;

WD_OrderPostCheck._OrderRecid = inTransitRouteTable.RecId;

WD_OrderPostCheck._Status = NoYes::Yes;



WD_OrderPostCheck.insert();

ret = true;

}else

{

ret = checkFailed(strFmt("该单据:%1 在过账中, 使用人:%2 ",inTransitRouteTable.IntransitRouteId,WD_OrderPostCheck.createdBy));

}

break;

case 2:

if (WD_OrderPostCheck)

{

WD_OrderPostCheck.delete();

ret = true;

}

break;

}



userCon.ttscommit();

userCon.finalize();



return ret;

}

 

标签: AX 过账 防止重复
共有 人打赏支持
粉丝 0
博文 12
码字总数 7545
×
White_CJ
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: