Create a Transfer Order Through Code.....................
InventTransFerTable InventTransFerTable;
InventTransFerLine InventTransFerLine;
InventTable InventTable;
NumberSeq NumberSeq;
;
NumberSeq = NumberSeq::newGetNumFromCode(Inventparameters::numRefTransferId().NumberSequence);
InventTransferTable.TransferId = NumberSeq.num();
InventTransferTable.InventLocationIdFrom = “_FromWarehouse”;
InventTransferTable.InventLocationIdTo = “_ToWarehouse”;
InventTransferTable.initFromAddress();
InventTransferTable.initValue();
InventTransferTable.initDeliveryMode();
InventTransferTable.initToAddress();
InventTransferTable.insert();
InventTransferLIne.clear();
InventTransferLine.initFromInventTransferTable(_InventTransferTable,NoYes::Yes);
InventTransferLine.ItemId = ”_Itemid”;
InventTransFerLine.LineNum = InventTransferLine::lastLineNum(_InventTransferTable.TransferId) + 1;
InventTable = InventTable::find(InventTransferLine.ItemId);
InventTransferLine.initFromInventTable(InventTable);
InventTransferLine.QtyTransfer = “QTY”;
InventTransferLine.QtyRemainReceive =”_QTYremainRecive”;
InventTransferLine.QtyRemainShip = “_QtyRemainShip”;
InventTransferLine.InventDimId = “_inventDimid”;
InventTransferLine.insert();
No comments:
Post a Comment