Q5/ws_objects/Ew_ware.pbl.src/w_warebalc_view.srw

$PBExportHeader$w_warebalc_view.srw
forward
global type w_warebalc_view from w_publ_easyq
end type
type tv_1 from uo_tv_mtrltype within w_warebalc_view
end type
type st_2 from statictext within w_warebalc_view
end type
type ddlb_storageid from uo_ddlb_storageid within w_warebalc_view
end type
type cb_other from uo_imflatbutton within w_warebalc_view
end type
type st_1 from statictext within w_warebalc_view
end type
type em_month from editmask within w_warebalc_view
end type
type st_lastbalcdate from statictext within w_warebalc_view
end type
type ddlb_1 from dropdownlistbox within w_warebalc_view
end type
type cb_balc from uo_imflatbutton within w_warebalc_view
end type
end forward

global type w_warebalc_view from w_publ_easyq
string title = "仓库结存表"
event ue_retrieve_info ( )
event retrieve_pageretr ( )
event ue_mtrl_info ( )
event ue_retrieve_inoutmx ( )
event ue_usual_query_filt ( )
event ue_usual_query_retr ( )
event ue_cmp_mtrlware ( )
event ue_cmp_amt2 ( )
event ue_cmp ( )
event ue_update_inware_mtrlwareid ( )
tv_1 tv_1
st_2 st_2
ddlb_storageid ddlb_storageid
cb_other cb_other
st_1 st_1
em_month em_month
st_lastbalcdate st_lastbalcdate
ddlb_1 ddlb_1
cb_balc cb_balc
end type
global w_warebalc_view w_warebalc_view

type variables
Long cur_storageid = -1
Long cur_storageid_arr[]

DateTime balcdate //结存日期

Int cur_mtrlorigin = -1 //当前显示物料来源
String ls_handtype = ''
string ls_mtrltype = ''

long ins_if_info = 0

integer cur_billtype_in = -1
integer cur_billtype_out = -1

end variables

forward prototypes
public subroutine wf_hidecol ()
public function window getparentwindow ()
end prototypes

event ue_retrieve_info();if ddlb_1.text = '分类统计表' then return 

Long ll_row
Long ll_mtrlid

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	ll_mtrlid = 0
ELSE
	ll_mtrlid = dw_1.Object.u_mtrldef_mtrlid[ll_row]
END IF

IF IsValid(w_mtrl_info) THEN
	w_mtrl_info.WindowState = Normal!
	w_mtrl_info.ins_mtrlid = ll_mtrlid
	w_mtrl_info.wf_retrieve(ll_mtrlid)
END IF


end event

event retrieve_pageretr();

//Int rtr_zeronoallocqty
//
//IF cbx_1.Checked THEN
//	rtr_zeronoallocqty = -1
//ELSE
//	rtr_zeronoallocqty = 0
//END IF



dw_1.Retrieve(cur_storageid_arr,ls_handtype,ls_mtrltype,cur_mtrlorigin,publ_operator)

IF dw_1.RowCount() > 0 AND dw_1.GetRow() = 0 THEN dw_1.SetRow(1)


//查询最后结存日期
DateTime ldt_lastbalcdate
SELECT max( balcdate)
	INTO :ldt_lastbalcdate
	FROM u_warebalc
	WHERE (storageid = :cur_storageid OR :cur_storageid = -1)
	And balcdateint <> 0;
IF sqlca.SQLCode <> 0 THEN
	SetNull(ldt_lastbalcdate)
END IF
IF IsNull(ldt_lastbalcdate) THEN
	st_lastbalcdate.Text = '没有结存记录'
ELSE
	st_lastbalcdate.Text = '最后结存日期：'+String(ldt_lastbalcdate, 'yyyy-mm-dd')
END IF

SetPointer(Arrow!)







end event

event ue_mtrl_info();if ddlb_1.text = '分类统计表' then return 

Long ll_row
ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('提示','请选择物料',information!,OK!)
	RETURN
END IF

Long ll_mtrlid


ll_mtrlid = dw_1.Object.u_mtrldef_mtrlid[ll_row]

IF IsValid(w_mtrl_info) THEN
	w_mtrl_info.WindowState = Normal!
	w_mtrl_info.ins_mtrlid = ll_mtrlid
	w_mtrl_info.wf_retrieve(ll_mtrlid)
ELSE
	OpenWithParm(w_mtrl_info,ll_mtrlid)
END IF


end event

event ue_retrieve_inoutmx();//Long ll_row
//Long ll_storageid,ll_mtrlid, ll_mtrlwareid
//String ls_status,ls_woodcode,ls_pcode
//String ls_plancode,ls_mtrlcuscode,ls_location
//Long ll_sptid
//DateTime ld_fdate,ld_edate,ld_showsale_data
//Int li_storagetype
//
//ll_row = dw_1.GetRow()
//
//
//tab_1.tabpage_1.dw_inout.setredraw(false)
//tab_1.tabpage_1.dw_inout.setfilter('')
//tab_1.tabpage_1.dw_inout.filter()
//
//tab_1.tabpage_2.dw_out_noaudit.setredraw(false)
//tab_1.tabpage_2.dw_out_noaudit.setfilter('')
//tab_1.tabpage_2.dw_out_noaudit.filter()
//
//IF ll_row <= 0 THEN
//	tab_1.tabpage_1.dw_inout.Reset()
//	tab_1.tabpage_2.dw_out_noaudit.Reset()
//ELSE
//	ld_fdate = DateTime(Date(tab_1.tabpage_1.em_3.Text),Time(0))
//	ld_edate = DateTime(Date(tab_1.tabpage_1.em_4.Text),Time('23:59:59'))
//	
//	IF ld_fdate < sys_showsaledata_mindt THEN
//		ld_showsale_data = sys_showsaledata_mindt
//	ELSE
//		ld_showsale_data = ld_fdate
//	END IF
//	
//	ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid[ll_row]
//	ll_storageid = dw_1.Object.u_mtrlware_storageid[ll_row]
//	ll_mtrlid = dw_1.Object.u_mtrldef_mtrlid[ll_row]
//	ls_status = dw_1.Object.u_mtrlware_status[ll_row]
//	ls_woodcode = dw_1.Object.u_mtrlware_woodcode[ll_row]
//	ls_pcode = dw_1.Object.u_mtrlware_pcode[ll_row]
//	ls_plancode = dw_1.Object.u_mtrlware_plancode[ll_row]
//	ll_sptid = dw_1.Object.u_mtrlware_sptid[ll_row]
//	
//	tab_1.tabpage_1.dw_inout.Retrieve(ll_storageid,ll_mtrlid,ld_fdate,ld_edate,ls_status,ls_woodcode,ls_pcode,ld_showsale_data,ls_plancode,ll_sptid, cur_billtype_in, cur_billtype_out)
//	tab_1.tabpage_2.dw_out_noaudit.Retrieve(ll_mtrlwareid)
//END IF


//tab_1.tabpage_1.dw_inout.setredraw(true)
//tab_1.tabpage_2.dw_out_noaudit.setredraw(true)
end event

event ue_usual_query_filt();//String obj_expr = ''
//IF ddlb_1.Text = '明细统计表' or ddlb_1.text='汇总统计表' THEN
//	
//	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
//ELSE
//	IF Trim(sle_usual_query.Text) <> '' THEN
//		IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN
//			obj_expr = obj_expr+' ( u_mtrltype_mtrltype LIKE "%'+Trim(sle_usual_query.Text)+'%") '
//		ELSE
//			obj_expr = obj_expr+' ( u_mtrltype_mtrltype LIKE "'+Trim(sle_usual_query.Text)+'") '
//		END IF
//	END IF
//END IF
//
//dw_1.SetFilter(obj_expr)
//
//dw_1.SetRedraw(FALSE)
//dw_1.Filter()
//IF dw_1.RowCount() >= 1 THEN
//	dw_1.SelectRow(0,FALSE)
//	dw_1.SelectRow(1,TRUE)
//END IF
//dw_1.SetRedraw(TRUE)
//
//
end event

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 u_mtrldef.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 u_mtrldef.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_cmp_mtrlware();//按库存数重算本期期初

IF Not f_power_ind(1507) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

//IF Not dw_pageretr.DataObject = 'dw_warebalc_view' THEN
//	MessageBox('系统提示','必须在客户产品统计表中才能执行本功能')
//	RETURN
//END IF

IF MessageBox (publ_operator,"是否确定要执行按库存数重算结存功能?",Question!,YesNo! ) = 2 THEN RETURN

IF cur_storageid = -1 THEN
	MessageBox('系统提示','请先选择仓库')
	RETURN
END IF


Long li_if_fifo = 0


SELECT if_fifo
	INTO :li_if_fifo
	FROM u_storage
	Where storageid = :cur_storageid Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('提示', "查询仓库存货核算方法错误！")
	RETURN
END IF

IF li_if_fifo = 1 THEN
	MessageBox('提示', "此功能不适合使用先进先出方法的仓库！")
	RETURN
END  IF








Long rslt = 1
String arg_msg

datastore ds_warebalc
ds_warebalc = Create datastore
ds_warebalc.DataObject = 'dw_warebalc_view'
ds_warebalc.SetTransObject(sqlca)
ds_warebalc.Retrieve(cur_storageid_arr,'','',-1,publ_operator)
// //清空筛选内容
//ds_warebalc.SetFilter('')
//ds_warebalc.Filter()
//ds_warebalc.Retrieve(cur_storageid_arr,'','',-1,publ_operator)

Long ll_i
Decimal ld_newcost // 最新成本价
Decimal ld_bgqty,ld_bgamt,ld_incqty,ld_incamt,ld_desqty,ld_desamt
Decimal ld_balcqty,ld_balcamt
Long ll_mtrlid
String ls_status,ls_pcode,ls_woodcode
String ls_mtrlcode
Decimal ld_noallocqty,ld_wareamt,ld_noallocaddqty
Decimal ld_noallocqty_sum,ld_wareamt_sum,ld_noallocaddqty_sum,ld_incaddqty,ld_desaddqty
Long ll_sptid_cusid,ll_sptid


Open(w_sys_wait_jdt) //初始化进度条

w_sys_wait_jdt.Show()

//结存查库存
w_sys_wait_jdt.wf_accepttol(ds_warebalc.RowCount())
FOR ll_i = 1 To ds_warebalc.RowCount()
	
	ll_mtrlid = ds_warebalc.Object.u_mtrldef_mtrlid[ll_i]
	ls_mtrlcode = ds_warebalc.Object.u_mtrldef_mtrlcode[ll_i]
	ls_status = ds_warebalc.Object.u_warebalc_status[ll_i]
	ls_woodcode = ds_warebalc.Object.u_warebalc_woodcode[ll_i]
	ls_pcode = ds_warebalc.Object.u_warebalc_pcode[ll_i]
	ll_sptid_cusid = ds_warebalc.Object.u_warebalc_sptid_cusid[ll_i]
	w_sys_wait_jdt.st_msg.Text = " 正在结存重算:"+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+"..." //进度信息
	w_sys_wait_jdt.wf_inc(ll_i)
	
	SELECT isnull(sum(noallocqty),0),
		isnull(sum(wareamt),0),
		isnull(sum(noallocaddqty),0)
		INTO :ld_noallocqty,
		:ld_wareamt,
		:ld_noallocaddqty
		FROM u_mtrlware
		WHERE mtrlid = :ll_mtrlid
		AND storageid = :cur_storageid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode
		And sptid = :ll_sptid_cusid;
	IF sqlca.SQLCode <> 0 THEN
		IF sqlca.SQLCode = 100 THEN
			ld_noallocqty = 0
			ld_wareamt = 0
		ELSE
			rslt = 0
			arg_msg = '查询库存资料失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
			GOTO ext
		END IF
	END IF
	
	UPDATE u_warebalc
		SET balcqty = :ld_noallocqty,
		balcaddqty = :ld_noallocaddqty,
		balcamt = :ld_wareamt,
		bgqty = :ld_noallocqty + desqty - incqty,
		bgamt = :ld_wareamt + desamt - incamt,
		bgaddqty = :ld_noallocaddqty + desaddqty - incaddqty
		WHERE mtrlid = :ll_mtrlid
		AND balcdateint = 0
		AND Storageid = :cur_storageid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode
		And sptid_cusid = :ll_sptid_cusid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新结存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
		GOTO ext
		
	END IF
	
	ld_noallocqty_sum += ld_noallocqty
	ld_wareamt_sum += ld_wareamt
	ld_noallocaddqty_sum += ld_noallocaddqty
NEXT

//库存计结存
Long cnt,ll_scid
datastore ds_mtrlware
ds_mtrlware = Create datastore
ds_mtrlware.DataObject = 'ds_warebalc_view_cmpl_mtrlware_to_balc'
ds_mtrlware.SetTransObject(sqlca)
ds_mtrlware.Retrieve(cur_storageid)
ds_mtrlware.AcceptText()

IF ld_noallocqty_sum <> ds_mtrlware.Object.sumqty[1] Or &
	ld_wareamt_sum <> ds_mtrlware.Object.sumamt[1] Or &
	ld_noallocaddqty_sum <> ds_mtrlware.Object.sumaddqty[1]   THEN
	
	SELECT scid INTO :ll_scid
		FROM u_storage
		Where storageid = :cur_storageid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询仓库所属分部失败,操作取消'
		GOTO ext
	END IF
	
	w_sys_wait_jdt.wf_accepttol(ds_mtrlware.RowCount())
	
	FOR ll_i = 1 To ds_mtrlware.RowCount()
		ll_mtrlid = 0
		ls_mtrlcode = ''
		ls_status = ''
		ls_woodcode = ''
		ls_pcode = ''
		ld_noallocqty = 0
		ld_wareamt = 0
		ll_sptid = 0
		cnt = 0
		
		ls_mtrlcode = ds_mtrlware.Object.u_mtrldef_mtrlcode[ll_i]
		ll_mtrlid = ds_mtrlware.Object.mtrlid[ll_i]
		
		ls_status = ds_mtrlware.Object.status[ll_i]
		ls_woodcode = ds_mtrlware.Object.woodcode[ll_i]
		ls_pcode = ds_mtrlware.Object.pcode[ll_i]
		ld_noallocqty = ds_mtrlware.Object.qty[ll_i]
		ld_noallocaddqty = ds_mtrlware.Object.addqty[ll_i]
		ld_wareamt = ds_mtrlware.Object.amt[ll_i]
		ll_sptid = ds_mtrlware.Object.u_mtrlware_sptid[ll_i]
		
		w_sys_wait_jdt.st_msg.Text = " 正在库存重算:"+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+"..." //进度信息
		w_sys_wait_jdt.wf_inc(ll_i)
		
		
		SELECT count(*) INTO :cnt
			FROM u_warebalc
			WHERE mtrlid = :ll_mtrlid
			AND balcdateint = 0
			AND Storageid = :cur_storageid
			AND status = :ls_status
			AND woodcode = :ls_woodcode
			AND pcode = :ls_pcode
			And sptid_cusid = :ll_sptid;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询结存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
			GOTO ext
		END IF
		
		IF cnt > 0 THEN CONTINUE
		
		SELECT CASE when  sum(Round(u_inwaremx.qty * u_inwaremx.cost,2)) Is Null THEN 0 ELSE sum(Round(u_inwaremx.qty * u_inwaremx.cost,2)) END ,
CASE when  sum(u_inwaremx.qty) Is Null THEN 0 ELSE  sum(u_inwaremx.qty) END,
CASE when  sum(u_inwaremx.addqty) Is Null THEN 0 ELSE  sum(u_inwaremx.addqty) END
	Into :ld_incamt,:ld_incqty,:ld_incaddqty
	From u_inwaremx,u_inware
	Where u_inwaremx.scid = u_inware.scid
	And u_inwaremx.inwareid = u_inware.inwareid
	And u_inware.storageid = :cur_storageid
	And u_inware.balcdateint = 0
	And u_inwaremx.mtrlid = :ll_mtrlid
	And u_inwaremx.status = :ls_status
	And u_inwaremx.woodcode = :ls_woodcode
	And u_inwaremx.pcode = :ls_pcode
	And u_inwaremx.sptid_cusid = :ll_sptid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询进仓失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
		GOTO ext
	END IF
	
	SELECT CASE when sum(u_outwaremx.costamt) Is Null THEN 0 ELSE sum(u_outwaremx.costamt) END  ,
CASE when  sum(u_outwaremx.qty) Is Null THEN 0 ELSE sum(u_outwaremx.qty) END ,
CASE when  sum(u_outwaremx.addqty) Is Null THEN 0 ELSE sum(u_outwaremx.addqty) END
	Into :ld_desamt,:ld_desqty,:ld_desaddqty
	From u_outwaremx,u_outware
	Where u_outwaremx.scid = u_outware.scid
	And u_outwaremx.outwareid = u_outware.outwareid
	And u_outware.storageid = :cur_storageid
	And u_outware.balcdateint = 0
	And u_outwaremx.mtrlid = :ll_mtrlid
	And u_outwaremx.status = :ls_status
	And u_outwaremx.woodcode = :ls_woodcode
	And u_outwaremx.pcode = :ls_pcode
	And u_outwaremx.sptid = :ll_sptid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询出仓失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
		GOTO ext
	END IF
	
	INSERT INTO u_warebalc
		(scid,
		balcdateint,
		storageid,
		mtrlid,
		status,
		woodcode,
		pcode,
		bgqty,
		bgamt,
		incqty,
		incamt,
		desqty,
		desamt,
		balcqty,
		balcamt,
		sptid_cusid,
		bgaddqty,
		balcaddqty,
		incaddqty,
		desaddqty
		)
		VALUES
		(:ll_scid,0,
		:cur_storageid,
		:ll_mtrlid,
		:ls_status,
		:ls_woodcode,
		:ls_pcode,
		:ld_noallocqty + :ld_desqty - :ld_incqty,
		:ld_wareamt + :ld_desamt - :ld_incamt,
		:ld_incqty,
		:ld_incamt,
		:ld_desqty,
		:ld_desamt,
		:ld_noallocqty,
		:ld_wareamt,
		:ll_sptid,
		:ld_noallocaddqty + :ld_desaddqty - :ld_incaddqty,
		:ld_noallocaddqty,
		:ld_incqty,
		:ld_desaddqty);
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '新加结存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
		GOTO ext
	END IF
NEXT
END IF

//CLOSE(w_sys_wait_jdt)
//COMMIT;
//MessageBox('系统提示','重算成功!')
//THIS.TriggerEvent('retrieve_pageretr')
ext:
Destroy ds_warebalc
Destroy ds_mtrlware
Close(w_sys_wait_jdt)
IF rslt = 0 THEN
	ROLLBACK;
	MessageBox('Error',arg_msg)
	RETURN
ELSE
	COMMIT;
	MessageBox('系统提示','重算成功!')
	This.TriggerEvent('retrieve_pageretr')
END IF

end event

event ue_cmp_amt2();//按上期结存重算本期结余

IF Not f_power_ind(1507) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

//IF Not dw_pageretr.DataObject = 'dw_warebalc_view' THEN
//	MessageBox('系统提示','必须在客户产品统计表中才能执行本功能')
//	RETURN
//END IF

IF cur_storageid = -1 THEN
	MessageBox('系统提示','请先选择仓库')
	RETURN
END IF


Long li_if_fifo = 0


SELECT if_fifo
	INTO :li_if_fifo
	FROM u_storage
	Where storageid = :cur_storageid Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('提示', "查询仓库存货核算方法错误！")
	RETURN
END IF

IF li_if_fifo = 1 THEN
	MessageBox('提示', "此功能不适合使用先进先出方法的仓库！")
	RETURN
END  IF










Long rslt = 1
String arg_msg
Long cnt

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_mtrlware
	WHERE u_mtrlware.storageid = :cur_storageid
	AND ( u_mtrlware.plancode <> '' OR sptid <> 0 )
	AND u_mtrlware.noallocqty <> 0
	And u_mtrlware.mtrlid In (SELECT mtrlid From u_warebalc Where storageid = :cur_storageid And balcdateint = 0);
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示','查询仓库物料使用了批号库存失败,'+sqlca.SQLErrText)
	RETURN
END IF

IF cnt > 0 THEN
	MessageBox('系统提示','仓库物料使用了批号库存,不能重算')
	RETURN
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_outware,u_outwaremx
	WHERE u_outware.storageid = :cur_storageid
	AND u_outware.scid = u_outwaremx.scid
	AND u_outware.outwareid = u_outwaremx.outwareid
	AND u_outware.flag = 1
	AND u_outware.balcdateint = 0
	AND u_outwaremx.plancode <> ''
	And u_outwaremx.mtrlid In (SELECT mtrlid From u_warebalc Where storageid = :cur_storageid And balcdateint = 0);
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示','查询仓库物料出仓使用了批号库存失败,'+sqlca.SQLErrText)
	RETURN
END IF

IF cnt > 0 THEN
	MessageBox('系统提示','仓库物料出仓使用了批号库存,不能重算')
	RETURN
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_inware,u_inwaremx
	WHERE u_inware.storageid = :cur_storageid
	AND u_inware.scid = u_inwaremx.scid
	AND u_inware.inwareid = u_inwaremx.inwareid
	AND u_inware.flag = 1
	AND u_inware.balcdateint = 0
	AND u_inwaremx.plancode <> ''
	And u_inwaremx.mtrlid In (SELECT mtrlid From u_warebalc Where storageid = :cur_storageid And balcdateint = 0);
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示','查询仓库物料进仓使用了批号库存失败,'+sqlca.SQLErrText)
	RETURN
END IF

IF cnt > 0 THEN
	MessageBox('系统提示','仓库物料进仓使用了批号库存,不能重算')
	RETURN
END IF

IF MessageBox (publ_operator,"是否确定要执行按上期结存重算本期结余功能?",Question!,YesNo! ) = 2 THEN RETURN

//IF cur_storageid = -1 THEN
//	MessageBox('系统提示','请先选择仓库')
//	RETURN
//END IF
datastore ds_warebalc
ds_warebalc = Create datastore
ds_warebalc.DataObject = 'dw_warebalc_view_ds'
ds_warebalc.SetTransObject(sqlca)
ds_warebalc.Retrieve(cur_storageid_arr,0)

// //清空筛选内容
//ds_warebalc.SetFilter('')
//ds_warebalc.Filter()
//ds_warebalc.Retrieve(cur_storageid_arr,'','',cur_mtrlorigin,publ_operator)

Long ll_lastbalcdateint
Long ll_i
Decimal ld_newcost,ld_newcost_out // 最新成本价
Decimal ld_balcqty_last,ld_balcamt_last,ld_inamt,ld_inqty,ld_outamt,ld_outqty
Decimal ld_ubalcqty_last,ld_uinqty,ld_uoutqty

Decimal ld_bgqty,ld_bgamt,ld_incqty,ld_incamt,ld_desqty,ld_desamt
Decimal ld_balcqty,ld_balcamt
Long ll_mtrlid
String ls_status,ls_pcode,ls_woodcode
String ls_mtrlcode,ls_msg
Long ll_sptid_cusid

cnt = 0
SELECT count(*) INTO :cnt
	FROM u_warebalc
	Where storageid = :cur_storageid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询历史结存失败,操作取消'
	GOTO ext
END IF

IF cnt > 0 THEN
	SELECT max(balcdateint) INTO :ll_lastbalcdateint
		FROM u_warebalc
		Where storageid = :cur_storageid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询上次结存失败,操作取消'
		GOTO ext
	END IF
ELSE
	ll_lastbalcdateint = -1
END IF

UPDATE u_mtrlware
	SET noallocqty = 0,wareamt = 0
	Where storageid = : cur_storageid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '清除库存数量,金额失败,操作取消'
	GOTO ext
END IF

Open(w_sys_wait_jdt) //初始化进度条
w_sys_wait_jdt.Show()
w_sys_wait_jdt.wf_accepttol(ds_warebalc.RowCount())


FOR ll_i = 1 To ds_warebalc.RowCount()
	
	ld_bgqty = ds_warebalc.Object.bgqty[ll_i]
	ld_bgamt = ds_warebalc.Object.bgamt[ll_i]
	ld_incqty = ds_warebalc.Object.incqty[ll_i]
	ld_incamt =  ds_warebalc.Object.incamt[ll_i]
	ld_desqty = ds_warebalc.Object.desqty[ll_i]
	ld_desamt =  ds_warebalc.Object.desamt[ll_i]
	ls_status = ds_warebalc.Object.u_warebalc_status[ll_i]
	ls_woodcode = ds_warebalc.Object.u_warebalc_woodcode[ll_i]
	ls_pcode = ds_warebalc.Object.u_warebalc_pcode[ll_i]
	ls_mtrlcode = ds_warebalc.Object.u_mtrldef_mtrlcode[ll_i]
	ll_mtrlid = ds_warebalc.Object.mtrlid[ll_i]
	ll_sptid_cusid = ds_warebalc.Object.u_warebalc_sptid_cusid[ll_i]
	
	w_sys_wait_jdt.st_msg.Text = " 正在重算:"+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+"..." //进度信息
	w_sys_wait_jdt.wf_inc(ll_i)
	
	IF IsNull(ld_bgqty) THEN ld_bgqty = 0
	IF IsNull(ld_incqty) THEN ld_incqty = 0
	IF IsNull(ld_bgamt) THEN ld_bgamt = 0
	IF IsNull(ld_incamt) THEN ld_incamt = 0
	IF IsNull(ld_desqty) THEN ld_desqty = 0
	IF IsNull(ld_desamt) THEN ld_desamt = 0
	
	
	//查期初
	If ll_lastbalcdateint > 0 THEN
		SELECT balcqty,balcamt
			INTO :ld_balcqty_last,:ld_balcamt_last
			FROM u_warebalc
			WHERE storageid = :cur_storageid
			AND mtrlid = :ll_mtrlid
			AND status = :ls_status
			AND woodcode = :ls_woodcode
			AND pcode = :ls_pcode
			AND balcdateint = :ll_lastbalcdateint
			And sptid_cusid = :ll_sptid_cusid;
		IF sqlca.SQLCode = -1 THEN
			rslt = 0
			arg_msg = '查询上月结存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+','+sqlca.SQLErrText
			GOTO ext
		elseif sqlca.sqlcode = 100 then
			ld_balcqty_last = 0
			ld_balcamt_last = 0
		END IF
		
		IF ld_balcqty_last <> ld_bgqty THEN ld_bgqty = ld_balcqty_last
		IF ld_balcamt_last <> ld_bgamt THEN ld_bgamt = ld_balcamt_last
	ELSE
		ld_bgqty = 0
		ld_bgamt = 0
	END IF
	
	//查进仓
	SELECT isnull(sum(u_inwaremx.qty),0),isnull(sum(u_inwaremx.uqty),0),isnull(sum(round(u_inwaremx.cost * u_inwaremx.qty,2)),0)
		INTO :ld_inqty,:ld_uinqty,:ld_inamt
		FROM u_inware,u_inwaremx
		WHERE u_inware.scid = u_inwaremx.scid
		AND u_inware.inwareid = u_inwaremx.inwareid
		AND u_inwaremx.mtrlid = :ll_mtrlid
		AND u_inwaremx.status = :ls_status
		AND u_inwaremx.woodcode = :ls_woodcode
		AND u_inwaremx.pcode = :ls_pcode
		AND u_inware.storageid = :cur_storageid
		AND u_inware.balcdateint = 0
		AND u_inware.flag = 1
		And u_inwaremx.sptid_cusid = :ll_sptid_cusid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询本月进仓失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+','+sqlca.SQLErrText
		GOTO ext
	END IF
	
	IF ld_incqty <> ld_inqty THEN ld_incqty = ld_inqty
	IF ld_incamt <> ld_inamt THEN ld_incamt = ld_inamt
	
	//查出仓
	SELECT isnull(sum(u_outwaremx.qty),0),
		isnull(sum(u_outwaremx.uqty),0),
		isnull(sum(round(u_outwaremx.costamt,2)),0)
		INTO :ld_outqty,:ld_uoutqty,:ld_outamt
		FROM u_outware,u_outwaremx
		WHERE u_outware.scid = u_outwaremx.scid
		AND u_outware.outwareid = u_outwaremx.outwareid
		AND u_outwaremx.mtrlid = :ll_mtrlid
		AND u_outwaremx.status = :ls_status
		AND u_outwaremx.woodcode = :ls_woodcode
		AND u_outwaremx.pcode = :ls_pcode
		AND u_outware.storageid = :cur_storageid
		AND u_outware.balcdateint = 0
		AND u_outware.flag = 1
		And u_outwaremx.sptid = :ll_sptid_cusid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询本月出仓失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+','+sqlca.SQLErrText
		GOTO ext
	END IF
	
	IF ld_desqty <> ld_outqty THEN ld_desqty = ld_outqty
	IF ld_desamt <> ld_outamt THEN ld_desamt = ld_outamt
	
	IF IsNull(ld_bgqty) THEN ld_bgqty = 0
	IF IsNull(ld_bgamt) THEN ld_bgamt = 0
	IF IsNull(ld_incqty) THEN ld_incqty = 0
	IF IsNull(ld_incamt) THEN ld_incamt = 0
	IF IsNull(ld_desqty) THEN ld_desqty = 0
	IF IsNull(ld_desamt) THEN ld_desamt = 0
	
	
	//出仓成本价
	IF ld_bgqty + ld_incqty <> 0 THEN
		ld_newcost_out = Round((ld_bgamt + ld_incamt) / (ld_bgqty + ld_incqty),10)
	ELSE
		IF ld_desqty <> 0 THEN
			ld_newcost_out = Round(ld_desamt / ld_desqty, 10)
		ELSE
			ld_newcost_out = 0
		END IF
	END IF
	
	IF ld_newcost_out < 0 THEN ld_newcost_out = 0
	
	//更新期间出金额
	UPDATE u_outwaremx
		SET u_outwaremx.cost = :ld_newcost_out,
		u_outwaremx.costamt = round(u_outwaremx.qty * :ld_newcost_out,2)
		FROM u_outwaremx INNER JOIN
		u_outware ON u_outwaremx.scid = u_outware.scid AND
		u_outwaremx.outwareid = u_outware.outwareid
		WHERE u_outwaremx.mtrlid = :ll_mtrlid
		AND u_outware.storageid = :cur_storageid
		AND u_outwaremx.status = :ls_status
		AND u_outwaremx.woodcode = :ls_woodcode
		AND u_outwaremx.pcode = :ls_pcode
		AND u_outware.balcflag  = 0
		And u_outwaremx.sptid = :ll_sptid_cusid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新未结存的出仓单金额失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+','+sqlca.SQLErrText
		GOTO ext
	END IF
	
	//重新查出仓
	SELECT isnull(sum(u_outwaremx.qty),0),
		isnull(sum(u_outwaremx.uqty),0),
		isnull(sum(round(u_outwaremx.costamt,2)),0)
		INTO :ld_outqty,:ld_uoutqty,:ld_outamt
		FROM u_outware,u_outwaremx
		WHERE u_outware.scid = u_outwaremx.scid
		AND u_outware.outwareid = u_outwaremx.outwareid
		AND u_outwaremx.mtrlid = :ll_mtrlid
		AND u_outwaremx.status = :ls_status
		AND u_outwaremx.woodcode = :ls_woodcode
		AND u_outwaremx.pcode = :ls_pcode
		AND u_outware.storageid = :cur_storageid
		AND u_outware.balcdateint = 0
		AND u_outware.flag = 1
		And u_outwaremx.sptid = :ll_sptid_cusid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询本月出仓失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+','+sqlca.SQLErrText
		GOTO ext
	END IF
	
	IF ld_desqty <> ld_outqty THEN ld_desqty = ld_outqty
	IF ld_desamt <> ld_outamt THEN ld_desamt = ld_outamt
	
	IF IsNull(ld_bgqty) THEN ld_bgqty = 0
	IF IsNull(ld_bgamt) THEN ld_bgamt = 0
	IF IsNull(ld_incqty) THEN ld_incqty = 0
	IF IsNull(ld_incamt) THEN ld_incamt = 0
	IF IsNull(ld_desqty) THEN ld_desqty = 0
	IF IsNull(ld_desamt) THEN ld_desamt = 0
	
	
	//更新期间出金额,结存金额
	UPDATE u_warebalc
		SET bgqty = :ld_bgqty,
		bgamt = :ld_bgamt,
		incqty = :ld_incqty,
		incamt = :ld_incamt,
		desqty = :ld_desqty,
		desamt = :ld_desamt,
		balcqty = :ld_bgqty + :ld_incqty - :ld_desqty,
		balcamt = :ld_bgamt + :ld_incamt - :ld_desamt
		WHERE mtrlid = :ll_mtrlid
		AND balcdateint = 0
		AND Storageid = :cur_storageid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode
		And sptid_cusid = :ll_sptid_cusid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新结存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+','+sqlca.SQLErrText
		GOTO ext
	END IF
	
	IF ld_bgqty + ld_incqty - ld_desqty <> 0 THEN
		ld_newcost = Round((ld_bgamt + ld_incamt - ld_desamt) / (ld_bgqty + ld_incqty - ld_desqty),10)
	ELSE
		ld_newcost = 0
	END IF
	IF ld_newcost < 0 THEN ld_newcost = 0
	
	UPDATE u_mtrlware
		SET cost = :ld_newcost,
		noallocqty = :ld_bgqty + :ld_incqty - :ld_desqty ,
		wareamt = :ld_bgamt + :ld_incamt - :ld_desamt
		WHERE mtrlid = :ll_mtrlid
		AND Storageid = :cur_storageid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode
		AND plancode = ''
		And sptid = :ll_sptid_cusid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg =  '更新库存金额失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+','+sqlca.SQLErrText
		GOTO ext
	END IF
NEXT

ext:
Destroy ds_warebalc
Close(w_sys_wait_jdt)
IF rslt = 0 THEN
	ROLLBACK;
	MessageBox('Error',arg_msg)
	RETURN
ELSE
	COMMIT;
	MessageBox('系统提示','重算成功!')
	This.TriggerEvent('retrieve_pageretr')
END IF





end event

event ue_cmp();//超级重算

IF Not f_power_ind(1507) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

//IF NOT dw_pageretr.DataObject = 'dw_warebalc_view' THEN
//	MessageBox('系统提示','必须在客户产品统计表中才能执行本功能')
//	RETURN
//END IF

IF MessageBox (publ_operator,"是否确定要执行超级重算结存功能?",Question!,YesNo! ) = 2 THEN RETURN

IF cur_storageid = -1 THEN
	MessageBox('系统提示','请先选择仓库')
	RETURN
END IF

//// //清空筛选内容
//dw_pageretr.SetFilter('')
//dw_pageretr.Filter()
//dw_pageretr.Retrieve(cur_storageid_arr,'','',-1,publ_operator)
Long rslt = 1
String arg_msg

Long ll_i
Decimal ld_newcost // 最新成本价
Decimal ld_bgqty,ld_bgamt,ld_incqty,ld_incamt,ld_desqty,ld_desamt
Decimal ld_balcqty,ld_balcamt
Long ll_mtrlid
String ls_status,ls_pcode,ls_woodcode
String ls_mtrlcode
Decimal ld_noallocqty,ld_wareamt
Decimal ld_noallocqty_sum,ld_wareamt_sum
Long  ll_sptid
Open(w_sys_wait_jdt) //初始化进度条

w_sys_wait_jdt.Show()
//
////结存查库存

//库存计结存
Long cnt,ll_scid
datastore ds_mtrlware
ds_mtrlware = Create datastore
ds_mtrlware.DataObject = 'ds_warebalc_view_cmpl_mtrlware_to_balc2'
ds_mtrlware.SetTransObject(sqlca)
ds_mtrlware.Retrieve(cur_storageid)
ds_mtrlware.AcceptText()

//IF ld_noallocqty_sum <> ds_mtrlware.Object.sumqty[1] OR &
//	ld_wareamt_sum <> ds_mtrlware.Object.sumamt[1] THEN

SELECT scid INTO :ll_scid
	FROM u_storage
	Where storageid = :cur_storageid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询仓库所属分部失败'
	GOTO ext
END IF

w_sys_wait_jdt.wf_accepttol(ds_mtrlware.RowCount())

FOR ll_i = 1 To ds_mtrlware.RowCount()
	ll_mtrlid = 0
	ls_mtrlcode = ''
	ls_status = ''
	ls_woodcode = ''
	ls_pcode = ''
	ld_noallocqty = 0
	ld_wareamt = 0
	ll_sptid = 0
	cnt = 0
	
	ls_mtrlcode = ds_mtrlware.Object.u_mtrldef_mtrlcode[ll_i]
	ll_mtrlid = ds_mtrlware.Object.mtrlid[ll_i]
	
	ls_status = ds_mtrlware.Object.status[ll_i]
	ls_woodcode = ds_mtrlware.Object.woodcode[ll_i]
	ls_pcode = ds_mtrlware.Object.pcode[ll_i]
	ld_noallocqty = ds_mtrlware.Object.qty[ll_i]
	ld_wareamt = ds_mtrlware.Object.amt[ll_i]
	ll_sptid = ds_mtrlware.Object.u_mtrlware_sptid[ll_i]
	w_sys_wait_jdt.st_msg.Text = " 正在库存重算:"+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode+"..." //进度信息
	w_sys_wait_jdt.wf_inc(ll_i)
	
	
	SELECT  sum(Round(u_inwaremx.qty * u_inwaremx.cost,2))  ,
		sum(u_inwaremx.qty)
		INTO :ld_incamt,:ld_incqty
		FROM u_inwaremx,u_inware
		WHERE u_inwaremx.scid = u_inware.scid
		AND u_inwaremx.inwareid = u_inware.inwareid
		AND u_inware.storageid = :cur_storageid
		AND u_inware.balcdateint = 0
		AND u_inwaremx.mtrlid = :ll_mtrlid
		AND u_inwaremx.status = :ls_status
		AND u_inwaremx.woodcode = :ls_woodcode
		AND u_inwaremx.pcode = :ls_pcode
		AND u_inwaremx.sptid_cusid = :ll_sptid
		And u_inware.flag = 1;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询进仓失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
		GOTO ext
	END IF
	
	SELECT   sum(u_outwaremx.costamt) ,
		sum(u_outwaremx.qty)
		INTO :ld_desamt,:ld_desqty
		FROM u_outwaremx,u_outware
		WHERE u_outwaremx.scid = u_outware.scid
		AND u_outwaremx.outwareid = u_outware.outwareid
		AND u_outware.storageid = :cur_storageid
		AND u_outware.balcdateint = 0
		AND u_outwaremx.mtrlid = :ll_mtrlid
		AND u_outwaremx.status = :ls_status
		AND u_outwaremx.woodcode = :ls_woodcode
		AND u_outwaremx.pcode = :ls_pcode
		AND u_outwaremx.sptid = :ll_sptid
		And u_outware.flag = 1;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询出仓失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
		GOTO ext
	END IF
	
	IF IsNull(ld_desqty) THEN ld_desqty = 0
	IF IsNull(ld_incqty) THEN ld_incqty = 0
	IF IsNull(ld_desamt) THEN ld_desamt = 0
	IF IsNull(ld_incamt) THEN ld_incamt = 0
	UPDATE u_warebalc
		SET balcqty = :ld_noallocqty,
		balcamt = :ld_wareamt,
		bgqty = :ld_noallocqty + :ld_desqty - :ld_incqty,
		bgamt = :ld_wareamt + :ld_desamt - :ld_incamt,
		incqty = :ld_incqty,
		incamt = :ld_incamt,
		desqty = :ld_desqty,
		desamt = :ld_desamt
		WHERE mtrlid = :ll_mtrlid
		AND balcdateint = 0
		AND Storageid = :cur_storageid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode
		And sptid_cusid = :ll_sptid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新结存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
		GOTO ext
	ELSEIF  sqlca.SQLNRows = 0 THEN
		INSERT INTO u_warebalc
			(scid,
			balcdateint,
			storageid,
			mtrlid,
			status,
			woodcode,
			pcode,
			bgqty,
			bgamt,
			incqty,
			incamt,
			desqty,
			desamt,
			balcqty,
			balcamt,
			sptid_cusid)
			VALUES
			(:sys_scid,0,
			:cur_storageid,
			:ll_mtrlid,
			:ls_status,
			:ls_woodcode,
			:ls_pcode,
			:ld_noallocqty + :ld_desqty - :ld_incqty,
			:ld_wareamt + :ld_desamt - :ld_incamt,
			:ld_incqty,
			:ld_incamt,
			:ld_desqty,
			:ld_desamt,
			:ld_noallocqty,
			:ld_wareamt,
			:ll_sptid);
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '新加结存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
			GOTO ext
		END IF
	END IF
	
NEXT
//END IF


ext:
Destroy ds_mtrlware
Close(w_sys_wait_jdt)
IF rslt = 0 THEN
	ROLLBACK;
	MessageBox('Error',arg_msg)
	RETURN
ELSE
	COMMIT;
	MessageBox('系统提示','重算成功!')
	This.TriggerEvent('retrieve_pageretr')
END IF






end event

event ue_update_inware_mtrlwareid();UPDATE u_inwaremx
	SET mtrlwareid = u_mtrlware.mtrlwareid
	FROM u_inware INNER JOIN
	u_inwaremx ON u_inware.scid = u_inwaremx.scid AND
	u_inware.inwareid = u_inwaremx.inwareid INNER JOIN
	u_mtrlware ON u_inwaremx.scid = u_mtrlware.scid AND
	u_inwaremx.mtrlid = u_mtrlware.mtrlid AND
	u_inwaremx.plancode = u_mtrlware.plancode AND
	u_inwaremx.status = u_mtrlware.Status AND
	u_inwaremx.woodcode = u_mtrlware.woodcode AND
	u_inwaremx.pcode = u_mtrlware.pcode AND
	u_inwaremx.sptid_cusid = u_mtrlware.Sptid AND
	u_inware.storageid = u_mtrlware.storageid AND
	u_inware.Dxflag = u_mtrlware.Dxflag
	Where (u_inware.flag = 1) And (u_inwaremx.mtrlwareid = 0);
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('','失败')
ELSE
	COMMIT;
	MessageBox('','成功')
END IF


end event

public subroutine wf_hidecol ();s_hide_col s_col

s_col.col_1 = 'u_mtrldef_bgamt'
s_col.col_2 = 'u_mtrldef_incamt'
s_col.col_3 = 'u_mtrldef_desamt'
s_col.col_4 = 'u_mtrldef_balcamt'

f_hide_col(123,dw_1,s_col)



end subroutine

public function window getparentwindow ();return this
end function

on w_warebalc_view.create
int iCurrent
call super::create
this.tv_1=create tv_1
this.st_2=create st_2
this.ddlb_storageid=create ddlb_storageid
this.cb_other=create cb_other
this.st_1=create st_1
this.em_month=create em_month
this.st_lastbalcdate=create st_lastbalcdate
this.ddlb_1=create ddlb_1
this.cb_balc=create cb_balc
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.tv_1
this.Control[iCurrent+2]=this.st_2
this.Control[iCurrent+3]=this.ddlb_storageid
this.Control[iCurrent+4]=this.cb_other
this.Control[iCurrent+5]=this.st_1
this.Control[iCurrent+6]=this.em_month
this.Control[iCurrent+7]=this.st_lastbalcdate
this.Control[iCurrent+8]=this.ddlb_1
this.Control[iCurrent+9]=this.cb_balc
end on

on w_warebalc_view.destroy
call super::destroy
destroy(this.tv_1)
destroy(this.st_2)
destroy(this.ddlb_storageid)
destroy(this.cb_other)
destroy(this.st_1)
destroy(this.em_month)
destroy(this.st_lastbalcdate)
destroy(this.ddlb_1)
destroy(this.cb_balc)
end on

event resize;call super::resize;//IF cbx_inout.Checked THEN
//	tab_1.Visible = TRUE
//	
//	dw_1.Width = THIS.Width - dw_1.X - 40
//	dw_1.Height = THIS.Height - dw_1.Y - tab_1.Height - 150
//	
//	tv_1.Height = THIS.Height - tv_1.Y - 150
//	
//	
//	
//	tab_1.Width = THIS.Width - tab_1.X - 40
//	
//	tab_1.Y = dw_1.Y + dw_1.Height + 10
//	tab_1.X = dw_1.X
//	tab_1.tabpage_1.dw_inout.Height = tab_1.tabpage_1.Height - tab_1.tabpage_1.dw_inout.Y - 40
//	tab_1.tabpage_1.dw_inout.Width = tab_1.tabpage_1.Width - tab_1.tabpage_1.dw_inout.X - 40
//	tab_1.tabpage_2.dw_out_noaudit.Height = tab_1.tabpage_2.Height - tab_1.tabpage_2.dw_out_noaudit.Y - 40
//	tab_1.tabpage_2.dw_out_noaudit.Width = tab_1.tabpage_2.Width - tab_1.tabpage_2.dw_out_noaudit.X - 40
//ELSE
	dw_1.Width = THIS.Width - dw_1.X - 40
	dw_1.Height = THIS.Height - dw_1.Y - 150
	
	tv_1.Height = THIS.Height - tv_1.Y - 150
	
//	tab_1.Visible = FALSE
//	
//END IF

end event

event ue_before_open;call super::ue_before_open;//cbx_1.visible = false
//cbx_inout.visible = false

ins_if_info = Long(f_ProfileString (sys_empid,This.ClassName(), "ins_if_info",'0'))
IF ins_if_info = 1 THEN
	This.PostEvent('ue_mtrl_info')
END IF


end event

event ue_before_openretrieve;call super::ue_before_openretrieve;//tab_1.tabpage_1.dw_inout.settransobject(sqlca)
//tab_1.tabpage_2.dw_out_noaudit.settransobject(sqlca)

end event

event close;call super::close;IF IsValid(w_mtrl_info) THEN
	ins_if_info = 1
ELSE
	ins_if_info = 0
END IF

f_SetProfileString (sys_empid,This.ClassName(),"ins_if_info",String(ins_if_info))


end event

type cb_func from w_publ_easyq`cb_func within w_warebalc_view
end type

type cb_exit from w_publ_easyq`cb_exit within w_warebalc_view
integer x = 1536
end type

type cb_2 from w_publ_easyq`cb_2 within w_warebalc_view
integer x = 1234
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_warebalc_view
integer x = 978
boolean bringtotop = true
end type

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

event cb_1::clicked;parent.triggerevent("retrieve_pageretr")
end event

type st_3 from w_publ_easyq`st_3 within w_warebalc_view
boolean visible = false
integer x = 690
integer y = 204
end type

type st_4 from w_publ_easyq`st_4 within w_warebalc_view
boolean visible = false
integer x = 1381
integer y = 204
end type

type em_1 from w_publ_easyq`em_1 within w_warebalc_view
boolean visible = false
integer x = 882
integer y = 188
integer taborder = 120
end type

type em_2 from w_publ_easyq`em_2 within w_warebalc_view
boolean visible = false
integer x = 1486
integer y = 188
integer taborder = 130
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_warebalc_view
integer x = 2071
integer y = 8
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_warebalc_view
integer x = 1861
integer y = 12
end type

type dw_1 from w_publ_easyq`dw_1 within w_warebalc_view
integer x = 805
integer y = 300
integer width = 2400
integer height = 988
string dataobject = "dw_warebalc_view_sum"
end type

event dw_1::doubleclicked;call super::doubleclicked;IF dwo.Name = 'u_mtrlware_waredscrp' THEN
	Parent.TriggerEvent('ue_waredscrp_view')
END IF

end event

event dw_1::rowfocuschanged;call super::rowfocuschanged;Parent.TriggerEvent('ue_retrieve_info')
//IF cbx_inout.Checked THEN
//	Parent.TriggerEvent('ue_retrieve_inoutmx')
//END IF

end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_warebalc_view
end type

type sle_cust from w_publ_easyq`sle_cust within w_warebalc_view
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_warebalc_view
end type

type st_cust from w_publ_easyq`st_cust within w_warebalc_view
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_warebalc_view
boolean visible = true
integer x = 1861
integer y = 100
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_warebalc_view
boolean visible = false
integer x = 1298
integer y = 188
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_warebalc_view
boolean visible = false
integer x = 1897
integer y = 188
end type

type pb_2 from w_publ_easyq`pb_2 within w_warebalc_view
boolean visible = false
integer x = 2007
integer y = 188
end type

type cb_help from w_publ_easyq`cb_help within w_warebalc_view
integer x = 1385
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_warebalc_view
integer x = 722
end type

type gb_1 from w_publ_easyq`gb_1 within w_warebalc_view
end type

type ln_bar from w_publ_easyq`ln_bar within w_warebalc_view
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_warebalc_view
end type

type r_bar from w_publ_easyq`r_bar within w_warebalc_view
integer x = 2272
end type

type ln_1 from w_publ_easyq`ln_1 within w_warebalc_view
end type

type ln_2 from w_publ_easyq`ln_2 within w_warebalc_view
end type

type ln_3 from w_publ_easyq`ln_3 within w_warebalc_view
boolean visible = false
end type

type ln_4 from w_publ_easyq`ln_4 within w_warebalc_view
boolean visible = false
end type

type tv_1 from uo_tv_mtrltype within w_warebalc_view
integer y = 300
integer width = 800
integer height = 1808
integer taborder = 130
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_2 from statictext within w_warebalc_view
integer x = 5
integer y = 204
integer width = 192
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_storageid from uo_ddlb_storageid within w_warebalc_view
integer x = 206
integer y = 188
integer width = 1088
integer height = 1232
integer taborder = 130
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_1.triggerevent(clicked!)
end event

type cb_other from uo_imflatbutton within w_warebalc_view
integer x = 466
integer width = 256
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "辅助功能"
string normalpicname = "other.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


menustr = "Text=按上期结存数量金额重算本期结存表~tEvent=ue_cmp_amt2"
menustr = menustr + "|" + "Text=按现库存表数量金额倒推重算本期本期结存表~tEvent=ue_cmp_mtrlware"
menustr = menustr + "|" + "Text=超级重算~tEvent=ue_cmp"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=更新进仓单明细库存ID~tEvent=ue_update_inware_mtrlwareid"
menustr = menustr + "|" + "Text=物料相关查询~tEvent=ue_mtrl_info"

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 st_1 from statictext within w_warebalc_view
integer x = 1381
integer y = 204
integer width = 242
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_month from editmask within w_warebalc_view
integer x = 1632
integer y = 188
integer width = 434
integer height = 88
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
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_lastbalcdate from statictext within w_warebalc_view
integer x = 2158
integer y = 204
integer width = 823
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 = "最后结存日期"
boolean focusrectangle = false
end type

type ddlb_1 from dropdownlistbox within w_warebalc_view
integer x = 2427
integer y = 32
integer width = 745
integer height = 1100
integer taborder = 100
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;dw_1.SetRedraw(False)
dw_1.uf_save_profile_layout()

IF this.Text = '客户产品统计表' THEN
	dw_1.DataObject = 'dw_warebalc_view'
ELSEIF this.Text = '产品明细统计表' THEN
	dw_1.DataObject = 'dw_warebalc_view_sum_1'
ELSEIF this.Text = '汇总统计表' THEN
	dw_1.DataObject = 'dw_warebalc_view_sum'
ELSEIF this.Text = '分类统计表' THEN
	dw_1.DataObject = 'dw_warebalc_view_2'
ELSEIF this.Text = '汇总统计表（设定售价）' THEN
	dw_1.DataObject = 'dw_warebalc_view_sum_saleprice'
END IF
dw_1.SetTransObject(sqlca)

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

dw_1.uf_read_profile_layout()

wf_hidecol()

f_title_change(dw_1)

dw_1.SetRedraw(True)

cb_1.TriggerEvent(Clicked!)

end event

type cb_balc from uo_imflatbutton within w_warebalc_view
integer x = 302
integer width = 165
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "结存"
string normalpicname = "update2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

IF cur_storageid = -1 THEN
	MessageBox("提示","请选择仓库结存",information!,ok!)
	RETURN
END IF



balcdate = DateTime(Date(em_month.Text),Time('23:59:59'))

IF MessageBox ('询问',"是否确定要把当前日仓库进行结存操作吗?"+'~n'+&
	'结存时间: '+String(balcdate,'YYYY-MM-DD HH:MM:SS')+',结存过程中不能进行其它操作!',Question!,YesNo! ) = 2 THEN RETURN
w_sys_wait.Show()
String arg_msg = '',err_msg = ''

uf_warebalc(1,0,cur_storageid,balcdate,arg_msg)
w_sys_wait.Hide()
MessageBox('提示',arg_msg,information!,ok!)
cb_1.TriggerEvent(Clicked!)

end event