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

$PBExportHeader$w_mtrldef_edit_price_ifpz.srw
forward
global type w_mtrldef_edit_price_ifpz from w_publ_easyq
end type
type tv_1 from uo_tv_mtrltype within w_mtrldef_edit_price_ifpz
end type
type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_mtrldef_edit_price_ifpz
end type
type cbx_1 from checkbox within w_mtrldef_edit_price_ifpz
end type
type dw_2 from datawindow within w_mtrldef_edit_price_ifpz
end type
type cb_save from uo_imflatbutton within w_mtrldef_edit_price_ifpz
end type
type cb_csetinuse from uo_imflatbutton within w_mtrldef_edit_price_ifpz
end type
type cb_setisuse from uo_imflatbutton within w_mtrldef_edit_price_ifpz
end type
type cb_setstorage from uo_imflatbutton within w_mtrldef_edit_price_ifpz
end type
type cb_edit from uo_imflatbutton within w_mtrldef_edit_price_ifpz
end type
type cb_mtrltype from uo_imflatbutton within w_mtrldef_edit_price_ifpz
end type
type cb_mtrlmode from uo_imflatbutton within w_mtrldef_edit_price_ifpz
end type
type cbx_2 from checkbox within w_mtrldef_edit_price_ifpz
end type
type cb_mrp from uo_imflatbutton within w_mtrldef_edit_price_ifpz
end type
type cb_other from uo_imflatbutton within w_mtrldef_edit_price_ifpz
end type
end forward

global type w_mtrldef_edit_price_ifpz from w_publ_easyq
integer x = 270
integer y = 136
integer width = 3675
string title = "物料配置匹配模式设定"
event rtr_mx ( )
event ue_p_unit_buy ( )
event ue_p_unit_scll ( )
event ue_p_unit_sale ( )
event ue_p_rate_buy ( )
event ue_p_rate_scll ( )
event ue_p_rate_sale ( )
event ue_p_unit ( )
event ue_p_mtrlorigin ( )
event ue_p_mtrlprp ( )
event ue_p_sc_salerate ( )
event ue_defsptid_ch ( )
event ue_p_spt ( )
event ue_p_statusflag ( )
event ue_p_woodcodeflag ( )
event ue_p_pcodeflag ( )
event ue_p_mtrltype ( )
event ue_p_mtrlmode ( )
event ue_p_mrp_unit ( )
event ue_set_storage ( )
event ue_hqclmtrlid_ch ( )
event ue_p_prdpackcode ( )
event ue_p_packqty ( )
event ue_p_ifpacktype ( )
event ue_p_ifhqcl ( )
event ue_p_hqclmtrlid ( )
event ue_p_statustype_bj ( )
event ue_p_statustype_yg ( )
event ue_p_status_check ( )
event ue_p_woodcode_check ( )
event ue_p_woodcodetype_bj ( )
event ue_p_woodcodetype_yg ( )
event ue_p_pcode_check ( )
event ue_p_pcodetype_bj ( )
event ue_p_pcodetype_yg ( )
event ue_p_taskrate ( )
event ue_p_taskaddqty ( )
event ue_p_uprate ( )
event ue_p_upqty ( )
event ue_p_upsalerate ( )
event ue_p_upsaleqty ( )
event ue_p_upscllrate ( )
event ue_p_upscllqty ( )
event ue_p_scllflag ( )
event ue_p_ifautoscll ( )
event ue_p_ifcheckaddqty ( )
event ue_p_strcheckaddqty ( )
event ue_p_salerate ( )
event ue_p_u_spt_sptcode ( )
event ue_p_mtrlsectype ( )
event ue_p_zxmtrlmode ( )
event ue_p_mtrlengname ( )
event ue_p_barcode ( )
event ue_p_price_ifpz ( )
tv_1 tv_1
ddlb_mtrlorigin ddlb_mtrlorigin
cbx_1 cbx_1
dw_2 dw_2
cb_save cb_save
cb_csetinuse cb_csetinuse
cb_setisuse cb_setisuse
cb_setstorage cb_setstorage
cb_edit cb_edit
cb_mtrltype cb_mtrltype
cb_mtrlmode cb_mtrlmode
cbx_2 cbx_2
cb_mrp cb_mrp
cb_other cb_other
end type
global w_mtrldef_edit_price_ifpz w_mtrldef_edit_price_ifpz

type variables
int cur_mtrlorigin = 0
string ls_handtype = ''
 
end variables

forward prototypes
public function integer wf_face ()
end prototypes

event rtr_mx();long ll_row,ll_mtrlid

ll_row = dw_1.getrow()
if ll_row > 0 then
	ll_mtrlid = dw_1.object.mtrlid[ll_row]
	dw_2.retrieve(ll_mtrlid)
else
	dw_1.reset()
end if
	
end event

event ue_p_unit_buy();IF MessageBox('提示','是否要确定要批设定辅单位1', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.unit_buy[ll_i] = dw_1.Object.unit_buy[1]
NEXT
dw_1.SetRedraw(TRUE)

end event

event ue_p_unit_scll();IF MessageBox('提示','是否要确定要批设定辅单位2', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.unit_scll[ll_i] = dw_1.Object.unit_scll[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_unit_sale();IF MessageBox('提示','是否要确定要批设定辅单位3', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.unit_sale[ll_i] = dw_1.Object.unit_sale[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_rate_buy();IF MessageBox('提示','是否要确定要批设定转换率1', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.rate_buy[ll_i] = dw_1.Object.rate_buy[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_rate_scll();IF MessageBox('提示','是否要确定要批设定转换率2', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.rate_scll[ll_i] = dw_1.Object.rate_scll[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_rate_sale();IF MessageBox('提示','是否要确定要批设定转换率3', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.rate_sale[ll_i] = dw_1.Object.rate_sale[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_unit();IF MessageBox('提示','是否要确定要批设定单位', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.unit[ll_i] = dw_1.Object.unit[1]
NEXT
dw_1.SetRedraw(TRUE)

end event

event ue_p_mtrlorigin();IF MessageBox('提示','是否要确定要批设定物料来源', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i
Long ll_mtrlorigin
s_mtrlorigin rls_mtrlorigin

Open(w_mtrlorigin_ch)

rls_mtrlorigin = Message.PowerObjectParm	

IF rls_mtrlorigin.mtrloriginid >= 0  THEN
	dw_1.AcceptText()
	dw_1.SetRedraw(FALSE)
	FOR ll_i = 1 TO dw_1.RowCount()
		IF dw_1.Object.ch[ll_i] = 1 THEN
			dw_1.Object.mtrlorigin[ll_i] =  rls_mtrlorigin.mtrloriginid
		END IF
	NEXT
	dw_1.SetRedraw(TRUE)
END IF


end event

event ue_p_mtrlprp();IF MessageBox('提示','是否要确定要批设定物料属性', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i
s_mtrlprp rls_mtrlprp

Open(w_mtrlprp_ch)

rls_mtrlprp = Message.PowerObjectParm	

IF rls_mtrlprp.mtrlprpid >= 0  THEN
	dw_1.AcceptText()
	dw_1.SetRedraw(FALSE)
	FOR ll_i = 1 TO dw_1.RowCount()
		IF dw_1.Object.ch[ll_i] = 1 THEN
			dw_1.Object.mtrlprp[ll_i] =  rls_mtrlprp.mtrlprpid
		END IF
	NEXT
	dw_1.SetRedraw(TRUE)
END IF

end event

event ue_p_sc_salerate();IF MessageBox('提示','是否要确定要批设定生产进仓引用订单单价比率', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.salerate[ll_i] = dw_1.Object.salerate[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_defsptid_ch();IF dw_edit_mode THEN
	
	Long uc_row
	uc_row = dw_1.GetRow()
	IF uc_row = 0 THEN
		MessageBox('系统提示','请选定物料!')
		RETURN
	END IF
	dw_1.AcceptText()
	IF NOT IsValid(W_spt_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 = ''
		
		OpenWithParm(W_spt_edit,s_ch_tran) //调用
		
		S_spt S_INSCUST
		S_INSCUST = Message.PowerObjectParm //接受返回结构
		
		IF S_INSCUST.sptid > 0 THEN //正常返回值则可以取以下值
			dw_1.SetRedraw(FALSE)
			dw_1.Object.u_mtrldef_dftsptid[uc_row] = S_INSCUST.sptid
			
			dw_1.Object.u_spt_sptcode[uc_row] = S_INSCUST.sptcode
			dw_1.Object.u_spt_name[uc_row] = S_INSCUST.Name
			dw_1.SetColumn("u_mtrldef_dftsptid")
			dw_1.SetRedraw(TRUE)
			
		END IF
	END IF
END IF




end event

event ue_p_spt();IF MessageBox('提示','是否要确定要批设定默认供应商', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_dftsptid[ll_i] = dw_1.Object.u_mtrldef_dftsptid[1]
	dw_1.Object.u_spt_sptcode[ll_i] = dw_1.Object.u_spt_sptcode[1]
	dw_1.Object.u_spt_name[ll_i] = dw_1.Object.u_spt_name[1]
	
NEXT
dw_1.SetRedraw(TRUE)


end event

event ue_p_statusflag();IF MessageBox('提示','是否要确定要批设定'+sys_option_change_status, question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.statusflag[ll_i] = dw_1.Object.statusflag[1]
NEXT
dw_1.SetRedraw(TRUE)

end event

event ue_p_woodcodeflag();IF MessageBox('提示','是否要确定要批设定'+sys_option_change_woodcode, question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.woodcodeflag[ll_i] = dw_1.Object.woodcodeflag[1]
NEXT
dw_1.SetRedraw(TRUE)

end event

event ue_p_pcodeflag();IF MessageBox('提示','是否要确定要批设定'+sys_option_change_pcode, question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.pcodeflag[ll_i] = dw_1.Object.pcodeflag[1]
NEXT
dw_1.SetRedraw(TRUE)

end event

event ue_p_mtrltype();IF not dw_edit_mode THEN RETURN
IF dw_1.GetRow() <= 0  THEN RETURN
Open(w_mtrltype_ch)

s_mtrltype s_mtrltype_rst
s_mtrltype_rst = Message.PowerObjectParm

Long i
dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[i] = 1 THEN
		
		dw_1.Object.mtrltype[i] = s_mtrltype_rst.mtrltype
		dw_1.Object.mtrltypeid[i] = s_mtrltype_rst.mtrltypeid
		dw_1.Object.handtype[i] = s_mtrltype_rst.handtype
	END IF
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_mtrlmode();IF NOT dw_edit_mode THEN RETURN
IF dw_1.GetRow() <= 0  THEN RETURN

String LS_STR
Long uc_row

s_inputbox S_SREU
S_SREU.Title = '请输入规格'
S_SREU.OLD_TEXT = ''
OpenWithParm(w_inputbox,S_SREU)
LS_STR = Message.StringParm
IF Trim(LS_STR) = '' OR IsNull(LS_STR) THEN RETURN

Long i
dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[i] = 1 THEN
		dw_1.Object.mtrlmode[i] = LS_STR
	END IF
NEXT
dw_1.SetRedraw(TRUE)

end event

event ue_p_mrp_unit();IF NOT dw_edit_mode THEN RETURN
IF dw_1.GetRow() <= 0  THEN RETURN



IF NOT dw_edit_mode THEN RETURN
IF dw_1.GetRow() <= 0  THEN RETURN
Open(w_mrp_unit_ch)

s_mtrlorigin rls_mtrlorigin
rls_mtrlorigin = Message.PowerObjectParm

IF rls_mtrlorigin.mtrloriginid = -1 THEN RETURN

Long i
dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[i] = 1 THEN
		dw_1.Object.mrp_unit[i] =  rls_mtrlorigin.mtrloriginid
	END IF
NEXT
dw_1.SetRedraw(TRUE)

end event

event ue_set_storage();IF dw_edit_mode THEN RETURN
IF dw_1.GetRow() <= 0  THEN RETURN
Long ll_mtrlid
ll_mtrlid = dw_1.Object.mtrlid[dw_1.GetRow()]
OpenWithParm(w_mtrl_storage,ll_mtrlid)

end event

event ue_hqclmtrlid_ch();//IF dw_edit_mode THEN
//	
//	Long uc_row
//	uc_row = dw_1.GetRow()
//	IF uc_row = 0 THEN
//		MessageBox('系统提示','请选定物料!')
//		RETURN
//	END IF
//	dw_1.AcceptText()
//	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 = -1
//			s_ch_tran.c_long = -1
//		
//		OpenWithParm(w_mtrldef_edit,s_ch_tran) //调用
//		
//		s_mtrldef_array S_INSCUST
//		S_INSCUST = Message.PowerObjectParm //接受返回结构
//		
//		IF S_INSCUST.mtrlid[1] > 0 THEN  //正常返回值则可以取以下值
//			dw_1.SetRedraw(FALSE)
//			dw_1.Object.u_mtrldef_ifHqcl[uc_row] = 0
//			dw_1.Object.u_mtrldef_HqclMtrlid[uc_row] = S_INSCUST.mtrlid[1]
//			
//			dw_1.Object.u_mtrldef_Hqcl_Mtrlcode[uc_row] = S_INSCUST.mtrlcode[1]
//			dw_1.Object.u_mtrldef_Hqcl_Mtrlname[uc_row] = S_INSCUST.mtrlname[1]
//			dw_1.SetRedraw(TRUE)
//			
//		END IF
//	END IF
//END IF
//



end event

event ue_p_prdpackcode();IF MessageBox('提示','是否要确定要批设定包装单位', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.prdpackcode[ll_i] = dw_1.Object.prdpackcode[1]
NEXT
dw_1.SetRedraw(TRUE)

end event

event ue_p_packqty();IF MessageBox('提示','是否要确定要批设定包装单位', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.packqty[ll_i] = dw_1.Object.packqty[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_ifpacktype();IF MessageBox('提示','是否要确定要批设定总包装数计算方向', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.ifpacktype[ll_i] = dw_1.Object.ifpacktype[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_ifhqcl();//IF MessageBox('提示','是否要确定要批设定自身为行情材料', question!, YesNo!, 2) = 2 THEN
//	RETURN
//END IF
//
//Long ll_i
//
//dw_1.AcceptText()
//dw_1.SetRedraw(False)
//FOR ll_i = 1 To dw_1.RowCount()
//	IF ll_i = 1 THEN CONTINUE
//	dw_1.Object.u_mtrldef_ifhqcl[ll_i] = dw_1.Object.u_mtrldef_ifhqcl[1]
//	
//	IF dw_1.Object.u_mtrldef_ifhqcl[ll_i] = 1 THEN
//		dw_1.Object.u_mtrldef_hqclmtrlid[ll_i] = 0
//		dw_1.Object.u_mtrldef_hqcl_mtrlcode[ll_i] = ''
//		dw_1.Object.u_mtrldef_hqcl_mtrlname[ll_i] = ''
//	END IF
//NEXT
//dw_1.SetRedraw(True)


end event

event ue_p_hqclmtrlid();//IF MessageBox('提示','是否要确定要批设定行情材料', question!, YesNo!, 2) = 2 THEN
//	RETURN
//END IF
//
//Long ll_i
//
//dw_1.AcceptText()
//dw_1.SetRedraw(False)
//FOR ll_i = 1 To dw_1.RowCount()
//	IF ll_i = 1 THEN CONTINUE
//	dw_1.Object.u_mtrldef_hqclmtrlid[ll_i] = dw_1.Object.u_mtrldef_hqclmtrlid[1]
//	dw_1.Object.u_mtrldef_hqcl_mtrlcode[ll_i] = dw_1.Object.u_mtrldef_hqcl_mtrlcode[1]
//	dw_1.Object.u_mtrldef_hqcl_mtrlname[ll_i] = dw_1.Object.u_mtrldef_hqcl_mtrlname[1]
//	
//	IF dw_1.Object.u_mtrldef_hqclmtrlid[ll_i] > 0 THEN
//		dw_1.Object.u_mtrldef_ifhqcl[ll_i] = 0
//	END IF
//	
//NEXT
//dw_1.SetRedraw(True)

end event

event ue_p_statustype_bj();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息批设定'+sys_option_change_status+'部件选配分类', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()

IF dw_1.RowCount() = 0 THEN RETURN
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 0 THEN CONTINUE
	
	dw_1.Object.statustype_bj[ll_i] = dw_1.Object.statustype_bj[dw_1.getrow()]
	dw_1.AcceptText()
	IF dw_1.Object.statusflag[ll_i] <> 4 THEN 
		dw_1.Object.statustype_bj[ll_i] =  0
	END IF
NEXT


dw_1.SetRedraw(TRUE)


end event

event ue_p_statustype_yg();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息批设定'+sys_option_change_status+'严格选择分类', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()

IF dw_1.RowCount() = 0 THEN RETURN
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 0 THEN CONTINUE
	
	dw_1.Object.statustype_yg[ll_i] = dw_1.Object.statustype_yg[dw_1.getrow()]
	dw_1.AcceptText()
	IF dw_1.Object.statusflag[ll_i] <> 1 THEN 
		dw_1.Object.statustype_yg[ll_i] =  0
	END IF
NEXT


dw_1.SetRedraw(TRUE)


end event

event ue_p_status_check();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息批设定'+sys_option_change_status+'部件选配必填', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()

IF dw_1.RowCount() = 0 THEN RETURN
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 0 THEN CONTINUE
	
	dw_1.Object.status_check[ll_i] = dw_1.Object.status_check[dw_1.getrow()]
	dw_1.AcceptText()
	IF dw_1.Object.statusflag[ll_i] <> 4 THEN 
		dw_1.Object.status_check[ll_i] =  0
	END IF
NEXT


dw_1.SetRedraw(TRUE)


end event

event ue_p_woodcode_check();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息批设定'+sys_option_change_woodcode+'部件选配必填', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()

IF dw_1.RowCount() = 0 THEN RETURN
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 0 THEN CONTINUE
	
	dw_1.Object.woodcode_check[ll_i] = dw_1.Object.woodcode_check[dw_1.getrow()]
	dw_1.AcceptText()
	IF dw_1.Object.woodcodeflag[ll_i] <> 4 THEN 
		dw_1.Object.woodcode_check[ll_i] =  0
	END IF
NEXT


dw_1.SetRedraw(TRUE)
end event

event ue_p_woodcodetype_bj();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息批设定'+sys_option_change_woodcode+'部件选配分类', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()

IF dw_1.RowCount() = 0 THEN RETURN
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 0 THEN CONTINUE
	
	dw_1.Object.woodcodetype_bj[ll_i] = dw_1.Object.woodcodetype_bj[dw_1.getrow()]
	dw_1.AcceptText()
	IF dw_1.Object.woodcodeflag[ll_i] <> 4 THEN 
		dw_1.Object.woodcodetype_bj[ll_i] =  0
	END IF
NEXT


dw_1.SetRedraw(TRUE)


end event

event ue_p_woodcodetype_yg();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息批设定'+sys_option_change_woodcode+'严格选择分类', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()

IF dw_1.RowCount() = 0 THEN RETURN
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 0 THEN CONTINUE
	
	dw_1.Object.woodcodetype_yg[ll_i] = dw_1.Object.woodcodetype_yg[dw_1.getrow()]
	dw_1.AcceptText()
	IF dw_1.Object.woodcodeflag[ll_i] <> 1 THEN 
		dw_1.Object.woodcodetype_yg[ll_i] =  0
	END IF
NEXT


dw_1.SetRedraw(TRUE)


end event

event ue_p_pcode_check();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息批设定'+sys_option_change_pcode+'部件选配必填', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()

IF dw_1.RowCount() = 0 THEN RETURN
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 0 THEN CONTINUE
	
	dw_1.Object.pcode_check[ll_i] = dw_1.Object.pcode_check[dw_1.getrow()]
	dw_1.AcceptText()
	IF dw_1.Object.pcodeflag[ll_i] <> 4 THEN
		dw_1.Object.pcode_check[ll_i] =  0
	END IF
NEXT


dw_1.SetRedraw(TRUE)

end event

event ue_p_pcodetype_bj();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息批设定'+sys_option_change_pcode+'部件选配分类', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()

IF dw_1.RowCount() = 0 THEN RETURN
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 0 THEN CONTINUE
	
	dw_1.Object.pcodetype_bj[ll_i] = dw_1.Object.pcodetype_bj[dw_1.getrow()]
	dw_1.AcceptText()
	IF dw_1.Object.pcodeflag[ll_i] <> 4 THEN 
		dw_1.Object.pcodetype_bj[ll_i] =  0
	END IF
NEXT


dw_1.SetRedraw(TRUE)


end event

event ue_p_pcodetype_yg();IF MessageBox(publ_operator,'是否要确定要按当前选中行信息批设定'+sys_option_change_pcode+'严格选择分类', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()

IF dw_1.RowCount() = 0 THEN RETURN
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF dw_1.Object.ch[ll_i] = 0 THEN CONTINUE
	
	dw_1.Object.pcodetype_yg[ll_i] = dw_1.Object.pcodetype_yg[dw_1.getrow()]
	dw_1.AcceptText()
	IF dw_1.Object.pcodeflag[ll_i] <> 1 THEN 
		dw_1.Object.pcodetype_yg[ll_i] =  0
	END IF
NEXT


dw_1.SetRedraw(TRUE)


end event

event ue_p_taskrate();IF MessageBox('提示','是否要确定要批设定订货超订比例', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_taskrate[ll_i] = dw_1.Object.u_mtrldef_taskrate[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_taskaddqty();IF MessageBox('提示','是否要确定要批设定附加超订数量', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_taskaddqty[ll_i] = dw_1.Object.u_mtrldef_taskaddqty[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_uprate();IF MessageBox('提示','是否要确定要批设定收货超收比例', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_uprate[ll_i] = dw_1.Object.u_mtrldef_uprate[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_upqty();IF MessageBox('提示','是否要确定要批设定附加超收数量', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_upqty[ll_i] = dw_1.Object.u_mtrldef_upqty[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_upsalerate();IF MessageBox('提示','是否要确定要批设定发货超发比例', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_upsalerate[ll_i] = dw_1.Object.u_mtrldef_upsalerate[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_upsaleqty();IF MessageBox('提示','是否要确定要批设定附加超发数量', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_upsaleqty[ll_i] = dw_1.Object.u_mtrldef_upsaleqty[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_upscllrate();IF MessageBox('提示','是否要确定要批设定领料超领比例', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_upscllrate[ll_i] = dw_1.Object.u_mtrldef_upscllrate[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_upscllqty();IF MessageBox('提示','是否要确定要批设定附加超领数量', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_upscllqty[ll_i] = dw_1.Object.u_mtrldef_upscllqty[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_scllflag();IF MessageBox('提示','是否要确定要批设定盘亏生成领料', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_scllflag[ll_i] = dw_1.Object.u_mtrldef_scllflag[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_ifautoscll();IF MessageBox('提示','是否要确定要批设定生产进仓自动领料', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_ifautoscll[ll_i] = dw_1.Object.u_mtrldef_ifautoscll[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_ifcheckaddqty();IF MessageBox('提示','是否要确定要批设定检查数量和辅数的关系', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_ifcheckaddqty[ll_i] = dw_1.Object.u_mtrldef_ifcheckaddqty[1]

	
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_strcheckaddqty();IF MessageBox('提示','是否要确定要批设定检查数量和辅数的关系', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_strcheckaddqty[ll_i] = dw_1.Object.u_mtrldef_strcheckaddqty[1]

	
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_salerate();IF MessageBox('提示','是否要确定要批设定<生产进仓引用订单单价比率>', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.salerate[ll_i] = dw_1.Object.salerate[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_u_spt_sptcode();IF MessageBox('提示','是否要确定要批设定<供应商>', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_1.AcceptText()
dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.u_mtrldef_dftsptid[ll_i] = dw_1.Object.u_mtrldef_dftsptid[1]
	dw_1.Object.u_spt_sptcode[ll_i] = dw_1.Object.u_spt_sptcode[1]
	dw_1.Object.u_spt_name[ll_i] = dw_1.Object.u_spt_name[1]
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_p_mtrlsectype();IF MessageBox('提示','是否要确定要批设定自定义1', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i
IF dw_1.RowCount() <= 0 THEN RETURN
dw_1.AcceptText()
dw_1.SetRedraw(False)
FOR ll_i = 1 To dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.mtrlsectype[ll_i] = dw_1.Object.mtrlsectype[1]
NEXT
dw_1.SetRedraw(True)


end event

event ue_p_zxmtrlmode();IF MessageBox('提示','是否要确定要批设定自定义2', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i
IF dw_1.RowCount() <= 0 THEN RETURN
dw_1.AcceptText()
dw_1.SetRedraw(False)
FOR ll_i = 1 To dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.zxmtrlmode[ll_i] = dw_1.Object.zxmtrlmode[1]
NEXT
dw_1.SetRedraw(True)


end event

event ue_p_mtrlengname();//mtrlengname
IF MessageBox('提示','是否要确定要批设定英文名称', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i
IF dw_1.RowCount() <= 0 THEN RETURN
dw_1.AcceptText()
dw_1.SetRedraw(False)
FOR ll_i = 1 To dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.mtrlengname[ll_i] = dw_1.Object.mtrlengname[1]
NEXT
dw_1.SetRedraw(True)


end event

event ue_p_barcode();//
IF MessageBox('提示','是否要确定要批设定条形码', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i
IF dw_1.RowCount() <= 0 THEN RETURN
dw_1.AcceptText()
dw_1.SetRedraw(False)
FOR ll_i = 1 To dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.barcode[ll_i] = dw_1.Object.barcode[1]
NEXT
dw_1.SetRedraw(True)


end event

event ue_p_price_ifpz();IF MessageBox('提示','是否要确定要批设定匹配模式', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i
IF dw_1.RowCount() <= 0 THEN RETURN
dw_1.AcceptText()
dw_1.SetRedraw(False)
FOR ll_i = 1 To dw_1.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_1.Object.price_ifpz[ll_i] = dw_1.Object.price_ifpz[1]
NEXT
dw_1.SetRedraw(True)


end event

public function integer wf_face ();cb_1.Enabled = NOT dw_edit_mode
cb_save.Enabled = dw_edit_mode
cb_csetinuse.Enabled = NOT dw_edit_mode
cb_setisuse.Enabled = NOT dw_edit_mode
cb_setstorage.Enabled = NOT dw_edit_mode
cb_func.Enabled = NOT dw_edit_mode
cb_psetup.Enabled = NOT dw_edit_mode
cb_2.Enabled = NOT dw_edit_mode
cbx_yl.Enabled = NOT dw_edit_mode
ddlb_mtrlorigin.Enabled = NOT dw_edit_mode
cbx_1.Enabled = NOT dw_edit_mode
//cb_p_deal.Enabled = dw_edit_mode
cb_mtrltype.Enabled = dw_edit_mode
cb_mtrlmode.Enabled = dw_edit_mode
cb_mrp.Enabled = dw_edit_mode

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

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



end function

on w_mtrldef_edit_price_ifpz.create
int iCurrent
call super::create
this.tv_1=create tv_1
this.ddlb_mtrlorigin=create ddlb_mtrlorigin
this.cbx_1=create cbx_1
this.dw_2=create dw_2
this.cb_save=create cb_save
this.cb_csetinuse=create cb_csetinuse
this.cb_setisuse=create cb_setisuse
this.cb_setstorage=create cb_setstorage
this.cb_edit=create cb_edit
this.cb_mtrltype=create cb_mtrltype
this.cb_mtrlmode=create cb_mtrlmode
this.cbx_2=create cbx_2
this.cb_mrp=create cb_mrp
this.cb_other=create cb_other
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.tv_1
this.Control[iCurrent+2]=this.ddlb_mtrlorigin
this.Control[iCurrent+3]=this.cbx_1
this.Control[iCurrent+4]=this.dw_2
this.Control[iCurrent+5]=this.cb_save
this.Control[iCurrent+6]=this.cb_csetinuse
this.Control[iCurrent+7]=this.cb_setisuse
this.Control[iCurrent+8]=this.cb_setstorage
this.Control[iCurrent+9]=this.cb_edit
this.Control[iCurrent+10]=this.cb_mtrltype
this.Control[iCurrent+11]=this.cb_mtrlmode
this.Control[iCurrent+12]=this.cbx_2
this.Control[iCurrent+13]=this.cb_mrp
this.Control[iCurrent+14]=this.cb_other
end on

on w_mtrldef_edit_price_ifpz.destroy
call super::destroy
destroy(this.tv_1)
destroy(this.ddlb_mtrlorigin)
destroy(this.cbx_1)
destroy(this.dw_2)
destroy(this.cb_save)
destroy(this.cb_csetinuse)
destroy(this.cb_setisuse)
destroy(this.cb_setstorage)
destroy(this.cb_edit)
destroy(this.cb_mtrltype)
destroy(this.cb_mtrlmode)
destroy(this.cbx_2)
destroy(this.cb_mrp)
destroy(this.cb_other)
end on

event resize;call super::resize;
tv_1.Height = This.Height - tv_1.Y -  150

//dw_2.Y = tv_1.Y + tv_1.Height




end event

event ue_before_open;call super::ue_before_open;dw_2.settransobject(sqlca)
dw_1.SetTabOrder('ch',10)
end event

type cb_func from w_publ_easyq`cb_func within w_mtrldef_edit_price_ifpz
end type

type cb_exit from w_publ_easyq`cb_exit within w_mtrldef_edit_price_ifpz
integer x = 1167
end type

type cb_2 from w_publ_easyq`cb_2 within w_mtrldef_edit_price_ifpz
integer x = 863
integer taborder = 100
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_mtrldef_edit_price_ifpz
integer x = 607
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_mtrldef_edit_price_ifpz
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;int li_isuse

if cbx_1.checked then
	li_isuse = 1
else
	li_isuse = -1
end if
	
dw_1.Retrieve(cur_mtrlorigin,ls_handtype,li_isuse)
parent.triggerevent('rtr_mx')

end event

type st_3 from w_publ_easyq`st_3 within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 1642
integer y = 650
end type

type st_4 from w_publ_easyq`st_4 within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 1657
integer y = 554
end type

type em_1 from w_publ_easyq`em_1 within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 1221
integer y = 480
integer taborder = 110
end type

type em_2 from w_publ_easyq`em_2 within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 1737
integer y = 355
integer taborder = 140
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 2271
integer y = 26
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 2066
integer y = 29
end type

type dw_1 from w_publ_easyq`dw_1 within w_mtrldef_edit_price_ifpz
integer x = 911
integer y = 288
integer width = 2666
integer height = 1331
string dataobject = "dw_mtrldef_edit_price_ifpz"
end type

event dw_1::rowfocuschanged;IF currentrow > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(currentrow,True)
END IF

Parent.TriggerEvent('rtr_mx')


end event

event dw_1::clicked;call super::clicked;IF row <= 0 THEN RETURN
This.SelectRow(0,False)
This.SetRow(row)
This.SelectRow(row,True)


end event

event dw_1::doubleclicked;
IF Not dw_edit_mode THEN RETURN

IF Lower(Left(dwo.Type,4)) = 'text'  THEN
	s_inputbox S_SREU
	String LS_STR,column_name
	
	column_name = dwo.Name
	column_name = Left(column_name,Len(column_name) - 2)
	
	IF Left(column_name, 10) = 'u_mtrldef_' THEN
		column_name = Mid(column_name, 11)
	END IF
	
	CHOOSE CASE column_name
		CASE ''
			Parent.TriggerEvent('ue_p_')
		CASE 'price_ifpz'
			Parent.TriggerEvent('ue_p_'+column_name)
	END CHOOSE
END IF







end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_mtrldef_edit_price_ifpz
end type

type sle_cust from w_publ_easyq`sle_cust within w_mtrldef_edit_price_ifpz
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_mtrldef_edit_price_ifpz
end type

type st_cust from w_publ_easyq`st_cust within w_mtrldef_edit_price_ifpz
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_mtrldef_edit_price_ifpz
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_mtrldef_edit_price_ifpz
boolean visible = false
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_mtrldef_edit_price_ifpz
boolean visible = false
end type

type pb_2 from w_publ_easyq`pb_2 within w_mtrldef_edit_price_ifpz
boolean visible = false
end type

type cb_help from w_publ_easyq`cb_help within w_mtrldef_edit_price_ifpz
integer x = 1017
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_mtrldef_edit_price_ifpz
boolean visible = false
end type

type gb_1 from w_publ_easyq`gb_1 within w_mtrldef_edit_price_ifpz
integer x = 1463
integer y = 477
integer width = 600
end type

type ln_bar from w_publ_easyq`ln_bar within w_mtrldef_edit_price_ifpz
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_mtrldef_edit_price_ifpz
end type

type r_bar from w_publ_easyq`r_bar within w_mtrldef_edit_price_ifpz
integer x = 2176
integer y = 112
end type

type ln_1 from w_publ_easyq`ln_1 within w_mtrldef_edit_price_ifpz
integer beginy = 282
integer endy = 282
end type

type ln_2 from w_publ_easyq`ln_2 within w_mtrldef_edit_price_ifpz
integer beginy = 285
integer endy = 285
end type

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

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

type tv_1 from uo_tv_mtrltype within w_mtrldef_edit_price_ifpz
integer y = 288
integer width = 903
integer height = 1117
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;

	ls_handtype = THIS.uo_cur_info.handtype
	ls_handtype = ls_handtype + '%'
	cb_1.TriggerEvent(Clicked!)






end event

type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_mtrldef_edit_price_ifpz
integer y = 192
integer width = 479
integer height = 480
integer taborder = 50
boolean bringtotop = true
end type

event selectionchanged;call super::selectionchanged;cur_mtrlorigin = this.uo_mtrlorigin
cb_1.triggerevent(clicked!)

f_SetProfileString (sys_empid,dw_1.DataObject, "ddlb_mtrlorigin",String(cur_mtrlorigin))


end event

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

type cbx_1 from checkbox within w_mtrldef_edit_price_ifpz
integer x = 549
integer y = 195
integer width = 402
integer height = 61
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;cb_1.triggerevent(clicked!)
end event

type dw_2 from datawindow within w_mtrldef_edit_price_ifpz
boolean visible = false
integer y = 1418
integer width = 903
integer height = 771
integer taborder = 150
boolean bringtotop = true
string title = "none"
string dataobject = "dw_mtrldef_edit_tmp_mx"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_save from uo_imflatbutton within w_mtrldef_edit_price_ifpz
integer x = 304
integer width = 150
integer height = 163
integer taborder = 30
boolean bringtotop = true
boolean enabled = false
string text = "保存"
string normalpicname = "save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

Long ll_i
String ls_mtrlcode
dw_1.AcceptText()


IF dw_1.Update() <> 1 THEN
	ROLLBACK;
	MessageBox('提示','保存失败', Information!, OK! )
	RETURN
END IF

COMMIT;
MessageBox('提示','保存成功!', Information!, OK! )
dw_edit_mode = NOT dw_edit_mode

wf_face()

cb_1.TriggerEvent(Clicked!)

end event

type cb_csetinuse from uo_imflatbutton within w_mtrldef_edit_price_ifpz
string tag = "勾选可以批设置"
boolean visible = false
integer x = 794
integer width = 256
integer height = 163
integer taborder = 60
boolean bringtotop = true
string text = "取消有效"
string normalpicname = "mx2.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long ll_row,ll_mtrlid
Decimal ld_noallocqty
Int li_isuse
String arg_msg

dw_1.AcceptText()
ll_row = dw_1.Find("ch = 1", 1, dw_1.RowCount())

IF ll_row <= 0 THEN
	ll_row = dw_1.GetRow()
	
	IF ll_row <= 0 THEN
		MessageBox('提示','请选择物料', Information!, OK! )
		RETURN
	END IF
	
	ll_mtrlid = dw_1.Object.mtrlid[ll_row]
	
//	SELECT isuse INTO :li_isuse
//		FROM u_mtrldef
//		Where mtrlid = :ll_mtrlid;
//	IF sqlca.SQLCode <> 0 THEN
//		MessageBox('提示','查询物料有效标记失败', Information!, OK! )
//		RETURN
//	END IF
	
	IF dw_1.Object.isuse[ll_row] = 0 THEN
		MessageBox('提示','当前物料无效状态', Information!, OK! )
		RETURN
	END IF
	
	SELECT sum(noallocqty) INTO :ld_noallocqty
		FROM u_mtrlware
		Where mtrlid = :ll_mtrlid;
	IF sqlca.SQLCode <> 0 THEN
		MessageBox('提示','查询物料库存数失败', Information!, OK! )
		RETURN
	END IF
	
	IF ld_noallocqty > 0 THEN
		MessageBox('提示','物料还有库存,不能取消有效', Information!, OK! )
		RETURN
	END IF
	
	IF MessageBox('提示','是否确定要将当前选择物料取消有效', question!, YesNo!, 2) = 2 THEN
		RETURN
	END IF
	
	DELETE FROM u_mtrlware
		WHERE noallocqty = 0
		And mtrlid = :ll_mtrlid;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		MessageBox('提示','删除物料库存失败,'+sqlca.SQLErrText, Information!, OK! )
		RETURN
	END IF
	
	
	UPDATE u_mtrldef SET isuse = 0
		Where mtrlid = :ll_mtrlid;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		MessageBox('提示','更新物料有效标记失败,'+sqlca.SQLErrText, Information!, OK! )
		RETURN
	END IF
	
	COMMIT;
	dw_1.Object.isuse[ll_row] = 0
ELSE
	
	IF MessageBox('提示','是否确定要将当前勾选物料批取消有效', question!, YesNo!, 2) = 2 THEN
		RETURN
	END IF
	
	DO WHILE ll_row > 0
		ll_mtrlid = dw_1.Object.mtrlid[ll_row]
		
		SELECT sum(noallocqty) INTO :ld_noallocqty
			FROM u_mtrlware
			Where mtrlid = :ll_mtrlid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg += "行:"+String(ll_row)+",查询库存信息失败,"+sqlca.SQLErrText+"~r~n"
			goto nxtmtrl
		END IF
		
		IF ld_noallocqty > 0 THEN
			arg_msg += "行:"+String(ll_row)+",物料还有库存,不能取消有效"+"~r~n"
			goto nxtmtrl
		END IF
	
		
		UPDATE u_mtrldef
			SET isuse = 0
			Where mtrlid = :ll_mtrlid;
		IF sqlca.SQLCode <> 0 THEN
			ROLLBACK;
			arg_msg += "行:"+String(ll_row)+",更新物料有效标记失败,"+sqlca.SQLErrText+"~r~n"
		ELSE
			COMMIT;
			dw_1.Object.isuse[ll_row] = 0
		END IF
		
		nxtmtrl:
		IF ll_row >= dw_1.RowCount() THEN EXIT
		ll_row = dw_1.Find("ch = 1", ll_row + 1, dw_1.RowCount())
	LOOP
	
	
	IF arg_msg <> "" THEN
		OpenWithParm(w_message_err, arg_msg)
	ELSE
		MessageBox('提示','批取消有效设置成功', Information!, OK! )
	END IF
END IF
//PARENT.TriggerEvent('rtr_mx')
//messagebox('提示','设置成功')




end event

type cb_setisuse from uo_imflatbutton within w_mtrldef_edit_price_ifpz
string tag = "勾选可以批设置"
boolean visible = false
integer x = 603
integer width = 194
integer height = 163
integer taborder = 70
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;Long ll_row,ll_mtrlid
Int li_isuse
String arg_msg

dw_1.AcceptText()
ll_row = dw_1.Find("ch = 1", 1, dw_1.RowCount())
IF ll_row <= 0 THEN
	ll_row = dw_1.GetRow()
	
	IF ll_row <= 0 THEN
		MessageBox('提示','请选择物料', Information!, OK! )
		RETURN
	END IF
	
	IF dw_1.Object.isuse[ll_row] = 1 THEN
		MessageBox('提示','当前物料有效状态', Information!, OK! )
		RETURN
	END IF
	
	IF MessageBox('提示','是否确定要将当前选择物料设有效', question!, YesNo!, 2) = 2 THEN
		RETURN
	END IF
	
	ll_mtrlid = dw_1.Object.mtrlid[ll_row]
	
	UPDATE u_mtrldef
		SET isuse = 1
		Where mtrlid = :ll_mtrlid;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		MessageBox('提示','更新物料有效标记失败,'+sqlca.SQLErrText, Information!, OK! )
		RETURN
	END IF
	
	COMMIT;
	dw_1.Object.isuse[ll_row] = 1
	MessageBox('提示','设置成功', Information!, OK! )
ELSE
	IF MessageBox('提示','是否确定要将当前勾选物料批设有效', question!, YesNo!, 2) = 2 THEN
		RETURN
	END IF
	
	DO WHILE ll_row > 0
		ll_mtrlid = dw_1.Object.mtrlid[ll_row]
		
		UPDATE u_mtrldef
			SET isuse = 1
			Where mtrlid = :ll_mtrlid;
		IF sqlca.SQLCode <> 0 THEN
			ROLLBACK;
			arg_msg += "行:"+String(ll_row)+",更新物料有效标记失败,"+sqlca.SQLErrText+"~r~n"
		ELSE
			COMMIT;
			dw_1.Object.isuse[ll_row] = 1
		END IF
		
		IF ll_row >= dw_1.RowCount() THEN EXIT
		ll_row = dw_1.Find("ch = 1", ll_row + 1, dw_1.RowCount())
	LOOP
	
	
	IF arg_msg <> "" THEN
		OpenWithParm(w_message_err, arg_msg)
	ELSE
		MessageBox('提示','批设有效设置成功', Information!, OK! )
	END IF
END IF




//SELECT isuse INTO :li_isuse
//	FROM u_mtrldef
//	Where mtrlid = :ll_mtrlid;
//IF sqlca.SQLCode <> 0 THEN
//	MessageBox('提示','查询物料有效标记失败', Information!, OK! )
//	RETURN
//END IF
//
//IF li_isuse = 1 THEN
//	MessageBox('提示','物料已有效', Information!, OK! )
//	RETURN
//END IF




//MessageBox('提示','设置成功', Information!, OK! )











end event

type cb_setstorage from uo_imflatbutton within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 1031
integer width = 296
integer height = 163
integer taborder = 70
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 dw_edit_mode THEN RETURN
IF dw_1.GetRow() <= 0  THEN RETURN
Long ll_mtrlid
ll_mtrlid = dw_1.Object.mtrlid[dw_1.GetRow()]
OpenWithParm(w_mtrl_storage,ll_mtrlid)




end event

type cb_edit from uo_imflatbutton within w_mtrldef_edit_price_ifpz
integer x = 453
integer width = 150
integer height = 163
integer taborder = 50
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 NOT f_power_ind(2016) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF

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


dw_edit_mode = NOT dw_edit_mode

wf_face()

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







end event

type cb_mtrltype from uo_imflatbutton within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 1331
integer width = 238
integer height = 163
integer taborder = 80
boolean bringtotop = true
boolean enabled = false
string text = "批改类别"
string normalpicname = "update.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;event ue_p_mtrltype()


end event

type cb_mtrlmode from uo_imflatbutton within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 1569
integer width = 238
integer height = 163
integer taborder = 90
boolean bringtotop = true
boolean enabled = false
string text = "批改规格"
string normalpicname = "update.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;event ue_p_mtrlmode()



end event

type cbx_2 from checkbox within w_mtrldef_edit_price_ifpz
integer x = 969
integer y = 195
integer width = 223
integer height = 61
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;long li
dw_1.SetRedraw(FALSE)
if this.checked then
	for li =1 to dw_1.rowcount()
		dw_1.object.ch[li] = 1
	next
else  
	for li =1 to dw_1.rowcount()
		dw_1.object.ch[li] = 0
	next
end if 
dw_1.SetRedraw(true)
end event

type cb_mrp from uo_imflatbutton within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 1807
integer width = 322
integer height = 163
integer taborder = 90
boolean bringtotop = true
boolean enabled = false
string text = "批改MRP属性"
string normalpicname = "update.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;event ue_p_mrp_unit()





end event

type cb_other from uo_imflatbutton within w_mtrldef_edit_price_ifpz
boolean visible = false
integer x = 1050
integer width = 256
integer height = 163
integer taborder = 70
boolean bringtotop = true
string text = "辅助功能"
string normalpicname = "other.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF NOT dw_edit_mode THEN
	menustr = "Text=设置存放仓库~tEvent=ue_set_storage"
ELSE
	menustr = menustr + "|" + "Text=批修改物料来源~tEvent=ue_p_mtrlorigin"
	menustr = menustr + "|" + "Text=批修改物料规格~tEvent=ue_p_mtrlmode"
	menustr = menustr + "|" + "Text=批修改物料属性~tEvent=ue_p_mtrlprp"
	menustr = menustr + "|" + "Text=批修改物料类别~tEvent=ue_p_mtrltype"
//	menustr = menustr + "|" + "Text=批修MRP属性~tEvent=ue_p_mrp_unit"
//	menustr = menustr + "|" + "Text=-"
//	menustr = menustr + "|" + "Text=批修改单位~tEvent=ue_p_unit"
//	menustr = menustr + "|" + "Text=-"
//	menustr = menustr + "|" + "Text=批修改辅单位1~tEvent=ue_p_unit_buy"
//	menustr = menustr + "|" + "Text=批修改转换率1~tEvent=ue_p_rate_buy"
//	menustr = menustr + "|" + "Text=批修改辅单位2~tEvent=ue_p_unit_scll"
//	menustr = menustr + "|" + "Text=批修改转换率2~tEvent=ue_p_rate_scll"
//	menustr = menustr + "|" + "Text=批修改辅单位3~tEvent=ue_p_unit_sale"
//	menustr = menustr + "|" + "Text=批修改转换率3~tEvent=ue_p_rate_sale"
//	menustr = menustr + "|" + "Text=批修改包装单位~tEvent=ue_p_prdpackcode"
//	menustr = menustr + "|" + "Text=批修改包装数量~tEvent=ue_p_packqty"
//	menustr = menustr + "|" + "Text=批修改总包装数计算方向~tEvent=ue_p_ifpacktype"
//	menustr = menustr + "|" + "Text=-"
//	menustr = menustr + "|" + "Text=批修改生产进仓引用订单单价比率~tEvent=ue_p_sc_salerate"
//	menustr = menustr + "|" + "Text=-"
//	menustr = menustr + "|" + "Text=批设置默认供应商~tEvent=ue_p_spt"
//	menustr = menustr + "|" + "Text=-"
//	menustr = menustr + "|" + "Text=批修改"+sys_option_change_status+"~tEvent=ue_p_statusflag"
//	menustr = menustr + "|" + "Text=批修改"+sys_option_change_woodcode+"~tEvent=ue_p_woodcodeflag"
//	menustr = menustr + "|" + "Text=批修改"+sys_option_change_pcode+"~tEvent=ue_p_pcodeflag"
//	menustr = menustr + "|" + "Text=-"
//	menustr = menustr + "|" + "Text=批修改自身为行情材料~tEvent=ue_p_ifhqcl"
//	menustr = menustr + "|" + "Text=批修改行情材料~tEvent=ue_p_hqclmtrlid"
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