Erwin Marin AX

The following code calc the CurrentPalletCount field and the FreePalletCount field of the Location.

static void calcCurrentFreePalletCount(Args _args) {

   Counter                 currentLoad;    Counter                 reservedLoad;    Query                   query;    QueryBuildDataSource    queryBuildDataSource;    QueryBuildRange         queryBuildRange;    Args                    args;    FormRun                 formRun;    FormDataSource          formDataSource;    WMSLocationSum          wmsLocationSum;

   while select forupdate wmsLocationSum    {

       if (wmsLocationSum.LocationType == WMSLocationType::OutputPort ||        wmsLocationSum.LocationType == WMSLocationType::ProductionInput)        {            currentLoad = 0;            reservedLoad = 0;        }        else        {            currentLoad = wmsLocationSum.currentPalletCount();            reservedLoad = wmsLocationSum.reservedPalletCountCalculated();        }

       if (wmsLocationSum.CurrentPalletCount != currentLoad || wmsLocationSum.FreePalletCount != wmsLocationSum.MaxPalletCount - currentLoad - reservedLoad)        {            args = new Args();            args.name(formstr(WMSLocation));            formRun     = classfactory.formRunClass(args);            formRun.init();            formDataSource = formRun.objectSet();            formDataSource.init();            query = formDataSource.query();            queryBuildDataSource = query.dataSourceTable(tablenum(WMSLocation));            queryBuildRange = queryBuildDataSource.addRange(fieldnum(WMSLocation, wmsLocationId));            queryBuildRange.value(queryValue(wmsLocationSum.wmsLocationId));            queryBuildRange = queryBuildDataSource.addRange(fieldnum(WMSLocation, InventLocationId));            queryBuildRange.value(queryValue(wmsLocationSum.InventLocationId));

           if (wmsLocationSum.CurrentPalletCount != currentLoad)                checkFailed(strfmt("@SYS50822", wmsLocationSum.CurrentPalletCount, currentLoad),                        '', SysInfoAction_FormrunQuery::newFormnameControlnameQuery(formstr(WMSLocation), identifierstr(currentPalletCount), query));            if (wmsLocationSum.FreePalletCount != wmsLocationSum.MaxPalletCount - currentLoad - reservedLoad)                checkFailed(strfmt("@SYS58931", wmsLocationSum.FreePalletCount, wmsLocationSum.MaxPalletCount - currentLoad - reservedLoad),                        '', SysInfoAction_FormrunQuery::newFormnameControlnameQuery(formstr(WMSLocation), identifierstr(freePalletCount), query));

           if (wmsLocationSum.CurrentPalletCount != currentLoad)            {                wmsLocationSum.CurrentPalletCount = currentLoad;            }            if (wmsLocationSum.FreePalletCount != wmsLocationSum.MaxPalletCount - currentLoad - reservedLoad)            {                wmsLocationSum.FreePalletCount    = wmsLocationSum.MaxPalletCount - currentLoad - reservedLoad;            }            ttsbegin;            wmsLocationSum.update();            ttscommit;

       }    }

The following code is a static method  what enable create and post a inventory transfer journal with the standard classes AxInventJournalTable and  AxInventJournalTrans.

I added a field in the InventParameters for set by default the journal name.

public static void createJournalTransfer(    InventSum               _inventSum,    InventDim               _inventDim,    Qty                     _qtyInput,    InventSiteId            _inventSiteIdInput,    InventLocationId        _inventLocationIdInput,    InventBatchId           _inventBatchIdInput,    WMSLocationId           _wMSLocationIdInput,    WMSPalletId             _wMSPalletIdInput) {    //by ax.erwinmarin.cl    AxInventJournalTable    AxinventJournalTable = new AxinventJournalTable();    AxInventJournalTrans    AxinventJournalTrans = new AxinventJournalTrans();    InventParameters        inventParameters;    ;

   //Below code creates journal header    inventParameters = InventParameters::find();    AxinventJournalTable.parmJournalNameId(inventParameters.EMG_DefaultJournalName);    AxinventJournalTable.parmJournalType(InventJournalType::Transfer);    AxinventJournalTable.save();

   //Below code creates journal lines    AXinventJournalTrans.inventJournalTableRecord(AxinventJournalTable.inventJournalTable());    AXinventJournalTrans.parmJournalId(AXinventJournalTable.parmJournalId());    AXinventJournalTrans.parmTransDate(systemDateGet());    AXinventJournalTrans.inventTableRecord(InventTable::find(_inventSum.ItemId));    AXinventJournalTrans.parmItemId(_inventSum.ItemId);    AxinventJournalTrans.parmQty(_qtyInput);

   AxinventJournalTrans.parmInventDimId(_inventDim.inventDimId);

   AxinventJournalTrans.axToInventDim().parmInventSiteId(_inventSiteIdInput);    AxinventJournalTrans.axToInventDim().parmInventLocationId(_inventLocationIdInput);    AxinventJournalTrans.axToInventDim().parmInventBatchId(_inventBatchIdInput);    AxinventJournalTrans.axToInventDim().parmWMSLocationId(_wMSLocationIdInput);    AxinventJournalTrans.axToInventDim().parmWMSPalletId(_wMSPalletIdInput);

   AxinventJournalTrans.save();

   //The below code posts the journal    journalCheckPost = InventJournalCheckPost::newPostJournal(AxinventJournalTable.inventJournalTable());    journalCheckPost.run();