Freshmark replication server

freshmark-canonical

Program drill-down

CASHIER_TAG_IS_DEL

CASHIER TAG ISSUE DELETION MAN. Type DSP, base table TAG_TRANS.

Field inventory

107

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 5 T -1 671, 49
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 621, 25
  
1 0.0 Label 3 T -1 671, 25
  
1 0.0 Label 4 T -1 621, 49
  
1 0.0 TMP ID I 0 691, 325
  
1 0.0 H -1 0, 30
  
1 0.0 Label 6 T -1 291, 25
  
1 0.0 Label 7 T -1 271, 49
  
1 0.0 Label 8 T -1 41, 217
  
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;T\MARKET=CM_NAME,I\RFID=CM_USE_RFID,I\PAY_AGAINST=CM_PAY_AGAINST    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCAS
1 0.0 Label 10 T -1 41, 253
  
1 0.0 DT_CASHPNT I -1 171, 217
$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 171, 253
  
1 0.0 Label 13 T -1 41, 181
  
1 0.0 DT_DEBTOR I -1 171, 181
$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      'LOOK FOR THE PRINTER. IF TABLE NOT SET UP ERROR  'U:CASHIER_TRANS_MAN;GET_P
1 0.0 Label 15 T 0 541, 145
  
1 0.0 CMD 16 C 0 271, 181
$SELECT  'DISPLAY A SELECTION WINDOW  S:DEBTOR_CODE;I\DT_DEBTOR  
1 0.0 DM_VATNO I 0 641, 145
  
1 0.0 Label 18 T -1 301, 181
  
1 0.0 Label 19 T 0 291, 217
  
1 0.0 DM_OSBAL I 0 451, 217
  
1 0.0 Label 21 T 0 341, 289
  
1 0.0 Label 22 T 0 381, 433
  
1 0.0 Label 23 T -1 41, 325
  
1 0.0 Label 24 T 0 41, 433
  
1 0.0 Label 25 T 0 41, 397
  
1 0.0 DT_TRTYPE I 0 341, 289
$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 DT_PAYMTHD I 0 341, 325
$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    'ADDED BY JUSTIN 2008/
1 0.0 CMD 29 C 0 401, 325
$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 DT_TRVAL I -1 171, 325
$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  A:VAR;I\DT_TRVAL;W\ROUNDED      $CALCULATE    A:VAR;I\DT_TRVAL;I\DT_TRVAL;;0.00    'DO NOT PASS THE DEBTO
1 0.0 DT_RFIDNO I 0 171, 433
$VALIDATE  M:  'CONVERT TO UPPERCASE  C:UCASE      O:BACKCOLOR;C\UPDATE;YELLOW  O:SETFOCUS;C\UPDATE
1 0.0 I 0 171, 397
$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 Label 3 T -1 231, 361
  
1 0.0 Label 33 T 0 421, 289
  
1 0.0 Label 34 T 0 441, 325
  
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 Work 2 I 0 431, 517
  
1 0.0 TPM I 0 1, 241
  
1 0.0 TMP1 I 0 541, 517
  
1 0.0 Work 5 I 0 521, 517
  
1 0.0 Work 6 I 0 631, 217
  
1 0.0 T -1 171, 517
  
1 0.0 Work 8 I 0 31, 541
  
1 0.0 DM_ACCTYPE I 0 561, 217
  
1 0.0 TRANS TYPES I 0 1, 277
  
1 0.0 Work 12 I 0 711, 325
  
1 0.0 USERDID I 0 451, 517
  
1 0.0 USER IP I 0 471, 517
  
1 0.0 PAYMETHOD I 0 1, 301
  
1 0.0 PAY METHODS I 0 341, 529
  
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 UPDATE BUTTON C -1 651, 545
$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW    $SELECT    A:CONST;DE;I\DT_TRTYPE    '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    I:I\RECEIPT_NO;=;  D:RECEIPT NO IS A MANDATORY FIELD;ERRORM;I\RECEIPT_NO  
1 0.0 Work 1 I -1 171, 361
$SELECT  'DISPLAY A SELECTION WINDOW  S:REASON;I\REASON    $VALIDATE  M:  C:UCASE    I:I\REASON;=;  A:CONST;;T\REASON    I:I\REASON;<>;  F:REASON_MAST;Y;;T\RSN_DESC=RSN_DESC;RSN_REASON='$I\REASON$';I\REASON        '$AFTER_READ  'F:REASON_MAST;;;T\REASON=RSN_DESC;RSN_TYPE='DE' AND RSN_REASON='$I\REASONE$';I\REASON    'A
1 0.0 Label 2 T -1 41, 361
  
1 0.0 Work 1 I 0 131, 49
  
1 0.0 Work 1 I 0 591, 181
  
1 0.0 DEBTOR_ERR I 0 451, 181
  
1 0.0 IP ADDRESS I 0 71, 49
  
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 511, 85
  
1 0.0 EXIT FLAG I 0 531, 433
  
1 0.0 DESCRIPTIONS I 0 1, 337
  
1 0.0 DEBTOR_TRANS DT_TRTYPE D 0 581, 289
$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 Label 2 T -1 611, 181
  
1 0.0 PRN I 0 591, 433
  
1 0.0 RANDOM_NO I 0 491, 181
  
1 0.0 Work 2 I 0 571, 181
  
1 0.0 CASHIER_SCAN I 0 491, 85
  
1 0.0 Label 5 T -1 581, 517
  
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 1, 325
  
1 0.0 CONVERT TO POSITIVE I 0 561, 433
  
1 0.0 TEMP TRANS TYPES I 0 1, 361
  
1 0.0 CASHIER I 0 281, 109
  
1 0.0 Label 1 T 0 531, 469
  
1 0.0 Work 2 I 0 611, 469
$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 1 I 0 671, 289
  
1 0.0 INVALID_BUYER_NO I 0 551, 181
  
1 0.0 RANDOM_DEBTOR_NO I 0 511, 181
  
1 0.0 CFM I -1 671, 517
$CALCULATE  M:  C:UCASE  V:Y;N    I:I\CFM;=;N  DO(C33)    A:CONST;;I\CFM    O:SETFOCUS;I\RECEIPT_NO  DOEND(C33)      I:I\CFM;=;Y  DO(RUN)  O:BACKCOLOR;C\UPDATE;YELLOW  O:SETFOCUS;C\UPDATE  DOEND(RUN)
1 0.0 INVALID_BUYER_SCAN I 0 531, 181
  
1 0.0 Work 3 I 0 11, 469
  
1 0.0 Work 1 I 0 121, 553
  
1 0.0 Work 2 I 0 241, 577
  
1 0.0 Work 5 I 0 11, 493
  
1 0.0 Work 1 I 0 11, 517
  
1 0.0 Label 4 T -1 291, 253
  
1 0.0 CMD 3 C -1 271, 145
$SELECT  S:TAG_RECEIPT_NO;I\RECEIPT_NO  
1 0.0 Work 1 I -1 171, 145
  $SELECT  S:TAG_RECEIPT_NO;I\RECEIPT_NO        $SVAR_FOCUS  I:W\CASHIER;=;  D:THIS USER IS NOT A CASHIER;ERRORM;I\RECEIPT_NO    I:I\DT_CASHPNT;=;  D:THERE IS NO CASH POINT SET UP FOR THIS CASHIER;ERRORM;I\RECEIPT_NO      'LOOK FOR THE PRINTER. IF TABLE NOT SET UP ERROR  U:CASHIER_TRANS_MAN;GET_PRINTER  I:I\PRN;=;N  D:
1 0.0 Label 2 T -1 41, 145
  
1 0.0 Label 4 T -1 41, 289
  
1 0.0 Work 5 I -1 171, 289
  
10 0.0 ZX_EXIT Z 0 0, 30
  
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