WHOLESALE_DEL_MAN

$SELECT  S:OUTSTANDING_DELS;I\GATE_NO;I\SM_AGENT

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    'GET PASSED PARMATER - OPERATION MODE  A:PARM;1;I\MODE  A:FIELD;I\MODE,:,1;I\MODE  A:CONST;A;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_CO

$DEFAULT  'GET USERS MARKET CODE - ZU_MARKET IN ZU_USER  A:ORG  'GET MARKET NAME FROM CLIENT MASTER  F:CLIENT_MAST;;;T\MARKET=CM_NAME,I\CM_AGN_DOCKET=CM_AGN_DOCKET,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 

$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;;;W\AGENT_TYPE=AM_TYPE,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

$SELECT  S:OUTSTANDING_DELS;I\GATE_NO;I\SM_AGENT      $CALCULATE      F:STK_MAST;Y;SM_DELNO;I\SM_WAYBILLNO=SM_WAYBILLNO,I\SM_REFNO=SM_REFNO,I\SM_SUPP=SM_SUPP,I\SM_VREGNO=SM_VREGNO,I\SM_MKTREFNO=SM_MKTREFNO;SM_MARKET='$I\SM_MARKET$' AND SM_AGENT='$I\SM_AGENT$' AND SM_FINPDTE IS NULL;I\GATE_NO     F:STK_DETS_GATE;;;I\TMP

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

$DEFAULT  A:PATH;GBLPDIR;I\PATH

$AFTER_WRITE  I:I\MODE;IN;A,E,B  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    U

$DEFAULT  A:CONST;NO;I\CANSAVE  

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

$DEFAULT  A:CONST;DELIVERY_MAN;I\PROG  

$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

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

$DEFAULT  A:USERID;;I\SM_USER

$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    A:CONST;0;I\TOTDUES

$VALIDATE  I:I\SM_MARKET;=;15  M:    C:UCASE  

$SELECT  'S:WHOLESALE_CODE;I\SM_WHOLESALER;I\SM_AGENT  S:WHOLESALE_CODE;I\SM_WHOLESALER    $VALIDATE    M:  C:UCASE  'A:ZEROFILL;I\SM_WHOLESALER,3;I\SM_WHOLESALER  F:WHOLESALE_MAST;Y;WHS_CODE;T\SMAN_DESC=WHS_NAME,I\COMMPERC=WHS_COMMPERC,I\COMMVAT_CODE=WHS_VATCODE;WHS_BLOCKED <>'Y';I\SM_WHOLESALER  C:MCASE;;T\SMAN_DESC 

$AFTER_READ  'DEFAULT CURRENT DATE  A:VAR;I\SM_DATE;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  'DISABLE EDITING BASED ON CLIENT MAST PAR

$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

$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:K\PRINT;=;1  DO(001)  '  O:D

$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

' OPTIONS  ' I\AM_DELAUTO

$SELECT  S:AREA_CODE;I\SM_AREA  

$SELECT  S:PROVINCE;I\SD_PROV  

$SELECT  S:COLOUR_ITEM;I\SD_COLOUR  

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

$SELECT  S:TRANSPORTER_MAST;I\SM_TRNPTR  

$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  

$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  S:ITEM_SEL;I\SD_ITEM  A:SELPARM;2;I\TMP1  A:CON;I\SD_ITEM;I\SD_ITEM;I\TMP1  

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

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

$SELECT  S:AGENT_TYPE_DEL;I\SM_DELTYPE  

$SELECT  'S:WHOLESALE_CODE;I\SM_WHOLESALER;I\SM_AGENT  S:WHOLESALE_CODE;I\SM_WHOLESALER  

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

$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    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)    I:I\MODE;=;A  S:SECT_MAST_S;I\SM_DELNO  

$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\SD_COSTP,I\VALUE,I\VAT,I\TOTAL_VAL,I\REM,I\SD_BLOCK    O:HIDE;T\SD_ITEM,T\SD_CLASS,T\SD_SIZE,T\SD_CONT,T

$VALIDATE  M:

$DEFAULT  'SET SUPPLIER REF NUMBER LENGTH  A:CONST;16;I\TMP1  A:FIELDLEN;I\TMP1;I\SM_REFNO      $VALIDATE    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;I\SUM_TFR_SUPPLNO,*

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

$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    O:DISABLEINPUT;I\SD_COSTP      U:WHOLESALE_MAN;WSALEMKTAVE      I:I\SM_DELTYPE;=;W  DO(001)    I:I\SD_COSTP;<=;0;NUM  '''  D:COST PRICE 

$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    I:I\SD_DELIND;=;Y  D:YOU MAY NOT AMEND THIS LINE, IT IS DELETED;ERRORM;I\SEQ    C:UCASE  V:Y;N;  I:I\SD_BLOCK;=;  A:CONST;N;I\SD_BLOCK    A:LEFT;I\SD_ITEM,2;I\PROD  A:MID;I\

$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  

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

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

$AFTER_READ  A:CONST;YES;I\CANSAVE      I:I\CM_TWODEL;=;1  I:I\MODE;=;A  DO(2PHASE1)  DO(2PHASE)  '''FOR PRE!!!!!!!!  I:I\SM_MARKET;=;11  ''F:STK_MAST;;SM_DELNO;I\SM_WAYBILLNO=SM_WAYBILLNO,I\SM_REFNO=SM_REFNO,I\SM_SUPP=SM_SUPP,I\SM_VREGNO=SM_VREGNO;SM_MARKET='$I\SM_MARKET$' AND SM_AGENT='$I\SM_AGENT$' AND SM_FINPDTE IS

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

$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_TARGETP    D:COST PRICE CANNOT BE NEGATIVE OR ZERO;ERRORM;I\SD_COSTP  DOEND(001)    U:WHOLESALE_MAN;CALCULATE_TOTAL    ''U:WHOLESALE_MAN;CALCULATE_TOTAL_DUES

$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

$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

$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\SD_TARGETP,I\SD_COSTP,I\VALUE,I\VAT,I\TOTAL_VAL,I\REM,I\SD_BLOCK  O:SHOW;T\GRADE1,T\SM_BLOCK,T\SD_ITEM,T\SD_CLASS,T\SD_SIZE,T\SD_CONT,T\SD_C

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

$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

$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  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    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)    A:LEFT;I\SD_ITEM,2;I\PROD  

$SELECT  S:G:G\DELIVERY;R1    $CALCULATE    A:CONST;;I\EDIT_MODE    O:DISABLEINPUT;I\SD_COSTP    I:I\SD_SEQ;=;  DO(001)    A:CONST;;I\SD_DELIND,I\SD_SEQ,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

$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

$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

$DEFAULT  A:DATE;DD MMM YYYY;I\WAYBILL_DATE    $VALIDATE    I:I\WAYBILL_DATE;=;  A:CONST;$T\DATE$;I\WAYBILL_DATE        

$VALIDATE    I:I\WAYBILL_TIME;<>;  DO(1)   'CHECK THAT THE THIRD DIGIT IS A ":"   A:MID;I\WAYBILL_TIME,3,1;I\TMP1     I:I\TMP1;<>;:    D:ENTER IN FORMAT XX:XX;ERRORM;I\WAYBILL_TIME     'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24   A:LEFT;I\WAYBILL_TIME,2;I\TMP1     I:I\TMP1;>;23    D:CANNOT BE GREATER THAN 2

$UPDATE    I:I\MARKET;=;18  DO(DL9)  'JD DURBAN ADDITION!!  'ONLY CHECK IF THERE ARE NEW CONSIGNMENTS!!!    F:STK_DETS_GATE;;;I\TMP1=SDG_MARKET;SDG_AGENT='$I\SM_AGENT$' AND SDG_DELNO='$I\SM_DELNO$'    I:I\TMP1;<>;    DO(9MA)      'JD DURBAN ADDITION!!      F:CLIENT_MAST;;;I\TMP1=CM_DEL_CONF;CM_CODE='$I\SM_MARKET$'