Transfer order ( Shiped & received ) posting

-

 // Class helps to shipped & received transfer order

class IHSProcessTransferOrder

{

    InventTransferId         transferID;

    InventTransferUpdateType inventTransferUpdateType;


    boolean                 success;

    str                     output, message, localOutput;


    protected void new()

    {

    }


    /// <summary>

    /// Creates a new instance of the <c>IHSEntAssetObjectItemCreate</c> class.

    /// </summary>

    /// <returns>A new instance of the <c>IHSEntAssetObjectItemCreate</c> class.</returns>

    public static IHSProcessTransferOrder construct()

    {

        return new IHSProcessTransferOrder();

    }


    public static void main(Args    _args)

    {

        IHSProcessTransferOrder  processTransferOrder = new IHSProcessTransferOrder();

        

        processTransferOrder.run();

    }


    public InventTransferId parmTransferID(InventTransferId _transferID = transferID)

    {

        transferID = _transferID;

        return transferID;

    }


    public str parmOutput(str _output = output)

    {

        output = _output;

        return output;

    }


    public InventTransferUpdateType parmInventTransferUpdateType(InventTransferUpdateType _InventTransferUpdateType = inventTransferUpdateType)

    {

        inventTransferUpdateType = _InventTransferUpdateType;


        return inventTransferUpdateType;

    }


    public void run()

    {

        if (this.parmInventTransferUpdateType() == InventTransferUpdateType::Shipment)

        {

            this.shipTransferOrder();

        }

        else

        {

            this.ReceiveTransferOrder();

        }

    }


    public void shipTransferOrder()

    {

        //// ship a transfer order

        InventTransferMultiShip multiShip = InventTransferMultiShip::construct();

       

        // // Id of transfer order to ship

       // InventTransferId            shipTransferId =;

        InventTransferLine          inventTransferLine;

        InventTransferParmTable     inventTransferParmTable;


        ttsbegin;

        while select inventTransferLine

            where inventTransferLine.TransferId == transferID

        {


            //framework stuff to set parmId

            RunBaseMultiParm::initParm(multiShip);


            //get general values related to shipping set

            // InventTransferParmTable inventTransferParmTable;

            inventTransferParmTable.TransferId = transferID;

            inventTransferParmTable.ParmId = multiShip.parmId();

            multiShip.initParmBuffer(inventTransferParmTable);

           

            inventTransferParmTable.UpdateType = InventTransferUpdateType::Shipment;

            inventTransferParmTable.ShipUpdateQty = InventTransferShipUpdateQty::All;


            inventTransferParmTable.EditLines = NoYes::Yes;

            inventTransferParmTable.ExplodeLines = NoYes::No;

            inventTransferParmTable.TransDate = today(); //shipment date

            inventTransferParmTable.InventDimFixedReceiveList = 0;


            InventTransferParmLine inventTransferParmLine;

        

            inventTransferParmLine.initFromInventTransferLine(inventTransferLine);

            inventTransferParmLine.ParmId               = inventTransferParmTable.ParmId;

            inventTransferParmLine.TransferId           = inventTransferLine.TransferId;

            inventTransferParmLine.InventTransId        = inventTransferLine.InventTransId;

            inventTransferParmLine.LineNum              = InventTransferParmTable::lastLineNum(inventTransferParmTable.ParmId) + 1;

            inventTransferParmLine.InventTransIdTransit = inventTransferLine.InventTransIdTransitFrom;

            inventTransferParmLine.QtyShipNow           = inventTransferLine.QtyRemainShip;

            inventTransferParmLine.insert();

        


            inventTransferParmTable.insert(false); //will create parmLines by default


            //now do the update

            multiShip.runUpdate(inventTransferParmTable);

            

        }


        if(InventTransferTable::find(transferID).TransferStatus == InventTransferStatus::Shipped)

        {

            message = "Transfer order is Shipped ";


            localOutput = strFmt("%1 :- %2",message,transferID);

            this.parmTransferID(transferID);

            this.parmOutput(localOutput);

        }

        ttscommit;


    }


    public void ReceiveTransferOrder()

    {

        InventTransferParmTable inventTransferParmTable;

        InventTransferLine  inventTransferLine;


        ttsbegin;


        while select inventTransferLine

                 where inventTransferLine.TransferId == transferID

        {


            inventTransferParmTable.clear();

            inventTransferParmTable.initParmDefault();

            inventTransferParmTable.TransferId       = transferID;//_inventTransferLine.TransferId;

            inventTransferParmTable.UpdateType       = InventTransferUpdateType::Receive;

            //  inventTransferParmTable.ShipUpdateQty    = InventTransferShipUpdateQty::All;

            inventTransferParmTable.ReceiveUpdateQty = InventTransferReceiveUpdateQty::All;

            inventTransferParmTable.EditLines        = true;

       

            inventTransferParmTable.LineNum          = 1;

            inventTransferParmTable.JobStatus        = ParmJobStatus::Executed;

            inventTransferParmTable.ExecutedDateTime = DateTimeUtil::utcNow();

            inventTransferParmTable.PickUpdateQty    = InventTransferPickUpdateQty::ShipNow;

            // inventTransferParmTable.ExplodeLines     = true;


            InventTransferMultiReceive inventTransferMultiReceive = InventTransferMultiReceive::construct();

            inventTransferMultiReceive.init();

            inventTransferMultiReceive.parmCalledFromWMS(false);

            RunBaseMultiParm::initParm(inventTransferMultiReceive);


            inventTransferParmTable.ParmId = inventTransferMultiReceive.parmId();

        

            inventTransferParmTable.insert(false);

        

            InventTransferParmLine inventTransferParmLine;

           

            inventTransferParmLine.initFromInventTransferLine(inventTransferLine);

            inventTransferParmLine.ParmId               = inventTransferParmTable.ParmId;

            inventTransferParmLine.TransferId           = inventTransferLine.TransferId;

            inventTransferParmLine.InventTransId        = inventTransferLine.InventTransIdReceive;

            inventTransferParmLine.LineNum              = InventTransferParmTable::lastLineNum(inventTransferParmTable.ParmId) + 1;

            inventTransferParmLine.InventTransIdTransit = inventTransferLine.InventTransIdTransitFrom;

            inventTransferParmLine.QtyReceiveNow        = inventTransferLine.QtyRemainReceive;

            inventTransferParmLine.insert();

       


         

            // //now do the update

            inventTransferMultiReceive.runUpdate(inventTransferParmTable);

          

        }


        if(InventTransferTable::find(transferID).TransferStatus == InventTransferStatus::Received)

        {

            message = "Transfer order is Recevied";


            localOutput = strFmt("%1 :- %2",message,transferID);

            this.parmTransferID(transferID);

            this.parmOutput(localOutput);


            IHSUpdateReservedByOnToReceived updateReserveBy = IHSUpdateReservedByOnToReceived::construct();

            updateReserveBy.parmTransferId(transferID);

            updateReserveBy.run();

        }

        ttscommit;

    }


}

Comments

Post a Comment

Popular posts from this blog

Customization on Sales invoice Report in D365 F&O

-
 We have a requirement to create a new design and show some new fields in the sales invoice report.  So for that we need to consider the below steps :-  1) Controller class than extends standard class and create alogic. 2) Create a print management class to call the new design. 3) Extension of DP class to write a logic. 4) Report design. ==================================================================== 1) Controller class : -  /// <summary> /// Extension of the controller class to call the custom design of report "MMSSalesInvoice.report" for MMS legal entity. /// </summary> class MMSSalesInvoiceController extends SalesInvoiceController {        public static MMSSalesInvoiceController construct()         {             return new MMSSalesInvoiceController();         }         public static void main(Args _args)         { ...
Read more

75) COC - Create a coc of the table modified method

-
 /// <summary> /// The <c>AvaEntAssetChecklistVariableOptionsDbt_Extension</c> contains the TransMountain extending logic for the <c>EntAssetChecklistVariableOptions</c> table. /// </summary> [ExtensionOf(tableStr(EntAssetChecklistVariableOptions))] final class AvaEntAssetChecklistVariableOptionsDbt_Extension {     /// <summary>     /// Processes the modified field event for TransMountain fields.     /// </summary>     /// <param name = "_fieldId">reference to field id</param>     public void modifiedField(FieldId _fieldId)     {         EntAssetChecklistVariableOptions entAssetChecklistVariableOptions;         next modifiedField(_fieldId);         // Default must be marked for only one check list line for the varaible.         if (_fieldId == fieldNum(EntAssetChecklistVariableOptions,...
Read more

46) D365 FO: SHAREPOINT FILE UPLOAD USING X++

-
Image
Requirement : Uploading a file in Sharepoint online using X++ and inside from Microsoft Dynamics 365 finance and operations. Prerequisites: The current user id of Microsoft Dynamics 365 Finance and operations should have proper rights and privileged in Sharepoint Online. Sample Code: In this scenario i am creating a text file in Microsoft Dynamics 365 finance and operations and then uploading its memory Stream in Sharepoint online using X++ . You can modify the X++ code in D365 finance and operations as per your need. class RunnableClassRun { /// /// Runs the class with the specified arguments. /// /// The specified arguments. public static void main(Args _args) { System.UriBuilder builder = new System.UriBuilder(“ https://XXXXXX.sharepoint.com&#8221 ;); str extId = xUserInfo::getExternalId(); Microsoft.Dynamics.AX.Framework.FileManagement.SharePointDocumentStorageProvider provider; Microsoft.Dynamics.AX.Framework.FileManagement.DocumentLocation documentLocation ...
Read more