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

$PBExportHeader$w_rp_sptware_warebalc_his.srw
forward
global type w_rp_sptware_warebalc_his from w_publ_pageretr_easyq
end type
type em_frist_date from editmask within w_rp_sptware_warebalc_his
end type
type em_end_date from editmask within w_rp_sptware_warebalc_his
end type
type st_3 from statictext within w_rp_sptware_warebalc_his
end type
type ddlb_frist_date from dropdownlistbox within w_rp_sptware_warebalc_his
end type
type ddlb_end_date from dropdownlistbox within w_rp_sptware_warebalc_his
end type
type ddlb_balcdateint from dropdownlistbox within w_rp_sptware_warebalc_his
end type
type rb_1 from radiobutton within w_rp_sptware_warebalc_his
end type
type rb_2 from radiobutton within w_rp_sptware_warebalc_his
end type
type cb_balc from uo_imflatbutton within w_rp_sptware_warebalc_his
end type
type ddlb_1 from uo_ddlb_wfjg_sptid within w_rp_sptware_warebalc_his
end type
type ddlb_scid from uo_ddlb_scid within w_rp_sptware_warebalc_his
end type
type st_2 from statictext within w_rp_sptware_warebalc_his
end type
type ddlb_2 from dropdownlistbox within w_rp_sptware_warebalc_his
end type
end forward

global type w_rp_sptware_warebalc_his from w_publ_pageretr_easyq
integer height = 2404
string title = "供应商历史结存查询"
boolean if_mdf_title = false
em_frist_date em_frist_date
em_end_date em_end_date
st_3 st_3
ddlb_frist_date ddlb_frist_date
ddlb_end_date ddlb_end_date
ddlb_balcdateint ddlb_balcdateint
rb_1 rb_1
rb_2 rb_2
cb_balc cb_balc
ddlb_1 ddlb_1
ddlb_scid ddlb_scid
st_2 st_2
ddlb_2 ddlb_2
end type
global w_rp_sptware_warebalc_his w_rp_sptware_warebalc_his

type variables

long cur_balcdateint = 0

long cur_sptid = -1
long il_scid 

end variables

forward prototypes
public function integer wf_facechange ()
public function integer wf_waredate (long arg_sptid)
end prototypes

public function integer wf_facechange ();dw_pageretr.SetRedraw(FALSE)
dw_pageretr.uf_save_profile_layout()
s_hide_col s_col
IF rb_1.Checked THEN
	rb_2.Checked = FALSE
	ddlb_2.enabled = true
	IF ddlb_2.Text = '明细统计表' THEN
		dw_pageretr.DataObject = 'dw_rp_sptware_warebalc_his_1'
	ELSEIF ddlb_2.Text = '明细统计表[辅单位1]' THEN
		dw_pageretr.DataObject = 'dw_rp_sptware_warebalc_his_buy'
	ELSEIF ddlb_2.Text = '明细统计表[辅单位2]' THEN
		dw_pageretr.DataObject = 'dw_rp_sptware_warebalc_his_scll'
	ELSEIF ddlb_2.Text = '明细统计表[辅单位3]' THEN
		dw_pageretr.DataObject = 'dw_rp_sptware_warebalc_his_sale'
	END IF
	
	s_col.col_1 = 'ow_wfjgbalc_bgamt'
	s_col.col_2 = 'ow_wfjgbalc_outamt'
	s_col.col_3 = 'ow_wfjgbalc_reoutamt'
	s_col.col_4 = 'ow_wfjgbalc_thamt'
	s_col.col_5 = 'ow_wfjgbalc_balcamt'
	s_col.col_6 = 'ow_wfjgbalc_inamt'
	s_col.col_7 = 'ow_wfjgbalc_pypkamt'
	
//	f_hide_col(121,dw_pageretr,s_col)
	f_hide_col(1448,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 IF

IF rb_2.Checked THEN
	rb_1.Checked = FALSE
	ddlb_2.enabled = false
	dw_pageretr.DataObject = 'dw_rp_sptware_warebalc_his'
END IF
dw_pageretr.triggerevent('constructor')
dw_pageretr.SetTransObject(sqlca)



dw_pageretr.ins_INIfile_name = sys_inifilename
dw_pageretr.ins_opemp = publ_operator
dw_pageretr.cardw_empid = sys_empid
dw_pageretr.cur_DataObject = dw_pageretr.DataObject

dw_pageretr.uf_read_profile_layout()

dw_pageretr.SetRedraw(TRUE)

cb_balc.Enabled = rb_1.Checked
ddlb_balcdateint.Enabled = rb_1.Checked

ddlb_frist_date.Enabled = rb_2.Checked
ddlb_end_date.Enabled = rb_2.Checked
cb_refresh.triggerevent(clicked!)
RETURN 1




end function

public function integer wf_waredate (long arg_sptid);DateTime warebalc_date
Long balcdateint

ddlb_frist_date.Reset()
ddlb_end_date.Reset()
ddlb_balcdateint.Reset()

DECLARE waredate_cur CURSOR FOR
	SELECT distinct ow_wfjgbalc.balcdate,ow_wfjgbalc.balcdateint
	FROM ow_wfjgbalc
	WHERE ( sptid = :arg_sptid or :arg_sptid = -1 )
	AND balcdateint > 0;
	
OPEN waredate_cur;
FETCH waredate_cur INTO :warebalc_date,:balcdateint;
DO WHILE sqlca.SQLCode = 0 //循环读取明细数据
	ddlb_frist_date.AddItem (String(warebalc_date,'yyyy-mm-dd'))
	ddlb_end_date.AddItem (String(warebalc_date,'yyyy-mm-dd'))
	ddlb_balcdateint.AddItem (String(balcdateint))
	FETCH waredate_cur INTO :warebalc_date,:balcdateint;
LOOP
CLOSE waredate_cur;

ddlb_frist_date.Text = String(warebalc_date,'yyyy-mm-dd')
ddlb_end_date.Text = String(warebalc_date,'yyyy-mm-dd')
ddlb_balcdateint.Text = String(balcdateint)
RETURN 1


end function

on w_rp_sptware_warebalc_his.create
int iCurrent
call super::create
this.em_frist_date=create em_frist_date
this.em_end_date=create em_end_date
this.st_3=create st_3
this.ddlb_frist_date=create ddlb_frist_date
this.ddlb_end_date=create ddlb_end_date
this.ddlb_balcdateint=create ddlb_balcdateint
this.rb_1=create rb_1
this.rb_2=create rb_2
this.cb_balc=create cb_balc
this.ddlb_1=create ddlb_1
this.ddlb_scid=create ddlb_scid
this.st_2=create st_2
this.ddlb_2=create ddlb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.em_frist_date
this.Control[iCurrent+2]=this.em_end_date
this.Control[iCurrent+3]=this.st_3
this.Control[iCurrent+4]=this.ddlb_frist_date
this.Control[iCurrent+5]=this.ddlb_end_date
this.Control[iCurrent+6]=this.ddlb_balcdateint
this.Control[iCurrent+7]=this.rb_1
this.Control[iCurrent+8]=this.rb_2
this.Control[iCurrent+9]=this.cb_balc
this.Control[iCurrent+10]=this.ddlb_1
this.Control[iCurrent+11]=this.ddlb_scid
this.Control[iCurrent+12]=this.st_2
this.Control[iCurrent+13]=this.ddlb_2
end on

on w_rp_sptware_warebalc_his.destroy
call super::destroy
destroy(this.em_frist_date)
destroy(this.em_end_date)
destroy(this.st_3)
destroy(this.ddlb_frist_date)
destroy(this.ddlb_end_date)
destroy(this.ddlb_balcdateint)
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.cb_balc)
destroy(this.ddlb_1)
destroy(this.ddlb_scid)
destroy(this.st_2)
destroy(this.ddlb_2)
end on

event open;call super::open;
wf_waredate(cur_sptid)
wf_facechange()








end event

event retrieve_pageretr;boolean cb_nextpage_enabled,cb_retrieveall_enabled
boolean 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

//dw_pageretr.reset()
SetPointer(HourGlass!)

if rb_1.checked then
	if cur_balcdateint = 0 then
		dw_pageretr.reset()
	else
		dw_pageretr.retrieve(cur_balcdateint,il_scid,cur_sptid)
	end if
else	
	if rb_2.checked then
		dw_pageretr.retrieve()
	end if
end if
//dw_pageretr.setredraw(true)
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 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 (u_mtrldef_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 (u_mtrldef_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

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

type cb_exit from w_publ_pageretr_easyq`cb_exit within w_rp_sptware_warebalc_his
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_rp_sptware_warebalc_his
integer x = 329
integer y = 196
integer width = 581
end type

type cb_retrieveall from w_publ_pageretr_easyq`cb_retrieveall within w_rp_sptware_warebalc_his
integer x = 1431
integer y = 716
integer taborder = 180
end type

type em_pagerowno from w_publ_pageretr_easyq`em_pagerowno within w_rp_sptware_warebalc_his
integer x = 1175
integer y = 716
integer taborder = 70
end type

type dw_pageretr from w_publ_pageretr_easyq`dw_pageretr within w_rp_sptware_warebalc_his
integer y = 396
integer width = 3579
integer height = 1832
integer taborder = 50
string dataobject = "dw_rp_sptware_warebalc_his_1"
end type

type st_1 from w_publ_pageretr_easyq`st_1 within w_rp_sptware_warebalc_his
integer x = 5
integer y = 216
integer width = 343
string text = "编码/名称含:"
end type

type cb_nextpage from w_publ_pageretr_easyq`cb_nextpage within w_rp_sptware_warebalc_his
boolean visible = false
integer x = 3058
integer y = 12
integer taborder = 210
end type

type ddlb_yl from w_publ_pageretr_easyq`ddlb_yl within w_rp_sptware_warebalc_his
integer x = 1330
integer taborder = 120
end type

type cbx_yl from w_publ_pageretr_easyq`cbx_yl within w_rp_sptware_warebalc_his
integer x = 1125
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_rp_sptware_warebalc_his
integer x = 603
integer width = 247
integer taborder = 170
end type

type cb_2 from w_publ_pageretr_easyq`cb_2 within w_rp_sptware_warebalc_his
integer x = 576
integer taborder = 110
end type

type cb_refresh from w_publ_pageretr_easyq`cb_refresh within w_rp_sptware_warebalc_his
integer taborder = 130
end type

event cb_refresh::clicked;DateTime st_date,ed_date
Date ls_enddate
cur_balcdateint = Long(ddlb_balcdateint.Text)

IF rb_2.Checked  THEN
	ls_enddate = Date(ddlb_end_date.Text)
	st_date = DateTime(Date(ddlb_frist_date.Text),Time('0:0'))
	ed_date = DateTime(RelativeDate(ls_enddate,1),Time('0:0'))
	DELETE u_parm_balcdate ;
	
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK ;
		MessageBox(publ_operator,"因网络或其它原因导致操作失败，请重试！")
		RETURN
	END IF
	
	
	INSERT INTO u_parm_balcdate (first_date,end_date)	Values (:st_date,:ed_date) ;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK ;
		MessageBox(publ_operator,"因网络或其它原因导致操作失败，请重试！")
		RETURN
	ELSE
		COMMIT ;
	END IF
END IF

PARENT.TriggerEvent('retrieve_pageretr')

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




end event

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

type cb_copyself from w_publ_pageretr_easyq`cb_copyself within w_rp_sptware_warebalc_his
end type

type gb_2 from w_publ_pageretr_easyq`gb_2 within w_rp_sptware_warebalc_his
integer x = 526
integer y = 624
integer width = 430
integer height = 244
integer taborder = 40
end type

type ln_bar from w_publ_pageretr_easyq`ln_bar within w_rp_sptware_warebalc_his
end type

type ln_bar2 from w_publ_pageretr_easyq`ln_bar2 within w_rp_sptware_warebalc_his
end type

type r_bar from w_publ_pageretr_easyq`r_bar within w_rp_sptware_warebalc_his
end type

type ln_1 from w_publ_pageretr_easyq`ln_1 within w_rp_sptware_warebalc_his
integer beginy = 388
integer endx = 2135
integer endy = 388
end type

type ln_2 from w_publ_pageretr_easyq`ln_2 within w_rp_sptware_warebalc_his
integer beginy = 392
integer endx = 2066
integer endy = 392
end type

type em_frist_date from editmask within w_rp_sptware_warebalc_his
boolean visible = false
integer x = 914
integer y = 524
integer width = 366
integer height = 92
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

type em_end_date from editmask within w_rp_sptware_warebalc_his
boolean visible = false
integer x = 1294
integer y = 524
integer width = 370
integer height = 92
integer taborder = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

type st_3 from statictext within w_rp_sptware_warebalc_his
integer x = 2917
integer y = 304
integer width = 46
integer height = 56
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "~~"
boolean focusrectangle = false
end type

type ddlb_frist_date from dropdownlistbox within w_rp_sptware_warebalc_his
integer x = 2391
integer y = 288
integer width = 489
integer height = 780
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;cb_refresh.triggerevent(clicked!)
end event

type ddlb_end_date from dropdownlistbox within w_rp_sptware_warebalc_his
integer x = 2971
integer y = 288
integer width = 489
integer height = 780
integer taborder = 160
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;cb_refresh.triggerevent(clicked!)
end event

type ddlb_balcdateint from dropdownlistbox within w_rp_sptware_warebalc_his
integer x = 1975
integer y = 188
integer width = 530
integer height = 780
integer taborder = 160
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;cb_refresh.triggerevent(clicked!)
end event

type rb_1 from radiobutton within w_rp_sptware_warebalc_his
integer x = 1760
integer y = 200
integer width = 210
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 = "按次"
boolean checked = true
end type

event clicked;wf_facechange()
end event

type rb_2 from radiobutton within w_rp_sptware_warebalc_his
integer x = 1760
integer y = 304
integer width = 631
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 = "按日期 结存日期范围:"
end type

event clicked;wf_facechange()
end event

type cb_balc from uo_imflatbutton within w_rp_sptware_warebalc_his
integer x = 2537
integer y = 188
integer width = 242
integer height = 92
integer taborder = 170
boolean bringtotop = true
string text = "反结存"
end type

event clicked;call super::clicked;IF NOT f_power_ind(75) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

IF il_scid < 0 THEN
	MessageBox('系统提示','请选择分部!')
	RETURN
END IF

IF cur_sptid = -1 THEN
	MessageBox('系统提示','请选择外协商!')
	RETURN
END IF


DateTime balcdate
Long balcdateint

balcdateint = Long(ddlb_balcdateint.Text)

IF MessageBox (publ_operator,"是否确定要进行当前仓库反日结操作吗?"+'~n'+&
	'反结存过程中不能进行其它操作!',Question!,YesNo! ) = 2 THEN RETURN

w_sys_wait.Show()
w_sys_wait.wf_set_msg('系统正在反结存...')

String arg_msg = '',err_msg = ''

IF uf_warebalc_spt(0,balcdateint,il_scid,cur_sptid,balcdate,arg_msg) = 1 THEN
	arg_msg = '反结存成功！'
END IF
w_sys_wait.Hide()
MessageBox('系统提示',arg_msg)

wf_waredate(cur_sptid)
cb_refresh.TriggerEvent(Clicked!)



end event

type ddlb_1 from uo_ddlb_wfjg_sptid within w_rp_sptware_warebalc_his
integer x = 9
integer y = 296
integer width = 905
integer height = 1356
integer taborder = 30
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_sptid = this.uo_sptid
wf_waredate(cur_sptid)

end event

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

type ddlb_scid from uo_ddlb_scid within w_rp_sptware_warebalc_his
integer x = 1102
integer y = 196
integer width = 558
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 st_2 from statictext within w_rp_sptware_warebalc_his
integer x = 933
integer y = 216
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_2 from dropdownlistbox within w_rp_sptware_warebalc_his
integer x = 1618
integer y = 48
integer width = 704
integer height = 548
integer taborder = 110
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[] = {"明细统计表","明细统计表[辅单位1]","明细统计表[辅单位2]","明细统计表[辅单位3]"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;wf_facechange()
end event