Q5/ws_objects/Ew_mrp.pbl.src/w_orderrqwp_change.srw

$PBExportHeader$w_orderrqwp_change.srw
forward
global type w_orderrqwp_change from w_publ_1ton_share_detail
end type
type st_2 from statictext within w_orderrqwp_change
end type
type ddlb_status from dropdownlistbox within w_orderrqwp_change
end type
type st_3 from statictext within w_orderrqwp_change
end type
type ddlb_scid from uo_ddlb_scid within w_orderrqwp_change
end type
end forward

global type w_orderrqwp_change from w_publ_1ton_share_detail
string title = "工序变更单 "
boolean maxbox = true
windowstate windowstate = maximized!
event insert_childrow ( )
event ue_mtrlarea_rate ( )
event ue_p_wrkgrpid ( )
event ue_p_dipztype ( )
event ue_p_ifover ( )
event ue_p_workprice ( )
event ue_p_lsxtype ( )
event ue_p_pro ( )
event ue_p_workqty ( )
event ue_p_ifjd ( )
event ue_p_workhour ( )
event ue_p_rate_price ( )
event ue_p_status ( )
event ue_p_editflag ( )
event ue_p_wrkid ( )
event ue_formula_cmpl ( )
event ue_formula_def ( )
event ue_formula_dwset ( )
event ue_formula_view ( )
st_2 st_2
ddlb_status ddlb_status
st_3 st_3
ddlb_scid ddlb_scid
end type
global w_orderrqwp_change w_orderrqwp_change

type variables

long cur_flag= -1 //-1：全部，0未审
Long cur_scid
Long cur_scid_arr[]


uo_orderrqwp_change uo_change
end variables

forward prototypes
public function integer wf_flagstatus_rf ()
public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg)
public function integer wf_refresh_curuc (long arg_billid)
public function integer wf_check (long arg_wagemth, long arg_wageid, ref string arg_msg)
end prototypes

event insert_childrow();long li_row
li_row=dw_child.insertrow(0)
dw_child.scrolltorow(li_row)
dw_child.SetColumn ('u_orderrqwp_change_mx_editflag')	

end event

event ue_mtrlarea_rate();IF NOT dw_edit_mode THEN
	MessageBox('系统提示',"非编辑状态下不可以使用!")
	RETURN
END IF

IF MessageBox ("询问","本功能将根据油漆面积及相关比例计算出新用料量,是否继续?",question!,yesno! ) = 2 THEN RETURN


Decimal ld_rebate
Long ll_areatype
Long ll_i

Open(w_mtrlarea_rate)


s_edit_index_tran s_tranbate
s_tranbate = Message.PowerObjectParm

ld_rebate = s_tranbate.b_decimal
ll_areatype = s_tranbate.b_long

IF ld_rebate = 0 THEN RETURN

dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount( )
	IF ll_areatype = 0 THEN
		dw_child.Object.u_prdpf_changemx_sonscale[ll_i] = ld_rebate * dw_child.Object.u_mtrldef_mtrlarea[ll_i]
	ELSEIF ll_areatype = 1 THEN
		dw_child.Object.u_prdpf_changemx_sonscale[ll_i] = ld_rebate * dw_child.Object.u_mtrldef_mtrlarea1[ll_i]
	ELSEIF ll_areatype = 2 THEN
		dw_child.Object.u_prdpf_changemx_sonscale[ll_i] = ld_rebate * dw_child.Object.u_mtrldef_mtrlarea2[ll_i]
	END IF
NEXT
dw_child.SetRedraw(TRUE)


end event

event ue_p_wrkgrpid();if not dw_edit_mode then 
	messagebox('系统提示','非编辑状态不可使用')
	return 
end if

IF MessageBox(publ_operator,'是否要确定要批设定工组', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()


IF dw_child.RowCount() = 0 THEN RETURN
IF dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[1] = 0 THEN RETURN
dw_child.setredraw(false)
FOR ll_i = 1 TO dw_child.RowCount()	
	IF ll_i = 1 THEN CONTINUE
	IF dw_child.Object.u_orderrqwp_change_mx_editflag[ll_i] = 0 THEN CONTINUE
	dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[ll_i] = dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[1]
NEXT

dw_child.setredraw(true)

end event

event ue_p_dipztype();if not dw_edit_mode then 
	messagebox('系统提示','非编辑状态下不可使用')
	return 
end if

IF MessageBox(publ_operator,'是否要确定要批设定拆装运算配置', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()

IF dw_child.RowCount() = 0 THEN RETURN
dw_child.setredraw(false)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF ll_i = 1 THEN CONTINUE
	
	dw_child.Object.u_prdpf_changemx_dipztype[ll_i] = dw_child.Object.u_prdpf_changemx_dipztype[1]
NEXT
dw_child.setredraw(true)
end event

event ue_p_ifover();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态下不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定按配置拆装属性', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()

IF dw_child.RowCount() = 0 THEN RETURN
dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF ll_i = 1 THEN CONTINUE
	
	dw_child.Object.u_prdpf_changemx_ifover[ll_i] = dw_child.Object.u_prdpf_changemx_ifover[1]
NEXT
dw_child.SetRedraw(TRUE)

end event

event ue_p_workprice();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定新单件工价', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()


IF dw_child.RowCount() = 0 THEN RETURN
dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF ll_i = 1 THEN CONTINUE
	
	dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = dw_child.Object.u_orderrqwp_change_mx_workprice[1]
	
NEXT

dw_child.SetRedraw(TRUE)


end event

event ue_p_lsxtype();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定流水表打印类型?', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()


IF dw_child.RowCount() = 0 THEN RETURN
dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF ll_i = 1 THEN CONTINUE
	
	dw_child.Object.u_workprice_changemx_lsxtype[ll_i] = dw_child.Object.u_workprice_changemx_lsxtype[1]
	
NEXT

dw_child.SetRedraw(TRUE)


end event

event ue_p_pro();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定工序', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()


IF dw_child.RowCount() = 0 THEN RETURN
dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF ll_i = 1 THEN CONTINUE
	IF dw_child.Object.u_orderrqwp_change_mx_editflag[ll_i] = 0 THEN CONTINUE
	dw_child.Object.u_orderrqwp_change_mx_procode[ll_i] = dw_child.Object.u_orderrqwp_change_mx_procode[1]
	dw_child.Object.u_orderrqwp_change_mx_proname[ll_i] = dw_child.Object.u_orderrqwp_change_mx_proname[1]
	
NEXT

dw_child.SetRedraw(TRUE)



end event

event ue_p_workqty();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定数量', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()


IF dw_child.RowCount() = 0 THEN RETURN
dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF ll_i = 1 THEN CONTINUE
	
	dw_child.Object.u_orderrqwp_change_mx_proqty[ll_i] = dw_child.Object.u_orderrqwp_change_mx_proqty[1]
	
NEXT

dw_child.SetRedraw(TRUE)


end event

event ue_p_ifjd();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态下不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定监控进度', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()

IF dw_child.RowCount() = 0 THEN RETURN
dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF ll_i = 1 THEN CONTINUE
	
	dw_child.Object.u_workprice_changemx_ifjd[ll_i] = dw_child.Object.u_workprice_changemx_ifjd[1]
NEXT
dw_child.SetRedraw(TRUE)

end event

event ue_p_workhour();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定工时', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()


IF dw_child.RowCount() = 0 THEN RETURN
dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF ll_i = 1 THEN CONTINUE
	
	dw_child.Object.u_workprice_changemx_workhour[ll_i] = dw_child.Object.u_workprice_changemx_workhour[1]
	
NEXT

dw_child.SetRedraw(TRUE)


end event

event ue_p_rate_price();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态下不能使用')
	RETURN
END IF

Long ll_i
Decimal ld_rate
Long ll_if_all
Long ll_row
Long ll_dec
Long ll_way

ll_row  = dw_child.GetRow()

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

s_edit_index_tran s_ins_rate

Open(w_workprice_change_rate_edit)

s_ins_rate = Message.PowerObjectParm

ld_rate = s_ins_rate.b_decimal
ll_if_all = s_ins_rate.b_long
ll_dec = s_ins_rate.c_long
ll_way = s_ins_rate.d_long

IF ll_if_all = -1 THEN RETURN

dw_child.AcceptText()

IF ll_if_all = 0 THEN
	IF ll_way = 0 THEN
		dw_child.Object.u_orderrqwp_change_mx_workprice[ll_row] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_row] + ld_rate,ll_dec)
	ELSEIF ll_way = 1 THEN
		dw_child.Object.u_orderrqwp_change_mx_workprice[ll_row] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_row] - ld_rate,ll_dec)
	ELSEIF ll_way = 2 THEN
		dw_child.Object.u_orderrqwp_change_mx_workprice[ll_row] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_row] * ld_rate,ll_dec)
	ELSEIF ll_way = 3 THEN
		dw_child.Object.u_orderrqwp_change_mx_workprice[ll_row] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_row] / ld_rate,ll_dec)
	END IF
ELSEIF ll_if_all = 1 THEN
	dw_child.SetRedraw(FALSE)
	FOR ll_i = 1 TO dw_child.RowCount()
		IF ll_way = 0 THEN
			dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_i] + ld_rate,ll_dec)
		ELSEIF ll_way = 1 THEN
			dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_i] - ld_rate,ll_dec)
		ELSEIF ll_way = 2 THEN
			dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_i] * ld_rate,ll_dec)
		ELSEIF ll_way = 3 THEN
			dw_child.Object.u_orderrqwp_change_mx_workprice[ll_i] = Round(dw_child.Object.u_orderrqwp_change_mx_workprice_ori[ll_i] / ld_rate,ll_dec)
		END IF
	NEXT
	dw_child.SetRedraw(TRUE)
END IF




end event

event ue_p_status();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定配置', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()


IF dw_child.RowCount() = 0 THEN RETURN
IF dw_child.Object.u_orderrqwp_change_mx_status [1] = '' THEN RETURN

dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	IF ll_i = 1 THEN CONTINUE
	IF dw_child.Object.u_orderrqwp_change_mx_editflag[ll_i] = 0 THEN CONTINUE
	IF dw_child.Object.u_mtrldef_statusflag [ll_i] <> 2 THEN CONTINUE
	
	dw_child.Object.u_orderrqwp_change_mx_status[ll_i] = dw_child.Object.u_orderrqwp_change_mx_status[1]
NEXT

dw_child.SetRedraw(TRUE)


end event

event ue_p_editflag();IF Not dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定类型', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()


IF dw_child.RowCount() = 0 THEN RETURN
dw_child.SetRedraw(False)
FOR ll_i = 1 To dw_child.RowCount()
	IF ll_i = 1 THEN CONTINUE
	dw_child.Object.u_orderrqwp_change_mx_editflag[ll_i] = dw_child.Object.u_orderrqwp_change_mx_editflag[1]
NEXT

dw_child.SetRedraw(True)


end event

event ue_p_wrkid();IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态不可使用')
	RETURN
END IF

IF MessageBox(publ_operator,'是否要确定要批设定车间', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

Long ll_i

dw_child.AcceptText()


IF dw_child.RowCount() = 0 THEN RETURN
dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF ll_i = 1 THEN CONTINUE
	IF dw_child.Object.u_workprice_changemx_editflag[ll_i] = 0 THEN CONTINUE
	dw_child.Object.u_workprice_changemx_wrkid[ll_i] = dw_child.Object.u_workprice_changemx_wrkid[1]
	
NEXT

dw_child.SetRedraw(TRUE)



end event

event ue_formula_cmpl();long i
string ls_formula
string ls_express, ls_dname, ls_tname
dec lde_workprice
string ls_rtn
long ll_row
long ARGNUM = 9

ls_formula = f_ProfileString(-1, "sc_workpricetable_formula_def", "formula", "")


ls_express = Trim(ls_formula)

for i = 1 to ARGNUM
	
	ls_dname = 'arg'+string(i)
	ls_tname = f_ProfileString(-1, "sc_workpricetable_formula_def", "arg"+String(i)+"_name", "参数"+String(i))
	
	SELECT  Top 1 Replace( :ls_express,:ls_tname,:ls_dname) Into :ls_express From u_user;
	
next

datastore ds
ds = Create datastore
ds.DataObject = 'ds_sc_workpricetable_formula_cmpl'
ll_row = ds.InsertRow(0)
ls_rtn = ds.Modify("compute.expression='"+ls_express+"'")

IF ls_rtn <> '' THEN
	messagebox('ERROR', '语法检查不通过,计算公式必须是符合四则运算逻辑表达式')
	RETURN
END IF

dw_child.accepttext()
for i = 1 to dw_child.rowcount()
	ds.object.arg1[ll_row] = dw_child.object.arg1[i]
	ds.object.arg2[ll_row] = dw_child.object.arg2[i]
	ds.object.arg3[ll_row] = dw_child.object.arg3[i]
	ds.object.arg4[ll_row] = dw_child.object.arg4[i]
	ds.object.arg5[ll_row] = dw_child.object.arg5[i]
	ds.object.arg6[ll_row] = dw_child.object.arg6[i]
	ds.object.arg7[ll_row] = dw_child.object.arg7[i]
	ds.object.arg8[ll_row] = dw_child.object.arg8[i]
	ds.object.arg9[ll_row] = dw_child.object.arg9[i]
	
	dw_child.object.u_workprice_changemx_workprice[i] = ds.object.compute[ll_row]
next

return 
end event

event ue_formula_def();
openwithparm(w_sc_workpricetable_formula_def, 1)
//open(w_sc_workpricetable_formula_def)

//dw_child.settransobject(sqlca)
//dw_child.triggerevent("constructor")
this.triggerevent("ue_formula_dwset")
end event

event ue_formula_dwset();Long i, ll_row
String ls_argnewname
Int li_isuse
string ls_modify

long ARGNUM = 9

FOR i = 1 To ARGNUM
	ls_argnewname = f_ProfileString(-1, "sc_workpricetable_formula_def", "arg"+String(i)+"_name", "参数"+String(i))
	
	li_isuse = Integer(f_ProfileString(-1, "sc_workpricetable_formula_def", "arg"+String(i)+"_isnse", "1"))
	
	if li_isuse = 1 then
		ls_modify += "arg"+String(i)+'_t'+ ".text='"+ls_argnewname+"'"+ ' ~n '
	else
		ls_modify += "destroy arg"+String(i) + ' ~n '
		ls_modify += "destroy arg"+String(i)+'_t' + ' ~n '
//		ls_modify += " arg"+String(i) + '.visible = false ~n '
//		ls_modify += " arg"+String(i)+'_t.visible = false' + ' ~n '
	end if
	
NEXT
dw_child.Modify(ls_modify)
end event

event ue_formula_view();openwithparm(w_sc_workpricetable_formula_def, 0)
end event

public function integer wf_flagstatus_rf ();//====================================================================
// Function: wf_flagstatus_rf()
//--------------------------------------------------------------------
// Description: 
//--------------------------------------------------------------------
// Arguments:(None)
//--------------------------------------------------------------------
// Returns:  integer
//--------------------------------------------------------------------
// Author:	yyx		Date: 2003.12.26
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================


Long pagerert_row

pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	cb_auditing.Enabled = FALSE
	GOTO ext
END IF

IF dw_edit_mode THEN
	cb_auditing.Enabled = FALSE
ELSE
	IF dw_pageretr.Object.flag[pagerert_row] = 0 THEN
		cb_auditing.Enabled = TRUE
	ELSEIF dw_pageretr.Object.flag[pagerert_row] = 1 THEN
		cb_auditing.Enabled = FALSE
	END IF
END IF

ext:
RETURN 0

end function

public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg);//==============================================================================
// 函数: w_publ_1ton_share_detail::wf_xls_retrievedata()
//------------------------------------------------------------------------------
// 描述:  此函数需要 重载,复制祖先范例代码,然后修改retrieve参数部分两处即可
//------------------------------------------------------------------------------

Long LS_ROW,ll_id,i,ll_scid
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	arg_msg = '没有目标单据!'
	RETURN 0
END IF

//修改点:获取 指定retriev参数
ll_id = dw_pageretr.Object.#1[LS_ROW]

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


boolean xls_locked
xls_locked = not (sys_option_xls_lock = 1)

/// Excel 的可选设置
if arg_obj_st.of_setoption(arg_ationid,  xls_locked,true,arg_msg) <> 1 then
		return 0
end if


for i = 1 to arg_str_billlist.count
	////可选操作///
	arg_str_billlist.bill[i].ds_data = create datastore                                  //
	arg_str_billlist.bill[i].ds_data.dataobject = arg_str_billlist.bill[i].datawindow       //
	arg_str_billlist.bill[i].ds_data.settransobject(sqlca)
	
	//修改点:注意retrieve 参数与上文对应
	arg_str_billlist.bill[i].ds_data.retrieve(ll_id)

next 

return 1
end function

public function integer wf_refresh_curuc (long arg_billid);IF arg_billid <= 0 Or IsNull(arg_billid) THEN RETURN 0
Long uc_row
uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN RETURN 0

Long billid
DateTime billdate
String relcode
String rep
String dscrp
Int flag
DateTime opdate
String opemp
DateTime moddate
String modemp
DateTime auditdate
String auditemp
Long scid
String billcode

SELECT billdate,
	relcode,
	rep,
	dscrp,
	flag,
	opdate,
	opemp,
	moddate,
	modemp,
	auditdate,
	auditemp,
	scid,
	billcode
	INTO
	:billdate,
	:relcode,
	:rep,
	:dscrp,
	:flag,
	:opdate,
	:opemp,
	:moddate,
	:modemp,
	:auditdate,
	:auditemp,
	:scid,
	:billcode
	FROM u_orderrqwp_change
	Where billid = :arg_billid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示',"查询操作失败(错误单据唯一码)")
	RETURN 0
END IF

dw_pageretr.SetRedraw(False)
dw_pageretr.Object.billid[uc_row] = arg_billid
dw_pageretr.Object.billdate[uc_row] = billdate
dw_pageretr.Object.relcode[uc_row] = relcode
dw_pageretr.Object.rep[uc_row] = rep
dw_pageretr.Object.dscrp[uc_row] = dscrp
dw_pageretr.Object.flag[uc_row] = flag
dw_pageretr.Object.opdate[uc_row] = opdate
dw_pageretr.Object.opemp[uc_row] = opemp
dw_pageretr.Object.moddate[uc_row] = moddate
dw_pageretr.Object.modemp[uc_row] = modemp
dw_pageretr.Object.auditdate[uc_row] = auditdate
dw_pageretr.Object.auditemp[uc_row] = auditemp
dw_pageretr.Object.scid[uc_row] = scid
dw_pageretr.Object.billcode[uc_row] = billcode
dw_pageretr.SetRedraw(True)
dw_uc.Reset()
dw_pageretr.RowsCopy(dw_pageretr.GetRow(), dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!)
wf_flagstatus_rf()

RETURN 1






end function

public function integer wf_check (long arg_wagemth, long arg_wageid, ref string arg_msg);//检查该月该项目所属的单据是否已审

Int rslt = 1
Long ll_wagemode
Long cnt

Long li_year,li_month
li_year = Long(Left(String(arg_wagemth),4))
li_month = Long(Right(String(arg_wagemth),2))

SELECT wagemode INTO :ll_wagemode
	FROM u_gz_wageitem
	Where wageid = :arg_wageid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询工资项目计算方法失败'+sqlca.SQLErrText
	GOTO ext
END IF

CHOOSE CASE ll_wagemode

	CASE 12
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_scwg_taskwork_2
			WHERE wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND flag = 0
			AND billtype = 1;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询个人产品计件单明细失败!原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的个人产品计件单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 13
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_sc_taskwork
			WHERE wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND Auditingflag = 0;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询产品个人计件单明细失败!原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的产品个人计件单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 14
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_sc_abnormity
			WHERE  wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND secAuditingflag = 0;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '查询是否有异常计件单未审核失败,原因>>'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			arg_msg = '该月的异常计件单没有审核,不能更改该项目工资金额!'
			rslt = 0
			GOTO ext
		END IF
	CASE 15
		cnt = 0
		SELECT count(*)
			INTO :cnt
			FROM u_scwg_taskwork
			WHERE u_scwg_taskwork.wageid = :arg_wageid
			AND u_scwg_taskwork.wagemth = :arg_wagemth
			AND u_scwg_taskwork.Auditingflag = 0 ;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询操作失败,已经审核数量'
			GOTO ext
		END IF
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '还有工作中心工序单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 16
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_scwg_taskwork_2
			WHERE wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND flag = 0
			AND billtype = 0;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询工作中心产品月分配计件单明细失败!原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的工作中心产品月分配计件单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 17
		cnt = 0
		SELECT count(*)
			INTO :cnt
			FROM u_scwg_taskwork_day
			WHERE u_scwg_taskwork_day.wageid = :arg_wageid
			AND u_scwg_taskwork_day.wagemth = :arg_wagemth
			AND u_scwg_taskwork_day.flag = 0
			AND u_scwg_taskwork_day.billtype = 0;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询工作中心产品日分配计件单操作失败,'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的工作中心产品日分配计件单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 18
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_scwg_taskwork_2
			WHERE wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND flag = 0
			AND billtype = 2;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询工作中心月分配异常计件单明细失败!原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的工作中心月分配异常计件单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 19
		cnt = 0
		SELECT count(*)
			INTO :cnt
			FROM u_scwg_taskwork_day
			WHERE u_scwg_taskwork_day.wageid = :arg_wageid
			AND u_scwg_taskwork_day.wagemth = :arg_wagemth
			AND u_scwg_taskwork_day.flag = 0
			AND u_scwg_taskwork_day.billtype = 1;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询工作中心日分配异常计件单操作失败,'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的工作中心日分配异常计件单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 21
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_gz_loanwage
			WHERE  wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND flag = 0;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询借支单明细失败！原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的借支单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 22
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_outware
			WHERE billtype = 10
			AND relid = :arg_wageid
			AND secflag = 0
			AND year(outdate) = :li_year
			AND Month(outdate) = :li_month;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询扣费单明细失败！原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的扣费单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
		
	CASE 23
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_gz_award_punish
			WHERE  wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND flag = 0;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询奖罚单明细失败!原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的奖罚单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 24
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_kq_cwork
			WHERE  wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND flag = 0;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询考勤单明细失败！原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的考勤单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 25
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_test
			WHERE wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND secAuditingflag = 0;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询绩效考核单明细失败!原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的绩效考核单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE 26
		cnt = 0
		SELECT count(*) INTO :cnt
			FROM u_consume_list
			WHERE wagemth = :arg_wagemth
			AND wageid = :arg_wageid
			AND wageflag = 0;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询消费单明细失败!原因：'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		IF cnt > 0 THEN
			rslt = 0
			arg_msg = '该月的消费单没有审核,不能更改该项目工资金额!'
			GOTO ext
		END IF
	CASE ELSE
		
END CHOOSE

ext:
RETURN rslt

end function

on w_orderrqwp_change.create
int iCurrent
call super::create
this.st_2=create st_2
this.ddlb_status=create ddlb_status
this.st_3=create st_3
this.ddlb_scid=create ddlb_scid
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.ddlb_status
this.Control[iCurrent+3]=this.st_3
this.Control[iCurrent+4]=this.ddlb_scid
end on

on w_orderrqwp_change.destroy
call super::destroy
destroy(this.st_2)
destroy(this.ddlb_status)
destroy(this.st_3)
destroy(this.ddlb_scid)
end on

event open;call super::open;uc_column_int = 5 
child_column_int = 10

uo_change = create uo_orderrqwp_change

end event

event close;call super::close;destroy uo_change
end event

event refresh_interface;call super::refresh_interface;wf_flagstatus_rf()

ddlb_status.enabled=not dw_edit_mode
ddlb_scid.Enabled = NOT dw_edit_mode
end event

event retrieve_pageretr;Boolean  cb_nextpage_enabled,cb_retrieveall_enabled
Boolean  cb_func_enabled,cb_retrieve_enabled


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


cb_nextpage.Enabled = False
cb_retrieveall.Enabled = False
cb_func.Enabled = False

dw_uc.Retrieve()
dw_pageretr.Retrieve(cur_flag)
IF dw_pageretr.RowCount() > 0 THEN
	dw_pageretr.SetRow(1)
	dw_pageretr.TriggerEvent(RowFocusChanged!)
END IF


f_title_change(dw_uc)
wf_flagstatus_rf()
This.TriggerEvent('retrieve_childdw')


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

end event

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

	if Pos(ls_newselect," where ") <> 0 then
	   ls_newselect=ls_newselect+" AND ("+ls_querystrpart+')'
	else
		ls_newselect=ls_newselect+" where ("+ls_querystrpart+')'
	end if
end if
wf_retrieveuc(dw_pageretr,ls_newselect,1)  
this.triggerevent('retrieve_pageretr')

end event

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

	if Pos(ls_newselect," where ") <> 0 then
	   ls_newselect=ls_newselect+" AND ("+ls_querystrpart+')'
	else
		ls_newselect=ls_newselect+" where ("+ls_querystrpart+')'
	end if
end if
wf_retrieveuc(dw_pageretr,ls_newselect,1)  
this.triggerevent('retrieve_pageretr')
end event

event ue_viewprint;call super::ue_viewprint;Long ll_pwrid
Long LS_ROW
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('NO','没有打印目标单据!')
	RETURN
END IF
ll_pwrid = 1627
S_print_MSG LS_PRMSG

IF ls_powerid = 0 THEN
	ls_powerid = ll_pwrid
END IF

IF ls_newname <> '' THEN
	IF Not f_power_ind(ls_powerid,sys_msg_pow) THEN
		MessageBox(publ_operator,sys_msg_pow)
		RETURN
	END IF
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.flag[dw_pageretr.GetRow()] = 0 THEN
			MessageBox('NO','目标单据还未审核,不能打印!')
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	IF Not f_power_ind(ll_pwrid,sys_msg_pow) THEN
		MessageBox(publ_operator,sys_msg_pow)
		RETURN
	END IF
	
	LS_PRMSG.obj_dwNAME = ''
END IF

IF LS_PRMSG.obj_dwNAME = '' THEN RETURN

LS_PRMSG.printrow = ll_prownum
LS_PRMSG.TAG_TEXT = This.Title
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.billid[LS_ROW]
LS_PRMSG.rowcnt = dw_child.RowCount()
OpenWithParm(w_publ_preview,LS_PRMSG)



end event

event retrieve_childdw;call super::retrieve_childdw;Long row,uc_relid
row = dw_pageretr.GetRow()

dw_child.setsort('u_workprice_changemx_printid A')
dw_child.sort()


IF row > 0 THEN
	uc_relid = dw_pageretr.Object.billid[row]
	dw_child.SetRedraw (FALSE)
	dw_child.Retrieve(uc_relid)
	dw_child.SetRedraw (TRUE)
ELSE
	dw_child.Reset()
END IF


end event

event ue_f8;call super::ue_f8;IF Not dw_edit_mode THEN RETURN
Long uc_row,ls_j
Int li_statusflag,li_woodcodeflag,li_pcodeflag
Long ll_statustype,ll_woodcodetype,ll_pcodetype
String ls_mtrlmode,ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode
//Long ll_dftwrkgrpid

Long ll_wkpid
s_mtrldef_array arg_s_mtrldef

uc_row = dw_child.GetRow()
IF uc_row = 0 THEN
	MessageBox('系统提示','请选定单据!')
	RETURN
END IF

dw_child.AcceptText()


IF Not IsValid(w_order_ml_mx_mtrl_ch) THEN
	s_edit_index_tran s_open //传递参数使用
	s_open.if_select_any = True
	s_open.b_string = Trim(dw_child.Object.u_saletask_taskcode[uc_row])
	IF cur_scid < 0 THEN
		s_open.d_long = dw_child.Object.u_orderrqwp_change_mx_scid[uc_row]
	ELSE
		s_open.d_long = cur_scid
	END IF
	s_open.f_long = 0
	s_open.g_long = 1 //使用终止计件条件 
	
	s_open.h_long = 0 //进仓
	s_open.c_long = 1 //领料
	
	OpenWithParm(w_order_ml_mx_mtrl_ch,s_open)
	
	s_saletask_mtrl s_inscust
	s_inscust = Message.PowerObjectParm //接受返回结构
	dw_child.SetRedraw(False)
	FOR ls_j = 1 To  UpperBound(s_inscust.taskid)
		IF s_inscust.taskid[ls_j] > 0 THEN //正常返回值则可以取以下值		
			IF dw_child.GetRow() > 0 THEN
				IF dw_child.Object.u_orderrqwp_change_mx_relid[uc_row] > 0 THEN
					uc_row = dw_child.InsertRow (0)
				ELSE
					uc_row = dw_child.GetRow()
				END IF
			ELSE
				uc_row = dw_child.InsertRow (0)
			END IF
			
			IF uc_row > 1 THEN
				dw_child.Object.u_orderrqwp_change_mx_editflag[uc_row] = dw_child.Object.u_orderrqwp_change_mx_editflag[uc_row - 1]
			END IF
			
			dw_child.Object.u_orderrqwp_change_mx_relid[uc_row] = s_inscust.taskid[ls_j]
			dw_child.Object.u_orderrqwp_change_mx_relprintid[uc_row] = s_inscust.printid[ls_j]
			dw_child.Object.u_saletask_taskcode[uc_row] = s_inscust.taskcode[ls_j]
			
			dw_child.Object.u_orderrqwp_change_mx_mtrlid[uc_row] = s_inscust.mtrlid[ls_j]
			dw_child.Object.u_mtrldef_mtrlcode[uc_row] = s_inscust.mtrlcode[ls_j]
			dw_child.Object.u_mtrldef_mtrlname[uc_row] = s_inscust.mtrlname[ls_j]
			dw_child.Object.u_mtrldef_unit[uc_row] = s_inscust.unit[ls_j]
			
			dw_child.Object.u_orderrqwp_change_mx_status[uc_row] = s_inscust.status[ls_j]
			
			IF f_find_mtrl(s_inscust.mtrlcode[1],-1,arg_s_mtrldef) = 0 THEN
				li_statusflag = 0
				li_woodcodeflag = 0
				li_pcodeflag = 0
				ll_statustype = 0
				ll_woodcodetype = 0
				ll_pcodetype = 0
				//				ll_dftwrkgrpid = 0
				ls_mtrlmode = ''
				ls_mtrlsectype = ''
				ls_zxmtrlmode = ''
				ls_usermtrlmode = ''
			ELSE
				li_statusflag = arg_s_mtrldef.statusflag[1]
				ll_statustype = arg_s_mtrldef.statustype[1]
				li_woodcodeflag = arg_s_mtrldef.woodcodeflag[1]
				ll_woodcodetype = arg_s_mtrldef.woodcodetype[1]
				li_pcodeflag = arg_s_mtrldef.pcodeflag[1]
				ll_pcodetype = arg_s_mtrldef.pcodetype[1]
				//				ll_dftwrkgrpid = arg_s_mtrldef.dftwrkgrpid[1]
				ls_mtrlmode = arg_s_mtrldef.mtrlmode[1]
				ls_mtrlsectype = arg_s_mtrldef.mtrlsectype[1]
				ls_zxmtrlmode = arg_s_mtrldef.zxmtrlmode[1]
				ls_usermtrlmode = arg_s_mtrldef.usermtrlmode[1]
			END IF
			
			dw_child.Object.u_mtrldef_statusflag[uc_row]    = li_statusflag
			
			dw_child.Object.u_mtrldef_mtrlmode[uc_row]    = ls_mtrlmode
			dw_child.Object.u_mtrldef_mtrlsectype[uc_row]    = ls_mtrlsectype
			dw_child.Object.u_mtrldef_zxmtrlmode[uc_row]    = ls_zxmtrlmode
			dw_child.Object.u_mtrldef_usermtrlmode[uc_row]    = ls_usermtrlmode
			
		END IF
	NEXT
	dw_child.SetRedraw(True)
	
	
END IF


end event

event ue_print;call super::ue_print;//--直接打印
uo_print_preview uo_print
IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN


S_print_MSG LS_PRMSG
long ll_pwrid
Long LS_ROW
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('NO','没有打印目标单据!')
	RETURN
END IF
ll_pwrid = 1627
IF ls_powerid = 0 THEN
	ls_powerid = ll_pwrid
END IF

IF ls_newname <> '' THEN
	IF Not f_power_ind(ls_powerid,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.flag[dw_pageretr.GetRow()] = 0 THEN
			MessageBox('NO','目标单据还未审核,不能打印!')
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	
	IF NOT f_power_ind(1627,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	LS_PRMSG.obj_dwNAME = ''
END IF

if LS_PRMSG.obj_dwNAME = '' then return

LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.printrow = ll_prownum
LS_PRMSG.TAG_TEXT = this.title
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.billid[LS_ROW]
LS_PRMSG.rowcnt = dw_child.RowCount()
uo_print.FACT_PRINT_MSG = LS_PRMSG


String arg_msg
IF uo_print.uof_print_begin(arg_msg) = 0 THEN
	MessageBox("系统提示",arg_msg)
	RETURN
END IF
uo_print.ds_print()


end event

event ue_addzy;call super::ue_addzy;IF NOT f_power_ind(1626,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF


IF dw_edit_mode THEN RETURN

String arg_msg = '',LS_STR
Long uc_row
s_inputbox S_SREU

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF
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

IF uo_change.add_dscrp(dw_pageretr.Object.billid[uc_row],LS_STR,arg_msg,true) = 0 THEN
	MessageBox('Error!',arg_msg)
	RETURN
ELSE
	MessageBox(publ_operator,'添加备注操作成功!')
	wf_refresh_curuc(dw_pageretr.Object.billid[uc_row])
END IF



end event

event ue_f9;call super::ue_f9;//用于选择明细内容,被F10[默认]\dw_child.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN
Long child_row
child_row = dw_child.GetRow()

IF NOT IsValid(w_sc_workprocedure_response) THEN

	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 = FALSE
	
	Long chc = 1,ls_j
	IF dw_child.GetRow() > 0 THEN s_ch_tran.arg_string_code = Trim(dw_child.Object.u_orderrqwp_change_mx_procode[dw_child.GetRow()])
	OpenWithParm(w_sc_workprocedure_response,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 //正常返回值则可以取以下值
		
			dw_child.Object.u_orderrqwp_change_mx_procode[child_row] = S_INSCUST.wrkprocode[ls_j]
			dw_child.Object.u_orderrqwp_change_mx_proname[child_row] = S_INSCUST.wrkproname[ls_j]
			dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[child_row] = S_INSCUST.workprice[ls_j]
			dw_child.Object.u_orderrqwp_change_mx_workprice[child_row] = S_INSCUST.wrkGrid[ls_j]
			
		END IF
	NEXT
	dw_child.SetColumn("u_orderrqwp_change_mx_proqty")
	dw_child.SetFocus()
END IF




end event

event ue_f7;call super::ue_f7;Long child_row,uc_row
Long ls_j
Long ll_empid
String ls_empcode,ls_empname
Int li_statusflag
String ls_mtrlmode,ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode

s_mtrldef_array arg_s_mtrldef

dw_child.AcceptText()
dw_uc.AcceptText()

uc_row = dw_uc.GetRow()

IF uc_row <= 0 THEN
	MessageBox('系统提示','请选择单据!')
	RETURN
END IF

child_row = dw_child.GetRow()

IF child_row <= 0 THEN
	MessageBox('系统提示','当前没有记录!')
	RETURN
END IF

IF Not IsValid(w_order_ml_pro_change_ch) THEN
	s_edit_index_tran s_select_open //传递参数使用

	s_select_open.if_select_any = true //可以多选
	
	IF dw_uc.Object.billid[uc_row] = 0 THEN
		s_select_open.c_long = cur_scid
	ELSE
		s_select_open.c_long = dw_uc.Object.scid[uc_row]
	END IF
	
	OpenWithParm(w_order_ml_pro_change_ch,s_select_open)
	
	s_workpricetable_array s_inscust
	s_inscust = Message.PowerObjectParm
	
	dw_child.SetRedraw(False)
	FOR ls_j = 1 To  UpperBound(s_inscust.procode)
		IF IsNull(s_inscust.procode[ls_j]) Or s_inscust.procode[ls_j] = '' THEN CONTINUE
		IF dw_child.GetRow() > 0 THEN
			IF dw_child.Object.u_orderrqwp_change_mx_relid[child_row] > 0 THEN
				child_row = dw_child.InsertRow (0)
			ELSE
				child_row = dw_child.GetRow()
			END IF
		ELSE
			child_row = dw_child.InsertRow (0)
		END IF
		
		dw_child.Object.u_orderrqwp_change_mx_procode[child_row] = s_inscust.procode[ls_j]
		dw_child.Object.u_orderrqwp_change_mx_proname[child_row] = s_inscust.proname[ls_j]
		dw_child.Object.u_orderrqwp_change_mx_proorder[child_row] = s_inscust.proorder[ls_j]
		
		dw_child.Object.u_orderrqwp_change_mx_workprice[child_row] = s_inscust.workprice[ls_j]
		dw_child.Object.u_orderrqwp_change_mx_workprice_ori[child_row] = s_inscust.workprice[ls_j]
		
		dw_child.Object.u_orderrqwp_change_mx_proqty[child_row] = s_inscust.proqty[ls_j]
		dw_child.Object.u_orderrqwp_change_mx_proqty_ori[child_row] = s_inscust.proqty[ls_j]
		
		dw_child.Object.u_orderrqwp_change_mx_status[child_row] = s_inscust.status[ls_j]
		
//		dw_child.Object.u_orderrqwp_change_mx_ifjd[child_row] = s_inscust.ifjd[ls_j]
//		dw_child.Object.u_orderrqwp_change_mx_lastflag[child_row] = s_inscust.lastflag[ls_j]
		
		dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[child_row] = s_inscust.wrkgrpid[ls_j]
		
//		dw_child.Object.u_order_ml_status_mode[child_row] = s_inscust.status_mode[ls_j]
//		dw_child.Object.u_order_ml_taskcode[child_row] = s_inscust.taskcode[ls_j]
		dw_child.Object.u_mtrldef_mtrlcode[child_row] = s_inscust.mtrlcode[ls_j]
		dw_child.Object.u_mtrldef_mtrlname[child_row] = s_inscust.mtrlname[ls_j]
//		dw_child.Object.u_mtrldef_unit[child_row] = s_inscust.unit[ls_j]
		
		dw_child.Object.u_orderrqwp_change_mx_scid[child_row] = s_inscust.scid[ls_j]
		dw_child.Object.u_orderrqwp_change_mx_relid[child_row] = s_inscust.taskid[ls_j]
		dw_child.Object.u_orderrqwp_change_mx_relprintid[child_row] = s_inscust.printid[ls_j]
//		dw_child.Object.u_orderrqwp_change_mx_taskid[child_row] = s_inscust.taskid[ls_j]

		dw_child.Object.u_orderrqwp_change_mx_mtrlid[child_row] = s_inscust.mtrlid[ls_j]
		
		IF f_find_mtrl(s_inscust.mtrlcode[1],-1,arg_s_mtrldef) = 0 THEN
			li_statusflag = 0
			
			ls_mtrlmode = ''
			ls_mtrlsectype = ''
			ls_zxmtrlmode = ''
			ls_usermtrlmode = ''
		ELSE
			li_statusflag = arg_s_mtrldef.statusflag[1]
			
			ls_mtrlmode = arg_s_mtrldef.mtrlmode[1]
			ls_mtrlsectype = arg_s_mtrldef.mtrlsectype[1]
			ls_zxmtrlmode = arg_s_mtrldef.zxmtrlmode[1]
//			ls_usermtrlmode = arg_s_mtrldef.usermtrlmode[1]
		END IF
		
		dw_child.Object.u_mtrldef_statusflag[uc_row]    = li_statusflag
		
		dw_child.Object.u_mtrldef_mtrlmode[uc_row]    = ls_mtrlmode
		dw_child.Object.u_mtrldef_mtrlsectype[uc_row]    = ls_mtrlsectype
		dw_child.Object.u_mtrldef_zxmtrlmode[uc_row]    = ls_zxmtrlmode
//		dw_child.Object.u_mtrldef_usermtrlmode[uc_row]    = ls_usermtrlmode
		
	NEXT
	
	dw_child.SetRedraw(True)
	
	
END IF



end event

event ue_f10;call super::ue_f10;long ll_row,ll_mtrlid
string ls_pfcode

//dw_child.accepttext()
//
//ll_row = dw_child.getrow()
//
//if ll_row <= 0 then return
//
//ll_mtrlid = dw_child.object.u_prdpf_changemx_mtrlid[ll_row]
//
//if ll_mtrlid <= 0 then
//	messagebox('提示','请先选择上级物料')
//	return
//end if
//
//openwithparm(w_mtrl_pf_ch,ll_mtrlid)
//ls_pfcode = message.stringparm
//
//if ls_pfcode <> '' then dw_child.object.u_prdpf_changemx_pfcode[ll_row] = ls_pfcode

end event

event ue_f11;call super::ue_f11;Long ll_row,ll_mtrlid
String ls_pfcode
Long uc_row

//dw_uc.AcceptText()
//dw_child.AcceptText()
//
//uc_row = dw_uc.GetRow()
//IF uc_row <= 0 THEN RETURN
//
//ll_row = dw_child.GetRow()
//IF ll_row <= 0 THEN RETURN
//
//ll_mtrlid = dw_uc.Object.u_prdpf_change_sonmtrlid[ll_row]
//
//IF ll_mtrlid <= 0 THEN
//	MessageBox('提示','请先选择物料')
//	dw_uc.SetFocus()
//	dw_uc.SetColumn("u_mtrldef_mtrlcode")
//	RETURN
//END IF
//
//OpenWithParm(w_mtrl_pf_ch,ll_mtrlid)
//ls_pfcode = Message.StringParm
//
//IF ls_pfcode <> '' THEN dw_child.Object.u_prdpf_changemx_sonpfcode[ll_row] = ls_pfcode


end event

event ue_f12;call super::ue_f12;IF Not dw_edit_mode THEN RETURN
Long uc_row,ll_mtrlid,child_row
String ls_status

child_row = dw_child.GetRow()
IF child_row <= 0 THEN
	MessageBox('系统提示','请选择明细')
	RETURN
END IF

dw_child.AcceptText()
ll_mtrlid = dw_child.Object.u_orderrqwp_change_mx_mtrlid[child_row]

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

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_child.SetRedraw(False)
	IF Len(Trim(ls_status)) > 0 THEN
		IF ls_status = '[清空配置]' THEN ls_status = ''
		dw_child.Object.u_orderrqwp_change_mx_status[child_row] = ls_status
		dw_child.SetFocus()
		dw_child.SetColumn('u_orderrqwp_change_mx_proqty')
	END IF
	dw_child.SetRedraw(True)
END IF


end event

event ue_f6;call super::ue_f6;IF dw_edit_mode THEN RETURN

Long ll_row
ll_row = dw_child.GetRow()
IF ll_row <= 0 THEN RETURN

Long ll_mtrlid
String ls_procode

ll_mtrlid = dw_child.Object.u_workprice_changemx_mtrlid[ll_row]
ls_procode = dw_child.Object.u_workprice_changemx_procode[ll_row]

IF ll_mtrlid = 0 OR ls_procode = '' THEN RETURN

s_edit_index_tran s_tran_his //传递参数使用
s_tran_his.b_long = ll_mtrlid
s_tran_his.b_string = ls_procode

OpenWithParm(w_workprice_change_his,s_tran_his)

end event

event ue_allowedit;//
end event

type cb_func from w_publ_1ton_share_detail`cb_func within w_orderrqwp_change
end type

type cb_exit from w_publ_1ton_share_detail`cb_exit within w_orderrqwp_change
integer x = 2368
end type

type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_orderrqwp_change
integer x = 229
integer width = 553
end type

type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_orderrqwp_change
integer x = 2821
end type

type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_orderrqwp_change
integer x = 2519
end type

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_orderrqwp_change
integer x = 1733
integer width = 1861
integer height = 824
string dataobject = "dw_orderrqwp_change_index"
end type

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;

wf_flagstatus_rf()
end event

type st_1 from w_publ_1ton_share_detail`st_1 within w_orderrqwp_change
integer x = 0
alignment alignment = right!
end type

type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_orderrqwp_change
integer x = 2971
end type

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_orderrqwp_change
integer width = 1723
integer height = 824
string dataobject = "dw_orderrqwp_change_edit"
end type

event dw_uc::buttonclicked;call super::buttonclicked;IF row > 0 And dw_edit_mode THEN
	IF dwo.Name = 'b_pro' THEN
		Parent.TriggerEvent('ue_f9')
	END IF
END IF

end event

event dw_uc::dwnkey;PARENT.TriggerEvent('user_key')


String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode
String ls_mtrlsectype,ls_zxmtrlmode
Long ll_mtrlid,ll_ori_mtrlid
String ls_procode,ls_procode_f,ls_proname_f
string ls_procode_ori

IF Key = KeyDownArrow! THEN RETURN 1

dw_uc.AcceptText()

IF dw_uc.GetRow() <= 0 THEN RETURN
IF dw_edit_mode THEN
	IF dw_uc.GetColumnName ( ) = 'dscrp' AND Key = KeyEnter! THEN
		dw_child.ScrollToRow(1)
		dw_child.SetFocus()
		dw_child.SetColumn ('u_orderrqwp_change_mx_editflag')
		RETURN 1
	ELSEIF dw_uc.GetColumnName ( ) = 'procode' AND Key = KeyEnter! THEN
//		ls_procode = dw_uc.Object.procode[dw_uc.GetRow()]
//		SELECT code,name
//			INTO :ls_procode_f,:ls_proname_f
//			FROM u_sc_workprocedure
//			Where code Like :ls_procode;
//		IF sqlca.SQLCode <> 0 THEN
//			
//		ELSE
//			
//			IF ll_ori_mtrlid <> ll_mtrlid AND ll_ori_mtrlid <> 0 THEN
//				IF MessageBox('询问','物料发生改变,明细列表将被清空,是否继续?',Question!,YesNo! ) = 2 THEN RETURN
//				dw_child.Reset()
//				dw_child.InsertRow(0)
//			END IF
//			dw_uc.Object.procode[dw_uc.GetRow()] = ll_mtrlid
//			dw_uc.Object.proname[dw_uc.GetRow()] = ls_mtrlcode
//			
//		END IF
		
	ELSE
		IF  Key = KeyEnter! THEN //
			keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
			keybd_event ( 9, 0, 2, 0 ) // 释放tab 
			RETURN 1
		END IF
	END IF
END IF





end event

event dw_uc::doubleclicked;IF dw_edit_mode AND row > 0  THEN
	IF dwo.Name = 'procode' or &
	dwo.name = 'proname' THEN
		PARENT.TriggerEvent('ue_f9')
	END IF
END IF

end event

type gb_2 from w_publ_1ton_share_detail`gb_2 within w_orderrqwp_change
integer x = 352
integer y = 396
integer width = 704
integer height = 400
long backcolor = 134217739
end type

type dw_child from w_publ_1ton_share_detail`dw_child within w_orderrqwp_change
integer y = 1120
integer width = 3589
integer height = 1052
string dataobject = "dw_orderrqwp_change_mx_edit"
end type

event dw_child::dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key')
Long child_row
String ls_procode,ls_proname
String ls_mtrlcode,ls_mtrlname,ls_mtrlmode,ls_mtrlsectype,ls_zxmtrlmode
Long ll_mtrlid

IF dw_edit_mode THEN
	IF KeyDown(Keydownarrow!) THEN
		Long li_row
		IF dw_child.GetRow() = dw_child.RowCount() THEN
			PARENT.TriggerEvent("insert_childrow")
		END IF
	ELSE
		If (KeyDown(keyenter!) OR KeyDown(keytab!)) AND NOT KeyDown(keycontrol!) AND NOT KeyDown(keyshift!) THEN
			IF THIS.GetColumnName() = 'u_mtrldef_mtrlcode' THEN
				dw_child.AcceptText()
				child_row = dw_child.GetRow()
				
				IF child_row > 0 THEN
					IF dw_child.Object.u_workprice_changemx_editflag[child_row] = 1 THEN
						ls_mtrlcode = dw_child.Object.u_mtrldef_mtrlcode[child_row]
						SELECT mtrlid,
							mtrlname,
							mtrlmode,
							mtrlsectype,
							zxmtrlmode
							INTO :ll_mtrlid,
							:ls_mtrlname,
							:ls_mtrlmode,
							:ls_mtrlsectype,
							:ls_zxmtrlmode
							FROM u_mtrldef
							Where mtrlcode = :ls_mtrlcode;
						IF sqlca.SQLCode <> 0 THEN
							PARENT.TriggerEvent('ue_f8')
						ELSE
							dw_child.Object.u_workprice_changemx_mtrlid[child_row] = ll_mtrlid
							dw_child.Object.u_mtrldef_mtrlname [child_row] = ls_mtrlname
							dw_child.Object.u_mtrldef_mtrlmode [child_row] = ls_mtrlmode
							dw_child.Object.u_mtrldef_mtrlsectype [child_row] = ls_mtrlsectype
							dw_child.Object.u_mtrldef_zxmtrlmode [child_row] = ls_zxmtrlmode
						END IF
						
					END IF
				END IF
			ELSEIF THIS.GetColumnName() = 'u_workprice_changemx_procode' THEN
				dw_child.AcceptText()
				child_row = dw_child.GetRow()
				
				IF child_row > 0 THEN
					IF dw_child.Object.u_workprice_changemx_editflag[child_row] = 1 THEN
						ls_procode = dw_child.Object.u_workprice_changemx_procode[child_row]
						SELECT u_sc_workprocedure.name
							INTO	:ls_proname
							FROM 	u_sc_workprocedure
							Where	( u_sc_workprocedure.code = :ls_procode);
						IF sqlca.SQLCode <> 0 THEN
							PARENT.TriggerEvent('ue_f9')
						ELSE
							dw_child.Object.u_workprice_changemx_proname[child_row]    = ls_proname
						END IF
					END IF
				END IF
			ELSEIF THIS.GetColumnName() = 'u_workprice_changemx_dscrp' AND dw_child.GetRow() = dw_child.RowCount() THEN
				PARENT.TriggerEvent("insert_childrow")
				RETURN 1
			ELSE
				IF Key = keyenter!  THEN //
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			END IF
		END IF
		
		
	END IF
END IF







end event

event dw_child::doubleclicked;dw_child.AcceptText()
IF dw_edit_mode AND row > 0 THEN
	IF dw_child.Object.u_orderrqwp_change_mx_editflag[row] = 0 THEN
		PARENT.TriggerEvent('ue_f7')
	ELSE
		IF dwo.name  = 'u_mtrldef_mtrlcode' or dwo.name  = 'u_saletask_taskcode' THEN
			PARENT.TriggerEvent('ue_f8')
		ELSEIF dwo.name  = 'u_orderrqwp_change_mx_procode' OR dwo.name  = 'u_orderrqwp_change_mx_proname' or dwo.name = 'u_orderrqwp_change_mx_proorder' THEN
			PARENT.TriggerEvent('ue_f9')
		ELSEIF dwo.name  = 'u_orderrqwp_change_mx_status' AND dw_child.Object.u_mtrldef_statusflag[row] = 2 THEN
			PARENT.TriggerEvent('ue_f12')
		END IF
	END IF
END IF



end event

type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_orderrqwp_change
integer x = 1723
end type

type cb_print from w_publ_1ton_share_detail`cb_print within w_orderrqwp_change
integer x = 1531
end type

type cb_add from w_publ_1ton_share_detail`cb_add within w_orderrqwp_change
end type

event cb_add::clicked;IF Not f_power_ind(1623,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

String arg_msg = ''
Long uc_row,i,count = 0

s_orderrqwp_change arg_s_change

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	dw_child.AcceptText()
	uc_row = dw_uc.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('系统提示','请选定当前目标单据!')
		RETURN
	END IF
	IF Not dw_uc.Object.billdate[uc_row] > DateTime(2000-01-01,Now()) THEN
		MessageBox('系统提示','不合理发生时间!')
		dw_uc.SetFocus()
		dw_uc.SetColumn("billdate")
		RETURN
	END IF
	
	IF dw_uc.Object.rep[uc_row] = '' THEN
		MessageBox('系统提示','请填写经手人!')
		dw_uc.SetFocus()
		dw_uc.SetColumn("rep")
		RETURN
	END IF
	
	
	arg_s_change.billid = dw_uc.Object.billid[uc_row]
	arg_s_change.billdate = dw_uc.Object.billdate[uc_row]
	arg_s_change.rep = dw_uc.Object.rep[uc_row]
	arg_s_change.dscrp = dw_uc.Object.dscrp[uc_row]
	arg_s_change.relcode = dw_uc.Object.relcode[uc_row]
	
	FOR i = 1 To dw_child.RowCount()
		IF dw_child.Object.u_orderrqwp_change_mx_relid[i] > 0  THEN
			
			IF dw_child.Object.u_orderrqwp_change_mx_procode[i] = '' Or &
				dw_child.Object.u_orderrqwp_change_mx_proname[i] = '' THEN
				MessageBox('系统提示','工序号或工序名称不能为空,第'+String(i)+'行')
				RETURN
			END IF
			
			IF dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[i] = 0 THEN
				MessageBox('系统提示','请选择工组,第'+String(i)+'行')
				RETURN
			END IF
			
			IF Trim(dw_child.Object.u_orderrqwp_change_mx_status[i]) <> '' THEN
				IF Pos(dw_child.Object.u_order_ml_status_mode[i],dw_child.Object.u_orderrqwp_change_mx_status[i]) <= 0 THEN
					MessageBox('系统提示','第'+String(i)+'行,与选的工序组合配置与指令单的组合配置不相符,请检查')
					RETURN
				END IF
			END IF
			
			count++
			arg_s_change.arg_s_mx[count].printid   = count
			arg_s_change.arg_s_mx[count].mtrlid   = dw_child.Object.u_orderrqwp_change_mx_mtrlid[i]
			arg_s_change.arg_s_mx[count].proqty_ori   = dw_child.Object.u_orderrqwp_change_mx_proqty_ori[i]
			arg_s_change.arg_s_mx[count].proqty   = dw_child.Object.u_orderrqwp_change_mx_proqty[i]
			arg_s_change.arg_s_mx[count].workprice_ori   = dw_child.Object.u_orderrqwp_change_mx_workprice_ori[i]
			arg_s_change.arg_s_mx[count].workprice   = dw_child.Object.u_orderrqwp_change_mx_workprice[i]
			arg_s_change.arg_s_mx[count].wrkgrpid   = dw_child.Object.u_orderrqwp_change_mx_wrkgrpid[i]
			arg_s_change.arg_s_mx[count].dscrp   = dw_child.Object.u_orderrqwp_change_mx_dscrp[i]
			arg_s_change.arg_s_mx[count].procode   = dw_child.Object.u_orderrqwp_change_mx_procode[i]
			arg_s_change.arg_s_mx[count].proname   = dw_child.Object.u_orderrqwp_change_mx_proname[i]
			arg_s_change.arg_s_mx[count].proorder   = dw_child.Object.u_orderrqwp_change_mx_proorder[i]
			arg_s_change.arg_s_mx[count].status   = dw_child.Object.u_orderrqwp_change_mx_status[i]
			arg_s_change.arg_s_mx[count].ifjd   = dw_child.Object.u_orderrqwp_change_mx_ifjd[i]
			arg_s_change.arg_s_mx[count].scid   = dw_child.Object.u_orderrqwp_change_mx_scid[i]
			arg_s_change.arg_s_mx[count].relid   = dw_child.Object.u_orderrqwp_change_mx_relid[i]
			arg_s_change.arg_s_mx[count].relprintid   = dw_child.Object.u_orderrqwp_change_mx_relprintid[i]
			arg_s_change.arg_s_mx[count].editflag   = dw_child.Object.u_orderrqwp_change_mx_editflag[i]
			arg_s_change.arg_s_mx[count].lastflag   = dw_child.Object.u_orderrqwp_change_mx_lastflag[i]
			
		END IF
	NEXT
	
	IF uo_change.Save(arg_s_change,publ_operator,arg_msg,True) = 0 THEN
		MessageBox('error!',arg_msg)
		RETURN
	END IF
	MessageBox(publ_operator,'保存操作成功!')
	
	Long ll_row
	ll_row = dw_pageretr.GetRow()
	dw_pageretr.SelectRow(0,False)
	dw_pageretr.SelectRow(ll_row,True)
	
	wf_refresh_curuc(uo_change.uo_billid) //刷新uc
ELSE
	IF cur_scid < 0 THEN
		MessageBox('error!',"请选择分部")
		RETURN
	END IF
END IF

CALL Super::Clicked

IF dw_edit_mode THEN
	Parent.TriggerEvent("insert_childrow")
	dw_uc.SetRedraw(False)
	dw_uc.SetRedraw(True)
	
ELSE
	Parent.TriggerEvent("retrieve_childdw")
END IF

This.TriggerEvent('refresh_interface')



end event

type cb_edit from w_publ_1ton_share_detail`cb_edit within w_orderrqwp_change
end type

event cb_edit::clicked;IF NOT f_power_ind(1623,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

String arg_msg = ''
Long uc_row

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF

IF NOT dw_edit_mode THEN
	IF uo_change.updatebegin(dw_pageretr.Object.billid[uc_row],arg_msg) = 0 THEN
		MessageBox('Error!',arg_msg)
		RETURN
	END IF
	
	wf_refresh_curuc(dw_pageretr.Object.billid[uc_row]) //刷新uc

	PARENT.TriggerEvent("retrieve_childdw")

END IF

CALL SUPER::Clicked

end event

type cb_delet from w_publ_1ton_share_detail`cb_delet within w_orderrqwp_change
end type

event cb_delet::clicked;IF NOT f_power_ind(1624,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF


IF dw_edit_mode THEN RETURN

String arg_msg = ''
Long uc_row

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF

IF MessageBox ("IF","是否确定要删除当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN

IF uo_change.del(dw_pageretr.Object.billid[uc_row],arg_msg,TRUE) = 0 THEN
	MessageBox('Error!',arg_msg)
ELSE
	//日志
	Long ls_id
	String ls_code
	ls_id = dw_pageretr.Object.billid[uc_row]
	ls_code = dw_pageretr.Object.billcode[uc_row]
	f_setsysoplog('生产指令单工序变更单 ','生产指令单工序变更单 删除,ID:'+String(ls_id)+',code:'+ls_code,arg_msg,TRUE)
	//--
	MessageBox(publ_operator,'删除单据'+String(dw_pageretr.Object.billcode[uc_row])+'成功!')
	dw_pageretr.DeleteRow(uc_row)
	dw_pageretr.Triggerevent(rowfocuschanged!)
END IF

end event

type cb_addzy from w_publ_1ton_share_detail`cb_addzy within w_orderrqwp_change
integer x = 1029
end type

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

IF NOT dw_edit_mode THEN
	menustr = "Text=增加备注~tEvent=ue_addzy"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=复制单据~tEvent=ue_bill_copy"
ELSE
	menustr = "Text=粘贴单据~tEvent=ue_bill_paste"
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_auditing from w_publ_1ton_share_detail`cb_auditing within w_orderrqwp_change
end type

event cb_auditing::clicked;call super::clicked;IF NOT f_power_ind(1625,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

IF dw_edit_mode THEN RETURN
String arg_msg = ''
Long pagerert_row
Long ll_billid

pagerert_row = dw_pageretr.GetRow()

IF pagerert_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF

IF MessageBox ("询问","是否确定要审核当前单据吗(审核后单据将归档只读)?",Question!,YesNo! ) = 2 THEN RETURN

ll_billid = dw_pageretr.Object.billid[pagerert_row]

IF uo_change.audit(ll_billid,publ_operator,arg_msg,TRUE) = 0 THEN
	MessageBox('Error!',arg_msg)
ELSE
	MessageBox(publ_operator,'审核成功!')
	wf_refresh_curuc(dw_pageretr.Object.billid[pagerert_row])
END IF


end event

type cb_xm from w_publ_1ton_share_detail`cb_xm within w_orderrqwp_change
integer x = 1280
end type

event cb_xm::clicked;is_mx_menustr = ''
IF dw_edit_mode THEN
	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置类型~tEvent=ue_p_editflag"
	is_mx_menustr = is_mx_menustr + "|" + "Text=-"
	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置工序~tEvent=ue_p_pro"
	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置数量~tEvent=ue_p_workqty"
	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置新单件工价~tEvent=ue_p_workprice"
	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置工组~tEvent=ue_p_wrkgrpid"
	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置配置~tEvent=ue_p_status"
	is_mx_menustr = is_mx_menustr + "|" + "Text=按比例设置新单件工价~tEvent=ue_p_rate_price"
	
END IF

CALL Super::Clicked


end event

type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_orderrqwp_change
end type

type cb_xls from w_publ_1ton_share_detail`cb_xls within w_orderrqwp_change
integer x = 1915
end type

type cb_help from w_publ_1ton_share_detail`cb_help within w_orderrqwp_change
integer x = 2217
end type

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_orderrqwp_change
boolean visible = false
integer x = 3209
boolean enabled = false
end type

type p_msg from w_publ_1ton_share_detail`p_msg within w_orderrqwp_change
end type

type p_help from w_publ_1ton_share_detail`p_help within w_orderrqwp_change
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_orderrqwp_change
end type

type p_other from w_publ_1ton_share_detail`p_other within w_orderrqwp_change
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_orderrqwp_change
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_orderrqwp_change
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_orderrqwp_change
end type

type r_bar from w_publ_1ton_share_detail`r_bar within w_orderrqwp_change
integer x = 3310
end type

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_orderrqwp_change
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_orderrqwp_change
end type

type st_2 from statictext within w_orderrqwp_change
integer x = 1618
integer y = 204
integer width = 178
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "状态"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_status from dropdownlistbox within w_orderrqwp_change
integer x = 1806
integer y = 188
integer width = 480
integer height = 300
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 sorted = false
string item[] = {"[全部]","待审核","已审核"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;if index=1 then
	cur_flag=-1
elseif index=2 then
	cur_flag= 0 
elseif index=3 then
	cur_flag= 1	
end if

parent.triggerevent("retrieve_pageretr")
end event

type st_3 from statictext within w_orderrqwp_change
integer x = 805
integer y = 200
integer width = 165
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "分部"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_scid from uo_ddlb_scid within w_orderrqwp_change
integer x = 978
integer y = 188
integer width = 549
integer height = 1120
integer taborder = 20
boolean bringtotop = true
long textcolor = 0
long backcolor = 16777215
end type

event constructor;call super::constructor;cur_scid=this.uo_scid
end event

event selectionchanged;call super::selectionchanged;cur_scid=this.uo_scid
parent.triggerevent("retrieve_pageretr")
end event