AX 防止重复过账方法

顶

原

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

// _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;

}