Auto submit and Confirm purchase order in batch through code in X++ in D365F&O.

 Hi Viewers,

Here is the code used for create new return order, auto submit workflow if any and confirm PO in batch.


public void createAndConfirmReturnOrder(str _workOrderId)
    {
        PurchTable purchTable, returnPurchTable;
        VersioningPurchaseOrder versioningPO;

        purchTable = PurchTable::find(_workOrderId);


        ttsbegin;

        returnPurchTable.initValue(PurchaseType::ReturnItem);
        returnPurchTable.initFromPurchTable(purchTable);
        returnPurchTable.OrderAccount = purchTable.OrderAccount;
        returnPurchTable.initFromVendTable();
        returnPurchTable.initFromVendTableMandatoryFields();
        returnPurchTable.ReturnItemNum = _workOrderId;
        returnPurchTable.DefaultDimension = purchTable.DefaultDimension;
        returnPurchTable.PurchId = NumberSeq::newGetNum(PurchParameters::numRefPurchId()).num();

        if (returnPurchTable.validateWrite())
        {
            returnPurchTable.insert();
        }

        this.processReturnPurchLine(returnPurchTable, _workOrderId);

        ttscommit;

        ttsbegin;

        // If Change Requests are required, submit the request.
        if (returnPurchTable.ChangeRequestRequired)
        {
            versioningPO = VersioningPurchaseOrder::newPurchaseOrder(returnPurchTable);
            versioningPO.submitChangeRequest();
            versioningPO.approveChangeRequest(); // auto approve change
        }
        ttscommit;
        
        this.purchaseOrderConfirm(returnPurchTable.PurchId);

    }

 public void purchaseOrderConfirm(PurchId _purchId)
    {
        PurchFormLetter             purchFormLetter;
        PurchFormletterParmData     purchFormLetterParmData;
        PurchParmUpdate             purchParmUpdate;
        PurchParmTable              purchParmTable;
        PurchTable                  purchTable;
 
        purchTable = PurchTable::find(_purchId);
 
        ttsBegin;
 
        purchFormLetterParmData = PurchFormletterParmData::newData(DocumentStatus::PurchaseOrder,
                                                               VersioningUpdateType::Initial);
 
        purchFormLetterParmData.parmOnlyCreateParmUpdate(true);
        purchFormLetterParmData.createData(false);
        purchParmUpdate = purchFormLetterParmData.parmParmUpdate();
 
        purchParmTable.clear();
        purchParmTable.TransDate                = DateTimeUtil::getSystemDate(DateTimeUtil::getUserPreferredTimeZone());
        purchParmTable.DocumentDate             = DateTimeUtil::getSystemDate(DateTimeUtil::getUserPreferredTimeZone());
        purchParmTable.Ordering                 = DocumentStatus::PurchaseOrder;
        purchParmTable.ParmJobStatus            = ParmJobStatus::Waiting;
        purchParmTable.initFromPurchTable(purchTable);
        purchParmTable.ParmId                   = purchParmUpdate.ParmId;
        purchParmTable.insert();
 
        purchFormLetter = PurchFormLetter::construct(DocumentStatus::PurchaseOrder);
        purchFormLetter.transDate(DateTimeUtil::getSystemDate(DateTimeUtil::getUserPreferredTimeZone()));
        purchFormLetter.proforma(false);
        purchFormLetter.specQty(PurchUpdate::All);
        purchFormLetter.purchTable(purchTable);
        purchFormLetter.parmInBatch(true);
 
        purchFormLetter.parmParmTableNum(purchParmTable.ParmId);
        purchFormLetter.parmId(purchParmTable.ParmId);
        purchFormLetter.purchParmUpdate(purchFormLetterParmData.parmParmUpdate());

        purchFormLetter.batchInfo().parmBatchExecute(NoYes::Yes);
        purchFormLetter.batchInfo().doBatch();

        ttsCommit;
    }

Thanks for reading! Like this post if you found it helpful. 😀😀
And let me know your thoughts in the comments below.😇😇

Comments

Post a Comment

Popular posts from this blog

In ax D365F&O post packing slip from shipment through code x++.

 Hi viewers, To post the packing slip for the sales order from the shipment, we first have to close the containers, confirm the shipment, and then post the packing slip. these steps can be handled either through code or manually updated from the form by the user. I am sharing the code to update accordingly. To Close the container.  public void closeContainer()  {       WHSContainerTable               containerTable;      WHSCloseContainerProfile        closeContainerProfile;      WHSShipmentTable                shipmentTable;                containerTable = WHSContainerTable::findByContainerId(PackageDetailsTable.ContainerId);          closeContainerProfile = WHSCloseContainerProfile::find(containerTable.CloseContainerProfileId);         ...
Read more

Multi select lookup in UI Builder class in D365F&O through x++ code.

 Hi Viewers, Below is the code sample for Multi-select lookup in the SSRS report by UI builder class. In this example, I am using  UI builder class - ItemListUIBuilder Contact class - ItemListContract DP class - ItemListDP In the contract class add a list-type parameter, as shown below. Contract class must decorated with attributes as shown below. give the ULBuilder class name to SysOperationContractProcessingAttribute [ DataContractAttribute,     SysOperationContractProcessingAttribute(classStr(ItemListUIBuilder))] class ItemListContract {   List                        ItemIDList;   [   DataMemberAttribute,         AifCollectionTypeAttribute("Item Id", Types::String)      ]     public List parmItemIdList(List _ItemIDList = ItemIDList)     {       ItemIDList = _ItemIDList;       return ItemIDLis...
Read more

Cancel Post packing slip from all Shipments in D365 F&O through X++

 Hi Viewers, To Cancel Post packing slip for Shipments. we first have to cancel the Packing slip, reverse the shipment, and then reopen the container. To Cancel Post packing slip:   WHSLoadTableCustPackingSlipJour loadCustJour;  CustPackingSlipJour             custJour;    WHSLoadTable        loadTable;        loadTable = whsshipmenttable::find(ShipmentID).whsLoadTable();      while select custJour          where custJour.Qty          exists join loadCustJour              where loadCustJour.WHSLoadTableLoadId       == loadTable.LoadId              &&    loadCustJour.WHSLoadTableDataAreaId   == loadTable.DataAreaId              &&    loadCustJour.CustPa...
Read more