Create InventItemPurchSetup, InventItemSalesSetup and InventItemInventSetup for all itens.

createPurchSalesInventSetup

static void updInventSetup(Args _args)
{
    InventTable item;
    InventDim   dimSite, dimLocation;
    InventSite site;
    InventItemPurchSetup purchSetup;
    InventItemSalesSetup salesSetup;
    InventItemInventSetup inventSetup;

    try
    {
        ttsBegin;
        delete_from purchSetup;
        delete_from salesSetup;
        delete_from inventSetup;

        while select item
        {
            purchSetup.clear();
            purchSetup.ItemId = item.ItemId;
            purchSetup.InventDimId = InventDim::inventDimIdBlank();
            purchSetup.InventDimIdDefault = InventDim::inventDimIdBlank();
            purchSetup.insert();

            salesSetup.clear();
            salesSetup.ItemId = item.ItemId;
            salesSetup.InventDimId = InventDim::inventDimIdBlank();
            salesSetup.InventDimIdDefault = InventDim::inventDimIdBlank();
            salesSetup.insert();

            inventSetup.clear();
            inventSetup.ItemId = item.ItemId;
            inventSetup.InventDimId = InventDim::inventDimIdBlank();
            inventSetup.InventDimIdDefault = InventDim::inventDimIdBlank();
            inventSetup.insert();

            while select site
            {
                dimSite.clear();
                dimSite.InventSiteId = site.SiteId;
                dimSite = InventDim::findOrCreate(dimSite);

                dimLocation.clear();
                dimLocation.InventLocationId = site.SiteId;
                dimLocation = InventDim::findOrCreate(dimLocation);

                purchSetup.clear();
                purchSetup.ItemId = item.ItemId;
                purchSetup.InventDimIdDefault = dimLocation.inventDimId;
                purchSetup.InventDimId = dimSite.inventDimId;
                purchSetup.insert();

                salesSetup.clear();
                salesSetup.ItemId = item.ItemId;
                salesSetup.InventDimIdDefault = dimLocation.inventDimId;
                salesSetup.InventDimId = dimSite.inventDimId;
                salesSetup.insert();

                inventSetup.clear();
                inventSetup.ItemId = item.ItemId;
                inventSetup.InventDimIdDefault = dimLocation.inventDimId;
                inventSetup.InventDimId = dimSite.inventDimId;
                inventSetup.insert();
            }

        }

        ttsCommit;
    }
    catch
    {
        ttsAbort;
    }
}