Q5/ws_objects/Ew_report.pbl.src/w_rp_sale_contrast.srw

$PBExportHeader$w_rp_sale_contrast.srw
forward
global type w_rp_sale_contrast from w_publ_easyq
end type
type cbx_1 from checkbox within w_rp_sale_contrast
end type
type ddlb_1 from dropdownlistbox within w_rp_sale_contrast
end type
type st_1 from statictext within w_rp_sale_contrast
end type
type tv_1 from uo_tv_cusarea within w_rp_sale_contrast
end type
type tv_2 from uo_tv_mtrltype within w_rp_sale_contrast
end type
type st_2 from statictext within w_rp_sale_contrast
end type
type ddlb_2 from uo_ddlb_storageid within w_rp_sale_contrast
end type
type ddlb_scid from uo_ddlb_scid within w_rp_sale_contrast
end type
end forward

global type w_rp_sale_contrast from w_publ_easyq
string title = "销售金额汇总对比表"
cbx_1 cbx_1
ddlb_1 ddlb_1
st_1 st_1
tv_1 tv_1
tv_2 tv_2
st_2 st_2
ddlb_2 ddlb_2
ddlb_scid ddlb_scid
end type
global w_rp_sale_contrast w_rp_sale_contrast

type variables
long cur_scid_arr[]
int cur_contrastflag = 1

Long cur_storageid_arr[]
//string ls_areaname = ''
String ls_handtype = ''

boolean ib_ChgReport = false
end variables

forward prototypes
public function datetime wf_get_lastmonth ()
public subroutine wf_hidecol ()
end prototypes

public function datetime wf_get_lastmonth ();int li_month
long ll_year
datetime ldt_dt

ll_year = year(today())
li_month = month(today())

if li_month = 1 then
	ldt_dt = datetime(date(string(ll_year - 1)+"-12-01"))
else
	ldt_dt = datetime(date(string(ll_year)+"-"+string(li_month - 1)+"-01"))
end if

return ldt_dt
	
end function

public subroutine wf_hidecol ();s_hide_col s_col_plan
s_col_plan.col_1 = 'u_mtrldef_planprice'
s_col_plan.col_2 = 'enamt_plan'
s_col_plan.col_3 = 'gpamt_plan'
f_hide_col(1451,dw_1,s_col_plan)

end subroutine

on w_rp_sale_contrast.create
int iCurrent
call super::create
this.cbx_1=create cbx_1
this.ddlb_1=create ddlb_1
this.st_1=create st_1
this.tv_1=create tv_1
this.tv_2=create tv_2
this.st_2=create st_2
this.ddlb_2=create ddlb_2
this.ddlb_scid=create ddlb_scid
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_1
this.Control[iCurrent+2]=this.ddlb_1
this.Control[iCurrent+3]=this.st_1
this.Control[iCurrent+4]=this.tv_1
this.Control[iCurrent+5]=this.tv_2
this.Control[iCurrent+6]=this.st_2
this.Control[iCurrent+7]=this.ddlb_2
this.Control[iCurrent+8]=this.ddlb_scid
end on

on w_rp_sale_contrast.destroy
call super::destroy
destroy(this.cbx_1)
destroy(this.ddlb_1)
destroy(this.st_1)
destroy(this.tv_1)
destroy(this.tv_2)
destroy(this.st_2)
destroy(this.ddlb_2)
destroy(this.ddlb_scid)
end on

event ue_before_openretrieve;call super::ue_before_openretrieve;em_1.Text = String(wf_get_lastmonth(),"yyyy-mm")

tv_2.Y = tv_1.Y
tv_2.Visible = False

end event

event resize;call super::resize;tv_1.height = this.height - tv_1.y - 150
tv_2.height = tv_1.height
end event

type cb_func from w_publ_easyq`cb_func within w_rp_sale_contrast
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_sale_contrast
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_sale_contrast
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_sale_contrast
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_sale_contrast
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;
//IF Trim(ddlb_1.Text) = "客户销售金额对比表" AND cbx_1.Checked THEN
//	dw_1.DataObject = "dw_rp_sale_contrast_2"
//ELSEIF Trim(ddlb_1.Text) = "客户销售金额对比表" AND NOT cbx_1.Checked THEN
//	dw_1.DataObject = "dw_rp_sale_contrast_1"
//ELSEIF Trim(ddlb_1.Text) = "产品销售金额对比表" AND cbx_1.Checked THEN
//	dw_1.DataObject = "dw_rp_sale_contrast_3"
//ELSEIF Trim(ddlb_1.Text) = "产品销售金额对比表" AND NOT cbx_1.Checked THEN
//	dw_1.DataObject = "dw_rp_sale_contrast_4"
//END IF
//
//dw_1.SetTransObject(sqlca)


Int li_option_outrep
IF sys_power_issuper THEN
	li_option_outrep = 0
ELSE
	li_option_outrep = sys_option_outrep
END IF

dw_1.Retrieve(cur_scid_arr,cur_storageid_arr,ls_handtype,Trim(em_1.Text),Trim(em_2.Text),sys_areaid,cur_contrastflag, sys_user_outrep, li_option_outrep)

wf_hidecol()
//IF Trim(ddlb_1.Text) = "客户销售金额对比表" AND cbx_1.Checked THEN
//	dw_1.Object.t_8.Text = "对比日期为:"+Trim(em_1.Text)+' 同 '+Trim(em_2.Text)
//ELSEIF Trim(ddlb_1.Text) = "产品销售金额对比表" AND cbx_1.Checked THEN
//	dw_1.Object.t_10.Text = "对比日期为:"+Trim(em_1.Text)+' 同 '+Trim(em_2.Text)
//END IF

end event

type st_3 from w_publ_easyq`st_3 within w_rp_sale_contrast
integer x = 1637
integer y = 204
end type

type st_4 from w_publ_easyq`st_4 within w_rp_sale_contrast
integer x = 2281
integer y = 204
end type

type em_1 from w_publ_easyq`em_1 within w_rp_sale_contrast
integer x = 1856
integer y = 188
integer width = 325
integer taborder = 110
string mask = "yyyy-mm"
end type

type em_2 from w_publ_easyq`em_2 within w_rp_sale_contrast
integer x = 2382
integer y = 188
integer width = 325
integer taborder = 120
string mask = "yyyy-mm"
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_sale_contrast
integer x = 1600
integer y = 12
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_sale_contrast
integer x = 1390
integer y = 12
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_sale_contrast
integer x = 800
integer y = 304
integer width = 2679
string dataobject = "dw_rp_sale_contrast_1"
end type

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_sale_contrast
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_sale_contrast
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_sale_contrast
end type

type st_cust from w_publ_easyq`st_cust within w_rp_sale_contrast
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_sale_contrast
boolean visible = true
integer x = 1390
integer y = 108
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_rp_sale_contrast
integer x = 2190
integer y = 188
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_rp_sale_contrast
integer x = 2715
integer y = 188
end type

type pb_2 from w_publ_easyq`pb_2 within w_rp_sale_contrast
integer x = 2821
integer y = 188
end type

type cb_help from w_publ_easyq`cb_help within w_rp_sale_contrast
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_sale_contrast
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_sale_contrast
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_sale_contrast
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_sale_contrast
end type

type r_bar from w_publ_easyq`r_bar within w_rp_sale_contrast
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_sale_contrast
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_sale_contrast
end type

type ln_3 from w_publ_easyq`ln_3 within w_rp_sale_contrast
end type

type ln_4 from w_publ_easyq`ln_4 within w_rp_sale_contrast
end type

type cbx_1 from checkbox within w_rp_sale_contrast
integer x = 1979
integer y = 104
integer width = 384
integer height = 64
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 = "按月份对比"
boolean checked = true
end type

event clicked;if this.checked then
	cur_contrastflag = 1
else
	cur_contrastflag = 0
end if

cb_1.triggerevent(clicked!)
end event

event constructor;This.BackColor = 14215660
end event

type ddlb_1 from dropdownlistbox within w_rp_sale_contrast
integer x = 1975
integer y = 8
integer width = 1211
integer height = 556
integer taborder = 120
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[] = {"客户销售金额对比表","产品销售金额对比表","产品+配置销售金额对比表","产品+配置+配置1+配置2销售金额对比表"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;IF Trim(This.Text) = "客户销售金额对比表" THEN
	dw_1.DataObject = "dw_rp_sale_contrast_1"
	tv_1.Visible = True
	tv_2.Visible = False
	
	ls_handtype = ''
	ib_ChgReport = true
	tv_1.SelectItem(1)
	ib_ChgReport = false
ELSEIF Trim(This.Text) = "产品销售金额对比表" THEN
	dw_1.DataObject = "dw_rp_sale_contrast_3"
	tv_1.Visible = False
	tv_2.Visible = True
	ls_handtype = ''
	ib_ChgReport = true
	tv_2.SelectItem(1)
	ib_ChgReport = false
ELSEIF Trim(This.Text) = "产品+配置销售金额对比表" THEN
	dw_1.DataObject = "dw_rp_sale_contrast_2"
	tv_1.Visible = False
	tv_2.Visible = True
	ls_handtype = ''
	ib_ChgReport = true
	tv_2.SelectItem(1)
	ib_ChgReport = false
ELSEIF Trim(This.Text) = "产品+配置+配置1+配置2销售金额对比表" THEN
	dw_1.DataObject = "dw_rp_sale_contrast_4"
	tv_1.Visible = False
	tv_2.Visible = True
	ls_handtype = ''
	ib_ChgReport = true
	tv_2.SelectItem(1)
	ib_ChgReport = false
END IF
//dw_1.SetTransObject(sqlca)
wf_replacedw()

cb_1.TriggerEvent(Clicked!)


end event

type st_1 from statictext within w_rp_sale_contrast
integer y = 208
integer width = 128
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_cusarea within w_rp_sale_contrast
integer y = 304
integer width = 800
integer height = 1008
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;
ls_handtype = This.uo_cur_info.areaname
ls_handtype = ls_handtype + '%'
IF Not ib_ChgReport THEN
	cb_1.TriggerEvent(Clicked!)
END IF


end event

type tv_2 from uo_tv_mtrltype within w_rp_sale_contrast
integer y = 460
integer width = 800
integer height = 1120
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;ls_handtype = This.uo_cur_info.handtype
ls_handtype = ls_handtype + '%'
IF Not ib_ChgReport THEN
	cb_1.TriggerEvent(Clicked!)
END IF


end event

type st_2 from statictext within w_rp_sale_contrast
integer x = 773
integer y = 208
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 ddlb_2 from uo_ddlb_storageid within w_rp_sale_contrast
integer x = 946
integer y = 192
integer width = 681
integer height = 1108
integer taborder = 30
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_storageid_arr = this.uo_storageid_arr

end event

event selectionchanged;call super::selectionchanged;cur_storageid_arr = this.uo_storageid_arr
cb_1.triggerevent(clicked!)
end event

type ddlb_scid from uo_ddlb_scid within w_rp_sale_contrast
integer x = 137
integer y = 192
integer width = 622
integer height = 556
integer taborder = 100
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