PRICE_CORRECTION

$CALCULATE    I:K\45;=;1  DO(01)    O:ENABLEINPUT;I\NOCOPIES    O:SETFOCUS;I\NOCOPIES  DOEND(01)    

$VALIDATE  C:UCASE  V:Y;N

$VALIDATE  C:UCASE  V:Y;N

$SELECT    'NEW_NEW_NEW LOCKS  U:PALLETS_UPD;CHECK_LOCKS  I:I\ACTIVE;=;A  D:SALES IN PROGRESS ON CONSIGNMENT;ERRORM;I\ST_DOCNO    'STOP THE DELETE FUNCTIONALITY FOR LEGEND  A:STOPDELETE;TRUE    'CHECK FOR EMPTY FIELDS  I:I\ST_DOCNO;=;  D:DOCUMENT NUMBER IS EMPTY - CAN NOT DELETE RECORD;ERRORM;I\ST_DOCNO    I:I\ST_DEBTO

$SELECT  'DISPLAY A SELECTION WINDOW  S:REASON;I\ST_RSN_CODE    

$SELECT  S:CASHIER;I\ST_CASHIER

$SELECT  A:CONST;SA;I\TRTYPE    I:I\MARKET;<>;11  DO(V4B)   'DISPLAY A SELECTION WINDOW   'DISPLAY A SELECTION WINDOW   I:I\AGENT;=;   S:DOC_NO2;I\ST_DOCNO;I\MARKET;I\TRTYPE     I:I\AGENT;<>;   S:DOC_NO_AGENT_SALE;I\ST_DOCNO;I\MARKET;I\TRTYPE;I\AGENT     A:SELPARM;2;I\ST_AGENT  DOEND(V4B)

'MIGHT USE THIS FIELD FOR THE CLUB FEE OF THE TRANSFER TRANSACTION

$AFTER_READ  'READ THE LEVY AND LEVY VAT FROM THE LEVT_TRANS  'I:I\ST_DOCNO;<>;  'F:LEVY_TRANS;;;I\LEVY=LVT_LEVYAMT,W\LEVYAMT=LVT_LEVYAMT,W\LEVY_VAT=LVT_LEVYVAT,W\LEVYVAT=LVT_LEVYVAT;LVT_MARKET='$I\MARKET$' AND LVT_AGENT='$I\ST_AGENT$' AND LVT_CONSIGN='$I\ST_CONSIGN$' AND LVT_DOCNO='$I\ST_DOCNO$'      'I:I\ST_DOCNO;<>;

'LP20121122

$VALIDATE    I:I\NOCOPIES;>;10;VAL  D:MAXIMUM ALLOWED IS 10;ERRORM;I\NOCOPIES  ''O:DISABLEINPUT;I\ST_DOCNO    O:ENABLEINPUT;C\UPD  O:SETFOCUS;C\UPD  O:BACKCOLOR;C\UPD;YELLOW  

$SELECT  A:CONST;SA;I\TRTYPE    I:I\MARKET;<>;11  DO(V4V)  I:I\MARKET;<>;60  DO(NOT60)   'DISPLAY A SELECTION WINDOW   I:I\AGENT;=;     S:DOC_NO4;I\ST_DOCNO;I\MARKET;I\TRTYPE     I:I\AGENT;<>;     S:DOC_NO_AGENT_SALE;I\ST_DOCNO;I\MARKET;I\TRTYPE;I\AGENT     A:SELPARM;2;I\ST_AGENT  DOEND(NOT60)  DOEND(V4V)    I:I\MARKET

$VALIDATE  C:UCASE  V:Y;N    'O:ENABLEINPUT;C\UPD  'O:SETFOCUS;C\UPD  'O:BACKCOLOR;C\UPD;YELLOW

$VALIDATE  C:UCASE  V:Y;N

$VALIDATE  O:SETFOCUS;I\ST_RSN_CODE

$VALIDATE  I:I\NEW_COMMP;>;0  DO(CHK1)    O:DISABLEINPUT;I\NEW_COMM_VAL    A:MULT;I\NEW_SPRICE;I\SUP_VALUE;I\ST_TRQTY    A:MULT;I\SUP_VALUE;I\NEW_COMM_VAL;I\NEW_COMMP    A:DIV;I\NEW_COMM_VAL;I\NEW_COMM_VAL;100    A:VAR;I\NEW_COMM_VAL;I\NEW_COMM_VAL;;#0.00  DOEND(CHK1)    

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    LOAD THE CURRENT USER'S NAME  'A:USERNAME;;I\USER  A:USERID;;I\USER    LOAD THE CURRENT USER'S IP ADDRESS  A:USERIP;;I\USER_IP    A:CONST;;I\ST_RSN_CODE  O:ENABLEINPUT;I\ST_RSN_CODE  'F:REASON_MAST;;;T\REASON=RSN_DESC;RSN_TYPE='DE' AND RS

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    O:DISABLEINPUT;I\SALE_CASHP,I\NOCOPIES  A:CONST;0;I\NEW_QTY    'LOAD AGENT CODE  A:ORGS;;I\AGENT  A:ORGS;;I\ORGS2    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\RFID=CM_USE_RFID,T\MARKET=CM_NAME,I\PROHIBIT_SALES=CM_PROHIBIT_SALES,W\ZEROFILL=CM_DEL_LEN;CM_CODE='$I\MARKET$

$DEFAULT  A:CONST;SA;I\SCREEN  A:CONST;N;I\RESERVATION

$DEFAULT  A:CONST;N;I\ST_DELIND    

$DEFAULT  A:PARM;1;I\MODE  A:CONST;D;I\MODE    I:I\MODE;=;D  DO(MD)    'A:CONST;     SALES PRICE CORRECTION;T\HEADING    O:HIDE;I\NEW_CON,T\NEW_CON,I\NEW_PRODUCT,T\NEW_PRODUCT,I\NEW_GRADE,T\NEW_GRADE,I\NEW_CONT,T\NEW_CONT    O:HIDEUPDATE  DOEND(MD)       

$VALIDATE  A:CONST;$I\VALUE$;I\OLD_VALUE  A:VAR;I\OLD_VALUE;I\OLD_VALUE;;#0.00  ''A:VAR;I\VALUE;I\ORIGVAL;;#0.00    'I:I\MARKET;=;60  'DO(00)    F:STK_DETS;;;I\TMP=SD_ITEM;SD_CONSIGN='$I\ST_CONSIGN$';    A:LEFT;I\TMP,2;I\TMP    ' GET VATCD    F:PRODUCT_MAST;;;I\TMP1=PR_VATCD;PR_PRODUCT='$I\TMP$';    ' GET VAT RATE    F

'$VALIDATE  'CHECK IF DEBTOR EXISTS  'I:I\ST_DEBTOR;<>;  'F:DEBTOR_MAST;Y;;;DM_DEBTOR='$I\ST_DEBTOR$';I\ST_DEBTOR    $BEFORE_DELETE      ''CHECK IF BUYER IS A CASH BUYER  'I:W\DM_ACCTYPE;=;CA  '  DO(CS)  '     'MAKE SURE THE SCREEN IS RUN BY CASHIER  '     I:W\CASHIER;=;  '     'D:ONLY CASHIERS ARE ALLOWED TO DELETE SA

$VALIDATE  A:CONST;$I\VALUE$;I\OLD_VALUE  A:VAR;I\OLD_VALUE;I\OLD_VALUE;;#0.00  ''A:VAR;I\VALUE;I\ORIGVAL;;#0.00    'I:I\MARKET;=;60  'DO(00)    F:STK_DETS;;;I\TMP=SD_ITEM;SD_CONSIGN='$I\ST_CONSIGN$';    A:LEFT;I\TMP,2;I\TMP    ' GET VATCD    F:PRODUCT_MAST;;;I\TMP1=PR_VATCD;PR_PRODUCT='$I\TMP$';    ' GET VAT RATE    F

$VALIDATE  C:UCASE        O:ENABLEINPUT;C\UPD  O:SETFOCUS;C\UPD  O:BACKCOLOR;C\UPD;YELLOW

$CALCULATE        I:I\NEW_COMM_VAL;>;0      DO(CHK1)      I:I\NEW_COMMP;<=;0        DO(CHK2)  '     O:DISABLEINPUT;I\NEW_COMM_VAL        A:MULT;I\NEW_SPRICE;I\SUP_VALUE;I\ST_TRQTY        A:DIV;I\NEW_COMM_VAL;I\NEW_COMMP;I\SUP_VALUE  '      A:MULT;I\NEW_COMMP;I\NEW_COMMP;"100"        A:VAR;I\NEW_COMMP;I\NEW_COMMP;;#0.00

$VALIDATE    A:ADD;I\VALUE,I\DISCVAL;I\NEWVALUE;;#0.00  A:SUB;I\NEWVALUE;I\NEWVALUE;I\NEWDISCVAL  'A:DIV;I\NEWVALUE;I\NEWPRICE;I\ST_TRQTY  A:DIV;I\VALUE;I\NEWPRICE;I\ST_TRQTY  'A:MULT;I\NEWPRICE;I\NEWVALUE;I\ST_TRQTY  

$CALCULATE  M:  C:UCASE    F:CASH_POINT;Y;;;CPO_CASHPT='$I\SALE_CASHP$';I\SALE_CASHP    O:SETFOCUS;I\NOCOPIES

''$AFTER_READ  - I\GRADE  ''' GET THE SIZE AND CLASS AND THEN CONCATINATE THEM INTO THE I\GRADE FIELD  ''I:I\ST_DOCNO;<>;  ''F:STK_DETS;;;I\CLASS=SD_CLASS;SD_MARKET='$I\MARKET$' AND SD_AGENT='$I\ST_AGENT$' AND SD_CONSIGN='$I\ST_CONSIGN$'    ''I:I\ST_DOCNO;<>;  ''F:STK_DETS;;;I\SIZE=SD_SIZE;SD_MARKET='$I\MARKET$' AND SD

''$VALIDATE  '''CHECK IF PRODUCT CODE EXISTS  ''I:I\SD_ITEM;<>;  ''  DO(ITM)  ''   A:LEFT;I\SD_ITEM,2;I\TEMP4  ''   F:PRODUCT_MAST;;;I\TEMP42=PR_PRODUCT;PR_PRODUCT='$I\TEMP4$';I\SD_ITEM    ''   A:RIGHT;I\SD_ITEM,2;I\TEMP7  ''   F:VAR_MAST;;;I\TEMP43=VA_VARIETY;VA_VARIETY='$I\TEMP7$';I\SD_ITEM    ''   'CHECK IF PRODUCT 

$SELECT  S:CASHIER;I\ST_CASHIER    $CALCULATE  M:  C:UCASE    I:I\MARKET;<>;32  A:CONST;;I\SALE_CASHP    F:CASH_MAST;Y;;;CSH_CASHIER='$I\ST_CASHIER$';I\ST_CASHIER  O:SETFOCUS;I\ST_RSN_CODE    'GETS CASH POINT             3  F:CASH_POINT;;;W\CPO_CASHPT=CPO_CASHPT;CPO_IP='$W\USER_IP$' AND CPO_MARKET='$I\MARKET$';    A:VA

''$AFTER_READ - I\SD_CONT  '''LOAD THE CONTAINER  ''I:I\ST_DOCNO;<>;  ''F:STK_DETS;;;I\SD_CONT=SD_CONT,W\CONTMASS=SD_CONTMASS;SD_MARKET='$I\MARKET$' AND SD_AGENT='$I\ST_AGENT$' AND SD_CONSIGN='$I\ST_CONSIGN$'    '''A:CON;I\SD_CONT," ";I\SD_CONT;W\CONTMASS  ''I:I\ST_DOCNO;<>;  ''A:CON;I\SD_CONT," ",W\CONTMASS;I\SD_CONT;

''$CALCULATE  ''I:I\ST_TRDTE;<>;  ''A:VAR;I\ST_TRDTE;I\DATE_TEMP;;YYYY/MM/DD    '''DISPLAY A SELECTION WINDOW    ''I:I\ST_DEBTOR;<>;  ''  DO(NUL)  ''    I:I\SD_ITEM;<>;  ''      DO(D)  ''       I:I\DATE_TEMP;<>;  ''       S:DOC_NO_2;I\ST_DOCNO;I\ST_DEBTOR;I\SD_ITEM;I\DATE_TEMP               DOEND(D)  ''  DOEND(NUL)    

$AFTER_READ    'READ THE COMMISION VAT FROM THE STK_TRANS  I:I\ST_DOCNO;<>;  F:STK_TRANS;;;W\COMMVAL_VAT=ST_COMMVAL_VAT;ST_MARKET='$I\MARKET$' AND ST_AGENT='$I\ST_AGENT$' AND ST_CONSIGN='$I\ST_CONSIGN$' AND ST_DOCNO='$I\ST_DOCNO$' AND ST_TRTYPE = 'SA'      'CALCULATE SD_TOTCOM  SD_COMMP_VAT  F:STK_DETS;;;W\SD_TOTCOM=SD

$AFTER_READ  'READ THE COMMISION VAT FROM THE STK_TRANS  I:I\ST_DOCNO;<>;  F:STK_TRANS;;;W\CLUBVAT=ST_CLUBVAT;ST_MARKET='$I\MARKET$' AND ST_AGENT='$I\ST_AGENT$' AND ST_CONSIGN='$I\ST_CONSIGN$' AND ST_DOCNO='$I\ST_DOCNO$' AND ST_TRTYPE = 'SA'     'I:I\ST_DOCNO;<>;  'A:ADD;W\CLUBVAT,I\ST_CLUBFEE;I\ST_CLUBFEE;;#0.00      

$AFTER_READ  'READ THE COMMISION VAT FROM THE STK_TRANS  I:I\ST_DOCNO;<>;  F:STK_TRANS;;;W\DUES_VAT=ST_DUES_VAT;ST_MARKET='$I\MARKET$' AND ST_AGENT='$I\ST_AGENT$' AND ST_CONSIGN='$I\ST_CONSIGN$' AND ST_DOCNO='$I\ST_DOCNO$' AND ST_TRTYPE = 'SA'    'CALCULATE SD_DUES  SD_DUESV  F:STK_DETS;;;W\TOTDUES=SD_TOTDUES,W\TOTDUES

''$AFTER_READ  '''CALCULATE THE VALUE FOR THE I\VALUE FIELD  ''I:I\ST_DOCNO;<>;  ''A:MULT;I\ST_TRQTY;I\VALUE;I\ST_TRPRICE;;0.00    ''I:I\ST_DOCNO;<>;  ''A:ADD;I\VALUE,I\ST_TRVAT;I\VALUE;;#0.00    '''CALCULATE SD_TOTSLS AND TOTVAT  ''F:STK_DETS;;;W\TOTSLS=SD_TOTSLS,W\TOTVAT=SD_TOTVAT;SD_MARKET='$I\MARKET$' AND SD_AGENT=

$VALIDATE  'CHECK IF ITS NOT LESS THAN ZERO    I:I\MODE;=;T    DO(MODET)     I:I\ST_TRQTY;<>;      DO(QT)       I:I\ST_TRQTY;<;0       D:ERROR - QTY CAN NOT BE LESS THAN ZERO;ERRORM;I\ST_TRQTY      DOEND(QT)       'DISPLAY ERROR MESSAGE IF THE QTY IS MORE THAT IN THE DOCKET     I:I\ST_TRQTY;>;W\QTY     D:ERROR - QUANTI

$BEFORE_DELETE  'STOP THE DELETE FUNCTIONALITY FOR LEGEND  A:STOPDELETE;TRUE    'CHECK FOR EMPTY FIELDS  I:I\ST_DOCNO;=;  D:DOCUMENT NUMBER IS EMPTY - CAN NOT DELETE RECORD;ERRORM;I\ST_DOCNO    I:I\ST_DEBTOR;=;  D:DEBTOR IS EMPTY - CAN NOT DELETE RECORD;ERRORM;I\ST_DEBTOR    I:I\ST_CONSIGN;=;  D:CONSIGNMENT IS EMPTY - 

$VALIDATE  'CLEAR FIELDS  A:CONST;;I\NEW_PRODUCT,I\NEW_GRADE,I\NEW_CONT  M:    'ZEROFILL  A:ZEROFILL;I\NEW_CON,W\ZEROFILL;I\NEW_CON      I:I\NEW_CON;<>;    DO(NEW)         'CHECK IF CONSIGNMENT EXISTS  '''''   F:STK_DETS;Y;;I\ORGS=SD_AGENT,I\AVAIL=SD_RECQTY-SD_SLDQTY-SD_DISQTY-SD_RETQTY-SD_ADJQTY,W\CON=SD_CONSIGN,I\NEW

$SELECT  'DISPLAY A SELECTION WINDOW  S:REASON;I\ST_RSN_CODE    $VALIDATE  M:  C:UCASE    'V:WP;WQ    I:I\ST_RSN_CODE;=;  A:CONST;;T\REASON    I:I\ST_RSN_CODE;<>;  F:REASON_MAST;Y;;T\REASON=RSN_DESC;RSN_TYPE='DE' AND RSN_REASON='$I\ST_RSN_CODE$';I\ST_RSN_CODE    A:LEFT;T\REASON,15;T\REASON  C:MCASE;;T\REASON    I:I\ST_

$CALCULATE  O:ENABLEINPUT;C\UPD  O:SETFOCUS;C\UPD  O:BACKCOLOR;C\UPD;YELLOW  

$DELETE  O:SETFOCUS;I\ST_DOCNO