Index: BL/MB/UGLYPicking/Opslag.cls.xml =================================================================== diff -u -r34571 -r43056 --- BL/MB/UGLYPicking/Opslag.cls.xml (.../Opslag.cls.xml) (revision 34571) +++ BL/MB/UGLYPicking/Opslag.cls.xml (.../Opslag.cls.xml) (revision 43056) @@ -81,6 +81,7 @@ //---------------------------------------------------------------------------------------------- //AUTO CC flag(s) //---------------------------------------------------------------------------------------------- + New tmpStatus $$$WriteToLog("AutoCC flag extra_int_6 met één verhogen (doel).") Set tmpStatus=##class(EWMS.Inventory).IncExtraInt6(DoelPalletID,Product) Quit:(tmpStatus'="") $listbuild(-3,tmpStatus) @@ -552,6 +553,7 @@ //---------------------------------------------------------------------------------------------- //COMMIT PICKING //---------------------------------------------------------------------------------------------- + New tmpStatus Set tmpStatus = ..FChangeStock(LocID, Locatie, Sectie, Product, CCQty, 0, HistoryRemark, SQLGCWrapper, Reden, UserID, AutoCC) $$$WriteToLog("ChangeStock: "_$$LCVT^vhLib(tmpStatus))