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

$PBExportHeader$w_rp_suject_hz.srw
forward
global type w_rp_suject_hz from w_publ_easyq
end type
type st_2 from statictext within w_rp_suject_hz
end type
type em_3 from editmask within w_rp_suject_hz
end type
type em_4 from editmask within w_rp_suject_hz
end type
type st_5 from statictext within w_rp_suject_hz
end type
type st_1 from statictext within w_rp_suject_hz
end type
type ddlb_1 from dropdownlistbox within w_rp_suject_hz
end type
end forward

global type w_rp_suject_hz from w_publ_easyq
integer width = 3502
integer height = 2200
string title = "科目汇总表"
long backcolor = 80269524
st_2 st_2
em_3 em_3
em_4 em_4
st_5 st_5
st_1 st_1
ddlb_1 ddlb_1
end type
global w_rp_suject_hz w_rp_suject_hz

type variables
int cur_postflag=-1 ,cur_checkflag=-1
end variables

on w_rp_suject_hz.create
int iCurrent
call super::create
this.st_2=create st_2
this.em_3=create em_3
this.em_4=create em_4
this.st_5=create st_5
this.st_1=create st_1
this.ddlb_1=create ddlb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.em_3
this.Control[iCurrent+3]=this.em_4
this.Control[iCurrent+4]=this.st_5
this.Control[iCurrent+5]=this.st_1
this.Control[iCurrent+6]=this.ddlb_1
end on

on w_rp_suject_hz.destroy
call super::destroy
destroy(this.st_2)
destroy(this.em_3)
destroy(this.em_4)
destroy(this.st_5)
destroy(this.st_1)
destroy(this.ddlb_1)
end on

event open;this.triggerevent('ue_before_open')
wf_movetocenter()

dw_1.SetTransObject (sqlca)
EM_1.TEXT=STRING(f_rst_mon_1st(1,sys_curyearmon),'YYYY-MM-DD')
EM_2.TEXT=STRING(f_rst_mon_1st(3,sys_curyearmon),'YYYY-MM-DD')

dw_1.RBUTTON_FILTER_USE=true  //右键查询功能开关

IF TRIM(DW_1.DATAOBJECT)<>'' THEN 
	DW_1.OBJECT.DataWindow.PRINT.MARGIN.TOP=INTEGER(ProfileString(sys_inifilename,DW_1.DATAOBJECT, "MARGIN_TOP",   "110"))
	DW_1.OBJECT.DataWindow.PRINT.MARGIN.LEFT=INTEGER(ProfileString(sys_inifilename,DW_1.DATAOBJECT, "MARGIN_LEFT", "96" ))

	DW_1.OBJECT.DataWindow.PRINT.MARGIN.bottom=INTEGER(ProfileString(sys_inifilename,DW_1.DATAOBJECT, "MARGIN_BOTTOM",   "110"))
	DW_1.OBJECT.DataWindow.PRINT.MARGIN.right=INTEGER(ProfileString(sys_inifilename,DW_1.DATAOBJECT, "MARGIN_RIGHT", "96" ))
end if

cb_1.triggerevent(clicked!)
end event

event ue_before_open;call super::ue_before_open;if_ue_filter = TRUE
if_ue_sort = TRUE
if_ue_sentdataout = TRUE


end event

type cb_func from w_publ_easyq`cb_func within w_rp_suject_hz
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_suject_hz
integer x = 965
integer taborder = 30
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_suject_hz
integer taborder = 110
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_suject_hz
integer taborder = 90
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_suject_hz
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;datetime firstdate,enddate
long firstcredno,endcredno
firstdate=datetime(date(em_1.text),time(0))
enddate=datetime(date(em_2.text),time('23:59:59'))
firstcredno=long(em_3.text)
endcredno=long(em_4.text)


dw_1.retrieve(cur_checkflag,cur_postflag,firstdate,enddate,sys_accsetid,firstcredno,endcredno,s_sys_accset.step1)
end event

type st_3 from w_publ_easyq`st_3 within w_rp_suject_hz
integer x = 686
integer y = 212
integer width = 288
integer height = 56
long backcolor = 67108864
string text = "日期："
end type

type st_4 from w_publ_easyq`st_4 within w_rp_suject_hz
integer x = 1477
integer y = 212
integer width = 78
integer height = 56
string text = "至"
alignment alignment = center!
end type

type em_1 from w_publ_easyq`em_1 within w_rp_suject_hz
integer x = 960
integer taborder = 120
end type

type em_2 from w_publ_easyq`em_2 within w_rp_suject_hz
integer x = 1554
integer taborder = 130
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_suject_hz
integer x = 1349
integer y = 40
integer taborder = 70
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_suject_hz
integer x = 1143
integer y = 40
integer taborder = 80
long backcolor = 67108864
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_suject_hz
integer y = 300
integer width = 3163
string dataobject = "dw_rp_subject_hz"
end type

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_suject_hz
integer x = 1646
integer y = 1292
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_suject_hz
integer x = 485
integer y = 1292
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_suject_hz
integer x = 1189
integer y = 1308
end type

type st_cust from w_publ_easyq`st_cust within w_rp_suject_hz
integer x = 23
integer y = 1308
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_suject_hz
integer x = 1563
integer y = 1064
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_rp_suject_hz
integer x = 1371
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_rp_suject_hz
integer x = 1970
end type

type pb_2 from w_publ_easyq`pb_2 within w_rp_suject_hz
integer x = 2080
end type

type cb_help from w_publ_easyq`cb_help within w_rp_suject_hz
boolean visible = false
integer x = 2409
integer y = 388
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_suject_hz
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_suject_hz
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_suject_hz
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_suject_hz
end type

type r_bar from w_publ_easyq`r_bar within w_rp_suject_hz
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_suject_hz
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_suject_hz
end type

type ln_3 from w_publ_easyq`ln_3 within w_rp_suject_hz
boolean visible = false
end type

type ln_4 from w_publ_easyq`ln_4 within w_rp_suject_hz
boolean visible = false
end type

type st_2 from statictext within w_rp_suject_hz
integer x = 2190
integer y = 212
integer width = 279
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "凭证编号："
alignment alignment = right!
boolean focusrectangle = false
end type

type em_3 from editmask within w_rp_suject_hz
integer x = 2459
integer y = 196
integer width = 247
integer height = 88
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "####"
boolean spin = true
string minmax = "1~~9999"
end type

type em_4 from editmask within w_rp_suject_hz
integer x = 2789
integer y = 196
integer width = 247
integer height = 88
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "9999"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "####"
boolean spin = true
string minmax = "1~~9999"
end type

type st_5 from statictext within w_rp_suject_hz
integer x = 2711
integer y = 212
integer width = 78
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "至"
alignment alignment = center!
boolean focusrectangle = false
end type

type st_1 from statictext within w_rp_suject_hz
integer y = 212
integer width = 178
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
string text = "范围："
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_1 from dropdownlistbox within w_rp_suject_hz
integer x = 165
integer y = 196
integer width = 631
integer height = 400
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "[全部凭证]"
boolean sorted = false
boolean vscrollbar = true
string item[] = {"[全部凭证]","未审核凭证","已审核未登帐凭证","已登帐凭证"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;if index=1 then
	cur_checkflag = -1
	cur_postflag = -1	
elseif index=2 then
	cur_checkflag = 0
	cur_postflag = 0
elseif index=3 then
	cur_checkflag = 1
	cur_postflag = 0
elseif index=4 then
	cur_checkflag = 1
	cur_postflag = 1
end if
end event