Q5/ws_objects/Ew_machining.pbl.src/w_warebalc_view_spt_old.srw

$PBExportHeader$w_warebalc_view_spt_old.srw
forward
global type w_warebalc_view_spt_old from w_publ_pageretr_easyq
end type
type em_month from editmask within w_warebalc_view_spt_old
end type
type st_2 from statictext within w_warebalc_view_spt_old
end type
type st_4 from statictext within w_warebalc_view_spt_old
end type
type em_endmonth from editmask within w_warebalc_view_spt_old
end type
type pb_em1 from picturebutton within w_warebalc_view_spt_old
end type
type pb_em2 from picturebutton within w_warebalc_view_spt_old
end type
type pb_2 from picturebutton within w_warebalc_view_spt_old
end type
type tv_1 from uo_tv_mtrltype within w_warebalc_view_spt_old
end type
type st_3 from statictext within w_warebalc_view_spt_old
end type
type ddlb_scid from uo_ddlb_scid within w_warebalc_view_spt_old
end type
type ddlb_1 from uo_ddlb_wfjg_sptid within w_warebalc_view_spt_old
end type
end forward

global type w_warebalc_view_spt_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 ( )
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
tv_1 tv_1
st_3 st_3
ddlb_scid ddlb_scid
ddlb_1 ddlb_1
end type
global w_warebalc_view_spt_old w_warebalc_view_spt_old

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

long cur_sptid = -1
long il_scid
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 = 'incamt'
s_col.col_3 = 'desamt'
s_col.col_4 = '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_spt_old.create
int iCurrent
call super::create
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.tv_1=create tv_1
this.st_3=create st_3
this.ddlb_scid=create ddlb_scid
this.ddlb_1=create ddlb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.em_month
this.Control[iCurrent+2]=this.st_2
this.Control[iCurrent+3]=this.st_4
this.Control[iCurrent+4]=this.em_endmonth
this.Control[iCurrent+5]=this.pb_em1
this.Control[iCurrent+6]=this.pb_em2
this.Control[iCurrent+7]=this.pb_2
this.Control[iCurrent+8]=this.tv_1
this.Control[iCurrent+9]=this.st_3
this.Control[iCurrent+10]=this.ddlb_scid
this.Control[iCurrent+11]=this.ddlb_1
end on

on w_warebalc_view_spt_old.destroy
call super::destroy
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.tv_1)
destroy(this.st_3)
destroy(this.ddlb_scid)
destroy(this.ddlb_1)
end on

event 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_sptid,ls_handtype)

string ls_title

IF cur_sptid = -1 THEN
	ls_title = '外协商推算结存表'
ELSE
	ls_title = trim(Left(ddlb_1.Text,Pos(ddlb_1.Text,'[') - 1))+'-推算结存表'
END IF
dw_pageretr.Object.Title.Text = ls_title

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_spt_old
integer taborder = 140
end type

type cb_exit from w_publ_pageretr_easyq`cb_exit within w_warebalc_view_spt_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_spt_old
boolean visible = false
integer x = 347
integer y = 180
integer width = 585
integer height = 96
end type

type cb_retrieveall from w_publ_pageretr_easyq`cb_retrieveall within w_warebalc_view_spt_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_spt_old
integer x = 1376
integer y = 388
end type

type dw_pageretr from w_publ_pageretr_easyq`dw_pageretr within w_warebalc_view_spt_old
integer x = 809
integer y = 296
integer width = 2597
integer height = 1312
string dataobject = "dw_warebalc_view_spt_2"
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_spt_old
boolean visible = false
integer x = 0
integer y = 200
integer width = 343
integer height = 56
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_spt_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_spt_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_spt_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_spt_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_spt_old
integer x = 576
integer taborder = 70
end type

type cb_refresh from w_publ_pageretr_easyq`cb_refresh within w_warebalc_view_spt_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 ow_wfjgbalc
	Where balcdate >= :balcdate_end 
	AND sptid = :cur_sptid;
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

//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_spt_old
integer x = 727
end type

type cb_copyself from w_publ_pageretr_easyq`cb_copyself within w_warebalc_view_spt_old
end type

type gb_2 from w_publ_pageretr_easyq`gb_2 within w_warebalc_view_spt_old
end type

type ln_bar from w_publ_pageretr_easyq`ln_bar within w_warebalc_view_spt_old
end type

type ln_bar2 from w_publ_pageretr_easyq`ln_bar2 within w_warebalc_view_spt_old
end type

type r_bar from w_publ_pageretr_easyq`r_bar within w_warebalc_view_spt_old
end type

type ln_1 from w_publ_pageretr_easyq`ln_1 within w_warebalc_view_spt_old
end type

type ln_2 from w_publ_pageretr_easyq`ln_2 within w_warebalc_view_spt_old
end type

type em_month from editmask within w_warebalc_view_spt_old
integer x = 1262
integer y = 192
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_spt_old
integer x = 1010
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 st_4 from statictext within w_warebalc_view_spt_old
integer x = 1806
integer y = 204
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_spt_old
integer x = 2057
integer y = 188
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_spt_old
integer x = 1701
integer y = 188
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_spt_old
integer x = 2496
integer y = 188
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_spt_old
integer x = 2601
integer y = 188
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 tv_1 from uo_tv_mtrltype within w_warebalc_view_spt_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_spt_old
boolean visible = false
integer x = 2720
integer y = 56
integer width = 169
integer height = 60
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_scid from uo_ddlb_scid within w_warebalc_view_spt_old
boolean visible = false
integer x = 2889
integer y = 40
integer width = 466
integer height = 856
integer taborder = 30
boolean bringtotop = true
end type

event constructor;call super::constructor;il_scid=this.uo_scid
end event

event selectionchanged;call super::selectionchanged;il_scid=this.uo_scid
cb_refresh.triggerevent(clicked!)
end event

type ddlb_1 from uo_ddlb_wfjg_sptid within w_warebalc_view_spt_old
integer x = 5
integer y = 188
integer width = 1001
integer height = 1356
integer taborder = 40
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_sptid = this.uo_sptid

end event

event selectionchanged;call super::selectionchanged;cur_sptid = this.uo_sptid
cb_refresh.triggerevent(clicked!)
end event