Q5/ws_objects/Ew_mrp.pbl.src/w_workprice_change_his.srw

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

global type w_workprice_change_his from w_publ_base
integer width = 3328
integer height = 2148
string title = "相关工价表变更历史"
boolean minbox = false
windowtype windowtype = response!
dw_1 dw_1
end type
global w_workprice_change_his w_workprice_change_his

on w_workprice_change_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_workprice_change_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_tran //传递参数使用
s_tran = Message.PowerObjectParm

Long ll_mtrlid
String ls_procode

IF NOT IsNull(s_tran) THEN
	ll_mtrlid = s_tran.b_long
	ls_procode = s_tran.b_string
END IF

dw_1.retrieve(ll_mtrlid,ls_procode)
end event

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

type cb_exit from w_publ_base`cb_exit within w_workprice_change_his
integer x = 2967
integer y = 1940
end type

type dw_1 from u_dw_rbtnfilter within w_workprice_change_his
integer width = 3305
integer height = 1916
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_workprice_changemx_view"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <=0 THEN RETURN
this.selectrow(0,false)
this.selectrow(currentrow,true)
end event