SUPPLIER_ADDR_MAN2

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

$SELECT  S:CURRENCY;I\SUM_CURRENCY

$SELECT  S:AREA_CODE;I\SUM_AREA

$SELECT  S:REASON5;I\SUM_BLK_REASON      

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

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

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

$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

$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

'$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 A SUPPL_ADDR $I\AGENT$ $I\SUM_SUPPL$    A:CONST;;I\NEW

'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  A:CONST;;W\DEFAULT2,W\DEFAULT22,W\DEFAULT32    'CONVERT TEXT CASE INTO UPPER CASE  C:UCASE    'ALLOW ONLY THIS INPUT  V:N;Y      I:I\SA_DEFAULT2;=;Y  DO(9)  I:W\DEF2;<>;Y    DO(LP)     I:W\DEFAULT22;<>;N       DO(004)         'CALL USER ROUTINE FROM VB CODE POP WINDOW TO SET Y IN DEFAULT FIELD          U:D

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE2  A:TIME;HH:MM:SS;T\TIME2  A:TIMER_ON;1000      'A:PARM;1;I\AGENT2  'A:PARM;2;I\SA_CODE2      $BEFORE_DELETE  I:I\SA_CODE2;=;    DO(0003)     I:I\SA_TYPE2;=;     I:I\SA_CONT_FNAME2;=;     I:I\SA_CONT_SNAME2;=;     D:NO RECORD SELECTED TO DELETE;ERRORM;I\SA_CODE2     DOEND(0003)    

$DEFAULT  'LOAD MARKET CODE    A:PARM;1;I\AGENT2  A:PARM;1;I\AGENT12  A:PARM;2;I\SA_CODE2      A:ORG;;I\MARKET2  I:I\AGENT2;=;  DO(AGR)    A:ORGS;;I\AGENT2    A:ORGS;;I\AGENT12  DOEND(AGR)    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET2=CM_NAME  C:MCASE;;T\MARKET2    'TEST!!!!!!!!!  'U:GBL_AUDIT;OFF    'TEST!!!

$VALIDATE  'MANDATORY FIELD  'M:  'CONVERT TO UPPERCASE  C:UCASE

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  

$VALIDATE  'MANDATORY FIELD    'DO THE FOLLOWING IF THE THIS FIELD IS NOT EMPTY  I:I\SA_EMAIL2;<>;     DO(001)     'CHECKS FOR AN '@' SYMBOL IN THE EMAIL ADDRESS     U:NUMBER_VALIDATE;EMAIL_CHK;I\SA_EMAIL2,@,I\TMP72     I:I\TMP72;=;N     D:EMAIL ADDRESS MUST CONTAIN THE @ SYMBOL;ERRORM;I\SA_EMAIL2    DOEND(001)

$SELECT  'CALLS THE ADDR_TYPE SELECTION  S:ADDR_TYPE;I\SA_TYPE2    $VALIDATE  'A:CONST;;W\DEF2  'MANDATORY FIELD  M:      'PUT ZERO AS FIRST CHARACTER  A:LEN;I\SA_TYPE2;W\TEMP52  A:ZEROFILL;I\SA_TYPE2,2;I\SA_TYPE2     'LOOKS UP THE ENTERED VALUE IN THE DATABASE. IF IT DOES NOT EXIST, DISPLAY AN ERROR      F:ADDR_TYPE;Y

$SELECT  I:I\AGENT2;<>;  S:SUPPLIER_MAST1;I\SA_CODE2;I\AGENT2  I:I\AGENT2;=;  S:SUPPLIER_MAST;I\SA_CODE2    $CALCULATE  F:SUPPL_ADDR;;;I\SA_TYPE2=SA_TYPE;SA_CODE='$I\SA_CODE2$' AND SA_DEFAULT='Y'    $VALIDATE  A:CONST;;I\SUPLNAME2,T\NAME2  'MANDATORY FIELD  M:  'CONVERT TO UPPERCASE  C:UCASE    'ZERO FILL THIS FIELD TO

$VALIDATE  'CONVERT TO UPPERCASE  ''TAKEN OUT AS PER CHRISTO'S REQUEST ON 02/07/2021  ''C:UCASE    'I:I\SA_DEFAULT;=;Y  'M:                       CHANGED BY LAZ ON CHRISTO'S REQUEST 30/10/2008

'RK200910  $SELECT  S:AREA_CODE;I\SA_PCODE2    $VALIDATE    'RK200910  C:UCASE    'CHECKS IF DEFAULT ADDR, IF SO, MANDATORY  I:I\SA_DEFAULT2;=;Y  M:    CHECKS IF THE VALUE ENTERED IS NUMERIC  I:I\SA_PCODE2;<>;  DO(1)   A:ISNUMERIC;I\SA_PCODE2;I\TMP12     IF IT IS NOT NUMERIC, DISPLAY AN ERROR   I:I\TMP12;=;N   D:POSTAL

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  

$SELECT  S:ADDR_TYPE;I\SA_TYPE2

$VALIDATE    I:I\SA_DEFAULT2;=;Y  M:    'CONVERT TO UPPERCASE  C:UCASE  

$VALIDATE  'ONLY PERFORMS THIS CODE IF FIELD IS NOT LEFT BLANK    I:I\MARKET2;<>;L1  DO(NOTL1)  I:I\SA_CELLNO2;<>;      DO(CELL)        'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD        A:LEN;I\SA_CELLNO2;I\TMP62        I:I\TMP62;<;10        D:CELLPHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\SA_CELLNO2    

$VALIDATE  'ONLY PERFORMS THIS CODE IF FIELD IS NOT LEFT BLANK  'I:I\SA_TELNO3;<>;     'DO(CCK2)      'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD      'A:LEN;I\SA_TELNO3;I\TMP4      'I:I\TMP4;<;10;NUM      'D:PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\SA_TELNO3      'CLEAR THE TEMP FIELD      'A:CONST;;I\

$VALIDATE  I:W\S12;=;  A:CONST;00;W\S12  A:ZEROFILL;W\S12,2,W\S12

$VALIDATE  I:I\SA_FAX_EMAIL2;=;  A:CONST;F;I\SA_FAX_EMAIL2    C:UCASE    V:F;E;

$SELECT  S:AREA_CODE;I\SA_PCODE2  

$DEFAULT  'ADDS ITEMS TO THE DROPDOWN LIST  B:ADDITEM;D\SA_TITLE2;MR,MRS,MISS,DR,PROF,REV,    $VALIDATE  C:UCASE  'ONLY ALLOWS THE SPECIFIED VALUES TO BE ENTERED  B:VALIDATE;D\SA_TITLE2;MR,MRS,MISS,DR,PROF,REV,

$VALIDATE  'MANDATORY FIELD  'M:  'CONVERT TO UPPERCASE  C:UCASE

  $VALIDATE  A:CONST;;W\DEFAULT2,W\DEFAULT22,W\DEFAULT32    'CONVERT TEXT CASE INTO UPPER CASE  C:UCASE    'ALLOW ONLY THIS INPUT  V:N;Y    I:I\SA_DEFAULT2;=;Y  DO(9)  I:W\DEF2;<>;Y    DO(LP)     I:W\DEFAULT22;<>;N       DO(004)         'CALL USER ROUTINE FROM VB CODE POP WINDOW TO SET Y IN DEFAULT FIELD          U:DEF

$VALIDATE  'ONLY PERFORMS THIS CODE IF FIELD IS NOT LEFT BLANK  'I:I\SA_TELNO1;<>;  'DO(CHKK)     'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD      'A:LEN;I\SA_TELNO1;I\TMP2     'IF LENGTH IS < 10, DISPLAY AN ERROR     'I:I\TMP2;<;10;NUM     'D:PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\SA_TELNO1     'CLEA

$VALIDATE  'ONLY PERFORM THIS CODE IF FIELD IS NOT LEFT BLANK  'I:I\SA_TELNO2;<>;   ' DO(CCK)      'PUT THWE LENGTH OF THE FIELD INTO A TEMP FIELD    '  A:LEN;I\SA_TELNO2;I\TMP3      'CHECK IF THE LENGTH IS 10, IF NOT DISPLAY AN ERROR     ' I:I\TMP3;<;10;NUM      'D:PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM

$SELECT  I:I\AGENT2;<>;  S:SUPPLIER_MAST1;I\SA_CODE2;I\AGENT2  I:I\AGENT2;=;  S:SUPPLIER_MAST;I\SA_CODE2

$BEFORE_WRITE    'CONCATINATE GPS CO-ORDINATES SOUTH  A:CON;W\S1,W\S2;I\SA_GPSS;W\S3    'CONCATINATE GPS CO-ORDINATES EAST  A:CON;W\E1,W\E2;I\SA_GPSE;W\E3  ==========================================================================================================  ========================================================

$VALIDATE  I:W\S32;=;  A:CONST;00;W\S32  A:ZEROFILL;W\S32,2,W\S32

$VALIDATE  I:W\S22;=;  A:CONST;00;W\S22  A:ZEROFILL;W\S22,2,W\S22

$VALIDATE  I:W\E12;=;  A:CONST;00;W\E12  A:ZEROFILL;W\E12,2,W\E12

$VALIDATE  I:W\E22;=;  A:CONST;00;W\E22  A:ZEROFILL;W\E22,2,W\E22

$VALIDATE  I:W\E32;=;  A:CONST;00;W\E32  A:ZEROFILL;W\E32,2,W\E32    'O:SETFOCUS;C\CALC      '$CALCULATE  'U:CALCULATE_GPS_DISTANCE;CALC_GPS_DISTANCE;W\S1,W\S2,W\S3,W\E1,W\E2,W\E3,W\MS1,W\MS2,W\MS3,W\ME1,W\ME2,W\ME3

'$SCMD_FOCUS  'O:SETFOCUS;C\CALC  '0:BACKCOLOR;C\CALC;YELLOW    $SELECT  'U:CALCULATE_GPS;CALC_GPS      U:CALCULATE_GPS_DISTANCE;CALC_GPS_DISTANCE;W\S12,W\S22,W\S32,W\E12,W\E22,W\E32,W\MS12,W\MS22,W\MS32,W\ME12,W\ME22,W\ME32  O:SETFOCUS;I\SA_ROAD_DIST2  

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

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