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

$PBExportHeader$w_rp_item_hz.srw
forward
global type w_rp_item_hz from w_publ_easyq
end type
type ddlb_1 from dropdownlistbox within w_rp_item_hz
end type
type ddlb_2 from dropdownlistbox within w_rp_item_hz
end type
type dw_2 from u_dw_rbtnfilter within w_rp_item_hz
end type
end forward

global type w_rp_item_hz from w_publ_easyq
boolean TitleBar=true
string Title="项目总帐"
long BackColor=81324524
ddlb_1 ddlb_1
ddlb_2 ddlb_2
dw_2 dw_2
end type
global w_rp_item_hz w_rp_item_hz

on w_rp_item_hz.create
int iCurrent
call super::create
this.ddlb_1=create ddlb_1
this.ddlb_2=create ddlb_2
this.dw_2=create dw_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_1
this.Control[iCurrent+2]=this.ddlb_2
this.Control[iCurrent+3]=this.dw_2
end on

on w_rp_item_hz.destroy
call super::destroy
destroy(this.ddlb_1)
destroy(this.ddlb_2)
destroy(this.dw_2)
end on

event open;THIS.TriggerEvent('ue_before_open')
wf_movetocenter()

dw_1.SetTransObject (sqlca)
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

datawindowchild childdw_subid
dw_1.GetChild("subid",childdw_subid)
childdw_subid.SetTransObject (sqlca)
ddd_subid_display.ShareData(childdw_subid)

dw_2.SetTransObject (sqlca)
dw_2.RBUTTON_FILTER_USE = TRUE //右键查询功能开关
IF dw_2.Retrieve(sys_accsetid) > 0 THEN
	dw_2.SelectRow(0,FALSE)
	dw_2.SetRow(1)
	dw_2.SelectRow(1,TRUE)
END IF

cb_1.triggerevent(clicked!)
end event

event resize;call super::resize;dw_2.Height = dw_1.Height
end event

type cb_2 from w_publ_easyq`cb_2 within w_rp_item_hz
boolean BringToTop=true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_item_hz
boolean BringToTop=true
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_item_hz
boolean BringToTop=true
end type

event cb_1::clicked;call super::clicked;Long ls_firstcmon,ls_lastmon,ls_itemid
Long ll_row
string ls_itemname

ls_firstcmon = Long(em_1.Text) * 100 + Long(ddlb_1.Text)
ls_lastmon = Long(em_1.Text) * 100 + Long(ddlb_2.Text)


ll_row = dw_2.GetRow()
IF ll_row <= 0 THEN
	dw_1.Reset()
	RETURN
END IF

ls_itemid = dw_2.object.hsitemid[ll_row]
ls_itemname = dw_2.object.hsitemname[ll_row]

dw_1.object.title.text = ls_itemname+'总帐'
dw_1.Retrieve(sys_accsetid,sys_subaccsetid,ls_itemid,ls_firstcmon,ls_lastmon)

end event

type st_3 from w_publ_easyq`st_3 within w_rp_item_hz
int X=23
int Y=164
int Width=288
boolean BringToTop=true
string Text="会计年度："
end type

type st_4 from w_publ_easyq`st_4 within w_rp_item_hz
int X=1019
int Y=164
int Width=73
boolean BringToTop=true
string Text="至"
end type

type em_1 from w_publ_easyq`em_1 within w_rp_item_hz
int X=302
int Width=215
boolean BringToTop=true
string Mask="yyyy"
end type

event em_1::constructor;THIS.Text = Left(String(sys_curyearmon),4)

end event

type em_2 from w_publ_easyq`em_2 within w_rp_item_hz
int X=1271
int Y=336
int TabOrder=140
boolean BringToTop=true
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_item_hz
int X=1874
int Y=28
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_item_hz
int X=1664
int Y=32
boolean BringToTop=true
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_item_hz
int X=1161
int Width=2313
boolean BringToTop=true
string DataObject="dw_rp_item_hz"
end type

type ddlb_1 from dropdownlistbox within w_rp_item_hz
int X=791
int Y=152
int Width=224
int Height=800
int TabOrder=120
boolean BringToTop=true
BorderStyle BorderStyle=StyleLowered!
boolean Sorted=false
boolean VScrollBar=true
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontCharSet FontCharSet=GB2312CharSet!
FontPitch FontPitch=Variable!
string Item[]={"1",&
"2",&
"3",&
"4",&
"5",&
"6",&
"7",&
"8",&
"9",&
"10",&
"11",&
"12"}
end type

event constructor;THIS.Text = String(s_sys_accset.currmon)

end event

event selectionchanged;cb_1.TriggerEvent(Clicked!)
end event

type ddlb_2 from dropdownlistbox within w_rp_item_hz
int X=1115
int Y=152
int Width=247
int Height=880
int TabOrder=130
boolean BringToTop=true
BorderStyle BorderStyle=StyleLowered!
boolean Sorted=false
boolean VScrollBar=true
long TextColor=33554432
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontCharSet FontCharSet=GB2312CharSet!
FontPitch FontPitch=Variable!
string Item[]={"1",&
"2",&
"3",&
"4",&
"5",&
"6",&
"7",&
"8",&
"9",&
"10",&
"11",&
"12"}
end type

event selectionchanged;IF Long(ddlb_2.Text) < Long(ddlb_1.Text) THEN
	ddlb_1.Text = ddlb_2.Text
END IF

cb_1.TriggerEvent(Clicked!)

end event

event constructor;THIS.Text = String(s_sys_accset.currmon)

end event

type dw_2 from u_dw_rbtnfilter within w_rp_item_hz
int X=0
int Y=252
int Width=1157
int Height=928
int TabOrder=20
boolean BringToTop=true
string DataObject="dw_rp_item_hz_item_index"
boolean HScrollBar=true
boolean VScrollBar=true
boolean HSplitScroll=true
end type

event rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

cb_1.TriggerEvent(Clicked!)


end event