$PBExportHeader$w_rp_quote.srw forward global type w_rp_quote from w_publ_easyq end type type ddlb_status from dropdownlistbox within w_rp_quote end type type ddlb_scid from uo_ddlb_scid within w_rp_quote end type type st_1 from statictext within w_rp_quote end type type st_2 from statictext within w_rp_quote end type type tv_1 from uo_tv_mtrltype within w_rp_quote end type end forward global type w_rp_quote from w_publ_easyq string title = "销售报价单统计表" ddlb_status ddlb_status ddlb_scid ddlb_scid st_1 st_1 st_2 st_2 tv_1 tv_1 end type global w_rp_quote w_rp_quote type variables int cur_status = -1 long cur_scid_arr[] String cur_handtype datawindow dw_orderwfjg, dw_inwarewfjg end variables on w_rp_quote.create int iCurrent call super::create this.ddlb_status=create ddlb_status this.ddlb_scid=create ddlb_scid this.st_1=create st_1 this.st_2=create st_2 this.tv_1=create tv_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.ddlb_status this.Control[iCurrent+2]=this.ddlb_scid this.Control[iCurrent+3]=this.st_1 this.Control[iCurrent+4]=this.st_2 this.Control[iCurrent+5]=this.tv_1 end on on w_rp_quote.destroy call super::destroy destroy(this.ddlb_status) destroy(this.ddlb_scid) destroy(this.st_1) destroy(this.st_2) destroy(this.tv_1) end on type cb_func from w_publ_easyq`cb_func within w_rp_quote end type type cb_exit from w_publ_easyq`cb_exit within w_rp_quote end type type cb_2 from w_publ_easyq`cb_2 within w_rp_quote boolean bringtotop = true end type type cb_psetup from w_publ_easyq`cb_psetup within w_rp_quote boolean bringtotop = true end type type cb_1 from w_publ_easyq`cb_1 within w_rp_quote boolean bringtotop = true 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(cur_scid_arr,cur_status,firstdate,enddate) end event type st_3 from w_publ_easyq`st_3 within w_rp_quote integer x = 1344 integer y = 204 integer width = 215 alignment alignment = left! end type type st_4 from w_publ_easyq`st_4 within w_rp_quote integer x = 2025 integer y = 204 end type type em_1 from w_publ_easyq`em_1 within w_rp_quote integer x = 1518 integer y = 188 end type type em_2 from w_publ_easyq`em_2 within w_rp_quote integer x = 2126 integer y = 188 end type type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_quote integer y = 20 end type type cbx_yl from w_publ_easyq`cbx_yl within w_rp_quote integer y = 24 end type type dw_1 from w_publ_easyq`dw_1 within w_rp_quote integer y = 300 integer width = 2039 integer height = 908 string dataobject = "dw_rp_quote" end type event dw_1::doubleclicked;call super::doubleclicked;if dw_1.dataobject = 'dw_rp_quotemx_record' then IF row > 0 THEN String ls_code long ll_scid ls_code = THIS.Object.u_quote_quotecode[row] ll_scid = this.object.u_quote_scid[row] f_open_win(ll_scid,ls_code) END IF end if end event type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_quote integer x = 480 integer y = 300 end type type sle_cust from w_publ_easyq`sle_cust within w_rp_quote end type type st_mtrl from w_publ_easyq`st_mtrl within w_rp_quote integer x = 18 integer y = 316 end type type st_cust from w_publ_easyq`st_cust within w_rp_quote end type type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_quote boolean visible = true end type type pb_em1 from w_publ_easyq`pb_em1 within w_rp_quote integer x = 1938 integer y = 188 end type type pb_em2 from w_publ_easyq`pb_em2 within w_rp_quote integer x = 2537 integer y = 188 end type type pb_2 from w_publ_easyq`pb_2 within w_rp_quote integer x = 2647 integer y = 188 end type type cb_help from w_publ_easyq`cb_help within w_rp_quote end type type cb_copyself from w_publ_easyq`cb_copyself within w_rp_quote end type type gb_1 from w_publ_easyq`gb_1 within w_rp_quote integer y = 408 integer width = 2336 integer height = 248 long textcolor = 0 end type type ln_bar from w_publ_easyq`ln_bar within w_rp_quote end type type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_quote end type type r_bar from w_publ_easyq`r_bar within w_rp_quote end type type ln_1 from w_publ_easyq`ln_1 within w_rp_quote boolean visible = false integer beginy = 392 integer endy = 392 end type type ln_2 from w_publ_easyq`ln_2 within w_rp_quote boolean visible = false integer beginy = 396 integer endy = 396 end type type ln_3 from w_publ_easyq`ln_3 within w_rp_quote integer beginy = 288 integer endy = 288 end type type ln_4 from w_publ_easyq`ln_4 within w_rp_quote integer beginy = 292 integer endy = 292 end type type ddlb_status from dropdownlistbox within w_rp_quote integer x = 905 integer y = 192 integer width = 411 integer height = 496 integer taborder = 80 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_status = -1 ELSEIF Index = 2 THEN cur_status = 0 ELSEIF Index = 3 THEN cur_status = 1 END IF cb_1.PostEvent(Clicked!) end event type ddlb_scid from uo_ddlb_scid within w_rp_quote integer x = 169 integer y = 192 integer width = 558 integer height = 620 integer taborder = 20 boolean bringtotop = true end type event constructor;call super::constructor;cur_scid_arr = THIS.uo_scid_arr end event event selectionchanged;call super::selectionchanged; cur_scid_arr = THIS.uo_scid_arr cb_1.triggerevent(clicked!) end event type st_1 from statictext within w_rp_quote integer x = 18 integer y = 204 integer width = 142 integer height = 52 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 string text = "分部:" alignment alignment = right! boolean focusrectangle = false end type type st_2 from statictext within w_rp_quote integer x = 759 integer y = 204 integer width = 146 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 = 134217739 string text = "状态:" alignment alignment = right! boolean focusrectangle = false end type type tv_1 from uo_tv_mtrltype within w_rp_quote boolean visible = false integer y = 400 integer width = 1001 integer height = 1888 integer taborder = 20 boolean bringtotop = true integer textsize = -9 fontcharset fontcharset = gb2312charset! fontfamily fontfamily = anyfont! string facename = "宋体" end type event constructor;f_maketree(-1) end event event selectionchanged;call super::selectionchanged;cur_handtype = THIS.uo_cur_info.handtype cur_handtype = cur_handtype + '%' cb_1.triggerevent(clicked!) end event