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

$PBExportHeader$w_saletask_cmpl_otheramt.srw
forward
global type w_saletask_cmpl_otheramt from w_publ_base
end type
type dw_1 from datawindow within w_saletask_cmpl_otheramt
end type
end forward

global type w_saletask_cmpl_otheramt from w_publ_base
integer width = 1207
integer height = 636
string title = "计算优惠款"
boolean minbox = false
windowtype windowtype = response!
dw_1 dw_1
end type
global w_saletask_cmpl_otheramt w_saletask_cmpl_otheramt

type variables
long ll_row
decimal cur_otheramt

end variables

on w_saletask_cmpl_otheramt.create
int iCurrent
call super::create
this.dw_1=create dw_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
end on

on w_saletask_cmpl_otheramt.destroy
call super::destroy
destroy(this.dw_1)
end on

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

event open;call super::open;
decimal lde_msttakeamt

lde_msttakeamt = message.doubleparm

ll_row = dw_1.insertrow(0)

dw_1.object.msttakeamt[ll_row] = lde_msttakeamt
dw_1.setcolumn('billamt')

end event

type cb_func from w_publ_base`cb_func within w_saletask_cmpl_otheramt
integer x = 251
integer y = 412
integer width = 311
integer height = 96
string text = "确定"
toolbaralignment pic_align = alignatleft!
boolean border = true
end type

event cb_func::clicked;call super::clicked;dw_1.accepttext()
cur_otheramt = dw_1.object.msttakeamt[ll_row] - dw_1.object.billamt[ll_row]
//
//IF Year(date(em_1.Text)) < 2000 THEN
//	MessageBox('提示','请输入正确的日期',information!,OK!)
//	RETURN
//END IF
//
Close(PARENT)
//


end event

type cb_exit from w_publ_base`cb_exit within w_saletask_cmpl_otheramt
integer x = 690
integer y = 408
end type

event cb_exit::clicked;cur_otheramt = 0
Close(PARENT)

end event

type dw_1 from datawindow within w_saletask_cmpl_otheramt
integer x = 119
integer width = 965
integer height = 400
integer taborder = 10
boolean bringtotop = true
string title = "none"
string dataobject = "dw_saletask_cmpl_otheramt"
boolean border = false
boolean livescroll = true
end type