PROV_SALES_DEL

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'HIDE UPDATE  O:HIDEUPDATE      'PUT 'PS' INTO THE TRANS TYPE WORK FIELD  A:CONST;PS;I\TRTYPE    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$'      'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    'SET THE DELE

$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    LOAD THE CURRENT USER'S IP ADDRESS  A:USERIP;;I\USER_IP      U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\PT_PALL,I\PT_TRVAL,I\PT_TRVAT,I\PT_VAL,I\PT_TRQTY  'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\PT_PA

$SELECT  A:CONST;PS;I\TRTYPE    'DISPLAY A SELECTION WINDOW  S:PROV_DOC_NO;I\ST_DOCNO;I\TRTYPE

  'CHECK IF DEBTOR EXISTS  ''I:I\ST_DEBTOR;<>;  ''F:DEBTOR_MAST;Y;;;DM_DEBTOR='$I\ST_DEBTOR$';I\ST_DEBTOR  

$SELECT  A:CONST;PS;I\TRTYPE    'DISPLAY A SELECTION WINDOW  S:PROV_DOC_NO;I\ST_DOCNO;I\TRTYPE        '$VALIDATE  16 MAY 2008  $CALCULATE  M:  C:UCASE  I:I\ST_DOCNO;<>;    DO(STT)      'CHECK IF DOCNO IS VALID FOR THIS AGENT    ''   F:STK_TRANS;Y;ST_DOCNO;T\AGENT=ST_AGENT,W\TRTYPE=ST_TRTYPE,W\PSSTAT=ST_PSSTAT;;I\ST_DOC

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

$AFTER_READ  'READ THE LEVY AND LEVY VAT FROM THE LEVT_TRANS  F:LEVY_TRANS;;;W\LEVYVAT=LVT_LEVYVAT;LVT_MARKET='$I\MARKET$' AND LVT_AGENT='$T\AGENT$' AND LVT_CONSIGN='$I\ST_CONSIGN$' AND LVT_DOCNO='$I\ST_DOCNO$'  F:LEVY_TRANS;;;I\LEVY=LVT_LEVYAMT;LVT_MARKET='$I\MARKET$' AND LVT_AGENT='$T\AGENT$' AND LVT_CONSIGN='$I\ST_C

$DEFAULT  A:CONST;PS;I\SCREEN

$AFTER_READ  'LOAD THE CONTAINER  F:STK_DETS;;;I\SD_CONT=SD_CONT,W\CONTMASS=SD_CONTMASS;SD_MARKET='$I\MARKET$' AND SD_AGENT='$T\AGENT$' AND SD_CONSIGN='$I\ST_CONSIGN$'  A:CON;I\SD_CONT," ";I\SD_CONT;W\CONTMASS        

$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  A:MULT;I\ST_TRQTY;I\VALUE;I\ST_TRPRICE;;0.00  A:ADD;I\VALUE,I\ST_TRVAT;I\VALUE;;#0.00

$AFTER_READ  READ THE COMMISION VAT FROM THE STK_TRANS  F:STK_TRANS;;;W\COMMVAL_VAT=ST_COMMVAL_VAT;ST_MARKET='$I\MARKET$' AND ST_AGENT='$T\AGENT$' AND ST_CONSIGN='$I\ST_CONSIGN$' AND ST_DOCNO='$I\ST_DOCNO$'  A:ADD;W\COMMVAL_VAT,I\ST_COMMVAL;I\ST_COMMVAL;;#0.00

$AFTER_READ  READ THE COMMISION VAT FROM THE STK_TRANS  F:STK_TRANS;;;W\DUES_VAT=ST_DUES_VAT;ST_MARKET='$I\MARKET$' AND ST_AGENT='$T\AGENT$' AND ST_CONSIGN='$I\ST_CONSIGN$' AND ST_DOCNO='$I\ST_DOCNO$'  A:ADD;W\DUES_VAT,I\ST_DUES;I\ST_DUES;;#0.00

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

$AFTER_READ  'CALCULATE AND DISPLAY THE I\TOTAL FIELD  F:STK_DETS;;;;SD_MARKET='$I\MARKET$' AND SD_AGENT='$T\AGENT$' AND SD_CONSIGN='$I\ST_CONSIGN$'  A:ADD;I\VALUE,I\ST_COMMVAL,I\ST_DUES,I\LEVY,I\ST_CLUBFEE;I\TOTAL;;#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)        I:I\ST_DEBTOR;=;  

$SELECT  'DISPLAY A SELECTION WINDOW  S:REASON;I\ST_RSN_CODE    $VALIDATE  C:UCASE  M:  I:I\ST_RSN_CODE;<>;    DO(RSN)     'ZERO FILL     A:LEN;I\ST_RSN_CODE;W\ST_RSN_CODE     I:W\ST_RSN_CODE;=;1     A:CON;"0";I\ST_RSN_CODE;I\ST_RSN_CODE          'CHECK IF CODE EXISTS     F:REASON_MAST;Y;;T\REASON=RSN_DESC;RSN_REASON='