AX2012


Markierung und Reservierung über Code setzen


static void updateMarking(InventTransId _issueInventTransId,
InventTransId _receiptInventTransId,
InventQty _inventQty)
{




InventTrans issueInventTrans;
TmpInventTransMark tmpInventTransMask;
Map mapMarkNow; container con;
real qty;
Map mapTmp;
MapEnumerator mapEnumerator;






InventTransOriginId issueInventTransOriginId = InventTransOrigin::findByInventTransId(_issueInventTransId).RecId;
InventTransOriginId receiptInventTransOriginId = InventTransOrigin::findByInventTransId(_receiptInventTransId).RecId;
InventQty qtyToMark = _inventQty; ttsBegin;
issueInventTrans = InventTrans::findByInventTransOrigin(issueInventTransOriginId);
[con, qty] = TmpInventTransMark::packTmpMark(
InventTransOrigin::find(issueInventTransOriginId),
issueInventTrans.inventDim(),
issueInventTrans.Qty);
mapTmp = Map::create(con);
mapEnumerator = mapTmp.getEnumerator(); while (mapEnumerator.moveNext())
{
tmpInventTransMask = mapEnumerator.currentValue(); if (tmpInventTransMask.InventTransOrigin == receiptInventTransOriginId)
{
tmpInventTransMask.QtyMarkNow = qtyToMark;
tmpInventTransMask.QtyRemain -= tmpInventTransMask.QtyMarkNow; mapMarkNow = new Map(Types::Int64, Types::Record);
mapMarkNow.insert(tmpInventTransMask.RecId, tmpInventTransMask);
TmpInventTransMark::updateTmpMark(
issueInventTransOriginId,
issueInventTrans.inventDim(),
-qtyToMark,
mapMarkNow.pack()); break;
}
} ttsCommit;
}