CORRECT_BUYER_NO

$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW    $SELECT  A:CONST;;I\CHECKED,I\INVALID_PASSWORD    '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      '===========================  'DO A BUYER NUMBER CHECK!!!! 

$SELECT  'DISPLAY A SELECTION WINDOW  S:DEBTOR_CODE;I\DT_DEBTOR  

$SELECT  S:CURRENT_RECEIPT;I\RECEIPT;I\DT_DEBTOR;I\DT_TRDATE;I\DT_TRTYPES

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  U:DIGITAL_DISPLAY;NEXT CUSTOMER PLEASE...  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\RFID=CM_USE_RFID,I\PIN_REF=CM_PIN_REFUND,T\MARKET=CM_NAME,I\PAY_AGAINST=CM_PAY_AGAINST

$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

$SELECT  'D$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    '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_DEB

$SELECT  'DISPLAY A SELECTION WINDOW  S:TRANSACTION_TYPE_2;I\DT_TRTYPE    $VALIDATE    'CLEAR THE LABLE  A:CONST;;T\TRTYPE,W\PAYMETH    'MAKE THIS FIELD MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE      'ONLY ALLOW DEPOSITS AND REFUNDS IF THE BUYER IS A 'SECURE CASH BUYER'  'I:I\DM_ACCTYPE;=;SC  ' DO(ACC)  '   '''I:

$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 DEBTOR 

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    O:BACKCOLOR;C\UPDATE;YELLOW  O:SETFOCUS;C\UPDATE

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000      A:DATE;YYYY/MM/DD;I\DT_TRDATE        

''$ESC  ''O:SETFOCUS;I\DT_TRVAL    $VALIDATE  M:  C:UCASE    V:N;Y    I:I\CFM;=;N  DO(LD1)    A:CONST;I\DT_TRVAL;0    O:SETFOCUS;I\DT_TRVAL  ''  O:HIDE;T\CFM,I\CFM  DOEND(LD1)

$CALCULATE  C:UCASE  V:CURR;30;60;90;120;    I:I\PERIOD;=;  A:CONST;CURR;I\PERIOD      

$DEFAULT  A:USERID;;I\USERID    U:MENU_GROUP;LOOKUP

$ESC  O:SETFOCUS;D\DT_TRTYPE      $CALCULATE  M:  I:I\PIN;<>;I\DEBTOR_PIN  DO(F54)    U:CASHIER_PINS;ERROR_INCREASE        I:I\PIN_ERR;<;4    D:INCORRECT PIN. TRY AGAIN.;ERRORM;I\PIN      I:I\PIN_ERR;>=;4    DO(D3D)      U:CASHIER_PINS;BLOCK_BUYER      O:DISABLEINPUT;C\UPDATE    DOEND(D3D)  DOEND(F54)

$SELECT  I:I\DTT_DEBTOR;<>;  S:CURRENT_RECEIPT_B;I\RECEIPT;I\DTT_DEBTOR;I\DT_TRDATE;I\DT_TRTYPES    I:I\DTT_DEBTOR;=;  S:CURRENT_RECEIPT_B;I\RECEIPT;I\DT_DEBTOR;I\DT_TRDATE;I\DT_TRTYPES    $VALIDATE  I:I\RECEIPT;<>;    DO(33333)      F:DEBTOR_MAST;;;I\DT_DONE=DM_MAIN_DEBTOR;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\DT_D

$CALCULATE  M:  C:UCASE    A:CONST;;I\DTT_DEBTOR,I\TMP_D    'VALIDATE THE PREAMBLE  F:PREAMBLE_DEBTOR;;PDR_DEBTOR;I\TMP1=PDR_DEBTOR  I:I\MARKET;=;11  DO(LEO)    I:I\DT_CASHIER;=;LEO    A:CONST;X;I\TMP1  DOEND(LEO)    'VALIDATE THE PREAMBLE  I:I\MARKET;<>;15  DO(NOT15)    I:I\MARKET;<>;14    DO(NOK)      I:I\MARKET;<>;2

$EXIT  U:DIGITAL_DISPLAY;CASHIER CLOSED...