CLEAR_RESERVED_STK

$DEFAULT  A:CONST;N;I\ST_DELIND    

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

$DEFAULT  A:CONST;SA;I\SCREEN

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD AGENT CODE  A:ORGS;;I\AGENT    'LOAD MARKET  NAME  'F:CLIENT_MAST;;CM_CODE;I\CHK_CREDIT=CM_RESV_CRLCHK,T\MARKET=CM_NAME,W\ZEROFILL=CM_DEL_LEN;CM_CODE='$I\MARKET$'  F:CLIENT_MAST;;CM_CODE;I\CHK_CREDIT=CM_RESV_DEBTOR_UPD,T\MARKET=CM_NAME,W\ZEROFILL=CM_DEL_LEN;CM_CODE=

$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    '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:ZZGRID_SPLIT;INIT_GRI

'RETRIVING AGENT NAME  $DEFAULT  'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE      A:ORGS;I\AGENT  F:AGENT_MAST;;;T\AGENT=AM_NAME,I\UNPAID_PARM=AM_CLR_UNPD_SALES;AM_CODE='$I\AGENT$'    I:I\AGENT;<>;    DO(AGENT)     O:HIDE;C\UPDATE     O:SHOW;I\AGENT,T\AGENT,I\ST_DOC

$SELECT  A:CONST;SA;I\TRTYPE    'DISPLAY A SELECTION WINDOW  I:I\AGENT;=;  S:DOC_NO3;I\ST_DOCNO;I\MARKET;I\TRTYPE  'IF SECTION AND BUYER FIELDS ARE EMPTY  I:I\AGENT;<>;   DO(01)    I:I\SECTION;=;     DO(02)      I:I\ST_DEBTOR;=;      S:DOC_NO_AGENT_SALE2;I\ST_DOCNO;I\MARKET;I\TRTYPE;I\AGENT     DOEND(02)   DOEND(01)   

$SELECT  S:BUYER_NUMBER;I\ST_DEBTOR      $VALIDATE  A:CONST;;T\PROC  A:CONST;;I\ST_CONSIGN,I\SD_ITEM,I\PT_PALL,I\PT_TRQTY,I\PT_TRVAL,I\PT_TRVAT,I\PT_VAL,I\SD_CONT,I\GRADE,I\ST_DOCNO,I\ST_TRDTE  A:CONST;;I\ST_TRQTY,I\ST_TRPRICE,I\ST_TRVAT,I\VALUE,I\ST_COMMVAL,I\LEVY,I\ST_CLUBFEE,W\TOTSLS        'INITIALIZE GRID  U:ZZGRI

$SELECT  S:BUYER_NUMBER;I\ST_DEBTOR

$SELECT  S:SECTION1;I\SECTION    $VALIDATE  A:CONST;;T\PROC  A:CONST;;T\SECTION2  A:CONST;;I\ST_CONSIGN,I\SD_ITEM,I\PT_PALL,I\PT_TRQTY,I\PT_TRVAL,I\PT_TRVAT,I\PT_VAL,I\SD_CONT,I\GRADE,I\ST_DOCNO,I\ST_TRDTE  A:CONST;;I\ST_TRQTY,I\ST_TRPRICE,I\ST_TRVAT,I\VALUE,I\ST_COMMVAL,I\LEVY,I\ST_CLUBFEE,W\TOTSLS        'INITIALIZE 

$SELECT  S:SECTION1;I\SECTION

$SELECT  A:CONST;SA;I\TRTYPE    'DISPLAY A SELECTION WINDOW  I:I\AGENT;=;  S:DOC_NO3;I\ST_DOCNO;I\MARKET;I\TRTYPE  'IF SECTION AND BUYER FIELDS ARE EMPTY  I:I\AGENT;<>;   DO(01)    I:I\SECTION;=;     DO(02)      I:I\ST_DEBTOR;=;      S:DOC_NO_AGENT_SALE2;I\ST_DOCNO;I\MARKET;I\TRTYPE;I\AGENT     DOEND(02)   DOEND(01)   

$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\BLOCKED=CSH_BLOCK;CSH_CASHIER='$W\USERID$' AND CSH_MARKET='$I\MARKET$'        'IF THIS USERID IS NOT FOR A CASHIER THEN JUST PUT 'CR' INTO I\ST_CASHIER    

$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW  $SELECT    I:I\ST_DOCNO;<>;  U:CLEAR_UNPAID_SALES;MSG2    'I:I\UNPAID_PARM;<>;0  I:I\CLEAR_SALES;=;Y    DO(CLEAR)     I:I\ST_DOCNO;<>;       DO(DOCNO)        F:STK_DETS;;;W\ACTIVE=SD_ACTIVE;SD_MARKET='$I\MARKET$' AND SD_AGENT='$I\AGENT$' AND SD_DATE='$I\DELDATE$' AND SD_CONSIGN

T\ST_TRDTE,I\ST_TRDTE,T\ST_DEBTOR,I\ST_DEBTOR,T\BUYER,T\ST_CONSIGN,I\ST_CONSIGN,T\SD_ITEM,I\SD_ITEM,T\GRADE,I\GRADE,T\SD_CONT,I\SD_CONT,T\QTY,I\ST_TRQTY,T\PRICE,I\ST_TRPRICE,T\VAT,I\ST_TRVAT

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

$SELECT  'DISPLAY A SELECTION WINDOW  S:REASON;I\ST_RSN_CODE    $VALIDATE  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_REASON='$I\ST_RSN_CODE$';I\ST_RSN_CODE    A:LEFT;T\REASON,15;T\REASON  C:MCASE;;T\REASON      '$AFTER_READ  'F:REASON_MAST;;;T\REAS

$SCMD_FOCUS  O:BACKCOLOR;Z\ZX_EXIT;YELLOW