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

$PBExportHeader$w_rp_ware_mtrlware_pageretr.srw
forward
global type w_rp_ware_mtrlware_pageretr from w_publ_easyq
end type
type ddlb_2 from dropdownlistbox within w_rp_ware_mtrlware_pageretr
end type
type cb_other from uo_imflatbutton within w_rp_ware_mtrlware_pageretr
end type
type tv_1 from uo_tv_mtrltype within w_rp_ware_mtrlware_pageretr
end type
type st_2 from statictext within w_rp_ware_mtrlware_pageretr
end type
type ddlb_storageid from uo_ddlb_storageid within w_rp_ware_mtrlware_pageretr
end type
type cbx_1 from checkbox within w_rp_ware_mtrlware_pageretr
end type
type cbx_inout from checkbox within w_rp_ware_mtrlware_pageretr
end type
type cbx_ifin from checkbox within w_rp_ware_mtrlware_pageretr
end type
type cbx_ifout from checkbox within w_rp_ware_mtrlware_pageretr
end type
type em_s_in from editmask within w_rp_ware_mtrlware_pageretr
end type
type em_s_out from editmask within w_rp_ware_mtrlware_pageretr
end type
type st_1 from statictext within w_rp_ware_mtrlware_pageretr
end type
type st_5 from statictext within w_rp_ware_mtrlware_pageretr
end type
type em_e_in from editmask within w_rp_ware_mtrlware_pageretr
end type
type em_e_out from editmask within w_rp_ware_mtrlware_pageretr
end type
type tab_1 from tab within w_rp_ware_mtrlware_pageretr
end type
type tabpage_1 from userobject within tab_1
end type
type dw_inout from u_dw_rbtnfilter within tabpage_1
end type
type em_3 from editmask within tabpage_1
end type
type em_4 from editmask within tabpage_1
end type
type cb_iomx_retrieve from uo_imflatbutton within tabpage_1
end type
type ddlb_1 from dropdownlistbox within tabpage_1
end type
type st_7 from statictext within tabpage_1
end type
type st_6 from statictext within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_inout dw_inout
em_3 em_3
em_4 em_4
cb_iomx_retrieve cb_iomx_retrieve
ddlb_1 ddlb_1
st_7 st_7
st_6 st_6
end type
type tabpage_2 from userobject within tab_1
end type
type dw_out_noaudit from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
dw_out_noaudit dw_out_noaudit
end type
type tabpage_3 from userobject within tab_1
end type
type cb_3 from uo_imflatbutton within tabpage_3
end type
type dw_4 from u_dw_rbtnfilter within tabpage_3
end type
type dw_3 from u_dw_rbtnfilter within tabpage_3
end type
type tabpage_3 from userobject within tab_1
cb_3 cb_3
dw_4 dw_4
dw_3 dw_3
end type
type tabpage_4 from userobject within tab_1
end type
type dw_not_sale from u_dw_rbtnfilter within tabpage_4
end type
type tabpage_4 from userobject within tab_1
dw_not_sale dw_not_sale
end type
type tabpage_5 from userobject within tab_1
end type
type dw_not_buy from u_dw_rbtnfilter within tabpage_5
end type
type tabpage_5 from userobject within tab_1
dw_not_buy dw_not_buy
end type
type tab_1 from tab within w_rp_ware_mtrlware_pageretr
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_4 tabpage_4
tabpage_5 tabpage_5
end type
type cb_billfunc from uo_imflatbutton within w_rp_ware_mtrlware_pageretr
end type
type sle_usual_query from u_sleedit within w_rp_ware_mtrlware_pageretr
end type
type st_8 from statictext within w_rp_ware_mtrlware_pageretr
end type
end forward

global type w_rp_ware_mtrlware_pageretr from w_publ_easyq
string title = "物料现库存表"
event ue_retrieve_info ( )
event retrieve_pageretr ( )
event ue_del ( )
event ue_install ( )
event ue_install_c ( )
event ue_waredscrp_add ( )
event ue_waredscrp_view ( )
event ue_mtrl_info ( )
event ue_retrieve_inoutmx ( )
event ue_usual_query_filt ( )
event ue_usual_query_retr ( )
event ue_w_mode ( )
event ue_w_cmp_fifo_cb ( )
event ue_w_cmp_fifo_cb_bill ( )
event ue_cmplqty ( )
ddlb_2 ddlb_2
cb_other cb_other
tv_1 tv_1
st_2 st_2
ddlb_storageid ddlb_storageid
cbx_1 cbx_1
cbx_inout cbx_inout
cbx_ifin cbx_ifin
cbx_ifout cbx_ifout
em_s_in em_s_in
em_s_out em_s_out
st_1 st_1
st_5 st_5
em_e_in em_e_in
em_e_out em_e_out
tab_1 tab_1
cb_billfunc cb_billfunc
sle_usual_query sle_usual_query
st_8 st_8
end type
global w_rp_ware_mtrlware_pageretr w_rp_ware_mtrlware_pageretr

type variables
Long cur_storageid_arr[]
String ls_handtype = ''
Int cur_mtrlorigin = 0 //当前显示物料来源

long ins_if_info = 0

integer cur_billtype_in = -1
integer cur_billtype_out = -1


//Boolean retrieve_all = true //是否全部RETRIEVE（不分页）
//Int retrmode = 0 // 0 retrieve all;1 first page ;2 prior page;3 next page;4 last page


long cur_row
end variables

forward prototypes
public subroutine wf_hidecol ()
public function window getparentwindow ()
public subroutine wf_retrieve_allmtrlware ()
public subroutine wf_retrieve_allmtrlware_mx ()
public subroutine wf_face_tabpage_3 (long arg_storageid)
public function integer wf_replacedw_dw_inout ()
public function integer wf_replacedw_dw_out_noaudit ()
end prototypes

event ue_retrieve_info();Long ll_row
Long ll_mtrlid
string ls_mtrlcode

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	ll_mtrlid = 0
ELSE
	ll_mtrlid = dw_1.Object.u_mtrldef_mtrlid[ll_row]
//	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
//	SELECT mtrlid
//		INTO :ll_mtrlid
//		FROM u_mtrldef
//		Where mtrlcode = :ls_mtrlcode;
//	IF sqlca.SQLCode <> 0 THEN
//		ll_mtrlid = 0
//	END IF
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
Long rtr_day_in,rtr_bdays_in,rtr_edays_in
Long rtr_day_out,rtr_bdays_out,rtr_edays_out

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

IF cbx_ifin.Checked THEN
	rtr_day_in = 1
ELSE
	rtr_day_in = 0
END IF

IF cbx_ifout.Checked THEN
	rtr_day_out = 1
ELSE
	rtr_day_out = 0
END IF

rtr_bdays_in = Long(em_s_in.Text)
rtr_edays_in = Long(em_e_in.Text)
rtr_bdays_out = Long(em_s_out.Text)
rtr_edays_out = Long(em_e_out.Text)




dw_1.Retrieve(cur_storageid_arr,rtr_zeronoallocqty,rtr_day_in,rtr_bdays_in,rtr_edays_in,rtr_day_out,rtr_bdays_out,rtr_edays_out,ls_handtype)

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







end event

event ue_del();//IF Not sys_power_issuper THEN
//	MessageBox('提示','非管理员不可以操作',information!,OK!)
//	RETURN
//END IF
IF NOT f_power_ind(1748,sys_msg_pow)  THEN
	MessageBox('提示',sys_msg_pow,information!,OK!)
	RETURN
END IF

Long li_row
Long li_mtrlwareid
Long li_mtrlid
Long li_storageid
Decimal ld_noallocqty

IF MessageBox ("询问","是否确定要删除当前库存?~r~n删除后可能导致对应的进出仓单不能撤审!",question!,yesno! ) = 2 THEN RETURN

li_row = dw_1.GetRow()
IF li_row <= 0 THEN
	MessageBox('提示','请选择要删除的库存',information!,OK!)
	RETURN
END IF

li_mtrlwareid  = dw_1.Object.u_mtrlware_mtrlwareid[li_row]
ld_noallocqty  = dw_1.Object.u_mtrlware_noallocqty[li_row]
li_mtrlid  = dw_1.Object.u_mtrlware_mtrlid[li_row]
li_storageid   = dw_1.Object.u_mtrlware_storageid[li_row]

IF ld_noallocqty <> 0 THEN
	MessageBox('提示','库存不为0,不能删除',information!,OK!)
	RETURN
END IF

DELETE FROM u_mtrlware
	Where mtrlwareid = :li_mtrlwareid ;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误','删除库存失败,'+sqlca.SQLErrText,stopsign!,OK!)
	ROLLBACK;
	RETURN
END IF

COMMIT;

//日志
Long ls_id
String ls_code
String arg_msg
ls_id = dw_1.Object.u_mtrlware_mtrlwareid[li_row]
ls_code = dw_1.Object.u_mtrldef_mtrlcode[li_row] + ' ' + dw_1.Object.u_mtrlware_status[li_row]
f_setsysoplog('库存表','0库存删除,id:'+String(ls_id)+',code:'+ls_code,arg_msg,True)
//--

This.TriggerEvent('retrieve_pageretr')




end event

event ue_install();Long ll_row
Long ll_mtrlwareid


IF NOT f_power_ind(288) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

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

ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid [ll_row]

s_edit_index_tran s_tran_open //翻页功能窗口 传递参数使用
s_tran_open.if_retrieve_all = local_retrieve_all  //是否一次RETRIEVE所有行
s_tran_open.work_mode = 0         //0-单纯编辑模式, 1-选择模式
s_tran_open.arg_pkid = 0             //目标定位PKID (备用)
s_tran_open.arg_string_code = ''     //查询列部分内容,用于初步筛选 
s_tran_open.d_long = 1

s_tran_open.e_long = 0
s_tran_open.e_string = '装'
s_tran_open.f_long = ll_mtrlwareid



OpenWithParm(w_dismantle_install,s_tran_open)

end event

event ue_install_c();Long ll_row
Long ll_mtrlwareid


IF NOT f_power_ind(288) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

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

ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid [ll_row]

s_edit_index_tran s_tran_open //翻页功能窗口 传递参数使用
s_tran_open.if_retrieve_all = local_retrieve_all  //是否一次RETRIEVE所有行
s_tran_open.work_mode = 0         //0-单纯编辑模式, 1-选择模式
s_tran_open.arg_pkid = 0             //目标定位PKID (备用)
s_tran_open.arg_string_code = ''     //查询列部分内容,用于初步筛选 
s_tran_open.d_long = 1

s_tran_open.e_long = 1
s_tran_open.e_string = '拆'
s_tran_open.f_long = ll_mtrlwareid



OpenWithParm(w_dismantle_install,s_tran_open)

end event

event ue_waredscrp_add();IF Not f_power_ind(1765)  THEN
	MessageBox('提示',sys_msg_pow, Information!, OK! )
	RETURN
END IF

Long ll_row
ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','请选择行')
	RETURN
END IF

s_view_dscrp s_view,s_return
String ls_dscrp
Long ll_mtrlwareid, ll_scid
Boolean lb_edit_mode = True

dw_1.AcceptText()

ll_scid = dw_1.Object.u_mtrlware_scid[ll_row]
ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid[ll_row]
ls_dscrp = dw_1.Object.u_mtrlware_waredscrp[ll_row]
s_view.Title = '库存摘要'
s_view.dscrp = ls_dscrp
s_view.editmode = lb_edit_mode
OpenWithParm(w_view_dscrp,s_view)

IF lb_edit_mode THEN
	s_return = Message.PowerObjectParm
	IF ls_dscrp = s_return.dscrp THEN RETURN
	dw_1.Object.u_mtrlware_waredscrp[ll_row] = s_return.dscrp
	
	UPDATE u_mtrlware
		SET waredscrp = :s_return.dscrp
		WHERE scid = :ll_scid
		And mtrlwareid = :ll_mtrlwareid;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		MessageBox('系统提示','更新失败,'+sqlca.SQLErrText)
		RETURN
	ELSE
		COMMIT;
		MessageBox('系统提示','更新成功')
	END IF
END IF








end event

event ue_waredscrp_view();Long ll_row
ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','请选择行')
	RETURN
END IF

s_view_dscrp s_view,s_return
String ls_dscrp
Long ll_mtrlwareid, ll_scid
Boolean lb_edit_mode = False

dw_1.AcceptText()

ll_scid = dw_1.Object.u_mtrlware_scid[ll_row]
ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid[ll_row]
ls_dscrp = dw_1.Object.u_mtrlware_waredscrp[ll_row]
s_view.Title = '库存摘要'
s_view.dscrp = ls_dscrp
s_view.editmode = lb_edit_mode
OpenWithParm(w_view_dscrp,s_view)

//IF lb_edit_mode THEN
//	s_return = Message.PowerObjectParm
//	dw_1.Object.u_mtrlware_waredscrp[ll_row] = s_return.dscrp
//	
//	UPDATE u_mtrlware
//		SET waredscrp = :s_return.dscrp
//		WHERE scid = :ll_scid
//		And mtrlwareid = :ll_mtrlwareid;
//	IF sqlca.SQLCode <> 0 THEN
//		ROLLBACK;
//		MessageBox('系统提示','更新失败,'+sqlca.SQLErrText)
//		RETURN
//	ELSE
//		COMMIT;
//		MessageBox('系统提示','更新成功')
//	END IF
//END IF
//







end event

event ue_mtrl_info();//IF NOT f_power_ind(984) THEN
////	MessageBox(publ_operator,'你没有使用权限！')
//	RETURN
//END IF
//

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

tab_1.tabpage_4.dw_not_sale.setredraw(false)
tab_1.tabpage_4.dw_not_sale.setfilter('')
tab_1.tabpage_4.dw_not_sale.filter()

tab_1.tabpage_5.dw_not_buy.setredraw(false)
tab_1.tabpage_5.dw_not_buy.setfilter('')
tab_1.tabpage_5.dw_not_buy.filter()



IF ll_row <= 0 THEN
	tab_1.tabpage_1.dw_inout.Reset()
	tab_1.tabpage_2.dw_out_noaudit.Reset()
	tab_1.tabpage_4.dw_not_sale.Reset()
	tab_1.tabpage_5.dw_not_buy.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_mtrlware_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)
	tab_1.tabpage_4.dw_not_sale.Retrieve(ll_mtrlid,ls_status,ls_woodcode,ls_pcode)
	tab_1.tabpage_5.dw_not_buy.Retrieve(ll_mtrlid,ls_status,ls_woodcode,ls_pcode)
END IF


tab_1.tabpage_1.dw_inout.setredraw(true)
tab_1.tabpage_2.dw_out_noaudit.setredraw(true)
tab_1.tabpage_4.dw_not_sale.setredraw(true)
tab_1.tabpage_5.dw_not_buy.setredraw(true)
end event

event 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_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 = "(u_mtrldef.mtrlcode like '%"+Trim(sle_usual_query.Text)+"%')"
//		ls_querystrpart = " or (u_mtrldef.mtrlname like '%"+Trim(sle_usual_query.Text)+"%')"
//	ELSE
//		ls_querystrpart = "(u_mtrldef.mtrlcode like '"+Trim(sle_usual_query.Text)+"')"
//		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_1,ls_newselect,1)
//This.TriggerEvent('retrieve_pageretr')


end event

event ue_w_mode();s_edit_index_tran s_trans //传递参数使用
openwithparm(w_rp_ware_mtrlware_pageretr2,s_trans)
end event

event ue_w_cmp_fifo_cb();//
Long ll_row
Long ll_storageid
Long ll_scid
Long ll_mtrlwareid
String arg_msg

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN RETURN


ll_storageid = dw_1.Object.u_mtrlware_storageid[ll_row]
ll_scid = dw_1.Object.u_mtrlware_scid[ll_row]
ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid[ll_row]

IF ll_mtrlwareid <= 0 THEN RETURN


Long li_if_fifo = 0


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

IF li_if_fifo <> 1 THEN
	MessageBox('提示', "此功能只适合使用先进先出方法的仓库！")
	RETURN
END  IF
	
	
	IF f_cmp_fifo_cb_mtrlware(ll_scid,ll_mtrlwareid,False,sqlca,arg_msg) = 0 THEN
		ROLLBACK Using sqlca;
		MessageBox('提示', arg_msg)
		RETURN
	ELSE
		COMMIT Using sqlca;
		MessageBox('提示', '重算成功！')
	END IF
	
	cb_1.TriggerEvent(Clicked!)
	This.TriggerEvent("ue_retrieve_inoutmx")
	wf_retrieve_allmtrlware()
	
	
	
	
	

end event

event ue_w_cmp_fifo_cb_bill();//
Long rslt = 1
Long contractcnt,i
datastore ds

Long ll_scid,ll_row
Long ll_mtrlwareid
String arg_msg

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN RETURN



ll_scid = dw_1.Object.u_mtrlware_scid[ll_row]
ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid[ll_row]

IF ll_mtrlwareid <= 0 THEN RETURN


ds = Create datastore
ds.DataObject = "ddds_cs_cmp_xjxc"
ds.SetTransObject(sqlca)
contractcnt = ds.Retrieve(ll_scid,ll_mtrlwareid)

//MessageBox('',String(contractcnt))

DELETE u_mtrlware_inmx Where scid = :ll_scid And mtrlwareid = :ll_mtrlwareid Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除库存进仓批失败"
	GOTO ext
END IF

Long ll_inwareid,ll_printid
DateTime dt_indate
String ls_inwarecode
Decimal dec_inqty
Decimal dec_inprice
FOR i = 1 To contractcnt
	ll_inwareid = 0
	ll_printid = 0
	ls_inwarecode = ''
	dec_inqty = 0
	dec_inprice = 0
	
	ll_inwareid = ds.Object.inwareid[i]
	ll_printid = ds.Object.printid[i]
	dt_indate = ds.Object.inwaredate[i]
	ls_inwarecode = ds.Object.inwarecode[i]
	dec_inqty = ds.Object.inqty[i]
	dec_inprice = ds.Object.inprice[i]
	
	IF f_add_mtrlware_inmx(ll_scid,ll_mtrlwareid,ll_inwareid,ll_printid,ls_inwarecode,dt_indate,dec_inqty,dec_inprice,dec_inprice,0,False,sqlca,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

This.TriggerEvent('ue_w_cmp_fifo_cb')

ext:

IF rslt = 0 THEN
	ROLLBACK Using sqlca;
	MessageBox('提示',arg_msg)
ELSEIF rslt = 1 THEN
	COMMIT Using sqlca;
END IF













end event

event ue_cmplqty();Long i
Long ll_mtrlid,ll_storageid
String ls_status_uc,arg_msg,arg_lsg,ls_mtrlcode
Decimal ld_ref_qty

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

FOR i = 1 TO dw_1.RowCount()
	ld_ref_qty = 0
	ls_mtrlcode  = dw_1.Object.u_mtrldef_mtrlcode[i]
	w_sys_wait_jdt.st_msg.Text = "处理:"+ls_mtrlcode //进度信息
	ll_mtrlid = dw_1.Object.u_mtrlware_mtrlid[i]
	ll_storageid = dw_1.Object.u_mtrlware_storageid[i]
	ls_status_uc = dw_1.Object.u_mtrlware_status[i]
	
	IF f_cmp_di_qty(ll_mtrlid,ll_storageid,ls_status_uc,ld_ref_qty,arg_lsg,arg_msg) = 0 THEN
		CONTINUE;
	END IF
	
	dw_1.Object.install_cmplqty[i] = ld_ref_qty
	w_sys_wait_jdt.wf_inc(i) //进度
NEXT

Close(w_sys_wait_jdt)

end event

public subroutine wf_hidecol ();s_hide_col s_col1,s_col2,s_col3,s_col4
s_col1.col_1 = 'u_mtrlware_cost'
s_col1.col_2 = 'amt'
s_col1.col_3 = 'u_mtrlware_cost_notax'
s_col1.col_4 = 'u_mtrlware_amt_notax'
f_hide_col(123,dw_1,s_col1)

s_col2.col_1 = 'u_mtrlware_newprice'
s_col2.col_2 = 'newpriceamt'
f_hide_col(490,dw_1,s_col2)

s_col3.col_1 = 'u_mtrldef_planprice'
s_col3.col_2 = 'planamt'
f_hide_col(1451,dw_1,s_col3)

s_hide_col s_col_cusname
s_col_cusname.col_1 = 'u_mtrlware_sptname'
f_hide_col(1306,dw_1,s_col_cusname)

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

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

s_col4.col_1 = 'inprice'
s_col4.col_2 = 'inamt'
s_col4.col_3 = 'outprice'
s_col4.col_4 = 'outamt'
s_col4.col_5 = 'u_mtrlware_cost_notax'
s_col4.col_6 = 'u_mtrlware_amt_notax'
f_hide_col(123,tab_1.tabpage_1.dw_inout,s_col4)


string ls_modify1,ls_modify2
IF Not f_power_ind(1930) And Not sys_power_issuper THEN
	ls_modify1 = "destroy " + 'u_mtrldef_lmsaleprice' + '_t ~n ' +  'u_mtrldef_lmsaleprice'  + '.visible=0 ~n '
	ls_modify2 = "destroy " + 'lmsaleprice_amt' + '_t ~n ' +  'lmsaleprice_amt'  + '.visible=0 ~n '
	dw_1.Modify(ls_modify1)
	dw_1.Modify(ls_modify2)
END if 

IF Not f_power_ind(1928) And Not sys_power_issuper THEN
	ls_modify1 = "destroy " + 'u_mtrldef_lmbuyprice' + '_t ~n ' +  'u_mtrldef_lmbuyprice'  + '.visible=0 ~n '
	ls_modify2 = "destroy " + 'lmbuyprice_amt' + '_t ~n ' +  'lmbuyprice_amt'  + '.visible=0 ~n '
	dw_1.Modify(ls_modify1)
	dw_1.Modify(ls_modify2)
END if 

RETURN




end subroutine

public function window getparentwindow ();return this
end function

public subroutine wf_retrieve_allmtrlware ();//


Long ll_row
Long ll_scid,ll_mtrlwareid
Decimal dec_uqty

tab_1.tabpage_3.dw_3.Reset()


ll_row = dw_1.GetRow()
IF ll_row = 0 THEN RETURN


ll_scid =dw_1 .Object.u_mtrlware_scid[ll_row]
ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid[ll_row]





tab_1.tabpage_3.dw_3.Retrieve(ll_scid,ll_mtrlwareid)






end subroutine

public subroutine wf_retrieve_allmtrlware_mx ();//


Long ll_row
Long ll_scid,ll_mtrlwaremxid
Decimal dec_uqty

tab_1.tabpage_3.dw_4.Reset()


ll_row = tab_1.tabpage_3.dw_3.GetRow()
IF ll_row = 0 THEN RETURN


ll_mtrlwaremxid = tab_1.tabpage_3.dw_3.Object.mtrlwaremxid[ll_row]




tab_1.tabpage_3.dw_4.Retrieve(ll_mtrlwaremxid)






end subroutine

public subroutine wf_face_tabpage_3 (long arg_storageid);//

Long li_if_fifo = 0
SELECT if_fifo 
	INTO :li_if_fifo
	FROM u_storage
	Where storageid = :arg_storageid Using sqlca;
	
IF li_if_fifo = 0 THEN
	tab_1.tabpage_3.Visible = False
ELSE
	tab_1.tabpage_3.Visible = True
END IF

end subroutine

public function integer wf_replacedw_dw_inout ();String ls_windowname
ls_windowname = This.ClassName ( )

Int rslt = 1
String ls_old_dwname,ls_new_dwname = ''
Boolean lb_ch = False

ls_old_dwname = tab_1.tabpage_1.dw_inout.DataObject
ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname)

IF ls_new_dwname = '' Or IsNull(ls_new_dwname) THEN
	RETURN 1
	ls_new_dwname = ls_old_dwname
ELSE
	lb_ch = True
END IF

tab_1.tabpage_1.dw_inout.DataObject = ls_new_dwname

rslt = tab_1.tabpage_1.dw_inout.SetTransObject(sqlca)



RETURN 1



end function

public function integer wf_replacedw_dw_out_noaudit ();String ls_windowname
ls_windowname = This.ClassName ( )

Int rslt = 1
String ls_old_dwname,ls_new_dwname = ''
Boolean lb_ch = False

ls_old_dwname =  tab_1.tabpage_2.dw_out_noaudit.DataObject
ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname)

IF ls_new_dwname = '' Or IsNull(ls_new_dwname) THEN
	RETURN 1
	ls_new_dwname = ls_old_dwname
ELSE
	lb_ch = True
END IF

 tab_1.tabpage_2.dw_out_noaudit.DataObject = ls_new_dwname

rslt =  tab_1.tabpage_2.dw_out_noaudit.SetTransObject(sqlca)



RETURN 1



end function

on w_rp_ware_mtrlware_pageretr.create
int iCurrent
call super::create
this.ddlb_2=create ddlb_2
this.cb_other=create cb_other
this.tv_1=create tv_1
this.st_2=create st_2
this.ddlb_storageid=create ddlb_storageid
this.cbx_1=create cbx_1
this.cbx_inout=create cbx_inout
this.cbx_ifin=create cbx_ifin
this.cbx_ifout=create cbx_ifout
this.em_s_in=create em_s_in
this.em_s_out=create em_s_out
this.st_1=create st_1
this.st_5=create st_5
this.em_e_in=create em_e_in
this.em_e_out=create em_e_out
this.tab_1=create tab_1
this.cb_billfunc=create cb_billfunc
this.sle_usual_query=create sle_usual_query
this.st_8=create st_8
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_2
this.Control[iCurrent+2]=this.cb_other
this.Control[iCurrent+3]=this.tv_1
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.ddlb_storageid
this.Control[iCurrent+6]=this.cbx_1
this.Control[iCurrent+7]=this.cbx_inout
this.Control[iCurrent+8]=this.cbx_ifin
this.Control[iCurrent+9]=this.cbx_ifout
this.Control[iCurrent+10]=this.em_s_in
this.Control[iCurrent+11]=this.em_s_out
this.Control[iCurrent+12]=this.st_1
this.Control[iCurrent+13]=this.st_5
this.Control[iCurrent+14]=this.em_e_in
this.Control[iCurrent+15]=this.em_e_out
this.Control[iCurrent+16]=this.tab_1
this.Control[iCurrent+17]=this.cb_billfunc
this.Control[iCurrent+18]=this.sle_usual_query
this.Control[iCurrent+19]=this.st_8
end on

on w_rp_ware_mtrlware_pageretr.destroy
call super::destroy
destroy(this.ddlb_2)
destroy(this.cb_other)
destroy(this.tv_1)
destroy(this.st_2)
destroy(this.ddlb_storageid)
destroy(this.cbx_1)
destroy(this.cbx_inout)
destroy(this.cbx_ifin)
destroy(this.cbx_ifout)
destroy(this.em_s_in)
destroy(this.em_s_out)
destroy(this.st_1)
destroy(this.st_5)
destroy(this.em_e_in)
destroy(this.em_e_out)
destroy(this.tab_1)
destroy(this.cb_billfunc)
destroy(this.sle_usual_query)
destroy(this.st_8)
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
	
	
	tab_1.tabpage_3.dw_3.Width = (tab_1.tabpage_3.Width - tab_1.tabpage_3.dw_3.X - 40) / 2 
	tab_1.tabpage_3.dw_3.Height = tab_1.tabpage_3.Height - tab_1.tabpage_3.dw_3.Y - 40
	
	tab_1.tabpage_3.dw_4.x=tab_1.tabpage_3.dw_3.X + tab_1.tabpage_3.dw_3.Width  +  10
	
	tab_1.tabpage_3.dw_4.Width = (tab_1.tabpage_3.Width - tab_1.tabpage_3.dw_3.X - 40) / 2  -  30
	tab_1.tabpage_3.dw_4.Height = tab_1.tabpage_3.Height - tab_1.tabpage_3.dw_4.Y - 40
	
	tab_1.tabpage_4.dw_not_sale.Height = tab_1.tabpage_4.Height - tab_1.tabpage_4.dw_not_sale.Y - 40
	tab_1.tabpage_4.dw_not_sale.Width = tab_1.tabpage_4.Width - tab_1.tabpage_4.dw_not_sale.X - 40
	
	tab_1.tabpage_5.dw_not_buy.Height = tab_1.tabpage_5.Height - tab_1.tabpage_5.dw_not_buy.Y - 40
	tab_1.tabpage_5.dw_not_buy.Width = tab_1.tabpage_5.Width - tab_1.tabpage_5.dw_not_buy.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;
tab_1.tabpage_3.dw_3.SetTransObject (sqlca)
tab_1.tabpage_3.dw_4.SetTransObject (sqlca)
tab_1.tabpage_4.dw_not_sale.SetTransObject (sqlca)
tab_1.tabpage_5.dw_not_buy.SetTransObject (sqlca)
wf_replacedw_dw_inout()
wf_replacedw_dw_out_noaudit()

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

event open;call super::open;



s_hide_col s_col_amt_sale

s_col_amt_sale.col_1 = 'saleprice'
s_col_amt_sale.col_2 = 'saleamt'
f_hide_col(122,tab_1.tabpage_1.dw_inout,s_col_amt_sale)

s_hide_col s_col_amt_out
s_col_amt_out.col_1 = 'outprice'
s_col_amt_out.col_2 = 'outamt'
f_hide_col(1473,tab_1.tabpage_1.dw_inout,s_col_amt_out)


s_hide_col s_col_amt_in
s_col_amt_in.col_1 = 'inprice'
s_col_amt_in.col_2 = 'inamt'
f_hide_col(1449,tab_1.tabpage_1.dw_inout,s_col_amt_in)


s_hide_col s_col_amt_sale2
s_col_amt_sale2.col_1 = 'saleprice'
s_col_amt_sale2.col_2 = 'saleamt'
f_hide_col(1449,tab_1.tabpage_2.dw_out_noaudit,s_col_amt_sale2)





end event

type cb_func from w_publ_easyq`cb_func within w_rp_ware_mtrlware_pageretr
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_ware_mtrlware_pageretr
integer x = 1733
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_ware_mtrlware_pageretr
integer x = 1431
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_ware_mtrlware_pageretr
integer x = 1175
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_ware_mtrlware_pageretr
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_rp_ware_mtrlware_pageretr
boolean visible = false
integer x = 690
integer y = 204
end type

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

type em_1 from w_publ_easyq`em_1 within w_rp_ware_mtrlware_pageretr
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_rp_ware_mtrlware_pageretr
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_rp_ware_mtrlware_pageretr
integer x = 2267
integer y = 12
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_ware_mtrlware_pageretr
integer x = 2057
integer y = 12
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_ware_mtrlware_pageretr
integer x = 805
integer y = 396
integer width = 2400
integer height = 988
string dataobject = "dw_rp_ware_mtrlware_pageretr"
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')
	wf_retrieve_allmtrlware()
END IF



end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_ware_mtrlware_pageretr
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_ware_mtrlware_pageretr
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_ware_mtrlware_pageretr
end type

type st_cust from w_publ_easyq`st_cust within w_rp_ware_mtrlware_pageretr
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_ware_mtrlware_pageretr
boolean visible = true
integer x = 2057
integer y = 100
end type

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

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

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

type cb_help from w_publ_easyq`cb_help within w_rp_ware_mtrlware_pageretr
integer x = 1586
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_ware_mtrlware_pageretr
integer x = 562
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_ware_mtrlware_pageretr
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_ware_mtrlware_pageretr
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_ware_mtrlware_pageretr
end type

type r_bar from w_publ_easyq`r_bar within w_rp_ware_mtrlware_pageretr
integer x = 2469
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_ware_mtrlware_pageretr
integer beginy = 384
integer endy = 384
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_ware_mtrlware_pageretr
integer beginy = 388
integer endy = 388
end type

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

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

type ddlb_2 from dropdownlistbox within w_rp_ware_mtrlware_pageretr
boolean visible = false
integer x = 2747
integer y = 36
integer width = 622
integer height = 448
integer taborder = 80
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.uf_save_profile_layout()
IF ddlb_2.Text = '明细表' THEN
	dw_1.DataObject = 'dw_rp_ware_inware'
ELSEIF ddlb_2.Text = '汇总表' THEN
	dw_1.DataObject = 'dw_rp_ware_inware_hz'
ELSE
	dw_1.DataObject = 'dw_rp_ware_inware_hz_mtrltype'
END IF

wf_replacedw()

cb_1.TriggerEvent(Clicked!)

end event

type cb_other from uo_imflatbutton within w_rp_ware_mtrlware_pageretr
integer x = 818
integer width = 361
integer height = 164
integer taborder = 130
boolean bringtotop = true
string text = "物料相关查询"
string normalpicname = "imexport.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_mtrl_info')

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

type tv_1 from uo_tv_mtrltype within w_rp_ware_mtrlware_pageretr
integer y = 396
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_handtype = ls_handtype + '%'
cb_1.TriggerEvent(Clicked!)


end event

type st_2 from statictext within w_rp_ware_mtrlware_pageretr
integer x = 5
integer y = 204
integer width = 343
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_rp_ware_mtrlware_pageretr
integer x = 352
integer y = 188
integer width = 1125
integer height = 1232
integer taborder = 130
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_storageid_arr = this.uo_storageid_arr

IF UpperBound(cur_storageid_arr) > 0 THEN
	wf_face_tabpage_3(cur_storageid_arr[1])
END IF
end event

event selectionchanged;call super::selectionchanged;cur_storageid_arr = This.uo_storageid_arr
cb_1.TriggerEvent(Clicked!)

IF UpperBound(cur_storageid_arr) > 0 THEN
	wf_face_tabpage_3(cur_storageid_arr[1])
END IF








end event

type cbx_1 from checkbox within w_rp_ware_mtrlware_pageretr
integer x = 1536
integer y = 196
integer width = 439
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "显示 0 库存"
end type

event clicked;int if_zeromtrlware
if this.checked then
	if_zeromtrlware=1
else
	if_zeromtrlware=0
end if

f_SetProfileString (sys_empid,dw_1.DATAOBJECT, "if_zeromtrlware", string(if_zeromtrlware))



parent.triggerevent("retrieve_pageretr")
end event

event constructor;
int if_zeromtrlware
if_zeromtrlware=integer(f_ProfileString (sys_empid,dw_1.DATAOBJECT, "if_zeromtrlware", '0'))
if if_zeromtrlware	=0 then
	this.checked=false
else
	this.checked=true
end if

end event

type cbx_inout from checkbox within w_rp_ware_mtrlware_pageretr
integer x = 1536
integer y = 308
integer width = 402
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;Int if_inout
IF This.Checked THEN
	if_inout = 1
ELSE
	if_inout = 0
END IF

f_SetProfileString (sys_empid,dw_1.DataObject, "if_inout", String(if_inout))
Parent.TriggerEvent(Resize!)
Parent.TriggerEvent("ue_retrieve_inoutmx")


end event

event constructor;Int if_inout
if_inout = Integer(f_ProfileString (sys_empid,dw_1.DataObject, "if_inout", '0'))
IF if_inout	 = 0 THEN
	This.Checked = False
ELSE
	This.Checked = True
END IF

end event

type cbx_ifin from checkbox within w_rp_ware_mtrlware_pageretr
integer x = 1989
integer y = 204
integer width = 549
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "按进仓日查积压 >="
end type

type cbx_ifout from checkbox within w_rp_ware_mtrlware_pageretr
integer x = 1989
integer y = 308
integer width = 549
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "按出仓日查积压 >="
end type

type em_s_in from editmask within w_rp_ware_mtrlware_pageretr
integer x = 2560
integer y = 192
integer width = 219
integer height = 84
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 = "60"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
end type

type em_s_out from editmask within w_rp_ware_mtrlware_pageretr
integer x = 2560
integer y = 300
integer width = 219
integer height = 84
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 = "60"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
end type

type st_1 from statictext within w_rp_ware_mtrlware_pageretr
integer x = 2779
integer y = 208
integer width = 82
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "<="
boolean focusrectangle = false
end type

type st_5 from statictext within w_rp_ware_mtrlware_pageretr
integer x = 2779
integer y = 316
integer width = 82
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "<="
boolean focusrectangle = false
end type

type em_e_in from editmask within w_rp_ware_mtrlware_pageretr
integer x = 2866
integer y = 192
integer width = 219
integer height = 84
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "600"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
end type

type em_e_out from editmask within w_rp_ware_mtrlware_pageretr
integer x = 2866
integer y = 300
integer width = 219
integer height = 84
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 = "600"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
end type

type tab_1 from tab within w_rp_ware_mtrlware_pageretr
event create ( )
event destroy ( )
integer x = 786
integer y = 1224
integer width = 2286
integer height = 1056
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_4 tabpage_4
tabpage_5 tabpage_5
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.tabpage_4=create tabpage_4
this.tabpage_5=create tabpage_5
this.Control[]={this.tabpage_1,&
this.tabpage_2,&
this.tabpage_3,&
this.tabpage_4,&
this.tabpage_5}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
destroy(this.tabpage_4)
destroy(this.tabpage_5)
end on

type tabpage_1 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 18
integer y = 96
integer width = 2249
integer height = 944
long backcolor = 134217739
string text = "进出明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inout dw_inout
em_3 em_3
em_4 em_4
cb_iomx_retrieve cb_iomx_retrieve
ddlb_1 ddlb_1
st_7 st_7
st_6 st_6
end type

on tabpage_1.create
this.dw_inout=create dw_inout
this.em_3=create em_3
this.em_4=create em_4
this.cb_iomx_retrieve=create cb_iomx_retrieve
this.ddlb_1=create ddlb_1
this.st_7=create st_7
this.st_6=create st_6
this.Control[]={this.dw_inout,&
this.em_3,&
this.em_4,&
this.cb_iomx_retrieve,&
this.ddlb_1,&
this.st_7,&
this.st_6}
end on

on tabpage_1.destroy
destroy(this.dw_inout)
destroy(this.em_3)
destroy(this.em_4)
destroy(this.cb_iomx_retrieve)
destroy(this.ddlb_1)
destroy(this.st_7)
destroy(this.st_6)
end on

type dw_inout from u_dw_rbtnfilter within tabpage_1
integer y = 92
integer taborder = 30
string dataobject = "dw_rp_ware_mtrlware_inoutmx"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row >  0 THEN
	This.SelectRow(0, False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF





end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code,ls_relcode,arg_msg
	Long ll_scid
	Int li_thflag,li_billtype
	
	ll_scid = This.Object.u_outware_scid[row]
	ls_code = This.Object.code[row]
	IF f_open_check(ll_scid,ls_code,arg_msg) = 0  THEN
		MessageBox('提示',arg_msg,information!,OK!)
		RETURN
	END IF
	
	
	f_open_win(ll_scid,ls_code)
END IF


end event

type em_3 from editmask within tabpage_1
integer x = 224
integer y = 4
integer width = 402
integer height = 84
integer taborder = 90
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;this.Text = String(Today(),'YYYY-MM')+'-01'
end event

type em_4 from editmask within tabpage_1
integer x = 704
integer y = 4
integer width = 402
integer height = 84
integer taborder = 90
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
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 cb_iomx_retrieve from uo_imflatbutton within tabpage_1
integer x = 1134
integer y = 4
integer width = 215
integer height = 84
integer taborder = 90
string text = "刷新"
integer picsize = 16
end type

event clicked;call super::clicked;getparentwindow().triggerevent("ue_retrieve_inoutmx")
end event

type ddlb_1 from dropdownlistbox within tabpage_1
integer x = 1381
integer y = 4
integer width = 827
integer height = 976
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "全    部[0]"
boolean sorted = false
boolean vscrollbar = true
string item[] = {"全    部[0]","全部进仓[0]","全部出仓{0}","采购进仓[1]","生产进仓[3]","外协进仓[4]","其它进仓[8]","盘盈进仓[9]","调拨进仓[12]","拆装进仓[15]","来料加工收料进仓[20]","库存配置调整单[22]","销售出仓{1}","领料出仓{3}","外协仓库出仓{4}","其它出仓{8}","盘亏出仓{9}","扣费品出仓{10}","调拨出仓{12}","拆装出仓{15}"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;string ls_billtype

choose case index
	case 1 
		cur_billtype_in = -1
		cur_billtype_out = -1
	case 2
		cur_billtype_in = -1
		cur_billtype_out = 0
	case 3
		cur_billtype_in = 0
		cur_billtype_out = -1
	case else
		ls_billtype = Mid ( this.text,pos(this.text,'[') + 1,len(this.text) - pos(this.text,'[') - 1 )
		if isnumber(ls_billtype) then
			cur_billtype_in=long(ls_billtype)
		else
			cur_billtype_in = 0
		end if
		
		ls_billtype = Mid ( this.text,pos(this.text,'{') + 1,len(this.text) - pos(this.text,'{') - 1 )
		if isnumber(ls_billtype) then
			cur_billtype_out=long(ls_billtype)
		else
			cur_billtype_out = 0
		end if
end choose
		
cb_iomx_retrieve.triggerevent(clicked!)

end event

type st_7 from statictext within tabpage_1
integer x = 9
integer y = 20
integer width = 219
integer height = 48
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 st_6 from statictext within tabpage_1
integer x = 631
integer y = 20
integer width = 73
integer height = 48
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 tabpage_2 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2249
integer height = 944
long backcolor = 134217739
string text = "未审明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_out_noaudit dw_out_noaudit
end type

on tabpage_2.create
this.dw_out_noaudit=create dw_out_noaudit
this.Control[]={this.dw_out_noaudit}
end on

on tabpage_2.destroy
destroy(this.dw_out_noaudit)
end on

type dw_out_noaudit from u_dw_rbtnfilter within tabpage_2
integer taborder = 40
string dataobject = "dw_rp_ware_mtrlware_out_noaudit"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row >  0 THEN
	This.SelectRow(0, False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code,ls_relcode
	Long ll_scid
	Int li_thflag,li_billtype
	
	ll_scid = This.Object.u_outware_scid[row]
	ls_code = This.Object.u_outware_outwarecode[row]
	f_open_win(ll_scid,ls_code)
END IF


end event

type tabpage_3 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2249
integer height = 944
long backcolor = 134217739
string text = "进仓批明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_3 cb_3
dw_4 dw_4
dw_3 dw_3
end type

on tabpage_3.create
this.cb_3=create cb_3
this.dw_4=create dw_4
this.dw_3=create dw_3
this.Control[]={this.cb_3,&
this.dw_4,&
this.dw_3}
end on

on tabpage_3.destroy
destroy(this.cb_3)
destroy(this.dw_4)
destroy(this.dw_3)
end on

type cb_3 from uo_imflatbutton within tabpage_3
integer x = 23
integer width = 215
integer height = 84
integer taborder = 100
string text = "刷新"
integer picsize = 16
end type

event clicked;call super::clicked;wf_retrieve_allmtrlware()
end event

type dw_4 from u_dw_rbtnfilter within tabpage_3
integer x = 1033
integer y = 100
integer height = 596
integer taborder = 60
boolean titlebar = true
string title = "明细库存 占用明细(先进先出法)"
string dataobject = "dw_rp_ware_mtrlware_dw4_allmtrlware_mx"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = false
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row >  0 THEN
	This.SelectRow(0, False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF





end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code,ls_relcode
	Long ll_scid
	Int li_thflag,li_billtype
	long ll_row
	
	
	ll_row = dw_1.GetRow()
    IF ll_row = 0 THEN RETURN


    ll_scid =dw_1 .Object.u_mtrlware_scid[ll_row]

	ls_code = This.Object.outwarecode[row]
	f_open_win(ll_scid,ls_code)
END IF


end event

type dw_3 from u_dw_rbtnfilter within tabpage_3
integer y = 92
integer height = 604
integer taborder = 50
boolean titlebar = true
string title = "进仓成本明细(先进先出法)"
string dataobject = "dw_rp_ware_mtrlware_dw3_allmtrlware"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = false
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	wf_retrieve_allmtrlware_mx()
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.scid[row]
	ls_code = THIS.Object.u_mtrlware_inmx_inwarecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF
end event

type tabpage_4 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2249
integer height = 944
long backcolor = 134217739
string text = "销售订单未发货明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_not_sale dw_not_sale
end type

on tabpage_4.create
this.dw_not_sale=create dw_not_sale
this.Control[]={this.dw_not_sale}
end on

on tabpage_4.destroy
destroy(this.dw_not_sale)
end on

type dw_not_sale from u_dw_rbtnfilter within tabpage_4
integer taborder = 50
string dataobject = "dw_rp_ware_mtrlware_pgeretr_notsale"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row >  0 THEN
	This.SelectRow(0, False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	
	IF Not f_power_ind(266) THEN
		MessageBox('提示',sys_msg_pow, Information!, OK! )
		RETURN
	END IF
	
	String ls_code,ls_relcode
	Long ll_scid
	Int li_thflag,li_billtype
	
	ll_scid = This.Object.u_saletask_scid[row]
	ls_code = This.Object.u_saletask_taskcode[row]
	f_open_win(ll_scid,ls_code)
END IF


end event

type tabpage_5 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2249
integer height = 944
long backcolor = 134217739
string text = "采购订单未收货明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_not_buy dw_not_buy
end type

on tabpage_5.create
this.dw_not_buy=create dw_not_buy
this.Control[]={this.dw_not_buy}
end on

on tabpage_5.destroy
destroy(this.dw_not_buy)
end on

type dw_not_buy from u_dw_rbtnfilter within tabpage_5
integer taborder = 60
string dataobject = "dw_rp_ware_mtrlware_pageretr_notbuy"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row >  0 THEN
	This.SelectRow(0, False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN

	IF Not f_power_ind(302) THEN
		MessageBox('提示',sys_msg_pow, Information!, OK! )
		RETURN
	END IF


	String ls_code,ls_relcode
	Long ll_scid
	Int li_thflag,li_billtype
	
	ll_scid = This.Object.u_buytask_scid[row]
	ls_code = This.Object.u_buytask_taskcode[row]
	f_open_win(ll_scid,ls_code)
END IF


end event

type cb_billfunc from uo_imflatbutton within w_rp_ware_mtrlware_pageretr
integer x = 306
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_install"
menustr = menustr + "|" + "Text=拆货~tEvent=ue_install_c"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=修改库存摘要~tEvent=ue_waredscrp_add"
menustr = menustr + "|" + "Text=删除0库存~tEvent=ue_del"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=计算可装数~tEvent=ue_cmplqty"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=物料相关查询~tEvent=ue_mtrl_info"
menustr = menustr + "|" + "Text=模式二~tEvent=ue_w_mode"
menustr = menustr + "|" + "Text=选中行重算库存成本(只适合先进先出仓库)~tEvent=ue_w_cmp_fifo_cb"
menustr = menustr + "|" + "Text=选中行按进仓单重算库存成本(只适合先进先出仓库)~tEvent=ue_w_cmp_fifo_cb_bill"

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 sle_usual_query from u_sleedit within w_rp_ware_mtrlware_pageretr
integer x = 352
integer y = 272
integer width = 1125
integer height = 92
integer taborder = 100
boolean bringtotop = true
end type

event modified;call super::modified;//IF retrieve_all or retrmode=0 THEN
////	PARENT.TRIGGEREVENT("ue_usual_query_filt")
//ELSE
//	PARENT.TRIGGEREVENT("ue_usual_query_RETR")
//END IF
end event

event keyup;call super::keyup;IF NOT dw_edit_mode THEN
	If  Key = KeyDownArrow! Then //
		dw_1.ScrollNextRow()
	End If
	If  Key = KeyUPArrow! Then //
		dw_1.ScrollPriorRow()
	End If
END IF
end event

event inputchanged;call super::inputchanged;//IF retrieve_all THEN
	PARENT.TRIGGEREVENT("ue_usual_query_filt")
//END IF
end event

type st_8 from statictext within w_rp_ware_mtrlware_pageretr
integer x = 5
integer y = 292
integer width = 343
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