Program drill-down
SUPPL_LEVY
SUPPLIER LEVY MAINTENANCE. Type MDL, base table SUPPL_LEVY.
Field inventory
29
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | SUPPL_LEVY | SL_LEVY | I | -1 | 461, 205 | $SELECT S:LEVY;I\SL_LEVY $CALCULATE 'U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\SUPP_LEVY;I\SL_LEVY 'LOAD THE LEVY CODE DECRIPTION 'U:GRID_DESC_LOAD;LOAD;G\SUPP_LEVY,I\SL_SUPPL,LV_DESC,LEVY_MAST,LV_CODE,I\SL_DESC, $VALIDATE 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'ZERO FILL TO SIX DIGITS |
| 1 | 0.0 | SUPPL_LEVY | SL_LEVY | T | -1 | 461, 181 | |
| 1 | 0.0 | Work 12 | I | 0 | 101, 85 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 U:ZZGRID_SPLIT;INIT_GRID;G\SUPP_LEVY;I\SL_SUPPL,I\SL_NAME,I\SL_LEVY,I\SL_DESC U:ZZGRID_SPLIT;DB_TO_GRID;G\SUPP_LEVY;SUPPL_LEVY 'GET THE DESCRIPTIONS FROM THE DATABASE AND LOAD THEM IN THE GRID FOR THEIR RESPECTIVE CODES U:GRID_DESC_L |
|
| 1 | 0.0 | SUPPL_LEVY | SL_SUPPL | T | -1 | 111, 181 | |
| 1 | 0.0 | Work 3 | G | -1 | 111, 229 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 231, 205 | $SELECT 'DISPLAY SELECTION WINDOW I:I\AGENT;<>; S:SUPPLIER_MAST1;I\SL_SUPPL;I\AGENT I:I\AGENT;=; S:SUPPLIER_MAST;I\SL_SUPPL |
|
| 1 | 0.0 | Label 5 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 7 | T | -1 | 281, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 9 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 10 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 11 | T | -1 | 671, 25 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 521, 205 | $SELECT S:LEVY;I\SL_LEVY |
|
| 1 | 0.0 | Work 1 | I | -1 | 261, 205 | ||
| 1 | 0.0 | Work 2 | I | -1 | 551, 205 | $BEFORE_DELETE 'DISPLAY ERROR MESSAGE IF THE FOLLOWING FIELDS ARE EMPTY I:I\SL_SUPPL;=; D:YOU CANNOT DELETE - EMPTY VALUES;ERRORM;I\SL_SUPPL I:I\SL_NAME;=; D:YOU CANNOT DELETE - EMPTY VALUES;ERRORM;I\SL_SUPPL I:I\SL_LEVY;=; D:YOU CANNOT DELETE - EMPTY VALUES;ERRORM;I\SL_LEVY I:I\SL_DESC;=; D:YOU CANNOT |
|
| 1 | 0.0 | DELINDZ | I | 0 | 361, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 181, 433 | ||
| 1 | 0.0 | Label 3 | T | -1 | 261, 181 | ||
| 1 | 0.0 | Label 4 | T | -1 | 551, 181 | ||
| 1 | 0.0 | SUPPL_LEVY | SL_SUPPL | I | -1 | 111, 205 | $SELECT 'DISPLAY SELECTION WINDOW I:I\AGENT;<>; S:SUPPLIER_MAST1;I\SL_SUPPL;I\AGENT I:I\AGENT;=; S:SUPPLIER_MAST;I\SL_SUPPL $VALIDATE M: C:UCASE 'ZERO FILL TO SIX DIGITS A:LEN;I\SL_SUPPL;W\TEMP I:W\TEMP;=;1 A:CON;"00000";I\SL_SUPPL;I\SL_SUPPL I:W\TEMP;=;2 A:CON;"0000";I\SL_SUPPL;I\SL_SUPPL |
| 1 | 0.0 | Work 12 | I | 0 | 31, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\AGENT 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCASE;;T\MARKET A:PARM;1;I\SL_SUPPL |
|
| 1 | 0.0 | Work 1 | I | 0 | 111, 433 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |