$PBExportHeader$w_rp_money_scidsum.srw forward global type w_rp_money_scidsum from w_publ_easyq end type end forward global type w_rp_money_scidsum from w_publ_easyq integer width = 3575 integer height = 2192 string title = "分部销售费用统计表" boolean if_ue_retr = true boolean if_ue_filter = true boolean if_ue_sort = true boolean if_ue_sentdataout = true end type global w_rp_money_scidsum w_rp_money_scidsum type variables long cur_itemCnt = 10 long cur_itemid[] end variables forward prototypes public function integer wf_get_itemamt () end prototypes public function integer wf_get_itemamt ();//SELECT scid, SUM(amt) AS itemamt, itemid //FROM u_income_expenses //WHERE (flag = 1) //and outdate between (:arg_firstdate and :arg_enddate) //GROUP BY scid, itemid return 1 end function on w_rp_money_scidsum.create call super::create end on on w_rp_money_scidsum.destroy call super::destroy end on event open;call super::open;//菜单打开 if_ue_retr=true if_ue_filter=true if_ue_sort=true if_ue_sentdataout=true IF cbx_loginretr.Checked THEN cb_1.TriggerEvent(Clicked!) END IF end event type cb_func from w_publ_easyq`cb_func within w_rp_money_scidsum end type type cb_exit from w_publ_easyq`cb_exit within w_rp_money_scidsum integer x = 1157 end type type cb_2 from w_publ_easyq`cb_2 within w_rp_money_scidsum integer width = 192 string text = "打印&P" end type type cb_psetup from w_publ_easyq`cb_psetup within w_rp_money_scidsum end type type cb_1 from w_publ_easyq`cb_1 within w_rp_money_scidsum end type event cb_1::clicked;call super::clicked;DateTime firstdate,enddate firstdate = DateTime(Date(em_1.Text),Time(0)) enddate = DateTime(Date(em_2.Text),Time('23:59:59')) dw_1.Retrieve(firstdate,enddate,sys_user_scid) end event type st_3 from w_publ_easyq`st_3 within w_rp_money_scidsum integer y = 216 end type type st_4 from w_publ_easyq`st_4 within w_rp_money_scidsum integer x = 731 integer y = 216 end type type em_1 from w_publ_easyq`em_1 within w_rp_money_scidsum integer y = 200 end type type em_2 from w_publ_easyq`em_2 within w_rp_money_scidsum integer x = 837 integer y = 200 end type type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_money_scidsum integer x = 1609 integer y = 12 end type type cbx_yl from w_publ_easyq`cbx_yl within w_rp_money_scidsum integer x = 1390 integer y = 12 end type event cbx_yl::clicked;call super::clicked;if this.checked then dw_1.selectrow(0,false) end if end event type dw_1 from w_publ_easyq`dw_1 within w_rp_money_scidsum integer y = 312 integer height = 1024 string dataobject = "dw_rp_money_scidsum" end type event dw_1::rowfocuschanged;call super::rowfocuschanged;IF currentrow <=0 THEN RETURN this.selectrow(0,false) this.selectrow(currentrow,true) end event type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_money_scidsum end type type sle_cust from w_publ_easyq`sle_cust within w_rp_money_scidsum end type type st_mtrl from w_publ_easyq`st_mtrl within w_rp_money_scidsum end type type st_cust from w_publ_easyq`st_cust within w_rp_money_scidsum end type type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_money_scidsum boolean visible = true integer x = 1390 integer y = 96 end type type pb_em1 from w_publ_easyq`pb_em1 within w_rp_money_scidsum end type type pb_em2 from w_publ_easyq`pb_em2 within w_rp_money_scidsum end type type pb_2 from w_publ_easyq`pb_2 within w_rp_money_scidsum end type type cb_help from w_publ_easyq`cb_help within w_rp_money_scidsum integer x = 1006 end type type cb_copyself from w_publ_easyq`cb_copyself within w_rp_money_scidsum end type type gb_1 from w_publ_easyq`gb_1 within w_rp_money_scidsum end type type ln_bar from w_publ_easyq`ln_bar within w_rp_money_scidsum end type type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_money_scidsum end type type r_bar from w_publ_easyq`r_bar within w_rp_money_scidsum end type type ln_1 from w_publ_easyq`ln_1 within w_rp_money_scidsum end type type ln_2 from w_publ_easyq`ln_2 within w_rp_money_scidsum end type type ln_3 from w_publ_easyq`ln_3 within w_rp_money_scidsum end type type ln_4 from w_publ_easyq`ln_4 within w_rp_money_scidsum end type