Program drill-down
TROLLEY_QUANTITY_MAN
TROLLEY QUANTITY MAINTENANCE. Type MDL, base table TROLLEY_MAST.
Field inventory
45
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 0, 30 | |||
| 1 | 0.0 | Label 3 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 261, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 1, 25 | ||
| 1 | 0.0 | MARKET | I | 0 | 111, 37 | $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 A:VAR;I\MARKET;I\TM_MARKET $AFTER_READ A:VAR;I\MARKET;I\TM_MARKET |
|
| 1 | 0.0 | DEFAULT | I | 0 | 141, 37 | 'DISPLAYING TIME $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 A:USERID;;I\USER A:USERIP;;I\IP |
|
| 1 | 0.0 | Label 8 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 9 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 10 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 11 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 12 | T | -1 | 171, 187 | ||
| 1 | 0.0 | Label 13 | T | -1 | 171, 223 | ||
| 1 | 0.0 | Label 14 | T | -1 | 171, 259 | ||
| 1 | 0.0 | Label 15 | T | -1 | 171, 295 | ||
| 1 | 0.0 | Label 16 | T | -1 | 171, 331 | ||
| 1 | 0.0 | Label 17 | T | -1 | 171, 367 | ||
| 1 | 0.0 | Label 18 | T | -1 | 171, 403 | ||
| 1 | 0.0 | TROLLEY_MAST | TM_TROLLEYNO | I | -1 | 361, 181 | $SELECT S:TROLLEY_NO3;I\TM_TROLLEYNO;I\MARKET $VALIDATE M: C:UCASE A:ZEROFILL;I\TM_TROLLEYNO,4,I\TM_TROLLEYNO F:TROLLEY_MAST;Y;TM_TROLLEYNO;I\FIRST_TIME=TM_INITIALQTY,I\TOT_INCR=TM_TOT_INCRQTY,I\TOT_DECR=TM_TOT_DECRQTY,I\TOT_TRQTY=TM_TOT_RETURNQTY,I\TOT_ISQTY=TM_TOT_ISSUEQTY;;I\TM_TROLLEYNO 'ADD THE FOLLOW |
| 1 | 0.0 | TROLLEY_MAST | TM_DESC | I | -1 | 361, 223 | $VALIDATE M: C:UCASE |
| 1 | 0.0 | TROLLEY_MAST | TM_ALTDESC | I | -1 | 361, 259 | $VALIDATE C:UCASE |
| 1 | 0.0 | TROLLEY_MAST | TM_INITIALQTY | I | -1 | 361, 295 | $VALIDATE I:I\FIRST_TIME;=; DO(01) M: DOEND(01) I:I\FIRST_TIME;=;0 DO(02) M: DOEND(02) I:I\TM_INITIALQTY;=;0 D:INITIAL QTY MUST BE GREATER THAN ZERO;ERRORM;I\TM_INITAILQTY |
| 1 | 0.0 | Work 23 | I | -1 | 361, 331 | ||
| 1 | 0.0 | INCREASE_QTY | I | -1 | 361, 367 | $VALIDATE I:I\INCREASE_QTY;<>; O:DISABLEINPUT;I\DECREASE_QTY I:I\INCREASE_QTY;=; O:ENABLEINPUT;I\DECREASE_QTY |
|
| 1 | 0.0 | DECREASE_QTY | I | -1 | 361, 403 | $VALIDATE I:I\DECREASE_QTY;<>; O:DISABLEINPUT;I\INCREASE_QTY I:I\DECREASE_QTY;=; O:ENABLEINPUT;I\INCREASE_QTY 'I:I\INCREASE_QTY;<>; 'DO(CHK4) 'I:I\DECREASE_QTY;<>; 'O:ENABLEINPUT;I\INCREASE_QTY 'D:ERROR - EITHER DECREASE OR INCREASE QUANTITY;ERRORM;I\INCREASE_QTY 'DOEND(CHK4) I:I\DECRE |
|
| 1 | 0.0 | Label 26 | T | -1 | 171, 439 | ||
| 1 | 0.0 | REASON | I | -1 | 361, 439 | $VALIDATE C:UCASE $BEFORE_DELETE 'NOT ALLOWING A USER TO DELETE AN EMPTY FIELDS '$BEFORE_DELETE 'I:I\CT_CODE;=; 'D:YOU CANNOT DELETE A EMPTY FIELD;ERRORM;I\CT_CODE 'I:I\CT_DESC;=; 'D:YOU CANNOT DELETE A EMPTY FIELD;ERRORM;I\CT_DESC 'I:I\CT_FORMULAE;=; 'D:YOU CANNOT DELETE A EMPTY FIELD;ERRORM;I\ |
|
| 1 | 0.0 | CMD 1 | C | -1 | 421, 181 | $SELECT S:TROLLEY_NO3;I\TM_TROLLEYNO;I\MARKET |
|
| 1 | 0.0 | Label 1 | T | -1 | 521, 367 | ||
| 1 | 0.0 | Label 2 | T | -1 | 521, 403 | ||
| 1 | 0.0 | TROLLEY_MAST | TM_TOT_INCRQTY | I | -1 | 671, 367 | |
| 1 | 0.0 | TROLLEY_MAST | TM_TOT_DECRQTY | I | -1 | 671, 397 | |
| 1 | 0.0 | TROLLEY_MAST | TM_MARKET | I | 0 | 471, 181 | |
| 1 | 0.0 | Work 1 | I | 0 | 181, 493 | ||
| 1 | 0.0 | TOT_INCR | I | 0 | 241, 493 | ||
| 1 | 0.0 | TOTAL_ADD | I | 0 | 361, 493 | ||
| 1 | 0.0 | TOT_DECR | I | 0 | 301, 493 | ||
| 1 | 0.0 | IP | I | 0 | 451, 493 | ||
| 1 | 0.0 | USER | I | 0 | 421, 493 | ||
| 1 | 0.0 | TOT_ISQTY | I | 0 | 71, 493 | ||
| 1 | 0.0 | TOT_TRQTY | I | 0 | 101, 493 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 30 |