$PBExportHeader$uo_scwg_taskwork_day.sru forward global type uo_scwg_taskwork_day from nonvisualobject end type end forward global type uo_scwg_taskwork_day from nonvisualobject end type global uo_scwg_taskwork_day uo_scwg_taskwork_day 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 DateTime billdate String dscrp Long wagemth String rep String relcode Long wageid Long wrkgrpid long billtype string relempstr long wkpid long relid Transaction commit_transaction Boolean if_getid_ture = false s_scwg_taskwork_day taskworkmx[] s_scwg_taskwork_day_emp empmx[] Long it_mxbt = 0 Long it_mxbt_emp = 0 Boolean it_newbegin = FALSE Boolean it_updatebegin = FALSE Int uo_option_taskwork_not_affirm Int uo_option_taskwork_day_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 auditmx (long arg_billid, ref string arg_msg, boolean arg_ifcommit) public function integer cauditmx (long arg_billid, ref string arg_msg, boolean arg_ifcommit) 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 getinfo (long arg_billid, ref string arg_msg) public function integer del (long arg_billid, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx_emp (integer arg_ifhelp, long arg_empid, string arg_empname, decimal arg_workhours, decimal arg_workhours2, decimal arg_workhours3, decimal arg_prwageamt, decimal arg_wageamt, string arg_mxdscrp, ref string arg_msg, long arg_printid) 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, long arg_orderid, string arg_reason, string arg_unit, string arg_wpcode) public function integer auditing (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg) public function integer c_auditing (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg) public function integer auditing_1 (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg) public function integer c_auditing_1 (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg) public function integer uf_update_emp (long arg_billid, ref string arg_msg, boolean arg_ifcommit) public function integer updateempbegin (long arg_billid, ref string arg_msg) end prototypes public function integer p_clearmx ();//INT p_clearmx() //清除明细 it_mxbt = 0 it_mxbt_emp = 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 = '' relempstr = '' 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 Long cnt = 0,i,j 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(billtype) THEN billtype = 0 if isnull(relempstr) then relempstr = '' if isnull(wkpid) then wkpid = 0 if isnull(relid) then relid = 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 it_mxbt_emp = 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 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 //cnt = 0 //SELECT count(*) INTO :cnt // FROM u_scwg_taskwork_day // WHERE flag = 1 // AND wagemth = :wagemth // AND wrkgrpid = :wrkgrpid // 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_day","billid",arg_msg,TRUE,id_sqlca) IF ls_newid <= 0 THEN rslt = 0 GOTO ext END IF IF billtype = 0 THEN // billcode = getid(0,"JD",Date(server_dt),if_getid_ture,commit_transaction) //取得新单据编号 ELSEIF billtype = 1 THEN // 异常计件单 billcode = getid(0,"AD",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_day ( billid, billdate, wagemth, rep, relcode, dscrp, scid, billcode, wrkgrpid, opemp, opdate, wageid, billtype, relempstr, wkpid, relid) VALUES ( :ls_newid, :billdate, :wagemth, :rep, :relcode, :dscrp, :scid, :billcode, :wrkgrpid, :publ_operator, :server_dt , :wageid, :billtype, :relempstr, :wkpid, :relid) 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_day_mx ( billid, procode, proname, qty, price, mxdscrp, mtrlid, printid, status, woodcode, pcode, orderid, ordercode, reason, unit, 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].orderid, :taskworkmx[i].ordercode, :taskworkmx[i].reason, :taskworkmx[i].unit, :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 FOR j = 1 TO it_mxbt_emp INSERT INTO u_scwg_taskwork_day_mx_emp ( billid, printid, empid, workhours, workhours2, workhours3, wageamt, mxdscrp, ifhelp, prwageamt) VALUES ( :ls_newid, :empmx[j].printid, :empmx[j].empid, :empmx[j].workhours, :empmx[j].workhours2, :empmx[j].workhours3, :empmx[j].wageamt, :empmx[j].mxdscrp, :empmx[j].ifhelp, :empmx[j].prwageamt) 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_day 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, wkpid = :wkpid, relid = :relid 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_day_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_day_mx ( billid, procode, proname, qty, price, mxdscrp, mtrlid, printid, status, woodcode, pcode, orderid, ordercode, reason, unit, 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].orderid, :taskworkmx[i].ordercode, :taskworkmx[i].reason, :taskworkmx[i].unit, :taskworkmx[i].wpcode) 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_day_mx_emp Where billid = :billid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除旧有员工明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF FOR j = 1 TO it_mxbt_emp INSERT INTO u_scwg_taskwork_day_mx_emp ( billid, printid, empid, workhours, workhours2, workhours3, wageamt, mxdscrp, ifhelp, prwageamt) VALUES ( :billid, :empmx[j].printid, :empmx[j].empid, :empmx[j].workhours, :empmx[j].workhours2, :empmx[j].workhours3, :empmx[j].wageamt, :empmx[j].mxdscrp, :empmx[j].ifhelp, :empmx[j].prwageamt) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN billid = 0 //还原id rslt = 0 arg_msg = "因网络或其它原因导致插入员工明细操作失败"+"~n"+sqlca.SQLErrText ROLLBACK ; GOTO ext END IF NEXT 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); p_reset() if arg_scid < 0 then arg_msg = '请选择分部' return 0 end if scid=arg_scid it_newbegin=TRUE it_updatebegin=FALSE return 1 end function public function integer add_dscrp (long arg_billid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit);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_day set dscrp = dscrp+' '+:arg_newdescppart where u_scwg_taskwork_day.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_day SET affirmemp = :publ_operator, affirmdate = getdate(), affirmflag = 1 WHERE u_scwg_taskwork_day.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_day SET affirmemp = '', affirmdate = :null_dt, affirmflag = 0 WHERE u_scwg_taskwork_day.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, billtype, wageid, relid INTO :billid, :billdate, :wagemth, :rep, :relcode, :dscrp, :scid, :billcode, :wrkgrpid, :flag, :affirmflag, :scid, :billtype, :wageid, :relid FROM u_scwg_taskwork_day WHERE u_scwg_taskwork_day.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 auditmx (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 IF uo_option_check_noworkprice = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork_day INNER JOIN u_scwg_taskwork_day_mx ON u_scwg_taskwork_day.billid = u_scwg_taskwork_day_mx.billid WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day_mx.price = 0 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 END IF FOR i = 1 TO it_mxbt_emp ls_emp_sumwage = 0.00 ls_emp_sumwage = empmx[i].wageamt + empmx[i].prwageamt IF u_wage.f_setwagemxdata(wagemth,empmx[i].empid,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_day SET u_scwg_taskwork_day.flag = 1, u_scwg_taskwork_day.auditingrep = :publ_operator, u_scwg_taskwork_day.auditingdate = getdate() WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 0 USING commit_transaction; ELSE UPDATE u_scwg_taskwork_day SET u_scwg_taskwork_day.flag = 1, u_scwg_taskwork_day.auditingrep = :publ_operator, u_scwg_taskwork_day.auditingdate = getdate(), u_scwg_taskwork_day.affirmdate = getdate(), u_scwg_taskwork_day.affirmemp = :publ_operator, u_scwg_taskwork_day.affirmflag = 1 WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 0 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; ELSE COMMIT USING commit_transaction; END IF DESTROY u_wage RETURN rslt end function public function integer cauditmx (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_emp ls_emp_sumwage = 0.00 ls_emp_sumwage = empmx[i].wageamt + empmx[i].prwageamt IF u_wage.f_setwagemxdata(wagemth,empmx[i].empid,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_day SET u_scwg_taskwork_day.flag = 0, u_scwg_taskwork_day.auditingrep = '', u_scwg_taskwork_day.auditingdate = :ls_null WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.billtype = 0 USING commit_transaction; ELSE UPDATE u_scwg_taskwork_day SET u_scwg_taskwork_day.flag = 0, u_scwg_taskwork_day.auditingrep = '', u_scwg_taskwork_day.auditingdate = :ls_null, u_scwg_taskwork_day.affirmdate = :ls_null, u_scwg_taskwork_day.affirmemp = '', u_scwg_taskwork_day.affirmflag = 0 WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.billtype = 0 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; ELSE COMMIT USING commit_transaction; END IF DESTROY u_wage 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 IF uo_option_check_noworkprice = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork_day INNER JOIN u_scwg_taskwork_day_mx ON u_scwg_taskwork_day.billid = u_scwg_taskwork_day_mx.billid WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day_mx.price = 0 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 END IF FOR i = 1 TO it_mxbt_emp ls_emp_sumwage = 0.00 ls_emp_sumwage = empmx[i].wageamt + empmx[i].prwageamt IF u_wage.f_setwagemxdata(wagemth,empmx[i].empid,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_day SET u_scwg_taskwork_day.flag = 1, u_scwg_taskwork_day.auditingrep = :publ_operator, u_scwg_taskwork_day.auditingdate = getdate() WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 1 USING commit_transaction; ELSE UPDATE u_scwg_taskwork_day SET u_scwg_taskwork_day.flag = 1, u_scwg_taskwork_day.auditingrep = :publ_operator, u_scwg_taskwork_day.auditingdate = getdate(), u_scwg_taskwork_day.affirmdate = getdate(), u_scwg_taskwork_day.affirmemp = :publ_operator, u_scwg_taskwork_day.affirmflag = 1 WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.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; ELSE 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_emp ls_emp_sumwage = 0.00 ls_emp_sumwage = empmx[i].wageamt + empmx[i].prwageamt IF u_wage.f_setwagemxdata(wagemth,empmx[i].empid,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_day SET u_scwg_taskwork_day.flag = 0, u_scwg_taskwork_day.auditingrep = '', u_scwg_taskwork_day.auditingdate = :ls_null WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.billtype = 1 USING commit_transaction; ELSE UPDATE u_scwg_taskwork_day SET u_scwg_taskwork_day.flag = 0, u_scwg_taskwork_day.auditingrep = '', u_scwg_taskwork_day.auditingdate = :ls_null, u_scwg_taskwork_day.affirmdate = :ls_null, u_scwg_taskwork_day.affirmemp = '', u_scwg_taskwork_day.affirmflag = 0 WHERE u_scwg_taskwork_day.billid = :arg_billid AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.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; ELSE COMMIT USING commit_transaction; END IF DESTROY u_wage RETURN rslt end function public function integer getinfo (long arg_billid, ref string arg_msg); Int rslt = 1 Long i = 1,no_mxcheck = 0 Long j = 1 ,no_mxcheck_emp = 0 IF arg_billid <= 0 THEN rslt = 0 arg_msg = "非法单据唯一码("+String(arg_billid)+')' 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_day_mx.mtrlid, u_scwg_taskwork_day_mx.qty, u_scwg_taskwork_day_mx.orderid, u_scwg_taskwork_day_mx.ordercode, u_scwg_taskwork_day_mx.procode, u_scwg_taskwork_day_mx.price, u_scwg_taskwork_day_mx.wpcode FROM u_scwg_taskwork_day_mx WHERE u_scwg_taskwork_day_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_day_mx WHERE u_scwg_taskwork_day_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 it_mxbt = i - 1 // // DECLARE cur_empmx CURSOR FOR SELECT u_scwg_taskwork_day_mx_emp.printid, u_scwg_taskwork_day_mx_emp.empid, u_scwg_taskwork_day_mx_emp.workhours, u_scwg_taskwork_day_mx_emp.workhours2, u_scwg_taskwork_day_mx_emp.workhours3, u_scwg_taskwork_day_mx_emp.wageamt, u_scwg_taskwork_day_mx_emp.prwageamt FROM u_scwg_taskwork_day_mx_emp WHERE u_scwg_taskwork_day_mx_emp.billid = :arg_billid Using commit_transaction; OPEN cur_empmx; FETCH cur_empmx INTO :empmx[j].printid,:empmx[j].empid, :empmx[j].workhours,:empmx[j].workhours2,:empmx[j].workhours3,:empmx[j].wageamt, :empmx[j].prwageamt; DO WHILE commit_transaction.SQLCode = 0 j++ FETCH cur_empmx INTO :empmx[j].printid,:empmx[j].empid, :empmx[j].workhours,:empmx[j].workhours2,:empmx[j].workhours3,:empmx[j].wageamt, :empmx[j].prwageamt; LOOP CLOSE cur_empmx; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck_emp FROM u_scwg_taskwork_day_mx_emp WHERE u_scwg_taskwork_day_mx_emp.billid = :arg_billid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,单据明细数量" GOTO ext END IF IF j <> (no_mxcheck_emp+1) THEN rslt = 0 arg_msg = "查询操作失败,单据明细" GOTO ext END IF billid = arg_billid it_mxbt_emp = j - 1 ext: IF rslt = 0 THEN p_reset() 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_day_mx WHERE u_scwg_taskwork_day_mx.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_day_mx_emp WHERE u_scwg_taskwork_day_mx_emp.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_day WHERE u_scwg_taskwork_day.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 integer acceptmx_emp (integer arg_ifhelp, long arg_empid, string arg_empname, decimal arg_workhours, decimal arg_workhours2, decimal arg_workhours3, decimal arg_prwageamt, decimal arg_wageamt, string arg_mxdscrp, ref string arg_msg, long arg_printid); Int rslt = 1 Long cnt = 0,ls_i String ls_ordercode IF it_newbegin = FALSE AND it_updatebegin = FALSE THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF if isnull(arg_ifhelp) then arg_ifhelp = 0 IF IsNull(arg_empid) THEN arg_empid = 0 IF IsNull(arg_empname) THEN arg_empname = '' IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = '' IF IsNull(arg_workhours) THEN arg_workhours = 0 IF IsNull(arg_prwageamt) THEN arg_prwageamt = 0 IF IsNull(arg_wageamt) THEN arg_wageamt = 0 IF IsNull(arg_printid) THEN arg_printid = 0 IF arg_empid = 0 THEN rslt = 0 arg_msg = '员工明细行:'+String(arg_printid)+',错误的员工ID' GOTO ext END IF IF arg_workhours < 0 THEN rslt = 0 arg_msg = '员工:'+arg_empname+'请输入正确工时!' GOTO ext END IF //if arg_prwageamt < 0 then // rslt = 0 // arg_msg = '员工:'+arg_empname+'请错误的预提工资!' // GOTO ext //END IF // //IF arg_wageamt < 0 THEN // rslt = 0 // arg_msg = '员工:'+arg_empname+'错误的分配工资!' // GOTO ext //END IF relempstr = relempstr + arg_empname +',' //写入内容 it_mxbt_emp++ empmx[it_mxbt_emp].empid = arg_empid empmx[it_mxbt_emp].workhours = arg_workhours empmx[it_mxbt_emp].workhours2 = arg_workhours2 empmx[it_mxbt_emp].workhours3 = arg_workhours3 empmx[it_mxbt_emp].wageamt = arg_wageamt empmx[it_mxbt_emp].printid = arg_printid empmx[it_mxbt_emp].mxdscrp = arg_mxdscrp empmx[it_mxbt_emp].ifhelp = arg_ifhelp empmx[it_mxbt_emp].prwageamt = arg_prwageamt ext: IF rslt = 0 THEN p_clearmx() Return(rslt) 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, long arg_orderid, string arg_reason, string arg_unit, 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_taskwork_day_noorder = -1000 THEN arg_msg = '选项:[105]日分配计件单可以不选计划,读取初始默认值失败,操作取消!' 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_if_taskwork_acmpqty = -1000 THEN arg_msg = '选项:[202]计件单选生产计划时按已进仓数限制,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_taskwork_procode_order = -1000 THEN arg_msg = '选项:[064]计件单按生产计划工序,读取初始默认值失败,操作取消!' 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_orderid) THEN arg_orderid = 0 IF IsNull(arg_reason) THEN arg_reason = '' IF IsNull(arg_unit) THEN arg_unit = '' IF IsNull(arg_wpcode) THEN arg_wpcode = '' IF billtype = 0 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_taskwork_day_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+'已确认数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF SELECT isnull(sum(qty),0) INTO :ld_othertask_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_mx.billid <> :billid 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(qty),0) INTO :ld_Otherbill_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.scid = :scid 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(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 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].orderid = arg_orderid taskworkmx[it_mxbt].ordercode = ls_ordercode taskworkmx[it_mxbt].reason = arg_reason taskworkmx[it_mxbt].unit = arg_unit taskworkmx[it_mxbt].wpcode = arg_wpcode ext: IF rslt = 0 THEN p_clearmx() Return(rslt) end function public function integer auditing (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg);//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_day WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and (u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1) AND u_scwg_taskwork_day.affirmflag = 0 AND u_scwg_taskwork_day.billtype = 0 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_day WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and (u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1) AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 0 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 IF uo_option_check_noworkprice = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork_day INNER JOIN u_scwg_taskwork_day_mx ON u_scwg_taskwork_day.billid = u_scwg_taskwork_day_mx.billid WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and (u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1) AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 0 AND u_scwg_taskwork_day_mx.price = 0 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 END IF //SELECT count(*) // INTO :cnt // FROM u_scwg_taskwork_day // WHERE u_scwg_taskwork_day.wageid = :arg_wageid // AND u_scwg_taskwork_day.wagemth = :arg_wagemth // AND u_scwg_taskwork_day.flag = 1 // AND u_scwg_taskwork_day.billtype = 0 // 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_17' 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 u_wage.f_setwagemxdata(arg_wagemth,ds_emp_sumwage.Object.u_scwg_taskwork_day_mx_emp_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_day SET u_scwg_taskwork_day.flag = 1, u_scwg_taskwork_day.auditingrep = :publ_operator, u_scwg_taskwork_day.auditingdate = getdate() WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and (u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1) AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 0 Using commit_transaction; ELSE UPDATE u_scwg_taskwork_day SET u_scwg_taskwork_day.flag = 1, u_scwg_taskwork_day.auditingrep = :publ_operator, u_scwg_taskwork_day.auditingdate = getdate(), u_scwg_taskwork_day.affirmdate = getdate(), u_scwg_taskwork_day.affirmemp = :publ_operator, u_scwg_taskwork_day.affirmflag = 1 WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and (u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1) AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 0 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; ELSE COMMIT Using commit_transaction; END IF Destroy u_wage RETURN rslt end function public function integer c_auditing (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg);Int rslt = 1 Long ll_flagnum,i decimal ls_emp_sumwage DateTime ls_null SetNull(ls_null) long cnt 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 //检查该月份,该工资项目是否已开工资变更单 cnt = 0 SELECT count(*) INTO :cnt FROM u_wage_change WHERE wageid = :arg_wageid AND wagemth = :arg_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 uo_wage u_wage u_wage = CREATE uo_wage SELECT count(*) INTO :ll_flagnum FROM u_scwg_taskwork_day WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and ( u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1 ) AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.billtype = 0 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_17' 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_day_mx_emp_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_day SET u_scwg_taskwork_day.flag = 0, u_scwg_taskwork_day.Auditingrep = '', u_scwg_taskwork_day.Auditingdate = :ls_null WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and ( u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1 ) AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.billtype = 0 USING commit_transaction; ELSE UPDATE u_scwg_taskwork_day SET u_scwg_taskwork_day.flag = 0, u_scwg_taskwork_day.Auditingrep = '', u_scwg_taskwork_day.Auditingdate = :ls_null, u_scwg_taskwork_day.affirmdate = :ls_null, u_scwg_taskwork_day.affirmemp = '', u_scwg_taskwork_day.affirmflag = 0 WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and ( u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1 ) AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.billtype = 0 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; ELSE COMMIT USING commit_transaction; END IF DESTROY u_wage RETURN rslt end function public function integer auditing_1 (long arg_scid, long arg_wageid, long arg_wagemth, ref string arg_msg);//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_day WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and ( u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1 ) AND u_scwg_taskwork_day.affirmflag = 0 AND u_scwg_taskwork_day.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_day WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and ( u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1 ) AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.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 IF uo_option_check_noworkprice = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_scwg_taskwork_day INNER JOIN u_scwg_taskwork_day_mx ON u_scwg_taskwork_day.billid = u_scwg_taskwork_day_mx.billid WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 1 AND u_scwg_taskwork_day_mx.price = 0 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 END IF //SELECT count(*) // INTO :cnt // FROM u_scwg_taskwork_day // WHERE u_scwg_taskwork_day.wageid = :arg_wageid // AND u_scwg_taskwork_day.wagemth = :arg_wagemth // AND u_scwg_taskwork_day.flag = 1 // AND u_scwg_taskwork_day.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_19' 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 u_wage.f_setwagemxdata(arg_wagemth,ds_emp_sumwage.Object.u_scwg_taskwork_day_mx_emp_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_day SET u_scwg_taskwork_day.flag = 1, u_scwg_taskwork_day.auditingrep = :publ_operator, u_scwg_taskwork_day.auditingdate = getdate() WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and ( u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1 ) AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.billtype = 1 USING commit_transaction; ELSE UPDATE u_scwg_taskwork_day SET u_scwg_taskwork_day.flag = 1, u_scwg_taskwork_day.auditingrep = :publ_operator, u_scwg_taskwork_day.auditingdate = getdate(), u_scwg_taskwork_day.affirmdate = getdate(), u_scwg_taskwork_day.affirmemp = :publ_operator, u_scwg_taskwork_day.affirmflag = 1 WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth and ( u_scwg_taskwork_day.scid = :arg_scid or :arg_scid = -1 ) AND u_scwg_taskwork_day.flag = 0 AND u_scwg_taskwork_day.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; ELSE 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);Int rslt = 1 Long ll_flagnum,i decimal ls_emp_sumwage DateTime ls_null SetNull(ls_null) Long cnt 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 //检查该月份,该工资项目是否已开工资变更单 cnt = 0 SELECT count(*) INTO :cnt FROM u_wage_change WHERE wageid = :arg_wageid And wagemth = :arg_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 uo_wage u_wage u_wage = Create uo_wage SELECT count(*) INTO :ll_flagnum FROM u_scwg_taskwork_day WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth AND (u_scwg_taskwork_day.scid = :arg_scid or :arg_scid) AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.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_19' 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_day_mx_emp_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_day SET u_scwg_taskwork_day.flag = 0, u_scwg_taskwork_day.Auditingrep = '', u_scwg_taskwork_day.Auditingdate = :ls_null WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth AND (u_scwg_taskwork_day.scid = :arg_scid or :arg_scid) AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.billtype = 1 Using commit_transaction; ELSE UPDATE u_scwg_taskwork_day SET u_scwg_taskwork_day.flag = 0, u_scwg_taskwork_day.Auditingrep = '', u_scwg_taskwork_day.Auditingdate = :ls_null, u_scwg_taskwork_day.affirmdate = :ls_null, u_scwg_taskwork_day.affirmemp = '', u_scwg_taskwork_day.affirmflag = 0 WHERE u_scwg_taskwork_day.wageid = :arg_wageid AND u_scwg_taskwork_day.wagemth = :arg_wagemth AND (u_scwg_taskwork_day.scid = :arg_scid or :arg_scid) AND u_scwg_taskwork_day.flag = 1 AND u_scwg_taskwork_day.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; ELSE COMMIT Using commit_transaction; END IF Destroy u_wage RETURN rslt end function public function integer uf_update_emp (long arg_billid, ref string arg_msg, boolean arg_ifcommit);Integer rslt = 1 Long cnt = 0,i,j DateTime server_dt Long ls_newid int li_flag IF IsNull(wageid) THEN wageid = 0 IF IsNull(relempstr) THEN relempstr = '' IF arg_billid <= 0 THEN rslt = 0 arg_msg = '错误的ID' GOTO ext END IF IF it_mxbt_emp = 0 THEN // rslt = 0 arg_msg = "没有计件员工明细" GOTO ext END IF //检查审核 SELECT u_scwg_taskwork_day.flag INTO :li_flag FROM u_scwg_taskwork_day Where u_scwg_taskwork_day.billid = :arg_billid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询单据信息失败,'+commit_transaction.SQLErrText GOTO ext END IF IF li_flag = 1 THEN arg_msg = '已经工资审' rslt = 0 GOTO ext END IF UPDATE u_scwg_taskwork_day SET modemp = :publ_operator, moddate = GETDATE(), relempstr = :relempstr WHERE billid = :arg_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_day_mx_emp Where billid = :arg_billid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除旧有员工明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF FOR j = 1 To it_mxbt_emp INSERT INTO u_scwg_taskwork_day_mx_emp ( billid, printid, empid, workhours, workhours2, workhours3, wageamt, mxdscrp, ifhelp, prwageamt) VALUES ( :arg_billid, :empmx[j].printid, :empmx[j].empid, :empmx[j].workhours, :empmx[j].workhours2, :empmx[j].workhours3, :empmx[j].wageamt, :empmx[j].mxdscrp, :empmx[j].ifhelp, :empmx[j].prwageamt) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入员工明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF NEXT 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 updateempbegin (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 on uo_scwg_taskwork_day.create call super::create TriggerEvent( this, "constructor" ) end on on uo_scwg_taskwork_day.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('105',str_optionvalue,arg_msg) uo_option_taskwork_day_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