WHOLESALE_SUP_MAN

$SELECT  S:AREA_CODE;I\SUM_AREA

$SELECT  S:CURRENCY;I\SUM_CURRENCY

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

$SELECT  S:REASON5;I\SUM_BLK_REASON    

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

$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 

$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      A:CONST;;I\SUM_AUTH    I:I\MARKET;<>;18  O:HIDE;I\SUM_MKT_SUPPL,T\SUM_MKT_SUPPL

'$DEFAULT  'A:PARM;3

$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

$VALIDATE  C:UCASE

'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  M:  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 B

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

'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    'DEFAULT TO 'TO FOLLOW'  I:I\VAT_NUMBER;=;  A:CONST;TO FOLLOW;I\VAT_NUMBER    M:

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

$SELECT  S:ADDR_TYPE;I\SA_TYPE2

$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'    U:SUPPL_ADDR_CHECK;CHECK  $VALIDATE  A:CONST;;I\SUPLNAME2,T\NAME2  'MANDATORY FIELD  M:  'CONVERT TO UPPERCASE  C:UCASE  

$SELECT  S:AREA_CODE;I\SA_PCODE2  

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

$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:  I:I\SA_TYPE2;<>;01  D:ENTER ONLY '01' FOR PHYSICAL ADDRESS;ERRORM;I\SA_TYPE2    '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 VA

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

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

$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      'ONLY PERFORMS THIS CODE IF FIELD IS NOT LEFT BLANK    I:I\MARKET2;<>;L1  DO(NOTL1)  I:I\TELNO;<>;      DO(CELL)        'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD        A:LEN;I\TELNO;I\TMP62        I:I\TMP62;<;10        D:TELEPHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;

$VALIDATE  'MANDATORY FIELD    'DO THE FOLLOWING IF THE THIS FIELD IS NOT EMPTY  I:I\EMAIL_ADD;<>;     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\EMAIL_ADD    DOEND(001)

'$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    A:CONST;Y;I\WSALE  'W:SUPPLIER_MAST;Y;;SUM_MARKET=I\MARKET,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_RET_PALL=K\SUM_RET_PALL,SUM_COUNTRY=I\SUM_COUNTRY,SUM_COOP_MEMBER=K\SUM_COOP_MEMBER,S