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

$PBExportHeader$w_warebalc_view_old.srw
forward
global type w_warebalc_view_old from w_publ_pageretr_easyq
end type
type ddlb_storageid from uo_ddlb_storageid within w_warebalc_view_old
end type
type ddlb_mtrlprp from dropdownlistbox within w_warebalc_view_old
end type
type em_month from editmask within w_warebalc_view_old
end type
type st_2 from statictext within w_warebalc_view_old
end type
type st_4 from statictext within w_warebalc_view_old
end type
type em_endmonth from editmask within w_warebalc_view_old
end type
type pb_em1 from picturebutton within w_warebalc_view_old
end type
type pb_em2 from picturebutton within w_warebalc_view_old
end type
type pb_2 from picturebutton within w_warebalc_view_old
end type
type ddlb_2 from dropdownlistbox within w_warebalc_view_old
end type
type tv_1 from uo_tv_mtrltype within w_warebalc_view_old
end type
type st_3 from statictext within w_warebalc_view_old
end type
end forward

global type w_warebalc_view_old from w_publ_pageretr_easyq
integer width = 3831
string title = "仓库推算结存表"
event ue_date1 ( )
event ue_date2 ( )
event type integer days_in_month ( integer month,  integer year )
event ue_date3 ( )
ddlb_storageid ddlb_storageid
ddlb_mtrlprp ddlb_mtrlprp
em_month em_month
st_2 st_2
st_4 st_4
em_endmonth em_endmonth
pb_em1 pb_em1
pb_em2 pb_em2
pb_2 pb_2
ddlb_2 ddlb_2
tv_1 tv_1
st_3 st_3
end type
global w_warebalc_view_old w_warebalc_view_old

type variables
Long cur_storageid = -1
long cur_storageid_arr[]
DateTime balcdate //结存日期
DateTime balcdate_end //结存日期end
//Int cur_mtrlorigin = -1 //当前显示物料来源
String ls_handtype = ''
string ls_mtrltype = ''

long viewtype = 0 
end variables

forward prototypes
public subroutine wf_hide_col ()
public function integer days_in_month (integer month, integer year)
end prototypes

event ue_date1();//IF THIS.Text = "本日" THEN
	em_month.text = string(today(),"yyyy-mm-dd")
	em_endmonth.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
//	int li_DayNum
//	li_DayNum =  DayNumber(today())
//	em_1.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
//	em_2.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
//	int li_Month, li_Year, li_Days
//	li_Month = Month(today())
//	li_Year = Year(today())
//	li_Days = days_in_month(li_Month, li_Year)
//	em_1.text = string(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
//	em_2.text = string(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF
end event

event ue_date2();//IF THIS.Text = "本日" THEN
//	em_1.text = string(today(),"yyyy-mm-dd")
//	em_2.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
	int li_DayNum
	li_DayNum =  DayNumber(today())
	em_month.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
	em_endmonth.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
//	int li_Month, li_Year, li_Days
//	li_Month = Month(today())
//	li_Year = Year(today())
//	li_Days = days_in_month(li_Month, li_Year)
//	em_1.text = string(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
//	em_2.text = string(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF
end event

event type integer days_in_month(integer month, integer year);//Most cases are straight forward in that there are a fixed number of 
//days in 11 of the 12 months.  February is, of course, the problem.
//In a leap year February has 29 days, otherwise 28.

Integer		li_DaysInMonth, li_Days[12] = {31,28,31,30,31,30,31,31,30,31,30,31}

// Get the number of days per month for a non leap year.
li_DaysInMonth = li_Days[Month]

// Check for a leap year.
If Month = 2 Then
	// If the year is a leap year, change the number of days.
	// Leap Year Calculation:
	//	Year divisible by 4, but not by 100, unless it is also divisible by 400
	If ( (Mod(Year,4) = 0 And Mod(Year,100) <> 0) Or (Mod(Year,400) = 0) ) Then
		li_DaysInMonth = 29
	End If
End If

//Return the number of days in the relevant month
Return li_DaysInMonth
end event

event ue_date3();//IF THIS.Text = "本日" THEN
//	em_1.text = string(today(),"yyyy-mm-dd")
//	em_2.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
//	int li_DayNum
//	li_DayNum =  DayNumber(today())
//	em_1.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
//	em_2.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
	int li_Month, li_Year, li_Days
	li_Month = Month(today())
	li_Year = Year(today())
	li_Days = days_in_month(li_Month, li_Year)
	em_month.text = string(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
	em_endmonth.text = string(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF
end event

public subroutine wf_hide_col ();s_hide_col s_col

s_col.col_1 = 'bgamt'
s_col.col_2 = 'uv_warebalc_view_incamt'
s_col.col_3 = 'uv_warebalc_view_desamt'
s_col.col_4 = 'uv_warebalc_view_balcamt'
        
f_hide_col(123,dw_pageretr,s_col)



s_hide_col s_col_mtrlsectype
s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype' 
f_hide_col(1308,dw_pageretr,s_col_mtrlsectype) 

s_hide_col s_col_zxmtrlmode
s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode' 
f_hide_col(1309,dw_pageretr,s_col_zxmtrlmode) 



end subroutine

public function integer days_in_month (integer month, integer year);//Most cases are straight forward in that there are a fixed number of 
//days in 11 of the 12 months.  February is, of course, the problem.
//In a leap year February has 29 days, otherwise 28.

Integer		li_DaysInMonth, li_Days[12] = {31,28,31,30,31,30,31,31,30,31,30,31}

// Get the number of days per month for a non leap year.
li_DaysInMonth = li_Days[Month]

// Check for a leap year.
If Month = 2 Then
	// If the year is a leap year, change the number of days.
	// Leap Year Calculation:
	//	Year divisible by 4, but not by 100, unless it is also divisible by 400
	If ( (Mod(Year,4) = 0 And Mod(Year,100) <> 0) Or (Mod(Year,400) = 0) ) Then
		li_DaysInMonth = 29
	End If
End If

//Return the number of days in the relevant month
Return li_DaysInMonth
end function

on w_warebalc_view_old.create
int iCurrent
call super::create
this.ddlb_storageid=create ddlb_storageid
this.ddlb_mtrlprp=create ddlb_mtrlprp
this.em_month=create em_month
this.st_2=create st_2
this.st_4=create st_4
this.em_endmonth=create em_endmonth
this.pb_em1=create pb_em1
this.pb_em2=create pb_em2
this.pb_2=create pb_2
this.ddlb_2=create ddlb_2
this.tv_1=create tv_1
this.st_3=create st_3
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_storageid
this.Control[iCurrent+2]=this.ddlb_mtrlprp
this.Control[iCurrent+3]=this.em_month
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.st_4
this.Control[iCurrent+6]=this.em_endmonth
this.Control[iCurrent+7]=this.pb_em1
this.Control[iCurrent+8]=this.pb_em2
this.Control[iCurrent+9]=this.pb_2
this.Control[iCurrent+10]=this.ddlb_2
this.Control[iCurrent+11]=this.tv_1
this.Control[iCurrent+12]=this.st_3
end on

on w_warebalc_view_old.destroy
call super::destroy
destroy(this.ddlb_storageid)
destroy(this.ddlb_mtrlprp)
destroy(this.em_month)
destroy(this.st_2)
destroy(this.st_4)
destroy(this.em_endmonth)
destroy(this.pb_em1)
destroy(this.pb_em2)
destroy(this.pb_2)
destroy(this.ddlb_2)
destroy(this.tv_1)
destroy(this.st_3)
end on

event ue_usual_query_retr;call super::ue_usual_query_retr;String ls_querystrpart = ''
ls_newselect = Lower(ori_oldselect)
IF Trim(sle_usual_query.Text) <> '' THEN
	IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN
		ls_querystrpart = ls_querystrpart + "u_mtrldef_mtrlcode like '%"+Trim(sle_usual_query.Text)+"%'"
		ls_querystrpart = ls_querystrpart + " or mtrlname like '%"+Trim(sle_usual_query.Text)+"%')"
	ELSE
		ls_querystrpart = ls_querystrpart + " (u_mtrldef_mtrlcode like '"+Trim(sle_usual_query.Text)+"'"
		ls_querystrpart = ls_querystrpart + " or mtrlname like '"+Trim(sle_usual_query.Text)+"')"
	END IF
	
	IF Pos(ls_newselect," where ") <> 0 THEN
		ls_newselect = ls_newselect+" AND ("+ls_querystrpart+')'
	ELSE
		ls_newselect = ls_newselect+" where ("+ls_querystrpart+')'
	END IF
END IF
wf_retrieveuc(dw_pageretr,ls_newselect,1)
THIS.TriggerEvent('retrieve_pageretr')

end event

event ue_usual_query_filt;call super::ue_usual_query_filt;String obj_expr = ''

	
IF Trim(sle_usual_query.Text) <> '' THEN
	IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN
		obj_expr = obj_expr+' ( u_mtrldef_mtrlcode LIKE "%'+Trim(sle_usual_query.Text)+'%") '
		obj_expr = obj_expr+' or ( mtrlname LIKE "%'+Trim(sle_usual_query.Text)+'%") '
	ELSE
		obj_expr = obj_expr+' ( u_mtrldef_mtrlcode LIKE "'+Trim(sle_usual_query.Text)+'") '
		obj_expr = obj_expr+' or ( mtrlname LIKE "'+Trim(sle_usual_query.Text)+'") '
	END IF
END IF


dw_pageretr.SetFilter(obj_expr)

dw_pageretr.SetRedraw(FALSE)
dw_pageretr.Filter()
IF dw_pageretr.RowCount() >= 1 THEN
	dw_pageretr.SelectRow(0,FALSE)
	dw_pageretr.SelectRow(1,TRUE)
END IF
dw_pageretr.SetRedraw(TRUE)

end event

event retrieve_pageretr;boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled

 
cb_nextpage_enabled=cb_nextpage.enabled
cb_retrieveall_enabled=cb_retrieveall.enabled 
cb_func_enabled=cb_func.enabled

 
cb_nextpage.enabled=false
cb_retrieveall.enabled=false 
cb_func.enabled=false


SetPointer(HourGlass!)


dw_pageretr.retrieve(cur_storageid_arr,ls_handtype)

IF cur_storageid = -1 THEN
	dw_pageretr.Object.Title.Text = '仓库推算结存表'
ELSE
	dw_pageretr.Object.Title.Text = trim(Left(ddlb_storageid.Text,Pos(ddlb_storageid.Text,'[') - 1))+'-推算结存表'
END IF

SetPointer(Arrow!)

 
cb_nextpage.enabled=cb_nextpage_enabled
cb_retrieveall.enabled=cb_retrieveall_enabled 
cb_func.enabled=cb_func_enabled

end event

event ue_before_open;call super::ue_before_open;if_ue_retr=true
if_ue_filter=true
if_ue_sort=true
if_ue_sentdataout=true
end event

event resize;call super::resize;tv_1.height=this.height - dw_pageretr.y - 115
end event

event open;call super::open;wf_hide_col()
//tv_1.f_maketree(-1)
end event

type cb_func from w_publ_pageretr_easyq`cb_func within w_warebalc_view_old
integer taborder = 140
end type

type cb_exit from w_publ_pageretr_easyq`cb_exit within w_warebalc_view_old
integer x = 878
integer picsize = 16
toolbaralignment pic_align = alignattop!
end type

type sle_usual_query from w_publ_pageretr_easyq`sle_usual_query within w_warebalc_view_old
boolean visible = false
integer x = 2039
integer y = 52
integer width = 585
integer height = 96
end type

type cb_retrieveall from w_publ_pageretr_easyq`cb_retrieveall within w_warebalc_view_old
boolean visible = false
integer x = 1632
integer y = 388
integer taborder = 150
end type

type em_pagerowno from w_publ_pageretr_easyq`em_pagerowno within w_warebalc_view_old
integer x = 1376
integer y = 388
end type

type dw_pageretr from w_publ_pageretr_easyq`dw_pageretr within w_warebalc_view_old
integer x = 809
integer y = 296
integer width = 2597
integer height = 1312
string dataobject = "dw_warebalc_view_new"
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

type st_1 from w_publ_pageretr_easyq`st_1 within w_warebalc_view_old
boolean visible = false
integer x = 1691
integer y = 72
integer width = 343
integer height = 56
long backcolor = 67108864
string text = "编码/名称含:"
end type

event st_1::constructor;call super::constructor;this.backcolor = 14215660
end event

type cb_nextpage from w_publ_pageretr_easyq`cb_nextpage within w_warebalc_view_old
boolean visible = false
integer x = 2126
integer y = 388
integer taborder = 180
end type

type ddlb_yl from w_publ_pageretr_easyq`ddlb_yl within w_warebalc_view_old
integer x = 1349
integer y = 52
integer taborder = 80
end type

type cbx_yl from w_publ_pageretr_easyq`cbx_yl within w_warebalc_view_old
integer x = 1138
integer y = 56
long backcolor = 1073741824
end type

event cbx_yl::clicked;call super::clicked;if this.checked then
	dw_edit_mode=true
	dw_pageretr.selectrow(0,false)
else
	dw_edit_mode=false
end if
end event

type cb_psetup from w_publ_pageretr_easyq`cb_psetup within w_warebalc_view_old
integer x = 603
integer width = 247
integer taborder = 130
end type

type cb_2 from w_publ_pageretr_easyq`cb_2 within w_warebalc_view_old
integer x = 576
integer taborder = 70
end type

type cb_refresh from w_publ_pageretr_easyq`cb_refresh within w_warebalc_view_old
integer taborder = 90
end type

event cb_refresh::clicked;Long balcdateint
balcdate = DateTime(Date(em_month.Text),Time(0))
balcdate_end = DateTime(Date(em_endmonth.Text),Time('23:59:59'))

SELECT top 1 isnull(min(balcdateint),0)
	INTO :balcdateint
	FROM u_warebalc
	WHERE balcdate >= :balcdate_end
	AND storageid = :cur_storageid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误','查询结存日期失败！',stopsign!,ok!)
	RETURN
END IF

DELETE u_parm_batchtake ;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK ;
	MessageBox('错误',"因网络或其它原因导致操作失败，请重试！"+sqlca.SQLErrText,information!,ok!)
	RETURN
END IF
INSERT INTO u_parm_batchtake (cusid,firstdate,enddate,balcdateint)	Values (0,:balcdate,:balcdate_end,:balcdateint) ;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK ;
	MessageBox('错误',"因网络或其它原因导致操作失败，请重试！"+sqlca.SQLErrText,information!,ok!)
	RETURN
ELSE
	COMMIT ;
END IF

IF viewtype = 2 THEN
	dw_pageretr.DataObject = 'dw_warebalc_view_new_2'
ELSE
	IF balcdateint = 0 THEN
		IF viewtype = 0 THEN
			dw_pageretr.DataObject = 'dw_warebalc_view_new'
		ELSEIF viewtype = 1 THEN
			dw_pageretr.DataObject = 'dw_warebalc_view_new_cusid'
		END IF
	ELSE
		IF viewtype = 0 THEN
			dw_pageretr.DataObject = 'dw_warebalc_view_new_1'
		ELSEIF viewtype = 1 THEN
			dw_pageretr.DataObject = 'dw_warebalc_view_new_1_cusid'
		END IF
	END IF
END IF

dw_pageretr.SetTransObject(sqlca)
dw_pageretr.uf_read_profile_layout()
f_title_change(dw_pageretr)

PARENT.TriggerEvent('retrieve_pageretr')


dw_pageretr.SetRedraw(TRUE)

IF retrieve_all  THEN
	THIS.TriggerEvent("ue_usual_query_filt")
END IF




end event

type cb_help from w_publ_pageretr_easyq`cb_help within w_warebalc_view_old
integer x = 727
end type

type cb_copyself from w_publ_pageretr_easyq`cb_copyself within w_warebalc_view_old
end type

type gb_2 from w_publ_pageretr_easyq`gb_2 within w_warebalc_view_old
end type

type ln_bar from w_publ_pageretr_easyq`ln_bar within w_warebalc_view_old
end type

type ln_bar2 from w_publ_pageretr_easyq`ln_bar2 within w_warebalc_view_old
end type

type r_bar from w_publ_pageretr_easyq`r_bar within w_warebalc_view_old
end type

type ln_1 from w_publ_pageretr_easyq`ln_1 within w_warebalc_view_old
end type

type ln_2 from w_publ_pageretr_easyq`ln_2 within w_warebalc_view_old
end type

type ddlb_storageid from uo_ddlb_storageid within w_warebalc_view_old
integer x = 178
integer y = 188
integer width = 681
integer height = 1108
integer taborder = 20
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_storageid = this.uo_storageid
cur_storageid_arr = this.uo_storageid_arr
end event

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

type ddlb_mtrlprp from dropdownlistbox within w_warebalc_view_old
boolean visible = false
integer x = 18
integer y = 200
integer width = 462
integer height = 480
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "全部[-1]"
boolean sorted = false
boolean vscrollbar = true
string item[] = {"自制产品[0]","采购[2]","外加工部件[3]","自制部件[4]","全部[-1]",""}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;//CHOOSE CASE Index
//	CASE 1
//		cur_mtrlorigin = 0
//	CASE 2
//		cur_mtrlorigin = 2
//	CASE 3
//		cur_mtrlorigin = 3
//	CASE 4
//		cur_mtrlorigin = 4
//	CASE 5
//		cur_mtrlorigin = -1
//END CHOOSE

cb_refresh.TriggerEvent(Clicked!)

//tv_1.f_maketree(-1)


end event

type em_month from editmask within w_warebalc_view_old
integer x = 1143
integer y = 196
integer width = 434
integer height = 84
integer taborder = 100
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;this.text = string(today(),'yyyy-mm-dd')
end event

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)

end event

type st_2 from statictext within w_warebalc_view_old
integer x = 882
integer y = 212
integer width = 247
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 st_4 from statictext within w_warebalc_view_old
integer x = 1687
integer y = 208
integer width = 247
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 em_endmonth from editmask within w_warebalc_view_old
integer x = 1943
integer y = 192
integer width = 434
integer height = 84
integer taborder = 110
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;this.text = string(today(),'yyyy-mm-dd')
end event

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)


end event

type pb_em1 from picturebutton within w_warebalc_view_old
integer x = 1582
integer y = 192
integer width = 101
integer height = 92
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_month.triggerevent(rbuttondown!)
end event

type pb_em2 from picturebutton within w_warebalc_view_old
integer x = 2377
integer y = 192
integer width = 101
integer height = 92
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_endmonth.triggerevent(rbuttondown!)
end event

type pb_2 from picturebutton within w_warebalc_view_old
integer x = 2487
integer y = 192
integer width = 101
integer height = 92
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date1.BMP"
alignment htextalign = left!
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr


menustr="Text=本日~tEvent=ue_date1"
menustr = menustr + "|" + "Text=本周~tEvent=ue_date2"
menustr = menustr + "|" + "Text=本月~tEvent=ue_date3"
	
if len(trim(menustr))<>0 then
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
end if
end event

type ddlb_2 from dropdownlistbox within w_warebalc_view_old
integer x = 1673
integer y = 52
integer width = 480
integer height = 300
integer taborder = 20
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
string item[] = {"按配置","按客户配置","按配置[带计划价]"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;IF THIS.Text = '按配置' THEN
	viewtype = 0 
ELSEIF THIS.Text = '按客户配置' THEN
	viewtype = 1
ELSEIF THIS.Text = '按配置[带计划价]' THEN
	viewtype = 2
END IF

//dw_pageretr.SetRedraw(false)
//IF viewtype = 2 THEN
//	dw_pageretr.DataObject = 'dw_warebalc_view_new_2'
//ELSE
//	IF balcdateint = 0 THEN
//		IF viewtype = 0 THEN
//			dw_pageretr.DataObject = 'dw_warebalc_view_new'
//		ELSEIF viewtype = 1 THEN
//			dw_pageretr.DataObject = 'dw_warebalc_view_new_cusid'
//		END IF
//	ELSE
//		IF viewtype = 0 THEN
//			dw_pageretr.DataObject = 'dw_warebalc_view_new_1'
//		ELSEIF viewtype = 1 THEN
//			dw_pageretr.DataObject = 'dw_warebalc_view_new_1_cusid'
//		END IF
//	END IF
//END IF
//
//dw_pageretr.SetTransObject(sqlca)
//dw_pageretr.uf_read_profile_layout()
//f_title_change(dw_pageretr)
//
//PARENT.TriggerEvent('retrieve_pageretr')


//dw_pageretr.SetRedraw(TRUE)

cb_refresh.triggerevent(clicked!)
end event

type tv_1 from uo_tv_mtrltype within w_warebalc_view_old
integer y = 300
integer width = 800
integer height = 1312
integer taborder = 100
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_mtrltype = THIS.uo_cur_info.mtrltype

IF ls_handtype <> '' THEN
	ls_mtrltype = '%'+ls_handtype+'%'
	ls_handtype = ls_handtype+'%'
ELSE
	ls_mtrltype = ""
END IF

PARENT.TriggerEvent('retrieve_pageretr')


end event

type st_3 from statictext within w_warebalc_view_old
integer x = 23
integer y = 208
integer width = 133
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 = center!
boolean focusrectangle = false
end type