static void Transferorder_vinay1(Args _args)
{
InventTransferTable inventTransferTable;
InventTransferLine inventTransferLine;
NumberSequenceReference numberSequenceReference;NumberSeq numberSeq;
ProdBOM prodBOM;
InventTable inventTable;
inventTransferLine_IN inventTransferLine_IN;
InventDim inventDim;
InventTransferParmTable inventTransferParmTable;
InventTransferUpdShip inventTransferUpdShip;
InventTransferParmUpdate inventTransferParmUpdate;
InventTransferUpd invTranUpd;
InventTransferUpdReceive InventTransferUpdReceive;
InventTransferParmline InventTransferParmline;
ttsBegin;
inventTransferTable.clear();
inventTransferTable.initValue();
numberSequenceReference = InventParameters::numRefTransferId();
numberSeq =
numberSeq::newGetNumFromCode(numberSequenceReference.numberSequenceTable().NumberSequence);
inventTransferTable.TransferId = numberSeq.num();
inventTransferTable.InventLocationIdFrom = "MW";
inventTransferTable.modifiedField(fieldNum(InventTransferTable,InventLocationIdFrom));
inventTransferTable.InventLocationIdTo = "SZP";
inventTransferTable.modifiedField(fieldNum(InventTransferTable,InventLocationIdTo));
inventTransferTable.TransferStatus = InventTransferStatus::Created;
inventTransferTable.initFromAddress();
inventTransferTable.initValue();
inventTransferTable.initToAddress();
inventTransferTable.insert();
inventTransferLine.clear();
inventTransferLine.initFromInventTransferTable(inventTransferTable,
NoYes::Yes);
inventTransferLine.ItemId = "FRD-00001";
inventTable = InventTable::find(InventTransferLine.ItemId);
inventTransferLine.initFromInventTable(InventTable);
inventTransferLine.initFromInventTable(InventTable::find("FRD-00001"));
inventTransferLine.initFromInventTransferTable(inventTransferTable,false);
inventTransferLine.QtyTransfer = 3 ;
// Supply inventory dimension values
inventDim.InventSiteId = "1";
inventDim.InventSizeId = "1";
inventDim.InventLocationId = "MW";
inventTransferLine.InventDimId = inventDim::findOrCreate(inventDim).inventDimId;
inventTransferLine.QtyShipNow = 3;
inventTransferLine.QtyReceiveNow = 2;
inventTransferLine.QtyRemainShip = 3;
InventTransferLine.QtyReceived = 2;
inventTransferLine.QtyRemainReceive =(inventTransferLine.QtyShipNow) - (InventTransferLine.QtyReceived );
inventTransferLine.setInventTransferStatus(); //setInventTransferStatus()
inventTransferLine.insert();
//for the Status of the shiiped aadded by vnay on 21/07/2017..
//Update transfer order as shipped
//Generate ParmId
// parmId = RunBaseMultiParm::getSysParmId();
//inventTransferMultiShip
inventTransferParmUpdate.ParmId = RunBaseMultiParm::getSysParmId();
inventTransferParmUpdate.insert();
inventTransferParmTable.initValue();
inventTransferParmTable.ParmId = inventTransferParmUpdate.ParmId;
inventTransferParmTable.TransferId = inventTransferTable.TransferId;
inventTransferParmTable.ShipUpdateQty = InventTransferShipUpdateQty::All;
inventTransferParmTable.EditLines = NoYes::Yes;
inventTransferParmTable.AutoReceiveQty = NoYes::No;
inventTransferParmTable.ExecutedDateTime = DateTimeUtil::getSystemDateTime();
inventTransferParmTable.UpdateType = InventTransferUpdateType::Shipment;
inventTransferParmTable.insert();
//Transfer Order created above should have status as shipped
//inventTransferMultiShip.runUpdate(inventTransferParmTable);
//InventTransferUpd::PostTransferOrder(inventTransferParmTable);
invTranUpd = InventTransferUpdShip::newParmBuffer(inventTransferParmTable);
invTranUpd.run();
/* //for the Status of the received aadded by vinay on 21/07/2017..
//Update transfer order as shipped
//Generate ParmId
// parmId = RunBaseMultiParm::getSysParmId();
//inventTransferMultiShip
inventTransferParmUpdate.ParmId = RunBaseMultiParm::getSysParmId();
inventTransferParmUpdate.insert();
inventTransferParmTable.initValue();
inventTransferParmTable.ParmId = inventTransferParmUpdate.ParmId;
inventTransferParmTable.TransferId = inventTransferTable.TransferId;
inventTransferParmTable.ReceiveUpdateQty =InventTransferReceiveUpdateQty::All;
inventTransferParmTable.EditLines = NoYes::Yes;
inventTransferParmTable.AutoReceiveQty = NoYes::no;
inventTransferParmTable.UpdateType = InventTransferUpdateType::Shipment;
inventTransferLine.modifiedField(fieldNum(InventTransferLine, QtyReceiveNow));
inventTransferParmTable.insert();
// Transfer Order created above should have status as shipped
// inventTransferMultiShip.runUpdate(inventTransferParmTable);
// InventTransferUpd::PostTransferOrder(inventTransferParmTable);
invTranUpd = InventTransferUpdReceive::newParmBuffer(inventTransferParmTable);
invTranUpd.run();*/
info(strFmt("Transfer Order No :: %1",inventTransferTable.TransferId),'',SysInfoAction_tablefield::newBuffer(InventTransferTable));
ttsCommit;
}
