Q5/ws_objects/Ew_mainface.pbl.src/f_init_version.srf

$PBExportHeader$f_init_version.srf
global type f_init_version from function_object
end type

forward prototypes
global subroutine f_init_version ()
end prototypes

global subroutine f_init_version ();
sys_Version_arr[1] = "商业版"
sys_Version_arr[2] = "工业版"
sys_Version_arr[3] = "工业版+"
end subroutine