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

$PBExportHeader$w_ware_cmpl_taxamt.srw
forward
global type w_ware_cmpl_taxamt from w_publ_base_style
end type
type st_taxamt from statictext within w_ware_cmpl_taxamt
end type
type sle_taxamt from singlelineedit within w_ware_cmpl_taxamt
end type
type cb_2 from uo_imflatbutton within w_ware_cmpl_taxamt
end type
type cb_1 from uo_imflatbutton within w_ware_cmpl_taxamt
end type
end forward

global type w_ware_cmpl_taxamt from w_publ_base_style
integer width = 1362
integer height = 472
string title = "录入税金计算税率"
boolean minbox = false
windowtype windowtype = response!
st_taxamt st_taxamt
sle_taxamt sle_taxamt
cb_2 cb_2
cb_1 cb_1
end type
global w_ware_cmpl_taxamt w_ware_cmpl_taxamt

type variables
s_edit_index_tran s_return
end variables

on w_ware_cmpl_taxamt.create
int iCurrent
call super::create
this.st_taxamt=create st_taxamt
this.sle_taxamt=create sle_taxamt
this.cb_2=create cb_2
this.cb_1=create cb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_taxamt
this.Control[iCurrent+2]=this.sle_taxamt
this.Control[iCurrent+3]=this.cb_2
this.Control[iCurrent+4]=this.cb_1
end on

on w_ware_cmpl_taxamt.destroy
call super::destroy
destroy(this.st_taxamt)
destroy(this.sle_taxamt)
destroy(this.cb_2)
destroy(this.cb_1)
end on

event open;call super::open;s_edit_index_tran s_tran
String ls_unit
decimal lde_price,lde_price_notax
s_tran = Message.PowerObjectParm
If Not IsNull(s_tran) Then
	ls_unit = s_tran.b_string
	lde_price = s_tran.b_decimal
	lde_price_notax = s_tran.c_decimal
End If

st_taxamt.Text = '*  每'+ ls_unit + '税金:'
//sle_price.text = string(lde_price,'#,##0.####')
//sle_price_notax.text = string(lde_price_notax,'#,##0.####')

end event

event close;call super::close;CloseWithReturn(This,s_return)

end event

type cb_func from w_publ_base_style`cb_func within w_ware_cmpl_taxamt
boolean visible = false
end type

type cb_exit from w_publ_base_style`cb_exit within w_ware_cmpl_taxamt
boolean visible = false
integer x = 1143
integer y = 536
end type

type ln_bar from w_publ_base_style`ln_bar within w_ware_cmpl_taxamt
boolean visible = false
end type

type ln_bar2 from w_publ_base_style`ln_bar2 within w_ware_cmpl_taxamt
boolean visible = false
end type

type r_bar from w_publ_base_style`r_bar within w_ware_cmpl_taxamt
boolean visible = false
end type

type st_taxamt from statictext within w_ware_cmpl_taxamt
integer x = 50
integer y = 84
integer width = 334
integer height = 84
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 = "每单位税:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_taxamt from singlelineedit within w_ware_cmpl_taxamt
event key pbm_keydown
integer x = 398
integer y = 72
integer width = 928
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event key;If KeyDown(keyenter!) Then
	cb_2.TriggerEvent(Clicked!)
End If

end event

type cb_2 from uo_imflatbutton within w_ware_cmpl_taxamt
integer x = 1010
integer y = 196
integer width = 151
integer height = 164
integer taborder = 20
boolean bringtotop = true
end type

event clicked;call super::clicked;Dec lde_taxamt

lde_taxamt = 0
If sle_taxamt.Text <> '' Then
	lde_taxamt = Dec(sle_taxamt.Text)
Else
	MessageBox('提示','请输入单位税金!')
	Return
End If

s_return.b_decimal = lde_taxamt

Parent.TriggerEvent(Close!)





end event

type cb_1 from uo_imflatbutton within w_ware_cmpl_taxamt
integer x = 1170
integer y = 196
integer width = 151
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "退出"
end type

event clicked;call super::clicked;close(parent)
end event