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

$PBExportHeader$w_choose_outware.srw
forward
global type w_choose_outware from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_choose_outware
end type
type cbx_packqty_cmpl from checkbox within w_choose_outware
end type
type cbx_zk from checkbox within w_choose_outware
end type
type cbx_enamt_edit from checkbox within w_choose_outware
end type
type cbx_enamt_notax_edit from checkbox within w_choose_outware
end type
type gb_1 from groupbox within w_choose_outware
end type
end forward

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

type variables
s_choose s_c1
long ii_enamt_edit
end variables

on w_choose_outware.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.cbx_packqty_cmpl=create cbx_packqty_cmpl
this.cbx_zk=create cbx_zk
this.cbx_enamt_edit=create cbx_enamt_edit
this.cbx_enamt_notax_edit=create cbx_enamt_notax_edit
this.gb_1=create gb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.cbx_packqty_cmpl
this.Control[iCurrent+3]=this.cbx_zk
this.Control[iCurrent+4]=this.cbx_enamt_edit
this.Control[iCurrent+5]=this.cbx_enamt_notax_edit
this.Control[iCurrent+6]=this.gb_1
end on

on w_choose_outware.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.cbx_packqty_cmpl)
destroy(this.cbx_zk)
destroy(this.cbx_enamt_edit)
destroy(this.cbx_enamt_notax_edit)
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_outware
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_choose_outware
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_outware
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_pprice_out = cbx_enamt_edit.Checked
s_c1.packqty_out = cbx_packqty_cmpl.Checked
s_c1.notax_price_out = cbx_enamt_notax_edit.Checked
s_c1.zk_out = cbx_zk.Checked
 

close(parent)
end event

type cbx_packqty_cmpl from checkbox within w_choose_outware
integer x = 128
integer y = 144
integer width = 690
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_outware', "cbx_packqty_cmpl", String(ifchecked))

end event

event constructor;Int ifchecked
ifchecked = Integer(f_ProfileString (sys_empid,'w_choose_outware', "cbx_packqty_cmpl", '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_outware
integer x = 1673
integer y = 292
integer width = 645
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_outware', "cbx_zk", String(ifchecked))


end event

event constructor;
//初始化

Int ifchecked
ifchecked = Integer(f_ProfileString (sys_empid,'w_choose_outware', "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_enamt_edit from checkbox within w_choose_outware
integer x = 1673
integer y = 144
integer width = 617
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_outware', "cbx_enamt_edit", String(ifchecked))

end event

event constructor;Int ifchecked
ifchecked = Integer(f_ProfileString (sys_empid,'w_choose_outware', "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_enamt_notax_edit from checkbox within w_choose_outware
integer x = 128
integer y = 292
integer width = 539
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_outware', "cbx_enamt_notax_edit", String(ifchecked))


end event

event constructor;Int ifchecked
ifchecked = Integer(f_ProfileString (sys_empid,'w_choose_outware', "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 gb_1 from groupbox within w_choose_outware
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