Program drill-down
COLOUR_MAST
COLOUR MAINTENANCE. Type MAN, base table COLOUR_MAST.
Field inventory
30
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 0, 60 | |||
| 1 | 0.0 | COLOUR_MAST | CLR_COLOUR | I | -1 | 41, 145 | 'DISPLAYING DATA FOR F5 FUNCTION $SELECT S:COLOUR_ITEM;I\CLR_COLOUR 'CHANGING CASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE M: C:UCASE |
| 1 | 0.0 | NUMTST | I | 0 | 21, 541 | ||
| 1 | 0.0 | COLOUR_MAST | CLR_COLOUR | T | -1 | 41, 121 | |
| 1 | 0.0 | Label 8 | T | -1 | 301, 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 | 11, 73 | 'SET ON TIME AND DATE $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZES GRID AND RETRIEVE DAT FRO DATABASE TO GRID '$CALCULATE U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\CLR_COLOUR,I\CLR_DESC,I\CLR_ALT_DESC,I\CLR_BLOCKED U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDM;COLOUR_MAST |
||
| 1 | 0.0 | Work 2 | G | -1 | 41, 169 | ||
| 1 | 0.0 | COLOUR_MAST | CLR_DESC | I | -1 | 111, 145 | 'CHANGING CASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE M: C:UCASE 'CODE TO ENSURE THAT THE DESCRIPTION DOES NOT ALREADY EXIST IN THE GRID 'CLEAR FIELDS A:CONST;;W\TEMP1 A:CONST;;W\TEMP2 'CHECK IF CODE ALREADY EXISTS U:PALLET_TYPE;CODE_CHECK;I\CLR_COLOUR,G\GRIDM,W\TEMP1,I\CLR_DESC I:W\TEMP1;=;N |
| 1 | 0.0 | COLOUR_MAST | CLR_DESC | T | -1 | 111, 121 | |
| 1 | 0.0 | COLOUR_MAST | CLR_ALT_DESC | I | -1 | 361, 145 | 'CHANGING CASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE M: C:UCASE 'CODE TO ENSURE THAT THE ALTERNATE DESCRIPTION DOES NOT ALREADY EXIST IN THE GRID 'CLEAR FIELDS A:CONST;;W\TEMP3 A:CONST;;W\TEMP4 'CHECK IF CODE ALREADY EXISTS U:PALLET_TYPE;CODE_CHECK;I\CLR_COLOUR,G\GRIDM,W\TEMP3,I\CLR_ALT_DESC I |
| 1 | 0.0 | COLOUR_MAST | CLR_ALT_DESC | T | -1 | 361, 121 | |
| 1 | 0.0 | CMD 5 | C | -1 | 81, 145 | 'DISPLAYING DATA FOR F5 FUNCTION $SELECT S:COLOUR_ITEM;I\CLR_COLOUR |
|
| 1 | 0.0 | Work 2 | I | 0 | 251, 493 | ||
| 1 | 0.0 | Work 3 | I | 0 | 291, 493 | ||
| 1 | 0.0 | Work 4 | I | 0 | 341, 493 | ||
| 1 | 0.0 | Work 5 | I | 0 | 381, 493 | ||
| 1 | 0.0 | Work 7 | I | 0 | 71, 73 | $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 | COLOUR_MAST | CLR_BLOCKED | I | -1 | 611, 145 | CHANGE CASE TO UPPER CASE AND SET THIS FIELD MANDATORY $VALIDATE I:I\CLR_BLOCKED;=; A:CONST;N;I\CLR_BLOCKED M: C:UCASE 'ONLY ALLOW THESE INPUTS V:Y;N $AFTER_WRITE @A:CONST;;I\CLR_BLOCKED |
| 1 | 0.0 | COLOUR_MAST | CLR_BLOCKED | T | -1 | 611, 121 | |
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 60 |