Program drill-down
CPT_TROLLEY_IS_CANC
TROLLEY ISSUE CANCELLATION. Type MAN, base table TROLLEY_TRANS.
Field inventory
76
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CMD 1 | C | 0 | 411, 217 | $SELECT S:TROLLEY_NO4;I\TM_TROLLEYNO;I\MARKET |
|
| 1 | 0.0 | CMD 3 | C | 0 | 411, 193 | $SELECT S:DEBTOR_CODE;I\BUYERNO |
|
| 1 | 0.0 | CMD 3 | C | -1 | 461, 169 | $SELECT S:TROLLEY_DEPNO;I\TT_DEPNO;I\MARKET |
|
| 1 | 0.0 | CMD 6 | C | -1 | 461, 337 | $SELECT 'DISPLAY A SELECTION WINDOW S:REASON_TROLLEY;I\REASON_CODE |
|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 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,I\CM_UPD_BUYER_ACC=CM_UPD_BUYER_ACC,I\CM_TROLLEY_RETURN=CM_TROLLEY_RETURN 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET A:USERID;;I\USER A:USERIP;;I\IP F:CASH_POINT;;;I\CA |
|
| 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 |
|
| 1 | 0.0 | TROLLEY_TRANS | TT_TROLLEYNO | I | -1 | 361, 217 | '$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\FIRST_TIME=TM_INITIALQTY,I\TOT_INCR=TM_TOT_INCRQTY,I\VATCODE_DEP=TM_VATCD_DEP,I\TOT_DECR=TM_TOT_DECRQTY,I\TOT_TRQTY=TM_TOT_RE |
| 1 | 0.0 | Work 1 | I | 0 | 161, 517 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_TRQTY | I | -1 | 361, 241 | '$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 ''CALCULATE CREDIT LIMIT BY SUBTRACTING OUTSTANDING BALANCE FROM |
| 1 | 0.0 | TROLLEY_MAST | TM_DDEPOSIT | I | 0 | 31, 277 | '$VALIDATE 'M: 'I:I\TM_DDEPOSIT;=;0.00 'D:ERROR - DAILY DEPOSIT CANNOT BE ZERO;ERRORM;I\TM_DDEPOSIT |
| 1 | 0.0 | TROLLEY_MAST | TM_DRENTAL | I | 0 | 11, 289 | '$VALIDATE 'M: 'I:I\TM_DRENTAL;=;0.00 'D:ERROR - DAILY RENTAL CANNOT BE ZERO;ERRORM;I\TM_DRENTAL |
| 1 | 0.0 | TROLLEY_TRANS | TT_DEP_AMT | I | -1 | 361, 265 | $AFTER_READ A:ADD;I\DEP_AMT;I\DEP_AMT;I\TT_TRVAT A:VAR;I\DEP_AMT;I\DEP_AMT;;#0.00 F:TROLLEY_MAST;;;T\DESC=TM_DESC,I\VATCODE_DEP=TM_VATCD_DEP;TM_TROLLEYNO ='$I\TM_TROLLEYNO$' F:DEBTOR_MAST;;;T\BUYERNO1=DM_NAME,I\CREDLIMIT=DM_CRLIMIT,I\OSBAL=DM_OSBAL,I\ACCTYPE=DM_ACCTYPE;DM_DEBTOR='$I\BUYERNO$';I\BUYERNO |
| 1 | 0.0 | TROLLEY_TRANS | TT_TRDTE | I | -1 | 361, 289 | |
| 1 | 0.0 | Work 3 | I | 0 | 241, 517 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_TRTIME | I | -1 | 361, 313 | $BEFORE_WRITE A:CONST;Y;I\TT_DELIND A:SUB;I\DEP_AMT;I\DEP_AMT;I\TT_TRVAT U:TROLLEY_ISSUES;CANCEL_ISSUES 'IF IT'S A CASH BUYER THEN CALL FUNCTION TO CALCULATE CHANGE LIKE CASH PAYMENTS 'I:I\CM_UPD_BUYER_ACC;=;1 'DO(UPD) 'I:I\ACCTYPE;=;CA ' DO(CA) ' U:CASHPOINT_SALES;ZV_GEN;I\CODEFLD,I\USER,I\BUYE |
| 1 | 0.0 | TOT_TRQTY | I | 0 | 91, 481 | ||
| 1 | 0.0 | TOT_ISQTY | I | 0 | 61, 481 | ||
| 1 | 0.0 | Work 2 | I | 0 | 571, 517 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_MARKET | I | 0 | 651, 205 | |
| 1 | 0.0 | Work 5 | I | 0 | 11, 181 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 517 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_DEBTOR | I | -1 | 361, 193 | '$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 NOT |
| 1 | 0.0 | Work 1 | I | 0 | 511, 517 | ||
| 1 | 0.0 | Work 9 | I | 0 | 41, 517 | ||
| 1 | 0.0 | Work 10 | I | 0 | 121, 517 | ||
| 1 | 0.0 | Work 11 | I | 0 | 81, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 201, 517 | ||
| 1 | 0.0 | Work 4 | I | 0 | 281, 517 | ||
| 1 | 0.0 | Work 5 | I | 0 | 321, 517 | ||
| 1 | 0.0 | Work 6 | I | 0 | 361, 517 | ||
| 1 | 0.0 | Work 7 | I | 0 | 401, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 481, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 621, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 531, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 481 | ||
| 1 | 0.0 | Work 3 | I | 0 | 551, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 31, 481 | ||
| 1 | 0.0 | Work 1 | I | 0 | 221, 409 | ||
| 1 | 0.0 | TROLLEY_TRANS | TT_DELIND | I | 0 | 531, 277 | |
| 1 | 0.0 | TROLLEY_TRANS | TT_DEPNO | I | -1 | 361, 169 | $SELECT S:TROLLEY_DEPNO;I\TT_DEPNO;I\MARKET $VALIDATE M: C:UCASE 'F:TROLLEY_TRANS;Y;TT_DEPNO;I\DELETED=TT_DELIND;TT_MARKET='$I\MARKET$' AND TT_TRTYPE='IS' AND TT_DELIND <>'Y' AND TT_TOT_RETQTY = 0;I\TT_DEPNO F:TROLLEY_TRANS;Y;;I\DELETED=TT_DELIND;TT_MARKET='$I\MARKET$' AND TT_TRTYPE='IS' AND TT_TOT_RETQTY = 0 A |
| 1 | 0.0 | TROLLEY_TRANS | TT_TRTYPE | I | 0 | 531, 133 | |
| 1 | 0.0 | TROLLEY_TRANS | TT_TRVAT | I | 0 | 531, 313 | |
| 1 | 0.0 | Work 3 | I | -1 | 361, 337 | $SELECT 'DISPLAY A SELECTION WINDOW S:REASON_TROLLEY;I\REASON_CODE $VALIDATE A:CONST;;T\REASON M: C:UCASE I:I\REASON_CODE;=; A:CONST;;T\REASON I:I\REASON_CODE;<>; F:REASON_MAST;Y;;T\REASON=RSN_DESC;RSN_TYPE='TR' AND RSN_REASON='$I\REASON_CODE$' AND RSN_BLOCKED <> 'Y';I\REASON_CODE |
|
| 1 | 0.0 | Work 1 | I | 0 | 61, 409 | ||
| 1 | 0.0 | Check 5 | K | -1 | 611, 409 | $VALIDATE I:K\CONFIRM;<>;1 D:PLEASE CONFIRM CANCELLATION BEFORE YOU PROCEED;ERRORM;K\CONFIRM |
|
| 1 | 0.0 | Check 6 | K | -1 | 611, 433 | ||
| 1 | 0.0 | Label 3 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 291, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 1, 25 | ||
| 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, 217 | |||
| 1 | 0.0 | Label 13 | T | -1 | 441, 217 | ||
| 1 | 0.0 | Label 8 | T | -1 | 201, 241 | ||
| 1 | 0.0 | Label 15 | T | 0 | 31, 217 | ||
| 1 | 0.0 | Label 16 | T | 0 | 31, 241 | ||
| 1 | 0.0 | Label 17 | T | -1 | 201, 265 | ||
| 1 | 0.0 | Label 18 | T | -1 | 201, 289 | ||
| 1 | 0.0 | Label 7 | T | 0 | 11, 145 | ||
| 1 | 0.0 | Label 26 | T | -1 | 201, 313 | ||
| 1 | 0.0 | Label 2 | T | -1 | 201, 193 | ||
| 1 | 0.0 | Label 4 | T | -1 | 441, 193 | ||
| 1 | 0.0 | Label 2 | T | -1 | 201, 169 | ||
| 1 | 0.0 | Label 7 | T | -1 | 431, 409 | ||
| 1 | 0.0 | Label 8 | T | -1 | 431, 433 | ||
| 1 | 0.0 | Label 4 | T | -1 | 201, 337 | ||
| 1 | 0.0 | Label 5 | T | -1 | 491, 337 | ||
| 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 |