SALE_DEL_MAN_INT

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

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

$SELECT  O:DISABLEINPUT;C\UPD    I:I\MARKET;=;11  A:CONST;1;K\8    I:I\MARKET;=;60  A:CONST;1;I\NOCOPIES      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)    'NEW_NEW_NEW LOCKS  U:PALLETS_UPD;CHECK_LOCKS  I:I\ACTIVE;=;

$SELECT  S:CASHIER;I\ST_CASHIER

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    O:DISABLEINPUT;I\SALE_CASHP    '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,I\BO=CM_NEW_BACKOFFICE;CM_CODE='$I\MARKET$'    I:I\

$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

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

'LP20121122

$CALCULATE  M:    I:I\NOCOPIES;>;10;VAL  D:MAXIMUM ALLOWED IS 10;ERRORM;I\NOCOPIES

$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_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(NOT60)  DOEND(V4V)    I:I\MARKET

$DEFAULT  A:PARM;1;I\MODE    '!!!!!!!!!!!!!!!!!!!!!!  'JD ADDITION 2010/02/19  '!!!!!!!!!!!!!!!!!!!!!!  I:I\MARKET;=;15  DO(LAA)    I:I\MODE;=;T    DO(FTF)      I:I\ORGS2;<>;      DO(ZIZ)        A:CONST;0;I\NOCOPIES        O:DISABLEINPUT;I\NOCOPIES      DOEND(ZIZ)    DOEND(FTF)  DOEND(LAA)    I:I\MODE;<>;Z  DO(SKQ)    

$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    

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

$CALCULATE  M:  C:UCASE    F:CASH_POINT;Y;;;CPO_CASHPT='$I\SALE_CASHP$';I\SALE_CASHP  I:I\MARKET;=;15  DO(15)    U:CASHP_CHECK;CHECK  ''F:CASHPOINT_CASHIER;;;W\MOMZ_CPT=CC_CASHPOINT;CC_CASHPOINT='$I\SALE_CASHP$' AND CC_CASHIER = '$I\ST_CASHIER$';I\SALE_CASHP    I:W\MOMZ_CPT;=;STOP    D:CASHIER $I\ST_CASHIER$ IS WORKING

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

$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