DBN_SUPPL_MAN

$VALIDATE  C:UCASE  I:I\DEL_SUP;=;  A:CONST;N;I\DEL_SUP    V:Y;N  

$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  I:I\AGENT;<>;  S:SUPPLIER_MAST1;I\SUM_SUPPL;I\AGENT    I:I\AGENT;=;  S:SUPPLIER_MAST;I\SUM_SUPPL  

$SELECT  S:REASON5;I\SUM_BLK_REASON    

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

$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

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

$SELECT  S:AREA_CODE;I\SUM_AREA

$SELECT  S:CURRENCY;I\SUM_CURRENCY

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

$VALIDATE    'MANDATORY FIELD  M:  

$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

$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

'$DEFAULT  'A:PARM;3

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

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

$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$  'O:SETFOCUS;Z\ZX_UPDATE  'O:SHOW;H\PA

$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    

$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  C:UCASE

$VALIDATE    'MANDATORY FIELD  M:  

$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  

'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

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

$CALCULATE    I:I\DEL_SUP;=;N  DO(UP)  ''''$BEFORE_WRITE  'I:I\NEW;=;  'DO(01)  '  A:CONST;$T\DATE$;I\SUM_DATE_ENTERED  '  A:VAR;I\SUM_DATE_ENTERED;I\SUM_DATE_ENTERED;;YYYY/MM/DD  'DOEND    I:I\SUM_DATE_ENTERED;=;  DO(01)    A:CONST;$T\DATE$;I\SUM_DATE_ENTERED    A:VAR;I\SUM_DATE_ENTERED;I\SUM_DATE_ENTERED;;YYYY/MM/DD 

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

$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 

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

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

'RK200910  $SELECT  S:AREA_CODE;I\SA_PCODE2      $VALIDATE    A:VAR;I\SUM_AREA;I\SA_PCODE2      '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, DISPL

$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  

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

$SELECT  S:ADDR_TYPE;I\SA_TYPE2

$SELECT  S:AREA_CODE;I\SA_PCODE2  

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

$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    'MANDATORY FIELD  M:    'CONVERT TO UPPERCASE  C:UCASE  

$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

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

$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

$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    $VALIDATE    'MANDATORY FIELD  M:      '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 T

$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  '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 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  'CONVERT TO UPPERCASE  C:UCASE  

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

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

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

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

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

$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  

'$SELECT  $BEFORE_WRITE  '$CALCULATE  '$VALIDATE  '$SELECT        'W:SUPPLIER_MAST;Y;;SUM_SUPPL=I\SUM_SUPPL;SUM_SUPPL='$I\SUM_SUPPL$'  W:SUPPLIER_MAST;;;SUM_NAME=I\SUM_NAME,SUM_ID_NO=I\SUM_ID_NO,SUM_VAT_NO=I\SUM_VAT_NO,SUM_INC_TAX_NO=I\SUM_INC_TAX_NO,SUM_TRADE_NAME=I\SUM_TRADE_NAME,SUM_COMP_NAME=I\SUM_COMP_NAME,SUM_REG