Create Inventory Adjustment Journal d365fo x++

Create Inventory Adjustment Journal d365fo x++

Code:

public void processOperation(JSInvADJJournalCreationContract _contract)
{
    InventJournalTable inventJournalTable;
    InventJournalTrans inventJournalTrans;
    GroupType GroupType = _contract.paramGroupType();
    InventLocationId Warehouse = _contract.paramInventLocationId();

    // Create journal table
    inventJournalTable = JSInvADJJournalCreationService::createJournalTable();

    if(inventJournalTable)
    {
        // Initialize journal trans
        inventJournalTrans = JSInvADJJournalCreationService::createLines(GroupType, Warehouse, inventJournalTable);
        info(strFmt("INV Adjustment JOURNAL CREATED  %1", INVENTJOURNALTABLE.JournalId));

        // Post Inventory journal
        JSInvADJJournalCreationService::postInventTableJournal(inventJournalTable);
    }

}
private static InventJournalTable createJournalTable()
{
    INVENTJOURNALTABLE     INVENTJOURNALTABLE;
    InventJournalNameId    inventJournalName;

    // Create INV JOURNAL HEADER
    ttsbegin;
    INVENTJOURNALTABLE.clear();

    inventJournalName =  InventJournalName::standardJournalName(InventJournalType::LossProfit);
    inventJournalTable.initFromInventJournalName(InventJournalName::find(inventJournalName));
    INVENTJOURNALTABLE.Description    = "Inventory Adjustment Journal";
    INVENTJOURNALTABLE.SystemBlocked  = true;
    INVENTJOURNALTABLE.insert();
    ttscommit;

    return inventJournalTable;
}
private static InventJournalTrans createLines(GroupType GroupType, InventLocationId Warehouse, InventJournalTable inventJournalTable)
{
    InventJournalTrans InventJournalTrans;
    InventSum   InventSum;
    InventDim   InventDim;
    InventTable InventTable;
    InventItemGroupItem InventItemGroupItem;
    InventItemGroup InventItemGroup;

    while
    SELECT *
    from InventSum

    JOIN InventDim
    WHERE InventSum.InventDimId == InventDim.inventDimId

    JOIN InventTable
    WHERE InventSum.ItemId == InventTable.ItemId

    join InventItemGroupItem
    WHERE InventItemGroupItem.ItemDataAreaId == InventTable.dataAreaId
    && InventItemGroupItem.ItemId == InventTable.ItemId

    join InventItemGroup
    WHERE InventItemGroupItem.ItemGroupDataAreaId == InventItemGroup.dataAreaId
    && InventItemGroupItem.ItemGroupId == InventItemGroup.ItemGroupId

    &&  InventSum.PhysicalInvent != 0
    &&InventSum.Closed == 0
    && InventItemGroup.groupType == GroupType
    && InventDim.InventLocationId == Warehouse
    {
        ttsbegin;
        inventJournalTrans.clear();

        inventJournalTrans.initFromInventJournalTable(inventJournalTable);
        inventJournalTrans.initFromInventTable(InventTable::find(InventSum.ItemId));
        InventJournalTrans.JournalType      = InventJournalType::LossProfit;
        inventJournalTrans.Qty              = -InventSum.PhysicalInvent;
        inventJournalTrans.TransDate        = SystemDateget();
        inventJournalTrans.InventDimId      = InventDim::findOrCreate(InventDim).inventDimId;
        inventJournalTrans.insert();
        ttscommit;

    }

    return InventJournalTrans;
}
public static void postInventTableJournal(InventJournalTable _inventJournalTable)
{
    JournalCheckPost   journalCheckPost;
    journalCheckPost = inventJournalCheckPost::newJournalCheckPost(JournalCheckPostType::Post ,_inventJournalTable);
    journalCheckPost.parmThrowCheckFailed(true);
    journalCheckPost.parmShowInfoResult(true);
    journalCheckPost.run();
}

Comments

Post a Comment

Popular posts from this blog

D365FO – AX – X++ –Refresh, Reread, Research, and ExecuteQuery

 D365FO – AX – X++ – Tutorial: Choosing Between Refresh, Reread, Research, and ExecuteQuery X++ developers often face challenges with the four datasource methods—refresh, reread, research, and executeQuery—in Dynamics 365 Finance and Operations (D365FO). Regardless of their seniority in AX, developers frequently make mistakes in the sequence of calling these methods. To address this, I've created a brief hands-on tutorial illustrating the typical use cases for each method. I've organized the methods based on their impact on the displayed grid rows. 1. Common Mistakes: Developers often incorrectly call two of these methods in the following order: - formDataSource.refresh() followed by formDataSource.research(), or - formDataSource.reread() followed by formDataSource.research(), or - formDataSource.research() followed by formDataSource.executeQuery(), or - formDataSource.research() followed by formDataSource.refresh() / formDataSource.reread(). These sequences are either entirely...
Read more

Create Inventory Journal through Code in D365FO X++

 Create Inventory Journal through Code in D365FO X++ Code:  internal final class Cls_FPS_MOVJRNL {     /// <summary>     /// Class entry point. The system will call this method when a designated menu      /// is selected or when execution starts and this class is set as the startup class.     /// </summary>     /// <param name = "_args">The specified arguments.</param>     public static void main(Args _args)     {         CBLFPS_StkAdjTbl       CBLFPS_StkAdjTbl;         ttsbegin;             // Create journal table             InventJournalTable inventJournalTable = Cls_FPS_MOVJRNL::createJournalTable();                          // Initialize journal trans             ...
Read more

SalesLine Reservation in D365fo x++

SalesLine Reservation in D365fo x++ SQL: /// <summary> /// reserve sales line /// </summary> /// <param name = "_salesline">SalesLine</param> public static void reserveSalesLine(SalesLine _salesline) { InventBatch inventBatch; InventSum inventSum; SalesLine salesLine; InventDim inventDim; InventTable inventTable; int daysLeftforExpiry = 0; int shelflife; int rule = 0; int acceptedPR = 0; Qty qtyReserve = 0; Qty saleLineQty = 0; DSAPickingRulePerId pickingrule; boolean qtyReservedCheck = false; salesLine = _salesline; pickingrule = _salesline.salesTable().DSAPickingRule; if(pickingrule == '') { warning("Picking rule is not available on sales order for reservation."); } else { ...
Read more