Create Transfer Journal in d365fo x++

Create Transfer Journal in d365fo x++

Code:

[FormControlEventHandler(formControlStr(TxlDemandNoteForm, CreateTransferJournal), FormControlEventType::Clicked)]
    public static void CreateTransferJournal_OnClicked(FormControl sender, FormControlEventArgs e)
    {
        TxlDemandNoteLine   TxlDemandNoteLine;
        InventJournalTable  inventJournalTable;
        InventJournalTrans  inventJournalTrans;
        InventJournalName   InventJournalName;
        int64               line = 0;
        NumberSeq           num,num1;

        FormDataSource      TxlDemandNoteHeader_DS  = sender.formRun().dataSource(formDataSourceStr(TxlDemandNoteForm, TxlDemandNoteHeader));
        TxlDemandNoteHeader TxlDemandNoteHeader     = TxlDemandNoteHeader_DS.cursor();

        select TxlDemandNoteLine where TxlDemandNoteLine.DemandNO == TxlDemandNoteHeader.DemandNO;
        if(!TxlDemandNoteLine)
        {
            error("Add Lines!");
            return;
        }

        if(TxlDemandNoteHeader.CBLTransferJournal)
        {
            error("Journal already Created!");
            return;
        }

        if(!TxlDemandNoteHeader.CBLInventSiteId || !TxlDemandNoteHeader.CBLInventLocationId || !TxlDemandNoteHeader.CBLwMSLocationId)
        {
            error("Site, warehouse & location must be filled in!");
            return;
        }

        TxlDemandNoteLine.clear();
        ttsbegin;
        inventJournalTable.clear();
        num  = new NumberSeq();
        num  = NumberSeq::newGetNum(InventParameters::numRefTransferId());

        InventJournalName = InventJournalName::find('ITrf');
        inventJournalTable.initFromInventJournalName(InventJournalName::find(InventJournalName.JournalNameId));
                    
        inventJournalTable.Description      = "Transfer from Demand note ";
        inventJournalTable.bfpJournalType   = bfpJournalType::NonGarment;
        inventJournalTable.SystemBlocked    = true;
        inventJournalTable.JournalType      = InventJournalType::Transfer;
        inventJournalTable.insert();

        while
        select TxlDemandNoteLine 
        where TxlDemandNoteLine.DemandNO == TxlDemandNoteHeader.DemandNO
        {
            InventDim          frominventDim,ToinventDim;
            frominventDim = InventDim::find(TxlDemandNoteLine.InventDimId);

            num1 = new NumberSeq();
            num1 = NumberSeq::newGetNum(InventParameters::bfpNumRefInventTransLineGroupId());
                
            inventJournalTrans.clear();
            
            inventJournalTrans.bfpInventJournalTransLineGroupId = num1.num();
            inventJournalTrans.initFromInventJournalTable(inventJournalTable);
            inventJournalTrans.initFromInventTable(InventTable::find(TxlDemandNoteLine.ItemId));
            InventJournalTrans.JournalType      = InventJournalType::Transfer;
            inventJournalTrans.Qty              = (-1) * TxlDemandNoteLine.Qty;
            inventJournalTrans.TransDate        = SystemDateget();
            inventJournalTrans.InventDimId      = InventDim::findOrCreate(frominventDim).inventDimId;
            ToinventDim.configId                = frominventDim.configId;
            ToinventDim.InventSiteId            = TxlDemandNoteHeader.CBLInventSiteId;
            ToinventDim.wMSLocationId           = TxlDemandNoteHeader.CBLwMSLocationId;
            ToinventDim.InventLocationId        = TxlDemandNoteHeader.CBLInventLocationId;
            inventJournalTrans.ToInventDimId    = InventDim::findOrCreate(ToinventDim).inventDimId;
            inventJournalTrans.insert();
                   
        }
              
            TxlDemandNoteHeader.selectForUpdate(true);
            TxlDemandNoteHeader.CBLTransferJournal = inventJournalTable.JournalId;
            TxlDemandNoteHeader.update();
            ttscommit;
        
        TxlDemandNoteHeader_DS.research(true);
        TxlDemandNoteHeader_DS.reread();
        Info(strFmt("%1 Journal Created!", inventJournalTable.JournalId));
    }

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