Freshmark replication server

freshmark-canonical

Program drill-down

TROLLEY_RETURNS

TROLLEY RETURNS. Type DSP, base table TROLLEY_TRANS.

Field inventory

90

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 351, 553
  
1 0.0 Label 1 T -1 151, 133
  
1 0.0 Work 2 I 0 481, 517
  
1 0.0 Work 1 I 0 11, 361
  
1 0.0 Work 1 I 0 11, 85
  
1 0.0 Work 8 I -1 321, 445
'$BEFORE_WRITE  'U:TROLLEY_RETURNS;TROLLEY_TRANS_UPDATE;I\MARKET,I\TT_TROLLEYNO,I\USER,I\IP,I\BUYERNO,I\RETURN_QTY,I\ACCTYPE,I\TOTAL_AMT,I\CASHPOINT,I\TT_DEPNO,I\TT_SEQ,I\TT_USAGE,I\RETURN_AMT,I\TROLLEY,I\VATCODE
1 0.0 Work 6 I -1 321, 397
  
1 0.0 Work 3 I 0 191, 541
  
1 0.0 Label 2 T -1 151, 157
  
1 0.0 Work 4 I 0 161, 541
  
1 0.0 Work 5 I 0 221, 541
  
1 0.0 Work 1 I 0 581, 385
  
1 0.0 Work 2 I 0 61, 85
  
1 0.0 Work 1 I 0 11, 505
  
1 0.0 Work 2 I 0 551, 361
  
1 0.0 Work 3 I 0 551, 385
  
1 0.0 Work 1 I 0 521, 469
  
1 0.0 Work 1 I 0 421, 517
  
1 0.0 Work 2 I 0 351, 517
  
1 0.0 Work 3 I 0 331, 517
  
1 0.0 Work 4 I 0 451, 517
  
1 0.0 Work 1 I 0 581, 361
  
1 0.0 Work 1 I -1 561, 217
  
1 0.0 Work 3 I 0 501, 361
  
1 0.0 I -1 321, 265
  
1 0.0 Work 4 I -1 561, 241
  
1 0.0 Work 1 I 0 451, 433
  
1 0.0 Work 1 I 0 501, 517
  
1 0.0 Work 1 I 0 581, 433
  
1 0.0 Work 2 I 0 11, 325
  
1 0.0 Label 3 T -1 291, 25
  
1 0.0 Label 4 T -1 321, 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 0 1, 265
  
1 0.0 Label 13 T -1 381, 133
  
1 0.0 Label 8 T -1 151, 217
  
1 0.0 Label 15 T -1 151, 373
  
1 0.0 Label 16 T -1 151, 421
  
1 0.0 Label 17 T -1 151, 241
  
1 0.0 Label 18 T -1 151, 289
  
1 0.0 Label 7 T -1 151, 349
  
1 0.0 Label 26 T -1 151, 313
  
1 0.0 CMD 1 C -1 421, 109
$SELECT  '''S:DEBTOR_CODE;I\TT_DEBTOR  S:TROLLEY_BUYER;I\TT_DEBTOR;I\MARKET
1 0.0 CMD 1 C -1 421, 181
$SELECT  S:SEQUENCE;I\TT_DEBTOR;I\TT_DEPNO
1 0.0 H -1 0, 30
  
1 0.0 MARKET I 0 101, 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,I\RFID=CM_USE_RFID,I\PIN_REF=CM_PIN_REFUND,T\MARKET=CM_NAME,I\PAY_AGAINST=CM_PAY_AGAINST,I\REF_AUTH=CM_REF_AUTH_REQ    'CHANGING TEXT CASE
1 0.0 DEFAULT I 0 121, 37
'DISPLAYING TIME  $DEFAULT  'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE        A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000      
1 0.0 I 0 1, 265
    
1 0.0 I -1 321, 217
    
1 0.0 I -1 321, 373
$VALIDATE  'A:CONT;;I\AUTH  M:  A:VAR;I\RETURN_DATE;I\RETURN_DATE;;DD MMM YYYY  'GET DIFFERENCE BETWEEN DEPOSIT DATE AND RETURN DATE  A:DATEDIFF;I\RETURN_DATE;I\DATEDIFF;I\TT_TRDTE    'GET DIFFERENCE BETWEEN RETURN DATE AND TODAYS DATE  A:DATEDIFF;I\RETURN_DATE;I\DATEDIFF2;T\DATE    I:I\TT_TRDTE;<>;I\RETURN_DATE   DO(A
1 0.0 Work 1 I 0 61, 505
  
1 0.0 USAGE I -1 321, 421
  
1 0.0 I -1 321, 241
  
1 0.0 I -1 321, 289
  
1 0.0 Work 3 I 0 11, 541
  
1 0.0 I -1 321, 313
  
1 0.0 TROLLEY_TRANS TT_MARKET I 0 591, 193
  
1 0.0 Work 5 I -1 321, 349
  
1 0.0 Work 1 I 0 591, 169
  
1 0.0 I -1 321, 157
$SELECT  S:TROLLEY_DEPNO;I\TT_DEPNO;I\MARKET    $VALIDATE  M:  C:UCASE  '''F:TROLLEY_TRANS;Y;TT_DEPNO;I\SEQ=TT_SEQ;TT_MARKET='$I\MARKET$' AND TT_TRTYPE='IS' AND TT_DELIND<>'Y';I\TT_DEPNO    F:TROLLEY_TRANS;Y;;;TT_MARKET='$I\MARKET$' AND TT_TRTYPE='IS' AND TT_DEBTOR='$I\TT_DEBTOR$' AND TT_TROLLEYNO='$I\TROLLEY$' AND TT_
1 0.0 Work 10 I -1 321, 133
$VALIDATE  M:  C:UCASE  'LOOK UP FOR TROLLEY DESCRIPTION  F:TROLLEY_MAST;Y;;T\DESC=TM_DESC,I\VATCODE=TM_VATCD,I\VATCODE_DEP=TM_VATCD_DEP,I\DRENTAL=TM_DRENTAL;TM_TROLLEYNO='$I\TROLLEY$'AND TM_MARKET='$I\MARKET$'        
1 0.0 Work 9 I 0 591, 145
  
1 0.0 Work 11 I 0 371, 517
  
1 0.0 Work 2 I 0 391, 517
  
1 0.0 Work 5 I 0 41, 541
  
1 0.0 Work 6 I 0 71, 541
  
1 0.0 Work 7 I 0 101, 541
  
1 0.0 Work 1 I 0 131, 541
  
1 0.0 TT_SEQ I -1 321, 181
$SELECT  S:SEQUENCE;I\TT_SEQ;I\TT_DEBTOR;I\TT_DEPNO      $VALIDATE    M:    'F:TROLLEY_TRANS;;TT_SEQ;I\DELETED=TT_DELIND;TT_DEPNO='$I\TT_DEPNO$' AND TT_TRTYPE='IS';I\TT_SEQ    '''F:TROLLEY_TRANS;;;I\DELETED=TT_DELIND;TT_DEPNO='$I\TT_DEPNO$' AND TT_TRTYPE='IS' AND TT_SEQ ='$I\SEQ$' AND TT_DELIND<>'Y' ORDER BY TT_TRDTE D
1 0.0 I -1 321, 109
$SELECT  '''S:DEBTOR_CODE;I\TT_DEBTOR  S:TROLLEY_BUYER;I\TT_DEBTOR;I\MARKET    $CALCULATE  A:CONST;;W\TEMP6,W\BUYER,T\BUYERNO1  M:    'CHECK IF SALES HAVE BEEN PROHIBITED  F:CLIENT_MAST;;;I\TMP=CM_PROHIBIT_SALES,I\PROHIBIT_AGENT_SALES=CM_PROHIBIT_AGENT_SALES;CM_CODE='$I\MARKET$';  I:I\TMP;=;Y  D:SALES ARE CURRENTLY PRO
1 0.0 Label 4 T -1 461, 109
  
1 0.0 Label 9 T -1 151, 133
  
1 0.0 CMD 6 C -1 655, 548
$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW    $SELECT    F:TROLLEY_TRANS;;;I\DELETED=TT_DELIND;TT_DEPNO='$I\TT_DEPNO$' AND TT_TRTYPE='IS' AND TT_SEQ ='$I\SEQ$' AND TT_DELIND<>'Y';I\TT_SEQ     I:I\TT_DEPNO;=;  D:ERROR - DEPOSIT NUMBER CANNOT BE EMPTY;ERRORM;I\TT_DEPNO    I:I\TT_SEQ;=;  D:ERROR - SEQUENCE NUMBER CANNOT BE 
1 0.0 CMD 3 C -1 421, 157
$SELECT  S:TROLLEY_DEPNO;I\TT_DEPNO;I\MARKET
1 0.0 Label 3 T -1 151, 109
  
1 0.0 Label 5 T -1 151, 397
  
1 0.0 Label 1 T -1 151, 181
  
1 0.0 Label 7 T -1 151, 445
  
1 0.0 Label 2 T -1 431, 217
  
1 0.0 Label 1 T -1 151, 265
  
1 0.0 Label 3 T -1 431, 241
  
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