Freshmark replication server

freshmark-canonical

Program drill-down

TROLLEY_RET_CANCEL

TROLLEY RETURN CANCELLATION. Type DSP, base table TROLLEY_TRANS.

Field inventory

86

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 291, 49
  
1 0.0 Label 5 T -1 1, 25
  
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    '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\CASHPOINT=CPO_CASHPT;CPO_IP='$I\IP$'    
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 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 151, 265
  
1 0.0 Label 13 T -1 411, 265
  
1 0.0 Label 8 T 0 1, 289
  
1 0.0 Label 15 T -1 151, 313
  
1 0.0 Label 16 T -1 151, 361
  
1 0.0 Label 17 T 0 1, 181
  
1 0.0 Label 18 T 0 1, 157
  
1 0.0 TROLLEY_TRANS TT_TROLLEYNO I -1 321, 265
    
1 0.0 TROLLEY_TRANS TT_TRQTY I 0 1, 313
    
1 0.0 Label 7 T -1 151, 289
  
1 0.0 TROLLEY_TRANS TT_TRDTE I -1 321, 313
'$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_DTE;<>;I\RETURN_DATE
1 0.0 TROLLEY_TRANS TT_USAGE I -1 321, 361
  
1 0.0 TROLLEY_TRANS TT_DEP_AMT I 0 1, 205
  
1 0.0 TROLLEY_TRANS TT_TRDTE I 0 1, 253
  
1 0.0 Work 3 I 0 11, 541
  
1 0.0 Label 26 T 0 1, 289
  
1 0.0 TROLLEY_TRANS TT_TRTIME I 0 1, 337
  
1 0.0 TROLLEY_TRANS TT_MARKET I 0 591, 265
  
1 0.0 TROLLEY_TRANS TT_TRQTY I -1 321, 289
  
1 0.0 Work 1 I 0 581, 121
  
1 0.0 Label 2 T -1 151, 169
  
1 0.0 TROLLEY_TRANS TT_DEPNO I -1 321, 169
$SELECT  S:TROLLEY_DEPNO_2;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='TR' AND TT_DELIND <> 'Y';I\TT_DEPNO    
1 0.0 TROLLEY_TRANS TT_RET_TROLLEY I -1 321, 241
'$VALIDATE  'M:  'C:UCASE  '''CHECK ANY RETURN WITH THE DEPOSIT AND SEQUENCE ENTERED  ''F:TROLLEY_TRANS;;;I\CHK_RETURN=TT_RET_TROLLEY;TT_DEPNO='$I\TT_DEPNO$' AND TT_SEQ='$I\TT_SEQ$' AND TT_TRTYPE='TR' AND TT_DEBTOR='$I\TT_DEBTOR$'    ''I:I\CHK_RETURN;<>;  ''    DO(CHECK)  ''      A:CONST;;I\TT_SEQ,I\TROLLEY,I\TT_DEBTOR
1 0.0 CMD 3 C -1 371, 169
$SELECT  S:TROLLEY_DEPNO_2;I\TT_DEPNO;I\MARKET
1 0.0 Label 4 T -1 411, 217
  
1 0.0 Work 9 I 0 581, 85
  
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 Label 9 T -1 151, 241
  
1 0.0 Label 3 T -1 151, 217
  
1 0.0 Label 5 T -1 151, 337
  
1 0.0 Label 1 T -1 151, 193
  
1 0.0 TROLLEY_TRANS TT_SEQ I -1 321, 193
$VALIDATE   A:CONST;;I\RETURN_AMT,I\USAGE,I\RETURN_TIME,I\RETURN_DATE,I\RETURN_QTY,I\TT_DEBTOR,I\TROLLEY,I\TT_TROLLEYNO,I\CONTINUE,I\TT_DEP_AMT,I\REASON_CODE,K\CONFIRM,K\PRINT  M:    'F:TROLLEY_TRANS;;TT_SEQ;;TT_DEPNO='$I\TT_DEPNO$';I\TT_SEQ    'I:I\TT_SEQ;>;I\SEQ  'D:THE SEQUENCE NO. IS NOT MATCHING WITH THE ENTERED D
1 0.0 TROLLEY_TRANS TT_DEBTOR I -1 321, 217
'$SELECT  'S:DEBTOR_CODE;I\TT_DEBTOR    '$CALCULATE  'A:CONST;;W\TEMP6,W\BUYER,T\BUYERNO1  'M:    ''U:GET_BUYER;;I\TT_DEBTOR    ''F:PREAMBLE_DEBTOR;;PDR_DEBTOR;I\TMP1=PDR_DEBTOR    ''I:I\TMP1;=;  ''DO(TMP1_EMPTY)  '' U:VALIDATE_PREAMBLE;VALIDATE;I\TT_DEBTOR,W\TEMP6  '' I:W\TEMP6;=;2  ''   DO(PRE)  ''      D:THIS PREAMB
1 0.0 TROLLEY_TRANS TT_TRTIME I -1 321, 337
  
1 0.0 Label 7 T -1 151, 385
  
1 0.0 TROLLEY_TRANS TT_RET_AMT I -1 321, 385
$BEFORE_WRITE  A:CONST;Y;I\TT_DELIND          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\DATEDIFF;<;0  D:
1 0.0 Work 1 I 0 11, 85
  
1 0.0 Work 2 I 0 481, 517
  
1 0.0 Work 3 I 0 191, 541
  
1 0.0 Work 4 I 0 161, 541
  
1 0.0 Work 5 I 0 221, 541
  
1 0.0 CMD 6 C -1 651, 546
$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW    $SELECT    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 EMPTY;ERRORM;I\TT_SEQ      'A:VAR;I\RETURN_DATE;I\RETURN_DATE;;DD MMM YYYY  ''GET DIFFERENCE BETWEEN DEPOSIT DATE AND RETURN DATE  'A:D
1 0.0 Work 1 I 0 11, 505
  
1 0.0 Work 2 I 0 551, 349
  
1 0.0 Work 3 I 0 551, 385
  
1 0.0 Work 1 I 0 501, 517
  
1 0.0 CMD 1 C 0 371, 217
$SELECT  S:DEBTOR_CODE;I\TT_DEBTOR
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, 349
  
1 0.0 Work 1 I 0 561, 313
  
1 0.0 Label 2 T 0 431, 313
  
1 0.0 Work 3 I 0 501, 349
  
1 0.0 Check 5 K -1 621, 457
  
1 0.0 Check 6 K -1 621, 481
$VALIDATE    O:BACKCOLOR;C\CREATE;YELLOW  O:SETFOCUS;C\CREATE    
1 0.0 Label 7 T -1 451, 457
  
1 0.0 Label 8 T -1 451, 481
  
1 0.0 Label 2 T -1 151, 409
  
1 0.0 TROLEEY_TRANS TT_DELIND I 0 601, 397
  
1 0.0 Label 4 T -1 451, 409
  
1 0.0 Work 1 I -1 321, 409
$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 CMD 3 C -1 421, 409
$SELECT  'DISPLAY A SELECTION WINDOW  S:REASON_TROLLEY;I\REASON_CODE
1 0.0 Work 1 I 0 1, 385
  
1 0.0 Work 1 I 0 281, 517
  
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