DELIVERY_MAN

$DEFAULT  'GET USERS MARKET CODE - ZU_MARKET IN ZU_USER  A:ORG;;I\SM_MARKET  A:ORGS;;I\SM_AGENT    'GET MARKET NAME FROM CLIENT MASTER  F:CLIENT_MAST;;;T\MARKET=CM_NAME,I\CM_DELSECT=CM_DELSECT,I\CM_CENTRAL_PALL=CM_CENTRAL_PALL,I\CM_VATNO=CM_VATNO,I\CM_PALL_SECT=CM_PALL_SECT,I\CM_TWODEL=CM_TWODEL,W\EDITDATE=CM_DEL_DATE_

$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

$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

$SELECT  ''REMOVED AS PER LINAH'S REQUEST  ''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

$DEFAULT  A:PATH;GBLPDIR;I\PATH

$DEFAULT  A:CONST;NO;I\CANSAVE  U:DELIVERY_MAN;BUYER_PIN_NO

$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    

$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  '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;DB_TO_GRID;G\MEMBERS;SUPPL_PALL_ACC,SP_SUPPL='I\CP_SUPPLIER'    'INITIALIZE CONSIGNMENT GRID  U:ZZGRID_SPLIT;INIT_GRID;G\DELIVERY;I\SD_SEQ,I\SD_CONSIGN:H,I\SD_DATE:H,I\SD_IP:H,I\ST_PAID:H,I\

$DEFAULT  A:USERID;;I\SM_USER

$SELECT  I:I\SM_MARKET;<>;40  DO(NOT40)  I:I\SM_MARKET;<>;60  S:PROVINCE_SUPPL;I\SD_PROV;I\SM_SUPP;I\PROD  DOEND(NOT40)    I:I\SM_MARKET;=;40  S:PROVINCE;I\SD_PROV    I:I\SM_MARKET;=;60  S:PROVINCE;I\SD_PROV    $CALCULATE  C:UCASE    A:VAR;I\SD_PROV;I\TMPPROV    I:I\PROV_REQ;=;Y  M:    'F:SUPPL_PROD_PROV;Y;;;SPP_CODE='

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

$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:COLOUR_ITEM;I\SD_COLOUR    $CALCULATE  C:UCASE  I:I\SD_COLOUR;<>;  F:COLOUR_MAST;Y;CLR_COLOUR;;;I\SD_COLOUR    

$SELECT  S:SALESMAN_MAST;I\SD_SMAN;I\SM_AGENT    $SVAR_FOCUS      I:I\SM_SMAN;<>;    A:VAR;I\SM_SMAN;I\SD_SMAN    'U:CHECK_MODE    $CALCULATE  'LP20100824 ON JANET'S REQUEST  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  

$VALIDATE  C:UCASE    I:I\SM_MARKET;=;15  DO(MKT15)    M:  DOEND(MKT15)    '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;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:ITEM_SEL;I\SD_ITEM  A:SELPARM;2;I\TMP1  A:CON;I\SD_ITEM;I\SD_ITEM;I\TMP1    $SVAR_FOCUS  I:I\SM_MARKET;<>;17  DO(B4B)    I:I\SD_SEQ;=;    DO(001)      I:I\TMP_PROV;<>;      A:VAR;I\TMP_PROV;I\SD_PROV        I:I\TMP_ITEM;<>;      DO(DEF)        I:I\SD_ITEM;=;        A:VAR;I\TMP_ITEM;I\SD_ITEM      DOEND(DEF) 

$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

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

$SELECT  S:AREA_CODE;I\SM_AREA    $VALIDATE  M:  C:UCASE  'THIS CHECK ADDED BY LP2010603 ON CHRISTO'S REQUEST ONLY FOR PRETORIA MARKET  I:I\SM_MARKET;<>;11  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:SALESMAN_MAST;I\SM_SMAN;I\SM_AGENT    $VALIDATE  I:I\AM_SLSM_ENTRY;IN;2,5  DO(001)  I:I\SM_MARKET;<>;15  DO(NOTMKT15)    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(NOTMKT15)  DOEND(001)

$SELECT  'THE IF STATEMENTS WERE ADDED BY LP20110209 ON CHRISTO'S REQUEST  I:I\SM_MARKET;=;23  S:SUPPLIER_MAST2;I\SM_SUPP    I:I\SM_MARKET;=;11  S:SUPPLIER_MAST5;I\SM_SUPP    I:I\SM_MARKET;<>;23  DO(NOT23)  I:I\SM_MARKET;<>;11  S:SUPPLIER_MAST1;I\SM_SUPP;I\SM_AGENT  DOEND(NOT23)    $SELECT8    'ONLY ALLOWED ON DELIVERY

'$SELECT  'S:DEDUCT_MAST;I\CHG_CODE;I\SM_AGENT    '$SELECT8  'U:DELIVERY_MAN;INIT_CHARGE;I\CHG_CODE    $CALCULATE  C:UCASE  I:I\CHG_CODE;=;Y  DO(001)    A:CONST;;I\CHG_CODE    U:DELIVERY_MAN;INIT_CHARGE;I\CHG_CODE  DOEND(001)    I:I\CHG_CODE;<>;  DO(001)    I:I\CHG_CODE;<>;*    DO(002)      F:DEDUCT_MAST;Y;DM_CODE;;DM_

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

$DEFAULT  A:CONST;DELIVERY_MAN;I\PROG  

$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  U:GROW_SUPP_REF;DEL_TYPE

$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    I:I\SM_MARKET;=;15  DO(0)    I:I\SD

$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)  '''CHANGED BY JD ON 2

$CALCULATE  I:I\REM;=;  A:CONST;Y;I\REM  C:UCASE    'ADDED BY LP20121112 ON JANET'S REQUEST FOR PRETORIA MARKET BUT DECIDED TO DO IT FOR ALL MARKETS  I:I\SM_MARKET;<>;15  DO(NOTMKT15)    I:I\MODE;=;E    A:CONST;Y;I\REM  DOEND(NOTMKT15)    V:Y;N    $NOGRIDVAL  I:I\REM;=;Y  DO(001)    O:HIDE;I\SD_ITEM,I\SD_CLASS,I\SD_SIZ

$AFTER_READ  A:CONST;YES;I\CANSAVE    I:I\CM_TWODEL;=;1  DO(2PHASE1)  I:I\MODE;=;A  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 N

$SELECT  S:SIZE_ITEM_ALT;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 BLOCKE

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

' OPTIONS  ' I\AM_DELAUTO

$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

$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  C:UCASE  I:I\SM_MARKET;=;15  DO(MKT15)    M:  DOEND(MKT15)

$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

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

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

$CALCULATE  R:0;9999.99  

$CALCULATE  A:CONST;;W\SD_SLDQTY,W\SOLD_QTY,W\SD_DISQTY,I\INVALID_MKT_PWD,I\CSV_DATE    F:STK_DETS;;;I\TMP1=SD_RECQTY,W\SD_SLDQTY=SD_SLDQTY,W\SD_DISQTY=SD_DISQTY;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;<=;0;NUM  D:RECEIVED 

$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:G:G\DELIVERY;R1    $CALCULATE    A:CONST;;I\EDIT_MODE    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\CHG_CODE,I\CHG_AMT,I\REM,I\S

$CALCULATE  'CHECK CONSIGNMENT QTY  I:I\SD_CONQTY;<=;0;NUM  D:CONSIGNMENT QTY CANNOT BE NEGATIVE OR ZERO;ERRORM;I\SD_CONQTY      'I:I\MODE;=;E  'DO(MAN)  ' I:I\QTY;<>;I\SD_CONQTY  '  DO(CHK_CS)  '   A:VAR;I\SM_DDATE;W\DELDATE;;YYYY/MM/DD  '   F:LOC_TRANS;;;W\CSQTY=LT_PRQTY_AVAIL;LT_AGENT='$I\SM_AGENT$' AND LT_CONSIGNO=

$DEFAULT  'ADDS ITEMS TO THE COMBOBOX  ''B:ADDITEM;D\SM_TRANSPORT_FORM2;DT - DEISEL TRUCK,PT - PETROL TRUCK,AC - AIRCRAFT,SH - SHIP,RL - RAIL  B:READTABLE;D\SM_TRANSPORT_FORM2;TRANSPORTER_FORM;TF_CODE,TF_DESC;SELECT TF_CODE,TF_DESC FROM TRANSPORTER_FORM  A:CONST;;D\SM_TRANSPORT_FORM2    $VALIDATE  C:UCASE  A:LEFT;D\SM_

$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  B:READTABLE;D\SM_TRANSPORT_FORM1;TRANSPORTER_FORM;TF_CODE,TF_DESC;SELECT TF_CODE,TF_DESC FROM TRANSPORTER_FORM  A:CONST;UN;D\SM_TRANSPORT_FORM1  A:CONST;UNKNOWN;T\FO

$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  S:AGENT_MAST_MKT;I\SM_AGENT;I\SM_MARKET  

$SELECT  S:TRANSPORTER_MAST;I\SM_TRNPTR  

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

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

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

$SELECT  S:COLOUR_ITEM;I\SD_COLOUR  

$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;<>;    DO(IP)      U:DELIVERY_MAN;GET_IP;G\DELIVERY      S:DEL_NUMBER_SECT;I\SM_DELNO;I\SM_MARKET;I\SM_AGENT;I\TMP3    DOE

$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:AREA_CODE;I\SM_AREA  

$SELECT  S:AGENT_TYPE_DEL;I\SM_DELTYPE  

$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:PROVINCE;I\SD_PROV  

'$SELECT  'S:DEDUCT_MAST_A;I\CHG_CODE;I\SM_AGENT    $SELECT  U:DELIVERY_MAN;INIT_CHARGE;I\CHG_CODE  

$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:SALESMAN_MAST;I\SM_SMAN;I\SM_AGENT  

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