CASHPOINT_SLS_MAN

$DEFAULT    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\DOCNO,I\CONSIGN,I\AGN,I\COMMODITY,I\AVAIL_QTY,I\SALES_QTY,I\PRICE,I\VAT,I\VALUE,I\PALLS_SOLD:H,I\DOC_MSG:H,I\DELDATE:H,I\DISCVAL:H,I

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\PROHIBIT_SALES=CM_PROHIBIT_SALES,T\MARKET=CM_NAME,I\PRE=CM_CB_NOPREAMBLE    I:I\PROHIBIT_SALES;=;Y  DO(JHE)    O:DISABLEINPUT;I\DM_DEBTOR    D:SALES ARE PROHIBITED;ERRORM;I\DM_DEBTOR  DOEND(JHE)    'CHANGING TEXT CASE FOR THE F

$DEFAULT  A:ORGS;;I\ORGS    

$DEFAULT  A:USERIP;;I\IP  F:CASH_POINT;;;I\CASHPOINT=CPO_CASHPT;CPO_IP='$I\IP$'    

$DEFAULT  A:USERID;;I\CASHIER  'GETS CASHIER AND GETS IF CASHIER IS BLOCKED  F:CASH_MAST;;;I\CASHIER_SCAN=CSH_SCAN_CARD;CSH_CASHIER='$I\CASHIER$' AND CSH_MARKET='$I\MARKET$'

$ESC  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD    $CALCULATE  '=======BASIC VALIDATION=======================================================================================================================  M:  C:UCASE    I:I\MARKET;<>;22  DO(D8A)   I:I\PRE;<>;0    DO(PR3)     I:I\PARM;<>;HEA     DO(SSQ)       U:G

$SELECT  S:BUYER_GROUP;I\GROUP    $CALCULATE    I:I\TMP2;=;1     DO(BY)       M:       C:UCASE       F:BUYER_GROUP;Y;;T\GROUP_NAME=BG_DESC;BG_CODE='$I\GROUP$';I\GROUP     DOEND(BY)  O:SETFOCUS;I\SEQ  A:CONST;+;I\SEQ  

$SELECT  S:BUYER_GROUP;I\GROUP

$SELECT  S:CONS_QTY;I\CONSIGN

$SELECT  S:PAYMENT_METHOD;I\PMT_METH;I\MARKET    

$BEFORE_WRITE    '==================================  'TO CHECK FOR LOCKS (JD 2010-11-15)  ''U:ZZGRID_VALIDATE;INIT_GRID;G\GRID  'TO CHECK FOR LOCKS (JD 2010-11-15)  '==================================    I:I\PMT_METH;<>;  DO(SCR)    I:I\PMT_METH;=;CA    DO(CA)  '    U:CASHPOINT_SALES;ZV_GEN;I\CODEFLD,I\USERID,I\DM_DEB

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

$SELECT  S:G:G\GRID:R1;I\SEQ  $SELECT6  S:G:G\GRID:F1;I\SEQ    $CALCULATE  I:I\SEQ;=;  DO(SFD)     O:DISABLEINPUT;I\DOCNO,I\CONSIGN,I\SALES_QTY,I\PRICE,I\MSG     I:I\BUYER_TYPE;=;CA     DO(LPZ)       A:CONST;CA;I\PMT_METH       O:SETFOCUS;I\PMT_METH     DOEND(LPZ)  DOEND(SFD)    I:I\SEQ;<>;  DO(002)    I:I\SEQ;<>;+    

$CALCULATE  '===READS AND WRITES THE DOCNO================================================================================================================  I:I\CM_CASHDOC;=;1  DO(WTY)    I:I\DOCNO;=;    A:CONST;*****;I\DOCNO        I:I\DOCNO;<>;    DO(PLS)      I:I\DOCNO;<>;*****      DO(CBG)        A:CONST;*****;I\DOC

$SELECT  S:CONS_QTY;I\CONSIGN    $CALCULATE  M:  F:CLIENT_MAST;;;I\DEL_LEN=CM_DEL_LEN;CM_CODE='$I\MARKET$'  A:ADD;"2";I\DEL_LEN;I\DEL_LEN  A:ZEROFILL;I\CONSIGN,I\DEL_LEN;I\CONSIGN    '====GENERAL VALIDATION==================================================================================================================

$VALIDATE    I:I\SALES_QTY;<;0;NUM  D:QUANTITY CANNOT BE NEGATIVE;ERRORM;I\SALES_QTY        I:I\SALES_QTY;>;I\AVAIL_QTY;NUM  D:SALES QTY CANNOT BE MORE THAN AVAILABLE QTY;ERRORM;I\SALES_QTY          $CALCULATE  M:  I:I\SALES_QTY;=;0;NUM  D:QUANTITY CANNOT BE ZERO;ERRORM;I\SALES_QTY    I:I\AM_TARGET_USE;=;Y  DO(001)    

$SVAR_FOCUS  I:I\SEQ;=;+  O:SETFOCUS;I\SEQ    $CALCULATE  M:    I:I\PRICE;<=;0;NUM  D:PRICE CANNOT BE ZERO;ERRORM;I\PRICE    '$VALIDATE  'I:I\PRICE;<=;0;NUM  'D:PRICE CANNOT BE ZERO;ERRORM;I\PRICE      U:CASHPOINT_SALES;VAT;I\SALES_QTY,I\PRICE,I\COMMODITY      '======GETS THE VARIANCE PERCENTAGE AND THE PRICE VARIANCE 

$CALCULATE  C:UCASE  V:Y;N;D;  I:I\MSG;=;  A:CONST;N;I\MSG    I:I\MSG;=;Y  U:AGENT_SALES;SALES_DOCKET_MSG    'NEW BY JD 20150316 - SET THE CONSIGNMENT AS ACTIVE  '''U:CASHPOINT_SALES;ACTIVE_LOCKS_SET  U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ    F:PALL_DETS;;;I\TMP_PALLS=PD_CONQTY;PD_MARKET='$I\MARKET$' AND PD_AGENT='

$VALIDATE    U:CATCHCHARS;FALSE  '$DEFAULT    A:SUB;I\AMT_TENDERED;I\CHANGE;I\TOTAL;#0.00    I:I\BUYER_TYPE;=;CA    DO(BFX)      I:I\AMT_TENDERED;<;I\TOTAL;NUM      DO(001)        A:VAR;I\AMT_TENDERED;I\AMT_TENDERED;;#0.00        D:AMOUNT TENDERED CAN NOT BE LESS THAN THE TOTAL;ERRORM;I\AMT_TENDERED      DOEND(001)    

$SELECT  S:PAYMENT_METHOD;I\PMT_METH;I\MARKET    $VALIDATE  I:I\BUYER_TYPE;=;CA  DO(VEW)      M:    I:I\PMT_METH;<>;    F:CASH_PAYMTHD;Y;;;CPM_PAYMETH='$I\PMT_METH$';I\PMT_METH  DOEND(VEW)       $CALCULATE  C:UCASE  F:CASH_PAYMTHD;Y;;;CPM_PAYMETH='$I\PMT_METH$';I\PMT_METH    I:I\BUYER_TYPE;<>;CA  DO(WER)     D:PAYMENT 

$ESC  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD    $UPDATE    ''==================================  ''TO CHECK FOR LOCKS (JD 2010-11-15)  U:ZZGRID_VALIDATE;INIT_GRID;G\GRID  ''TO CHECK FOR LOCKS (JD 2010-11-15)  ''==================================    'I:I\PMT_METH;<>;  'DO(SCR)  '  I:I\PMT_METH;=;CA  '  DO(CA)  ' 

$EXIT  U:CASHPOINT_SALES;ACTIVE_LOCKS_RESET  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD