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

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

global type w_rp_item_mx from w_publ_easyq
boolean TitleBar=true
string Title="项目明细帐"
long BackColor=81324524
ddlb_1 ddlb_1
ddlb_2 ddlb_2
cbx_1 cbx_1
dw_2 dw_2
end type
global w_rp_item_mx w_rp_item_mx

on w_rp_item_mx.create
int iCurrent
call super::create
this.ddlb_1=create ddlb_1
this.ddlb_2=create ddlb_2
this.cbx_1=create cbx_1
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.cbx_1
this.Control[iCurrent+4]=this.dw_2
end on

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

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

dw_1.SetTransObject (sqlca)
dw_1.titleclick_sort_use = FALSE

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)
childdw_subid.Retrieve(sys_accsetid)

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_exit from w_publ_easyq`cb_exit within w_rp_item_mx
int X=1125
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_item_mx
int X=960
int TabOrder=110
boolean BringToTop=true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_item_mx
int X=695
int TabOrder=90
boolean BringToTop=true
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_item_mx
int TabOrder=40
boolean BringToTop=true
end type

event cb_1::clicked;call super::clicked;Long ls_firstcmon,ls_lastmon,ls_itemid
Int ls_postflag
Long ll_row
String ls_itemname

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

IF cbx_1.Checked THEN
	ls_postflag = 1
ELSE
	ls_postflag = -1
END IF

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

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,ls_itemid,ls_firstcmon,ls_lastmon,ls_postflag)
IF dw_1.RowCount() <= 0 THEN RETURN
Dec m_balc
String ls_subid
Long i
FOR i = 1 TO dw_1.RowCount()
	IF dw_1.Object.dw_sort[i] = 0 THEN
		ls_subid = dw_1.Object.subid[i]
		m_balc = f_rst_item_sub_bbalc(ls_itemid,ls_subid,ls_firstcmon,ls_postflag)
		dw_1.Object.balc[i] = m_balc
	ELSEIF dw_1.Object.dw_sort[i] = 1 THEN
		dw_1.Object.balc[i] = dw_1.Object.debit[i] - dw_1.Object.credit[i] + m_balc
		m_balc = dw_1.Object.balc[i]
	ELSEIF dw_1.Object.dw_sort[i] = 2 THEN
		dw_1.Object.balc[i] = m_balc
	END IF
NEXT


end event

type st_3 from w_publ_easyq`st_3 within w_rp_item_mx
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_mx
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_mx
int X=302
int Width=215
int TabOrder=120
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_mx
int X=1271
int Y=336
int TabOrder=150
boolean BringToTop=true
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_item_mx
int X=1582
int TabOrder=70
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_item_mx
int X=1371
int TabOrder=80
boolean BringToTop=true
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_item_mx
int X=1157
int Width=2336
boolean BringToTop=true
string DataObject="dw_rp_item_mx"
end type

event dw_1::doubleclicked;Long ll_row
Long ll_credid

ll_row = THIS.GetRow()
IF ll_row <= 0 THEN RETURN

ll_credid = THIS.Object.credid[ll_row]
IF ll_credid <= 0 THEN RETURN

s_edit_index_tran s_tran //翻页功能窗口 传递参数使用
s_tran.if_retrieve_all = TRUE  //是否一次RETRIEVE所有行
s_tran.work_mode = 0            //0-单纯编辑模式, 1-选择模式
s_tran.arg_pkid = 0             //目标定位PKID (备用)
s_tran.arg_string_code = ''     //查询列部分内容,用于初步筛选 
s_tran.e_long = ll_credid
OpenWithParm(w_credence_edit,s_tran)
end event

type ddlb_1 from dropdownlistbox within w_rp_item_mx
int X=791
int Y=152
int Width=224
int Height=800
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 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_mx
int X=1115
int Y=152
int Width=247
int Height=880
int TabOrder=140
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 cbx_1 from checkbox within w_rp_item_mx
int X=1385
int Y=156
int Width=466
int Height=76
boolean BringToTop=true
string Text="包括未登帐凭证"
BorderStyle BorderStyle=StyleLowered!
long TextColor=33554432
long BackColor=67108864
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontCharSet FontCharSet=GB2312CharSet!
FontPitch FontPitch=Variable!
end type

type dw_2 from u_dw_rbtnfilter within w_rp_item_mx
int X=0
int Y=252
int Width=1157
int Height=928
int TabOrder=30
boolean BringToTop=true
string DataObject="dw_rp_item_mx_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