FXApp/ws_objects/l1_uo_pc.pbl.src/uo_finish.sru

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

global type uo_finish from nonvisualobject
end type
global uo_finish uo_finish

type variables
public protectedwrite long finishid
public protectedwrite string finishcode
public protectedwrite  datetime opdate   
public protectedwrite  string opemp  
public protectedwrite string modemp
public protectedwrite  datetime  moddate  
public protectedwrite  string auditingrep,secauditingrep,thrauditingrep
public protectedwrite  datetime auditingdate,secauditingdate,thrauditingdate
public protectedwrite long flag
public protectedwrite long secflag,thrflag 

long scid 
string relcode
string assign_emp
datetime finishdate 
long printnum
long wrkGrpid //自制:工组	id; 外协:供应商id
long wagemth  //自制:月份; 外协:结算方式
string dscrp
long billtype //0:工序派工; 1:外协工序派工
string inputway //建立途径 (来自安卓.....) 
 
Boolean if_getid_ture = false
long it_mxbt=0              //明细结构数组末指针
//private:
 s_finish_mx  s_finish_mx[]  //明细结构  
boolean it_newbegin=true    //新建标志
boolean it_updatebegin=false//修改标志
 
int uo_option_inware_mtrlcuscode
int uo_option_taskplancode
int uo_option_finish_wagemth_type
int uo_option_orderrqwp_auditgj
end variables
forward prototypes
public function integer p_clearmx ()
public function integer p_reset ()
public function integer newbegin (integer arg_scid, ref string arg_msg)
public function integer updatebegin (long arg_finishid, ref string arg_msg)
public function integer getinfo (long arg_finishid, ref string arg_msg)
public function integer save (s_finish_mx s_mx[], ref string arg_msg, boolean arg_ifcommit)
public function integer audit (long arg_finishid, ref string arg_msg, boolean arg_ifcommit)
public function integer c_audit (long arg_finishid, ref string arg_msg, boolean arg_ifcommit)
public function integer secauditing (long arg_finishid, ref string arg_msg, boolean arg_ifcommit)
public function integer c_secauditing (long arg_finishid, ref string arg_msg, boolean arg_ifcommit)
public function integer c_thrauditing (long arg_finishid, ref string arg_msg, boolean arg_ifcommit)
public function integer del (long arg_finishid, ref string arg_msg, boolean arg_ifcommit)
public function integer p_del_inware (long arg_inwareid, long arg_printid, ref string arg_msg)
public function integer uof_find_cust (long arg_scid, long arg_orderid, ref long arg_cusid, ref string arg_plancode, ref string arg_mtrlcuscode, ref string arg_msg)
public function integer p_del_taskwork (ref string arg_msg)
public function integer p_create_inware (long arg_printid, long arg_taskid, long arg_storageid, string arg_location, decimal arg_comqty, decimal arg_workprice, string arg_mxdscrp, ref string arg_msg)
public function integer p_getinfo (long arg_finishid, ref string arg_msg)
public function integer p_create_taskwork (s_finish_mx s_mx[], ref string arg_msg, integer arg_ifaudit)
public function integer thrauditing (long arg_finishid, ref string arg_msg, boolean arg_ifcommit, integer arg_ifaudit)
public function integer p_del_mustpay (s_finish_mx s_mx[], ref string arg_msg)
public function integer p_create_mustpay (s_finish_mx s_mx[], ref string arg_msg)
public function integer mod_price (long arg_finishid, long arg_printid, decimal arg_fprice, decimal arg_jgprice, decimal arg_taxrate, decimal arg_rebate, 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()
//清除对象及其明细
scid = 0
finishid = 0
finishcode = ''
relcode = ''
assign_emp = ''
wrkGrpid = 0 
opemp = '' 
modemp = '' 
auditingrep = '' 
flag= 0
secflag = 0
dscrp =  ''
thrflag = 0  
wagemth = 0
SetNull(finishdate) 
billtype = 0
//-------
it_newbegin=false
it_updatebegin=false
it_mxbt = 0
//清除明细
p_clearmx()
RETURN 1

end function

public function integer newbegin (integer arg_scid, ref string arg_msg);//重置对象,设定业务类型与关联ID,准备建立新单
//0 fail 1 success

Long rslt = 1,CNT = 0

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 updatebegin (long arg_finishid, ref string arg_msg);//UPDATEbegin(long arg_finishid,ref string arg_msg)
//从置对象,设定业务类型与关联ID,准备更新进仓单
//0 fail 1 success

Long rslt = 1

IF arg_finishid <= 0 THEN
	rslt = 0
	ARG_MSG = '错误销售订单唯一码'
	GOTO ext
END IF

IF p_getinfo(arg_finishid,ARG_MSG) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF flag <> 0 THEN
	rslt = 0
	arg_msg = '完工单已经审核,不可以修改'
	GOTO ext
END IF
 
p_clearmx() //清除明细
it_newbegin = FALSE
it_updatebegin = TRUE
ext:

IF rslt = 0 THEN p_reset()
RETURN rslt

end function

public function integer getinfo (long arg_finishid, ref string arg_msg);//getinfo(long arg_finishid,string arg_msg)
//0 失败  1成功
Int rslt = 1,i = 1,no_mxcheck = 0

IF arg_finishid <= 0 THEN
	rslt = 0
	arg_msg = '错误完工单唯一码'
	GOTO ext
END IF

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

//用游标读取明细
DECLARE cur_finishmx CURSOR FOR
	SELECT u_finishmx.scid,
	u_finishmx.finishid,
	u_finishmx.printid,
	u_finishmx.taskid,
	u_finishmx.procode,
	u_finishmx.proname,
	u_finishmx.comqty,
	u_finishmx.workprice, 
	u_finishmx.mxdscrp,
	u_finishmx.Wageid,
	u_finishmx.empid,
	u_finishmx.workgroupid,
	u_finishmx.reltaskworkid,
	u_finishmx.reltaskworkcode,
	u_finishmx.storageid,
	u_finishmx.relinwareid,
	u_finishmx.relinwarecode,
	u_sc_task.taskcode,
	u_sc_task.flag,
	u_sc_task.lastflag,
	u_finishmx.location,
	isnull(u_gz_wageitem.wagemode,0),
	u_sc_task.mtrlid,
	u_sc_task.status,
	u_sc_task.woodcode,
	u_sc_task.pcode
FROM u_finishmx INNER JOIN
      u_sc_task ON u_finishmx.taskid = u_sc_task.taskid LEFT OUTER JOIN
      u_gz_wageitem ON u_finishmx.wageid = u_gz_wageitem.wageid
	WHERE u_finishmx.finishid = :arg_finishid ;
	
OPEN cur_finishmx;
FETCH cur_finishmx INTO :s_finish_mx[i].scid,:s_finish_mx[i].finishid,
	:s_finish_mx[i].printid,:s_finish_mx[i].taskid,
	:s_finish_mx[i].procode,
	:s_finish_mx[i].proname,
	:s_finish_mx[i].comqty,
	:s_finish_mx[i].workprice, 
	:s_finish_mx[i].mxdscrp, 
	:s_finish_mx[i].Wageid,
	:s_finish_mx[i].empid,
	:s_finish_mx[i].workgroupid,
	:s_finish_mx[i].reltaskworkid,
	:s_finish_mx[i].reltaskworkcode,
	:s_finish_mx[i].storageid,
	:s_finish_mx[i].relinwareid,
	:s_finish_mx[i].relinwarecode,
	:s_finish_mx[i].taskcode,
	:s_finish_mx[i].taskflag,
	:s_finish_mx[i].lastflag,
	:s_finish_mx[i].location,
	:s_finish_mx[i].wagemode,
	:s_finish_mx[i].mtrlid,
	:s_finish_mx[i].status,
	:s_finish_mx[i].woodcode,
	:s_finish_mx[i].pcode;
DO WHILE sqlca.SQLCode = 0
	i++
	FETCH cur_finishmx INTO :s_finish_mx[i].scid,:s_finish_mx[i].finishid,
	:s_finish_mx[i].printid,:s_finish_mx[i].taskid,
	:s_finish_mx[i].procode,
	:s_finish_mx[i].proname,
	:s_finish_mx[i].comqty,
	:s_finish_mx[i].workprice, 
	:s_finish_mx[i].mxdscrp, 
	:s_finish_mx[i].Wageid,
	:s_finish_mx[i].empid,
	:s_finish_mx[i].workgroupid,
	:s_finish_mx[i].reltaskworkid,
	:s_finish_mx[i].reltaskworkcode,
	:s_finish_mx[i].storageid,
	:s_finish_mx[i].relinwareid,
	:s_finish_mx[i].relinwarecode,
	:s_finish_mx[i].taskcode,
	:s_finish_mx[i].taskflag,
	:s_finish_mx[i].lastflag,
	:s_finish_mx[i].location,
	:s_finish_mx[i].wagemode,
	:s_finish_mx[i].mtrlid,
	:s_finish_mx[i].status,
	:s_finish_mx[i].woodcode,
	:s_finish_mx[i].pcode;
LOOP
CLOSE cur_finishmx;

//检验明细是否读入完整
SELECT count(*) INTO :no_mxcheck
	FROM u_finishmx
	Where u_finishmx.finishid = :arg_finishid  ;
IF sqlca.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

it_mxbt = i - 1
it_newbegin = FALSE
it_updatebegin = FALSE

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

end function

public function integer save (s_finish_mx s_mx[], ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,i, j
DateTime server_dt
Long ll_finishid,ll_lastflag
String ls_finishcode
Long cnt
DateTime ld_finishdate
String ls_sccode
Decimal lde_workhour

String ls_empstr

IF uo_option_finish_wagemth_type = -1000 THEN
	rslt = 0
	arg_msg = '选项:[401]工序完工单的计件月份按仓审时间,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

datastore ds
ds = Create datastore
IF sys_option_finish_taskwork_emp = 0 THEN // 工作中心派工的工序完工单计件审时生成计件单员工明细模式
	ds.DataObject = 'ds_workgroupmx_empid'
ELSE
	ds.DataObject = 'ds_sc_task_empid'
END IF
ds.SetTransObject(sqlca)



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


IF IsNull(relcode) THEN relcode = ''
IF IsNull(scid) THEN scid = 0
IF IsNull(dscrp) THEN dscrp = ''
IF IsNull(assign_emp) THEN assign_emp = ''
IF IsNull(Wrkgrpid) THEN Wrkgrpid = 0
IF IsNull(Wagemth) THEN Wagemth = 0
if isnull(inputway) then inputway = ''

IF assign_emp = '' THEN
	arg_msg = '请填入负责人!'
	rslt = 0
	GOTO ext
END IF
opemp = publ_operator
SELECT Top 1 getdate() Into :server_dt From u_user ;

IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF

opdate = server_dt //填写单据建立时间(最近修改时间)

IF Wrkgrpid = 0 THEN
	rslt = 0
	IF billtype = 0 THEN
		arg_msg = "请选择工组"
	ELSE
		arg_msg = "请选择供应商"
	END IF
	GOTO ext
END IF

IF billtype = 0 THEN
	IF uo_option_finish_wagemth_type = 0 THEN
		IF Wagemth = 0 THEN
			rslt = 0
			arg_msg = "请填入计件月份"
			GOTO ext
		END IF
	ELSE
		Wagemth = 0
	END IF
ELSE
	IF Wagemth = 0 THEN //
		rslt = 0
		arg_msg = "请选择结算方式"
		GOTO ext
	END IF
END IF

it_mxbt = UpperBound(s_mx)

IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空
	rslt = 0
	arg_msg = "没有正确完工单明细内容"
	GOTO ext
END IF

//检查完工单数量是否超派工单
Decimal ld_qty_otherfinish_notaudit
Decimal ld_qty_sc_task,ld_fqty_sc_task
Decimal ld_qty_samebill_othermx
Long ll_orderid
String ls_relcode,ls_relcode_arr[]
Long it_mxbt_rel,k
Int li_wagemode
Int li_tasktype

FOR i = 1 To it_mxbt
	SELECT u_sc_task.qty,u_sc_task.fqty,u_sc_task.orderid,u_sc_task.tasktype
		INTO :ld_qty_sc_task,:ld_fqty_sc_task,:ll_orderid,:li_tasktype
		From u_sc_task Where u_sc_task.taskid = :s_mx[i].taskid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '明细行:'+String(i)+',查询相关派工单数量及已完成数失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	SELECT taskrelcode INTO :ls_relcode
		FROM u_order_ml
		WHERE scid = :scid
		And orderid = :ll_orderid;
	IF sqlca.SQLCode = 0 THEN
		FOR k = 1 To it_mxbt_rel
			IF ls_relcode = ls_relcode_arr[k] THEN
				GOTO _exit_rel
			END IF
		NEXT
		
		it_mxbt_rel++
		ls_relcode_arr[it_mxbt_rel] = ls_relcode
		_exit_rel:
	END IF
	
	
	SELECT isnull(sum(u_finishmx.comqty),0) INTO :ld_qty_otherfinish_notaudit
		FROM u_finish,u_finishmx
		WHERE u_finish.finishid <> :finishid
		AND u_finish.finishid = u_finishmx.finishid
		AND u_finishmx.taskid = :s_mx[i].taskid
		And u_finish.flag = 0;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '明细行:'+String(i)+',查询相关派工单其它已开未审完工单数量失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	ld_qty_samebill_othermx = 0
	FOR j = 1 To i - 1
		IF s_mx[j].taskid = s_mx[i].taskid THEN
			ld_qty_samebill_othermx += s_mx[j].comqty
		END IF
	NEXT
	
	IF ld_qty_sc_task < ld_fqty_sc_task + ld_qty_otherfinish_notaudit + ld_qty_samebill_othermx + s_mx[i].comqty THEN
		arg_msg = '明细行:'+String(i)+',超派工单数量,请检查,~n派工数量:'+String(ld_qty_sc_task,'##0.#########')+'~n已完工数量:'+String(ld_fqty_sc_task,'##0.#########')+'~n其它完工单已开未审数量:'+String(ld_qty_otherfinish_notaudit,'##0.#########')+'~n本单其它明细行相同派工单数量:'+String(ld_qty_samebill_othermx,'##0.#########')+'~n本明细数量:'+String(s_mx[i].comqty,'##0.#########')
		rslt = 0
		GOTO ext
	END IF
	
	IF s_mx[i].wageid > 0 THEN
		SELECT wagemode INTO :li_wagemode
			FROM u_gz_wageitem
			Where wageid = :s_mx[i].wageid;
		IF sqlca.SQLCode <> 0 THEN
			arg_msg = '明细行:'+String(i)+',查询工资项目属性失败,'+sqlca.SQLErrText
			rslt = 0
			GOTO ext
		END IF
		
		IF li_wagemode <> 16 And li_wagemode <> 17 And li_wagemode <> 12 THEN
			arg_msg = '明细行:'+String(i)+',工资项目类型不属于工作中心计件或个人计件,请检查'
			rslt = 0
			GOTO ext
		END IF
		
		If (li_wagemode = 16 Or li_wagemode = 17) And s_mx[i].workgroupid = 0 THEN
			arg_msg = '明细行:'+String(i)+',工资项目类型属于工作中心计件,但没有选择工作中心,请检查'
			rslt = 0
			GOTO ext
		END IF
		
		IF li_wagemode = 12 And s_mx[i].empid = 0 THEN
			arg_msg = '明细行:'+String(i)+',工资项目类型属于个人计件,但没有选择员工,请检查'
			rslt = 0
			GOTO ext
		END IF
	END IF
	
	
	//计算实际工时
	//实际工时=完工时间-开始时间-准备工时-收尾工时-待工工时
	SELECT top 1 datediff(second, :s_mx[i].starttime, :s_mx[i].endtime) / 3600.0 - :s_mx[i].beforehour - :s_mx[i].afterhour - :s_mx[i].waithour
		INTO :lde_workhour
		From u_user ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "计算实际工时错误, "+sqlca.SQLErrText
		GOTO ext
	END IF
	IF IsNull(lde_workhour) THEN lde_workhour = 0
	
	IF lde_workhour < 0 THEN
		arg_msg = '明细行:'+String(i)+',计算实际工时为['+String(lde_workhour, '#,##0.0####')+'],不合逻辑'
		rslt = 0
		GOTO ext
	END IF
	s_mx[i].workhour = lde_workhour
	
	//按工作中心”派工类型,记录工作中心人员
	ls_empstr = ''
	IF s_mx[i].workgroupid > 0 THEN
		IF sys_option_finish_taskwork_emp = 1 And li_tasktype = 1 THEN
			cnt = ds.Retrieve(s_mx[i].taskid)
		ELSE
			cnt = ds.Retrieve(s_mx[i].workgroupid)
		END IF
		FOR j = 1 To cnt
			ls_empstr += Trim(ds.Object.u_rs_empinfo_empname[j])+','
		NEXT
	END IF
	s_mx[i].empstr  = ls_empstr
NEXT

IF it_mxbt_rel > 0 THEN
	IF PosA(dscrp,'指令单生产批号:') > 0 THEN
		dscrp = MidA(dscrp,1,PosA(dscrp,'指令单生产批号:') - 1)
	END IF
	
	IF PosA(dscrp,'指令单相关号:') > 0 THEN
		dscrp = MidA(dscrp,1,PosA(dscrp,'指令单相关号:') - 1)
	END IF
	
	IF LenA(dscrp) > 0 THEN
		dscrp = dscrp + ' 指令单生产批号:'
	ELSE
		dscrp = '指令单生产批号:'
	END IF
	
	FOR k = 1 To it_mxbt_rel
		IF k = it_mxbt_rel THEN
			dscrp = dscrp + ls_relcode_arr[k]
		ELSE
			dscrp = dscrp + ls_relcode_arr[k] + ','
		END IF
	NEXT
	
END IF

IF LenA(dscrp) > 255 THEN dscrp = LeftA(dscrp,250)+'...'

///// //末工序必须选仓库
//FOR i = 1 TO it_mxbt
//	SELECT lastflag
//		INTO :ll_lastflag
//		FROM u_sc_task
//		Where taskid = :s_mx[i].taskid;
//	IF sqlca.SQLCode <> 0 THEN
//		rslt = 0
//		arg_msg = '第'+String(i)+'行,查询派工单资料失败'
//		GOTO ext
//	END IF
//	
//	IF ll_lastflag = 1 AND s_mx[i].storageid = 0 THEN
//		rslt = 0
//		arg_msg = '第'+String(i)+'行,请选择进仓仓库'
//		GOTO ext
//	END IF
//NEXT

////////////////////////////////////////////// //开始区分:新建/更新 处理
IF finishid = 0 THEN
	ll_finishid = f_sys_scidentity(0,"u_finish","finishid",arg_msg,True,id_sqlca)
	IF ll_finishid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	//取分部代号
	IF f_get_sccode(scid,sqlca,ls_sccode,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	IF billtype = 0 THEN
		ls_finishcode = getid(scid,ls_sccode+"PW",Date(server_dt),if_getid_ture,sqlca) //取得新单据编号
	ELSE
		ls_finishcode = getid(scid,ls_sccode+"PG",Date(server_dt),if_getid_ture,sqlca) //取得新单据编号
	END IF
	
	IF ls_finishcode = "err" THEN
		rslt = 0
		arg_msg = "无法获取工序完工单编号"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	INSERT INTO u_finish
		(scid,
		finishid ,
		finishcode,
		relcode,
		assign_emp,
		wrkgrpid,
		wagemth,
		opemp,
		opdate,
		dscrp,
		finishdate,
		billtype,
		inputway)
		VALUES (:scid,
		:ll_finishid,
		:ls_finishcode,
		:relcode,
		:assign_emp,
		:wrkgrpid,
		:wagemth,
		:opemp,
		:opdate,
		:dscrp,
		:finishdate,
		:billtype,
		:inputway);
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "插入生产完工单操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	//读取新finishid
	finishid = ll_finishid
	finishcode = ls_finishcode
	
ELSE
	UPDATE u_finish
		SET
		assign_emp = :assign_emp,
		relcode = :relcode ,
		wrkgrpid = :wrkgrpid,
		wagemth = :wagemth,
		modemp = :publ_operator,
		moddate = :server_dt,
		dscrp = :dscrp,
		finishdate = :finishdate
		WHERE finishid = :finishid
		And flag = 0 ;
	IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN
		rslt = 0
		arg_msg = "更新计划操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	//删除原有明细
	DELETE FROM u_finishmx
		Where u_finishmx.finishid = :finishid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = "删除旧有明细操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
	
	
END IF

FOR i = 1 To it_mxbt
	INSERT INTO u_finishmx
		(scid,
		finishid,
		taskid,
		printid,
		comqty,
		mxdscrp,
		empid,
		workgroupid,
		workprice,
		procode,
		proname,
		wageid,
		storageid,
		location,
		starttime,
		endtime,
		workhour,
		beforehour,
		afterhour,
		waithour,
		techlevel,
		empstr)
		VALUES (:scid,:finishid,
		:s_mx[i].taskid,
		:s_mx[i].printid,
		:s_mx[i].comqty,
		:s_mx[i].mxdscrp,
		:s_mx[i].empid,
		:s_mx[i].workgroupid,
		:s_mx[i].workprice,
		:s_mx[i].procode,
		:s_mx[i].proname,
		:s_mx[i].wageid,
		:s_mx[i].storageid,
		:s_mx[i].Location,
		:s_mx[i].starttime,
		:s_mx[i].endtime,
		:s_mx[i].workhour,
		:s_mx[i].beforehour,
		:s_mx[i].afterhour,
		:s_mx[i].waithour,
		:s_mx[i].techlevel,
		:s_mx[i].empstr) ;
	IF sqlca.SQLCode <> 0 THEN
		IF it_newbegin THEN finishid = 0 //还原finishid
		rslt = 0
		arg_msg = "插入明细操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
NEXT

it_newbegin = False
it_updatebegin = False

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

Return(rslt)

end function

public function integer audit (long arg_finishid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1 ,i
Long ll_taskid , ll_flag 
String ls_taskcode

uo_sc_task uo_task
uo_task = CREATE uo_sc_task

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

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

IF flag <> 0 THEN
	rslt = 0
	arg_msg = "完工单只有在待确认状态才可以执行确认"
	GOTO ext
END IF

IF secflag = 1 THEN
	rslt = 0
	arg_msg = "完工单已经经理审不可以执行审核"
	GOTO ext
END IF


FOR i = 1 TO it_mxbt
	ll_flag = s_finish_mx[i].taskflag
	
	IF ll_flag = 0 THEN
		rslt = 0
		arg_msg =  "查询派工单:"+String(s_finish_mx[i].taskcode)+"非进行状态，不能提交完成。"
		GOTO ext
	END IF  
	 
	IF uo_task.addcmpl(s_finish_mx[i].taskid,s_finish_mx[i].comqty,finishdate,publ_operator,arg_msg,FALSE) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT


UPDATE u_finish
	SET auditingrep = :publ_operator,
	auditingdate = getdate(),
	flag = 1
	WHERE finishid = :arg_finishid
	AND flag = 0
	and secflag = 0 ;
IF sqlca.SQLCode <> 0 OR sqlca.SQLNRows <= 0 THEN
	rslt = 0
	arg_msg = "完工单确认操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

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

DESTROY uo_task

RETURN rslt




end function

public function integer c_audit (long arg_finishid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1,i
Long ll_cnt
String ls_inwarecode
long ll_flag

DateTime null_dt
SetNull(null_dt) 
uo_sc_task uo_task
uo_task = CREATE uo_sc_task
IF arg_finishid = 0 THEN
	rslt = 0
	arg_msg = "没有撤销确认对象"
	GOTO ext
END IF

IF getinfo(arg_finishid,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
  
IF flag <> 1 THEN
	rslt = 0
	arg_msg = "只有在确认状态才可以执行撤销确认，请核对"
	GOTO ext
END IF

IF secflag <> 0 THEN
	rslt = 0
	arg_msg = "仓库审核状态有误，请核对"
	GOTO ext
END IF

FOR i = 1 TO it_mxbt

	ll_flag = s_finish_mx[i].taskflag
	
	IF uo_task.addcmpl(s_finish_mx[i].taskid,0 - s_finish_mx[i].comqty,null_dt,'',arg_msg,FALSE) = 0 THEN
		rslt = 0
		arg_msg = "更新派工单状态失败! " + arg_msg
		
		GOTO ext
	END IF
NEXT
 
UPDATE u_finish
	SET auditingrep = '',
	auditingdate = :null_dt,
	flag = 0 
	WHERE finishid = :arg_finishid
	AND flag = 1
	AND secflag = 0;
IF sqlca.SQLCode <> 0 OR sqlca.SQLNRows <= 0 THEN
	rslt = 0
	arg_msg = "完工单撤销确认操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF


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

DESTROY uo_task
RETURN rslt


end function

public function integer secauditing (long arg_finishid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1 ,i
Long ll_taskid , ll_flag
String ls_taskcode
Long ll_wagemth
DateTime server_dt

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

IF uo_option_finish_wagemth_type = -1000 THEN
	rslt = 0
	arg_msg = '选项:[401]工序完工单的计件月份按仓审时间,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

SELECT Top 1 getdate() Into :server_dt From u_user ;

IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败,日期 "
	GOTO ext
END IF

ll_wagemth = Long(String(Date(server_dt),'yyyymm'))

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

IF flag <> 1 THEN
	rslt = 0
	arg_msg = "完工单只有在已确认状态才可以执行仓库审核"
	GOTO ext
END IF

IF secflag <> 0 THEN
	rslt = 0
	arg_msg = "完工单只有在待仓库核状态才可以执行仓库审核"
	GOTO ext
END IF

UPDATE u_finish
	SET secauditingrep = :publ_operator,
	secauditingdate = getdate(),
	secflag = 1
	WHERE finishid = :arg_finishid
	AND flag = 1
	And secflag = 0;
IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN
	rslt = 0
	arg_msg = "完工单仓库审批操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

IF billtype = 0 THEN
	UPDATE u_finish
		SET wagemth = case :uo_option_finish_wagemth_type when 0 then wagemth else :ll_wagemth END
		Where finishid = :arg_finishid;
	IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN
		rslt = 0
		arg_msg = "完工单仓库审批操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
END IF

FOR i = 1 To it_mxbt
	IF s_finish_mx[i].lastflag = 1 And s_finish_mx[i].storageid > 0 THEN
		IF p_create_inware(s_finish_mx[i].printid,s_finish_mx[i].taskid,s_finish_mx[i].storageid,s_finish_mx[i].Location,s_finish_mx[i].comqty,s_finish_mx[i].workprice,s_finish_mx[i].mxdscrp,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
NEXT

secflag = 1

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



end function

public function integer c_secauditing (long arg_finishid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1,i

DateTime null_dt
SetNull(null_dt)

IF uo_option_finish_wagemth_type = -1000 THEN
	rslt = 0
	arg_msg = '选项:[401]工序完工单的计件月份按仓审时间,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


IF arg_finishid = 0 THEN
	rslt = 0
	arg_msg = "没有撤审对象"
	GOTO ext
END IF

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

IF flag <> 1 THEN
	rslt = 0
	arg_msg = "确认状态有误，请核对"
	GOTO ext
END IF

IF secflag <> 1 THEN
	rslt = 0
	arg_msg = "只有在已仓库审核状态才可以执行仓库撤审，请核对"
	GOTO ext
END IF

UPDATE u_finish
	SET secauditingrep = '',
	secauditingdate = :null_dt,
	secflag = 0
	WHERE finishid = :arg_finishid
	AND flag = 1
	And secflag = 1;
IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN
	rslt = 0
	arg_msg = "完工单仓库撤审操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

IF billtype = 0 THEN
	UPDATE u_finish
		SET wagemth = case :uo_option_finish_wagemth_type when 0 then wagemth else 0 END
		Where finishid = :arg_finishid;
	IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN
		rslt = 0
		arg_msg = "完工单仓库撤审操作失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
END IF

FOR i = 1 To it_mxbt
	IF s_finish_mx[i].relinwareid > 0 THEN
		IF p_del_inware(s_finish_mx[i].relinwareid,s_finish_mx[i].printid,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
NEXT

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

RETURN rslt



end function

public function integer c_thrauditing (long arg_finishid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1,i

DateTime null_dt
SetNull(null_dt)

If uo_option_orderrqwp_auditgj = -1000 Then
	rslt = 0
	arg_msg = '选项:[398]工价表如果未进行工价审,指令单工序明细生成时对应工序工价为0,读取初始默认值失败,操作取消!'
	Goto ext
End If

If arg_finishid = 0 Then
	rslt = 0
	arg_msg = "没有撤审对象"
	Goto ext
End If

If getinfo(arg_finishid,arg_msg) = 0 Then
	rslt = 0
	Goto ext
End If

If secflag <> 1 Then
	rslt = 0
	arg_msg = "仓库审核状态有误，请核对"
	Goto ext
End If

If thrflag <> 1 Then
	rslt = 0
	arg_msg = "只有在已计件审核状态才可以执行计件撤审，请核对"
	Goto ext
End If

Update u_finish
	Set thrauditingrep = '',
	thrauditingdate = :null_dt,
	thrflag = 0
	Where finishid = :arg_finishid
	And secflag = 1
	And thrflag = 1;
If sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 Then
	rslt = 0
	arg_msg = "完工单计件撤审操作失败"+"~n"+sqlca.SQLErrText
	Goto ext
End If

If billtype = 0 Then
	If p_del_taskwork(arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
	
	//20141121 选项 398 加强,工序完工单计件撤审的时候，如果工序的工价表已经进行工价审核，以最新的工价更新完工单的单价，否则更新为0
	If uo_option_orderrqwp_auditgj = 1 Then
		
		Update u_finishmx
			Set u_finishmx.workprice =  case isnull(u_sc_workprice.auditflag_gj,0) when 0 then 0 else  isnull(u_sc_workprice.workPrice,0) End
			From u_finishmx Inner JOIN
			u_sc_task ON u_finishmx.taskid = u_sc_task.taskid Inner JOIN
			u_Order_ml ON u_Order_ml.OrderID = u_sc_task.orderid And
			u_Order_ml.scid = u_sc_task.scid LEFT Outer JOIN
			U_OrderRqwp ON u_Order_ml.scid = U_OrderRqwp.scid And
			u_Order_ml.OrderID = U_OrderRqwp.orderid And
			u_sc_task.procode = U_OrderRqwp.Procode LEFT Outer JOIN
			u_sc_workprice ON
			CASE WHEN U_OrderRqwp.sonmtrlid = 0 THEN U_OrderRqwp.mtrlid ELSE U_OrderRqwp.sonmtrlid
			End = u_sc_workprice.Mtrlid And CASE WHEN rtrim(U_OrderRqwp.procode_ori)
			= '' THEN U_OrderRqwp.procode ELSE U_OrderRqwp.procode_ori End = u_sc_workprice.procode
			Where u_finishmx.finishid = :arg_finishid;
		If sqlca.SQLCode <> 0  Then
			rslt = 0
			arg_msg = "按工价表最新工价更新工序完工单价格失败"+"~n"+sqlca.SQLErrText
			Goto ext
		End If
	End If
Else
	If p_del_mustpay(s_finish_mx, arg_msg) = 0 Then
		rslt = 0
		Goto ext
	End If
End If

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

Return rslt





end function

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

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

IF flag <> 0 THEN
	rslt = 0
	arg_msg = "生产完工单已经审核,不可以删除"
	GOTO ext
END IF

DELETE FROM u_finish
	Where finishid = :arg_finishid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "删除生产完工单操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

//删除明细
DELETE FROM u_finishmx
	Where u_finishmx.finishid = :arg_finishid;
IF sqlca.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 integer p_del_inware (long arg_inwareid, long arg_printid, ref string arg_msg);Int rslt = 1
Long ll_cnt,ll_flag
String ls_inwarecode

uo_inware uo_ware
uo_ware = CREATE uo_inware
uo_ware.commit_transaction = sqlca
uo_ware.if_getid_ture = FALSE

IF arg_inwareid <= 0 THEN
	rslt = 0
	arg_msg = '错误的进仓单ID'
	GOTO ext
END IF

SELECT count(*)
	INTO :ll_cnt
	FROM u_inware
	Where inwareid = :arg_inwareid;
IF sqlca.SQLCode <> 0  THEN
	rslt = 0
	arg_msg = "查询相关进仓单失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

IF ll_cnt = 0 THEN
	rslt = 1
	GOTO ext
ELSEIF ll_cnt > 0 THEN
	SELECT flag
		INTO :ll_flag
		FROM u_inware
		Where inwareid = :arg_inwareid;
	IF sqlca.SQLCode <> 0  THEN
		rslt = 0
		arg_msg = "查询相关进仓单审核标记失败"+"~n"+sqlca.SQLErrText
		GOTO ext
	END IF
END IF

IF ll_flag = 1 THEN
	rslt = 0
	arg_msg = '第'+String(arg_printid)+'行，相关进仓单已经审核，请先撤审'
	GOTO ext
	
	//	IF uo_ware.getinfo(scid,arg_inwareid,arg_msg) = 0 THEN
	//		rslt = 0
	//		GOTO ext
	//	END IF
	//	
	//	IF uo_ware.c_auditing(false,arg_msg) = 0 THEN
	//		rslt = 0
	//		GOTO ext
	//	END IF 
END IF

IF uo_ware.del(scid,arg_inwareid,arg_msg,FALSE) = 0 THEN
	rslt = 0
	GOTO ext
END IF

UPDATE u_finishmx
	SET relinwareid = 0,
	relinwarecode = ''
	WHERE finishid = :finishid AND
	printid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新完工单明细相关进仓单失败'
	GOTO ext
END IF

ext:
DESTROY uo_ware
IF rslt = 0 THEN
	ROLLBACK;
END IF
RETURN rslt



end function

public function integer uof_find_cust (long arg_scid, long arg_orderid, ref long arg_cusid, ref string arg_plancode, ref string arg_mtrlcuscode, ref string arg_msg);Int rslt = 1

IF uo_option_inware_mtrlcuscode = -1000 THEN
	rslt = 0
	arg_msg = '选项:[138]生产进仓单产品批号策略按指令单号,读取初始默认值失败,操作取消!'
	GOTO ext
END IF

IF uo_option_taskplancode = -1000 THEN
	rslt = 0
	arg_msg = '选项:[038]使用客户批号库存,读取初始默认值失败,操作取消!'
	GOTO ext
END IF


Long li_ordertype,cnt
Long ll_cusid
String ls_cuscode,ls_cusname,ls_plancode
Long ll_mtrlid,ll_mtrlid_p,ll_porderid
Boolean lb_ifsameorder
Int li_ifmtrlcuscode
String ls_ordercode

SELECT ordercode,ordertype,mtrlid,porderid INTO :ls_ordercode,:li_ordertype,:ll_mtrlid,:ll_porderid
	FROM u_order_ml
	WHERE scid = :arg_scid
	And orderid = :arg_orderid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询指令单信息失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF li_ordertype = 0 THEN
	ll_cusid = 0
	GOTO ext
END IF

SELECT count(*) INTO :cnt
	FROM u_order_ml_mx
	WHERE orderid = :arg_orderid
	And scid = :arg_scid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询指令单相关计划明细信息失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF cnt <> 1 THEN
	ll_cusid = 0
	GOTO ext
END IF

SELECT ifmtrlcuscode INTO :li_ifmtrlcuscode
	FROM u_mtrldef
	Where mtrlid = :ll_mtrlid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询物料是否使用产品批号属性失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF uo_option_inware_mtrlcuscode = 1 And li_ifmtrlcuscode = 1 THEN
	arg_mtrlcuscode  = ls_ordercode
ELSE
	arg_mtrlcuscode = ''
END IF

IF li_ordertype = 4 THEN
	SELECT mtrlid INTO :ll_mtrlid_p
		FROM u_order_ml
		WHERE scid = :arg_scid
		And orderid = :ll_porderid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询指令单上级计划物料资料失败,'+sqlca.SQLErrText
		GOTO ext
	END IF
	
	IF ll_mtrlid_p = ll_mtrlid THEN
		lb_ifsameorder = True
		SELECT u_order_ml.cusid,
			isnull(u_cust.cuscode,''),
			isnull(u_cust.name,''),
			u_order_ml.taskrelcode
			INTO
			:ll_cusid,
			:ls_cuscode,
			:ls_cusname,
			:ls_plancode
			FROM u_order_ml left OUTER join u_cust on u_cust.cusid = u_order_ml.cusid
			WHERE u_order_ml.scid = :arg_scid
			And u_order_ml.orderid = :ll_porderid;
			
		IF sqlca.SQLCode <> 0 THEN
			rslt = 0
			arg_msg = '查询指令单上级计划相关客户信息失败,'+sqlca.SQLErrText
			GOTO ext
		END IF
	END IF
	
ELSE
	SELECT u_order_ml.cusid,
		isnull(u_cust.cuscode,''),
		isnull(u_cust.name,''),
		u_order_ml.taskrelcode
		INTO
		:ll_cusid,
		:ls_cuscode,
		:ls_cusname,
		:ls_plancode
		FROM u_order_ml left OUTER join u_cust on u_cust.cusid = u_order_ml.cusid
		WHERE u_order_ml.scid = :arg_scid
		And u_order_ml.orderid = :arg_orderid;
		
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查询指令单相关客户信息失败,'+sqlca.SQLErrText
		GOTO ext
	END IF
END IF

IF lb_ifsameorder And uo_option_taskplancode = 1 THEN
	arg_plancode = ls_plancode
ELSE
	arg_plancode = ''
END IF

ext:
arg_cusid = ll_cusid
RETURN rslt




end function

public function integer p_del_taskwork (ref string arg_msg);Int rslt = 1
Long ll_cnt,ll_flag
String ls_inwarecode

uo_scwg_taskwork_2 uo_ware
uo_ware = CREATE uo_scwg_taskwork_2
uo_ware.commit_transaction = sqlca

uo_scwg_taskwork_day uo_ware_day
uo_ware_day = CREATE uo_scwg_taskwork_day
uo_ware_day.commit_transaction = sqlca


Long ll_billid[]
Long ll_mxbt = 1,ll_i
long ll_billid_day[]
long ll_mxbt_day = 1

DECLARE cur_taskwork CURSOR FOR
	SELECT billid
	FROM u_scwg_taskwork_2
	WHERE relid = :finishid
	And (billtype = 0 OR billtype = 1);
	
OPEN cur_taskwork ;
FETCH cur_taskwork INTO :ll_billid[ll_mxbt];

DO WHILE sqlca.SQLCode = 0
	ll_mxbt++
	FETCH cur_taskwork INTO :ll_billid[ll_mxbt];
LOOP

CLOSE cur_taskwork;

ll_mxbt = ll_mxbt -1

FOR ll_i = 1 TO ll_mxbt
	IF uo_ware.del(ll_billid[ll_i],arg_msg,FALSE) = 0 THEN
		arg_msg = '删除相关计件单失败,'+arg_msg
		rslt = 0
		GOTO ext
	END IF
NEXT



DECLARE cur_taskwork_day CURSOR FOR
	SELECT billid
	FROM u_scwg_taskwork_day
	WHERE relid = :finishid
	And (billtype = 0);
	
OPEN cur_taskwork_day ;
FETCH cur_taskwork_day INTO :ll_billid_day[ll_mxbt_day];

DO WHILE sqlca.SQLCode = 0
	ll_mxbt_day++
	FETCH cur_taskwork_day INTO :ll_billid_day[ll_mxbt_day];
LOOP

CLOSE cur_taskwork_day;

ll_mxbt_day = ll_mxbt_day -1

FOR ll_i = 1 TO ll_mxbt_day
	IF uo_ware_day.del(ll_billid_day[ll_i],arg_msg,FALSE) = 0 THEN
		arg_msg = '删除相关工作中心日分配计件单失败,'+arg_msg
		rslt = 0
		GOTO ext
	END IF
NEXT



ext:
DESTROY uo_ware
destroy uo_ware_day
IF rslt = 0 THEN
	ROLLBACK;
END IF
RETURN rslt


end function

public function integer p_create_inware (long arg_printid, long arg_taskid, long arg_storageid, string arg_location, decimal arg_comqty, decimal arg_workprice, string arg_mxdscrp, ref string arg_msg);Long rslt = 1
Long i
Long ll_wrkid,mtrlid,orderid,balctype,cusid,ll_ref_inwareid
String status,woodcode,pcode,mtrlcode,unit,ls_ref_inwarecode
String ls_plancode,ls_mtrlcuscode
decimal ld_planprice
int li_ifmtrlcuscode


uo_inware uo_ware
uo_ware = Create uo_inware
uo_ware.commit_transaction = sqlca
uo_ware.if_getid_ture = False



SELECT u_sc_task.mtrlid,
	u_sc_task.status,
	u_sc_task.woodcode,
	u_sc_task.pcode,
	u_mtrldef.mtrlcode,
	u_sc_task.orderid,
	u_mtrldef.unit,
	u_mtrldef.ifmtrlcuscode
	INTO :mtrlid,
	:status,
	:woodcode,
	:pcode,
	:mtrlcode,
	:orderid,
	:unit,
	:li_ifmtrlcuscode
	FROM u_sc_task,u_mtrldef
	WHERE u_sc_task.mtrlid = u_mtrldef.mtrlid AND
	taskid = :arg_taskid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询派工单资料失败'
	GOTO ext
END IF

if billtype = 0 then 
	SELECT storageid
		INTO :ll_wrkid
		FROM u_sc_workgroup
		Where wrkgrpid = :wrkgrpid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查找工组对应车间失败'
		GOTO ext
	END IF
else 
	SELECT wrkGrpid
		INTO :ll_wrkid
		FROM u_order_ml
		Where orderid = :orderid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '查找指令对应车间失败'
		GOTO ext
	END IF
end if


If sys_option_inware_mtrlcuscode = 1 And li_ifmtrlcuscode = 1 Then
	int li_ordertype
	long ll_pzlorderid
	string ls_pzlordercode, ls_ordercode
	Select ordertype,pzlorderid, ordercode
		Into :li_ordertype,:ll_pzlorderid,:ls_ordercode
		From u_order_ml
		Where u_order_ml.scid = :scid
		And orderid  = :orderid;
	If sqlca.SQLCode <> 0 Then
		ls_mtrlcuscode = ''
	Else
		If li_ordertype = 4 And ll_pzlorderid > 0 Then
			Select ordercode Into :ls_pzlordercode
				From u_order_ml
				Where u_order_ml.scid = :scid
				And orderid  = :ll_pzlorderid;
			If sqlca.SQLCode <> 0 Then
				ls_mtrlcuscode = ''
			Else
				ls_mtrlcuscode = ls_pzlordercode
			End If
		Else
			ls_mtrlcuscode = ls_ordercode
		End If
	End If
Else
	ls_mtrlcuscode = ''
End If
//dw_child.Object.u_inwaremx_mtrlcuscode[child_row]  = ls_mtrlcuscode

SELECT balctype
	INTO :balctype
	FROM u_storage
	Where storageid = :arg_storageid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询仓库资料失败'
	GOTO ext
END IF

f_get_planprice_mtrl(mtrlid,status,woodcode,pcode,ld_planprice)

IF balctype = 1 THEN
	IF uof_find_cust(scid,orderid,cusid,ls_plancode,ls_mtrlcuscode,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
ELSE
	IF uo_option_taskplancode = 1 THEN
		SELECT taskrelcode
			INTO :ls_plancode
			FROM u_order_ml
			WHERE u_order_ml.scid = :scid
			And orderid  = :orderid;
		IF sqlca.SQLCode <> 0 THEN
			ls_plancode = ''
		END IF
	ELSE
		ls_plancode = ''
	END IF
END IF

IF uo_ware.newbegin(scid,3,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

uo_ware.indate = finishdate
uo_ware.inrep  = opemp
uo_ware.part   = finishcode
uo_ware.dscrp  = ''
uo_ware.storageid  = arg_storageid
uo_ware.sptname =  '工序完工单自动生成'
uo_ware.relid  = ll_wrkid

IF mtrlid > 0 THEN
	IF uo_ware.acceptmx(1,&
		mtrlid,&
		mtrlcode,&
		ls_plancode,&
		status,&
		arg_comqty,&
		ld_planprice,&
		1,&
		arg_mxdscrp,&
		arg_msg,&
		0,&
		orderid,&
		1,&
		woodcode,&
		pcode,&
		cusid,&
		unit,&
		1,arg_comqty,0,0,'','',0,0,ls_mtrlcuscode,arg_location,&
		arg_comqty,&
		0) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

IF uo_ware.Save(False,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

ll_ref_inwareid = uo_ware.inwareid
ls_ref_inwarecode = uo_ware.inwarecode

//IF uo_ware.getinfo(scid,ll_ref_inwareid,arg_msg) = 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//IF uo_ware.auditing(false,arg_msg) = 0 THEN
//	rslt = 0
//	GOTO ext
//END IF

UPDATE u_finishmx
	SET relinwareid = :ll_ref_inwareid,
	relinwarecode = :ls_ref_inwarecode
	WHERE finishid = :finishid AND
	printid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新完工单明细相关进仓单失败'
	GOTO ext
END IF

ext:
Destroy uo_ware
IF rslt = 0 THEN
	ROLLBACK;
END IF
RETURN rslt






end function

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

IF arg_finishid <= 0 THEN
	rslt = 0
	arg_msg = '错误生产任务单唯一码'
	GOTO ext
END IF

SELECT scid,
	finishid,
	finishcode,
	relcode,
	assign_emp,
	wrkgrpid, 
	opemp,
	opdate,
	modemp,
	moddate,
	auditingrep,
	auditingdate,
	flag,
	dscrp,
	secflag,
	thrflag,
	finishdate,
	wagemth,
	billtype,
	inputway
	INTO
	:scid,
	:finishid,
	:finishcode,
	:relcode,
	:assign_emp,
	:wrkgrpid, 
	:opemp,
	:opdate,
	:modemp,
	:moddate,
	:auditingrep,
	:auditingdate,
	:flag,
	:dscrp, 
	:secflag,
	:thrflag, 
	:finishdate,
	:wagemth,
	:billtype,
	:inputway
	FROM u_finish
	Where finishid = :arg_finishid ;
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询生产任务完工单内容失败(错误生产任务完工单唯一码)'
	GOTO ext
END IF
 
finishid = arg_finishid
ext:
IF rslt = 0 THEN p_reset()
RETURN rslt



end function

public function integer p_create_taskwork (s_finish_mx s_mx[], ref string arg_msg, integer arg_ifaudit);Long rslt = 1
Long ll_ref_billid
String ls_ref_billcode

uo_scwg_taskwork_2 uo_ware
uo_ware = Create uo_scwg_taskwork_2
uo_ware.commit_transaction = sqlca
uo_ware.if_getid_ture =  False

uo_scwg_taskwork_day uo_ware_wrk
uo_ware_wrk = Create uo_scwg_taskwork_day
uo_ware_wrk.commit_transaction = sqlca
uo_ware_wrk.if_getid_ture =  False

datastore ds_workgroupmx
ds_workgroupmx = Create datastore
IF sys_option_finish_taskwork_emp = 0 THEN // 工作中心派工的工序完工单计件审时生成计件单员工明细模式
	ds_workgroupmx.DataObject = 'ds_workgroupmx_empid'
ELSE
	ds_workgroupmx.DataObject = 'ds_sc_task_empid'
END IF
ds_workgroupmx.SetTransObject(sqlca)


Long ll_empid_arr[]
Long ll_empid_wageid[]
Long it_emp = 0
Long ll_wrkgrpid_arr[]
Long ll_wkp_wageid[]
Long it_wrk = 0
Long it_wrk_day = 0
Long ll_wrkgrpid_day[],ll_day_wageid[]

Long ll_billtype,ll_wrkgrpid
Long ll_i,ll_j,ll_k,ll_l

Long ll_mtrlid_arr[]
String ls_procode_arr[],ls_proname_arr[]
Decimal ld_comqty_arr[],ld_workprice_arr[]
String ls_mxdscrp_arr[]
String ls_status_arr[],ls_woodcode_arr[],ls_pcode_arr[],ls_wpcode_arr[]
String ls_wpcode
Long ll_orderid_arr[]
Long ll_mxbt_mx
Long ll_scid

Long ll_mxbt_mx_
Long ll_wkpid
Long ll_empid_arr_[], ll_empid_arr_null[]
String ls_empname_arr_[], ls_empname_arr_null[]
Decimal lde_wageamt_arr_[], lde_wageamt_arr_null[], lde_workhours_arr_[]
Long ll_rowcnt
Decimal ld_wageamt, lde_assignamt_sum, lde_assignamt
Dec lde_workhours, lde_workhours_sum


String ls_status,ls_woodcode,ls_pcode
Long ll_mtrlid,ll_orderid
Decimal ld_wageamt_sm, lde_wageamt_sum

SELECT storageid
	INTO :ll_wkpid
	FROM u_sc_workgroup
	Where wrkGrpid = :wrkGrpid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = "查询工组所属车间失败,"+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

FOR ll_i = 1 To it_mxbt
	IF s_mx[ll_i].empid > 0 And s_mx[ll_i].wagemode = 12 THEN //个人计件
		FOR ll_j = 1 To it_emp
			IF ll_empid_arr[ll_j] = s_mx[ll_i].empid And ll_empid_wageid[ll_j] = s_mx[ll_i].wageid THEN
				GOTO _next
			END IF
		NEXT
		it_emp++
		ll_empid_arr[it_emp] = s_mx[ll_i].empid
		ll_empid_wageid[it_emp] = s_mx[ll_i].wageid
	ELSEIF s_mx[ll_i].workgroupid > 0 And s_mx[ll_i].wagemode = 16 THEN //工作中心产品月分配
		FOR ll_j = 1 To it_wrk
			IF ll_wrkgrpid_arr[ll_j] = s_mx[ll_i].workgroupid And ll_wkp_wageid[ll_j] = s_mx[ll_i].wageid THEN
				GOTO _next
			END IF
		NEXT
		it_wrk++
		ll_wrkgrpid_arr[it_wrk] = s_mx[ll_i].workgroupid
		ll_wkp_wageid[it_wrk] = s_mx[ll_i].wageid
	ELSEIF s_mx[ll_i].workgroupid > 0 And s_mx[ll_i].wagemode = 17 THEN //工作中心产品日分配
		FOR ll_j = 1 To it_wrk_day
			IF ll_wrkgrpid_day[ll_j] = s_mx[ll_i].workgroupid And ll_day_wageid[ll_j] = s_mx[ll_i].wageid THEN
				GOTO _next
			END IF
		NEXT
		it_wrk_day++
		ll_wrkgrpid_day[it_wrk_day] = s_mx[ll_i].workgroupid
		ll_day_wageid[it_wrk_day] = s_mx[ll_i].wageid
	END IF
	_next:
NEXT

IF it_emp = 0 And it_wrk = 0 And it_wrk_day = 0 THEN
	rslt = 1
	GOTO ext
END IF

IF it_emp > 0 THEN //个人计件
	FOR ll_i = 1 To it_emp
		IF uo_ware.newbegin(scid,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		uo_ware.billdate = finishdate
		uo_ware.wrkGrpid = ll_empid_arr[ll_i]
		uo_ware.rep = opemp
		uo_ware.relcode  = finishcode
		uo_ware.dscrp  = '工序完工单自动生成'
		uo_ware.wagemth  = wagemth
		uo_ware.wageid  = ll_empid_wageid[ll_i]
		uo_ware.billtype  = 1
		uo_ware.relid = finishid
		
		ll_mxbt_mx = 0
		FOR ll_j = 1 To it_mxbt
			IF ll_empid_arr[ll_i] = s_mx[ll_j].empid And ll_empid_wageid[ll_i] = s_mx[ll_j].wageid THEN
				
				SELECT mtrlid,status,woodcode,pcode,orderid,scid
					INTO :ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode,:ll_orderid,:ll_scid
					FROM u_sc_task
					Where taskid = :s_mx[ll_j].taskid;
				IF sqlca.SQLCode <> 0 THEN
					rslt = 0
					arg_msg = '查询派工单资料失败'
					GOTO ext
				END IF
				
				SELECT wpcode INTO :ls_wpcode
					FROM u_order_ml
					WHERE scid = :ll_scid
					And orderid = :ll_orderid;
				IF sqlca.SQLCode <> 0 THEN
					rslt = 0
					arg_msg = '查询相关指令单工价表号失败'+sqlca.SQLErrText
					GOTO ext
				END IF
				
				FOR ll_k = 1 To ll_mxbt_mx
					IF ll_orderid_arr[ll_k] = ll_orderid And &
						ls_procode_arr[ll_k] = s_mx[ll_j].procode And &
						ls_proname_arr[ll_k] = s_mx[ll_j].proname And &
						ld_workprice_arr[ll_k] = s_mx[ll_j].workprice THEN
						ld_comqty_arr[ll_k] =  ld_comqty_arr[ll_k] + s_mx[ll_j].comqty
						GOTO _next_mx
					END IF
				NEXT
				
				ll_mxbt_mx++
				ll_mtrlid_arr[ll_mxbt_mx] = ll_mtrlid
				ls_procode_arr[ll_mxbt_mx] = s_mx[ll_j].procode
				ls_proname_arr[ll_mxbt_mx] = s_mx[ll_j].proname
				ld_comqty_arr[ll_mxbt_mx] = s_mx[ll_j].comqty
				ld_workprice_arr[ll_mxbt_mx] = s_mx[ll_j].workprice
				ls_mxdscrp_arr[ll_mxbt_mx] = s_mx[ll_j].mxdscrp
				ls_status_arr[ll_mxbt_mx] = ls_status
				ls_woodcode_arr[ll_mxbt_mx] = ls_woodcode
				ls_pcode_arr[ll_mxbt_mx] = ls_pcode
				ll_orderid_arr[ll_mxbt_mx] = ll_orderid
				ls_wpcode_arr[ll_mxbt_mx] = ls_wpcode
				
			END IF
			_next_mx:
		NEXT
		
		FOR ll_l = 1 To ll_mxbt_mx
			IF uo_ware.acceptmx(ll_mtrlid_arr[ll_l],&
				ls_procode_arr[ll_l],&
				ls_proname_arr[ll_l],&
				ld_comqty_arr[ll_l],&
				ld_workprice_arr[ll_l],&
				ls_mxdscrp_arr[ll_l],&
				arg_msg,&
				ll_l,&
				ls_status_arr[ll_l],&
				ls_woodcode_arr[ll_l],&
				ls_pcode_arr[ll_l],&
				'',&
				ll_orderid_arr[ll_l],'','',0,0,&
				ls_wpcode_arr[ll_l]) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		NEXT
		
		IF uo_ware.Save(arg_msg,False) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		IF arg_ifaudit = 1 THEN
			IF uo_ware.affirm(uo_ware.billid,arg_msg,False) = 0 THEN
				arg_msg = '确认个人产品计件单失败,'+arg_msg
				rslt = 0
				GOTO ext
			END IF
			
			IF uo_ware.auditmx_1(uo_ware.billid,arg_msg,False) = 0 THEN
				arg_msg = '审核个人产品计件单失败,'+arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
		
	NEXT
END IF

IF it_wrk > 0 THEN //工作中心产品月分配
	FOR ll_i = 1 To it_wrk
		IF uo_ware.newbegin(scid,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		uo_ware.billdate = finishdate
		uo_ware.wrkGrpid = ll_wrkgrpid_arr[ll_i]
		uo_ware.rep = opemp
		uo_ware.relcode  = finishcode
		uo_ware.dscrp  = '工序完工单自动生成'
		uo_ware.wagemth  = wagemth
		uo_ware.wageid  = ll_wkp_wageid[ll_i]
		uo_ware.billtype  = 0
		uo_ware.relid = finishid
		uo_ware.wkpid = ll_wkpid
		
		ll_mxbt_mx = 0
		FOR ll_j = 1 To it_mxbt
			IF ll_wrkgrpid_arr[ll_i] = s_mx[ll_j].workgroupid And ll_wkp_wageid[ll_i] = s_mx[ll_j].wageid And &
				s_mx[ll_j].empid = 0 THEN
				
				SELECT mtrlid,status,woodcode,pcode,orderid,scid
					INTO :ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode,:ll_orderid,:ll_scid
					FROM u_sc_task
					Where taskid = :s_mx[ll_j].taskid;
				IF sqlca.SQLCode <> 0 THEN
					rslt = 0
					arg_msg = '查询派工单资料失败'
					GOTO ext
				END IF
				
				
				SELECT wpcode INTO :ls_wpcode
					FROM u_order_ml
					WHERE scid = :ll_scid
					And orderid = :ll_orderid;
				IF sqlca.SQLCode <> 0 THEN
					rslt = 0
					arg_msg = '查询相关指令单工价表号失败'+sqlca.SQLErrText
					GOTO ext
				END IF
				
				FOR ll_k = 1 To ll_mxbt_mx
					IF ll_orderid_arr[ll_k] = ll_orderid And &
						ls_procode_arr[ll_k] = s_mx[ll_j].procode And &
						ls_proname_arr[ll_k] = s_mx[ll_j].proname And &
						ld_workprice_arr[ll_k] = s_mx[ll_j].workprice THEN
						ld_comqty_arr[ll_k] =  ld_comqty_arr[ll_k] + s_mx[ll_j].comqty
						GOTO _next_mx_wrk
					END IF
				NEXT
				
				ll_mxbt_mx++
				ll_mtrlid_arr[ll_mxbt_mx] = ll_mtrlid
				ls_procode_arr[ll_mxbt_mx] = s_mx[ll_j].procode
				ls_proname_arr[ll_mxbt_mx] = s_mx[ll_j].proname
				ld_comqty_arr[ll_mxbt_mx] = s_mx[ll_j].comqty
				ld_workprice_arr[ll_mxbt_mx] = s_mx[ll_j].workprice
				ls_mxdscrp_arr[ll_mxbt_mx] = s_mx[ll_j].mxdscrp
				ls_status_arr[ll_mxbt_mx] = ls_status
				ls_woodcode_arr[ll_mxbt_mx] = ls_woodcode
				ls_pcode_arr[ll_mxbt_mx] = ls_pcode
				ll_orderid_arr[ll_mxbt_mx] = ll_orderid
				ls_wpcode_arr[ll_mxbt_mx] = ls_wpcode
				
			END IF
			_next_mx_wrk:
		NEXT
		
		FOR ll_l = 1 To ll_mxbt_mx
			IF uo_ware.acceptmx(ll_mtrlid_arr[ll_l],&
				ls_procode_arr[ll_l],&
				ls_proname_arr[ll_l],&
				ld_comqty_arr[ll_l],&
				ld_workprice_arr[ll_l],&
				ls_mxdscrp_arr[ll_l],&
				arg_msg,&
				ll_l,&
				ls_status_arr[ll_l],&
				ls_woodcode_arr[ll_l],&
				ls_pcode_arr[ll_l],&
				'',&
				ll_orderid_arr[ll_l],'','',0,0,&
				ls_wpcode_arr[ll_l]) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		NEXT
		
		IF uo_ware.Save(arg_msg,False) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		IF arg_ifaudit = 1 THEN
			IF uo_ware.affirm(uo_ware.billid,arg_msg,False) = 0 THEN
				arg_msg = '确认工作中心产品月分配失败,'+arg_msg
				rslt = 0
				GOTO ext
			END IF
			
			IF uo_ware.auditmx_1(uo_ware.billid,arg_msg,False) = 0 THEN
				arg_msg = '审核工作中心产品月分配失败,'+arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
		
	NEXT
END IF

IF it_wrk_day > 0 THEN //工作中心产品日分配
	FOR ll_i = 1 To it_wrk_day
		IF uo_ware_wrk.newbegin(scid,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		uo_ware_wrk.billdate = finishdate
		uo_ware_wrk.wrkGrpid = ll_wrkgrpid_day[ll_i]
		uo_ware_wrk.rep = opemp
		uo_ware_wrk.relcode  = finishcode
		uo_ware_wrk.dscrp  = '工序完工单自动生成'
		uo_ware_wrk.wagemth  = wagemth
		uo_ware_wrk.wageid  = ll_day_wageid[ll_i]
		uo_ware_wrk.billtype  = 0
		uo_ware_wrk.relid = finishid
		uo_ware_wrk.wkpid = ll_wkpid
		
		ld_wageamt_sm = 0
		
		//处理dw_child, 取当前工作中心,工资项目的明细,按指令/工序汇总
		ll_mxbt_mx = 0
		FOR ll_j = 1 To it_mxbt
			IF ll_wrkgrpid_day[ll_i] = s_mx[ll_j].workgroupid And ll_day_wageid[ll_i] = s_mx[ll_j].wageid THEN
				
				SELECT mtrlid,status,woodcode,pcode,orderid,scid
					INTO :ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode,:ll_orderid,:ll_scid
					FROM u_sc_task
					Where taskid = :s_mx[ll_j].taskid;
				IF sqlca.SQLCode <> 0 THEN
					rslt = 0
					arg_msg = '查询派工单资料失败'
					GOTO ext
				END IF
				
				SELECT wpcode INTO :ls_wpcode
					FROM u_order_ml
					WHERE scid = :ll_scid
					And orderid = :ll_orderid;
				IF sqlca.SQLCode <> 0 THEN
					rslt = 0
					arg_msg = '查询相关指令单工价表号失败'+sqlca.SQLErrText
					GOTO ext
				END IF
				
				FOR ll_k = 1 To ll_mxbt_mx
					IF ll_orderid_arr[ll_k] = ll_orderid And &
						ls_procode_arr[ll_k] = s_mx[ll_j].procode And &
						ls_proname_arr[ll_k] = s_mx[ll_j].proname And &
						ld_workprice_arr[ll_k] = s_mx[ll_j].workprice THEN
						
						ld_comqty_arr[ll_k] =  ld_comqty_arr[ll_k] + s_mx[ll_j].comqty
						GOTO _next_mx_day
					END IF
				NEXT
				
				ll_mxbt_mx++
				ll_mtrlid_arr[ll_mxbt_mx] = ll_mtrlid
				ls_procode_arr[ll_mxbt_mx] = s_mx[ll_j].procode
				ls_proname_arr[ll_mxbt_mx] = s_mx[ll_j].proname
				ld_comqty_arr[ll_mxbt_mx] = s_mx[ll_j].comqty
				ld_workprice_arr[ll_mxbt_mx] = s_mx[ll_j].workprice
				ls_mxdscrp_arr[ll_mxbt_mx] = s_mx[ll_j].mxdscrp
				ls_status_arr[ll_mxbt_mx] = ls_status
				ls_woodcode_arr[ll_mxbt_mx] = ls_woodcode
				ls_pcode_arr[ll_mxbt_mx] = ls_pcode
				ll_orderid_arr[ll_mxbt_mx] = ll_orderid
				ls_wpcode_arr[ll_mxbt_mx] = ls_wpcode
				
			END IF
			_next_mx_day:
		NEXT
		
		
		FOR ll_j = 1 To ll_mxbt_mx
			
			IF uo_ware_wrk.acceptmx(ll_mtrlid_arr[ll_j],&
				ls_procode_arr[ll_j],&
				ls_proname_arr[ll_j],&
				ld_comqty_arr[ll_j],&
				ld_workprice_arr[ll_j],&
				'',&
				arg_msg,&
				ll_j,&
				ls_status_arr[ll_j],&
				ls_woodcode_arr[ll_j],&
				ls_pcode_arr[ll_j],&
				ll_orderid_arr[ll_j],'','',&
				ls_wpcode_arr[ll_j]) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
			
			ld_wageamt_sm = ld_wageamt_sm + ld_comqty_arr[ll_j] * ld_workprice_arr[ll_j]
			
		NEXT
		
		uo_ware_wrk.relempstr = ''
		
		//处理empid
		IF sys_option_finish_taskwork_emp = 0 THEN // 工作中心派工的工序完工单计件审时生成计件单员工明细模式
			//按员工平均分配
			ll_rowcnt = ds_workgroupmx.Retrieve(ll_wrkgrpid_day[ll_i])
			
			IF ll_rowcnt = 0 THEN
				lde_workhours = 1
			ELSE
				lde_workhours = 1.0 / ll_rowcnt
			END IF
			
			FOR ll_k = 1 To ds_workgroupmx.RowCount() //人员列表
				IF uo_ware_wrk.acceptmx_emp(0,&
					ds_workgroupmx.Object.u_rs_empinfo_empid[ll_k],&
					ds_workgroupmx.Object.u_rs_empinfo_empname[ll_k],&
					lde_workhours,0,0,&
					0,&
					ld_wageamt_sm / ll_rowcnt ,&
					'',&
					arg_msg,&
					ll_k) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			NEXT
		ELSE // sys_option_finish_taskwork_emp = 1
			lde_wageamt_sum = ld_wageamt_sm //整张单的总金额
			
			ll_mxbt_mx_ = 0
			ll_empid_arr_ = ll_empid_arr_null
			ls_empname_arr_ = ls_empname_arr_null
			lde_wageamt_arr_ = lde_wageamt_arr_null
			
			FOR ll_j = 1 To it_mxbt
				IF ll_wrkgrpid_day[ll_i] = s_mx[ll_j].workgroupid &
					And ll_day_wageid[ll_i] = s_mx[ll_j].wageid THEN
					
					ll_rowcnt = ds_workgroupmx.Retrieve(s_mx[ll_j].taskid)
					IF ll_rowcnt <= 0 THEN
						arg_msg = "未设置工序派工单工作中心人员"
						rslt = 0
						GOTO ext
					END IF
					
					lde_assignamt_sum = ds_workgroupmx.Object.assignamt_sum[1] //总比例
					IF lde_assignamt_sum <= 0 THEN
						arg_msg = "工序派工单工作中心人员总分配比例不能为0"
						rslt = 0
						GOTO ext
					END IF
					
					ld_wageamt_sm = s_mx[ll_j].comqty * s_mx[ll_j].workprice //一条派工单的金额
					
					FOR ll_k = 1 To ds_workgroupmx.RowCount() //人员列表
						
						lde_assignamt = ds_workgroupmx.Object.assignamt[ll_k] //个人分配比例
						
						ld_wageamt = (lde_assignamt / lde_assignamt_sum) * ld_wageamt_sm //当前员工的金额
						
						FOR ll_l = 1 To ll_mxbt_mx_
							IF ds_workgroupmx.Object.u_rs_empinfo_empid[ll_k] = ll_empid_arr_[ll_l] THEN
								lde_wageamt_arr_[ll_l] += ld_wageamt
								GOTO _next_mx_
							END IF
						NEXT
						
						ll_mxbt_mx_++
						ll_empid_arr_[ll_mxbt_mx_] = ds_workgroupmx.Object.u_rs_empinfo_empid[ll_k]
						ls_empname_arr_[ll_mxbt_mx_] = ds_workgroupmx.Object.u_rs_empinfo_empname[ll_k]
						lde_wageamt_arr_[ll_mxbt_mx_] = ld_wageamt
						
						IF it_mxbt = 1 THEN //如果只有一条派工单,不改变比例"数值"
							lde_workhours_arr_[ll_mxbt_mx_] = lde_assignamt
						END IF
						
						_next_mx_:
					NEXT
					
					
				END IF
			NEXT
			
			FOR ll_k = 1 To ll_mxbt_mx_ //人员列表
				
				IF it_mxbt = 1 THEN
					lde_workhours = lde_workhours_arr_[ll_k]
				ELSE
					IF lde_wageamt_sum = 0 THEN
						lde_workhours = 1
					ELSE
						lde_workhours = lde_wageamt_arr_[ll_k] / lde_wageamt_sum
					END IF
				END IF
				
				IF uo_ware_wrk.acceptmx_emp(0,&
					ll_empid_arr_[ll_k],&
					ls_empname_arr_[ll_k],&
					lde_workhours,0,0,&
					0,&
					lde_wageamt_arr_[ll_k] ,&
					'',&
					arg_msg,&
					ll_k) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			NEXT
		END IF
		
		
		IF uo_ware_wrk.Save(arg_msg,False) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		IF arg_ifaudit = 1 THEN
			IF uo_ware_wrk.affirm(uo_ware_wrk.billid,arg_msg,False) = 0 THEN
				arg_msg = '确认工作中心日分配计件单失败,'+arg_msg
				rslt = 0
				GOTO ext
			END IF
			
			IF uo_ware_wrk.auditmx(uo_ware_wrk.billid,arg_msg,False) = 0 THEN
				arg_msg = '审核工作中心日分配计件单失败,'+arg_msg
				rslt = 0
				GOTO ext
			END IF
		END IF
		
	NEXT
END IF

ext:
Destroy uo_ware
Destroy uo_ware_wrk
Destroy ds_workgroupmx

IF rslt = 0 THEN
	ROLLBACK;
END IF
RETURN rslt

end function

public function integer thrauditing (long arg_finishid, ref string arg_msg, boolean arg_ifcommit, integer arg_ifaudit);//自制:计件审, 外协:财审
Long rslt = 1 ,i
Long ll_taskid , ll_flag
String ls_taskcode


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

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

IF secflag <> 1 THEN
	rslt = 0
	arg_msg = "完工单只有在已经仓库审核状态才可以执行计件审核"
	GOTO ext
END IF

IF thrflag <> 0 THEN
	rslt = 0
	arg_msg = "完工单只有在待计件审核状态才可以执行计件审核"
	GOTO ext
END IF

UPDATE u_finish
	SET thrauditingrep = :publ_operator,
	thrauditingdate = getdate(),
	thrflag = 1
	WHERE finishid = :arg_finishid
	AND secflag = 1
	And thrflag = 0;
IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN
	rslt = 0
	arg_msg = "完工单计件审批操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
END IF

IF billtype = 0 THEN
	IF p_create_taskwork(s_finish_mx,arg_msg,arg_ifaudit) = 0 THEN
		arg_msg = '生成计件单失败,'+arg_msg
		rslt = 0
		GOTO ext
	END IF
ELSE
	IF p_create_mustpay(s_finish_mx,arg_msg) = 0 THEN
		arg_msg = '生成应付帐失败,'+arg_msg
		rslt = 0
		GOTO ext
	END IF
END IF

thrflag = 1
ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF
RETURN rslt




end function

public function integer p_del_mustpay (s_finish_mx s_mx[], ref string arg_msg);Int rslt = 1
Long i
Long ll_moneyid_native
Decimal jgsum_amt
Long ll_payid
string ls_unit

uo_mustpay  uo_pay
uo_pay = Create uo_mustpay

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price


SELECT moneyid INTO :ll_moneyid_native
	FROM cw_currency
	Where native = 1;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询本位币资料失败'
	rslt = 0
	GOTO ext
END IF

FOR i = 1 To it_mxbt
	jgsum_amt += Round(s_mx[i].comqty * s_mx[i].workprice, 2)
	
	SELECT unit
		INTO :ls_unit
		FROM u_mtrldef
		Where mtrlid = :s_mx[i].mtrlid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = "查询物料资料失败,"+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF uo_sptprice.uof_del_sptprice_auto(wrkGrpid,finishid,s_mx[i].printid,s_mx[i].mtrlid,s_mx[i].status,s_mx[i].woodcode,s_mx[i].pcode,s_mx[i].proname,&
		ls_unit,ll_moneyid_native,False,arg_msg) = 0 THEN
		arg_msg = '更新行:'+String(i)+','+arg_msg
		rslt = 0
		GOTO ext
	END IF
NEXT

IF  jgsum_amt <> 0  THEN
	SELECT payid
		INTO :ll_payid
		FROM u_bmstpay
		WHERE scid = :scid
		AND sptid = :wrkGrpid
		AND billcode = :finishcode
		And inwareid = :finishid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询应付账资料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	IF uo_pay.del_payrec(scid,1,ll_payid,wrkGrpid,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
Destroy uo_pay
Destroy uo_sptprice
IF rslt = 0 THEN
	ROLLBACK;
END IF
RETURN rslt




end function

public function integer p_create_mustpay (s_finish_mx s_mx[], ref string arg_msg);Long rslt = 1
Long i

Int li_btype
Long ll_accountsid
Long ll_moneyid_native
Long ll_dft_itemid,ll_dft_itemid_tax
Decimal ld_jgprice_notax
Decimal jgsum_amt
String ls_unit

String ls_about,ls_dscrp
Decimal ld_payamt = 0,ld_mstpayamt = 0,ld_taxamt = 0

uo_mustpay uo_pay
uo_pay = Create uo_mustpay

uo_spt_price uo_sptprice
uo_sptprice = Create uo_spt_price


SELECT btype,accountsid INTO :li_btype,:ll_accountsid
	FROM cw_banktype
	Where banktypeid = :wagemth Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询结算方式类型失败,'+ sqlca.SQLErrText
	GOTO ext
END IF

SELECT moneyid INTO :ll_moneyid_native
	FROM cw_currency
	Where native = 1;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询本位币资料失败'
	rslt = 0
	GOTO ext
END IF

Decimal lde_rebate, lde_rate
lde_rebate = 1
lde_rate = 1

jgsum_amt = 0
FOR i = 1 To it_mxbt
	jgsum_amt += Round(s_mx[i].comqty * s_mx[i].workprice, 2)
	
	SELECT unit
		INTO :ls_unit
		FROM u_mtrldef
		Where mtrlid = :s_mx[i].mtrlid;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = "查询物料资料失败,"+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	ld_jgprice_notax = s_mx[i].workprice
	IF uo_sptprice.uof_update_sptprice(0,wrkGrpid,s_mx[i].mtrlid,ls_unit,s_mx[i].status,s_mx[i].woodcode,s_mx[i].pcode,s_mx[i].proname,&
		finishid,s_mx[i].workprice,lde_rebate,lde_rate,s_mx[i].workprice/lde_rate,ld_jgprice_notax /lde_rate , &
		finishdate,finishcode,0,'外协工序完工单',s_mx[i].printid,1,ll_moneyid_native,finishdate,DateTime(9999-01-01),False,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT


IF jgsum_amt <> 0  THEN
	
	ld_mstpayamt = jgsum_amt
	ld_taxamt = 0
	
	IF li_btype = 1 THEN
		ld_payamt = ld_mstpayamt
	ELSE
		ld_payamt = 0
	END IF
	
	ls_about = finishcode + "应付款,相关号:"+relcode
	
	SELECT itemid INTO :ll_dft_itemid
		FROM u_itemdef
		Where dfttype = 2 Using sqlca;
	IF sqlca.SQLCode <> 0 THEN
		arg_msg = '查询默认采购外协退货项目资料失败,'+sqlca.SQLErrText
		rslt = 0
		GOTO ext
	END IF
	
	
	ls_dscrp = ls_about
	
	s_bmstpay s_pay
	s_pay.scid = scid
	s_pay.sptid = wrkGrpid
	s_pay.paydate = finishdate
	s_pay.inrep = assign_emp
	s_pay.oriamt = ld_mstpayamt
	s_pay.mstpayamt = ld_mstpayamt
	s_pay.payamt = ld_payamt
	s_pay.payamt_cn = ld_payamt
	s_pay.dscrp = ls_about
	s_pay.billcode = finishcode
	s_pay.relcode = relcode
	s_pay.banktypeid = wagemth
	s_pay.viewdate = finishdate
	s_pay.opemp = publ_operator
	s_pay.buildtype = 1
	s_pay.inwareid = finishid
	s_pay.accountsid = ll_accountsid
	s_pay.itemid = ll_dft_itemid
	s_pay.moneyid = ll_moneyid_native
	s_pay.moneyid_cn = ll_moneyid_native
	
	IF uo_pay.add_payrec (s_pay,arg_msg,False) = 0  THEN
		rslt = 0
		GOTO ext
	END IF
	
END IF

ext:
Destroy uo_pay
Destroy uo_sptprice

IF rslt = 0 THEN
	ROLLBACK;
END IF
RETURN rslt


end function

public function integer mod_price (long arg_finishid, long arg_printid, decimal arg_fprice, decimal arg_jgprice, decimal arg_taxrate, decimal arg_rebate, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

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

IF secflag = 0 THEN
	rslt = 0
	arg_msg = '单据待审核状态下不能执行修改单价功能'
	GOTO ext
END IF

IF thrflag = 1 THEN
	rslt = 0
	arg_msg = '单据已财审,不能执行修改加工价'
	GOTO ext
END IF


Decimal ld_jgprice , ld_taxrate, ld_rebate

SELECT workprice
	INTO :ld_jgprice
	FROM u_finishmx
	WHERE finishid = :arg_finishid
	AND printid = :arg_printid
	Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询单据明细内容失败'+sqlca.SQLErrText
	GOTO ext
END IF
//ld_taxrate = 0
//ld_rebate = 1
//IF arg_taxrate = -1 THEN arg_taxrate = ld_taxrate
//IF arg_rebate = -1 THEN arg_rebate = ld_rebate



IF arg_jgprice = ld_jgprice THEN //没有修改,成功返回
	rslt = 1
	//arg_msg = '单价或税率没有任何修改,不能保存'
	GOTO ext
END IF


UPDATE u_finishmx
	SET workprice = :arg_jgprice
	WHERE finishid = :arg_finishid
	And printid = :arg_printid Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新单据明细失败'+sqlca.SQLErrText
	GOTO ext
END IF


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




end function

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

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

event constructor;String str_optionvalue,arg_msg

f_get_sys_option_value('138',str_optionvalue,arg_msg)
uo_option_inware_mtrlcuscode = Long(str_optionvalue)


f_get_sys_option_value('038',str_optionvalue,arg_msg)
uo_option_taskplancode = Long(str_optionvalue)

f_get_sys_option_value('401',str_optionvalue,arg_msg)
uo_option_finish_wagemth_type = Long(str_optionvalue)

str_optionvalue = ''
f_get_sys_option_value('398',str_optionvalue,arg_msg)
uo_option_orderrqwp_auditgj = Long(str_optionvalue)

end event