Q5/ws_objects/Ew_define.pbl.src/w_rp_mtrlprice_his.srw

$PBExportHeader$w_rp_mtrlprice_his.srw
forward
global type w_rp_mtrlprice_his from w_publ_base
end type
type dw_1 from u_dw_rbtnfilter within w_rp_mtrlprice_his
end type
end forward

global type w_rp_mtrlprice_his from w_publ_base
integer width = 2441
integer height = 1600
string title = "历史统计查询"
boolean minbox = false
windowtype windowtype = response!
dw_1 dw_1
end type
global w_rp_mtrlprice_his w_rp_mtrlprice_his

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

on w_rp_mtrlprice_his.destroy
call super::destroy
destroy(this.dw_1)
end on

event open;call super::open;dw_1.SetTransObject(sqlca)
s_edit_index_tran s_open

s_open = Message.PowerObjectParm

dw_1.Retrieve(s_open.b_long)



end event

type cb_func from w_publ_base`cb_func within w_rp_mtrlprice_his
boolean visible = false
integer x = 101
integer y = 232
end type

type cb_exit from w_publ_base`cb_exit within w_rp_mtrlprice_his
integer x = 1751
integer y = 1064
end type

type dw_1 from u_dw_rbtnfilter within w_rp_mtrlprice_his
integer width = 2423
integer height = 1512
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_rp_mtrlprice_his"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event