FXApp/ws_objects/l1_uo.pbl.src/uo_scwg_taskwork_2.sru

$PBExportHeader$uo_scwg_taskwork_2.sru
forward
global type uo_scwg_taskwork_2 from nonvisualobject
end type
end forward

global type uo_scwg_taskwork_2 from nonvisualobject
end type
global uo_scwg_taskwork_2 uo_scwg_taskwork_2

type variables
PUBLIC PROTECTEDWRITE Long billid
PUBLIC PROTECTEDWRITE Long scid
PUBLIC PROTECTEDWRITE String billcode
PUBLIC PROTECTEDWRITE DateTime opdate
PUBLIC PROTECTEDWRITE String opemp
PUBLIC PROTECTEDWRITE DateTime moddate
PUBLIC PROTECTEDWRITE String modemp
PUBLIC PROTECTEDWRITE Int flag
PUBLIC PROTECTEDWRITE DateTime auditingdate
PUBLIC PROTECTEDWRITE String auditingrep
PUBLIC PROTECTEDWRITE Int affirmflag
PUBLIC PROTECTEDWRITE DateTime affirmdate
PUBLIC PROTECTEDWRITE String affirmemp

Int billtype
DateTime billdate
String dscrp
Long wagemth
String rep
String relcode
Long wageid
Long wrkgrpid
string relempstr
long relid
long wkpid 

Boolean if_getid_ture = false
s_scwg_taskwork_2 taskworkmx[]
Transaction  commit_transaction

Long it_mxbt = 0
Boolean it_newbegin = FALSE
Boolean it_updatebegin = FALSE

Int uo_option_taskwork_not_affirm
Int uo_option_taskwork2_noorder
Int uo_option_taskwork_person_noorder
Int uo_option_taskwork_procode_order
Int uo_option_taskwork_price_if_mod
Int uo_option_if_taskwork_acmpqty
int uo_option_check_noworkprice
end variables

forward prototypes
public function integer p_clearmx ()
public function integer p_reset ()
public function integer updatebegin (long arg_billid, ref string arg_msg)
public function integer save (ref string arg_msg, boolean arg_ifcommit)
public function integer newbegin (long arg_scid, ref string arg_msg)
public function integer add_dscrp (long arg_billid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit)
public function integer affirm (long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer c_affirm (long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer p_getinfo (long arg_billid, ref string arg_msg)
public function integer getinfo (long arg_billid, string arg_msg)
public function integer auditmx_1 (long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer cauditmx_1 (long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer auditing_0 (long arg_wageid, long arg_wagemth, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit)
public function integer auditing_2 (long arg_wageid, long arg_wagemth, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit)
public function integer c_auditing_0 (long arg_wageid, long arg_wagemth, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit)
public function integer c_auditing_2 (long arg_wageid, long arg_wagemth, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit)
public function integer del (long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function decimal uo_wage_fp_formula (string arg_formula, decimal arg_amt, decimal arg_assignamt, decimal arg_assignamt_sm, decimal arg_assignscore, decimal arg_assignscore_sm, decimal arg_assignday, decimal arg_assignday_sm)
public function integer acceptmx (long arg_mtrlid, string arg_procode, string arg_proname, decimal arg_qty, decimal arg_price, string arg_mxdscrp, ref string arg_msg, long arg_printid, string arg_status, string arg_woodcode, string arg_pcode, string arg_ycreason, long arg_orderid, string arg_reason, string arg_unit, decimal arg_failqty, decimal arg_facthours, string arg_wpcode)
public function integer auditing_1 (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg, boolean arg_ifcommit)
public function integer c_auditing_1 (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg, boolean arg_ifcommit)
end prototypes

public function integer p_clearmx ();//INT p_clearmx()
//清除明细
it_mxbt=0
RETURN 1
end function

public function integer p_reset ();//INT p_RESET()
//清除对象及其明细 

billid=0
billcode=''
opemp=''
auditingrep=''
flag=0
wagemth=0      
rep=""    
wageid=0       
dscrp=''    
relcode=''
wkpid = 0 

it_newbegin=FALSE
it_updatebegin=FALSE
//清除明细
P_CLEARMX()
RETURN 1
end function

public function integer updatebegin (long arg_billid, ref string arg_msg);int rslt = 1

if arg_billid <= 0 then
	rslt = 0 
	goto ext
end if

if p_getinfo(arg_billid,arg_msg) = 0 then 
	rslt = 0 
	goto ext 
end if 

IF affirmflag = 1 THEN
	rslt = 0
	arg_msg = '单据已经确认,不可以修改'
	GOTO ext
END IF

if flag = 1 then
	rslt = 0
	arg_msg = '单据已经审核,不可以修改'
	goto ext
end if

billid = arg_billid
p_clearmx()

it_newbegin = false
it_updatebegin = true

ext:
if  rslt = 0 then p_reset()
return rslt





end function

public function integer save (ref string arg_msg, boolean arg_ifcommit);Integer rslt = 1,cnt = 0,i
DateTime server_dt
Long ls_newid

IF IsNull(wageid)	 THEN wageid = 0
IF IsNull(wrkgrpid) THEN wrkgrpid = 0
IF IsNull(relcode) THEN relcode = ''
IF IsNull(rep)	 THEN rep = ''
IF IsNull(wagemth)	 THEN wagemth = 0
IF IsNull(dscrp)	 THEN dscrp = ''
IF IsNull(relid)	 THEN relid = 0
IF IsNull(wkpid)	 THEN wkpid = 0

IF it_newbegin = FALSE AND it_updatebegin = FALSE THEN
	rslt = 0
	arg_msg = "非编辑状态不可以提交"
	GOTO ext
END IF

SELECT Top 1 getdate() INTO :server_dt FROM u_user USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF

IF it_mxbt = 0 THEN //
	rslt = 0
	arg_msg = "没有计件明细"
	GOTO ext
END IF

IF Year(Date(billdate)) < 2000 OR IsNull(billdate) THEN
	rslt = 0
	arg_msg = "缺少计件时间或不合理"
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM  u_gz_wageitem
	Where wageid = :wageid USING commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询工资项目失败!"
	GOTO ext
END IF
IF cnt <> 1 THEN
	rslt = 0
	arg_msg = "不存在工资项目!"
	GOTO ext
END IF

if trim(rep) = '' then 
	rslt = 0
	arg_msg = '请填写经手人'
	goto ext
end if

cnt = 0
IF billtype = 0 OR billtype = 2 THEN
	SELECT count(*) INTO :cnt
		FROM u_workgroup
		Where workgroupid = :wrkgrpid USING commit_transaction;
		
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询工作组失败!"
		GOTO ext
	END IF
	
	IF cnt <> 1 THEN
		rslt = 0
		arg_msg = "不存在工作组!"
		GOTO ext
	END IF
ELSEIF billtype = 1 THEN
	SELECT count(*) INTO :cnt
		FROM u_rs_empinfo
		Where empid = :wrkgrpid USING commit_transaction;
		
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "查询员工资料失败!"
		GOTO ext
	END IF
	
	IF cnt <> 1 THEN
		rslt = 0
		arg_msg = "不存在员工资料!"
		GOTO ext
	END IF
END IF

String ls_empname[]
Long ll_i,ll_j
ll_i = 1
relempstr = ''
IF billtype = 0 OR billtype = 2 THEN
	DECLARE cur_emp CURSOR FOR
		SELECT
		u_rs_empinfo.Empname
		FROM u_rs_empinfo,
		u_workgroupmx
		WHERE
		( u_rs_empinfo.empid = u_workgroupmx.empid ) AND
		(u_workgroupmx.workgroupid = :wrkgrpid);
		
	OPEN cur_emp;
	FETCH cur_emp INTO :ls_empname[ll_i];
	DO WHILE sqlca.SQLCode = 0
		ll_i++
		FETCH cur_emp INTO :ls_empname[ll_i];
	LOOP
	CLOSE cur_emp;
	
	FOR ll_j = 1 TO ll_i - 1
		relempstr = relempstr + ls_empname[ll_j] + ','
	NEXT
	
END IF

//cnt = 0
//SELECT count(*) INTO :cnt
//	FROM u_scwg_taskwork_2
//	WHERE flag = 1
//	AND wagemth = :wagemth
//	AND wrkgrpid = :wrkgrpid
//	AND billtype = :billtype
//	AND wageid = :wageid USING commit_transaction;
//IF commit_transaction.SQLCode <> 0 THEN
//	arg_msg = '查询本月是否有单审核失败,'+commit_transaction.SQLErrText
//	rslt = 0
//	GOTO ext
//END IF
//
//IF cnt > 0 THEN
//	arg_msg = '查询本月已有单审核,不能保存'
//	rslt = 0
//	GOTO ext
//END IF

////////////////////////////////////////////// //开始区分:新建/更新 处理
IF billid = 0 THEN //新建
	ls_newid = f_sys_scidentity(0,"u_scwg_taskwork_2","billid",arg_msg,TRUE,id_sqlca)
	IF ls_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	IF billtype = 0 THEN
		billcode = getid(0,"JW",Date(server_dt),if_getid_ture,commit_transaction) //取得新单据编号
	ELSEIF billtype = 1 THEN
		billcode = getid(0,"JP",Date(server_dt),if_getid_ture,commit_transaction) //取得新单据编号
	ELSEIF billtype = 2 THEN //工作组月分配异常计件单
		billcode = getid(0,"AW",Date(server_dt),if_getid_ture,commit_transaction) //取得新单据编号
	END IF
	
	IF billcode = "err" THEN
		billcode = ''
		rslt = 0
		arg_msg = "无法获取单据编号"
		GOTO ext
	END IF
	
	INSERT INTO u_scwg_taskwork_2 (
		billid,
		billdate,
		wagemth,
		rep,
		relcode,
		dscrp,
		scid,
		billcode,
		wrkgrpid,
		opemp,
		opdate,
		wageid,
		billtype,
		relempstr,
		relid,
		wkpid)
		VALUES (
		:ls_newid,
		:billdate,
		:wagemth,
		:rep,
		:relcode,
		:dscrp,
		:scid,
		:billcode,
		:wrkgrpid,
		:publ_operator,
		:server_dt ,
		:wageid,
		:billtype,
		:relempstr,
		:relid,
		:wkpid) USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "因网络或其它原因导致插入操作失败>>"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	//	
	billid = ls_newid
	
	FOR i = 1 TO it_mxbt
		INSERT INTO u_scwg_taskwork_2_mx (
			billid,
			procode,
			proname,
			qty,
			price,
			mxdscrp,
			mtrlid,
			printid,
			status,
			woodcode,
			pcode,
			ycreason,
			orderid,
			ordercode,
			reason,
			unit,
			failqty,
			facthours,
			wpcode)
			VALUES (
			:ls_newid,
			:taskworkmx[i].procode,
			:taskworkmx[i].proname,
			:taskworkmx[i].qty,
			:taskworkmx[i].price,
			:taskworkmx[i].mxdscrp,
			:taskworkmx[i].mtrlid,
			:taskworkmx[i].printid,
			:taskworkmx[i].status,
			:taskworkmx[i].woodcode,
			:taskworkmx[i].pcode,
			:taskworkmx[i].ycreason,
			:taskworkmx[i].orderid,
			:taskworkmx[i].ordercode,
			:taskworkmx[i].reason,
			:taskworkmx[i].unit,
			:taskworkmx[i].failqty,
			:taskworkmx[i].facthours,
			:taskworkmx[i].wpcode) USING commit_transaction;
			
		IF commit_transaction.SQLCode <> 0 THEN
			billid = 0 //还原noticeid
			rslt = 0
			arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+sqlca.SQLErrText
			ROLLBACK ;
			GOTO ext
		END IF
	NEXT
	
ELSE //////////////////////////////////////////////// //更新
	UPDATE u_scwg_taskwork_2
		SET  billdate = :billdate,
		wagemth = :wagemth,
		rep = :rep,
		relcode = :relcode,
		dscrp = :dscrp,
		billcode = :billcode,
		wrkgrpid = :wrkgrpid,
		modemp = :publ_operator,
		moddate = :server_dt,
		wageid = :wageid,
		relempstr = :relempstr,
		relid = :relid,
		wkpid = :wkpid
		WHERE billid = :billid
		AND flag  = 0 USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 OR commit_transaction.SQLNRows <= 0 THEN
		rslt = 0
		arg_msg = "因网络或其它原因导致更新单据操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	//	删除原有明细
	DELETE FROM u_scwg_taskwork_2_mx
		Where billid = :billid USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "删除旧有明细操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	FOR i = 1 TO it_mxbt
		INSERT INTO u_scwg_taskwork_2_mx (
			billid,
			procode,
			proname,
			qty,
			price,
			mxdscrp,
			mtrlid,
			printid,
			status,
			woodcode,
			pcode,
			ycreason,
			orderid,
			ordercode,
			reason,
			unit,
			failqty,
			facthours,
			wpcode)
			VALUES (
			:billid,
			:taskworkmx[i].procode,
			:taskworkmx[i].proname,
			:taskworkmx[i].qty,
			:taskworkmx[i].price,
			:taskworkmx[i].mxdscrp,
			:taskworkmx[i].mtrlid,
			:taskworkmx[i].printid,
			:taskworkmx[i].status,
			:taskworkmx[i].woodcode,
			:taskworkmx[i].pcode,
			:taskworkmx[i].ycreason,
			:taskworkmx[i].orderid,
			:taskworkmx[i].ordercode,
			:taskworkmx[i].reason,
			:taskworkmx[i].unit,
			:taskworkmx[i].failqty,
			:taskworkmx[i].facthours,
			:taskworkmx[i].wpcode) USING commit_transaction;
			
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+sqlca.SQLErrText
			GOTO ext
		END IF
	NEXT
	//	
END IF

it_newbegin = FALSE
it_updatebegin = FALSE

ext:
IF rslt = 0 THEN
	ROLLBACK;
	p_clearmx()
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT;
END IF

Return(rslt)



end function

public function integer newbegin (long arg_scid, ref string arg_msg);long rslt = 1 

if arg_scid < 0 then
	arg_msg = '请选择分部'
	rslt = 0
	goto ext
end if

p_reset()
scid=arg_scid

it_newbegin=TRUE
it_updatebegin=FALSE
ext:
if rslt = 0 then p_reset()
return rslt

end function

public function integer add_dscrp (long arg_billid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit);//====================================================================
// Function: add_dscrp(arg_billid,arg_newdescppart,arg_msg)
//--------------------------------------------------------------------
// Description: 
//--------------------------------------------------------------------
// Arguments: 
//		value    	long  	arg_billid      		
//		value    	string	arg_newdescppart		
//		reference	string	arg_msg         		
//--------------------------------------------------------------------
// Returns:  integer
//--------------------------------------------------------------------
// Author:	yyx		Date: 2003.11.21
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================


int rslt = 1
arg_newdescppart = trim(arg_newdescppart)

if arg_billid <= 0 then
	rslt = 0
	arg_msg = "没有删除对象,操作取消"
	goto ext
end if

if it_newbegin or it_updatebegin then
	rslt=0
   arg_msg="编辑状态下不可以执行,操作取消"
	goto ext
end if

if p_getinfo(arg_billid,arg_msg) = 0 then 
	rslt = 0 
	goto ext 
end if 

if flag = 0 then
	rslt = 0
	arg_msg = "非审核状态下不可用"
	goto ext
end if

update u_scwg_taskwork_2
	set dscrp = dscrp+' '+:arg_newdescppart
	where u_scwg_taskwork_2.billid = :billid
	using commit_transaction;
if commit_transaction.sqlcode <> 0 then
	rslt = 0
	arg_msg = "因网络或其它原因导致添加单据备注操作失败"+"~n"+sqlca.sqlerrtext
	goto ext
end if

dscrp = dscrp+' '+arg_newdescppart

ext:
if rslt = 0 then 
	rollback;
elseif rslt = 1 and arg_ifcommit then 
	commit;
end if 

return rslt

end function

public function integer affirm (long arg_billid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long i

uo_order_ml uo_ml
uo_ml = CREATE uo_order_ml

IF arg_billid = 0 THEN
	rslt = 0
	arg_msg = "没有审核对象"
	GOTO ext
END IF

IF getinfo(arg_billid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF affirmflag = 1 THEN
	rslt = 0
	arg_msg = '该单据已确认'
	GOTO ext
END IF

UPDATE u_scwg_taskwork_2
	SET affirmemp = :publ_operator,
	affirmdate = getdate(),
	affirmflag = 1
	WHERE u_scwg_taskwork_2.billid = :arg_billid
	AND affirmflag = 0
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致确认单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在确认,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

FOR i = 1 TO it_mxbt
	IF taskworkmx[i].orderid > 0 THEN
		IF uo_ml.uof_add_procode_qty(scid,taskworkmx[i].orderid,&
			taskworkmx[i].procode,billdate, taskworkmx[i].qty,arg_msg,FALSE) = 0 THEN
			arg_msg = '第'+string(i)+'行,'+arg_msg
			rslt = 0
			GOTO ext
		END IF
	END IF
NEXT

ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF

DESTROY uo_ml

RETURN rslt











end function

public function integer c_affirm (long arg_billid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
DateTime null_dt
SetNull(null_dt)

Long i

uo_order_ml uo_ml
uo_ml = CREATE uo_order_ml

IF arg_billid = 0 THEN
	rslt = 0
	arg_msg = "没有审核对象"
	GOTO ext
END IF

IF getinfo(arg_billid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF affirmflag = 0 THEN
	rslt = 0
	arg_msg = '该单据未确认,不能反确认'
	GOTO ext
END IF

UPDATE u_scwg_taskwork_2
	SET affirmemp = '',
	affirmdate = :null_dt,
	affirmflag = 0
	WHERE u_scwg_taskwork_2.billid = :arg_billid
	AND affirmflag = 1
	AND flag = 0
	USING commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "因网络或其它原因导致反确认单据操作失败"+"~n"+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在反确认,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

FOR i = 1 TO it_mxbt
	IF taskworkmx[i].orderid > 0 THEN
		IF uo_ml.uof_add_procode_qty(scid,taskworkmx[i].orderid,&
			taskworkmx[i].procode,billdate,0 - taskworkmx[i].qty,arg_msg,FALSE) = 0 THEN
			arg_msg = '第'+string(i)+'行,'+arg_msg
			rslt = 0
			GOTO ext
		END IF
	END IF
NEXT

ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF

DESTROY uo_ml

RETURN rslt



end function

public function integer p_getinfo (long arg_billid, ref string arg_msg);Int rslt = 1

IF arg_billid <= 0 THEN
	rslt = 0
	arG_MSG = "非法的单据唯一码"
	GOTO ext
END IF

SELECT billid,
	billdate,
	wagemth,
	rep,
	relcode,
	dscrp,
	scid,
	billcode,
	wrkgrpid,
	flag,
	affirmflag,
	scid,
	wageid
	INTO
	:billid,
	:billdate,
	:wagemth,
	:rep,
	:relcode,
	:dscrp,
	:scid,
	:billcode,
	:wrkgrpid,
	:flag,
	:affirmflag,
	:scid,
	:wageid
	FROM u_scwg_taskwork_2
	WHERE u_scwg_taskwork_2.billid = :arg_billid
	USING commit_transaction;
	
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arG_MSG = "查询操作失败(错误单据唯一码),单据"+commit_transaction.SQLErrText
	GOTO ext
END IF
billid = arg_billid

ext:
IF rslt = 0 THEN p_reset()
RETURN rslt

end function

public function integer getinfo (long arg_billid, string arg_msg);
Int rslt = 1
Long i = 1,no_mxcheck = 0

IF arg_billid <= 0 THEN
	rslt = 0
	arg_msg = "非法出仓单唯一码"
	GOTO ext
END IF

rslt = p_getinfo(arg_billid,arg_msg)
IF rslt = 0 THEN GOTO ext

//用游标读取明细
DECLARE cur_mx CURSOR FOR
	SELECT u_scwg_taskwork_2_mx.mtrlid,
	u_scwg_taskwork_2_mx.qty,
	u_scwg_taskwork_2_mx.orderid,
	u_scwg_taskwork_2_mx.ordercode,
	u_scwg_taskwork_2_mx.procode,
	u_scwg_taskwork_2_mx.price,
	u_scwg_taskwork_2_mx.wpcode
	FROM u_scwg_taskwork_2_mx
	WHERE u_scwg_taskwork_2_mx.billid = :arg_billid
	USING commit_transaction;
	
OPEN cur_mx;
FETCH cur_mx INTO :taskworkmx[i].mtrlid,:taskworkmx[i].qty,
	:taskworkmx[i].orderid,:taskworkmx[i].ordercode,
	:taskworkmx[i].procode,:taskworkmx[i].price,:taskworkmx[i].wpcode;
DO WHILE commit_transaction.SQLCode = 0
	i++
	FETCH cur_mx INTO :taskworkmx[i].mtrlid,:taskworkmx[i].qty,
		:taskworkmx[i].orderid,:taskworkmx[i].ordercode,
		:taskworkmx[i].procode,:taskworkmx[i].price,:taskworkmx[i].wpcode;
LOOP
CLOSE cur_mx;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_scwg_taskwork_2_mx
	WHERE u_scwg_taskwork_2_mx.billid = :arg_billid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,单据明细数量"
	GOTO ext
END IF

IF i <> (no_mxcheck+1) THEN
	rslt = 0
	arg_msg = "查询操作失败,单据明细"
	GOTO ext
END IF

billid = arg_billid

it_mxbt = i - 1
ext:
IF rslt = 0 THEN p_reset()
RETURN rslt

end function

public function integer auditmx_1 (long arg_billid, ref string arg_msg, boolean arg_ifcommit);//arg_wrkgrpid : -1 全部工作组

Long cnt,i
Int rslt = 1
Decimal ls_emp_sumwage
uo_wage u_wage
u_wage = CREATE uo_wage

IF uo_option_taskwork_not_affirm = -1000 THEN
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF


IF uo_option_check_noworkprice = -1000 THEN
	arg_msg = '选项:[240]计件单没有工价不能审核,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF getinfo(arg_billid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF uo_option_taskwork_not_affirm = 0 THEN
	IF affirmflag = 0 THEN
		rslt = 0
		arg_msg = '单据还没有确认,不能审核,请先确认'
		GOTO ext
	END IF
END IF

IF flag = 1 THEN
	rslt = 0
	arg_msg = '单据已经审核,操作取消'
	GOTO ext
END IF

FOR i = 1 TO it_mxbt
	ls_emp_sumwage = 0.00
	ls_emp_sumwage = taskworkmx[i].price * taskworkmx[i].qty
	
	IF uo_option_check_noworkprice = 1 THEN
		IF taskworkmx[i].price = 0 THEN
			rslt = 0
			arg_msg = '行'+String(i)+',没有填写工价,不允许审核'
			GOTO ext
		END IF
	END IF
	
	IF u_wage.f_setwagemxdata(wagemth,wrkgrpid,wageid,ls_emp_sumwage,arg_msg,FALSE) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

IF uo_option_taskwork_not_affirm = 0 THEN
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 1,
		u_scwg_taskwork_2.auditingrep = :publ_operator,
		u_scwg_taskwork_2.auditingdate = getdate()
		WHERE u_scwg_taskwork_2.billid = :arg_billid
		AND u_scwg_taskwork_2.flag = 0
		AND u_scwg_taskwork_2.billtype = 1
		USING commit_transaction;
ELSE
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 1,
		u_scwg_taskwork_2.auditingrep = :publ_operator,
		u_scwg_taskwork_2.auditingdate = getdate(),
		u_scwg_taskwork_2.affirmdate = getdate(),
		u_scwg_taskwork_2.affirmemp = :publ_operator,
		u_scwg_taskwork_2.affirmflag = 1
		WHERE u_scwg_taskwork_2.billid = :arg_billid
		AND u_scwg_taskwork_2.flag = 0
		AND u_scwg_taskwork_2.billtype = 1
		USING commit_transaction;
END IF

IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新审核标志失败，原因：'+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF


ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEif rslt = 1 and arg_ifcommit then 
	COMMIT USING commit_transaction;
END IF
DESTROY u_wage
RETURN rslt



end function

public function integer cauditmx_1 (long arg_billid, ref string arg_msg, boolean arg_ifcommit);//arg_wrkgrpid : -1 全部工作组

Long cnt,i
Int rslt = 1
Decimal ls_emp_sumwage
DateTime ls_null
SetNull(ls_null)

IF uo_option_taskwork_not_affirm = -1000 THEN
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF



uo_wage u_wage
u_wage = CREATE uo_wage

IF getinfo(arg_billid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF flag = 0 THEN
	rslt = 0
	arg_msg = '单据还没有审核,操作取消'
	GOTO ext
END IF

IF f_check_wage_audit(wagemth,scid,arg_msg) = 0 THEN
	rslt = 0
	arg_msg = arg_msg + ',不能撤审'
	GOTO ext
END IF

//检查该月份,该工资项目是否已开工资变更单
cnt = 0

SELECT count(*)
	INTO :cnt
	FROM u_wage_change
	WHERE wageid = :wageid
	AND wagemth = :wagemth;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询该月份该工资项目是否已开工资变更单失败'+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该月份该工资项目已开工资变更单,不能撤审'
	GOTO ext
END IF

FOR i = 1 TO it_mxbt
	ls_emp_sumwage = 0.00
	ls_emp_sumwage = taskworkmx[i].price * taskworkmx[i].qty
	IF u_wage.f_setwagemxdata(wagemth,wrkgrpid,wageid,0 - ls_emp_sumwage,arg_msg,FALSE) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

IF uo_option_taskwork_not_affirm = 0 THEN
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 0,
		u_scwg_taskwork_2.auditingrep = '',
		u_scwg_taskwork_2.auditingdate = :ls_null
		WHERE u_scwg_taskwork_2.billid = :arg_billid
		AND u_scwg_taskwork_2.flag = 1
		AND u_scwg_taskwork_2.billtype = 1
		USING commit_transaction;
ELSE
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 0,
		u_scwg_taskwork_2.auditingrep = '',
		u_scwg_taskwork_2.auditingdate = :ls_null,
		u_scwg_taskwork_2.affirmdate = :ls_null,
		u_scwg_taskwork_2.affirmemp = '',
		u_scwg_taskwork_2.affirmflag = 0
		WHERE u_scwg_taskwork_2.billid = :arg_billid
		AND u_scwg_taskwork_2.flag = 1
		AND u_scwg_taskwork_2.billtype = 1
		USING commit_transaction;
END IF

IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新审核标志失败，原因：'+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF


ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEif rslt = 1 and arg_ifcommit then 
	COMMIT USING commit_transaction;
END IF
DESTROY u_wage
RETURN rslt



end function

public function integer auditing_0 (long arg_wageid, long arg_wagemth, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit);//arg_wrkgrpid : -1 全部工作组

Int rslt = 1
Long ll_wgid,ll_wgid_arr[],count,ll_i
Long ll_workgroupid
Long ll_empid,ll_empid_arr[],ll_mxt,ll_j
String ls_empcode,ls_empcode_arr[]
Decimal ld_assignscore_arr[]
Decimal ld_assignday_arr[]
Long ll_assigntype,ll_assigntype_arr[]
Decimal ll_assignamt,ll_assignamt_arr[]
Decimal ld_prwageamt_arr[],ld_prwagerate_arr[],ld_prwageamt_arr_insert[]
Int cnt_wg_emp = 0
String ls_workgroupcode
Long ll_flagnum

Long ll_0_price_cnt
String ls_0_price_billcode
String ls_0_price_msg

Long ll_k
Decimal temp_sumscore = 0,temp_empscore = 0
Decimal temp_sumdays = 0,temp_empdays = 0,temp_wageamt_sum = 0,temp_sumrate,temp_wageamt_cmp
Decimal ld_empamt_insert
Decimal ld_wageamt_sum,ld_prwageamt,ld_prwagerate
DateTime ldt_getdate
Decimal ld_wageamt_cmp

If uo_option_taskwork_not_affirm = -1000 Then
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	rslt = 0
	Goto ext
End If

String ls_ifuse_formula

ls_ifuse_formula = f_ProfileString(-1,'w_workgroup_wage_money_formula', "formula", '')


If uo_option_taskwork_not_affirm = 0 Then
	ll_flagnum = 0
	Select count(*)
		Into :ll_flagnum
		From u_scwg_taskwork_2
		Where u_scwg_taskwork_2.wageid = :arg_wageid
		And u_scwg_taskwork_2.wagemth = :arg_wagemth
		And u_scwg_taskwork_2.affirmflag = 0
		And u_scwg_taskwork_2.billtype = 0
		And ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid Or :arg_wrkgrpid = -1 )
		Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '查询是否有单未确认操作失败,'+commit_transaction.SQLErrText
		Goto ext
	End If
	
	If ll_flagnum > 0 Then
		rslt = 0
		arg_msg = '该月份存在未确认的单据('+String(ll_flagnum)+'),请先全部确认'
		Goto ext
	End If
End If

ll_flagnum = 0
Select count(*)
	Into :ll_flagnum
	From u_scwg_taskwork_2
	Where u_scwg_taskwork_2.wageid = :arg_wageid
	And u_scwg_taskwork_2.wagemth = :arg_wagemth
	And u_scwg_taskwork_2.flag = 0
	And u_scwg_taskwork_2.billtype = 0
	And ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid Or :arg_wrkgrpid = -1 )
	Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '查询是否有单要审核操作失败,'+commit_transaction.SQLErrText
	Goto ext
End If

If ll_flagnum = 0 Then
	//	rslt = 0
	//	arg_msg = '该月份不存在要审核的单据,请检查'
	rslt = 1
	Goto ext
End If


ll_flagnum = 0
Select count(*)
	Into :ll_flagnum
	From u_scwg_taskwork_2
	Where u_scwg_taskwork_2.wageid = :arg_wageid
	And u_scwg_taskwork_2.wagemth = :arg_wagemth
	And u_scwg_taskwork_2.flag = 1
	And u_scwg_taskwork_2.billtype = 0
	And ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid Or :arg_wrkgrpid = -1 )
	Using commit_transaction;
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '查询是否有单已经审核操作失败,'+commit_transaction.SQLErrText
	Goto ext
End If

If ll_flagnum > 0 Then
	rslt = 0
	arg_msg = '该月份的工资项目存在部分已审核的记录('+String(ll_flagnum)+'),请先撤审'
	Goto ext
End If


//检查0单价
Declare cur_0_price_wkp Cursor For
	Select distinct u_scwg_taskwork_2.billcode
	From u_scwg_taskwork_2,u_scwg_taskwork_2_mx
	Where u_scwg_taskwork_2.wageid = :arg_wageid
	And u_scwg_taskwork_2.wagemth = :arg_wagemth
	And u_scwg_taskwork_2.flag = 0
	And u_scwg_taskwork_2.billtype = 0
	And ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid Or :arg_wrkgrpid = -1 )
	And ( u_scwg_taskwork_2.billid = u_scwg_taskwork_2_mx.billid )
	And ( u_scwg_taskwork_2_mx.price = 0 )
	Order By u_scwg_taskwork_2.billcode Asc
	Using commit_transaction;
Open cur_0_price_wkp;
Fetch cur_0_price_wkp Into :ls_0_price_billcode;
Do While sqlca.SQLCode = 0
	ll_0_price_cnt++
	ls_0_price_msg = ls_0_price_msg + '单据:'+ls_0_price_billcode+',0单价 ~n'
	Fetch cur_0_price_wkp Into :ls_0_price_billcode;
Loop
Close cur_0_price_wkp;

If ll_0_price_cnt > 0 Then
	arg_msg = ls_0_price_msg
	rslt = 0
	Goto ext
End If


Declare wgid Cursor For
	Select distinct wrkgrpid
	From u_scwg_taskwork_2
	Where u_scwg_taskwork_2.wageid = :arg_wageid
	And u_scwg_taskwork_2.wagemth = :arg_wagemth
	And u_scwg_taskwork_2.flag = 0
	And u_scwg_taskwork_2.billtype = 0
	And ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid Or :arg_wrkgrpid = -1 )
	Order By u_scwg_taskwork_2.wrkgrpid Asc
	Using commit_transaction;
Open wgid;
Fetch wgid Into :ll_wgid;

Do While commit_transaction.SQLCode = 0
	count++
	ll_wgid_arr[count] = ll_wgid
	Fetch wgid Into :ll_wgid;
Loop

Close wgid;

For ll_i = 1 To count
	cnt_wg_emp = 0
	temp_sumrate = 0
	Select count(*),
		u_workgroupmx.workgroupid,
		u_workgroup.workgroupcode
		Into :cnt_wg_emp,:ll_workgroupid,:ls_workgroupcode
		From u_workgroupmx Inner join
		u_workgroup on u_workgroupmx.workgroupid = u_workgroup.workgroupid
		Where (u_workgroupmx.workgroupid = :ll_wgid_arr[ll_i])
		Group By u_workgroup.workgroupcode, u_workgroupmx.workgroupid;
	If commit_transaction.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '查询操作失败,组成员!'
		Goto ext
	End If
	
	If cnt_wg_emp <= 0 Then
		rslt = 0
		arg_msg = '编号为:'+ls_workgroupcode+'的工作组没有成员,请先建立工作组成员!'
		Goto ext
	End If
	
	ll_mxt = 0
	
	Declare wg_emp Cursor For
		Select u_workgroupmx.empid,
		u_workgroupmx.assigntype,
		u_workgroupmx.assignamt,
		u_rs_empinfo.empcode,
		u_workgroupmx.prwageamt,
		u_workgroupmx.prwagerate
		From u_workgroupmx,u_rs_empinfo
		Where  u_workgroupmx.workgroupid = :ll_wgid_arr[ll_i]
		And u_workgroupmx.empid = u_rs_empinfo.empid
		Order By u_workgroupmx.empid Asc
		Using commit_transaction;
	Open wg_emp;
	
	Fetch wg_emp Into :ll_empid,:ll_assigntype,:ll_assignamt,:ls_empcode,:ld_prwageamt,:ld_prwagerate;
	
	Do While commit_transaction.SQLCode = 0
		ll_mxt++
		ll_empid_arr[ll_mxt] = ll_empid
		ll_assigntype_arr[ll_mxt] = ll_assigntype
		
		if ll_assigntype = 0 then ll_assignamt = 1
		ll_assignamt_arr[ll_mxt] = ll_assignamt
		ls_empcode_arr[ll_mxt] = ls_empcode
		ld_assignday_arr[ll_mxt] = 0
		ld_assignscore_arr[ll_mxt] = 0
		ld_prwageamt_arr[ll_mxt] = ld_prwageamt
		ld_prwagerate_arr[ll_mxt] = ld_prwagerate
		ld_prwageamt_arr_insert[ll_mxt] = 0
		
		temp_sumrate = temp_sumrate + ll_assignamt
		
		Fetch wg_emp Into :ll_empid,:ll_assigntype,:ll_assignamt,:ls_empcode,:ld_prwageamt,:ld_prwagerate;
		
	Loop
	
	Close wg_emp;
	
	//计算各种分配模式的比例0:手动,1:固定比例,2:按天数,3:按天数+分数
	ld_wageamt_sum = 0
	Select sum(u_scwg_taskwork_2_mx.price * u_scwg_taskwork_2_mx.qty),
		getdate()
		Into :ld_wageamt_sum,
		:ldt_getdate
		From u_scwg_taskwork_2_mx,u_scwg_taskwork_2
		Where u_scwg_taskwork_2.wageid = :arg_wageid
		And u_scwg_taskwork_2.wagemth = :arg_wagemth
		And u_scwg_taskwork_2.wrkgrpid = :ll_wgid_arr[ll_i]
		And u_scwg_taskwork_2.flag = 0
		And u_scwg_taskwork_2.billtype = 0
		And u_scwg_taskwork_2.billid = u_scwg_taskwork_2_mx.billid Using commit_transaction;
	If commit_transaction.SQLCode <> 0 Then
		rslt = 0
		arg_msg = '查询当月该工组计件总工资失败,原因：'+commit_transaction.SQLErrText
		Goto ext
	End If
	
	temp_wageamt_sum = ld_wageamt_sum
	
	For ll_k = 1 To ll_mxt
		Select isnull(sum(U_TestMx_bd.bdday),0),
			isnull(sum(U_TestMx_bd.bdday * U_TestMx_bd.Score),0)
			Into :temp_sumdays,:temp_sumscore
			From u_test_bd Inner JOIN
			U_TestMx_bd ON u_test_bd.TestID = U_TestMx_bd.TestID
			Where u_test_bd.flag = 1 And u_test_bd.wagemth = :arg_wagemth
			And U_TestMx_bd.empid In (
			Select empid
			From u_workgroupmx
			Where  u_workgroupmx.workgroupid = :ll_wgid_arr[ll_i] )Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '查询小组的考核总(天数),总(分数*天数)失败,原因:'+commit_transaction.SQLErrText
			Goto ext
		End If
		
		Select isnull(sum(U_TestMx_bd.bdday),0),
			isnull(sum(U_TestMx_bd.bdday * U_TestMx_bd.Score),0)
			Into :temp_empdays,:temp_empscore
			From u_test_bd Inner JOIN
			U_TestMx_bd ON u_test_bd.TestID = U_TestMx_bd.TestID
			Where u_test_bd.flag = 1 And u_test_bd.wagemth = :arg_wagemth
			And U_TestMx_bd.empid = :ll_empid_arr[ll_k] Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '查询员工:'+ls_empcode_arr[ll_k]+',的考核总(天数),总(分数*天数)失败,原因:'+commit_transaction.SQLErrText
			Goto ext
		End If
		
		If temp_wageamt_sum < ld_wageamt_sum * ld_prwagerate_arr[ll_k] + ld_prwageamt_arr[ll_k] Then
			ld_prwageamt_arr_insert[ll_k] = temp_wageamt_sum
			temp_wageamt_sum = 0
		Else
			ld_prwageamt_arr_insert[ll_k] = ld_wageamt_sum * ld_prwagerate_arr[ll_k] + ld_prwageamt_arr[ll_k]
			temp_wageamt_sum = temp_wageamt_sum - ld_wageamt_sum * ld_prwagerate_arr[ll_k] - ld_prwageamt_arr[ll_k]
		End If
		
		If ll_assigntype_arr[ll_k] = 2 Then
			If temp_sumdays = 0 Then
				rslt = 0
				arg_msg  = '工资月份['+String(arg_wagemth)+']有小组工资分配按天数计算比例进行分配,但没有对应该月份的绩效考核天数!请检查'
				Goto ext
			Else
				ll_assignamt_arr[ll_k] = Round(temp_empdays/temp_sumdays,5)
				ld_assignday_arr[ll_k] = temp_empdays
				ld_assignscore_arr[ll_k] = temp_empscore
			End If
		ElseIf ll_assigntype_arr[ll_k] = 3 Then
			If temp_sumscore = 0 Then
				rslt = 0
				arg_msg  = '工资月份['+String(arg_wagemth)+']有小组工资分配按天数+分数计算比例进行分配,但没有对应该月份的绩效考核天数!请检查'
				Goto ext
			Else
				ll_assignamt_arr[ll_k] = Round(temp_empscore/temp_sumscore,5)
				ld_assignday_arr[ll_k] = temp_empdays
				ld_assignscore_arr[ll_k] = temp_empscore
			End If
		End If
	Next
	
	temp_wageamt_cmp = temp_wageamt_sum
	
	If ll_mxt > 0  Then
		If ll_assigntype_arr[1] = 0 Then
			If ls_ifuse_formula = '' Then
				ld_empamt_insert = temp_wageamt_sum + ld_prwageamt_arr_insert[1]
			Else
				ld_wageamt_cmp = uo_wage_fp_formula(ls_ifuse_formula,temp_wageamt_sum,ll_assignamt_arr[1],temp_sumrate,ld_assignscore_arr[1],temp_sumscore,ld_assignday_arr[1],temp_sumdays)
				
				If ld_wageamt_cmp > temp_wageamt_cmp Then
					ld_empamt_insert = temp_wageamt_cmp + ld_prwageamt_arr_insert[1]
					temp_wageamt_cmp = 0
				Else
					ld_empamt_insert = ld_wageamt_cmp + ld_prwageamt_arr_insert[1]
					temp_wageamt_cmp = temp_wageamt_cmp - ld_wageamt_cmp
				End If
				
			End If
		Else
			ld_empamt_insert = temp_wageamt_sum * ll_assignamt_arr[1] + ld_prwageamt_arr_insert[1]
		End If
		
		//该组金额转移到组中第一人		
		Insert Into u_scwg_taskwork_money
			(wageid,
			workgroupid ,
			empid ,
			wagemth ,
			groupamt,
			empamt,
			auditingflag,
			opdate,
			opemp,
			billtype,
			assigntype,
			assignamt,
			assignscore,
			assignday,
			prwageamt)
			Values( :arg_wageid,
			:ll_wgid_arr[ll_i],
			:ll_empid_arr[1],
			:arg_wagemth,
			:ld_wageamt_sum,
			:ld_empamt_insert ,
			0,
			:ldt_getdate,
			:publ_operator,
			0,
			:ll_assigntype_arr[1] ,
			:ll_assignamt_arr[1],
			:ld_assignscore_arr[1] ,
			:ld_assignday_arr[1],
			:ld_prwageamt_arr_insert[1])
			Using commit_transaction;
		If commit_transaction.SQLCode <> 0 Then
			rslt = 0
			arg_msg = '建立小组首名员工工资操作失败,原因：'+commit_transaction.SQLErrText
			Goto ext
		End If
		
		
		//其他组员的金额为0
		If ll_mxt >= 2 Then
			For ll_j = 2 To ll_mxt
				If ll_assigntype_arr[ll_j] = 0 Then
					
					If ls_ifuse_formula = '' Then
						ld_empamt_insert = ld_prwageamt_arr_insert[ll_j]
					Else
						ld_wageamt_cmp = uo_wage_fp_formula(ls_ifuse_formula,temp_wageamt_sum,ll_assignamt_arr[ll_j],temp_sumrate,ld_assignscore_arr[ll_j],temp_sumscore,ld_assignday_arr[ll_j],temp_sumdays)
						
						If ld_wageamt_cmp > temp_wageamt_cmp Then
							ld_empamt_insert = temp_wageamt_cmp + ld_prwageamt_arr_insert[ll_j]
							temp_wageamt_cmp = 0
						Else
							ld_empamt_insert = ld_wageamt_cmp + ld_prwageamt_arr_insert[ll_j]
							temp_wageamt_cmp = temp_wageamt_cmp - ld_wageamt_cmp
						End If
						
					End If
					
				Else
					ld_empamt_insert = temp_wageamt_sum* ll_assignamt_arr[ll_j] + ld_prwageamt_arr_insert[ll_j]
				End If
				
				Insert Into u_scwg_taskwork_money
					(wageid,
					workgroupid ,
					empid ,
					wagemth ,
					groupamt,
					empamt,
					auditingflag,
					opdate,
					opemp,
					billtype,
					assigntype,
					assignamt,
					assignscore,
					assignday,
					prwageamt)
					Values( :arg_wageid,
					:ll_wgid_arr[ll_i],
					:ll_empid_arr[ll_j],
					:arg_wagemth,
					:ld_wageamt_sum,
					:ld_empamt_insert,
					0,
					:ldt_getdate,
					:publ_operator,
					0,
					:ll_assigntype_arr[ll_j] ,
					:ll_assignamt_arr[ll_j],
					:ld_assignscore_arr[ll_j] ,
					:ld_assignday_arr[ll_j],
					:ld_prwageamt_arr_insert[ll_j]) Using commit_transaction;
				If commit_transaction.SQLCode <> 0 Then
					rslt = 0
					arg_msg = '建立小组其它员工工资操作失败,原因：'+commit_transaction.SQLErrText
					Goto ext
				End If
			Next
		End If
	End If
Next

If uo_option_taskwork_not_affirm = 0 Then
	Update u_scwg_taskwork_2
		Set u_scwg_taskwork_2.flag = 1,
		u_scwg_taskwork_2.auditingrep = :publ_operator,
		u_scwg_taskwork_2.auditingdate = getdate()
		Where u_scwg_taskwork_2.wageid = :arg_wageid
		And u_scwg_taskwork_2.wagemth = :arg_wagemth
		And u_scwg_taskwork_2.flag = 0
		And u_scwg_taskwork_2.billtype = 0
		And ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid Or :arg_wrkgrpid = -1 )
		Using commit_transaction;
Else
	Update u_scwg_taskwork_2
		Set u_scwg_taskwork_2.flag = 1,
		u_scwg_taskwork_2.affirmflag = 1,
		u_scwg_taskwork_2.auditingrep = :publ_operator,
		u_scwg_taskwork_2.auditingdate = getdate(),
		u_scwg_taskwork_2.affirmdate = getdate(),
		u_scwg_taskwork_2.affirmemp = :publ_operator
		Where u_scwg_taskwork_2.wageid = :arg_wageid
		And u_scwg_taskwork_2.wagemth = :arg_wagemth
		And u_scwg_taskwork_2.flag = 0
		And u_scwg_taskwork_2.billtype = 0
		And ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid Or :arg_wrkgrpid = -1 )
		Using commit_transaction;
End If
If commit_transaction.SQLCode <> 0 Then
	rslt = 0
	arg_msg = '更新审核标志失败，原因：'+commit_transaction.SQLErrText
	Goto ext
ElseIf commit_transaction.SQLNRows = 0 Then
	rslt = 0
	arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	Goto ext
End If


ext:
If rslt = 0 Then
	Rollback Using commit_transaction;
ElseIf rslt = 1 And arg_ifcommit Then
	Commit Using commit_transaction;
End If

Return rslt








end function

public function integer auditing_2 (long arg_wageid, long arg_wagemth, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit);//arg_wrkgrpid : -1 全部工作组

Int rslt = 1
Long ll_wgid,ll_wgid_arr[],count,ll_i
Long ll_workgroupid
Long ll_empid,ll_empid_arr[],ll_mxt,ll_j
String ls_empcode,ls_empcode_arr[]
Decimal ld_assignscore_arr[]
Decimal ld_assignday_arr[]
Long ll_assigntype,ll_assigntype_arr[]
Decimal ll_assignamt,ll_assignamt_arr[]
Int cnt_wg_emp = 0
String ls_workgroupcode
Long ll_flagnum

Long ll_0_price_cnt
String ls_0_price_billcode
String ls_0_price_msg

IF uo_option_taskwork_not_affirm = -1000 THEN
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF uo_option_taskwork_not_affirm = 0 THEN
	ll_flagnum = 0
	SELECT count(*)
		INTO :ll_flagnum
		FROM u_scwg_taskwork_2
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		AND u_scwg_taskwork_2.affirmflag = 0
		AND u_scwg_taskwork_2.billtype = 2
		AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
		USING commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询是否有单未确认操作失败,'+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	IF ll_flagnum > 0 THEN
		rslt = 0
		arg_msg = '该月份存在未确认的单据('+String(ll_flagnum)+'),请先全部确认'
		GOTO ext
	END IF
END IF

ll_flagnum = 0
SELECT count(*)
	INTO :ll_flagnum
	FROM u_scwg_taskwork_2
	WHERE u_scwg_taskwork_2.wageid = :arg_wageid
	AND u_scwg_taskwork_2.wagemth = :arg_wagemth
	AND u_scwg_taskwork_2.flag = 0
	AND u_scwg_taskwork_2.billtype = 2
	AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询是否有单要审核操作失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF ll_flagnum = 0 THEN
	rslt = 0
	arg_msg = '该月份不存在要审核的单据,请检查'
	GOTO ext
END IF


ll_flagnum = 0
SELECT count(*)
	INTO :ll_flagnum
	FROM u_scwg_taskwork_2
	WHERE u_scwg_taskwork_2.wageid = :arg_wageid
	AND u_scwg_taskwork_2.wagemth = :arg_wagemth
	AND u_scwg_taskwork_2.flag = 1
	AND u_scwg_taskwork_2.billtype = 2
	AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询是否有单已经审核操作失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF ll_flagnum > 0 THEN
	rslt = 0
	arg_msg = '该月份的工资项目存在部分已审核的记录('+String(ll_flagnum)+'),请先撤审'
	GOTO ext
END IF


//检查0单价
DECLARE cur_0_price_wkp CURSOR FOR
	SELECT distinct u_scwg_taskwork_2.billcode
	FROM u_scwg_taskwork_2,u_scwg_taskwork_2_mx
	WHERE u_scwg_taskwork_2.wageid = :arg_wageid
	AND u_scwg_taskwork_2.wagemth = :arg_wagemth
	AND u_scwg_taskwork_2.flag = 0
	AND u_scwg_taskwork_2.billtype = 2
	AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	AND ( u_scwg_taskwork_2.billid = u_scwg_taskwork_2_mx.billid )
	AND ( u_scwg_taskwork_2_mx.price = 0 )
	ORDER BY u_scwg_taskwork_2.billcode ASC
	USING commit_transaction;
OPEN cur_0_price_wkp;
FETCH cur_0_price_wkp INTO :ls_0_price_billcode;
DO WHILE sqlca.SQLCode = 0
	ll_0_price_cnt++
	ls_0_price_msg = ls_0_price_msg + '单据:'+ls_0_price_billcode+',0单价 ~n'
	FETCH cur_0_price_wkp INTO :ls_0_price_billcode;
LOOP
CLOSE cur_0_price_wkp;

IF ll_0_price_cnt > 0 THEN
	arg_msg = ls_0_price_msg
	rslt = 0
	GOTO ext
END IF


DECLARE wgid CURSOR FOR
	SELECT distinct wrkgrpid
	FROM u_scwg_taskwork_2
	WHERE u_scwg_taskwork_2.wageid = :arg_wageid
	AND u_scwg_taskwork_2.wagemth = :arg_wagemth
	AND u_scwg_taskwork_2.flag = 0
	AND u_scwg_taskwork_2.billtype = 2
	AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	ORDER BY u_scwg_taskwork_2.wrkgrpid ASC
	USING commit_transaction;
OPEN wgid;
FETCH wgid INTO :ll_wgid;

DO WHILE commit_transaction.SQLCode = 0
	count++
	ll_wgid_arr[count] = ll_wgid
	FETCH wgid INTO :ll_wgid;
LOOP

CLOSE wgid;

FOR ll_i = 1 TO count
	cnt_wg_emp = 0
	SELECT count(*),
		u_workgroupmx.workgroupid,
		u_workgroup.workgroupcode
		INTO :cnt_wg_emp,:ll_workgroupid,:ls_workgroupcode
		FROM u_workgroupmx INNER join
		u_workgroup on u_workgroupmx.workgroupid = u_workgroup.workgroupid
		WHERE (u_workgroupmx.workgroupid = :ll_wgid_arr[ll_i])
		Group By u_workgroup.workgroupcode, u_workgroupmx.workgroupid;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询操作失败,组成员!'
		GOTO ext
	END IF
	
	IF cnt_wg_emp <= 0 THEN
		rslt = 0
		arg_msg = '编号为:'+ls_workgroupcode+'的工作组没有成员,请先建立工作组成员!'
		GOTO ext
	END IF
	
	ll_mxt = 0
	
	DECLARE wg_emp CURSOR FOR
		SELECT u_workgroupmx.empid,
		u_workgroupmx.assigntype,
		u_workgroupmx.assignamt,
		u_rs_empinfo.empcode
		FROM u_workgroupmx,u_rs_empinfo
		WHERE  u_workgroupmx.workgroupid = :ll_wgid_arr[ll_i]
		AND u_workgroupmx.empid = u_rs_empinfo.empid
		ORDER BY u_workgroupmx.empid ASC
		USING commit_transaction;
	OPEN wg_emp;
	
	FETCH wg_emp INTO :ll_empid,:ll_assigntype,:ll_assignamt,:ls_empcode;
	
	DO WHILE commit_transaction.SQLCode = 0
		ll_mxt++
		ll_empid_arr[ll_mxt] = ll_empid
		ll_assigntype_arr[ll_mxt] = ll_assigntype
		ll_assignamt_arr[ll_mxt] = ll_assignamt
		ls_empcode_arr[ll_mxt] = ls_empcode
		ld_assignday_arr[ll_mxt] = 0
		ld_assignscore_arr[ll_mxt] = 0
		FETCH wg_emp INTO :ll_empid,:ll_assigntype,:ll_assignamt,:ls_empcode;
	LOOP
	
	CLOSE wg_emp;
	
	//计算各种分配模式的比例0:手动,1:固定比例,2:按天数,3:按天数+分数
	Long ll_k
	Decimal temp_sumscore = 0,temp_empscore = 0
	Decimal temp_sumdays = 0,temp_empdays = 0
	
	FOR ll_k = 1 TO ll_mxt
		SELECT isnull(sum(U_TestMx_bd.bdday),0),
			isnull(sum(U_TestMx_bd.bdday * U_TestMx_bd.Score),0)
			INTO :temp_sumdays,:temp_sumscore
			FROM u_test_bd INNER JOIN
			U_TestMx_bd ON u_test_bd.TestID = U_TestMx_bd.TestID
			WHERE u_test_bd.flag = 1 AND u_test_bd.wagemth = :arg_wagemth
			AND U_TestMx_bd.empid IN (
			SELECT empid
			FROM u_workgroupmx
			Where  u_workgroupmx.workgroupid = :ll_wgid_arr[ll_i] )USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询小组的考核总(天数),总(分数*天数)失败,原因:'+commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		SELECT isnull(sum(U_TestMx_bd.bdday),0),
			isnull(sum(U_TestMx_bd.bdday * U_TestMx_bd.Score),0)
			INTO :temp_empdays,:temp_empscore
			FROM u_test_bd INNER JOIN
			U_TestMx_bd ON u_test_bd.TestID = U_TestMx_bd.TestID
			WHERE u_test_bd.flag = 1 AND u_test_bd.wagemth = :arg_wagemth
			AND U_TestMx_bd.empid = :ll_empid_arr[ll_k] USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询员工:'+ls_empcode_arr[ll_k]+',的考核总(天数),总(分数*天数)失败,原因:'+commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		
		IF ll_assigntype_arr[ll_k] = 2 THEN
			IF temp_sumdays = 0 THEN
				rslt = 0
				arg_msg  = '工资月份['+String(arg_wagemth)+']有小组工资分配按天数计算比例进行分配,但没有对应该月份的绩效考核天数!请检查'
				GOTO ext
			ELSE
				ll_assignamt_arr[ll_k] = Round(temp_empdays/temp_sumdays,5)
				ld_assignday_arr[ll_k] = temp_empdays
				ld_assignscore_arr[ll_k] = temp_empscore
			END IF
		ELSEIF ll_assigntype_arr[ll_k] = 3 THEN
			IF temp_sumscore = 0 THEN
				rslt = 0
				arg_msg  = '工资月份['+String(arg_wagemth)+']有小组工资分配按天数+分数计算比例进行分配,但没有对应该月份的绩效考核天数!请检查'
				GOTO ext
			ELSE
				ll_assignamt_arr[ll_k] = Round(temp_empscore/temp_sumscore,5)
				ld_assignday_arr[ll_k] = temp_empdays
				ld_assignscore_arr[ll_k] = temp_empscore
			END IF
		END IF
	NEXT
	
	IF ll_mxt > 0  THEN
		//该组金额转移到组中第一人		
		INSERT INTO u_scwg_taskwork_money
			(wageid,
			workgroupid ,
			empid ,
			wagemth ,
			groupamt,
			empamt,
			auditingflag,
			opdate,
			opemp,
			billtype,
			assigntype,
			assignamt,
			assignscore,
			assignday)
			SELECT wageid,
			wrkgrpid,
			:ll_empid_arr[1],
			wagemth,
			sum(u_scwg_taskwork_2_mx.price * u_scwg_taskwork_2_mx.qty),
			case :ll_assigntype_arr[1] when 0 then sum(u_scwg_taskwork_2_mx.price * u_scwg_taskwork_2_mx.qty)  else (sum(u_scwg_taskwork_2_mx.price * u_scwg_taskwork_2_mx.qty))*(:ll_assignamt_arr[1]) END  ,
			0,
			getdate(),
			:publ_operator,
			2,
			:ll_assigntype_arr[1] ,
			:ll_assignamt_arr[1],
			:ld_assignscore_arr[1] ,
			:ld_assignday_arr[1]
			FROM u_scwg_taskwork_2_mx,u_scwg_taskwork_2
			WHERE u_scwg_taskwork_2.wageid = :arg_wageid
			AND u_scwg_taskwork_2.wagemth = :arg_wagemth
			AND u_scwg_taskwork_2.wrkgrpid = :ll_wgid_arr[ll_i]
			AND u_scwg_taskwork_2.flag = 0
			AND u_scwg_taskwork_2.billtype = 2
			AND u_scwg_taskwork_2.billid = u_scwg_taskwork_2_mx.billid
			GROUP BY u_scwg_taskwork_2.wageid,
			u_scwg_taskwork_2.wagemth,
			u_scwg_taskwork_2.wrkgrpid
			USING commit_transaction;
		IF commit_transaction.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '建立小组首名员工工资操作失败,原因：'+commit_transaction.SQLErrText
			GOTO ext
		END IF
		
		
		//其他组员的金额为0
		IF ll_mxt >= 2 THEN
			FOR ll_j = 2 TO ll_mxt
				INSERT INTO u_scwg_taskwork_money
					(wageid,
					workgroupid ,
					empid ,
					wagemth ,
					groupamt,
					empamt,
					auditingflag,
					opdate,
					opemp,
					billtype,
					assigntype,
					assignamt,
					assignscore,
					assignday)
					SELECT wageid,
					wrkgrpid,
					:ll_empid_arr[ll_j],
					wagemth,
					sum(u_scwg_taskwork_2_mx.price * u_scwg_taskwork_2_mx.qty),
					case :ll_assigntype_arr[ll_j] when 0 then 0 else (sum(u_scwg_taskwork_2_mx.price * u_scwg_taskwork_2_mx.qty))*(:ll_assignamt_arr[ll_j]) END,
					0,
					getdate(),
					:publ_operator,
					2,
					:ll_assigntype_arr[ll_j] ,
					:ll_assignamt_arr[ll_j],
					:ld_assignscore_arr[ll_j] ,
					:ld_assignday_arr[ll_j]
					FROM u_scwg_taskwork_2_mx,u_scwg_taskwork_2
					WHERE u_scwg_taskwork_2.wageid = :arg_wageid
					AND u_scwg_taskwork_2.wagemth = :arg_wagemth
					AND u_scwg_taskwork_2.wrkgrpid = :ll_wgid_arr[ll_i]
					AND u_scwg_taskwork_2.flag = 0
					AND u_scwg_taskwork_2.billtype = 2
					AND u_scwg_taskwork_2.billid = u_scwg_taskwork_2_mx.billid
					GROUP BY u_scwg_taskwork_2.wageid,
					u_scwg_taskwork_2.wagemth,
					u_scwg_taskwork_2.wrkgrpid
					USING commit_transaction;
				IF commit_transaction.SQLCode <> 0 THEN
					rslt = 0
					arg_msg = '建立小组其它员工工资操作失败,原因：'+commit_transaction.SQLErrText
					GOTO ext
				END IF
			NEXT
		END IF
	END IF
NEXT

IF uo_option_taskwork_not_affirm = 0 THEN
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 1,
		u_scwg_taskwork_2.auditingrep = :publ_operator,
		u_scwg_taskwork_2.auditingdate = getdate()
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		AND u_scwg_taskwork_2.flag = 0
		AND u_scwg_taskwork_2.billtype = 2
		AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
		USING commit_transaction;
ELSE
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 1,
		u_scwg_taskwork_2.auditingrep = :publ_operator,
		u_scwg_taskwork_2.auditingdate = getdate(),
		u_scwg_taskwork_2.affirmemp = :publ_operator,
		u_scwg_taskwork_2.affirmdate = getdate()
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		AND u_scwg_taskwork_2.flag = 0
		AND u_scwg_taskwork_2.billtype = 2
		AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
		USING commit_transaction;
END IF
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新审核标志失败，原因：'+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF

RETURN rslt



end function

public function integer c_auditing_0 (long arg_wageid, long arg_wagemth, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_flagnum

DateTime ls_null
SetNull(ls_null)

IF uo_option_taskwork_not_affirm = -1000 THEN
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF


SELECT count(*)
	INTO :ll_flagnum
	FROM u_scwg_taskwork_2
	WHERE u_scwg_taskwork_2.wageid = :arg_wageid
	AND u_scwg_taskwork_2.wagemth = :arg_wagemth
	AND u_scwg_taskwork_2.flag = 1
	AND u_scwg_taskwork_2.billtype = 0
	AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询是否已有单据已审核操作失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF ll_flagnum <= 0 THEN
	rslt = 0
	arg_msg = '该月份的工资项目不存在审核的记录'
	GOTO ext
END IF

//查询相关工资表是否已经通过审核
ll_flagnum = 0
SELECT count(*)
	INTO :ll_flagnum
	FROM u_scwg_taskwork_money
	WHERE u_scwg_taskwork_money.wageid = :arg_wageid
	AND u_scwg_taskwork_money.wagemth = :arg_wagemth
	AND u_scwg_taskwork_money.Auditingflag = 1
	AND u_scwg_taskwork_money.billtype = 0
	AND ( u_scwg_taskwork_money.workgroupid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询操作失败,已经审核数量,工资表'
	GOTO ext
END IF

IF ll_flagnum > 0 THEN
	rslt = 0
	arg_msg = '该月份的工资项目部分已通过分配审核'
	GOTO ext
END IF

//先删除工资表记录
DELETE FROM u_scwg_taskwork_money
	WHERE u_scwg_taskwork_money.wageid = :arg_wageid
	AND u_scwg_taskwork_money.wagemth = :arg_wagemth
	AND u_scwg_taskwork_money.billtype = 0
	AND ( u_scwg_taskwork_money.workgroupid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '删除工资表操作失败，原因：'+commit_transaction.SQLErrText
	GOTO ext
END IF

//更新审核标志
IF uo_option_taskwork_not_affirm = 0 THEN
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 0,
		u_scwg_taskwork_2.Auditingrep = '',
		u_scwg_taskwork_2.Auditingdate = :ls_null
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		AND u_scwg_taskwork_2.billtype = 0
		AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
		AND u_scwg_taskwork_2.flag = 1 USING commit_transaction;
ELSE
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 0,
		u_scwg_taskwork_2.Auditingrep = '',
		u_scwg_taskwork_2.Auditingdate = :ls_null,
		u_scwg_taskwork_2.affirmemp = '',
		u_scwg_taskwork_2.affirmdate = :ls_null,
		u_scwg_taskwork_2.affirmflag = 0
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		AND u_scwg_taskwork_2.billtype = 0
		AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
		AND u_scwg_taskwork_2.flag = 1 USING commit_transaction;
END IF
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新审核标志失败，原因：'+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF  rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF

RETURN rslt




end function

public function integer c_auditing_2 (long arg_wageid, long arg_wagemth, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_flagnum

DateTime ls_null
SetNull(ls_null)

IF uo_option_taskwork_not_affirm = -1000 THEN
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

SELECT count(*)
	INTO :ll_flagnum
	FROM u_scwg_taskwork_2
	WHERE u_scwg_taskwork_2.wageid = :arg_wageid
	AND u_scwg_taskwork_2.wagemth = :arg_wagemth
	AND u_scwg_taskwork_2.flag = 1
	AND u_scwg_taskwork_2.billtype = 2
	AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询是否已有单据已审核操作失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF ll_flagnum <= 0 THEN
	rslt = 0
	arg_msg = '该月份的工资项目不存在审核的记录'
	GOTO ext
END IF

//查询相关工资表是否已经通过审核
ll_flagnum = 0
SELECT count(*)
	INTO :ll_flagnum
	FROM u_scwg_taskwork_money
	WHERE u_scwg_taskwork_money.wageid = :arg_wageid
	AND u_scwg_taskwork_money.wagemth = :arg_wagemth
	AND u_scwg_taskwork_money.Auditingflag = 1
	AND u_scwg_taskwork_money.billtype = 2
	AND ( u_scwg_taskwork_money.workgroupid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询操作失败,已经审核数量,工资表'
	GOTO ext
END IF

IF ll_flagnum > 0 THEN
	rslt = 0
	arg_msg = '该月份的工资项目部分已通过分配审核'
	GOTO ext
END IF

//先删除工资表记录
DELETE FROM u_scwg_taskwork_money
	WHERE u_scwg_taskwork_money.wageid = :arg_wageid
	AND u_scwg_taskwork_money.wagemth = :arg_wagemth
	AND u_scwg_taskwork_money.billtype = 2
	AND ( u_scwg_taskwork_money.workgroupid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '删除工资表操作失败，原因：'+commit_transaction.SQLErrText
	GOTO ext
END IF

//更新审核标志
IF uo_option_taskwork_not_affirm = 0 THEN
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 0,
		u_scwg_taskwork_2.Auditingrep = '',
		u_scwg_taskwork_2.Auditingdate = :ls_null
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		AND u_scwg_taskwork_2.billtype = 2
		AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
		AND u_scwg_taskwork_2.flag = 1 USING commit_transaction;
ELSE
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 0,
		u_scwg_taskwork_2.Auditingrep = '',
		u_scwg_taskwork_2.Auditingdate = :ls_null,
		u_scwg_taskwork_2.affirmemp = '',
		u_scwg_taskwork_2.affirmdate = :ls_null,
		u_scwg_taskwork_2.affirmflag = 0
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		AND u_scwg_taskwork_2.billtype = 2
		AND ( u_scwg_taskwork_2.wrkgrpid = :arg_wrkgrpid OR :arg_wrkgrpid = -1 )
		AND u_scwg_taskwork_2.flag = 1 USING commit_transaction;
END IF
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新审核标志失败，原因：'+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK USING commit_transaction;
ELSEIF  rslt = 1 AND arg_ifcommit THEN
	COMMIT USING commit_transaction;
END IF

RETURN rslt



end function

public function integer del (long arg_billid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

IF arg_billid <= 0 THEN
	rslt = 0
	arg_msg = "没有删除对象,操作取消"
	GOTO ext
END IF

rslt = p_getinfo(arg_billid,arg_msg)
IF rslt = 0 THEN GOTO ext

IF affirmflag = 1 THEN
	rslt = 0
	arg_msg = '单据已经确认,不可以修改'
	GOTO ext
END IF

IF flag = 1 THEN
	rslt = 0
	arg_msg = "单据已经审核,不可以删除"
	GOTO ext
END IF

DELETE FROM u_scwg_taskwork_2  WHERE u_scwg_taskwork_2.billid = :arg_billid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除单据操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

DELETE FROM u_scwg_taskwork_2_mx WHERE u_scwg_taskwork_2_mx.billid = :arg_billid
	USING commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除单据明细操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

ext:

IF rslt = 0 THEN
	ROLLBACK ;
	p_reset()
ELSEIF rslt = 1 AND arg_ifcommit THEN
	COMMIT ;
END IF

Return (rslt)


end function

public function decimal uo_wage_fp_formula (string arg_formula, decimal arg_amt, decimal arg_assignamt, decimal arg_assignamt_sm, decimal arg_assignscore, decimal arg_assignscore_sm, decimal arg_assignday, decimal arg_assignday_sm);Decimal ld_rst_amt
String ls_formula

ls_formula = arg_formula

datastore ds_formula
ds_formula = Create datastore
ds_formula.DataObject = 'ds_scwg_taskwork_day_formula'
ds_formula.InsertRow(0)

DO WHILE Pos(ls_formula,'[组工资]') > 0
	ls_formula = Replace(ls_formula,Pos(ls_formula,'[组工资]'),Len('[组工资]'),String(arg_amt))
LOOP

DO WHILE Pos(ls_formula,'[分配比例]') > 0
	ls_formula = Replace(ls_formula,Pos(ls_formula,'[分配比例]'),Len('[分配比例]'),String(arg_assignamt))
LOOP

DO WHILE Pos(ls_formula,'[比例总和]') > 0
	ls_formula = Replace(ls_formula,Pos(ls_formula,'[比例总和]'),Len('[比例总和]'),String(arg_assignamt_sm))
LOOP

DO WHILE Pos(ls_formula,'[分数]') > 0
	ls_formula = Replace(ls_formula,Pos(ls_formula,'[分数]'),Len('[分数]'),String(arg_assignscore))
LOOP

DO WHILE Pos(ls_formula,'[分数总和]') > 0
	ls_formula = Replace(ls_formula,Pos(ls_formula,'[分数总和]'),Len('[分数总和]'),String(arg_assignscore_sm))
LOOP

DO WHILE Pos(ls_formula,'[考勤天数]') > 0
	ls_formula = Replace(ls_formula,Pos(ls_formula,'[考勤天数]'),Len('[考勤天数]'),String(arg_assignday))
LOOP

DO WHILE Pos(ls_formula,'[天数总和]') > 0
	ls_formula = Replace(ls_formula,Pos(ls_formula,'[天数总和]'),Len('[天数总和]'),String(arg_assignday_sm))
LOOP

ds_formula.Modify("compute.expression='"+ls_formula+"'")

ld_rst_amt = Round(Dec(ds_formula.Object.compute[1]),2)

if isnull(ld_rst_amt) then ld_rst_amt = 0 

RETURN ld_rst_amt










end function

public function integer acceptmx (long arg_mtrlid, string arg_procode, string arg_proname, decimal arg_qty, decimal arg_price, string arg_mxdscrp, ref string arg_msg, long arg_printid, string arg_status, string arg_woodcode, string arg_pcode, string arg_ycreason, long arg_orderid, string arg_reason, string arg_unit, decimal arg_failqty, decimal arg_facthours, string arg_wpcode);
Int rslt = 1
Long cnt = 0,ls_i,ll_i
String ls_ordercode

IF it_newbegin = FALSE AND it_updatebegin = FALSE THEN
	rslt = 0
	arg_msg = "非编辑状态不可以使用,操作取消"
	GOTO ext
END IF

IF uo_option_taskwork_not_affirm = -1000 THEN
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF uo_option_if_taskwork_acmpqty = -1000 THEN
	arg_msg = '选项:[202]计件单选生产计划时按已进仓数限制,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF uo_option_taskwork_price_if_mod = -1000 THEN
	arg_msg = '选项:[081]计件单限制工价,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF uo_option_taskwork_procode_order = -1000 THEN
	arg_msg = '选项:[064]计件单按生产计划工序,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF uo_option_taskwork2_noorder = -1000 THEN
	arg_msg = '选项:[104]月分配计件单可以不选计划,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF uo_option_taskwork_person_noorder = -1000 THEN
	arg_msg = '选项:[106]个人产品计件单可以不选计划,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0
IF IsNull(arg_procode) THEN arg_procode = ''
IF IsNull(arg_proname) THEN arg_proname = ''
IF IsNull(arg_qty) THEN arg_qty = 0
IF IsNull(arg_price) THEN arg_price = 0
IF IsNull(arg_printid) THEN arg_printid = 0
IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = ''
IF IsNull(arg_status) THEN arg_status = ''
IF IsNull(arg_woodcode) THEN arg_woodcode = ''
IF IsNull(arg_pcode) THEN arg_pcode = ''
IF IsNull(arg_ycreason) THEN arg_ycreason = ''
IF IsNull(arg_orderid) THEN arg_orderid = 0
IF IsNull(arg_reason) THEN arg_reason = ''
IF IsNull(arg_unit) THEN arg_unit = ''
IF IsNull(arg_failqty) THEN arg_failqty = 0
IF IsNull(arg_facthours) THEN arg_facthours = 0
if isnull(arg_wpcode) then arg_wpcode = ''

IF billtype = 0 OR billtype = 1 THEN
	IF Trim(arg_procode) = ''  THEN
		rslt = 0
		arg_msg = '行:'+String(arg_printid)+',工序编号不能为空!'
		GOTO ext
	END IF
	
	IF Trim(arg_proname) = '' THEN
		rslt = 0
		arg_msg = '行:'+String(arg_printid)+',工序名称不能为空'
		GOTO ext
	END IF
END IF

IF arg_qty = 0  THEN
	rslt = 1
	GOTO ext
END IF

IF billtype = 0 AND uo_option_taskwork2_noorder = 0 AND arg_orderid = 0 THEN
	rslt = 0
	arg_msg = '请选择生产计划,第'+String(arg_printid)+'行'
	GOTO ext
ELSEIF  billtype = 1 AND uo_option_taskwork_person_noorder = 0 AND arg_orderid = 0 THEN
	rslt = 0
	arg_msg = '请选择生产计划,第'+String(arg_printid)+'行'
	GOTO ext
END IF

IF arg_orderid > 0 THEN
	Decimal ld_orderqty,ld_acmpqty,ld_trueqty
	
	SELECT ordercode,orderqty,acmpqty
		INTO :ls_ordercode,:ld_orderqty,:ld_acmpqty
		FROM u_order_ml
		WHERE scid = :scid
		AND orderid = :arg_orderid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '行:'+String(arg_printid)+',查询生产计划号失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF uo_option_if_taskwork_acmpqty = 1 THEN
		ld_trueqty = ld_acmpqty
	ELSE
		ld_trueqty = ld_orderqty
	END IF
	
	Decimal ld_othertask_qty
	Decimal ld_Otherbill_qty,ld_Otherbill_qty_2
	Decimal ld_workqty
	Decimal ld_mx_qty
	Decimal ld_finish_qty,ld_collect_qty
	Long l
	
	IF uo_option_taskwork_procode_order = 1 THEN
		SELECT (proqty / :ld_orderqty) * :ld_trueqty INTO :ld_workqty
			FROM U_OrderRqwp
			WHERE scid = :scid
			AND orderid = :arg_orderid
			AND procode = :arg_procode;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '行:'+String(arg_printid)+',查询计划:'+ls_ordercode+',工序:'+arg_procode+',计划数量失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	ELSE
		//查询产品是否组合配置
		Long ll_statusflag
		Decimal ld_pzqty
		Boolean lb_iffind = FALSE
		String ls_pz_status
		s_mtrlcfg_expr s_pz[]
		
		SELECT statusflag INTO :ll_statusflag
			FROM u_mtrldef
			Where mtrlid = :arg_mtrlid ;
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询产品是否使用组合配置失败'+sqlca.SQLErrText
			GOTO ext
		END IF
		
		SELECT status INTO :ls_pz_status
			FROM u_sc_workprice
			WHERE mtrlid = :arg_mtrlid
			AND procode = :arg_procode
			and wpcode = :arg_wpcode;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '行:'+String(arg_printid)+',查询产品工序配置失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF ll_statusflag = 2 AND ls_pz_status <> '' THEN
			f_checkpz(arg_status,s_pz[])
			lb_iffind = FALSE
			FOR ll_i =  1 TO UpperBound(s_pz)
				IF s_pz[ll_i].cfgname = ls_pz_status THEN
					ld_pzqty = Dec(s_pz[ll_i].qty)
					lb_iffind = TRUE
					EXIT
				END IF
			NEXT
			
			IF lb_iffind = FALSE THEN
				ld_pzqty = 1
			END IF
		ELSE
			ld_pzqty = 1
		END IF
		
		
		SELECT workqty * :ld_trueqty * :ld_pzqty INTO :ld_workqty
			FROM u_sc_workprice
			WHERE mtrlid = :arg_mtrlid
			AND procode = :arg_procode
			and wpcode = :arg_wpcode;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '行:'+String(arg_printid)+',查询单件产品工序数失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	SELECT isnull(sum(finishqty),0) INTO :ld_finish_qty
		FROM U_OrderRqwp
		WHERE orderid = :arg_orderid
		AND scid = :scid
		AND procode = :arg_procode;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '行:'+String(arg_printid)+',查询指令单号:'+ls_ordercode+',工序:'+arg_procode+'已确认数失败,orderid:'+string(arg_orderid)+',scid:'+string(scid)+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	
	SELECT isnull(sum(qty),0) INTO :ld_othertask_qty
		FROM u_scwg_taskwork_2,u_scwg_taskwork_2_mx
		WHERE u_scwg_taskwork_2_mx.billid = u_scwg_taskwork_2.billid
		AND u_scwg_taskwork_2_mx.mtrlid = :arg_mtrlid
		AND u_scwg_taskwork_2_mx.orderid = :arg_orderid
		AND u_scwg_taskwork_2_mx.procode = :arg_procode
		AND u_scwg_taskwork_2_mx.billid <> :billid
		And (u_scwg_taskwork_2.affirmflag = 0 OR :uo_option_taskwork_not_affirm = 1 );
	IF sqlca.SQLCode = -1 THEN
		arg_msg = '行:'+String(arg_printid)+',查询指令单号:'+ls_ordercode+',工序:'+arg_procode+'其它已开单未确认数失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	SELECT isnull(sum(qty),0) INTO :ld_Otherbill_qty
		FROM u_scwg_taskwork_day,u_scwg_taskwork_day_mx
		WHERE u_scwg_taskwork_day_mx.billid = u_scwg_taskwork_day.billid
		AND u_scwg_taskwork_day_mx.mtrlid = :arg_mtrlid
		AND u_scwg_taskwork_day_mx.orderid = :arg_orderid
		AND u_scwg_taskwork_day_mx.procode = :arg_procode
		AND u_scwg_taskwork_day.scid = :scid
		And ( u_scwg_taskwork_day.affirmflag = 0 OR :uo_option_taskwork_not_affirm = 1 );
	IF sqlca.SQLCode = -1 THEN
		arg_msg = '行:'+String(arg_printid)+',查询指令单号:'+ls_ordercode+',工序:'+arg_procode+'工作组产品日分配计件单开单未确认数失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	SELECT isnull(sum(Amount),0) INTO :ld_Otherbill_qty_2
		FROM u_sc_taskwork,u_sc_taskworkmx
		WHERE u_sc_taskworkmx.scid = u_sc_taskwork.scid
		AND u_sc_taskworkmx.billid = u_sc_taskwork.billid
		AND u_sc_taskwork.mtrlid = :arg_mtrlid
		AND u_sc_taskwork.orderid = :arg_orderid
		AND u_sc_taskworkmx.procode = :arg_procode
		AND u_sc_taskwork.scid = :scid
		And (u_sc_taskwork.affirmflag = 0 OR :uo_option_taskwork_not_affirm = 1  );
	IF sqlca.SQLCode = -1 THEN
		arg_msg = '行:'+String(arg_printid)+',查询指令单号:'+ls_ordercode+',工序:'+arg_procode+'产品个人计件单开单未确认数失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF

	SELECT isnull(sum(u_data_wage.zx_qty),0)
		INTO :ld_collect_qty
		FROM u_data_collect INNER JOIN
		u_data_wage ON u_data_collect.collectid = u_data_wage.collectid
		WHERE u_data_collect.scid = :scid
		and u_data_collect.orderid = :arg_orderid
		and u_data_wage.procode = :arg_procode;
	IF sqlca.SQLCode = -1 THEN
		arg_msg = '行:'+String(arg_printid)+',查询工序:'+arg_procode+'注塑质检单杂项数量失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	

	FOR l = 1 TO it_mxbt
		IF taskworkmx[l].procode = arg_procode AND &
			taskworkmx[l].orderid = arg_orderid THEN
			ld_mx_qty = ld_mx_qty + taskworkmx[l].qty
		END IF
	NEXT
	
	IF uo_option_taskwork_not_affirm = 1 THEN
		ld_finish_qty = 0
	END IF
	
	IF arg_qty + ld_finish_qty + ld_othertask_qty + ld_Otherbill_qty + ld_Otherbill_qty_2 + ld_mx_qty + ld_collect_qty > ld_workqty THEN
		rslt = 0
		IF uo_option_if_taskwork_acmpqty = 0 THEN
			arg_msg = '第 '+String(arg_printid)+' 行,指令单号:'+ls_ordercode+',工序:'+arg_procode+',计件数量不能大于计划生产数,计划工序数:'+String(ld_workqty,'####0.####')+',已完成数:'+String(ld_finish_qty,'####0.####')+',本单已开单:'+String(ld_mx_qty,'####0.####')+',其它单已开单:'+String(ld_othertask_qty + ld_Otherbill_qty + ld_Otherbill_qty_2 + ld_collect_qty,'####0.####')+',不能开单:'+String(arg_qty,'####0.####')
		ELSE
			arg_msg = '第 '+String(arg_printid)+' 行,指令单号:'+ls_ordercode+',工序:'+arg_procode+',计件数量不能大于计划已进仓数,已进仓工序数:'+String(ld_workqty,'####0.####')+',已完成数:'+String(ld_finish_qty,'####0.####')+',本单已开单:'+String(ld_mx_qty,'####0.####')+',其它单已开单:'+String(ld_othertask_qty + ld_Otherbill_qty + ld_Otherbill_qty_2 + ld_collect_qty,'####0.####')+',不能开单:'+String(arg_qty,'####0.####')
		END IF
		
		GOTO ext
	END IF
END IF

IF billtype = 0 OR billtype = 1 THEN
	Decimal ld_workprice
	//检查限价
	IF uo_option_taskwork_price_if_mod = 1 THEN //启用检查限价选项
		IF uo_option_taskwork_procode_order = 0 OR arg_orderid = 0 THEN //按工价表限价
			SELECT workPrice INTO :ld_workprice
				FROM u_sc_workprice
				WHERE mtrlid = :arg_mtrlid
				AND procode = :arg_procode
				and wpcode = :arg_wpcode;
			IF sqlca.SQLCode = 0 THEN
				IF ld_workprice <> arg_price THEN
					rslt = 0
					arg_msg = '行:'+String(arg_printid)+',工序:'+arg_procode+' 工价表工价为:'+String(ld_workprice,'#,##0.00########')+',不能输入工价:'+String(arg_price,'#,##0.00########')
					GOTO ext
				END IF
			ELSE
				SELECT workprice INTO :ld_workprice
					FROM u_sc_workprocedure
					WHERE code = :arg_procode
					AND ifpubl = 1;
				IF sqlca.SQLCode <> 0 THEN
					rslt = 0
					arg_msg = '行:'+String(arg_printid)+',查询公共工序:'+arg_procode+' 工价失败'+'~n'+sqlca.SQLErrText
					GOTO ext
				END IF
				
				IF ld_workprice <> arg_price THEN
					rslt = 0
					arg_msg = '行:'+String(arg_printid)+',公共工序:'+arg_procode+' 工价为:'+String(ld_workprice,'#,##0.00########')+',不能输入工价:'+String(arg_price,'#,##0.00########')
					GOTO ext
				END IF
			END IF
		ELSE //按生产计划工序明细限价
			SELECT workPrice INTO :ld_workprice
				FROM U_OrderRqwp
				WHERE scid = :scid
				AND orderid = :arg_orderid
				AND procode = :arg_procode;
			IF sqlca.SQLCode = 0 THEN
				IF ld_workprice <> arg_price THEN
					rslt = 0
					arg_msg = '行:'+String(arg_printid)+',工序:'+arg_procode+' 生产计划工序明细工价为:'+String(ld_workprice,'#,##0.00########')+',不能输入工价:'+String(arg_price,'#,##0.00########')
					GOTO ext
				END IF
			ELSE
				SELECT workprice INTO :ld_workprice
					FROM u_sc_workprocedure
					WHERE code = :arg_procode
					AND ifpubl = 1;
				IF sqlca.SQLCode <> 0 THEN
					rslt = 0
					arg_msg = '行:'+String(arg_printid)+',查询公共工序:'+arg_procode+' 工价失败'+'~n'+sqlca.SQLErrText
					GOTO ext
				END IF
				
				IF ld_workprice <> arg_price THEN
					rslt = 0
					arg_msg = '行:'+String(arg_printid)+',公共工序:'+arg_procode+' 工价为:'+String(ld_workprice,'#,##0.00########')+',不能输入工价:'+String(arg_price,'#,##0.00########')
					GOTO ext
				END IF
			END IF
		END IF
	END IF
END IF


//写入内容
it_mxbt++
taskworkmx[it_mxbt].mtrlid = arg_mtrlid
taskworkmx[it_mxbt].procode = arg_procode
taskworkmx[it_mxbt].proname = arg_proname
taskworkmx[it_mxbt].qty = arg_qty
taskworkmx[it_mxbt].price = arg_price
taskworkmx[it_mxbt].mxdscrp = arg_mxdscrp
taskworkmx[it_mxbt].printid = arg_printid
taskworkmx[it_mxbt].status = arg_status
taskworkmx[it_mxbt].woodcode = arg_woodcode
taskworkmx[it_mxbt].pcode = arg_pcode
taskworkmx[it_mxbt].ycreason = arg_ycreason
taskworkmx[it_mxbt].orderid = arg_orderid
taskworkmx[it_mxbt].ordercode = ls_ordercode
taskworkmx[it_mxbt].reason = arg_reason
taskworkmx[it_mxbt].unit = arg_unit
taskworkmx[it_mxbt].failqty = arg_failqty
taskworkmx[it_mxbt].facthours = arg_facthours
taskworkmx[it_mxbt].wpcode = arg_wpcode

ext:
IF rslt = 0 THEN p_clearmx()
Return(rslt)














end function

public function integer auditing_1 (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg, boolean arg_ifcommit);//arg_wrkgrpid : -1 全部工作组

Long cnt,i
Int rslt = 1
Decimal ls_emp_sumwage
datastore ds_emp_sumwage
uo_wage u_wage
u_wage = Create uo_wage

IF uo_option_taskwork_not_affirm = -1000 THEN
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF uo_option_check_noworkprice = -1000 THEN
	arg_msg = '选项:[240]计件单没有工价不能审核,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF


IF uo_option_taskwork_not_affirm = 0 THEN
	cnt = 0
	SELECT count(*)
		INTO :cnt
		FROM u_scwg_taskwork_2
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		and (u_scwg_taskwork_2.scid = :arg_scid or :arg_scid = -1)
		AND u_scwg_taskwork_2.affirmflag = 0
		AND u_scwg_taskwork_2.billtype = 1
		Using commit_transaction;
	IF commit_transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询是否有单未确认操作失败,'+commit_transaction.SQLErrText
		GOTO ext
	END IF
	
	IF cnt > 0 THEN
		rslt = 0
		arg_msg = '该月份存在未确认的单据('+String(cnt)+'),请先全部确认'
		GOTO ext
	END IF
END IF

cnt = 0
SELECT count(*)
	INTO :cnt
	FROM u_scwg_taskwork_2
	WHERE u_scwg_taskwork_2.wageid = :arg_wageid
	AND u_scwg_taskwork_2.wagemth = :arg_wagemth
	and (u_scwg_taskwork_2.scid = :arg_scid or :arg_scid = -1)
	AND u_scwg_taskwork_2.flag = 0
	AND u_scwg_taskwork_2.billtype = 1
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询是否有单要审核操作失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF cnt = 0 THEN
	rslt = 0
	arg_msg = '该月份不存在要审核的单据,请检查'
	GOTO ext
END IF

//SELECT count(*)
//	INTO :cnt
//	FROM u_scwg_taskwork_2
//	WHERE u_scwg_taskwork_2.wageid = :arg_wageid
//	AND u_scwg_taskwork_2.wagemth = :arg_wagemth
//	AND u_scwg_taskwork_2.flag = 1
//	AND u_scwg_taskwork_2.billtype = 1
//	USING commit_transaction;
//IF commit_transaction.SQLCode <> 0 THEN
//	rslt = 0
//	arg_msg = '查询是否有单已经审核操作失败,'+commit_transaction.SQLErrText
//	GOTO ext
//END IF
//
//IF cnt > 0 THEN
//	rslt = 0
//	arg_msg = '该月份的工资项目存在部分已审核的记录，请先撤审'
//	GOTO ext
//END IF

ds_emp_sumwage = Create datastore
ds_emp_sumwage.DataObject = 'dw_emp_sumwage_12'
ds_emp_sumwage.SetTransObject(sqlca)

IF ds_emp_sumwage.Retrieve(arg_scid,arg_wagemth,arg_wageid,0) <= 0 THEN
	rslt = 0
	arg_msg = '本月没有单据可审核或查询单据失败'
	GOTO ext
END IF

FOR i = 1 To ds_emp_sumwage.RowCount()
	ls_emp_sumwage = 0.00
	ls_emp_sumwage = ds_emp_sumwage.Object.sumwage[i]
	
	IF uo_option_check_noworkprice = 1 And ls_emp_sumwage = 0 THEN
		rslt = 0
		arg_msg = '行'+String(i)+',没有填写工价,不允许审核'
		GOTO ext
	END IF
	
	IF u_wage.f_setwagemxdata(arg_wagemth,ds_emp_sumwage.Object.u_scwg_taskwork_2_empid[i],arg_wageid,ls_emp_sumwage,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

IF uo_option_taskwork_not_affirm = 0 THEN
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 1,
		u_scwg_taskwork_2.auditingrep = :publ_operator,
		u_scwg_taskwork_2.auditingdate = getdate()
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		and (u_scwg_taskwork_2.scid = :arg_scid or :arg_scid = -1)
		AND u_scwg_taskwork_2.flag = 0
		AND u_scwg_taskwork_2.billtype = 1
		Using commit_transaction;
ELSE
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 1,
		u_scwg_taskwork_2.auditingrep = :publ_operator,
		u_scwg_taskwork_2.auditingdate = getdate(),
		u_scwg_taskwork_2.affirmdate = getdate(),
		u_scwg_taskwork_2.affirmemp = :publ_operator,
		u_scwg_taskwork_2.affirmflag = 1
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		and (u_scwg_taskwork_2.scid = :arg_scid or :arg_scid = -1)
		AND u_scwg_taskwork_2.flag = 0
		AND u_scwg_taskwork_2.billtype = 1
		Using commit_transaction;
END IF
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新审核标志失败，原因：'+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF


ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF

Destroy u_wage
RETURN rslt






end function

public function integer c_auditing_1 (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
Long ll_flagnum,i
Decimal ls_emp_sumwage
DateTime ls_null
SetNull(ls_null)

IF uo_option_taskwork_not_affirm = -1000 THEN
	arg_msg = '选项:[080]计件单不使用确认功能,读取初始默认值失败,操作取消!'
	rslt = 0
	GOTO ext
END IF

IF f_check_wage_audit(arg_wagemth,arg_scid,arg_msg) = 0 THEN
	rslt = 0
	arg_msg = arg_msg + ',不能撤审'
	GOTO ext
END IF


Long cnt
cnt = 0
SELECT count(*)
	INTO :cnt
	FROM u_wage_change
	WHERE wagemth = :arg_wagemth
	And wageid = :arg_wageid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询该月份该工资项目是否已开工资变更单失败'+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '该月份该工资项目已开工资变更单,不能重复开单'
	GOTO ext
END IF


uo_wage u_wage
u_wage = Create uo_wage

SELECT count(*)
	INTO :ll_flagnum
	FROM u_scwg_taskwork_2
	WHERE u_scwg_taskwork_2.wageid = :arg_wageid
	AND u_scwg_taskwork_2.wagemth = :arg_wagemth
	AND u_scwg_taskwork_2.flag = 1
	AND u_scwg_taskwork_2.billtype = 1
	Using commit_transaction;
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询是否已有单据已审核操作失败,'+commit_transaction.SQLErrText
	GOTO ext
END IF

IF ll_flagnum <= 0 THEN
	rslt = 0
	arg_msg = '该月份的工资项目不存在审核的记录'
	GOTO ext
END IF

//IF u_wage.f_wage_clear(arg_wageid,arg_wagemth,arg_msg,FALSE) = 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
datastore ds_emp_sumwage
ds_emp_sumwage = Create datastore
ds_emp_sumwage.DataObject = 'dw_emp_sumwage_12'
ds_emp_sumwage.SetTransObject(sqlca)

IF ds_emp_sumwage.Retrieve(arg_scid,arg_wagemth,arg_wageid,1) <= 0 THEN
	rslt = 0
	arg_msg = '本月没有单据已审核或查询单据失败'
	GOTO ext
END IF

FOR i = 1 To ds_emp_sumwage.RowCount()
	ls_emp_sumwage = 0.00
	ls_emp_sumwage = 0 - ds_emp_sumwage.Object.sumwage[i]
	
	IF u_wage.f_setwagemxdata(arg_wagemth,ds_emp_sumwage.Object.u_scwg_taskwork_2_empid[i],arg_wageid,ls_emp_sumwage,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

//更新审核标志
IF uo_option_taskwork_not_affirm = 0 THEN
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 0,
		u_scwg_taskwork_2.Auditingrep = '',
		u_scwg_taskwork_2.Auditingdate = :ls_null
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		AND (u_scwg_taskwork_2.scid = :arg_scid OR :arg_scid = -1)
		AND u_scwg_taskwork_2.billtype = 1
		And u_scwg_taskwork_2.flag = 1 Using commit_transaction;
ELSE
	UPDATE u_scwg_taskwork_2
		SET u_scwg_taskwork_2.flag = 0,
		u_scwg_taskwork_2.Auditingrep = '',
		u_scwg_taskwork_2.Auditingdate = :ls_null,
		u_scwg_taskwork_2.affirmemp = '',
		u_scwg_taskwork_2.affirmdate = :ls_null,
		u_scwg_taskwork_2.affirmflag = 0
		WHERE u_scwg_taskwork_2.wageid = :arg_wageid
		AND u_scwg_taskwork_2.wagemth = :arg_wagemth
		AND (u_scwg_taskwork_2.scid = :arg_scid OR :arg_scid = -1)
		AND u_scwg_taskwork_2.billtype = 1
		And u_scwg_taskwork_2.flag = 1 Using commit_transaction;
END IF
IF commit_transaction.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新审核标志失败，原因：'+commit_transaction.SQLErrText
	GOTO ext
ELSEIF commit_transaction.SQLNRows = 0 THEN
	rslt = 0
	arg_msg = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText
	GOTO ext
END IF


ext:
IF rslt = 0 THEN
	ROLLBACK Using commit_transaction;
ELSEIF  rslt = 1 And arg_ifcommit THEN
	COMMIT Using commit_transaction;
END IF

Destroy u_wage
RETURN rslt







end function

on uo_scwg_taskwork_2.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_scwg_taskwork_2.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event constructor;String arg_msg
String str_optionvalue

str_optionvalue = ''
f_get_sys_option_value('080',str_optionvalue,arg_msg)
uo_option_taskwork_not_affirm = Long(str_optionvalue)

str_optionvalue = ''
f_get_sys_option_value('104',str_optionvalue,arg_msg)
uo_option_taskwork2_noorder = Long(str_optionvalue)

str_optionvalue = ''
f_get_sys_option_value('106',str_optionvalue,arg_msg)
uo_option_taskwork_person_noorder = Long(str_optionvalue)

str_optionvalue = ''
f_get_sys_option_value('064',str_optionvalue,arg_msg)
uo_option_taskwork_procode_order = Long(str_optionvalue)

str_optionvalue = ''
f_get_sys_option_value('081',str_optionvalue,arg_msg)
uo_option_taskwork_price_if_mod = Long(str_optionvalue)

str_optionvalue = ''
f_get_sys_option_value('202',str_optionvalue,arg_msg)
uo_option_if_taskwork_acmpqty = Long(str_optionvalue)


str_optionvalue = ''
f_get_sys_option_value('240',str_optionvalue,arg_msg)
uo_option_check_noworkprice = Long(str_optionvalue)
end event