Freshmark replication server

freshmark-canonical

Program drill-down

CASHIER_MAN

CASHIER MAINTENANCE. Type MAN, base table CASH_MAST.

Field inventory

71

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CURRENT DEBTOR NUMBER I 0 371, 205
  
1 0.0 H -1 0, 0
  
1 0.0 CASH_MAST CSH_CASHIER I -1 111, 85
$SELECT  'DISPLAY SELECTION WINDOW  S:CASHIER_NO;I\CSH_CASHIER    $CALCULATE  'CLEAR ALL FIELDS  A:CONST;;I\CSH_DESC,I\CSH_DEBTOR,I\CSH_BLOCK,I\CSH_PAYPRT,I\CSH_TRNTYPE,I\TRNTYPE,I\CSH_PAYMETH,I\PAY_METH,T\CASHIER,I\METH,I\TRANS      $VALIDATE    I:I\CSH_CASHIER;=;  A:CONST;;I\CSH_DESC,I\CSH_DEBTOR,I\CSH_BLOCK,I\CSH_PA
1 0.0 CASH_MAST CSH_CASHIER T -1 11, 85
  
1 0.0 CASH_MAST CSH_DESC I -1 371, 85
$VALIDATE  'MKAE THIS FIELD MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    
1 0.0 CASH_MAST CSH_DESC T -1 291, 85
  
1 0.0 CASH_MAST CSH_DEBTOR I -1 371, 121
$SELECT  'DISPLAY A SELECTION WINDOW  S:CASHIER_ACC;I\CSH_DEBTOR    $VALIDATE  'MAKE THIS FIELD MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE      'CLEAR THE LABEL  A:CONST;;T\CASHIER      'VALIDATE FOR EXISTING DEBTOR    ON THE DEBTOR_MAST       -   ALLOW TO ENTER A NEW CASHIER NUMBER  F:DEBTOR_MAST;Y;;T\CASHIER=DM_
1 0.0 T -1 11, 121
  
1 0.0 CMD 4 C -1 221, 85
$SELECT  'DISPLAY SELECTION WINDOW  S:CASHIER_NO;I\CSH_CASHIER  
1 0.0 Label 5 T -1 1, 25
  
1 0.0 Label 6 T -1 291, 25
  
1 0.0 Label 7 T -1 621, 25
  
1 0.0 Label 8 T -1 671, 25
  
1 0.0 Label 9 T -1 621, 49
  
1 0.0 Label 10 T -1 671, 49
  
1 0.0 Work 11 I 0 21, 49
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000  
1 0.0 Work 12 I 0 1, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORG;;I\CSH_MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    A:SETPWFIELD;I\CSH_DEBIT_BAL_PASSWORD    A:SETPWFIELD;I\CSH_JOURNAL_PASSWORD    A:SETPWFIELD;I\CSH_SUPER_PASSWOR
1 0.0 CMD 18 C -1 141, 313
$SELECT  I:I\TRNTYPE;<>;  DO(CHK)    I:I\CSH_TRNTYPE;<>;    DO(CHK2)      A:CRLF;I\TMP;I\TMP      A:CON;I\TMP;I\DONT_EXIST;I\TRANS      U:DELETE_MV;DELETE_DESC;I\TRNTYPE,I\TRANS      U:DELETE_MV;DELETE;I\TRNTYPE,I\CSH_TRNTYPE    DOEND(CHK2)  DOEND(CHK)  A:CONST;;I\TRNTYPE  O:SETFOCUS;C\DEL;I\TRNTYPE
1 0.0 CMD 13 C -1 481, 121
$SELECT  'DISPLAY A SELECTION WINDOW  S:CASHIER_ACC;I\CSH_DEBTOR
1 0.0 Label 14 T -1 521, 121
  
1 0.0 CASH_MAST CSH_BLOCK I -1 141, 181
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE      'ACCEPT ONLY A 'Y' OR 'N' IN THIS FIELD  V:Y;;N    I:I\CSH_BLOCK;=;  A:CONST;N;I\CSH_BLOCK    
1 0.0 CASH_MAST CSH_BLOCK T -1 11, 181
  
1 0.0 CASH_MAST CSH_PAYPRT T -1 191, 181
  
1 0.0 CMD 17 C -1 181, 277
$SELECT  'DISPLAY A SELECTION WINDOW  S:CASH_TRANS;I\TRNTYPE;I\MARKET
1 0.0 Label 10 T -1 11, 313
  
1 0.0 CMD 23 C -1 181, 409
$SELECT  'DISPLAY A SELECTION WINDOW  S:PAYMENT_METHOD;I\PAY_METH;I\MARKET  
1 0.0 T -1 11, 277
  
1 0.0 Label 24 T -1 11, 409
  
1 0.0 Label 1 T -1 421, 229
  
1 0.0 Label 4 T -1 421, 157
  
1 0.0 Label 27 T -1 301, 49
  
1 0.0 Work 28 I -1 221, 277
$AFTER_READ  'U:DELETE_MV;MV_LOAD         COMMENTED BECAUSE IS NOT REUSEABLE    'LOAD THE DESCRIPTIONS  U:CASHIER_MAN_CODE;MV_LOAD;CASH_TRN_TYPE,CTT_TRTYPE,CTT_DESC,I\CSH_TRNTYPE,I\TRANS    
1 0.0 Work 29 I -1 221, 409
$AFTER_READ  'U:DELETE_MV;MV_LOAD         COMMENTED BECAUSE IS NOT REUSEABLE      'LOAD THE DESCRIPTIONS  U:CASHIER_MAN_CODE;MV_LOAD;CASH_PAYMTHD,CPM_PAYMETH,CPM_DESC,I\CSH_PAYMETH,I\METH
1 0.0 Work 7 I 0 391, 541
  
1 0.0 Work 30 I 0 51, 541
  
1 0.0 Work 32 I 0 11, 541
  
1 0.0 Work 6 I 0 331, 541
  
1 0.0 CASH_MAST CSH_PAYMETH I 0 411, 541
  
1 0.0 Work 1 I 0 71, 541
  
1 0.0 Label 8 T 0 11, 277
  
1 0.0 CASH_MAST CSH_TRNTYPE I 0 351, 541
  
1 0.0 Label 9 T 0 1, 409
  
1 0.0 Label 11 T -1 11, 433
  
1 0.0 CMD 4 C -1 141, 445
$SELECT    I:I\PAY_METH;<>;  DO(CHK)    I:I\CSH_PAYMETH;<>;    DO(CHK2)      A:CRLF;I\TMP2;I\TMP2      A:CON;I\TMP2;I\DONT_EXIST;I\METH      U:DELETE_MV;DELETE_DESC;I\PAY_METH,I\METH      U:DELETE_MV;DELETE;I\PAY_METH,I\CSH_PAYMETH    DOEND(CHK2)  DOEND(CHK)  A:CONST;;I\PAY_METH  O:SETFOCUS;C\DEL2;I\PAY_METH      
1 0.0 Label 1 T -1 191, 217
  
1 0.0 Label 1 T -1 421, 253
  
1 0.0 Label 2 T -1 421, 205
  
1 0.0 Label 1 T -1 191, 157
  
1 0.0 Label 1 T -1 421, 181
  
1 0.0 CASH_MAST CSH_SCAN_CARD I -1 141, 157
$VALIDATE  C:UCASE  V:Y;N;    I:I\CSH_SCAN_CARD;=;  A:CONST;N;I\CSH_SCAN_CARD
1 0.0 CASH_MAST CSH_SCAN_CARD T -1 11, 157
  
1 0.0 Work 1 I 0 161, 541
  
1 0.0 Work 2 I 0 141, 541
  
1 0.0 Work 1 I 0 261, 541
  
1 0.0 ACC NO T 0 1, 157
  
1 0.0 CASH_MAST CSH_MARKET I 0 181, 49
$AFTER_READ  'A:ORG;;I\CSH_MARKET
1 0.0 CASH_MAST CSH_MANUAL_DEPOSIT T -1 11, 217
  
1 0.0 CASH_MAST CSH_MANUAL_DEPOSIT K -1 151, 217
  
1 1.0 CASH_MAST CSH_PAYPRT I -1 371, 181
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    'ACCEPT ONLY A 'Y' OR 'N' IN THIS FIELD  V:Y;;N    I:I\CSH_PAYPRT;=;  A:CONST;Y;I\CSH_PAYPRT    
1 1.0 CASH_MAST CSH_ALLOW_J_PSWD K -1 371, 157
$VALIDATE  I:K\CSH_ALLOW_J_PSWD;=;0  O:DISABLEINPUT;I\CSH_JOURNAL_PASSWORD    I:K\CSH_ALLOW_J_PSWD;=;1  O:ENABLEINPUT;I\CSH_JOURNAL_PASSWORD
1 1.0 CASH_MAST CSH_ALLOW_DATE_CHANGE I -1 371, 217
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    'ACCEPT ONLY A 'Y' OR 'N' IN THIS FIELD  V:Y;;N    I:I\ALLOW_DATE_CHANGE;=;  A:CONST;N;I\ALLOW_DATE_CHANGE
1 2.0 CASH_MAST CSH_DEFAULT_PW I -1 601, 253
$VALIDATE  C:UCASE  V:Y;N    
1 2.0 CASH_MAST CSH_MAN_PASSWORD I -1 601, 229
  
1 2.0 CASH_MAST CSH_SUPER_PASSWORD I -1 601, 205
  
1 2.0 CASH_MAST CSH_JOURNAL_PASSWORD I -1 601, 157
  
1 2.0 CASH_MAST CSH_DEBIT_BAL_PASSWORD I -1 601, 181
  
1 3.0 TRNTYPE I -1 141, 277
$SELECT  'DISPLAY A SELECTION WINDOW  S:CASH_TRANS;I\TRNTYPE;I\MARKET    $VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    ' -  -   -     - J'S CODE  I:I\TRNTYPE;<>;  DO(TEST)    U:DELETE_MV;DUPLICATES;I\TRNTYPE,I\CSH_TRNTYPE,I\TMP10    I:I\TMP10;=;N    D:THAT VALUE ALREADY EXISTS IN THE FIELD;ERRORM;I\TRNTYPE    F:CASH_TRN
1 3.0 PAY_METH I -1 141, 409
$SELECT  'DISPLAY A SELECTION WINDOW  S:PAYMENT_METHOD;I\PAY_METH;I\MARKET    $VALIDATE  C:UCASE    I:I\PAY_METH;<>;  DO(TEST)    U:DELETE_MV;DUPLICATES;I\PAY_METH,I\CSH_PAYMETH,I\TMP11    I:I\TMP11;=;N    D:THAT VALUE ALREADY EXISTS IN THE FIELD;ERRORM;I\PAY_METH    F:CASH_PAYMTHD;Y;CPM_PAYMETH;I\METH_DESC=CPM_DESC;;I
10 0.0 ZX_PRINT Z 0 0, 90
  
10 0.0 ZX_SELECT Z 0 0, 90
  
10 0.0 ZX_DELETE Z 0 0, 90
  
10 0.0 ZX_UPDATE Z 0 0, 90
  
10 0.0 ZX_EXIT Z 0 0, 90