AGN_DEL_UPDATE

$AFTER_WRITE  I:I\MODE;IN;A,E,B  DO(001)    A:VAR;I\SM_DDATE;I\FMT_DDATE;;YYYY/MM/DD    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:DELIVERY_MAN;UPD_STK_DETS;G\DELIVERY    'U

$DEFAULT    'GET PASSED PARMATER - OPERATION MODE  'A:PARM;1;I\MODE  A:CONST;E;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_C

$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  A:PATH;GBLPDIR;I\PATH

$DEFAULT  A:CONST;NO;I\CANSAVE  

$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\REUSE_DEL=CM_REUSE_DEL;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 YYYY;T\DATE 

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  '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(CHK)   M:  DOEND(CHK)      I:I\SUM_TFR_SUPPLNO;<>;  DO(001)    A:FIE

$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

'$CALCULATE  'R:0;9999.99  

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

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

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

$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\SD_TARGETP,I\SD_SMAN,I\REM  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,T\SD_CONQTY,T\SD_RECQTY,T\SD_TARGETP,,T\SD_SMAN,T\RE

$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\SD_TARGETP,I\SD_SMAN,I\REM  O:SH

$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

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

$AFTER_READ  A:CONST;YES;I\CANSAVE    '$VALIDATE  'A:CONST;;I\TMP1  'U:ZZGRID_SPLIT;GRID_SUM;G\DELIVERY;I\SD_RECQTY,I\TMP1 '    'I:I\TMP1;<>;I\TOT_REC  'D:TOTAL DOES NOT MATCH ENTRIES - PLEASE CHECK;ERRORM;I\SD_SEQ    'U:DELIVERY_MAN;ENTRY_MADE;G\DELIVERY  'I:I\TMP1;<>;  'D:NO CONSIGNMENTS HAVE BEEN ENTERED - CANNOT SA

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

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

' OPTIONS  ' I\AM_DELAUTO

$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_SMAN,I\REM  O:SHOW;T\GRADE1,T\SD_ITEM,T\SD_CLASS,T\SD_SIZE,T\SD_CONT,T\SD_CONTMASS,T\SD_PROV,T\SD_COUNT,T\SD_COLOUR,T\SD_CO

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

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

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

$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: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)    'DOUBLE COMMENT MEANS THIS WAS COMME

$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

$SELECT  S:AGENT_TYPE_DEL;I\SM_DELTYPE  

$DEFAULT  A:CONST;DELIVERY_MAN;I\PROG  

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

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

$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:DEDUCT_MAST_A;I\CHG_CODE;I\SM_AGENT    $SELECT  U:DELIVERY_MAN;INIT_CHARGE;I\CHG_CODE  

$SELECT  S:SALESMAN_MAST;I\SD_SMAN;I\SM_AGENT      $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  DOEND(002)      I:I\SD_SMAN;<>;  DO(001)    R;0;999    A:VAR;I\SD_SMAN;I\SD_SMAN;;

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

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

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

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

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

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

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

$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_TARGETP,I\SD_SMAN,I\REM    O:HIDE;T\SD_ITEM,T\SD_CLASS,T\SD_SIZE,T\SD_CONT,T\SD_CONTMASS,T\SD_PROV,T\

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

$UPDATE    I:I\SM_DELNO;=;  D:THIS IS A MANDATORY FIELD;ERRORM;I\SM_DELNO  A:CONST;;I\SD_SEQ    I:I\NO_LINES;>;0;NUM  DO(DTL)    A:LEFT;I\SM_DELNO,3;I\TMP1    I:I\TMP1;=;***    DO(NEW)      A:CONST;;I\SM_DELNO      I:I\CM_DELSECT;=;1;NUM      DO(001)        A:LEFT;I\DELIVERY,3;I\TMP1        I:I\AM_DELAUTO;=;1;NUM