Program drill-down
ITEM_COLOUR
ITEM COLOUR MAINTENANCE. Type MDL, base table ITEM_COLOUR.
Field inventory
37
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 1 | I | 0 | 21, 409 | ||
| 1 | 0.0 | Work 2 | I | 0 | 21, 433 | ||
| 1 | 0.0 | H | -1 | 0, 90 | |||
| 1 | 0.0 | ITEM_COLOUR | IC_ITEM | I | -1 | 211, 181 | 'SELECT ITEM CODE FROM TABLE ITEM_COLOUR FOR F5 FUNCTION $SELECT S:ITEM_CODE2;I\IC_ITEM 'SELECT PRODUCT FROM PRODUCT_MAST TABLE FOR F6 FUNCTION $SELECT6 S:PRODUCT_MAST;I\IC_ITEM 'SELECT VARIETY FROM VAR_MAST TABLE FOR F7 FUNCTION $SELECT7 I:I\IC_ITEM;<>; DO(001) S:VAR_MAST_PROD;I\IC_ITEM;I\IC_ITEM A: |
| 1 | 0.0 | Label 8 | T | -1 | 281, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | I | 0 | 10, 97 | 'SETTING DATE AND TIME $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 INITIALIZING GRID '$CALCULATE 'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\IC_ITEM,W\ITEM:H,W\VARIETY:H,W\PROD_DESC:H,W\VAR_DESC:H,I\IC_COLOUR,I\IC_BLOCKED U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\IC_ITEM,I\DESC,I\IC_COLOUR, |
||
| 1 | 0.0 | Work 2 | G | -1 | 211, 205 | ||
| 1 | 0.0 | ITEM_COLOUR | IC_COLOUR | I | -1 | 491, 181 | 'SELECT COLOUR CODE FROM COLOUR_MAST TABLE FOR F5 FUNCTION $SELECT S:COLOUR_ITEM;I\IC_COLOUR $VALIDATE M: C:UCASE 'LOOK UP FOR EXISTING COLOUR FROM F:COLOUR_MAST;Y;CLR_COLOUR;I\IC_COLOUR=CLR_COLOUR,W\BLOCK=CLR_BLOCKED;;I\IC_COLOUR I:W\BLOCK;=;Y D:ERROR - THIS COLOUR HAS BEEN BLOCKED;ERRORM;I\IC_COLOUR |
| 1 | 0.0 | ITEM_COLOUR | IC_COLOUR | T | -1 | 491, 157 | |
| 1 | 0.0 | Work 2 | I | 0 | 450, 426 | ||
| 1 | 0.0 | ITEM_COLOUR | IC_ITEM | T | -1 | 211, 157 | |
| 1 | 0.0 | CMD 2 | C | -1 | 261, 181 | 'SELECT ITEM CODE FROM TABLE ITEM_COLOUR FOR F5 FUNCTION $SELECT S:ITEM_CODE;I\IC_ITEM |
|
| 1 | 0.0 | CMD 6 | C | -1 | 521, 181 | 'SELECT COLOUR CODE FROM COLOUR_MAST TABLE FOR F5 FUNCTION $SELECT S:COLOUR_ITEM;I\IC_COLOUR |
|
| 1 | 0.0 | Work 1 | I | 0 | 461, 397 | ||
| 1 | 0.0 | Work 1 | I | 0 | 431, 115 | ||
| 1 | 0.0 | Work 8 | I | 0 | 81, 109 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET |
|
| 1 | 0.0 | ITEM_COLOUR | IC_BLOCKED | I | -1 | 551, 181 | $VALIDATE I:I\IC_BLOCKED;=; A:CONST;N;I\IC_BLOCKED M: C:UCASE V:Y;N |
| 1 | 0.0 | ITEM_COLOUR | IC_BLOCKED | T | -1 | 551, 157 | |
| 1 | 0.0 | DESCRIPTION | I | -1 | 291, 181 | ||
| 1 | 0.0 | Label 3 | T | -1 | 291, 157 | ||
| 1 | 0.0 | Work 4 | I | 0 | 231, 229 | ||
| 1 | 0.0 | Work 5 | I | 0 | 281, 229 | ||
| 1 | 0.0 | Work 6 | I | 0 | 431, 229 | ||
| 1 | 0.0 | Work 7 | I | 0 | 329, 231 | ||
| 1 | 0.0 | BLOCKED | I | 0 | 91, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 351, 517 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 90 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 90 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 90 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 90 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 90 |