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

$PBExportHeader$w_warebalc_view_spt.srw
forward
global type w_warebalc_view_spt from w_publ_pageretr_easyq
end type
type cb_1 from uo_imflatbutton within w_warebalc_view_spt
end type
type em_month from editmask within w_warebalc_view_spt
end type
type st_2 from statictext within w_warebalc_view_spt
end type
type ddlb_1 from uo_ddlb_wfjg_sptid within w_warebalc_view_spt
end type
type ddlb_scid from uo_ddlb_scid within w_warebalc_view_spt
end type
type st_3 from statictext within w_warebalc_view_spt
end type
type ddlb_2 from dropdownlistbox within w_warebalc_view_spt
end type
type cb_cmp from uo_imflatbutton within w_warebalc_view_spt
end type
end forward

global type w_warebalc_view_spt from w_publ_pageretr_easyq
integer height = 2404
string title = "外协商结存"
boolean if_mdf_title = false
event ue_cmp_mtrlware_to_balc ( )
event ue_cmp_balc_to_mtrlware ( )
cb_1 cb_1
em_month em_month
st_2 st_2
ddlb_1 ddlb_1
ddlb_scid ddlb_scid
st_3 st_3
ddlb_2 ddlb_2
cb_cmp cb_cmp
end type
global w_warebalc_view_spt w_warebalc_view_spt

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

long cur_sptid = -1
long il_scid
end variables

forward prototypes
public subroutine wf_dw ()
public subroutine wf_hide_col ()
end prototypes

event ue_cmp_mtrlware_to_balc();//IF NOT f_power_ind(2208,sys_msg_pow) THEN
//	MessageBox(publ_operator,sys_msg_pow)
//	RETURN
//END IF
//
IF NOT dw_pageretr.DataObject = 'dw_warebalc_view_spt' THEN
	MessageBox('系统提示','必须在明细统计表中才能执行本功能')
	RETURN
END IF

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

IF il_scid = -1 THEN
	MessageBox('系统提示','请先选择分部')
	RETURN
END IF

//清空筛选内容
dw_pageretr.SetFilter('')
dw_pageretr.Filter()
dw_pageretr.Retrieve(il_scid,cur_sptid)
//

Long ll_i,ll_sptid,ll_scid

Decimal ld_inqty,ld_inamt
Decimal ld_thqty,ld_thamt
Decimal ld_outqty,ld_outamt
Decimal ld_reoutqty,ld_reoutamt
Long ll_mtrlid
String ls_status,ls_pcode,ls_woodcode
String ls_mtrlcode
Decimal ld_noallocqty,ld_wareamt

OPEN(w_sys_wait_jdt) //初始化进度条
w_sys_wait_jdt.Show()
w_sys_wait_jdt.wf_accepttol(dw_pageretr.RowCount())

FOR ll_i = 1 TO dw_pageretr.RowCount()
	
	ll_scid = dw_pageretr.Object.ow_wfjgbalc_scid[ll_i]
	ll_sptid = dw_pageretr.Object.ow_wfjgbalc_sptid[ll_i]
	ll_mtrlid = dw_pageretr.Object.ow_wfjgbalc_mtrlid[ll_i]
	ls_status = dw_pageretr.Object.ow_wfjgbalc_status[ll_i]
	ls_woodcode = dw_pageretr.Object.ow_wfjgbalc_woodcode[ll_i]
	ls_pcode = dw_pageretr.Object.ow_wfjgbalc_pcode[ll_i]
	ls_mtrlcode = dw_pageretr.Object.u_mtrldef_mtrlcode[ll_i]
	
	ld_inqty = dw_pageretr.Object.ow_wfjgbalc_inqty[ll_i]
	ld_inamt =  dw_pageretr.Object.ow_wfjgbalc_inamt[ll_i]
	ld_thqty = dw_pageretr.Object.ow_wfjgbalc_thqty[ll_i]
	ld_thamt =  dw_pageretr.Object.ow_wfjgbalc_thamt[ll_i]
	
	ld_outqty = dw_pageretr.Object.ow_wfjgbalc_outqty[ll_i]
	ld_outamt =  dw_pageretr.Object.ow_wfjgbalc_outamt[ll_i]
	ld_reoutqty = dw_pageretr.Object.ow_wfjgbalc_reoutqty[ll_i]
	ld_reoutamt =  dw_pageretr.Object.ow_wfjgbalc_reoutamt[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(noallocqty),
		sum(wareamt)
		INTO :ld_noallocqty,
		:ld_wareamt
		FROM ow_wfjgware
		WHERE mtrlid = :ll_mtrlid
		AND sptid = :ll_sptid
		AND scid = :ll_scid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode;
	IF sqlca.SQLCode <> 0 THEN
		IF sqlca.SQLCode = 100 THEN
			ld_noallocqty = 0
			ld_wareamt = 0
		ELSE
			ROLLBACK;
			CLOSE(w_sys_wait_jdt)
			MessageBox('Error','查询外协商库存资料失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode)
			RETURN
		END IF
	END IF
	
	UPDATE ow_wfjgbalc
		SET balcqty = :ld_noallocqty,
		balcamt = :ld_wareamt
		WHERE mtrlid = :ll_mtrlid
		AND balcdateint = 0
		AND sptid = :ll_sptid
		AND scid = :ll_scid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		CLOSE(w_sys_wait_jdt)
		MessageBox('Error','更新结存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode)
		RETURN
	END IF
	
	UPDATE ow_wfjgbalc
		SET bgqty = balcqty + (outqty - reoutqty) - (inqty - thqty),
		bgamt = balcamt + (outamt - reoutamt) - (inamt - thamt)
		WHERE mtrlid = :ll_mtrlid
		AND balcdateint = 0
		AND scid = :ll_scid
		AND sptid = :ll_sptid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		CLOSE(w_sys_wait_jdt)
		MessageBox('Error','更新结存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode)
		RETURN
	END IF
NEXT

CLOSE(w_sys_wait_jdt)
COMMIT;
MessageBox('系统提示','重算成功!')
THIS.TriggerEvent('retrieve_pageretr')

end event

event ue_cmp_balc_to_mtrlware();//IF NOT f_power_ind(2208,sys_msg_pow) THEN
//	MessageBox(publ_operator,sys_msg_pow)
//	RETURN
//END IF

IF NOT dw_pageretr.DataObject = 'dw_warebalc_view_spt' THEN
	MessageBox('系统提示','必须在明细统计表中才能执行本功能')
	RETURN
END IF

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

IF il_scid = -1 THEN
	MessageBox('系统提示','请先选择分部')
	RETURN
END IF

//清空筛选内容
dw_pageretr.SetFilter('')
dw_pageretr.Filter()
dw_pageretr.Retrieve(il_scid,cur_sptid)
//

Long ll_i,ll_sptid,ll_scid
Long cnt,ls_newid
Decimal ld_balcqty,ld_balcamt,ld_cost
Long ll_mtrlid
String ls_status,ls_pcode,ls_woodcode
String ls_mtrlcode,arg_msg
Decimal ld_noallocqty,ld_wareamt

SELECT count(*) INTO :cnt
	FROM ow_wfjgware
	WHERE scid = :il_scid
	AND sptid = :cur_sptid
	AND plancode <> '';
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误','外协商库存表是否有批号库存失败,操作取消')
	RETURN
END IF

IF cnt > 0 THEN
	MessageBox('错误','外协商库存表有批号库存,不能推算,操作取消')
	RETURN
END IF

UPDATE ow_wfjgware
	SET wareamt = 0,
	noallocqty = 0
	WHERE scid = :il_scid
	AND sptid = :cur_sptid;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','清除外协商库存表失败,操作取消')
	RETURN
END IF

OPEN(w_sys_wait_jdt) //初始化进度条
w_sys_wait_jdt.Show()
w_sys_wait_jdt.wf_accepttol(dw_pageretr.RowCount())

FOR ll_i = 1 TO dw_pageretr.RowCount()
	
	ll_scid = dw_pageretr.Object.ow_wfjgbalc_scid[ll_i]
	ll_sptid = dw_pageretr.Object.ow_wfjgbalc_sptid[ll_i]
	ll_mtrlid = dw_pageretr.Object.ow_wfjgbalc_mtrlid[ll_i]
	ls_status = dw_pageretr.Object.ow_wfjgbalc_status[ll_i]
	ls_woodcode = dw_pageretr.Object.ow_wfjgbalc_woodcode[ll_i]
	ls_pcode = dw_pageretr.Object.ow_wfjgbalc_pcode[ll_i]
	ls_mtrlcode = dw_pageretr.Object.u_mtrldef_mtrlcode[ll_i]
	
	ld_balcqty = dw_pageretr.Object.ow_wfjgbalc_balcqty[ll_i]
	ld_balcamt =  dw_pageretr.Object.ow_wfjgbalc_balcamt[ll_i]
	
	IF IsNull(ld_balcqty) THEN ld_balcqty = 0
	IF IsNull(ld_balcamt) THEN ld_balcamt = 0
	
	IF ld_balcqty = 0 THEN
		ld_cost = 0
	ELSE
		ld_cost = Round(ld_balcamt/ld_balcqty,sys_option_cost_dec)
	END IF
	
	IF ld_cost < 0 THEN ld_cost = 0
	
	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)
	
	UPDATE ow_wfjgware
		SET wareamt = :ld_balcamt,
		noallocqty = :ld_balcqty,
		cost = :ld_cost
		WHERE mtrlid = :ll_mtrlid
		AND sptid = :ll_sptid
		AND scid = :ll_scid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		AND pcode = :ls_pcode;
	IF sqlca.SQLCode = 0 THEN
		IF sqlca.SQLNRows = 0 THEN
			ls_newid = f_sys_scidentity(0,"ow_wfjgware","mtrlwareid",arg_msg,TRUE,id_sqlca)
			IF ls_newid <= 0 THEN
				ROLLBACK;
				CLOSE(w_sys_wait_jdt)
				MessageBox('错误','取外协商库存资料关建id失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode)
				RETURN
			END IF
			
			INSERT INTO ow_wfjgware
				(mtrlwareid,
				mtrlid,
				plancode,
				status,
				noallocqty,
				allocqty,
				wareamt,
				sptid,
				woodcode,
				pcode,
				cost,
				scid)
				VALUES (
				:ls_newid,
				:ll_mtrlid,
				'',
				:ls_status,
				:ld_balcqty,
				0,
				:ld_balcamt,
				:ll_sptid,
				:ls_woodcode,
				:ls_pcode,
				:ld_cost,
				:ll_scid) ;
			IF sqlca.SQLCode <> 0 THEN
				ROLLBACK;
				CLOSE(w_sys_wait_jdt)
				MessageBox('错误','增加外协商库存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode)
				RETURN
			END IF
		END IF
	ELSE
		ROLLBACK;
		CLOSE(w_sys_wait_jdt)
		MessageBox('错误','更新外协商库存失败,物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode)
		RETURN
	END IF
NEXT

CLOSE(w_sys_wait_jdt)
COMMIT;
MessageBox('系统提示','重算成功!')
THIS.TriggerEvent('retrieve_pageretr')

end event

public subroutine wf_dw ();dw_pageretr.uf_save_profile_layout()

IF ddlb_2.Text = '明细统计表' THEN
	dw_pageretr.DataObject = 'dw_warebalc_view_spt'
ELSEIF ddlb_2.Text = '明细统计表[辅单位1]' THEN
	dw_pageretr.DataObject = 'dw_warebalc_view_spt_unit_buy'
ELSEIF ddlb_2.Text = '明细统计表[辅单位2]' THEN
	dw_pageretr.DataObject = 'dw_warebalc_view_spt_unit_scll'
ELSEIF ddlb_2.Text = '明细统计表[辅单位3]' THEN
	dw_pageretr.DataObject = 'dw_warebalc_view_spt_unit_sale'
END IF
dw_pageretr.triggerevent('constructor')

dw_pageretr.SetTransObject(sqlca)

//
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)

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()

wf_hide_col()
THIS.TriggerEvent('retrieve_pageretr')
end subroutine

public subroutine wf_hide_col ();s_hide_col s_col
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'
s_col.col_8 = 'ow_wfjgbalc_wasteamt'
            
//f_hide_col(121,dw_pageretr,s_col)
	f_hide_col(1448,dw_pageretr,s_col)


end subroutine

on w_warebalc_view_spt.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.em_month=create em_month
this.st_2=create st_2
this.ddlb_1=create ddlb_1
this.ddlb_scid=create ddlb_scid
this.st_3=create st_3
this.ddlb_2=create ddlb_2
this.cb_cmp=create cb_cmp
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.em_month
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.ddlb_1
this.Control[iCurrent+5]=this.ddlb_scid
this.Control[iCurrent+6]=this.st_3
this.Control[iCurrent+7]=this.ddlb_2
this.Control[iCurrent+8]=this.cb_cmp
end on

on w_warebalc_view_spt.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.em_month)
destroy(this.st_2)
destroy(this.ddlb_1)
destroy(this.ddlb_scid)
destroy(this.st_3)
destroy(this.ddlb_2)
destroy(this.cb_cmp)
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 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_usual_query_filt;call super::ue_usual_query_filt;String obj_expr = ''
//IF 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 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

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_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

SetPointer(HourGlass!)


dw_pageretr.retrieve(il_scid,cur_sptid)
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()
end event

type cb_func from w_publ_pageretr_easyq`cb_func within w_warebalc_view_spt
integer x = 302
integer taborder = 140
end type

type cb_exit from w_publ_pageretr_easyq`cb_exit within w_warebalc_view_spt
integer x = 1294
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
integer x = 352
integer y = 188
integer width = 535
integer height = 88
end type

type cb_retrieveall from w_publ_pageretr_easyq`cb_retrieveall within w_warebalc_view_spt
integer x = 1632
integer y = 476
integer taborder = 150
end type

type em_pagerowno from w_publ_pageretr_easyq`em_pagerowno within w_warebalc_view_spt
integer x = 1376
integer y = 476
end type

type dw_pageretr from w_publ_pageretr_easyq`dw_pageretr within w_warebalc_view_spt
integer width = 2976
integer height = 1312
string dataobject = "dw_warebalc_view_spt"
end type

type st_1 from w_publ_pageretr_easyq`st_1 within w_warebalc_view_spt
integer x = 23
integer y = 208
integer width = 343
string text = "编码/名称含:"
end type

type cb_nextpage from w_publ_pageretr_easyq`cb_nextpage within w_warebalc_view_spt
boolean visible = false
integer x = 2528
integer taborder = 180
end type

type ddlb_yl from w_publ_pageretr_easyq`ddlb_yl within w_warebalc_view_spt
integer x = 1678
integer y = 40
integer taborder = 80
end type

type cbx_yl from w_publ_pageretr_easyq`cbx_yl within w_warebalc_view_spt
integer x = 1472
integer y = 40
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
integer x = 727
integer taborder = 130
end type

type cb_2 from w_publ_pageretr_easyq`cb_2 within w_warebalc_view_spt
integer x = 992
integer taborder = 70
end type

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

event cb_refresh::clicked;PARENT.TriggerEvent('retrieve_pageretr')
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
integer x = 1143
end type

type cb_copyself from w_publ_pageretr_easyq`cb_copyself within w_warebalc_view_spt
integer x = 453
end type

type gb_2 from w_publ_pageretr_easyq`gb_2 within w_warebalc_view_spt
integer y = 396
integer width = 2373
integer height = 252
integer taborder = 30
end type

type ln_bar from w_publ_pageretr_easyq`ln_bar within w_warebalc_view_spt
end type

type ln_bar2 from w_publ_pageretr_easyq`ln_bar2 within w_warebalc_view_spt
end type

type r_bar from w_publ_pageretr_easyq`r_bar within w_warebalc_view_spt
end type

type ln_1 from w_publ_pageretr_easyq`ln_1 within w_warebalc_view_spt
end type

type ln_2 from w_publ_pageretr_easyq`ln_2 within w_warebalc_view_spt
end type

type cb_1 from uo_imflatbutton within w_warebalc_view_spt
integer x = 3269
integer y = 184
integer height = 92
integer taborder = 100
boolean bringtotop = true
integer weight = 700
string text = "启动结存"
end type

event clicked;call super::clicked;IF NOT f_power_ind(717) 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

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

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

String arg_msg = '',err_msg = ''

IF uf_warebalc_spt(1,0,il_scid,cur_sptid,balcdate,arg_msg) = 1 THEN
	arg_msg = '结存成功！'
	
ELSE
	
END IF

w_sys_wait.Hide()
MessageBox('系统提示',arg_msg)
cb_refresh.TriggerEvent(Clicked!)


end event

type em_month from editmask within w_warebalc_view_spt
integer x = 2816
integer y = 184
integer width = 448
integer height = 96
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

type st_2 from statictext within w_warebalc_view_spt
integer x = 2546
integer y = 208
integer width = 251
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_1 from uo_ddlb_wfjg_sptid within w_warebalc_view_spt
integer x = 1545
integer y = 188
integer width = 1001
integer height = 1356
integer taborder = 20
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

type ddlb_scid from uo_ddlb_scid within w_warebalc_view_spt
integer x = 1065
integer y = 188
integer width = 466
integer height = 856
integer taborder = 20
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_3 from statictext within w_warebalc_view_spt
integer x = 896
integer y = 204
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_warebalc_view_spt
integer x = 2075
integer y = 36
integer width = 841
integer height = 464
integer taborder = 90
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_dw()
end event

type cb_cmp from uo_imflatbutton within w_warebalc_view_spt
integer x = 151
integer width = 151
integer height = 164
integer taborder = 160
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;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


menustr = "Text=按外协商库存表推算外协结存表~tEvent=ue_cmp_mtrlware_to_balc"
menustr = menustr + "|" + "Text=按外协商结存表推算外协库存表~tEvent=ue_cmp_balc_to_mtrlware"


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