Q5/ws_objects/Ew_money.pbl.src/w_autobill_date_ch.srw

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

global type w_autobill_date_ch from w_publ_base
integer width = 1335
integer height = 600
string title = "截止日期"
boolean minbox = false
windowtype windowtype = response!
em_1 em_1
cb_1 cb_1
st_1 st_1
end type
global w_autobill_date_ch w_autobill_date_ch

type variables
s_edit_index_tran s_tran
end variables

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

on w_autobill_date_ch.destroy
call super::destroy
destroy(this.em_1)
destroy(this.cb_1)
destroy(this.st_1)
end on

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

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

type cb_exit from w_publ_base`cb_exit within w_autobill_date_ch
integer x = 795
integer y = 340
integer taborder = 40
string text = "取消"
integer picsize = 16
end type

event cb_exit::clicked;s_tran.b_long = 0
close(parent)
end event

type em_1 from editmask within w_autobill_date_ch
integer x = 453
integer y = 180
integer width = 402
integer height = 84
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;this.text = String(Today(),'yyyy-mm-dd')
end event

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = This.PointerX() + Parent.X
s_calender.PointerY = This.PointerY() + Parent.Y
s_calender.X = This.X
s_calender.Y = This.Y


OpenWithParm(w_calendar,s_calender)
This.Text = String(id_date_selected)


end event

type cb_1 from uo_imflatbutton within w_autobill_date_ch
integer x = 224
integer y = 340
integer width = 311
integer height = 96
integer taborder = 30
boolean bringtotop = true
boolean default = true
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;s_tran.b_long = 1
s_tran.b_datetime = DateTime(Date(em_1.Text),Time('23:59:59'))
close(parent)
end event

type st_1 from statictext within w_autobill_date_ch
integer x = 23
integer y = 52
integer width = 1294
integer height = 84
boolean bringtotop = true
integer textsize = -11
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "请输入截止日期,系统将结清日期前的帐目"
alignment alignment = center!
boolean focusrectangle = false
end type