How to: Fix issues related to Intercompany chain and clean up broken inventory transcations

 For those who have worked in Intercompany SO-POs know it very well that sometimes users across different legal entities face challenges in IC SO and IC PO. Issues with qty, statuses of lines or statuses of headers, broken inventory transactions for which nothing can be done.

Below is the script to fix the status on lines, the status on the header, and delete broken inventory transactions:

static void Job1(Args _args)

{

    PurchLine purchLine,purchLineGB;

    InventTrans inventTrans,inventTransGB;

    InventTransOrigin inventTransOrigin,inventTransOriginGB;

    SalesLine salesLine,salesLineGB;

    SalesTable salestable,salestableGB;

    PurchTable purchTable,purchTableGB;

    

    void updateSO(inventTransId _inventTransId, SalesStatus _lineSalesStatus, SalesStatus _orderSalesStatus)

    {

        select forupdate salesLine where salesLine.InventTransId == _inventTransId;

        salesLine.RemainInventPhysical = 0;

        salesLine.RemainSalesPhysical = 0;

        salesLine.SalesStatus =_lineSalesStatus;

        salesLine.doUpdate();

        info(strFmt("Salesline with inventtrans %1 updated ",SalesLine.InventTransId));

        

        while select InventTransOrigin where inventTransOrigin.InventTransId == salesLine.InventTransId

            join forUpdate inventTrans 

            where inventTrans.InventTransOrigin == InventTransOrigin.RecId

               && (inventTrans.StatusIssue == StatusIssue::OnOrder ||

               inventTrans.StatusIssue == StatusIssue::ReservOrdered)

        {

            info(strFmt("InventTrans recid %1 %2 deleted",inventTrans.RecId,inventTrans.dataAreaId));

            InventTrans.doDelete();  

        }   

        select forUpdate salesTable where salesTable.SalesId == salesLine.SalesId;

        SalesTable.SalesStatus = _orderSalesStatus;

        SalesTable.doUpdate();

        info(strFmt("SalesTable with salesId %1 updated ",SalesLine.SalesId));

        info(strFmt("---------------------------------------------------------"));

    }

    

    void updatePO(inventTransId _inventTransId, PurchStatus _linePurchStatus, PurchStatus _orderPurchStatus)

    {

    select forupdate purchLine where purchLine.InventTransId == _inventTransId;

        purchLine.RemainPurchPhysical = 0;

        purchLine.RemainInventPhysical = 0;

        purchLine.PurchStatus = _linePurchStatus;

        purchLine.doUpdate();

        info(strFmt("PurchLine with inventtrans %1 updated ",PurchLine.InventTransId));

   

        while select InventTransOrigin where inventTransOrigin.InventTransId == purchLine.InventTransId

            join forUpdate inventTrans 

            where inventTrans.InventTransOrigin == InventTransOrigin.RecId

               && inventTrans.StatusReceipt == StatusReceipt::Ordered

        {

            info(strFmt("InventTrans recid %1 %2 deleted",inventTrans.RecId,inventTrans.dataAreaId));

            InventTrans.doDelete();  

        }

        

        select forUpdate purchTable where purchTable.PurchId == purchLine.purchId;

        purchTable.PurchStatus = _orderPurchStatus;

        purchTable.doUpdate();

        info(strFmt("PurchTable with purchId %1 updated ",purchLine.purchId));

        info(strFmt("---------------------------------------------------------"));

    }

    

    void updateSOGB(inventTransId _inventTransId, SalesStatus _lineSalesStatus, SalesStatus _orderSalesStatus)

    {

        select forupdate salesLineGB where salesLineGB.InventTransId == _inventTransId;

        salesLineGB.RemainInventPhysical = 0;

        salesLineGB.RemainSalesPhysical = 0;

        salesLineGB.SalesStatus = _lineSalesStatus;

        salesLineGB.doUpdate();

        info(strFmt("Salesline with inventtrans %1 updated ",salesLineGB.InventTransId));

        

        

        while select InventTransOriginGB where InventTransOriginGB.InventTransId == salesLineGB.InventTransId

            join forUpdate inventTransGB 

            where inventTransGB.InventTransOrigin == InventTransOriginGB.RecId

               && (inventTransGB.StatusIssue == StatusIssue::OnOrder ||

               inventTransGB.StatusIssue == StatusIssue::ReservOrdered)

        {

            info(strFmt("InventTransGB recid %1 %2 deleted",inventTransGB.RecId,inventTransGB.dataAreaId));

            InventTransGB.doDelete();  

        }

        select forUpdate salesTableGB where salesTableGB.SalesId == salesLineGB.SalesId;

        SalesTableGB.SalesStatus = _orderSalesStatus;

        SalesTableGB.doUpdate();

        info(strFmt("SalesTable with salesId %1 updated ",SalesLineGB.SalesId));

        info(strFmt("---------------------------------------------------------"));

    }

    void updatePOGB(inventTransId _inventTransId, PurchStatus _linePurchStatus, PurchStatus _orderPurchStatus)

    {

    select forupdate purchLineGB where purchLineGB.InventTransId == _inventTransId;

        purchLineGB.RemainPurchPhysical = 0;

        purchLineGB.RemainInventPhysical = 0;

        purchLineGB.PurchStatus = _linePurchStatus;

        purchLineGB.doUpdate();

        info(strFmt("PurchLine with inventtrans %1 updated ",purchLineGB.InventTransId));

   

        while select InventTransOriginGB where InventTransOriginGB.InventTransId == purchLineGB.InventTransId

            join forUpdate inventTransGB 

            where inventTransGB.InventTransOrigin == InventTransOriginGB.RecId

               && inventTransGB.StatusReceipt == StatusReceipt::Ordered

        {

            info(strFmt("InventTrans recid %1 %2 deleted",inventTransGB.RecId,inventTransGB.dataAreaId));

            InventTransGB.doDelete();  

        }

        

        select forUpdate purchTableGB where purchTableGB.PurchId == purchLineGB.purchId;

        purchTableGB.PurchStatus = _orderPurchStatus;

        purchTableGB.doUpdate();

        info(strFmt("PurchTable with purchId %1 updated ",purchLineGB.purchId));

        info(strFmt("---------------------------------------------------------"));

    }

    ttsBegin;

    changeCompany('FR01')

    {

        updateSO('inventTransId in FR01 LE',SalesStatus::Canceled,SalesStatus::Invoiced); //('lotid', Line status, Header status)

        updatePO('inventTransId in FR01 LE',PurchStatus::Canceled,PurchStatus::Canceled); //('lotid', Line status, Header status)

    }

    changeCompany('GB01')

    {

        updateSOGB('inventTransId in GB01 LE',SalesStatus::Canceled ,SalesStatus::Canceled); //('lotid', Line status, Header status)

        updatePOGB('inventTransId in FR01 LE',PurchStatus::Canceled,PurchStatus::Canceled); //('lotid', Line status, Header status)

    }

    ttsCommit;

}

 Please note this does not break IC chain, just fixes the transcations. Usually this is done when SO and PO are in final state like Invoiced and some opne transcations remain which keeps it open. Also when SO/PO is cancelled in 1 LE and its open in other LE. I have used this script numerous times usually to fix the status to Invoice or Cancelled. 

Note: Always test the results in Testing env before making changes in production enviroment. 

If you need to break the IC chain and process the SO/PO then script is different. Thats for next blog.



Comments

Post a Comment

Popular posts from this blog

How to: Import Bank statements from Azure file storage to Dynamics 365 finance and operation using Power automate (formally flow)

Image
We had a requirement for importing of bank statements in Dynamics 365 Finance and Operations using integration. We achieved this using the recurring data jobs in D 365 and Microsoft Power automate. There are basically 3 parts to all the configuration 1. Azure app for authentication. 2. Data processing group and recurring data job in D 365 3. Power automate app for the integration 1. Azure app for authentication Create an Azure app for authentication as follows:     Search for App registration on  https://portal.azure.com/ Create a new app: Copy the app id, we will need this for configuration in D 365 and flow. Create a new secret and copy it. Copy the value of the secret. Now we have all the required information from the Azure portal. Let us switch to Dynamics 365 F&O. 2. Data processing group and recurring data job in D 365 F&O Configure the Bank statement import setup using the steps mentioned in  https://docs.micros...
Read more

How to: Use enum values instead of integers in BI reports for Dynamics 365 finance and operations

Image
For most of the BI projects related to Dynamics 365 finance and operations, We need to use BYODW to use Power BI or any other BI tools. As we know, enum fields are stored as integers in SQL, so data populated in BYODW comes as integers instead of the enum value. To display this data either you can hardcode values in SQL statements or in BI tools. Instead, we can use SRSAnalysisEnumsEntity in Dynamics 365 F&O. It exports the data from the SRSAnalysisEnums table which holds all the enum and respective enum elements used in perspective. If the enum is missing from the list then below job can be used to insert the data in SRSAnalysisEnums table. class SRSAnalysisEnumsGenerator {     public static void main(Args _args)     {         SRSAnalysisEnums analysisEnums;         DictEnum currentEnum;         str currentEnumName;         int valueCount;       ...
Read more

How to : get the Deep URL for a particular form with filter in Dynamics 365 Finance and Operations

Image
 If you are a developer and need to generate the Deep-link then you can follow the code mentioned in MS docs at https://docs.microsoft.com/en-us/dynamics365/fin-ops-core/dev-itpro/user-interface/create-deep-links But if you want to share a few URLs with filters already applied to other users then you can use the feature of  'Get a link' in D365FO. Suppose I want to share the list of all sales orders for customer 'US-001'. Go to Account Receivable -> Orders -> All sales orders  Filter by customer account 'US-001' Then in the navigation ribbon, go to Options and click on 'Get a link'   Copy all and paste the URL into new browser window. You will only see the sales orders for US-001. If you want to generate lot of deep URLs then you can also enable  'Automatically update query parameter' Once you enable this, as soon as you apply a filter on forms URL will be updated with the query parameters like below: You can copy and share the link directl...
Read more