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

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

global type w_orderrqwp_change_his from w_publ_base
integer width = 3611
integer height = 1916
string title = "工序明细变更历史"
boolean minbox = false
windowtype windowtype = response!
dw_1 dw_1
end type
global w_orderrqwp_change_his w_orderrqwp_change_his

type variables
long ins_scid,ins_orderid
end variables

on w_orderrqwp_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_orderrqwp_change_his.destroy
call super::destroy
destroy(this.dw_1)
end on

event open;call super::open;s_edit_index_tran s_tran

s_tran = message.powerobjectparm

ins_scid = s_tran.b_long
ins_orderid = s_tran.c_long

dw_1.settransobject(sqlca)

dw_1.retrieve(ins_scid,ins_orderid)
end event

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

type cb_exit from w_publ_base`cb_exit within w_orderrqwp_change_his
integer x = 3218
integer y = 1716
end type

type dw_1 from u_dw_rbtnfilter within w_orderrqwp_change_his
integer x = 9
integer y = 8
integer width = 3579
integer height = 1680
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_orderrqwp_change_his"
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

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	
	
	ls_code = This.Object.u_orderrqwp_change_billcode[row]
	
	f_open_win(0,ls_code)
END IF

end event