MS Dynamics AX 4 :: Add Warehouse Items for each InventItem

Hi All,

I have been asked to create a Job which will insert items into the
InventItemLocation table where the ItemId do not Exist for all InventDimId.


When executing my Job I received the following warning message:
"Read the warning messages and take suitable action".

But that is all they say in the warning message.

I am not experienced with AX at all, so please have mercy... :)



Here is the Job, BTW: Please advise where I can improve and optimize the
code:
----------------------------------------------------------------------------------
static void CreateWarehouseItems(Args _args)
{
    #File
    AsciiIO fileLog;
    InventItemLocation inventItemLocation;
    InventItemLocation inventItemLocation2;
    InventItemLocation inventItemLocation3;
    InventDim inventDim;

    ItemId itemId;

    ;

    ttsBegin;
    fileLog = new AsciiIO("c:\\items.txt", #io_write);
    fileLog.outFieldDelimiter(",");

    while select * from inventDim {
        while select * from inventItemLocation group by ItemId {
            select forupdate firstonly * from inventItemLocation2 where
inventItemLocation2.ItemId == inventItemLocation.ItemId &&
inventItemLocation2.inventDimId == inventDim.inventDimId;
            if (strlen(inventItemLocation2.ItemId) == 0) {

                inventItemLocation2.initValue();
                inventItemLocation2.ItemId = inventItemLocation.ItemId;
                inventItemLocation2.inventDimId = inventDim.InventDimId;

                if (inventItemLocation2.validateWrite()) {
                    inventItemLocation2.insert();
                    fileLog.write("Warehouse inserted for: " +
inventItemLocation2.ItemId + " - " + inventDim.inventDimId);
                }
            }
            print "Checking..";
        }
    }
    ttsCommit;
}
Start Free Trial