Q5/ws_objects/Ew_ljfieb.pbl.src/w_cuscomm_list_ch.srw

$PBExportHeader$w_cuscomm_list_ch.srw
forward
global type w_cuscomm_list_ch from w_publ_choice
end type
type cbx_1 from checkbox within w_cuscomm_list_ch
end type
end forward

global type w_cuscomm_list_ch from w_publ_choice
integer width = 3611
integer height = 1680
string title = "企业通信列表"
cbx_1 cbx_1
end type
global w_cuscomm_list_ch w_cuscomm_list_ch

type variables
Long ins_CusType
s_cuscomm_ljfieb INS_RT_STRU


Transaction tr_eb_sqlca
end variables

on w_cuscomm_list_ch.create
int iCurrent
call super::create
this.cbx_1=create cbx_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_1
end on

on w_cuscomm_list_ch.destroy
call super::destroy
destroy(this.cbx_1)
end on

event open;tr_eb_sqlca = sys_email_sqlca // 电子商务连接

This.TriggerEvent('ue_before_open')
wf_movetocenter()

if_ue_sort = True
dw_CH.SetTransObject (tr_eb_sqlca)

ins_CusType = Message.DoubleParm

dw_CH.Retrieve(ins_CusType)

end event

event close;call super::close;CLOSEWITHRETURN(THIS,INS_RT_STRU)
end event

type cb_func from w_publ_choice`cb_func within w_cuscomm_list_ch
end type

type cb_exit from w_publ_choice`cb_exit within w_cuscomm_list_ch
end type

type sle_ch from w_publ_choice`sle_ch within w_cuscomm_list_ch
boolean visible = false
end type

type dw_ch from w_publ_choice`dw_ch within w_cuscomm_list_ch
integer y = 176
integer width = 3589
string dataobject = "dw_CusComm_list_ch"
end type

type st_1 from w_publ_choice`st_1 within w_cuscomm_list_ch
boolean visible = false
end type

type cb_retrieve from w_publ_choice`cb_retrieve within w_cuscomm_list_ch
end type

event cb_retrieve::clicked;dw_CH.Retrieve(ins_CusType)
end event

type cb_choice from w_publ_choice`cb_choice within w_cuscomm_list_ch
end type

event cb_choice::clicked;call super::clicked;Long LS_ROW
LS_ROW = dw_CH.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('系统提示','请先选择目标行!',StopSign!)
	RETURN
END IF

INS_RT_STRU.CusCommID = dw_CH.Object.CusCommID[LS_ROW]
INS_RT_STRU.CusCode = dw_CH.Object.CusCode[LS_ROW]
INS_RT_STRU.CusName = dw_CH.Object.CusName[LS_ROW]
INS_RT_STRU.CusType = dw_CH.Object.CusType[LS_ROW]


Close(Parent)

end event

type ln_bar from w_publ_choice`ln_bar within w_cuscomm_list_ch
end type

type ln_bar2 from w_publ_choice`ln_bar2 within w_cuscomm_list_ch
end type

type r_bar from w_publ_choice`r_bar within w_cuscomm_list_ch
end type

type ln_1 from w_publ_choice`ln_1 within w_cuscomm_list_ch
boolean visible = false
end type

type ln_2 from w_publ_choice`ln_2 within w_cuscomm_list_ch
boolean visible = false
end type

type cbx_1 from checkbox within w_cuscomm_list_ch
integer x = 640
integer y = 60
integer width = 457
integer height = 92
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "全部"
end type

event constructor;this.backcolor = 14215660
end event

event clicked;IF This.Checked THEN
	dw_CH.Retrieve(-1)
ELSE
	dw_CH.Retrieve(ins_CusType)
END IF

end event