Program drill-down
DEDUCT_MAST
DEDUCTION CODE MAINTENANCE. Type MAN, base table DEDUCT_MAST.
Field inventory
42
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 | Work 15 | I | 0 | 81, 61 | ||
| 1 | 0.0 | DEDUCT_MAST | DM_AGENT | T | -1 | 21, 121 | |
| 1 | 0.0 | DEDUCT_MAST | DM_CALC_TYPE | I | -1 | 361, 217 | $SELECT 'ALLOW THE USER TO PRESS 'F5' TO VIEW AND SELECT EXISTING VALUES S:CT_CODE;I\DM_CALC_TYPE $VALIDATE 'ENSURE THAT THE USER DOES NOT LEAVE THIS FIELD BLANK M: 'CONVERT VALUES TO UPPERCASE C:UCASE 'ZERO FILL THIS FIELD TO 2 DIGITS A:CONST;;W\CONC A:LEN;I\DM_CALC_TYPE;W\CONC I:W\CONC;=;1 A:CON;"0" |
| 1 | 0.0 | DEDUCT_MAST | DM_CALC_TYPE | T | -1 | 361, 193 | |
| 1 | 0.0 | DEDUCT_MAST | DM_CODE | I | -1 | 21, 217 | $SELECT S:DEDUCT_CODE2;I\DM_CODE;I\DM_AGENT $VALIDATE 'ENSURE THAT THE USER DOES NOT LEAVE THIS FIELD BLANK M: 'CONVERT VALUES TO UPPERCASE C:UCASE 'ENSURE THAT ONLY EXISTING VALUES ARE ACCEPTED FOR THIS FIELD - - CHRISTO WANTED IT TO ACCEPT NEW DEDUCTION CODES 'F:DEDUCT_MAST;Y;DM_CODE;;DM_CODE='$I\DM_C |
| 1 | 0.0 | DEDUCT_MAST | DM_CODE | T | -1 | 22, 193 | |
| 1 | 0.0 | DEDUCT_MAST | DM_DESC | I | -1 | 161, 217 | $VALIDATE 'ENSURE THAT THE USER DOES NOT LEAVE THIS FIELD BLANK M: 'CONVERT VALUES TO UPPERCASE C:UCASE 'REMOVE EMPTY SPACES ON EOTHER SIDE A:TRIM;I\DM_DESC;I\DM_DESC 'BEGINS 'CODE TO ENSURE THAT THE DESCRIPTION DOES NOT ALREADY EXIST IN THE GRID 'CLEAR FIELDS 'A:CONST;;W\TEMP1 'A:CONST;;W\TEMP2 |
| 1 | 0.0 | DEDUCT_MAST | DM_DESC | T | -1 | 162, 193 | |
| 1 | 0.0 | DEDUCT_MAST | DM_RATE | I | -1 | 511, 217 | $VALIDATE 'ENSURE THAT THE USER DOES NOT LEAVE THIS FIELD BLANK M: 'CONVERT VALUES TO UPPERCASE C:UCASE A:ISNUMERIC;I\DM_RATE;W\TEMP3 I:W\TEMP3;=;N D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\DM_RATE A:VAR;I\DM_RATE;I\DM_RATE;;#0.00 |
| 1 | 0.0 | DEDUCT_MAST | DM_RATE | T | -1 | 511, 193 | |
| 1 | 0.0 | DEDUCT_MAST | DM_VAT_CODE | I | -1 | 591, 217 | $SELECT 'ALLOW THE USER TO PRESS 'LOOKUP' BUTTON TO VIEW AND SELECT EXISTING VALUES S:VAT;I\DM_VAT_CODE $VALIDATE 'ENSURE THAT THE USER DOES NOT LEAVE THIS FIELD BLANK M: 'CONVERT VALUES TO UPPERCASE C:UCASE 'VALIDATING FOR INVALID ENTRIES I:I\DM_VAT_CODE;=;-- D:INVALID ENTRY;ERRORM;I\DM_VAT_CODE I |
| 1 | 0.0 | DEDUCT_MAST | DM_VAT_CODE | T | -1 | 591, 193 | |
| 1 | 0.0 | Work 7 | G | -1 | 21, 241 | ||
| 1 | 0.0 | Label 8 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 10 | T | -1 | 261, 49 | ||
| 1 | 0.0 | Label 11 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 12 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 13 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 14 | T | -1 | 671, 25 | ||
| 1 | 0.0 | CMD 18 | C | -1 | 481, 217 | $SELECT 'ALLOW THE USER TO PRESS 'LOOKUP' BUTTON TO VIEW AND SELECT EXISTING VALUES S:CT_CODE;I\DM_CALC_TYPE |
|
| 1 | 0.0 | Label 2 | T | -1 | 201, 121 | ||
| 1 | 0.0 | DEDUCT_MAST | DM_AGENT | I | -1 | 121, 121 | $SELECT 'ALLOW THE USER TO PRESS 'F5' TO VIEW AND SELECT EXISTING VALUES S:AGENT_CODE;I\DM_AGENT $VALIDATE 'ENSURE THAT THE USER DOES NOT LEAVE THIS FIELD BLANK M: 'CONVERT VALUES TO UPPERCASE C:UCASE 'ENSURE THAT ONLY EXISTING VALUES ARE ACCEPTED FOR THIS FIELD I:I\DM_AGENT;<>;MKT F:AGENT_MAST;Y;AM_COD |
| 1 | 0.0 | CMD 19 | C | -1 | 131, 217 | $SELECT 'DISPLAY A SELECTION WINDOW S:DEDUCT_CODE2;I\DM_CODE;I\DM_AGENT |
|
| 1 | 0.0 | Work 3 | I | 0 | 181, 445 | ||
| 1 | 0.0 | Work 4 | I | 0 | 221, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 601, 157 | ||
| 1 | 0.0 | CMD 2 | C | -1 | 641, 217 | $SELECT 'ALLOW THE USER TO PRESS 'LOOKUP' BUTTON TO VIEW AND SELECT EXISTING VALUES S:VAT;I\DM_VAT_CODE |
|
| 1 | 0.0 | Work 7 | I | 0 | 21, 61 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZE THE GRID U:ZZGRID_SPLIT;INIT_GRID;G\DED_GRID;I\DM_CODE,I\DM_DESC,I\DM_CALC_TYPE,I\DM_RATE,I\DM_VAT_CODE,I\DM_BLOCKED '$DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;;T\MARKET=CM_NAME;C |
|
| 1 | 0.0 | Work 1 | I | 0 | 261, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 71, 445 | ||
| 1 | 0.0 | Label 2 | T | -1 | 671, 193 | ||
| 1 | 0.0 | DEDUCT_MAST | DM_BLOCKED | I | -1 | 671, 217 | $VALIDATE 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'ALLOW ONLY Y N OR BLANK TO ENTERED HERE V:Y;N; $AFTER_READ 'DEFAULT TO N IF LEFT BLANK I:I\DM_BLOCKED;=; A:CONST;N;I\DM_BLOCKED |
| 1 | 0.0 | Work 2 | I | 0 | 121, 157 | ||
| 1 | 0.0 | Work 3 | I | 0 | 151, 157 | ||
| 1 | 0.0 | DM_MARKET | I | -1 | 331, 121 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | 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_EXIT | Z | 0 | 0, 0 |