CONSIGN_EDIT_PTA

$SELECT  S:COLOUR_ITEM;I\SD_COLOUR

$SELECT  S:CONSIGNMENT22;I\SD_CONSIGN;I\AGENT  

$SELECT  'S:CLASS_NB2;I\SD_CLASS;  'S:COM_ENQ_CLASS;I\CO_CLASS;I\CO_PRODUCT;I\CO_VAR  S:CLASSZ;I\SD_CLASS;I\SD_PRODUCT;I\SD_VAR

$SELECT  S:ITEM_NEW;I\SD_ITEM  

$SELECT  'S:CONT_MAST_NB;I\SD_CONT;I\SD_PRODUCT  'S:COM_ENQ_CONT;I\CO_CONT;I\CO_PRODUCT;I\CO_VAR;I\CO_CLASS;I\CO_SIZE  S:CONT_MAST_NB;I\SD_CONT;I\SD_PRODUCT;I\SD_VAR

$SELECT  'S:SIZE_NB2;I\SD_SIZE  'S:COM_ENQ_SIZE;I\CO_SIZE;I\CO_PRODUCT;I\CO_VAR;I\CO_CLASS  S:SIZEW;I\SD_SIZE;I\SD_PRODUCT;I\SD_CLASS;I\SD_VAR

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

$SELECT  S:PROVINCE;I\SD_PROV

$SELECT  A:CON;I\SD_CLASS;I\TMP1;I\SD_SIZE  S:COUNT_MAST_CNT;I\SD_COUNT;I\SD_PRODUCT;I\TMP1;I\SD_CONT    $VALIDATE  A:CONST;;I\TMP5,I\TMP6  I:I\SD_COUNT;<>;  DO(001)    A:CON;I\CLASS_TMP;I\GRADE_TMP;I\SIZE_TMP    'A:CON;I\CLASS;I\TMP1;I\SIZE    A:CONST;$I\SD_CLASS$$I\SD_SIZE$;I\TMP6    '''F:COUNT_MAST;;CNT_COUNT;TMP5=C

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

$DEFAULT  'GET USERS MARKET CODE - ZU_MARKET IN ZU_USER  A:ORG;;I\MARKET  'GET MARKET NAME FROM CLIENT MASTER  'F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\SD_MARKET$'  F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$'  'CONVERT TO FIRST CHARACTER UPPER CASE REST LOWER CASE  C:MCASE;;T\MARKET

$SELECT  S:CONSIGNMENT22;I\SD_CONSIGN;I\AGENT    $VALIDATE   A:CONST;;W\DELDATE,W\DELNO,W\FINALDATE    I:I\ORGS;<>;  DO(8888)  U:NEW_DELIV_ALLOW;TEST  I:I\ALLOW_NEW_DELIV;<>;  DO(5558)  I:I\ALLOW_NEW_DELIV;<>;Y  D:YOU ARE NOT ALLOWED TO AMEND CONSIGNMENTS;ERRORM;I\SD_CONSIGN  DOEND(5558)  DOEND(8888)    A:VAR;I\CONSIGN

$DEFAULT    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:ORGS;;I\AGENT    A:CONST;Y;I\UPDATE  A:USERIP;;I\IP  A:USERID;;I\USERID

$SELECT  S:CONT_MAST_NB;I\SD_CONT;I\SD_PRODUCT;I\SD_VAR  'S:COM_ENQ_CONT;I\CO_CONT;I\CO_PRODUCT;I\CO_VAR;I\CO_CLASS;I\CO_SIZE    $VALIDATE  'M:  C:UCASE  ^F:CONT_MAST;Y;CN_CONT;I\SD_CONTMASS=CN_MASS,T\CONT_NAME=CN_DESC,W\BLOCKED=CN_BLOCKED;CN_PRODUCT='$I\SD_PRODUCT$' AND CN_VAR='$I\SD_VAR$';I\SD_CONT    I:W\BLOCKED;=;Y

$SELECT  'S:CLASS_NB2;I\SD_CLASS;  'S:COM_ENQ_CLASS;I\CO_CLASS;I\CO_PRODUCT;I\CO_VAR  S:CLASSZ;I\SD_CLASS;I\SD_PRODUCT;I\SD_VAR    $VALIDATE  'M: 21 MAY 2008 LAZOLA  C:UCASE  I:I\SD_CLASS;<>;  DO(01)  F:COMMODITY_MAST;Y;;W\BLOCKED=CO_BLOCKED;CO_PRODUCT='$I\SD_PRODUCT$' AND CO_VAR='$I\SD_VAR$' AND CO_CLASS='$I\SD_CLASS$

$SELECT  'S:SIZE_NB2;I\SD_SIZE  S:SIZEW;I\SD_SIZE;I\SD_PRODUCT;I\SD_CLASS;I\SD_VAR    $VALIDATE  'M: 21 MAY 2008 LAZOLA  C:UCASE  I:I\SD_SIZE;<>;  DO(02)  F:COMMODITY_MAST;Y;;W\BLOCKED2=CO_BLOCKED;CO_PRODUCT='$I\SD_PRODUCT$' AND CO_VAR='$I\SD_VAR$' AND CO_CLASS='$I\SD_CLASS$' AND CO_SIZE='$I\SD_SIZE$';I\SD_SIZE  I:W\BL

'$SELECT  'S:ITEM_NEW;I\SD_ITEM    $SELECT  S:ITEM_SEL;I\SD_ITEM    $VALIDATE  A:LEN;I\SD_ITEM;I\TMP133  I:I\TMP133;<;4;NUM  D:PLEASE ENTER A FULL LENGTH ITEM CODE;ERRORM;I\SM_DELNO    C:UCASE  A:LEFT;I\SD_ITEM,2;I\SD_PRODUCT  A:RIGHT;I\SD_ITEM,2;I\SD_VAR    F:VAR_MAST;Y;;T\ITEM_DESC=VA_DESC;VA_PRODUCT='$I\SD_PRODUCT$'

$SELECT  S:COLOUR_ITEM;I\SD_COLOUR    $VALIDATE  C:UCASE  I:I\SD_COLOUR;<>;  F:COLOUR_MAST;Y;CLR_COLOUR;;;I\SD_COLOUR  F:COLOUR_MAST;;;T\COLOUR=CLR_DESC;CLR_COLOUR='$I\SD_COLOUR$';I\SD_COLOUR

'ADDED BY LP20121112 ON JANET'S REQUEST FOR PRETORIA MARKET  $VALIDATE  M:  C:UCASE        

$BEFORE_WRITE     A:VAR;I\SD_DATE;I\SD_DATE;;YYYY/MM/DD    U:UPD_COMMPERC  A:CONST;$I\SD_COMMP$;I\COMM_PERC    I:I\COMM_PERC;>;0  DO(COM)    'U:CONS_COMM_CHANGES;UPDATE_COMM  DOEND(COM)    $AFTER_WRITE      'U:CONSIGN_LEVY_RECALCULATE;CALC  A:CONST;;I\DT_FLAG