DELIVERY_CONF_MAN

$DEFAULT  A:PATH;GBLPDIR;I\PATH

$DEFAULT    'GET PASSED PARMATER - OPERATION MODE  A:PARM;1;I\MODE  A:FIELD;I\MODE,:,1;I\MODE  O:HIDE;I\ST_RSN_CODE,I\ST_REASON,T\ST_REASON,C\REASON,I\SD_COMMENT,T\SD_COMMENT  I:I\MODE;<>;W  O:HIDE;I\SM_GCN,T\SM_GCN,K\CONFIRM,T\CONFIRM1,T\CONFIRM2  O:DISABLEINPUT;I\SD_ITEM,I\SD_CLASS,I\SD_SIZE,I\SD_CONT,I\SD_CONTMASS,I

I:I\SM_DELTYPE;<>;D    DO(NODUAL)      O:DISABLEINPUT;I\SM_DELTYPE      O:HIDE;C\SM_DELTYPE    DOEND(NODUAL)      I:I\SM_DELTYPE;=;D    DO(DUAL)        O:ENABLEINPUT;I\SM_DELTYPE        O:SHOW;C\SM_DELTYPE        A:CONST;;I\SM_DELTYPE    DOEND(DUAL)  

$DEFAULT  A:CONST;NO;I\CANSAVE  

$DEFAULT

'WORK FIELD ADDED BY LAZ 20100628

$DEFAULT  'GET USERS MARKET CODE - ZU_MARKET IN ZU_USER  A:ORGS;;I\ORGS  A:ORG  'GET MARKET NAME FROM CLIENT MASTER  F:CLIENT_MAST;;;T\MARKET=CM_NAME,I\CM_TWODEL=CM_TWODEL;CM_CODE='$I\SM_MARKET$'  'CONVERT TO FIRST CHARACTER UPPER CASE REST LOWER CASE  C:MCASE;;T\MARKET    'DEFAULT STARTING DATE AND TIME  A:DATE;DD MMM

$DEFAULT  'GET THIS USERS AGENT CODE  A:ORGS    'GET AGENTS NAME FROM AGENT_MAST AND DISABLE AGENT CODE INPUT  I:I\SM_AGENT;<>;  DO(001)    F:AGENT_MAST;;;T\AGENT_DESC=AM_NAME,I\AM_DELAUTO=AM_DELAUTO,W\SUPPLREFNO=AM_SUPPL_REFNO,I\A4_DEL=AM_A4,I\AM_OWN_PALL_POOL=AM_OWN_PALL_POOL,I\AM_PALLMEM_EDIT=AM_PALLMEM_EDIT,I\AM_BL

'$AFTER_READ  ''DEFAULT CURRENT DATE  'I:I\SM_DDATE;=;  'A:DATE;DD MMM YYYY;I\SM_DDATE  'I:I\SM_DATE;=;  'A:VAR;I\SM_DDATE;I\SM_DATE      '$VALIDATE    'A:DATE;DD MMM YYYY;I\TMP1  'I:I\TMP1;<;I\SM_DDATE;DAT  'D:DELIVERY DATE CANNOT BE GREATER THAN TODAY;ERRORM;I\SM_DDATE    'I:I\TMP1;<>;I\SM_DDATE;DAT  'D:DELIVERY DATE

$AFTER_WRITE  I:I\MODE;IN;A,E,B,C  DO(001)    A:VAR;I\SM_DDATE;I\FMT_DDATE;;YYYY/MM/DD      I:I\SM_MARKET;=;17    U:BLOCK_PICK      U:ZZGRID_SPLIT;GRID_TO_DB;G\DELIVERY;STK_DETS,SD_MARKET='I\SM_MARKET',SD_AGENT='I\SM_AGENT',SD_DELNO='I\SM_DELNO',SD_SEQ='I\SD_SEQ',SD_DATE='I\FMT_DDATE'    'U:DELIVERY_MAN;UPD_STK_MAST   

$DEFAULT  'INITIALIZE MEMBERS GRID  U:ZZGRID_SPLIT;INIT_GRID;G\MEMBERS;I\SP_SUPPL:H,I\TYPE,I\MEM,I\SP_DATE_JOINED  'U:ZZGRID_SPLIT;INIT_GRID;G\MEMBERS;I\SP_SUPPL:H,I\TYPE,I\MEM,I\DDATE  U:ZZGRID_SPLIT;DB_TO_GRID;G\MEMBERS;SUPPL_PALL_ACC,SP_SUPPL='I\CP_SUPPLIER'    'INITIALIZE CONSIGNMENT GRID  '''U:ZZGRID_SPLIT;INIT_GR

$SELECT  S:G:G\DELIVERY;R1    $CALCULATE    A:CONST;;I\EDIT_MODE      I:I\SD_SEQ;=;  DO(001)    A:CONST;;I\SD_SEQ,I\ITEM_OPTION,I\SD_SECT,I\SD_ITEM,I\SD_CLASS,I\SD_SIZE,I\SD_CONT,I\SD_CONTMASS,I\SD_PROV,I\SD_COUNT,I\SD_COLOUR,I\SD_CONQTY,I\SD_RECQTY,I\PALLETS,I\SD_TARGETP,I\SD_COSTP,I\SD_SMAN,I\CHG_CODE,I\CHG_AMT,I\REM

$SELECT  S:ITEM_SEL;I\SD_ITEM  A:SELPARM;2;I\TMP1  A:CON;I\SD_ITEM;I\SD_ITEM;I\TMP1    $CALCULATE  M:  C:UCASE    'U:CONFIRM_DELS;ITEM_OPTION    I:I\MODE;=;A  DO(001)    A:CON;I\PROD;I\TMP1;I\VAR    I:I\TMP1;=;I\SD_ITEM    DO(002)      A:VAR;I\TMPCONT;I\SD_CONT      A:VAR;I\TMPPROV;I\SD_PROV    DOEND(002)  DOEND(001)  

$DEFAULT  DIM TMP5,TMP6      $SELECT  A:CON;I\CLASS;I\TMP1;I\SIZE  S:COUNT_MAST_CNT;I\SD_COUNT;I\PROD;I\TMP1;I\SD_CONT    $CALCULATE  I:I\CNT_REQ;=;Y  M:    I:I\SD_COUNT;<>;  DO(001)    A:CON;I\CLASS;I\TMP1;I\SIZE    F:COUNT_MAST;;CNT_COUNT;TMP5=CNT_PRODUCT;CNT_PRODUCT='$I\PROD$' AND CNT_CONTAINER = '$I\SD_CONT$' AND C

$VALIDATE    I:K\EMAIL;=;1  DO(PRNT)    A:GET_CAP_BTN;C\DELDET;I\TMP1    I:I\TMP1;=;&RETURN    DO(RETURN)      O:BACKCOLOR;C\DELDET;GREY      A:CAPTION_BTN;C\DELDET;DELIVERY DETAILS      O:HIDE;I\CONSIGN,I\COMMODITY,I\PROV,I\CNT,I\SOLD,I\DISCARD,I\COLD,I\FLOOR,I\PALL,I\REC,I\PSOLD,I\PFLOOR,G\DETAIL      O:HIDE;T\CONSIG

$SELECT    I:I\SM_DELNO;<>;  DO(FOUND)    A:GET_CAP_BTN;C\DELDET;I\TMP1    I:I\TMP1;=;&RETURN    DO(RETURN)      O:BACKCOLOR;C\DELDET;GREY      A:CAPTION_BTN;C\DELDET;VIEW DELIVERIES      O:HIDE;I\CONSIGN,I\COMMODITY,I\PROV,I\CNT,I\SOLD,I\DISCARD,I\COLD,I\FLOOR,I\PALL,I\REC,I\PSOLD,I\PFLOOR,G\DETAIL      O:HIDE;T\CONSI

$SELECT  S:CONT_PR_NODEL;I\SD_CONT;I\PROD;I\VAR;I\SD_CLASS;I\SD_SIZE    $CALCULATE  M:  C:UCASE    A:VAR;I\SD_CONT;I\TMPCONT    A:CONST;;I\TMP1  F:COMMODITY_MAST;Y;CO_CONT;I\TMP1=CO_BLOCKED;CO_PRODUCT='$I\PROD$' AND CO_VAR='$I\VAR$' AND CO_CLASS='$I\SD_CLASS$' AND CO_SIZE='$I\SD_SIZE$';I\SD_CONT  I:I\TMP1;=;Y  D:THIS C

$CALCULATE  I:I\AM_TARGET_USE;=;Y  DO(001)    I:I\SD_TARGETP;<;0;NUM    D:TARGET PRICE CANNOT BE NEGATIVE;ERRORM;I\SD_TARGETP    I:I\AM_TARGET_OVR;<>;Y    DO(002)      I:I\SD_TARGETP;<=;0;NUM      D:TARGET PRICE CANNOT BE NEGATIVE OR ZERO - OVERRIDE DISABLED;ERRORM;I\SD_TARGETP    DOEND(002)  DOEND(001)    

$SELECT  S:SALESMAN_MAST;I\SM_SMAN;I\SM_AGENT  

$SELECT  S:CLASS_ITEM;I\SD_CLASS;I\PROD;I\VAR    $CALCULATE  'M:  C:UCASE  I:I\SD_CLASS;<>;  DO(001)    A:CONST;;I\TMP1    F:CLASS_MAST;Y;CL_CLASS;I\TMP1=CL_BLOCKED;;I\SD_CLASS    I:I\TMP1;=;Y    D:THIS CLASS HAS BEEN BLOCKED;ERRORM;I\SD_CLASS  DOEND(001)  A:VAR;I\SD_CLASS;I\CLASS  I:I\CLASS;=;  A:CONST;0;I\CLASS

$CALCULATE  I:I\SM_DELTYPE;=;W  DO(001)    I:I\SD_COSTP;<=;0;NUM    D:COST PRICE CANNOT BE NEGATIVE OR ZERO;ERRORM;I\SD_COSTP  DOEND(001)  

$CALCULATE    U:DELIVERY_MAN;CHK_MAX;G\DELIVERY,1  I:I\TMP1;<>;  D:SORRY ONLY $I\TMP1$ CONSIGNMENTS CAN BE ENTERED PER DELIVERY;ERRORM;I\SD_SEQ    C:UCASE  V:Y;N;  I:I\SD_BLOCK;=;  A:CONST;N;I\SD_BLOCK  C:UCASE;I\SD_ITEM    A:LEFT;I\SD_ITEM,2;I\PROD  A:MID;I\SD_ITEM,3,2;I\VAR  A:CONST;;I\TMP1  F:VAR_MAST;Y;;I\TMP1=VA_B

$DEFAULT  'LOAD OPTIONS FROM AGENT_MAST  F:AGENT_MAST;;;I\AM_DELAUTO=AM_DELAUTO,I\AM_DEL_LEN=AM_DEL_LEN,I\AM_SLSM_ENTRY=AM_SLSM_ENTRY,I\AM_DEL_SUPPEDIT=AM_DEL_SUPPEDIT,I\AM_DEL_SUPPADD=AM_DEL_SUPPADD,I\AM_MAX_DEL_LINES=AM_MAX_DEL_LINES;AM_CODE='$I\SM_AGENT$' AND AM_MARKET='$I\SM_MARKET$'    'LOAD OPTIONS FROM CLIENT_MA

$SELECT  S:COLOUR_ITEM;I\SD_COLOUR    $CALCULATE  C:UCASE  I:I\SD_COLOUR;<>;  F:COLOUR_MAST;Y;CLR_COLOUR;;;I\SD_COLOUR    

$SELECT  S:PROVINCE;I\SD_PROV  

$SELECT  S:AGENT_TYPE_DEL;I\SM_DELTYPE  

$DEFAULT  A:CONST;DELIVERY_MAN;I\PROG  

$SELECT  S:AREA_CODE;I\SM_AREA    $VALIDATE  M:  C:UCASE  F:AREA_MAST;Y;AR_CODE;;;I\SM_AREA

$SELECT  S:AGENT_TYPE_DEL;I\SM_DELTYPE      $VALIDATE  C:UCASE  F:AGENT_TYPE;Y;;T\TYPE_DESC=AT_DESC;AT_CODE='$I\SM_DELTYPE$' AND AT_CODE <> 'D';I\SM_DELTYPE  C:MCASE;;T\TYPE_DESC    $ESC  A:CONST;;I\SM_DELNO  

$SELECT  S:OUTSTANDING_DELS;I\SM_DELNO;I\SM_AGENT    'I:I\MODE;<>;A  'DO(NOTNEW)  '  'SELECT FOR MARKET, INCLUDES ALL AGENTS  '  I:I\SM_AGENT;=;  '  S:DEL_NUMBER_MKT;I\SM_DELNO;I\SM_MARKET    '  'SELECT FOR AGENTS, AGENT SPECIFIC  '  I:I\SM_AGENT;<>;  '  S:DEL_NUMBER;I\SM_DELNO;I\SM_MARKET;I\SM_AGENT  'DOEND(NOTNEW)   

$SELECT  S:GRADE_ITEM;I\SD_CLASS;I\PROD;I\VAR  A:SELPARM;1;I\SD_CLASS  A:SELPARM;2;I\SD_SIZE  

$VALIDATE    I:I\SM_MARKET;=;18  DO(18)    I:I\ORGS;<>;    DO(AGN)      I:I\SM_SUPP;<>;I\TMP_SUPP      D:MARKET AGENTS NOT ALLOWED TO CHANGE SUPPLIER NUMBER AND NAME;ERRORM;I\SM_SUPP    DOEND(AGN)  DOEND(18)  

$VALIDATE  C:UCASE    'A:MID;I\SM_VREGNO,4,1;I\TMP1  'I:I\TMP1;=;SPC  'DO(001)  '  A:MID;I\SM_VREGNO,8,1;I\TMP1  '  I:I\TMP1;=;SPC  '  DO(002)  '    A:ISNUMBER  'A:ROUND;I\SM_VREGNO,.5,1;I\SM_VREGNO  

$SELECT  S:CONT_PR_NODEL;I\SD_CONT;I\PROD;I\VAR  

$SVAR_FOCUS  O:HIDE;I\DELIVERY  O:SHOW;I\SM_DELNO  O:ENABLEINPUT;I\SM_DELNO  A:CONST;;I\SM_DELNO  O:SETFOCUS;I\SM_DELNO

$AFTER_READ  'DEFAULT CURRENT TIME  I:I\SM_DTIME;=;  A:TIME;HH:MM;I\SM_DTIME  I:I\SM_TIME;=;  A:VAR;I\SM_DTIME;I\SM_TIME    $VALIDATE  M:    'CHECK THAT THE THIRD DIGIT IS A ":"  A:MID;I\SM_DTIME,3,1;I\TMP1    I:I\TMP1;<>;:    D:ENTER IN FORMAT XX:XX;ERRORM;I\SM_DTIME    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 

$CALCULATE  I:I\REM;=;  A:CONST;Y;I\REM  C:UCASE  V:Y;N    $NOGRIDVAL  I:I\REM;=;Y  DO(001)    O:HIDE;I\SD_ITEM,I\SD_CLASS,I\SD_SIZE,I\SD_CONT,I\SD_CONTMASS,I\SD_PROV,I\SD_COUNT,I\SD_COLOUR,I\SD_CONQTY,I\SD_RECQTY,I\PALLETS,I\SD_TARGETP,I\SD_COSTP,I\SD_SMAN,I\CHG_CODE,I\CHG_AMT,I\REM,I\SD_BLOCK    O:HIDE;T\SD_ITEM,T\SD

$SELECT  S:SALESMAN_MAST;I\SD_SMAN;I\SM_AGENT      $CALCULATE  I:I\AM_SLSM_ENTRY;IN;2,5  DO(002)    M:    A:ZEROFILL;I\SD_SMAN,3;I\SD_SMAN    F:SALESMAN_MAST;Y;SLS_CODE;;SLS_AGENT='$I\SM_AGENT$';I\SD_SMAN  DOEND(002)        I:I\SD_SMAN;<>;  DO(001)    R;0;999    A:VAR;I\SD_SMAN;I\SD_SMAN;;000    F:SALESMAN_MAST;Y;SLS_C

$SELECT  A:CON;I\SD_CLASS;I\TMP1;I\SD_SIZE  S:COUNT_MAST_CNT;I\SD_COUNT;I\PROD;I\TMP1;I\SD_CONT  

$SELECT  A:CONST;RE;I\TMP1  S:REASON_RE;I\ST_RSN_CODE;I\TMP1    

$SELECT  S:SUPPLIER_MAST1;I\SM_SUPP;I\SM_AGENT  

' OPTIONS  ' I\AM_DELAUTO

$SELECT  S:COLOUR_ITEM;I\SD_COLOUR  

$CALCULATE  M:  C:UCASE  O:HIDE;I\SD_COMMENT,T\SD_COMMENT  O:SHOW;I\SD_ITEM,I\SD_CLASS,I\SD_SIZE,I\SD_CONT,I\SD_CONTMASS,I\SD_PROV,I\SD_COUNT,I\SD_COLOUR,I\SD_CONQTY,I\SD_RECQTY,I\PALLETS,I\SD_TARGETP,I\SD_COSTP,I\SD_SMAN,I\CHG_CODE,I\CHG_AMT,I\REM,I\SD_BLOCK  O:SHOW;T\GRADE1,T\SM_BLOCK,T\SD_ITEM,T\SD_CLASS,T\SD_SIZE,T

$SVAR_FOCUS  A:VAR;I\SM_DDATE;I\SM_DDATE;;YYYY/MM/DD    $SELECT  S:ITEM_OPTION;I\ITEM_OPTION;I\SM_MARKET;I\SM_AGENT;I\SM_DELNO;I\SM_DDATE    $CALCULATE  M:  C:UCASE  A:VAR;I\SM_DDATE;I\SM_DDATE;;YYYY/MM/DD  @F:STK_DETS_GATE;Y;;I\ITEM_OPTION=SDG_CONSIGN;SDG_MARKET='$I\SM_MARKET$' AND SDG_AGENT='$I\SM_AGENT$' AND SDG_DEL

$CALCULATE    O:SHOW;I\SD_ITEM,I\SD_CLASS,I\SD_SIZE,I\SD_CONT,I\SD_CONTMASS,I\SD_PROV,I\SD_COUNT,I\SD_COLOUR,I\SD_CONQTY,I\SD_RECQTY,I\PALLETS,I\SD_TARGETP,I\SD_COSTP,I\SD_SMAN,I\CHG_CODE,I\CHG_AMT,I\REM,I\SD_BLOCK  O:SHOW;T\GRADE1,T\SM_BLOCK,T\SD_ITEM,T\SD_CLASS,T\SD_CONT,T\SD_CONTMASS,T\SD_PROV,T\SD_COUNT,T\SD_COLOUR

$AFTER_WRITE  F:AGENT_MAST;;;I\TMP1=AM_NODEL_PRN;AM_CODE='$I\SM_AGENT$' AND AM_MARKET='$I\SM_MARKET$';I\SM_AGENT     I:I\TMP1;<=;0;NUM  DO(001)    F:CLIENT_MAST;;;I\TMP1=CM_NODEL_PRN;CM_CODE='$I\SM_MARKET$'    I:I\TMP1;<=;0;NUM    DO(002)      A:CONST;1;I\TMP1    DOEND(002)  DOEND(001)    I:I\SM_MARKET;=;23  A:CONST;1;

'$SELECT8  'U:DELIVERY_MAN;INIT_PALLETS;I\PALLETS        $CALCULATE  C:UCASE    I:I\EDIT_MODE;<>;YES  V:Y;    I:I\PALLETS;=;Y  DO(001)    A:CONST;;I\PALLETS    U:DELIVERY_MAN;INIT_PALLETS;I\PALLETS    A:CONST;*;I\PALLETS  DOEND(001)

$CALCULATE  'CHECK CONSIGNMENT QTY  I:I\SD_CONQTY;<=;0;NUM  D:CONSIGNMENT QTY CANNOT BE NEGATIVE OR ZERO;ERRORM;I\SD_CONQTY    I:I\SD_RECQTY;=;0;NUM  A:VAR;I\SD_CONQTY;I\SD_RECQTY  

$SELECT  S:TRANSPORTER_MAST;I\SM_TRNPTR  

$DEFAULT  A:USERID;;I\SM_USER

$SELECT  S:AGENT_MAST_MKT;I\SM_AGENT;I\SM_MARKET  

$SELECT  S:PROVINCE;I\SD_PROV    $CALCULATE  C:UCASE    A:VAR;I\SD_PROV;I\TMPPROV    I:I\PROV_REQ;=;Y  M:  I:I\SD_PROV;<>;  DO(001)    A:CONST;;I\TMP1    F:PROV_MAST;Y;PR_PROV;I\TMP1=PR_BLOCKED;;I\SD_PROV    I:I\TMP1;=;Y    D:THIS PROVINCE HAS BEEN BLOCKED;ERRORM;I\SD_PROV  DOEND(001)  

$SELECT  I:I\AM_PALLMEM_EDIT;=;0  D:THIS AGENT CANNOT EDIT SUPPLIER PALLET ACCOUNTS;ERRORM;I\C\MEMMAINT    I:I\SM_SUPP;<>;  DO(001)    E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P SUPPL_PALL_ACC_MAN $I\SM_SUPP$ <ENTER>    'LOAD SUPPLIER MEMBER DETAILS    U:DELIVERY_MAN;MEMBERS;G\MEMBERS,I\SM_SUPP    O:SETFOCUS;I\SM_SU

$SELECT  S:SUPPLIER_MAST1;I\SM_SUPP;I\SM_AGENT    $SELECT8    A:VAR;I\SM_SUPP;I\TMP1  I:I\AM_DEL_SUPPEDIT;=;1  DO(001)  '  NN:$GBLUSER$$I\SM_DTIME$;I\TMP1  '  I:I\SM_SUPP;=;  '  DO(002)      E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P SUPPLIER_MAN $GBLUSER$$I\SM_DTIME$ $I\SM_SUPP$      F:ZV_USER_DEFAULTS;;;I\SM_SUPP=

$DEFAULT  'ADDS ITEMS TO THE COMBOBOX  B:ADDITEM;D\SM_TRANSPORT_FORM1;DT - DEISEL TRUCK,PT - PETROL TRUCK,AC - AIRCRAFT,SH - SHIP,RL - RAIL,UN - UNKNOWN  A:CONST;UN;D\SM_TRANSPORT_FORM1  A:CONST;UNKNOWN;T\FORM_DESC  C:MCASE;;T\FORM_DESC    $VALIDATE  M:  C:UCASE  A:LEFT;D\SM_TRANSPORT_FORM1,2;D\SM_TRANSPORT_FORM1  U:DE

$AFTER_READ  A:CONST;YES;I\CANSAVE    'JD DURBAN!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  'F:STK_MAST;;;I\SM_DDATE=SM_DDATE;SM_DELNO='$I\SM_DELNO$' AND SM_AGENT='$I\SM_AGENT$' ORDER BY SM_DATE    'A:VAR;I\SM_DDATE;I\SAVE_DDATE  'A:VAR;I\SM_DDATE;I\DDATE  'A:V

$DEFAULT  'ADDS ITEMS TO THE COMBOBOX  B:ADDITEM;D\SM_TRANSPORT_FORM2;DT - DEISEL TRUCK,PT - PETROL TRUCK,AC - AIRCRAFT,SH - SHIP,RL - RAIL  A:CONST;;D\SM_TRANSPORT_FORM2    $VALIDATE  C:UCASE  A:LEFT;D\SM_TRANSPORT_FORM2,2;D\SM_TRANSPORT_FORM2  I:D\SM_TRANSPORT_FORM2;<>;    DO(002)       B:VALIDATE;D\SM_TRANSPORT_FORM

$SELECT  A:CONST;RE;I\TMP1  S:REASON_RE;I\ST_RSN_CODE;I\TMP1    $CALCULATE  M:  C:UCASE    F:REASON_MAST;Y;RSN_REASON;I\ST_REASON=RSN_DESC;;I\ST_RSN_CODE        $ESC  O:SHOW;I\SD_ITEM,I\SD_CLASS,I\SD_SIZE,I\SD_CONT,I\SD_CONTMASS,I\SD_PROV,I\SD_COUNT,I\SD_COLOUR,I\SD_CONQTY,I\SD_RECQTY,I\PALLETS,I\SD_TARGETP,I\SD_COSTP,

$SELECT  S:SIZE_ITEM;I\SD_SIZE;I\PROD;I\VAR    $SELECT6  S:GRADE_ITEM;I\SD_CLASS;I\PROD;I\VAR  A:SELPARM;1;I\SD_CLASS  A:SELPARM;2;I\SD_SIZE    $CALCULATE  'M:  C:UCASE    I:I\SD_SIZE;<>;  DO(001)    A:CONST;;I\TMP1    F:SIZE_MAST;Y;SZ_SIZE;I\TMP1=SZ_BLOCKED;;I\SD_SIZE    I:I\TMP1;=;Y    D:THIS SIZE HAS BEEN BLOCKED;ER

$VALIDATE  C:UCASE  

$SELECT  S:AREA_CODE;I\SM_AREA  

$SELECT  S:SALESMAN_MAST;I\SM_SMAN;I\SM_AGENT    $VALIDATE  I:I\AM_SLSM_ENTRY;IN;2,5  DO(001)    M:    C:UCASE    A:ZEROFILL;I\SM_SMAN,3;I\SM_SMAN    F:SALESMAN_MAST;Y;SLS_CODE;T\SMAN_DESC=SLS_NAME;SLS_AGENT='$I\SM_AGENT$';I\SM_SMAN    C:MCASE;;T\SMAN_DESC  DOEND(001)    $AFTER_READ  F:SALESMAN_MAST;;SLS_CODE;T\SMAN_DE

'$SELECT  'S:ITEM_SEL;I\SD_ITEM  'A:SELPARM;2;I\TMP1  'A:CON;I\SD_ITEM;I\SD_ITEM;I\TMP1  

$DEFAULT  'SET SUPPLIER REF NUMBER LENGTH  A:CONST;16;I\TMP1  A:FIELDLEN;I\TMP1;I\SM_REFNO      $VALIDATE  A:CONST;;W\SUP_REFNO  I:W\SUPPLREFNO;=;Y  DO(REFNO)  M:  DOEND(REFNO)    C:UCASE    A:CONST;16;I\TMP1  A:FIELDLEN;I\TMP1;I\SM_REFNO    I:I\SUM_TFR_SUPPLNO;<>;  DO(001)  '  A:FIELD;I\SM_REFNO,*,1;I\TMP1  '  A:FIELD

$CALCULATE  I:I\SD_RECQTY;<=;0;NUM  D:RECEIVED QTY CANNOT BE NEGATIVE OR ZERO;ERRORM;I\SD_RECQTY  F:STK_DETS;;;I\TMP1=SD_RECQTY;SD_MARKET='$I\SM_MARKET$' AND SD_AGENT='$I\SM_AGENT$' AND SD_CONSIGN = '$I\SD_CONSIGN$' AND SD_DATE='$I\TMP3$';I\SD_SEQ  I:I\SD_RECQTY;>;I\TMP1  DO(001)    A:CONST;NULL;I\SD_CDATE    C:MCASE;;

$AFTER_READ  'DEFAULT CURRENT DATE  '''A:VAR;I\SM_DATE;I\DDATE  A:VAR;I\SM_DDATE;I\DDATE  I:I\DDATE;=;  '''''A:DATE;DD MMM YYYY;I\DDATE  I:I\SM_DATE;=;  A:VAR;I\DDATE;I\SM_DATE  I:I\MODE;IN;W,D  O:DISABLEINPUT;I\DDATE      'MICHAEL 28 OCT 09 DISABLE DATE EDITING WHEN THERE ARE SALES FOR DELIVERY  'I:I\MODE;=;E  'DISABL

$SELECT  S:TRANSPORTER_MAST;I\SM_TRNPTR;I\SM_AGENT    $VALIDATE  'M:  C:UCASE  I:I\SM_TRNPTR;<>;  DO(001)    F:TRANSPORTER_MAST;Y;TR_CODE;T\TRANS_DESC=TR_NAME;TR_AGENT='$I\SM_AGENT$';I\SM_TRNPTR    C:MCASE;;T\TRANS_DESC  DOEND(001)    $AFTER_READ  F:TRANSPORTER_MAST;;TR_CODE;T\TRANS_DESC=TR_NAME;TR_AGENT='$I\SM_AGENT$'

$UPDATE  U:CONFIRM_DELS;GRID_COUNT    'CHECK IF THIS DELIVERY HAS BEEN PROCESSED  U:CONFIRM_DELS;CHECK_CONFIRMED  I:I\TMP1;=;Y  DO(SL9)    O:DISABLEINPUT;I\SD_SEQ,I\ITEM_OPTION,I\SD_ITEM,I\SD_CLASS,I\SD_SIZE,I\SD_CONT,I\SD_CONTMASS,I\SD_PROV,I\SD_COUNT,I\SD_COLOUR,I\SD_CONQTY,I\SD_RECQTY,I\PALLETS,I\SD_TARGETP,I\SD_COS