Freshmark replication server

freshmark-canonical

Program drill-down

CASHIER_DEP_MAN

CASHIER DEPOSIT MAN. Type DSP, base table DEBTOR_TRANS.

Field inventory

116

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 5 T -1 511, 361
  
1 0.0 Label 1 T -1 171, 409
  
1 0.0 EDATE I -1 581, 445
$CALCULATE  I:I\EDATE;=;  A:DATE;DD MMM YYYY;I\EDATE  I:I\DT_PAYMTHD;<>;DD  DO(FLL)    I:I\DT_PAYMTHD;<>;ET    DO(DMM)      I:I\EDATE;<>;T\DATE      DO(PLD)         A:DATE;DD MMM YYYY;I\EDATE            D:YOU CANNOT ENTER A DIFFERENT DATE FOR PAYMENT METHOD $I\DT_PAYMTHD$;ERRORM;I\EDATE      DOEND(PLD)    DOEND(DMM)  D
1 0.0 PAY METHODS I 0 341, 529
  
1 0.0 DT_REFNO I -1 341, 445
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE
1 0.0 DT_REMARK I -1 171, 505
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    '$CALCULATE  'I:I\DM_DTYPE;=;B  'DO(GOS)  '  I:I\DM_ACCTYPE;=;CR  '  DO(DAW)  '    I:I\PAY_AGAINST;=;I  '      DO(YAM)  '        A:CONST;Y;I\DONE  '        E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P DEBTOR_PAYMENT_DETS $I\DT_DEBTOR$ $I\DT_TRVAL$  '      DOEND(YAM)  '    I
1 0.0 Work 3 I 0 1, 301
  
1 0.0 Work 4 I 0 1, 277
  
1 0.0 Work 5 I 0 1, 349
  
1 0.0 CONVERT TO POSITIVE I 0 461, 361
  
1 0.0 TEMP TRANS TYPES I 0 61, 241
  
1 0.0 PRN I 0 481, 361
  
1 0.0 RANDOM_NO I 0 491, 181
  
1 0.0 DEBTOR_TRANS DM_DTYPE I 0 601, 217
  
1 0.0 PAY_AGAINST I 0 701, 217
  
1 0.0 Work 1 I 0 431, 121
  
1 0.0 Label 2 T -1 611, 157
  
1 0.0 Label 19 T -1 41, 193
  
1 0.0 UPDATE BUTTON C -1 651, 548
$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW    $SELECT    'CHECK THAT ITS A DEPOSIT  I:I\DT_TRTYPE;<>;02  D:YOU MAY ONLY DEPOSIT!;ERRORM;I\DT_DEBTOR    'LOOK FOR THE PRINTER. IF TABLE NOT SET UP ERROR  U:CASHIER_TRANS_MAN;GET_PRINTER  I:I\PRN;=;N  D:PRINTING TABLE NOT SET UP, CONTACT FRESHMARK;ERRORM;I\DT_DEBTOR    '=====
1 0.0 CMD 29 C -1 401, 337
$SELECT  'DISPLAY A SELECTION WINDOW  ''S:PAYMENT_METHOD;I\DT_PAYMTHD;I\MARKET    $SELECT  'DISPLAY A SELECTION WINDOW    I:W\PAYMETH;=;  S:PAYMENT_METHOD;I\DT_PAYMTHD;I\MARKET    I:W\PAYMETH;<>;  S:PAYMENT_METHOD2;I\DT_PAYMTHD;I\MARKET;D\DT_TRTYPE  
1 0.0 CMD 16 C -1 251, 157
$SELECT  'DISPLAY A SELECTION WINDOW  S:DEBTOR_CODE;I\DT_DEBTOR  
1 0.0 H -1 0, 30
  
1 0.0 DT_PAYMTHD I -1 341, 337
$SELECT  'DISPLAY A SELECTION WINDOW    I:W\PAYMETH;=;  S:PAYMENT_METHOD;I\DT_PAYMTHD;I\MARKET    I:W\PAYMETH;<>;  S:PAYMENT_METHOD2;I\DT_PAYMTHD;I\MARKET;D\DT_TRTYPE    $VALIDATE  'CLEAR THE LABLE  A:CONST;;T\PAYMETH,W\RESULT    'MAKE THIS FIELD MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE  I:I\MARKET;=;17  DO(17) 
1 0.0 DEBTOR_TRANS DT_TRTYPE D 0 571, 301
$SELECT  'DISPLAY A SELECTION WINDOW  'S:TRANSACTION_TYPE_2;D\DT_TRTYPE      $CALCULATE  I:W\CASHIER;=;  D:THIS USER IS NOT A CASHIER;ERRORM;I\DT_DEBTOR    I:I\DT_CASHPNT;=;  D:THERE IS NO CASH POINT SET UP FOR THIS CASHIER;ERRORM;I\DT_DEBTOR    I:I\TYPES;=;  D:NO TRANSACTION TYPES HAVE BEEN SET UP FOR THIS CASHIER;ERR
1 0.0 DM_VATNO I -1 151, 265
  
1 0.0 DT_TRVAL I -1 341, 373
$SVAR_FOCUS  'U:SAVE_CASH_DENOMS;READ_CHANGE  'A:VAR;I\TCHANGE;I\TCHANGE;;0.00  'O:SETFOCUS;I\DT_TRVAL    $VALIDATE  'MAKE THIS FIELD MANDATORY  M:    'ROUND THE TOTAL TO THE NEAREST FIVE CENT  F:CLIENT_MAST;;;W\ROUND=CM_ROUND;CM_CODE='$I\MARKET$'  A:ROUND;I\DT_TRVAL,0.05,W\ROUND;W\ROUNDED;;#0.00    I:W\ROUNDED;=;0.00 
1 0.0 PAYMETHOD I 0 61, 241
  
1 0.0 USER IP I 0 471, 517
  
1 0.0 USERDID I 0 451, 517
  
1 0.0 Work 12 I 0 711, 325
  
1 0.0 TRANS TYPES I 0 51, 241
  
1 0.0 DM_ACCTYPE I 0 561, 217
  
1 0.0 Work 8 I 0 31, 541
  
1 0.0 Work 6 I 0 631, 217
  
1 0.0 Work 5 I 0 521, 517
  
1 0.0 TMP1 I 0 541, 517
  
1 0.0 TPM I 0 1, 241
  
1 0.0 Work 2 I 0 431, 517
  
1 0.0 DEFAULT I 0 11, 541
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000            
1 0.0 Work 1 I 0 411, 517
  
1 0.0 EXIT FLAG I 0 441, 361
  
1 0.0 DESCRIPTIONS I 0 81, 241
  
1 0.0 DT_MARKET I 0 1, 49
  
1 0.0 Work 1 I 0 71, 541
  
1 0.0 Work 2 I 0 91, 541
  
1 0.0 OSRESZ I -1 201, 229
  
1 0.0 Work 6 I 0 1, 373
  
1 0.0 Work 7 I 0 1, 397
  
1 0.0 Work 1 I 0 21, 241
  
1 0.0 Work 1 I 0 591, 181
  
1 0.0 Work 1 I 0 131, 49
  
1 0.0 ABSA_MAIN I 0 451, 121
  
1 0.0 RANDOM_DEBTOR_NO I 0 511, 181
  
1 0.0 CFM I -1 591, 361
$CALCULATE  M:  C:UCASE  V:Y;N    I:I\CFM;=;N  DO(C33)    A:CONST;;I\CFM    O:SETFOCUS;I\DT_TRVAL  DOEND(C33)
1 0.0 INVALID_BUYER_SCAN I 0 531, 181
  
1 0.0 Work 2 I 0 1, 325
  
1 0.0 INVALID_BUYER_NO I 0 551, 181
  
1 0.0 Work 1 I 0 661, 301
  
1 0.0 CASHIER I 0 261, 133
  
1 0.0 Work 2 I -1 341, 409
$CALCULATE  C:UCASE  V:CURR;30;60;90;120;    I:I\PERIOD;=;  A:CONST;CURR;I\PERIOD      
1 0.0 USER ID I 0 101, 49
$DEFAULT  A:USERID;;I\USERID    U:MENU_GROUP;LOOKUP
1 0.0 Work 1 I 0 431, 145
  
1 0.0 Work 2 I 0 571, 181
  
1 0.0 CASHIER_SCAN I 0 281, 133
  
1 0.0 DLEN I 0 471, 181
  
1 0.0 Work 1 I 0 431, 181
  
1 0.0 Work 2 I 0 411, 181
  
1 0.0 Work 1 I 0 751, 85
  
1 0.0 CTT_SCVAL I 0 71, 241
  
1 0.0 Work 1 I -1 621, 409
  
1 0.0 Work 3 I 0 11, 469
  
1 0.0 Work 2 I 0 431, 85
  
1 0.0 Work 3 I 0 461, 85
  
1 0.0 DEBTOR_ERR I 0 451, 181
  
1 0.0 IP ADDRESS I 0 71, 49
  
1 0.0 Label 1 T -1 461, 445
  
1 0.0 Label 1 T -1 41, 229
  
1 0.0 Label 2 T -1 461, 409
  
1 0.0 Label 34 T -1 441, 337
  
1 0.0 T -1 171, 529
  
1 0.0 Label 33 T -1 401, 301
  
1 0.0 Label 3 T -1 671, 25
  
1 0.0 Label 2 T -1 621, 25
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 5 T -1 671, 49
  
1 0.0 Label 4 T -1 621, 49
  
1 0.0 Label 6 T -1 291, 25
  
1 0.0 Label 7 T -1 321, 49
  
1 0.0 Label 8 T -1 41, 85
  
1 0.0 Label 10 T -1 41, 121
  
1 0.0 Label 13 T -1 41, 157
  
1 0.0 Label 15 T -1 41, 265
  
1 0.0 Label 18 T -1 291, 157
  
1 0.0 Label 22 T -1 171, 337
  
1 0.0 Label 21 T -1 171, 301
  
1 0.0 Label 24 T -1 171, 445
  
1 0.0 Label 23 T -1 171, 373
  
1 0.0 Label 25 T -1 171, 481
  
1 0.0 Pic 1 P -1 491, 73
  
1 0.0 DT_CASHPNT I -1 151, 85
$DEFAULT    'GET THE USER ID OF THE LOGGED IN USER  A:USERID;;W\USERID  A:ORG;;I\MARKET    'GETS USER'S IP ADDRESS  'F:ZU_USER;;;W\USER_IP=ZU_LOCAL_IP;ZU_USERID='$W\USERID$'  A:USERIP;;I\IP    'GETS CASH POINT  F:CASH_POINT;;;I\DT_CASHPNT=CPO_CASHPT;CPO_IP='$I\IP$' AND CPO_MARKET='$I\MARKET$';    'GETS CASHIER AND CHEC
1 0.0 DT_CASHIER I -1 151, 121
  
1 0.0 DT_DEBTOR I -1 151, 157
$SELECT  'DISPLAY A SELECTION WINDOW  S:DEBTOR_CODE;I\DT_DEBTOR    $SVAR_FOCUS  I:W\CASHIER;=;  D:THIS USER IS NOT A CASHIER;ERRORM;I\DT_DEBTOR    I:I\DT_CASHPNT;=;  D:THERE IS NO CASH POINT SET UP FOR THIS CASHIER;ERRORM;I\DT_DEBTOR    I:I\TYPES;=;    DO(T)     A:CONST;;T\NAME,I\DM_VATNO,T\REMARK,I\DM_ACCTYPE,I\DM_OSB
1 0.0 TMP ID I 0 691, 325
  
1 0.0 MARKET CODE I 0 41, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    O:DISABLEINPUT;I\PERIOD    'COPY CONTENTS OF I\MARKET TO I\DT_MARKET  A:VAR;I\MARKET;I\DT_MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\CM_USE_PIC=CM_USE_PIC,T\MARKET=CM_NAME,I\RFID=CM_USE_RFID,I\CFM_AMT=CM_DEP_CONF_AMT,I\PAY_AGAINST=CM_PAY_AGAINST,I\CM_USE_CASH_
1 0.0 DM_OSBAL I -1 201, 193
  
1 0.0 DT_TRTYPE I -1 341, 301
$CALCULATE  I:W\CASHIER;=;  D:THIS USER IS NOT A CASHIER;ERRORM;I\DT_DEBTOR    I:I\DT_CASHPNT;=;  D:THERE IS NO CASH POINT SET UP FOR THIS CASHIER;ERRORM;I\DT_DEBTOR    I:I\TYPES;=;  D:NO TRANSACTION TYPES HAVE BEEN SET UP FOR THIS CASHIER;ERRORM;I\DT_DEBTOR    I:I\METHODS;=;  D:NO PAYMENT METHODS HAVE BEEN SET UP FOR 
1 0.0 Work 1 I 0 561, 517
  
1 0.0 Work 1 I 0 471, 469
  
1 0.0 Work 1 I 0 371, 517
  
1 0.0 Work 1 I 0 11, 433
  
1 0.0 Work 1 I 0 41, 433
  
1 0.0 Label 5 T -1 331, 193
  
1 0.0 Work 6 I -1 431, 193
  
1 0.0 Work 7 I -1 431, 229
  
1 0.0 Label 8 T -1 331, 229
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_EXIT 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