FXApp/ws_objects/plugins_publ.pbl.src/w_kms_messagebox_list.srw

$PBExportHeader$w_kms_messagebox_list.srw
forward
global type w_kms_messagebox_list from w_publ_base
end type
type cb_confirm from commandbutton within w_kms_messagebox_list
end type
type dw_1 from u_dw_rbtnfilter within w_kms_messagebox_list
end type
end forward

global type w_kms_messagebox_list from w_publ_base
integer width = 4622
integer height = 1836
string title = "异常列表"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 1073741824
cb_confirm cb_confirm
dw_1 dw_1
end type
global w_kms_messagebox_list w_kms_messagebox_list

type variables
uo_kms_set uo_open
int ins_rslt
end variables

on w_kms_messagebox_list.create
int iCurrent
call super::create
this.cb_confirm=create cb_confirm
this.dw_1=create dw_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_confirm
this.Control[iCurrent+2]=this.dw_1
end on

on w_kms_messagebox_list.destroy
call super::destroy
destroy(this.cb_confirm)
destroy(this.dw_1)
end on

event open;call super::open;uo_open = Message.Powerobjectparm
IF Not IsValid(uo_open) THEN RETURN
IF IsNull(uo_open) THEN RETURN

DataStore ds_source
ds_source = uo_open.ins_ds
IF ds_source.RowCount() > 0 THEN
	ds_source.RowsCopy(1, ds_source.RowCount(), Primary!, dw_1, 1, Primary!)
	Long ll_row
	s_kms_msg s_tmp
	FOR ll_row = 1 TO dw_1.RowCount()
		s_tmp = kms_GetKMS_MSG(dw_1.Object.msgid[ll_row],dw_1.Object.arg0[ll_row],dw_1.Object.arg1[ll_row],dw_1.Object.arg2[ll_row],dw_1.Object.arg3[ll_row],dw_1.Object.arg4[ll_row])
		dw_1.Object.msg[ll_row] = s_tmp.msg
		dw_1.Object.DocCode1[ll_row] = s_tmp.DocCode1
		dw_1.Object.DocCode2[ll_row] = s_tmp.DocCode2
	NEXT
END IF

//IF s_open.Msgtype = 0 THEN
//	// 弹出警告界面, 如果 s_rslt.DocCode1/DocCode2(操作说明文章码/解决办法文章码) 有内容，分别提供连接转到文章
//	This.icon = "Error!"
//	This.Title = "错误信息"
//	cb_cancle.Visible = false
//	cb_confirm.x = (this.workspacewidth() - cb_confirm.width) / 2
//	ins_rslt = 1
//ELSEIF s_open.Msgtype = 1 THEN
//	This.icon = "Question!"
//	This.Title = "询问"
//ELSE
//	This.Title = "成功"
//	cb_cancle.Visible = false
//	cb_confirm.x = (this.workspacewidth() - cb_confirm.width) / 2
//	ins_rslt = 1
//END IF
////IF s_rslt.Msgtype = 0 THEN
//
////	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
//
//
//mle_1.Text = s_open.Msg
//st_1.Text = "提示代码:" + s_open.msgid
end event

event close;call super::close;closewithreturn(this, ins_rslt)
end event

event resize;call super::resize;dw_1.Width = this.workspacewidth() - 10*2
end event

type cb_func from w_publ_base`cb_func within w_kms_messagebox_list
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_kms_messagebox_list
boolean visible = false
end type

type cb_confirm from commandbutton within w_kms_messagebox_list
integer x = 2144
integer y = 1628
integer width = 325
integer height = 84
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;ins_rslt = 1
close(parent)
end event

type dw_1 from u_dw_rbtnfilter within w_kms_messagebox_list
integer x = 9
integer y = 40
integer width = 4562
integer height = 1552
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_kms_set"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event clicked;call super::clicked;IF row<= 0 THEN RETURN
String ls_doccode
IF dwo.name = 'compute_1' THEN
	ls_doccode = this.Object.DocCode1[row]
	IF Len(ls_doccode) > 0 THEN
		kms_showdoc(ls_doccode)
	ELSE
		Messagebox('','知识库暂未收录该提示的操作说明"')
	END IF
ELSEIF dwo.name = "compute_2" THEN
	ls_doccode = this.Object.DocCode2[row]
	IF Len(ls_doccode) > 0 THEN
		kms_showdoc(ls_doccode)
	ELSE
		Messagebox('','知识库暂未收录该提示的解决方案"')
	END IF
END IF
end event