TRANSFER_MONEY_BUY

$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

$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

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

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\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    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_

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

'@  '$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    A:VAR;16;I\DT_TRTYPE  A:VAR;16;I\DT_TYPE    '========

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

$VALIDATE    O:BACKCOLOR;I\UPDATE;YELLOW  O:SETFOCUS;I\UPDATE    'O:SHOW;I\PIN;T\PIN  'O:ENABLEINPUT;I\PIN    

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

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

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

$VALIDATE  I:I\CONF_AMT;<>;I\CORR_AMT  D:ENTERED AMOUNTS NOT THE SAME;ERROR;I\CONF_AMT    I:I\CONF_AMT;=;I\CORR_AMT  DO(01)    'A:SUB;I\DT_TRVAL;I\DT_PAID_AMT;I\CONF_AMT    O:BACKCOLOR;C\UPDATE;YELLOW  ''''  O:SETFOCUS;C\UPDATE  DOEND(01)    

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

$VALIDATE  M:  I:I\CORR_AMT;<>;  U:CORRECT_BUYER_PAYMENT;CORRECT_AMOUNT    I:I\ERROR;=;Y  ''''O:SETFOCUS;I\CORR_AMT    I:I\ERROR;=;N  DO(CONF)    O:SHOW;I\CONF_AMT,T\CONF_AMT  '  O:SETFOCUS;I\CONF_AMT  DOEND(CONF)

$SELECT  I:I\MAIN_DEBTOR;=;  A:VAR;I\DTT_DEBTOR;I\MAIN_DEBTOR    I:I\MAIN_DEBTOR;<>;  A:VAR;I\MAIN_DEBTOR;I\DT_DEBTOR    S:CURRENT_RECEIPT;I\RECEIPT;I\MAIN_DEBTOR;I\DT_TRDATE;I\DT_TRTYPES    $VALIDATE  I:I\RECEIPT;<>;    F:DEBTOR_MAST;;;I\DT_DONE=DM_MAIN_DEBTOR;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\DT_DEBTOR$'    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    I:I\MARKET;=;18  U:MARKET_FUNCTIONS;GENERATE_REFNO    $CALCULATE    A:VAR;I

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    

$SELECT  'D$SELECT  'DISPLAY A SELECTION WINDOW  S:DEBTOR_CODE;I\TO_BUYER      '$SVAR_FOCUS    $CALCULATE  M:  C:UCASE    ''''''A:CONST;0;I\PIN_ERR    'CLEAR THESE FIELDS   ''''''A:CONST;;T\TO_NAME_DESC,I\DM_VATNO,T\REMARK,I\DM_ACCTYPE,I\DM_OSBAL,W\CTT_SCVAL,I\RANDOM_NO  A:CONST;;T\TO_NAME_DESC    'VALIDATE THE PREAMBL

$ESC  ''''O:BACKCOLOR;C\UPDATE;YELLO  ''''O:SETFOCUS;C\UPDATE      $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(D