Enable Inventory Adjustment from Job Queue

Today I posted a new feedback to Microsoft. My experience is that companies that use inventory should execute Inventory Adjustment with the Job Queue every night. To be able to do this a change is required to the OpenWindow trigger in codeunit 5895.

The old code is

[code]OpenWindow()
Window.OPEN(
Text000 +
‘#1########################\\’ +
Text001 +
Text003 +
Text004 +
Text005 +
Text006);
WindowIsOpen := TRUE;

IF IsTimeForUpdate THEN BEGIN
IF NOT WindowIsOpen THEN
OpenWindow;
Window.UPDATE(1,STRSUBSTNO(Text002,AdjmtBuf.FIELDCAPTION("Item No."),WindowItem));
Window.UPDATE(2,WindowAdjmtLevel);
Window.UPDATE(3,WindowAdjust);
Window.UPDATE(4,WindowFWLevel);
Window.UPDATE(5,WindowEntry);
END;[/code]

and the new code is

[code]
OpenWindow()
IF GUIALLOWED THEN BEGIN
Window.OPEN(
Text000 +
‘#1########################\\’ +
Text001 +
Text003 +
Text004 +
Text005 +
Text006);
WindowIsOpen := TRUE;
END;
END;

UpDateWindow(NewWindowAdjmtLevel : Integer;NewWindowItem : Code[20];NewWindowAdjust : Text[20];NewWindowFWLevel : Integer;NewWindowEntr
WindowAdjmtLevel := NewWindowAdjmtLevel;
WindowItem := NewWindowItem;
WindowAdjust := NewWindowAdjust;
WindowFWLevel := NewWindowFWLevel;
WindowEntry := NewWindowEntry;
IF GUIALLOWED THEN BEGIN
IF IsTimeForUpdate THEN BEGIN
IF NOT WindowIsOpen THEN
OpenWindow;
Window.UPDATE(1,STRSUBSTNO(Text002,AdjmtBuf.FIELDCAPTION("Item No."),WindowItem));
Window.UPDATE(2,WindowAdjmtLevel);
Window.UPDATE(3,WindowAdjust);
Window.UPDATE(4,WindowFWLevel);
Window.UPDATE(5,WindowEntry);
END;
END;[/code]

If you agree with this please vote here. A simple extension to the Job Queue can be found in an earlier post.

Leave a ReplyCancel reply