Create Shipped Transfer Order By Specific Quantity X++ D365Fo

on

 This Code For Shipping Transfer Order With Specific Quantity By X++ D365Fo


static void postTransferOrder(Args _args)
{
    InventTransferUpd           inventTransferUpd;
    InventTransferMultiShip     inventTransferMultiShip;
    InventTransferParmTable     transferParmTable;
    InventTransferParmLine      transferParmLine;
    InventTransferJour          inventTransferJourShiped;
    InventTransferLine          transferLine;
    InventDim                   inventDim;
    LineNum                     lineNum;
    InventTransferTable         inventTransferTable;
    inventTransferTable = InventTransferTable::find("Tech-000012");
    ttsBegin;
    inventTransferMultiShip = InventTransferMultiShip::construct();
    RunBaseMultiParm::initParm(inventTransferMultiShip);
    inventTransferMultiShip.insert(inventTransferTable, transferParmTable);
    transferParmTable.EditLines         = true;
    transferParmTable.PickUpdateQty     = InventTransferPickUpdateQty::All;
    transferParmTable.update();
    ttscommit;

    // Select Lines
    while select transferLine
    where transferLine.TransferId == "Tech-000012"
        && transferLine.ItemId == "#100" //For Specific Item In Transfer Order
    {
        lineNum++;
        //transferLine = InventTransferLine::find("Tech-000011", lineNum);
        transferParmLine.clear();
        transferParmLine.initFromInventTransferLine(transferLine);
        transferParmLine.ParmId         = transferParmTable.ParmId;
        transferParmLine.TransferId     = transferParmTable.TransferId;
        inventDim = InventDim::find(transferParmLine.InventDimId);
        inventDim.clearNotProductDim(InventDimGroupSetup::newItemId(transferParmLine.ItemId));
        inventDim.InventLocationId = inventTransferTable.InventLocationIdFrom;
        inventDim.initFromInventLocation(inventDim.inventLocation());
        transferParmLine.InventDimId = InventDim::findOrCreate(inventDim).InventDimId;
        transferParmLine.InventTransId        = transferLine.InventTransId;
        transferParmLine.InventTransIdTransit = transferLine.InventTransIdTransitTo;
        transferParmLine.QtyShipNow           = 6; // qty for ship
        transferParmLine.LineNum              = transferLine.LineNum;
        transferParmLine.insert();
    }
    
    // For Run Shipping Code
    inventTransferUpd = InventTransferUpdShip::newParmBuffer(transferParmTable);
    inventTransferUpd.run();
}
 This Code Written By Mohamed Elsagher

Comments

Post a Comment