SALES_DEL_AFTER_PAID

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD AGENT CODE  A:ORGS;;I\AGENT    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PROHIBIT_SALES=CM_PROHIBIT_SALES,W\ZEROFILL=CM_DEL_LEN;CM_CODE='$I\MARKET$'    I:I\PROHIBIT_SALES;=;Y  DO(QLA)    O:DISABLEINPUT;I\ST_DOCNO    D:SALES ARE PROHIBITED, TRANSA

$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    'INITIALIZE GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\PT_PALL,I\PT_TRQTY,I\PT_TRVAL,I\PT_TRVAT,I\PT_VAL  'U:ZZ

'$SELECT  'DISPLAY A SELECTION WINDOW  'S:AGENT_CODE;I\ST_AGENT      '$VALIDATE  'ENSURE THAT THE USER DOES NOT LEAVE THE FIELD BLANK  'M:  'CONVERT THE VALUES ENTERED TO UPPERCASE  'C:UCASE      'CHECK THAT THE CODE EXISTS  'F:AGENT_MAST;;;I\TEMP=AM_BLOCK;AM_CODE='$I\ST_AGENT$'  'I:I\TEMP;=;Y  'D:ERROR - AGENT NO. '$I

$SELECT  A:CONST;SA;I\TRTYPE    '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

'$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 SALES FO

$SELECT  A:CONST;SA;I\TRTYPE    '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    $VALIDATE    'RE-VALIDATE IF USER IS A CASHIER  I:I\ST_CASHIER;<>;  DO(919)    I:I\ST_CASHIER;<>;C

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

$DEFAULT  A:PARM;1;I\MODE    '!!!!!!!!!!!!!!!!!!!!!!  'JD ADDITION 2010/02/19  '!!!!!!!!!!!!!!!!!!!!!!    I:I\MODE;<>;Z  DO(SKQ)    A:CONST;;I\TEMPCASH    O:DISABLEINPUT;I\ST_CASHIER    O:HIDE;C\CASH  DOEND(SKQ)    I:I\MODE;=;Z  DO(MZD)    A:CONST;D;I\MODE    A:CONST;Y;I\TEMPCASH    O:ENABLEINPUT;I\ST_CASHIER    O:SHOW

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

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

$DEFAULT  A:CONST;SA;I\SCREEN

$DEFAULT  A:CONST;N;I\ST_DELIND    

$SELECT  O:DISABLEINPUT;C\UPD  I:K\8;<>;1  DO(ALA)    O:SETFOCUS;K\8    D:PLEASE CONFIRM THIS DELETION IS CORRECT BY TICKING THE BOX;ERRORM;K\8  DOEND(ALA)    I:K\8;=;1  DO(ALL)    'STOP THE DELETE FUNCTIONALITY FOR LEGEND  A:STOPDELETE;TRUE    'CHECK FOR EMPTY FIELDS  I:I\ST_DOCNO;=;  D:DOCUMENT NUMBER IS EMPTY - CAN 

$SELECT  S:CASHIER;I\ST_CASHIER

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

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

$SELECT  S:CASHIER;I\ST_CASHIER    $CALCULATE  M:  C:UCASE    F:CASH_MAST;Y;;;CSH_CASHIER='$I\ST_CASHIER$';I\ST_CASHIER  O:SETFOCUS;I\ST_RSN_CODE    $DEFAULT  A:USERID;;W\USERID    I:I\AGENT;<>;  A:CONST;CR;I\ST_CASHIER    I:I\AGENT;=;    DO(1)      'VALIDATE THE USERID      F:CASH_MAST;;;W\CASHIER=CSH_CASHIER,W\BLOCKE

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

$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

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

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

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

$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

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

$SELECT  'DISPLAY A SELECTION WINDOW  S:REASON;I\ST_RSN_CODE    $VALIDATE  M:  C:UCASE    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    O:ENABLEINPUT;C\U

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

'$AFT_MSG_DELETE  'I:I\MODE;=;D   'DO(LL1)     'I:K\45;=;1     'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_CREDIT_NOTE;$I\MARKET$,$I\ST_AGENT$,$I\ST_CONSIGN$,$I\ST_DOCNO$,$W\PRINT_PALL$,   'DOEND(LL1)    'I:I\MODE;=;T  'DO(LL3)   ' I:K\45;=;1    'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_CR

$DELETE  O:SETFOCUS;I\ST_DOCNO