FXApp/ws_objects/app_mrp.pbl.src/w_mtrldef_prdpf_padd.srw

$PBExportHeader$w_mtrldef_prdpf_padd.srw
forward
global type w_mtrldef_prdpf_padd from w_publ_base
end type
type dw_1 from u_dw_rbtnfilter within w_mtrldef_prdpf_padd
end type
type st_2 from statictext within w_mtrldef_prdpf_padd
end type
type st_mtrl from statictext within w_mtrldef_prdpf_padd
end type
type cb_mod_bcp from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_save_bcp from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_other_bom from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_save from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type st_1 from statictext within w_mtrldef_prdpf_padd
end type
type st_mtrl_pf from statictext within w_mtrldef_prdpf_padd
end type
type cb_delmx from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type mle_log from multilineedit within w_mtrldef_prdpf_padd
end type
type dw_2 from u_dw_rbtnfilter within w_mtrldef_prdpf_padd
end type
type cb_addmx_wp from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_delmx_wp from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_save_wp from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_edit_wp from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type dw_copy from datawindow within w_mtrldef_prdpf_padd
end type
type cb_cmpl_pfklmode from commandbutton within w_mtrldef_prdpf_padd
end type
type st_arg from statictext within w_mtrldef_prdpf_padd
end type
type em_arg from editmask within w_mtrldef_prdpf_padd
end type
type cbx_cmp_qty from checkbox within w_mtrldef_prdpf_padd
end type
type cb_re_mtrl from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cbx_pfgroup from checkbox within w_mtrldef_prdpf_padd
end type
type cb_import from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_1 from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_moban from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_change from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_print from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cbx_save_close from checkbox within w_mtrldef_prdpf_padd
end type
type rb_1 from radiobutton within w_mtrldef_prdpf_padd
end type
type rb_2 from radiobutton within w_mtrldef_prdpf_padd
end type
type dw_3 from u_dw_rbtnfilter within w_mtrldef_prdpf_padd
end type
type dw_copy_wkp from datawindow within w_mtrldef_prdpf_padd
end type
type dw_copy_main from datawindow within w_mtrldef_prdpf_padd
end type
type cb_copy_paste from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_bom from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_tmp_save from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_tmp_read from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_templet_ch from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type dw_buffer from datawindow within w_mtrldef_prdpf_padd
end type
type cb_pack from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_all_ch from commandbutton within w_mtrldef_prdpf_padd
end type
type cb_fan_ch from commandbutton within w_mtrldef_prdpf_padd
end type
type cbx_ifreset from checkbox within w_mtrldef_prdpf_padd
end type
type cb_autocode from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cbx_wp_pack from checkbox within w_mtrldef_prdpf_padd
end type
type cb_2 from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cb_fj_edit from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type cbx_wp_add from checkbox within w_mtrldef_prdpf_padd
end type
type cb_old_to_new from commandbutton within w_mtrldef_prdpf_padd
end type
type cb_add_mtrl from uo_imflatbutton within w_mtrldef_prdpf_padd
end type
type ln_bar from line within w_mtrldef_prdpf_padd
end type
type ln_bar2 from line within w_mtrldef_prdpf_padd
end type
type r_bar from rectangle within w_mtrldef_prdpf_padd
end type
type ln_7 from line within w_mtrldef_prdpf_padd
end type
type ln_8 from line within w_mtrldef_prdpf_padd
end type
type ln_1 from line within w_mtrldef_prdpf_padd
end type
type ln_2 from line within w_mtrldef_prdpf_padd
end type
type ln_3 from line within w_mtrldef_prdpf_padd
end type
type ln_4 from line within w_mtrldef_prdpf_padd
end type
type ln_5 from line within w_mtrldef_prdpf_padd
end type
type ln_6 from line within w_mtrldef_prdpf_padd
end type
type ln_9 from line within w_mtrldef_prdpf_padd
end type
type ln_10 from line within w_mtrldef_prdpf_padd
end type
type ln_11 from line within w_mtrldef_prdpf_padd
end type
type ln_12 from line within w_mtrldef_prdpf_padd
end type
end forward

global type w_mtrldef_prdpf_padd from w_publ_base
integer width = 5879
integer height = 2396
string title = "物料清单辅助建立"
boolean maxbox = true
windowstate windowstate = maximized!
boolean clientedge = true
event ue_retrieve_workprice ( )
event ue_wp_status ( )
event ue_wp_procode ( )
event ue_cmp_pfklmode ( )
event ue_cmp_pfgroupmode ( )
event ue_allowedit ( )
event ue_import_xls ( )
event ue_import_xls_2 ( )
event ue_import_xls_3 ( )
event user_key ( )
event ue_add_same ( )
event ue_add_next ( )
event ue_viewprint_dy ( )
event ue_viewprint_gy ( )
event ue_viewprint_tree ( )
event ue_viewprint_yl ( )
event ue_viewprint_yl_wrk ( )
event ue_retrieve_wkp ( )
event ue_gydscrp ( )
event ue_copy_mx ( )
event ue_paste_mx ( )
event ue_copy_mx_this ( )
event ue_paste_mx_same ( )
event ue_templet_ch ( )
event ue_wp_u_workqtystr ( )
event ue_wp_workqtystr ( )
event ue_wp_u_pricestr ( )
event ue_wp_pricestr ( )
event ue_import_xls_4 ( )
event ue_import_xls_5 ( )
event ue_import_xls_6 ( )
event ue_cmp_packinfo ( )
event ue_old_to_new ( )
event ue_import_xls_7 ( )
event ue_del_ch ( )
event ue_del_this ( )
event ue_add_up ( )
dw_1 dw_1
st_2 st_2
st_mtrl st_mtrl
cb_mod_bcp cb_mod_bcp
cb_save_bcp cb_save_bcp
cb_other_bom cb_other_bom
cb_save cb_save
st_1 st_1
st_mtrl_pf st_mtrl_pf
cb_delmx cb_delmx
mle_log mle_log
dw_2 dw_2
cb_addmx_wp cb_addmx_wp
cb_delmx_wp cb_delmx_wp
cb_save_wp cb_save_wp
cb_edit_wp cb_edit_wp
dw_copy dw_copy
cb_cmpl_pfklmode cb_cmpl_pfklmode
st_arg st_arg
em_arg em_arg
cbx_cmp_qty cbx_cmp_qty
cb_re_mtrl cb_re_mtrl
cbx_pfgroup cbx_pfgroup
cb_import cb_import
cb_1 cb_1
cb_moban cb_moban
cb_change cb_change
cb_print cb_print
cbx_save_close cbx_save_close
rb_1 rb_1
rb_2 rb_2
dw_3 dw_3
dw_copy_wkp dw_copy_wkp
dw_copy_main dw_copy_main
cb_copy_paste cb_copy_paste
cb_bom cb_bom
cb_tmp_save cb_tmp_save
cb_tmp_read cb_tmp_read
cb_templet_ch cb_templet_ch
dw_buffer dw_buffer
cb_pack cb_pack
cb_all_ch cb_all_ch
cb_fan_ch cb_fan_ch
cbx_ifreset cbx_ifreset
cb_autocode cb_autocode
cbx_wp_pack cbx_wp_pack
cb_2 cb_2
cb_fj_edit cb_fj_edit
cbx_wp_add cbx_wp_add
cb_old_to_new cb_old_to_new
cb_add_mtrl cb_add_mtrl
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_7 ln_7
ln_8 ln_8
ln_1 ln_1
ln_2 ln_2
ln_3 ln_3
ln_4 ln_4
ln_5 ln_5
ln_6 ln_6
ln_9 ln_9
ln_10 ln_10
ln_11 ln_11
ln_12 ln_12
end type
global w_mtrldef_prdpf_padd w_mtrldef_prdpf_padd

type variables
s_edit_index_tran s_tran
Long ins_mtrlid,ins_mtrlid_pf
String ins_pfdscrp
String ins_pfcode
String ins_mtrlcode,ins_mtrlname
Boolean ins_ifmod = False
Boolean ins_ifmod_wp = False
String ins_mtrlcode_ori = ''
String ins_mtrlname_ori = ''
String ins_mtrlmode_ori = ''
String ins_unit_ori = ''
String ins_mtrlsectype_ori = ''
String ins_zxmtrlmode_ori = ''
String ins_usermtrlmode_ori = ''
Long ins_mtrltypeid_ori = 0
Long ins_scid_ori = 0
Long ins_dftwrkgrpid_ori = 0
Decimal ins_orderdays_ori = 0
Decimal ins_buydays_ori = 0
Decimal ins_wfjgdays_ori = 0
String ins_mb_mtrlcode = ''

uo_mtrldef uo_mtrl
uo_mtrl_pf uo_pf
uo_workpricetable  u_wrkprice
Long ins_cnt = 0

Int ins_if_saletask
Long ins_scid,ins_taskid,ins_printid

Int ins_copy_type = 0 //复制类型 0 - 复制下级 1-复制本级及下级


end variables

forward prototypes
public function integer wf_face ()
public function integer wf_checkrand (ref string arg_msg)
public function integer wf_save (ref string arg_msg)
public function integer wf_addmx (long arg_mtrlid, string arg_pfcode, long arg_lp, decimal arg_qty, ref string arg_msg)
public function integer wf_addmx_row (long arg_mtrlid, string arg_pfcode, long arg_lp, long arg_row, decimal arg_qty, ref string arg_msg)
public function integer wf_face_wp ()
public subroutine wf_re_mtrl (integer arg_if_addmx)
public function integer wf_cmpprdpf (long arg_mtrlid, string arg_pfcode)
public function integer wf_check_wkp (ref string arg_msg)
public function integer wf_add_row (long arg_mtrlid, string arg_pfcode, long arg_lp, decimal arg_qty, ref string arg_msg, ref long arg_row)
public function integer wf_add_row_null (string arg_mtrlname, long arg_lp, decimal arg_qty, ref string arg_msg, ref long arg_row)
public function integer wf_auto_wp (boolean arg_ifwpadd, ref string arg_msg)
public function integer wf_addmx_up (long arg_mtrlid, string arg_pfcode, long arg_pmtrlid, long arg_lp, long arg_row, ref string arg_msg)
public function integer wf_addmx_next (long arg_mtrlid, string arg_pfcode, long arg_pmtrlid, long arg_lp, long arg_row, ref string arg_msg, decimal arg_qty, decimal arg_pfgroupqty)
end prototypes

event ue_retrieve_workprice();Long ll_row
Long ll_mtrlid
Long ll_dftwrkgrpid
Long ll_i,ll_j,ll_row_copy
String ls_mtrlcode
Long ll_mb_mtrlid
string ls_wpcode

ll_j = 0

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	ll_dftwrkgrpid = 0
ELSE
	ll_dftwrkgrpid = dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row]
END IF
//只显未产品默认制造车间相关的工组
datawindowchild childdw
dw_2.SetTransObject (sqlca)
dw_2.GetChild("wrkgrpid",childdw)
childdw.SetTransObject (sqlca)
IF  childdw.Retrieve(ll_dftwrkgrpid) = 0 THEN
	childdw.InsertRow(0)
END IF


ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]

IF ll_row <= 0 THEN
	dw_2.Reset()
ELSE
	IF dw_1.Object.ifmod_wp[ll_row] = 0 THEN
		ll_mtrlid = dw_1.Object.u_prdpf_sonmtrlid[ll_row]
		ll_mb_mtrlid = dw_1.Object.mb_mtrlid[ll_row]
		
		IF ll_mb_mtrlid > 0 THEN
			ls_wpcode = f_get_dft_wp(ll_mb_mtrlid)
			dw_2.Retrieve(ll_mb_mtrlid,ls_wpcode)
		ELSE
			ls_wpcode = f_get_dft_wp(ll_mtrlid)
			dw_2.Retrieve(ll_mtrlid,ls_wpcode)
		END IF
	ELSE
		dw_2.setredraw(false)
		dw_2.Reset()
		dw_copy.SetFilter("u_mtrldef_mtrlcode = '"+ls_mtrlcode + "'")
		dw_copy.Filter()
		FOR ll_i = 1 To dw_copy.RowCount()
			//			ll_row_copy = dw_copy.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode + "'", ll_i, ll_i)
			//			IF ll_row_copy > 0 THEN
			//				ll_j++
			dw_copy.RowsCopy (ll_i,ll_i,Primary!,dw_2,ll_i,Primary!)
			//			END IF
		NEXT
		dw_2.setredraw(true)
	END IF
END IF




end event

event ue_wp_status();IF NOT ins_ifmod_wp THEN RETURN
Long uc_row,ll_mtrlid,child_row
string ls_status

uc_row = dw_1.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请先选择产品')
	RETURN
END IF

child_row = dw_2.getrow()
if child_row <= 0 then 
	MessageBox('系统提示','请选择明细')
	RETURN
END IF	

dw_1.AcceptText()
dw_2.AcceptText()
ll_mtrlid = dw_1.Object.u_prdpf_sonmtrlid[uc_row]

IF NOT IsValid(w_configure_ch_zj) THEN
	s_edit_index_tran s_ch_tran
	s_ch_tran.c_long = ll_mtrlid
	
	OpenWithParm(w_configure_ch_zj,s_ch_tran) //调用

	ls_status = Message.StringParm	 //接受返回结构
	dw_2.SetRedraw(FALSE)
	IF len(trim(ls_status)) > 0 THEN
		if ls_status = '[清空配置]' then ls_status = ''
		dw_2.Object.u_sc_workprice_status[child_row] = ls_status
		dw_2.SetFocus()
		dw_2.SetColumn('dscrp')
	END IF
	dw_2.SetRedraw(TRUE)
END IF

end event

event ue_wp_procode();IF NOT ins_ifmod_wp THEN RETURN

Long ll_row
Long child_row
string ls_mtrlcode
long ll_mtrlid
ll_row = dw_1.GetRow()

child_row = dw_2.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','没有正确的物料内容')
	RETURN
END IF

IF dw_1.Object.u_mtrldef_mtrlorigin[ll_row] <> 0 THEN
	MessageBox('系统提示','只有自制来源的产品及半成品才能编辑工价表明细,请检查')
	RETURN
END IF

ls_mtrlcode = dw_1.object.u_mtrldef_mtrlcode[ll_row]

s_edit_index_tran s_ch_tran
s_ch_tran.if_retrieve_all = TRUE
s_ch_tran.work_mode = 1
s_ch_tran.arg_pkid = 0
s_ch_tran.b_long = 0
s_ch_tran.if_select_all = TRUE

IF child_row > 0 THEN s_ch_tran.arg_string_code = dw_2.Object.procode[child_row]

Long ls_j

IF NOT IsValid(w_sc_workprocedure) THEN
	OpenWithParm(w_sc_workprocedure,s_ch_tran) //调用
	
	s_workprocedure S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.wrkproid)
		IF S_INSCUST.wrkproid[ls_j] > 0 THEN //正常返回值则可以取以下值
			IF dw_2.Find('proid='+String(S_INSCUST.wrkproid[ls_j]),1,dw_2.RowCount()) = 0 THEN
				IF dw_2.GetRow() > 0 THEN
					IF dw_2.Object.proid[child_row] <> 0 THEN
						child_row = dw_2.InsertRow (0)
					ELSE
						child_row = dw_2.GetRow()
					END IF
				ELSE
					child_row = dw_2.InsertRow (0)
				END IF
			END IF
			
			dw_2.Object.proid[child_row] = S_INSCUST.wrkproid[ls_j]
			dw_2.Object.procode[child_row] = S_INSCUST.wrkprocode[ls_j]
			dw_2.Object.u_sc_workprice_proname[child_row] = S_INSCUST.wrkproname[ls_j]
			dw_2.Object.worklevel[child_row] = S_INSCUST.worklevel[ls_j]
			dw_2.Object.techlevel[child_row] = S_INSCUST.techlevel[ls_j]
			dw_2.Object.workhour[child_row] = S_INSCUST.workhour[ls_j]
			dw_2.Object.wrkgrpid[child_row] = S_INSCUST.wrkgrid[ls_j]
			dw_2.Object.workprice[child_row] = S_INSCUST.workprice[ls_j]
			
			dw_2.Object.u_mtrldef_mtrlcode[child_row] = ls_mtrlcode

			
			IF child_row > 1 THEN
				dw_2.Object.proorder[child_row] = dw_2.Object.proorder[child_row - 1] + 1
			END IF
		END IF
	NEXT
	
	dw_2.SetRow(child_row)
	dw_2.ScrollToRow(child_row)
	dw_2.SetFocus()
	IF UpperBound(S_INSCUST.wrkproid) > 0 THEN
		dw_2.SetColumn("workprice")
	END IF
END IF

dw_2.SetRedraw(TRUE)
dw_2.SetFocus()


end event

event ue_cmp_pfklmode();IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF


Long ll_i,ll_j,ll_k
String ls_pfklmode
String arg_msg
Decimal ld_sonscale

dw_1.AcceptText()
Long ll_length,j
String ls_code,ls_pfklmode_cmpl
Decimal ld_pfgroupqty
Decimal ld_arg
Decimal ld_qty_p
Long ll_lp
Decimal ld_sonscale_ori

ld_arg = Dec(em_arg.Text)
IF IsNull(ld_arg) Or ld_arg = 0 THEN
	MessageBox('系统提示','请输入正确的参数')
	RETURN
END IF

dw_1.SetRedraw(False)
FOR ll_i = 1 To dw_1.RowCount()
	ls_pfklmode = Trim(dw_1.Object.u_prdpf_pfklmode[ll_i])
	ld_pfgroupqty = dw_1.Object.u_prdpf_pfgroupqty[ll_i]
	
	IF dw_1.Object.iflock[ll_i] = 1 THEN CONTINUE
	IF ls_pfklmode = '' THEN CONTINUE
	
	
	ls_pfklmode_cmpl = ls_pfklmode
	
	ll_length = Len(ls_pfklmode_cmpl)
	
	ls_pfklmode = ''
	j = 0
	j++
	DO WHILE ll_length >= j
		ls_code = Mid(ls_pfklmode_cmpl,j,1)
		IF Not Asc(ls_code) > 127 THEN
			ls_pfklmode += ls_code
		END IF
		j++
	LOOP
	
	IF f_cmpl_pfklmode(ls_pfklmode,ld_sonscale,arg_msg) = 0 THEN
		dw_1.SetRedraw(True)
		MessageBox('提示','行:'+String(ll_i)+','+arg_msg)
		RETURN
	END IF
	
	IF dw_1.Object.lp[ll_i] = 1 THEN
		ld_qty_p = 1
	ELSEIF dw_1.Object.lp[ll_i] > 1 THEN
		FOR ll_j = ll_i To 1 Step -1
			IF dw_1.Object.lp[ll_j] = dw_1.Object.lp[ll_i] - 1 THEN
				ld_qty_p = dw_1.Object.u_prdpf_sonscale[ll_j]
				EXIT
			END IF
		NEXT
	END IF
	
	IF cbx_cmp_qty.Checked THEN
		dw_1.Object.u_prdpf_sonscale[ll_i] = Round(ld_sonscale / ld_arg * ld_pfgroupqty * ld_qty_p ,sys_option_produce_dec)
	ELSE
		dw_1.Object.u_prdpf_sonscale[ll_i] = Round(ld_sonscale / ld_arg * ld_qty_p,sys_option_produce_dec)
	END IF
	
	dw_1.AcceptText()
	
	ll_lp = dw_1.Object.lp[ll_i]
	ld_sonscale_ori = dw_1.Object.u_prdpf_sonscale_ori[ll_i]
	ld_sonscale = dw_1.Object.u_prdpf_sonscale[ll_i]
	
	FOR ll_k = ll_i + 1 To dw_1.RowCount()
		IF dw_1.Object.lp[ll_k] <= ll_lp  THEN EXIT
		
		dw_1.Object.u_prdpf_sonscale[ll_k] = dw_1.Object.u_prdpf_sonscale_ori[ll_k] * (ld_sonscale / ld_sonscale_ori )
		
	NEXT
	
	ll_i = ll_k - 1
	
NEXT
dw_1.SetRedraw(True)


end event

event ue_cmp_pfgroupmode();IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF


Long ll_i,ll_j,ll_k,ll_lp
String ls_pfgroupmode
String arg_msg
Decimal ld_sonscale,ld_sonscale_ori

dw_1.AcceptText()
Long ll_length,j
String ls_code,ls_pfgroupmode_cmpl
Decimal ld_pfgroupqty
Decimal ld_arg,ld_qty_p

ld_arg = Dec(em_arg.Text)
IF IsNull(ld_arg) Or ld_arg = 0 THEN
	MessageBox('系统提示','请输入正确的参数')
	RETURN
END IF
dw_1.SetRedraw(False)
FOR ll_i = 1 To dw_1.RowCount()
	ls_pfgroupmode = Trim(dw_1.Object.u_prdpf_pfgroupmode[ll_i])
	ld_pfgroupqty = dw_1.Object.u_prdpf_pfgroupqty[ll_i]
	
	IF dw_1.Object.iflock[ll_i] = 1 THEN CONTINUE
	IF ls_pfgroupmode = '' THEN CONTINUE
	
	
	ls_pfgroupmode_cmpl = ls_pfgroupmode
	
	ll_length = Len(ls_pfgroupmode_cmpl)
	
	ls_pfgroupmode = ''
	j = 0
	j++
	DO WHILE ll_length >= j
		ls_code = Mid(ls_pfgroupmode_cmpl,j,1)
		IF Not Asc(ls_code) > 127 THEN
			ls_pfgroupmode += ls_code
		END IF
		j++
	LOOP
	
	IF f_cmpl_pfklmode(ls_pfgroupmode,ld_sonscale,arg_msg) = 0 THEN
		dw_1.SetRedraw(True)
		MessageBox('提示','行:'+String(ll_i)+','+arg_msg)
		RETURN
	END IF
	
	IF dw_1.Object.lp[ll_i] = 1 THEN
		ld_qty_p = 1
	ELSEIF dw_1.Object.lp[ll_i] > 1 THEN
		FOR ll_j = ll_i To 1 Step -1
			IF dw_1.Object.lp[ll_j] = dw_1.Object.lp[ll_i] - 1 THEN
				ld_qty_p = dw_1.Object.u_prdpf_sonscale[ll_j]
				EXIT
			END IF
		NEXT
	END IF
	
	IF cbx_cmp_qty.Checked THEN
		dw_1.Object.u_prdpf_sonscale[ll_i] = Round(ld_sonscale / ld_arg * ld_pfgroupqty * ld_qty_p,sys_option_produce_dec)
	ELSE
		dw_1.Object.u_prdpf_sonscale[ll_i] = Round(ld_sonscale / ld_arg * ld_qty_p,sys_option_produce_dec)
	END IF
	
	ll_lp = dw_1.Object.lp[ll_i]
	ld_sonscale_ori = dw_1.Object.u_prdpf_sonscale_ori[ll_i]
	ld_sonscale = dw_1.Object.u_prdpf_sonscale[ll_i]
	
	FOR ll_k = ll_i + 1 To dw_1.RowCount()
		IF dw_1.Object.lp[ll_k] <= ll_lp  THEN EXIT
		
		dw_1.Object.u_prdpf_sonscale[ll_k] = dw_1.Object.u_prdpf_sonscale_ori[ll_k] * (ld_sonscale / ld_sonscale_ori )
		
	NEXT
	
	ll_i = ll_k - 1
	
	
NEXT
dw_1.SetRedraw(True)

end event

event ue_allowedit();Long Columns
Int i
String ls_modify_str
Long ll_row
Long ll_value
Long ll_statusflag,ll_woodcodeflag,ll_pcodeflag
String ls_status,ls_woodcode,ls_pcode

String ls_data_type

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

Columns = Long(dw_1.Describe("DataWindow.Column.Count"))

FOR i = 1 TO Columns
	ls_modify_str = dw_1.Describe("#" + String(i) + ".name")
	ls_modify_str = Lower(ls_modify_str)
	
	IF i = 1 THEN //第1个字段,约定物料ID
		ls_data_type = dw_1.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_value = dw_1.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'statusflag') > 0  THEN
		ls_data_type = dw_1.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_statusflag = dw_1.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'woodcodeflag') > 0  THEN
		ls_data_type = dw_1.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_woodcodeflag = dw_1.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'pcodeflag') > 0  THEN
		ls_data_type = dw_1.Describe(ls_modify_str+".ColType")
		IF ls_data_type = "long" THEN
			ll_pcodeflag = dw_1.GetItemNumber(ll_row,ls_modify_str)
		END IF
	END IF
	
	IF Pos(ls_modify_str,'status') > 0 AND Pos(ls_modify_str,'statusflag') = 0 AND Pos(ls_modify_str,'statustype') = 0  THEN
		IF Len(ls_modify_str) = Len('status') OR Pos(ls_modify_str,'_status') > 0 THEN
			IF Not (Pos(ls_modify_str,'u_saletask_status') > 0 OR &
				Pos(ls_modify_str,'u_buytask_status') > 0 OR &
				Pos(ls_modify_str,'u_order_ml_status') > 0 OR &
				Pos(ls_modify_str,'u_order_wfjg_status') > 0 OR &
				Pos(ls_modify_str,'u_rs_empinfo_status') > 0 ) THEN
				ls_status = ls_modify_str
			END IF
		END IF
	END IF
	
	IF Pos(ls_modify_str,'woodcode') > 0 AND Pos(ls_modify_str,'woodcodeflag') = 0 AND Pos(ls_modify_str,'woodcodetype') = 0  THEN
		IF Len(ls_modify_str) = Len('woodcode') OR Pos(ls_modify_str,'_woodcode') > 0 THEN
			ls_woodcode = ls_modify_str
		END IF
	END IF
	
	IF Pos(ls_modify_str,'pcode') > 0 AND Pos(ls_modify_str,'pcodeflag') = 0 AND Pos(ls_modify_str,'pcodetype') = 0  THEN
		IF Len(ls_modify_str) = Len('pcode') OR Pos(ls_modify_str,'_pcode') > 0 THEN
			ls_pcode = ls_modify_str
		END IF
	END IF
	
NEXT

ll_value = dw_1.object.u_prdpf_sonmtrlid[ll_row]

IF ls_status <> '' THEN
	IF ll_statusflag <> 0  OR ll_value = 0 THEN
		dw_1.Modify(ls_status+".dddw.allowedit = no")
	ELSE
		dw_1.Modify(ls_status+".dddw.allowedit = yes")
	END IF
END IF

IF ls_woodcode <> '' THEN
	IF ll_woodcodeflag <> 0 OR ll_value = 0  THEN
		dw_1.Modify(ls_woodcode+".dddw.allowedit = no")
	ELSE
		dw_1.Modify(ls_woodcode+".dddw.allowedit = yes")
	END IF
END IF

IF ls_pcode <> '' THEN
	IF ll_pcodeflag <> 0 OR ll_value = 0  THEN
		dw_1.Modify(ls_pcode+".dddw.allowedit = no")
	ELSE
		dw_1.Modify(ls_pcode+".dddw.allowedit = yes")
	END IF
END IF




end event

event ue_import_xls();// 导入Excel
Int rslt = 1
String arg_msg
DataStore ds_col30
ds_col30 = Create DataStore
dw_1.SetRedraw(False)
ds_col30.DataObject = 'dw_col30'

If f_readxls(ds_col30,arg_msg) <> 1 Then
	rslt = 0
	Goto ext
End If

Long ll_lp
Long ll_row
Long ll_mtrlid_p
String ls_mtrlcode_p
String ls_pfcode

Long ll_mtrlid
String ls_mtrlcode
String ls_mtrlname
Int li_mtrlprp
String ls_mtrlmode
String ls_unit
String ls_zxmtrlmode
String ls_mtrlsectype
Int li_statusflag
Int li_statustype
Int li_woodcodeflag
Int li_woodcodetype
Int li_pcodeflag
Int li_pcodetype
String ls_usermtrlmode
Int li_Mtrlorigin
Long ll_dftwrkgrpid
Long ll_scid
Long ll_mtrltypeid
String ls_wrkGrpName
Decimal ld_sonscale
Long ll_wrkgrpid_scll

Long ll_newrow


For ll_row = 2 To ds_col30.RowCount() //第2行开始才是清单	
	//明细终止标记
	If Trim(ds_col30.GetItemString(ll_row,1)) = '' Then Exit
	
	ll_lp = Long(Trim(ds_col30.GetItemString(ll_row,1)))
	ls_mtrlcode_p = Trim(ds_col30.GetItemString(ll_row,3))
	ls_mtrlcode = Trim(ds_col30.GetItemString(ll_row,5))
	
	Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid_p,:ll_dftwrkgrpid,:li_mtrlorigin
		From u_mtrldef Where barcode = :ls_mtrlcode_p;
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
		Goto ext
	End If
	
	If li_Mtrlorigin = 0 Then
		If ll_dftwrkgrpid = 0 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行父代码资料的默认生产车间未设置,请检查'
			Goto ext
		Else
			Select top 1 wrkgrpid Into :ll_wrkgrpid_scll
				From u_sc_workgroup
				Where storageid = :ll_dftwrkgrpid
				Order By wrkgrpcode;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行父代码资料默认生产车间第1工组失败,可能资料未定义' + sqlca.SQLErrText
				Goto ext
			End If
		End If
	End If
	
	If ll_lp = 1 Then
		If ll_mtrlid_p <> ins_mtrlid Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行父代码与当前编辑的产品ID不相符,操作取消'
			Goto ext
		End If
	End If
	
	Select mtrlid Into :ll_mtrlid From u_mtrldef Where barcode = :ls_mtrlcode;
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行子代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
		Goto ext
	End If
	
	ls_pfcode = f_get_dft_pf(ll_mtrlid)
	If ls_pfcode = '' Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行子代码默认清单未定义,请检查'
		Goto ext
	End If
Next

If Not cbx_ifreset.Checked Then
	dw_1.Reset()
	wf_re_mtrl(0)
End If

For ll_row = 2 To ds_col30.RowCount()
	//明细终止标记
	If Trim(ds_col30.GetItemString(ll_row,1)) = '' Then Exit
	
	ll_lp = Long(Trim(ds_col30.GetItemString(ll_row,1)))
	ls_mtrlcode_p = Trim(ds_col30.GetItemString(ll_row,3))
	ls_mtrlcode = Trim(ds_col30.GetItemString(ll_row,5))
	ld_sonscale = Dec(Trim(ds_col30.GetItemString(ll_row,10)))
	
	Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid_p,:ll_dftwrkgrpid,:li_mtrlorigin
		From u_mtrldef Where barcode = :ls_mtrlcode_p;
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
		Goto ext
	End If
	
	If li_Mtrlorigin = 0 Then
		If ll_dftwrkgrpid = 0 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行父代码资料的默认生产车间未设置,请检查'
			Goto ext
		Else
			Select top 1 wrkgrpid Into :ll_wrkgrpid_scll
				From u_sc_workgroup
				Where storageid = :ll_dftwrkgrpid
				Order By wrkgrpcode;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行父代码资料默认生产车间第1工组失败,可能资料未定义' + sqlca.SQLErrText
				Goto ext
			End If
		End If
	End If
	
	Select u_mtrldef.mtrlid,
		u_mtrldef.mtrlcode,
		u_mtrldef.mtrlname,
		u_mtrldef.mtrlprp,
		u_mtrldef.mtrlmode,
		u_mtrldef.unit,
		u_mtrldef.zxmtrlmode,
		u_mtrldef.mtrlsectype,
		u_mtrldef.statusflag,
		u_mtrldef.statustype,
		u_mtrldef.woodcodeflag,
		u_mtrldef.woodcodetype,
		u_mtrldef.pcodeflag,
		u_mtrldef.pcodetype,
		u_mtrldef.usermtrlmode,
		u_mtrldef.Mtrlorigin,
		u_mtrldef.dftwrkgrpid,
		u_mtrldef.scid,
		u_mtrldef.mtrltypeid,
		isnull(u_sc_wkp.wrkGrpName,'')
		Into :ll_mtrlid,
		:ls_mtrlcode,
		:ls_mtrlname,
		:li_mtrlprp,
		:ls_mtrlmode,
		:ls_unit,
		:ls_zxmtrlmode,
		:ls_mtrlsectype,
		:li_statusflag,
		:li_statustype,
		:li_woodcodeflag,
		:li_woodcodetype,
		:li_pcodeflag,
		:li_pcodetype,
		:ls_usermtrlmode,
		:li_Mtrlorigin,
		:ll_dftwrkgrpid,
		:ll_scid,
		:ll_mtrltypeid,
		:ls_wrkGrpName
		From u_mtrldef left Outer join u_sc_wkp on
		u_mtrldef.dftwrkgrpid = u_sc_wkp.wrkgrpid
		Where u_mtrldef.barcode = :ls_mtrlcode;
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行子代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
		Goto ext
	End If
	
	ll_newrow = dw_1.InsertRow(0)
	dw_1.Object.u_mtrldef_mtrlcode[ll_newrow] = ls_mtrlcode
	dw_1.Object.u_mtrldef_mtrlprp[ll_newrow] = li_mtrlprp
	dw_1.Object.u_PrdPF_wrkgrpid[ll_newrow] = ll_wrkgrpid_scll
	dw_1.Object.u_PrdPF_Sonscale[ll_newrow] = ld_sonscale
	dw_1.Object.u_PrdPF_SonLoss[ll_newrow] = 0
	dw_1.Object.u_PrdPF_SonDECLosS[ll_newrow] = 0
	dw_1.Object.u_PrdPF_status[ll_newrow] = ''
	dw_1.Object.u_PrdPF_woodcode[ll_newrow] = ''
	dw_1.Object.u_PrdPF_pcode[ll_newrow] = ''
	dw_1.Object.u_PrdPF_Sonahead[ll_newrow] = 0
	dw_1.Object.u_mtrldef_mtrlname[ll_newrow] = ls_mtrlname
	dw_1.Object.u_mtrldef_unit[ll_newrow] = ls_unit
	dw_1.Object.u_mtrldef_mtrlmode[ll_newrow] = ls_mtrlmode
	dw_1.Object.u_mtrldef_mtrlsectype[ll_newrow] = ls_mtrlsectype
	dw_1.Object.u_mtrldef_zxmtrlmode[ll_newrow] = ls_zxmtrlmode
	dw_1.Object.u_sc_wkp_wrkGrpName[ll_newrow] = ls_wrkGrpName
	dw_1.Object.u_mtrldef_statusflag[ll_newrow] = li_statusflag
	dw_1.Object.u_mtrldef_statustype[ll_newrow] = li_statustype
	dw_1.Object.u_mtrldef_woodcodeflag[ll_newrow] = li_woodcodeflag
	dw_1.Object.u_mtrldef_woodcodetype[ll_newrow] = li_woodcodetype
	dw_1.Object.u_mtrldef_pcodeflag[ll_newrow] = li_pcodeflag
	dw_1.Object.u_mtrldef_pcodetype[ll_newrow] = li_pcodetype
	dw_1.Object.u_mtrldef_usermtrlmode[ll_newrow] = ls_usermtrlmode
	dw_1.Object.u_mtrldef_Mtrlorigin[ll_newrow] = li_Mtrlorigin
	dw_1.Object.lp[ll_newrow] = ll_lp
	dw_1.Object.iflock[ll_newrow] = 1
	
	dw_1.Object.u_mtrldef_mtrlid[ll_newrow] = ll_mtrlid
	dw_1.Object.u_prdpf_sonmtrlid[ll_newrow] = ll_mtrlid
	dw_1.Object.pmtrlid[ll_newrow] = ll_mtrlid_p
	dw_1.Object.u_prdpf_printid[ll_newrow] = ll_newrow
	dw_1.Object.u_prdpf_sonpfcode[ll_newrow] = f_get_dft_pf(ll_mtrlid)
	
	dw_1.Object.u_prdpf_pfgroup[ll_newrow] = ''
	dw_1.Object.u_prdpf_pfgroupqty[ll_newrow] = 0
	dw_1.Object.u_prdpf_pfgroupmode[ll_newrow] = ''
	dw_1.Object.u_prdpf_pfklmode[ll_newrow] = ''
	dw_1.Object.u_prdpf_dscrp[ll_newrow] = ''
	dw_1.Object.u_prdpf_baseqty[ll_newrow] = 1
	dw_1.Object.u_prdpf_scllloss[ll_newrow] = 0
	dw_1.Object.u_prdpf_sclldecloss[ll_newrow] = 0
	dw_1.Object.u_prdpf_ifover[ll_newrow] = 0
	dw_1.Object.u_prdpf_dipztype[ll_newrow] = 0
	dw_1.Object.u_prdpf_buyarg[ll_newrow] = 0
	dw_1.Object.u_mtrldef_orderdays[ll_newrow] = 0
	dw_1.Object.u_mtrldef_buydays[ll_newrow] = 0
	dw_1.Object.u_mtrldef_wfjgdays[ll_newrow] = 0
	dw_1.Object.u_mtrldef_dftwrkgrpid[ll_newrow] = ll_dftwrkgrpid
	
	dw_1.Object.u_mtrldef_scid[ll_newrow] = ll_scid
	dw_1.Object.u_mtrldef_mtrltypeid[ll_newrow] = ll_mtrltypeid
Next

ext:

Destroy ds_col30
dw_1.SetRedraw(True)

If rslt = 0 Then
	MessageBox('提示',arg_msg)
End If













end event

event ue_import_xls_2();// 导入Excel
Int rslt = 1
String arg_msg
DataStore ds_col30
ds_col30 = Create DataStore
dw_1.SetRedraw(False)
ds_col30.DataObject = 'dw_col30'

If f_readxls(ds_col30,arg_msg) <> 1 Then
	rslt = 0
	Goto ext
End If

Long ll_lp
Long ll_row,ll_row_new
Long cnt
Long ll_cnt

Long ll_mtrlid_p
String ls_mtrlcode_p
String ls_pfcode

Long ll_mtrlid
String ls_mtrlcode
String ls_mtrlname
Int li_mtrlprp
String ls_mtrlmode
String ls_unit
String ls_zxmtrlmode
String ls_mtrlsectype
Int li_statusflag
Int li_statustype
Int li_woodcodeflag
Int li_woodcodetype
Int li_pcodeflag
Int li_pcodetype
String ls_usermtrlmode
Int li_Mtrlorigin
Long ll_dftwrkgrpid
Long ll_scid
Long ll_mtrltypeid
String ls_wrkGrpName
Decimal ld_sonscale, lde_qty
Long ll_wrkgrpid_scll
String ls_col10, ls_col11
Long ll_newrow

If Not cbx_ifreset.Checked Then
	dw_1.Reset()
	//插入产品
	wf_re_mtrl(0)
End If

For ll_row = 7 To ds_col30.RowCount()
	//明细终止标记
	If Trim(ds_col30.GetItemString(ll_row,8)) = '' Then Exit
	
	ls_mtrlcode_p = Trim(ds_col30.GetItemString(ll_row,3))
	ls_mtrlname = Trim(ds_col30.GetItemString(ll_row,8))
	ld_sonscale = Dec(Trim(ds_col30.GetItemString(ll_row,15)))
	lde_qty = Dec(Trim(ds_col30.GetItemString(ll_row,7)))
	
	ls_col10 = Trim(ds_col30.GetItemString(ll_row,10))
	ls_col11 = Trim(ds_col30.GetItemString(ll_row,11))
	
	If lde_qty <> 0 Then
		ld_sonscale = ld_sonscale / lde_qty
	End If
	
	If ls_mtrlcode_p <> "" Then
		
		cnt = 0
		Select COUNT(*)
			Into :cnt
			From u_mtrldef
			Where (mtrlcode = :ls_mtrlcode_p)
			And (mtrlorigin = 0);
		If sqlca.SQLCode = -1 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_p + ',部件查询资料定义表失败,' + sqlca.SQLErrText
			Goto ext
		ElseIf sqlca.SQLCode = 100 Then
			cnt = 0
		End If
		
		If cnt > 1 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_p + ',部件资料定义有' + String(cnt) + '条重复记录'
			Goto ext
		ElseIf cnt = 1 Then //插入部件
			Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid_p,:ll_dftwrkgrpid,:li_mtrlorigin
				From u_mtrldef Where mtrlcode = :ls_mtrlcode_p;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
				Goto ext
			End If
			
			If ll_dftwrkgrpid = 0 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行父代码资料的默认生产车间未设置,请检查'
				Goto ext
			Else
				Select top 1 wrkgrpid Into :ll_wrkgrpid_scll
					From u_sc_workgroup
					Where storageid = :ll_dftwrkgrpid
					Order By wrkgrpcode;
				If sqlca.SQLCode <> 0 Then
					rslt = 0
					arg_msg = '第' + String(ll_row) + '行父代码资料默认生产车间第1工组失败,可能资料未定义' + sqlca.SQLErrText
					Goto ext
				End If
			End If
			//插入部件
			wf_add_row(ll_mtrlid_p, '', 1, lde_qty, arg_msg,ll_row_new)
		ElseIf cnt = 0 Then //插入新行-部件
			//插入部件
			wf_add_row_null(ls_mtrlname, 1, lde_qty, arg_msg,ll_row_new)
		End If
		
	End If //ls_mtrlcode_p <> ""
	
	
	//插入新行
	cnt = 0
	Select COUNT(*)
		Into :cnt
		From u_mtrldef
		Where u_mtrldef.mtrlname = :ls_mtrlname;
	If sqlca.SQLCode = -1 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料查询资料定义表失败,' + sqlca.SQLErrText
		Goto ext
	ElseIf sqlca.SQLCode = 100 Then
		cnt = 0
	End If
	
	If ls_col10 = '' And ls_col11 = '' Then
		ll_lp = 1
	Else
		ll_lp = 2
	End If
	
	If cnt > 1 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料资料定义有' + String(cnt) + '条重复记录'
		Goto ext
	ElseIf cnt = 1 Then //插入部件
		Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid,:ll_dftwrkgrpid,:li_mtrlorigin
			From u_mtrldef Where mtrlname = :ls_mtrlname;
		If sqlca.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
			Goto ext
		End If
		
		//插入材料
		wf_add_row(ll_mtrlid, '', ll_lp, ld_sonscale, arg_msg,ll_row_new)
	ElseIf cnt = 0 Then //插入新行-部件
		//插入材料
		wf_add_row_null(ls_mtrlname, ll_lp, ld_sonscale, arg_msg,ll_row_new)
	End If
	
	
Next

ext:

Destroy ds_col30
dw_1.SetRedraw(True)

If rslt = 0 Then
	MessageBox('提示',arg_msg)
End If















end event

event ue_import_xls_3();// 导入Excel
Int rslt = 1
String arg_msg
DataStore ds_col30
ds_col30 = Create DataStore

ds_col30.DataObject = 'dw_col30'

If f_readxls(ds_col30,arg_msg) <> 1 Then
	rslt = 0
	Goto ext
End If

Long ll_i,cnt,ll_j
Long ll_lp
Long ll_row
Long ll_mtrlid_p
String ls_mtrlcode_p,ls_pfgroup,ls_mtrlmode_p
String ls_pfcode
Decimal ld_pfgroupqty,ld_sonloss
String ls_pfklmode

Long ll_mtrlid
String ls_mtrlcode,ls_mtrlmode
String ls_mtrlname
Int li_mtrlprp
String ls_unit
String ls_zxmtrlmode
String ls_mtrlsectype
Int li_statusflag
Int li_statustype
Int li_woodcodeflag
Int li_woodcodetype
Int li_pcodeflag
Int li_pcodetype
String ls_usermtrlmode
Int li_Mtrlorigin
Long ll_dftwrkgrpid
Long ll_scid
Long ll_mtrltypeid
String ls_wrkGrpName
Decimal ld_sonscale
Long ll_dftscllwkpid,ll_scllwkpid,ll_wkpid_find
String ls_mb_mtrlcode

Long ll_newrow
Int li_ifadd
String ls_printstr
Long ll_lp_cnt

String ls_piccode
String ls_wrkGrpName_exl

String unit_f,mtrlsectype_f,zxmtrlmode_f,usermtrlmode_f,piccode_f
Long mtrltypeid_f,ifselforder_f,ordertype_f,scid_f,dftwrkgrpid_f
Decimal orderdays_f,buydays_f,wfjgdays_f
Long mtrlid_f,dftscllwkpid_f
Int li_ifselforder,li_ordertype

For ll_row = 1 To 5
	ds_col30.Object.col1[ll_row] = ''
Next

ds_col30.SetSort('col1 A')
ds_col30.Sort()

For ll_row = 6 To ds_col30.RowCount() //第6行开始才是清单	
	//明细终止标记
	If Trim(ds_col30.GetItemString(ll_row,1)) = '' Then Exit
	
	If Trim(ds_col30.GetItemString(ll_row,2)) = '是' Then
		li_ifadd = 1
	Else
		li_ifadd = 0
	End If
	
	ll_lp = Long(Trim(ds_col30.GetItemString(ll_row,1)))
	ls_mtrlcode_p = Trim(ds_col30.GetItemString(ll_row,4))
	ls_mtrlcode = Trim(ds_col30.GetItemString(ll_row,11))
	ls_mtrlname = Trim(ds_col30.GetItemString(ll_row,12))
	ls_mtrlmode = Trim(ds_col30.GetItemString(ll_row,13))
	
	If ls_mtrlcode = '' And li_ifadd = 0 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '必须填写材料编码,请检查'
		Goto ext
	End If
	
	If ls_mtrlcode <> '' Then
		Select mtrlid Into :ll_mtrlid From u_mtrldef Where mtrlcode = :ls_mtrlcode;
		If sqlca.SQLCode <> 0 Then
			ll_mtrlid = 0
		End If
		
		If ll_mtrlid = 0 Then
			Select mtrlid Into :ll_mtrlid From u_mtrldef Where mtrlname = :ls_mtrlname;
			If sqlca.SQLCode <> 0 Then
				ll_mtrlid = 0
			End If
		End If
		
		If ll_mtrlid = 0 Then
			Select mtrlid Into :ll_mtrlid From u_mtrldef Where mtrlname = :ls_mtrlname And mtrlmode = :ls_mtrlmode;
			If sqlca.SQLCode <> 0 Then
				ll_mtrlid = 0
			End If
		End If
		
		If ll_mtrlid > 0 Then
			ls_pfcode = f_get_dft_pf(ll_mtrlid)
			If ls_pfcode = '' Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行物料编码:'+ls_mtrlcode+',默认清单未定义,请检查'
				Goto ext
			End If
		End If
	End If
Next

If Not cbx_ifreset.Checked Then
	dw_1.Reset()
	wf_re_mtrl(0)
End If

dw_1.SetRedraw(False)
For ll_row = 6 To ds_col30.RowCount()
	//明细终止标记
	If Trim(ds_col30.GetItemString(ll_row,1)) = '' Then Exit
	
	If Trim(ds_col30.GetItemString(ll_row,2)) = '是' Then
		li_ifadd = 1
	Else
		li_ifadd = 0
	End If
	
	ls_printstr =  Trim(ds_col30.GetItemString(ll_row,1))
	
	ll_lp_cnt = 0
	Do While Pos(ls_printstr,'.') > 0
		ll_lp_cnt++
		ls_printstr = Mid(ls_printstr,Pos(ls_printstr,'.') + 1)
	Loop
	
	ls_mb_mtrlcode = Trim(ds_col30.GetItemString(ll_row,3))
	
	ll_lp = ll_lp_cnt + 1
	
	ls_pfgroup  = Trim(ds_col30.GetItemString(ll_row,4))
	
	ls_mtrlmode_p = ''
	
	If Trim(ds_col30.GetItemString(ll_row,6)) <> '' Then
		ls_mtrlmode_p = Trim(ds_col30.GetItemString(ll_row,6))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,7)) <> '' Then
		If Trim(ls_mtrlmode_p) = '' Then
			ls_mtrlmode_p = Trim(ds_col30.GetItemString(ll_row,7))
		Else
			ls_mtrlmode_p = ls_mtrlmode_p + '*' + Trim(ds_col30.GetItemString(ll_row,7))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,8)) <> '' Then
		If Trim(ls_mtrlmode_p) = '' Then
			ls_mtrlmode_p = Trim(ds_col30.GetItemString(ll_row,8))
		Else
			ls_mtrlmode_p = ls_mtrlmode_p + '*' + Trim(ds_col30.GetItemString(ll_row,8))
		End If
	End If
	
	ld_pfgroupqty = Dec(Trim(ds_col30.GetItemString(ll_row,9)))
	
	ls_mtrlcode = Trim(ds_col30.GetItemString(ll_row,11))
	ls_mtrlname = Trim(ds_col30.GetItemString(ll_row,12))
	ld_sonscale = Dec(Trim(ds_col30.GetItemString(ll_row,19)))
	ld_sonloss = Dec(Trim(ds_col30.GetItemString(ll_row,20)))
	
	ls_piccode = Trim(ds_col30.GetItemString(ll_row,5))
	
	
	ls_wrkGrpName_exl = Trim(ds_col30.GetItemString(ll_row,10))
	
	
	ls_pfklmode = ''
	
	If Trim(ds_col30.GetItemString(ll_row,14)) <> '' Then
		ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,14))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,15)) <> '' Then
		If Trim(ls_pfklmode) = '' Then
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,15))
		Else
			ls_pfklmode = ls_pfklmode + '*' + Trim(ds_col30.GetItemString(ll_row,15))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,16)) <> '' Then
		If Trim(ls_pfklmode) = '' Then
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,16))
		Else
			ls_pfklmode = ls_pfklmode + '*' + Trim(ds_col30.GetItemString(ll_row,16))
		End If
	End If
	
	
	Select mtrlid Into :ll_mtrlid From u_mtrldef Where mtrlcode = :ls_mtrlcode;
	If sqlca.SQLCode <> 0 Then
		ll_mtrlid = 0
	End If
	
	If ll_mtrlid = 0 Then
		Select mtrlid Into :ll_mtrlid From u_mtrldef Where mtrlname = :ls_mtrlname;
		If sqlca.SQLCode <> 0 Then
			ll_mtrlid = 0
		End If
	End If
	
	If ll_mtrlid = 0 Then
		Select mtrlid Into :ll_mtrlid From u_mtrldef Where mtrlname = :ls_mtrlname And mtrlmode = :ls_mtrlmode;
		If sqlca.SQLCode <> 0 Then
			ll_mtrlid = 0
		End If
	End If
	
	If li_ifadd = 1 Then
		ll_newrow = dw_1.InsertRow(0)
		
		dw_1.Object.u_mtrldef_mtrlcode[ll_newrow] = ls_mtrlcode
		dw_1.Object.u_mtrldef_mtrlprp[ll_newrow] = 1
		dw_1.Object.u_PrdPF_wrkgrpid[ll_newrow] = 0
		dw_1.Object.u_PrdPF_Sonscale[ll_newrow] = ld_pfgroupqty
		dw_1.Object.u_prdpf_sonscale_ori[ll_newrow] = ld_pfgroupqty
		dw_1.Object.u_PrdPF_SonLoss[ll_newrow] = 0
		dw_1.Object.u_PrdPF_SonDECLosS[ll_newrow] = 0
		dw_1.Object.u_PrdPF_status[ll_newrow] = ''
		dw_1.Object.u_PrdPF_woodcode[ll_newrow] = ''
		dw_1.Object.u_PrdPF_pcode[ll_newrow] = ''
		dw_1.Object.u_PrdPF_Sonahead[ll_newrow] = 0
		dw_1.Object.u_mtrldef_mtrlname[ll_newrow] = ls_pfgroup
		dw_1.Object.u_mtrldef_unit[ll_newrow] = ''
		dw_1.Object.u_mtrldef_mtrlmode[ll_newrow] = ls_mtrlmode_p
		dw_1.Object.u_mtrldef_mtrlsectype[ll_newrow] = ''
		dw_1.Object.u_mtrldef_zxmtrlmode[ll_newrow] = ''
		dw_1.Object.u_sc_wkp_wrkGrpName[ll_newrow] = ''
		dw_1.Object.u_mtrldef_statusflag[ll_newrow] = 0
		dw_1.Object.u_mtrldef_statustype[ll_newrow] = 0
		dw_1.Object.u_mtrldef_woodcodeflag[ll_newrow] = 0
		dw_1.Object.u_mtrldef_woodcodetype[ll_newrow] = 0
		dw_1.Object.u_mtrldef_pcodeflag[ll_newrow] = 0
		dw_1.Object.u_mtrldef_pcodetype[ll_newrow] = 0
		dw_1.Object.u_mtrldef_usermtrlmode[ll_newrow] = ''
		dw_1.Object.u_mtrldef_Mtrlorigin[ll_newrow] = 0
		dw_1.Object.lp[ll_newrow] = ll_lp
		
		If ll_lp =  1 Then
			dw_1.Object.iflock[ll_newrow] = 0
		Else
			dw_1.Object.iflock[ll_newrow] = 1
		End If
		
		dw_1.Object.u_mtrldef_mtrlid[ll_newrow] = 0
		dw_1.Object.u_prdpf_sonmtrlid[ll_newrow] = 0
		dw_1.Object.pmtrlid[ll_newrow] = ll_mtrlid_p
		dw_1.Object.u_prdpf_printid[ll_newrow] = ll_newrow
		dw_1.Object.u_prdpf_sonpfcode[ll_newrow] = '[常规]'
		
		
		dw_1.Object.u_prdpf_promode[ll_newrow] = ls_piccode
		dw_1.Object.u_mtrldef_piccode[ll_newrow] = ls_piccode
		
		dw_1.Object.u_prdpf_pfgroup[ll_newrow] = ''
		dw_1.Object.u_prdpf_pfgroupqty[ll_newrow] = 0
		dw_1.Object.u_prdpf_pfgroupmode[ll_newrow] = ''
		dw_1.Object.u_prdpf_pfklmode[ll_newrow] = ''
		dw_1.Object.u_prdpf_dscrp[ll_newrow] = ''
		dw_1.Object.u_prdpf_baseqty[ll_newrow] = 1
		dw_1.Object.u_prdpf_scllloss[ll_newrow] = 0
		dw_1.Object.u_prdpf_sclldecloss[ll_newrow] = 0
		dw_1.Object.u_prdpf_ifover[ll_newrow] = 0
		dw_1.Object.u_prdpf_dipztype[ll_newrow] = 0
		dw_1.Object.u_prdpf_buyarg[ll_newrow] = 0
		dw_1.Object.u_mtrldef_orderdays[ll_newrow] = 0
		dw_1.Object.u_mtrldef_buydays[ll_newrow] = 0
		dw_1.Object.u_mtrldef_wfjgdays[ll_newrow] = 0
		dw_1.Object.u_mtrldef_dftwrkgrpid[ll_newrow] = 0
		
		dw_1.Object.u_mtrldef_scid[ll_newrow] = 0
		dw_1.Object.u_mtrldef_mtrltypeid[ll_newrow] = 0
		
		dw_1.Object.ifnewadd[ll_newrow] = 0
		dw_1.Object.ifmod[ll_newrow] = 0
		
		
		Select unit,
			mtrltypeid,
			mtrlsectype,
			zxmtrlmode,
			usermtrlmode,
			piccode,
			ifselforder,
			ordertype,
			scid,
			dftwrkgrpid,
			orderdays,
			buydays,
			wfjgdays,
			mtrlid,
			dftscllwkpid
			Into :unit_f,
			:mtrltypeid_f,
			:mtrlsectype_f,
			:zxmtrlmode_f,
			:usermtrlmode_f,
			:piccode_f,
			:ifselforder_f,
			:ordertype_f,
			:scid_f,
			:dftwrkgrpid_f,
			:orderdays_f,
			:buydays_f,
			:wfjgdays_f,
			:mtrlid_f,
			:dftscllwkpid_f
			From u_mtrldef
			Where mtrlcode = :ls_mb_mtrlcode;
		If sqlca.SQLCode = 0 Then
			dw_1.Object.u_mtrldef_unit[ll_newrow] = unit_f
			dw_1.Object.u_mtrldef_mtrltypeid[ll_newrow] = mtrltypeid_f
			dw_1.Object.u_mtrldef_mtrlsectype[ll_newrow] = mtrlsectype_f
			dw_1.Object.u_mtrldef_zxmtrlmode[ll_newrow] = zxmtrlmode_f
			dw_1.Object.u_mtrldef_usermtrlmode[ll_newrow] = usermtrlmode_f
			dw_1.Object.u_mtrldef_piccode[ll_newrow] = piccode_f
			dw_1.Object.u_mtrldef_ifselforder[ll_newrow] = ifselforder_f
			dw_1.Object.u_mtrldef_ordertype[ll_newrow] = ordertype_f
			dw_1.Object.u_mtrldef_scid[ll_newrow] = scid_f
			dw_1.Object.u_mtrldef_dftwrkgrpid[ll_newrow] = dftwrkgrpid_f
			
			dw_1.Object.u_mtrldef_orderdays[ll_newrow] = orderdays_f
			dw_1.Object.u_mtrldef_buydays[ll_newrow] = buydays_f
			dw_1.Object.u_mtrldef_wfjgdays[ll_newrow] = wfjgdays_f
			
			dw_1.Object.mb_mtrlcode[ll_newrow] = ls_mb_mtrlcode
			dw_1.Object.mb_mtrlid[ll_newrow] = mtrlid_f
		End If
		
		Select wrkgrpid
			Into :ll_wkpid_find
			From u_sc_workgroup
			Where wrkGrpName = :ls_wrkGrpName_exl;
		If sqlca.SQLCode <> 0 Then ll_wkpid_find = 0
		
		If ll_wkpid_find = 0 Then
			ll_scllwkpid = dftscllwkpid_f
		Else
			ll_scllwkpid = ll_wkpid_find
		End If
		
		dw_1.Object.u_PrdPF_wrkgrpid[ll_newrow] = ll_scllwkpid
		
	End If
	
	If ll_mtrlid > 0 Then
		Select u_mtrldef.mtrlid,
			u_mtrldef.mtrlcode,
			u_mtrldef.mtrlname,
			u_mtrldef.mtrlprp,
			u_mtrldef.mtrlmode,
			u_mtrldef.unit,
			u_mtrldef.zxmtrlmode,
			u_mtrldef.mtrlsectype,
			u_mtrldef.statusflag,
			u_mtrldef.statustype,
			u_mtrldef.woodcodeflag,
			u_mtrldef.woodcodetype,
			u_mtrldef.pcodeflag,
			u_mtrldef.pcodetype,
			u_mtrldef.usermtrlmode,
			u_mtrldef.Mtrlorigin,
			u_mtrldef.dftwrkgrpid,
			u_mtrldef.scid,
			u_mtrldef.mtrltypeid,
			isnull(u_sc_wkp.wrkGrpName,''),
			u_mtrldef.dftscllwkpid,
			u_mtrldef.ifselforder,
			u_mtrldef.ordertype
			Into :ll_mtrlid,
			:ls_mtrlcode,
			:ls_mtrlname,
			:li_mtrlprp,
			:ls_mtrlmode,
			:ls_unit,
			:ls_zxmtrlmode,
			:ls_mtrlsectype,
			:li_statusflag,
			:li_statustype,
			:li_woodcodeflag,
			:li_woodcodetype,
			:li_pcodeflag,
			:li_pcodetype,
			:ls_usermtrlmode,
			:li_Mtrlorigin,
			:ll_dftwrkgrpid,
			:ll_scid,
			:ll_mtrltypeid,
			:ls_wrkGrpName,
			:ll_dftscllwkpid,
			:li_ifselforder,
			:li_ordertype
			From u_mtrldef left Outer join u_sc_wkp on
			u_mtrldef.dftwrkgrpid = u_sc_wkp.wrkgrpid
			Where u_mtrldef.mtrlid = :ll_mtrlid;
		If sqlca.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行子代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
			Goto ext
		End If
	Else
		ll_mtrlid = 0
		li_mtrlprp = 2
		ls_mtrlmode = ''
		ls_unit = ''
		ls_zxmtrlmode = ''
		ls_mtrlsectype = ''
		li_statusflag = 0
		li_statustype = 0
		li_woodcodeflag = 0
		li_woodcodetype = 0
		li_pcodeflag = 0
		li_pcodetype = 0
		ls_usermtrlmode = ''
		li_Mtrlorigin = 2
		ll_dftwrkgrpid = 0
		ll_scid = 0
		ll_mtrltypeid = 0
		ls_wrkGrpName = ''
		ll_dftscllwkpid = 0
	End If
	
	Select wrkgrpid
		Into :ll_wkpid_find
		From u_sc_workgroup
		Where wrkGrpName = :ls_wrkGrpName_exl;
	If sqlca.SQLCode <> 0 Then ll_wkpid_find = 0
	
	If ll_wkpid_find = 0 Then
		ll_scllwkpid = ll_dftscllwkpid
	Else
		ll_scllwkpid = ll_wkpid_find
	End If
	
	If ll_mtrlid > 0 Or li_ifadd = 0 And ls_mtrlcode <> '' And  ls_mtrlname <> '' Then
		ll_newrow = dw_1.InsertRow(0)
		dw_1.Object.u_mtrldef_mtrlcode[ll_newrow] = ls_mtrlcode
		dw_1.Object.u_mtrldef_mtrlprp[ll_newrow] = li_mtrlprp
		dw_1.Object.u_PrdPF_wrkgrpid[ll_newrow] = ll_scllwkpid
		dw_1.Object.u_PrdPF_Sonscale[ll_newrow] = ld_sonscale
		dw_1.Object.u_prdpf_sonscale_ori[ll_newrow] = ld_sonscale
		dw_1.Object.u_PrdPF_SonLoss[ll_newrow] = ld_sonloss
		dw_1.Object.u_PrdPF_SonDECLosS[ll_newrow] = 0
		dw_1.Object.u_PrdPF_status[ll_newrow] = ''
		dw_1.Object.u_PrdPF_woodcode[ll_newrow] = ''
		dw_1.Object.u_PrdPF_pcode[ll_newrow] = ''
		dw_1.Object.u_PrdPF_Sonahead[ll_newrow] = 0
		dw_1.Object.u_mtrldef_mtrlname[ll_newrow] = ls_mtrlname
		dw_1.Object.u_mtrldef_unit[ll_newrow] = ls_unit
		dw_1.Object.u_mtrldef_mtrlmode[ll_newrow] = ls_mtrlmode
		dw_1.Object.u_mtrldef_mtrlsectype[ll_newrow] = ls_mtrlsectype
		dw_1.Object.u_mtrldef_zxmtrlmode[ll_newrow] = ls_zxmtrlmode
		dw_1.Object.u_sc_wkp_wrkGrpName[ll_newrow] = ls_wrkGrpName
		dw_1.Object.u_mtrldef_statusflag[ll_newrow] = li_statusflag
		dw_1.Object.u_mtrldef_statustype[ll_newrow] = li_statustype
		dw_1.Object.u_mtrldef_woodcodeflag[ll_newrow] = li_woodcodeflag
		dw_1.Object.u_mtrldef_woodcodetype[ll_newrow] = li_woodcodetype
		dw_1.Object.u_mtrldef_pcodeflag[ll_newrow] = li_pcodeflag
		dw_1.Object.u_mtrldef_pcodetype[ll_newrow] = li_pcodetype
		dw_1.Object.u_mtrldef_usermtrlmode[ll_newrow] = ls_usermtrlmode
		dw_1.Object.u_mtrldef_Mtrlorigin[ll_newrow] = li_Mtrlorigin
		
		dw_1.Object.u_mtrldef_ifselforder[ll_newrow] = li_ifselforder
		dw_1.Object.u_mtrldef_ordertype[ll_newrow] = li_ordertype
		
		If li_ifadd = 1 Then
			dw_1.Object.lp[ll_newrow] = ll_lp + 1
			dw_1.Object.u_prdpf_pfgroup[ll_newrow] = ''
			dw_1.Object.u_prdpf_pfgroupqty[ll_newrow] = 0
			dw_1.Object.u_prdpf_pfgroupmode[ll_newrow] = ''
		Else
			dw_1.Object.lp[ll_newrow] = ll_lp
			dw_1.Object.u_prdpf_pfgroup[ll_newrow] = ls_pfgroup
			dw_1.Object.u_prdpf_pfgroupqty[ll_newrow] = ld_pfgroupqty
			dw_1.Object.u_prdpf_pfgroupmode[ll_newrow] = ls_mtrlmode_p
		End If
		
		If ll_lp =  1 Then
			dw_1.Object.iflock[ll_newrow] = 0
		Else
			dw_1.Object.iflock[ll_newrow] = 1
		End If
		
		dw_1.Object.u_mtrldef_mtrlid[ll_newrow] = ll_mtrlid
		dw_1.Object.u_prdpf_sonmtrlid[ll_newrow] = ll_mtrlid
		dw_1.Object.pmtrlid[ll_newrow] = ll_mtrlid_p
		dw_1.Object.u_prdpf_printid[ll_newrow] = ll_newrow
		dw_1.Object.u_prdpf_sonpfcode[ll_newrow] = f_get_dft_pf(ll_mtrlid)
		
		
		dw_1.Object.u_prdpf_promode[ll_newrow] = ls_piccode
		dw_1.Object.u_mtrldef_piccode[ll_newrow] = ls_piccode
		
		dw_1.Object.u_prdpf_pfklmode[ll_newrow] = ls_pfklmode
		dw_1.Object.u_prdpf_dscrp[ll_newrow] = ''
		dw_1.Object.u_prdpf_baseqty[ll_newrow] = 1
		dw_1.Object.u_prdpf_scllloss[ll_newrow] = 0
		dw_1.Object.u_prdpf_sclldecloss[ll_newrow] = 0
		dw_1.Object.u_prdpf_ifover[ll_newrow] = 0
		dw_1.Object.u_prdpf_dipztype[ll_newrow] = 0
		dw_1.Object.u_prdpf_buyarg[ll_newrow] = 0
		dw_1.Object.u_mtrldef_orderdays[ll_newrow] = 0
		dw_1.Object.u_mtrldef_buydays[ll_newrow] = 0
		dw_1.Object.u_mtrldef_wfjgdays[ll_newrow] = 0
		dw_1.Object.u_mtrldef_dftwrkgrpid[ll_newrow] = ll_dftwrkgrpid
		
		dw_1.Object.u_mtrldef_scid[ll_newrow] = ll_scid
		dw_1.Object.u_mtrldef_mtrltypeid[ll_newrow] = ll_mtrltypeid
		
		dw_1.Object.ifnewadd[ll_newrow] = 0
		dw_1.Object.ifmod[ll_newrow] = 0
		
		If ll_mtrlid = 0 Then
			dw_1.Object.error_msg[ll_newrow] = '系统中没有此物料的信息,请检查'
		End If
	End If
Next

//如果需要新建的资料信息齐全,自动加上"新建"标记
For ll_i = 2 To dw_1.RowCount()
	If dw_1.Object.u_mtrldef_mtrlid[ll_i] = 0 And dw_1.Object.u_mtrldef_mtrlprp[ll_i] = 1 Then
		ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_i]
		ll_dftwrkgrpid = dw_1.Object.u_mtrldef_dftwrkgrpid[ll_i]
		ll_mtrltypeid = dw_1.Object.u_mtrldef_mtrltypeid[ll_i]
		
		If Trim(ls_mtrlcode) = '' Then
			dw_1.Object.error_msg[ll_i] = '请输入物料编码'
			Continue
		End If
		
		Select count(*) Into :cnt
			From u_mtrldef
			Where mtrlcode = :ls_mtrlcode;
		If sqlca.SQLCode <> 0 Then
			dw_1.Object.error_msg[ll_i] = '查询新编码是否已存在失败'
			Continue
		End If
		
		If cnt > 0 Then
			dw_1.Object.error_msg[ll_i] = '新输入的编码已在系统中存在,请重新输入'
			Continue
		End If
		
		If Trim(dw_1.Object.u_mtrldef_unit[ll_i]) = '' Then
			dw_1.Object.error_msg[ll_i] = '请输入库存单位'
			Continue
		End If
		
		If dw_1.Object.u_mtrldef_mtrltypeid[ll_i] = 0 Then
			dw_1.Object.error_msg[ll_i] = '请选择类别'
			Continue
		End If
		
		Select count(*) Into :cnt
			From u_mtrltype
			Where mtrltypeid = :ll_mtrltypeid;
		If sqlca.SQLCode <> 0 Then
			dw_1.Object.error_msg[ll_i] = '查询物料类别是否已存在失败'
			Continue
		End If
		
		If cnt = 0 Then
			dw_1.Object.error_msg[ll_i] = '物料类别在系统中不存在,请重新选择'
			Continue
		End If
		
		
		If dw_1.Object.u_mtrldef_dftwrkgrpid[ll_i] = 0 Then
			dw_1.Object.error_msg[ll_i] = '请选择默认制造车间'
			Continue
		End If
		
		Select count(*) Into :cnt
			From u_sc_wkp
			Where wrkgrpid = :ll_dftwrkgrpid;
		If sqlca.SQLCode <> 0 Then
			dw_1.Object.error_msg[ll_i] = '查询默认制造车间是否已存在失败'
			Continue
		End If
		
		
		If cnt = 0 Then
			dw_1.Object.error_msg[ll_i] = '默认制造车间在系统中不存在,请重新选择'
			Continue
		End If
		
		ll_lp = dw_1.Object.lp[ll_i]
		dw_1.Object.ifnewadd[ll_i] = 1
		For ll_j = ll_i + 1 To dw_1.RowCount()
			If dw_1.Object.lp[ll_j] = ll_lp + 1 Then //And dw_1.Object.pmtrlid[ll_i] = ll_mtrlid THEN
				dw_1.Object.iflock[ll_j] = 0
			End If
			
			If dw_1.Object.lp[ll_j] <= ll_lp Then Exit
		Next
	End If
	
Next

ext:

Destroy ds_col30
dw_1.SetRedraw(True)

If rslt = 0 Then
	MessageBox('提示',arg_msg)
End If








end event

event user_key();

IF KeyDown(KeyF7!) THEN
	This.TriggerEvent('ue_add_same')
ELSEIF KeyDown(KeyF8!) THEN
	This.TriggerEvent('ue_add_next')
END IF


end event

event ue_add_same();IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF


Long ll_i

String ls_mtrlcode,ls_mtrlname,ls_pfcode,arg_msg
Long ll_row,ll_row_add
Long ll_pmtrlid,ll_lp
Long ll_mtrlid_pf
String arg_msg_str

ll_row = dw_1.GetRow()

IF ll_row > 0 THEN
	ll_pmtrlid = dw_1.Object.pmtrlid[ll_row]
	ll_lp = dw_1.Object.lp[ll_row]
	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
	
	IF ll_lp = 0 THEN
		MessageBox('系统提示','主产品不能增同级')
		RETURN
	END IF
	
	IF ll_lp <> 1 THEN
		FOR ll_i = ll_row To 1 Step -1
			IF dw_1.Object.lp[ll_i] = ll_lp - 1 THEN
				IF dw_1.Object.u_mtrldef_mtrlid[ll_i] <> 0 THEN
					MessageBox('系统提示','上级物料不是新建立的物料,不能执行增同级操作')
					RETURN
				ELSE
					EXIT
				END IF
			END IF
		NEXT
	END IF
	
ELSE
	ll_pmtrlid = ins_mtrlid
	ll_lp = 0
END IF

IF ll_row = dw_1.RowCount() THEN
	ll_row_add = ll_row
ELSE
	FOR ll_i = ll_row + 1 To dw_1.RowCount()
		IF dw_1.Object.lp[ll_i] <= ll_lp THEN
			ll_row_add = ll_i - 1
			EXIT
		END IF
	NEXT
	
	IF ll_row_add = 0 THEN
		ll_row_add = dw_1.RowCount()
	END IF
END IF

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 = 0
	s_ch_tran.c_long = -1
	s_ch_tran.f_long = 1
	
	This.Enabled = False
	OpenWithParm(w_mtrldef_edit,s_ch_tran)
	This.Enabled = True
	
	s_mtrldef_array s_inscust
	s_inscust = Message.PowerObjectParm
	
	dw_1.SetRedraw(False)
	FOR ll_i = 1 To  UpperBound(s_inscust.mtrlid)
		ll_mtrlid_pf = s_inscust.mtrlid[ll_i]
		
		IF ll_mtrlid_pf > 0 THEN
			ls_pfcode = f_get_dft_pf(ll_mtrlid_pf)
			
			IF wf_addmx_next(ll_mtrlid_pf,ls_pfcode,ll_pmtrlid,ll_lp,ll_row_add + 1 ,arg_msg,1,0) = 0 THEN
				arg_msg_str = arg_msg_str + arg_msg +'~r~n'
				CONTINUE
			END IF
			
			ins_cnt++
			IF ls_mtrlcode <> '' THEN
				mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.对 '+ls_mtrlcode+' 增加同级物料 '+s_inscust.mtrlcode[ll_i]
			ELSE
				mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.增加物料 '+s_inscust.mtrlcode[ll_i]
			END IF
			
		END IF
	NEXT
	dw_1.SetRedraw(True)
	
	IF Trim(arg_msg_str) <> '' THEN
		MessageBox('Error',arg_msg_str)
	END IF
	
END IF

this.setfocus()






end event

event ue_add_next();IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF


Long ll_i

String ls_mtrlcode,ls_mtrlname,ls_pfcode,arg_msg,arg_msg_str
Long ll_row,ll_row_add
Long ll_pmtrlid,ll_lp
Long ll_mtrlid
Long ll_mtrlid_pf
int li_mtrlorigin

ll_row = dw_1.GetRow()

IF ll_row > 0 THEN
	ll_pmtrlid = dw_1.Object.pmtrlid[ll_row]
	ll_lp = dw_1.Object.lp[ll_row]
	ll_mtrlid = dw_1.Object.u_mtrldef_mtrlid[ll_row]
	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
	
	li_mtrlorigin = dw_1.Object.u_mtrldef_mtrlorigin[ll_row]
ELSE
	ll_pmtrlid = ins_mtrlid
	ll_lp = 0
	li_mtrlorigin = 0
END IF

//IF ll_mtrlid <> 0 And ll_lp <> 0 THEN
//	MessageBox('系统提示','只能在新建立的物料上或主产品上进行增下级操作')
//	RETURN
//END IF

if li_mtrlorigin = 2 then 
	MessageBox('系统提示','不能在采购物料上进行增下级操作')
	RETURN
END IF


IF ll_row = dw_1.RowCount() THEN
	ll_row_add = ll_row
ELSE
	FOR ll_i = ll_row + 1 To dw_1.RowCount()
		IF dw_1.Object.lp[ll_i] <= ll_lp THEN
			ll_row_add = ll_i - 1
			EXIT
		END IF
	NEXT
	
	IF ll_row_add = 0 THEN
		ll_row_add = dw_1.RowCount()
	END IF
END IF

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 = 0
	s_ch_tran.c_long = -1
	s_ch_tran.f_long = 1
	
	This.Enabled = False
	OpenWithParm(w_mtrldef_edit,s_ch_tran)
	This.Enabled = True
	
	s_mtrldef_array s_inscust
	s_inscust = Message.PowerObjectParm
	
	dw_1.SetRedraw(False)
	
	FOR ll_i = 1 To  UpperBound(s_inscust.mtrlid)
		
		ll_mtrlid_pf = s_inscust.mtrlid[ll_i]
		
		IF ll_mtrlid_pf > 0 THEN
			ls_pfcode = f_get_dft_pf(ll_mtrlid_pf)
			
			
			IF wf_addmx_next(ll_mtrlid_pf,ls_pfcode,ll_pmtrlid,ll_lp + 1 ,ll_row_add + 1 ,arg_msg,1,0) = 0 THEN
				arg_msg_str = arg_msg_str + arg_msg + '~r~n'
			END IF
			
			ins_cnt++
			IF ls_mtrlcode <> '' THEN
				mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.对 '+ls_mtrlcode+' 增加下级物料 '+s_inscust.mtrlcode[ll_i]
			ELSE
				mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.增加物料 '+s_inscust.mtrlcode[ll_i]
			END IF
			
		END IF
	NEXT
	dw_1.SetRedraw(True)
	
	IF Trim(arg_msg_str) <> '' THEN
		MessageBox('Error',arg_msg_str)
	END IF
	
END IF

this.setfocus()

end event

event ue_viewprint_dy();S_print_MSG LS_PRMSG

String ls_windowname
ls_windowname = 'w_mtrl_structure'

String ls_old_dwname,ls_new_dwname = ''
ls_old_dwname = 'dw_rp_prdstruct_dy'
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 = ins_mtrlid
LS_PRMSG.retr_pramstr = ins_pfcode

OpenWithParm(w_publ_preview,LS_PRMSG)

end event

event ue_viewprint_gy();
wf_cmpprdpf(ins_mtrlid,ins_pfcode)

S_print_MSG LS_PRMSG

String ls_windowname
ls_windowname = 'w_mtrl_structure'

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 = ins_mtrlid
LS_PRMSG.retr_pramstr = ins_pfcode

OpenWithParm(w_publ_preview,LS_PRMSG)

end event

event ue_viewprint_tree();
wf_cmpprdpf(ins_mtrlid,ins_pfcode)

S_print_MSG LS_PRMSG

String ls_windowname
ls_windowname = 'w_mtrl_structure'

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 = 14
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = ins_mtrlid
LS_PRMSG.retr_pramstr = ins_pfcode

OpenWithParm(w_publ_preview,LS_PRMSG)

end event

event ue_viewprint_yl();
wf_cmpprdpf(ins_mtrlid,ins_pfcode)

S_print_MSG LS_PRMSG

String ls_windowname
ls_windowname = 'w_mtrl_structure'

String ls_old_dwname,ls_new_dwname = ''
ls_old_dwname = 'dw_rp_prdstruct_yl'
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 = ins_mtrlid
LS_PRMSG.retr_pramstr = ins_pfcode

OpenWithParm(w_publ_preview,LS_PRMSG)

end event

event ue_viewprint_yl_wrk();
wf_cmpprdpf(ins_mtrlid,ins_pfcode)

S_print_MSG LS_PRMSG

String ls_windowname
ls_windowname = 'w_mtrl_structure'

String ls_old_dwname,ls_new_dwname = ''
ls_old_dwname = 'dw_rp_prdstruct_yl_wrk'
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 = ins_mtrlid
LS_PRMSG.retr_pramstr = ins_pfcode

OpenWithParm(w_publ_preview,LS_PRMSG)

end event

event ue_retrieve_wkp();Long ll_row
Long ll_mtrlid
Long ll_dftwrkgrpid
Long ll_i,ll_j,ll_row_copy
String ls_mtrlcode
Long ll_mb_mtrlid

ll_j = 0

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	ll_dftwrkgrpid = 0
ELSE
	ll_dftwrkgrpid = dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row]
END IF
//只显未产品默认制造车间相关的工组
datawindowchild childdw
dw_3.SetTransObject (sqlca)
dw_3.GetChild("swkpid",childdw)
childdw.SetTransObject (sqlca)
IF  childdw.Retrieve(ll_dftwrkgrpid) = 0 THEN
	childdw.InsertRow(0)
END IF

datawindowchild childdwo
dw_3.SetTransObject (sqlca)
dw_3.GetChild("owkpid",childdwo)
childdwo.SetTransObject (sqlca)
IF  childdwo.Retrieve(ll_dftwrkgrpid) = 0 THEN
	childdwo.InsertRow(0)
END IF

ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]

IF ll_row <= 0 THEN
	dw_3.Reset()
ELSE
	IF dw_1.Object.ifmod_wkp[ll_row] = 0 THEN
		ll_mtrlid = dw_1.Object.u_prdpf_sonmtrlid[ll_row]
		ll_mb_mtrlid = dw_1.Object.mb_mtrlid[ll_row]
		
		IF ll_mb_mtrlid > 0 THEN
			dw_3.Retrieve(ll_mb_mtrlid)
		ELSE
			dw_3.Retrieve(ll_mtrlid)
		END IF
	ELSE
		dw_3.Reset()
		dw_copy_wkp.SetFilter("u_mtrldef_mtrlcode = '"+ls_mtrlcode + "'")
		dw_copy_wkp.Filter()
		FOR ll_i = 1 To dw_copy_wkp.RowCount()
			dw_copy_wkp.RowsCopy (ll_i,ll_i,Primary!,dw_3,ll_i,Primary!)
		NEXT
	END IF
END IF




end event

event ue_gydscrp();IF dw_3.GetRow() <= 0 THEN
	MessageBox('系统提示','请先选择明细行')
	RETURN
END IF

s_view_dscrp s_view,s_return
String ls_dscrp
dw_3.AcceptText()

ls_dscrp = dw_3.Object.gydscrp[dw_3.GetRow()]
s_view.Title = '产品生产流程工艺说明'
s_view.dscrp = ls_dscrp
s_view.editmode = ins_ifmod_wp
OpenWithParm(w_mtrlwkp_gydscrp_edit,s_view)
IF ins_ifmod_wp THEN
	s_return = Message.PowerObjectParm
	IF s_return.returnflag = 1 THEN RETURN
	dw_3.Object.gydscrp[dw_3.GetRow()] = s_return.dscrp
	dw_3.Object.gydscrplen[dw_3.GetRow()] = lena(s_return.dscrp)
END IF



end event

event ue_copy_mx();IF ins_ifmod THEN
	MessageBox('系统提示','编辑状态下不能使用复制功能')
	RETURN
END IF

IF ins_ifmod_wp THEN
	MessageBox('系统提示','编辑明细状态下不能使用复制功能')
	RETURN
END IF

Long ll_lp,ll_row,ll_i,ll_j
string ls_mtrlcode

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','请选择要复制清单的半成品')
	return 
END IF

ll_lp = dw_1.Object.lp[ll_row]

IF ll_lp = 0 THEN
	MessageBox('系统提示','主产品不能使用复制功能')
	RETURN
END IF

ls_mtrlcode = dw_1.object.u_mtrldef_mtrlcode[ll_row]

dw_copy_main.Reset()

FOR ll_i = ll_row + 1 To dw_1.RowCount()
	IF dw_1.Object.lp[ll_i] <= ll_lp THEN EXIT
	
	ll_j++
	dw_1.RowsCopy (ll_i,ll_i,Primary!,dw_copy_main,ll_j,Primary!)
	
NEXT

ins_copy_type = 0
ins_cnt++
mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.复制 '+ ls_mtrlcode +' 下级组成物料'


MessageBox('系统提示','复制成功')


end event

event ue_paste_mx();IF ins_ifmod THEN
	MessageBox('系统提示','编辑状态下不能使用粘贴功能')
	RETURN
END IF

IF ins_ifmod_wp THEN
	MessageBox('系统提示','编辑明细状态下不能使用粘贴功能')
	RETURN
END IF

Long ll_lp,ll_row,ll_i,ll_j,ll_lp_ds,ll_row_add
String ls_mtrlcode

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','请选择要粘贴清单的半成品')
	return 
END IF

ll_lp = dw_1.Object.lp[ll_row]

IF ll_lp <> 0 THEN
	IF dw_1.Object.ifnewadd[ll_row] <> 1 THEN
		MessageBox('系统提示','只能在新建的资料或主产品上使用粘贴功能')
		RETURN
	END IF
END IF

ls_mtrlcode =  dw_1.Object.u_mtrldef_mtrlcode[ll_row]

IF dw_copy_main.RowCount() = 0 THEN
	MessageBox('系统提示','没有可粘贴的内容')
	RETURN
END IF

IF ll_row = dw_1.RowCount() THEN
	ll_row_add = ll_row
ELSE
	FOR ll_i = ll_row + 1 To dw_1.RowCount()
		IF dw_1.Object.lp[ll_i] <= ll_lp THEN
			ll_row_add = ll_i - 1
			EXIT
		END IF
	NEXT
	
	IF ll_row_add = 0 THEN
		ll_row_add = dw_1.RowCount()
	END IF
END IF

ll_lp_ds = dw_copy_main.Object.lp[1]

dw_copy_main.AcceptText()

FOR ll_i = 1 To dw_copy_main.RowCount()
	
	IF ins_copy_type = 0 THEN
		dw_copy_main.Object.lp[ll_i] = dw_copy_main.Object.lp[ll_i] + (ll_lp_ds - 1 - ll_lp)
	ELSEIF ins_copy_type = 1 THEN
		dw_copy_main.Object.lp[ll_i] = dw_copy_main.Object.lp[ll_i] + (ll_lp - ll_lp_ds + 1)
	END IF
	dw_copy_main.Object.iflock[ll_i] = 0
	
NEXT


dw_copy_main.AcceptText()

dw_1.SetRedraw(False)
FOR ll_i = 1 To dw_copy_main.RowCount()
	
	dw_copy_main.RowsCopy (ll_i,ll_i,Primary!,dw_1,ll_row_add + ll_i,Primary!)
	
NEXT
dw_1.SetRedraw(True)

ins_cnt++
mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.对 '+ ls_mtrlcode +' 粘贴已复制的组成物料'




end event

event ue_copy_mx_this();IF ins_ifmod THEN
	MessageBox('系统提示','编辑状态下不能使用复制功能')
	RETURN
END IF

IF ins_ifmod_wp THEN
	MessageBox('系统提示','编辑明细状态下不能使用复制功能')
	RETURN
END IF

Long ll_lp,ll_row,ll_i,ll_j
String ls_mtrlcode

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','请选择要复制清单的半成品')
	RETURN
END IF

ll_lp = dw_1.Object.lp[ll_row]

IF ll_lp = 0 THEN
	MessageBox('系统提示','主产品不能使用复制功能')
	RETURN
END IF

ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]

dw_copy_main.Reset()

FOR ll_i = ll_row To dw_1.RowCount()
	IF ll_i <> ll_row THEN
		IF dw_1.Object.lp[ll_i] <= ll_lp THEN EXIT
	END IF
	
	ll_j++
	dw_1.RowsCopy (ll_i,ll_i,Primary!,dw_copy_main,ll_j,Primary!)
	
NEXT
ins_copy_type = 1
ins_cnt++
mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.复制 '+ ls_mtrlcode +' 及其下级组成物料'


MessageBox('系统提示','复制成功')



end event

event ue_paste_mx_same();IF ins_ifmod THEN
	MessageBox('系统提示','编辑状态下不能使用粘贴功能')
	RETURN
END IF

IF ins_ifmod_wp THEN
	MessageBox('系统提示','编辑明细状态下不能使用粘贴功能')
	RETURN
END IF

Long ll_lp,ll_row,ll_i,ll_j,ll_lp_ds,ll_row_add
String ls_mtrlcode

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','请选择要粘贴清单的半成品')
	return 
END IF

ll_lp = dw_1.Object.lp[ll_row]

if ll_lp = 0 then 
	MessageBox('系统提示','主产品上不能使用本功能')
	RETURN
END IF	

//IF ll_lp <> 0 THEN
//	IF dw_1.Object.ifnewadd[ll_row] <> 1 THEN
//		MessageBox('系统提示','只能在新建的资料或主产品上使用粘贴功能')
//		RETURN
//	END IF
//END IF

ls_mtrlcode =  dw_1.Object.u_mtrldef_mtrlcode[ll_row]

IF dw_copy_main.RowCount() = 0 THEN
	MessageBox('系统提示','没有可粘贴的内容')
	RETURN
END IF

IF ll_row = dw_1.RowCount() THEN
	ll_row_add = ll_row
ELSE
	FOR ll_i = ll_row + 1 To dw_1.RowCount()
		IF dw_1.Object.lp[ll_i] <= ll_lp THEN
			ll_row_add = ll_i - 1
			EXIT
		END IF
	NEXT
	
	IF ll_row_add = 0 THEN
		ll_row_add = dw_1.RowCount()
	END IF
END IF

ll_lp_ds = dw_copy_main.Object.lp[1]

dw_copy_main.AcceptText()

FOR ll_i = 1 To dw_copy_main.RowCount()
	
//	IF ins_copy_type = 0 THEN
		dw_copy_main.Object.lp[ll_i] = dw_copy_main.Object.lp[ll_i] + (ll_lp - ll_lp_ds)
//	ELSEIF ins_copy_type = 1 THEN
//		dw_copy_main.Object.lp[ll_i] = dw_copy_main.Object.lp[ll_i] + (ll_lp - ll_lp_ds + 1)
//	END IF
	dw_copy_main.Object.iflock[ll_i] = 0
	
NEXT


dw_copy_main.AcceptText()

dw_1.SetRedraw(False)
FOR ll_i = 1 To dw_copy_main.RowCount()
	
	dw_copy_main.RowsCopy (ll_i,ll_i,Primary!,dw_1,ll_row_add + ll_i,Primary!)
	
NEXT
dw_1.SetRedraw(True)

ins_cnt++
mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.对 '+ ls_mtrlcode +' 同级粘贴已复制的组成物料'




end event

event ue_templet_ch();IF Not ins_ifmod_wp THEN RETURN

Long ll_row
Long child_row
String ls_mtrlcode
Long ll_mtrlid
ll_row = dw_1.GetRow()

child_row = dw_2.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','没有正确的物料内容')
	RETURN
END IF

IF dw_1.Object.u_mtrldef_mtrlorigin[ll_row] <> 0 THEN
	MessageBox('系统提示','只有自制来源的产品及半成品才能编辑工价表明细,请检查')
	RETURN
END IF

ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]

Long ls_j

IF Not IsValid(w_mtrl_workprice_templet_ch) THEN
	Open(w_mtrl_workprice_templet_ch)
	
	s_workpricetable_array s_ch
	s_ch = Message.PowerObjectParm
	
	dw_2.reset()
	
	FOR ls_j = 1 To  UpperBound(s_ch.proid)
		IF s_ch.proid[ls_j] > 0 THEN //正常返回值则可以取以下值
			
			child_row = dw_2.InsertRow(0)
			
			dw_2.Object.proid[child_row] = s_ch.proid[ls_j]
			dw_2.Object.procode[child_row] = s_ch.procode[ls_j]
			dw_2.Object.u_sc_workprice_proname[child_row] = s_ch.proname[ls_j]
			dw_2.Object.worklevel[child_row] = s_ch.worklevel[ls_j]
			dw_2.Object.techlevel[child_row] = s_ch.techlevel[ls_j]
			dw_2.Object.workhour[child_row] = s_ch.workhour[ls_j]
			dw_2.Object.wrkgrpid[child_row] = s_ch.wrkgrpid[ls_j]
			dw_2.Object.workprice[child_row] = s_ch.workprice[ls_j]
			
			dw_2.Object.u_mtrldef_mtrlcode[child_row] = ls_mtrlcode
			
			
			IF child_row > 1 THEN
				dw_2.Object.proorder[child_row] = dw_2.Object.proorder[child_row - 1] + 1
			END IF
		END IF
	NEXT
	
	dw_2.SetRow(child_row)
	dw_2.ScrollToRow(child_row)
	dw_2.SetFocus()
	IF UpperBound(s_ch.proid) > 0 THEN
		dw_2.SetColumn("workprice")
	END IF
END IF

dw_2.SetRedraw(True)
dw_2.SetFocus()



end event

event ue_wp_u_workqtystr();IF Not ins_ifmod_wp THEN RETURN

dw_2.AcceptText()

String ls_workqtystr
Long ll_row

s_edit_index_tran s_tran_str

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN RETURN

ls_workqtystr = dw_2.Object.u_sc_workprice_u_workqtystr[ll_row]

s_tran_str.b_long = 1 // 0-工价,1-数量
s_tran_str.b_string = ls_workqtystr

OpenWithParm(w_mtrl_workpricestr_compute_edit,s_tran_str)

ls_workqtystr = Message.StringParm

dw_2.Object.u_sc_workprice_u_workqtystr[ll_row] = ls_workqtystr

dw_2.AcceptText()

end event

event ue_wp_workqtystr();IF Not ins_ifmod_wp THEN RETURN

dw_2.AcceptText()

String ls_workqtystr
Long ll_row

s_edit_index_tran s_tran_str

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN RETURN

ls_workqtystr = dw_2.Object.u_sc_workprice_workqtystr[ll_row]

s_tran_str.b_long = 1 // 0-工价,1-数量
s_tran_str.b_string = ls_workqtystr

OpenWithParm(w_mtrl_workpricestr_compute_edit,s_tran_str)

ls_workqtystr = Message.StringParm

dw_2.Object.u_sc_workprice_workqtystr[ll_row] = ls_workqtystr

dw_2.AcceptText()

end event

event ue_wp_u_pricestr();IF Not ins_ifmod_wp THEN RETURN

dw_2.AcceptText()

String ls_pricestr
Long ll_row

s_edit_index_tran s_tran_str

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN RETURN

ls_pricestr = dw_2.Object.u_sc_workprice_u_pricestr[ll_row]

s_tran_str.b_long = 0 // 0-工价,1-数量
s_tran_str.b_string = ls_pricestr

OpenWithParm(w_mtrl_workpricestr_compute_edit,s_tran_str)

ls_pricestr = Message.StringParm

dw_2.Object.u_sc_workprice_u_pricestr[ll_row] = ls_pricestr

dw_2.AcceptText()

end event

event ue_wp_pricestr();IF Not ins_ifmod_wp THEN RETURN

dw_2.AcceptText()

String ls_pricestr
Long ll_row

s_edit_index_tran s_tran_str

ll_row = dw_2.GetRow()

IF ll_row <= 0 THEN RETURN

ls_pricestr = dw_2.Object.u_sc_workprice_pricestr[ll_row]

s_tran_str.b_long = 0 // 0-工价,1-数量
s_tran_str.b_string = ls_pricestr

OpenWithParm(w_mtrl_workpricestr_compute_edit,s_tran_str)

ls_pricestr = Message.StringParm

dw_2.Object.u_sc_workprice_pricestr[ll_row] = ls_pricestr

dw_2.AcceptText()

end event

event ue_import_xls_4();// 导入Excel
Int rslt = 1
String arg_msg
DataStore ds_col30
ds_col30 = Create DataStore

ds_col30.DataObject = 'dw_col30'

If f_readxls(ds_col30,arg_msg) <> 1 Then
	rslt = 0
	Goto ext
End If

Long ll_lp
Long ll_row,ll_row_new
Long cnt
Long ll_cnt

Long ll_mtrlid_p
String ls_mtrlcode_p
String ls_pfcode

Long ll_mtrlid
String ls_mtrlcode
String ls_mtrlname
Int li_mtrlprp
String ls_mtrlmode
String ls_unit
String ls_zxmtrlmode
String ls_mtrlsectype
Int li_statusflag
Int li_statustype
Int li_woodcodeflag
Int li_woodcodetype
Int li_pcodeflag
Int li_pcodetype
String ls_usermtrlmode
Int li_Mtrlorigin
Long ll_dftwrkgrpid
Long ll_scid
Long ll_mtrltypeid
String ls_wrkGrpName
Decimal ld_sonscale, lde_qty
Long ll_wrkgrpid_scll
String ls_col16, ls_col17
Long ll_newrow

String ls_promode,ls_pfgroup,ls_pfgroupmode,ls_pfklmode
Decimal ld_pfgroupqty,lde_qty_mx
String ls_wenli,ls_fengbian,ls_paikong,ls_luoji,ls_penyou

string ls_dscrp
Long ll_modleid
String ls_modlename
String ls_pfgroup_p

Select count(*)
	Into :cnt
	From u_mtrl_wkp_tech_modle;
If sqlca.SQLCode <> 0 Then cnt = 0

If cnt = 1 Then
	Select top 1 modleid,
		modlename
		Into :ll_modleid,
		:ls_modlename
		From u_mtrl_wkp_tech_modle;
	If sqlca.SQLCode <> 0 Then
		ll_modleid = 0
		ls_modlename = ''
	End If
End If

If Not cbx_ifreset.Checked Then
	dw_1.Reset()
	//插入产品
	wf_re_mtrl(0)
End If
dw_1.SetRedraw(False)
For ll_row = 7 To ds_col30.RowCount()
	//明细终止标记
	If Trim(ds_col30.GetItemString(ll_row,14)) = '' And Trim(ds_col30.GetItemString(ll_row,2)) = '' Then Exit
	
	ls_mtrlcode_p = Trim(ds_col30.GetItemString(ll_row,13))
	ls_mtrlname = Trim(ds_col30.GetItemString(ll_row,15))
	ls_mtrlcode = Trim(ds_col30.GetItemString(ll_row,14))
	ld_sonscale = Dec(Trim(ds_col30.GetItemString(ll_row,21)))
	lde_qty = Dec(Trim(ds_col30.GetItemString(ll_row,7))) //部件数量
	lde_qty_mx = Dec(Trim(ds_col30.GetItemString(ll_row,19))) //
	
	If IsNull(ld_sonscale) Then ld_sonscale = 0
	
	If ld_sonscale = 0 Then
		If lde_qty = 0 Then
			ld_sonscale = lde_qty_mx
		Else
			ld_sonscale = lde_qty
		End If
	End If
	
	ls_promode = Trim(ds_col30.GetItemString(ll_row,3))
	ls_pfgroup = Trim(ds_col30.GetItemString(ll_row,2))
	//	ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,5)) + '*'+Trim(ds_col30.GetItemString(ll_row,6))+'*'+Trim(ds_col30.GetItemString(ll_row,7))
	//	ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,16)) + '*'+Trim(ds_col30.GetItemString(ll_row,17))+'*'+Trim(ds_col30.GetItemString(ll_row,18))
	
	ls_pfgroupmode = ''
	ls_pfklmode = ''
	
	If Trim(ds_col30.GetItemString(ll_row,4)) <> '' Then
		ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,4))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,5)) <> '' Then
		If Trim(ls_pfgroupmode) <> '' Then
			ls_pfgroupmode = ls_pfgroupmode + '*'+Trim(ds_col30.GetItemString(ll_row,5))
		Else
			ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,5))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,6)) <> '' Then
		If Trim(ls_pfgroupmode) <> '' Then
			ls_pfgroupmode = ls_pfgroupmode + '*'+Trim(ds_col30.GetItemString(ll_row,6))
		Else
			ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,6))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,16)) <> '' Then
		ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,16))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,17)) <> '' Then
		If Trim(ls_pfklmode) <> '' Then
			ls_pfklmode = ls_pfklmode + '*'+Trim(ds_col30.GetItemString(ll_row,17))
		Else
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,17))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,18)) <> '' Then
		If Trim(ls_pfklmode) <> '' Then
			ls_pfklmode = ls_pfklmode + '*'+Trim(ds_col30.GetItemString(ll_row,18))
		Else
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,18))
		End If
	End If
	
	ls_wenli = Trim(ds_col30.GetItemString(ll_row,8))
	ls_fengbian = Trim(ds_col30.GetItemString(ll_row,9))
	ls_paikong = Trim(ds_col30.GetItemString(ll_row,10))
	ls_luoji = Trim(ds_col30.GetItemString(ll_row,11))
	ls_penyou = Trim(ds_col30.GetItemString(ll_row,12))
	
	ls_dscrp = Trim(ds_col30.GetItemString(ll_row,27))
	
	ls_col16 = Trim(ds_col30.GetItemString(ll_row,16))
	ls_col17 = Trim(ds_col30.GetItemString(ll_row,17))
	
	If ls_pfgroup = '' Then
		ls_pfgroup = ls_pfgroup_p + '封边带'
	Else
		ls_pfgroup_p = ls_pfgroup
	End If
	
	
	
	//	If lde_qty <> 0 Then
	//		ld_sonscale = ld_sonscale / lde_qty
	//	End If
	
	//	If ls_mtrlcode_p <> "" Then
	//		
	//		cnt = 0
	//		Select COUNT(*)
	//			Into :cnt
	//			From u_mtrldef
	//			Where (mtrlcode = :ls_mtrlcode_p)
	//			And (mtrlorigin = 0);
	//		If sqlca.SQLCode = -1 Then
	//			rslt = 0
	//			arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_p + ',部件查询资料定义表失败,' + sqlca.SQLErrText
	//			Goto ext
	//		ElseIf sqlca.SQLCode = 100 Then
	//			cnt = 0
	//		End If
	//		
	//		If cnt > 1 Then
	//			rslt = 0
	//			arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_p + ',部件资料定义有' + String(cnt) + '条重复记录'
	//			Goto ext
	//		ElseIf cnt = 1 Then //插入部件
	//			Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid_p,:ll_dftwrkgrpid,:li_mtrlorigin
	//				From u_mtrldef Where mtrlcode = :ls_mtrlcode_p;
	//			If sqlca.SQLCode <> 0 Then
	//				rslt = 0
	//				arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
	//				Goto ext
	//			End If
	//			
	//			If ll_dftwrkgrpid = 0 Then
	//				rslt = 0
	//				arg_msg = '第' + String(ll_row) + '行父代码资料的默认生产车间未设置,请检查'
	//				Goto ext
	//			Else
	//				Select top 1 wrkgrpid Into :ll_wrkgrpid_scll
	//					From u_sc_workgroup
	//					Where storageid = :ll_dftwrkgrpid
	//					Order By wrkgrpcode;
	//				If sqlca.SQLCode <> 0 Then
	//					rslt = 0
	//					arg_msg = '第' + String(ll_row) + '行父代码资料默认生产车间第1工组失败,可能资料未定义' + sqlca.SQLErrText
	//					Goto ext
	//				End If
	//			End If
	//			//插入部件
	//			wf_add_row(ll_mtrlid_p, '', 1, 1, arg_msg,ll_row_new)
	//		ElseIf cnt = 0 Then //插入新行-部件
	//			//插入部件
	//			wf_add_row_null(ls_mtrlcode_p, 1, 1, arg_msg,ll_row_new)
	//		End If
	//		
	//		If ll_row_new > 0 Then
	//			dw_1.Object.u_prdpf_sonpfcode[ll_row_new] = ins_pfcode
	//			dw_1.Object.u_prdpf_dipztype[ll_row_new] =  3
	//			dw_1.Object.u_prdpf_ifover[ll_row_new] =  1
	//		End If
	//		
	//	End If //ls_mtrlcode_p <> ""
	//	
	
	//插入新行
	cnt = 0
	Select COUNT(*)
		Into :cnt
		From u_mtrldef
		Where u_mtrldef.mtrlcode = :ls_mtrlcode;
	If sqlca.SQLCode = -1 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料查询资料定义表失败,' + sqlca.SQLErrText
		Goto ext
	ElseIf sqlca.SQLCode = 100 Then
		cnt = 0
	End If
	
	//	If ls_col16 = '' And  ls_col17 = ''  Then
	ll_lp = 1
	//	Else
	//		ll_lp = 2
	//	End If
	
	If cnt > 1 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料资料定义有' + String(cnt) + '条重复记录'
		Goto ext
	ElseIf cnt = 1 Then //插入部件
		Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid,:ll_dftwrkgrpid,:li_mtrlorigin
			From u_mtrldef Where mtrlcode = :ls_mtrlcode;
		If sqlca.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
			Goto ext
		End If
		
		//插入材料
		wf_add_row(ll_mtrlid, '', ll_lp, ld_sonscale, arg_msg,ll_row_new)
		
		If wf_addmx_row(ll_mtrlid,'',ll_lp + 1,ll_row_new + 1 ,ld_sonscale,arg_msg) = 0 Then
			rslt = 0
			Goto ext
		End If
		
	ElseIf cnt = 0 Then //插入新行-部件
		//插入材料
		wf_add_row_null(ls_mtrlname, ll_lp, ld_sonscale, arg_msg,ll_row_new)
	End If
	
	If ll_row_new > 0 Then
		dw_1.Object.u_prdpf_promode[ll_row_new] = ls_promode
		dw_1.Object.u_prdpf_pfgroup[ll_row_new] = ls_pfgroup
		dw_1.Object.u_prdpf_pfgroupmode[ll_row_new] = ls_pfgroupmode
		dw_1.Object.u_prdpf_pfgroupqty[ll_row_new] = lde_qty
		dw_1.Object.u_prdpf_pfklmode[ll_row_new] = ls_pfklmode
		
		dw_1.Object.u_prdpf_wenli[ll_row_new] = ls_wenli
		dw_1.Object.u_prdpf_fengbian[ll_row_new] = ls_fengbian
		dw_1.Object.u_prdpf_paikong[ll_row_new] = ls_paikong
		dw_1.Object.u_prdpf_luoji[ll_row_new] = ls_luoji
		dw_1.Object.u_prdpf_penyou[ll_row_new] = ls_penyou
		
		dw_1.Object.u_prdpf_dscrp[ll_row_new] = ls_dscrp
		//		If ll_lp = 1 Then
		//			dw_1.Object.u_prdpf_dipztype[ll_row_new] =  3
		//			dw_1.Object.u_prdpf_ifover[ll_row_new] =  1
		//		else
		dw_1.Object.u_prdpf_dipztype[ll_row_new] =  -1
		dw_1.Object.u_prdpf_ifover[ll_row_new] =  0
		//		End If
		
		If lde_qty > 0 Then
			dw_1.Object.u_prdpf_modleid[ll_row_new] = ll_modleid
			dw_1.Object.u_prdpf_modlename[ll_row_new] = ls_modlename
		End If
		
	End If
	
Next

ext:

Destroy ds_col30
dw_1.SetRedraw(True)

If rslt = 0 Then
	MessageBox('提示',arg_msg)
End If













end event

event ue_import_xls_5();// 导入Excel
If ins_mtrlid = 0 Then
	MessageBox('系统提示','请先选择产品')
	Return
End If

Int rslt = 1
String arg_msg
DataStore ds_col30
ds_col30 = Create DataStore

ds_col30.DataObject = 'dw_col30'

If f_readxls(ds_col30,arg_msg) <> 1 Then
	rslt = 0
	Goto ext
End If

Long ll_lp
Long ll_row,ll_row_new,ll_row_newmx
Long cnt
Long ll_cnt

Long ll_mtrlid_p
String ls_mtrlcode_p
String ls_pfcode

Long ll_mtrlid
String ls_mtrlcode
String ls_mtrlname
Int li_mtrlprp
String ls_mtrlmode
String ls_unit
String ls_zxmtrlmode
String ls_mtrlsectype
Int li_statusflag
Int li_statustype
Int li_woodcodeflag
Int li_woodcodetype
Int li_pcodeflag
Int li_pcodetype
String ls_usermtrlmode
Int li_Mtrlorigin
Long ll_dftwrkgrpid
Long ll_scid
Long ll_mtrltypeid
String ls_wrkGrpName
Decimal ld_sonscale, lde_qty
Long ll_wrkgrpid_scll
String ls_col16, ls_col17
Long ll_newrow

String ls_promode,ls_pfgroup,ls_pfgroupmode,ls_pfklmode
Decimal ld_pfgroupqty,lde_qty_mx
String ls_wenli,ls_fengbian,ls_paikong,ls_luoji,ls_penyou

String ls_dscrp
Long ll_modleid
String ls_modlename
String ls_pfgroup_p

String ls_mtrlcode_ban,ls_mtrlname_ban
Long ll_lp_add,ll_lp_add_p //用于记录增加胚板/后段板后,对应增加的层级数

String unit_f,mtrlsectype_f,zxmtrlmode_f,usermtrlmode_f,piccode_f
Long mtrltypeid_f,ifselforder_f,ordertype_f,scid_f,dftwrkgrpid_f,mtrlprp_f
Decimal orderdays_f,buydays_f,wfjgdays_f
Long mtrlid_f,dftscllwkpid_f,outtype_f

String unit_a,mtrlsectype_a,zxmtrlmode_a,usermtrlmode_a,piccode_a
Long mtrltypeid_a,ifselforder_a,ordertype_a,scid_a,dftwrkgrpid_a,mtrlprp_a
Decimal orderdays_a,buydays_a,wfjgdays_a
Long mtrlid_a,dftscllwkpid_a,outtype_a

String ls_mb_mtrlcode,ls_wpcode
Boolean lb_ifmb = False //是否有模板编码及是否成功读取模板编码资料
Boolean lb_ifmb_a = False //后段板 是否有模板编码及是否读取数据成功
Long ll_k,ll_row_f,ll_l,ll_j
String ls_procode
String ls_mb_mtrlcode_p //胚板模板
String ls_mb_mtrlcode_a //后段板模板
String ls_promode_lit

Int li_ifyb_mode = 0 //压板模式
String ls_yb_name = '' //压板名称

Long ll_row_r,ll_cnt_r
Long ll_lp_yb = 0,ll_lp_yb_add = 0

DataStore ds_repeat
ds_repeat = Create DataStore
ds_repeat.DataObject = 'ds_mtrl_prdpf_check_repeat'



s_workpricetable arg_s_mx[],arg_s_empty[]

Select count(*)
	Into :cnt
	From u_mtrl_wkp_tech_modle;
If sqlca.SQLCode <> 0 Then cnt = 0

If cnt = 1 Then
	Select top 1 modleid,
		modlename
		Into :ll_modleid,
		:ls_modlename
		From u_mtrl_wkp_tech_modle;
	If sqlca.SQLCode <> 0 Then
		ll_modleid = 0
		ls_modlename = ''
	End If
End If

If Not cbx_ifreset.Checked Then
	dw_1.Reset()
	//插入产品
	wf_re_mtrl(0)
	dw_copy.Reset()
End If


dw_1.SetRedraw(False)
For ll_row = 7 To ds_col30.RowCount()
	//明细终止标记
	If Trim(ds_col30.GetItemString(ll_row,14)) = '' And Trim(ds_col30.GetItemString(ll_row,15)) = '' And Trim(ds_col30.GetItemString(ll_row,2)) = '' Then Exit
	
	ls_mtrlname = Trim(ds_col30.GetItemString(ll_row,15))
	ls_mtrlcode = Trim(ds_col30.GetItemString(ll_row,14))
	ld_sonscale = Dec(Trim(ds_col30.GetItemString(ll_row,21)))
	lde_qty = Dec(Trim(ds_col30.GetItemString(ll_row,7))) //部件数量
	lde_qty_mx = Dec(Trim(ds_col30.GetItemString(ll_row,19))) //
	
	ls_mb_mtrlcode = Trim(ds_col30.GetItemString(ll_row,13))
	
	
	
	If IsNull(ld_sonscale) Then ld_sonscale = 0
	
	If ld_sonscale = 0 Then
		If lde_qty = 0 Then
			ld_sonscale = lde_qty_mx
		Else
			ld_sonscale = lde_qty
		End If
	End If
	
	ls_promode = Trim(ds_col30.GetItemString(ll_row,3))
	
	If Pos(ls_promode,'-') > 0 Then
		ls_promode_lit = Mid(ls_promode,Pos(ls_promode,'-') + 1)
	Else
		ls_promode_lit = ls_promode
	End If
	
	
	ls_pfgroup = Trim(ds_col30.GetItemString(ll_row,2))
	//	ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,5)) + '*'+Trim(ds_col30.GetItemString(ll_row,6))+'*'+Trim(ds_col30.GetItemString(ll_row,7))
	//	ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,16)) + '*'+Trim(ds_col30.GetItemString(ll_row,17))+'*'+Trim(ds_col30.GetItemString(ll_row,18))
	
	ls_pfgroupmode = ''
	ls_pfklmode = ''
	
	If Trim(ds_col30.GetItemString(ll_row,4)) <> '' Then
		ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,4))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,5)) <> '' Then
		If Trim(ls_pfgroupmode) <> '' Then
			ls_pfgroupmode = ls_pfgroupmode + '*'+Trim(ds_col30.GetItemString(ll_row,5))
		Else
			ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,5))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,6)) <> '' Then
		If Trim(ls_pfgroupmode) <> '' Then
			ls_pfgroupmode = ls_pfgroupmode + '*'+Trim(ds_col30.GetItemString(ll_row,6))
		Else
			ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,6))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,16)) <> '' Then
		ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,16))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,17)) <> '' Then
		If Trim(ls_pfklmode) <> '' Then
			ls_pfklmode = ls_pfklmode + '*'+Trim(ds_col30.GetItemString(ll_row,17))
		Else
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,17))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,18)) <> '' Then
		If Trim(ls_pfklmode) <> '' Then
			ls_pfklmode = ls_pfklmode + '*'+Trim(ds_col30.GetItemString(ll_row,18))
		Else
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,18))
		End If
	End If
	
	ls_wenli = Trim(ds_col30.GetItemString(ll_row,8))
	ls_fengbian = Trim(ds_col30.GetItemString(ll_row,9))
	ls_paikong = Trim(ds_col30.GetItemString(ll_row,10))
	ls_luoji = Trim(ds_col30.GetItemString(ll_row,11))
	ls_penyou = Trim(ds_col30.GetItemString(ll_row,12))
	
	ls_dscrp = Trim(ds_col30.GetItemString(ll_row,27))
	
	ls_col16 = Trim(ds_col30.GetItemString(ll_row,16))
	ls_col17 = Trim(ds_col30.GetItemString(ll_row,17))
	
	//读取模板编码资料
	If Pos(ls_mb_mtrlcode,'+') = 0 Then
		//如果模板编码不含+号,ls_mb_mtrlcode属于胚板模块编码
		ls_mb_mtrlcode_p = ls_mb_mtrlcode
		
	Else
		//如果含+号,+号前是后段板模板编码,+号后是胚板编码
		ls_mb_mtrlcode_a = Mid(ls_mb_mtrlcode , 1 , Pos(ls_mb_mtrlcode , '+') - 1 )
		ls_mb_mtrlcode_p = Mid(ls_mb_mtrlcode , Pos(ls_mb_mtrlcode , '+') + 1)
		
	End If
	
	//读取胚板模板编码信息
	lb_ifmb = False
	If ls_mb_mtrlcode_p <> '' Then
		Select unit,
			mtrltypeid,
			mtrlsectype,
			zxmtrlmode,
			usermtrlmode,
			piccode,
			ifselforder,
			ordertype,
			scid,
			dftwrkgrpid,
			orderdays,
			buydays,
			wfjgdays,
			mtrlid,
			dftscllwkpid,
			mtrlprp,
			outtype
			Into :unit_f,
			:mtrltypeid_f,
			:mtrlsectype_f,
			:zxmtrlmode_f,
			:usermtrlmode_f,
			:piccode_f,
			:ifselforder_f,
			:ordertype_f,
			:scid_f,
			:dftwrkgrpid_f,
			:orderdays_f,
			:buydays_f,
			:wfjgdays_f,
			:mtrlid_f,
			:dftscllwkpid_f,
			:mtrlprp_f,
			:outtype_f
			From u_mtrldef
			Where mtrlcode = :ls_mb_mtrlcode_p;
		If sqlca.SQLCode <> 0 Then
			lb_ifmb = False
		Else
			lb_ifmb = True
		End If
	End If
	
	//读取后段板模板编码信息
	lb_ifmb_a = False
	If ls_mb_mtrlcode_a <> '' Then
		Select unit,
			mtrltypeid,
			mtrlsectype,
			zxmtrlmode,
			usermtrlmode,
			piccode,
			ifselforder,
			ordertype,
			scid,
			dftwrkgrpid,
			orderdays,
			buydays,
			wfjgdays,
			mtrlid,
			dftscllwkpid,
			mtrlprp,
			outtype
			Into :unit_a,
			:mtrltypeid_a,
			:mtrlsectype_a,
			:zxmtrlmode_a,
			:usermtrlmode_a,
			:piccode_a,
			:ifselforder_a,
			:ordertype_a,
			:scid_a,
			:dftwrkgrpid_a,
			:orderdays_a,
			:buydays_a,
			:wfjgdays_a,
			:mtrlid_a,
			:dftscllwkpid_a,
			:mtrlprp_a,
			:outtype_a
			From u_mtrldef
			Where mtrlcode = :ls_mb_mtrlcode_a;
		If sqlca.SQLCode <> 0 Then
			lb_ifmb_a = False
		Else
			lb_ifmb_a = True
		End If
	End If
	
	
	
	
	//
	
	
	//增加胚板/后段板
	//在圆方导入的excel如果<封边信息>栏有录入信息则为加工板
	//如果<封边信息>栏无录入信息且在<喷油（吸塑）信息>栏录入了喷油则为喷油板
	//如果<封边信息>栏无录入信息且在<喷油（吸塑）信息>栏录入了吸塑则为吸塑板
	//喷油板,吸塑板 均为后段板
	
	//编码规则：
	//后段板编码：包件编码+部件代号
	//胚板编码：包件编码+部件代号+特殊标识号
	
	
	
	
	
	ll_lp_add = 0
	If ls_pfgroup <> '' Then //And (ls_fengbian <> '' Or ls_fengbian = '' And ls_penyou <> '' ) Then
		
		If li_ifyb_mode = 1 Then
			//如果进入压板模式,对比本行部件名称是否与压板名称匹配
			If Left(ls_pfgroup,Len(ls_yb_name)) = ls_yb_name Then
				//如匹配,本行部件是压板组料,属于压板下级
				ll_lp_yb_add = ll_lp_yb
			Else
				//如果不匹配,退出压板模式
				li_ifyb_mode = 0
				ll_lp_yb_add = 0
			End If
			
		Else
			ll_lp_yb_add = 0
			
		End If
		
		
		//新需求:压板均为胚板 20150310
		If Not (ls_fengbian = '' And ls_penyou <> '') or (ls_mtrlcode = '' And ls_mtrlname = '压板') Then //ls_fengbian <> '' Then
			//胚板(只增加一层)
			ll_lp_add = 1 + ll_lp_yb_add
			
			If ls_mtrlcode = '' And ls_mtrlname = '压板' Then
				//本物料为压板, 下级相关组料层级归到本物料下
				li_ifyb_mode = 1
				ls_yb_name = ls_pfgroup
				ll_lp_yb = 1
			End If
		Else
			//后段板(增加后段板-胚板,两层)
			ll_lp_add = 2 + ll_lp_yb_add
			
			//新需求:压板均为胚板 20150310 这段不会再执行
			If ls_mtrlcode = '' And ls_mtrlname = '压板' Then
				//本物料为压板, 下级相关组料层级归到本物料下
				li_ifyb_mode = 1
				ls_yb_name = ls_pfgroup
				ll_lp_yb = 2
			End If
			///
			
			//增加后段板代码
			ls_mtrlcode_ban = ins_mtrlcode + '_' + ls_promode_lit //ls_promode  ////需求变更:物料清单导入界面生成的板件编码不用型号，只取部件代号'-'后面部分【优适】 dyy 20141110
			ls_mtrlname_ban = ls_pfgroup + '(后段)'
			
			//检查相同部件编号但不同板件材料的情况
			If ds_repeat.Find('mtrlcode_ban = "'+ls_mtrlcode_ban+'" and mtrlcode = "'+ls_mtrlcode+'"',1,ds_repeat.RowCount()) = 0 Then
				ll_row_r = ds_repeat.InsertRow(0)
				ds_repeat.Object.mtrlcode_ban[ll_row_r] = ls_mtrlcode_ban
				ds_repeat.Object.mtrlcode[ll_row_r] = ls_mtrlcode
			End If
			
			ds_repeat.SetFilter('mtrlcode_ban = "'+ls_mtrlcode_ban+'"')
			ds_repeat.Filter()
			
			ll_cnt_r = ds_repeat.RowCount()
			
			If ll_cnt_r > 1 Then
				ls_mtrlcode_ban = ls_mtrlcode_ban + '('+String(ll_cnt_r)+')'
			End If
			
			ds_repeat.SetFilter('')
			ds_repeat.Filter()
			
			//// //
			
			If ls_mtrlcode_ban <> "" Then
				
				cnt = 0
				Select COUNT(*)
					Into :cnt
					From u_mtrldef
					Where (mtrlcode = :ls_mtrlcode_ban)
					And (mtrlorigin = 0);
				If sqlca.SQLCode = -1 Then
					rslt = 0
					arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_ban + ',部件查询资料定义表失败,' + sqlca.SQLErrText
					Goto ext
				ElseIf sqlca.SQLCode = 100 Then
					cnt = 0
				End If
				
				If cnt > 1 Then
					rslt = 0
					arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_ban + ',部件资料定义有' + String(cnt) + '条重复记录'
					Goto ext
				ElseIf cnt = 1 Then //插入部件
					Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid_p,:ll_dftwrkgrpid,:li_mtrlorigin
						From u_mtrldef Where mtrlcode = :ls_mtrlcode_ban;
					If sqlca.SQLCode <> 0 Then
						rslt = 0
						arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
						Goto ext
					End If
					
					//					If ll_dftwrkgrpid = 0 Then
					//						rslt = 0
					//						arg_msg = '第' + String(ll_row) + '行父代码资料的默认生产车间未设置,请检查'
					//						Goto ext
					//					Else
					//						Select top 1 wrkgrpid Into :ll_wrkgrpid_scll
					//							From u_sc_workgroup
					//							Where storageid = :ll_dftwrkgrpid
					//							Order By wrkgrpcode;
					//						If sqlca.SQLCode <> 0 Then
					//							rslt = 0
					//							arg_msg = '第' + String(ll_row) + '行父代码资料默认生产车间第1工组失败,可能资料未定义' + sqlca.SQLErrText
					//							Goto ext
					//						End If
					//					End If
					//插入部件
					wf_add_row(ll_mtrlid_p, '', 1, lde_qty, arg_msg,ll_row_new)
				ElseIf cnt = 0 Then //插入新行-部件
					//插入部件
					wf_add_row_null(ls_mtrlname_ban, 1, lde_qty, arg_msg,ll_row_new)
					
					If ll_row_new > 0 Then
						dw_1.Object.u_mtrldef_mtrlcode[ll_row_new] = ls_mtrlcode_ban
						dw_1.Object.u_mtrldef_mtrlorigin[ll_row_new] =  0
						dw_1.Object.u_mtrldef_mtrlprp[ll_row_new] =  0
						dw_1.Object.u_mtrldef_unit[ll_row_new] =  '块'
						//						dw_1.Object.u_prdpf_pfgroup[ll_row_new] =  ls_mtrlname_ban
						//						dw_1.Object.u_prdpf_promode[ll_row_new] =  ls_promode
						dw_1.Object.u_prdpf_pfgroupqty[ll_row_new] =  lde_qty
						dw_1.Object.u_prdpf_sonpfcode[ll_row_new] =  '[常规]'
						//						dw_1.Object.u_prdpf_pfgroupmode[ll_row_new] = ls_pfgroupmode
						dw_1.Object.u_mtrldef_mtrlmode[ll_row_new] = ls_pfgroupmode
						dw_1.Object.u_prdpf_wenli[ll_row_new] = ls_wenli
						dw_1.Object.u_prdpf_fengbian[ll_row_new] = ls_fengbian
						dw_1.Object.u_prdpf_paikong[ll_row_new] = ls_paikong
						dw_1.Object.u_prdpf_luoji[ll_row_new] = ls_luoji
						dw_1.Object.u_prdpf_penyou[ll_row_new] = ls_penyou
						
						dw_1.Object.u_mtrldef_ban_wenli[ll_row_new] = ls_wenli
						dw_1.Object.u_mtrldef_ban_fengbian[ll_row_new] = ls_fengbian
						dw_1.Object.u_mtrldef_ban_paikong[ll_row_new] = ls_paikong
						dw_1.Object.u_mtrldef_ban_luoji[ll_row_new] = ls_luoji
						dw_1.Object.u_mtrldef_ban_penyou[ll_row_new] = ls_penyou
						dw_1.Object.u_mtrldef_ban_gydscrp[ll_row_new] = ls_dscrp
						dw_1.Object.u_mtrldef_ban_promode[ll_row_new] = ls_promode
						dw_1.Object.u_mtrldef_ban_pfklmode[ll_row_new] = ls_pfklmode
						
						dw_1.Object.u_prdpf_dscrp[ll_row_new] = ls_dscrp
						
						dw_1.Object.u_mtrldef_ifselforder[ll_row_new] = 2
						
						dw_1.Object.ifnewadd[ll_row_new] = 1
						dw_1.Object.u_mtrldef_bantype[ll_row_new] = 2
						//套用模板编码资料信息
						If lb_ifmb_a Then
							dw_1.Object.u_mtrldef_unit[ll_row_new] = unit_a
							dw_1.Object.u_mtrldef_mtrltypeid[ll_row_new] = mtrltypeid_a
							dw_1.Object.u_mtrldef_mtrlsectype[ll_row_new] = mtrlsectype_a
							dw_1.Object.u_mtrldef_zxmtrlmode[ll_row_new] = zxmtrlmode_a
							dw_1.Object.u_mtrldef_usermtrlmode[ll_row_new] = usermtrlmode_a
							dw_1.Object.u_mtrldef_piccode[ll_row_new] = piccode_a
							dw_1.Object.u_mtrldef_ifselforder[ll_row_new] = ifselforder_a
							dw_1.Object.u_mtrldef_ordertype[ll_row_new] = ordertype_a
							dw_1.Object.u_mtrldef_scid[ll_row_new] = scid_a
							dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row_new] = dftwrkgrpid_a
							
							dw_1.Object.u_mtrldef_orderdays[ll_row_new] = orderdays_a
							dw_1.Object.u_mtrldef_buydays[ll_row_new] = buydays_a
							dw_1.Object.u_mtrldef_wfjgdays[ll_row_new] = wfjgdays_a
							
							dw_1.Object.u_mtrldef_mtrlprp[ll_row_new] =  mtrlprp_a
							dw_1.Object.u_mtrldef_outtype[ll_row_new] =  outtype_a
							
							dw_1.Object.u_PrdPF_wrkgrpid[ll_row_new] = dftscllwkpid_a
							
							dw_1.Object.mb_mtrlcode[ll_row_new] = ls_mb_mtrlcode_a
							dw_1.Object.mb_mtrlid[ll_row_new] = mtrlid_a
							
							
						End If
						
					End If
					
					//处理工价表_后段(如果有模板编码,使用模板编码的工价表,并按[cbx_wp_pack 按清单说明自动生成包件工价表]决定是否解释清单备注到工价表)
					dw_2.Reset()
					If lb_ifmb Then
						ls_wpcode = f_get_dft_wp(mtrlid_a)
						dw_2.Retrieve(mtrlid_a,ls_wpcode)
					End If
					
					If cbx_wp_pack.Checked Then
						If Trim(ls_dscrp) <> '' Then
							arg_s_mx = arg_s_empty
							f_cmp_proname(ls_dscrp,arg_s_mx)
							
							For ll_k = 1 To UpperBound(arg_s_mx)
								cnt++
								
								//							ll_row_f = dw_2.Find('procode = "'+arg_s_mx[ll_k].procode + '_' + ls_promode+'"',1,dw_2.RowCount())
								ll_row_f = dw_2.Find('procode = "'+arg_s_mx[ll_k].procode+'"',1,dw_2.RowCount())
								
								If ll_row_f = 0 Then
									//2014-09-15 需求变更: 模板工价表没有的工序,即使备注有,也不插入(优适), 屏蔽以下代码
									//2014-09-20 需求再变更: 旧模式要插入,新模式不插入,所以增加cbx由用户自由控制,解除屏蔽以下代码
									//2014-10-28 增加需求:如果工序有定义工价公式的，导入时将默认工式导入到工价表的工价公式
									If cbx_wp_add.Checked Then
										ll_row_newmx = dw_2.InsertRow(0)
										
										dw_2.Object.proorder[ll_row_newmx] = cnt
										dw_2.Object.procode[ll_row_newmx] = arg_s_mx[ll_k].procode // + '_' + ls_promode
										dw_2.Object.u_sc_workprice_proname[ll_row_newmx] = arg_s_mx[ll_k].proname // + '_' + ls_pfgroup
										dw_2.Object.wrkgrpid[ll_row_newmx] = arg_s_mx[ll_k].wrkgrpid
										dw_2.Object.u_sc_workprice_pricestr[ll_row_newmx] = arg_s_mx[ll_k].pricestr
										If Trim(arg_s_mx[ll_k].pricestr) <> '' Then
											dw_2.Object.workprice[ll_row_newmx] = 0
										Else
											dw_2.Object.workprice[ll_row_newmx] = arg_s_mx[ll_k].workprice
										End If
										dw_2.Object.workqty[ll_row_newmx] = 1
										dw_2.Object.lsxtype[ll_row_newmx] = 1
									End If
								Else
									dw_2.Object.wrkgrpid[ll_row_f] = arg_s_mx[ll_k].wrkgrpid
									dw_2.Object.u_sc_workprice_pricestr[ll_row_f] = arg_s_mx[ll_k].pricestr
									If Trim(arg_s_mx[ll_k].pricestr) <> '' Then
										dw_2.Object.workprice[ll_row_f] = 0
									Else
										dw_2.Object.workprice[ll_row_f] = arg_s_mx[ll_k].workprice
									End If
								End If
								
							Next
							
						End If
					End If
					
					ll_j = 0
					For ll_l = 1 To dw_2.RowCount()
						ls_procode = dw_2.Object.procode[ll_l]
						dw_2.Object.u_mtrldef_mtrlcode[ll_l] = ls_mtrlcode_ban
						dw_2.AcceptText()
						
						If dw_copy.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_ban + "' and procode = '"+ls_procode+"'", 1, dw_copy.RowCount()) > 0 Then Continue
						
						ll_j++
						dw_2.RowsCopy (ll_l,ll_l,Primary!,dw_copy,ll_j,Primary!)
					Next
					dw_1.Object.ifmod_wp[ll_row_new] = 1
					//处理工价表_后段(完)
					
				End If
			End If
			//增加后段板代码(完)
			
		End If
		
		//增加胚板代码
		ls_mtrlcode_ban = ins_mtrlcode + '_' + ls_promode_lit + '_P' //ls_promode + '_P' ////需求变更:物料清单导入界面生成的板件编码不用型号，只取部件代号'-'后面部分【优适】 dyy 20141110
		ls_mtrlname_ban = ls_pfgroup
		
		//检查相同部件编号但不同板件材料的情况
		If ds_repeat.Find('mtrlcode_ban = "'+ls_mtrlcode_ban+'" and mtrlcode = "'+ls_mtrlcode+'"',1,ds_repeat.RowCount()) = 0 Then
			ll_row_r = ds_repeat.InsertRow(0)
			ds_repeat.Object.mtrlcode_ban[ll_row_r] = ls_mtrlcode_ban
			ds_repeat.Object.mtrlcode[ll_row_r] = ls_mtrlcode
		End If
		
		ds_repeat.SetFilter('mtrlcode_ban = "'+ls_mtrlcode_ban+'"')
		ds_repeat.Filter()
		
		ll_cnt_r = ds_repeat.RowCount()
		
		If ll_cnt_r > 1 Then
			ls_mtrlcode_ban = ls_mtrlcode_ban + '('+String(ll_cnt_r)+')'
		End If
		
		ds_repeat.SetFilter('')
		ds_repeat.Filter()
		
		//// //
		
		If ls_mtrlcode_ban <> "" Then
			
			cnt = 0
			Select COUNT(*)
				Into :cnt
				From u_mtrldef
				Where (mtrlcode = :ls_mtrlcode_ban)
				And (mtrlorigin = 0);
			If sqlca.SQLCode = -1 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_ban + ',部件查询资料定义表失败,' + sqlca.SQLErrText
				Goto ext
			ElseIf sqlca.SQLCode = 100 Then
				cnt = 0
			End If
			
			If cnt > 1 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_ban + ',部件资料定义有' + String(cnt) + '条重复记录'
				Goto ext
			ElseIf cnt = 1 Then //插入部件
				Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid_p,:ll_dftwrkgrpid,:li_mtrlorigin
					From u_mtrldef Where mtrlcode = :ls_mtrlcode_ban;
				If sqlca.SQLCode <> 0 Then
					rslt = 0
					arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
					Goto ext
				End If
				
				//				If ll_dftwrkgrpid = 0 Then
				//					rslt = 0
				//					arg_msg = '第' + String(ll_row) + '行父代码资料的默认生产车间未设置,请检查'
				//					Goto ext
				//				Else
				//					Select top 1 wrkgrpid Into :ll_wrkgrpid_scll
				//						From u_sc_workgroup
				//						Where storageid = :ll_dftwrkgrpid
				//						Order By wrkgrpcode;
				//					If sqlca.SQLCode <> 0 Then
				//						rslt = 0
				//						arg_msg = '第' + String(ll_row) + '行父代码资料默认生产车间第1工组失败,可能资料未定义' + sqlca.SQLErrText
				//						Goto ext
				//					End If
				//				End If
				//插入部件
				wf_add_row(ll_mtrlid_p, '', ll_lp_add, lde_qty, arg_msg,ll_row_new)
			ElseIf cnt = 0 Then //插入新行-部件
				//插入部件
				wf_add_row_null(ls_mtrlname_ban, ll_lp_add, lde_qty, arg_msg,ll_row_new)
				
				If ll_row_new > 0 Then
					dw_1.Object.u_mtrldef_mtrlcode[ll_row_new] = ls_mtrlcode_ban
					dw_1.Object.u_mtrldef_mtrlorigin[ll_row_new] =  0
					dw_1.Object.u_mtrldef_mtrlprp[ll_row_new] =  0
					dw_1.Object.u_mtrldef_unit[ll_row_new] =  '块'
					//					dw_1.Object.u_prdpf_pfgroup[ll_row_new] =  ls_mtrlname_ban
					//					dw_1.Object.u_prdpf_promode[ll_row_new] =  ls_promode
					dw_1.Object.u_prdpf_pfgroupqty[ll_row_new] =  lde_qty
					dw_1.Object.u_prdpf_sonpfcode[ll_row_new] =  '[常规]'
					//					dw_1.Object.u_prdpf_pfgroupmode[ll_row_new] = ls_pfgroupmode
					dw_1.Object.u_mtrldef_mtrlmode[ll_row_new] = ls_pfgroupmode
					dw_1.Object.u_prdpf_wenli[ll_row_new] = ls_wenli
					dw_1.Object.u_prdpf_fengbian[ll_row_new] = ls_fengbian
					dw_1.Object.u_prdpf_paikong[ll_row_new] = ls_paikong
					dw_1.Object.u_prdpf_luoji[ll_row_new] = ls_luoji
					dw_1.Object.u_prdpf_penyou[ll_row_new] = ls_penyou
					
					dw_1.Object.u_mtrldef_ban_wenli[ll_row_new] = ls_wenli
					dw_1.Object.u_mtrldef_ban_fengbian[ll_row_new] = ls_fengbian
					dw_1.Object.u_mtrldef_ban_paikong[ll_row_new] = ls_paikong
					dw_1.Object.u_mtrldef_ban_luoji[ll_row_new] = ls_luoji
					dw_1.Object.u_mtrldef_ban_penyou[ll_row_new] = ls_penyou
					dw_1.Object.u_mtrldef_ban_gydscrp[ll_row_new] = ls_dscrp
					dw_1.Object.u_mtrldef_ban_promode[ll_row_new] = ls_promode
					dw_1.Object.u_mtrldef_ban_pfklmode[ll_row_new] = ls_pfklmode
					
					dw_1.Object.u_prdpf_dscrp[ll_row_new] = ls_dscrp
					
					dw_1.Object.u_mtrldef_ifselforder[ll_row_new] = 2
					
					dw_1.Object.ifnewadd[ll_row_new] = 1
					dw_1.Object.u_mtrldef_bantype[ll_row_new] = 1
					//套用模板编码资料信息
					If lb_ifmb Then
						dw_1.Object.u_mtrldef_unit[ll_row_new] = unit_f
						dw_1.Object.u_mtrldef_mtrltypeid[ll_row_new] = mtrltypeid_f
						dw_1.Object.u_mtrldef_mtrlsectype[ll_row_new] = mtrlsectype_f
						dw_1.Object.u_mtrldef_zxmtrlmode[ll_row_new] = zxmtrlmode_f
						dw_1.Object.u_mtrldef_usermtrlmode[ll_row_new] = usermtrlmode_f
						dw_1.Object.u_mtrldef_piccode[ll_row_new] = piccode_f
						dw_1.Object.u_mtrldef_ifselforder[ll_row_new] = ifselforder_f
						dw_1.Object.u_mtrldef_ordertype[ll_row_new] = ordertype_f
						dw_1.Object.u_mtrldef_scid[ll_row_new] = scid_f
						dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row_new] = dftwrkgrpid_f
						
						dw_1.Object.u_mtrldef_orderdays[ll_row_new] = orderdays_f
						dw_1.Object.u_mtrldef_buydays[ll_row_new] = buydays_f
						dw_1.Object.u_mtrldef_wfjgdays[ll_row_new] = wfjgdays_f
						
						dw_1.Object.u_mtrldef_mtrlprp[ll_row_new] =  mtrlprp_f
						dw_1.Object.u_mtrldef_outtype[ll_row_new] =  outtype_f
						
						dw_1.Object.u_PrdPF_wrkgrpid[ll_row_new] = dftscllwkpid_f
						
						dw_1.Object.mb_mtrlcode[ll_row_new] = ls_mb_mtrlcode_p
						dw_1.Object.mb_mtrlid[ll_row_new] = mtrlid_f
					End If
					
				End If
				
				//处理工价表(如果有模板编码,使用模板编码的工价表,并按[cbx_wp_pack 按清单说明自动生成包件工价表]决定是否解释清单备注到工价表)
				dw_2.Reset()
				If lb_ifmb Then
					ls_wpcode = f_get_dft_wp(mtrlid_f)
					dw_2.Retrieve(mtrlid_f,ls_wpcode)
				End If
				
				If cbx_wp_pack.Checked Then
					If Trim(ls_dscrp) <> '' Then
						arg_s_mx = arg_s_empty
						f_cmp_proname(ls_dscrp,arg_s_mx)
						
						For ll_k = 1 To UpperBound(arg_s_mx)
							cnt++
							
							//							ll_row_f = dw_2.Find('procode = "'+arg_s_mx[ll_k].procode + '_' + ls_promode+'"',1,dw_2.RowCount())
							ll_row_f = dw_2.Find('procode = "'+arg_s_mx[ll_k].procode+'"',1,dw_2.RowCount())
							
							If ll_row_f = 0 Then
								//2014-09-15 需求变更: 模板工价表没有的工序,即使备注有,也不插入(优适), 屏蔽以下代码
								//2014-09-20 需求再变更: 旧模式要插入,新模式不插入,所以增加cbx由用户自由控制,解除屏蔽以下代码
								//2014-10-28 增加需求:如果工序有定义工价公式的，导入时将默认工式导入到工价表的工价公式
								If cbx_wp_add.Checked Then
									ll_row_newmx = dw_2.InsertRow(0)
									
									dw_2.Object.proorder[ll_row_newmx] = cnt
									dw_2.Object.procode[ll_row_newmx] = arg_s_mx[ll_k].procode // + '_' + ls_promode
									dw_2.Object.u_sc_workprice_proname[ll_row_newmx] = arg_s_mx[ll_k].proname // + '_' + ls_pfgroup
									dw_2.Object.wrkgrpid[ll_row_newmx] = arg_s_mx[ll_k].wrkgrpid
									dw_2.Object.u_sc_workprice_pricestr[ll_row_newmx] = arg_s_mx[ll_k].pricestr
									If Trim(arg_s_mx[ll_k].pricestr) <> '' Then
										dw_2.Object.workprice[ll_row_newmx] = 0
									Else
										dw_2.Object.workprice[ll_row_newmx] = arg_s_mx[ll_k].workprice
									End If
									dw_2.Object.workqty[ll_row_newmx] = 1
									dw_2.Object.lsxtype[ll_row_newmx] = 1
								End If
							Else
								dw_2.Object.wrkgrpid[ll_row_f] = arg_s_mx[ll_k].wrkgrpid
								dw_2.Object.u_sc_workprice_pricestr[ll_row_f] = arg_s_mx[ll_k].pricestr
								If Trim(arg_s_mx[ll_k].pricestr) <> '' Then
									dw_2.Object.workprice[ll_row_f] = 0
								Else
									dw_2.Object.workprice[ll_row_f] = arg_s_mx[ll_k].workprice
								End If
							End If
							
						Next
						
					End If
				End If
				
				ll_j = 0
				For ll_l = 1 To dw_2.RowCount()
					ls_procode = dw_2.Object.procode[ll_l]
					dw_2.Object.u_mtrldef_mtrlcode[ll_l] = ls_mtrlcode_ban
					dw_2.AcceptText()
					
					If dw_copy.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_ban + "' and procode = '"+ls_procode+"'", 1, dw_copy.RowCount()) > 0 Then Continue
					
					ll_j++
					dw_2.RowsCopy (ll_l,ll_l,Primary!,dw_copy,ll_j,Primary!)
				Next
				dw_1.Object.ifmod_wp[ll_row_new] = 1
				//处理工价表(完)
			End If
		End If
		//增加胚板代码(完)
		
		
	End If
	
	
	If ls_pfgroup = '' Then
		ls_pfgroup = ls_pfgroup_p + '封边带'
		ll_lp_add = ll_lp_add_p
	Else
		ls_pfgroup_p = ls_pfgroup
		ll_lp_add_p = ll_lp_add
	End If
	
	If Not (ls_mtrlcode = '' And ls_mtrlname = '压板') Then
		//插入新行
		cnt = 0
		Select COUNT(*)
			Into :cnt
			From u_mtrldef
			Where u_mtrldef.mtrlcode = :ls_mtrlcode;
		If sqlca.SQLCode = -1 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料查询资料定义表失败,' + sqlca.SQLErrText
			Goto ext
		ElseIf sqlca.SQLCode = 100 Then
			cnt = 0
		End If
		
		ll_lp = ll_lp_add + 1
		
		If cnt > 1 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料资料定义有' + String(cnt) + '条重复记录'
			Goto ext
		ElseIf cnt = 1 Then //插入部件
			Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid,:ll_dftwrkgrpid,:li_mtrlorigin
				From u_mtrldef Where mtrlcode = :ls_mtrlcode;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
				Goto ext
			End If
			
			//插入材料
			wf_add_row(ll_mtrlid, '', ll_lp, ld_sonscale, arg_msg,ll_row_new)
			
			If wf_addmx_row(ll_mtrlid,'',ll_lp + 1,ll_row_new + 1 ,ld_sonscale,arg_msg) = 0 Then
				rslt = 0
				Goto ext
			End If
			
		ElseIf cnt = 0 Then //插入新行-部件
			//插入材料
			wf_add_row_null(ls_mtrlname, ll_lp, ld_sonscale, arg_msg,ll_row_new)
		End If
		
		If ll_row_new > 0 Then
			//		dw_1.Object.u_prdpf_promode[ll_row_new] = ls_promode
			//		dw_1.Object.u_prdpf_pfgroup[ll_row_new] = ls_pfgroup
			//		dw_1.Object.u_prdpf_pfgroupmode[ll_row_new] = ls_pfgroupmode
			dw_1.Object.u_prdpf_pfgroupqty[ll_row_new] = lde_qty
			dw_1.Object.u_prdpf_pfklmode[ll_row_new] = ls_pfklmode
			
			dw_1.Object.u_prdpf_wenli[ll_row_new] = ls_wenli
			dw_1.Object.u_prdpf_fengbian[ll_row_new] = ls_fengbian
			dw_1.Object.u_prdpf_paikong[ll_row_new] = ls_paikong
			dw_1.Object.u_prdpf_luoji[ll_row_new] = ls_luoji
			dw_1.Object.u_prdpf_penyou[ll_row_new] = ls_penyou
			
			dw_1.Object.u_prdpf_dscrp[ll_row_new] = ls_dscrp
			//		If ll_lp = 1 Then
			//			dw_1.Object.u_prdpf_dipztype[ll_row_new] =  3
			//			dw_1.Object.u_prdpf_ifover[ll_row_new] =  1
			//		else
			dw_1.Object.u_prdpf_dipztype[ll_row_new] =  -1
			dw_1.Object.u_prdpf_ifover[ll_row_new] =  0
			//		End If
			
			If lde_qty > 0 Then
				dw_1.Object.u_prdpf_modleid[ll_row_new] = ll_modleid
				dw_1.Object.u_prdpf_modlename[ll_row_new] = ls_modlename
			End If
			
		End If
	End If
	
Next

ext:
Destroy ds_repeat
Destroy ds_col30
dw_1.SetRedraw(True)

If rslt = 0 Then
	MessageBox('提示',arg_msg)
End If








end event

event ue_import_xls_6();// 导入Excel
If ins_mtrlid = 0 Then
	MessageBox('系统提示','请先选择产品')
	Return
End If

Int rslt = 1
String arg_msg
DataStore ds_col30
ds_col30 = Create DataStore

ds_col30.DataObject = 'dw_col30'

If f_readxls(ds_col30,arg_msg) <> 1 Then
	rslt = 0
	Goto ext
End If

Long ll_lp
Long ll_row,ll_row_new,ll_row_newmx
Long cnt
Long ll_cnt

Long ll_mtrlid_p
String ls_mtrlcode_p
String ls_pfcode

Long ll_mtrlid
String ls_mtrlcode
String ls_mtrlname
Int li_mtrlprp
String ls_mtrlmode
String ls_unit
String ls_zxmtrlmode
String ls_mtrlsectype
Int li_statusflag
Int li_statustype
Int li_woodcodeflag
Int li_woodcodetype
Int li_pcodeflag
Int li_pcodetype
String ls_usermtrlmode
Int li_Mtrlorigin
Long ll_dftwrkgrpid
Long ll_scid
Long ll_mtrltypeid
String ls_wrkGrpName
Decimal ld_sonscale, lde_qty
Long ll_wrkgrpid_scll
String ls_col16, ls_col17
Long ll_newrow

String ls_promode,ls_pfgroup,ls_pfgroupmode,ls_pfklmode
Decimal ld_pfgroupqty,lde_qty_mx
String ls_wenli,ls_fengbian,ls_paikong,ls_luoji,ls_penyou

String ls_dscrp
Long ll_modleid
String ls_modlename
String ls_pfgroup_p

String ls_mtrlcode_ban,ls_mtrlname_ban
Long ll_lp_add,ll_lp_add_p //用于记录增加胚板/后段板后,对应增加的层级数

String unit_f,mtrlsectype_f,zxmtrlmode_f,usermtrlmode_f,piccode_f
Long mtrltypeid_f,ifselforder_f,ordertype_f,scid_f,dftwrkgrpid_f,mtrlprp_f
Decimal orderdays_f,buydays_f,wfjgdays_f
Long mtrlid_f,dftscllwkpid_f,outtype_f

String unit_a,mtrlsectype_a,zxmtrlmode_a,usermtrlmode_a,piccode_a
Long mtrltypeid_a,ifselforder_a,ordertype_a,scid_a,dftwrkgrpid_a,mtrlprp_a
Decimal orderdays_a,buydays_a,wfjgdays_a
Long mtrlid_a,dftscllwkpid_a,outtype_a

String ls_mb_mtrlcode,ls_wpcode
Boolean lb_ifmb = False //是否有模板编码及是否成功读取模板编码资料
Boolean lb_ifmb_a = False //后段板 是否有模板编码及是否读取数据成功
Long ll_k,ll_row_f,ll_l,ll_j
String ls_procode
String ls_mb_mtrlcode_p //胚板模板
String ls_mb_mtrlcode_a //后段板模板
String ls_direction //摆放方向(文本)
Int li_direction //摆放方向(数值 0 -横  1-竖)
String ls_pid //序号(文本)
Decimal ld_midu,ld_cubage,ld_cubage_cl,ld_length,ld_width,ld_length_cl,ld_width_cl
string ls_dscrp_mtrl

s_workpricetable arg_s_mx[],arg_s_empty[]

If Not cbx_ifreset.Checked Then
	dw_1.Reset()
	//插入产品
	wf_re_mtrl(0)
End If


dw_1.SetRedraw(False)
For ll_row = 8 To ds_col30.RowCount()
	//明细终止标记(部件名称及材料名称都为空)
	If Trim(ds_col30.GetItemString(ll_row,9)) = '' And Trim(ds_col30.GetItemString(ll_row,2)) = '' Then Exit
	
	ls_pid = Trim(ds_col30.GetItemString(ll_row,1))
	ls_mtrlname = Trim(ds_col30.GetItemString(ll_row,9))
	//	ls_mtrlcode = Trim(ds_col30.GetItemString(ll_row,14))
	
	Select mtrlcode,midu Into :ls_mtrlcode,:ld_midu
		From u_mtrldef
		Where mtrlname = :ls_mtrlname;
	If sqlca.SQLCode <> 0 Then ls_mtrlcode = ''
	
	ld_sonscale = Dec(Trim(ds_col30.GetItemString(ll_row,16)))
	lde_qty = Dec(Trim(ds_col30.GetItemString(ll_row,7))) //部件数量
	lde_qty_mx = Dec(Trim(ds_col30.GetItemString(ll_row,16))) //
	
	ld_cubage = (Dec(Trim(ds_col30.GetItemString(ll_row,4))) * Dec(Trim(ds_col30.GetItemString(ll_row,5))) * Dec(Trim(ds_col30.GetItemString(ll_row,6))) ) / 1000000000
	ld_cubage_cl = (Dec(Trim(ds_col30.GetItemString(ll_row,13))) * Dec(Trim(ds_col30.GetItemString(ll_row,14))) * Dec(Trim(ds_col30.GetItemString(ll_row,15))) ) / 1000000000
	
	ld_length = Dec(Trim(ds_col30.GetItemString(ll_row,4)))
	ld_width = Dec(Trim(ds_col30.GetItemString(ll_row,5)))
	
	ld_length_cl = Dec(Trim(ds_col30.GetItemString(ll_row,13)))
	ld_width_cl = Dec(Trim(ds_col30.GetItemString(ll_row,14)))
	
	ls_dscrp_mtrl = Trim(ds_col30.GetItemString(ll_row,17))
	
	ls_direction = Trim(ds_col30.GetItemString(ll_row,12))
	
	If ls_direction = '竖' Then
		li_direction = 1
	Else
		li_direction = 0
	End If
	
	//模板编码
	ls_mb_mtrlcode = Trim(ds_col30.GetItemString(ll_row,18))
	
	If IsNull(ld_sonscale) Then ld_sonscale = 0
	
	If ld_sonscale = 0 Then
		If lde_qty = 0 Then
			ld_sonscale = lde_qty_mx
		Else
			ld_sonscale = lde_qty
		End If
	End If
	
	ls_promode = Trim(ds_col30.GetItemString(ll_row,3))
	ls_pfgroup = Trim(ds_col30.GetItemString(ll_row,2))
	//	ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,5)) + '*'+Trim(ds_col30.GetItemString(ll_row,6))+'*'+Trim(ds_col30.GetItemString(ll_row,7))
	//	ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,16)) + '*'+Trim(ds_col30.GetItemString(ll_row,17))+'*'+Trim(ds_col30.GetItemString(ll_row,18))
	
	ls_pfgroupmode = ''
	ls_pfklmode = ''
	
	If Trim(ds_col30.GetItemString(ll_row,4)) <> '' Then
		ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,4))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,5)) <> '' Then
		If Trim(ls_pfgroupmode) <> '' Then
			ls_pfgroupmode = ls_pfgroupmode + '*'+Trim(ds_col30.GetItemString(ll_row,5))
		Else
			ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,5))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,6)) <> '' Then
		If Trim(ls_pfgroupmode) <> '' Then
			ls_pfgroupmode = ls_pfgroupmode + '*'+Trim(ds_col30.GetItemString(ll_row,6))
		Else
			ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,6))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,13)) <> '' Then
		ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,13))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,14)) <> '' Then
		If Trim(ls_pfklmode) <> '' Then
			ls_pfklmode = ls_pfklmode + '*'+Trim(ds_col30.GetItemString(ll_row,14))
		Else
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,14))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,15)) <> '' Then
		If Trim(ls_pfklmode) <> '' Then
			ls_pfklmode = ls_pfklmode + '*'+Trim(ds_col30.GetItemString(ll_row,15))
		Else
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,15))
		End If
	End If
	
	ls_fengbian = Trim(ds_col30.GetItemString(ll_row,11))
	
	ls_dscrp = Trim(ds_col30.GetItemString(ll_row,17))
	
	//读取胚板模板编码信息
	lb_ifmb = False
	If ls_mb_mtrlcode <> '' Then
		Select unit,
			mtrltypeid,
			mtrlsectype,
			zxmtrlmode,
			usermtrlmode,
			piccode,
			ifselforder,
			ordertype,
			scid,
			dftwrkgrpid,
			orderdays,
			buydays,
			wfjgdays,
			mtrlid,
			dftscllwkpid,
			mtrlprp,
			outtype
			Into :unit_f,
			:mtrltypeid_f,
			:mtrlsectype_f,
			:zxmtrlmode_f,
			:usermtrlmode_f,
			:piccode_f,
			:ifselforder_f,
			:ordertype_f,
			:scid_f,
			:dftwrkgrpid_f,
			:orderdays_f,
			:buydays_f,
			:wfjgdays_f,
			:mtrlid_f,
			:dftscllwkpid_f,
			:mtrlprp_f,
			:outtype_f
			From u_mtrldef
			Where mtrlcode = :ls_mb_mtrlcode;
		If sqlca.SQLCode <> 0 Then
			lb_ifmb = False
		Else
			lb_ifmb = True
		End If
	End If
	
	
	If ls_pfgroup <> ''  Then
		
		ll_lp_add = 1
		
		//增加胚板代码
		If ls_promode <> '' Then
			ls_mtrlcode_ban = ins_mtrlcode + '_' + ls_promode
		Else
			ls_mtrlcode_ban = ins_mtrlcode + '_part' +ls_pid
		End If
		
		ls_mtrlname_ban = ls_pfgroup
		
		If ls_mtrlcode_ban <> "" Then
			
			cnt = 0
			Select COUNT(*)
				Into :cnt
				From u_mtrldef
				Where (mtrlcode = :ls_mtrlcode_ban)
				And (mtrlorigin = 0);
			If sqlca.SQLCode = -1 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_ban + ',部件查询资料定义表失败,' + sqlca.SQLErrText
				Goto ext
			ElseIf sqlca.SQLCode = 100 Then
				cnt = 0
			End If
			
			If cnt > 1 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_ban + ',部件资料定义有' + String(cnt) + '条重复记录'
				Goto ext
			ElseIf cnt = 1 Then //插入部件
				Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid_p,:ll_dftwrkgrpid,:li_mtrlorigin
					From u_mtrldef Where mtrlcode = :ls_mtrlcode_ban;
				If sqlca.SQLCode <> 0 Then
					rslt = 0
					arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
					Goto ext
				End If
				
				//插入部件
				wf_add_row(ll_mtrlid_p, '', ll_lp_add, lde_qty, arg_msg,ll_row_new)
				dw_1.Object.u_mtrldef_bantype[ll_row_new] = 1
				
				dw_1.Object.u_mtrldef_midu[ll_row_new] = ld_midu
				dw_1.Object.cubage[ll_row_new] = ld_cubage
				
				dw_1.Object.Length[ll_row_new] = ld_length
				dw_1.Object.Width[ll_row_new] = ld_width
			ElseIf cnt = 0 Then //插入新行-部件
				//插入部件
				wf_add_row_null(ls_mtrlname_ban, ll_lp_add, lde_qty, arg_msg,ll_row_new)
				
				If ll_row_new > 0 Then
					dw_1.Object.u_mtrldef_mtrlcode[ll_row_new] = ls_mtrlcode_ban
					dw_1.Object.u_mtrldef_mtrlorigin[ll_row_new] =  0
					dw_1.Object.u_mtrldef_mtrlprp[ll_row_new] =  0
					dw_1.Object.u_mtrldef_unit[ll_row_new] =  '块'
					//					dw_1.Object.u_prdpf_pfgroup[ll_row_new] =  ls_mtrlname_ban
					//					dw_1.Object.u_prdpf_promode[ll_row_new] =  ls_promode
					dw_1.Object.u_prdpf_pfgroupqty[ll_row_new] =  lde_qty
					dw_1.Object.u_prdpf_sonpfcode[ll_row_new] =  '[常规]'
					//					dw_1.Object.u_prdpf_pfgroupmode[ll_row_new] = ls_pfgroupmode
					dw_1.Object.u_mtrldef_mtrlmode[ll_row_new] = ls_pfgroupmode
					dw_1.Object.u_prdpf_wenli[ll_row_new] = ls_wenli
					dw_1.Object.u_prdpf_fengbian[ll_row_new] = ls_fengbian
					dw_1.Object.u_prdpf_paikong[ll_row_new] = ls_paikong
					dw_1.Object.u_prdpf_luoji[ll_row_new] = ls_luoji
					dw_1.Object.u_prdpf_penyou[ll_row_new] = ls_penyou
					
					dw_1.Object.u_mtrldef_ban_wenli[ll_row_new] = ls_wenli
					dw_1.Object.u_mtrldef_ban_fengbian[ll_row_new] = ls_fengbian
					dw_1.Object.u_mtrldef_ban_paikong[ll_row_new] = ls_paikong
					dw_1.Object.u_mtrldef_ban_luoji[ll_row_new] = ls_luoji
					dw_1.Object.u_mtrldef_ban_penyou[ll_row_new] = ls_penyou
					dw_1.Object.u_mtrldef_ban_gydscrp[ll_row_new] = ls_dscrp
					dw_1.Object.u_mtrldef_ban_promode[ll_row_new] = ls_promode
					dw_1.Object.u_mtrldef_ban_direction[ll_row_new] = li_direction
					dw_1.Object.u_mtrldef_ban_pfklmode[ll_row_new] = ls_pfklmode
					
					dw_1.Object.u_prdpf_dscrp[ll_row_new] = ls_dscrp
					
					dw_1.Object.u_mtrldef_ifselforder[ll_row_new] = 2
					
					dw_1.Object.ifnewadd[ll_row_new] = 1
					dw_1.Object.u_mtrldef_bantype[ll_row_new] = 1
					
					dw_1.Object.u_mtrldef_midu[ll_row_new] = ld_midu
					dw_1.Object.cubage[ll_row_new] = ld_cubage
					
					dw_1.Object.Length[ll_row_new] = ld_length
					dw_1.Object.Width[ll_row_new] = ld_width
					
					dw_1.Object.u_mtrldef_dscrp[ll_row_new] = ls_dscrp_mtrl
					
					//套用模板编码资料信息
					If lb_ifmb Then
						dw_1.Object.u_mtrldef_unit[ll_row_new] = unit_f
						dw_1.Object.u_mtrldef_mtrltypeid[ll_row_new] = mtrltypeid_f
						dw_1.Object.u_mtrldef_mtrlsectype[ll_row_new] = mtrlsectype_f
						dw_1.Object.u_mtrldef_zxmtrlmode[ll_row_new] = zxmtrlmode_f
						dw_1.Object.u_mtrldef_usermtrlmode[ll_row_new] = usermtrlmode_f
						dw_1.Object.u_mtrldef_piccode[ll_row_new] = piccode_f
						dw_1.Object.u_mtrldef_ifselforder[ll_row_new] = ifselforder_f
						dw_1.Object.u_mtrldef_ordertype[ll_row_new] = ordertype_f
						dw_1.Object.u_mtrldef_scid[ll_row_new] = scid_f
						dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row_new] = dftwrkgrpid_f
						
						dw_1.Object.u_mtrldef_orderdays[ll_row_new] = orderdays_f
						dw_1.Object.u_mtrldef_buydays[ll_row_new] = buydays_f
						dw_1.Object.u_mtrldef_wfjgdays[ll_row_new] = wfjgdays_f
						
						dw_1.Object.u_mtrldef_mtrlprp[ll_row_new] =  mtrlprp_f
						dw_1.Object.u_mtrldef_outtype[ll_row_new] =  outtype_f
						
						dw_1.Object.u_PrdPF_wrkgrpid[ll_row_new] = dftscllwkpid_f
						
						dw_1.Object.mb_mtrlcode[ll_row_new] = ls_mb_mtrlcode
						dw_1.Object.mb_mtrlid[ll_row_new] = mtrlid_f
					End If
				End If
				
				
			End If
		End If
		//增加胚板代码(完)
		
		
	End If
	
	
	ls_pfgroup_p = ls_pfgroup
	ll_lp_add_p = ll_lp_add
	
	//插入新行
	cnt = 0
	Select COUNT(*)
		Into :cnt
		From u_mtrldef
		Where u_mtrldef.mtrlcode = :ls_mtrlcode;
	If sqlca.SQLCode = -1 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料查询资料定义表失败,' + sqlca.SQLErrText
		Goto ext
	ElseIf sqlca.SQLCode = 100 Then
		cnt = 0
	End If
	
	ll_lp = ll_lp_add + 1
	
	If cnt > 1 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料资料定义有' + String(cnt) + '条重复记录'
		Goto ext
	ElseIf cnt = 1 Then //插入部件
		Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid,:ll_dftwrkgrpid,:li_mtrlorigin
			From u_mtrldef Where mtrlcode = :ls_mtrlcode;
		If sqlca.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
			Goto ext
		End If
		
		//插入材料
		wf_add_row(ll_mtrlid, '', ll_lp, ld_sonscale, arg_msg,ll_row_new)
		
		If wf_addmx_row(ll_mtrlid,'',ll_lp + 1,ll_row_new + 1 ,ld_sonscale,arg_msg) = 0 Then
			rslt = 0
			Goto ext
		End If
		
	ElseIf cnt = 0 Then //插入新行-部件
		//插入材料
		wf_add_row_null(ls_mtrlname, ll_lp, ld_sonscale, arg_msg,ll_row_new)
	End If
	
	If ll_row_new > 0 Then
		//		dw_1.Object.u_prdpf_promode[ll_row_new] = ls_promode
		//		dw_1.Object.u_prdpf_pfgroup[ll_row_new] = ls_pfgroup
		//		dw_1.Object.u_prdpf_pfgroupmode[ll_row_new] = ls_pfgroupmode
		dw_1.Object.u_prdpf_pfgroupqty[ll_row_new] = lde_qty
		dw_1.Object.u_prdpf_pfklmode[ll_row_new] = ls_pfklmode
		
		dw_1.Object.u_mtrldef_midu[ll_row_new] = ld_midu
		dw_1.Object.cubage[ll_row_new] = ld_cubage_cl
		
		dw_1.Object.Length[ll_row_new] = ld_length_cl
		dw_1.Object.Width[ll_row_new] = ld_width_cl
		
		dw_1.Object.u_prdpf_wenli[ll_row_new] = ls_wenli
		dw_1.Object.u_prdpf_fengbian[ll_row_new] = ls_fengbian
		dw_1.Object.u_prdpf_paikong[ll_row_new] = ls_paikong
		dw_1.Object.u_prdpf_luoji[ll_row_new] = ls_luoji
		dw_1.Object.u_prdpf_penyou[ll_row_new] = ls_penyou
		
		dw_1.Object.u_prdpf_dscrp[ll_row_new] = ls_dscrp
		//		If ll_lp = 1 Then
		//			dw_1.Object.u_prdpf_dipztype[ll_row_new] =  3
		//			dw_1.Object.u_prdpf_ifover[ll_row_new] =  1
		//		else
		dw_1.Object.u_prdpf_dipztype[ll_row_new] =  -1
		dw_1.Object.u_prdpf_ifover[ll_row_new] =  0
		//		End If
		
	End If
	
Next

ext:

Destroy ds_col30
dw_1.SetRedraw(True)

If rslt = 0 Then
	MessageBox('提示',arg_msg)
End If








end event

event ue_cmp_packinfo();If ins_ifmod = True Then
	MessageBox('系统提示','编辑状态下不能操作')
	Return
End If


If dw_1.Find('lp = 1 and u_mtrldef_ifpack > 0',1,dw_1.RowCount()) = 0 Then
	MessageBox('系统提示','产品直接下级没有包件,不能使用本功能')
	Return
End If

Long ll_i,ll_j,cnt
Decimal ld_cubage,ld_weight,ld_length,ld_width,ld_qty
s_edit_index_tran arg_s_tran

cnt = 0

For ll_i = 1 To dw_1.RowCount()
	If dw_1.Object.lp[ll_i] = 1 And dw_1.Object.u_mtrldef_ifpack[ll_i] > 0 Then
		cnt++
		arg_s_tran.arr_string[cnt] = dw_1.Object.u_mtrldef_mtrlcode[ll_i] //包件编码
		arg_s_tran.arr_string2[cnt] = dw_1.Object.u_mtrldef_mtrlname[ll_i] //包件名称
		
		ld_cubage = 0
		ld_weight = 0
		ld_length = 0
		ld_width = 0
		ld_qty = 0
		
		For ll_j = ll_i + 1 To dw_1.RowCount()
			If dw_1.Object.lp[ll_j] <= 1 Then Exit
			If dw_1.Object.lp[ll_j] <> 2 Then Continue //只考虑包件的直接下级,即板件
			
			ld_cubage = ld_cubage + dw_1.Object.cubage[ll_j] * dw_1.Object.u_prdpf_sonscale[ll_j]
			ld_weight = ld_weight + dw_1.Object.weight_cmp[ll_j] * dw_1.Object.u_prdpf_sonscale[ll_j]
			ld_qty = ld_qty + dw_1.Object.u_prdpf_sonscale[ll_j]
			
			ld_length =  Max(ld_length,dw_1.Object.Length[ll_j])
			ld_width =  Max(ld_width,dw_1.Object.Width[ll_j])
		Next
		
		arg_s_tran.arr_dec[cnt] = ld_cubage
		arg_s_tran.arr_dec2[cnt] = ld_weight
		arg_s_tran.arr_dec3[cnt] = ld_length
		arg_s_tran.arr_dec4[cnt] = ld_width
		arg_s_tran.arr_dec5[cnt] = ld_qty
		
		
	End If
Next

If cnt > 0 Then
	OpenWithParm(w_prdpf_padd_packinfo,arg_s_tran)
End If

end event

event ue_old_to_new();Long ll_i,ll_j,ll_k,ll_l,ll_m
Long ll_row,ll_row_h
String ls_promode,ls_pfgroup,ls_fengbian,ls_penyou,ls_wenli,ls_paikong,ls_luoji,ls_pfklmode
Boolean lb_ifhou = False
Int li_lp_add = 0
Long cnt
Long ll_mtrlid_mb

String unit_a,mtrlsectype_a,zxmtrlmode_a,usermtrlmode_a,piccode_a,mtrlcode_a
Long mtrltypeid_a,ifselforder_a,ordertype_a,scid_a,dftwrkgrpid_a,mtrlprp_a
Decimal orderdays_a,buydays_a,wfjgdays_a
Long mtrlid_a,dftscllwkpid_a,outtype_a
String ls_dscrp
Decimal ld_qty
String ls_wpcode,ls_procode
Long ll_row_f,ll_row_newmx
String ls_mtrlcode_ban
String ls_pfgroupmode
String ls_promode_lit,ls_promode_all
String ls_promode_lit_arr[],ls_promode_all_arr[]
Long ll_mxbt


s_workpricetable arg_s_mx[],arg_s_empty[]


s_edit_index_tran arg_s_tran,arg_s_return

dw_1.AcceptText()

cnt = 0

arg_s_tran.b_string = ins_mtrlcode

For ll_i = 1 To dw_1.RowCount()
	If dw_1.Object.lp[ll_i] <> 1 Or dw_1.Object.u_prdpf_promode[ll_i] = '' Then Continue
	
	cnt++
	arg_s_tran.arr_string[cnt] = dw_1.Object.u_prdpf_promode[ll_i]
	arg_s_tran.arr_string2[cnt] = dw_1.Object.u_prdpf_pfgroup[ll_i]
	arg_s_tran.arr_string3[cnt] = dw_1.Object.u_prdpf_fengbian[ll_i]
	arg_s_tran.arr_string4[cnt] = dw_1.Object.u_prdpf_penyou[ll_i]
	
	ls_promode_all = dw_1.Object.u_prdpf_promode[ll_i]
	
	If Pos(ls_promode_all,'-') > 0 Then
		ls_promode_lit = Mid(ls_promode_all,Pos(ls_promode_all,'-') + 1)
	Else
		ls_promode_lit = ls_promode_all
	End If
	
	For ll_j = 1 To ll_mxbt
		If ls_promode_lit_arr[ll_j] = ls_promode_lit Then
			MessageBox('系统提示',ls_promode_all+' 与 '+ls_promode_all_arr[ll_j]+' "-"后面部分相同,会导致重复,请先修改')
			Return
		End If		
//		If ls_promode_all_arr[ll_j] <> ls_promode_all And ls_promode_lit_arr[ll_j] = ls_promode_lit Then
//			MessageBox('系统提示',ls_promode_all+' 与 '+ls_promode_all_arr[ll_j]+' "-"后面部分相同,会导致重复,请先修改')
//			Return
//		End If
	Next
	
	ll_mxbt++
	ls_promode_all_arr[ll_mxbt] = ls_promode_all
	ls_promode_lit_arr[ll_mxbt] = ls_promode_lit
	
	arg_s_tran.arr_string5[cnt] = ls_promode_lit
	
Next

If cnt = 0 Then
	MessageBox('系统提示','没有符合条件的数据(第1层并且部件代号不为空)')
	Return
End If

OpenWithParm(w_old_to_new_mtrl,arg_s_tran)

arg_s_return = Message.PowerObjectParm

If arg_s_return.b_long = 0 Then Return

dw_1.SetRedraw(False)

For ll_i = 1 To dw_1.RowCount()
	If dw_1.Object.lp[ll_i] <> 1 Or dw_1.Object.u_prdpf_promode[ll_i] = '' Then Continue
	
	ls_promode = dw_1.Object.u_prdpf_promode[ll_i]
	ls_pfgroup = dw_1.Object.u_prdpf_pfgroup[ll_i]
	
	ls_fengbian = dw_1.Object.u_prdpf_fengbian[ll_i]
	ls_penyou = dw_1.Object.u_prdpf_penyou[ll_i]
	ls_wenli = dw_1.Object.u_prdpf_wenli[ll_i]
	ls_paikong = dw_1.Object.u_prdpf_paikong[ll_i]
	ls_luoji = dw_1.Object.u_prdpf_luoji[ll_i]
	ls_pfklmode = dw_1.Object.u_prdpf_pfklmode[ll_i]
	ls_pfgroupmode = dw_1.Object.u_prdpf_pfgroupmode[ll_i]
	
	ld_qty = dw_1.Object.u_prdpf_pfgroupqty[ll_i]
	ls_dscrp = dw_1.Object.u_prdpf_dscrp[ll_i]
	
	
	//判断是否有后段板
	If ls_fengbian = '' And ls_penyou <> '' Then
		lb_ifhou = True
		li_lp_add = 2
	Else
		lb_ifhou = False
		li_lp_add = 1
	End If
	
	
	For ll_j = ll_i To dw_1.RowCount()
		If dw_1.Object.lp[ll_j] = 1 And Pos(dw_1.Object.u_prdpf_pfgroup[ll_j],ls_pfgroup) = 0 Then Exit
		If dw_1.Object.lp[ll_j] = 1 And dw_1.Object.u_prdpf_pfgroup[ll_j] <> ls_pfgroup And Pos(dw_1.Object.u_prdpf_pfgroup[ll_j],'封边') = 0 Then Exit
		
		
		
		dw_1.Object.lp[ll_j] = dw_1.Object.lp[ll_j] + li_lp_add
		
		If dw_1.Object.u_prdpf_pfgroupqty[ll_j] > 0 Then
			dw_1.Object.u_prdpf_pfgroupqty[ll_j] = 1
		End If
		
		dw_1.Object.u_prdpf_fengbian[ll_j] = ''
		dw_1.Object.u_prdpf_penyou[ll_j] = ''
		dw_1.Object.u_prdpf_wenli[ll_j] = ''
		dw_1.Object.u_prdpf_paikong[ll_j] = ''
		dw_1.Object.u_prdpf_luoji[ll_j] = ''
		dw_1.Object.u_prdpf_pfklmode[ll_j] = ''
		dw_1.Object.u_prdpf_pfgroupmode[ll_j]	 = ''
	Next
	
	ll_row = dw_1.InsertRow(ll_i)
	
	dw_1.Object.u_mtrldef_mtrlid[ll_row] = 0
	dw_1.Object.ifnewadd[ll_row] = 1
	dw_1.Object.u_prdpf_sonpfcode[ll_row] = '[常规]'
	
	dw_1.Object.iflock[ll_row] = 0
	If lb_ifhou Then
		dw_1.Object.lp[ll_row]  = 2
	Else
		dw_1.Object.lp[ll_row]  = 1
	End If
	
	ls_mtrlcode_ban = ins_mtrlcode + '_' + ls_promode+'_P'
	
	//	dw_1.Object.u_mtrldef_mtrlcode[ll_row] = ls_mtrlcode_ban //ins_mtrlcode + '_' + ls_promode+'_P'
	//	dw_1.Object.u_mtrldef_mtrlname[ll_row] = ls_pfgroup
	dw_1.Object.u_mtrldef_mtrlmode[ll_row] = ls_pfgroupmode
	dw_1.Object.u_mtrldef_bantype[ll_row] = 1
	dw_1.Object.u_mtrldef_mtrlorigin[ll_row] =  0
	dw_1.Object.u_mtrldef_mtrlprp[ll_row] =  0
	dw_1.Object.u_mtrldef_ifselforder[ll_row] = 2
	dw_1.Object.u_prdpf_pfgroupqty[ll_row] = ld_qty
	dw_1.Object.u_prdpf_sonscale[ll_row] = ld_qty
	dw_1.Object.u_prdpf_dscrp[ll_row] = ls_dscrp
	
	dw_1.Object.u_mtrldef_ban_wenli[ll_row] = ls_wenli
	dw_1.Object.u_mtrldef_ban_fengbian[ll_row] = ls_fengbian
	dw_1.Object.u_mtrldef_ban_paikong[ll_row] = ls_paikong
	dw_1.Object.u_mtrldef_ban_luoji[ll_row] = ls_luoji
	dw_1.Object.u_mtrldef_ban_penyou[ll_row] = ls_penyou
	dw_1.Object.u_mtrldef_ban_gydscrp[ll_row] = ls_dscrp
	dw_1.Object.u_mtrldef_ban_promode[ll_row] = ls_promode
	dw_1.Object.u_mtrldef_ban_pfklmode[ll_row] = ls_pfklmode
	
	// 查询模板编码
	ll_mtrlid_mb = 0
	For ll_k = 1 To UpperBound(arg_s_return.arr_string)
		If ls_promode = arg_s_return.arr_string[ll_k] And ls_pfgroup = arg_s_return.arr_string2[ll_k] And arg_s_return.arr_long2[ll_k] = 0 Then
			ll_mtrlid_mb = arg_s_return.arr_long[ll_k]
			dw_1.Object.u_mtrldef_mtrlcode[ll_row] = arg_s_return.arr_string3[ll_k]
			dw_1.Object.u_mtrldef_mtrlname[ll_row] = arg_s_return.arr_string4[ll_k]
		End If
	Next
	
	If ll_mtrlid_mb > 0 Then
		Select unit,
			mtrltypeid,
			mtrlsectype,
			zxmtrlmode,
			usermtrlmode,
			piccode,
			ifselforder,
			ordertype,
			scid,
			dftwrkgrpid,
			orderdays,
			buydays,
			wfjgdays,
			dftscllwkpid,
			mtrlprp,
			outtype,
			mtrlcode
			Into :unit_a,
			:mtrltypeid_a,
			:mtrlsectype_a,
			:zxmtrlmode_a,
			:usermtrlmode_a,
			:piccode_a,
			:ifselforder_a,
			:ordertype_a,
			:scid_a,
			:dftwrkgrpid_a,
			:orderdays_a,
			:buydays_a,
			:wfjgdays_a,
			:dftscllwkpid_a,
			:mtrlprp_a,
			:outtype_a,
			:mtrlcode_a
			From u_mtrldef
			Where mtrlid = :ll_mtrlid_mb;
		If sqlca.SQLCode = 0 Then
			dw_1.Object.u_mtrldef_unit[ll_row] = unit_a
			dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = mtrltypeid_a
			dw_1.Object.u_mtrldef_mtrlsectype[ll_row] = mtrlsectype_a
			dw_1.Object.u_mtrldef_zxmtrlmode[ll_row] = zxmtrlmode_a
			dw_1.Object.u_mtrldef_usermtrlmode[ll_row] = usermtrlmode_a
			dw_1.Object.u_mtrldef_piccode[ll_row] = piccode_a
			dw_1.Object.u_mtrldef_ifselforder[ll_row] = ifselforder_a
			dw_1.Object.u_mtrldef_ordertype[ll_row] = ordertype_a
			dw_1.Object.u_mtrldef_scid[ll_row] = scid_a
			dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = dftwrkgrpid_a
			
			dw_1.Object.u_mtrldef_orderdays[ll_row] = orderdays_a
			dw_1.Object.u_mtrldef_buydays[ll_row] = buydays_a
			dw_1.Object.u_mtrldef_wfjgdays[ll_row] = wfjgdays_a
			
			dw_1.Object.u_mtrldef_mtrlprp[ll_row] =  mtrlprp_a
			dw_1.Object.u_mtrldef_outtype[ll_row] =  outtype_a
			
			dw_1.Object.u_PrdPF_wrkgrpid[ll_row] = dftscllwkpid_a
			
			dw_1.Object.mb_mtrlcode[ll_row] = mtrlcode_a
			dw_1.Object.mb_mtrlid[ll_row] = ll_mtrlid_mb
			
		End If
	End If
	
	//处理工价表(如果有模板编码,使用模板编码的工价表,并按[cbx_wp_pack 按清单说明自动生成包件工价表]决定是否解释清单备注到工价表)
	dw_2.Reset()
	If ll_mtrlid_mb > 0  Then
		ls_wpcode = f_get_dft_wp(ll_mtrlid_mb)
		dw_2.Retrieve(ll_mtrlid_mb,ls_wpcode)
	End If
	
	If cbx_wp_pack.Checked Then
		If Trim(ls_dscrp) <> '' Then
			arg_s_mx = arg_s_empty
			f_cmp_proname(ls_dscrp,arg_s_mx)
			
			For ll_k = 1 To UpperBound(arg_s_mx)
				cnt++
				
				//							ll_row_f = dw_2.Find('procode = "'+arg_s_mx[ll_k].procode + '_' + ls_promode+'"',1,dw_2.RowCount())
				ll_row_f = dw_2.Find('procode = "'+arg_s_mx[ll_k].procode+'"',1,dw_2.RowCount())
				
				If ll_row_f = 0 Then
					//2014-09-15 需求变更: 模板工价表没有的工序,即使备注有,也不插入(优适), 屏蔽以下代码
					//2014-09-20 需求再变更: 旧模式要插入,新模式不插入,所以增加cbx由用户自由控制,解除屏蔽以下代码
					//2014-10-28 增加需求:如果工序有定义工价公式的，导入时将默认工式导入到工价表的工价公式
					If cbx_wp_add.Checked Then
						ll_row_newmx = dw_2.InsertRow(0)
						
						dw_2.Object.proorder[ll_row_newmx] = cnt
						dw_2.Object.procode[ll_row_newmx] = arg_s_mx[ll_k].procode // + '_' + ls_promode
						dw_2.Object.u_sc_workprice_proname[ll_row_newmx] = arg_s_mx[ll_k].proname // + '_' + ls_pfgroup
						dw_2.Object.wrkgrpid[ll_row_newmx] = arg_s_mx[ll_k].wrkgrpid
						dw_2.Object.u_sc_workprice_pricestr[ll_row_newmx] = arg_s_mx[ll_k].pricestr
						If Trim(arg_s_mx[ll_k].pricestr) <> '' Then
							dw_2.Object.workprice[ll_row_newmx] = 0
						Else
							dw_2.Object.workprice[ll_row_newmx] = arg_s_mx[ll_k].workprice
						End If
						dw_2.Object.workqty[ll_row_newmx] = 1
						dw_2.Object.lsxtype[ll_row_newmx] = 1
					End If
				Else
					dw_2.Object.wrkgrpid[ll_row_f] = arg_s_mx[ll_k].wrkgrpid
					dw_2.Object.u_sc_workprice_pricestr[ll_row_f] = arg_s_mx[ll_k].pricestr
					If Trim(arg_s_mx[ll_k].pricestr) <> '' Then
						dw_2.Object.workprice[ll_row_f] = 0
					Else
						dw_2.Object.workprice[ll_row_f] = arg_s_mx[ll_k].workprice
					End If
				End If
				
			Next
			
		End If
		
	End If
	
	ll_m = 0
	For ll_l = 1 To dw_2.RowCount()
		ls_procode = dw_2.Object.procode[ll_l]
		dw_2.Object.u_mtrldef_mtrlcode[ll_l] = ls_mtrlcode_ban
		dw_2.AcceptText()
		
		If dw_copy.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_ban + "' and procode = '"+ls_procode+"'", 1, dw_copy.RowCount()) > 0 Then Continue
		
		ll_m++
		dw_2.RowsCopy (ll_l,ll_l,Primary!,dw_copy,ll_m,Primary!)
	Next
	dw_1.Object.ifmod_wp[ll_row] = 1
	/// //
	
	
	If lb_ifhou Then
		ll_row_h = dw_1.InsertRow(ll_row)
		
		dw_1.Object.u_mtrldef_mtrlid[ll_row_h] = 0
		dw_1.Object.ifnewadd[ll_row_h] = 1
		dw_1.Object.u_prdpf_sonpfcode[ll_row_h] = '[常规]'
		
		dw_1.Object.iflock[ll_row_h] = 0
		dw_1.Object.lp[ll_row_h]  = 1
		//		dw_1.Object.u_mtrldef_mtrlcode[ll_row_h] = ins_mtrlcode + '_' + ls_promode
		//		dw_1.Object.u_mtrldef_mtrlname[ll_row_h] = ls_pfgroup+'(后段)'
		dw_1.Object.u_mtrldef_mtrlmode[ll_row_h] = ls_pfgroupmode
		dw_1.Object.u_mtrldef_bantype[ll_row_h] = 2
		dw_1.Object.u_mtrldef_mtrlorigin[ll_row_h] =  0
		dw_1.Object.u_mtrldef_mtrlprp[ll_row_h] =  0
		dw_1.Object.u_mtrldef_ifselforder[ll_row_h] = 2
		dw_1.Object.u_prdpf_pfgroupqty[ll_row_h] = ld_qty
		dw_1.Object.u_prdpf_sonscale[ll_row_h] = ld_qty
		dw_1.Object.u_prdpf_dscrp[ll_row_h] = ls_dscrp
		
		dw_1.Object.u_mtrldef_ban_wenli[ll_row_h] = ls_wenli
		dw_1.Object.u_mtrldef_ban_fengbian[ll_row_h] = ls_fengbian
		dw_1.Object.u_mtrldef_ban_paikong[ll_row_h] = ls_paikong
		dw_1.Object.u_mtrldef_ban_luoji[ll_row_h] = ls_luoji
		dw_1.Object.u_mtrldef_ban_penyou[ll_row_h] = ls_penyou
		dw_1.Object.u_mtrldef_ban_gydscrp[ll_row_h] = ls_dscrp
		dw_1.Object.u_mtrldef_ban_promode[ll_row_h] = ls_promode
		dw_1.Object.u_mtrldef_ban_pfklmode[ll_row_h] = ls_pfklmode
		
		// 查询模板编码
		ll_mtrlid_mb = 0
		For ll_k = 1 To UpperBound(arg_s_return.arr_string)
			If ls_promode = arg_s_return.arr_string[ll_k] And ls_pfgroup = arg_s_return.arr_string2[ll_k] And arg_s_return.arr_long2[ll_k] = 1 Then
				ll_mtrlid_mb = arg_s_return.arr_long[ll_k]
				dw_1.Object.u_mtrldef_mtrlcode[ll_row_h] = arg_s_return.arr_string3[ll_k]
				dw_1.Object.u_mtrldef_mtrlname[ll_row_h] = arg_s_return.arr_string4[ll_k]
			End If
		Next
		
		If ll_mtrlid_mb > 0 Then
			Select unit,
				mtrltypeid,
				mtrlsectype,
				zxmtrlmode,
				usermtrlmode,
				piccode,
				ifselforder,
				ordertype,
				scid,
				dftwrkgrpid,
				orderdays,
				buydays,
				wfjgdays,
				dftscllwkpid,
				mtrlprp,
				outtype,
				mtrlcode
				Into :unit_a,
				:mtrltypeid_a,
				:mtrlsectype_a,
				:zxmtrlmode_a,
				:usermtrlmode_a,
				:piccode_a,
				:ifselforder_a,
				:ordertype_a,
				:scid_a,
				:dftwrkgrpid_a,
				:orderdays_a,
				:buydays_a,
				:wfjgdays_a,
				:dftscllwkpid_a,
				:mtrlprp_a,
				:outtype_a,
				:mtrlcode_a
				From u_mtrldef
				Where mtrlid = :ll_mtrlid_mb;
			If sqlca.SQLCode = 0 Then
				dw_1.Object.u_mtrldef_unit[ll_row_h] = unit_a
				dw_1.Object.u_mtrldef_mtrltypeid[ll_row_h] = mtrltypeid_a
				dw_1.Object.u_mtrldef_mtrlsectype[ll_row_h] = mtrlsectype_a
				dw_1.Object.u_mtrldef_zxmtrlmode[ll_row_h] = zxmtrlmode_a
				dw_1.Object.u_mtrldef_usermtrlmode[ll_row_h] = usermtrlmode_a
				dw_1.Object.u_mtrldef_piccode[ll_row_h] = piccode_a
				dw_1.Object.u_mtrldef_ifselforder[ll_row_h] = ifselforder_a
				dw_1.Object.u_mtrldef_ordertype[ll_row_h] = ordertype_a
				dw_1.Object.u_mtrldef_scid[ll_row_h] = scid_a
				dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row_h] = dftwrkgrpid_a
				
				dw_1.Object.u_mtrldef_orderdays[ll_row_h] = orderdays_a
				dw_1.Object.u_mtrldef_buydays[ll_row_h] = buydays_a
				dw_1.Object.u_mtrldef_wfjgdays[ll_row_h] = wfjgdays_a
				
				dw_1.Object.u_mtrldef_mtrlprp[ll_row_h] =  mtrlprp_a
				dw_1.Object.u_mtrldef_outtype[ll_row_h] =  outtype_a
				
				dw_1.Object.u_PrdPF_wrkgrpid[ll_row_h] = dftscllwkpid_a
				
				dw_1.Object.mb_mtrlcode[ll_row_h] = mtrlcode_a
				dw_1.Object.mb_mtrlid[ll_row_h] = ll_mtrlid_mb
				
			End If
		End If
		
		
		//处理工价表(如果有模板编码,使用模板编码的工价表,并按[cbx_wp_pack 按清单说明自动生成包件工价表]决定是否解释清单备注到工价表)
		dw_2.Reset()
		If ll_mtrlid_mb > 0  Then
			ls_wpcode = f_get_dft_wp(ll_mtrlid_mb)
			dw_2.Retrieve(ll_mtrlid_mb,ls_wpcode)
		End If
		
		If cbx_wp_pack.Checked Then
			If Trim(ls_dscrp) <> '' Then
				arg_s_mx = arg_s_empty
				f_cmp_proname(ls_dscrp,arg_s_mx)
				
				For ll_k = 1 To UpperBound(arg_s_mx)
					cnt++
					
					//							ll_row_f = dw_2.Find('procode = "'+arg_s_mx[ll_k].procode + '_' + ls_promode+'"',1,dw_2.RowCount())
					ll_row_f = dw_2.Find('procode = "'+arg_s_mx[ll_k].procode+'"',1,dw_2.RowCount())
					
					If ll_row_f = 0 Then
						//2014-09-15 需求变更: 模板工价表没有的工序,即使备注有,也不插入(优适), 屏蔽以下代码
						//2014-09-20 需求再变更: 旧模式要插入,新模式不插入,所以增加cbx由用户自由控制,解除屏蔽以下代码
						If cbx_wp_add.Checked Then
							ll_row_newmx = dw_2.InsertRow(0)
							
							dw_2.Object.proorder[ll_row_newmx] = cnt
							dw_2.Object.procode[ll_row_newmx] = arg_s_mx[ll_k].procode // + '_' + ls_promode
							dw_2.Object.u_sc_workprice_proname[ll_row_newmx] = arg_s_mx[ll_k].proname // + '_' + ls_pfgroup
							dw_2.Object.wrkgrpid[ll_row_newmx] = arg_s_mx[ll_k].wrkgrpid
							
							dw_2.Object.u_sc_workprice_pricestr[ll_row_newmx] = arg_s_mx[ll_k].pricestr
							If Trim(arg_s_mx[ll_k].pricestr) <> '' Then
								dw_2.Object.workprice[ll_row_newmx] = 0
							Else
								dw_2.Object.workprice[ll_row_newmx] = arg_s_mx[ll_k].workprice
							End If
							dw_2.Object.workqty[ll_row_newmx] = 1
							dw_2.Object.lsxtype[ll_row_newmx] = 1
						End If
					Else
						dw_2.Object.wrkgrpid[ll_row_f] = arg_s_mx[ll_k].wrkgrpid
						dw_2.Object.u_sc_workprice_pricestr[ll_row_f] = arg_s_mx[ll_k].pricestr
						If Trim(arg_s_mx[ll_k].pricestr) <> '' Then
							dw_2.Object.workprice[ll_row_f] = 0
						Else
							dw_2.Object.workprice[ll_row_f] = arg_s_mx[ll_k].workprice
						End If
					End If
					
				Next
				
			End If
			
		End If
		
		ll_m = 0
		For ll_l = 1 To dw_2.RowCount()
			ls_procode = dw_2.Object.procode[ll_l]
			dw_2.Object.u_mtrldef_mtrlcode[ll_l] = ls_mtrlcode_ban
			dw_2.AcceptText()
			
			If dw_copy.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_ban + "' and procode = '"+ls_procode+"'", 1, dw_copy.RowCount()) > 0 Then Continue
			
			ll_m++
			dw_2.RowsCopy (ll_l,ll_l,Primary!,dw_copy,ll_m,Primary!)
		Next
		dw_1.Object.ifmod_wp[ll_row] = 1
		/// //
		
		
		
	End If
	
Next

dw_1.SetRedraw(True)














end event

event ue_import_xls_7();// 导入Excel
If ins_mtrlid = 0 Then
	MessageBox('系统提示','请先选择产品')
	Return
End If

Int rslt = 1
String arg_msg
DataStore ds_col30
ds_col30 = Create DataStore

ds_col30.DataObject = 'dw_col30'

If f_readxls(ds_col30,arg_msg) <> 1 Then
	rslt = 0
	Goto ext
End If

Long ll_lp
Long ll_row,ll_row_new,ll_row_newmx
Long cnt
Long ll_cnt

Long ll_mtrlid_p
String ls_mtrlcode_p
String ls_pfcode

Long ll_mtrlid
String ls_mtrlcode
String ls_mtrlname
Int li_mtrlprp
String ls_mtrlmode
String ls_unit
String ls_zxmtrlmode
String ls_mtrlsectype
Int li_statusflag
Int li_statustype
Int li_woodcodeflag
Int li_woodcodetype
Int li_pcodeflag
Int li_pcodetype
String ls_usermtrlmode
Int li_Mtrlorigin
Long ll_dftwrkgrpid
Long ll_scid
Long ll_mtrltypeid
String ls_wrkGrpName
Decimal ld_sonscale, lde_qty
Long ll_wrkgrpid_scll
String ls_col16, ls_col17
Long ll_newrow

String ls_promode,ls_pfgroup,ls_pfgroupmode,ls_pfklmode
Decimal ld_pfgroupqty,lde_qty_mx
String ls_wenli,ls_fengbian,ls_paikong,ls_luoji,ls_penyou

String ls_dscrp
Long ll_modleid
String ls_modlename
String ls_pfgroup_p

String ls_mtrlcode_ban,ls_mtrlname_ban
Long ll_lp_add,ll_lp_add_p //用于记录增加胚板/后段板后,对应增加的层级数

String unit_f,mtrlsectype_f,zxmtrlmode_f,usermtrlmode_f,piccode_f
Long mtrltypeid_f,ifselforder_f,ordertype_f,scid_f,dftwrkgrpid_f,mtrlprp_f
Decimal orderdays_f,buydays_f,wfjgdays_f
Long mtrlid_f,dftscllwkpid_f,outtype_f

String unit_a,mtrlsectype_a,zxmtrlmode_a,usermtrlmode_a,piccode_a
Long mtrltypeid_a,ifselforder_a,ordertype_a,scid_a,dftwrkgrpid_a,mtrlprp_a
Decimal orderdays_a,buydays_a,wfjgdays_a
Long mtrlid_a,dftscllwkpid_a,outtype_a

String ls_mb_mtrlcode,ls_wpcode
Boolean lb_ifmb = False //是否有模板编码及是否成功读取模板编码资料
Boolean lb_ifmb_a = False //后段板 是否有模板编码及是否读取数据成功
Long ll_k,ll_row_f,ll_l,ll_j
String ls_procode
String ls_mb_mtrlcode_p //胚板模板
String ls_mb_mtrlcode_a //后段板模板
String ls_direction //摆放方向(文本)
Int li_direction //摆放方向(数值 0 -横  1-竖)
String ls_pid //序号(文本)
Decimal ld_midu,ld_cubage,ld_cubage_cl,ld_length,ld_width,ld_length_cl,ld_width_cl
String ls_dscrp_mtrl

s_workpricetable arg_s_mx[],arg_s_empty[]

If Not cbx_ifreset.Checked Then
	dw_1.Reset()
	//插入产品
	wf_re_mtrl(0)
End If


dw_1.SetRedraw(False)
For ll_row = 8 To ds_col30.RowCount()
	//明细终止标记(部件名称及材料名称都为空)
	If Trim(ds_col30.GetItemString(ll_row,2)) = '' And Trim(ds_col30.GetItemString(ll_row,1)) = '' Then Exit
	
	ls_pid = String(ll_row - 7) //Trim(ds_col30.GetItemString(ll_row,1))
	ls_mtrlname = Trim(ds_col30.GetItemString(ll_row,2))
	//	ls_mtrlcode = Trim(ds_col30.GetItemString(ll_row,14))
	
	Select mtrlcode,midu Into :ls_mtrlcode,:ld_midu
		From u_mtrldef
		Where mtrlname = :ls_mtrlname;
	If sqlca.SQLCode <> 0 Then ls_mtrlcode = ''
	
	ld_sonscale = Dec(Trim(ds_col30.GetItemString(ll_row,8)))
	lde_qty = Dec(Trim(ds_col30.GetItemString(ll_row,8))) //部件数量
	lde_qty_mx = Dec(Trim(ds_col30.GetItemString(ll_row,8))) //
	
	ld_cubage = (Dec(Trim(ds_col30.GetItemString(ll_row,5))) * Dec(Trim(ds_col30.GetItemString(ll_row,6))) * Dec(Trim(ds_col30.GetItemString(ll_row,7))) ) / 1000000000
	ld_cubage_cl = (Dec(Trim(ds_col30.GetItemString(ll_row,5))) * Dec(Trim(ds_col30.GetItemString(ll_row,6))) * Dec(Trim(ds_col30.GetItemString(ll_row,7))) ) / 1000000000
	
	ld_length = Dec(Trim(ds_col30.GetItemString(ll_row,5)))
	ld_width = Dec(Trim(ds_col30.GetItemString(ll_row,6)))
	
	ld_length_cl = Dec(Trim(ds_col30.GetItemString(ll_row,5)))
	ld_width_cl = Dec(Trim(ds_col30.GetItemString(ll_row,6)))
	
	ls_dscrp_mtrl = Trim(ds_col30.GetItemString(ll_row,9))
	
	ls_direction = Trim(ds_col30.GetItemString(ll_row,4))
	
	If ls_direction = '竖' Then
		li_direction = 1
	Else
		li_direction = 0
	End If
	
	//模板编码
	ls_mb_mtrlcode = Trim(ds_col30.GetItemString(ll_row,11))
	
	If IsNull(ld_sonscale) Then ld_sonscale = 0
	
	If ld_sonscale = 0 Then
		If lde_qty = 0 Then
			ld_sonscale = lde_qty_mx
		Else
			ld_sonscale = lde_qty
		End If
	End If
	
	ls_promode = Trim(ds_col30.GetItemString(ll_row,10))
	ls_pfgroup = Trim(ds_col30.GetItemString(ll_row,1))
	//	ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,5)) + '*'+Trim(ds_col30.GetItemString(ll_row,6))+'*'+Trim(ds_col30.GetItemString(ll_row,7))
	//	ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,16)) + '*'+Trim(ds_col30.GetItemString(ll_row,17))+'*'+Trim(ds_col30.GetItemString(ll_row,18))
	
	ls_pfgroupmode = ''
	ls_pfklmode = ''
	
	If Trim(ds_col30.GetItemString(ll_row,5)) <> '' Then
		ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,5))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,6)) <> '' Then
		If Trim(ls_pfgroupmode) <> '' Then
			ls_pfgroupmode = ls_pfgroupmode + '*'+Trim(ds_col30.GetItemString(ll_row,6))
		Else
			ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,6))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,7)) <> '' Then
		If Trim(ls_pfgroupmode) <> '' Then
			ls_pfgroupmode = ls_pfgroupmode + '*'+Trim(ds_col30.GetItemString(ll_row,7))
		Else
			ls_pfgroupmode = Trim(ds_col30.GetItemString(ll_row,7))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,5)) <> '' Then
		ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,5))
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,6)) <> '' Then
		If Trim(ls_pfklmode) <> '' Then
			ls_pfklmode = ls_pfklmode + '*'+Trim(ds_col30.GetItemString(ll_row,6))
		Else
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,6))
		End If
	End If
	
	If Trim(ds_col30.GetItemString(ll_row,7)) <> '' Then
		If Trim(ls_pfklmode) <> '' Then
			ls_pfklmode = ls_pfklmode + '*'+Trim(ds_col30.GetItemString(ll_row,7))
		Else
			ls_pfklmode = Trim(ds_col30.GetItemString(ll_row,7))
		End If
	End If
	
	ls_fengbian = Trim(ds_col30.GetItemString(ll_row,3))
	
	ls_dscrp = Trim(ds_col30.GetItemString(ll_row,9))
	
	//读取胚板模板编码信息
	lb_ifmb = False
	If ls_mb_mtrlcode <> '' Then
		Select unit,
			mtrltypeid,
			mtrlsectype,
			zxmtrlmode,
			usermtrlmode,
			piccode,
			ifselforder,
			ordertype,
			scid,
			dftwrkgrpid,
			orderdays,
			buydays,
			wfjgdays,
			mtrlid,
			dftscllwkpid,
			mtrlprp,
			outtype
			Into :unit_f,
			:mtrltypeid_f,
			:mtrlsectype_f,
			:zxmtrlmode_f,
			:usermtrlmode_f,
			:piccode_f,
			:ifselforder_f,
			:ordertype_f,
			:scid_f,
			:dftwrkgrpid_f,
			:orderdays_f,
			:buydays_f,
			:wfjgdays_f,
			:mtrlid_f,
			:dftscllwkpid_f,
			:mtrlprp_f,
			:outtype_f
			From u_mtrldef
			Where mtrlcode = :ls_mb_mtrlcode;
		If sqlca.SQLCode <> 0 Then
			lb_ifmb = False
		Else
			lb_ifmb = True
		End If
	End If
	
	
	If ls_pfgroup <> ''  Then
		
		ll_lp_add = 1
		
		//增加胚板代码
		If ls_promode <> '' Then
			ls_mtrlcode_ban = ins_mtrlcode + '_' + ls_promode
		Else
			ls_mtrlcode_ban = ins_mtrlcode + '_part' +ls_pid
		End If
		
		ls_mtrlname_ban = ls_pfgroup
		
		If ls_mtrlcode_ban <> "" Then
			
			cnt = 0
			Select COUNT(*)
				Into :cnt
				From u_mtrldef
				Where (mtrlcode = :ls_mtrlcode_ban)
				And (mtrlorigin = 0);
			If sqlca.SQLCode = -1 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_ban + ',部件查询资料定义表失败,' + sqlca.SQLErrText
				Goto ext
			ElseIf sqlca.SQLCode = 100 Then
				cnt = 0
			End If
			
			If cnt > 1 Then
				rslt = 0
				arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlcode_ban + ',部件资料定义有' + String(cnt) + '条重复记录'
				Goto ext
			ElseIf cnt = 1 Then //插入部件
				Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid_p,:ll_dftwrkgrpid,:li_mtrlorigin
					From u_mtrldef Where mtrlcode = :ls_mtrlcode_ban;
				If sqlca.SQLCode <> 0 Then
					rslt = 0
					arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
					Goto ext
				End If
				
				//插入部件
				wf_add_row(ll_mtrlid_p, '', ll_lp_add, lde_qty, arg_msg,ll_row_new)
				dw_1.Object.u_mtrldef_bantype[ll_row_new] = 1
				
				dw_1.Object.u_mtrldef_midu[ll_row_new] = ld_midu
				dw_1.Object.cubage[ll_row_new] = ld_cubage
				
				dw_1.Object.Length[ll_row_new] = ld_length
				dw_1.Object.Width[ll_row_new] = ld_width
			ElseIf cnt = 0 Then //插入新行-部件
				//插入部件
				wf_add_row_null(ls_mtrlname_ban, ll_lp_add, lde_qty, arg_msg,ll_row_new)
				
				If ll_row_new > 0 Then
					dw_1.Object.u_mtrldef_mtrlcode[ll_row_new] = ls_mtrlcode_ban
					dw_1.Object.u_mtrldef_mtrlorigin[ll_row_new] =  0
					dw_1.Object.u_mtrldef_mtrlprp[ll_row_new] =  0
					dw_1.Object.u_mtrldef_unit[ll_row_new] =  '块'
					//					dw_1.Object.u_prdpf_pfgroup[ll_row_new] =  ls_mtrlname_ban
					//					dw_1.Object.u_prdpf_promode[ll_row_new] =  ls_promode
					dw_1.Object.u_prdpf_pfgroupqty[ll_row_new] =  lde_qty
					dw_1.Object.u_prdpf_sonpfcode[ll_row_new] =  '[常规]'
					//					dw_1.Object.u_prdpf_pfgroupmode[ll_row_new] = ls_pfgroupmode
					dw_1.Object.u_mtrldef_mtrlmode[ll_row_new] = ls_pfgroupmode
					dw_1.Object.u_prdpf_wenli[ll_row_new] = ls_wenli
					dw_1.Object.u_prdpf_fengbian[ll_row_new] = ls_fengbian
					dw_1.Object.u_prdpf_paikong[ll_row_new] = ls_paikong
					dw_1.Object.u_prdpf_luoji[ll_row_new] = ls_luoji
					dw_1.Object.u_prdpf_penyou[ll_row_new] = ls_penyou
					
					dw_1.Object.u_mtrldef_ban_wenli[ll_row_new] = ls_wenli
					dw_1.Object.u_mtrldef_ban_fengbian[ll_row_new] = ls_fengbian
					dw_1.Object.u_mtrldef_ban_paikong[ll_row_new] = ls_paikong
					dw_1.Object.u_mtrldef_ban_luoji[ll_row_new] = ls_luoji
					dw_1.Object.u_mtrldef_ban_penyou[ll_row_new] = ls_penyou
					dw_1.Object.u_mtrldef_ban_gydscrp[ll_row_new] = ls_dscrp
					dw_1.Object.u_mtrldef_ban_promode[ll_row_new] = ls_promode
					dw_1.Object.u_mtrldef_ban_direction[ll_row_new] = li_direction
					dw_1.Object.u_mtrldef_ban_pfklmode[ll_row_new] = ls_pfklmode
					
					dw_1.Object.u_prdpf_dscrp[ll_row_new] = ls_dscrp
					
					dw_1.Object.u_mtrldef_ifselforder[ll_row_new] = 2
					
					dw_1.Object.ifnewadd[ll_row_new] = 1
					dw_1.Object.u_mtrldef_bantype[ll_row_new] = 1
					
					dw_1.Object.u_mtrldef_midu[ll_row_new] = ld_midu
					dw_1.Object.cubage[ll_row_new] = ld_cubage
					
					dw_1.Object.Length[ll_row_new] = ld_length
					dw_1.Object.Width[ll_row_new] = ld_width
					
					dw_1.Object.u_mtrldef_dscrp[ll_row_new] = ls_dscrp_mtrl
					
					//套用模板编码资料信息
					If lb_ifmb Then
						dw_1.Object.u_mtrldef_unit[ll_row_new] = unit_f
						dw_1.Object.u_mtrldef_mtrltypeid[ll_row_new] = mtrltypeid_f
						dw_1.Object.u_mtrldef_mtrlsectype[ll_row_new] = mtrlsectype_f
						dw_1.Object.u_mtrldef_zxmtrlmode[ll_row_new] = zxmtrlmode_f
						dw_1.Object.u_mtrldef_usermtrlmode[ll_row_new] = usermtrlmode_f
						dw_1.Object.u_mtrldef_piccode[ll_row_new] = piccode_f
						dw_1.Object.u_mtrldef_ifselforder[ll_row_new] = ifselforder_f
						dw_1.Object.u_mtrldef_ordertype[ll_row_new] = ordertype_f
						dw_1.Object.u_mtrldef_scid[ll_row_new] = scid_f
						dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row_new] = dftwrkgrpid_f
						
						dw_1.Object.u_mtrldef_orderdays[ll_row_new] = orderdays_f
						dw_1.Object.u_mtrldef_buydays[ll_row_new] = buydays_f
						dw_1.Object.u_mtrldef_wfjgdays[ll_row_new] = wfjgdays_f
						
						dw_1.Object.u_mtrldef_mtrlprp[ll_row_new] =  mtrlprp_f
						dw_1.Object.u_mtrldef_outtype[ll_row_new] =  outtype_f
						
						dw_1.Object.u_PrdPF_wrkgrpid[ll_row_new] = dftscllwkpid_f
						
						dw_1.Object.mb_mtrlcode[ll_row_new] = ls_mb_mtrlcode
						dw_1.Object.mb_mtrlid[ll_row_new] = mtrlid_f
					End If
				End If
				
				
			End If
		End If
		//增加胚板代码(完)
		
		
	End If
	
	
	ls_pfgroup_p = ls_pfgroup
	ll_lp_add_p = ll_lp_add
	
	//插入新行
	cnt = 0
	Select COUNT(*)
		Into :cnt
		From u_mtrldef
		Where u_mtrldef.mtrlcode = :ls_mtrlcode;
	If sqlca.SQLCode = -1 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料查询资料定义表失败,' + sqlca.SQLErrText
		Goto ext
	ElseIf sqlca.SQLCode = 100 Then
		cnt = 0
	End If
	
	If ls_pfgroup <> '' Then
		ll_lp = ll_lp_add + 1
	Else
		ll_lp = 1
	End If
	
	If cnt > 1 Then
		rslt = 0
		arg_msg = '第' + String(ll_row) + '行:' + ls_mtrlname + ',材料资料定义有' + String(cnt) + '条重复记录'
		Goto ext
	ElseIf cnt = 1 Then //插入部件
		Select mtrlid,dftwrkgrpid,mtrlorigin Into :ll_mtrlid,:ll_dftwrkgrpid,:li_mtrlorigin
			From u_mtrldef Where mtrlcode = :ls_mtrlcode;
		If sqlca.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '第' + String(ll_row) + '行父代码查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
			Goto ext
		End If
		
		//插入材料
		wf_add_row(ll_mtrlid, '', ll_lp, ld_sonscale, arg_msg,ll_row_new)
		
		If wf_addmx_row(ll_mtrlid,'',ll_lp + 1,ll_row_new + 1 ,ld_sonscale,arg_msg) = 0 Then
			rslt = 0
			Goto ext
		End If
		
	ElseIf cnt = 0 Then //插入新行-部件
		//插入材料
		wf_add_row_null(ls_mtrlname, ll_lp, ld_sonscale, arg_msg,ll_row_new)
	End If
	
	If ll_row_new > 0 Then
		//		dw_1.Object.u_prdpf_promode[ll_row_new] = ls_promode
		//		dw_1.Object.u_prdpf_pfgroup[ll_row_new] = ls_pfgroup
		//		dw_1.Object.u_prdpf_pfgroupmode[ll_row_new] = ls_pfgroupmode
		dw_1.Object.u_prdpf_pfgroupqty[ll_row_new] = lde_qty
		dw_1.Object.u_prdpf_pfklmode[ll_row_new] = ls_pfklmode
		
		dw_1.Object.u_mtrldef_midu[ll_row_new] = ld_midu
		dw_1.Object.cubage[ll_row_new] = ld_cubage_cl
		
		dw_1.Object.Length[ll_row_new] = ld_length_cl
		dw_1.Object.Width[ll_row_new] = ld_width_cl
		
		dw_1.Object.u_prdpf_wenli[ll_row_new] = ls_wenli
		dw_1.Object.u_prdpf_fengbian[ll_row_new] = ls_fengbian
		dw_1.Object.u_prdpf_paikong[ll_row_new] = ls_paikong
		dw_1.Object.u_prdpf_luoji[ll_row_new] = ls_luoji
		dw_1.Object.u_prdpf_penyou[ll_row_new] = ls_penyou
		
		dw_1.Object.u_prdpf_dscrp[ll_row_new] = ls_dscrp
		//		If ll_lp = 1 Then
		//			dw_1.Object.u_prdpf_dipztype[ll_row_new] =  3
		//			dw_1.Object.u_prdpf_ifover[ll_row_new] =  1
		//		else
		dw_1.Object.u_prdpf_dipztype[ll_row_new] =  -1
		dw_1.Object.u_prdpf_ifover[ll_row_new] =  0
		//		End If
		
	End If
	
Next

ext:

Destroy ds_col30
dw_1.SetRedraw(True)

If rslt = 0 Then
	MessageBox('提示',arg_msg)
End If









end event

event ue_del_ch();//勾选删除

If ins_ifmod_wp Then
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	Return
End If

If ins_ifmod Then
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	Return
End If


Long ll_i,ll_j
Long ll_row
Long ll_lp,cnt
String ls_mtrlcode

dw_1.AcceptText()

cnt = dw_1.Find('ch = 1 ',1,dw_1.RowCount())


If cnt = 0 Then
	If MessageBox('询问','是否确认要执行删除明细操作?',question!,yesno!) = 2 Then Return
	
	ll_row = dw_1.GetRow()
	
	If ll_row <= 0 Then
		MessageBox('系统提示','请选择要删除的明细')
		Return
	End If
	
	If dw_1.Object.lp[ll_row] = 0 Then
		MessageBox('系统提示','主产品资料不能删除')
		Return
	End If
	
	dw_1.Object.ifdel[ll_row] = 1
	
	ll_lp = dw_1.Object.lp[ll_row]
	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
	
	//dw_1.SetRedraw(FALSE)
	For ll_i = ll_row + 1 To dw_1.RowCount()
		If dw_1.Object.lp[ll_i] <= ll_lp Then Exit
		
		dw_1.Object.ifdel[ll_i] = 1
	Next
	
	dw_1.AcceptText()
	
	For ll_i = dw_1.RowCount() To 1 Step -1
		If dw_1.Object.ifdel[ll_i] = 1 Then
			dw_1.DeleteRow(ll_i)
		End If
	Next
	//dw_1.SetRedraw(TRUE)
	
	ins_cnt++
	mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.删除物料 '+ ls_mtrlcode +' 及其下级的物料'
Else
	If MessageBox('询问','是否确认要执行删除选中明细操作?',question!,yesno!) = 2 Then Return
	
	For ll_i = 1 To dw_1.RowCount()
		If dw_1.Object.ch[ll_i] = 0 Then Continue
		
		If dw_1.Object.lp[ll_i] = 0 Then Continue
		
		dw_1.Object.ifdel[ll_i] = 1
		
		ll_lp = dw_1.Object.lp[ll_i]
		ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_i]
		
		For ll_j = ll_i + 1 To dw_1.RowCount()
			If dw_1.Object.lp[ll_j] <= ll_lp Then Exit
			
			dw_1.Object.ifdel[ll_j] = 1
		Next
		
		
		ins_cnt++
		mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.删除物料 '+ ls_mtrlcode +' 及其下级的物料'
		
		
	Next

	dw_1.AcceptText()
	For ll_j = dw_1.RowCount() To 1 Step -1
		If dw_1.Object.ifdel[ll_j] = 1 Then
			dw_1.DeleteRow(ll_j)
		End If
	Next

	
	
End If





end event

event ue_del_this();//删除单级

If ins_ifmod_wp Then
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	Return
End If

If ins_ifmod Then
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	Return
End If


Long ll_i,ll_j
Long ll_row
Long ll_lp,cnt
String ls_mtrlcode

dw_1.AcceptText()


ll_row = dw_1.GetRow()

If ll_row <= 0 Then
	MessageBox('系统提示','请选择要删除的明细')
	Return
End If

If dw_1.Object.lp[ll_row] = 0 Then
	MessageBox('系统提示','主产品资料不能删除')
	Return
End If

If MessageBox('询问','是否确认要执行删除当前选中明细操作?',question!,yesno!) = 2 Then Return


dw_1.Object.ifdel[ll_row] = 1

ll_lp = dw_1.Object.lp[ll_row]
ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]

dw_1.SetRedraw(FALSE)
For ll_i = ll_row + 1 To dw_1.RowCount()
	If dw_1.Object.lp[ll_i] <= ll_lp Then Exit
	
	dw_1.Object.lp[ll_i] = dw_1.Object.lp[ll_i] - 1
Next

dw_1.AcceptText()

dw_1.DeleteRow(ll_row)

dw_1.SetRedraw(TRUE)

ins_cnt++
mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.删除物料 '+ ls_mtrlcode +' ,其下级物料层级上移'








end event

event ue_add_up();If ins_ifmod_wp Then
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	Return
End If

If ins_ifmod Then
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	Return
End If


Long ll_i

String ls_mtrlcode,ls_mtrlname,ls_pfcode,arg_msg
Long ll_row,ll_row_add
Long ll_pmtrlid,ll_lp
Long ll_mtrlid_pf
String arg_msg_str

ll_row = dw_1.GetRow()

If ll_row > 0 Then
	ll_pmtrlid = dw_1.Object.pmtrlid[ll_row]
	ll_lp = dw_1.Object.lp[ll_row]
	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
	
	If ll_lp = 0 Then
		MessageBox('系统提示','主产品不能增上级')
		Return
	End If
Else
	MessageBox('系统提示','请先选择要增加上级的明细')
	Return
End If


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 = False
	s_ch_tran.b_long = 0
	s_ch_tran.c_long = -1
	s_ch_tran.f_long = 1
	
	This.Enabled = False
	OpenWithParm(w_mtrldef_edit,s_ch_tran)
	This.Enabled = True
	
	s_mtrldef_array s_inscust
	s_inscust = Message.PowerObjectParm
	
	dw_1.SetRedraw(False)
	
	If UpperBound(s_inscust.mtrlid) > 0 Then
		If s_inscust.mtrlorigin[1] = 2 Then
			dw_1.SetRedraw(True)
			MessageBox('系统提示','不能选择采购类的物料作为上级')
			Return
		End If
		
		ll_mtrlid_pf = s_inscust.mtrlid[1]
		
		If ll_mtrlid_pf > 0 Then
			ls_pfcode = f_get_dft_pf(ll_mtrlid_pf)
			
			If wf_addmx_up(ll_mtrlid_pf,ls_pfcode,ll_pmtrlid,ll_lp,ll_row,arg_msg) = 0 Then
				dw_1.SetRedraw(True)
				arg_msg_str = arg_msg_str + arg_msg +'~r~n'
				MessageBox('Error',arg_msg_str)
				Return
			End If
			

			
			ins_cnt++
			If ls_mtrlcode <> '' Then
				mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.对 '+ls_mtrlcode+' 增加上级物料 '+s_inscust.mtrlcode[1]
			Else
				mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.增加物料 '+s_inscust.mtrlcode[1]
			End If
			
		End If
	End If
	dw_1.SetRedraw(True)
	
	
End If

This.SetFocus()








end event

public function integer wf_face ();IF ins_ifmod THEN
	cb_save_bcp.Enabled = TRUE
	cb_mod_bcp.Text = '放弃'
	cb_mod_bcp.normalpicname = 'Undo.bmp'
	cb_other_bom.Enabled = FALSE
	cb_add_mtrl.Enabled = FALSE
	cb_save.Enabled = FALSE
	cb_moban.Enabled = TRUE
	cb_autocode.enabled = true
ELSE
	cb_save_bcp.Enabled = FALSE
	cb_mod_bcp.Text = '编辑半成品'
	cb_mod_bcp.normalpicname = 'open.bmp'
	cb_other_bom.Enabled = TRUE
	cb_add_mtrl.Enabled = TRUE
	cb_save.Enabled = TRUE
	cb_moban.Enabled = FALSE
	cb_autocode.enabled = false
END IF

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

RETURN 1

end function

public function integer wf_checkrand (ref string arg_msg);Long i,j
Int rslt = 1
Long ll_lp

dw_1.AcceptText()

FOR i = 2 TO dw_1.RowCount()
	IF dw_1.Object.u_mtrldef_mtrlcode[i] = ins_mtrlcode THEN
		
		dw_1.SelectRow(0,FALSE)
		dw_1.SetRow(i)
		dw_1.SelectRow(i,TRUE)
		
		rslt = 0
		arg_msg = '发现闭环,在第'+String(i)+'行,物料:'+dw_1.Object.u_mtrldef_mtrlcode[i]
		GOTO ext
		
	END IF
NEXT

FOR i = 1 TO dw_1.RowCount()
	ll_lp = dw_1.Object.lp[i]
	
	FOR j = i + 1 TO dw_1.RowCount()
		IF dw_1.Object.lp[j] <= ll_lp THEN EXIT
		
		IF dw_1.Object.u_mtrldef_mtrlcode[j] = dw_1.Object.u_mtrldef_mtrlcode[i] THEN
			dw_1.SelectRow(0,FALSE)
			dw_1.SetRow(j)
			dw_1.SelectRow(j,TRUE)
			
			rslt = 0
			arg_msg = '发现闭环,在第'+String(j)+'行,物料:'+dw_1.Object.u_mtrldef_mtrlcode[j]
			GOTO ext
			
		END IF
	NEXT
NEXT

ext:
RETURN rslt



end function

public function integer wf_save (ref string arg_msg);Int rslt = 1
Long ll_i,ll_j,ll_k
String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode
String ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode
Decimal ld_orderdays,ld_buydays,ld_wfjgdays
Long ll_mtrlid,ll_mtrlid_copy
Long cnt
Long ll_lp

String ls_code,ls_name,ls_ename,ls_dscrp
Long ll_type,ll_DefaultPZ,ll_ifzj
Decimal ld_planprice
Long ll_new_cid
Decimal ld_capacity,ld_capaparm
Long ll_mtrltypeid,ll_scid,ll_dftwrkgrpid
String ls_piccode
Int li_mtrlorigin, li_mtrlprp
Long ll_mtrlid_wp
Int li_ifselforder,li_ordertype


Long printid_wkp
String wkpname_wkp, groupstr_wkp
Long swkpid_wkp, owkpid_wkp, iflast_wkp
Decimal lasthour_wkp, lastdays_wkp,minlasthour_wkp, uprate_wkp
String dscrp_wkp
Long lp_wkp, printlp_wkp
Decimal workhour_wkp, beforehour_wkp, afterhour_wkp
Long workgroupid_wkp
String gydscrp_wkp

String ls_pfcode
long ll_mb_mtrlid
String ls_wpcode
Decimal ld_sonloss_p,ld_sondecloss_p,ld_cmpqty_p,ld_qty

Long ll_modleid
String ls_modlename

String ls_wenli,ls_fengbian,ls_paikong,ls_luoji,ls_penyou,ls_azcode
Long ll_bantype
Int li_outtype
Decimal ld_midu

String ls_mtrlcode_new_arr[]
Long ll_cnt_new
string ls_dscrp_mtrl

s_mtrldef arg_s_mtrl
s_mtrldef_ban arg_s_ban

dw_1.AcceptText()

For ll_i = 1 To dw_1.RowCount()
	If dw_1.Object.u_mtrldef_mtrlid[ll_i] = 0 Then
		
		If dw_1.Object.ifnewadd[ll_i] = 0 Then
			dw_1.SetRow(ll_i)
			dw_1.ScrollToRow(ll_i)
			dw_1.SelectRow(0,False)
			dw_1.SelectRow(ll_i,True)
			arg_msg = '查询物料原资料失败,请选择正确的物料(可执行编辑半成品功能)'
			rslt = 0
			Goto ext
		End If
		
		ll_lp = dw_1.Object.lp[ll_i]
		
		ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_i]
		ls_mtrlname = dw_1.Object.u_mtrldef_mtrlname[ll_i]
		ls_unit = dw_1.Object.u_mtrldef_unit[ll_i]
		ls_mtrlmode = dw_1.Object.u_mtrldef_mtrlmode[ll_i]
		ls_mtrlsectype = dw_1.Object.u_mtrldef_mtrlsectype[ll_i]
		ls_zxmtrlmode = dw_1.Object.u_mtrldef_zxmtrlmode[ll_i]
		ls_usermtrlmode = dw_1.Object.u_mtrldef_usermtrlmode[ll_i]
		ll_mtrlid =  dw_1.Object.u_prdpf_sonmtrlid[ll_i]
		ld_orderdays =  dw_1.Object.u_mtrldef_orderdays[ll_i]
		ld_buydays =  dw_1.Object.u_mtrldef_buydays[ll_i]
		ld_wfjgdays =  dw_1.Object.u_mtrldef_wfjgdays[ll_i]
		ll_mtrltypeid =  dw_1.Object.u_mtrldef_mtrltypeid[ll_i]
		ll_scid =  dw_1.Object.u_mtrldef_scid[ll_i]
		ll_dftwrkgrpid =  dw_1.Object.u_mtrldef_dftwrkgrpid[ll_i]
		
		li_mtrlorigin =  dw_1.Object.u_mtrldef_mtrlorigin[ll_i]
		li_mtrlprp =  dw_1.Object.u_mtrldef_mtrlprp[ll_i]
		
		ls_piccode =  dw_1.Object.u_mtrldef_piccode[ll_i]
		
		li_ifselforder =  dw_1.Object.u_mtrldef_ifselforder[ll_i]
		li_ordertype =  dw_1.Object.u_mtrldef_ordertype[ll_i]
		
		ls_pfcode = dw_1.Object.u_prdpf_sonpfcode[ll_i]
		
		ll_mb_mtrlid = dw_1.Object.mb_mtrlid[ll_i]
		
		ll_bantype = dw_1.Object.u_mtrldef_bantype[ll_i]
		
		li_outtype = dw_1.Object.u_mtrldef_outtype[ll_i]
		ld_midu = dw_1.Object.u_mtrldef_midu[ll_i]
		
		ls_dscrp_mtrl = dw_1.Object.u_mtrldef_dscrp[ll_i]
		
		For ll_k = 1 To ll_cnt_new
			If ls_mtrlcode = ls_mtrlcode_new_arr[ll_k] Then
				Goto _next_row
			End If
		Next
		
		
		If ll_mtrlid > 0 and ll_mb_mtrlid = 0 Then
			Select u_mtrldef.mtrlname,
				u_mtrldef.mtrlsectype,
				u_mtrldef.mtrlmode,
				u_mtrldef.unit,
				u_mtrldef.dscrp,
				u_mtrldef.lmbuyprice,
				u_mtrldef.LMsaleprice,
				u_mtrldef.prdpackcode,
				u_mtrldef.packqty,
				u_mtrldef.zxmtrlmode,
				u_mtrldef.unit_buy,
				u_mtrldef.rate_buy,
				u_mtrldef.unit_scll,
				u_mtrldef.rate_scll,
				u_mtrldef.unit_sale,
				u_mtrldef.rate_sale,
				u_mtrldef.orderdays,
				u_mtrldef.buydays,
				u_mtrldef.wfjgdays,
				u_mtrldef.minbuyqty,
				u_mtrldef.aheaddays,
				u_mtrldef.ifselforder,
				u_mtrldef.mprice,
				u_mtrldef.Mtrlorigin,
				u_mtrldef.mtrlkind,
				u_mtrldef.lspacklimit,
				u_mtrldef.MaxQTY,
				u_mtrldef.MinQTY,
				u_mtrldef.isuse,
				u_mtrldef.mtrltypeid,
				u_mtrldef.barcode,
				u_mtrldef.net_weight,
				u_mtrldef.gross_weight,
				u_mtrldef.cubage,
				u_mtrldef.mtrlengname,
				u_mtrldef.scllflag,
				u_mtrldef.dftwrkGrpid,
				u_mtrldef.scid,
				u_mtrldef.ifscid,
				u_mtrldef.mtrlprp,
				u_mtrldef.uprate,
				u_mtrldef.upqty,
				u_mtrldef.ordertype,
				u_mtrldef.statusflag,
				u_mtrldef.statustype,
				u_mtrldef.woodcodeflag,
				u_mtrldef.woodcodetype,
				u_mtrldef.pcodeflag,
				u_mtrldef.pcodetype,
				u_mtrldef.mtrlarea,
				u_mtrldef.dftsptid,
				u_mtrldef.mtrlarea1,
				u_mtrldef.mtrlarea2,
				u_mtrldef.iflimitprice,
				u_mtrldef.configcode,
				u_mtrldef.autoinstall,
				u_mtrldef.ifpack,
				u_mtrldef.configname,
				u_mtrldef.ifpackpro,
				u_mtrldef.mtrlcolor,
				u_mtrldef.configcodetype,
				u_mtrldef.ifautodd,
				u_mtrldef.iflljg,
				u_mtrldef.ifunit,
				u_mtrldef.ifpackpz,
				u_mtrldef.ifpacktype,
				u_mtrldef.scllrate,
				u_mtrldef.cmpqty,
				u_mtrldef.usermtrlmode,
				u_mtrldef.storagetype,
				u_mtrldef.ifmtrlcuscode,
				u_mtrldef.mrptype,
				u_mtrldef.mrparg,
				u_mtrldef.updownprice,
				u_mtrldef.outtype,
				u_mtrldef.ifpricepack,
				u_mtrldef.gydscrp,
				u_mtrldef.downrate,
				u_mtrldef.ifcustom,
				u_mtrldef.buyunit,
				u_mtrldef.wfjgunit,
				u_mtrldef.scllunit,
				u_mtrldef.saleunit,
				u_mtrldef.buydec,
				u_mtrldef.wfjgdec,
				u_mtrldef.sclldec,
				u_mtrldef.saledec,
				u_mtrldef.issuliao,
				isnull(u_mtrldef_sl.period,0),
				u_mtrldef.ifenough,
				u_mtrldef.capacity,
				u_mtrldef.expday,
				u_mtrldef.capaparm,
				u_mtrldef.sctaskqty,
				u_mtrldef.minarg,
				u_mtrldef.maxarg,
				u_mtrldef.ifmrppackpf,
				u_mtrldef.maxzjday,
				u_mtrldef.eoq,
				u_mtrldef.splitrate,
				u_mtrldef.status_check,
				u_mtrldef.woodcode_check,
				u_mtrldef.pcode_check,
				u_mtrldef.maxdays,
				u_mtrldef.mindays,
				u_mtrldef.mrp_unit,
				u_mtrldef.rebuytype,
				u_mtrldef.rebuylot,
				u_mtrldef.ifsendlot,
				u_mtrldef.upddrate,
				u_mtrldef.upddqty,
				u_mtrldef.upsalerate,
				u_mtrldef.upsaleqty,
				u_mtrldef.status_config,
				u_mtrldef.woodcode_config,
				u_mtrldef.pcode_config,
				u_mtrldef.rebuylot,
				u_mtrldef.ifusedeliqty,
				u_mtrldef.pricepztype,
				u_mtrldef.useday,
				u_mtrldef.equiptype,
				u_mtrldef.ifpackpro2,
				isnull(u_mtrldef_sl.sk_mtrlid,0),
				u_mtrldef.ifkl,
				u_mtrldef.ifturn,
				u_mtrldef.iffp,
				u_mtrldef.scllqty,
				u_mtrldef.dftscllwkpid,
				u_mtrldef.piccode,
				u_mtrldef.if_hourpay,
				u_mtrldef.ifmrp,
				u_mtrldef.if_inherit,
				u_mtrldef.groupstr,
				u_mtrldef.groupday,
				u_mtrldef.aps_capacity_type,
				u_mtrldef.scllplan_mode,
				u_mtrldef.ifcheck,
				u_mtrldef.checkrate,
				u_mtrldef.chkpassrate,
				u_mtrldef.dftcusid,
				u_mtrldef.sendtype,
				u_mtrldef.buy_ceiling,
				u_mtrldef.wfjg_ceiling,
				u_mtrldef.sale_ceiling,
				u_mtrldef.scll_ceiling,
				u_mtrldef.material,
				u_mtrldef.adddec,
				u_mtrldef.ifbarcodefp,
				u_mtrldef.stoppqty,
				u_mtrldef.buy_autoday,
				u_mtrldef.upbuyrate,
				u_mtrldef.upbuyqty,
				u_mtrldef.ifrebuypack,
				u_mtrldef.protype,
				u_mtrldef.buydays_bx,
				u_mtrldef.wfjgdays_bx,
				u_mtrldef.multqty,
				u_mtrldef.multtype,
				u_mtrldef.buyer,
				u_mtrldef.bantype
				Into
				:arg_s_mtrl.mtrlname,
				:arg_s_mtrl.mtrlsectype,
				:arg_s_mtrl.mtrlmode,
				:arg_s_mtrl.unit,
				:arg_s_mtrl.dscrp,
				:arg_s_mtrl.lmbuyprice,
				:arg_s_mtrl.lmsaleprice,
				:arg_s_mtrl.prdpackcode,
				:arg_s_mtrl.packqty,
				:arg_s_mtrl.zxmtrlmode,
				:arg_s_mtrl.unit_buy,
				:arg_s_mtrl.rate_buy,
				:arg_s_mtrl.unit_scll,
				:arg_s_mtrl.rate_scll,
				:arg_s_mtrl.unit_sale,
				:arg_s_mtrl.rate_sale,
				:arg_s_mtrl.orderdays,
				:arg_s_mtrl.buydays,
				:arg_s_mtrl.wfjgdays,
				:arg_s_mtrl.minbuyqty,
				:arg_s_mtrl.aheaddays,
				:arg_s_mtrl.ifselforder,
				:arg_s_mtrl.mprice,
				:arg_s_mtrl.mtrlorigin,
				:arg_s_mtrl.mtrlkind,
				:arg_s_mtrl.lspacklimit,
				:arg_s_mtrl.maxqty,
				:arg_s_mtrl.minqty,
				:arg_s_mtrl.isuse,
				:arg_s_mtrl.mtrltypeid,
				:arg_s_mtrl.barcode,
				:arg_s_mtrl.net_weight,
				:arg_s_mtrl.gross_weight,
				:arg_s_mtrl.cubage,
				:arg_s_mtrl.mtrlengname,
				:arg_s_mtrl.scllflag,
				:arg_s_mtrl.dftwrkgrpid,
				:arg_s_mtrl.scid,
				:arg_s_mtrl.ifscid,
				:arg_s_mtrl.mtrlprp,
				:arg_s_mtrl.uprate,
				:arg_s_mtrl.upqty,
				:arg_s_mtrl.ordertype,
				:arg_s_mtrl.statusflag,
				:arg_s_mtrl.statustype,
				:arg_s_mtrl.woodcodeflag,
				:arg_s_mtrl.woodcodetype,
				:arg_s_mtrl.pcodeflag,
				:arg_s_mtrl.pcodetype,
				:arg_s_mtrl.mtrlarea,
				:arg_s_mtrl.dftsptid,
				:arg_s_mtrl.mtrlarea1,
				:arg_s_mtrl.mtrlarea2,
				:arg_s_mtrl.iflimitprice,
				:arg_s_mtrl.configcode,
				:arg_s_mtrl.autoinstall,
				:arg_s_mtrl.ifpack,
				:arg_s_mtrl.configname,
				:arg_s_mtrl.ifpackpro,
				:arg_s_mtrl.mtrlcolor,
				:arg_s_mtrl.configcodetype,
				:arg_s_mtrl.ifautodd,
				:arg_s_mtrl.iflljg,
				:arg_s_mtrl.ifunit,
				:arg_s_mtrl.ifpackpz,
				:arg_s_mtrl.ifpacktype,
				:arg_s_mtrl.scllrate,
				:arg_s_mtrl.cmpqty,
				:arg_s_mtrl.usermtrlmode,
				:arg_s_mtrl.storagetype,
				:arg_s_mtrl.ifmtrlcuscode,
				:arg_s_mtrl.mrptype,
				:arg_s_mtrl.mrparg,
				:arg_s_mtrl.updownprice,
				:arg_s_mtrl.outtype,
				:arg_s_mtrl.ifpricepack,
				:arg_s_mtrl.gydscrp,
				:arg_s_mtrl.downrate,
				:arg_s_mtrl.ifcustom,
				:arg_s_mtrl.buyunit,
				:arg_s_mtrl.wfjgunit,
				:arg_s_mtrl.scllunit,
				:arg_s_mtrl.saleunit,
				:arg_s_mtrl.buydec,
				:arg_s_mtrl.wfjgdec,
				:arg_s_mtrl.sclldec,
				:arg_s_mtrl.saledec,
				:arg_s_mtrl.issuliao,
				:arg_s_mtrl.period,
				:arg_s_mtrl.ifenough,
				:arg_s_mtrl.capacity,
				:arg_s_mtrl.expday,
				:arg_s_mtrl.capaparm,
				:arg_s_mtrl.sctaskqty,
				:arg_s_mtrl.minarg,
				:arg_s_mtrl.maxarg,
				:arg_s_mtrl.ifmrppackpf,
				:arg_s_mtrl.maxzjday,
				:arg_s_mtrl.eoq,
				:arg_s_mtrl.splitrate,
				:arg_s_mtrl.status_check,
				:arg_s_mtrl.woodcode_check,
				:arg_s_mtrl.pcode_check,
				:arg_s_mtrl.maxdays,
				:arg_s_mtrl.mindays,
				:arg_s_mtrl.mrp_unit,
				:arg_s_mtrl.rebuytype,
				:arg_s_mtrl.rebuylot,
				:arg_s_mtrl.ifsendlot,
				:arg_s_mtrl.upddrate,
				:arg_s_mtrl.upddqty,
				:arg_s_mtrl.upsalerate,
				:arg_s_mtrl.upsaleqty,
				:arg_s_mtrl.status_config,
				:arg_s_mtrl.woodcode_config,
				:arg_s_mtrl.pcode_config,
				:arg_s_mtrl.rebuylot,
				:arg_s_mtrl.ifusedeliqty,
				:arg_s_mtrl.pricepztype,
				:arg_s_mtrl.useday,
				:arg_s_mtrl.equiptype,
				:arg_s_mtrl.ifpackpro2,
				:arg_s_mtrl.skmtrlid,
				:arg_s_mtrl.ifkl,
				:arg_s_mtrl.ifturn,
				:arg_s_mtrl.iffp,
				:arg_s_mtrl.scllqty,
				:arg_s_mtrl.dftscllwkpid,
				:arg_s_mtrl.piccode,
				:arg_s_mtrl.if_hourpay,
				:arg_s_mtrl.ifmrp,
				:arg_s_mtrl.if_inherit,
				:arg_s_mtrl.groupstr,
				:arg_s_mtrl.groupday,
				:arg_s_mtrl.aps_capacity_type,
				:arg_s_mtrl.scllplan_mode,
				:arg_s_mtrl.ifcheck,
				:arg_s_mtrl.checkrate,
				:arg_s_mtrl.chkpassrate,
				:arg_s_mtrl.dftcusid,
				:arg_s_mtrl.sendtype,
				:arg_s_mtrl.buy_ceiling,
				:arg_s_mtrl.wfjg_ceiling,
				:arg_s_mtrl.sale_ceiling,
				:arg_s_mtrl.scll_ceiling,
				:arg_s_mtrl.material,
				:arg_s_mtrl.adddec,
				:arg_s_mtrl.ifbarcodefp,
				:arg_s_mtrl.stoppqty,
				:arg_s_mtrl.buy_autoday,
				:arg_s_mtrl.upbuyrate,
				:arg_s_mtrl.upbuyqty,
				:arg_s_mtrl.ifrebuypack,
				:arg_s_mtrl.protype,
				:arg_s_mtrl.buydays_bx,
				:arg_s_mtrl.wfjgdays_bx,
				:arg_s_mtrl.multqty,
				:arg_s_mtrl.multtype,
				:arg_s_mtrl.buyer,
				:arg_s_mtrl.bantype
				From u_mtrldef LEFT Outer JOIN
				u_mtrldef_sl ON u_mtrldef.mtrlid = u_mtrldef_sl.mtrlid
				Where u_mtrldef.mtrlid = :ll_mtrlid;
			If sqlca.SQLCode <> 0 Then
				arg_msg = '查询物料原资料失败,'+sqlca.SQLErrText
				rslt = 0
				Goto ext
			End If
			
			
			If arg_s_mtrl.issuliao = 1 Then
				Select sk_mtrltypeid Into :arg_s_mtrl.sk_mtrltypeid
					From u_mtrldef_sl
					Where mtrlid = :ll_mtrlid;
				If sqlca.SQLCode <> 0 Then
					arg_s_mtrl.sk_mtrltypeid = 0
				End If
			Else
				arg_s_mtrl.sk_mtrltypeid = 0
			End If
			
			
		Else //无MTRLID的情况,属性值取默认值
			//如果有模板编码,读取模板编码的属性
			If ll_mb_mtrlid > 0 Then
				f_find_mtrl_by_id_noarr(ll_mb_mtrlid,arg_s_mtrl)
			Else
				
				arg_s_mtrl.dscrp = ''
				arg_s_mtrl.lmbuyprice = 0
				arg_s_mtrl.LMsaleprice = 0
				arg_s_mtrl.prdpackcode = ''
				arg_s_mtrl.packqty = 0
				arg_s_mtrl.unit_buy = ''
				arg_s_mtrl.rate_buy = 0
				arg_s_mtrl.unit_scll = ''
				arg_s_mtrl.rate_scll = 0
				arg_s_mtrl.unit_sale = ''
				arg_s_mtrl.rate_sale = 0
				arg_s_mtrl.minbuyqty = 0
				arg_s_mtrl.aheaddays = 0
				arg_s_mtrl.ifselforder = 0
				arg_s_mtrl.mprice = 0
				arg_s_mtrl.mtrlkind = 0
				arg_s_mtrl.lspacklimit = 0
				arg_s_mtrl.MaxQTY = 99999
				arg_s_mtrl.MinQTY = 0
				arg_s_mtrl.isuse = 1
				arg_s_mtrl.barcode = ''
				arg_s_mtrl.net_weight = 0
				arg_s_mtrl.gross_weight = 0
				arg_s_mtrl.cubage = 0
				arg_s_mtrl.mtrlengname = ''
				arg_s_mtrl.scllflag = 0
				arg_s_mtrl.ifscid = 0
				arg_s_mtrl.uprate = 0
				arg_s_mtrl.upqty = 0
				arg_s_mtrl.ordertype = 0
				arg_s_mtrl.statusflag = 0
				arg_s_mtrl.statustype = 0
				arg_s_mtrl.woodcodeflag = 0
				arg_s_mtrl.woodcodetype = 0
				arg_s_mtrl.pcodeflag = 0
				arg_s_mtrl.pcodetype = 0
				arg_s_mtrl.mtrlarea = 0
				arg_s_mtrl.dftsptid = 0
				arg_s_mtrl.mtrlarea1 = 0
				arg_s_mtrl.mtrlarea2 = 0
				arg_s_mtrl.iflimitprice = 0
				arg_s_mtrl.configcode = ''
				arg_s_mtrl.autoinstall = 0
				arg_s_mtrl.ifpack = 0
				arg_s_mtrl.configname = ''
				arg_s_mtrl.ifpackpro = 0
				arg_s_mtrl.mtrlcolor = ''
				arg_s_mtrl.configcodetype = 0
				arg_s_mtrl.ifautodd = 0
				arg_s_mtrl.iflljg = 0
				arg_s_mtrl.ifunit = 0
				arg_s_mtrl.ifpackpz = 0
				arg_s_mtrl.ifpacktype = 0
				arg_s_mtrl.scllrate = 0
				arg_s_mtrl.cmpqty = 1
				arg_s_mtrl.storagetype = 0
				arg_s_mtrl.ifmtrlcuscode = 0
				arg_s_mtrl.mrptype = 0
				arg_s_mtrl.mrparg = 5
				arg_s_mtrl.updownprice = 0
				arg_s_mtrl.outtype = 0
				arg_s_mtrl.ifpricepack = 0
				arg_s_mtrl.gydscrp = ''
				arg_s_mtrl.downrate = 0
				arg_s_mtrl.ifcustom = 0
				arg_s_mtrl.buyunit = 0
				arg_s_mtrl.wfjgunit = 0
				arg_s_mtrl.scllunit = 0
				arg_s_mtrl.saleunit = 0
				arg_s_mtrl.buydec = 5
				arg_s_mtrl.wfjgdec = 5
				arg_s_mtrl.sclldec = 5
				arg_s_mtrl.saledec = 5
				arg_s_mtrl.issuliao = 0
				arg_s_mtrl.period = 0
				arg_s_mtrl.ifenough = 0
				arg_s_mtrl.capacity = 0
				arg_s_mtrl.expday = 0
				arg_s_mtrl.capaparm = 1
				arg_s_mtrl.sctaskqty = 0
				arg_s_mtrl.minarg = 0
				arg_s_mtrl.maxarg = 0
				arg_s_mtrl.ifmrppackpf = 0
				arg_s_mtrl.maxzjday = 0
				arg_s_mtrl.eoq = 0
				arg_s_mtrl.splitrate = 0
				arg_s_mtrl.sk_mtrltypeid = 0
				
				arg_s_mtrl.status_check = 0
				arg_s_mtrl.woodcode_check = 0
				arg_s_mtrl.pcode_check = 0
				arg_s_mtrl.maxdays = 0
				arg_s_mtrl.mindays = 0
				arg_s_mtrl.mrp_unit = 0
				arg_s_mtrl.rebuytype = 0
				arg_s_mtrl.rebuylot = 0
				arg_s_mtrl.ifsendlot = 0
				arg_s_mtrl.upddrate = 0
				arg_s_mtrl.upddqty = 0
				arg_s_mtrl.upsalerate = 0
				arg_s_mtrl.upsaleqty = 0
				arg_s_mtrl.status_config = ''
				arg_s_mtrl.woodcode_config = ''
				arg_s_mtrl.pcode_config = ''
				arg_s_mtrl.rebuylot = 0
				arg_s_mtrl.ifusedeliqty = 0
				arg_s_mtrl.pricepztype = 0
				arg_s_mtrl.useday = 0
				arg_s_mtrl.equiptype = 0
				arg_s_mtrl.ifpackpro2 = 0
				arg_s_mtrl.skmtrlid = 0
				arg_s_mtrl.ifkl = 0
				arg_s_mtrl.ifturn = 0
				arg_s_mtrl.iffp = 0
				arg_s_mtrl.scllqty = 0
				arg_s_mtrl.dftscllwkpid = 0
				arg_s_mtrl.piccode = ''
				arg_s_mtrl.if_hourpay = 0
				arg_s_mtrl.ifmrp = 1
				arg_s_mtrl.if_inherit = 0
				arg_s_mtrl.groupstr = ''
				arg_s_mtrl.groupday = 0
				arg_s_mtrl.aps_capacity_type = ''
				arg_s_mtrl.ifcheck = 0
				arg_s_mtrl.checkrate = 1
				arg_s_mtrl.scllplan_mode = 0
				arg_s_mtrl.chkpassrate = 0
				arg_s_mtrl.dftcusid = 0
				arg_s_mtrl.sendtype = 0
				arg_s_mtrl.buy_ceiling = 0
				arg_s_mtrl.wfjg_ceiling = 0
				arg_s_mtrl.sale_ceiling = 0
				arg_s_mtrl.scll_ceiling = 0
				arg_s_mtrl.material = ''
				arg_s_mtrl.adddec = 0
				arg_s_mtrl.ifbarcodefp = 0
				arg_s_mtrl.stoppqty = 0
				arg_s_mtrl.buy_autoday = 0
				arg_s_mtrl.upbuyrate = 0
				arg_s_mtrl.upbuyqty = 0
				arg_s_mtrl.ifrebuypack = 0
				arg_s_mtrl.protype = 0
				arg_s_mtrl.buydays_bx = 0
				arg_s_mtrl.wfjgdays_bx = 0
				arg_s_mtrl.multqty = 0
				
				arg_s_mtrl.multtype = 0
				arg_s_mtrl.buyer = ''
				arg_s_mtrl.bantype = 0
				
			End If
		End If
		
		arg_s_mtrl.mtrlid = 0 //ll_mtrlid // 新建的资料或已有资料但设了模板
		arg_s_mtrl.mtrlcode = ls_mtrlcode
		arg_s_mtrl.mtrlname = ls_mtrlname
		arg_s_mtrl.unit = ls_unit
		arg_s_mtrl.mtrlmode = ls_mtrlmode
		arg_s_mtrl.mtrlsectype = ls_mtrlsectype
		arg_s_mtrl.zxmtrlmode = ls_zxmtrlmode
		arg_s_mtrl.usermtrlmode = ls_usermtrlmode
		
		arg_s_mtrl.orderdays = ld_orderdays
		arg_s_mtrl.buydays = ld_buydays
		arg_s_mtrl.wfjgdays = ld_wfjgdays
		
		arg_s_mtrl.mtrltypeid = ll_mtrltypeid
		arg_s_mtrl.scid = ll_scid
		arg_s_mtrl.dftwrkGrpid = ll_dftwrkgrpid
		
		
		arg_s_mtrl.Mtrlorigin = li_mtrlorigin
		arg_s_mtrl.mtrlprp = li_mtrlprp
		
		arg_s_mtrl.piccode = ls_piccode
		
		arg_s_mtrl.ifselforder = li_ifselforder
		arg_s_mtrl.ordertype = li_ordertype
		
		arg_s_mtrl.mb_mtrlid = ll_mb_mtrlid
		
		arg_s_mtrl.bantype = ll_bantype
		
		arg_s_mtrl.outtype = li_outtype
		arg_s_mtrl.dscrp = ls_dscrp_mtrl
		
		arg_s_mtrl.midu = ld_midu
		arg_s_mtrl.isuse = 1
		
		If uo_mtrl.uof_add_mtrl(arg_s_mtrl,publ_operator,arg_msg,False) = 0 Then
			arg_msg = "行:"+String(ll_i)+ ",建立新物料资料操作失败,"+arg_msg
			rslt = 0
			Goto ext
		End If
		
		arg_s_ban.wenli = dw_1.Object.u_mtrldef_ban_wenli[ll_i]
		arg_s_ban.fengbian = dw_1.Object.u_mtrldef_ban_fengbian[ll_i]
		arg_s_ban.paikong = dw_1.Object.u_mtrldef_ban_paikong[ll_i]
		arg_s_ban.luoji = dw_1.Object.u_mtrldef_ban_luoji[ll_i]
		arg_s_ban.penyou = dw_1.Object.u_mtrldef_ban_penyou[ll_i]
		arg_s_ban.gydscrp = dw_1.Object.u_mtrldef_ban_gydscrp[ll_i]
		arg_s_ban.promode = dw_1.Object.u_mtrldef_ban_promode[ll_i]
		arg_s_ban.direction = dw_1.Object.u_mtrldef_ban_direction[ll_i]
		arg_s_ban.pfklmode = dw_1.Object.u_mtrldef_ban_pfklmode[ll_i]
		
		
		If uo_mtrl.uof_update_ban(uo_mtrl.uo_mtrlid,arg_s_ban,arg_msg,False) = 0 Then
			arg_msg = "行:"+String(ll_i)+ ",建立新物料板件资料操作失败,"+arg_msg
			rslt = 0
			Goto ext
		End If
		
		//记录新建的物料编码,如果下面再出现,不重复新建资料 2014-10-06
		ll_cnt_new++
		ls_mtrlcode_new_arr[ll_cnt_new] = ls_mtrlcode
		
		
		ll_mtrlid_copy = uo_mtrl.uo_mtrlid
		
		dw_1.Object.newid[ll_i] = ll_mtrlid_copy
		
		If ll_mtrlid > 0 Then
			Insert Into u_mtrl_storage
				(mtrlid,storageid)
				Select :ll_mtrlid_copy,storageid
				From u_mtrl_storage
				Where mtrlid = :ll_mtrlid;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = sqlca.SQLErrText
				arg_msg = '复制物料存放仓库失败,'+arg_msg
				Goto ext
			End If
			
			Insert Into u_mtrl_wkp
				(mtrlid,
				swkpid,
				owkpid,
				wkpname,
				lastdays,
				dscrp)
				Select :ll_mtrlid_copy,
				u_mtrl_wkp.swkpid,
				u_mtrl_wkp.owkpid,
				u_mtrl_wkp.wkpname,
				u_mtrl_wkp.lastdays,
				u_mtrl_wkp.dscrp
				From u_mtrl_wkp
				Where mtrlid = :ll_mtrlid;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = sqlca.SQLErrText
				arg_msg = '复制车间交接流程失败,'+arg_msg
				Goto ext
			End If
			
			Insert Into u_mtrl_configure2
				(scid,
				mtrlid,
				pzid,
				printid,
				pzcode,
				pzname,
				pzcodemx,
				pznamemx
				)
				Select scid,
				:ll_mtrlid_copy,
				pzid,
				printid,
				pzcode,
				pzname,
				pzcodemx,
				pznamemx
				From u_mtrl_configure2
				Where mtrlid = :ll_mtrlid;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = sqlca.SQLErrText
				arg_msg = '复制产品配置失败,'+arg_msg
				Goto ext
			End If
			
			Declare cur_configure Cursor For
				Select u_mtrl_configure.code,
				u_mtrl_configure.name,
				u_mtrl_configure.ename,
				u_mtrl_configure.type,
				u_mtrl_configure.dscrp,
				u_mtrl_configure.DefaultPZ,
				u_mtrl_configure.ifzj,
				u_mtrl_configure.planprice,
				u_mtrl_configure.capacity,
				u_mtrl_configure.capaparm
				From u_mtrl_configure
				Where u_mtrl_configure.mtrlid = :ll_mtrlid;
			Open cur_configure;
			
			Fetch cur_configure Into :ls_code,:ls_name,:ls_ename,:ll_type,:ls_dscrp,
				:ll_DefaultPZ,:ll_ifzj,:ld_planprice,:ld_capacity,:ld_capaparm;
			Do While sqlca.SQLCode = 0
				
				ll_new_cid = f_sys_scidentity(0,"u_mtrl_configure","cid",arg_msg,True,id_sqlca)
				If ll_new_cid <= 0 Then
					rslt = 0
					arg_msg = '复制配置内容失败,'+arg_msg
					Goto ext
				End If
				
				Insert Into u_mtrl_configure
					(mtrlid,
					cid,
					code,
					name,
					ename,
					type,
					dscrp,
					defaultpz,
					ifzj,
					planprice,
					capacity,
					capaparm)
					Values( :ll_mtrlid_copy,
					:ll_new_cid,
					:ls_code,
					:ls_name,
					:ls_ename,
					:ll_type,
					:ls_dscrp,
					:ll_DefaultPZ,
					:ll_ifzj,
					:ld_planprice,
					:ld_capacity,
					:ld_capaparm);
				If sqlca.SQLCode <> 0 Then
					arg_msg = sqlca.SQLErrText
					arg_msg = '复制配置内容失败,'+arg_msg
					rslt = 0
					Goto ext
				End If
				Fetch cur_configure Into :ls_code,:ls_name,:ls_ename,:ll_type,:ls_dscrp,
					:ll_DefaultPZ,:ll_ifzj,:ld_planprice,:ld_capacity,:ld_capaparm;
			Loop
			Close cur_configure;
		End If
		
		If uo_pf.uof_addpflist(ll_mtrlid_copy,ls_pfcode,ll_dftwrkgrpid,'',0,1,0,False,arg_msg) = 0 Then
			rslt = 0
			Goto ext
		End If
		
		If uo_pf.uof_audit(ll_mtrlid_copy,ls_pfcode,1,arg_msg,False) = 0 Then
			arg_msg = "审核清单用料明细物料的物料清单失败,"+arg_msg
			rslt = 0
			Goto ext
		End If
		
		If ll_dftwrkgrpid > 0 Then
			If u_wrkprice.uof_add_list(ll_mtrlid_copy,'[常规]',ll_dftwrkgrpid,0,'',1,publ_operator,arg_msg,False) = 0 Then
				rslt = 0
				Goto ext
			End If
		End If
	else
		//现有物料,更新板件信息
		arg_s_ban.wenli = dw_1.Object.u_mtrldef_ban_wenli[ll_i]
		arg_s_ban.fengbian = dw_1.Object.u_mtrldef_ban_fengbian[ll_i]
		arg_s_ban.paikong = dw_1.Object.u_mtrldef_ban_paikong[ll_i]
		arg_s_ban.luoji = dw_1.Object.u_mtrldef_ban_luoji[ll_i]
		arg_s_ban.penyou = dw_1.Object.u_mtrldef_ban_penyou[ll_i]
		arg_s_ban.gydscrp = dw_1.Object.u_mtrldef_ban_gydscrp[ll_i]
		arg_s_ban.promode = dw_1.Object.u_mtrldef_ban_promode[ll_i]
		arg_s_ban.direction = dw_1.Object.u_mtrldef_ban_direction[ll_i]
		arg_s_ban.pfklmode = dw_1.Object.u_mtrldef_ban_pfklmode[ll_i]
		
		
		If uo_mtrl.uof_update_ban(dw_1.Object.u_mtrldef_mtrlid[ll_i],arg_s_ban,arg_msg,False) = 0 Then
			arg_msg = "行:"+String(ll_i)+ ",更新物料板件资料操作失败,"+arg_msg
			rslt = 0
			Goto ext
		End If
	
	End If
	
	_next_row:
Next

dw_1.AcceptText()

//建立清单
//1.建立主产品清单

Long ll_mtrlid_son
Decimal ld_sonscale,ld_sonloss,ld_sondecloss,ld_sonahead
String ls_dscrp_pf,ls_woodcode,ls_pcode,ls_status
String ls_sonpfcode

Long ll_printid
String ls_pfgroup,ls_pfgroupmode,ls_pfklmode
Decimal ls_pfgroupqty
Decimal ld_scllloss,ld_sclldecloss,ld_pfgroupqty
Long ll_ifover,ll_dipztype
Decimal ld_buyarg
Long ll_wrkgrpid
String ls_promode

Decimal ld_sonscale_p
Long cnt_fj

If ins_if_saletask = 1 Then
	Select count(*) Into :cnt
		From u_mtrl_pf
		Where mtrlid = :ins_mtrlid
		And pfcode = :ins_pfcode;
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '查询产品物料清单信息失败,'+sqlca.SQLErrText
		Goto ext
	End If
	
	
	If cnt = 0 Then
		Select count(*) Into :cnt_fj
			From U_File
			Where relid = :ins_mtrlid
			And relcode = :ins_pfcode
			And billtype = 202 Using sys_fileDB_sqlca;
		If sys_fileDB_sqlca.SQLCode <> 0 Then cnt_fj = 0
		
		
		Insert Into u_mtrl_pf(mtrlid,pfcode,if_saletask,moddate,modemp,inuse,dscrp,fjcnt)
			Values (:ins_mtrlid,:ins_pfcode,1,getdate(),:publ_operator,1,:ins_pfdscrp,:cnt_fj);
		If sqlca.SQLCode <> 0 Then
			rslt = 0
			arg_msg = "添加物料清单失败,"+sqlca.SQLErrText
			Goto ext
		End If
		
		If uo_pf.uof_audit(ins_mtrlid,ins_pfcode,1,arg_msg,False) = 0 Then
			arg_msg = "审核清单用料明细物料的物料清单失败,"+arg_msg
			rslt = 0
			Goto ext
		End If
	End If
End If

Delete From u_prdpf
	Where ( u_prdpf.mtrlid = :ins_mtrlid  ) And
	( u_prdpf.pfcode = :ins_pfcode  );
If sqlca.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '删除主产品原有物料清单失败,'+sqlca.SQLErrText
	Goto ext
End If

//FOR ll_i = 1 To dw_1.RowCount()
//	IF dw_1.Object.u_mtrldef_mtrlid[ll_i] = 0 THEN CONTINUE
//	
//	ll_mtrlid = dw_1.Object.u_mtrldef_mtrlid[ll_i]
//		ls_pfcode = f_get_dft_pf(ll_mtrlid)
////	ls_pfcode = ins_pfcode
//	
//	DELETE FROM u_prdpf
//		WHERE ( u_prdpf.mtrlid = :ll_mtrlid  ) AND
//		( u_prdpf.pfcode = :ls_pfcode  );
//	IF sqlca.SQLCode <> 0 THEN
//		rslt = 0
//		arg_msg = '行:'+String(ll_i)+',删除原有物料清单失败,'+sqlca.SQLErrText
//		GOTO ext
//	END IF
//NEXT

Int li_ifpackpro
Select ifpackpro Into :li_ifpackpro
	From u_mtrldef
	Where mtrlid = :ins_mtrlid;
If sqlca.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '查询主产品包件产品属性失败,'+sqlca.SQLErrText
	Goto ext
End If


For ll_i = 1 To dw_1.RowCount()
	If dw_1.Object.lp[ll_i] = 1 Then
		If dw_1.Object.u_prdpf_sonscale[ll_i] < 0 Then
			dw_1.SelectRow(0,False)
			dw_1.SetRow(ll_i)
			dw_1.SelectRow(ll_i,True)
			arg_msg = '不合理组成数量!在 '+String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' ,请核对!'
			rslt = 0
			Goto ext
		End If
		
		If dw_1.Object.u_prdpf_sonloss[ll_i] < 0 Or dw_1.Object.u_prdpf_sonloss[ll_i] >= 1 Then
			dw_1.SelectRow(0,False)
			dw_1.SetRow(ll_i)
			dw_1.SelectRow(ll_i,True)
			arg_msg = '不合理损耗率!在 '+String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' ,请核对!'
			rslt = 0
			Goto ext
		End If
		
		If dw_1.Object.u_prdpf_sondecloss[ll_i] < 0 Then
			dw_1.SelectRow(0,False)
			dw_1.SetRow(ll_i)
			dw_1.SelectRow(ll_i,True)
			
			arg_msg = '不合理附加损耗量!在 '+String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' ,请核对!'
			rslt = 0
			Goto ext
		End If
		
		If dw_1.Object.u_prdpf_wrkgrpid[ll_i] = 0 Then
			dw_1.SelectRow(0,False)
			dw_1.SetRow(ll_i)
			dw_1.SelectRow(ll_i,True)
			arg_msg = '请先选择领用工组'
			rslt = 0
			Goto ext
		End If
		
		If dw_1.Object.u_mtrldef_mtrlid[ll_i] = 0 Then
			ll_mtrlid_son = dw_1.Object.newid[ll_i]
		Else
			ll_mtrlid_son = dw_1.Object.u_mtrldef_mtrlid[ll_i]
		End If
		
		ld_sonscale = dw_1.Object.u_prdpf_sonscale[ll_i]
		ld_sonloss = dw_1.Object.u_prdpf_sonloss[ll_i]
		ld_sondecloss = dw_1.Object.u_prdpf_sondecloss[ll_i]
		ld_sonahead = dw_1.Object.u_prdpf_sonahead[ll_i]
		ls_status = dw_1.Object.u_prdpf_status[ll_i]
		ls_woodcode = dw_1.Object.u_prdpf_woodcode[ll_i]
		ls_pcode = dw_1.Object.u_prdpf_pcode[ll_i]
		ls_sonpfcode = dw_1.Object.u_prdpf_sonpfcode[ll_i]
		ll_printid = dw_1.Object.u_prdpf_printid[ll_i]
		ls_pfgroup = dw_1.Object.u_prdpf_pfgroup[ll_i]
		ld_pfgroupqty = dw_1.Object.u_prdpf_pfgroupqty[ll_i]
		ls_pfgroupmode = dw_1.Object.u_prdpf_pfgroupmode[ll_i]
		ls_pfklmode = dw_1.Object.u_prdpf_pfklmode[ll_i]
		ls_dscrp_pf = dw_1.Object.u_prdpf_dscrp[ll_i]
		ld_scllloss = dw_1.Object.u_prdpf_scllloss[ll_i]
		ld_sclldecloss = dw_1.Object.u_prdpf_sclldecloss[ll_i]
		ll_ifover = dw_1.Object.u_prdpf_ifover[ll_i]
		ll_dipztype = dw_1.Object.u_prdpf_dipztype[ll_i]
		ld_buyarg = dw_1.Object.u_prdpf_buyarg[ll_i]
		ll_wrkgrpid = dw_1.Object.u_prdpf_wrkgrpid[ll_i]
		ls_promode = dw_1.Object.u_prdpf_promode[ll_i]
		
		ll_modleid = dw_1.Object.u_prdpf_modleid[ll_i]
		ls_modlename = dw_1.Object.u_prdpf_modlename[ll_i]
		
		ls_wenli = dw_1.Object.u_prdpf_wenli[ll_i]
		ls_fengbian = dw_1.Object.u_prdpf_fengbian[ll_i]
		ls_paikong = dw_1.Object.u_prdpf_paikong[ll_i]
		ls_luoji = dw_1.Object.u_prdpf_luoji[ll_i]
		ls_penyou = dw_1.Object.u_prdpf_penyou[ll_i]
		ls_azcode = dw_1.Object.u_prdpf_azcode[ll_i]
		
		If li_ifpackpro = 5 And ll_dipztype <> 3 Then
			dw_1.SelectRow(0,False)
			dw_1.SetRow(ll_i)
			dw_1.SelectRow(ll_i,True)
			arg_msg = '全订制板式家具包件产品下级包件按配置运算或拆装必须选择"配置+配置1"'
			rslt = 0
			Goto ext
		End If
		
		Insert Into u_prdpf
			( mtrlid,
			pfcode,
			sonmtrlid,
			sonscale,
			sonloss,
			sondecloss,
			sonahead,
			status,
			woodcode,
			pcode,
			sonpfcode,
			printid,
			pfgroup,
			pfgroupqty,
			pfgroupmode,
			pfklmode,
			dscrp,
			scllloss,
			sclldecloss,
			ifover,
			dipztype,
			buyarg,
			wrkgrpid,
			promode,
			modleid,
			modlename,
			wenli,
			fengbian,
			paikong,
			luoji,
			penyou,
			azcode)
			Values ( :ins_mtrlid,
			:ins_pfcode,
			:ll_mtrlid_son,
			:ld_sonscale,
			:ld_sonloss,
			:ld_sondecloss,
			:ld_sonahead,
			:ls_status,
			:ls_woodcode,
			:ls_pcode,
			:ls_sonpfcode,
			:ll_printid,
			:ls_pfgroup,
			:ld_pfgroupqty,
			:ls_pfgroupmode,
			:ls_pfklmode,
			:ls_dscrp_pf,
			:ld_scllloss,
			:ld_sclldecloss,
			:ll_ifover,
			:ll_dipztype,
			:ld_buyarg,
			:ll_wrkgrpid,
			:ls_promode,
			:ll_modleid,
			:ls_modlename,
			:ls_wenli,
			:ls_fengbian,
			:ls_paikong,
			:ls_luoji,
			:ls_penyou,
			:ls_azcode)  ;
			
		If sqlca.SQLCode <> 0 Then
			If Pos(sqlca.SQLErrText,'PK_u_PrdPF') > 0 Then
				arg_msg = '插入主产品物料清单失败,发现重复信息,在'+String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' ,请核对!'
			Else
				arg_msg = '插入清单失败(主产品),'+sqlca.SQLErrText
			End If
			dw_1.SelectRow(0,False)
			dw_1.SetRow(ll_i)
			dw_1.SelectRow(ll_i,True)
			rslt = 0
			Goto ext
		End If
		
	End If
Next

//2.建立新建物料清单
For ll_i = 1 To dw_1.RowCount()
	If dw_1.Object.lp[ll_i] = 0 Then Continue
	If dw_1.Object.u_mtrldef_mtrlid[ll_i] = 0 And dw_1.Object.newid[ll_i] = 0 Then Continue
	
	ll_lp = dw_1.Object.lp[ll_i]
	
	If dw_1.Object.u_mtrldef_mtrlid[ll_i] = 0 Then
		ll_mtrlid = dw_1.Object.newid[ll_i]
		ls_pfcode = dw_1.Object.u_prdpf_sonpfcode[ll_i]
	Else
		If ins_if_saletask = 1 And dw_1.Object.u_prdpf_sonpfcode[ll_i] = ins_pfcode Then
			//使用圆方全订制导入,包件清单号按产品清单
			ll_mtrlid = dw_1.Object.u_mtrldef_mtrlid[ll_i]
			ls_pfcode = ins_pfcode
			
			Select count(*) Into :cnt
				From u_mtrl_pf
				Where mtrlid = :ll_mtrlid
				And pfcode = :ls_pfcode;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = '查询产品物料清单信息失败,'+sqlca.SQLErrText
				Goto ext
			End If
			
			
			If cnt = 0 Then
				Insert Into u_mtrl_pf(mtrlid,pfcode,if_saletask,moddate,modemp,inuse,dscrp)
					Values (:ll_mtrlid,:ls_pfcode,1,getdate(),:publ_operator,1,:ins_pfdscrp);
				If sqlca.SQLCode <> 0 Then
					rslt = 0
					arg_msg = "添加物料清单失败,"+sqlca.SQLErrText
					Goto ext
				End If
				
				If uo_pf.uof_audit(ll_mtrlid,ls_pfcode,1,arg_msg,False) = 0 Then
					arg_msg = "审核清单用料明细物料的物料清单失败,"+arg_msg
					rslt = 0
					Goto ext
				End If
			End If
			
		Else
			ll_mtrlid = dw_1.Object.u_mtrldef_mtrlid[ll_i]
			ls_pfcode = dw_1.Object.u_prdpf_sonpfcode[ll_i]
			
			If Trim(ls_pfcode) = '' Then
				ls_pfcode = f_get_dft_pf(ll_mtrlid)
			End If
			
			Select count(*) Into :cnt
				From u_mtrl_pf
				Where mtrlid = :ll_mtrlid
				And pfcode = :ls_pfcode;
			If sqlca.SQLCode <> 0 Then
				rslt = 0
				arg_msg = '查询产品物料清单信息失败,'+sqlca.SQLErrText
				Goto ext
			End If
			
			
			If cnt = 0 Then
				Insert Into u_mtrl_pf(mtrlid,pfcode,if_saletask,moddate,modemp,inuse,dscrp)
					Values (:ll_mtrlid,:ls_pfcode,1,getdate(),:publ_operator,1,:ins_pfdscrp);
				If sqlca.SQLCode <> 0 Then
					rslt = 0
					arg_msg = "添加物料清单失败,"+sqlca.SQLErrText
					Goto ext
				End If
				
				If uo_pf.uof_audit(ll_mtrlid,ls_pfcode,1,arg_msg,False) = 0 Then
					arg_msg = "审核清单用料明细物料的物料清单失败,"+arg_msg
					rslt = 0
					Goto ext
				End If
			End If
			
		End If
	End If
	
	ld_sonscale_p = dw_1.Object.u_prdpf_sonscale[ll_i]
	ld_sonloss_p = dw_1.Object.u_prdpf_sonloss[ll_i]
	ld_sondecloss_p = dw_1.Object.u_prdpf_sondecloss[ll_i]
	
	Select cmpqty Into :ld_cmpqty_p
		From u_mtrldef
		Where mtrlid = :ll_mtrlid;
	If sqlca.SQLCode <> 0 Then ld_cmpqty_p = 1
	
	
	ld_qty = Round(((ld_sonscale_p/(1 - ld_sonloss_p)+ ld_sondecloss_p) / ld_cmpqty_p),sys_option_produce_dec)
	
	
	If ld_sonscale_p <=  0 Then
		dw_1.SelectRow(0,False)
		dw_1.SetRow(ll_i)
		dw_1.SelectRow(ll_i,True)
		arg_msg = '不合理组成数量!在 '+String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' ,请核对!'
		rslt = 0
		Goto ext
	End If
	
	Delete From u_prdpf
		Where ( u_prdpf.mtrlid = :ll_mtrlid  ) And
		( u_prdpf.pfcode = :ls_pfcode  );
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '行:'+String(ll_i)+',删除原有物料清单失败,'+sqlca.SQLErrText
		Goto ext
	End If
	
	For ll_j = ll_i + 1 To dw_1.RowCount()
		If dw_1.Object.lp[ll_j] <= ll_lp Then Exit
		If dw_1.Object.lp[ll_j] = ll_lp + 1  Then
			If dw_1.Object.u_prdpf_sonscale[ll_j] <= 0 Then
				dw_1.SelectRow(0,False)
				dw_1.SetRow(ll_j)
				dw_1.SelectRow(ll_j,True)
				arg_msg = '不合理组成数量!在 '+String(dw_1.Object.u_mtrldef_mtrlcode[ll_j])+' ,请核对!'
				rslt = 0
				Goto ext
			End If
			
			If dw_1.Object.u_prdpf_sonloss[ll_j] < 0 Or dw_1.Object.u_prdpf_sonloss[ll_j] >= 1 Then
				dw_1.SelectRow(0,False)
				dw_1.SetRow(ll_j)
				dw_1.SelectRow(ll_j,True)
				arg_msg = '不合理损耗率!在 '+String(dw_1.Object.u_mtrldef_mtrlcode[ll_j])+' ,请核对!'
				rslt = 0
				Goto ext
			End If
			
			If dw_1.Object.u_prdpf_sondecloss[ll_j] < 0 Then
				dw_1.SelectRow(0,False)
				dw_1.SetRow(ll_j)
				dw_1.SelectRow(ll_j,True)
				
				arg_msg = '不合理附加损耗量!在 '+String(dw_1.Object.u_mtrldef_mtrlcode[ll_j])+' ,请核对!'
				rslt = 0
				Goto ext
			End If
			
			If dw_1.Object.u_prdpf_wrkgrpid[ll_j] = 0 Then
				dw_1.SelectRow(0,False)
				dw_1.SetRow(ll_j)
				dw_1.SelectRow(ll_j,True)
				arg_msg = '请先选择领用工组'
				rslt = 0
				Goto ext
			End If
			
			If dw_1.Object.u_mtrldef_mtrlid[ll_j] = 0 Then
				ll_mtrlid_son = dw_1.Object.newid[ll_j]
			Else
				ll_mtrlid_son = dw_1.Object.u_mtrldef_mtrlid[ll_j]
			End If
			
			ld_sonscale = dw_1.Object.u_prdpf_sonscale[ll_j]
			ld_sonloss = dw_1.Object.u_prdpf_sonloss[ll_j]
			ld_sondecloss = dw_1.Object.u_prdpf_sondecloss[ll_j]
			ld_sonahead = dw_1.Object.u_prdpf_sonahead[ll_j]
			ls_status = dw_1.Object.u_prdpf_status[ll_j]
			ls_woodcode = dw_1.Object.u_prdpf_woodcode[ll_j]
			ls_pcode = dw_1.Object.u_prdpf_pcode[ll_j]
			ls_sonpfcode = dw_1.Object.u_prdpf_sonpfcode[ll_j]
			ll_printid = dw_1.Object.u_prdpf_printid[ll_j]
			ls_pfgroup = dw_1.Object.u_prdpf_pfgroup[ll_j]
			ld_pfgroupqty = dw_1.Object.u_prdpf_pfgroupqty[ll_j]
			ls_pfgroupmode = dw_1.Object.u_prdpf_pfgroupmode[ll_j]
			ls_pfklmode = dw_1.Object.u_prdpf_pfklmode[ll_j]
			ls_dscrp_pf = dw_1.Object.u_prdpf_dscrp[ll_j]
			ld_scllloss = dw_1.Object.u_prdpf_scllloss[ll_j]
			ld_sclldecloss = dw_1.Object.u_prdpf_sclldecloss[ll_j]
			ll_ifover = dw_1.Object.u_prdpf_ifover[ll_j]
			ll_dipztype = dw_1.Object.u_prdpf_dipztype[ll_j]
			ld_buyarg = dw_1.Object.u_prdpf_buyarg[ll_j]
			ll_wrkgrpid = dw_1.Object.u_prdpf_wrkgrpid[ll_j]
			ls_promode = dw_1.Object.u_prdpf_promode[ll_j]
			
			ll_modleid = dw_1.Object.u_prdpf_modleid[ll_j]
			ls_modlename = dw_1.Object.u_prdpf_modlename[ll_j]
			
			ld_sonscale = ld_sonscale / ld_qty
			
			ls_wenli = dw_1.Object.u_prdpf_wenli[ll_j]
			ls_fengbian = dw_1.Object.u_prdpf_fengbian[ll_j]
			ls_paikong = dw_1.Object.u_prdpf_paikong[ll_j]
			ls_luoji = dw_1.Object.u_prdpf_luoji[ll_j]
			ls_penyou = dw_1.Object.u_prdpf_penyou[ll_j]
			ls_azcode = dw_1.Object.u_prdpf_azcode[ll_j]
			
			Insert Into u_prdpf
				( mtrlid,
				pfcode,
				sonmtrlid,
				sonscale,
				sonloss,
				sondecloss,
				sonahead,
				status,
				woodcode,
				pcode,
				sonpfcode,
				printid,
				pfgroup,
				pfgroupqty,
				pfgroupmode,
				pfklmode,
				dscrp,
				scllloss,
				sclldecloss,
				ifover,
				dipztype,
				buyarg,
				wrkgrpid,
				promode,
				modleid,
				modlename,
				wenli,
				fengbian,
				paikong,
				luoji,
				penyou,
				azcode)
				Values ( :ll_mtrlid,
				:ls_pfcode,
				:ll_mtrlid_son,
				:ld_sonscale,
				:ld_sonloss,
				:ld_sondecloss,
				:ld_sonahead,
				:ls_status,
				:ls_woodcode,
				:ls_pcode,
				:ls_sonpfcode,
				:ll_printid,
				:ls_pfgroup,
				:ld_pfgroupqty,
				:ls_pfgroupmode,
				:ls_pfklmode,
				:ls_dscrp_pf,
				:ld_scllloss,
				:ld_sclldecloss,
				:ll_ifover,
				:ll_dipztype,
				:ld_buyarg,
				:ll_wrkgrpid,
				:ls_promode,
				:ll_modleid,
				:ls_modlename,
				:ls_wenli,
				:ls_fengbian,
				:ls_paikong,
				:ls_luoji,
				:ls_penyou,
				:ls_azcode)  ;
				
			If sqlca.SQLCode <> 0 Then
				If Pos(sqlca.SQLErrText,'PK_u_PrdPF') > 0 Then
					arg_msg = '插入'+String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' 物料清单失败,发现重复信息,在'+String(dw_1.Object.u_mtrldef_mtrlcode[ll_j])+' ,请核对!'
				Else
					arg_msg = '插入'+String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' 物料清单失败,在'+String(dw_1.Object.u_mtrldef_mtrlcode[ll_j])+' ,'+sqlca.SQLErrText
				End If
				dw_1.SelectRow(0,False)
				dw_1.SetRow(ll_i)
				dw_1.SelectRow(ll_i,True)
				rslt = 0
				Goto ext
			End If
		End If
	Next
	
	Update u_mtrl_pf
		Set moddate = getdate() ,
		modemp = :publ_operator
		Where mtrlid = :ll_mtrlid
		And pfcode = :ls_pfcode;
	If sqlca.SQLCode <> 0 Then
		rslt = 0
		arg_msg = String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' 更新物料清单构成修改时间失败,'+arg_msg
		Goto ext
	End If
	
	//计算物料清单用料列表
	If uo_pf.f_clearprdpfmx(ll_mtrlid,ls_pfcode,arg_msg,False) = 0 Then
		rslt = 0
		arg_msg = String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' 清除原用料列表失败,'+arg_msg
		Goto ext
	End If
	
	If uo_pf.f_cmpprdpf(ll_mtrlid,ll_mtrlid,ls_pfcode,ls_pfcode,1,1,1,arg_msg,False,0) = 0 Then
		rslt = 0
		arg_msg = String(dw_1.Object.u_mtrldef_mtrlcode[ll_i])+' 计算新用料列表失败,'+arg_msg
		Goto ext
	End If
Next

Update u_mtrl_pf
	Set moddate = getdate() ,
	modemp = :publ_operator
	Where mtrlid = :ins_mtrlid
	And pfcode = :ins_pfcode;
If sqlca.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '更新主产品物料清单构成修改时间失败,'+arg_msg
	Goto ext
End If

//计算主产品物料清单用料列表
If uo_pf.f_clearprdpfmx(ins_mtrlid,ins_pfcode,arg_msg,False) = 0 Then
	rslt = 0
	arg_msg = '清除主产品原用料列表失败,'+arg_msg
	Goto ext
End If

If uo_pf.f_cmpprdpf(ins_mtrlid,ins_mtrlid,ins_pfcode,ins_pfcode,1,1,1,arg_msg,False,0) = 0 Then
	rslt = 0
	arg_msg = '计算主产品新用料列表失败,'+arg_msg
	Goto ext
End If



//3.建立工价表
//4.建立工组流程

dw_copy.SetFilter('')
dw_copy.Filter()

dw_copy_wkp.SetFilter('')
dw_copy_wkp.Filter()

dw_copy.AcceptText()
dw_copy_wkp.AcceptText()

For ll_i = 1 To dw_1.RowCount()
	If dw_1.Object.u_mtrldef_mtrlid[ll_i] = 0 And dw_1.Object.newid[ll_i] = 0 Then Continue
	
	If dw_1.Object.ifmod_wp[ll_i] = 1 Then
		If dw_1.Object.u_mtrldef_mtrlid[ll_i] > 0 Then
			ll_mtrlid_wp = dw_1.Object.u_mtrldef_mtrlid[ll_i]
		Else
			ll_mtrlid_wp = dw_1.Object.newid[ll_i]
		End If
		
		ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_i]
		ls_wpcode = f_get_dft_wp(ll_mtrlid_wp)
		
		If u_wrkprice.updatebegin(ll_mtrlid_wp,ls_wpcode,dw_1.Object.u_mtrldef_dftwrkgrpid[ll_i],arg_msg) = 0 Then
			arg_msg = '物料:'+ls_mtrlcode+','+arg_msg
			rslt = 0
			Goto ext
		End If
		
		u_wrkprice.mtrlid = ll_mtrlid_wp
		u_wrkprice.wpmtrlid = 0
		u_wrkprice.wprate = 0
		
		cnt = 0
		For ll_j = 1 To dw_copy.RowCount()
			If dw_copy.Object.u_mtrldef_mtrlcode[ll_j] = ls_mtrlcode Then
				If Trim(dw_copy.Object.procode[ll_j]) <> '' Then //And dw_copy.Object.auditflag[ll_j] = 0 THEN
					If u_wrkprice.acceptmx(dw_copy.Object.proid[ll_j],&
						dw_copy.Object.procode[ll_j],&
						dw_copy.Object.u_sc_workprice_proname[ll_j],&
						dw_copy.Object.workqty[ll_j],&
						dw_copy.Object.workprice[ll_j],&
						dw_copy.Object.wrkgrpid[ll_j],&
						Upper(dw_copy.Object.worklevel[ll_j]),&
						Upper(dw_copy.Object.techlevel[ll_j]),&
						dw_copy.Object.workhour[ll_j],&
						dw_copy.Object.dscrp[ll_j],&
						dw_copy.Object.lastflag[ll_j],&
						dw_copy.Object.proorder[ll_j],&
						0,&
						dw_copy.Object.lsxtype[ll_j],&
						dw_copy.Object.u_sc_workprice_ifstandard[ll_j],&
						dw_copy.Object.u_sc_workprice_status[ll_j],&
						dw_copy.Object.u_sc_workprice_ifjd[ll_j],&
						dw_copy.Object.u_sc_workprice_utcode[ll_j],&
						dw_copy.Object.u_sc_workprice_sctype[ll_j],&
						dw_copy.Object.u_sc_workprice_equipmentid[ll_j],&
						dw_copy.Object.u_sc_workprice_workdays[ll_j],&
						dw_copy.Object.u_sc_workprice_beforehour_minute[ll_j],&
						dw_copy.Object.u_sc_workprice_afterhour_minute[ll_j],&
						dw_copy.Object.u_sc_workprice_pricestr[ll_j],&
						dw_copy.Object.u_sc_workprice_partname[ll_j],&
						dw_copy.Object.u_sc_workprice_eqworkhour_minute[ll_j],&
						dw_copy.Object.u_sc_workprice_worktype[ll_j],&
						0,0,0,0,0,0,0,0,0,&
						dw_copy.Object.u_sc_workprice_eq_empnum[ll_j],0,0,&
						dw_copy.Object.u_sc_workprice_workqtystr[ll_j],&
						0,&
						dw_copy.Object.u_sc_workprice_u_workqty[ll_j],&
						dw_copy.Object.u_sc_workprice_u_workprice[ll_j],&
						dw_copy.Object.u_sc_workprice_u_workqtystr[ll_j],&
						dw_copy.Object.u_sc_workprice_u_pricestr[ll_j],'',0,0,0,0,&
						arg_msg) = 0 Then
						rslt = 0
						arg_msg = '建立工价表失败,物料:'+ls_mtrlcode+','+arg_msg
						Goto ext
					End If
					cnt++
				End If
			End If
		Next
		
		If cnt > 0 Then
			If u_wrkprice.Save(False,arg_msg) = 0 Then
				arg_msg = '建立工价表失败,物料:'+ls_mtrlcode+','+arg_msg
				rslt = 0
				Goto ext
			End If
		End If
	End If
	
	If dw_1.Object.ifmod_wkp[ll_i] = 1 Then
		If dw_1.Object.u_mtrldef_mtrlid[ll_i] > 0 Then
			ll_mtrlid_wp = dw_1.Object.u_mtrldef_mtrlid[ll_i]
		Else
			ll_mtrlid_wp = dw_1.Object.newid[ll_i]
		End If
		
		ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_i]
		
		Delete From u_mtrl_wkp
			Where mtrlid = :ll_mtrlid_wp;
		If sqlca.SQLCode <> 0 Then
			arg_msg = '物料:'+ls_mtrlcode+',删除原工组流程失败,'+sqlca.SQLErrText
			rslt = 0
			Goto ext
		End If
		
		For ll_j = 1 To dw_copy_wkp.RowCount()
			If dw_copy_wkp.Object.u_mtrldef_mtrlcode[ll_j] = ls_mtrlcode Then
				printid_wkp =  dw_copy_wkp.Object.printid[ll_j]
				wkpname_wkp =  dw_copy_wkp.Object.wkpname[ll_j]
				groupstr_wkp =  dw_copy_wkp.Object.groupstr[ll_j]
				swkpid_wkp =  dw_copy_wkp.Object.swkpid[ll_j]
				owkpid_wkp =  dw_copy_wkp.Object.owkpid[ll_j]
				iflast_wkp =  dw_copy_wkp.Object.iflast[ll_j]
				lasthour_wkp =  dw_copy_wkp.Object.lasthour[ll_j]
				lastdays_wkp =  dw_copy_wkp.Object.lastdays[ll_j]
				minlasthour_wkp =  dw_copy_wkp.Object.minlasthour[ll_j]
				uprate_wkp =  dw_copy_wkp.Object.uprate[ll_j]
				dscrp_wkp =  dw_copy_wkp.Object.dscrp[ll_j]
				lp_wkp =  dw_copy_wkp.Object.lp[ll_j]
				printlp_wkp =  dw_copy_wkp.Object.printlp[ll_j]
				workhour_wkp =  dw_copy_wkp.Object.workhour[ll_j]
				beforehour_wkp =  dw_copy_wkp.Object.beforehour[ll_j]
				afterhour_wkp =  dw_copy_wkp.Object.afterhour[ll_j]
				workgroupid_wkp =  dw_copy_wkp.Object.workgroupid[ll_j]
				gydscrp_wkp =  dw_copy_wkp.Object.gydscrp[ll_j]
				
				Insert Into u_mtrl_wkp
					(mtrlid,
					printid,
					wkpname,
					groupstr,
					swkpid,
					owkpid,
					iflast,
					lasthour,
					lastdays,
					minlasthour,
					uprate,
					dscrp,
					lp,
					printlp,
					workhour,
					beforehour,
					afterhour,
					workgroupid,
					gydscrp)
					Values (:ll_mtrlid_wp,
					:printid_wkp,
					:wkpname_wkp,
					:groupstr_wkp,
					:swkpid_wkp,
					:owkpid_wkp,
					:iflast_wkp,
					:lasthour_wkp,
					:lastdays_wkp,
					:minlasthour_wkp,
					:uprate_wkp,
					:dscrp_wkp,
					:lp_wkp,
					:printlp_wkp,
					:workhour_wkp,
					:beforehour_wkp,
					:afterhour_wkp,
					:workgroupid_wkp,
					:gydscrp_wkp);
				If sqlca.SQLCode <> 0 Then
					arg_msg = '物料:'+ls_mtrlcode+',插入工组流程失败,'+sqlca.SQLErrText
					rslt = 0
					Goto ext
				End If
				
			End If
		Next
		
	End If
	
Next


If ins_if_saletask = 1 Then
	If li_ifpackpro <> 5 Then
		Update u_SaleTaskMx
			Set pfcode = :ins_pfcode
			Where scid = :ins_scid
			And taskid = :ins_taskid
			And printid = :ins_printid;
		If sqlca.SQLCode <> 0 Then
			arg_msg = '更新订单明细物料清单号失败,'+sqlca.SQLErrText
			rslt = 0
			Goto ext
		End If
	Else
		Update u_SaleTaskMx
			Set pfcode = :ins_pfcode,
			status = :ins_pfcode
			Where scid = :ins_scid
			And taskid = :ins_taskid
			And printid = :ins_printid;
		If sqlca.SQLCode <> 0 Then
			arg_msg = '更新订单明细物料清单号失败,'+sqlca.SQLErrText
			rslt = 0
			Goto ext
		End If
	End If
End If

If cbx_wp_pack.Checked Then
	If wf_auto_wp(cbx_wp_add.Checked,arg_msg) = 0 Then
		arg_msg = '按清单说明自动生成包件工价表失败,'+sqlca.SQLErrText
		rslt = 0
		Goto ext
	End If
End If

ext:
If rslt = 1 Then
	Commit;
ElseIf rslt = 0 Then
	Rollback;
End If

Return rslt










end function

public function integer wf_addmx (long arg_mtrlid, string arg_pfcode, long arg_lp, decimal arg_qty, ref string arg_msg);Int rslt = 1
Decimal ld_cmpqty
String ls_mtrlcode
Long count,ll_i
Decimal ld_qty
Long ll_row

Select mtrlcode,cmpqty
	Into :ls_mtrlcode,:ld_cmpqty
	From u_mtrldef
	Where mtrlid = :arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询物料清单基数失败,ID:'+String(arg_mtrlid)+','+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

If ld_cmpqty <= 0 Then
	arg_msg = '不合理的物料清单基数,物料:'+ls_mtrlcode
	rslt = 0
	Goto ext
End If

String mtrlcode[]
Long mtrlprp[]
Long wrkgrpid[]
Decimal Sonscale[],SonLoss[],SonDECLosS[]
String status[],woodcode[],pcode[]
Decimal Sonahead[]
String mtrlname[],unit[],mtrlmode[],mtrlsectype[],zxmtrlmode[],wrkGrpName[]
Long statusflag[],statustype[],woodcodeflag[],woodcodetype[],pcodeflag[],pcodetype[]
String usermtrlmode[]
Long Mtrlorigin[]
String sonpfcode[]
Long SonMtrlid[],printid[]

String pfgroup[]
Decimal pfgroupqty[]
String pfgroupmode[],pfklmode[],dscrp[]
Decimal baseqty[],scllloss[],sclldecloss[]
Long ifover[],dipztype[]
Decimal buyarg[],orderdays[],buydays[],wfjgdays[]
Long dftwrkgrpid[]
Long mtrltypeid[],scid[]
String promode[]
Int ordertype[],ifselforder[]

Long modleid[]
String modlename[],wenli[],fengbian[],paikong[],luoji[],penyou[]
String wenli_mtrl[],fengbian_mtrl[],paikong_mtrl[],luoji_mtrl[],penyou_mtrl[],promode_mtrl[],gydscrp_mtrl[],pfklmode_mtrl[]
int outtype[],ifpack[],direction[],bantype[]
decimal midu[]
string ls_dscrp_mtrl[]

decimal ld_long,ld_height,ld_width,ld_cubage

Declare cur_pf Cursor For
	Select u_mtrldef.mtrlcode,
	u_mtrldef.mtrlprp,
	u_PrdPF.wrkgrpid,
	u_PrdPF.Sonscale,
	u_PrdPF.SonLoss,
	u_PrdPF.SonDECLosS,
	u_PrdPF.status,
	u_PrdPF.woodcode,
	u_PrdPF.pcode,
	u_PrdPF.Sonahead,
	u_mtrldef.mtrlname,
	u_mtrldef.unit,
	u_mtrldef.mtrlmode,
	u_mtrldef.mtrlsectype,
	u_mtrldef.zxmtrlmode,
	u_sc_wkp.wrkGrpName,
	u_mtrldef.statusflag,
	u_mtrldef.statustype,
	u_mtrldef.woodcodeflag,
	u_mtrldef.woodcodetype,
	u_mtrldef.pcodeflag,
	u_mtrldef.pcodetype,
	u_mtrldef.usermtrlmode,
	u_mtrldef.Mtrlorigin,
	u_PrdPF.sonpfcode,
	u_PrdPF.SonMtrlid,
	u_PrdPF.printid,
	u_prdpf.pfgroup,
	u_prdpf.pfgroupqty,
	u_prdpf.pfgroupmode,
	u_prdpf.pfklmode,
	u_prdpf.dscrp,
	u_prdpf.baseqty,
	u_prdpf.scllloss,
	u_prdpf.sclldecloss,
	u_prdpf.ifover,
	u_prdpf.dipztype,
	u_prdpf.buyarg,
	u_mtrldef.orderdays,
	u_mtrldef.buydays,
	u_mtrldef.wfjgdays,
	u_mtrldef.dftwrkgrpid,
	u_mtrldef.scid,
	u_mtrldef.mtrltypeid,
	u_prdpf.promode,
	u_mtrldef.ifselforder,
	u_mtrldef.ordertype,
	u_prdpf.modleid,
	u_prdpf.modlename,
	u_PrdPF.wenli,
	u_PrdPF.fengbian,
	u_PrdPF.paikong,
	u_PrdPF.luoji,
	u_PrdPF.penyou,
	isnull(u_mtrldef_ban.promode,'') as promode,
	isnull(u_mtrldef_ban.wenli,'') as wenli,
	isnull(u_mtrldef_ban.fengbian,'') as fengbian,
	isnull(u_mtrldef_ban.paikong,'') as paikong,
	isnull(u_mtrldef_ban.luoji,'') as luoji,
	isnull(u_mtrldef_ban.penyou,'') as penyou,
	isnull(u_mtrldef_ban.gydscrp,'') as gydscrp,
	u_mtrldef.outtype,
	u_mtrldef.ifpack,
	isnull(u_mtrldef_ban.direction,0) as direction,
	u_mtrldef.midu,
	isnull(u_mtrldef_ban.pfklmode,0) as pfklmode,
	u_mtrldef.dscrp,
	u_mtrldef.bantype
	From u_PrdPF Inner JOIN
	u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid LEFT Outer JOIN
	u_mtrldef_ban ON u_mtrldef.mtrlid = u_mtrldef_ban.mtrlid LEFT Outer JOIN
	u_sc_wkp ON u_mtrldef.dftwrkGrpid = u_sc_wkp.wrkGrpid
	Where u_prdpf.mtrlid = :arg_mtrlid
	And u_prdpf.pfcode = :arg_pfcode
	Order By u_PrdPF.printid;
	
Open cur_pf;

count = 1

Fetch cur_pf Into :mtrlcode[count],:mtrlprp[count],:wrkgrpid[count],&
	:Sonscale[count],:SonLoss[count],:SonDECLosS[count],:status[count],&
	:woodcode[count],:pcode[count],:Sonahead[count],:mtrlname[count],:unit[count],&
	:mtrlmode[count],:mtrlsectype[count],:zxmtrlmode[count],:wrkGrpName[count],&
	:statusflag[count],:statustype[count],:woodcodeflag[count],:woodcodetype[count],&
	:pcodeflag[count],:pcodetype[count],:usermtrlmode[count],:Mtrlorigin[count],&
	:sonpfcode[count],:SonMtrlid[count],:printid[count],&
	:pfgroup[count],:pfgroupqty[count],:pfgroupmode[count],:pfklmode[count],:dscrp[count],&
	:baseqty[count],:scllloss[count],:sclldecloss[count],:ifover[count],:dipztype[count],&
	:buyarg[count],:orderdays[count],:buydays[count],:wfjgdays[count],&
	:dftwrkgrpid[count],:scid[count],:mtrltypeid[count],:promode[count],&
	:ifselforder[count],:ordertype[count],:modleid[count],:modlename[count],&
	:wenli[count], :fengbian[count], :paikong[count], :luoji[count], :penyou[count],&
	:promode_mtrl[count],:wenli_mtrl[count],:fengbian_mtrl[count],:paikong_mtrl[count],:luoji_mtrl[count],:penyou_mtrl[count],:gydscrp_mtrl[count],:outtype[count],&
	:ifpack[count],:direction[count],:midu[count],:pfklmode_mtrl[count],:ls_dscrp_mtrl[count],:bantype[count];
	
Do While sqlca.SQLCode = 0
	count++
	Fetch cur_pf Into :mtrlcode[count],:mtrlprp[count],:wrkgrpid[count],&
		:Sonscale[count],:SonLoss[count],:SonDECLosS[count],:status[count],&
		:woodcode[count],:pcode[count],:Sonahead[count],:mtrlname[count],:unit[count],&
		:mtrlmode[count],:mtrlsectype[count],:zxmtrlmode[count],:wrkGrpName[count],&
		:statusflag[count],:statustype[count],:woodcodeflag[count],:woodcodetype[count],&
		:pcodeflag[count],:pcodetype[count],:usermtrlmode[count],:Mtrlorigin[count],&
		:sonpfcode[count],:SonMtrlid[count],:printid[count],&
		:pfgroup[count],:pfgroupqty[count],:pfgroupmode[count],:pfklmode[count],:dscrp[count],&
		:baseqty[count],:scllloss[count],:sclldecloss[count],:ifover[count],:dipztype[count],&
		:buyarg[count],:orderdays[count],:buydays[count],:wfjgdays[count],&
		:dftwrkgrpid[count],:scid[count],:mtrltypeid[count],:promode[count],&
		:ifselforder[count],:ordertype[count],:modleid[count],:modlename[count],&
		:wenli[count], :fengbian[count], :paikong[count], :luoji[count], :penyou[count],&
		:promode_mtrl[count],:wenli_mtrl[count],:fengbian_mtrl[count],:paikong_mtrl[count],:luoji_mtrl[count],:penyou_mtrl[count],:gydscrp_mtrl[count],:outtype[count],&
		:ifpack[count],:direction[count],:midu[count],:pfklmode_mtrl[count],:ls_dscrp_mtrl[count],:bantype[count];
Loop
count = count - 1
Close cur_pf;


For ll_i = 1 To count
	ld_qty = Round(((Sonscale[ll_i]/(1 - SonLoss[ll_i])+ SonDECLosS[ll_i]) / ld_cmpqty) * arg_qty,sys_option_produce_dec)
	
	ll_row = dw_1.InsertRow(0)
	
	dw_1.Object.u_mtrldef_mtrlcode[ll_row] = mtrlcode[ll_i]
	dw_1.Object.u_mtrldef_mtrlprp[ll_row] = mtrlprp[ll_i]
	dw_1.Object.u_PrdPF_wrkgrpid[ll_row] = wrkgrpid[ll_i]
	dw_1.Object.u_PrdPF_Sonscale[ll_row] = Sonscale[ll_i] * arg_qty
	dw_1.Object.u_PrdPF_Sonscale_ori[ll_row] = Sonscale[ll_i] * arg_qty
	
	
	dw_1.Object.u_PrdPF_SonLoss[ll_row] = SonLoss[ll_i]
	dw_1.Object.u_PrdPF_SonDECLosS[ll_row] = SonDECLosS[ll_i]
	dw_1.Object.u_PrdPF_status[ll_row] = status[ll_i]
	dw_1.Object.u_PrdPF_woodcode[ll_row] = woodcode[ll_i]
	dw_1.Object.u_PrdPF_pcode[ll_row] = pcode[ll_i]
	dw_1.Object.u_PrdPF_Sonahead[ll_row] = Sonahead[ll_i]
	dw_1.Object.u_mtrldef_mtrlname[ll_row] = mtrlname[ll_i]
	dw_1.Object.u_mtrldef_unit[ll_row] = unit[ll_i]
	dw_1.Object.u_mtrldef_mtrlmode[ll_row] = mtrlmode[ll_i]
	dw_1.Object.u_mtrldef_mtrlsectype[ll_row] = mtrlsectype[ll_i]
	dw_1.Object.u_mtrldef_zxmtrlmode[ll_row] = zxmtrlmode[ll_i]
	dw_1.Object.u_sc_wkp_wrkGrpName[ll_row] = wrkGrpName[ll_i]
	dw_1.Object.u_mtrldef_statusflag[ll_row] = statusflag[ll_i]
	dw_1.Object.u_mtrldef_statustype[ll_row] = statustype[ll_i]
	dw_1.Object.u_mtrldef_woodcodeflag[ll_row] = woodcodeflag[ll_i]
	dw_1.Object.u_mtrldef_woodcodetype[ll_row] = woodcodetype[ll_i]
	dw_1.Object.u_mtrldef_pcodeflag[ll_row] = pcodeflag[ll_i]
	dw_1.Object.u_mtrldef_pcodetype[ll_row] = pcodetype[ll_i]
	dw_1.Object.u_mtrldef_usermtrlmode[ll_row] = usermtrlmode[ll_i]
	dw_1.Object.u_mtrldef_Mtrlorigin[ll_row] = Mtrlorigin[ll_i]
	
	dw_1.Object.u_mtrldef_ifselforder[ll_row] = ifselforder[ll_i]
	dw_1.Object.u_mtrldef_ordertype[ll_row] = ordertype[ll_i]
	
	
	dw_1.Object.lp[ll_row] = arg_lp
	If arg_lp = 1 Then
		dw_1.Object.iflock[ll_row] = 0
	End If
	dw_1.Object.u_mtrldef_mtrlid[ll_row] = SonMtrlid[ll_i]
	dw_1.Object.u_prdpf_sonmtrlid[ll_row] = SonMtrlid[ll_i]
	dw_1.Object.pmtrlid[ll_row] = arg_mtrlid
	dw_1.Object.u_prdpf_printid[ll_row] = printid[ll_i]
	dw_1.Object.u_prdpf_sonpfcode[ll_row] = sonpfcode[ll_i]
	
	dw_1.Object.u_prdpf_pfgroup[ll_row] = pfgroup[ll_i]
	dw_1.Object.u_prdpf_pfgroupqty[ll_row] = pfgroupqty[ll_i]
	dw_1.Object.u_prdpf_pfgroupmode[ll_row] = pfgroupmode[ll_i]
	dw_1.Object.u_prdpf_pfklmode[ll_row] = pfklmode[ll_i]
	dw_1.Object.u_prdpf_dscrp[ll_row] = dscrp[ll_i]
	dw_1.Object.u_prdpf_baseqty[ll_row] = baseqty[ll_i]
	dw_1.Object.u_prdpf_scllloss[ll_row] = scllloss[ll_i]
	dw_1.Object.u_prdpf_sclldecloss[ll_row] = sclldecloss[ll_i]
	dw_1.Object.u_prdpf_ifover[ll_row] = ifover[ll_i]
	dw_1.Object.u_prdpf_dipztype[ll_row] = dipztype[ll_i]
	dw_1.Object.u_prdpf_buyarg[ll_row] = buyarg[ll_i]
	dw_1.Object.u_mtrldef_orderdays[ll_row] = orderdays[ll_i]
	dw_1.Object.u_mtrldef_buydays[ll_row] = buydays[ll_i]
	dw_1.Object.u_mtrldef_wfjgdays[ll_row] = wfjgdays[ll_i]
	dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = dftwrkgrpid[ll_i]
	
	dw_1.Object.u_mtrldef_scid[ll_row] = scid[ll_i]
	dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = mtrltypeid[ll_i]
	
	dw_1.Object.u_prdpf_promode[ll_row] = promode[ll_i]
	
	dw_1.Object.u_prdpf_modleid[ll_row] = modleid[ll_i]
	dw_1.Object.u_prdpf_modlename[ll_row] = modlename[ll_i]
	dw_1.Object.u_PrdPF_wenli[ll_row] = wenli[ll_i]
	dw_1.Object.u_PrdPF_fengbian[ll_row] = fengbian[ll_i]
	dw_1.Object.u_PrdPF_paikong[ll_row] = paikong[ll_i]
	dw_1.Object.u_PrdPF_luoji[ll_row] = luoji[ll_i]
	dw_1.Object.u_PrdPF_penyou[ll_row] = penyou[ll_i]
	
	dw_1.Object.u_mtrldef_ban_promode[ll_row] = promode_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_wenli[ll_row] = wenli_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_fengbian[ll_row] = fengbian_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_paikong[ll_row] = paikong_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_luoji[ll_row] = luoji_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_penyou[ll_row] = penyou_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_gydscrp[ll_row] = gydscrp_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_pfklmode[ll_row] = pfklmode_mtrl[ll_i]

	dw_1.Object.u_mtrldef_dscrp[ll_row] = ls_dscrp_mtrl[ll_i]

	dw_1.Object.u_mtrldef_ban_direction[ll_row] = direction[ll_i]

	dw_1.Object.u_mtrldef_outtype[ll_row] = outtype[ll_i]
	
	dw_1.Object.u_mtrldef_ifpack[ll_row] = ifpack[ll_i]
	
	dw_1.Object.u_mtrldef_midu[ll_row] = midu[ll_i]
	
	f_mtrlmode_trans(mtrlmode[ll_i],ld_long,ld_width,ld_height)
	
	ld_cubage = ld_long * ld_width * ld_height / 1000000000
	
	dw_1.Object.cubage[ll_row] = ld_cubage
	dw_1.Object.length[ll_row] = ld_long
	dw_1.Object.width[ll_row] = ld_width
	
	dw_1.Object.u_mtrldef_bantype[ll_row] = bantype[ll_i]
	
	If wf_addmx(SonMtrlid[ll_i],sonpfcode[ll_i],arg_lp + 1,ld_qty,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
	
Next

ext:
Return rslt





end function

public function integer wf_addmx_row (long arg_mtrlid, string arg_pfcode, long arg_lp, long arg_row, decimal arg_qty, ref string arg_msg);Int rslt = 1
Decimal ld_cmpqty
String ls_mtrlcode
Long count,ll_i
Decimal ld_qty
Long ll_row

Select mtrlcode,cmpqty
	Into :ls_mtrlcode,:ld_cmpqty
	From u_mtrldef
	Where mtrlid = :arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询物料清单基数失败,ID:'+String(arg_mtrlid)+','+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

If ld_cmpqty <= 0 Then
	arg_msg = '不合理的物料清单基数,物料:'+ls_mtrlcode
	rslt = 0
	Goto ext
End If

If arg_pfcode = '' Then
	arg_pfcode = f_get_dft_pf(arg_mtrlid)
End If

String mtrlcode[]
Long mtrlprp[]
Long wrkgrpid[]
Decimal Sonscale[],SonLoss[],SonDECLosS[]
String status[],woodcode[],pcode[]
Decimal Sonahead[]
String mtrlname[],unit[],mtrlmode[],mtrlsectype[],zxmtrlmode[],wrkGrpName[]
Long statusflag[],statustype[],woodcodeflag[],woodcodetype[],pcodeflag[],pcodetype[]
String usermtrlmode[]
Long Mtrlorigin[]
String sonpfcode[]
Long SonMtrlid[],printid[]

String pfgroup[]
Decimal pfgroupqty[]
String pfgroupmode[],pfklmode[],dscrp[]
Decimal baseqty[],scllloss[],sclldecloss[]
Long ifover[],dipztype[]
Decimal buyarg[],orderdays[],buydays[],wfjgdays[]
Int ordertype[],ifselforder[],ifpack[]
Long ll_mtrltypeid[],ll_dftwrkgrpid[]
Decimal ld_cubage,ld_long,ld_width,ld_height
String wenli_mtrl[],fengbian_mtrl[],paikong_mtrl[],luoji_mtrl[],penyou_mtrl[],promode_mtrl[],gydscrp_mtrl[]
Int direction[]
Decimal midu[]
string pfklmode_mtrl[]
string ls_dscrp_mtrl[]
int bantype[]

Declare cur_pf Cursor For
	Select u_mtrldef.mtrlcode,
	u_mtrldef.mtrlprp,
	u_PrdPF.wrkgrpid,
	u_PrdPF.Sonscale,
	u_PrdPF.SonLoss,
	u_PrdPF.SonDECLosS,
	u_PrdPF.status,
	u_PrdPF.woodcode,
	u_PrdPF.pcode,
	u_PrdPF.Sonahead,
	u_mtrldef.mtrlname,
	u_mtrldef.unit,
	u_mtrldef.mtrlmode,
	u_mtrldef.mtrlsectype,
	u_mtrldef.zxmtrlmode,
	u_sc_wkp.wrkGrpName,
	u_mtrldef.statusflag,
	u_mtrldef.statustype,
	u_mtrldef.woodcodeflag,
	u_mtrldef.woodcodetype,
	u_mtrldef.pcodeflag,
	u_mtrldef.pcodetype,
	u_mtrldef.usermtrlmode,
	u_mtrldef.Mtrlorigin,
	u_PrdPF.sonpfcode,
	u_PrdPF.SonMtrlid,
	u_PrdPF.printid,
	u_prdpf.pfgroup,
	u_prdpf.pfgroupqty,
	u_prdpf.pfgroupmode,
	u_prdpf.pfklmode,
	u_prdpf.dscrp,
	u_prdpf.baseqty,
	u_prdpf.scllloss,
	u_prdpf.sclldecloss,
	u_prdpf.ifover,
	u_prdpf.dipztype,
	u_prdpf.buyarg,
	u_mtrldef.orderdays,
	u_mtrldef.buydays,
	u_mtrldef.wfjgdays,
	u_mtrldef.ordertype,
	u_mtrldef.ifselforder,
	u_mtrldef.mtrltypeid,
	u_mtrldef.dftwrkgrpid,
	u_mtrldef.ifpack,
	isnull(u_mtrldef_ban.promode,'') as promode,
	isnull(u_mtrldef_ban.wenli,'') as wenli,
	isnull(u_mtrldef_ban.fengbian,'') as fengbian,
	isnull(u_mtrldef_ban.paikong,'') as paikong,
	isnull(u_mtrldef_ban.luoji,'') as luoji,
	isnull(u_mtrldef_ban.penyou,'') as penyou,
	isnull(u_mtrldef_ban.gydscrp,'') as gydscrp,
	isnull(u_mtrldef_ban.direction,0) as direction,
	u_mtrldef.midu,
	isnull(u_mtrldef_ban.pfklmode,'') as pfklmode,
	u_mtrldef.dscrp,
	u_mtrldef.bantype
	From u_PrdPF Inner JOIN
	u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid LEFT Outer JOIN
	u_sc_wkp ON u_mtrldef.dftwrkGrpid = u_sc_wkp.wrkGrpid LEFT Outer JOIN
	u_mtrldef_ban ON u_mtrldef.mtrlid = u_mtrldef_ban.mtrlid
	Where u_prdpf.mtrlid = :arg_mtrlid
	And u_prdpf.pfcode = :arg_pfcode
	Order By u_PrdPF.printid Desc;
	
Open cur_pf;

count = 1

Fetch cur_pf Into :mtrlcode[count],:mtrlprp[count],:wrkgrpid[count],&
	:Sonscale[count],:SonLoss[count],:SonDECLosS[count],:status[count],&
	:woodcode[count],:pcode[count],:Sonahead[count],:mtrlname[count],:unit[count],&
	:mtrlmode[count],:mtrlsectype[count],:zxmtrlmode[count],:wrkGrpName[count],&
	:statusflag[count],:statustype[count],:woodcodeflag[count],:woodcodetype[count],&
	:pcodeflag[count],:pcodetype[count],:usermtrlmode[count],:Mtrlorigin[count],&
	:sonpfcode[count],:SonMtrlid[count],:printid[count],&
	:pfgroup[count],:pfgroupqty[count],:pfgroupmode[count],:pfklmode[count],:dscrp[count],&
	:baseqty[count],:scllloss[count],:sclldecloss[count],:ifover[count],:dipztype[count],&
	:buyarg[count],:orderdays[count],:buydays[count],:wfjgdays[count],&
	:ordertype[count],:ifselforder[count],:ll_mtrltypeid[count],:ll_dftwrkgrpid[count],:ifpack[count],&
	:promode_mtrl[count],:wenli_mtrl[count],:fengbian_mtrl[count],:paikong_mtrl[count],:luoji_mtrl[count],:penyou_mtrl[count],:gydscrp_mtrl[count],&
	:direction[count],:midu[count],:pfklmode_mtrl[count],:ls_dscrp_mtrl[count],:bantype[count];
	
Do While sqlca.SQLCode = 0
	count++
	Fetch cur_pf Into :mtrlcode[count],:mtrlprp[count],:wrkgrpid[count],&
		:Sonscale[count],:SonLoss[count],:SonDECLosS[count],:status[count],&
		:woodcode[count],:pcode[count],:Sonahead[count],:mtrlname[count],:unit[count],&
		:mtrlmode[count],:mtrlsectype[count],:zxmtrlmode[count],:wrkGrpName[count],&
		:statusflag[count],:statustype[count],:woodcodeflag[count],:woodcodetype[count],&
		:pcodeflag[count],:pcodetype[count],:usermtrlmode[count],:Mtrlorigin[count],&
		:sonpfcode[count],:SonMtrlid[count],:printid[count],&
		:pfgroup[count],:pfgroupqty[count],:pfgroupmode[count],:pfklmode[count],:dscrp[count],&
		:baseqty[count],:scllloss[count],:sclldecloss[count],:ifover[count],:dipztype[count],&
		:buyarg[count],:orderdays[count],:buydays[count],:wfjgdays[count],&
		:ordertype[count],:ifselforder[count],:ll_mtrltypeid[count],:ll_dftwrkgrpid[count],:ifpack[count],&
		:promode_mtrl[count],:wenli_mtrl[count],:fengbian_mtrl[count],:paikong_mtrl[count],:luoji_mtrl[count],:penyou_mtrl[count],:gydscrp_mtrl[count],&
		:direction[count],:midu[count],:pfklmode_mtrl[count],:ls_dscrp_mtrl[count],:bantype[count];
Loop
count = count - 1
Close cur_pf;


For ll_i = 1 To count
	ld_qty = Round(((Sonscale[ll_i]/(1 - SonLoss[ll_i])+ SonDECLosS[ll_i]) / ld_cmpqty) * arg_qty,sys_option_produce_dec)
	
	ll_row = dw_1.InsertRow(arg_row)
	
	dw_1.Object.u_mtrldef_mtrlcode[ll_row] = mtrlcode[ll_i]
	dw_1.Object.u_mtrldef_mtrlprp[ll_row] = mtrlprp[ll_i]
	dw_1.Object.u_PrdPF_wrkgrpid[ll_row] = wrkgrpid[ll_i]
	dw_1.Object.u_PrdPF_Sonscale[ll_row] = ld_qty //Sonscale[ll_i]
	dw_1.Object.u_PrdPF_Sonscale_ori[ll_row] = ld_qty //Sonscale[ll_i]
	dw_1.Object.u_PrdPF_SonLoss[ll_row] = SonLoss[ll_i]
	dw_1.Object.u_PrdPF_SonDECLosS[ll_row] = SonDECLosS[ll_i]
	dw_1.Object.u_PrdPF_status[ll_row] = status[ll_i]
	dw_1.Object.u_PrdPF_woodcode[ll_row] = woodcode[ll_i]
	dw_1.Object.u_PrdPF_pcode[ll_row] = pcode[ll_i]
	dw_1.Object.u_PrdPF_Sonahead[ll_row] = Sonahead[ll_i]
	dw_1.Object.u_mtrldef_mtrlname[ll_row] = mtrlname[ll_i]
	dw_1.Object.u_mtrldef_unit[ll_row] = unit[ll_i]
	dw_1.Object.u_mtrldef_mtrlmode[ll_row] = mtrlmode[ll_i]
	dw_1.Object.u_mtrldef_mtrlsectype[ll_row] = mtrlsectype[ll_i]
	dw_1.Object.u_mtrldef_zxmtrlmode[ll_row] = zxmtrlmode[ll_i]
	dw_1.Object.u_sc_wkp_wrkGrpName[ll_row] = wrkGrpName[ll_i]
	dw_1.Object.u_mtrldef_statusflag[ll_row] = statusflag[ll_i]
	dw_1.Object.u_mtrldef_statustype[ll_row] = statustype[ll_i]
	dw_1.Object.u_mtrldef_woodcodeflag[ll_row] = woodcodeflag[ll_i]
	dw_1.Object.u_mtrldef_woodcodetype[ll_row] = woodcodetype[ll_i]
	dw_1.Object.u_mtrldef_pcodeflag[ll_row] = pcodeflag[ll_i]
	dw_1.Object.u_mtrldef_pcodetype[ll_row] = pcodetype[ll_i]
	dw_1.Object.u_mtrldef_usermtrlmode[ll_row] = usermtrlmode[ll_i]
	dw_1.Object.u_mtrldef_Mtrlorigin[ll_row] = Mtrlorigin[ll_i]
	dw_1.Object.lp[ll_row] = arg_lp
	dw_1.Object.u_mtrldef_mtrlid[ll_row] = SonMtrlid[ll_i]
	dw_1.Object.u_prdpf_sonmtrlid[ll_row] = SonMtrlid[ll_i]
	dw_1.Object.pmtrlid[ll_row] = arg_mtrlid
	dw_1.Object.u_prdpf_printid[ll_row] = printid[ll_i]
	dw_1.Object.u_prdpf_sonpfcode[ll_row] = sonpfcode[ll_i]
	
	dw_1.Object.u_prdpf_pfgroup[ll_row] = pfgroup[ll_i]
	dw_1.Object.u_prdpf_pfgroupqty[ll_row] = pfgroupqty[ll_i]
	dw_1.Object.u_prdpf_pfgroupmode[ll_row] = pfgroupmode[ll_i]
	dw_1.Object.u_prdpf_pfklmode[ll_row] = pfklmode[ll_i]
	dw_1.Object.u_prdpf_dscrp[ll_row] = dscrp[ll_i]
	dw_1.Object.u_prdpf_baseqty[ll_row] = baseqty[ll_i]
	dw_1.Object.u_prdpf_scllloss[ll_row] = scllloss[ll_i]
	dw_1.Object.u_prdpf_sclldecloss[ll_row] = sclldecloss[ll_i]
	dw_1.Object.u_prdpf_ifover[ll_row] = ifover[ll_i]
	dw_1.Object.u_prdpf_dipztype[ll_row] = dipztype[ll_i]
	dw_1.Object.u_prdpf_buyarg[ll_row] = buyarg[ll_i]
	dw_1.Object.u_mtrldef_orderdays[ll_row] = orderdays[ll_i]
	dw_1.Object.u_mtrldef_buydays[ll_row] = buydays[ll_i]
	dw_1.Object.u_mtrldef_wfjgdays[ll_row] = wfjgdays[ll_i]
	
	dw_1.Object.u_mtrldef_ifselforder[ll_row] = ifselforder[ll_i]
	dw_1.Object.u_mtrldef_ordertype[ll_row] = ordertype[ll_i]
	
	dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = ll_mtrltypeid[ll_i]
	dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = ll_dftwrkgrpid[ll_i]
	
	dw_1.Object.u_mtrldef_ifpack[ll_row] = ifpack[ll_i]
	
	f_mtrlmode_trans(mtrlmode[ll_i],ld_long,ld_width,ld_height)
	
	ld_cubage = ld_long * ld_width * ld_height / 1000000000
	
	dw_1.Object.cubage[ll_row] = ld_cubage
	dw_1.Object.Length[ll_row] = ld_long
	dw_1.Object.Width[ll_row] = ld_width
	
	
	dw_1.Object.u_mtrldef_ban_promode[ll_row] = promode_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_wenli[ll_row] = wenli_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_fengbian[ll_row] = fengbian_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_paikong[ll_row] = paikong_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_luoji[ll_row] = luoji_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_penyou[ll_row] = penyou_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_gydscrp[ll_row] = gydscrp_mtrl[ll_i]
	dw_1.Object.u_mtrldef_ban_pfklmode[ll_row] = pfklmode_mtrl[ll_i]
	
	dw_1.Object.u_mtrldef_ban_direction[ll_row] = direction[ll_i]
	
	dw_1.Object.u_mtrldef_midu[ll_row] = midu[ll_i]
	
	dw_1.Object.u_mtrldef_dscrp[ll_row] = ls_dscrp_mtrl[ll_i]
	
	dw_1.Object.u_mtrldef_bantype[ll_row] = bantype[ll_i]
	
	If wf_addmx_row(SonMtrlid[ll_i],sonpfcode[ll_i],arg_lp + 1,arg_row + 1 ,ld_qty,arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
	
Next

ext:
Return rslt





end function

public function integer wf_face_wp ();Int LS_INT
IF ins_ifmod_wp THEN
	cb_save_wp.Enabled = TRUE
	cb_edit_wp.Text = '放弃'
	cb_edit_wp.normalpicname = 'Undo.bmp'
	cb_addmx_wp.Enabled = TRUE
	cb_delmx_wp.Enabled = TRUE
	rb_1.enabled = false
	rb_2.enabled = false
	cb_templet_ch.enabled = true
	
	FOR LS_INT = 1 TO 26
		dw_2.SetTabOrder (LS_INT,LS_INT*10 )
	NEXT
	
	FOR LS_INT = 1 TO 17
		dw_3.SetTabOrder (LS_INT,LS_INT*10 )
	NEXT
ELSE
	cb_save_wp.Enabled = FALSE
	cb_edit_wp.Text = '修改'
	cb_edit_wp.normalpicname = 'open.bmp'
	cb_addmx_wp.Enabled = FALSE
	cb_delmx_wp.Enabled = FALSE
	rb_1.enabled = true
	rb_2.enabled = true
	cb_templet_ch.enabled = false

	FOR LS_INT = 1 TO 26
		dw_2.SetTabOrder (LS_INT, 0)
	NEXT

	FOR LS_INT = 1 TO 17
		dw_3.SetTabOrder (LS_INT, 0)
	NEXT
END IF

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

RETURN 1


end function

public subroutine wf_re_mtrl (integer arg_if_addmx);String ls_mtrlcode,ls_mtrlname,ls_pfcode,arg_msg

IF ins_mtrlid = 0 THEN
	st_mtrl.Text = ''
	st_mtrl_pf.Text = ''
	RETURN
END IF

IF ins_if_saletask = 0 and ins_pfcode = '' THEN
	ins_pfcode = f_get_dft_pf(ins_mtrlid_pf)
	IF ins_pfcode = '' THEN
		MessageBox('系统提示','目标产品未设置默认清单,请检查')
		RETURN
	END IF
END IF

SELECT mtrlcode,mtrlname
	INTO :ls_mtrlcode,:ls_mtrlname
	FROM u_mtrldef
	Where mtrlid = :ins_mtrlid_pf;
IF sqlca.SQLCode <> 0 THEN
	st_mtrl.Text = '查询物料信息失败'
	st_mtrl_pf.Text = '查询物料信息失败'
ELSE
	st_mtrl.Text = '['+ls_mtrlcode+']'+ls_mtrlname + ' | ' + ins_pfcode
	st_mtrl_pf.Text = '['+ls_mtrlcode+']'+ls_mtrlname
	ins_mtrlcode = ls_mtrlcode
	ins_mtrlname = ls_mtrlname
END IF

IF ins_mtrlid > 0 THEN
	
	dw_1.SetRedraw(False)
	dw_1.Reset()
	
	String mtrlcode
	Long mtrlprp
	Long wrkgrpid
	
	String mtrlname,unit,mtrlmode,mtrlsectype,zxmtrlmode,wrkGrpName
	Long statusflag,statustype,woodcodeflag,woodcodetype,pcodeflag,pcodetype
	String usermtrlmode
	Long Mtrlorigin
	
	Decimal buyarg,orderdays,buydays,wfjgdays
	Long mtrltypeid,scid,dftwrkgrpid
	Int ordertype,ifselforder
	
	Long ll_row
	int ifpack
	decimal ld_cubage,ld_long , ld_width , ld_height
	int li_bantype
	
	SELECT u_mtrldef.mtrlcode,
		u_mtrldef.mtrlprp,
		u_mtrldef.mtrlname,
		u_mtrldef.unit,
		u_mtrldef.mtrlmode,
		u_mtrldef.mtrlsectype,
		u_mtrldef.zxmtrlmode,
		u_sc_wkp.wrkGrpName,
		u_mtrldef.statusflag,
		u_mtrldef.statustype,
		u_mtrldef.woodcodeflag,
		u_mtrldef.woodcodetype,
		u_mtrldef.pcodeflag,
		u_mtrldef.pcodetype,
		u_mtrldef.usermtrlmode,
		u_mtrldef.Mtrlorigin,
		u_mtrldef.orderdays,
		u_mtrldef.buydays,
		u_mtrldef.wfjgdays,
		u_mtrldef.mtrltypeid,
		u_mtrldef.scid,
		u_mtrldef.dftwrkgrpid,
		u_mtrldef.ifselforder,
		u_mtrldef.ordertype,
		u_mtrldef.ifpack,
		u_mtrldef.bantype
		INTO :mtrlcode,
		:mtrlprp,
		:mtrlname,
		:unit,
		:mtrlmode,
		:mtrlsectype,
		:zxmtrlmode,
		:wrkGrpName,
		:statusflag,
		:statustype,
		:woodcodeflag,
		:woodcodetype,
		:pcodeflag,
		:pcodetype,
		:usermtrlmode,
		:Mtrlorigin,
		:orderdays,
		:buydays,
		:wfjgdays,
		:mtrltypeid,
		:scid,
		:dftwrkgrpid,
		:ifselforder,
		:ordertype,
		:ifpack,
		:li_bantype
		FROM u_mtrldef  LEFT OUTER JOIN
		u_sc_wkp ON u_mtrldef.dftwrkGrpid = u_sc_wkp.wrkGrpid
		Where u_mtrldef.mtrlid = :ins_mtrlid;
	IF sqlca.SQLCode <> 0 THEN
		MessageBox('Error','查询物料信息失败,'+sqlca.SQLErrText)
		RETURN
	END IF
	
	
	ll_row = dw_1.InsertRow(0)
	
	dw_1.Object.u_mtrldef_mtrlcode[ll_row] = mtrlcode
	dw_1.Object.u_mtrldef_mtrlprp[ll_row] = mtrlprp
	dw_1.Object.u_PrdPF_wrkgrpid[ll_row] = wrkgrpid
	dw_1.Object.u_PrdPF_Sonscale[ll_row] = 1
	dw_1.Object.u_PrdPF_Sonscale_ori[ll_row] = 1
	dw_1.Object.u_PrdPF_SonLoss[ll_row] = 0
	dw_1.Object.u_PrdPF_SonDECLosS[ll_row] = 0
	dw_1.Object.u_PrdPF_status[ll_row] = ''
	dw_1.Object.u_PrdPF_woodcode[ll_row] = ''
	dw_1.Object.u_PrdPF_pcode[ll_row] = ''
	dw_1.Object.u_PrdPF_Sonahead[ll_row] = 0
	dw_1.Object.u_mtrldef_mtrlname[ll_row] = mtrlname
	dw_1.Object.u_mtrldef_unit[ll_row] = unit
	dw_1.Object.u_mtrldef_mtrlmode[ll_row] = mtrlmode
	dw_1.Object.u_mtrldef_mtrlsectype[ll_row] = mtrlsectype
	dw_1.Object.u_mtrldef_zxmtrlmode[ll_row] = zxmtrlmode
	dw_1.Object.u_sc_wkp_wrkGrpName[ll_row] = wrkGrpName
	dw_1.Object.u_mtrldef_statusflag[ll_row] = statusflag
	dw_1.Object.u_mtrldef_statustype[ll_row] = statustype
	dw_1.Object.u_mtrldef_woodcodeflag[ll_row] = woodcodeflag
	dw_1.Object.u_mtrldef_woodcodetype[ll_row] = woodcodetype
	dw_1.Object.u_mtrldef_pcodeflag[ll_row] = pcodeflag
	dw_1.Object.u_mtrldef_pcodetype[ll_row] = pcodetype
	dw_1.Object.u_mtrldef_usermtrlmode[ll_row] = usermtrlmode
	dw_1.Object.u_mtrldef_Mtrlorigin[ll_row] = Mtrlorigin
	dw_1.Object.lp[ll_row] = 0
	dw_1.Object.u_mtrldef_mtrlid[ll_row] = ins_mtrlid
	dw_1.Object.u_prdpf_sonmtrlid[ll_row] = ins_mtrlid
	dw_1.Object.pmtrlid[ll_row] = 0
	dw_1.Object.u_prdpf_printid[ll_row] = 1
	dw_1.Object.u_prdpf_sonpfcode[ll_row] = ins_pfcode
	
	dw_1.Object.u_mtrldef_orderdays[ll_row] = orderdays
	dw_1.Object.u_mtrldef_buydays[ll_row] = buydays
	dw_1.Object.u_mtrldef_wfjgdays[ll_row] = wfjgdays
	
	dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = mtrltypeid
	dw_1.Object.u_mtrldef_scid[ll_row] = scid
	dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = dftwrkgrpid
	
	dw_1.Object.u_mtrldef_ordertype[ll_row] = ordertype
	dw_1.Object.u_mtrldef_ifselforder[ll_row] = ifselforder
	
	
	dw_1.Object.iflock[ll_row] = 1
	
	dw_1.Object.u_prdpf_sonpfcode[ll_row] = ins_pfcode
	
	dw_1.Object.u_mtrldef_ifpack[ll_row] = ifpack
	

	f_mtrlmode_trans(mtrlmode,ld_long,ld_width,ld_height)
	
	ld_cubage = ld_long * ld_width * ld_height / 1000000000
	
	dw_1.Object.cubage[ll_row] = ld_cubage
	dw_1.Object.length[ll_row] = ld_long
	dw_1.Object.width[ll_row] = ld_width
	
	
	dw_1.Object.u_mtrldef_bantype[ll_row] = li_bantype

	IF arg_if_addmx = 1 THEN
		IF wf_addmx(ins_mtrlid,ins_pfcode,1,1,arg_msg) = 0 THEN
			MessageBox('Error',arg_msg)
		END IF
		
		This.TriggerEvent('ue_allowedit')
		This.TriggerEvent('ue_retrieve_workprice')
	END IF
	dw_1.SetRedraw(True)
END IF






end subroutine

public function integer wf_cmpprdpf (long arg_mtrlid, string arg_pfcode);String arg_msg

w_sys_wait.Show()
IF uo_pf.f_clearprdpfmx(arg_mtrlid,arg_pfcode,arg_msg,FALSE) = 0 THEN
	MessageBox ("系统提示",arg_msg,exclamation!,ok!)
	RETURN 0
END IF

uo_pf.deep_count = 0
uo_pf.il_printid = 0

IF uo_pf.f_cmpprdpf(arg_mtrlid,arg_mtrlid,arg_pfcode,arg_pfcode,1,1,1,arg_msg,FALSE,0) = 0 THEN
	MessageBox ("系统提示",arg_msg,exclamation!,ok!)
	RETURN 0
END IF

COMMIT;

w_sys_wait.hide()

RETURN 1

end function

public function integer wf_check_wkp (ref string arg_msg);Int rslt = 1

Long j,ll_mtrlid,ll_last_cnt
Long ll_maxlp = 0

String ls_mtrlcode
String ls_errmsg

IF dw_1.GetRow() <= 0 THEN
	rslt = 0
	arg_msg = '请选择物料'
	GOTO ext
END IF

redel:
dw_3.AcceptText()
FOR j = 1 To dw_3.RowCount()
	IF dw_3.Object.swkpid[j] = 0 Or dw_3.Object.owkpid[j] = 0 And dw_3.Object.iflast[j] = 0 THEN
		dw_3.DeleteRow(j)
		GOTO redel
	END IF
NEXT

dw_3.AcceptText()

FOR j = 1 To dw_3.RowCount()
	
	IF dw_3.Object.swkpid[j] = dw_3.Object.owkpid[j] THEN
		rslt = 0 
		arg_msg = '第'+String(j)+'行,调出工组与调入工组相同,不能保存'
		GOTO ext
	END IF
	
	IF sys_option_use_sc_date = 0 THEN
		IF dw_3.Object.lastdays[j] < 0  THEN
			rslt = 0 
			arg_msg = '第'+String(j)+'行,标准生产天数少于0,不能保存'
			GOTO ext
		END IF
		
		IF Mod(dw_3.Object.lastdays[j],0.5) <> 0 THEN
			rslt = 0 
			arg_msg = '第'+String(j)+'行,标准生产天数只能是0.5的倍数,请检查'
			GOTO ext
		END IF
		
		dw_3.Object.lasthour[j] = dw_3.Object.lastdays[j] * 8
	ELSE
		IF dw_3.Object.lasthour[j] < 0  THEN
			rslt = 0 
			arg_msg = '第'+String(j)+'行,标准生产时数少于0,不能保存'
			GOTO ext
		END IF
		
		dw_3.Object.lasthour[j]  = Int(dw_3.Object.lasthour[j] )
		
		dw_3.Object.lastdays[j] = dw_3.Object.lasthour[j] / 8
		
	END IF
	
	IF dw_3.Object.iflast[j] = 1 THEN
		ll_last_cnt++
	END IF
NEXT

IF ll_last_cnt > 1 THEN
	rslt = 0 
	arg_msg = '不能设置2个最后流程,请检查'
	GOTO ext
END IF

FOR j = 1 To dw_3.RowCount()
	IF dw_3.Object.iflast[j] = 1 THEN
		dw_3.Object.owkpid[j] = 0
	END IF
	
	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[dw_1.GetRow()]
	dw_3.Object.u_mtrldef_mtrlcode[j] = ls_mtrlcode
	dw_3.Object.printid[j] = j
	
NEXT

dw_3.SetSort('printid')
dw_3.Sort()

ext:
RETURN rslt


end function

public function integer wf_add_row (long arg_mtrlid, string arg_pfcode, long arg_lp, decimal arg_qty, ref string arg_msg, ref long arg_row);Int rslt = 1

Long ll_row
Long cnt
Long ll_cnt

Long ll_mtrlid_p
String ls_mtrlcode_p
String ls_pfcode

Long ll_mtrlid
String ls_mtrlcode
String ls_mtrlname
Int li_mtrlprp
String ls_mtrlmode
String ls_unit
String ls_zxmtrlmode
String ls_mtrlsectype
Int li_statusflag
Int li_statustype
Int li_woodcodeflag
Int li_woodcodetype
Int li_pcodeflag
Int li_pcodetype
String ls_usermtrlmode
Int li_Mtrlorigin
Long ll_dftwrkgrpid
Long ll_scid
Long ll_mtrltypeid
String ls_wrkGrpName
Decimal ld_sonscale, lde_qty
Long ll_wrkgrpid_scll
Long ll_dftscllwkpid
Long ll_newrow
Decimal ld_midu
Int li_ifpack,li_outtype
Int ifselforder,ordertype,bantype
String ls_promode,ls_wenli,ls_fengbian,ls_paikong,ls_luoji,ls_penyou,ls_gydscrp,ls_pfklmode
Int ll_direction
string ls_dscrp
arg_row = 0

Select u_mtrldef.mtrlid,
	u_mtrldef.mtrlcode,
	u_mtrldef.mtrlname,
	u_mtrldef.mtrlprp,
	u_mtrldef.mtrlmode,
	u_mtrldef.unit,
	u_mtrldef.zxmtrlmode,
	u_mtrldef.mtrlsectype,
	u_mtrldef.statusflag,
	u_mtrldef.statustype,
	u_mtrldef.woodcodeflag,
	u_mtrldef.woodcodetype,
	u_mtrldef.pcodeflag,
	u_mtrldef.pcodetype,
	u_mtrldef.usermtrlmode,
	u_mtrldef.Mtrlorigin,
	u_mtrldef.dftwrkgrpid,
	u_mtrldef.scid,
	u_mtrldef.mtrltypeid,
	isnull(u_sc_wkp.wrkGrpName,''),
	u_mtrldef.dftscllwkpid,
	u_mtrldef.midu,
	u_mtrldef.ifpack,
	u_mtrldef.outtype,
	u_mtrldef.ifselforder,
	u_mtrldef.ordertype,
	u_mtrldef.bantype,
	isnull(u_mtrldef_ban.promode,'') as promode,
	isnull(u_mtrldef_ban.wenli,'') as wenli,
	isnull(u_mtrldef_ban.fengbian,'') as fengbian,
	isnull(u_mtrldef_ban.paikong,'') as paikong,
	isnull(u_mtrldef_ban.luoji,'') as luoji,
	isnull(u_mtrldef_ban.penyou,'') as penyou,
	isnull(u_mtrldef_ban.gydscrp,'') as gydscrp,
	isnull(u_mtrldef_ban.direction,0) as direction,
	isnull(u_mtrldef_ban.pfklmode,0) as pfklmode,
	u_mtrldef.dscrp
	Into :ll_mtrlid,
	:ls_mtrlcode,
	:ls_mtrlname,
	:li_mtrlprp,
	:ls_mtrlmode,
	:ls_unit,
	:ls_zxmtrlmode,
	:ls_mtrlsectype,
	:li_statusflag,
	:li_statustype,
	:li_woodcodeflag,
	:li_woodcodetype,
	:li_pcodeflag,
	:li_pcodetype,
	:ls_usermtrlmode,
	:li_Mtrlorigin,
	:ll_dftwrkgrpid,
	:ll_scid,
	:ll_mtrltypeid,
	:ls_wrkGrpName,
	:ll_dftscllwkpid,
	:ld_midu,
	:li_ifpack,
	:li_outtype,
	:ifselforder,
	:ordertype,
	:bantype,
	:ls_promode,
	:ls_wenli,
	:ls_fengbian,
	:ls_paikong,
	:ls_luoji,
	:ls_penyou,
	:ls_gydscrp,
	:ll_direction,
	:ls_pfklmode,
	:ls_dscrp
	From u_mtrldef left Outer join u_sc_wkp on
	u_mtrldef.dftwrkgrpid = u_sc_wkp.wrkgrpid  LEFT Outer JOIN
	u_mtrldef_ban ON u_mtrldef.mtrlid = u_mtrldef_ban.mtrlid
	Where u_mtrldef.mtrlid = :arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '查询资料定义表失败,可能资料未定义' + sqlca.SQLErrText
	Goto ext
End If

//插入材料
ll_newrow = dw_1.InsertRow(0)

arg_qty = Round(arg_qty,sys_option_produce_dec)

dw_1.Object.u_mtrldef_mtrlcode[ll_newrow] = ls_mtrlcode
dw_1.Object.u_mtrldef_mtrlprp[ll_newrow] = li_mtrlprp

dw_1.Object.u_PrdPF_wrkgrpid[ll_newrow] = ll_wrkgrpid_scll
dw_1.Object.u_PrdPF_Sonscale[ll_newrow] = arg_qty
dw_1.Object.u_PrdPF_Sonscale_ori[ll_newrow] = arg_qty
dw_1.Object.u_PrdPF_SonLoss[ll_newrow] = 0
dw_1.Object.u_PrdPF_SonDECLosS[ll_newrow] = 0
dw_1.Object.u_PrdPF_status[ll_newrow] = ''
dw_1.Object.u_PrdPF_woodcode[ll_newrow] = ''
dw_1.Object.u_PrdPF_pcode[ll_newrow] = ''
dw_1.Object.u_PrdPF_Sonahead[ll_newrow] = 0

dw_1.Object.u_mtrldef_mtrlname[ll_newrow] = ls_mtrlname
dw_1.Object.u_mtrldef_unit[ll_newrow] = ls_unit
dw_1.Object.u_mtrldef_mtrlmode[ll_newrow] = ls_mtrlmode
dw_1.Object.u_mtrldef_mtrlsectype[ll_newrow] = ls_mtrlsectype
dw_1.Object.u_mtrldef_zxmtrlmode[ll_newrow] = ls_zxmtrlmode
dw_1.Object.u_sc_wkp_wrkGrpName[ll_newrow] = ls_wrkGrpName
dw_1.Object.u_mtrldef_statusflag[ll_newrow] = li_statusflag
dw_1.Object.u_mtrldef_statustype[ll_newrow] = li_statustype
dw_1.Object.u_mtrldef_woodcodeflag[ll_newrow] = li_woodcodeflag
dw_1.Object.u_mtrldef_woodcodetype[ll_newrow] = li_woodcodetype
dw_1.Object.u_mtrldef_pcodeflag[ll_newrow] = li_pcodeflag
dw_1.Object.u_mtrldef_pcodetype[ll_newrow] = li_pcodetype
dw_1.Object.u_mtrldef_usermtrlmode[ll_newrow] = ls_usermtrlmode
dw_1.Object.u_mtrldef_Mtrlorigin[ll_newrow] = li_Mtrlorigin

dw_1.Object.lp[ll_newrow] = arg_lp
If ll_wrkgrpid_scll = 0 Then
	dw_1.Object.iflock[ll_newrow] = 0
Else
	dw_1.Object.iflock[ll_newrow] = 1
End If

dw_1.Object.pmtrlid[ll_newrow] = ll_mtrlid_p
dw_1.Object.u_mtrldef_mtrlid[ll_newrow] = ll_mtrlid
dw_1.Object.u_prdpf_sonmtrlid[ll_newrow] = ll_mtrlid
dw_1.Object.u_prdpf_printid[ll_newrow] = ll_newrow

If arg_pfcode = '' Then
	dw_1.Object.u_prdpf_sonpfcode[ll_newrow] = f_get_dft_pf(ll_mtrlid)
Else
	dw_1.Object.u_prdpf_sonpfcode[ll_newrow] = 	arg_pfcode
End If

dw_1.Object.u_prdpf_pfgroup[ll_newrow] = ''
dw_1.Object.u_prdpf_pfgroupqty[ll_newrow] = 0
dw_1.Object.u_prdpf_pfgroupmode[ll_newrow] = ''
dw_1.Object.u_prdpf_pfklmode[ll_newrow] = ''
dw_1.Object.u_prdpf_dscrp[ll_newrow] = ''
dw_1.Object.u_prdpf_baseqty[ll_newrow] = 1
dw_1.Object.u_prdpf_scllloss[ll_newrow] = 0
dw_1.Object.u_prdpf_sclldecloss[ll_newrow] = 0
dw_1.Object.u_prdpf_ifover[ll_newrow] = 0
dw_1.Object.u_prdpf_dipztype[ll_newrow] = 0
dw_1.Object.u_prdpf_buyarg[ll_newrow] = 0

dw_1.Object.u_mtrldef_orderdays[ll_newrow] = 0
dw_1.Object.u_mtrldef_buydays[ll_newrow] = 0
dw_1.Object.u_mtrldef_wfjgdays[ll_newrow] = 0
dw_1.Object.u_mtrldef_dftwrkgrpid[ll_newrow] = ll_dftwrkgrpid

dw_1.Object.u_mtrldef_scid[ll_newrow] = ll_scid
dw_1.Object.u_mtrldef_mtrltypeid[ll_newrow] = ll_mtrltypeid

dw_1.Object.u_PrdPF_wrkgrpid[ll_newrow] = ll_dftscllwkpid
dw_1.Object.u_mtrldef_midu[ll_newrow] = ld_midu

dw_1.Object.u_mtrldef_ifpack[ll_newrow] = li_ifpack

dw_1.Object.u_mtrldef_outtype[ll_newrow] = li_outtype

dw_1.Object.u_mtrldef_ifselforder[ll_newrow] = ifselforder
dw_1.Object.u_mtrldef_ordertype[ll_newrow] = ordertype
dw_1.Object.u_mtrldef_bantype[ll_newrow] = bantype

dw_1.Object.u_mtrldef_ban_promode[ll_newrow] = ls_promode
dw_1.Object.u_mtrldef_ban_wenli[ll_newrow] = ls_wenli
dw_1.Object.u_mtrldef_ban_fengbian[ll_newrow] = ls_fengbian
dw_1.Object.u_mtrldef_ban_paikong[ll_newrow] = ls_paikong
dw_1.Object.u_mtrldef_ban_luoji[ll_newrow] = ls_luoji
dw_1.Object.u_mtrldef_ban_penyou[ll_newrow] = ls_penyou
dw_1.Object.u_mtrldef_ban_gydscrp[ll_newrow] = ls_gydscrp
dw_1.Object.u_mtrldef_ban_pfklmode[ll_newrow] = ls_pfklmode

dw_1.Object.u_mtrldef_ban_direction[ll_newrow] = ll_direction

dw_1.Object.u_mtrldef_dscrp[ll_newrow] = ls_dscrp


arg_row = ll_newrow

ext:

Return rslt




end function

public function integer wf_add_row_null (string arg_mtrlname, long arg_lp, decimal arg_qty, ref string arg_msg, ref long arg_row);Int rslt = 1

Long ll_row
Long cnt
Long ll_cnt

Long ll_mtrlid_p
String ls_mtrlcode_p
String ls_pfcode

Long ll_mtrlid
String ls_mtrlcode
String ls_mtrlname
Int li_mtrlprp
String ls_mtrlmode
String ls_unit
String ls_zxmtrlmode
String ls_mtrlsectype
Int li_statusflag
Int li_statustype
Int li_woodcodeflag
Int li_woodcodetype
Int li_pcodeflag
Int li_pcodetype
String ls_usermtrlmode
Int li_Mtrlorigin
Long ll_dftwrkgrpid
Long ll_scid
Long ll_mtrltypeid
String ls_wrkGrpName
Decimal ld_sonscale, lde_qty
Long ll_wrkgrpid_scll

Long ll_newrow

arg_row = 0

//插入材料
ll_newrow = dw_1.InsertRow(0)

arg_qty = round(arg_qty,sys_option_produce_dec)


dw_1.Object.u_mtrldef_mtrlcode[ll_newrow] = ls_mtrlcode

if arg_lp = 1 then //自制,半成品
	dw_1.Object.u_mtrldef_mtrlprp[ll_newrow] = 1
	dw_1.Object.u_mtrldef_Mtrlorigin[ll_newrow] = 0
else//采购
	dw_1.Object.u_mtrldef_mtrlprp[ll_newrow] = 2
	dw_1.Object.u_mtrldef_Mtrlorigin[ll_newrow] = 2
end if

dw_1.Object.u_PrdPF_wrkgrpid[ll_newrow] = ll_wrkgrpid_scll
dw_1.Object.u_PrdPF_Sonscale[ll_newrow] = arg_qty
dw_1.Object.u_PrdPF_Sonscale_ori[ll_newrow] = arg_qty
dw_1.Object.u_PrdPF_SonLoss[ll_newrow] = 0
dw_1.Object.u_PrdPF_SonDECLosS[ll_newrow] = 0
dw_1.Object.u_PrdPF_status[ll_newrow] = ''
dw_1.Object.u_PrdPF_woodcode[ll_newrow] = ''
dw_1.Object.u_PrdPF_pcode[ll_newrow] = ''
dw_1.Object.u_PrdPF_Sonahead[ll_newrow] = 0

dw_1.Object.u_mtrldef_mtrlname[ll_newrow] = arg_mtrlname
dw_1.Object.u_mtrldef_unit[ll_newrow] = ls_unit
dw_1.Object.u_mtrldef_mtrlmode[ll_newrow] = ls_mtrlmode
dw_1.Object.u_mtrldef_mtrlsectype[ll_newrow] = ls_mtrlsectype
dw_1.Object.u_mtrldef_zxmtrlmode[ll_newrow] = ls_zxmtrlmode
dw_1.Object.u_sc_wkp_wrkGrpName[ll_newrow] = ls_wrkGrpName
dw_1.Object.u_mtrldef_statusflag[ll_newrow] = li_statusflag
dw_1.Object.u_mtrldef_statustype[ll_newrow] = li_statustype
dw_1.Object.u_mtrldef_woodcodeflag[ll_newrow] = li_woodcodeflag
dw_1.Object.u_mtrldef_woodcodetype[ll_newrow] = li_woodcodetype
dw_1.Object.u_mtrldef_pcodeflag[ll_newrow] = li_pcodeflag
dw_1.Object.u_mtrldef_pcodetype[ll_newrow] = li_pcodetype
dw_1.Object.u_mtrldef_usermtrlmode[ll_newrow] = ls_usermtrlmode



dw_1.Object.lp[ll_newrow] = arg_lp
dw_1.Object.iflock[ll_newrow] = 0
dw_1.Object.ifmod[ll_newrow] = 1

dw_1.Object.pmtrlid[ll_newrow] = ll_mtrlid_p
dw_1.Object.u_mtrldef_mtrlid[ll_newrow] = ll_mtrlid
dw_1.Object.u_prdpf_sonmtrlid[ll_newrow] = ll_mtrlid
dw_1.Object.u_prdpf_printid[ll_newrow] = ll_newrow
dw_1.Object.u_prdpf_sonpfcode[ll_newrow] = ''

dw_1.Object.u_prdpf_pfgroup[ll_newrow] = ''
dw_1.Object.u_prdpf_pfgroupqty[ll_newrow] = 0
dw_1.Object.u_prdpf_pfgroupmode[ll_newrow] = ''
dw_1.Object.u_prdpf_pfklmode[ll_newrow] = ''
dw_1.Object.u_prdpf_dscrp[ll_newrow] = ''
dw_1.Object.u_prdpf_baseqty[ll_newrow] = 1
dw_1.Object.u_prdpf_scllloss[ll_newrow] = 0
dw_1.Object.u_prdpf_sclldecloss[ll_newrow] = 0
dw_1.Object.u_prdpf_ifover[ll_newrow] = 0
dw_1.Object.u_prdpf_dipztype[ll_newrow] = 0
dw_1.Object.u_prdpf_buyarg[ll_newrow] = 0

dw_1.Object.u_mtrldef_orderdays[ll_newrow] = 0
dw_1.Object.u_mtrldef_buydays[ll_newrow] = 0
dw_1.Object.u_mtrldef_wfjgdays[ll_newrow] = 0
dw_1.Object.u_mtrldef_dftwrkgrpid[ll_newrow] = ll_dftwrkgrpid

dw_1.Object.u_mtrldef_scid[ll_newrow] = ll_scid
dw_1.Object.u_mtrldef_mtrltypeid[ll_newrow] = ll_mtrltypeid

arg_row = ll_newrow

RETURN rslt













end function

public function integer wf_auto_wp (boolean arg_ifwpadd, ref string arg_msg);Int rslt = 1
Long ll_sonmtrlid_arr[]
String ls_sonpfcode_arr[]
Long ll_mxbt = 1,ll_i,ll_j,ll_k,ll_l
String ls_dscrp,ls_wpcode
String ls_procode_arr[],ls_proname_arr[],ls_empty_arr[]
String ls_mtrlcode_arr[]
Decimal ld_workprice_arr[],ld_empty_arr[]
Long ll_wrkgrpid_arr[],ll_empty_arr[]
Long cnt
String ls_promode,ls_pfgroup,ls_mtrlcode
Int li_ifpack
Long ll_rowcnt = 0
String ls_pricestr_arr[]

s_workpricetable arg_s_mx[],arg_s_empty[]

If ins_mtrlid = 0 Then
	rslt = 0
	Goto ext
End If

Select ifpack,mtrlcode
	Into :li_ifpack,:ls_mtrlcode
	From u_mtrldef
	Where mtrlid = :ins_mtrlid;
If sqlca.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '查询产品属性失败,'+sqlca.SQLErrText
	Goto ext
End If

datastore ds_dscrp
ds_dscrp = Create datastore
ds_dscrp.DataObject = 'ds_prdpf_dscrp'
ds_dscrp.SetTransObject(sqlca)

If li_ifpack = 0 Then
	Declare cur_pf Cursor For
		Select u_PrdPF.SonMtrlid, u_PrdPF.sonpfcode,u_mtrldef.mtrlcode
		From u_PrdPF Inner JOIN
		u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid
		Where (u_mtrldef.ifpack <> 0)
		And (u_PrdPF.mtrlid = :ins_mtrlid)
		And (u_PrdPF.pfcode = :ins_pfcode);
		
	Open cur_pf;
	
	Fetch cur_pf Into :ll_sonmtrlid_arr[ll_mxbt],:ls_sonpfcode_arr[ll_mxbt],:ls_mtrlcode_arr[ll_mxbt];
	
	Do While sqlca.SQLCode = 0
		ll_mxbt++
		Fetch cur_pf Into :ll_sonmtrlid_arr[ll_mxbt],:ls_sonpfcode_arr[ll_mxbt],:ls_mtrlcode_arr[ll_mxbt];
	Loop
	
	Close cur_pf;
	
	ll_rowcnt = ll_mxbt - 1
Else
	ll_mxbt = 1
	ll_sonmtrlid_arr[ll_mxbt] = ins_mtrlid
	ls_sonpfcode_arr[ll_mxbt] = ins_pfcode
	ls_mtrlcode_arr[ll_mxbt] = ls_mtrlcode
	
	ll_rowcnt = 1
End If


For ll_i = 1 To ll_rowcnt
	ds_dscrp.Retrieve(ll_sonmtrlid_arr[ll_i],ls_sonpfcode_arr[ll_i])
	
	If ds_dscrp.RowCount() = 0 Then Continue
	
	ls_procode_arr = ls_empty_arr
	ls_proname_arr = ls_empty_arr
	ld_workprice_arr = ld_empty_arr
	ll_wrkgrpid_arr = ll_empty_arr
	cnt = 0
	
	For ll_j = 1 To ds_dscrp.RowCount()
		ls_dscrp = ds_dscrp.Object.dscrp[ll_j]
		ls_promode = ds_dscrp.Object.promode[ll_j]
		ls_pfgroup = ds_dscrp.Object.pfgroup[ll_j]
		
		arg_s_mx = arg_s_empty
		f_cmp_proname(ls_dscrp,arg_s_mx)
		
		For ll_k = 1 To UpperBound(arg_s_mx)
			cnt++
			ls_procode_arr[cnt] = arg_s_mx[ll_k].procode + '_' + ls_promode
			ls_proname_arr[cnt] = arg_s_mx[ll_k].proname + '_' + ls_pfgroup
			ld_workprice_arr[cnt] = arg_s_mx[ll_k].workprice
			ll_wrkgrpid_arr[cnt] = arg_s_mx[ll_k].wrkgrpid
			ls_pricestr_arr[cnt] = arg_s_mx[ll_k].pricestr
		Next
		
	Next
	
	ls_wpcode = f_get_dft_wp(ll_sonmtrlid_arr[ll_i])
	
	//2014-06-28 需求变更:改为不清空原工价表(优适), 屏蔽以下代码
	//	Delete From u_sc_workprice
	//		Where mtrlid = :ll_sonmtrlid_arr[ll_i]
	//		And wpcode = :ls_wpcode;
	//	If sqlca.SQLCode <> 0 Then
	//		rslt = 0
	//		arg_msg = '物料:'+ls_mtrlcode_arr[ll_i]+',删除原有工价表失败,'+sqlca.SQLErrText
	//		Goto ext
	//	End If
	
	For ll_l = 1 To cnt
		Update u_sc_workprice
			Set workPrice = :ld_workprice_arr[ll_l],
			pricestr = :ls_pricestr_arr[ll_l]
			Where mtrlid = :ll_sonmtrlid_arr[ll_i]
			And wpcode = :ls_wpcode
			And procode = :ls_procode_arr[ll_l];
		If sqlca.SQLCode = 0 Then
			//2014-09-15 需求变更: 模板工价表没有的工序,即使备注有,也不插入(优适), 屏蔽以下代码
			//2014-09-20 需求再变更: 旧模式要插入,新模式不插入,所以增加cbx由用户自由控制,解除屏蔽以下代码
			
			If arg_ifwpadd Then
				
				If sqlca.SQLNRows = 0 Then
					
					Insert Into u_sc_workprice
						(Mtrlid,
						wpcode,
						Proorder,
						procode,
						Proname,
						workPrice,
						wrkGrpid,
						lsxtype,
						workqty,
						pricestr)
						Values (:ll_sonmtrlid_arr[ll_i],
						:ls_wpcode,
						:ll_l,
						:ls_procode_arr[ll_l],
						:ls_proname_arr[ll_l],
						:ld_workprice_arr[ll_l],
						:ll_wrkgrpid_arr[ll_l],
						1,
						1,
						:ls_pricestr_arr[ll_l]);
					If sqlca.SQLCode <> 0 Then
						rslt = 0
						arg_msg = '物料:'+ls_mtrlcode_arr[ll_i]+',插入新工价表失败,工序号:'+ls_procode_arr[ll_i]+','+sqlca.SQLErrText
						Goto ext
					End If
				End If
			End If
		Else
			rslt = 0
			arg_msg = '物料:'+ls_mtrlcode_arr[ll_i]+',更新工价表失败,工序号:'+ls_procode_arr[ll_i]+','+sqlca.SQLErrText
			Goto ext
		End If
		
	Next
Next

ext:
Destroy ds_dscrp
Return rslt













end function

public function integer wf_addmx_up (long arg_mtrlid, string arg_pfcode, long arg_pmtrlid, long arg_lp, long arg_row, ref string arg_msg);Int rslt = 1
Decimal ld_cmpqty
String ls_mtrlcode
Long count,ll_i
Decimal ld_qty
Long ll_row

Select mtrlcode,cmpqty
	Into :ls_mtrlcode,:ld_cmpqty
	From u_mtrldef
	Where mtrlid = :arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询物料清单基数失败,ID:'+String(arg_mtrlid)+','+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

If ld_cmpqty <= 0 Then
	arg_msg = '不合理的物料清单基数,物料:'+ls_mtrlcode
	rslt = 0
	Goto ext
End If

String mtrlcode
Long mtrlprp
Long wrkgrpid

String mtrlname,unit,mtrlmode,mtrlsectype,zxmtrlmode,wrkGrpName
Long statusflag,statustype,woodcodeflag,woodcodetype,pcodeflag,pcodetype
String usermtrlmode
Long Mtrlorigin

Decimal buyarg,orderdays,buydays,wfjgdays
Int ifselforder,ordertype,outtype,ifpack
Long ll_mtrltypeid,ll_dftwrkgrpid,ll_dftscllwkpid
Decimal ld_cubage,ld_long,ld_width,ld_height

String ls_promode,ls_wenli,ls_fengbian,ls_paikong,ls_luoji,ls_penyou,ls_gydscrp,ls_pfklmode
Int ll_direction
string ls_dscrp_mtrl

Select u_mtrldef.mtrlcode,
	u_mtrldef.mtrlprp,
	u_mtrldef.mtrlname,
	u_mtrldef.unit,
	u_mtrldef.mtrlmode,
	u_mtrldef.mtrlsectype,
	u_mtrldef.zxmtrlmode,
	u_sc_wkp.wrkGrpName,
	u_mtrldef.statusflag,
	u_mtrldef.statustype,
	u_mtrldef.woodcodeflag,
	u_mtrldef.woodcodetype,
	u_mtrldef.pcodeflag,
	u_mtrldef.pcodetype,
	u_mtrldef.usermtrlmode,
	u_mtrldef.Mtrlorigin,
	u_mtrldef.orderdays,
	u_mtrldef.buydays,
	u_mtrldef.wfjgdays,
	u_mtrldef.ifselforder,
	u_mtrldef.ordertype,
	u_mtrldef.mtrltypeid,
	u_mtrldef.dftwrkgrpid,
	u_mtrldef.dftscllwkpid,
	u_mtrldef.outtype,
	u_mtrldef.ifpack,
	isnull(u_mtrldef_ban.promode,'') as promode,
	isnull(u_mtrldef_ban.wenli,'') as wenli,
	isnull(u_mtrldef_ban.fengbian,'') as fengbian,
	isnull(u_mtrldef_ban.paikong,'') as paikong,
	isnull(u_mtrldef_ban.luoji,'') as luoji,
	isnull(u_mtrldef_ban.penyou,'') as penyou,
	isnull(u_mtrldef_ban.gydscrp,'') as gydscrp,
	isnull(u_mtrldef_ban.direction,0) as direction,
	isnull(u_mtrldef_ban.pfklmode,0) as pfklmode,
	u_mtrldef.dscrp
	Into :mtrlcode,
	:mtrlprp,
	:mtrlname,
	:unit,
	:mtrlmode,
	:mtrlsectype,
	:zxmtrlmode,
	:wrkGrpName,
	:statusflag,
	:statustype,
	:woodcodeflag,
	:woodcodetype,
	:pcodeflag,
	:pcodetype,
	:usermtrlmode,
	:Mtrlorigin,
	:orderdays,
	:buydays,
	:wfjgdays,
	:ifselforder,
	:ordertype,
	:ll_mtrltypeid,
	:ll_dftwrkgrpid,
	:ll_dftscllwkpid,
	:outtype,
	:ifpack,
	:ls_promode,
	:ls_wenli,
	:ls_fengbian,
	:ls_paikong,
	:ls_luoji,
	:ls_penyou,
	:ls_gydscrp,
	:ll_direction,
	:ls_pfklmode,
	:ls_dscrp_mtrl
	From u_mtrldef  LEFT Outer JOIN
	u_sc_wkp ON u_mtrldef.dftwrkGrpid = u_sc_wkp.wrkGrpid LEFT Outer JOIN
	u_mtrldef_ban ON u_mtrldef.mtrlid = u_mtrldef_ban.mtrlid
	Where u_mtrldef.mtrlid = :arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '查询物料信息失败,'+ls_mtrlcode+','+sqlca.SQLErrText
	Goto ext
End If


dw_1.Object.pmtrlid[arg_row] = arg_mtrlid

//本级及下级的物料层次推后
dw_1.Object.lp[arg_row] = dw_1.Object.lp[arg_row] + 1

For ll_i = arg_row + 1 To dw_1.RowCount()
	If dw_1.Object.lp[ll_i] <= arg_lp Then Exit
	
	dw_1.Object.lp[ll_i] = dw_1.Object.lp[ll_i] + 1
Next


ll_row = dw_1.InsertRow(arg_row)

dw_1.Object.mb_mtrlcode[ll_row] = mtrlcode
dw_1.Object.mb_mtrlid[ll_row] = arg_mtrlid

dw_1.Object.u_mtrldef_mtrlcode[ll_row] = mtrlcode
dw_1.Object.u_mtrldef_mtrlprp[ll_row] = mtrlprp
dw_1.Object.u_PrdPF_wrkgrpid[ll_row] = wrkgrpid
dw_1.Object.u_PrdPF_Sonscale[ll_row] = 1
dw_1.Object.u_PrdPF_Sonscale_ori[ll_row] = 1

dw_1.Object.u_PrdPF_SonLoss[ll_row] = 0
dw_1.Object.u_PrdPF_SonDECLosS[ll_row] = 0
dw_1.Object.u_PrdPF_status[ll_row] = ''
dw_1.Object.u_PrdPF_woodcode[ll_row] = ''
dw_1.Object.u_PrdPF_pcode[ll_row] = ''
dw_1.Object.u_PrdPF_Sonahead[ll_row] = 0
dw_1.Object.u_mtrldef_mtrlname[ll_row] = mtrlname
dw_1.Object.u_mtrldef_unit[ll_row] = unit
dw_1.Object.u_mtrldef_mtrlmode[ll_row] = mtrlmode
dw_1.Object.u_mtrldef_mtrlsectype[ll_row] = mtrlsectype
dw_1.Object.u_mtrldef_zxmtrlmode[ll_row] = zxmtrlmode
dw_1.Object.u_sc_wkp_wrkGrpName[ll_row] = wrkGrpName
dw_1.Object.u_mtrldef_statusflag[ll_row] = statusflag
dw_1.Object.u_mtrldef_statustype[ll_row] = statustype
dw_1.Object.u_mtrldef_woodcodeflag[ll_row] = woodcodeflag
dw_1.Object.u_mtrldef_woodcodetype[ll_row] = woodcodetype
dw_1.Object.u_mtrldef_pcodeflag[ll_row] = pcodeflag
dw_1.Object.u_mtrldef_pcodetype[ll_row] = pcodetype
dw_1.Object.u_mtrldef_usermtrlmode[ll_row] = usermtrlmode
dw_1.Object.u_mtrldef_Mtrlorigin[ll_row] = Mtrlorigin
dw_1.Object.lp[ll_row] = arg_lp
dw_1.Object.u_mtrldef_mtrlid[ll_row] = arg_mtrlid
dw_1.Object.u_prdpf_sonmtrlid[ll_row] = arg_mtrlid
dw_1.Object.pmtrlid[ll_row] = arg_pmtrlid
dw_1.Object.u_prdpf_printid[ll_row] = 1
dw_1.Object.u_prdpf_sonpfcode[ll_row] = arg_pfcode

dw_1.Object.u_mtrldef_orderdays[ll_row] = orderdays
dw_1.Object.u_mtrldef_buydays[ll_row] = buydays
dw_1.Object.u_mtrldef_wfjgdays[ll_row] = wfjgdays

dw_1.Object.u_mtrldef_ifselforder[ll_row] = ifselforder
dw_1.Object.u_mtrldef_ordertype[ll_row] = ordertype

dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = ll_mtrltypeid
dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = ll_dftwrkgrpid

dw_1.Object.u_PrdPF_wrkgrpid[ll_row] = ll_dftscllwkpid

dw_1.Object.u_mtrldef_outtype[ll_row] = outtype

dw_1.Object.u_mtrldef_ifpack[ll_row] = ifpack

dw_1.Object.iflock[ll_row] = 0

f_mtrlmode_trans(mtrlmode,ld_long,ld_width,ld_height)

ld_cubage = ld_long * ld_width * ld_height / 1000000000

dw_1.Object.cubage[ll_row] = ld_cubage
dw_1.Object.Length[ll_row] = ld_long
dw_1.Object.Width[ll_row] = ld_width

dw_1.Object.u_mtrldef_ban_promode[ll_row] = ls_promode
dw_1.Object.u_mtrldef_ban_wenli[ll_row] = ls_wenli
dw_1.Object.u_mtrldef_ban_fengbian[ll_row] = ls_fengbian
dw_1.Object.u_mtrldef_ban_paikong[ll_row] = ls_paikong
dw_1.Object.u_mtrldef_ban_luoji[ll_row] = ls_luoji
dw_1.Object.u_mtrldef_ban_penyou[ll_row] = ls_penyou
dw_1.Object.u_mtrldef_ban_gydscrp[ll_row] = ls_gydscrp
dw_1.Object.u_mtrldef_ban_pfklmode[ll_row] = ls_pfklmode

dw_1.Object.u_mtrldef_ban_direction[ll_row] = ll_direction

dw_1.Object.u_mtrldef_dscrp[ll_row] = ls_dscrp_mtrl


ext:
Return rslt

end function

public function integer wf_addmx_next (long arg_mtrlid, string arg_pfcode, long arg_pmtrlid, long arg_lp, long arg_row, ref string arg_msg, decimal arg_qty, decimal arg_pfgroupqty);Int rslt = 1
Decimal ld_cmpqty
String ls_mtrlcode
Long count,ll_i
Decimal ld_qty
Long ll_row

Select mtrlcode,cmpqty
	Into :ls_mtrlcode,:ld_cmpqty
	From u_mtrldef
	Where mtrlid = :arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	arg_msg = '查询物料清单基数失败,ID:'+String(arg_mtrlid)+','+sqlca.SQLErrText
	rslt = 0
	Goto ext
End If

If ld_cmpqty <= 0 Then
	arg_msg = '不合理的物料清单基数,物料:'+ls_mtrlcode
	rslt = 0
	Goto ext
End If

String mtrlcode
Long mtrlprp
Long wrkgrpid

String mtrlname,unit,mtrlmode,mtrlsectype,zxmtrlmode,wrkGrpName
Long statusflag,statustype,woodcodeflag,woodcodetype,pcodeflag,pcodetype
String usermtrlmode
Long Mtrlorigin

Decimal buyarg,orderdays,buydays,wfjgdays
Int ifselforder,ordertype,outtype,ifpack
Long ll_mtrltypeid,ll_dftwrkgrpid,ll_dftscllwkpid
Decimal ld_cubage,ld_long,ld_width,ld_height

String ls_promode,ls_wenli,ls_fengbian,ls_paikong,ls_luoji,ls_penyou,ls_gydscrp,ls_pfklmode
Int ll_direction,li_bantype
decimal ld_midu
string ls_dscrp_mtrl


Select u_mtrldef.mtrlcode,
	u_mtrldef.mtrlprp,
	u_mtrldef.mtrlname,
	u_mtrldef.unit,
	u_mtrldef.mtrlmode,
	u_mtrldef.mtrlsectype,
	u_mtrldef.zxmtrlmode,
	u_sc_wkp.wrkGrpName,
	u_mtrldef.statusflag,
	u_mtrldef.statustype,
	u_mtrldef.woodcodeflag,
	u_mtrldef.woodcodetype,
	u_mtrldef.pcodeflag,
	u_mtrldef.pcodetype,
	u_mtrldef.usermtrlmode,
	u_mtrldef.Mtrlorigin,
	u_mtrldef.orderdays,
	u_mtrldef.buydays,
	u_mtrldef.wfjgdays,
	u_mtrldef.ifselforder,
	u_mtrldef.ordertype,
	u_mtrldef.mtrltypeid,
	u_mtrldef.dftwrkgrpid,
	u_mtrldef.dftscllwkpid,
	u_mtrldef.outtype,
	u_mtrldef.ifpack,
isnull(u_mtrldef_ban.promode,'') as promode,
	isnull(u_mtrldef_ban.wenli,'') as wenli,
	isnull(u_mtrldef_ban.fengbian,'') as fengbian,
	isnull(u_mtrldef_ban.paikong,'') as paikong,
	isnull(u_mtrldef_ban.luoji,'') as luoji,
	isnull(u_mtrldef_ban.penyou,'') as penyou,
	isnull(u_mtrldef_ban.gydscrp,'') as gydscrp,
	isnull(u_mtrldef_ban.direction,0) as direction,
	u_mtrldef.midu,
	isnull(u_mtrldef_ban.pfklmode,'') as pfklmode,
	u_mtrldef.dscrp,
	u_mtrldef.bantype
	Into :mtrlcode,
	:mtrlprp,
	:mtrlname,
	:unit,
	:mtrlmode,
	:mtrlsectype,
	:zxmtrlmode,
	:wrkGrpName,
	:statusflag,
	:statustype,
	:woodcodeflag,
	:woodcodetype,
	:pcodeflag,
	:pcodetype,
	:usermtrlmode,
	:Mtrlorigin,
	:orderdays,
	:buydays,
	:wfjgdays,
	:ifselforder,
	:ordertype,
	:ll_mtrltypeid,
	:ll_dftwrkgrpid,
	:ll_dftscllwkpid,
	:outtype,
	:ifpack,
	:ls_promode,
	:ls_wenli,
	:ls_fengbian,
	:ls_paikong,
	:ls_luoji,
	:ls_penyou,
	:ls_gydscrp,
	:ll_direction,
	:ld_midu,
	:ls_pfklmode,
	:ls_dscrp_mtrl,
	:li_bantype
	From u_mtrldef  LEFT Outer JOIN
	u_sc_wkp ON u_mtrldef.dftwrkGrpid = u_sc_wkp.wrkGrpid  LEFT Outer JOIN
	u_mtrldef_ban ON u_mtrldef.mtrlid = u_mtrldef_ban.mtrlid
	Where u_mtrldef.mtrlid = :arg_mtrlid;
If sqlca.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '查询物料信息失败,'+ls_mtrlcode+','+sqlca.SQLErrText
	Goto ext
End If


ll_row = dw_1.InsertRow(arg_row)

dw_1.Object.u_mtrldef_mtrlcode[ll_row] = mtrlcode
dw_1.Object.u_mtrldef_mtrlprp[ll_row] = mtrlprp
dw_1.Object.u_PrdPF_wrkgrpid[ll_row] = wrkgrpid
dw_1.Object.u_PrdPF_Sonscale[ll_row] = 1
dw_1.Object.u_PrdPF_Sonscale_ori[ll_row] = 1

dw_1.Object.u_PrdPF_SonLoss[ll_row] = 0
dw_1.Object.u_PrdPF_SonDECLosS[ll_row] = 0
dw_1.Object.u_PrdPF_status[ll_row] = ''
dw_1.Object.u_PrdPF_woodcode[ll_row] = ''
dw_1.Object.u_PrdPF_pcode[ll_row] = ''
dw_1.Object.u_PrdPF_Sonahead[ll_row] = 0
dw_1.Object.u_mtrldef_mtrlname[ll_row] = mtrlname
dw_1.Object.u_mtrldef_unit[ll_row] = unit
dw_1.Object.u_mtrldef_mtrlmode[ll_row] = mtrlmode
dw_1.Object.u_mtrldef_mtrlsectype[ll_row] = mtrlsectype
dw_1.Object.u_mtrldef_zxmtrlmode[ll_row] = zxmtrlmode
dw_1.Object.u_sc_wkp_wrkGrpName[ll_row] = wrkGrpName
dw_1.Object.u_mtrldef_statusflag[ll_row] = statusflag
dw_1.Object.u_mtrldef_statustype[ll_row] = statustype
dw_1.Object.u_mtrldef_woodcodeflag[ll_row] = woodcodeflag
dw_1.Object.u_mtrldef_woodcodetype[ll_row] = woodcodetype
dw_1.Object.u_mtrldef_pcodeflag[ll_row] = pcodeflag
dw_1.Object.u_mtrldef_pcodetype[ll_row] = pcodetype
dw_1.Object.u_mtrldef_usermtrlmode[ll_row] = usermtrlmode
dw_1.Object.u_mtrldef_Mtrlorigin[ll_row] = Mtrlorigin
dw_1.Object.lp[ll_row] = arg_lp
dw_1.Object.u_mtrldef_mtrlid[ll_row] = arg_mtrlid
dw_1.Object.u_prdpf_sonmtrlid[ll_row] = arg_mtrlid
dw_1.Object.pmtrlid[ll_row] = arg_pmtrlid
dw_1.Object.u_prdpf_printid[ll_row] = 1
dw_1.Object.u_prdpf_sonpfcode[ll_row] = arg_pfcode

dw_1.Object.u_mtrldef_orderdays[ll_row] = orderdays
dw_1.Object.u_mtrldef_buydays[ll_row] = buydays
dw_1.Object.u_mtrldef_wfjgdays[ll_row] = wfjgdays

dw_1.Object.u_mtrldef_ifselforder[ll_row] = ifselforder
dw_1.Object.u_mtrldef_ordertype[ll_row] = ordertype

dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = ll_mtrltypeid
dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = ll_dftwrkgrpid

dw_1.Object.u_PrdPF_wrkgrpid[ll_row] = ll_dftscllwkpid

dw_1.Object.u_mtrldef_outtype[ll_row] = outtype

dw_1.Object.u_mtrldef_ifpack[ll_row] = ifpack

dw_1.Object.iflock[ll_row] = 0

f_mtrlmode_trans(mtrlmode,ld_long,ld_width,ld_height)

ld_cubage = ld_long * ld_width * ld_height / 1000000000

dw_1.Object.cubage[ll_row] = ld_cubage
dw_1.Object.Length[ll_row] = ld_long
dw_1.Object.Width[ll_row] = ld_width

dw_1.Object.u_mtrldef_ban_promode[ll_row] = ls_promode
dw_1.Object.u_mtrldef_ban_wenli[ll_row] = ls_wenli
dw_1.Object.u_mtrldef_ban_fengbian[ll_row] = ls_fengbian
dw_1.Object.u_mtrldef_ban_paikong[ll_row] = ls_paikong
dw_1.Object.u_mtrldef_ban_luoji[ll_row] = ls_luoji
dw_1.Object.u_mtrldef_ban_penyou[ll_row] = ls_penyou
dw_1.Object.u_mtrldef_ban_gydscrp[ll_row] = ls_gydscrp
dw_1.Object.u_mtrldef_ban_pfklmode[ll_row] = ls_pfklmode

dw_1.Object.u_mtrldef_ban_direction[ll_row] = ll_direction

dw_1.Object.u_mtrldef_midu[ll_row] = ld_midu

dw_1.Object.u_mtrldef_dscrp[ll_row] = ls_dscrp_mtrl

dw_1.Object.u_prdpf_sonscale[ll_row] = arg_qty
dw_1.Object.u_prdpf_pfgroupqty[ll_row] = arg_pfgroupqty

dw_1.Object.u_mtrldef_bantype[ll_row] = li_bantype

If wf_addmx_row(arg_mtrlid,arg_pfcode,arg_lp + 1,arg_row + 1 ,arg_qty,arg_msg) = 0 Then
	rslt = 0
	Goto ext
End If

ext:
Return rslt






end function

on w_mtrldef_prdpf_padd.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.st_2=create st_2
this.st_mtrl=create st_mtrl
this.cb_mod_bcp=create cb_mod_bcp
this.cb_save_bcp=create cb_save_bcp
this.cb_other_bom=create cb_other_bom
this.cb_save=create cb_save
this.st_1=create st_1
this.st_mtrl_pf=create st_mtrl_pf
this.cb_delmx=create cb_delmx
this.mle_log=create mle_log
this.dw_2=create dw_2
this.cb_addmx_wp=create cb_addmx_wp
this.cb_delmx_wp=create cb_delmx_wp
this.cb_save_wp=create cb_save_wp
this.cb_edit_wp=create cb_edit_wp
this.dw_copy=create dw_copy
this.cb_cmpl_pfklmode=create cb_cmpl_pfklmode
this.st_arg=create st_arg
this.em_arg=create em_arg
this.cbx_cmp_qty=create cbx_cmp_qty
this.cb_re_mtrl=create cb_re_mtrl
this.cbx_pfgroup=create cbx_pfgroup
this.cb_import=create cb_import
this.cb_1=create cb_1
this.cb_moban=create cb_moban
this.cb_change=create cb_change
this.cb_print=create cb_print
this.cbx_save_close=create cbx_save_close
this.rb_1=create rb_1
this.rb_2=create rb_2
this.dw_3=create dw_3
this.dw_copy_wkp=create dw_copy_wkp
this.dw_copy_main=create dw_copy_main
this.cb_copy_paste=create cb_copy_paste
this.cb_bom=create cb_bom
this.cb_tmp_save=create cb_tmp_save
this.cb_tmp_read=create cb_tmp_read
this.cb_templet_ch=create cb_templet_ch
this.dw_buffer=create dw_buffer
this.cb_pack=create cb_pack
this.cb_all_ch=create cb_all_ch
this.cb_fan_ch=create cb_fan_ch
this.cbx_ifreset=create cbx_ifreset
this.cb_autocode=create cb_autocode
this.cbx_wp_pack=create cbx_wp_pack
this.cb_2=create cb_2
this.cb_fj_edit=create cb_fj_edit
this.cbx_wp_add=create cbx_wp_add
this.cb_old_to_new=create cb_old_to_new
this.cb_add_mtrl=create cb_add_mtrl
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_7=create ln_7
this.ln_8=create ln_8
this.ln_1=create ln_1
this.ln_2=create ln_2
this.ln_3=create ln_3
this.ln_4=create ln_4
this.ln_5=create ln_5
this.ln_6=create ln_6
this.ln_9=create ln_9
this.ln_10=create ln_10
this.ln_11=create ln_11
this.ln_12=create ln_12
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.st_2
this.Control[iCurrent+3]=this.st_mtrl
this.Control[iCurrent+4]=this.cb_mod_bcp
this.Control[iCurrent+5]=this.cb_save_bcp
this.Control[iCurrent+6]=this.cb_other_bom
this.Control[iCurrent+7]=this.cb_save
this.Control[iCurrent+8]=this.st_1
this.Control[iCurrent+9]=this.st_mtrl_pf
this.Control[iCurrent+10]=this.cb_delmx
this.Control[iCurrent+11]=this.mle_log
this.Control[iCurrent+12]=this.dw_2
this.Control[iCurrent+13]=this.cb_addmx_wp
this.Control[iCurrent+14]=this.cb_delmx_wp
this.Control[iCurrent+15]=this.cb_save_wp
this.Control[iCurrent+16]=this.cb_edit_wp
this.Control[iCurrent+17]=this.dw_copy
this.Control[iCurrent+18]=this.cb_cmpl_pfklmode
this.Control[iCurrent+19]=this.st_arg
this.Control[iCurrent+20]=this.em_arg
this.Control[iCurrent+21]=this.cbx_cmp_qty
this.Control[iCurrent+22]=this.cb_re_mtrl
this.Control[iCurrent+23]=this.cbx_pfgroup
this.Control[iCurrent+24]=this.cb_import
this.Control[iCurrent+25]=this.cb_1
this.Control[iCurrent+26]=this.cb_moban
this.Control[iCurrent+27]=this.cb_change
this.Control[iCurrent+28]=this.cb_print
this.Control[iCurrent+29]=this.cbx_save_close
this.Control[iCurrent+30]=this.rb_1
this.Control[iCurrent+31]=this.rb_2
this.Control[iCurrent+32]=this.dw_3
this.Control[iCurrent+33]=this.dw_copy_wkp
this.Control[iCurrent+34]=this.dw_copy_main
this.Control[iCurrent+35]=this.cb_copy_paste
this.Control[iCurrent+36]=this.cb_bom
this.Control[iCurrent+37]=this.cb_tmp_save
this.Control[iCurrent+38]=this.cb_tmp_read
this.Control[iCurrent+39]=this.cb_templet_ch
this.Control[iCurrent+40]=this.dw_buffer
this.Control[iCurrent+41]=this.cb_pack
this.Control[iCurrent+42]=this.cb_all_ch
this.Control[iCurrent+43]=this.cb_fan_ch
this.Control[iCurrent+44]=this.cbx_ifreset
this.Control[iCurrent+45]=this.cb_autocode
this.Control[iCurrent+46]=this.cbx_wp_pack
this.Control[iCurrent+47]=this.cb_2
this.Control[iCurrent+48]=this.cb_fj_edit
this.Control[iCurrent+49]=this.cbx_wp_add
this.Control[iCurrent+50]=this.cb_old_to_new
this.Control[iCurrent+51]=this.cb_add_mtrl
this.Control[iCurrent+52]=this.ln_bar
this.Control[iCurrent+53]=this.ln_bar2
this.Control[iCurrent+54]=this.r_bar
this.Control[iCurrent+55]=this.ln_7
this.Control[iCurrent+56]=this.ln_8
this.Control[iCurrent+57]=this.ln_1
this.Control[iCurrent+58]=this.ln_2
this.Control[iCurrent+59]=this.ln_3
this.Control[iCurrent+60]=this.ln_4
this.Control[iCurrent+61]=this.ln_5
this.Control[iCurrent+62]=this.ln_6
this.Control[iCurrent+63]=this.ln_9
this.Control[iCurrent+64]=this.ln_10
this.Control[iCurrent+65]=this.ln_11
this.Control[iCurrent+66]=this.ln_12
end on

on w_mtrldef_prdpf_padd.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.st_2)
destroy(this.st_mtrl)
destroy(this.cb_mod_bcp)
destroy(this.cb_save_bcp)
destroy(this.cb_other_bom)
destroy(this.cb_save)
destroy(this.st_1)
destroy(this.st_mtrl_pf)
destroy(this.cb_delmx)
destroy(this.mle_log)
destroy(this.dw_2)
destroy(this.cb_addmx_wp)
destroy(this.cb_delmx_wp)
destroy(this.cb_save_wp)
destroy(this.cb_edit_wp)
destroy(this.dw_copy)
destroy(this.cb_cmpl_pfklmode)
destroy(this.st_arg)
destroy(this.em_arg)
destroy(this.cbx_cmp_qty)
destroy(this.cb_re_mtrl)
destroy(this.cbx_pfgroup)
destroy(this.cb_import)
destroy(this.cb_1)
destroy(this.cb_moban)
destroy(this.cb_change)
destroy(this.cb_print)
destroy(this.cbx_save_close)
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.dw_3)
destroy(this.dw_copy_wkp)
destroy(this.dw_copy_main)
destroy(this.cb_copy_paste)
destroy(this.cb_bom)
destroy(this.cb_tmp_save)
destroy(this.cb_tmp_read)
destroy(this.cb_templet_ch)
destroy(this.dw_buffer)
destroy(this.cb_pack)
destroy(this.cb_all_ch)
destroy(this.cb_fan_ch)
destroy(this.cbx_ifreset)
destroy(this.cb_autocode)
destroy(this.cbx_wp_pack)
destroy(this.cb_2)
destroy(this.cb_fj_edit)
destroy(this.cbx_wp_add)
destroy(this.cb_old_to_new)
destroy(this.cb_add_mtrl)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_7)
destroy(this.ln_8)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ln_3)
destroy(this.ln_4)
destroy(this.ln_5)
destroy(this.ln_6)
destroy(this.ln_9)
destroy(this.ln_10)
destroy(this.ln_11)
destroy(this.ln_12)
end on

event open;call super::open;dw_1.SetTransObject(sqlca)
dw_2.SetTransObject(sqlca)
dw_3.SetTransObject(sqlca)
dw_copy.SetTransObject(sqlca)

uo_mtrl = Create uo_mtrldef
uo_pf = Create uo_mtrl_pf
u_wrkprice = Create uo_workpricetable

s_tran = Message.PowerObjectParm

IF s_tran.b_long = 0 THEN  //物料资料调用
	IF Not IsNull(s_tran) THEN
		ins_mtrlid = s_tran.c_long
		ins_pfcode = s_tran.b_string
		ins_mtrlid_pf = ins_mtrlid
		ins_if_saletask = s_tran.g_long
		ins_scid = s_tran.d_long
		ins_taskid = s_tran.e_long
		ins_printid = s_tran.f_long
		ins_pfdscrp = s_tran.c_string
	ELSE
		ins_mtrlid = 0
		ins_mtrlid_pf = 0
		ins_pfcode = ''
		ins_if_saletask = 0
		ins_scid = 0
		ins_taskid = 0
		ins_printid = 0
	END IF	
	wf_re_mtrl(1)
ELSEIF s_tran.b_long = 1 THEN
END IF

cb_re_mtrl.enabled = (ins_if_saletask = 0)
end event

event resize;call super::resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
ln_3.EndX = THIS.Width
ln_4.EndX = THIS.Width
r_bar.Width = THIS.Width

dw_1.Width = THIS.Width - dw_1.X - 40
dw_1.Height = THIS.Height - dw_1.Y - 150 - mle_log.height

mle_log.y = dw_1.y + dw_1.height + 8

rb_1.y =  mle_log.y + 12
rb_2.y = rb_1.y

dw_2.y = mle_log.y + 84

dw_2.width = dw_1.Width - mle_log.Width + 5

dw_3.y = dw_2.y
dw_3.x = dw_2.x

dw_3.width = dw_2.width

dw_3.height = dw_2.height 

cb_edit_wp.y = dw_2.y + dw_2.height + 16
cb_save_wp.y = cb_edit_wp.y 
cb_addmx_wp.y = cb_edit_wp.y
cb_delmx_wp.y = cb_edit_wp.y
cb_templet_ch.y = cb_edit_wp.y
end event

event close;call super::close;DESTROY uo_mtrl
DESTROY uo_pf
DESTROY  u_wrkprice
 
end event

event key;call super::key;this.triggerevent('user_key')
end event

type cb_func from w_publ_base`cb_func within w_mtrldef_prdpf_padd
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_mtrldef_prdpf_padd
integer x = 5371
integer width = 165
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_1 from u_dw_rbtnfilter within w_mtrldef_prdpf_padd
event ue_dwndropdown pbm_dwndropdown
integer y = 352
integer width = 3589
integer height = 932
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_mtrldef_prdpf_padd"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
end type

event ue_dwndropdown;
String ls_col_pz,ls_col_mtrlid
String ls_pz_ch
Long ll_row,ll_mtrlid
s_pzwin_open arg_s_win

ll_row = THIS.GetRow()
IF ll_row > 0 THEN
//	ls_col_mtrlid = THIS.Describe("#1.Name")
//	
//	IF NOT Pos(Lower(ls_col_mtrlid),'mtrlid') > 0 THEN RETURN
//	
//	ll_mtrlid = THIS.GetItemNumber(ll_row,ls_col_mtrlid)
//	
	ll_mtrlid = dw_1.object.u_prdpf_sonmtrlid[ll_row]
	
	ls_col_pz = THIS.GetColumnName( )
	
	arg_s_win.arg_x = THIS.X + THIS.PointerX() + PARENT.X
	arg_s_win.arg_y = THIS.Y + THIS.PointerY() + PARENT.Y
	
	arg_s_win.arg_col = ls_col_pz
	arg_s_win.arg_mtrlid = ll_mtrlid
	
	ls_pz_ch = f_mtrl_pz(arg_s_win)
	
	IF ls_pz_ch = '' THEN RETURN
	
	THIS.SetItem(ll_row,ls_col_pz,ls_pz_ch)
END IF



end event

event rowfocuschanged;call super::rowfocuschanged;IF ins_ifmod THEN RETURN
IF ins_ifmod_wp THEN RETURN

IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SetRow(currentrow)
	THIS.SelectRow(currentrow,TRUE)
	PARENT.TriggerEvent('ue_retrieve_workprice')
	PARENT.TriggerEvent('ue_retrieve_wkp')
	parent.triggerevent('ue_allowedit')
END IF





end event

event clicked;call super::clicked;IF ins_ifmod THEN RETURN
IF ins_ifmod_wp THEN RETURN

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 dwo.Name = 'u_prdpf_modlename' Then
	Open(w_sc_mtrlwkp_modle_ch)
	
	s_mtrl_wkp_tech_modle s_return
	s_return = Message.PowerObjectParm
	
	If s_return.modleid > 0 Then
		dw_1.Object.u_prdpf_modleid[row] = s_return.modleid
		dw_1.Object.u_prdpf_modlename[row] = s_return.modlename
	End If
	
End If

If ins_ifmod_wp Then Return

If Not ins_ifmod Then Return

If dwo.Name = 'u_mtrldef_mtrltypeid' Then
	Open(w_mtrltype_ch)
	s_mtrltype s_type
	
	s_type = Message.PowerObjectParm
	
	If s_type.mtrltypeid > 0 Then //正常返回值则可以取以下值
		dw_1.SetRedraw(False)
		dw_1.Object.u_mtrldef_mtrltypeid[row] = s_type.mtrltypeid
		dw_1.SetRedraw(True)
	End If
end if



end event

event dwnkey;call super::dwnkey;IF Key = KeyEnter!  THEN //
	keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
	keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
	RETURN 1
END IF


parent.triggerevent('user_key')
end event

event itemchanged;call super::itemchanged;If row <= 0 Then Return

Long ll_lp
Long ll_i
Decimal ld_sonscale,ld_sonscale_ori

This.AcceptText()

If dwo.Name = 'u_prdpf_sonscale' Then
	ll_lp = dw_1.Object.lp[row]
	ld_sonscale_ori = dw_1.Object.u_prdpf_sonscale_ori[row]
	ld_sonscale = dw_1.Object.u_prdpf_sonscale[row]
	
	If IsNull(ld_sonscale_ori) Then ld_sonscale_ori = 1
	If ld_sonscale_ori = 0 Then ld_sonscale_ori = 1
	
	dw_1.SetRedraw(False)
	For ll_i = row + 1 To dw_1.RowCount()
		If dw_1.Object.lp[ll_i] <= ll_lp  Then Exit
		
		dw_1.Object.u_prdpf_sonscale[ll_i] = dw_1.Object.u_prdpf_sonscale_ori[ll_i] * (ld_sonscale / ld_sonscale_ori )
		
		
	Next
	dw_1.SetRedraw(True)
ElseIf dwo.Name = 'ch' Then
	dw_1.SetRedraw(False)
	If dw_1.Object.ch[row] = 1 Then
		//反选
		For ll_i = row + 1 To dw_1.RowCount()
			If dw_1.Object.lp[ll_i] <= dw_1.Object.lp[row] Then Exit
			
			dw_1.Object.ch[ll_i] = 0
		Next
		
		If Trim(dw_1.Object.u_prdpf_pfgroup[row]) <> '' Then
			For ll_i = row + 1 To dw_1.RowCount()
				If Pos(dw_1.Object.u_prdpf_pfgroup[ll_i],dw_1.Object.u_prdpf_pfgroup[row]) > 0 Then
					dw_1.Object.ch[ll_i] = 0
				End If
			Next
		End If		
	Else
		//选中
		For ll_i = row + 1 To dw_1.RowCount()
			If dw_1.Object.lp[ll_i] <= dw_1.Object.lp[row] Then Exit
			
			dw_1.Object.ch[ll_i] = 1
		Next
		
		If Trim(dw_1.Object.u_prdpf_pfgroup[row]) <> '' Then
			For ll_i = row + 1 To dw_1.RowCount()
				If dw_1.Object.u_prdpf_pfgroup[ll_i] = Trim(dw_1.Object.u_prdpf_pfgroup[row]) + '封边带' Then
					dw_1.Object.ch[ll_i] = 1
				End If
			Next
		End If
		
	End If
	dw_1.SetRedraw(True)
End If



end event

type st_2 from statictext within w_mtrldef_prdpf_padd
integer x = 18
integer y = 280
integer width = 480
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 st_mtrl from statictext within w_mtrldef_prdpf_padd
integer x = 494
integer y = 204
integer width = 1563
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 = "none"
boolean focusrectangle = false
end type

type cb_mod_bcp from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 1038
integer width = 306
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "编辑半成品"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

Long ll_row
Long ll_mtrlid

dw_1.AcceptText()

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','请选择要编辑的半成品')
	RETURN
END IF

IF NOT ins_ifmod THEN
//	IF dw_1.Object.u_mtrldef_mtrlprp[ll_row] <> 1 THEN
//		MessageBox('系统提示','只能编辑半成品属性的物料')
//		RETURN
//	END IF
	
	IF dw_1.Object.lp[ll_row] = 0 THEN
		MessageBox('系统提示','主产品资料不能编辑')
		RETURN
	END IF
	
	dw_1.Object.ifmod[ll_row] = 1
	
	ins_mtrlcode_ori = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
	ins_mtrlname_ori = dw_1.Object.u_mtrldef_mtrlname[ll_row]
	ins_mtrlmode_ori = dw_1.Object.u_mtrldef_mtrlmode[ll_row]
	ins_unit_ori = dw_1.Object.u_mtrldef_unit[ll_row]
	ins_mtrlsectype_ori = dw_1.Object.u_mtrldef_mtrlsectype[ll_row]
	ins_zxmtrlmode_ori = dw_1.Object.u_mtrldef_zxmtrlmode[ll_row]
	ins_usermtrlmode_ori = dw_1.Object.u_mtrldef_usermtrlmode[ll_row]

	ins_mtrltypeid_ori = dw_1.Object.u_mtrldef_mtrltypeid[ll_row]
	ins_scid_ori = dw_1.Object.u_mtrldef_scid[ll_row]
	ins_dftwrkgrpid_ori = dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row]
	ins_orderdays_ori = dw_1.Object.u_mtrldef_orderdays[ll_row]
	ins_buydays_ori = dw_1.Object.u_mtrldef_buydays[ll_row]
	ins_wfjgdays_ori = dw_1.Object.u_mtrldef_wfjgdays[ll_row]
	ins_mb_mtrlcode = dw_1.Object.mb_mtrlcode[ll_row]
	
	dw_1.AcceptText()
ELSE
	dw_1.SetRedraw(FALSE)
	dw_1.Object.u_mtrldef_mtrlcode[ll_row] = ins_mtrlcode_ori
	dw_1.Object.u_mtrldef_mtrlname[ll_row] = ins_mtrlname_ori
	dw_1.Object.u_mtrldef_mtrlmode[ll_row] = ins_mtrlmode_ori
	dw_1.Object.u_mtrldef_unit[ll_row] = ins_unit_ori
	dw_1.Object.u_mtrldef_mtrlsectype[ll_row] = ins_mtrlsectype_ori
	dw_1.Object.u_mtrldef_zxmtrlmode[ll_row] = ins_zxmtrlmode_ori
	dw_1.Object.u_mtrldef_usermtrlmode[ll_row] = ins_usermtrlmode_ori
	
	dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = ins_mtrltypeid_ori 
	dw_1.Object.u_mtrldef_scid[ll_row] =  ins_scid_ori  
	dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = ins_dftwrkgrpid_ori  
	dw_1.Object.u_mtrldef_orderdays[ll_row] = ins_orderdays_ori 
	dw_1.Object.u_mtrldef_buydays[ll_row] = ins_buydays_ori 
	dw_1.Object.u_mtrldef_wfjgdays[ll_row] = ins_wfjgdays_ori 
	
	dw_1.Object.mb_mtrlcode[ll_row] = ins_mb_mtrlcode
	
	dw_1.Object.ifmod[ll_row] = 0
	dw_1.SetRedraw(TRUE)
	dw_1.AcceptText()
END IF

ins_ifmod = NOT ins_ifmod


wf_face()




end event

type cb_save_bcp from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 2258
integer width = 133
integer height = 164
integer taborder = 10
boolean bringtotop = true
boolean enabled = false
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long ll_row
String ls_mtrlcode
Long cnt,ll_lp,ll_i,ll_mtrlid
String ls_mtrlcode_p,ls_procode
Long ll_k,ll_row_find,ll_j

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','请选择要编辑的半成品')
	RETURN
END IF

dw_1.AcceptText()

ll_mtrlid = dw_1.Object.u_prdpf_sonmtrlid[ll_row]

IF dw_1.Object.u_mtrldef_mtrlid[ll_row] > 0 THEN
	IF dw_1.Object.u_mtrldef_mtrlcode[ll_row] = ins_mtrlcode_ori THEN
		MessageBox('系统提示','物料编辑没有修改,不能保存')
		RETURN
	END IF
END IF

ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]

IF Trim(ls_mtrlcode) = '' THEN
	MessageBox('系统提示','请输入物料编码')
	dw_1.SetFocus()
	dw_1.SetColumn("u_mtrldef_mtrlcode")
	RETURN
END IF

SELECT count(*) INTO :cnt
	FROM u_mtrldef
	Where mtrlcode = :ls_mtrlcode;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询新编码是否已存在失败')
	RETURN
END IF

IF cnt > 0 THEN
	MessageBox('系统提示','新输入的编码已存在,请重新输入')
	dw_1.SetFocus()
	dw_1.SetColumn("u_mtrldef_mtrlcode")
	RETURN
END IF

IF trim(dw_1.Object.u_mtrldef_unit[ll_row]) = '' THEN
	MessageBox('系统提示','请输入库存单位')
	dw_1.SetFocus()
	dw_1.SetColumn("u_mtrldef_unit")
	RETURN
END IF

IF dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = 0 THEN
	MessageBox('系统提示','请选择类别')
	dw_1.SetFocus()
	dw_1.SetColumn("u_mtrldef_mtrltypeid")
	RETURN
END IF

IF dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = 0 THEN
	MessageBox('系统提示','请选择默认制造车间')
	dw_1.SetFocus()
	dw_1.SetColumn("u_mtrldef_dftwrkgrpid")
	RETURN
END IF

dw_1.Object.u_mtrldef_mtrlid[ll_row] = 0
dw_1.Object.ifnewadd[ll_row] = 1

dw_1.Object.iflock[ll_row] = 0

IF cbx_pfgroup.Checked THEN
	dw_1.Object.u_prdpf_pfgroup[ll_row] = dw_1.Object.u_mtrldef_mtrlname[ll_row]
END IF

ll_lp = dw_1.Object.lp[ll_row]

dw_1.SetRedraw(False)
FOR ll_i = ll_row + 1 To dw_1.RowCount()
	IF dw_1.Object.lp[ll_i] = ll_lp + 1 then //And dw_1.Object.pmtrlid[ll_i] = ll_mtrlid THEN
		dw_1.Object.iflock[ll_i] = 0
	END IF
	
	if dw_1.Object.lp[ll_i] <= ll_lp then exit
NEXT
dw_1.SetRedraw(True)

dw_1.Object.ifmod[ll_row] = 0
ins_ifmod = False
dw_1.AcceptText()
dw_1.SetColumn("u_sc_wkp_wrkgrpname")

FOR ll_i = 1 To dw_copy.RowCount()
	IF dw_copy.Object.u_mtrldef_mtrlcode[ll_i] = ins_mtrlcode_ori THEN
		dw_copy.Object.u_mtrldef_mtrlcode[ll_i] = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
	END IF
NEXT
dw_copy.AcceptText()

ls_mtrlcode_p = dw_1.Object.u_mtrldef_mtrlcode[ll_row]


FOR ll_i = 1 To dw_2.RowCount()
	ls_procode = dw_2.Object.procode[ll_i]
	dw_2.Object.u_mtrldef_mtrlcode[ll_i] = ls_mtrlcode_p
	dw_2.AcceptText()
	
	FOR ll_k = 1 To dw_copy.RowCount()
		ll_row_find = dw_copy.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_p + "' and procode = '"+ls_procode+"'", ll_k, dw_copy.RowCount())
		IF ll_row_find > 0 THEN
			dw_copy.DeleteRow(ll_row_find)
			ll_k = 1
		END IF
	NEXT
	
	IF dw_copy.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_p + "' and procode = '"+ls_procode+"'", 1, dw_copy.RowCount()) > 0 THEN CONTINUE
	
	ll_j++
	dw_2.RowsCopy (ll_i,ll_i,Primary!,dw_copy,ll_j,Primary!)
NEXT

IF dw_2.RowCount() > 0 THEN
	dw_1.Object.ifmod_wp[ll_row] = 1
END IF

wf_face()

ins_cnt++
IF Trim(ins_mtrlcode_ori) <> Trim(dw_1.Object.u_mtrldef_mtrlcode[ll_row]) THEN
	mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.编辑半成品:原编码:'+ ins_mtrlcode_ori +' 编辑为新编码:'+dw_1.Object.u_mtrldef_mtrlcode[ll_row]
END IF


end event

type cb_other_bom from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 265
integer width = 457
integer height = 164
integer taborder = 10
boolean bringtotop = true
string text = "选择其它物料清单"
string normalpicname = "p1.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF


Long ll_i
Boolean lb_ifmod = FALSE
String ls_mtrlcode,ls_mtrlname,ls_pfcode,arg_msg

FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.u_mtrldef_mtrlid[ll_i] = 0 THEN
		lb_ifmod = TRUE
		EXIT
	END IF
NEXT

IF lb_ifmod THEN
	IF MessageBox('询问','选择其他物料清单会导致你当前的修改全部丢失,是否继续?',question!,yesno!) = 2 THEN RETURN
END IF

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 = FALSE
	s_ch_tran.b_long = 0
	s_ch_tran.c_long = -1
	s_ch_tran.f_long = 0
	
	THIS.Enabled = FALSE
	OpenWithParm(w_mtrldef_edit,s_ch_tran)
	THIS.Enabled = TRUE
	
	s_mtrldef_array s_inscust
	s_inscust = Message.PowerObjectParm
	
	IF UpperBound(s_inscust.mtrlid) = 1 AND s_inscust.mtrlid[1] > 0  THEN
		ins_mtrlid_pf = s_inscust.mtrlid[1]
		
		st_mtrl_pf.Text = '['+s_inscust.mtrlcode[1]+']'+s_inscust.mtrlname[1]
		
		IF ins_mtrlid_pf > 0 THEN
			ls_pfcode = f_get_dft_pf(ins_mtrlid_pf)
			
			dw_1.SetRedraw(FALSE)
			
			FOR ll_i = dw_1.RowCount() TO 2 STEP -1
				dw_1.DeleteRow(ll_i)
			NEXT
			
			IF wf_addmx(ins_mtrlid_pf,ls_pfcode,1,1,arg_msg) = 0 THEN
				MessageBox('Error',arg_msg)
			END IF
			dw_1.SetRedraw(TRUE)
			
			ins_cnt++
			mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.选择 ' + s_inscust.mtrlcode[1] + ' 的物料清单,重新生成明细内容'
			dw_copy.Reset()
		END IF
	END IF
END IF




end event

type cb_save from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 4914
integer width = 251
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "生成资料"
string normalpicname = "SAVE.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF

String arg_msg

IF MessageBox('询问','确定要按当前内容生成物料及相关清单、工价表吗?',question!,yesno!) = 2 THEN RETURN

IF wf_checkrand(arg_msg) = 0 THEN
	MessageBox('Error',arg_msg)
	RETURN
END IF

IF wf_save(arg_msg) = 0 THEN
	MessageBox('Error',arg_msg)
	RETURN
END IF

MessageBox('系统提示','操作成功!')

IF cbx_save_close.Checked THEN
	
	Close(Parent)
ELSE
	wf_re_mtrl(1)
	
END IF



end event

type st_1 from statictext within w_mtrldef_prdpf_padd
integer x = 69
integer y = 204
integer width = 425
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 st_mtrl_pf from statictext within w_mtrldef_prdpf_padd
integer x = 494
integer y = 280
integer width = 1563
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 = "none"
boolean focusrectangle = false
end type

type cb_delmx from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 3086
integer width = 197
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "删明细"
string normalpicname = "DELETE.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_del_ch"
menustr = menustr + "|" + "Text=删除本级(下级层次前移)~tEvent=ue_del_this"

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 mle_log from multilineedit within w_mtrldef_prdpf_padd
integer y = 1292
integer width = 1545
integer height = 992
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "------------------------操作记录-----------------------"
boolean autovscroll = true
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type dw_2 from u_dw_rbtnfilter within w_mtrldef_prdpf_padd
integer x = 1550
integer y = 1376
integer width = 2039
integer height = 788
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_workpricetable_padd_edit"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

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

end event

event doubleclicked;call super::doubleclicked;IF ins_ifmod_wp THEN
	IF dwo.Name = 'u_sc_workprice_status' THEN
		Parent.TriggerEvent('ue_wp_status')
	ELSEIF dwo.Name = 'u_sc_workprice_pricestr' THEN
		Parent.TriggerEvent('ue_wp_pricestr')
	ELSEIF dwo.Name = 'u_sc_workprice_workqtystr' THEN
		Parent.TriggerEvent('ue_wp_workqtystr')
	ELSEIF dwo.Name = 'u_sc_workprice_u_workqtystr' THEN
		Parent.TriggerEvent('ue_wp_u_workqtystr')
	ELSEIF dwo.Name = 'u_sc_workprice_u_pricestr' THEN
		Parent.TriggerEvent('ue_wp_u_pricestr')
	ELSE
		Parent.TriggerEvent('ue_wp_procode')
	END IF
END IF


end event

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 dwnkey;call super::dwnkey;parent.triggerevent('user_key')
end event

type cb_addmx_wp from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 2149
integer y = 2180
integer width = 288
integer height = 88
integer taborder = 30
boolean bringtotop = true
boolean enabled = false
string text = "增明细"
string normalpicname = "mx1.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;IF Not ins_ifmod_wp THEN RETURN

IF rb_1.Checked THEN
	Parent.TriggerEvent('ue_wp_procode')
ELSEIF rb_2.Checked THEN
	Long li_row,ll_row
	String ls_mtrlcode
	ll_row = dw_1.GetRow()
	
	IF ll_row <= 0 THEN
		MessageBox('系统提示','没有正确的物料内容')
		RETURN
	END IF
	
	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
	
	li_row = dw_3.InsertRow(0)
	dw_3.Object.u_mtrldef_mtrlcode[li_row] = ls_mtrlcode
	
	dw_3.SelectRow(0,False)
	dw_3.SetRow(li_row)
	dw_3.ScrollToRow(li_row)
	dw_3.SelectRow(li_row,True)
	dw_3.SetColumn ('printid')
END IF



end event

type cb_delmx_wp from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 2441
integer y = 2180
integer width = 288
integer height = 88
integer taborder = 40
boolean bringtotop = true
boolean enabled = false
string text = "删明细"
string normalpicname = "mx2.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;IF Not ins_ifmod_wp THEN
	MessageBox('系统提示','非编辑状态下不可用')
	RETURN
END IF

IF MessageBox ("询问","是否确定要删除当前明细记录?",Question!,YesNo! ) = 2 THEN RETURN

IF rb_1.Checked THEN
	IF dw_2.GetRow() = 0 THEN
		MessageBox('提示','请选择删除的行对象!')
		RETURN
	END IF
	
	dw_2.DeleteRow (dw_2.GetRow())
ELSEIF rb_2.Checked THEN
	
	IF dw_3.GetRow() = 0 THEN
		MessageBox('提示','请选择删除的行对象!')
		RETURN
	END IF
	
	dw_3.DeleteRow (dw_3.GetRow())
END IF

end event

type cb_save_wp from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 1842
integer y = 2180
integer width = 261
integer height = 88
integer taborder = 40
boolean bringtotop = true
boolean enabled = false
string text = "保存"
string normalpicname = "save.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;IF Not ins_ifmod_wp THEN
	MessageBox('系统提示','非编辑状态下不能使用')
	RETURN
END IF

Long ll_i,ll_j,ll_row,ll_k,ll_row_find
String arg_msg
String ls_mtrlcode,ls_procode,ls_mtrlcode_p
String ls_wkpname
Long ll_swkpid,ll_owkpid
ll_j = 0
dw_1.AcceptText()
dw_2.AcceptText()
ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','没有正确的物料内容')
	RETURN
END IF

ls_mtrlcode_p = dw_1.Object.u_mtrldef_mtrlcode[ll_row]

IF rb_1.Checked THEN
	FOR ll_k = dw_copy.RowCount() To 1 Step -1
		ll_row_find = dw_copy.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_p + "'", ll_k, dw_copy.RowCount())
		IF ll_row_find > 0 THEN
			dw_copy.DeleteRow(ll_row_find)
		END IF
	NEXT
	
	dw_2.SetRedraw(False)
	FOR ll_i = 1 To dw_2.RowCount()
		ls_procode = dw_2.Object.procode[ll_i]
		dw_2.Object.u_mtrldef_mtrlcode[ll_i] = ls_mtrlcode_p
		dw_2.AcceptText()
		
		IF dw_copy.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_p + "' and procode = '"+ls_procode+"'", 1, dw_copy.RowCount()) > 0 THEN CONTINUE
		
		ll_j++
		dw_2.RowsCopy (ll_i,ll_i,Primary!,dw_copy,ll_j,Primary!)
	NEXT
	dw_2.SetRedraw(True)
	
	dw_1.Object.ifmod_wp[ll_row] = 1
	dw_1.AcceptText()
	mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.编辑物料 '+ls_mtrlcode_p+' 工价表 '
ELSEIF rb_2.Checked THEN
	
	FOR ll_k = dw_copy_wkp.RowCount() To 1 Step -1
		ll_row_find = dw_copy_wkp.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_p + "'", ll_k, dw_copy_wkp.RowCount())
		IF ll_row_find > 0 THEN
			dw_copy_wkp.DeleteRow(ll_row_find)
		END IF
	NEXT

	IF wf_check_wkp(arg_msg) = 0 THEN
		MessageBox('Error',arg_msg)
		RETURN
	END IF

	dw_3.SetRedraw(False)
	FOR ll_i = 1 To dw_3.RowCount()
		ls_wkpname = dw_3.Object.wkpname[ll_i]
		ll_swkpid = dw_3.Object.swkpid[ll_i]
		ll_owkpid = dw_3.Object.owkpid[ll_i]
		
		dw_3.Object.u_mtrldef_mtrlcode[ll_i] = ls_mtrlcode_p
		dw_3.AcceptText()
		
		IF dw_copy_wkp.Find("u_mtrldef_mtrlcode = '"+ls_mtrlcode_p + "' and wkpname = '"+ls_wkpname+"' and swkpid = "+String(ll_swkpid) + " and owkpid = "+String(ll_owkpid), 1, dw_copy_wkp.RowCount()) > 0 THEN CONTINUE
		
		ll_j++
		dw_3.RowsCopy (ll_i,ll_i,Primary!,dw_copy_wkp,ll_j,Primary!)
	NEXT
	dw_3.SetRedraw(True)
	
	dw_1.Object.ifmod_wkp[ll_row] = 1
	dw_1.AcceptText()
	mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.编辑物料 '+ls_mtrlcode_p+' 工组流程 '
	
END IF

ins_ifmod_wp = Not ins_ifmod_wp

wf_face_wp()


end event

type cb_edit_wp from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 1577
integer y = 2180
integer width = 261
integer height = 88
integer taborder = 40
boolean bringtotop = true
string text = "修改"
string normalpicname = "open.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF

Long ll_row

IF Not ins_ifmod_wp THEN
	ll_row = dw_1.GetRow()
	
	IF ll_row <= 0 THEN
		MessageBox('系统提示','没有正确的物料内容')
		RETURN
	END IF
	
	IF Trim( dw_1.Object.u_mtrldef_mtrlcode[ll_row]) = '' THEN
		MessageBox('系统提示','请先填写半成品编码')
		RETURN
	END IF
	
	IF dw_1.Object.u_mtrldef_mtrlorigin[ll_row] <> 0  THEN
		MessageBox('系统提示','只有自制来源的产品及半成品才能编辑工价表明细或工组流利明细,请检查')
		RETURN
	END IF
ELSE
	Parent.TriggerEvent('ue_retrieve_workprice')
	Parent.TriggerEvent('ue_retrieve_wkp')
END IF

ins_ifmod_wp = Not ins_ifmod_wp

wf_face_wp()






end event

type dw_copy from datawindow within w_mtrldef_prdpf_padd
boolean visible = false
integer x = 2784
integer y = 1828
integer width = 773
integer height = 392
integer taborder = 20
boolean bringtotop = true
string title = "none"
string dataobject = "dw_workpricetable_padd_edit"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_cmpl_pfklmode from commandbutton within w_mtrldef_prdpf_padd
integer x = 2107
integer y = 196
integer width = 315
integer height = 68
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;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

menustr = "Text=按开料规格~tEvent=ue_cmp_pfklmode"
menustr = menustr + "|" + "Text=按部件规格~tEvent=ue_cmp_pfgroupmode"

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_arg from statictext within w_mtrldef_prdpf_padd
integer x = 2423
integer y = 204
integer width = 201
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 em_arg from editmask within w_mtrldef_prdpf_padd
integer x = 2624
integer y = 188
integer width = 494
integer height = 84
integer taborder = 210
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
borderstyle borderstyle = stylelowered!
string mask = "###############.00########"
end type

type cbx_cmp_qty from checkbox within w_mtrldef_prdpf_padd
integer x = 2107
integer y = 276
integer width = 631
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

type cb_re_mtrl from uo_imflatbutton within w_mtrldef_prdpf_padd
integer width = 265
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "选择产品"
string normalpicname = "p2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF


Long ll_i
Boolean lb_ifmod = FALSE
String ls_mtrlcode,ls_mtrlname,ls_pfcode,arg_msg

FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.u_mtrldef_mtrlid[ll_i] = 0 THEN
		lb_ifmod = TRUE
		EXIT
	END IF
NEXT

IF lb_ifmod THEN
	IF MessageBox('询问','重新选择产品会导致你当前的修改全部丢失,是否继续?',question!,yesno!) = 2 THEN RETURN
END IF

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 = FALSE
	s_ch_tran.b_long = 0
	s_ch_tran.c_long = -1
	s_ch_tran.f_long = 0
	
	THIS.Enabled = FALSE
	OpenWithParm(w_mtrldef_edit,s_ch_tran)
	THIS.Enabled = TRUE
	
	s_mtrldef_array s_inscust
	s_inscust = Message.PowerObjectParm
	
	IF UpperBound(s_inscust.mtrlid) = 1 AND s_inscust.mtrlid[1] > 0  THEN
		IF s_inscust.mtrlorigin[1] = 2 THEN
			MessageBox('系统提示','目标产品来源不能为采购')
			RETURN
		END IF
		
		ins_mtrlid_pf = s_inscust.mtrlid[1]
		ins_mtrlid = ins_mtrlid_pf
		
		wf_re_mtrl(1)
		
	END IF
END IF





end event

type cbx_pfgroup from checkbox within w_mtrldef_prdpf_padd
integer x = 2766
integer y = 276
integer width = 795
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_pfgroup

IF THIS.Checked THEN
	if_pfgroup = 1
ELSE
	if_pfgroup = 0
END IF

f_SetProfileString (sys_empid,'w_mtrldef_prdpf_padd', "if_pfgroup", String(if_pfgroup))


end event

event constructor;Int if_pfgroup
if_pfgroup = Integer(f_ProfileString (sys_empid,'w_mtrldef_prdpf_add', "if_pfgroup", '0'))

IF if_pfgroup = 1 THEN
	THIS.Checked = TRUE
ELSE
	THIS.Checked = FALSE
END IF

end event

type cb_import from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 727
integer width = 279
integer height = 164
integer taborder = 10
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;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr
String ls_bar

ls_bar = "|"

menustr = ""


If Integer(f_ProfileString (0,'excel_menu','龙嘉标准物料清单导入格式', '1')) = 1 Then
	
	menustr = menustr + "Text=龙嘉标准物料清单导入格式~tEvent=ue_import_xls_3"
End If

If Integer(f_ProfileString (0,'excel_menu','圆方板式家具物料清单报价明细格式', '1')) = 1 Then
	If menustr = '' Then
		ls_bar = ''
	Else
		ls_bar = "|"
	End If
	
	menustr = menustr + ls_bar + "Text=圆方板式家具物料清单报价明细格式~tEvent=ue_import_xls_2"
End If

If Integer(f_ProfileString (0,'excel_menu','圆方板式家具全订制板式家具包件产品格式', '1')) = 1 Then
	If menustr = '' Then
		ls_bar = ''
	Else
		ls_bar = "|"
	End If
	menustr = menustr + ls_bar + "Text=圆方板式家具全订制板式家具包件产品格式~tEvent=ue_import_xls_4"
End If

If Integer(f_ProfileString (0,'excel_menu','圆方板式家具包件格式', '1')) = 1 Then
	If menustr = '' Then
		ls_bar = ''
	Else
		ls_bar = "|"
	End If
	
	If menustr <> '' Then
		menustr = menustr + ls_bar + "Text=-"
	End If
	menustr = menustr + ls_bar + "Text=圆方板式家具包件格式~tEvent=ue_import_xls_5" //YS
End If

If Integer(f_ProfileString (0,'excel_menu','圆方板式家具包件产品格式', '1')) = 1 Then
	If menustr = '' Then
		ls_bar = ''
	Else
		ls_bar = "|"
	End If
	If menustr <> '' Then
		menustr = menustr + ls_bar + "Text=-"
	End If
	menustr = menustr + ls_bar + "Text=圆方板式家具包件产品格式~tEvent=ue_import_xls_6" //HY
End If

If Integer(f_ProfileString (0,'excel_menu','圆方板式家具包件产品格式2', '1')) = 1 Then
	If menustr = '' Then
		ls_bar = ''
	Else
		ls_bar = "|"
	End If
	menustr = menustr + ls_bar + "Text=圆方板式家具包件产品格式2~tEvent=ue_import_xls_7" //HY
End If

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 cb_1 from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 1344
integer width = 297
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "选物料类别"
string normalpicname = "p2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF

Long row
Long ll_mtrlid
row = dw_1.GetRow()
IF row <= 0 THEN
	MessageBox('系统提示','请选择行')
	RETURN
END IF

IF dw_1.Object.ifnewadd[row] = 0 THEN
	MessageBox('系统提示','只有新建的半成品资料才能重新选择类别')
	RETURN
END IF

//ll_mtrlid = dw_1.Object.u_prdpf_sonmtrlid[row]
//
//IF ll_mtrlid > 0 THEN
//	MessageBox('系统提示','只有没有记录的资料才能选择物料类别')
//	RETURN
//END IF

Open(w_mtrltype_ch)
s_mtrltype s_type

s_type = Message.PowerObjectParm

IF s_type.mtrltypeid > 0 THEN //正常返回值则可以取以下值
	dw_1.SetRedraw(False)
	dw_1.Object.u_mtrldef_mtrltypeid[row] = s_type.mtrltypeid
	dw_1.SetRedraw(True)
END IF

end event

type cb_moban from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 1911
integer width = 347
integer height = 164
integer taborder = 10
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 Not ins_ifmod THEN
	MessageBox('系统提示','非编辑半成品状态下,不能执行本操作')
	RETURN
END IF

Long ll_row
Long ll_mtrlid

dw_1.AcceptText()

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN
	MessageBox('系统提示','请选择要编辑的半成品')
	RETURN
END IF

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 = False
	s_ch_tran.b_long = 0
	s_ch_tran.c_long = -1
	s_ch_tran.f_long = 0
	
	This.Enabled = False
	OpenWithParm(w_mtrldef_edit,s_ch_tran)
	This.Enabled = True
	
	s_mtrldef_array s_inscust
	s_inscust = Message.PowerObjectParm
	
	IF UpperBound(s_inscust.mtrlid) = 1 And s_inscust.mtrlid[1] > 0  THEN
		IF s_inscust.mtrlorigin[1] = 2 THEN
			MessageBox('系统提示','目标产品来源不能为采购')
			RETURN
		END IF
		
		dw_1.Object.u_mtrldef_unit[ll_row] = s_inscust.unit[1]
		dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = s_inscust.mtrltypeid[1]
		dw_1.Object.u_mtrldef_mtrlsectype[ll_row] = s_inscust.mtrlsectype[1]
		dw_1.Object.u_mtrldef_zxmtrlmode[ll_row] = s_inscust.zxmtrlmode[1]
		dw_1.Object.u_mtrldef_usermtrlmode[ll_row] = s_inscust.usermtrlmode[1]
		dw_1.Object.u_mtrldef_piccode[ll_row] = s_inscust.piccode[1]
		dw_1.Object.u_mtrldef_ifselforder[ll_row] = s_inscust.ifselforder[1]
		dw_1.Object.u_mtrldef_ordertype[ll_row] = s_inscust.ordertype[1]
		dw_1.Object.u_mtrldef_scid[ll_row] = s_inscust.scid[1]
		dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = s_inscust.dftwrkgrpid[1]
		dw_1.Object.mb_mtrlcode[ll_row] = s_inscust.mtrlcode[1]
		dw_1.Object.u_mtrldef_orderdays[ll_row] = s_inscust.orderdays[1]
		dw_1.Object.u_mtrldef_buydays[ll_row] = s_inscust.buydays[1]
		dw_1.Object.u_mtrldef_wfjgdays[ll_row] = s_inscust.wfjgdays[1]
		
		dw_1.Object.mb_mtrlid[ll_row] = s_inscust.mtrlid[1]
		
			PARENT.TriggerEvent('ue_retrieve_workprice')
			PARENT.TriggerEvent('ue_retrieve_wkp')
	END IF
END IF




end event

type cb_change from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 2875
integer width = 201
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "换料"
string normalpicname = "update2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF


Long ll_i

String ls_mtrlcode,ls_mtrlname,ls_pfcode,arg_msg
Long ll_row,ll_row_add
Long ll_pmtrlid,ll_lp
Long ll_mtrlid
Long ll_mtrlorigin
Long ll_mtrlid_pf
String arg_msg_str
decimal ld_sonscale,ld_pfgroupqty

ll_row = dw_1.GetRow()

IF ll_row > 0 THEN
	ll_pmtrlid = dw_1.Object.pmtrlid[ll_row]
	ll_lp = dw_1.Object.lp[ll_row]
	ll_mtrlid = dw_1.Object.u_mtrldef_mtrlid[ll_row]
	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
	ll_mtrlorigin = dw_1.Object.u_mtrldef_mtrlorigin[ll_row]
	ld_pfgroupqty = dw_1.Object.u_prdpf_pfgroupqty[ll_row]
	ld_sonscale = dw_1.Object.u_prdpf_sonscale[ll_row]
ELSE
	ll_pmtrlid = ins_mtrlid
	ll_lp = 0
	ld_pfgroupqty = 1
	ld_sonscale = 1
END IF

IF ll_lp = 0 THEN
	MessageBox('系统提示','主产品不能更换')
	RETURN
END IF

//IF ll_mtrlorigin <> 2 THEN
//	MessageBox('系统提示','只能更换采购来源的材料,请检查')
//	RETURN
//END IF

IF ll_mtrlorigin = 2 THEN
	//换原料
	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 = False
		s_ch_tran.b_long = 2
		s_ch_tran.c_long = -1
		s_ch_tran.f_long = 2
		
		This.Enabled = False
		OpenWithParm(w_mtrldef_edit,s_ch_tran)
		This.Enabled = True
		
		s_mtrldef_array s_inscust
		s_inscust = Message.PowerObjectParm
		
		IF UpperBound(s_inscust.mtrlid) <> 1 THEN RETURN
		
		IF s_inscust.mtrlid[1] = 0 THEN RETURN
		
		ll_mtrlid = s_inscust.mtrlid[1]
		
		IF s_inscust.Mtrlorigin[1] <> 2 THEN
			MessageBox('系统提示','只能选择采购来源的物料')
			RETURN
		END IF
		
		IF ll_mtrlid > 0 THEN
			ls_pfcode = f_get_dft_pf(ll_mtrlid)
			
			dw_1.SetRedraw(False)
			
			dw_1.Object.u_mtrldef_mtrlcode[ll_row] = s_inscust.mtrlcode[1]
			dw_1.Object.u_mtrldef_mtrlprp[ll_row] = s_inscust.mtrlprp[1]
			dw_1.Object.u_mtrldef_mtrlname[ll_row] = s_inscust.mtrlname[1]
			dw_1.Object.u_mtrldef_unit[ll_row] = s_inscust.unit[1]
			dw_1.Object.u_mtrldef_mtrlmode[ll_row] = s_inscust.mtrlmode[1]
			dw_1.Object.u_mtrldef_mtrlsectype[ll_row] = s_inscust.mtrlsectype[1]
			dw_1.Object.u_mtrldef_zxmtrlmode[ll_row] = s_inscust.zxmtrlmode[1]
			dw_1.Object.u_mtrldef_statusflag[ll_row] = s_inscust.statusflag[1]
			dw_1.Object.u_mtrldef_statustype[ll_row] = s_inscust.statustype[1]
			dw_1.Object.u_mtrldef_woodcodeflag[ll_row] = s_inscust.woodcodeflag[1]
			dw_1.Object.u_mtrldef_woodcodetype[ll_row] = s_inscust.woodcodetype[1]
			dw_1.Object.u_mtrldef_pcodeflag[ll_row] = s_inscust.pcodeflag[1]
			dw_1.Object.u_mtrldef_pcodetype[ll_row] = s_inscust.pcodetype[1]
			dw_1.Object.u_mtrldef_usermtrlmode[ll_row] = s_inscust.usermtrlmode[1]
			dw_1.Object.u_mtrldef_mtrlorigin[ll_row] = s_inscust.Mtrlorigin[1]
			
			dw_1.Object.u_mtrldef_mtrlid[ll_row] = ll_mtrlid
			dw_1.Object.u_prdpf_sonmtrlid[ll_row] = ll_mtrlid
			dw_1.Object.u_prdpf_sonpfcode[ll_row] = f_get_dft_pf(ll_mtrlid)
			
			dw_1.Object.u_mtrldef_orderdays[ll_row] = s_inscust.orderdays[1]
			dw_1.Object.u_mtrldef_buydays[ll_row] = s_inscust.buydays[1]
			dw_1.Object.u_mtrldef_wfjgdays[ll_row] = s_inscust.wfjgdays[1]
			dw_1.Object.u_mtrldef_dftwrkgrpid[ll_row] = s_inscust.dftwrkgrpid[1]
			
			dw_1.Object.u_mtrldef_scid[ll_row] = s_inscust.scid[1]
			dw_1.Object.u_mtrldef_mtrltypeid[ll_row] = s_inscust.mtrltypeid[1]
			
			dw_1.Object.u_prdpf_pfgroup[ll_row] = s_inscust.mtrlname[1]
			dw_1.Object.u_prdpf_pfgroupmode[ll_row] = s_inscust.mtrlmode[1]
			
			
			dw_1.SetRedraw(True)
		ELSE
			RETURN
		END IF
	END IF
ELSE
	//换半成品
	
	dw_1.Object.ifdel[ll_row] = 1
	
	ll_lp = dw_1.Object.lp[ll_row]
	
	
	FOR ll_i = ll_row + 1 To dw_1.RowCount()
		IF dw_1.Object.lp[ll_i] <= ll_lp THEN EXIT
		
		dw_1.Object.ifdel[ll_i] = 1
	NEXT
	
	
	
	IF ll_row = dw_1.RowCount() THEN
		ll_row_add = ll_row
	ELSE
		FOR ll_i = ll_row + 1 To dw_1.RowCount()
			IF dw_1.Object.lp[ll_i] <= ll_lp THEN
				ll_row_add = ll_i - 1
				EXIT
			END IF
		NEXT
		
		IF ll_row_add = 0 THEN
			ll_row_add = dw_1.RowCount()
		END IF
	END IF
	
	
	IF Not IsValid(w_mtrldef_edit) THEN
		s_edit_index_tran s_ch_tran_add //传递参数使用
		s_ch_tran_add.if_retrieve_all = False //是否一次retrieve所有行
		s_ch_tran_add.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
		s_ch_tran_add.arg_pkid = 0 //目标定位pkid (备用)
		s_ch_tran_add.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选
		s_ch_tran_add.if_select_all = false
		s_ch_tran_add.b_long = 0
		s_ch_tran_add.c_long = -1
		s_ch_tran_add.f_long = 1
		
		This.Enabled = False
		OpenWithParm(w_mtrldef_edit,s_ch_tran_add)
		This.Enabled = True
		
		s_mtrldef_array s_inscust_add
		s_inscust_add = Message.PowerObjectParm
		
		IF UpperBound(s_inscust_add.mtrlid) <> 1 THEN RETURN
		IF s_inscust_add.mtrlid[1] = 0 THEN RETURN
		
		dw_1.SetRedraw(False)
		
		FOR ll_i = 1 To  UpperBound(s_inscust_add.mtrlid)
			
			ll_mtrlid_pf = s_inscust_add.mtrlid[ll_i]
			
			IF ll_mtrlid_pf > 0 THEN
				ls_pfcode = f_get_dft_pf(ll_mtrlid_pf)
				
				
				IF wf_addmx_next(ll_mtrlid_pf,ls_pfcode,ll_pmtrlid,ll_lp ,ll_row_add + 1 ,arg_msg,ld_sonscale,ld_pfgroupqty) = 0 THEN
					arg_msg_str = arg_msg_str + arg_msg + '~r~n'
				END IF
				
				//				ins_cnt++
				//				IF ls_mtrlcode <> '' THEN
				//					mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.对 '+ls_mtrlcode+' 增加下级物料 '+s_inscust_add.mtrlcode[ll_i]
				//				ELSE
				//					mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.增加物料 '+s_inscust_add.mtrlcode[ll_i]
				//				END IF
				
			END IF
		NEXT
		
		dw_1.AcceptText()
		
		FOR ll_i = dw_1.RowCount() To 1 Step -1
			IF dw_1.Object.ifdel[ll_i] = 1 THEN
				dw_1.DeleteRow(ll_i)
			END IF
		NEXT
		
		dw_1.SetRedraw(True)
		
		IF Trim(arg_msg_str) <> '' THEN
			MessageBox('Error',arg_msg_str)
		END IF
		
	END IF
	
END IF

ins_cnt++
IF ls_mtrlcode <> '' THEN
	IF ll_mtrlorigin = 2 THEN
		mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.更新原料,原:'+ls_mtrlcode+',新:'+s_inscust.mtrlcode[1]
	ELSE
		mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.更新半成品,原:'+ls_mtrlcode+',新:'+s_inscust_add.mtrlcode[1]
	END IF
ELSE
	mle_log.Text = mle_log.Text + '~r~n' + String(ins_cnt)+'.增加物料 '+s_inscust.mtrlcode[1]
END IF







end event

type cb_print from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 5170
integer width = 192
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "打印&P"
string normalpicname = "print.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_viewprint_gy"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=产品物料清单[用料]~tEvent=ue_viewprint_yl"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=产品物料清单[树型结构]~tEvent=ue_viewprint_tree"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=产品物料清单[车间]~tEvent=ue_viewprint_yl_wrk"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=产品加工说明书~tEvent=ue_viewprint_dy"

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 cbx_save_close from checkbox within w_mtrldef_prdpf_padd
integer x = 3173
integer y = 196
integer width = 576
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_close

IF THIS.Checked THEN
	if_close = 1
ELSE
	if_close = 0
END IF

f_SetProfileString (sys_empid,'w_mtrldef_prdpf_padd', "if_close", String(if_close))


end event

event constructor;int if_close
if_close = Integer(f_ProfileString (sys_empid,'w_mtrldef_prdpf_padd', "if_close", '0'))
IF if_close	 = 0 THEN
	This.Checked = False
ELSE
	This.Checked = True
END IF



end event

type rb_1 from radiobutton within w_mtrldef_prdpf_padd
integer x = 1582
integer y = 1304
integer width = 293
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 = "工价表"
boolean checked = true
end type

event clicked;dw_2.visible = true
dw_3.visible = false
cb_templet_ch.visible = true
end event

type rb_2 from radiobutton within w_mtrldef_prdpf_padd
integer x = 1929
integer y = 1304
integer width = 334
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;dw_2.visible = false
dw_3.visible = true
cb_templet_ch.visible = false
end event

type dw_3 from u_dw_rbtnfilter within w_mtrldef_prdpf_padd
boolean visible = false
integer x = 2679
integer y = 1432
integer height = 568
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_mtrl_wkp_padd_edit"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = 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

IF row > 0 THEN
	IF dwo.Name = 'gydscrplen' THEN
		Parent.TriggerEvent('ue_gydscrp')
	END IF
END IF


end event

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

end event

event doubleclicked;call super::doubleclicked;IF NOT ins_ifmod_wp THEN RETURN

IF row <= 0 THEN RETURN

IF dwo.Name = 'workgroupid' THEN
	Long ll_wrkgrpid
	ll_wrkgrpid = dw_3.Object.swkpid[row]
	
	
	OpenWithParm(w_workgrop_ch_withwrkid,ll_wrkgrpid)
	
	s_workgroup s_ch
	s_ch = Message.PowerObjectParm
	
	IF IsNull(s_ch.wrkgrpid) THEN s_ch.wrkgrpid = 0
	
	IF s_ch.wrkgrpid = 0 THEN RETURN
	
	dw_3.Object.workgroupid[row] = s_ch.wrkgrpid
END IF

end event

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

String ls_procode,ls_proname,ls_techlevel,ls_worklevel
Long ls_proid
Dec ls_workhour

Long child_row
Long ls_null
SetNull(ls_null)

IF dw_edit_mode THEN
	IF KeyDown(Keydownarrow!) THEN
		Long li_row
		IF dw_3.GetRow() = dw_3.RowCount() THEN
			PARENT.TriggerEvent("insert_childrow")
		END IF
	ELSE
		IF Key = KeyEnter!  THEN
			IF dw_3.GetRow() = dw_3.RowCount() AND dw_3.GetColumnName() = 'dscrp' THEN
				PARENT.TriggerEvent("ue_addmx")
				dw_3.SetColumn('swkpid')
			ELSE
				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 event

type dw_copy_wkp from datawindow within w_mtrldef_prdpf_padd
boolean visible = false
integer x = 2679
integer y = 764
integer width = 1243
integer height = 400
integer taborder = 30
boolean bringtotop = true
string title = "none"
string dataobject = "dw_mtrl_wkp_padd_edit"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_copy_main from datawindow within w_mtrldef_prdpf_padd
boolean visible = false
integer x = 2235
integer y = 964
integer width = 686
integer height = 400
integer taborder = 40
boolean bringtotop = true
string title = "none"
string dataobject = "dw_mtrldef_prdpf_padd"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_copy_paste from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 3282
integer width = 247
integer height = 164
integer taborder = 30
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;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

menustr = "Text=复制物料清单~tEvent=ue_copy_mx"
menustr = menustr + "|" + "Text=复制物料清单(含本级)~tEvent=ue_copy_mx_this"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=粘贴到下级~tEvent=ue_paste_mx"
menustr = menustr + "|" + "Text=粘贴到同级~tEvent=ue_paste_mx_same"

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 cb_bom from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 2414
integer width = 270
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "物料清单"
string normalpicname = "update2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF ins_ifmod THEN
	MessageBox('系统提示','编辑状态下不能使用')
	RETURN
END IF

IF ins_ifmod_wp THEN
	MessageBox('系统提示','编辑明细状态下不能使用')
	RETURN
END IF

Long ll_row,ll_i,ll_lp
Long ll_mtrlid
String ls_pfcode,arg_msg

ll_row = dw_1.GetRow()

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

IF dw_1.Object.lp[ll_row] = 0 THEN
	MessageBox('系统提示','主产品不能使用本功能')
	RETURN
END IF

IF dw_1.Object.u_mtrldef_mtrlorigin[ll_row] <> 0 THEN
	MessageBox('系统提示','只有自制来源的资料才能执行本功能')
	RETURN
END IF

IF dw_1.Object.ifnewadd[ll_row] <> 0 THEN
	MessageBox('系统提示','新建的资料不能执行本功能')
	RETURN
END IF

ll_lp = dw_1.Object.lp[ll_row]
ll_mtrlid = dw_1.Object.u_prdpf_sonmtrlid[ll_row]
ls_pfcode = dw_1.Object.u_prdpf_sonpfcode[ll_row]

s_edit_index_tran s_ch_tran_bom

s_ch_tran_bom.if_retrieve_all = False //是否一次RETRIEVE所有行
s_ch_tran_bom.work_mode = 0 //0-单纯编辑模式 1-选择\编辑模式
s_ch_tran_bom.arg_pkid = 0 //目标定位PKID (备用)
s_ch_tran_bom.arg_string_code = dw_1.Object.u_mtrldef_mtrlcode[ll_row]
s_ch_tran_bom.if_select_all = True

OpenWithParm(w_mtrl_structure_response,s_ch_tran_bom)

dw_1.SetRedraw(False)
FOR ll_i = ll_row + 1 To dw_1.RowCount()
	IF dw_1.Object.lp[ll_i] <= ll_lp THEN EXIT
	dw_1.Object.ifdel[ll_i] = 1
NEXT

dw_1.AcceptText()

FOR ll_i = dw_1.RowCount() To 1 Step -1
	IF dw_1.Object.ifdel[ll_i] = 1 THEN
		dw_1.DeleteRow(ll_i)
	END IF
NEXT
dw_1.SetRedraw(True)


IF wf_addmx_row(ll_mtrlid,ls_pfcode,ll_lp + 1,ll_row + 1 ,1,arg_msg) = 0 THEN
	MessageBox('Error',arg_msg)
	RETURN
END IF


end event

type cb_tmp_save from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 4544
integer width = 165
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "存档"
string normalpicname = "SAVE.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF

IF ins_mtrlid = 0 THEN
	MessageBox('系统提示','请先选择主产品')
	RETURN
END IF

String Pathname_dw1,Pathname_dw2,Pathname_dw3
Blob ls_filedata_dw1,ls_filedata_dw2,ls_filedata_dw3
String errmsg,ls_dscrp,ls_msg_log
Long ll_printid

Open(w_prdpf_temp_save_dscrp)

s_edit_index_tran s_ch_dscrp
s_ch_dscrp = Message.PowerObjectParm

IF s_ch_dscrp.c_long = 0 THEN RETURN

ls_dscrp = s_ch_dscrp.c_string

ls_msg_log = mle_log.Text

Pathname_dw1 = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ins_mtrlcode+'_dw_1.xml'
IF IsNull(Pathname_dw1) Or Len(Trim(Pathname_dw1)) < 3 THEN RETURN

Pathname_dw2 = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ins_mtrlcode+'_dw_2.xml'
IF IsNull(Pathname_dw2) Or Len(Trim(Pathname_dw2)) < 3 THEN RETURN

Pathname_dw3 = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ins_mtrlcode+'_dw_3.xml'
IF IsNull(Pathname_dw3) Or Len(Trim(Pathname_dw3)) < 3 THEN RETURN

dw_1.SaveAs(Pathname_dw1, XML!, False)
dw_copy.SaveAs(Pathname_dw2, XML!, False)
dw_copy_wkp.SaveAs(Pathname_dw3, XML!, False)

IF f_filetoblob(Pathname_dw1,ls_filedata_dw1,errmsg) = 0 THEN
	MessageBox('系统提示',errmsg)
	GOTO _del
END IF

IF f_filetoblob(Pathname_dw2,ls_filedata_dw2,errmsg) = 0 THEN
	MessageBox('系统提示',errmsg)
	GOTO _del
END IF

IF f_filetoblob(Pathname_dw3,ls_filedata_dw3,errmsg) = 0 THEN
	MessageBox('系统提示',errmsg)
	GOTO _del
END IF

SELECT max(printid)
	INTO :ll_printid
	FROM u_prdpf_temp_save
	Where mtrlid = :ins_mtrlid;
IF sqlca.SQLCode <> 0 THEN ll_printid = 0

IF IsNull(ll_printid) THEN ll_printid = 0
ll_printid++

INSERT INTO u_prdpf_temp_save
	(mtrlid,
	printid,
	msg_log,
	opemp,
	opdate,
	dscrp)
	VALUES (:ins_mtrlid,
	:ll_printid,
	:ls_msg_log,
	:publ_operator,
	getdate(),
	:ls_dscrp);
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('Error','保存信息失败,'+sqlca.SQLErrText)
	GOTO _del
END IF

UpdateBlob u_prdpf_temp_save
Set dw_main = :ls_filedata_dw1
Where mtrlid = :ins_mtrlid
And printid = :ll_printid;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('Error','保存临时信息(主表)失败,'+sqlca.SQLErrText)
	GOTO _del
END IF

UpdateBlob u_prdpf_temp_save
Set dw_workprice = :ls_filedata_dw2
Where mtrlid = :ins_mtrlid
And printid = :ll_printid;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('Error','保存临时信息(工价表)失败,'+sqlca.SQLErrText)
	GOTO _del
END IF


UpdateBlob u_prdpf_temp_save
Set dw_wkp = :ls_filedata_dw3
Where mtrlid = :ins_mtrlid
And printid = :ll_printid;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('Error','保存临时信息(工组流程)失败,'+sqlca.SQLErrText)
	GOTO _del
END IF

commit;

messagebox('系统提示','存档成功!')

_del:
FileDelete(Pathname_dw1)
FileDelete(Pathname_dw2)
FileDelete(Pathname_dw3)


end event

type cb_tmp_read from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 4704
integer width = 165
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "读档"
string normalpicname = "OPEN.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF ins_ifmod_wp THEN
	MessageBox('系统提示','正在编辑工价表,不能执行本操作')
	RETURN
END IF

IF ins_ifmod THEN
	MessageBox('系统提示','正在编辑半成品,不能执行本操作')
	RETURN
END IF

Long ll_mtrlid_parm

IF ins_if_saletask = 1 THEN
	IF ins_mtrlid = 0 THEN
		MessageBox('系统提示','请先选择主产品')
		RETURN
	END IF
	
	ll_mtrlid_parm = ins_mtrlid
ELSE
	ll_mtrlid_parm = -1
END IF


IF ins_mtrlid > 0 THEN
	IF MessageBox('询问','读取存档将会覆盖你现有的修改,是否继续?',question!,yesno!) = 2 THEN RETURN
END IF


OpenWithParm(w_prdpf_temp_save_ch,ll_mtrlid_parm)

Long ll_printid,ll_mtrlid
String ls_mtrlcode,ls_mtrlname

s_edit_index_tran s_ch_tran

s_ch_tran = Message.PowerObjectParm

ll_mtrlid = s_ch_tran.b_long
ll_printid = s_ch_tran.c_long

IF ll_printid = 0 THEN RETURN
IF ll_mtrlid = 0 THEN RETURN

IF ins_if_saletask = 0 THEN
	ins_mtrlid = ll_mtrlid
	ins_mtrlid_pf = ll_mtrlid
	ins_pfcode = f_get_dft_pf(ins_mtrlid_pf)
	IF ins_pfcode = '' THEN
		MessageBox('系统提示','目标产品未设置默认清单,请检查')
		RETURN
	END IF
	
	SELECT mtrlcode,mtrlname
		INTO :ls_mtrlcode,:ls_mtrlname
		FROM u_mtrldef
		Where mtrlid = :ll_mtrlid;
	IF sqlca.SQLCode <> 0 THEN
		st_mtrl.Text = '查询物料信息失败'
		st_mtrl_pf.Text = '查询物料信息失败'
	ELSE
		st_mtrl.Text = '['+ls_mtrlcode+']'+ls_mtrlname + ' | ' + ins_pfcode
		st_mtrl_pf.Text = '['+ls_mtrlcode+']'+ls_mtrlname
		ins_mtrlcode = ls_mtrlcode
	END IF
	
END IF

String ls_msg_log
Blob lb_dw_1,lb_dw_2,lb_dw_3
String Pathname_dw1,Pathname_dw2,Pathname_dw3
String arg_msg

SELECT msg_log
	INTO :ls_msg_log
	FROM u_prdpf_temp_save
	WHERE mtrlid = :ins_mtrlid
	And printid = :ll_printid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询临时保存信息(操作记录)失败,'+sqlca.SQLErrText)
	RETURN
END IF

SelectBlob dw_main
Into :lb_dw_1
From u_prdpf_temp_save
Where mtrlid = :ins_mtrlid
And printid = :ll_printid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询临时保存信息(主数据窗口)失败,'+sqlca.SQLErrText)
	RETURN
END IF

SelectBlob dw_workprice
Into :lb_dw_2
From u_prdpf_temp_save
Where mtrlid = :ins_mtrlid
And printid = :ll_printid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询临时保存信息(工价表数据窗口)失败,'+sqlca.SQLErrText)
	RETURN
END IF

SelectBlob dw_wkp
Into :lb_dw_3
From u_prdpf_temp_save
Where mtrlid = :ins_mtrlid
And printid = :ll_printid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询临时保存信息(工组流程数据窗口)失败,'+sqlca.SQLErrText)
	RETURN
END IF

Pathname_dw1 = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ins_mtrlcode+'_dw_1_down.xml'
IF IsNull(Pathname_dw1) Or Len(Trim(Pathname_dw1)) < 3 THEN RETURN

Pathname_dw2 = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ins_mtrlcode+'_dw_2_down.xml'
IF IsNull(Pathname_dw2) Or Len(Trim(Pathname_dw2)) < 3 THEN RETURN

Pathname_dw3 = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ins_mtrlcode+'_dw_3_down.xml'
IF IsNull(Pathname_dw3) Or Len(Trim(Pathname_dw3)) < 3 THEN RETURN

IF f_blobtofile(Pathname_dw1,lb_dw_1,arg_msg) = 0 THEN
	MessageBox('Error',arg_msg)
	GOTO _del
END IF

IF f_blobtofile(Pathname_dw2,lb_dw_2,arg_msg) = 0 THEN
	MessageBox('Error',arg_msg)
	GOTO _del
END IF

IF f_blobtofile(Pathname_dw3,lb_dw_3,arg_msg) = 0 THEN
	MessageBox('Error',arg_msg)
	GOTO _del
END IF

dw_1.Reset()
dw_copy.Reset()
dw_copy_wkp.Reset()

dw_1.ImportFile(Pathname_dw1)
dw_copy.ImportFile(Pathname_dw2)
dw_copy_wkp.ImportFile(Pathname_dw3)

mle_log.Text = ls_msg_log

IF dw_1.RowCount() > 0 THEN
	dw_1.SelectRow(0,False)
	dw_1.SetRow(1)
	dw_1.SelectRow(1,True)
	Parent.TriggerEvent('ue_retrieve_workprice')
	Parent.TriggerEvent('ue_retrieve_wkp')
	Parent.TriggerEvent('ue_allowedit')
END IF

_del:
FileDelete(Pathname_dw1)
FileDelete(Pathname_dw2)
FileDelete(Pathname_dw3)






end event

type cb_templet_ch from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 2752
integer y = 2180
integer width = 466
integer height = 88
integer taborder = 40
boolean bringtotop = true
boolean enabled = false
string text = "引用工价模板"
string normalpicname = "p2.BMP"
integer picsize = 16
end type

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

type dw_buffer from datawindow within w_mtrldef_prdpf_padd
boolean visible = false
integer x = 2505
integer y = 1312
integer width = 1984
integer height = 400
integer taborder = 50
boolean bringtotop = true
string title = "none"
string dataobject = "dw_mtrldef_prdpf_padd"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_pack from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 3557
integer width = 247
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "分包件"
string normalpicname = "update2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_1.AcceptText()

If dw_1.Find('ch = 1',2,dw_1.RowCount()) = 0 Then
	MessageBox('系统提示','请先勾选要分包件的明细行')
	Return
End If

Long ll_i,ll_j,ll_k
String ls_mtrlcode_pack,arg_msg
Long ll_row_p,ll_row_insert
Long ll_mtrlid
Int li_ifset_qty
Long ll_lp_min
Decimal ld_rate
decimal ld_qty_pack

dw_buffer.Reset()

For ll_i = dw_1.RowCount() To 2 Step -1
	If dw_1.Object.ch[ll_i] = 1 Then
		dw_1.RowsCopy(ll_i,ll_i,Primary!, dw_buffer, 1, Primary!)
	End If
Next

s_edit_index_tran s_inscust_pack,s_return

s_inscust_pack.b_long = ins_mtrlid
s_inscust_pack.b_string = ins_pfcode

s_inscust_pack.arg_dw = dw_buffer

OpenWithParm(w_pack_ch,s_inscust_pack)


s_return = Message.PowerObjectParm

ls_mtrlcode_pack = s_return.c_string
li_ifset_qty = s_return.c_long
ld_qty_pack = s_return.c_decimal

If ls_mtrlcode_pack = '-1' Then Return

ll_row_p = dw_1.Find('u_mtrldef_mtrlcode = "'+ls_mtrlcode_pack+'"',2,dw_1.RowCount())

If ll_row_p = 0 Then
	Select mtrlid Into :ll_mtrlid
		From u_mtrldef
		Where mtrlcode = :ls_mtrlcode_pack;
	If sqlca.SQLCode <> 0 Then
		MessageBox('Error','查询包件 '+ls_mtrlcode_pack+' 信息失败,可能是包件编码未建立,请检查')
		Return
	End If
	
	wf_add_row(ll_mtrlid,ins_pfcode,1,ld_qty_pack,arg_msg,ll_row_p)
	dw_1.Object.u_prdpf_pfgroupqty[ll_row_p] = ld_qty_pack
	dw_1.Object.u_prdpf_dipztype[ll_row_p] =  3
	dw_1.Object.u_prdpf_ifover[ll_row_p] =  1
	ll_row_insert = ll_row_p + 1
Else
	For ll_i = ll_row_p + 1 To dw_1.RowCount()
		If dw_1.Object.lp[ll_i] = 1 Then
			ll_row_insert = ll_i
			Exit
		End If
	Next
	
	If ll_row_insert = 0 Then
		ll_row_insert = dw_1.RowCount() + 1
	End If
End If

dw_buffer.AcceptText()



ll_lp_min = 999
For ll_i = 1 To dw_buffer.RowCount()
	If dw_buffer.Object.lp[ll_i] < ll_lp_min Then
		ll_lp_min = dw_buffer.Object.lp[ll_i]
	End If
Next

If li_ifset_qty = 1 Then
	For ll_i = 1 To UpperBound(s_return.arr_string)
		If s_return.arr_dec[ll_i] = s_return.arr_dec2[ll_i] Then Continue //没有改数量
		
		For ll_j = 1 To dw_buffer.RowCount()
			If ll_lp_min = dw_buffer.Object.lp[ll_j] And &
				s_return.arr_string[ll_i] = dw_buffer.Object.u_prdpf_promode[ll_j] And &
				s_return.arr_string2[ll_i] = dw_buffer.Object.u_prdpf_pfgroup[ll_j] And &
				s_return.arr_string3[ll_i] = dw_buffer.Object.u_mtrldef_mtrlcode[ll_j] Then
				
				ld_rate = s_return.arr_dec[ll_i] / s_return.arr_dec2[ll_i]
				
				dw_buffer.Object.u_prdpf_pfgroupqty[ll_j] = s_return.arr_dec[ll_i]
				dw_buffer.Object.u_prdpf_sonscale[ll_j] = Round(dw_buffer.Object.u_prdpf_sonscale[ll_j] * ld_rate,sys_option_produce_dec)
				
				For ll_k = ll_j + 1 To dw_buffer.RowCount()
					If dw_buffer.Object.lp[ll_k] <= dw_buffer.Object.lp[ll_j] Then 
						ll_j = ll_k - 1
						Exit
					end if
					
					dw_buffer.Object.u_prdpf_pfgroupqty[ll_k] = Round(dw_buffer.Object.u_prdpf_pfgroupqty[ll_k] * ld_rate,sys_option_produce_dec)
					dw_buffer.Object.u_prdpf_sonscale[ll_k] = Round(dw_buffer.Object.u_prdpf_sonscale[ll_k] * ld_rate,sys_option_produce_dec)
					dw_buffer.Object.u_prdpf_sonscale_ori[ll_k] = Round(dw_buffer.Object.u_prdpf_sonscale_ori[ll_k] * ld_rate,sys_option_produce_dec)

				Next
				
			End If
		Next
	Next
End If

For ll_i = 1 To dw_buffer.RowCount()
	dw_buffer.Object.ch[ll_i] = 0
	dw_buffer.Object.lp[ll_i] = dw_buffer.Object.lp[ll_i] + ( 2 - ll_lp_min)
Next

dw_buffer.RowsCopy(1,dw_buffer.RowCount(),Primary!, dw_1, ll_row_insert, Primary!)

dw_1.SetRedraw(False)

If li_ifset_qty = 1 Then
	For ll_i = 1 To UpperBound(s_return.arr_string)
		If s_return.arr_dec[ll_i] >= s_return.arr_dec2[ll_i] Then Continue //没有改数量 或 增加数量,则删除原勾选的数据
		
		For ll_j = 2 To dw_1.RowCount()
			if dw_1.object.ch[ll_j] = 0 then continue
			 
			If ll_lp_min = dw_1.Object.lp[ll_j] And &
				s_return.arr_string[ll_i] = dw_1.Object.u_prdpf_promode[ll_j] And &
				s_return.arr_string2[ll_i] = dw_1.Object.u_prdpf_pfgroup[ll_j] And &
				s_return.arr_string3[ll_i] = dw_1.Object.u_mtrldef_mtrlcode[ll_j] Then
				
				ld_rate = 1 - s_return.arr_dec[ll_i] / s_return.arr_dec2[ll_i]
				
				dw_1.Object.u_prdpf_pfgroupqty[ll_j] = dw_1.Object.u_prdpf_pfgroupqty[ll_j] - s_return.arr_dec[ll_i]
				dw_1.Object.u_prdpf_sonscale[ll_j] = Round(dw_1.Object.u_prdpf_sonscale[ll_j] * ld_rate,sys_option_produce_dec)
				dw_1.Object.u_prdpf_sonscale_ori[ll_j] = Round(dw_1.Object.u_prdpf_sonscale_ori[ll_j] * ld_rate,sys_option_produce_dec)
				
				dw_1.Object.ch[ll_j] = 0 //不删除
				For ll_k = ll_j + 1 To dw_1.RowCount()
					If dw_1.Object.lp[ll_k] <= dw_1.Object.lp[ll_j] Then 
						ll_j = ll_k - 1
						Exit
					end if
					dw_1.Object.ch[ll_k] = 0 //不删除
					dw_1.Object.u_prdpf_pfgroupqty[ll_k] = Round(dw_1.Object.u_prdpf_pfgroupqty[ll_k] * ld_rate,sys_option_produce_dec)
					dw_1.Object.u_prdpf_sonscale[ll_k] = Round(dw_1.Object.u_prdpf_sonscale[ll_k] * ld_rate,sys_option_produce_dec)
					dw_1.Object.u_prdpf_sonscale_ori[ll_k] = Round(dw_1.Object.u_prdpf_sonscale_ori[ll_k] * ld_rate,sys_option_produce_dec)

				Next
				
			End If
		Next
	Next
end if

For ll_i = dw_1.RowCount() To 2 Step -1
	//ch = 1 的删除
	If dw_1.Object.ch[ll_i] = 1 Then
		dw_1.DeleteRow(ll_i)
	End If
Next
dw_1.SetRedraw(True)







end event

type cb_all_ch from commandbutton within w_mtrldef_prdpf_padd
integer x = 3621
integer y = 264
integer width = 183
integer height = 72
integer taborder = 210
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "全选"
end type

event clicked;long ll_i

dw_1.setredraw(false)

for ll_i = 2 to dw_1.rowcount()
	dw_1.object.ch[ll_i] = 1
next

dw_1.setredraw(true)
end event

type cb_fan_ch from commandbutton within w_mtrldef_prdpf_padd
integer x = 3835
integer y = 264
integer width = 183
integer height = 72
integer taborder = 220
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "反选"
end type

event clicked;long ll_i

dw_1.accepttext()
dw_1.setredraw(false)

for ll_i = 2 to dw_1.rowcount()
	dw_1.object.ch[ll_i] = 1 - dw_1.object.ch[ll_i]
next

dw_1.setredraw(true)
end event

type cbx_ifreset from checkbox within w_mtrldef_prdpf_padd
integer x = 4073
integer y = 196
integer width = 713
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 = "导入excel不清除原来明细"
end type

event clicked;int if_reset

IF THIS.Checked THEN
	if_reset = 1
ELSE
	if_reset = 0
END IF

f_SetProfileString (sys_empid,'w_mtrldef_prdpf_padd', "if_reset", String(if_reset))


end event

event constructor;int if_reset
if_reset = Integer(f_ProfileString (sys_empid,'w_mtrldef_prdpf_padd', "if_reset", '0'))
IF if_reset	 = 0 THEN
	This.Checked = False
ELSE
	This.Checked = True
END IF



end event

type cb_autocode from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 1646
integer width = 261
integer height = 164
integer taborder = 40
boolean bringtotop = true
boolean enabled = false
string text = "自动编码"
string normalpicname = "p2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;If Not ins_ifmod Then
	MessageBox('系统提示','非编辑半成品状态下,不能执行本操作')
	Return
End If

Long row
String ls_mtrlcode_ori,ls_mtrlcode_new
row = dw_1.GetRow()
If row <= 0 Then
	MessageBox('系统提示','请选择行')
	Return
End If

dw_1.AcceptText()

ls_mtrlcode_ori = dw_1.Object.u_mtrldef_mtrlcode[row]

OpenWithParm(w_auto_mtrlcode_prdpf,ls_mtrlcode_ori)

ls_mtrlcode_new = Message.StringParm

if trim(ls_mtrlcode_new) = '' then return 

dw_1.Object.u_mtrldef_mtrlcode[row] = ls_mtrlcode_new


end event

type cbx_wp_pack from checkbox within w_mtrldef_prdpf_padd
integer x = 4073
integer y = 272
integer width = 773
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_wp_pack

IF THIS.Checked THEN
	if_wp_pack = 1
ELSE
	if_wp_pack = 0
END IF

cbx_wp_add.enabled = THIS.Checked

f_SetProfileString (sys_empid,'w_mtrldef_prdpf_padd', "if_wp_pack", String(if_wp_pack))


end event

event constructor;int if_wp_pack
if_wp_pack = Integer(f_ProfileString (sys_empid,'w_mtrldef_prdpf_padd', "if_wp_pack", '0'))
IF if_wp_pack	 = 0 THEN
	This.Checked = False
ELSE
	This.Checked = True
END IF

cbx_wp_add.enabled = THIS.Checked


end event

type cb_2 from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 3813
integer width = 494
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "包件体积重量信息"
string normalpicname = "update2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

type cb_fj_edit from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 4343
integer width = 165
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "附件"
string normalpicname = "update.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF Not f_power_ind(4199,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

IF dw_edit_mode THEN
	MessageBox('提示','编辑状态下不可用')
	RETURN
END IF
s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
Long ll_cnt

if ins_mtrlid = 0 then 
	messagebox('系统提示','请先选择物料清单')
	return
end if

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('提示','没有指定附件数据库连接'+arg_msg)
	RETURN
END IF

s_pic.f_long = 202 //物料清单 mainID
s_pic.f_string = ins_pfcode
s_pic.g_long = ins_mtrlid
s_pic.d_long  = 0 //relid_mx
s_pic.d_string = '' //relcode_mx
s_pic.e_long = 0 // scid

s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_mng,s_pic)

end event

type cbx_wp_add from checkbox within w_mtrldef_prdpf_padd
integer x = 4841
integer y = 272
integer width = 850
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_wp_add

IF THIS.Checked THEN
	if_wp_add = 1
ELSE
	if_wp_add = 0
END IF

f_SetProfileString (sys_empid,'w_mtrldef_prdpf_padd', "if_wp_add", String(if_wp_add))


end event

event constructor;int if_wp_add
if_wp_add = Integer(f_ProfileString (sys_empid,'w_mtrldef_prdpf_padd', "if_wp_add", '0'))
IF if_wp_add	 = 0 THEN
	This.Checked = False
ELSE
	This.Checked = True
END IF



end event

type cb_old_to_new from commandbutton within w_mtrldef_prdpf_padd
integer x = 4891
integer y = 188
integer width = 494
integer height = 76
integer taborder = 220
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_old_to_new')
end event

type cb_add_mtrl from uo_imflatbutton within w_mtrldef_prdpf_padd
integer x = 2683
integer width = 192
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "增物料"
string normalpicname = "mx1.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=增同级F7~tEvent=ue_add_same"
menustr = menustr + "|" + "Text=增下级F8~tEvent=ue_add_next"
menustr = menustr + "|" + "Text=增上级~tEvent=ue_add_up"

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 ln_bar from line within w_mtrldef_prdpf_padd
long linecolor = 268435456
integer linethickness = 4
integer beginy = 176
integer endx = 3323
integer endy = 176
end type

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

type r_bar from rectangle within w_mtrldef_prdpf_padd
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 5253
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_7 from line within w_mtrldef_prdpf_padd
long linecolor = 16777215
integer linethickness = 4
integer beginx = 1024
integer endx = 1024
integer endy = 176
end type

type ln_8 from line within w_mtrldef_prdpf_padd
long linecolor = 268435456
integer linethickness = 4
integer beginx = 1019
integer endx = 1019
integer endy = 176
end type

type ln_1 from line within w_mtrldef_prdpf_padd
long linecolor = 16777215
integer linethickness = 4
integer beginx = 4325
integer endx = 4325
integer endy = 176
end type

type ln_2 from line within w_mtrldef_prdpf_padd
long linecolor = 268435456
integer linethickness = 4
integer beginx = 4320
integer endx = 4320
integer endy = 176
end type

type ln_3 from line within w_mtrldef_prdpf_padd
long linecolor = 268435456
integer linethickness = 4
integer beginy = 344
integer endx = 2016
integer endy = 344
end type

type ln_4 from line within w_mtrldef_prdpf_padd
long linecolor = 16777215
integer linethickness = 4
integer beginy = 348
integer endx = 2048
integer endy = 348
end type

type ln_5 from line within w_mtrldef_prdpf_padd
long linecolor = 268435456
integer linethickness = 4
integer beginx = 2400
integer endx = 2400
integer endy = 176
end type

type ln_6 from line within w_mtrldef_prdpf_padd
long linecolor = 16777215
integer linethickness = 4
integer beginx = 2405
integer endx = 2405
integer endy = 176
end type

type ln_9 from line within w_mtrldef_prdpf_padd
long linecolor = 16777215
integer linethickness = 4
integer beginx = 4878
integer endx = 4878
integer endy = 176
end type

type ln_10 from line within w_mtrldef_prdpf_padd
long linecolor = 268435456
integer linethickness = 4
integer beginx = 4873
integer endx = 4873
integer endy = 176
end type

type ln_11 from line within w_mtrldef_prdpf_padd
long linecolor = 16777215
integer linethickness = 4
integer beginx = 3543
integer endx = 3543
integer endy = 176
end type

type ln_12 from line within w_mtrldef_prdpf_padd
long linecolor = 268435456
integer linethickness = 4
integer beginx = 3538
integer endx = 3538
integer endy = 176
end type