Program drill-down
TROLLEY_HIRED_CANCEL
CANCEL HIRED TROLLEY. Type DSP, base table TROLLEY_TRANS.
Field inventory
77
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 3 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 291, 49 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Label 5 | T | -1 | 1, 25 | ||
| 1 | 0.0 | MARKET | I | 0 | 111, 37 | $DEFAULT 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_UPD_BUYER_ACC=CM_UPD_BUYER_ACC,I\CM_TROLLEY_RETURN=CM_TROLLEY_RETURN,I\NO_RECEIPTS=CM_NO_TRO_ISSUE_RECPT |
|
| 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 '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, 181 | |||
| 1 | 0.0 | Label 13 | T | -1 | 421, 181 | ||
| 1 | 0.0 | Label 8 | T | -1 | 201, 217 | ||
| 1 | 0.0 | Label 17 | T | -1 | 201, 253 | ||
| 1 | 0.0 | Label 18 | T | -1 | 201, 361 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_TROLLEYNO | I | -1 | 361, 181 | '$SELECT 'S:TROLLEY_NO4;I\TM_TROLLEYNO;I\MARKET '$CALCULATE 'A:CONST;;I\HIRED_QTY,I\DEP_AMT 'M: 'C:UCASE 'A:ZEROFILL;I\TM_TROLLEYNO,4,I\TM_TROLLEYNO 'F:TROLLEY_MAST;Y;TM_TROLLEYNO;I\VATCODE_DEP=TM_VATCD_DEP,I\VATCODE=TM_VATCD,T\DESC=TM_DESC,I\TM_FLATTARIFF=TM_FLATTARIFF,T\MSG=TM_MSG;;I\TM_TROLLEYNO ''CA |
| 1 | 0.0 | Work 1 | I | 0 | 161, 517 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_TRQTY | I | -1 | 361, 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 'U:TROLLEY_HIRED;CALC_RENTAL_AMOUNT ''CALCULATE CRE |
| 1 | 0.0 | Work 4 | I | 0 | 91, 481 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_DEP_AMT | I | -1 | 361, 253 | |
| 1 | 0.0 | TROLLEY_TRANS | TT_TRDTE | I | -1 | 361, 361 | |
| 1 | 0.0 | Work 3 | I | 0 | 221, 517 | ||
| 1 | 0.0 | Label 26 | T | -1 | 201, 397 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_TRTIME | I | -1 | 361, 397 | $BEFORE_WRITE A:CONST;Y;I\DELIND U:TROLLEY_HIRED;CANCEL_TROLLEY 'IF IT'S A CASH BUYER THEN CALL FUNCTION TO CALCULATE CHANGE LIKE CASH PAYMENTS 'I:I\ACCTYPE;=;CA ' DO(CA) ' U:CASHPOINT_SALES;ZV_GEN;I\CODEFLD,I\USER,I\BUYERNO ' E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P CASH_PAYMENTS_MAN $I\CASHPOINT$ $I\USE |
| 1 | 0.0 | CMD 1 | C | 0 | 591, 181 | $SELECT S:TROLLEY_NO4;I\TM_TROLLEYNO;I\MARKET |
|
| 1 | 0.0 | TROLLEY_TRANS | TT_MARKET | I | 0 | 651, 205 | |
| 1 | 0.0 | Label 2 | T | -1 | 201, 145 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_DEBTOR | I | -1 | 361, 145 | '$SELECT 'S:DEBTOR_CODE;I\BUYERNO '$CALCULATE ''FROM RYAN 'A:CONST;;W\TEMP6 'M: 'C:UCASE '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;=;2 ' DO(PRE) ' D:THIS PREAMBLE DOES |
| 1 | 0.0 | CMD 3 | C | 0 | 591, 145 | $SELECT S:DEBTOR_CODE;I\BUYERNO |
|
| 1 | 0.0 | Label 4 | T | -1 | 431, 145 | ||
| 1 | 0.0 | Work 9 | I | 0 | 41, 517 | ||
| 1 | 0.0 | Work 11 | I | 0 | 81, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 191, 517 | ||
| 1 | 0.0 | Work 4 | I | 0 | 251, 517 | ||
| 1 | 0.0 | Work 5 | I | 0 | 281, 517 | ||
| 1 | 0.0 | Work 6 | I | 0 | 311, 517 | ||
| 1 | 0.0 | Work 7 | I | 0 | 341, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 371, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 401, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 431, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 481 | ||
| 1 | 0.0 | Check 4 | K | -1 | 701, 505 | '$SCMD_FOCUS 'O:BACKCOLOR;K\PRINT;YELLOW $VALIDATE O:SETFOCUS;C\CREATE O:BACKCOLOR;C\CREATE;YELLOW |
|
| 1 | 0.0 | Work 1 | I | 0 | 31, 481 | ||
| 1 | 0.0 | Work 1 | I | -1 | 361, 325 | ||
| 1 | 0.0 | Label 2 | T | -1 | 201, 325 | ||
| 1 | 0.0 | Work 5 | I | 0 | 121, 481 | ||
| 1 | 0.0 | Work 3 | I | 0 | 71, 481 | ||
| 1 | 0.0 | Label 6 | T | 0 | 151, 481 | ||
| 1 | 0.0 | Work 7 | I | 0 | 451, 517 | ||
| 1 | 0.0 | Work 4 | I | 0 | 41, 181 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_DEPNO | I | -1 | 361, 109 | $SELECT S:TROLLEY_RECEIPT;I\RECEIPT $VALIDATE O:HIDE;C\CREATE A:CONST;;I\BUYERNO,I\TM_TROLLEYNO,I\HIRED_QTY,I\FLATTARIFF,I\VAT,I\RENTAMT,I\DATE1,I\TIME1,I\DELIND,T\BUYERNO1,T\DESC,K\PRINT,K\CONFIRM 'I\REASON_CODE,T\REASON M: C:UCASE 'F:TROLLEY_TRANS;Y;TT_DEPNO;;TT_DEPNO='$I\RECEIPT$' AND TT_DELIND <> 'Y |
| 1 | 0.0 | Label 2 | T | -1 | 201, 109 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 461, 109 | $SELECT S:TROLLEY_RECEIPT;I\RECEIPT |
|
| 1 | 0.0 | TROLLEY_TRANS | TT_DELIND | I | 0 | 41, 145 | |
| 1 | 0.0 | TROLLEY_TRANS | TT_TRVAT | I | -1 | 361, 289 | |
| 1 | 0.0 | Label 5 | T | -1 | 201, 289 | ||
| 1 | 0.0 | Work 2 | I | -1 | 361, 433 | $SELECT 'DISPLAY A SELECTION WINDOW S:REASON_TROLLEY;I\REASON $VALIDATE A:CONST;;T\REASON M: C:UCASE I:I\REASON;=; A:CONST;;T\REASON I:I\REASON;<>; F:REASON_MAST;Y;;T\REASON=RSN_DESC;RSN_TYPE='TR' AND RSN_REASON='$I\REASON$' AND RSN_BLOCKED <> 'Y';I\REASON I:I\MARKET;=;17 DO(0) U:TROLLEY_HIRED_ |
|
| 1 | 0.0 | Check 2 | K | -1 | 701, 469 | '$SCMD_FOCUS 'O:BACKCOLOR;K\CONFIRM;YELLOW '$VALIDATE 'O:SETFOCUS;K\PRINT 'O:BACKCOLOR;K\PRINT;YELLOW |
|
| 1 | 0.0 | CMD 8 | C | -1 | 651, 546 | $SCMD_FOCUS O:BACKCOLOR;C\CREATE;YELLOW $SELECT I:I\REASON;=; D:REASON CODE IS MANDATORY FIELD;ERRORM;I\REASON I:I\RECEIPT;<>; DO(01) I:K\CONFIRM;=;1 DO(02) U:TROLLEY_HIRED;CANCEL_TROLLEY A:CONST;;I\RECEIPT,I\BUYERNO,I\TM_TROLLEYNO,I\HIRED_QTY,I\FLATTARIFF,I\VAT,I\RENTAMT,I\DATE1,I\TIME1,I\DELI |
|
| 1 | 0.0 | TROLLEY_TRANS | TT_ISS_AMT | I | 0 | 471, 349 | |
| 1 | 0.0 | Work 1 | I | 0 | 301, 481 | ||
| 1 | 0.0 | Work 1 | I | 0 | 41, 325 | ||
| 1 | 0.0 | Work 3 | I | 0 | 41, 289 | ||
| 1 | 0.0 | Work 1 | I | 0 | 41, 217 | ||
| 1 | 0.0 | Work 2 | I | 0 | 41, 253 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 461, 433 | $SELECT 'DISPLAY A SELECTION WINDOW S:REASON_TROLLEY;I\REASON |
|
| 1 | 0.0 | Work 2 | I | 0 | 41, 361 | ||
| 1 | 0.0 | Label 1 | T | -1 | 531, 469 | ||
| 1 | 0.0 | Label 3 | T | -1 | 531, 505 | ||
| 1 | 0.0 | Label 1 | T | -1 | 201, 433 | ||
| 1 | 0.0 | Label 3 | T | -1 | 501, 433 | ||
| 1 | 0.0 | Work 3 | I | 0 | 401, 493 | ||
| 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 | $UPDATE |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |