Val = #DEF_VAL;

val = 1024  && значение из H-файла

* Если значение есть в INI, то взять значение из INI
if existInINI()
    val = getFromINI()
endif

*-- Можно "упростить" код даже так:
#DEFINE _PARM1 getFromINI("parm1", 1024)
val = _PARM1

PROCEDURE Read_Vars

ACTIVATE SCREEN

    IF !USED('shop_vars')
        USE &cVarPath.shop_vars IN 0
    ENDIF

    
    SELECT shop_vars
    GO TOP
    DO WHILE !EOF()
        s1000 = 'PUBLIC '+ name
        &s1000
        DO CASE
            CASE type = 'N'
                s1000 = name + '='+ ALLTRIM( cValue)
            CASE type = 'L'
                s1000 = name + '='+ ALLTRIM( cValue)
            CASE type = 'C'
                s1000 = name + '="'+ ALLTRIM( cValue) + '"'
            OTHERWISE
                WAIT WINDOW 'unknown var type'
        ENDCASE
        &s1000
? s1000
        SKIP
    ENDDO
    
*   USE
    
    RETURN
ENDPROC

#define cd_logic_yes    1
#define cd_logic_no        0

#define cd_sex_male        1
#define cd_sex_female    2

#define right_system    1000

    #define right_admin    right_system + 10

    #define right_role    right_system + 20

        #define right_role_add    right_role + 1
        #define right_role_upd    right_role + 2
        #define right_role_del    right_role + 3

    #define right_user    right_system + 30

        #define right_user_add    right_user + 1
        #define right_user_upd    right_user + 2
        #define right_user_del    right_user + 3

    #define right_country    right_system + 70

        #define right_country_add    right_country + 1
        #define right_country_upd    right_country + 2
        #define right_country_del    right_country + 3

    #define right_region    right_system + 80

        #define right_region_add    right_region + 1
        #define right_region_upd    right_region + 2
        #define right_region_del    right_region + 3

    #define right_city    right_system + 90

        #define right_city_add    right_city + 1
        #define right_city_upd    right_city + 2
        #define right_city_del    right_city + 3

#define err_ok                            0

#define    err_app                            100

#define err_sql                         700
#define err_sql_connect_failed             err_sql+1
#define err_sql_disconnect_failed         err_sql+2
#define err_sql_query_failed             err_sql+3
#define err_sql_trn_commit_failed         err_sql+4
#define err_sql_put_file_failed            err_sql+5
#define err_sql_get_file_failed            err_sql+6
#define err_sql_connect_lost             err_sql+7
#define err_sql_auth_failed             err_sql+8
#define err_sql_trn_rollback_failed     err_sql+9
#define err_sql_trn_begin_failed         err_sql+10
#define err_sql_trn_end_failed             err_sql+11

#define cd_document_passport    1
#define cd_document_id            2
#define cd_document_license        3
#define cd_document_diplome        4