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

$PBExportHeader$w_rp_ware_mtrlware_pageretr2.srw
forward
global type w_rp_ware_mtrlware_pageretr2 from w_publ_easyq
end type
type ddlb_2 from dropdownlistbox within w_rp_ware_mtrlware_pageretr2
end type
type cb_other from uo_imflatbutton within w_rp_ware_mtrlware_pageretr2
end type
type tv_1 from uo_tv_mtrltype within w_rp_ware_mtrlware_pageretr2
end type
type st_2 from statictext within w_rp_ware_mtrlware_pageretr2
end type
type ddlb_storageid from uo_ddlb_storageid within w_rp_ware_mtrlware_pageretr2
end type
type cbx_1 from checkbox within w_rp_ware_mtrlware_pageretr2
end type
type cbx_inout from checkbox within w_rp_ware_mtrlware_pageretr2
end type
type cbx_ifzero from checkbox within w_rp_ware_mtrlware_pageretr2
end type
type cbx_ifout from checkbox within w_rp_ware_mtrlware_pageretr2
end type
type em_s_in from editmask within w_rp_ware_mtrlware_pageretr2
end type
type em_s_out from editmask within w_rp_ware_mtrlware_pageretr2
end type
type st_1 from statictext within w_rp_ware_mtrlware_pageretr2
end type
type st_5 from statictext within w_rp_ware_mtrlware_pageretr2
end type
type em_e_in from editmask within w_rp_ware_mtrlware_pageretr2
end type
type em_e_out from editmask within w_rp_ware_mtrlware_pageretr2
end type
type tab_1 from tab within w_rp_ware_mtrlware_pageretr2
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 dw_buy from u_dw_rbtnfilter within tabpage_3
end type
type tabpage_3 from userobject within tab_1
dw_buy dw_buy
end type
type tabpage_4 from userobject within tab_1
end type
type dw_sale from u_dw_rbtnfilter within tabpage_4
end type
type tabpage_4 from userobject within tab_1
dw_sale dw_sale
end type
type tab_1 from tab within w_rp_ware_mtrlware_pageretr2
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_4 tabpage_4
end type
type cb_billfunc from uo_imflatbutton within w_rp_ware_mtrlware_pageretr2
end type
type sle_usual_query from u_sleedit within w_rp_ware_mtrlware_pageretr2
end type
type st_8 from statictext within w_rp_ware_mtrlware_pageretr2
end type
type cb_save from uo_imflatbutton within w_rp_ware_mtrlware_pageretr2
end type
type cb_edit from uo_imflatbutton within w_rp_ware_mtrlware_pageretr2
end type
type ddlb_3 from dropdownlistbox within w_rp_ware_mtrlware_pageretr2
end type
end forward

global type w_rp_ware_mtrlware_pageretr2 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 ( )
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_ifzero cbx_ifzero
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
cb_save cb_save
cb_edit cb_edit
ddlb_3 ddlb_3
end type
global w_rp_ware_mtrlware_pageretr2 w_rp_ware_mtrlware_pageretr2

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
end variables

forward prototypes
public subroutine wf_hidecol ()
public function window getparentwindow ()
public function integer wf_face ()
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
	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, li_ifzero
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_ifzero.Checked THEN
	li_ifzero = 1
ELSE
	li_ifzero = -1
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)


IF ddlb_3.text = '格式一' THEN
	dw_1.Retrieve(cur_storageid_arr,ls_handtype,rtr_zeronoallocqty,li_ifzero)
ELSEIF ddlb_3.text = '格式二' THEN
//	dw_1.Retrieve(cur_storageid_arr,ls_handtype)
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)
END IF


//dw_1.Retrieve(cur_storageid_arr,ls_handtype,rtr_zeronoallocqty,li_ifzero)

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();
Long ll_row
ll_row = dw_1.GetRow()

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

String ls_mtrlcode
Long ll_mtrlid

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


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
String ls_mtrlcode, ls_storagename

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_3.dw_buy.setredraw(false)
tab_1.tabpage_3.dw_buy.setfilter('')
tab_1.tabpage_3.dw_buy.filter()

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

IF ll_row <= 0 THEN
	tab_1.tabpage_1.dw_inout.Reset()
	tab_1.tabpage_2.dw_out_noaudit.Reset()
	tab_1.tabpage_3.dw_buy.Reset()
	tab_1.tabpage_4.dw_sale.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

	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 
	
//	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_mtrlid,ld_fdate,ld_edate,ls_status,ls_woodcode,ls_pcode, cur_billtype_in, cur_billtype_out)
	tab_1.tabpage_2.dw_out_noaudit.Retrieve(ll_mtrlid,ls_status,ls_woodcode,ls_pcode)
	tab_1.tabpage_3.dw_buy.Retrieve(ll_mtrlid,ls_status,ls_woodcode,ls_pcode)
	tab_1.tabpage_4.dw_sale.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_3.dw_buy.setredraw(true)
tab_1.tabpage_4.dw_sale.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

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'
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'
f_hide_col(123,tab_1.tabpage_1.dw_inout,s_col4)

RETURN




end subroutine

public function window getparentwindow ();return this
end function

public function integer wf_face ();cb_1.Enabled = NOT dw_edit_mode
cb_save.Enabled = dw_edit_mode
cb_func.Enabled = NOT dw_edit_mode
cb_psetup.Enabled = NOT dw_edit_mode
cb_2.Enabled = NOT dw_edit_mode
cbx_yl.Enabled = NOT dw_edit_mode
cbx_1.Enabled = NOT dw_edit_mode
tv_1.Enabled = NOT dw_edit_mode
ddlb_storageid.Enabled = NOT dw_edit_mode
sle_usual_query.Enabled = NOT dw_edit_mode

IF dw_edit_mode THEN
	dw_1.SetTabOrder('dscrp',10)
	dw_1.SetTabOrder('dscrp2',20)
	
	
	cb_edit.Text = '放弃'
	cb_edit.normalpicname = 'Undo.bmp'
ELSE
	dw_1.SetTabOrder('dscrp',0)
	dw_1.SetTabOrder('dscrp2',0)
	
	cb_edit.Text = '修改'
	cb_edit.normalpicname = 'OPEN.bmp'
END IF

cb_edit.of_init_draw()
cb_edit.of_paint()
cb_edit.TriggerEvent('ue_textchange')
RETURN 1



end function

on w_rp_ware_mtrlware_pageretr2.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_ifzero=create cbx_ifzero
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
this.cb_save=create cb_save
this.cb_edit=create cb_edit
this.ddlb_3=create ddlb_3
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_ifzero
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
this.Control[iCurrent+20]=this.cb_save
this.Control[iCurrent+21]=this.cb_edit
this.Control[iCurrent+22]=this.ddlb_3
end on

on w_rp_ware_mtrlware_pageretr2.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_ifzero)
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)
destroy(this.cb_save)
destroy(this.cb_edit)
destroy(this.ddlb_3)
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_buy.Height = tab_1.tabpage_3.Height - tab_1.tabpage_3.dw_buy.Y - 40
	tab_1.tabpage_3.dw_buy.Width = tab_1.tabpage_3.Width - tab_1.tabpage_3.dw_buy.X - 40
	tab_1.tabpage_4.dw_sale.Height = tab_1.tabpage_4.Height - tab_1.tabpage_4.dw_sale.Y - 40
	tab_1.tabpage_4.dw_sale.Width = tab_1.tabpage_4.Width - tab_1.tabpage_4.dw_sale.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;
if_power_sendout = true
if_power_print = true
if_ue_sentdataout = if_power_sendout

cb_psetup.enabled = if_power_print
cb_2.enabled = if_power_print
cbx_yl.enabled = if_power_print
ddlb_yl.enabled = if_power_print

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)
tab_1.tabpage_3.dw_buy.settransobject(sqlca)
tab_1.tabpage_4.dw_sale.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_rp_ware_mtrlware_pageretr2
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_ware_mtrlware_pageretr2
integer x = 1221
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_ware_mtrlware_pageretr2
integer x = 919
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_ware_mtrlware_pageretr2
integer x = 663
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_ware_mtrlware_pageretr2
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_pageretr2
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_pageretr2
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_pageretr2
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_pageretr2
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_pageretr2
integer x = 1710
integer y = 8
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_ware_mtrlware_pageretr2
integer x = 1499
integer y = 12
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_ware_mtrlware_pageretr2
integer x = 805
integer y = 392
integer width = 2400
integer height = 988
string dataobject = "dw_rp_ware_mtrlware_pageretr2_01"
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;IF ddlb_3.text = '格式一' then
	Parent.TriggerEvent('ue_retrieve_info')
	IF cbx_inout.Checked THEN
		Parent.TriggerEvent('ue_retrieve_inoutmx')
	END IF
end if

end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_ware_mtrlware_pageretr2
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_ware_mtrlware_pageretr2
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_ware_mtrlware_pageretr2
end type

type st_cust from w_publ_easyq`st_cust within w_rp_ware_mtrlware_pageretr2
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_ware_mtrlware_pageretr2
boolean visible = true
integer x = 1499
integer y = 100
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_rp_ware_mtrlware_pageretr2
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_pageretr2
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_pageretr2
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_pageretr2
integer x = 1070
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_ware_mtrlware_pageretr2
boolean visible = false
integer x = 306
boolean enabled = false
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_ware_mtrlware_pageretr2
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_ware_mtrlware_pageretr2
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_ware_mtrlware_pageretr2
end type

type r_bar from w_publ_easyq`r_bar within w_rp_ware_mtrlware_pageretr2
integer x = 1911
end type

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

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

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

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

type ddlb_2 from dropdownlistbox within w_rp_ware_mtrlware_pageretr2
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_pageretr2
integer x = 302
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;Long ll_row
ll_row = dw_1.GetRow()

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

Long ll_mtrlid
String ls_mtrlcode

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


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_pageretr2
integer y = 392
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_pageretr2
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_pageretr2
integer x = 352
integer y = 188
integer width = 635
integer height = 1232
integer taborder = 130
boolean bringtotop = true
end type

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

event selectionchanged;call super::selectionchanged;cur_storageid_arr = this.uo_storageid_arr
cb_1.triggerevent(clicked!)
end event

type cbx_1 from checkbox within w_rp_ware_mtrlware_pageretr2
integer x = 1042
integer y = 192
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_pageretr2
integer x = 1042
integer y = 304
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_ifzero from checkbox within w_rp_ware_mtrlware_pageretr2
integer x = 1495
integer y = 200
integer width = 549
integer height = 60
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_zero
if this.checked then
	if_zero=1
else
	if_zero=0
end if

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



parent.triggerevent("retrieve_pageretr")
end event

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

end event

type cbx_ifout from checkbox within w_rp_ware_mtrlware_pageretr2
boolean visible = false
integer x = 1495
integer y = 304
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_pageretr2
boolean visible = false
integer x = 2066
integer y = 188
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_pageretr2
boolean visible = false
integer x = 2066
integer y = 292
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_pageretr2
boolean visible = false
integer x = 2286
integer y = 204
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_pageretr2
boolean visible = false
integer x = 2286
integer y = 308
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_pageretr2
boolean visible = false
integer x = 2368
integer y = 188
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_pageretr2
boolean visible = false
integer x = 2368
integer y = 292
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_pageretr2
event create ( )
event destroy ( )
integer x = 786
integer y = 1228
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
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.Control[]={this.tabpage_1,&
this.tabpage_2,&
this.tabpage_3,&
this.tabpage_4}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
destroy(this.tabpage_4)
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_pgeretr2_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
	Long ll_scid
	Int li_thflag,li_billtype
	
	ll_scid = This.Object.u_outware_scid[row]
	ls_code = This.Object.code[row]
	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_pgeretr2_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
dw_buy dw_buy
end type

on tabpage_3.create
this.dw_buy=create dw_buy
this.Control[]={this.dw_buy}
end on

on tabpage_3.destroy
destroy(this.dw_buy)
end on

type dw_buy from u_dw_rbtnfilter within tabpage_3
string dataobject = "dw_rp_ware_mtrlware_pageretr2_buy"
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_buytask_scid[row]
	ls_code = This.Object.u_buytask_taskcode[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_sale dw_sale
end type

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

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

type dw_sale from u_dw_rbtnfilter within tabpage_4
string dataobject = "dw_rp_ware_mtrlware_pgeretr2_sale"
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_saletask_scid[row]
	ls_code = This.Object.u_saletask_taskcode[row]
	f_open_win(ll_scid,ls_code)
END IF


end event

type cb_billfunc from uo_imflatbutton within w_rp_ware_mtrlware_pageretr2
boolean visible = false
integer x = 302
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_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 sle_usual_query from u_sleedit within w_rp_ware_mtrlware_pageretr2
integer x = 352
integer y = 272
integer width = 635
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_pageretr2
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 = "编码/名称含:"
boolean focusrectangle = false
end type

type cb_save from uo_imflatbutton within w_rp_ware_mtrlware_pageretr2
boolean visible = false
integer x = 302
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
boolean enabled = false
string text = "保存"
string normalpicname = "save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
Int rslt = 1
String arg_msg

Long i
dw_1.AcceptText()

String ls_dscrp, ls_dscrp2

Long ll_mtrlid
String ls_status, ls_woodcode, ls_pcode

Open(w_sys_wait_jdt)
w_sys_wait_jdt.wf_accepttol(dw_1.RowCount())
FOR i = 1 To  dw_1.RowCount()
	w_sys_wait_jdt.wf_inc(i)
	w_sys_wait_jdt.wf_set_msg('正在保存数据,请稍后......')
	ll_mtrlid = dw_1.Object.u_mtrlware_mtrlid[i]
	ls_status = dw_1.Object.u_mtrlware_status[i]
	ls_woodcode = dw_1.Object.u_mtrlware_woodcode[i]
	ls_pcode = dw_1.Object.u_mtrlware_pcode[i]
	ls_dscrp2 = dw_1.Object.dscrp2[i]
	ls_dscrp = dw_1.Object.dscrp[i]
	
	UPDATE plug_mtrlware
		SET dscrp2 = :ls_dscrp2,
		dscrp = :ls_dscrp
		WHERE mtrlid = :ll_mtrlid
		AND status = :ls_status
		AND woodcode = :ls_woodcode
		And pcode = :ls_pcode;
	IF sqlca.SQLCode = 0 THEN
		IF sqlca.SQLNRows = 0 THEN
			INSERT INTO plug_mtrlware (
				mtrlid,
				status,
				woodcode,
				pcode,
				dscrp,
				dscrp2)
				VALUES(
				:ll_mtrlid,
				:ls_status,
				:ls_woodcode,
				:ls_pcode,
				:ls_dscrp,
				:ls_dscrp2);
			IF sqlca.SQLCode  <> 0 THEN
				rslt = 0
				arg_msg = '插入备注失败!'+sqlca.SQLErrText
				GOTO ext
			END IF
		END IF
	ELSE
		rslt = 0
		arg_msg = '更新备注失败!'+sqlca.SQLErrText
		GOTO ext
	END IF
NEXT

ext:
Close(w_sys_wait_jdt)
IF rslt = 0 THEN
	ROLLBACK;
	MessageBox('提示',arg_msg, Information!, OK! )
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','保存成功!', Information!, OK! )
	dw_edit_mode = Not dw_edit_mode
	
	wf_face()
	
	RETURN
END IF








end event

type cb_edit from uo_imflatbutton within w_rp_ware_mtrlware_pageretr2
boolean visible = false
integer x = 453
integer width = 151
integer height = 164
integer taborder = 40
boolean bringtotop = true
boolean enabled = false
string text = "修改"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF dw_edit_mode THEN
	IF MessageBox('提示','是否要确定放弃保存资料', question!, YesNo!, 2) = 2 THEN
		RETURN
	END IF
END IF


dw_edit_mode = NOT dw_edit_mode

wf_face()

IF NOT dw_edit_mode THEN
	cb_1.TriggerEvent(Clicked!)
END IF







end event

type ddlb_3 from dropdownlistbox within w_rp_ware_mtrlware_pageretr2
integer x = 2016
integer y = 192
integer width = 549
integer height = 452
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
string item[] = {"格式一","格式二"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;IF this.text = '格式一' THEN
	dw_1.dataobject = 'dw_rp_ware_mtrlware_pageretr2_01'
	cbx_inout.ENABLED = TRUE
	Parent.TriggerEvent(Resize!)
ELSEIF this.text = '格式二' THEN
	dw_1.dataobject = 'dw_rp_ware_mtrlware_pageretr2_02'
	cbx_inout.CHECKED = FALSE
	cbx_inout.ENABLED = FALSE
	Parent.TriggerEvent(Resize!)
END IF

wf_replacedw()
dw_1.SetTransObject (sqlca)

parent.triggerevent("retrieve_pageretr")
end event