Program drill-down
TROLLEY_MAINTENANCE
TROLLEY MAINTENANCE SCREEN. Type MDL, base table TROLLEY_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 | Label 3 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 301, 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 'O:HIDE;T\PERC |
|
| 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 | T | -1 | 201, 157 | |||
| 1 | 0.0 | Label 13 | T | -1 | 201, 193 | ||
| 1 | 0.0 | Label 14 | T | -1 | 201, 229 | ||
| 1 | 0.0 | Label 15 | T | -1 | 201, 301 | ||
| 1 | 0.0 | Label 16 | T | -1 | 201, 337 | ||
| 1 | 0.0 | Label 17 | T | -1 | 201, 373 | ||
| 1 | 0.0 | Label 18 | T | -1 | 201, 409 | ||
| 1 | 0.0 | TROLLEY_MAST | TM_TROLLEYNO | I | -1 | 361, 157 | $SELECT S:TROLLEY_NO2;I\TM_TROLLEYNO;I\MARKET $VALIDATE M: C:UCASE A:ZEROFILL;I\TM_TROLLEYNO,4,I\TM_TROLLEYNO 'F:TROLLEY_MAST;;;I\DESC=TM_DESC;TM_MARKET='$I\MARKET$' $BEFORE_DELETE 'NOT ALLOWING A USER TO DELETE WHILE THE FOLLWING FIELDS ARE EMPTY I:I\TM_TROLLEYNO;=; D:YOU CANNOT DELETE THIS FIELD |
| 1 | 0.0 | TROLLEY_MAST | TM_DESC | I | -1 | 361, 193 | $VALIDATE M: C:UCASE 'I:I\TM_DESC;=;I\DESC 'D:ERROR - THE DESCRIPTION IS ALREADY IN USE;ERRORM;I\TM_DESC |
| 1 | 0.0 | TROLLEY_MAST | TM_ALTDESC | I | -1 | 361, 229 | $VALIDATE C:UCASE |
| 1 | 0.0 | TROLLEY_MAST | TM_DDEPOSIT | I | -1 | 361, 301 | $VALIDATE 'COMMENTED BY LP20090929 ON KASSIE'S REQUEST 'M: 'I:I\TM_DDEPOSIT;=;0.00 'D:ERROR - DAILY DEPOSIT CANNOT BE ZERO;ERRORM;I\TM_DDEPOSIT I:I\TARIFF;=;0.00 A:CONST;;I\TARIFF I:I\TM_DDEPOSIT;=;0.00 A:CONST;0;I\TM_DDEPOSIT I:I\TM_DDEPOSIT;=; DO(CHK1) I:I\TARIFF;=; D:EITHER ONE IS MANDATORY BETWEEN |
| 1 | 0.0 | TROLLEY_MAST | TM_DRENTAL | I | -1 | 361, 337 | $VALIDATE I:I\TARIFF;=; DO(01) M: I:I\TM_DRENTAL;=;0.00 D:ERROR - DAILY RENTAL CANNOT BE ZERO;ERRORM;I\TM_DRENTAL 'WHOLE CHECK/CONDITION ADDED BY LP20090929 ON KASSIE'S REQUEST I:I\TM_DDEPOSIT;>;0.00 DO(02) I:I\TM_DRENTAL;>;I\TM_DDEPOSIT D:DAILY RENTAL CANNOT BE GREATER THAN THE DEPOSIT AMOUNT |
| 1 | 0.0 | TROLLEY_MAST | TM_MRENTAL | I | -1 | 361, 373 | $VALIDATE I:I\TARIFF;=; DO(03) M: I:I\TM_MRENTAL;=;0.00 D:ERROR - MONTHLY RENTAL CANNOT BE ZERO;ERRORM;I\TM_MRENTAL DOEND(03) |
| 1 | 0.0 | TROLLEY_MAST | TM_VATCD | I | -1 | 361, 409 | $SELECT S:VAT_CODE;I\TM_VATCD $VALIDATE M: F:VAT_MAST;Y;;T\VATRATE2=VT_RATE;VT_CODE='$I\TM_VATCD$';I\TM_VATCD A:CONST;$T\VATRATE2$%;T\VATRATE2 'A:CON;T\VATRATE2;T\VATRATE2;"%" $AFTER_READ I:I\TM_VATCD;=; A:CONST;;T\VATRATE2 I:I\TM_VATCD;<>; DO(01) F:VAT_MAST;Y;;T\VATRATE2=VT_RATE;VT_CODE='$I\TM_VATC |
| 1 | 0.0 | TROLLEY_MAST | TM_VATCD_DEP | I | -1 | 361, 445 | $SELECT S:VAT_CODE;I\TM_VATCD_DEP $VALIDATE I:I\TM_VATCD_DEP;<>; DO(03) F:VAT_MAST;Y;;T\VATRATE=VT_RATE;VT_CODE='$I\TM_VATCD_DEP$';I\TM_VATCD_DEP A:CONST;$T\VATRATE$%;T\VATRATE 'A:CON;T\VATRATE;T\VATRATE;"%" DOEND(03) $AFTER_READ I:I\TM_VATCD_DEP;=; A:CONST;;T\VATRATE I:I\TM_VATCD_DEP;<>; DO(02) F:V |
| 1 | 0.0 | Label 1 | T | -1 | 201, 265 | ||
| 1 | 0.0 | Label 26 | T | -1 | 461, 409 | ||
| 1 | 0.0 | VATRATE | I | 0 | 631, 409 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 421, 157 | $SELECT S:TROLLEY_NO2;I\TM_TROLLEYNO;I\MARKET |
|
| 1 | 0.0 | TROLLEY_MAST | TM_MARKET | I | 0 | 461, 157 | |
| 1 | 0.0 | CMD 2 | C | -1 | 421, 409 | $SELECT S:VAT_CODE;I\TM_VATCD |
|
| 1 | 0.0 | Label 3 | T | 0 | 711, 409 | ||
| 1 | 0.0 | Work 1 | I | 0 | 351, 505 | ||
| 1 | 0.0 | Label 1 | T | -1 | 201, 445 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 421, 445 | $SELECT S:VAT_CODE;I\TM_VATCD_DEP |
|
| 1 | 0.0 | Label 4 | T | -1 | 461, 445 | ||
| 1 | 0.0 | TROLLEY_MAST | TM_FLATTARIFF | I | -1 | 361, 265 | $VALIDATE I:I\TARIFF;=;0.00 A:CONST;;I\TARIFF I:I\TARIFF;=; DO(EMPTY) A:CONST;;I\TARIFF O:ENABLEINPUT;I\TM_DDEPOSIT,I\TM_DRENTAL,I\TM_MRENTAL,I\TM_VATCD_DEP,C\TM_VATCD_DEP DOEND(EMPTY) I:I\TARIFF;<>; DO(NOT_EMPTY) I:I\TARIFF;<;0 DO(CHK) D:ERROR - TARIFF CANNOT BE LESS THAN ZERO;ERRORM;I\TARIFF |
| 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 |