$PBExportHeader$w_rp_assetdepr.srw forward global type w_rp_assetdepr from w_publ_easyq end type type ddlb_1 from dropdownlistbox within w_rp_assetdepr end type type ddlb_2 from dropdownlistbox within w_rp_assetdepr end type type cbx_1 from checkbox within w_rp_assetdepr end type type st_1 from statictext within w_rp_assetdepr end type end forward global type w_rp_assetdepr from w_publ_easyq integer width = 3502 integer height = 2200 string title = "固定资产及累计折旧余额表" long backcolor = 80269524 ddlb_1 ddlb_1 ddlb_2 ddlb_2 cbx_1 cbx_1 st_1 st_1 end type global w_rp_assetdepr w_rp_assetdepr on w_rp_assetdepr.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.st_1=create st_1 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.st_1 end on on w_rp_assetdepr.destroy call super::destroy destroy(this.ddlb_1) destroy(this.ddlb_2) destroy(this.cbx_1) destroy(this.st_1) 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 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_assetdepr end type type cb_exit from w_publ_easyq`cb_exit within w_rp_assetdepr integer x = 965 end type type cb_2 from w_publ_easyq`cb_2 within w_rp_assetdepr boolean bringtotop = true end type type cb_psetup from w_publ_easyq`cb_psetup within w_rp_assetdepr boolean bringtotop = true end type type cb_1 from w_publ_easyq`cb_1 within w_rp_assetdepr boolean bringtotop = true end type event cb_1::clicked;call super::clicked;long ls_firstcmon,ls_lastmon int li_clearflag if cbx_1.checked then li_clearflag = -1 else li_clearflag = 0 end if ls_firstcmon=long(em_1.text) * 100 + long(ddlb_1.text) ls_lastmon=long(em_1.text) * 100 + long(ddlb_2.text) dw_1.retrieve(sys_accsetid,ls_firstcmon,ls_lastmon,li_clearflag) dw_1.object.month.text="会计期间:"+string(ls_firstcmon)+" 至 "+string(ls_lastmon) end event type st_3 from w_publ_easyq`st_3 within w_rp_assetdepr integer x = 0 integer width = 288 long backcolor = 67108864 string text = "会计年度：" end type type st_4 from w_publ_easyq`st_4 within w_rp_assetdepr integer x = 1010 integer width = 78 long backcolor = 67108864 string text = "至" alignment alignment = center! end type type em_1 from w_publ_easyq`em_1 within w_rp_assetdepr integer x = 279 integer width = 219 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_assetdepr integer x = 1531 integer y = 488 end type type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_assetdepr integer x = 1349 integer y = 48 end type type cbx_yl from w_publ_easyq`cbx_yl within w_rp_assetdepr integer x = 1138 integer y = 44 long backcolor = 67108864 end type type dw_1 from w_publ_easyq`dw_1 within w_rp_assetdepr integer y = 300 integer width = 2702 integer height = 944 string dataobject = "dw_rp_assetdepr" end type type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_assetdepr end type type sle_cust from w_publ_easyq`sle_cust within w_rp_assetdepr end type type st_mtrl from w_publ_easyq`st_mtrl within w_rp_assetdepr end type type st_cust from w_publ_easyq`st_cust within w_rp_assetdepr end type type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_assetdepr end type type pb_em1 from w_publ_easyq`pb_em1 within w_rp_assetdepr boolean visible = false integer x = 1403 integer y = 620 end type type pb_em2 from w_publ_easyq`pb_em2 within w_rp_assetdepr boolean visible = false integer x = 2016 integer y = 620 end type type pb_2 from w_publ_easyq`pb_2 within w_rp_assetdepr boolean visible = false integer x = 2126 integer y = 620 end type type cb_help from w_publ_easyq`cb_help within w_rp_assetdepr boolean visible = false integer x = 1938 integer y = 572 end type type cb_copyself from w_publ_easyq`cb_copyself within w_rp_assetdepr end type type gb_1 from w_publ_easyq`gb_1 within w_rp_assetdepr end type type ln_bar from w_publ_easyq`ln_bar within w_rp_assetdepr end type type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_assetdepr end type type r_bar from w_publ_easyq`r_bar within w_rp_assetdepr end type type ln_1 from w_publ_easyq`ln_1 within w_rp_assetdepr end type type ln_2 from w_publ_easyq`ln_2 within w_rp_assetdepr end type type ln_3 from w_publ_easyq`ln_3 within w_rp_assetdepr boolean visible = false end type type ln_4 from w_publ_easyq`ln_4 within w_rp_assetdepr boolean visible = false end type type ddlb_1 from dropdownlistbox within w_rp_assetdepr integer x = 773 integer y = 200 integer width = 229 integer height = 908 integer taborder = 130 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 boolean sorted = false boolean vscrollbar = true string item[] = {"1","2","3","4","5","6","7","8","9","10","11","12"} borderstyle borderstyle = stylelowered! end type event constructor;this.text=string(s_sys_accset.currmon) end event type ddlb_2 from dropdownlistbox within w_rp_assetdepr integer x = 1097 integer y = 200 integer width = 229 integer height = 908 integer taborder = 140 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 boolean sorted = false boolean vscrollbar = true string item[] = {"1","2","3","4","5","6","7","8","9","10","11","12"} borderstyle borderstyle = stylelowered! end type event constructor;this.text=string(s_sys_accset.currmon) end event event selectionchanged;if long(ddlb_2.text)