TRANSFER_MONEY_BR

$SELECT  $VALIDATE    M:  C:UCASE    A:LEN;I\DT_DEBTOR;I\RFIDL    '''A:SUB;I\RFIDL;I\RFIDL2;L\SUB_BR;#0  '''A:RIGHT;I\DT_DEBTOR,I\RFIDL2;I\RFIDAB    F:DEBTOR_MAST;;;I\MAIN_DEBTOR=DM_MAIN_DEBTOR,I\DM_ACCTYPE=DM_ACCTYPE,I\DEBTOR_T=DM_DEBTOR,I\PASS=DM_SET_LIM_PASS,I\LIMITCOICE=DM_USE_TOT_AVAIL;DM_MARKET='$I\MARKET$' AND D

$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    '===

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

$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

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

$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)  '  

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

$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:    I:I\DT_TRVAL;=;0          D:THE LIMIT CHANGE CAN NOT BE 0;ERRORM;I\DT_TRVAL    '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

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  A:VAR;I\DT_REFNO;I\TO_REF  O:SETFOCUS;I\TO_BUYER    

$SELECT    $VALIDATE    C:UCASE    A:LEN;I\TO_BUYER;I\RFIDL    $CALCULATE    I:I\RFIDL;<>;0  DO(EXITS)      O:ENABLEINPUT;I\TO_BUYER,C\162      F:DEBTOR_MAST;;;I\MAIN_DEBTOR=DM_MAIN_DEBTOR,I\DTT_DEBTOR=DM_DEBTOR;DM_MARKET='$I\MARKET$' AND DM_DEBTOR ='$I\TO_BUYER$'      I:I\MAIN_DEBTOR;<>;I\DT_DEBTOR    DO(MDER)      D:

$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

$VALIDATE    I:I\RETURNS;=;    A:CONST;N;I\RETURNS    C:UCASE    V:Y;N    $CALCULATE      M:    I:I\RETURNS;=;N  DO(O1)    A:CONST;TRANSFER TO SUB BUYER;I\DT_REMARK    A:CONST;TRANSFER FROM MAIN BUYER;I\TO_REMARKS  DOEND(O1)    I:I\RETURNS;=;Y  DO(O2)    A:CONST;TRANSFER FROM SUB BUYER;I\DT_REMARK    A:CONST;TRANSFER T

$VALIDATE    V:Y;N    $CALCULATE    C:UCASE  M:        'O:SETFOCUS;I\UPDATE  

$VALIDATE      I:I\SET_LIMIT;=;    A:CONST;N;I\SET_LIMIT    C:UCASE    V:Y;N    M:    'DISABLEINPUT:I\SET_LIMIT    '$CALCULATE    O:SETFOCUS;Z\ZX_UPDATE      

$VALIDATE      I:I\SET_LIMIT;=;    A:CONST;N;I\SETLIM    C:UCASE    V:Y;N    M:    'DISABLEINPUT:I\SET_LIMIT    '$CALCULATE    'I:I\SETLIM;<>;  O:SETFOCUS;I\UPDATE  

$SELECT    $ESC  O:DELAY;2000  O:TERMINATE  O:DELAY;2000  O:TERMINATE  O:DELAY;2000  'O:RETURN  'O:TERMINATE    '$CALCULATE  ' O:ENABLEINPUT;Z\ZX_EXIT       O:SETFOCUS;Z\ZX_EXIT  

$CALCULATE    I:I\PASS;=;I\PASST  DO(OPEN)    O:SHOW;I\ID,L\IDT,I\REFNT,I\DT_REFNO,L\TB,L\TBID,L\AFT,L\RETL,L\ASBT,L\TRFAMT,I\DT_TRVAL,L\SPLT,I\UPDATE    O:SHOW;I\DT_TRVAL,I\DT_REFNO,I\ID,I\MAIN_DEBTOR,I\LIMITCOICE,L\COMPL_AMOUNT,L\BUYER_NAME_L,G\GRID    O:SHOW;I\TO_BUYER,I\TO_ID_NO,T\TO_NAME_DESC,I\RETURNS,I\LIMITD,I\

'@  '$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    '===