Q5/ws_objects/Ew_sale.pbl.src/w_choose.srw

$PBExportHeader$w_choose.srw
forward
global type w_choose from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_choose
end type
type cbx_enamt_notax_edit from checkbox within w_choose
end type
type cbx_enamt_edit from checkbox within w_choose
end type
type cbx_zk from checkbox within w_choose
end type
type cbx_auto_qty from checkbox within w_choose
end type
type st_weishu from statictext within w_choose
end type
type ddlb_weishu from dropdownlistbox within w_choose
end type
type gb_1 from groupbox within w_choose
end type
end forward

global type w_choose from w_publ_base
integer width = 2606
integer height = 864
string title = ""
boolean minbox = false
windowtype windowtype = response!
cb_1 cb_1
cbx_enamt_notax_edit cbx_enamt_notax_edit
cbx_enamt_edit cbx_enamt_edit
cbx_zk cbx_zk
cbx_auto_qty cbx_auto_qty
st_weishu st_weishu
ddlb_weishu ddlb_weishu
gb_1 gb_1
end type
global w_choose w_choose

type variables
s_choose s_c1

end variables

on w_choose.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.cbx_enamt_notax_edit=create cbx_enamt_notax_edit
this.cbx_enamt_edit=create cbx_enamt_edit
this.cbx_zk=create cbx_zk
this.cbx_auto_qty=create cbx_auto_qty
this.st_weishu=create st_weishu
this.ddlb_weishu=create ddlb_weishu
this.gb_1=create gb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.cbx_enamt_notax_edit
this.Control[iCurrent+3]=this.cbx_enamt_edit
this.Control[iCurrent+4]=this.cbx_zk
this.Control[iCurrent+5]=this.cbx_auto_qty
this.Control[iCurrent+6]=this.st_weishu
this.Control[iCurrent+7]=this.ddlb_weishu
this.Control[iCurrent+8]=this.gb_1
end on

on w_choose.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.cbx_enamt_notax_edit)
destroy(this.cbx_enamt_edit)
destroy(this.cbx_zk)
destroy(this.cbx_auto_qty)
destroy(this.st_weishu)
destroy(this.ddlb_weishu)
destroy(this.gb_1)
end on

event close;call super::close;closewithreturn(this, s_c1)
end event

event open;call super::open;s_c1.ifok = false

end event

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

type cb_exit from w_publ_base`cb_exit within w_choose
integer x = 1458
integer y = 600
string text = "取消"
end type

event cb_exit::clicked;call super::clicked;Close(w_choose)
end event

type cb_1 from uo_imflatbutton within w_choose
integer x = 750
integer y = 600
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;s_c1.ifok = true
s_c1.amt_price = cbx_enamt_edit.Checked
s_c1.amt_zk = cbx_zk.Checked
s_c1.notax_price = cbx_enamt_notax_edit.Checked
s_c1.ifauto = cbx_auto_qty.Checked
s_c1.weishu = ddlb_weishu.text

close(parent)
end event

type cbx_enamt_notax_edit from checkbox within w_choose
integer x = 105
integer y = 156
integer width = 677
integer height = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "录入不含税单价"
end type

event clicked;Int ifchecked
IF THIS.Checked THEN
	ifchecked = 1
	this.weight = 700
	this.textcolor = 255
ELSE
	ifchecked = 0
	this.weight = 400
	this.textcolor = 0
END IF

f_SetProfileString (sys_empid,'w_choose', "cbx_enamt_notax_edit", String(ifchecked))

end event

event constructor;Int ifchecked
ifchecked = Integer(f_ProfileString (sys_empid,'w_choose', "cbx_enamt_notax_edit", '0'))

IF ifchecked	 = 0 THEN
	THIS.checked = FALSE
	this.weight = 400
	this.textcolor = 0
ELSE
	THIS.checked = TRUE
	this.weight = 700
	this.textcolor = 255
END IF
end event

type cbx_enamt_edit from checkbox within w_choose
integer x = 105
integer y = 72
integer width = 677
integer height = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "录入金额计算单价"
end type

event clicked;Int ifchecked
IF THIS.Checked THEN
	ifchecked = 1
	this.weight = 700
	this.textcolor = 255
ELSE
	ifchecked = 0
	this.weight = 400
	this.textcolor = 0
END IF

f_SetProfileString (sys_empid,'w_choose', "cbx_enamt_edit", String(ifchecked))




//cb_1.triggerevent(clicked!)
end event

event constructor;Int ifchecked
ifchecked = Integer(f_ProfileString (sys_empid,'w_choose', "cbx_enamt_edit", '0'))

IF ifchecked	 = 0 THEN
	THIS.checked = FALSE
	this.weight = 400
	this.textcolor = 0
ELSE
	THIS.checked = TRUE
	this.weight = 700
	this.textcolor = 255
END IF

end event

type cbx_zk from checkbox within w_choose
integer x = 818
integer y = 72
integer width = 677
integer height = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "录入金额计算折扣"
end type

event clicked;Int ifchecked
IF THIS.Checked THEN
	ifchecked = 1
	this.weight = 700
	this.textcolor = 255
ELSE
	ifchecked = 0
	this.weight = 400
	this.textcolor = 0
END IF

f_SetProfileString (sys_empid,'w_choose', "cbx_zk", String(ifchecked))

end event

event constructor;Int ifchecked
ifchecked = Integer(f_ProfileString (sys_empid,'w_choose', "cbx_zk", '0'))

IF ifchecked	 = 0 THEN
	THIS.checked = FALSE
	this.weight = 400
	this.textcolor = 0
ELSE
	THIS.checked = TRUE
	this.weight = 700
	this.textcolor = 255
END IF

end event

type cbx_auto_qty from checkbox within w_choose
integer x = 1541
integer y = 72
integer width = 1015
integer height = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "自动按数量和单价公式计算数量和单价"
end type

event clicked;Int ifchecked
IF THIS.Checked THEN
	ifchecked = 1
	this.weight = 700
	this.textcolor = 255
	ddlb_weishu.visible=true
	st_weishu.visible=true	
ELSE
	ifchecked = 0
	this.weight = 400
	this.textcolor = 0
	ddlb_weishu.visible=false
	st_weishu.visible=false
END IF

f_SetProfileString (sys_empid,'w_choose', "cbx_auto_qty", String(ifchecked))

end event

event constructor;Int ifchecked
ifchecked = Integer(f_ProfileString (sys_empid,'w_choose', "cbx_auto_qty", '0'))

IF ifchecked	 = 0 THEN
	THIS.checked = FALSE
	this.weight = 400
	this.textcolor = 0
	ddlb_weishu.visible=false
	st_weishu.visible=false
ELSE
	THIS.checked = TRUE
	this.weight = 700
	this.textcolor = 255
	ddlb_weishu.visible=true
	st_weishu.visible=true	
END IF

end event

type st_weishu from statictext within w_choose
integer x = 1536
integer y = 156
integer width = 672
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "自动计算数量保留小数位数"
boolean focusrectangle = false
end type

type ddlb_weishu from dropdownlistbox within w_choose
integer x = 2222
integer y = 156
integer width = 251
integer height = 568
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "2"
string item[] = {"0","1","2","3","4","5"}
borderstyle borderstyle = stylelowered!
end type

event constructor;dec li_autobj
li_autobj = dec(f_ProfileString (sys_empid,'w_choose', "ddlb_weishu", '2'))

IF li_autobj > 0 THEN
	This.Text = String(li_autobj)
ELSE
	This.Text = String('2')
END IF

end event

event destructor;f_SetProfileString (sys_empid,'w_choose', "ddlb_weishu", String(this.text))
end event

type gb_1 from groupbox within w_choose
integer width = 2583
integer height = 772
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
end type