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

$PBExportHeader$w_workprice_change.srw
forward
global type w_workprice_change from w_publ_1ton_share_detail
end type
type st_2 from statictext within w_workprice_change
end type
type ddlb_status from dropdownlistbox within w_workprice_change
end type
end forward

global type w_workprice_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_editflag ( )
event ue_p_workqty ( )
event ue_p_workprice ( )
event ue_p_status ( )
event ue_p_pro ( )
event ue_p_lsxtype ( )
event ue_p_workhour ( )
event ue_p_rate_price ( )
st_2 st_2
ddlb_status ddlb_status
end type
global w_workprice_change w_workprice_change

type variables

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

uo_workprice_change uo_workprice
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_workprice_changemx_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() < 1 THEN RETURN

Long ll_wrkgrpid 
ll_wrkgrpid = dw_child.Object.u_workprice_changemx_wrkgrpid[1] //工组 

IF ll_wrkgrpid = 0 THEN RETURN


//相同工组才设定
dw_child.SetRedraw(False)
FOR ll_i = 2 To dw_child.RowCount()
	dw_child.Object.u_workprice_changemx_wrkgrpid[ll_i] = ll_wrkgrpid 
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_workprice_changemx_editflag[ll_i] = dw_child.Object.u_workprice_changemx_editflag[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_workprice_changemx_workqty[ll_i] = dw_child.Object.u_workprice_changemx_workqty[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_workprice_changemx_workprice[ll_i] = dw_child.Object.u_workprice_changemx_workprice[1]
	
NEXT

dw_child.SetRedraw(TRUE)


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_workprice_changemx_status [1] = '' THEN RETURN

dw_child.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_child.RowCount()
	
	IF dw_child.Object.u_mtrldef_statusflag [ll_i] <> 2 THEN CONTINUE
	IF ll_i = 1 THEN CONTINUE
	dw_child.Object.u_workprice_changemx_status[ll_i] = dw_child.Object.u_workprice_changemx_status[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_workprice_changemx_editflag[ll_i] = 0 THEN CONTINUE
	dw_child.Object.u_workprice_changemx_procode[ll_i] = dw_child.Object.u_workprice_changemx_procode[1]
	dw_child.Object.u_workprice_changemx_proname[ll_i] = dw_child.Object.u_workprice_changemx_proname[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_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_workprice_changemx_workprice[ll_row] = Round(dw_child.Object.u_workprice_changemx_workprice_ori[ll_row] + ld_rate,ll_dec)
	ELSEIF ll_way = 1 THEN
		dw_child.Object.u_workprice_changemx_workprice[ll_row] = Round(dw_child.Object.u_workprice_changemx_workprice_ori[ll_row] - ld_rate,ll_dec)
	ELSEIF ll_way = 2 THEN
		dw_child.Object.u_workprice_changemx_workprice[ll_row] = Round(dw_child.Object.u_workprice_changemx_workprice_ori[ll_row] * ld_rate,ll_dec)
	ELSEIF ll_way = 3 THEN
		dw_child.Object.u_workprice_changemx_workprice[ll_row] = Round(dw_child.Object.u_workprice_changemx_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_workprice_changemx_workprice[ll_i] = Round(dw_child.Object.u_workprice_changemx_workprice_ori[ll_i] + ld_rate,ll_dec)
		ELSEIF ll_way = 1 THEN
			dw_child.Object.u_workprice_changemx_workprice[ll_i] = Round(dw_child.Object.u_workprice_changemx_workprice_ori[ll_i] - ld_rate,ll_dec)
		ELSEIF ll_way = 2 THEN
			dw_child.Object.u_workprice_changemx_workprice[ll_i] = Round(dw_child.Object.u_workprice_changemx_workprice_ori[ll_i] * ld_rate,ll_dec)
		ELSEIF ll_way = 3 THEN
			dw_child.Object.u_workprice_changemx_workprice[ll_i] = Round(dw_child.Object.u_workprice_changemx_workprice_ori[ll_i] / ld_rate,ll_dec)
		END IF
	NEXT
	dw_child.SetRedraw(TRUE)
END IF




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

DateTime billdate
String	rep
String	relcode
String	dscrp
Long	flag
String procode
String proname
DateTime	opdate
String	opemp
DateTime	moddate
String	modemp
DateTime	auditingdate
String	auditingrep
String	billcode

SELECT billdate,
	rep,
	relcode,
	dscrp,
	flag,
	procode,
	proname,
	opdate,
	opemp,
	moddate,
	modemp,
	auditingdate,
	auditingrep,
	billcode
	INTO
	:billdate,
	:rep,
	:relcode,
	:dscrp,
	:flag,
	:procode,
	:proname,
	:opdate,
	:opemp,
	:moddate,
	:modemp,
	:auditingdate,
	:auditingrep,
	:billcode
	FROM u_workprice_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.billcode[uc_row] = billcode
dw_pageretr.Object.procode[uc_row] = procode
dw_pageretr.Object.proname[uc_row] = proname
dw_pageretr.Object.rep[uc_row] = rep
dw_pageretr.Object.relcode[uc_row] = relcode
dw_pageretr.Object.dscrp[uc_row] = dscrp
dw_pageretr.Object.flag[uc_row] = flag
dw_pageretr.Object.billdate[uc_row] = billdate
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.auditingdate[uc_row] = auditingdate
dw_pageretr.Object.auditingrep[uc_row] = auditingrep
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_workprice_change.create
int iCurrent
call super::create
this.st_2=create st_2
this.ddlb_status=create ddlb_status
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.ddlb_status
end on

on w_workprice_change.destroy
call super::destroy
destroy(this.st_2)
destroy(this.ddlb_status)
end on

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

uo_workprice = create uo_workprice_change
end event

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

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

ddlb_status.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_workprice_change.billcode like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(u_workprice_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;
IF NOT f_power_ind(1346)  THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

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

S_print_MSG LS_PRMSG

IF ls_newname <> '' THEN
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_prdpf_change_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(1346)  THEN
//		MessageBox(publ_operator,'你没有使用权限！')
//		RETURN
//	END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_workprice_change_print'
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 = 15
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = 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;//用于选择明细内容,被f8[默认]\dw_child.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN
Long child_row

String ls_sonmtrlname
child_row = dw_child.GetRow()
Decimal i_newprice

long uc_row
uc_row = dw_uc.GetRow()

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


IF NOT IsValid(w_mtrldef_edit) THEN
	s_edit_index_tran s_tranf8 //传递参数使用
	s_tranf8.if_retrieve_all = FALSE  //是否一次retrieve所有行
	s_tranf8.work_mode = 1            //0-单纯编辑模式 1-选择\编辑模式
	s_tranf8.arg_pkid = 0             //目标定位pkid (备用)
	s_tranf8.arg_string_code = ''     //查询列(物料编码)部分内容,用于初步筛选 
	s_tranf8.if_select_all = TRUE     //多选
	s_tranf8.b_long = 0               //选产品
	s_tranf8.f_long = -1
	
	Long ls_j
	IF dw_child.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_child.Object.u_mtrldef_mtrlcode[dw_child.GetRow()])
	OpenWithParm(w_mtrldef_edit,s_tranf8) //调用
	
	s_mtrldef_array s_inscust
	s_inscust = Message.PowerObjectParm //接受返回结构
	

	FOR ls_j = 1 TO  UpperBound(s_inscust.mtrlid)
		IF s_inscust.mtrlid[ls_j] > 0 THEN //正常返回值则可以取以下值
			IF dw_child.GetRow() > 0 THEN
				IF dw_child.Object.u_workprice_changemx_mtrlid[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_workprice_changemx_editflag[child_row] = 1
			dw_child.Object.u_workprice_changemx_mtrlid[child_row] = s_inscust.mtrlid[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_mtrlmode [child_row] = s_inscust.mtrlmode[ls_j]
			dw_child.Object.u_mtrldef_mtrlsectype [child_row] = s_inscust.mtrlsectype[ls_j]
			dw_child.Object.u_mtrldef_zxmtrlmode [child_row] = s_inscust.zxmtrlmode[ls_j]
			
		END IF
	NEXT
	dw_child.SetFocus()
	dw_child.SetColumn ('u_mtrldef_mtrlcode')
END IF



end event

event ue_print;call super::ue_print;//--直接打印
IF NOT f_power_ind(1346)  THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

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


S_print_MSG LS_PRMSG

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

IF ls_newname <> '' THEN
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_prdpf_change_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(1346)  THEN
//		MessageBox(publ_operator,'你没有使用权限！')
//		RETURN
//	END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_workprice_change_print'
END IF

if LS_PRMSG.obj_dwNAME = '' then return

LS_PRMSG.retr_pram_falg = 15
LS_PRMSG.printrow = ll_prownum
LS_PRMSG.TAG_TEXT = '工价表变更单 '
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = 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(1345) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	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_workprice.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_workprice_changemx_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_workprice_changemx_procode[child_row] = S_INSCUST.wrkprocode[ls_j]
			dw_child.Object.u_workprice_changemx_proname[child_row] = S_INSCUST.wrkproname[ls_j]
			
		END IF
	NEXT
	dw_child.SetColumn("u_workprice_changemx_workqty")
	dw_child.SetFocus()
END IF




end event

event ue_f7;call super::ue_f7;//用于选择明细内容,被F8[默认]\dw_child.doubleclicked调用
IF NOT dw_edit_mode THEN RETURN

Long child_row,uc_row
child_row = dw_child.GetRow()
uc_row = dw_uc.GetRow()

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

IF NOT IsValid(w_workprice_pro_page_ch) 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 = '' //查询列(物料编码)部分内容,用于初步筛选
	
	Long chc = 1,ls_j
	dw_child.AcceptText()

	OpenWithParm(w_workprice_pro_page_ch,s_ch_tran)
	
	s_workpricetable_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.mtrlid)
		IF S_INSCUST.mtrlid[ls_j] > 0 THEN
			IF dw_child.GetRow() > 0 THEN
				IF dw_child.Object.u_workprice_changemx_mtrlid[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_workprice_changemx_editflag[child_row] = 0
			dw_child.Object.u_mtrldef_mtrlcode[child_row] = S_INSCUST.mtrlcode[ls_j]
			dw_child.Object.u_workprice_changemx_mtrlid[child_row] = S_INSCUST.mtrlid[ls_j]
			dw_child.Object.u_mtrldef_mtrlname[child_row] = S_INSCUST.mtrlname[ls_j]
			dw_child.Object.u_mtrldef_mtrlmode[child_row] = S_INSCUST.mtrlmode[ls_j]
			dw_child.Object.u_mtrldef_mtrlsectype[child_row] = S_INSCUST.mtrlsectype[ls_j]
			dw_child.Object.u_mtrldef_zxmtrlmode[child_row] = S_INSCUST.zxmtrlmode[ls_j]
			dw_child.object.u_workprice_changemx_workqty_ori[child_row] = s_inscust.workqty[ls_j]
			dw_child.object.u_workprice_changemx_workqty[child_row] = s_inscust.workqty[ls_j]
			dw_child.object.u_workprice_changemx_workprice_ori[child_row] = s_inscust.workprice[ls_j]
			dw_child.object.u_workprice_changemx_workprice[child_row] = s_inscust.workprice[ls_j]
			dw_child.object.u_workprice_changemx_wrkgrpid[child_row] = s_inscust.wrkgrpid[ls_j]
			dw_child.object.u_workprice_changemx_ifstandard[child_row] = s_inscust.ifstandard[ls_j]
			dw_child.object.u_workprice_changemx_lsxtype[child_row] = s_inscust.lsxtype[ls_j]
			dw_child.object.u_workprice_changemx_lastflag[child_row] = s_inscust.lastflag[ls_j]
			dw_child.object.u_workprice_changemx_workhour[child_row] = s_inscust.workhour[ls_j]
			dw_child.object.u_workprice_changemx_worklevel[child_row] = s_inscust.worklevel[ls_j]
			dw_child.object.u_workprice_changemx_techlevel[child_row] = s_inscust.techlevel[ls_j]
			dw_child.object.u_workprice_changemx_dscrp[child_row] = s_inscust.dscrp[ls_j]
			dw_child.object.u_workprice_changemx_procode[child_row] = s_inscust.procode[ls_j]
			dw_child.object.u_workprice_changemx_proname[child_row] = s_inscust.proname[ls_j]
			dw_child.object.u_workprice_changemx_status[child_row] = s_inscust.status[ls_j]

		END IF
	NEXT

	dw_child.SetFocus()
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_workprice_changemx_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_workprice_changemx_status[child_row] = ls_status
//		dw_child.SetFocus()
//		dw_child.SetColumn('u_workprice_changemx_workqty')
//	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

type cb_func from w_publ_1ton_share_detail`cb_func within w_workprice_change
end type

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

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

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

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

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_workprice_change
integer x = 1984
integer width = 1609
integer height = 924
string dataobject = "dw_workprice_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_workprice_change
integer x = 0
alignment alignment = right!
end type

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

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_workprice_change
integer width = 1979
integer height = 920
string dataobject = "dw_workprice_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_workprice_changemx_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_workprice_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_workprice_change
integer y = 1220
integer width = 3589
integer height = 952
string dataobject = "dw_workprice_changemx_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_workprice_changemx_editflag[row] = 0 THEN
		PARENT.TriggerEvent('ue_f7')
	ELSE
		IF dw_child.GetColumnName( ) = 'u_mtrldef_mtrlcode' THEN
			PARENT.TriggerEvent('ue_f8')
		ELSEIF dw_child.GetColumnName( ) = 'u_workprice_changemx_procode' OR dw_child.GetColumnName( ) = 'u_workprice_changemx_proname' THEN
			PARENT.TriggerEvent('ue_f9')
		ELSEIF dw_child.GetColumnName( ) = 'u_workprice_changemx_status' THEN
			PARENT.TriggerEvent('ue_f12')
		END IF
	END IF
ELSE
	PARENT.TriggerEvent('ue_f6')
END IF


end event

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

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

type cb_add from w_publ_1ton_share_detail`cb_add within w_workprice_change
end type

event cb_add::clicked;IF NOT f_power_ind(1342) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

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


s_workprice_change arg_s_work

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_work.billid = dw_uc.Object.billid[uc_row]
	arg_s_work.billdate = dw_uc.Object.billdate[uc_row]
	arg_s_work.rep = dw_uc.Object.rep[uc_row]
	arg_s_work.dscrp = dw_uc.Object.dscrp[uc_row]
	arg_s_work.relcode = dw_uc.Object.relcode[uc_row]
	
	FOR i = 1 TO dw_child.RowCount()
		IF dw_child.Object.u_workprice_changemx_mtrlid[i] > 0 AND &
			dw_child.Object.u_workprice_changemx_workqty[i] >= 0 THEN
			
			IF dw_child.Object.u_workprice_changemx_procode[i] = '' OR &
				dw_child.Object.u_workprice_changemx_proname[i] = '' THEN
				MessageBox('系统提示','工序号或工序名称不能为空,第'+String(i)+'行')
				RETURN
			END IF
			
			count++
			arg_s_work.arg_s_mx[count].printid   = count
			arg_s_work.arg_s_mx[count].mtrlid   = dw_child.Object.u_workprice_changemx_mtrlid[i]
			arg_s_work.arg_s_mx[count].editflag   = dw_child.Object.u_workprice_changemx_editflag[i]
			arg_s_work.arg_s_mx[count].workqty_ori   = dw_child.Object.u_workprice_changemx_workqty_ori[i]
			arg_s_work.arg_s_mx[count].workqty   = dw_child.Object.u_workprice_changemx_workqty[i]
			arg_s_work.arg_s_mx[count].workprice_ori   = dw_child.Object.u_workprice_changemx_workprice_ori[i]
			arg_s_work.arg_s_mx[count].workprice   = dw_child.Object.u_workprice_changemx_workprice[i]
			arg_s_work.arg_s_mx[count].wrkgrpid   = dw_child.Object.u_workprice_changemx_wrkgrpid[i]
			arg_s_work.arg_s_mx[count].ifstandard   = dw_child.Object.u_workprice_changemx_ifstandard[i]
			arg_s_work.arg_s_mx[count].lsxtype   = dw_child.Object.u_workprice_changemx_lsxtype[i]
			arg_s_work.arg_s_mx[count].lastflag   = dw_child.Object.u_workprice_changemx_lastflag[i]
			arg_s_work.arg_s_mx[count].workhour   = dw_child.Object.u_workprice_changemx_workhour[i]
			arg_s_work.arg_s_mx[count].dscrp   = dw_child.Object.u_workprice_changemx_dscrp[i]
			arg_s_work.arg_s_mx[count].worklevel   = dw_child.Object.u_workprice_changemx_worklevel[i]
			arg_s_work.arg_s_mx[count].techlevel   = dw_child.Object.u_workprice_changemx_techlevel[i]
			arg_s_work.arg_s_mx[count].procode   = dw_child.Object.u_workprice_changemx_procode[i]
			arg_s_work.arg_s_mx[count].proname   = dw_child.Object.u_workprice_changemx_proname[i]
			arg_s_work.arg_s_mx[count].status   = dw_child.Object.u_workprice_changemx_status[i]
			
		END IF
	NEXT
	
	IF uo_workprice.Save(arg_s_work,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_workprice.uo_billid) //刷新uc
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_workprice_change
end type

event cb_edit::clicked;IF NOT f_power_ind(1342) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	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_workprice.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_workprice_change
end type

event cb_delet::clicked;IF NOT f_power_ind(1343) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	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_workprice.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_workprice_change
integer x = 1029
end type

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

menustr = "Text=增加备注~tEvent=ue_addzy"

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_workprice_change
end type

event cb_auditing::clicked;call super::clicked;IF NOT f_power_ind(1344) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	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_workprice.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_workprice_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_workqty"
	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置新单件工价~tEvent=ue_p_workprice"
	is_mx_menustr = is_mx_menustr + "|" + "Text=-"
	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置工组~tEvent=ue_p_wrkgrpid"
	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置工序~tEvent=ue_p_pro"
//	is_mx_menustr = is_mx_menustr + "|" + "Text=-"
//	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置打印流水表类型~tEvent=ue_p_lsxtype"
//	is_mx_menustr = is_mx_menustr + "|" + "Text=批设置工时~tEvent=ue_p_workhour"
	is_mx_menustr = is_mx_menustr + "|" + "Text=-"
	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_workprice_change
end type

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

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

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_workprice_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_workprice_change
end type

type p_help from w_publ_1ton_share_detail`p_help within w_workprice_change
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_workprice_change
end type

type p_other from w_publ_1ton_share_detail`p_other within w_workprice_change
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_workprice_change
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_workprice_change
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_workprice_change
end type

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

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_workprice_change
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_workprice_change
end type

type st_2 from statictext within w_workprice_change
integer x = 805
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_workprice_change
integer x = 1019
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