Program drill-down
TROLLEY_HIRED
TROLLEY HIRE. Type MAN, base table TROLLEY_MAST.
Field inventory
75
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 | 301, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 1, 25 | ||
| 1 | 0.0 | MARKET | I | 0 | 111, 67 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'I:I\MARKET;=13 'DO(111) 'A:PARM;2;I\CDFLDM 'DOEND(111) 'I:I\CDFLDM;=;Y 'DO(222) 'A:PARM;3;I\BUYERNO 'A:PARM;1;I\IP 'DOEND(222) 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\RFID=CM_USE_RFID,I\CM_UPD_BUYER_ACC=CM_UPD_BUYER_ACC,I\CM_TROLLEY_RETUR |
|
| 1 | 0.0 | DEFAULT | I | 0 | 141, 67 | '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 'F:CASH_POINT;;;I\CASHPOINT=CPO_CASHPT;CPO_IP='$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 | T | -1 | 201, 145 | |||
| 1 | 0.0 | Label 13 | T | -1 | 401, 145 | ||
| 1 | 0.0 | Label 8 | T | -1 | 201, 217 | ||
| 1 | 0.0 | Work 3 | I | 0 | 41, 307 | ||
| 1 | 0.0 | Label 17 | T | -1 | 201, 253 | ||
| 1 | 0.0 | Label 18 | T | -1 | 201, 325 | ||
| 1 | 0.0 | TROLLEY_MAST | TM_TROLLEYNO | I | -1 | 311, 145 | $SELECT S:TROLLEY_NO4;I\TM_TROLLEYNO;I\MARKET '$CALCULATE $VALIDATE 'A:CONST;;I\HIRED_QTY,I\DEP_AMT 'A:CONST;;I\FLATTARIFF,I\RENTAMT,I\DATE1,I\TIME1 A:CONST;;I\DEP_AMT M: C:UCASE A:ZEROFILL;I\TM_TROLLEYNO,4,I\TM_TROLLEYNO I:I\MARKET;=;17 DO(00) I:I\BUYERNO;=;2000 DO(01) I:I\TM_TROLLEYNO;<> |
| 1 | 0.0 | Work 1 | I | 0 | 161, 547 | ||
| 1 | 0.0 | HIRED_QTY | I | -1 | 311, 217 | $VALIDATE M: 'I:I\HIRED_QTY;>;I\AVAILQTY 'D:ERROR - HIRED QUANTITY CANNOT BE GREATER THAN QUANTITY AVAILABLE;ERRORM;I\HIRED_QTY ''CALCULATE DEPOSIT AMOUNT 'A:MULT;I\HIRED_QTY;I\DEP_AMT;I\TM_DDEPOSIT;;#0.00 'A:VAR;I\DEP_AMT;I\DEP_AMT;;#0.00 I:I\MARKET;=;19 DO(119) A:CONST;;I\MSG_Q U:TROLLEY_HIRED;MES |
|
| 1 | 0.0 | Label 3 | T | -1 | 201, 181 | ||
| 1 | 0.0 | I | -1 | 311, 181 | $SELECT S:PAYMENT_METHOD;I\TT_PAYMTHD;I\MARKET $VALIDATE I:I\MARKET;=;19 A:CONST;CA;I\TT_PAYMTHD I:I\TT_PAYMTHD;<>; F:CASH_PAYMTHD;Y;;T\PAY_DESC=CPM_DESC;CPM_PAYMETH='$I\TT_PAYMTHD$';I\TT_PAYMTHD |
||
| 1 | 0.0 | Label 5 | T | -1 | 391, 181 | ||
| 1 | 0.0 | CMD 6 | C | -1 | 351, 181 | $SELECT S:PAYMENT_METHOD;I\TT_PAYMTHD;I\MARKET |
|
| 1 | 0.0 | Work 4 | I | 0 | 191, 511 | ||
| 1 | 0.0 | I | -1 | 311, 253 | |||
| 1 | 0.0 | DATE1 | I | -1 | 311, 325 | ||
| 1 | 0.0 | Work 3 | I | 0 | 241, 547 | ||
| 1 | 0.0 | Label 26 | T | -1 | 201, 361 | ||
| 1 | 0.0 | TIME1 | I | -1 | 311, 361 | $BEFORE_WRITE I:I\BUYERNO;=; D:BUYER NO IS A MANDATORY FIELD;ERRORM;I\BUYERNO I:I\TM_TROLLEYNO;=; D:TROLLEY NO IS A MANDATORY FIELD;ERRORM;I\TM_TROLLEYNO 'ADDED BY SIYA TO IGNORE IF MARKET IS BLOM ON JANET'S REQUEST 2013-06-18 I:I\MARKET;<>;13 DO(0000) 'IF IT'S A CASH BUYER THEN CALL FUNCTION TO CALCULATE C |
|
| 1 | 0.0 | Work 1 | I | 0 | 351, 487 | ||
| 1 | 0.0 | Work 1 | I | 0 | 551, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 11, 127 | ||
| 1 | 0.0 | CPO_CASHPT | I | 0 | 31, 91 | ||
| 1 | 0.0 | Work 1 | I | 0 | 551, 415 | ||
| 1 | 0.0 | Work 2 | I | 0 | 571, 547 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 361, 145 | $SELECT S:TROLLEY_NO4;I\TM_TROLLEYNO;I\MARKET |
|
| 1 | 0.0 | TROLLEY_MAST | TM_MARKET | I | 0 | 651, 235 | |
| 1 | 0.0 | Work 1 | I | 0 | 1, 547 | ||
| 1 | 0.0 | Label 2 | T | -1 | 201, 109 | ||
| 1 | 0.0 | BUYERNO | I | -1 | 311, 109 | $SELECT S:DEBTOR_CODE;I\BUYERNO $CALCULATE '$VALIDATE 'FROM RYAN A:CONST;;W\TEMP6 M: C:UCASE I:I\CM_UPD_BUYER_ACC;=;1 DO(CHKS) U:GET_BUYER;;I\BUYERNO F:PREAMBLE_DEBTOR;;PDR_DEBTOR;I\TMP1=PDR_DEBTOR I:I\TMP1;=; DO(TPM1_EMPTY) U:VALIDATE_PREAMBLE;VALIDATE;I\BUYERNO,W\TEMP6 I:W\TEMP6;= |
|
| 1 | 0.0 | Work 1 | I | 0 | 1, 487 | ||
| 1 | 0.0 | Work 1 | I | 0 | 511, 547 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 411, 109 | $SELECT S:DEBTOR_CODE;I\BUYERNO |
|
| 1 | 0.0 | Label 4 | T | -1 | 451, 109 | ||
| 1 | 0.0 | Work 9 | I | 0 | 41, 547 | ||
| 1 | 0.0 | Work 10 | I | 0 | 121, 547 | ||
| 1 | 0.0 | Work 11 | I | 0 | 81, 547 | ||
| 1 | 0.0 | Work 2 | I | 0 | 201, 547 | ||
| 1 | 0.0 | Work 4 | I | 0 | 281, 547 | ||
| 1 | 0.0 | Work 5 | I | 0 | 321, 547 | ||
| 1 | 0.0 | Work 6 | I | 0 | 361, 547 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 547 | ||
| 1 | 0.0 | Work 1 | I | 0 | 481, 547 | ||
| 1 | 0.0 | Work 2 | I | 0 | 621, 547 | ||
| 1 | 0.0 | Work 1 | I | 0 | 531, 547 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 511 | ||
| 1 | 0.0 | Work 3 | I | 0 | 551, 547 | ||
| 1 | 0.0 | Work 1 | I | 0 | 31, 511 | ||
| 1 | 0.0 | Work 1 | I | -1 | 311, 289 | ||
| 1 | 0.0 | Label 2 | T | -1 | 201, 289 | ||
| 1 | 0.0 | Work 5 | I | 0 | 301, 511 | ||
| 1 | 0.0 | Work 3 | I | 0 | 71, 511 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 307 | ||
| 1 | 0.0 | Work 2 | I | 0 | 61, 307 | ||
| 1 | 0.0 | Work 1 | I | 0 | 531, 511 | ||
| 1 | 0.0 | Label 6 | T | 0 | 421, 505 | ||
| 1 | 0.0 | Work 5 | I | 0 | 21, 307 | ||
| 1 | 0.0 | Work 1 | I | 0 | 391, 547 | ||
| 1 | 0.0 | Work 1 | I | 0 | 11, 175 | ||
| 1 | 0.0 | Work 2 | I | 0 | 11, 211 | ||
| 1 | 0.0 | Work 1 | I | 0 | 101, 511 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 361 | ||
| 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 |