Freshmark replication server

freshmark-canonical

Program drill-down

TROLLEY_ISSUES_CPT

TROLLEY ISSUES. Type MAN, base table TROLLEY_MAST.

Field inventory

80

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 TROLLEY_MAST TM_TROLLEYNO I -1 291, 205
$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_RETURNQTY,
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 CMD 1 C -1 341, 205
$SELECT  S:TROLLEY_NO4;I\TM_TROLLEYNO;I\MARKET
1 0.0 CMD 3 C -1 391, 169
$SELECT  S:DEBTOR_CODE;I\BUYERNO
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  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\RFID=CM_USE_RFID,I\P
1 0.0 Work 1 I 0 161, 517
  
1 0.0 HIRED_QTY I -1 291, 277
$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\CM_UPD_BUYER_ACC;=;1  DO(CHECK_CREDLMT)    'CALCULATE CREDIT LIMIT B
1 0.0 TROLLEY_MAST TM_DDEPOSIT I -1 291, 313
$CALCULATE  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 -1 291, 349
$CALCULATE  I:I\TM_DRENTAL;=;0.00  D:ERROR - DAILY RENTAL CANNOT BE ZERO;ERRORM;I\TM_DRENTAL    
1 0.0 DEP_AMT I -1 291, 385
    
1 0.0 DATE1 I -1 291, 421
  
1 0.0 Work 3 I 0 241, 517
  
1 0.0 TIME1 I -1 291, 457
$BEFORE_WRITE    '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\BUYERNO    E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P CASH_PAYMENTS_MAN_TR $I\CASHPOINT$ $I\USER$ $I\BUYERNO$ $
1 0.0 Work 1 I 0 1, 421
  
1 0.0 Work 2 I 0 31, 421
  
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_MAST TM_MARKET I 0 651, 205
  
1 0.0 Work 5 I -1 291, 241
  
1 0.0 Work 1 I 0 1, 517
  
1 0.0 BUYERNO I -1 291, 169
$SELECT  S:DEBTOR_CODE;I\BUYERNO    $CALCULATE  'FROM RYAN    A:CONST;;W\TEMP6  M:  C:UCASE    'VALIDATE THE PREAMBLE  F:PREAMBLE_DEBTOR;;PDR_DEBTOR;I\TMP1=PDR_DEBTOR  I:I\MARKET;=;11  DO(LEO)    I:I\DT_CASHIER;=;LEO    A:CONST;X;I\TMP1  DOEND(LEO)    'VALIDATE THE PREAMBLE  I:I\MARKET;<>;14  DO(NOK)  I:I\TMP1;=;  DO(P
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 561, 481
  
1 0.0 Work 14 I 0 1, 265
  
1 0.0 Work 15 I 0 101, 361
  
1 0.0 Work 18 I 0 561, 385
  
1 0.0 Work 1 I 0 561, 361
  
1 0.0 Work 16 I 0 561, 409
  
1 0.0 Work 3 I 0 61, 421
  
1 0.0 Work 4 I 0 1, 397
  
1 0.0 Work 5 I 0 1, 289
  
1 0.0 Work 6 I 0 31, 397
  
1 0.0 Work 7 I 0 61, 397
  
1 0.0 Work 8 I 0 1, 361
  
1 0.0 Work 9 I 0 1, 325
  
1 0.0 Work 10 I 0 561, 457
  
1 0.0 Work 11 I 0 91, 421
  
1 0.0 Work 12 I 0 81, 397
  
1 0.0 Work 13 I 0 561, 433
  
1 0.0 Label 3 T -1 291, 25
  
1 0.0 Label 4 T -1 331, 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 141, 205
  
1 0.0 Label 13 T -1 381, 205
  
1 0.0 Label 8 T -1 141, 277
  
1 0.0 Label 15 T -1 141, 313
  
1 0.0 Label 16 T -1 141, 349
  
1 0.0 Label 17 T -1 141, 385
  
1 0.0 Label 18 T -1 141, 421
  
1 0.0 Label 7 T -1 141, 241
  
1 0.0 Label 26 T -1 141, 457
  
1 0.0 Label 2 T -1 141, 169
  
1 0.0 Label 4 T -1 431, 169
  
1 0.0 Work 1 I 0 400, 487
  
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