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

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

forward prototypes
global function integer f_set_sysmessage ()
end prototypes

global function integer f_set_sysmessage ();//f_set_sysmessage
String ls_message_title
int rslt = 1

SELECT top 1
	u_sys_message.Username,
	u_sys_message.sys_message_title,
	u_sys_message.sys_message_report_title,
	u_sys_message.sys_message_customer_TEL,
	u_sys_message.sys_message_customer_sit,
	u_sys_message.sys_message_customer_sitcode,
	u_sys_message.sys_showsaledata_mindt,
	u_sys_message.sys_message_customer_bank,
	u_sys_message.sys_message_customer_fax,
	u_sys_message.sys_message_customer_bankname
	INTO :sys_message_username,
	:ls_message_title,
	:sys_message_report_title,
	:sys_message_customer_tel,
	:sys_message_customer_sit,
	:sys_message_customer_sitcode,
	:sys_showsaledata_mindt,
	:sys_message_customer_bank,
	:sys_message_customer_fax,
	:sys_message_customer_bankname
	From u_sys_message  ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
END IF

if isnull(sys_showsaledata_mindt) then sys_showsaledata_mindt = datetime('2000-01-01')
if sys_showsaledata_mindt < datetime('2000-01-01') then sys_showsaledata_mindt = datetime('2000-01-01')

sys_message_title = sys_SoftWareName +' '+sys_versionName

IF sys_if_network = 0 THEN //单机版
	sys_message_title += "[单机]  "
ELSE
	sys_message_title += "[网络]  "
END IF

sys_message_title += ls_message_title 


RETURN rslt


end function