Q5/ws_objects/Ew_define.pbl.src/w_mtrl_structure.srw

$PBExportHeader$w_mtrl_structure.srw
forward
global type w_mtrl_structure from w_publ_pageretr
end type
type cb_moveone from commandbutton within w_mtrl_structure
end type
type cb_removeone from commandbutton within w_mtrl_structure
end type
type cb_moveall from commandbutton within w_mtrl_structure
end type
type cb_removeall from commandbutton within w_mtrl_structure
end type
type st_codetitle from statictext within w_mtrl_structure
end type
type st_codetitleb from statictext within w_mtrl_structure
end type
type gb_4 from groupbox within w_mtrl_structure
end type
type mle_pfgy from multilineedit within w_mtrl_structure
end type
type cb_print from uo_imflatbutton within w_mtrl_structure
end type
type cb_refresh_tree from uo_imflatbutton within w_mtrl_structure
end type
type cb_save from uo_imflatbutton within w_mtrl_structure
end type
type cb_edit from uo_imflatbutton within w_mtrl_structure
end type
type cb_audit from uo_imflatbutton within w_mtrl_structure
end type
type cb_pfcopy from uo_imflatbutton within w_mtrl_structure
end type
type cb_pfpaste from uo_imflatbutton within w_mtrl_structure
end type
type ddlb_storageid from uo_ddlb_storageid within w_mtrl_structure
end type
type cb_help from uo_imflatbutton within w_mtrl_structure
end type
type st_msg from statictext within w_mtrl_structure
end type
type tab_1 from tab within w_mtrl_structure
end type
type tabpage_1 from userobject within tab_1
end type
type dw_mtrl_prdpfmx from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_mtrl_prdpfmx dw_mtrl_prdpfmx
end type
type tabpage_2 from userobject within tab_1
end type
type tv_2 from treeview within tabpage_2
end type
type tabpage_2 from userobject within tab_1
tv_2 tv_2
end type
type tab_1 from tab within w_mtrl_structure
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type
type cb_other from uo_imflatbutton within w_mtrl_structure
end type
type st_2 from statictext within w_mtrl_structure
end type
type st_3 from statictext within w_mtrl_structure
end type
type cb_xls from uo_imflatbutton within w_mtrl_structure
end type
type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_mtrl_structure
end type
type cbx_packqty_cmpl from checkbox within w_mtrl_structure
end type
type ln_bar from line within w_mtrl_structure
end type
type ln_bar2 from line within w_mtrl_structure
end type
type r_bar from rectangle within w_mtrl_structure
end type
type ln_1 from line within w_mtrl_structure
end type
type ln_2 from line within w_mtrl_structure
end type
type ln_5 from line within w_mtrl_structure
end type
type ln_6 from line within w_mtrl_structure
end type
type cbx_auto_printid from checkbox within w_mtrl_structure
end type
type cbx_auto_zc from checkbox within w_mtrl_structure
end type
type cb_1 from commandbutton within w_mtrl_structure
end type
end forward

global type w_mtrl_structure from w_publ_pageretr
integer x = 14
integer y = 16
integer width = 3602
integer height = 2300
string title = "物料清单"
boolean maxbox = true
windowstate windowstate = maximized!
event insert_childrow ( )
event ue_viewprint_gy ( )
event ue_viewprint ( )
event ue_f8 ( )
event ue_retrieve_info ( )
event ue_insertmx ( )
event ue_deletemx ( )
event ue_help ( )
event ue_viewprint_tree ( )
event ue_xls ( )
event ue_mtrl_info ( )
event ue_checkrand ( )
event ue_replace_p ( )
cb_moveone cb_moveone
cb_removeone cb_removeone
cb_moveall cb_moveall
cb_removeall cb_removeall
st_codetitle st_codetitle
st_codetitleb st_codetitleb
gb_4 gb_4
mle_pfgy mle_pfgy
cb_print cb_print
cb_refresh_tree cb_refresh_tree
cb_save cb_save
cb_edit cb_edit
cb_audit cb_audit
cb_pfcopy cb_pfcopy
cb_pfpaste cb_pfpaste
ddlb_storageid ddlb_storageid
cb_help cb_help
st_msg st_msg
tab_1 tab_1
cb_other cb_other
st_2 st_2
st_3 st_3
cb_xls cb_xls
ddlb_mtrlorigin ddlb_mtrlorigin
cbx_packqty_cmpl cbx_packqty_cmpl
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_1 ln_1
ln_2 ln_2
ln_5 ln_5
ln_6 ln_6
cbx_auto_printid cbx_auto_printid
cbx_auto_zc cbx_auto_zc
cb_1 cb_1
end type
global w_mtrl_structure w_mtrl_structure

type variables
long obj_mtrlid=0
int obj_SAuditflag=0
string obj_pfcode='组装'
Long cur_cmpl_zc = 0

string obj_mtrlcode=''
string obj_source=''
string obj_mtrlname=''
long deep=0

long pfcopy_mtrlid=0
string pfcopy_pfcode=''
string pfcopy_mtrlcode=''
string pfcopy_source=''
string pfcopy_mtrlname=''

s_structuremx pfmx[]
long p_pfmx=0

long cur_storageid = -1
int cur_mtrlorigin=0
long page_mtrlid=0

string ol_tvi_label 
datawindow dw_mtrl_prdpfmx
treeview tv_1
string ls_newname

Long ll_xls_billid,ll_xls_Templatesid
String ls_xls_DefaultDataWindow

String ins_openfile_log[] //用于退出后删除
Long ins_openfile_log_p = 0    //用于退出后删除
long cur_isuse
long cur_auto_printid


end variables

forward prototypes
public function integer wf_save ()
public function integer wf_checkrand (long checked_mtrlid)
public function integer wf_changemtrl (long arg_mtrlid)
public function integer wf_moveone (long sor_row)
public function integer wf_removeone (long sor_row)
public function integer wf_modefacechg ()
private function integer wf_retrieve_childrenmtrl (long arg_mtrlid)
public function integer pf_treegrowth (long arg_handl, long arg_mtrlid, decimal arg_num, integer arg_lp)
public function integer wf_pfcopy ()
public function integer wf_pfpaste ()
public subroutine wf_flagstatus_rf (integer arg_sauditflag)
public function integer wf_maketree ()
public function integer wf_maketree_sub ()
public function integer wf_refresh_curuc (long arg_mtrlid)
public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg)
public subroutine wf_addlog_tempfilepathname (string arg_filepathname)
public subroutine wf_del_tempfilepathname ()
public subroutine wf_add_mx ()
end prototypes

event insert_childrow();long li_row
li_row=dw_mtrl_prdpfmx.insertrow(0)
dw_mtrl_prdpfmx.scrolltorow(li_row)
dw_mtrl_prdpfmx.object.u_prdpf_printid[li_row] = li_row

dw_mtrl_prdpfmx.SetColumn ('u_prdpf_printid')	
end event

event ue_viewprint_gy();Long LS_ROW
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('提示','没有打印目标单据!', Information!, OK! ) 
	RETURN
END IF
String ls_pf
ls_pf = obj_pfcode

S_print_MSG LS_PRMSG

String ls_windowname
ls_windowname = THIS.ClassName ( )

String ls_old_dwname,ls_new_dwname = ''
ls_old_dwname = 'dw_rp_prdstruct'
ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname)
IF ls_new_dwname = '' THEN
	ls_new_dwname = ls_old_dwname
END IF

LS_PRMSG.obj_dwNAME = ls_new_dwname
LS_PRMSG.TAG_TEXT = '产品物料明细表[工艺]'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 14
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()]
LS_PRMSG.retr_pramstr = ls_pf

OpenWithParm(w_publ_preview,LS_PRMSG)


 
end event

event ue_viewprint(); Long ls_msgprintid
ls_msgprintid = Message.LongParm

SELECT dft_new_dwname 
	INTO :ls_newname 
	FROM sys_dft_dwprint_dynamic
	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_newname = '' 
END IF


Long LS_ROW
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('提示','没有打印目标单据!',Information!,OK!)
	RETURN
END IF


S_print_MSG LS_PRMSG
IF ls_newname <> '' THEN
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	LS_PRMSG.obj_dwNAME = 'dw_rp_prdstruct_yl'
END IF
 

LS_PRMSG.TAG_TEXT = '物料清单'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 15
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.mtrlid[LS_ROW]

OpenWithParm(w_publ_preview,LS_PRMSG)




end event

event ue_f8();//用于选择明细内容,被F8[默认]\dw_mtrl_prdpfmx.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN

Long child_row
Long ins_storageid = 0
child_row = dw_mtrl_prdpfmx.GetRow()

IF NOT IsValid(W_mtrldef_edit) THEN
	s_edit_index_tran s_ch_tran //传递参数使用
	s_ch_tran.if_retrieve_all = FALSE  //是否一次RETRIEVE所有行
	s_ch_tran.work_mode = 1            //0-单纯编辑模式 1-选择\编辑模式
	s_ch_tran.arg_pkid = 0             //目标定位PKID (备用)
	s_ch_tran.arg_string_code = ''     //查询列(物料编码)部分内容,用于初步筛选
	s_ch_tran.if_select_all = TRUE
	s_ch_tran.b_long = 2
	
	Long chc = 1,ls_j
	dw_mtrl_prdpfmx.AcceptText()
	IF dw_mtrl_prdpfmx.GetRow() > 0 THEN s_ch_tran.arg_string_code = Trim(dw_mtrl_prdpfmx.Object.mtrlcode[dw_mtrl_prdpfmx.GetRow()])
	
	
	OpenWithParm(W_mtrldef_edit,s_ch_tran)
	
	s_mtrldef_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.mtrlid)
		IF S_INSCUST.mtrlid[ls_j] > 0 THEN
			
			IF dw_mtrl_prdpfmx.GetRow() > 0 THEN
				IF dw_mtrl_prdpfmx.Object.mtrlid[child_row] <> 0 THEN
					child_row = dw_mtrl_prdpfmx.InsertRow (0)
				ELSE
					child_row = dw_mtrl_prdpfmx.GetRow()
				END IF
			ELSE
				child_row = dw_mtrl_prdpfmx.InsertRow (0)
			END IF


              dw_mtrl_prdpfmx.Object.u_prdpf_printid[child_row] = child_row
			dw_mtrl_prdpfmx.Object.mtrlcode[child_row] = S_INSCUST.mtrlcode[ls_j]
			dw_mtrl_prdpfmx.Object.unit[child_row] = S_INSCUST.unit[ls_j]
			dw_mtrl_prdpfmx.Object.mtrlid[child_row] = S_INSCUST.mtrlid[ls_j]
			dw_mtrl_prdpfmx.Object.mtrlname[child_row] = S_INSCUST.mtrlname[ls_j]
			dw_mtrl_prdpfmx.Object.u_mtrldef_mtrlengname[child_row] = S_INSCUST.mtrlengname[ls_j]
			dw_mtrl_prdpfmx.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.mtrlmode[ls_j]
			dw_mtrl_prdpfmx.Object.u_mtrldef_mtrlsectype[child_row] = S_INSCUST.mtrlsectype[ls_j]
			dw_mtrl_prdpfmx.Object.u_mtrldef_zxmtrlmode[child_row] = S_INSCUST.zxmtrlmode[ls_j]
			IF NOT Len(Trim(dw_mtrl_prdpfmx.Object.u_prdpf_dscrp[child_row])) > 0 THEN
				dw_mtrl_prdpfmx.Object.u_prdpf_dscrp[child_row]  = S_INSCUST.dscrp[ls_j]
			END IF
		END IF
	NEXT
	dw_mtrl_prdpfmx.SetFocus()
END IF



end event

event ue_retrieve_info();Long ll_row
Long ll_mtrlid

ll_row = dw_pageretr.GetRow()

IF ll_row <= 0 THEN
	ll_mtrlid = 0
ELSE
	ll_mtrlid = dw_pageretr.Object.mtrlid[ll_row]
END IF

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


end event

event ue_deletemx;if not keydown(KeyControl!) then
IF MessageBox ('提示',"是否确定要删除当前组成原料吗",Question!,YesNo! ) = 2 THEN RETURN
end if

long find_row=0,sor_row
sor_row=dw_mtrl_prdpfmx.getrow()
if sor_row<=0 then 
	Beep(1)
	return 
end if
wf_removeone(sor_row)
end event

event ue_help();Int i
i = htmlhelpA(Handle(THIS), sys_help_chm, 0, THIS.Title+".html")
end event

event ue_viewprint_tree();
Long LS_ROW
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('提示','没有打印目标单据!', Information!, OK! ) 
	RETURN
END IF
String ls_pf
ls_pf = obj_pfcode

S_print_MSG LS_PRMSG

String ls_windowname
ls_windowname = THIS.ClassName ( )

String ls_old_dwname,ls_new_dwname = ''
ls_old_dwname = 'dw_rp_prdstruct_tree'
ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname)
IF ls_new_dwname = '' THEN
	ls_new_dwname = ls_old_dwname
END IF

LS_PRMSG.obj_dwNAME = ls_new_dwname
LS_PRMSG.TAG_TEXT = '产品物料明细表[树型结构]'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()] 

OpenWithParm(w_publ_preview,LS_PRMSG)


end event

event ue_xls();String arg_msg
Long ll_Templatesid,ll_ationid
ll_Templatesid = Message.LongParm
ll_ationid = Long(Message.WordParm )
IF IsNull(ll_Templatesid) THEN ll_Templatesid = 0
IF IsNull(ll_ationid) THEN ll_ationid = 0
IF ll_Templatesid = 0 THEN RETURN

ll_xls_Templatesid = ll_Templatesid

uo_xls_constant uo_constant //Excel全局设置对象
uo_constant = CREATE uo_xls_constant

uo_sendtoexcel obj_st //实例化数据处理对象
obj_st = CREATE uo_sendtoexcel
obj_st.commit_transaction = sqlca //事务对象  建议显示设置 默认等于sqlca
obj_st.uo_const = uo_constant //全局配置对象



s_xls_billlist str_billlist
str_billlist =  obj_st.of_getbillinfo(ll_Templatesid,arg_msg) //根据模版获取相应的单据信息
IF str_billlist.count <= 0 THEN
	MessageBox('错误',arg_msg)
	RETURN
END IF
if wf_xls_retrievedata(ll_ationid,str_billlist,obj_st,arg_msg) <> 1 then
		MessageBox('错误',arg_msg)
	return
end if

//发送数据
obj_st.EVENT oe_sendtoexcel(str_billlist)

end event

event ue_mtrl_info();Long ll_row
ll_row = dw_pageretr.GetRow()

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

Long ll_mtrlid


ll_mtrlid = dw_pageretr.Object.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

return 
end event

event ue_checkrand;//检查有否环//
Long ls_cr_rsl,LS_i
FOR LS_i = 1 TO dw_mtrl_prdpfmx.RowCount()
	ls_cr_rsl = wf_checkrand(dw_mtrl_prdpfmx.Object.mtrlid[LS_i])
	IF ls_cr_rsl = 1 THEN
		MessageBox(String(dw_mtrl_prdpfmx.Object.mtrlid[LS_i]),'发现环!在 '+String(dw_mtrl_prdpfmx.Object.mtrlcode[LS_i])+' ,请核对!', Information!, OK! )
		RETURN
	ELSEIF ls_cr_rsl < 0 THEN
		MessageBox('系统提示','因为网络或其他原因导致查环操作失败!['+String(dw_mtrl_prdpfmx.Object.mtrlcode[LS_i])+']', Information!, OK! )
		RETURN
	END IF
NEXT

MessageBox('系统提示','没有发现闭环!', Information!, OK! )

end event

event ue_replace_p();IF NOT f_power_ind(32,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

Long ll_row
Long ll_mtrlid
ll_row = dw_pageretr.GetRow()

IF ll_row <= 0 THEN
	ll_mtrlid = 0
ELSE
	ll_mtrlid = dw_pageretr.Object.mtrlid[ll_row]
END IF

IF ll_mtrlid = 0 THEN
	MessageBox('系统提示','请选择物料')
	RETURN
END IF

OpenWithParm(w_mtrl_structure_replace_p,ll_mtrlid)

wf_changemtrl(obj_mtrlid)
//wf_maketree2()


end event

public function integer wf_save ();//wf_save
//检查值有效性
//查询环
//删除原有明细
//插入新明细
//
//
Long rslt = 1,ls_i,ls_cr_rsl
String arg_msg
String u_prdpf_pfgroup,u_prdpf_dscrp
Decimal u_prdpf_sonscale,u_prdpf_sonloss,u_prdpf_sondecloss,u_prdpf_sonahead,u_prdpf_updownrate
Long ll_sonmtrlid,u_prdpf_ifreputate,u_prdpf_ifover
String ls_status
Long u_prdpf_printid,ll_printid_new
Long u_prdpf_wrkgrpid
String ls_woodcode,ls_pcode
String ls_mtrlcode,u_prdpf_promode,u_prdpf_pfgroupmode,u_prdpf_pfklmode
Decimal u_prdpf_pfgroupqty,ld_qgqty

Long u_prdpf_dipztype


dw_mtrl_prdpfmx.AcceptText()

////检查有否环 //
Open(w_sys_wait_jdt) //打开进度窗口
w_sys_wait_jdt.wf_set_msg('正在检查新BOM组成数量的合法性,请稍候...')

IF cur_cmpl_zc = 1 THEN
	FOR ls_i = 1 To dw_mtrl_prdpfmx.RowCount()
		IF dw_mtrl_prdpfmx.Object.u_prdpf_qgqty[ls_i] = 0 THEN CONTINUE
		dw_mtrl_prdpfmx.Object.u_prdpf_sonscale[ls_i]  =  1 / dw_mtrl_prdpfmx.Object.u_prdpf_qgqty[ls_i] * dw_mtrl_prdpfmx.Object.u_prdpf_pfgroupqty[ls_i]
	Next
END IF

dw_mtrl_prdpfmx.AcceptText()
FOR ls_i = 1 To dw_mtrl_prdpfmx.RowCount()
	IF dw_mtrl_prdpfmx.Object.mtrlid[ls_i] <= 0 THEN CONTINUE
	
	ls_mtrlcode = dw_mtrl_prdpfmx.Object.mtrlcode[ls_i]
	
	IF dw_mtrl_prdpfmx.Object.u_prdpf_sonscale[ls_i] = 0 THEN
		arg_msg = '行:'+String(ls_i)+',物料:'+ls_mtrlcode+',请输入组成数量!'
		rslt = 0
		GOTO ext
	END IF
	IF dw_mtrl_prdpfmx.Object.u_prdpf_sonscale[ls_i] < 0 THEN
		arg_msg = '行:'+String(ls_i)+',物料:'+ls_mtrlcode+',不合理组成数量!'
		rslt = 0
		GOTO ext
	END IF
	
	IF dw_mtrl_prdpfmx.Object.u_prdpf_wrkgrpid[ls_i] <= 0 THEN
		arg_msg = '行:'+String(ls_i)+',物料:'+ls_mtrlcode+',请选择领料组!'
		rslt = 0
		GOTO ext
	END IF
	
NEXT





//

w_sys_wait_jdt.wf_accepttol(dw_mtrl_prdpfmx.RowCount()) //初始化进度条
w_sys_wait_jdt.wf_set_msg('正在检查新BOM是否存在环,请稍候...')
FOR ls_i = 1 To dw_mtrl_prdpfmx.RowCount()
	IF dw_mtrl_prdpfmx.Object.mtrlid[ls_i] <= 0 THEN CONTINUE
	//处理
	w_sys_wait_jdt.wf_set_msg('正在检查新BOM是否存在环,请稍候...'+'行:'+String(ls_i)+',['+Trim(dw_mtrl_prdpfmx.Object.mtrlcode[ls_i])+']')
	ls_cr_rsl = wf_checkrand(dw_mtrl_prdpfmx.Object.mtrlid[ls_i])
	IF ls_cr_rsl = 1 THEN
		arg_msg = '行:'+String(ls_i)+',发现环!在 '+String(dw_mtrl_prdpfmx.Object.mtrlcode[ls_i])+' ,请核对!'
		rslt = 0
		GOTO ext
	ELSEIF ls_cr_rsl < 0 THEN
		arg_msg = '查询闭环操作失败!['+String(dw_mtrl_prdpfmx.Object.mtrlcode[ls_i])+']'
		rslt = 0
		GOTO ext
	END IF
	w_sys_wait_jdt.wf_inc(ls_i) //进度
NEXT

DELETE FROM u_prdpf
	WHERE ( u_prdpf.mtrlid = :obj_mtrlid  ) AND
	( u_prdpf.pfcode = :obj_pfcode  );
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "删除原始BOM操作失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

//插入新记录
w_sys_wait_jdt.wf_accepttol(dw_mtrl_prdpfmx.RowCount()) //初始化进度条
w_sys_wait_jdt.wf_set_msg('正在生成新BOM,请稍候...')
FOR ls_i = 1 To dw_mtrl_prdpfmx.RowCount()
	IF dw_mtrl_prdpfmx.Object.mtrlid[ls_i] <= 0 THEN CONTINUE
	IF dw_mtrl_prdpfmx.Object.u_prdpf_sonscale[ls_i] = 0 THEN CONTINUE
	
	//处理
	w_sys_wait_jdt.wf_set_msg('正在生成新BOM,请稍候...'+'['+Trim(dw_mtrl_prdpfmx.Object.mtrlcode[ls_i])+']')
	
	ll_printid_new++

	u_prdpf_sonscale  = dw_mtrl_prdpfmx.Object.u_prdpf_sonscale[ls_i]
	u_prdpf_sonloss   = dw_mtrl_prdpfmx.Object.u_prdpf_sonloss[ls_i]
	u_prdpf_sondecloss = dw_mtrl_prdpfmx.Object.u_prdpf_sondecloss[ls_i]
	u_prdpf_sonahead  = 0
	u_prdpf_pfgroup   = dw_mtrl_prdpfmx.Object.u_prdpf_pfgroup[ls_i]
	ll_sonmtrlid            = dw_mtrl_prdpfmx.Object.mtrlid[ls_i]
	u_prdpf_dscrp     = Trim(dw_mtrl_prdpfmx.Object.u_prdpf_dscrp[ls_i])
	
	
	u_prdpf_promode = dw_mtrl_prdpfmx.Object.u_prdpf_promode[ls_i]
	u_prdpf_pfgroupmode = dw_mtrl_prdpfmx.Object.u_prdpf_pfgroupmode[ls_i]
	u_prdpf_pfklmode = dw_mtrl_prdpfmx.Object.u_prdpf_pfklmode[ls_i]
	u_prdpf_pfgroupqty = dw_mtrl_prdpfmx.Object.u_prdpf_pfgroupqty[ls_i]
	
	
	
	u_prdpf_updownrate     = 0
	u_prdpf_ifreputate     = 0
	
	u_prdpf_ifover       = dw_mtrl_prdpfmx.Object.u_prdpf_ifover[ls_i] //改了
	u_prdpf_dipztype  = dw_mtrl_prdpfmx.Object.u_prdpf_dipztype[ls_i]
	IF IsNull(u_prdpf_ifover) THEN u_prdpf_ifover = 0
	IF IsNull(u_prdpf_dipztype) THEN u_prdpf_dipztype = -1
	
	IF cur_auto_printid = 1 THEN 
		u_prdpf_printid = ll_printid_new
	ELSE
		u_prdpf_printid = dw_mtrl_prdpfmx.Object.u_prdpf_printid[ls_i]
	END IF 
	u_prdpf_wrkgrpid       = dw_mtrl_prdpfmx.Object.u_prdpf_wrkgrpid[ls_i]
	ls_status              = Trim(dw_mtrl_prdpfmx.Object.u_prdpf_status[ls_i])
	ls_woodcode = Trim(dw_mtrl_prdpfmx.Object.u_prdpf_woodcode[ls_i])
	ls_pcode = Trim(dw_mtrl_prdpfmx.Object.u_prdpf_pcode[ls_i])
	
	ld_qgqty = dw_mtrl_prdpfmx.Object.u_prdpf_qgqty[ls_i]
	
	INSERT INTO u_prdpf
		( mtrlid,
		pfcode,
		sonmtrlid,
		sonscale,
		sonloss,
		sondecloss,
		sonahead,
		dscrp,
		updownrate,
		ifreputate,
		ifover,
		dipztype,
		pfgroup,
		promode,
		pfgroupmode,
		pfklmode,
		pfgroupqty,
		printid,
		wrkgrpid,
		status,
		pcode,
		woodcode,
		qgqty)
		VALUES ( :obj_mtrlid,
		:obj_pfcode,
		:ll_sonmtrlid,
		:u_prdpf_sonscale,
		:u_prdpf_sonloss,
		:u_prdpf_sondecloss,
		:u_prdpf_sonahead,
		:u_prdpf_dscrp,
		:u_prdpf_updownrate,
		:u_prdpf_ifreputate,
		:u_prdpf_ifover,
		:u_prdpf_dipztype,
		:u_prdpf_pfgroup,
		:u_prdpf_promode,
		:u_prdpf_pfgroupmode,
		:u_prdpf_pfklmode,
		:u_prdpf_pfgroupqty,
		:u_prdpf_printid,
		:u_prdpf_wrkgrpid,
		:ls_status,
		:ls_pcode,
		:ls_woodcode,
		:ld_qgqty)  ;
		
	IF sqlca.SQLCode <> 0 THEN
		arg_msg ="行"+string(ls_i)+" 物料:" +Trim(dw_mtrl_prdpfmx.Object.mtrlcode[ls_i])+" 插入新BOM操作失败,"+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	dw_mtrl_prdpfmx.Object.u_prdpf_printid[ls_i] = u_prdpf_printid
	
	w_sys_wait_jdt.wf_inc(ls_i) //进度
NEXT
//Close(w_sys_wait_jdt)


//====================================================================
// 工艺说明
//====================================================================

String ls_pf_gy
ls_pf_gy = mle_pfgy.Text

UPDATE u_mtrl_structure_gy
	SET pfgy = :ls_pf_gy
	WHERE ( mtrlid = :obj_mtrlid  ) AND
	( pfcode = :obj_pfcode  )   ;
IF sqlca.SQLCode = 0 THEN
	IF sqlca.SQLNRows = 0 THEN
		INSERT Into u_mtrl_structure_gy (mtrlid,pfcode, pfgy ) Values (:obj_mtrlid,:obj_pfcode, :ls_pf_gy);
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = "插入新清单工艺说明操作失败,"+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
ELSE
	arg_msg = "更新清单工艺说明操作失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

//DELETE FROM u_mtrl_structure_gy
//	WHERE ( u_mtrl_structure_gy.mtrlid = :obj_mtrlid  ) AND
//	( u_mtrl_structure_gy.pfcode = :obj_pfcode  )   ;
//IF sqlca.SQLCode <> 0 THEN
//	arg_msg = "删除旧清单工艺说明操作失败,"+sqlca.SQLErrText
//	rslt = 0
//	GOTO ext
//END IF
//
//INSERT Into u_mtrl_structure_gy (mtrlid,pfcode, pfgy ) Values (:obj_mtrlid,:obj_pfcode, :ls_pf_gy);
//IF sqlca.SQLCode <> 0 THEN
//	arg_msg = "插入新清单工艺说明操作失败,"+sqlca.SQLErrText
//	rslt = 0
//	GOTO ext
//END IF

//====================================================================
// 更新时间
//====================================================================
UPDATE u_mtrldef
	SET sopdate = getdate() ,
	spopemp = :publ_operator
	Where mtrlid = :obj_mtrlid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "更新产品物料构成修改时间操作失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


wf_changemtrl(obj_mtrlid)
page_mtrlid = obj_mtrlid


ext:
Close(w_sys_wait_jdt)
IF rslt = 0 THEN
	ROLLBACK;
	MessageBox ("提示",arg_msg, Information!, OK! )
ELSE
	COMMIT;
	MessageBox ("提示","清单保存成功!", Information!, OK! )
	wf_maketree()
END IF

RETURN rslt






end function

public function integer wf_checkrand (long checked_mtrlid);//wf_checkrand
IF checked_mtrlid = obj_mtrlid THEN RETURN 1

Long ls_mtrlid
Long rt_b,rt_s,count
Long mtrlid[],ls_i
DECLARE pf_cur CURSOR FOR
	SELECT u_PrdPF.SonMtrlid
	FROM u_PrdPF
	Where ( u_PrdPF.mtrlid = :checked_mtrlid );
OPEN pf_cur;
count = 1
FETCH pf_cur Into :mtrlid[count];

DO WHILE sqlca.SQLCode = 0
	count++
	FETCH pf_cur Into :mtrlid[count];
LOOP
count = count - 1
CLOSE pf_cur;

FOR ls_i = 1 To count
	rt_b = wf_checkrand(mtrlid[ls_i])
	IF rt_b <> 0 THEN RETURN rt_b
NEXT

RETURN 0
//DO
//	
//LOOP WHILE 





end function

public function integer wf_changemtrl (long arg_mtrlid);  SELECT u_mtrldef.mtrlname,   
         u_mtrldef.mtrlcode,
			u_mtrldef.SAuditflag
    INTO :obj_mtrlname,   
         :obj_mtrlcode,
			:obj_SAuditflag
    FROM u_mtrldef  
   WHERE u_mtrldef.mtrlid = :arg_mtrlid   ;
if sqlca.sqlcode<>0 then
	obj_mtrlid=0
	obj_SAuditflag=0
	return 0
end if
obj_mtrlid=arg_mtrlid
st_codetitle.text=" "+trim(obj_mtrlname)+'/'+trim(obj_mtrlcode) +' 清单'
wf_retrieve_childrenmtrl(obj_mtrlid)
sle_usual_query.setfocus()
wf_flagstatus_rf(obj_SAuditflag)
return 1
end function

public function integer wf_moveone (long sor_row);//wf_moveone

long new_row
if sor_row<=0 then 
	return 0
end if

new_row=dw_mtrl_prdpfmx.insertrow(dw_mtrl_prdpfmx.rowcount())
dw_mtrl_prdpfmx.object.u_prdpf_printid[new_row] = new_row
dw_mtrl_prdpfmx.object.mtrlcode[new_row]=dw_pageretr.object.mtrlcode[sor_row]
dw_mtrl_prdpfmx.object.u_mtrldef_mtrlmode[new_row]=dw_pageretr.object.mtrlmode[sor_row]

dw_mtrl_prdpfmx.object.mtrlname[new_row]=dw_pageretr.object.mtrlname[sor_row]
dw_mtrl_prdpfmx.object.unit[new_row]=dw_pageretr.object.unit[sor_row]
dw_mtrl_prdpfmx.object.mtrlid[new_row]  =dw_pageretr.object.mtrlid[sor_row]
dw_mtrl_prdpfmx.object.u_prdpf_dscrp[new_row]  =dw_pageretr.object.dscrp[sor_row]

return 1
end function

public function integer wf_removeone (long sor_row);//wf_removeone

if sor_row<=0 then 
	return 0
end if
dw_mtrl_prdpfmx.deleterow(sor_row)
dw_mtrl_prdpfmx.triggerevent(rowfocuschanged!)
return 1
end function

public function integer wf_modefacechg ();//wf_modefacechg
Int LS_INT
Int child_column_int = 18//可修改的前N个字段

IF dw_edit_mode THEN
	cb_save.Enabled = TRUE
	cb_edit.Text = '放弃&E'
	cb_edit.normalpicname = 'undo.bmp'
	
	cb_removeall.Enabled = TRUE
	cb_removeone.Enabled = TRUE
	cb_moveall.Enabled = TRUE
	cb_moveone.Enabled = TRUE
	
	cb_pfpaste.Enabled = TRUE
	
	dw_pageretr.Title = '供选择物料'
	
	mle_pfgy.DisplayOnly = FALSE
	cb_audit.Enabled = FALSE
	cb_print.Enabled = FALSE
	
	FOR LS_INT = 1 TO child_column_int
		dw_mtrl_prdpfmx.SetTabOrder (LS_INT,LS_INT*10 )
	NEXT	
	dw_mtrl_prdpfmx.SetFocus()
	if dw_mtrl_prdpfmx.rowcount()<=0 then
		this.triggerevent('insert_childrow')
	end if
	
	cb_refresh_tree.Enabled = FALSE
ELSE
	cb_save.Enabled = FALSE
	cb_edit.Text = '修改&E'
	cb_edit.normalpicname = 'open.bmp'
	
	cb_removeall.Enabled = FALSE
	cb_removeone.Enabled = FALSE
	cb_moveall.Enabled = FALSE
	cb_moveone.Enabled = FALSE
	
	cb_pfpaste.Enabled = FALSE
	
	dw_pageretr.Title = '当前的清单产品(物料)'
	
	mle_pfgy.DisplayOnly = TRUE
	cb_audit.Enabled = TRUE
	cb_print.Enabled = TRUE
	
	FOR LS_INT = 1 TO child_column_int
		dw_mtrl_prdpfmx.SetTabOrder (LS_INT, 0)
	NEXT

	cb_refresh_tree.Enabled = TRUE
END IF

cb_edit.of_init_draw()
cb_edit.of_paint()
cb_edit.triggerevent('textchange')
RETURN 0

end function

private function integer wf_retrieve_childrenmtrl (long arg_mtrlid);//wf_retrieve_childrenmtrl

Int rslt = 1
String ls_pf,l_pf_gy
ls_pf = obj_pfcode

obj_pfcode = ls_pf
dw_mtrl_prdpfmx.Retrieve(arg_mtrlid,ls_pf)


//==============================================================================

datawindowchild childdw
dw_mtrl_prdpfmx.SetTransObject (sqlca)
dw_mtrl_prdpfmx.GetChild("u_prdpf_wrkgrpid",childdw)
childdw.SetTransObject (sqlca)
childdw.InsertRow(0)
//==============================================================================



SELECT u_mtrl_structure_gy.pfgy
	INTO :l_pf_gy
	FROM u_mtrl_structure_gy
	WHERE ( u_mtrl_structure_gy.mtrlid = :obj_mtrlid ) AND
	( u_mtrl_structure_gy.pfcode = :obj_pfcode )   ;
IF sqlca.SQLCode <> 0  AND sqlca.SQLCode <> 100 THEN
	MessageBox('提示','查询清单工艺说明内容失败!', Information!, OK! ) 
END IF

mle_pfgy.Text = l_pf_gy

wf_maketree()


RETURN rslt


end function

public function integer pf_treegrowth (long arg_handl, long arg_mtrlid, decimal arg_num, integer arg_lp);//pf_treegrowth(arg_handl,arg_mtrlid,arg_num,arg_lp)
long rslt=1

decimal Sonscale,  SonLoss,   SonDECLosS,    Sonahead,num
long  SonMtrlid,count=0,ls_i
string mtrlcode, mtrlname
string ls_pf=''
s_pfmx ls_s_pfmx[]

//if arg_lp=2 then ls_pf=obj_pfcode //首层可以选择不同配方
ls_pf=obj_pfcode

long handl

deep++
if deep>1000 then //防止死递归
	return 0
end if



DECLARE pf_cur CURSOR FOR 
  SELECT u_PrdPF.Sonscale,   
         u_PrdPF.SonLoss,   
         u_PrdPF.SonDECLosS,   
         u_PrdPF.Sonahead,   
         u_PrdPF.SonMtrlid,   
         u_mtrldef.mtrlcode,   
         u_mtrldef.mtrlname
    FROM u_PrdPF,   
         u_mtrldef  
   WHERE ( u_PrdPF.SonMtrlid = u_mtrldef.mtrlid ) and  
         ( ( u_PrdPF.mtrlid = :arg_mtrlid ) AND  
         ( u_PrdPF.pfcode = :ls_pf ) ); 
open pf_cur;
count=1
fetch pf_cur into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
						:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].Sonahead,&
						:ls_s_pfmx[count].SonMtrlid,:ls_s_pfmx[count].mtrlcode,:ls_s_pfmx[count].mtrlname;

do while sqlca.sqlcode=0
	
	count++
fetch pf_cur into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,&
						:ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].Sonahead,&
						:ls_s_pfmx[count].SonMtrlid,:ls_s_pfmx[count].mtrlcode,:ls_s_pfmx[count].mtrlname;
loop
count=count - 1
close pf_cur;

for ls_i=1 to count
	if ls_s_pfmx[ls_i].SonLoss<>1 then
		num=arg_num*ls_s_pfmx[ls_i].Sonscale/(1 - ls_s_pfmx[ls_i].SonLoss)+ls_s_pfmx[ls_i].SonDECLosS
	else
		num=0
	end if
	
	handl=tv_1.insertitemsort(arg_handl,ls_s_pfmx[ls_i].mtrlcode+'['+ls_s_pfmx[ls_i].mtrlname+']*'+string(num,'#0.####'),arg_lp) //生成树
	
	pf_treegrowth(handl,ls_s_pfmx[ls_i].SonMtrlid,num,arg_lp+1) //下级生成树
next

return 1
end function

public function integer wf_pfcopy ();//wf_pfcopy
//记录当前复制的产品
//记录复制的明细内容
//界面提示

IF dw_mtrl_prdpfmx.RowCount() = 0 THEN
	st_msg.Text = ''
	pfcopy_mtrlid = 0
	RETURN 0
END IF
Long ls_i = 0

//记录当前复制的产品
pfcopy_mtrlid = obj_mtrlid
pfcopy_pfcode = obj_pfcode
pfcopy_mtrlcode = obj_mtrlcode
pfcopy_source = obj_source
pfcopy_mtrlname = obj_mtrlname

FOR ls_i = 1 TO dw_mtrl_prdpfmx.RowCount()
	pfmx[ls_i].sonscale = dw_mtrl_prdpfmx.Object.u_prdpf_sonscale[ls_i]
	// 注释开始
	pfmx[ls_i].sonloss = dw_mtrl_prdpfmx.Object.u_prdpf_sonloss[ls_i]
	pfmx[ls_i].sondecloss = dw_mtrl_prdpfmx.Object.u_prdpf_sondecloss[ls_i]
//	pfmx[ls_i].sonahead = dw_mtrl_prdpfmx.Object.u_prdpf_sonahead[ls_i]
	// 注释结束

	pfmx[ls_i].mtrlcode = dw_mtrl_prdpfmx.Object.mtrlcode[ls_i]
	pfmx[ls_i].mtrlid = dw_mtrl_prdpfmx.Object.mtrlid[ls_i]
	pfmx[ls_i].mtrlname = dw_mtrl_prdpfmx.Object.mtrlname[ls_i]
	pfmx[ls_i].unit = dw_mtrl_prdpfmx.Object.unit[ls_i]
	pfmx[ls_i].planprice = dw_mtrl_prdpfmx.Object.u_mtrldef_planprice[ls_i]
	// 注释开始
	pfmx[ls_i].promode= dw_mtrl_prdpfmx.Object.u_prdpf_promode[ls_i]
	pfmx[ls_i].pfgroup = dw_mtrl_prdpfmx.Object.u_prdpf_pfgroup[ls_i]
	pfmx[ls_i].pfgroupmode = dw_mtrl_prdpfmx.Object.u_prdpf_pfgroupmode[ls_i]
	pfmx[ls_i].pfgroupqty = dw_mtrl_prdpfmx.Object.u_prdpf_pfgroupqty[ls_i]
	pfmx[ls_i].pfklmode = dw_mtrl_prdpfmx.Object.u_prdpf_pfklmode[ls_i]
	// 注释结束 pfklmode
	pfmx[ls_i].dscrp = dw_mtrl_prdpfmx.Object.u_prdpf_dscrp[ls_i]
	// 注释开始
//	pfmx[ls_i].updownrate = dw_mtrl_prdpfmx.Object.u_prdpf_updownrate[ls_i]
//	pfmx[ls_i].ifover = dw_mtrl_prdpfmx.Object.u_prdpf_ifover[ls_i]
//	pfmx[ls_i].ifreputate = dw_mtrl_prdpfmx.Object.u_prdpf_ifreputate[ls_i]
	pfmx[ls_i].wrkgrpid = dw_mtrl_prdpfmx.Object.u_prdpf_wrkgrpid[ls_i]
	// 注释结束
	pfmx[ls_i].status = dw_mtrl_prdpfmx.Object.u_prdpf_status[ls_i]
	
	
	p_pfmx = ls_i
NEXT


st_msg.Text = '已复制 产品: '+pfcopy_mtrlcode+'/'+pfcopy_mtrlname+'  清单: '+pfcopy_pfcode
RETURN 0

end function

public function integer wf_pfpaste ();//wf_pfpaste
//没有复制则返回
//循环删除原有的明细
//循环写入新明细



Long ls_i = 0,ls_row

IF NOT dw_edit_mode THEN RETURN 0
IF pfcopy_mtrlid = 0 THEN RETURN 0

//DO WHILE dw_mtrl_prdpfmx.RowCount() > 0
//	dw_mtrl_prdpfmx.DeleteRow(0)
//LOOP

FOR ls_i = 1 TO p_pfmx
	ls_row = dw_mtrl_prdpfmx.InsertRow(0)
	dw_mtrl_prdpfmx.Object.u_prdpf_printid[ls_row] = ls_row
	dw_mtrl_prdpfmx.Object.u_prdpf_sonscale[ls_row] = pfmx[ls_i].sonscale
	// 注释开始
//	dw_mtrl_prdpfmx.Object.u_prdpf_sonloss[ls_row] = pfmx[ls_i].sonloss
//	dw_mtrl_prdpfmx.Object.u_prdpf_sondecloss[ls_row] = pfmx[ls_i].sondecloss
//	dw_mtrl_prdpfmx.Object.u_prdpf_sonahead[ls_row] = pfmx[ls_i].sonahead
	// 注释结束
	dw_mtrl_prdpfmx.Object.mtrlcode[ls_row] = pfmx[ls_i].mtrlcode
	dw_mtrl_prdpfmx.Object.mtrlid[ls_row] = pfmx[ls_i].mtrlid
	dw_mtrl_prdpfmx.Object.mtrlname[ls_row] = pfmx[ls_i].mtrlname
	dw_mtrl_prdpfmx.Object.unit[ls_row] = pfmx[ls_i].unit
	dw_mtrl_prdpfmx.Object.u_mtrldef_planprice[ls_row] = pfmx[ls_i].planprice
	// 注释开始
	dw_mtrl_prdpfmx.Object.u_prdpf_promode[ls_row] = pfmx[ls_i].promode
		dw_mtrl_prdpfmx.Object.u_prdpf_pfgroup[ls_row] = pfmx[ls_i].pfgroup
	dw_mtrl_prdpfmx.Object.u_prdpf_pfgroupmode[ls_row] = pfmx[ls_i].pfgroupmode
	dw_mtrl_prdpfmx.Object.u_prdpf_pfgroupqty[ls_row] = pfmx[ls_i].pfgroupqty   
	dw_mtrl_prdpfmx.Object.u_prdpf_pfklmode[ls_row] = pfmx[ls_i].pfklmode
	// 注释结束   
	dw_mtrl_prdpfmx.Object.u_prdpf_dscrp[ls_row] = pfmx[ls_i].dscrp
	
	// 注释开始
//	dw_mtrl_prdpfmx.Object.u_prdpf_updownrate[ls_row] = pfmx[ls_i].updownrate
//	dw_mtrl_prdpfmx.Object.u_prdpf_ifover[ls_row] = pfmx[ls_i].ifover
//	dw_mtrl_prdpfmx.Object.u_prdpf_ifreputate[ls_row] = pfmx[ls_i].ifreputate
	dw_mtrl_prdpfmx.Object.u_prdpf_wrkgrpid[ls_row] = pfmx[ls_i].wrkgrpid
//	// 注释结束
	dw_mtrl_prdpfmx.Object.u_prdpf_status[ls_row] = pfmx[ls_i].status
NEXT


RETURN 0

end function

public subroutine wf_flagstatus_rf (integer arg_sauditflag);IF arg_sauditflag = 1 THEN
	cb_audit.Text = '撤审'
	cb_audit.normalpicname = 'caudit.bmp'
ELSE
	cb_audit.Text = '审核'
	cb_audit.normalpicname = 'audit.bmp'
END IF

cb_audit.of_init_draw()
cb_audit.of_paint()
cb_audit.TriggerEvent('ue_textchange')

end subroutine

public function integer wf_maketree ();//wf_maketree()
long hand
deep=1

long tvi_hdl = 0

DO UNTIL tv_1.FindItem(RootTreeItem!, 0) = -1
	tv_1.DeleteItem(tvi_hdl)
LOOP

hand=tv_1.insertitemlast(0,obj_mtrlcode+'['+obj_mtrlname+'] '+obj_pfcode,1)

pf_treegrowth(hand,obj_mtrlid,1,2)

tv_1.expanditem(hand)

return 0
end function

public function integer wf_maketree_sub ();//wf_maketree_sub()
long hand
long ll_tvi,ll_tvi_child

ll_tvi = tv_1.FindItem(CurrentTreeItem!, 0)

ll_tvi_child=tv_1.FindItem(ChildTreeItem!, ll_tvi)
DO UNTIL ll_tvi_child = -1
	tv_1.DeleteItem(ll_tvi_child)
	ll_tvi_child=tv_1.FindItem(ChildTreeItem!, ll_tvi)
LOOP

pf_treegrowth(ll_tvi,obj_mtrlid,1,2)

tv_1.expanditem(ll_tvi)

return 0
end function

public function integer wf_refresh_curuc (long arg_mtrlid);
Int rslt = 1
IF arg_mtrlid <= 0 OR IsNull(arg_mtrlid) THEN
	rslt = 0
	GOTO ext
END IF

Long uc_row
uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	rslt = 0
	GOTO ext
END IF

Int sauditflag
String saudit_emp
DateTime saudit_date

SELECT sauditflag,
	saudit_emp,
	saudit_date
	INTO	:sauditflag,
	:saudit_emp,
	:saudit_date
	FROM u_mtrldef
	Where mtrlid = :arg_mtrlid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('提示',"查询操作失败(错误订单唯一码)", Information!, OK! )
	rslt = 0
	GOTO ext
END IF

dw_pageretr.Object.sauditflag[uc_row] = sauditflag
dw_pageretr.Object.saudit_emp[uc_row] = saudit_emp
dw_pageretr.Object.saudit_date[uc_row] = saudit_date

ext:
RETURN rslt


end function

public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg);Long LS_ROW,ll_mtrlid_obj,i 
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	arg_msg = '没有目标单据!'
	RETURN 0
END IF

//修改点:获取 指定retriev参数
//ll_id = dw_1.Object.#1[LS_ROW]
//ll_scid = dw_1.Object.scid[LS_ROW]
ll_mtrlid_obj = obj_mtrlid 

//查询所选模版是否含有图片信息
Long ll_ifpic
Long ll_classid
SELECT ifpic
	INTO :ll_ifpic
	FROM U_XLS_Templates
	Where id = :ll_xls_Templatesid;
IF sqlca.SQLCode <> 0 THEN
	ll_ifpic = 0
END IF

Long ll_i,ll_j
Long ll_mtrlid
Long ll_fileid

Blob ls_filedata
SetNull(ls_filedata)
String Pathname,ls_filename,ls_filetype
String errmsg
uo_fj_mng_billtype  ls_uo_fjbt
ls_uo_fjbt = CREATE uo_fj_mng_billtype


////可选设置/ //
arg_obj_st.uo_const.create_new_pwd( ) //创建随机密码 
IF sys_option_xls_ifuse_passwd = 1 THEN arg_obj_st.uo_const.pwd = Trim(sys_option_xls_user_passwd) //默认加密密码    默认为随即密码


Boolean xls_locked
xls_locked = Not (sys_option_xls_lock = 1)

// Excel 的可选设置
IF arg_obj_st.of_setoption(arg_ationid,  xls_locked,TRUE,arg_msg) <> 1 THEN
	RETURN 0
END IF


s_xls_pic_list s_pic //结构数组-用于保存图片路径


FOR i = 1 TO arg_str_billlist.count
	////可选操作/ //
	arg_str_billlist.bill[i].ds_data = CREATE datastore //
	arg_str_billlist.bill[i].ds_data.DataObject = arg_str_billlist.bill[i].datawindow //
	arg_str_billlist.bill[i].ds_data.SetTransObject(sqlca)
	
	arg_str_billlist.bill[i].ds_data.Retrieve(ll_mtrlid_obj )
	
	
	IF ll_ifpic = 1 THEN //如果含有图片信息,则查询本类型单据需要带出哪类附件
		
		SELECT classid
			INTO :ll_classid
			FROM u_billpic_fileclass
			Where (billtype = 202);
		IF sqlca.SQLCode <> 0 THEN
			ll_classid = 0
		END IF
		
		
		
		
		IF ll_classid > 0 THEN //如果已经指定好附件类型,则循环明细表查询每个明细的图片信息.
			If arg_str_billlist.bill[i].ds_data.RowCount() > 0 THEN //设置图片路径  ///(arg_str_billlist.bill[i].datawindow  = 'dw_xls_prdstruct_mx_tree' or arg_str_billlist.bill[i].datawindow  = 'dw_xls_prdstruct_mx_tree2' ) AND 
				FOR ll_j = 1 TO arg_str_billlist.bill[i].ds_data.RowCount()
					if arg_str_billlist.bill[i].datawindow  = 'dw_xls_prdstruct_mx_tree'  then
						ll_mtrlid = arg_str_billlist.bill[i].ds_data.Object.u_prdpf_sonmtrlid[ll_j]
					else
					 	ll_mtrlid = arg_str_billlist.bill[i].ds_data.Object.u_mtrldef_mtrlid[ll_j]
					end if
					//取该附件类型中的第一个附件.
					SELECT top 1 fileid,DisplayName,FileType INTO :ll_fileid,:ls_filename,:ls_filetype
						FROM u_file
						WHERE relid = :ll_mtrlid
						AND classid = :ll_classid
						AND (filetype = 'bmp' OR filetype = 'rle' OR filetype = 'wmf'
						OR filetype = 'tif' OR filetype = 'jpg' OR filetype = 'gif' OR filetype = 'jpeg')
						USING sys_fileDB_sqlca;
					IF sys_fileDB_sqlca.SQLCode <> 0 THEN
						ll_fileid = 0
					END IF
					IF ll_fileid > 0 THEN
						Pathname = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ls_filename+'.'+ls_filetype
						IF Trim(Pathname) <> '' THEN
							IF ls_uo_fjbt.uf_getfjbolb_fromdb( ll_fileid, ls_filedata, sys_fileDB_sqlca, arg_msg) = 0 THEN
								RETURN  0
							END IF
							
							IF f_saveblobtofile(ls_filedata,Pathname,errmsg) = 0 THEN
								RETURN 0
							ELSE
								
								s_pic.path[ll_j] = Pathname
								//记录临时文件位置,本窗口退出后删除
								wf_addlog_tempfilepathname(Pathname)
								
							END IF 
						ELSE
							s_pic.path[ll_j] = ''
						END IF
					ELSE
						s_pic.path[ll_j] = ''
					END IF
				NEXT 
			END IF
		END IF
		//
	END IF
	
	
	
	IF ll_ifpic = 1 AND ll_classid > 0 THEN
		If arg_str_billlist.bill[i].ds_data.RowCount() > 0 THEN //设置图片路径  
			FOR ll_j = 1 TO arg_str_billlist.bill[i].ds_data.RowCount()
				arg_str_billlist.bill[i].ds_data.Object.pic[ll_j] = s_pic.path[ll_j]
			NEXT
		END IF
	END IF
NEXT


DESTROY ls_uo_fjbt
RETURN 1




end function

public subroutine wf_addlog_tempfilepathname (string arg_filepathname);//wf_addlog_tempfilepathname
if isnull(arg_filepathname) or len(trim(arg_filepathname))<3 then return
ins_openfile_log_p++
ins_openfile_log[ins_openfile_log_p]=arg_filepathname
//	string ins_openfile_log[]  //用于退出后删除
//	long ins_openfile_log_p=0    //用于退出后删除
//
end subroutine

public subroutine wf_del_tempfilepathname ();//wf_del_tempfilepathname
// 删除临时文件
Long li
FOR li = 1 TO ins_openfile_log_p
	IF Len(Trim(ins_openfile_log[li])) <= 0 THEN
	ELSE
		FileDelete(ins_openfile_log[li])
	END IF
NEXT


end subroutine

public subroutine wf_add_mx ();Long i, ll_row

FOR i = 1 To s_tran.dw_share.RowCount()
	ll_row = dw_mtrl_prdpfmx.InsertRow(0)
	
	dw_mtrl_prdpfmx.Object.mtrlid[ll_row] = s_tran.dw_share.Object.u_quoterqmtrl_mtrlid[i]
	
	dw_mtrl_prdpfmx.Object.mtrlcode[ll_row] = s_tran.dw_share.Object.u_mtrldef_mtrlcode[i]
	dw_mtrl_prdpfmx.Object.u_mtrldef_mtrlmode[ll_row] = s_tran.dw_share.Object.u_mtrldef_mtrlmode[i]
	dw_mtrl_prdpfmx.Object.mtrlname[ll_row] = s_tran.dw_share.Object.u_mtrldef_mtrlname[i]
	dw_mtrl_prdpfmx.Object.unit[ll_row] = s_tran.dw_share.Object.u_mtrldef_unit[i]
	
	//	dw_mtrl_prdpfmx.Object.u_prdpf_status[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_workqty[i]
	//	dw_mtrl_prdpfmx.Object.u_prdpf_woodcode[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_workqty[i]
	//	dw_mtrl_prdpfmx.Object.u_prdpf_pcode[ll_row] = s_tran.dw_share.Object.u_quoteworkprice_workqty[i]
	
	dw_mtrl_prdpfmx.Object.u_prdpf_sonscale[ll_row] = s_tran.dw_share.Object.u_quoterqmtrl_rqqty[i]
	dw_mtrl_prdpfmx.Object.u_prdpf_sonloss[ll_row] = 0
	dw_mtrl_prdpfmx.Object.u_prdpf_sondecloss[ll_row] = 0
	
	dw_mtrl_prdpfmx.Object.u_prdpf_dscrp[ll_row] = ''
	
	dw_mtrl_prdpfmx.Object.u_prdpf_printid[ll_row] = ll_row
	
	dw_mtrl_prdpfmx.Object.u_prdpf_pfgroup[ll_row] = ''
	dw_mtrl_prdpfmx.Object.u_prdpf_wrkgrpid[ll_row] = 0
	
NEXT



end subroutine

on w_mtrl_structure.create
int iCurrent
call super::create
this.cb_moveone=create cb_moveone
this.cb_removeone=create cb_removeone
this.cb_moveall=create cb_moveall
this.cb_removeall=create cb_removeall
this.st_codetitle=create st_codetitle
this.st_codetitleb=create st_codetitleb
this.gb_4=create gb_4
this.mle_pfgy=create mle_pfgy
this.cb_print=create cb_print
this.cb_refresh_tree=create cb_refresh_tree
this.cb_save=create cb_save
this.cb_edit=create cb_edit
this.cb_audit=create cb_audit
this.cb_pfcopy=create cb_pfcopy
this.cb_pfpaste=create cb_pfpaste
this.ddlb_storageid=create ddlb_storageid
this.cb_help=create cb_help
this.st_msg=create st_msg
this.tab_1=create tab_1
this.cb_other=create cb_other
this.st_2=create st_2
this.st_3=create st_3
this.cb_xls=create cb_xls
this.ddlb_mtrlorigin=create ddlb_mtrlorigin
this.cbx_packqty_cmpl=create cbx_packqty_cmpl
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_1=create ln_1
this.ln_2=create ln_2
this.ln_5=create ln_5
this.ln_6=create ln_6
this.cbx_auto_printid=create cbx_auto_printid
this.cbx_auto_zc=create cbx_auto_zc
this.cb_1=create cb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_moveone
this.Control[iCurrent+2]=this.cb_removeone
this.Control[iCurrent+3]=this.cb_moveall
this.Control[iCurrent+4]=this.cb_removeall
this.Control[iCurrent+5]=this.st_codetitle
this.Control[iCurrent+6]=this.st_codetitleb
this.Control[iCurrent+7]=this.gb_4
this.Control[iCurrent+8]=this.mle_pfgy
this.Control[iCurrent+9]=this.cb_print
this.Control[iCurrent+10]=this.cb_refresh_tree
this.Control[iCurrent+11]=this.cb_save
this.Control[iCurrent+12]=this.cb_edit
this.Control[iCurrent+13]=this.cb_audit
this.Control[iCurrent+14]=this.cb_pfcopy
this.Control[iCurrent+15]=this.cb_pfpaste
this.Control[iCurrent+16]=this.ddlb_storageid
this.Control[iCurrent+17]=this.cb_help
this.Control[iCurrent+18]=this.st_msg
this.Control[iCurrent+19]=this.tab_1
this.Control[iCurrent+20]=this.cb_other
this.Control[iCurrent+21]=this.st_2
this.Control[iCurrent+22]=this.st_3
this.Control[iCurrent+23]=this.cb_xls
this.Control[iCurrent+24]=this.ddlb_mtrlorigin
this.Control[iCurrent+25]=this.cbx_packqty_cmpl
this.Control[iCurrent+26]=this.ln_bar
this.Control[iCurrent+27]=this.ln_bar2
this.Control[iCurrent+28]=this.r_bar
this.Control[iCurrent+29]=this.ln_1
this.Control[iCurrent+30]=this.ln_2
this.Control[iCurrent+31]=this.ln_5
this.Control[iCurrent+32]=this.ln_6
this.Control[iCurrent+33]=this.cbx_auto_printid
this.Control[iCurrent+34]=this.cbx_auto_zc
this.Control[iCurrent+35]=this.cb_1
end on

on w_mtrl_structure.destroy
call super::destroy
destroy(this.cb_moveone)
destroy(this.cb_removeone)
destroy(this.cb_moveall)
destroy(this.cb_removeall)
destroy(this.st_codetitle)
destroy(this.st_codetitleb)
destroy(this.gb_4)
destroy(this.mle_pfgy)
destroy(this.cb_print)
destroy(this.cb_refresh_tree)
destroy(this.cb_save)
destroy(this.cb_edit)
destroy(this.cb_audit)
destroy(this.cb_pfcopy)
destroy(this.cb_pfpaste)
destroy(this.ddlb_storageid)
destroy(this.cb_help)
destroy(this.st_msg)
destroy(this.tab_1)
destroy(this.cb_other)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.cb_xls)
destroy(this.ddlb_mtrlorigin)
destroy(this.cbx_packqty_cmpl)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ln_5)
destroy(this.ln_6)
destroy(this.cbx_auto_printid)
destroy(this.cbx_auto_zc)
destroy(this.cb_1)
end on

event open;call super::open;IF NOT f_power_ind(1439) THEN
	dw_mtrl_prdpfmx.Modify('destroy  u_prdpf_sptprice_t ~n   u_prdpf_sptprice.visible=0 ~n ')
END IF


s_hide_col s_col
s_col.col_1 = 'planprice' 
f_hide_col(1451,dw_pageretr,s_col)

s_hide_col s_col2
s_col2.col_1 = 'amt'
s_col2.col_2 = 'u_mtrldef_planprice' 
f_hide_col(1451,dw_mtrl_prdpfmx,s_col2)

s_hide_col s_col3
s_col3.col_1 = 'u_prdpf_sptprice'
s_col3.col_2 = 'buyamt' 
f_hide_col(121,dw_mtrl_prdpfmx,s_col3)

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

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

wf_modefacechg()


IF s_tran.b_long > 0 THEN
	IF dw_pageretr.GetRow() > 0 THEN
		IF dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()] = s_tran.b_long THEN
			//修改
			cb_edit.TriggerEvent(Clicked!)
			
			//清空明细
			dw_mtrl_prdpfmx.Reset()
			
			//插入明细
			wf_add_mx()
		END IF
		
	END IF
	
END IF


end event

event user_key;call super::user_key;IF KeyDown(KeyF1!) THEN
	if cb_moveone.enabled then cb_moveone.TRIGGEREVENT(CLICKED!)
ELSEIF KeyDown(KeyF3!) then
	if cb_moveall.enabled then cb_moveall.TRIGGEREVENT(CLICKED!)
end if

end event

event key;this.TRIGGEREVENT('user_key')
end event

event ue_usual_query_filt;call super::ue_usual_query_filt;string obj_expr=''  
if trim(sle_usual_query.text)<>'' then 
	IF POS(trim(sle_usual_query.text),'%')=0 THEN
		obj_expr=obj_expr+'( mtrlcode LIKE "%'+trim(sle_usual_query.text)+'%" )'
		obj_expr = obj_expr+' or (mtrlname LIKE "%'+Trim(sle_usual_query.Text)+'%")'
	ELSE
		obj_expr=obj_expr+'( mtrlcode LIKE "'+trim(sle_usual_query.text)+'" )'
		obj_expr = obj_expr+' or (mtrlname LIKE "'+Trim(sle_usual_query.Text)+'")'
	END IF 
end if

dw_pageretr.setfilter(obj_expr)

dw_pageretr.SetRedraw(False)
dw_pageretr.filter()
dw_pageretr.SetRedraw(TRUE)

end event

event ue_usual_query_retr;call super::ue_usual_query_retr;string ls_querystrpart=''
ls_newselect=lower(ori_oldselect)
if trim(sle_usual_query.text)<>'' then
	if pos(trim(sle_usual_query.text),'%')=0 then
		ls_querystrpart="mtrlcode like '%"+trim(sle_usual_query.text)+"%'"
	else
		ls_querystrpart="mtrlcode like '"+trim(sle_usual_query.text)+"'"
	end if

	if Pos(ls_newselect," where ") <> 0 then
	   ls_newselect=ls_newselect+" AND ( "+ls_querystrpart+')'
	else
		ls_newselect=ls_newselect+" where ("+ls_querystrpart+')'
	end if
end if

wf_retrieveuc(dw_pageretr,ls_newselect,1)
this.TRIGGEREVENT('RETRIEVE_pageretr')
end event

event ue_before_open;tv_1 = tab_1.tabpage_2.tv_2
dw_mtrl_prdpfmx = tab_1.tabpage_1.dw_mtrl_prdpfmx
dw_mtrl_prdpfmx.settransobject(sqlca)
if_ue_retr=true
if_ue_filter=true
if_ue_sort=true
end event

event retrieve_pageretr;Boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
Boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled

cb_nextpage_enabled = cb_nextpage.Enabled
cb_retrieveall_enabled = cb_retrieveall.Enabled
cb_func_enabled = cb_func.Enabled

cb_nextpage.Enabled = FALSE
cb_retrieveall.Enabled = FALSE
cb_func.Enabled = FALSE


SetPointer(HourGlass!)
dw_pageretr.Retrieve(cur_mtrlorigin,cur_storageid,cur_isuse)
IF dw_pageretr.RowCount() > 0 AND dw_pageretr.GetRow() = 0 THEN dw_pageretr.SetRow(1)
SetPointer(Arrow!)

cb_nextpage.Enabled = cb_nextpage_enabled
cb_retrieveall.Enabled = cb_retrieveall_enabled
cb_func.Enabled = cb_func_enabled



IF NOT dw_edit_mode AND dw_pageretr.GetRow() > 0 THEN
	wf_changemtrl(dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()])
END IF


end event

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
ln_1.endx = this.width
ln_2.endx = this.width
r_bar.width = this.width

long w_width,w_height
w_width = 3600
w_height = 2300


if newwidth < w_width then this.width = w_width
if newheight < w_height then  this.height = w_height

dw_pageretr.width=this.width - (w_width - 2650)

gb_4.x = dw_pageretr.x + dw_pageretr.width + 20
mle_pfgy.x = gb_4.x + 20


st_codetitle.width=this.width - (w_width - 3544)
st_codetitleb.width=this.width - (w_width - 3552)

tab_1.width=this.width - (w_width - 3552)
tab_1.height=this.height - (w_height - 650)

tv_1.width=this.width - (w_width - 3552)
tv_1.height = tab_1.height - 100

dw_mtrl_prdpfmx.width=this.width - (w_width - 3552)
dw_mtrl_prdpfmx.height = tab_1.height - 100


cbx_auto_printid.y = tab_1.y + 10
cbx_auto_printid.x = tab_1.x + 700

cbx_auto_zc.y = tab_1.y + 10
cbx_auto_zc.x = tab_1.x + cbx_auto_printid.width +800


end event

event close;call super::close;wf_del_tempfilepathname()
end event

type cb_func from w_publ_pageretr`cb_func within w_mtrl_structure
integer x = 151
integer y = 0
integer width = 151
integer height = 172
integer taborder = 290
end type

event cb_func::clicked;call super::clicked;PARENT.TriggerEvent('ue_help')

end event

type cb_exit from w_publ_pageretr`cb_exit within w_mtrl_structure
integer x = 2057
integer y = 0
integer width = 151
integer height = 172
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type sle_usual_query from w_publ_pageretr`sle_usual_query within w_mtrl_structure
integer x = 1664
integer y = 192
integer width = 494
integer height = 96
boolean bringtotop = true
long backcolor = 16777215
end type

type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_mtrl_structure
integer x = 2619
integer height = 172
integer taborder = 240
string normalpicname = "p1.ico"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type em_pagerowno from w_publ_pageretr`em_pagerowno within w_mtrl_structure
integer x = 2290
integer y = 44
integer width = 320
integer taborder = 130
boolean bringtotop = true
long backcolor = 16777215
end type

type dw_pageretr from w_publ_pageretr`dw_pageretr within w_mtrl_structure
integer y = 316
integer width = 2665
integer height = 976
integer taborder = 100
string dragicon = "WinLogo!"
boolean bringtotop = true
string title = "物料列表"
string dataobject = "dw_mtrl_index_structure"
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event dw_pageretr::doubleclicked;call super::doubleclicked;if dw_edit_mode and row>0 then cb_moveone.TRIGGEREVENT(CLICKED!)
end event

event dw_pageretr::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

IF NOT dw_edit_mode AND dw_pageretr.GetRow() > 0 THEN
	wf_changemtrl(dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()])
	page_mtrlid = dw_pageretr.Object.mtrlid[dw_pageretr.GetRow()]
END IF


PARENT.TriggerEvent('ue_retrieve_info')

end event

event dw_pageretr::rowfocuschanging;//IF dw_edit_mode THEN RETURN 1
end event

type st_1 from w_publ_pageretr`st_1 within w_mtrl_structure
integer x = 1463
integer y = 220
integer width = 192
integer height = 60
string text = "编码含"
alignment alignment = right!
end type

type cb_nextpage from w_publ_pageretr`cb_nextpage within w_mtrl_structure
integer x = 2784
integer width = 64
integer height = 172
integer taborder = 280
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_moveone from commandbutton within w_mtrl_structure
integer x = 27
integer y = 1300
integer width = 151
integer height = 84
integer taborder = 170
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "选择"
end type

event clicked;long find_row=0,new_row,sor_row
sor_row=dw_pageretr.getrow()
if sor_row<=0 then 
	messagebox('提示','请选择要加入的目标物料!', Information!, OK! ) 
	return 0
end if
//find_row=dw_mtrl_prdpfmx.find('mtrlid='+string(dw_pageretr.object.mtrlid[sor_row]),0,dw_pageretr.rowcount())
//if find_row>0 then
//	Beep(1)
//	return 0
//end if
wf_moveone(sor_row)
end event

type cb_removeone from commandbutton within w_mtrl_structure
integer x = 178
integer y = 1300
integer width = 151
integer height = 84
integer taborder = 180
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "删除"
end type

event clicked;parent.triggerevent('ue_deletemx')
end event

type cb_moveall from commandbutton within w_mtrl_structure
integer x = 352
integer y = 1300
integer width = 151
integer height = 84
integer taborder = 190
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "全选"
end type

event clicked;long i
for i=1 to dw_pageretr.rowcount()
	wf_moveone(i)
next
end event

type cb_removeall from commandbutton within w_mtrl_structure
integer x = 498
integer y = 1300
integer width = 151
integer height = 84
integer taborder = 200
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "全删"
end type

event clicked;
DO WHILE dw_mtrl_prdpfmx.rowcount()>0
	wf_removeone(dw_mtrl_prdpfmx.rowcount())
LOOP

end event

type st_codetitle from statictext within w_mtrl_structure
integer x = 5
integer y = 1412
integer width = 3543
integer height = 92
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 79216776
boolean enabled = false
string text = "**************的组装构成"
boolean border = true
borderstyle borderstyle = styleraised!
boolean focusrectangle = false
end type

type st_codetitleb from statictext within w_mtrl_structure
integer y = 1404
integer width = 3552
integer height = 108
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 79216776
boolean enabled = false
boolean border = true
boolean focusrectangle = false
end type

type gb_4 from groupbox within w_mtrl_structure
integer x = 2683
integer y = 316
integer width = 846
integer height = 1072
integer taborder = 110
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "清单说明[保存]"
end type

type mle_pfgy from multilineedit within w_mtrl_structure
integer x = 2697
integer y = 384
integer width = 818
integer height = 988
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
integer limit = 1000
borderstyle borderstyle = stylelowered!
end type

type cb_print from uo_imflatbutton within w_mtrl_structure
integer x = 1413
integer width = 192
integer height = 172
integer taborder = 90
boolean bringtotop = true
string text = "预览&P"
string normalpicname = "preview.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype
Long ls_dwprintid
String ls_windowname
Int ls_i
Long ll_billid
Int li_ifuse
Long ll_row
String Name,ll_rpname
Long ll_RpID,ll_flag,ll_ifuse

w_curwin = PARENT
ls_windowname = PARENT.ClassName ( )

SELECT billid,ifuse
	INTO :ll_billid,
	:li_ifuse
	FROM u_report_bill
	Where winName = :ls_windowname;
IF sqlca.SQLCode <> 0 THEN
	li_ifuse = 0
END IF

li_ifuse = 0 
IF li_ifuse = 0 THEN
	DECLARE dft_dwprint CURSOR FOR
		SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype
		FROM sys_dft_dwprint_dynamic
		WHERE dwtype = :ls_windowname
		AND ptype = 0 and ifuse = 1;
		
	OPEN dft_dwprint;
	FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
	IF sqlca.SQLCode <> 0 THEN
		PARENT.TriggerEvent('ue_viewprint',0,0)
	ELSE
		m_dft_dwprint_item m_1
		m_1 = CREATE m_dft_dwprint_item
		ls_i = 1
		DO WHILE sqlca.SQLCode = 0
			f_add_menuItem_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid))
			FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
			ls_i++
		LOOP
		CLOSE dft_dwprint;
		m_1.PopMenu(THIS.X+50,THIS.Y+50)
	END IF
ELSE
	DECLARE rpt_dwprint CURSOR FOR
		SELECT RpID,RpName,Flag,Ifuse
		FROM U_report_list
		WHERE billid = :ll_billid
		Order By RpName;
		
	OPEN rpt_dwprint;
	FETCH rpt_dwprint INTO  :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
	IF sqlca.SQLCode <> 0 THEN
		PARENT.TriggerEvent('ue_rpt_viewprint',0,0)
	ELSE
		m_rpt_dwprint_item m_2
		m_2 = CREATE m_rpt_dwprint_item
		ls_i = 1
		DO WHILE sqlca.SQLCode = 0
			
			IF f_pow_rpt(ll_RpID) AND ll_ifuse = 1 AND ll_flag = 1  THEN //权限检查f_pow_rpt( )
				f_add_menuItem_rpt(m_2,ls_i,ll_rpname,String(ll_RpID))
			END IF
			
			FETCH rpt_dwprint INTO   :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
			ls_i++
		LOOP
		CLOSE rpt_dwprint;
		m_2.Item[1].Visible = FALSE
		m_2.PopMenu(THIS.X+50,THIS.Y+50)
	END IF
END IF





end event

type cb_refresh_tree from uo_imflatbutton within w_mtrl_structure
integer width = 151
integer height = 172
integer taborder = 290
boolean bringtotop = true
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;wf_changemtrl(page_mtrlid)
end event

type cb_save from uo_imflatbutton within w_mtrl_structure
integer x = 306
integer width = 192
integer height = 172
integer taborder = 210
boolean enabled = false
string text = "保存&S"
string normalpicname = "save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF dw_edit_mode THEN
	IF wf_save() = 0 THEN RETURN
END IF

dw_edit_mode = Not dw_edit_mode

wf_modefacechg()
//cb_edit.triggerevent('textchange')

end event

type cb_edit from uo_imflatbutton within w_mtrl_structure
integer x = 494
integer width = 192
integer height = 172
integer taborder = 20
boolean bringtotop = true
string text = "修改&E"
string normalpicname = "undo.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

IF dw_edit_mode THEN
	IF MessageBox ("询问","是否确定要放弃保存当前产品的物料构成,放弃后所修改的资料不作保存",Question!,YesNo! ) = 2 THEN
		RETURN
	END IF
	wf_retrieve_childrenmtrl(obj_mtrlid)
ELSE
	IF obj_sauditflag = 1 THEN
		MessageBox('提示','产品的物料构成已审核,不能修改', Information!, OK! ) 
		RETURN
	END IF
END IF
dw_edit_mode = NOT dw_edit_mode
wf_modefacechg() 


end event

type cb_audit from uo_imflatbutton within w_mtrl_structure
integer x = 690
integer width = 151
integer height = 172
integer taborder = 20
boolean bringtotop = true
string text = "审核"
string normalpicname = "audit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF Not f_power_ind(56) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF

DateTime null_dt
SetNull(null_dt)
String ls_msg

IF MessageBox ('提示',"是否确定要审核前产品的物料构成,审核后不能作修改操作",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

IF obj_sauditflag = 1 THEN
	ls_msg = '撤审'
	UPDATE u_mtrldef
		SET SAuditflag = 0,
		SAudit_emp = '',
		SAudit_date = :null_dt
		Where mtrlid = :obj_mtrlid;
ELSE
	ls_msg = '审核'
	UPDATE u_mtrldef
		SET SAuditflag = 1,
		SAudit_emp = :publ_operator,
		SAudit_date = getdate()
		Where mtrlid = :obj_mtrlid;
END IF

IF sqlca.SQLCode <> 0 THEN
	ls_msg = ls_msg+'产品物料构成失改>>'+sqlca.SQLErrText
	ROLLBACK;
ELSE
	COMMIT;
	IF obj_sauditflag = 1 THEN
		obj_sauditflag = 0
	ELSE
		obj_sauditflag = 1
	END IF
	ls_msg = ls_msg+'产品物料构成成功'
END IF
wf_refresh_curuc(obj_mtrlid)
wf_flagstatus_rf(obj_sauditflag)
MessageBox('提示',ls_msg, Information!, OK! )


end event

type cb_pfcopy from uo_imflatbutton within w_mtrl_structure
integer x = 837
integer width = 151
integer height = 172
integer taborder = 20
boolean bringtotop = true
string text = "复制"
string normalpicname = "copy.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

end event

type cb_pfpaste from uo_imflatbutton within w_mtrl_structure
integer x = 987
integer width = 151
integer height = 172
integer taborder = 20
boolean bringtotop = true
boolean enabled = false
string text = "粘贴"
string normalpicname = "paste.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

type ddlb_storageid from uo_ddlb_storageid within w_mtrl_structure
integer x = 270
integer y = 200
integer width = 695
integer height = 812
integer taborder = 30
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_storageid = uo_storageid

end event

event selectionchanged;call super::selectionchanged;cur_storageid = uo_storageid
parent.triggerevent('retrieve_pageretr')
end event

type cb_help from uo_imflatbutton within w_mtrl_structure
string tag = "帮助[F1]"
integer x = 1906
integer width = 151
integer height = 172
integer taborder = 300
boolean bringtotop = true
string text = "帮助"
string normalpicname = "help.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type st_msg from statictext within w_mtrl_structure
integer x = 2583
integer y = 212
integer width = 1019
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
alignment alignment = right!
boolean focusrectangle = false
end type

type tab_1 from tab within w_mtrl_structure
event create ( )
event destroy ( )
integer x = 9
integer y = 1520
integer width = 3543
integer height = 612
integer taborder = 190
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
end type

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

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
end on

event selectionchanged;IF THIS.SelectedTab = 1  THEN 
	cbx_auto_printid.visible = true
	cbx_auto_zc.visible = true
ELSE 
	cbx_auto_printid.visible = false
	cbx_auto_zc.visible = false
END IF 
end event

type tabpage_1 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 18
integer y = 96
integer width = 3506
integer height = 500
long backcolor = 134217739
string text = "直接构成物料"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_mtrl_prdpfmx dw_mtrl_prdpfmx
end type

on tabpage_1.create
this.dw_mtrl_prdpfmx=create dw_mtrl_prdpfmx
this.Control[]={this.dw_mtrl_prdpfmx}
end on

on tabpage_1.destroy
destroy(this.dw_mtrl_prdpfmx)
end on

type dw_mtrl_prdpfmx from u_dw_rbtnfilter within tabpage_1
integer width = 2482
integer height = 492
integer taborder = 20
string dataobject = "dw_mtrl_structuremx"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF


end event

event clicked;call super::clicked;if row>0 then
	this.setrow(row)
	this.selectrow(0,false)
	this.selectrow(row,true)
end if

end event

event doubleclicked;call super::doubleclicked;IF dw_edit_mode THEN
	PARENT.GetParent().GetParent().TriggerEvent('ue_f8')
END IF




end event

event dwnkey;call super::dwnkey;PARENT.getparent().getparent().TriggerEvent('user_key')

String ls_mtrlcode,ls_mtrlname,ls_unit,ls_dscrp,ls_mtrlmode, ls_mtrlengname
Long ls_mtrlid

Long child_row
Long ls_null
SetNull(ls_null)

IF dw_edit_mode THEN
	IF KeyDown(Keydownarrow!) THEN
		Long li_row
		IF dw_mtrl_prdpfmx.GetRow() = dw_mtrl_prdpfmx.RowCount() THEN
			PARENT.getparent().getparent().TriggerEvent("insert_childrow")
		END IF
	ELSE
		IF (KeyDown(KeyEnter!) OR KeyDown(KeyTab!)) AND NOT KeyDown(KeyControl!) AND NOT KeyDown(KeyShift!)  THEN
			IF dw_mtrl_prdpfmx.GetColumnName() = 'mtrlcode' THEN
				dw_mtrl_prdpfmx.AcceptText()
				child_row = dw_mtrl_prdpfmx.GetRow()
				
				ls_mtrlcode = dw_mtrl_prdpfmx.Object.mtrlcode[child_row]
				
				SELECT u_mtrldef.mtrlid,
					u_mtrldef.mtrlname,
					u_mtrldef.unit,
					u_mtrldef.dscrp,
					u_mtrldef.mtrlmode,
					u_mtrldef.mtrlengname
					INTO	:ls_mtrlid,:ls_mtrlname,:ls_unit,:ls_dscrp,:ls_mtrlmode,:ls_mtrlengname
					FROM 	u_mtrldef
					Where	( u_mtrldef.mtrlcode = :ls_mtrlcode);
					
				IF sqlca.SQLCode <> 0 THEN
					parent.getparent().getparent().triggerevent('ue_f8')		
					return 1
				ELSE
					dw_mtrl_prdpfmx.Object.mtrlid[child_row]    = ls_mtrlid
					dw_mtrl_prdpfmx.Object.mtrlname[child_row]    = ls_mtrlname
					dw_mtrl_prdpfmx.Object.u_mtrldef_mtrlengname[child_row] = ls_mtrlengname
					dw_mtrl_prdpfmx.Object.unit[child_row]    = ls_unit
					if not len(trim(dw_mtrl_prdpfmx.object.u_prdpf_dscrp[child_row])) > 0 then
						dw_mtrl_prdpfmx.object.u_prdpf_dscrp[child_row]  =ls_dscrp
					end if

				END IF
				IF Key = KeyEnter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF				
				
			ELSEIF  dw_mtrl_prdpfmx.GetColumnName( ) = 'u_prdpf_dscrp' AND dw_mtrl_prdpfmx.GetRow() = dw_mtrl_prdpfmx.RowCount() THEN
				PARENT.getparent().getparent().TriggerEvent("insert_childrow")
				RETURN 1
			
			ELSE
				IF Key = KeyEnter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			END IF
		END IF
	END IF
END IF

//u_mtrldef_mtrlcode
//u_mtrldef_unit
//u_inwaremx_mtrlid
//u_inwaremx_planprice
//u_inwaremx_price
//u_mtrldef_mtrlname









end event

event rbuttondown;Long ll_row
S_INPUTBOX_DECIMAL s_parm

IF dw_edit_mode THEN
	
	IF dwo.Name = 'u_prdpf_wrkgrpid_t' THEN
		// DONE:　批设领料组
		Open(w_workgroup_edit_ch)
		Long ll_workgroupid
		ll_workgroupid = Message.DoubleParm
		IF ll_workgroupid > 0 THEN
			FOR ll_row = 1 To dw_mtrl_prdpfmx.RowCount()
				dw_mtrl_prdpfmx.Object.u_prdpf_wrkgrpid[ll_row] = ll_workgroupid
			NEXT
		END IF
		
	ELSEIF dwo.Name = 'u_prdpf_sonscale_t' THEN
		// DONE: 批设组成数
		s_parm.Title = '批设组成数'
		s_parm.Value = 0
		OpenWithParm(w_inputbox_decimal, s_parm)
		s_parm = Message.PowerObjectParm
		IF s_parm.has_rslt = 1 THEN
			FOR ll_row = 1 To dw_mtrl_prdpfmx.RowCount()
				dw_mtrl_prdpfmx.Object.u_prdpf_sonscale[ll_row] = s_parm.Value
			NEXT
		END IF
		
	ELSEIF dwo.Name = 'u_prdpf_sonloss_t' THEN
		// DONE: 批设损耗率
		s_parm.Title = '批设损耗率'
		s_parm.Value = 0
		OpenWithParm(w_inputbox_decimal, s_parm)
		s_parm = Message.PowerObjectParm
		IF s_parm.has_rslt = 1 THEN
			FOR ll_row = 1 To dw_mtrl_prdpfmx.RowCount()
				dw_mtrl_prdpfmx.Object.u_prdpf_sonloss[ll_row] = s_parm.Value
			NEXT
		END IF
		
	ELSE
		m_Dfc_Control_PopupMenu dmPopupMenu
		String menustr
		
		
		menustr = "Text=增明细~tEvent=insert_childrow"
		menustr = menustr + "|" + "Text=删明细~tEvent=ue_deletemx"
		
		
		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 IF
	
	
	
ELSE
	CALL Super::RButtonDown
	
END IF




end event

type tabpage_2 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 18
integer y = 96
integer width = 3506
integer height = 500
long backcolor = 134217739
string text = "清单树"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
tv_2 tv_2
end type

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

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

type tv_2 from treeview within tabpage_2
integer width = 2473
integer height = 500
integer taborder = 100
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
borderstyle borderstyle = stylelowered!
string picturename[] = {"Project!","Custom030!","Custom028!","Custom031!","Custom029!","Custom041!","Custom032!"}
long picturemaskcolor = 536870912
long statepicturemaskcolor = 536870912
end type

type cb_other from uo_imflatbutton within w_mtrl_structure
integer x = 1138
integer width = 274
integer height = 172
integer taborder = 150
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_checkrand"
menustr = menustr + "|" + "Text=批替换物料~tEvent=ue_replace_p"
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 st_2 from statictext within w_mtrl_structure
integer x = 704
integer y = 1324
integer width = 891
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
string text = "操作说明:( 热键:>-[F1], >>-[F3])"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_3 from statictext within w_mtrl_structure
integer x = 1637
integer y = 1324
integer width = 919
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
string text = "右键标题批设 领料组 组成数 损耗率"
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_xls from uo_imflatbutton within w_mtrl_structure
integer x = 1605
integer width = 306
integer height = 172
integer taborder = 30
boolean bringtotop = true
string text = "Excel打印"
string normalpicname = "excel.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//检查是否已确认或已审核,否则不允许打印
Long LS_ROW,ll_mtrlid_obj,i 
String arg_msg

LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	arg_msg = '没有目标单据!'
	RETURN 0
END IF
 
/////////// //
uo_sendtoexcel obj_st
obj_st = CREATE uo_sendtoexcel

obj_st.commit_transaction = sqlca
obj_st.TriggerEventObject = THIS.GetParent()
obj_st.TriggerEventname = 'ue_xls'


menu m1
m1 = obj_st.of_createmenu( PARENT.ClassName ( ),sys_user_xls_print_str,sys_user_xls_send_str)


IF UpperBound( m1.Item) = 2 THEN
	MessageBox('错误','当前单据还没有设置Excel打印模板.')
ELSE
	m1.PopMenu(THIS.X ,THIS.Y+THIS.Height)
END IF

end event

type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_mtrl_structure
integer x = 974
integer y = 204
integer height = 812
integer taborder = 20
boolean bringtotop = true
end type

event selectionchanged;call super::selectionchanged;cur_mtrlorigin = this.uo_mtrlorigin
//wf_retrieveuc(dw_pageretr,ls_newselect,1)
parent.triggerevent('retrieve_pageretr')

f_SetProfileString (sys_empid,dw_pageretr.DataObject, "ddlb_mtrlorigin",String(cur_mtrlorigin))
end event

event constructor;call super::constructor;String ls_str
ls_str = f_ProfileString (sys_empid,dw_pageretr.DataObject, "ddlb_mtrlorigin",'0')
cur_mtrlorigin = integer(ls_str)
ddlb_mtrlorigin.uf_setitem(cur_mtrlorigin)
end event

type cbx_packqty_cmpl from checkbox within w_mtrl_structure
integer x = 2185
integer y = 212
integer width = 375
integer height = 68
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;IF THIS.Checked THEN
	cur_isuse  = 1
ELSE
	cur_isuse = -1
END IF

f_SetProfileString (sys_empid,publ_userid+'_'+'isuse', "isuse",String(cur_isuse))
parent.triggerevent('retrieve_pageretr')
end event

event constructor;//this.backcolor = 14215660
cur_isuse = Long(f_ProfileString (sys_empid,publ_userid+'_'+'isuse', "isuse",'1'))
IF cur_isuse = 1  THEN
	THIS.Checked   = TRUE
ELSE
	THIS.Checked   = FALSE
END IF



end event

type ln_bar from line within w_mtrl_structure
long linecolor = 268435456
integer linethickness = 4
integer beginy = 176
integer endx = 3429
integer endy = 176
end type

type ln_bar2 from line within w_mtrl_structure
long linecolor = 16777215
integer linethickness = 4
integer beginy = 180
integer endx = 3429
integer endy = 180
end type

type r_bar from rectangle within w_mtrl_structure
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 3200
integer width = 73
integer height = 172
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar2.beginy - 5

end event

type ln_1 from line within w_mtrl_structure
long linecolor = 268435456
integer linethickness = 4
integer beginy = 300
integer endx = 3429
integer endy = 300
end type

type ln_2 from line within w_mtrl_structure
long linecolor = 16777215
integer linethickness = 4
integer beginy = 304
integer endx = 3429
integer endy = 304
end type

type ln_5 from line within w_mtrl_structure
long linecolor = 268435456
integer beginx = 2267
integer endx = 2267
integer endy = 176
end type

type ln_6 from line within w_mtrl_structure
long linecolor = 16777215
integer beginx = 2272
integer endx = 2272
integer endy = 180
end type

type cbx_auto_printid from checkbox within w_mtrl_structure
integer x = 649
integer y = 1532
integer width = 411
integer height = 68
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;IF THIS.Checked THEN
	cur_auto_printid  = 1
ELSE
	cur_auto_printid = 0
END IF

f_SetProfileString (sys_empid,publ_userid+'_'+'auto_printid', "printid",String(cur_auto_printid))


end event

event constructor;cur_auto_printid = Long(f_ProfileString (sys_empid,publ_userid+'_'+'auto_printid', "printid",'0'))
IF cur_auto_printid = 1  THEN
	THIS.Checked   = TRUE
ELSE
	THIS.Checked   = FALSE
END IF



end event

type cbx_auto_zc from checkbox within w_mtrl_structure
integer x = 1079
integer y = 1532
integer width = 686
integer height = 68
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;IF THIS.Checked THEN
	cur_cmpl_zc  = 1
ELSE
	cur_cmpl_zc = 0
END IF

f_SetProfileString (sys_empid,publ_userid+'_'+'autozc', "autozc",String(cur_cmpl_zc))
end event

event constructor;//this.backcolor = 14215660
cur_cmpl_zc = Long(f_ProfileString (sys_empid,publ_userid+'_'+'autozc', "autozc",'0'))
IF cur_cmpl_zc = 1  THEN
	THIS.Checked   = TRUE
ELSE
	THIS.Checked   = FALSE
END IF

end event

type cb_1 from commandbutton within w_mtrl_structure
integer y = 196
integer width = 251
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;parent.triggerevent('retrieve_pageretr')
end event