DISCARDS_MAN

$SELECT  'DISPLAY SELECTION WINDOW FOR DELIVERIES  I:I\ORGS;=;  S:DELIVERY_CONSIGN_2;I\SM_DELNO    I:I\ORGS;<>;  S:DELIVERY_CONSIGN_3;I\SM_DELNO;I\ORGS    '''''''''''''''''''''''''''$VALIDATE  $CALCULATE    A:VALCOLUMN;8  A:CONST;;W\TMP3,W\TMP4,W\TMP5,I\CODE,I\DIS_QTY,I\CERTNO,I\CFM,I\DEDUCT_CODE  A:CONST;;I\SD_CONSIGN

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\ALLOW_CHANGE=CM_CHANGE_CONF_DISCQTY,T\MARKET=CM_NAME,W\ZEROFILL=CM_DEL_LEN,I\PROHIBIT_SALES=CM_PROHIBIT_SALES,W\DISCARD_CONF=CM_DISCARD_CONF    I:I\PROHIBIT_SALES;=;Y  DO(MES)    O:DISABLEINPUT;I\SM_DELNO    D:SALES ARE PROHIBI

''''  

''''I\SM_DELNO,I\SM_DTIME,I\SM_DDATE,W\SM_DDATE,I\SM_SUPP,T\SUPP,I\SM_REFNO,I\SM_AGENT,T\AGENT,I\SM_AREA,I\SM_SMAN,T\SALESMAN,I\SM_TRNPTR,T\TRANSP,I\SM_VREGNO,,,,,,,

$CALCULATE    'MANDATORY  M:    'CONVERT TO UPERCASE  C:UCASE

'$CALCULATE  'I:I\SD_QTY;<;0  'D:AVAILABLE QUANTITY CANNOT BE LESS THAN ZERO;ERRORM;I\SD_QTY

$CALCULATE  'I:I\SD_DISQTY;>;I\SD_QTY  'D:DISCARDED QUANTITY MUST BE LESS OR EQUAL TO AVAILABLE QUANTITY;ERRORM;I\SD_DISQTY    'MANDATORY  M:    I:I\SD_DISQTY;=;0;NUM  D:DISCARD QUANTITY CANNOT BE ZERO;ERRORM;I\SD_DISQTY    'CHECKS IF AN ADJUSTMENT HAS BEEN MADE, AND FINAL PAYMENT DATE. DISALLOW CHANGES IF FINAL PAYMEN

$DEFAULT  'LOAD THE COMBOBOX WITH DATABASE VALUES  B:READTABLE;D\RSN_CODE;REASON_MAST;RSN_REASON;SELECT RSN_REASON FROM REASON_MAST WHERE RSN_TYPE='DS' AND RSN_BLOCKED <> 'Y'      $CALCULATE  'VALIDATE FOR CORRECT AND EXISTING REASON CODE    'MANDATORY  M:  'UPPERCASE  C:UCASE      I:D\RSN_CODE;<>;  F:REASON_MAST;Y;RSN

$CALCULATE  'CONVERT TO UPERCASE  C:UCASE    I:I\MODE;=;C  M:    'DISPLAY ERROR MESSAGE IF ANY OTHER VALUES OTHER THAN BLANK OR 'D' ARE ENTERED  V:Y;N;    'DEFAULT TO 'N'  I:I\SD_CFM;=;  A:CONST;N;I\SD_CFM    I:I\MODE;=;C  O:SETFOCUS;I\SD_ACTION    'ALIGN COLUMNS  U:DISCARDS_UPDATE;ALIGN_COLUMNS;G\DISCARD

$SELECT  'DISPLAY A SELECTION WINDOW  S:CHARGE_CODE;I\DT_DEDUCT_CODE      $CALCULATE  'VALIDATE FOR EXISTING DEDUCTION CODE    I:I\DT_DEDUCT_CODE;=;  A:CONST;;I\DT_AMOUNT       I:I\DT_DEDUCT_CODE;<>;  A:CONST;;I\DT_AMOUNT        I:I\DT_DEDUCT_CODE;<>;  F:DEDUCT_MAST;Y;DM_CODE;I\DT_AMOUNT=DM_RATE;;I\DT_DEDUCT_CODE      

$CALCULATE  'CONVERT TO UPERCASE  C:UCASE    'DISPLAY ERROR MESSAGE IF ANY OTHER VALUES OTHER THAN BLANK OR 'D' ARE ENTERED  I:D\RSN_CODE;=;  D:ENTER THE REASON CODE;ERRORM;D\RSN_CODE    V:D;  I:W\LINE_TEMP;=;Y    DO(YY)      U:DISCARDS_UPDATE;INSERT_GRID_ROW;G\DISCARD,I\LINE,I\SD_CONSIGN      'A:SUB;I\SD_QTY;I\SD_QTY;

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'INITIALIZE GRID  U:ZZGRID_SPLIT;INIT_GRID;G\DISCARD;I\LINE,I\SD_CONSIGN,I\ST_DOCNO:H,I\SD_COMM,I\SD_RECQTY,I\FLAG:H,I\SD_QTY,D\RSN_CODE,I\ST_REASON,I\SD_DISQTY,I\SD_CERTNO,I\SD_CFM,I\SD_CLASS:H,I\SD_SIZE:H,I\SD_CONT:H,I\SD_CONTMASS:H,I\S

$SELECT  'DISPLAY SELECTION WINDOW FOR DELIVERIES  'S:DELIVERY_CONSIGN;I\SM_DELNO  S:DELIVERY_CONSIGN_2;I\SM_DELNO  

$SELECT  'DISPLAY A SELECTION WINDOW  S:CHARGE_CODE;I\DT_DEDUCT_CODE    

$DEFAULT  A:PARM;1;I\MODE    I:I\MODE;=;C  DO(MODEC)    O:ENABLEINPUT;I\SD_CFM    A:CONST;DISCARDS CONFIRMATION;T\HEAD  DOEND(MODEC)    I:I\MODE;=;D  DO(MODED)    O:DISABLEINPUT;I\SD_CFM    A:CONST;DISCARDS MAINTENANCE;T\HEAD  DOEND(MODED)

$SELECT  'DISPLAY A SELECTION WINDOW FOR GRID VALUES  S:G:G\DISCARD:R1      $CALCULATE  O:DISABLEINPUT;I\SD_CONSIGN    I:I\LINE;=;+  D:INVALID ENTRY;ERRORM;I\LINE      A:VAR;I\LINE;W\LINE2    I:I\LINE;=;   DO(NULL)     A:CONST;;I\CODE,I\DIS_QTY,I\CERTNO,I\CFM,I\DEDUCT_CODE     A:CONST;;I\SD_CONSIGN,I\ST_DOCNO:H,I\SD_CO

$SELECT  A:CONST;;I\SM_DELNO,I\SM_DTIME,I\SM_DDATE,W\SM_DDATE,I\SM_SUPP,T\SUPP,I\SM_REFNO,I\SM_AGENT,T\AGENT,I\SM_AREA,I\SM_SMAN,T\SALESMAN,I\SM_TRNPTR,T\TRANSP,I\SM_VREGNO,I\SM_WAYBILLNO,I\NLINES,I\TDISCARD,I\THANDFEE,I\AVERAGE,I\AGN_DEBTOR,I\FINAL  U:CLEAR_GRID;CLEAR  O:SETFOCUS;I\SM_DELNO  

$DEFAULT  A:ORGS;;I\ORGS