Program drill-down
CALC_TYPE_MAN
CALCULATION TYPE MAINTENANCE. Type MAN, base table CALC_TYPE.
Field inventory
27
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CALC_TYPE | CAP_DESC | I | -1 | 131, 265 | 'CHANGING CASE OF THE INPUT TEXT TO UPPER CASE AND MANDATORY FIELD $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\CAP_CODE,G\CALC,W\TEMP1,I\CAP_DESC I:W\ |
| 1 | 0.0 | CALC_TYPE | CAP_CODE | T | -1 | 41, 241 | |
| 1 | 0.0 | CALC_TYPE | CAP_CODE | I | -1 | 41, 265 | 'SHOWING EXISTING CALCULATION TYPES, DESCRIPTIONS AND FORMULARS FROM THE TABLE $SELECT S:CAP_CODE;I\CAP_CODE 'MANDATORY FIELD AND CHANGING CASE TO UPPER CASE $VALIDATE M: C:UCASE 'PUT ZERO AS FIRST 2 CHARACTERS A:LEN;I\CAP_CODE;W\TEMP3 I:W\TEMP3;=;1 DO(LL) A:CON;"0";I\CAP_CODE;I\CAP_CODE 'LOOK UP |
| 1 | 0.0 | CALC_TYPE | CAP_FORMULAE | T | -1 | 551, 241 | |
| 1 | 0.0 | CALC_TYPE | CAP_DESC | T | -1 | 131, 241 | |
| 1 | 0.0 | H | -1 | 0, 30 | |||
| 1 | 0.0 | Work 15 | I | 0 | 131, 175 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZES GRID AND RETRIEVE RECORDS FROM DATABASE TO GRID U:ZZGRID_SPLIT;INIT_GRID;G\CALC;I\CAP_CODE,I\CAP_DESC,I\CAP_FORMULAE U:ZZGRID_SPLIT;DB_TO_GRID;G\CALC;CALC_TYPE |
|
| 1 | 0.0 | Label 14 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 12 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 11 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 10 | T | -1 | 321, 49 | ||
| 1 | 0.0 | Work 6 | G | -1 | 41, 289 | ||
| 1 | 0.0 | CMD 7 | C | -1 | 101, 265 | $SELECT S:CAP_CODE;I\CAP_CODE |
|
| 1 | 0.0 | Label 8 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 13 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Work 1 | I | 0 | 41, 499 | ||
| 1 | 0.0 | Work 1 | I | 0 | 321, 481 | ||
| 1 | 0.0 | Work 2 | I | 0 | 371, 481 | ||
| 1 | 0.0 | CALC_TYPE | CAP_FORMULAE | I | -1 | 551, 265 | 'CHANGING TEXT TO UPPERCASE AND SET FIELD MANDATORY $VALIDATE M: C:UCASE |
| 1 | 0.0 | Work 1 | I | 0 | 41, 85 | $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 | Work 3 | I | 0 | 421, 481 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 30 |