Q5/ws_objects/cw_account.pbl.src/w_credence_edit_popup_dft.srw

$PBExportHeader$w_credence_edit_popup_dft.srw
$PBExportComments$凭证录入
forward
global type w_credence_edit_popup_dft from w_publ_base
end type
type em_dft_yearmon from editmask within w_credence_edit_popup_dft
end type
type st_dft_cmonth from statictext within w_credence_edit_popup_dft
end type
type em_1 from uo_editmask_date within w_credence_edit_popup_dft
end type
type cb_1 from uo_imflatbutton within w_credence_edit_popup_dft
end type
type cbx_1 from checkbox within w_credence_edit_popup_dft
end type
end forward

global type w_credence_edit_popup_dft from w_publ_base
integer width = 1225
integer height = 556
string title = "设置"
boolean minbox = false
windowtype windowtype = response!
em_dft_yearmon em_dft_yearmon
st_dft_cmonth st_dft_cmonth
em_1 em_1
cb_1 cb_1
cbx_1 cbx_1
end type
global w_credence_edit_popup_dft w_credence_edit_popup_dft

type variables
s_edit_index_tran s_rst
end variables

on w_credence_edit_popup_dft.create
int iCurrent
call super::create
this.em_dft_yearmon=create em_dft_yearmon
this.st_dft_cmonth=create st_dft_cmonth
this.em_1=create em_1
this.cb_1=create cb_1
this.cbx_1=create cbx_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.em_dft_yearmon
this.Control[iCurrent+2]=this.st_dft_cmonth
this.Control[iCurrent+3]=this.em_1
this.Control[iCurrent+4]=this.cb_1
this.Control[iCurrent+5]=this.cbx_1
end on

on w_credence_edit_popup_dft.destroy
call super::destroy
destroy(this.em_dft_yearmon)
destroy(this.st_dft_cmonth)
destroy(this.em_1)
destroy(this.cb_1)
destroy(this.cbx_1)
end on

event close;call super::close;CloseWithReturn(THIS,s_rst)

end event

type cb_func from w_publ_base`cb_func within w_credence_edit_popup_dft
integer x = 297
integer y = 900
end type

type cb_exit from w_publ_base`cb_exit within w_credence_edit_popup_dft
integer x = 645
integer y = 308
string text = "取消"
end type

event cb_exit::clicked;s_rst.d_long = 0
CLOSE(PARENT)
end event

type em_dft_yearmon from editmask within w_credence_edit_popup_dft
integer x = 590
integer y = 24
integer width = 288
integer height = 88
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
string mask = "000000"
boolean spin = true
end type

event constructor;this.text = string(sys_curyearmon)
end event

type st_dft_cmonth from statictext within w_credence_edit_popup_dft
integer x = 169
integer y = 40
integer width = 411
integer height = 52
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "默认凭证月份："
alignment alignment = right!
boolean focusrectangle = false
end type

type em_1 from uo_editmask_date within w_credence_edit_popup_dft
integer x = 590
integer y = 156
integer taborder = 20
boolean bringtotop = true
end type

event constructor;call super::constructor;THIS.Text = String(f_rst_mon_1st(3,sys_curyearmon),'yyyy-mm-dd')

end event

type cb_1 from uo_imflatbutton within w_credence_edit_popup_dft
integer x = 197
integer y = 308
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
end type

event clicked;call super::clicked;
s_rst.d_long = 1
s_rst.b_long = Long(em_dft_yearmon.Text)
IF cbx_1.Checked THEN
	s_rst.c_long = 1
ELSE
	s_rst.c_long = 0
END IF
s_rst.b_datetime = DateTime(Date(em_1.Text),Time(0))
CLOSE(PARENT)


end event

type cbx_1 from checkbox within w_credence_edit_popup_dft
integer x = 114
integer y = 172
integer width = 466
integer height = 60
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