Q5/ws_objects/Ew_report.pbl.src/w_rp_ware_alert.srw

$PBExportHeader$w_rp_ware_alert.srw
forward
global type w_rp_ware_alert from w_publ_easyq
end type
type rb_1 from radiobutton within w_rp_ware_alert
end type
type rb_2 from radiobutton within w_rp_ware_alert
end type
type ddlb_3 from uo_ddlb_storageid within w_rp_ware_alert
end type
type dw_2 from u_dw_rbtnfilter within w_rp_ware_alert
end type
type tv_1 from uo_tv_mtrltype within w_rp_ware_alert
end type
type cbx_1 from checkbox within w_rp_ware_alert
end type
end forward

global type w_rp_ware_alert from w_publ_easyq
string title = "库存报警表"
rb_1 rb_1
rb_2 rb_2
ddlb_3 ddlb_3
dw_2 dw_2
tv_1 tv_1
cbx_1 cbx_1
end type
global w_rp_ware_alert w_rp_ware_alert

type variables
Long cur_storageid_arr[]
String cur_handtype=''
Long cur_mtrlorigin = -1
long cur_ifpz=0
end variables

on w_rp_ware_alert.create
int iCurrent
call super::create
this.rb_1=create rb_1
this.rb_2=create rb_2
this.ddlb_3=create ddlb_3
this.dw_2=create dw_2
this.tv_1=create tv_1
this.cbx_1=create cbx_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.rb_1
this.Control[iCurrent+2]=this.rb_2
this.Control[iCurrent+3]=this.ddlb_3
this.Control[iCurrent+4]=this.dw_2
this.Control[iCurrent+5]=this.tv_1
this.Control[iCurrent+6]=this.cbx_1
end on

on w_rp_ware_alert.destroy
call super::destroy
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.ddlb_3)
destroy(this.dw_2)
destroy(this.tv_1)
destroy(this.cbx_1)
end on

event ue_before_open;call super::ue_before_open;dw_2.settransobject(sqlca)
end event

event resize;call super::resize;tv_1.Height = THIS.Height - (2300 - 1884)

dw_1.Width = THIS.Width - dw_1.x - 40
dw_1.Height = THIS.Height - (2300 - 1232)

dw_2.x = dw_1.x
dw_2.Y = THIS.Height - (2300 - 1540)
dw_2.Width = THIS.Width - dw_2.x - 40

end event

event ue_before_openretrieve;call super::ue_before_openretrieve;s_hide_col s_col_mtrlsectype
s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype' 
f_hide_col(1308,dw_1,s_col_mtrlsectype) 
f_hide_col(1308,dw_2,s_col_mtrlsectype)

s_hide_col s_col_zxmtrlmode
s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode' 
f_hide_col(1309,dw_1,s_col_zxmtrlmode)
f_hide_col(1309,dw_2,s_col_zxmtrlmode)

tv_1.f_maketree(-1)
end event

type cb_func from w_publ_easyq`cb_func within w_rp_ware_alert
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_ware_alert
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_ware_alert
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_ware_alert
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_ware_alert
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;//tv_1.f_maketree(-1)
if rb_1.checked then
	if cbx_1.checked then 
		dw_1.dataobject='dw_rp_ware_alert_up_nopz'
	else 
		dw_1.dataobject='dw_rp_ware_alert_up'
	end if 
end if 

if rb_2.checked then
	if cbx_1.checked then 
		dw_1.dataobject='dw_rp_ware_alert_down_nopz'
	else 
		dw_1.dataobject='dw_rp_ware_alert_down'
	end if 
end if
dw_1.settransobject(sqlca)
dw_1.retrieve(cur_mtrlorigin,cur_handtype)
end event

type st_3 from w_publ_easyq`st_3 within w_rp_ware_alert
boolean visible = false
integer x = 32
integer y = 224
end type

type st_4 from w_publ_easyq`st_4 within w_rp_ware_alert
boolean visible = false
integer x = 672
integer y = 232
end type

type em_1 from w_publ_easyq`em_1 within w_rp_ware_alert
boolean visible = false
integer x = 256
integer y = 212
end type

type em_2 from w_publ_easyq`em_2 within w_rp_ware_alert
boolean visible = false
integer x = 777
integer y = 216
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_ware_alert
integer x = 1632
integer y = 0
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_ware_alert
integer x = 1422
integer y = 4
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_ware_alert
integer x = 805
integer y = 308
integer width = 2254
integer height = 1232
string dataobject = "dw_rp_ware_alert_up"
boolean hsplitscroll = false
end type

event dw_1::rowfocuschanged;call super::rowfocuschanged;dw_1.SelectRow( 0, FALSE)
dw_1.SelectRow(currentrow, TRUE)

Long ll_mtrlid
String ls_status,ls_woodcode,ls_pcode

if  cbx_1.checked  then 
	dw_2.dataobject='dw_rp_ware_alert_noallocqty_nopz'
else 
	dw_2.dataobject='dw_rp_ware_alert_noallocqty'
end if 

IF dw_1.GetRow() > 0 THEN
	ll_mtrlid = dw_1.Object.u_mtrlware_mtrlid[dw_1.GetRow()]
	ls_status = dw_1.Object.u_mtrldef_maxminqty_status[dw_1.GetRow()]
	ls_woodcode = dw_1.Object.u_mtrldef_maxminqty_woodcode[dw_1.GetRow()]
	ls_pcode = dw_1.Object.u_mtrldef_maxminqty_pcode[dw_1.GetRow()]
	dw_2.settransobject(sqlca)
	dw_2.Retrieve( ll_mtrlid,ls_status,ls_woodcode,ls_pcode)
ELSE
	dw_2.Reset( )
END IF

end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_ware_alert
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_ware_alert
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_ware_alert
end type

type st_cust from w_publ_easyq`st_cust within w_rp_ware_alert
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_ware_alert
boolean visible = true
integer x = 1422
integer y = 100
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_rp_ware_alert
boolean visible = false
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_rp_ware_alert
boolean visible = false
end type

type pb_2 from w_publ_easyq`pb_2 within w_rp_ware_alert
boolean visible = false
end type

type cb_help from w_publ_easyq`cb_help within w_rp_ware_alert
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_ware_alert
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_ware_alert
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_ware_alert
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_ware_alert
end type

type r_bar from w_publ_easyq`r_bar within w_rp_ware_alert
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_ware_alert
long linecolor = 0
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_ware_alert
end type

type ln_3 from w_publ_easyq`ln_3 within w_rp_ware_alert
boolean visible = false
end type

type ln_4 from w_publ_easyq`ln_4 within w_rp_ware_alert
boolean visible = false
end type

type rb_1 from radiobutton within w_rp_ware_alert
integer y = 204
integer width = 288
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "超上限"
boolean checked = true
end type

event constructor;//this.backcolor = 14215660

end event

event clicked;cb_1.triggerevent(clicked!)
end event

type rb_2 from radiobutton within w_rp_ware_alert
integer x = 315
integer y = 204
integer width = 306
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "超下限"
end type

event constructor;//this.backcolor = 14215660

end event

event clicked;cb_1.triggerevent(clicked!)
end event

type ddlb_3 from uo_ddlb_storageid within w_rp_ware_alert
boolean visible = false
integer x = 14
integer y = 44
integer width = 622
integer height = 1108
integer taborder = 140
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_storageid_arr = this.uo_storageid_arr
end event

event selectionchanged;call super::selectionchanged;cur_storageid_arr = this.uo_storageid_arr
cb_1.triggerevent(clicked!)
end event

type dw_2 from u_dw_rbtnfilter within w_rp_ware_alert
integer x = 805
integer y = 1540
integer width = 2706
integer height = 652
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_rp_ware_alert_noallocqty"
boolean hscrollbar = true
boolean vscrollbar = true
end type

type tv_1 from uo_tv_mtrltype within w_rp_ware_alert
integer y = 300
integer width = 800
integer height = 1876
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;cur_handtype = this.uo_cur_info.handtype
cur_handtype = cur_handtype + '%'	

cb_1.triggerevent( clicked! )

end event

type cbx_1 from checkbox within w_rp_ware_alert
integer x = 795
integer y = 204
integer width = 457
integer height = 76
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 = "不考虑3个配置"
end type

event clicked;cb_1.triggerevent(clicked!)

Long ll_loginretr
IF This.Checked THEN
	ll_loginretr = 1
ELSE
	ll_loginretr = 0
END IF
//f_SetProfileString(sys_empid,DW_1.DataObject, "LOGIN_RETRIEVE", String(ll_loginretr))
f_SetProfileString(sys_empid,Parent.ClassName(), "LOGIN_RETRIEVE", String(ll_loginretr))

end event

event constructor;This.BackColor = 14215660

Int ll_loginretr
//ll_loginretr = Integer(f_ProfileString(sys_empid,DW_1.DataObject, "LOGIN_RETRIEVE",   "1"))
ll_loginretr = Integer(f_ProfileString(sys_empid,Parent.ClassName(), "LOGIN_RETRIEVE",   "1"))
IF ll_loginretr = 1 THEN
	This.Checked = True
ELSE
	This.Checked = False
END IF


end event