Creating Production Order using X++ in D365FO

 ProdTable       prodtable;

  InventTable     inventTable;

  InventDim       inventDim,inventDimLoc;

    ttsbegin;

            inventTable = inventTable::find("Provide ItemId");  

            prodtable.initValue();

            prodtable.ItemId                               = inventTable.ItemId;

            prodtable.DlvDate                             = _origProdTable.DlvDate;

            prodtable.QtySched                           = _origProdTable.QtySched;

            prodtable.RemainInventPhysical       = _origProdTable.RemainInventPhysical;

            prodtable.DlvDate        = _origProdTable.DlvDate;

            prodtable.DlvTime = _origProdTable.DlvTime;

            prodtable.InventDimId = _inventDimId;

            prodtable.GanttColorId = _origProdTable.GanttColorId;

            prodtable.initFromItemId();

            prodtable.initBOMVersion();

            prodtable.initRouteVersion();

            prodtable.insert();

       ttscommit;