FXApp/ws_objects/plugins_publ.pbl.src/kms_messagebox.srf

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

forward prototypes
global function integer kms_messagebox (string msgid)
global function integer kms_messagebox (string msgid, string arg0)
global function integer kms_messagebox (string msgid, string arg0, string arg1)
global function integer kms_messagebox (string msgid, string arg0, string arg1, string arg2)
global function integer kms_messagebox (string msgid, string arg0, string arg1, string arg2, string arg3)
global function integer kms_messagebox (string msgid, string arg0, string arg1, string arg2, string arg3, string arg4)
global function integer kms_messagebox (uo_kms_set kms_set)
end prototypes

global function integer kms_messagebox (string msgid);
RETURN kms_messagebox(msgid,"","","","","")
end function

global function integer kms_messagebox (string msgid, string arg0);
RETURN kms_messagebox(msgid,arg0,"","","","")
end function

global function integer kms_messagebox (string msgid, string arg0, string arg1);
RETURN kms_messagebox(msgid,arg0,arg1,"","","")
end function

global function integer kms_messagebox (string msgid, string arg0, string arg1, string arg2);
RETURN kms_messagebox(msgid,arg0,arg1,arg2,"","")
end function

global function integer kms_messagebox (string msgid, string arg0, string arg1, string arg2, string arg3);
RETURN kms_messagebox(msgid,arg0,arg1,arg2,arg3,"")
end function

global function integer kms_messagebox (string msgid, string arg0, string arg1, string arg2, string arg3, string arg4);s_kms_msg s_rslt
s_rslt = kms_GetKMS_MSG(msgid,arg0,arg1,arg2,arg3,arg4)
//IF sys_yunreg_cusid <> 0 THEN
	OpenWithParm(w_kms_messagebox,s_rslt)
	
	int li_return
	li_return = Message.doubleparm
	RETURN li_return
//ELSE
//	IF s_rslt.Msgtype = 1 THEN
//		RETURN MessageBox ("",s_rslt.msg,Question!,YesNo! )
//	ELSE
//		return MessageBox('', s_rslt.Msg)
//	END IF
//END IF
//IF s_rslt.Msgtype = 0 THEN
//	// TODO: 弹出警告界面, 如果 s_rslt.DocCode1/DocCode2(操作说明文章码/解决办法文章码) 有内容，分别提供连接转到文章
//	fmessagebox(s_rslt.Msg)
//	return 0
//ELSEIF s_rslt.Msgtype = 1 THEN
//	// TODO: 弹出询问界面, 如果 s_rslt.DocCode1/DocCode2(操作说明文章码/解决办法文章码) 有内容，分别提供连接转到文章
//	RETURN MessageBox('', s_rslt.Msg, Question!, YesNo!, 1)
//ELSE
//	// 成功提示
//	return MessageBox('', s_rslt.Msg)
//END IF
end function

global function integer kms_messagebox (uo_kms_set kms_set);
OpenWithParm(w_kms_messagebox_list,kms_set)

int li_return
li_return = Message.doubleparm
RETURN li_return
end function