SUPPLIER_MAN

$DEFAULT  A:PARM;2  A:VAR;I\SUM_SUPPL;I\TMP_SUPPL  O:SHOWUPDATE    $SELECT  I:I\AGENT;<>;  DO(AGN)  I:I\MARKET;<>;60  S:SUPPLIER_MAST1;I\SUM_SUPPL;I\AGENT  I:I\MARKET;=;60  S:SUPPLIER_MAST;I\SUM_SUPPL;I\AGENT  DOEND(AGN)    I:I\AGENT;=;  S:SUPPLIER_MAST;I\SUM_SUPPL    ++++++++++++++++++++++++++++++++++++++  'SELECTING 

$SELECT  I:I\AGENT;<>;  S:SUPPLIER_MAST1;I\SUM_SUPPL;I\AGENT    I:I\AGENT;=;  S:SUPPLIER_MAST;I\SUM_SUPPL  

'JER ADD 08042011 B  $DEFAULT  A:CONST;;W\SUPP_NAME;  'JER ADD 08042011 E      $CALCULATE  M:  ''TAKEN OUT AS PER CHRISTO'S REQUEST ON 02/07/2021  ''C:UCASE    'JER ADD 08042011 B  O:SETFOCUS;D\SUM_LANGUAGE    I:I\SUM_NAME;<>;      U:SM_UPD_FUZZY;RN_GEN_FUZZY      U:U_SUP_CHECK;BATCH  I:W\SUPP_NAME;=;  DO(001)    U:SM_

$SELECT  S:AREA_CODE;I\SUM_AREA    $VALIDATE  C:UCASE  F:AREA_MAST;Y;;T\AREA_DESC=AR_DESC,I\SUM_AREA=AR_CODE;AR_CODE='$I\SUM_AREA$';I\SUM_AREA  C:MCASE;;T\AREA_DESC

$SELECT  S:SALESMAN_AGENT;I\SUM_SMAN;I\AGENT    $CALCULATE  M:    F:SALESMAN_MAST;Y;;;SLS_CODE='$I\SUM_SMAN$' AND SLS_AGENT='$I\AGENT$'

$VALIDATE    A:CONST;;I\TMP2    I:I\SUM_ID_NO;=;TO FOLLOW  A:CONST;;I\SUM_ID_NO    I:I\MARKET;<>;L1  DO(NOTL1)  I:I\SUM_ID_NO;<>;     DO(001)       'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD        A:LEN;I\SUM_ID_NO;I\TMP2       'IF LENGTH IS < 13, DISPLAY AN ERROR       I:I\TMP2;<;13;NUM       D:ID NUMBER CANNOT BE 

$SELECT  S:REASON5;I\SUM_BLK_REASON  M:    $CALCULATE  I:I\SUM_BLK_REASON;<>;    DO(Z88)      M:      C:UCASE      F:REASON_MAST;Y;RSN_REASON;T\REASON=RSN_DESC;RSN_TYPE = 'BL';I\SUM_BLK_REASON    DOEND(Z88)  

$VALIDATE    'DEFAULT TO 'TO FOLLOW'  I:I\SUM_VAT_NO;=;  A:CONST;TO FOLLOW;I\SUM_VAT_NO    M:  'A:ISNUMERIC;I\SUM_VAT_NO;I\TMP4  'I:I\TMP4;<>;Y  'D:VAT NUMBER MUST BE NUMERIC;ERRORM;I\SUM_VAT_NO

$VALIDATE    'DEFAULT TO 'TO FOLLOW'  I:I\SUM_INC_TAX_NO;=;  A:CONST;TO FOLLOW;I\SUM_INC_TAX_NO    M:    'A:ISNUMERIC;I\SUM_INC_TAX_NO;I\TMP5  'I:I\TMP5;<>;Y  'D:TAX NUMBER MUST BE NUMERIC;ERRORM;I\SUM_INC_TAX_NO  

$VALIDATE  I:I\SUM_FINYEAR_END;=;  A:CONST;02;I\SUM_FINYEAR_END    A:ISNUMERIC;I\SUM_FINYEAR_END;I\TMP1    I:I\TMP1;=;N  D:MUST BE NUMERIC VALUE;ERRORM;I\SUM_FINYEAR_END    A:VAR;I\SUM_FINYEAR_END;I\SUM_FINYEAR_END;;00    I:I\SUM_FINYEAR_END;<;01  D:CANNOT BE LESS THAN 1;ERRORM;I\SUM_FINYEAR_END    I:I\SUM_FINYEAR_END;

'JER ADD 08042011   $CALCULATE    'JER ADD 08042011 B    I:K\SUM_BLOCKED;=;1      O:ENABLEINPUT;I\SUM_BLK_REASON,C\3     I:K\SUM_BLOCKED;<>;1  DO(001)    A:CONST;;I\SUM_BLK_REASON    A:CONST;;T\REASON    O:DISABLEINPUT;I\SUM_BLK_REASON,C\3    DOEND(001)  

$VALIDATE  C:UCASE

$SELECT  S:CURRENCY;I\SUM_CURRENCY    $CALCULATE  A:CONST;;T\CURRENCY  C:UCASE  F:CURRENCY_MAST;Y;CU_CODE;T\CURRENCY=CU_DESC;;I\SUM_CURRENCY    

$DEFAULT    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'FIXED BY JD 20130320. THIS WAS NOT TESTED AT ALL!!!  'JER ADD 14032013 B  O:HIDE;I\SUM_SMAN  O:HIDE;T\SUM_SMAM  O:HIDE;T\SUM_SMAMC  O:DISABLEINPUT;I\SUM_SMAM   'JER ADD 14

$SELECT  S:CURRENCY;I\SUM_CURRENCY

$DEFAULT  B:ADDITEM;D\SUM_LANGUAGE;ENG,AFR,XHO,ZUL    $VALIDATE  C:UCASE  I:D\SUM_LANGUAGE;=;  A:CONST;ENG;D\SUM_LANGUAGE  M:  B:VALIDATE;D\SUM_LANGUAGE;ENG,AFR,XHO,ZUL

$DEFAULT  'LOAD MARKET CODE AND AGENT CODE    'A:PARM;3;I\AGENT    A:ORG;;I\MARKET  A:ORGS;;I\AGENT    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\DUMMY_SUPPL=CM_DUMMY_SUPPLIER  C:MCASE;;T\MARKET    I:I\MARKET;<>;18  O:HIDE;I\SUM_MKT_SUPPL,T\SUM_MKT_SUPPL

$SELECT  S:AREA_CODE;I\SUM_AREA

'$DEFAULT  'A:PARM;3

$DEFAULT  A:PARM;1    $AFTER_WRITE  I:I\ZV_CODE;<>;  W:ZV_USER_DEFAULTS;Y;;ZV_CODE=I\ZV_CODE,ZV_TEXT=I\SUM_SUPPL;ZV_CODE='$I\ZV_CODE$'    U:WRITE_SUPPL_AGENT;UPDATE    I:I\NEW;=;  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P SUPPL_ADDR $I\AGENT$ $I\SUM_SUPPL$    A:CONST;;I\NEW

$SELECT  S:REASON5;I\SUM_BLK_REASON      

$SELECT  S:SALESMAN_AGENT;I\SUM_SMAN;I\SUM_AGENT_CODE

$UPDATE  'ADDED BY LP20100903 ON CHRISTO'S REQUEST   U:GBL_AUDIT;ON