SUPPL_ADDR

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

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

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

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  

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

$SELECT  I:I\AGENT;<>;  S:SUPPLIER_MAST1;I\SA_CODE;I\AGENT  I:I\AGENT;=;  S:SUPPLIER_MAST;I\SA_CODE    $CALCULATE  F:SUPPL_ADDR;;;I\SA_TYPE=SA_TYPE;SA_CODE='$I\SA_CODE$' AND SA_DEFAULT='Y'    $VALIDATE  A:CONST;;I\SUPLNAME,T\NAME  'MANDATORY FIELD  M:  'CONVERT TO UPPERCASE  C:UCASE    'ZERO FILL THIS FIELD TO SIX DIGI

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

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

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

$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_PCODE    $VALIDATE    'RK200910  C:UCASE    'CHECKS IF DEFAULT ADDR, IF SO, MANDATORY  I:I\SA_DEFAULT;=;Y  M:    CHECKS IF THE VALUE ENTERED IS NUMERIC  I:I\SA_PCODE;<>;  DO(1)   A:ISNUMERIC;I\SA_PCODE;I\TMP1     IF IT IS NOT NUMERIC, DISPLAY AN ERROR   I:I\TMP1;=;N   D:POSTAL CODE 

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

$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

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

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

$DEFAULT    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000      'A:PARM;1;I\AGENT  'A:PARM;2;I\SA_CODE      $BEFORE_DELETE  I:I\SA_CODE;=;    DO(0003)     I:I\SA_TYPE;=;     I:I\SA_CONT_FNAME;=;     I:I\SA_CONT_SNAME;=;     D:NO RECORD SELECTED TO DELETE;ERRORM;I\SA_CODE     DOEND(0003)      I:I\SA_

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

$SELECT  S:ADDR_TYPE;I\SA_TYPE

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

$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:I\SA_FAX_EMAIL;=;  A:CONST;F;I\SA_FAX_EMAIL    C:UCASE    V:F;E;

$SELECT  S:AREA_CODE;I\SA_PCODE  

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

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

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

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

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

$VALIDATE  I:W\E3;=;  A:CONST;00;W\E3  A:ZEROFILL;W\E3,2,W\E3    '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\S1,W\S2,W\S3,W\E1,W\E2,W\E3,W\MS1,W\MS2,W\MS3,W\ME1,W\ME2,W\ME3  O:SETFOCUS;I\SA_ROAD_DIST