Q5/ws_objects/Ew_buy.pbl.src/w_inware_buy_mod_otheramt.srw

$PBExportHeader$w_inware_buy_mod_otheramt.srw
forward
global type w_inware_buy_mod_otheramt from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_inware_buy_mod_otheramt
end type
type st_msg from statictext within w_inware_buy_mod_otheramt
end type
type em_1 from editmask within w_inware_buy_mod_otheramt
end type
end forward

global type w_inware_buy_mod_otheramt from w_publ_base
integer width = 837
integer height = 506
string title = "优惠款"
boolean minbox = false
windowtype windowtype = response!
cb_1 cb_1
st_msg st_msg
em_1 em_1
end type
global w_inware_buy_mod_otheramt w_inware_buy_mod_otheramt

type variables
decimal ins_amt
end variables

on w_inware_buy_mod_otheramt.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.st_msg=create st_msg
this.em_1=create em_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.st_msg
this.Control[iCurrent+3]=this.em_1
end on

on w_inware_buy_mod_otheramt.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.st_msg)
destroy(this.em_1)
end on

event open;call super::open;
ins_amt = Message.DoubleParm

em_1.text = string(ins_amt)


end event

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

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

type cb_exit from w_publ_base`cb_exit within w_inware_buy_mod_otheramt
integer x = 457
integer y = 259
string text = "取消"
end type

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

event clicked;call super::clicked;ins_amt = dec(em_1.text)

close(parent)




end event

type st_msg from statictext within w_inware_buy_mod_otheramt
integer x = 1573
integer y = 45
integer width = 336
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean focusrectangle = false
end type

type em_1 from editmask within w_inware_buy_mod_otheramt
integer x = 187
integer y = 99
integer width = 461
integer height = 83
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = decimalmask!
string mask = "#,##0.######"
end type