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

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

forward prototypes
global function integer f_sys_switch (integer arg_flag)
global function integer f_sys_updateswitch (integer arg_flag)
end prototypes

global function integer f_sys_switch (integer arg_flag);int rslt=1
Update sys_DB_version set switchflag=:arg_flag;
if sqlca.sqlcode<>0 then
	rslt=0
end if
commit;
return rslt
end function

global function integer f_sys_updateswitch (integer arg_flag);int rslt=1
Update sys_DB_version set switchflag=:arg_flag;
if sqlca.sqlcode<>0 then
	rslt=0
end if
commit;
return rslt
end function