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

$PBExportHeader$w_mtrldef_default.srw
forward
global type w_mtrldef_default from w_publ_base
end type
type cbx_name from checkbox within w_mtrldef_default
end type
type cbx_type from checkbox within w_mtrldef_default
end type
type cbx_sectype from checkbox within w_mtrldef_default
end type
type cbx_mode from checkbox within w_mtrldef_default
end type
type cbx_unit from checkbox within w_mtrldef_default
end type
type cbx_packgcode from checkbox within w_mtrldef_default
end type
type cbx_packgqty from checkbox within w_mtrldef_default
end type
type gb_3 from groupbox within w_mtrldef_default
end type
type gb_2 from groupbox within w_mtrldef_default
end type
type gb_1 from groupbox within w_mtrldef_default
end type
type cbx_code from checkbox within w_mtrldef_default
end type
type em_code from editmask within w_mtrldef_default
end type
type st_2 from statictext within w_mtrldef_default
end type
type lb_1 from listbox within w_mtrldef_default
end type
type lb_2 from listbox within w_mtrldef_default
end type
type cb_1 from uo_imflatbutton within w_mtrldef_default
end type
type cbx_mtrlorigin from checkbox within w_mtrldef_default
end type
end forward

global type w_mtrldef_default from w_publ_base
integer width = 1728
integer height = 1312
string title = "物料定义默认值"
boolean minbox = false
windowtype windowtype = response!
cbx_name cbx_name
cbx_type cbx_type
cbx_sectype cbx_sectype
cbx_mode cbx_mode
cbx_unit cbx_unit
cbx_packgcode cbx_packgcode
cbx_packgqty cbx_packgqty
gb_3 gb_3
gb_2 gb_2
gb_1 gb_1
cbx_code cbx_code
em_code em_code
st_2 st_2
lb_1 lb_1
lb_2 lb_2
cb_1 cb_1
cbx_mtrlorigin cbx_mtrlorigin
end type
global w_mtrldef_default w_mtrldef_default

type variables
s_setdef_mtrl s_checkdef
string s_default

end variables

on w_mtrldef_default.create
int iCurrent
call super::create
this.cbx_name=create cbx_name
this.cbx_type=create cbx_type
this.cbx_sectype=create cbx_sectype
this.cbx_mode=create cbx_mode
this.cbx_unit=create cbx_unit
this.cbx_packgcode=create cbx_packgcode
this.cbx_packgqty=create cbx_packgqty
this.gb_3=create gb_3
this.gb_2=create gb_2
this.gb_1=create gb_1
this.cbx_code=create cbx_code
this.em_code=create em_code
this.st_2=create st_2
this.lb_1=create lb_1
this.lb_2=create lb_2
this.cb_1=create cb_1
this.cbx_mtrlorigin=create cbx_mtrlorigin
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_name
this.Control[iCurrent+2]=this.cbx_type
this.Control[iCurrent+3]=this.cbx_sectype
this.Control[iCurrent+4]=this.cbx_mode
this.Control[iCurrent+5]=this.cbx_unit
this.Control[iCurrent+6]=this.cbx_packgcode
this.Control[iCurrent+7]=this.cbx_packgqty
this.Control[iCurrent+8]=this.gb_3
this.Control[iCurrent+9]=this.gb_2
this.Control[iCurrent+10]=this.gb_1
this.Control[iCurrent+11]=this.cbx_code
this.Control[iCurrent+12]=this.em_code
this.Control[iCurrent+13]=this.st_2
this.Control[iCurrent+14]=this.lb_1
this.Control[iCurrent+15]=this.lb_2
this.Control[iCurrent+16]=this.cb_1
this.Control[iCurrent+17]=this.cbx_mtrlorigin
end on

on w_mtrldef_default.destroy
call super::destroy
destroy(this.cbx_name)
destroy(this.cbx_type)
destroy(this.cbx_sectype)
destroy(this.cbx_mode)
destroy(this.cbx_unit)
destroy(this.cbx_packgcode)
destroy(this.cbx_packgqty)
destroy(this.gb_3)
destroy(this.gb_2)
destroy(this.gb_1)
destroy(this.cbx_code)
destroy(this.em_code)
destroy(this.st_2)
destroy(this.lb_1)
destroy(this.lb_2)
destroy(this.cb_1)
destroy(this.cbx_mtrlorigin)
end on

event open;call super::open;s_checkdef=Message.PowerObjectParm

lb_1.additem('商品编码含['+s_checkdef.defmtrlcode+']')
lb_1.additem('商品名称['+s_checkdef.defmtrlname+']')
lb_1.additem('类别['+string(s_checkdef.defmtrltype)+']')
lb_1.additem('二级类别['+s_checkdef.defsecmtrltype+']')
lb_1.additem('规格['+  s_checkdef.defmtrlmode+']')
lb_1.additem('库存单位['+s_checkdef.defunit+']')
lb_1.additem('包装单位['+ s_checkdef.defPrdpackcode+']')
lb_1.additem('包装件数['+string(s_checkdef.defpackqty)+']')
lb_1.additem('来源['+string(s_checkdef.defmtrlorigin)+']')


end event

event close;IF cbx_name.Checked = FALSE THEN
	s_checkdef.defmtrlname = ''
END IF
IF cbx_mode.Checked = FALSE THEN
	s_checkdef.defmtrlmode = ''
END IF
IF cbx_type.Checked = FALSE THEN
	s_checkdef.defmtrltype = 0
END IF
IF cbx_sectype.Checked = FALSE THEN
	s_checkdef.defsecmtrltype = ''
END IF
IF cbx_packgcode.Checked = FALSE THEN
	s_checkdef.defPrdpackcode = ''
END IF
IF cbx_packgqty.Checked = FALSE THEN
	s_checkdef.defpackqty = 0
END IF
IF cbx_unit.Checked = FALSE THEN
	s_checkdef.defunit = ''
END IF
IF cbx_code.Checked = FALSE THEN
	s_checkdef.defmtrlcode = ''
ELSE
	s_checkdef.defmtrlcode = Mid(s_checkdef.defmtrlcode,0,Integer(em_code.Text))
END IF

IF cbx_mtrlorigin.Checked = FALSE THEN
	s_checkdef.defmtrlorigin = 0
END IF

CloseWithReturn(w_mtrldef_default,s_checkdef)




end event

type cb_func from w_publ_base`cb_func within w_mtrldef_default
boolean visible = false
integer x = 1330
integer y = 268
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_mtrldef_default
integer x = 1330
integer y = 164
string text = "返回"
end type

type cbx_name from checkbox within w_mtrldef_default
integer x = 91
integer y = 92
integer width = 302
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "物料名称"
boolean checked = true
end type

type cbx_type from checkbox within w_mtrldef_default
integer x = 645
integer y = 92
integer width = 302
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "物料类别"
boolean checked = true
end type

type cbx_sectype from checkbox within w_mtrldef_default
integer x = 91
integer y = 176
integer width = 411
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "物料二级类别"
boolean checked = true
end type

type cbx_mode from checkbox within w_mtrldef_default
integer x = 645
integer y = 176
integer width = 302
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "物料规格"
boolean checked = true
end type

type cbx_unit from checkbox within w_mtrldef_default
integer x = 91
integer y = 260
integer width = 302
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "库存单位"
boolean checked = true
end type

type cbx_packgcode from checkbox within w_mtrldef_default
integer x = 645
integer y = 260
integer width = 302
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "包装单位"
boolean checked = true
end type

type cbx_packgqty from checkbox within w_mtrldef_default
integer x = 91
integer y = 344
integer width = 302
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "包装数量"
boolean checked = true
end type

type gb_3 from groupbox within w_mtrldef_default
integer x = 859
integer y = 548
integer width = 832
integer height = 664
integer taborder = 70
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "改变后的设定如下："
end type

type gb_2 from groupbox within w_mtrldef_default
integer x = 9
integer y = 548
integer width = 837
integer height = 664
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "商品原定义如下："
end type

type gb_1 from groupbox within w_mtrldef_default
integer x = 5
integer y = 24
integer width = 1243
integer height = 504
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "选择要设定默认值的项[已经全部选定]"
end type

type cbx_code from checkbox within w_mtrldef_default
integer x = 645
integer y = 344
integer width = 302
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "取编码前"
boolean checked = true
end type

type em_code from editmask within w_mtrldef_default
integer x = 951
integer y = 340
integer width = 192
integer height = 84
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
string text = "4"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "####"
boolean spin = true
end type

type st_2 from statictext within w_mtrldef_default
integer x = 1152
integer y = 356
integer width = 69
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "位"
boolean focusrectangle = false
end type

type lb_1 from listbox within w_mtrldef_default
integer x = 27
integer y = 608
integer width = 791
integer height = 568
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean hscrollbar = true
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

type lb_2 from listbox within w_mtrldef_default
integer x = 878
integer y = 608
integer width = 791
integer height = 568
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711935
boolean hscrollbar = true
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

type cb_1 from uo_imflatbutton within w_mtrldef_default
integer x = 1330
integer y = 56
integer width = 311
integer taborder = 30
boolean bringtotop = true
boolean default = true
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;lb_2.reset()

if cbx_code.checked=true then
	lb_2.additem('商品编码含['+mid(s_checkdef.defmtrlcode,0,integer(em_code.text))+']')
end if

if cbx_name.checked =true then
	 lb_2.additem('商品名称['+s_checkdef.defmtrlname+']')
end if

if cbx_type.checked=true then
	lb_2.additem('类别['+string(s_checkdef.defmtrltype)+']')
end if

if cbx_sectype.checked=true then
	lb_2.additem('二级类别['+s_checkdef.defsecmtrltype+']')
end if

if cbx_mode.checked=true then
	lb_2.additem('规格['+ s_checkdef.defmtrlmode+']')
end if

if cbx_packgcode.checked=true then
	lb_2.additem('包装单位['+s_checkdef.defPrdpackcode+']')
end if

if cbx_packgqty.checked=true then
	lb_2.additem('包装数量['+string(s_checkdef.defpackqty)+']')
end if

if cbx_unit.checked=true then
	lb_2.additem('库存单位['+s_checkdef.defunit+']')
end if

if cbx_mtrlorigin.checked=true then
	lb_2.additem('来源['+string(s_checkdef.defmtrlorigin)+']')
end if




	
	
end event

type cbx_mtrlorigin from checkbox within w_mtrldef_default
integer x = 91
integer y = 436
integer width = 302
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "来源"
boolean checked = true
end type