Create Transfer Order Line Through Code AX X++ D365 Finance & Operations
public void createPurchLine(ItemId _ItemId, InventDimId _InventDimId, Qty _qty SalesId _salesId)
{
InventTransferLine inventTransferLineNew;
InventDim inventDimLocal;
InventTransferTable inventTransferTable = InventTransferTable::find(_inventTransferId);
inventDimLocal = InventDim::find(_InventDimId, );
inventDimLocal.InventSiteId = InventLocation::find(inventTransferTable.InventLocationIdFrom).InventSiteId;
inventDimLocal.InventLocationId = inventTransferTable.InventLocationIdFrom;
inventDimLocal = InventDim::findOrCreate(inventDimLocal);
inventTransferLineNew.clear();
inventTransferLineNew.initFromInventTransferTable(inventTransferTable,true);
inventTransferLineNew.ItemId = _ItemId;
inventTransferLineNew.initFromInventTable(InventTable::find(_ItemId));
inventTransferLineNew.InventDimId = inventDimLocal.inventDimId;
inventTransferLineNew.UnitId = InventTableModule::find(_ItemId, ModuleInventPurchSales::Invent).UnitId;
inventTransferLineNew.QtyTransfer = _qty;
inventTransferLineNew.QtyRemainReceive = _qty;
inventTransferLineNew.QtyRemainShip = _qty;
inventTransferLineNew.LineNum = InventTransferLine::lastLineNum(_inventTransferId) + 1;
inventTransferLineNew.insert();
}
{
InventTransferLine inventTransferLineNew;
InventDim inventDimLocal;
InventTransferTable inventTransferTable = InventTransferTable::find(_inventTransferId);
inventDimLocal = InventDim::find(_InventDimId, );
inventDimLocal.InventSiteId = InventLocation::find(inventTransferTable.InventLocationIdFrom).InventSiteId;
inventDimLocal.InventLocationId = inventTransferTable.InventLocationIdFrom;
inventDimLocal = InventDim::findOrCreate(inventDimLocal);
inventTransferLineNew.clear();
inventTransferLineNew.initFromInventTransferTable(inventTransferTable,true);
inventTransferLineNew.ItemId = _ItemId;
inventTransferLineNew.initFromInventTable(InventTable::find(_ItemId));
inventTransferLineNew.InventDimId = inventDimLocal.inventDimId;
inventTransferLineNew.UnitId = InventTableModule::find(_ItemId, ModuleInventPurchSales::Invent).UnitId;
inventTransferLineNew.QtyTransfer = _qty;
inventTransferLineNew.QtyRemainReceive = _qty;
inventTransferLineNew.QtyRemainShip = _qty;
inventTransferLineNew.LineNum = InventTransferLine::lastLineNum(_inventTransferId) + 1;
inventTransferLineNew.insert();
}
Comments
Post a Comment