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

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

forward prototypes
global function integer f_refresh_mainwin_title (ref window arg_main_window)
end prototypes

global function integer f_refresh_mainwin_title (ref window arg_main_window);//f_refresh_mainwin_title



IF IsValid(arg_main_window) THEN
	arg_main_window.Title = Trim(sys_message_title)+' - '+Trim(publ_operator)
	IF sys_if_register = 0 THEN
		arg_main_window.Title = arg_main_window.Title + ' (未注册)'
	ELSE
		arg_main_window.Title = sys_message_username+' - '+Trim(publ_operator)
		IF sys_accsetbegin THEN
			arg_main_window.Title = arg_main_window.Title + '会计期间 【'+string(sys_curyearmon)+'】'
		end if
		
//		IF sys_accsetbegin THEN
//			arg_main_window.Title = sys_message_username + ' xxxx系统 【'+Trim(publ_operator)+'】会计期间 【'+string(sys_curyearmon)+'】'
//		ELSE
//			arg_main_window.Title = sys_message_username + ' xxxx系统 【'+Trim(publ_operator)+'】会计期间【未启用】'
//		END IF	
	END IF
END IF

RETURN 0


end function