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

$PBExportHeader$w_rp_ware_mtrlware_mx.srw
forward
global type w_rp_ware_mtrlware_mx from w_publ_base
end type
type tab_1 from tab within w_rp_ware_mtrlware_mx
end type
type tabpage_1 from userobject within tab_1
end type
type dw_1 from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_1 dw_1
end type
type tabpage_4 from userobject within tab_1
end type
type dw_2 from u_dw_rbtnfilter within tabpage_4
end type
type tabpage_4 from userobject within tab_1
dw_2 dw_2
end type
type tabpage_3 from userobject within tab_1
end type
type dw_4 from u_dw_rbtnfilter within tabpage_3
end type
type tabpage_3 from userobject within tab_1
dw_4 dw_4
end type
type tab_1 from tab within w_rp_ware_mtrlware_mx
tabpage_1 tabpage_1
tabpage_4 tabpage_4
tabpage_3 tabpage_3
end type
end forward

global type w_rp_ware_mtrlware_mx from w_publ_base
integer width = 2299
integer height = 1996
string title = "明细查询"
tab_1 tab_1
end type
global w_rp_ware_mtrlware_mx w_rp_ware_mtrlware_mx

type variables

end variables

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

on w_rp_ware_mtrlware_mx.destroy
call super::destroy
destroy(this.tab_1)
end on

event open;call super::open;string ll_mtrlcode
ll_mtrlcode = message.stringparm

tab_1.tabpage_1.dw_1.settransobject(sqlca)
tab_1.tabpage_3.dw_4.settransobject(sqlca)
tab_1.tabpage_4.dw_2.settransobject(sqlca)
 
tab_1.tabpage_1.dw_1.retrieve(ll_mtrlcode)
tab_1.tabpage_3.dw_4.retrieve(ll_mtrlcode)
tab_1.tabpage_4.dw_2.retrieve(ll_mtrlcode)

end event

type cb_func from w_publ_base`cb_func within w_rp_ware_mtrlware_mx
integer x = 137
integer y = 268
end type

type cb_exit from w_publ_base`cb_exit within w_rp_ware_mtrlware_mx
integer x = 1806
integer y = 752
end type

type tab_1 from tab within w_rp_ware_mtrlware_mx
string tag = "dw_rp_ware_mtrlware_mx2"
integer width = 2281
integer height = 1916
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_4 tabpage_4
tabpage_3 tabpage_3
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_4=create tabpage_4
this.tabpage_3=create tabpage_3
this.Control[]={this.tabpage_1,&
this.tabpage_4,&
this.tabpage_3}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_4)
destroy(this.tabpage_3)
end on

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 112
integer width = 2245
integer height = 1788
long backcolor = 134217739
string text = "在进行订单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
string picturename = "EditDataFreeform!"
long picturemaskcolor = 536870912
dw_1 dw_1
end type

on tabpage_1.create
this.dw_1=create dw_1
this.Control[]={this.dw_1}
end on

on tabpage_1.destroy
destroy(this.dw_1)
end on

type dw_1 from u_dw_rbtnfilter within tabpage_1
integer y = 4
integer width = 2240
integer height = 1776
integer taborder = 20
string dataobject = "dw_rp_ware_mtrlware_mx2"
boolean hscrollbar = true
boolean vscrollbar = true
end type

type tabpage_4 from userobject within tab_1
integer x = 18
integer y = 112
integer width = 2245
integer height = 1788
long backcolor = 134217739
string text = "库存"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
string picturename = "EditFuncDeclare!"
long picturemaskcolor = 536870912
dw_2 dw_2
end type

on tabpage_4.create
this.dw_2=create dw_2
this.Control[]={this.dw_2}
end on

on tabpage_4.destroy
destroy(this.dw_2)
end on

type dw_2 from u_dw_rbtnfilter within tabpage_4
integer width = 2245
integer height = 1776
integer taborder = 20
string dataobject = "dw_rp_ware_mtrlware_mx4"
end type

type tabpage_3 from userobject within tab_1
integer x = 18
integer y = 112
integer width = 2245
integer height = 1788
long backcolor = 134217739
string text = "未审核出仓单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
string picturename = "EditDataTabular!"
long picturemaskcolor = 536870912
dw_4 dw_4
end type

on tabpage_3.create
this.dw_4=create dw_4
this.Control[]={this.dw_4}
end on

on tabpage_3.destroy
destroy(this.dw_4)
end on

type dw_4 from u_dw_rbtnfilter within tabpage_3
integer width = 2240
integer height = 1776
integer taborder = 20
string dataobject = "dw_rp_ware_mtrlware_mx3"
end type