$PBExportHeader$uo_buytask.sru forward global type uo_buytask from nonvisualobject end type end forward global type uo_buytask from nonvisualobject end type global uo_buytask uo_buytask type variables PUBLIC PROTECTEDWRITE Long scid = 0 PUBLIC PROTECTEDWRITE Long TaskID = 0 PUBLIC PROTECTEDWRITE String TaskCode = '' PUBLIC PROTECTEDWRITE DateTime opdate PUBLIC PROTECTEDWRITE String operator = '' PUBLIC PROTECTEDWRITE Int status = 0 PUBLIC PROTECTEDWRITE DateTime Accomplishdate PUBLIC PROTECTEDWRITE String Permit_emp = '' PUBLIC PROTECTEDWRITE Long ctmint Long orderid = 0 Int Kind = 0 Long sptID = 0 String Assign_emp DateTime Requiredate String dscrp String relcode String train Long banktypeid String reason Int billtype String firpermitemp DateTime firpermitdate Decimal billamt decimal mrate long moneyid string sptsccode Long audit_buildtype int uo_option_requestbuy_hz int uo_option_if_oa_buytask,uo_option_if_oa_buytask_cp,uo_option_if_oa_buytask_dept int uo_option_buytask_cl_secaudit,uo_option_buytask_cp_secaudit,uo_option_buytask_dept_secaudit int uo_option_ifovertask string uo_option_change_status,uo_option_change_woodcode,uo_option_change_pcode int uo_option_buyprice_buytask_notlimit int uo_option_unit_dec int uo_option_disuse_buytask int uo_option_update_rqmtrlqty_buy Transaction commit_transaction PRIVATE: s_buytaskmx buytaskmx[] //明细结构数组 Long it_MXBT = 0 //明细结构数组末指针 Boolean IT_NEWBEGIN = TRUE //新建标志 Boolean IT_UPDATEBEGIN = FALSE//修改标志 end variables forward prototypes public function integer p_reset () public function integer p_clearmx () public function integer savesubmit (string arg_operator, ref string arg_msg, boolean arg_ifcommit) public function integer p_getinfo (long arg_scid, long arg_taskid, ref string arg_msg) public function integer updatebegin (long arg_scid, long arg_taskid, ref string arg_msg) public function integer getinfo (integer arg_scid, long arg_taskid, ref string arg_msg) public function integer cancelpermit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer add_dscrp (long arg_scid, long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit) public function integer tempstoptask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer firstpermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer lastpermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer checkmxmpl (long arg_scid, long arg_taskid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg) public function integer trycmplbuytask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer finishtask (integer arg_finishtype, long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer newbegin (long arg_scid, ref string arg_msg) public function integer stopmx (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, integer arg_flag, string arg_stopreason, ref string arg_msg, boolean arg_commit) public function integer secpermit (long arg_scid, long arg_taskid, ref string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer cancelsecpermit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer stopqty (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, decimal arg_rebuyqty, string arg_stopreason, ref string arg_msg, boolean arg_commit) public function integer ue_splitqty (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, decimal arg_splitqty, datetime arg_newdate, ref string arg_msg, boolean arg_ifcommit) public function integer addmx_sptcheckqty (long arg_scid, long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer finishmx (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_disuse (long arg_scid, long arg_taskid, integer arg_disusetype, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_buyermemo (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, string arg_buyermemo, boolean arg_ifcommit, ref string arg_msg) public function integer uof_update_feedback (long arg_scid, long arg_taskid, s_buytaskmx_feedback_ljfieb arg_s_mx[], ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_requiredate (long arg_scid, long arg_taskid, long arg_printid, datetime arg_requiredate, string arg_reason, ref string arg_msg, boolean arg_ifcommit) public function integer cstopbuytask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx (integer arg_iforder, long arg_orderid, string arg_ordercode, long arg_mtrlid, decimal arg_uqty, decimal arg_enprice, decimal arg_rebate, decimal arg_planprice, string arg_dscrp, string arg_mtrlcode, ref string arg_msg, long arg_printid, datetime arg_requiredate, long arg_storageid, string arg_status, string arg_unit, decimal arg_rate, string arg_woodcode, string arg_pcode, long arg_requestbuyid, long arg_rqmxprintid, long arg_wrkgrpid, long arg_taskmxprintid, decimal arg_tax, string arg_plancode, string arg_jgdscrp) public function integer stopbuytask (long arg_scid, long arg_taskid, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit) public function integer mod_price (long arg_scid, long arg_taskid, long arg_printid, decimal arg_enprice, decimal arg_rebate, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_requiredate_chk (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg) public function integer uof_update_billamt (long arg_scid, long arg_taskid, boolean arg_ifcommit, ref string arg_msg) public function integer addmxcmpl (long arg_scid, long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx (s_buytaskmx s_mx, ref string arg_msg) end prototypes public function integer p_reset ();//INT p_RESET() //清除对象及其明细 taskid = 0 taskcode = '' operator = '' relcode = '' status = 0 train = '' banktypeid = 0 billamt = 0 it_newbegin = FALSE it_updatebegin = FALSE //清除明细 P_CLEARMX() RETURN 1 end function public function integer p_clearmx ();//INT p_clearmx() //清除明细 it_mxbt=0 billamt = 0 RETURN 1 end function public function integer savesubmit (string arg_operator, ref string arg_msg, boolean arg_ifcommit);Integer rslt = 1 Long cnt = 0,i,ll_i DateTime server_datetime String ls_sccode Long ll_taskid Long ll_fp_array,ll_fp IF uo_option_disuse_buytask = -1000 THEN rslt = 0 arg_msg = '选项:[293]启用采购订单废弃单,读取初始默认值失败,操作取消!' GOTO ext END IF s_mtrlware_assign_plan s_fp_plan uo_mtrlware_assign uo_fp_plan uo_fp_plan = Create uo_mtrlware_assign uo_fp_plan.commit_transaction = commit_transaction datastore ds_fp_plan_del ds_fp_plan_del = Create datastore ds_fp_plan_del.DataObject = 'ds_fp_plan_plankind_del' ds_fp_plan_del.SetTransObject(commit_transaction) datastore ds_pfpack ds_pfpack = Create datastore ds_pfpack.DataObject = 'ds_pf_pack' ds_pfpack.SetTransObject(commit_transaction) s_mtrlcfg_expr s_pz[],s_pz_null[] IF IsNull(dscrp) THEN dscrp = '' IF IsNull(assign_emp) THEN assign_emp = '' IF IsNull(train) THEN train = '' IF IsNull(reason) THEN reason = '' IF IsNull(banktypeid) THEN banktypeid = 0 IF IsNull(Kind) THEN Kind = 0 IF IsNull(billamt) THEN billamt = 0 IF IsNull(arg_operator) THEN arg_operator = '' IF IsNull(mrate) THEN mrate = 0 IF IsNull(moneyid) THEN moneyid = 0 if isnull(sptsccode) then sptsccode = '' IF Len(dscrp) > 0 THEN dscrp = ' ' + dscrp operator = arg_operator IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以提交" GOTO ext END IF IF Trim(assign_emp) = '' THEN rslt = 0 arg_msg = "请输入订单负责人" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_spt Where sptid = :sptid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,供应商资料" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "供应商未定义或错误" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM cw_currency Where moneyid = :moneyid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询币种失败' rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '币种资料不存在' rslt = 0 GOTO ext END IF IF mrate = 0 THEN arg_msg = '币种汇率错误' rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM cw_banktype Where banktypeid = :banktypeid; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询结算方式失败' rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '结算方式不存在' rslt = 0 GOTO ext END IF SELECT Top 1 getdate() Into :server_datetime From u_user Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF IF f_check_inoutdate(0,requiredate,False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空 rslt = 0 arg_msg = "没有正确采购订单明细内容" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :operator Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消!" GOTO ext END IF opdate = server_datetime //填写单据建立时间(最近修改时间) IF taskid > 0 And uo_option_disuse_buytask = 1 THEN IF uof_disuse(scid,taskid,0,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF //检查供应商月订货金额限制 Long ll_bgmth, ll_billmth Decimal lde_maxamt, lde_billamt SELECT bgmth, maxamt INTO :ll_bgmth, :lde_maxamt FROM u_spt_maxamt WHERE sptid = :sptid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN ll_bgmth = 0 lde_maxamt = 0 END IF IF lde_maxamt > 0 THEN ll_billmth = Long(String(requiredate, 'yyyymm')) IF ll_billmth >= ll_bgmth THEN SELECT sum(Round(enprice * uqty * rebate,2)) INTO :lde_billamt FROM u_buytaskmx INNER join u_buytask on u_buytaskmx.scid = u_buytask.scid AND u_buytaskmx.taskid = u_buytask.taskid WHERE (CONVERT(char(7), u_buytask.requiredate, 120) = CONVERT(char(7), :requiredate, 120)) AND u_buytask.sptid = :sptid AND convert(char(7), u_buytask.taskid) + ' ' + convert(char(7), u_buytask.scid) <> convert(char(7), :taskid) + ' ' + convert(char(7), :scid) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询订单月已订货金额失败!" GOTO ext END IF IF IsNull(lde_billamt) THEN lde_billamt = 0 IF lde_maxamt < lde_billamt + billamt THEN rslt = 0 arg_msg = "供应商月订货金额限制:"+String(lde_maxamt,'#,##0.00')+",当月已订货金额:"+String(lde_billamt,'#,##0.00')+",不能再订货:"+String(billamt, '#,##0.00')+"!" GOTO ext END IF END IF END IF //billamt = billamt + Round(arg_enprice * arg_uqty * arg_rebate,2) ////////////////////////////////////////////// //开始区分:新建/更新 处理 IF taskid = 0 THEN //新建 ll_taskid = f_sys_scidentity(scid,"u_buytask","taskid",arg_msg,True,id_sqlca) //数据commit事务) IF ll_taskid <= 0 THEN rslt = 0 GOTO ext END IF IF f_get_sccode(scid,commit_transaction,ls_sccode,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF billtype = 0 THEN taskcode = getid(scid,ls_sccode + 'BG',Date(server_datetime),False,commit_transaction) ELSEIF billtype = 1 THEN taskcode = getid(scid,ls_sccode + 'BH',Date(server_datetime),False,commit_transaction) ELSEIF billtype = 2 THEN taskcode = getid(scid,ls_sccode + 'BA',Date(server_datetime),False,commit_transaction) END IF IF taskcode = "err" THEN taskcode = '' rslt = 0 arg_msg = "无法获取采购订单编号"+"~n"+commit_transaction.SQLErrText GOTO ext END IF INSERT INTO u_buytask ( scid, taskid, taskcode, kind, sptid, requiredate, status, opemp, assign_emp, dscrp, opdate, orderid, relcode, train, banktypeid, reason, billtype, billamt, moneyid, mrate, sptsccode) VALUES ( :scid, :ll_taskid, :taskcode, :Kind, :sptid, :requiredate, :status, :operator, :assign_emp, :dscrp, :opdate, :orderid, :relcode, :train, :banktypeid, :reason, :billtype, :billamt, :moneyid, :mrate, :sptsccode) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入采购订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF FOR i = 1 To it_mxbt INSERT INTO u_buytaskmx ( scid, qty, price, mtrlid, taskid, dscrp, dscrp2, printid, fprice, rebate, requiredate, orderid, storageid, status, iforder, sptmtrlname, unit, rate, uqty, uprice, woodcode, pcode, rqmxprintid, requestbuyid, relrqbuycode, wrkgrpid, taskmxprintid, enprice, tax, plancode, buybargainid, buybargainprintid, buybargaincode, jgdscrp, lastcode, lastdate, lastprice) VALUES (:scid, :buytaskmx[i].qty, :buytaskmx[i].acprice, :buytaskmx[i].mtrlid, :ll_taskid, :buytaskmx[i].dscrp , :buytaskmx[i].dscrp2 , :buytaskmx[i].printid, :buytaskmx[i].fprice , :buytaskmx[i].rebate, :buytaskmx[i].requiredate, :buytaskmx[i].orderid, :buytaskmx[i].storageid, :buytaskmx[i].status, :buytaskmx[i].iforder, :buytaskmx[i].sptmtrlname, :buytaskmx[i].unit, :buytaskmx[i].rate, :buytaskmx[i].uqty, :buytaskmx[i].uprice, :buytaskmx[i].woodcode, :buytaskmx[i].pcode, :buytaskmx[i].rqmxprintid, :buytaskmx[i].requestbuyid, :buytaskmx[i].relrqbuycode, :buytaskmx[i].wrkgrpid, :buytaskmx[i].taskmxprintid, :buytaskmx[i].enprice, :buytaskmx[i].tax, :buytaskmx[i].plancode, :buytaskmx[i].buybargainid, :buytaskmx[i].buybargainprintid, :buytaskmx[i].buybargaincode, :buytaskmx[i].jgdscrp, :buytaskmx[i].lastcode, :buytaskmx[i].lastdate, :buytaskmx[i].lastprice) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(buytaskmx[i].printid)+",插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF buytaskmx[i].iffp = 1 And buytaskmx[i].orderid > 0 THEN IF billtype = 0 THEN //材料分配 ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 0 s_fp_plan.relbillid[ll_fp_array] = buytaskmx[i].orderid s_fp_plan.relprintid[ll_fp_array] = 0 s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 2 s_fp_plan.plankind_relbillid[ll_fp_array] = ll_taskid s_fp_plan.plankind_relprintid[ll_fp_array] = buytaskmx[i].printid s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = buytaskmx[i].qty s_fp_plan.mtrlid[ll_fp_array] = buytaskmx[i].mtrlid s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode ELSEIF billtype = 1 THEN //成品分配 IF buytaskmx[i].outtype = 0 Or buytaskmx[i].ifpackpro = 0 THEN ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.relbillid[ll_fp_array] = buytaskmx[i].orderid s_fp_plan.relprintid[ll_fp_array] = buytaskmx[i].taskmxprintid s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 2 s_fp_plan.plankind_relbillid[ll_fp_array] = ll_taskid s_fp_plan.plankind_relprintid[ll_fp_array] = buytaskmx[i].printid s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = buytaskmx[i].qty s_fp_plan.mtrlid[ll_fp_array] = buytaskmx[i].mtrlid s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode ELSE CHOOSE CASE buytaskmx[i].ifpackpro CASE 1,2 ds_pfpack.Retrieve(buytaskmx[i].mtrlid) IF ds_pfpack.RowCount() = 0 THEN arg_msg = '明细行:'+String(buytaskmx[i].printid)+",物料清单找不到包件明细,请检查" rslt = 0 GOTO ext END IF FOR ll_i = 1 To ds_pfpack.RowCount() ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.relbillid[ll_fp_array] = buytaskmx[i].orderid s_fp_plan.relprintid[ll_fp_array] = buytaskmx[i].taskmxprintid s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 2 s_fp_plan.plankind_relbillid[ll_fp_array] = ll_taskid s_fp_plan.plankind_relprintid[ll_fp_array] = buytaskmx[i].printid s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = buytaskmx[i].qty * ds_pfpack.Object.u_prdpf_sonscale[ll_i] s_fp_plan.mtrlid[ll_fp_array] = ds_pfpack.Object.u_prdpf_sonmtrlid[ll_i] IF ds_pfpack.Object.u_prdpf_ifover[ll_i] THEN s_fp_plan.status[ll_fp_array] = ds_pfpack.Object.u_prdpf_status[ll_i] s_fp_plan.woodcode[ll_fp_array] = ds_pfpack.Object.u_prdpf_woodcode[ll_i] s_fp_plan.pcode[ll_fp_array] = ds_pfpack.Object.u_prdpf_pcode[ll_i] ELSE CHOOSE CASE ds_pfpack.Object.u_prdpf_ifover[ll_i] CASE 0 s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = '' s_fp_plan.pcode[ll_fp_array] = '' CASE 1 s_fp_plan.status[ll_fp_array] = '' s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = '' CASE 2 s_fp_plan.status[ll_fp_array] = '' s_fp_plan.woodcode[ll_fp_array] = '' s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode CASE 3 s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = '' CASE 4 s_fp_plan.status[ll_fp_array] = '' s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode CASE 5 s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = '' s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode CASE 6 s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode END CHOOSE END IF NEXT CASE 3,4 s_pz = s_pz_null f_checkpz(buytaskmx[i].status,s_pz[]) IF UpperBound(s_pz) = 0 THEN arg_msg = '明细行:'+String(buytaskmx[i].printid)+',拆分子件错误,请检查组合配置' rslt = 0 GOTO ext END IF FOR ll_i = 1 To UpperBound(s_pz) ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.relbillid[ll_fp_array] = buytaskmx[i].orderid s_fp_plan.relprintid[ll_fp_array] = buytaskmx[i].taskmxprintid s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 2 s_fp_plan.plankind_relbillid[ll_fp_array] = ll_taskid s_fp_plan.plankind_relprintid[ll_fp_array] = buytaskmx[i].printid s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = buytaskmx[i].qty * Dec(s_pz[ll_i].qty) s_fp_plan.mtrlid[ll_fp_array] = buytaskmx[i].mtrlid s_fp_plan.status[ll_fp_array] = s_pz[ll_i].cfgname s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode NEXT END CHOOSE END IF END IF END IF NEXT taskid = ll_taskid ELSE //////////////////////////////////////////////// //更新 UPDATE u_buytask SET kind = :Kind, sptid = :sptid, requiredate = :requiredate, assign_emp = :assign_emp, dscrp = :dscrp, moddate = getdate(), modemp = :publ_operator, orderid = :orderid, relcode = :relcode, train = :train, banktypeid = :banktypeid, reason = :reason, billamt = :billamt, moneyid = :moneyid, mrate = :mrate, sptsccode = :sptsccode WHERE u_buytask.taskid = :taskid AND u_buytask.scid = :scid And u_buytask.status = 0 Using commit_transaction; IF commit_transaction.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新采购订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //删除原有明细 DELETE FROM u_buytaskmx WHERE u_buytaskmx.taskid = :taskid And u_buytaskmx.scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除原明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //删除原有分配计划明细 ds_fp_plan_del.Retrieve(scid,taskid,2) IF ds_fp_plan_del.RowCount() > 0 THEN IF ds_fp_plan_del.Object.sumassignqty[1] > 0 THEN rslt = 0 arg_msg = "原分配计划明细已有分配数,操作取消" GOTO ext END IF END IF FOR ll_fp = 1 To ds_fp_plan_del.RowCount() IF uo_fp_plan.uof_plan_del(ds_fp_plan_del.Object.id[ll_fp],& ds_fp_plan_del.Object.qty[ll_fp],arg_msg,False) = 0 THEN arg_msg = '删除分配计划失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT /////////////////////////////////// // FOR i = 1 To it_mxbt INSERT INTO u_buytaskmx (scid, taskid, mtrlid, qty, price, dscrp, dscrp2, printid, fprice, rebate, requiredate, orderid, storageid, status, iforder, sptmtrlname, unit, rate, uqty, uprice, woodcode, pcode, rqmxprintid, requestbuyid, relrqbuycode, wrkgrpid, taskmxprintid, enprice, tax, plancode, buybargainid, buybargainprintid, buybargaincode, jgdscrp, lastcode, lastdate, lastprice) VALUES (:scid, :taskid, :buytaskmx[i].mtrlid, :buytaskmx[i].qty, :buytaskmx[i].acprice, :buytaskmx[i].dscrp, :buytaskmx[i].dscrp2 , :buytaskmx[i].printid, :buytaskmx[i].fprice , :buytaskmx[i].rebate, :buytaskmx[i].requiredate, :buytaskmx[i].orderid, :buytaskmx[i].storageid, :buytaskmx[i].status, :buytaskmx[i].iforder, :buytaskmx[i].sptmtrlname, :buytaskmx[i].unit, :buytaskmx[i].rate, :buytaskmx[i].uqty, :buytaskmx[i].uprice, :buytaskmx[i].woodcode, :buytaskmx[i].pcode, :buytaskmx[i].rqmxprintid, :buytaskmx[i].requestbuyid, :buytaskmx[i].relrqbuycode, :buytaskmx[i].wrkgrpid, :buytaskmx[i].taskmxprintid, :buytaskmx[i].enprice, :buytaskmx[i].tax, :buytaskmx[i].plancode, :buytaskmx[i].buybargainid, :buytaskmx[i].buybargainprintid, :buytaskmx[i].buybargaincode, :buytaskmx[i].jgdscrp, :buytaskmx[i].lastcode, :buytaskmx[i].lastdate, :buytaskmx[i].lastprice) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(buytaskmx[i].printid)+",插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF buytaskmx[i].iffp = 1 And buytaskmx[i].orderid > 0 THEN IF billtype = 0 THEN //材料分配 ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 0 s_fp_plan.relbillid[ll_fp_array] = buytaskmx[i].orderid s_fp_plan.relprintid[ll_fp_array] = 0 s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 2 s_fp_plan.plankind_relbillid[ll_fp_array] = taskid s_fp_plan.plankind_relprintid[ll_fp_array] = buytaskmx[i].printid s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = buytaskmx[i].qty s_fp_plan.mtrlid[ll_fp_array] = buytaskmx[i].mtrlid s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode ELSEIF billtype = 1 THEN //成品分配 IF buytaskmx[i].outtype = 0 Or buytaskmx[i].ifpackpro = 0 THEN ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.relbillid[ll_fp_array] = buytaskmx[i].orderid s_fp_plan.relprintid[ll_fp_array] = buytaskmx[i].taskmxprintid s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 2 s_fp_plan.plankind_relbillid[ll_fp_array] = taskid s_fp_plan.plankind_relprintid[ll_fp_array] = buytaskmx[i].printid s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = buytaskmx[i].qty s_fp_plan.mtrlid[ll_fp_array] = buytaskmx[i].mtrlid s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode ELSE CHOOSE CASE buytaskmx[i].ifpackpro CASE 1,2 ds_pfpack.Retrieve(buytaskmx[i].mtrlid) IF ds_pfpack.RowCount() = 0 THEN arg_msg = '明细行:'+String(buytaskmx[i].printid)+",物料清单找不到包件明细,请检查" rslt = 0 GOTO ext END IF FOR ll_i = 1 To ds_pfpack.RowCount() ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.relbillid[ll_fp_array] = buytaskmx[i].orderid s_fp_plan.relprintid[ll_fp_array] = buytaskmx[i].taskmxprintid s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 2 s_fp_plan.plankind_relbillid[ll_fp_array] = taskid s_fp_plan.plankind_relprintid[ll_fp_array] = buytaskmx[i].printid s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = buytaskmx[i].qty * ds_pfpack.Object.u_prdpf_sonscale[ll_i] s_fp_plan.mtrlid[ll_fp_array] = ds_pfpack.Object.u_prdpf_sonmtrlid[ll_i] IF ds_pfpack.Object.u_prdpf_ifover[ll_i] THEN s_fp_plan.status[ll_fp_array] = ds_pfpack.Object.u_prdpf_status[ll_i] s_fp_plan.woodcode[ll_fp_array] = ds_pfpack.Object.u_prdpf_woodcode[ll_i] s_fp_plan.pcode[ll_fp_array] = ds_pfpack.Object.u_prdpf_pcode[ll_i] ELSE CHOOSE CASE ds_pfpack.Object.u_prdpf_ifover[ll_i] CASE 0 s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = '' s_fp_plan.pcode[ll_fp_array] = '' CASE 1 s_fp_plan.status[ll_fp_array] = '' s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = '' CASE 2 s_fp_plan.status[ll_fp_array] = '' s_fp_plan.woodcode[ll_fp_array] = '' s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode CASE 3 s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = '' CASE 4 s_fp_plan.status[ll_fp_array] = '' s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode CASE 5 s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = '' s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode CASE 6 s_fp_plan.status[ll_fp_array] = buytaskmx[i].status s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode END CHOOSE END IF NEXT CASE 3,4 s_pz = s_pz_null f_checkpz(buytaskmx[i].status,s_pz[]) IF UpperBound(s_pz) = 0 THEN arg_msg = '明细行:'+String(buytaskmx[i].printid)+',拆分子件错误,请检查组合配置' rslt = 0 GOTO ext END IF FOR ll_i = 1 To UpperBound(s_pz) ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.relbillid[ll_fp_array] = buytaskmx[i].orderid s_fp_plan.relprintid[ll_fp_array] = buytaskmx[i].taskmxprintid s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 2 s_fp_plan.plankind_relbillid[ll_fp_array] = taskid s_fp_plan.plankind_relprintid[ll_fp_array] = buytaskmx[i].printid s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = buytaskmx[i].qty * Dec(s_pz[ll_i].qty) s_fp_plan.mtrlid[ll_fp_array] = buytaskmx[i].mtrlid s_fp_plan.status[ll_fp_array] = s_pz[ll_i].cfgname s_fp_plan.woodcode[ll_fp_array] = buytaskmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = buytaskmx[i].pcode NEXT END CHOOSE END IF END IF END IF NEXT END IF FOR ll_fp = 1 To ll_fp_array IF uo_fp_plan.uof_plan_add(s_fp_plan.scid[ll_fp],& s_fp_plan.mtrlwareid[ll_fp],s_fp_plan.assigntype[ll_fp],& s_fp_plan.relbillid[ll_fp],s_fp_plan.relprintid[ll_fp],& s_fp_plan.planassignqty[ll_fp],& '',publ_operator,s_fp_plan.plantype[ll_fp],& s_fp_plan.plankind[ll_fp],s_fp_plan.plankind_relbillid[ll_fp],& s_fp_plan.plankind_relprintid[ll_fp],2,s_fp_plan.mtrlid[ll_fp],& s_fp_plan.status[ll_fp],s_fp_plan.woodcode[ll_fp],s_fp_plan.pcode[ll_fp],arg_msg,False) = 0 THEN arg_msg = '明细行:'+String(s_fp_plan.plankind_relprintid[ll_fp])+',保存库存分配计划明细表失败,'+arg_msg rslt = 0 IF it_newbegin THEN taskid = 0 GOTO ext END IF NEXT it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN p_clearmx() ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF billamt = 0 Destroy uo_fp_plan Destroy ds_fp_plan_del Destroy ds_pfpack Return(rslt) end function public function integer p_getinfo (long arg_scid, long arg_taskid, ref string arg_msg);Int rslt = 1 SELECT taskid, TaskCode, kind, sptID, requiredate, accomplishdate, Status, Opemp, Assign_Emp, Permit_Emp, Dscrp, opdate, orderid , relcode, banktypeid, train, ctmint, billtype, firpermitemp, firpermitdate, moneyid, mrate, sptsccode INTO :taskid, :TaskCode, :Kind, :sptID, :requiredate, :accomplishdate, :Status, :Operator, :Assign_Emp, :Permit_Emp, :Dscrp, :opdate, :orderid, :relcode, :banktypeid, :train, :ctmint, :billtype, :firpermitemp, :firpermitdate, :moneyid, :mrate, :sptsccode FROM u_buyTask WHERE u_buyTask.TaskID = :arg_taskid AND u_buyTask.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '查询订单内容失败(错误订单唯一码)' GOTO ext END IF scid = arg_scid ext: RETURN rslt end function public function integer updatebegin (long arg_scid, long arg_taskid, ref string arg_msg);//UPDATEbegin(long arg_taskid,ref string arg_msg) //从置对象,设定业务类型与关联ID,准备更新进仓单 //0 fail 1 success Long rslt = 1,CNT = 0 billamt = 0 IF arg_scid < 0 THEN arg_msg = '请选择分部' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误采购订单唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 0 THEN rslt = 0 arg_msg = '已经处于审核或完成等状态,不可以修改,如果订单未完成并要修改请先撤销审核' GOTO ext END IF it_newbegin = False it_updatebegin = True p_clearmx() //清除明细 scid = arg_scid //billamt = 0 ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer getinfo (integer arg_scid, long arg_taskid, ref string arg_msg); Int rslt = 1 Long i = 1 Long no_mxcheck = 0 IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误采购订单唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //用游标读取明细 DECLARE cur_inwaermx CURSOR FOR SELECT u_buytaskmx.mtrlid, u_buytaskmx.qty, u_buytaskmx.price, u_buytaskmx.dscrp, u_mtrldef.mtrlcode, u_buytaskmx.printid, u_buytaskmx.fprice, u_buytaskmx.rebate, u_buytaskmx.orderid, u_buytaskmx.storageid, u_buytaskmx.status, u_buytaskmx.sptmtrlname, u_buytaskmx.unit, u_buytaskmx.rate, u_buytaskmx.uqty, u_buytaskmx.uprice, u_buytaskmx.woodcode, u_buytaskmx.pcode, u_buytaskmx.rqmxprintid, u_buytaskmx.requestbuyid, u_buytaskmx.relrqbuycode, u_buytaskmx.wrkGrpid, u_buytaskmx.taskmxprintid, u_buytaskmx.stopqty, u_buytaskmx.rebuyqty, u_buytaskmx.enprice, u_buytaskmx.tax, u_mtrldef.iffp, u_mtrldef.outtype, u_mtrldef.storagetype, u_buytaskmx.plancode, u_buytaskmx.buybargainid, u_buytaskmx.buybargainprintid, u_buytaskmx.buybargaincode, u_buytaskmx.jgdscrp FROM u_buytaskmx,u_mtrldef WHERE u_buytaskmx.taskid = :arg_taskid AND u_buytaskmx.mtrlid = u_mtrldef.mtrlid AND u_buytaskmx.scid = :arg_scid USING commit_transaction; OPEN cur_inwaermx; FETCH cur_inwaermx INTO :buytaskmx[i].mtrlid,:buytaskmx[i].qty,:buytaskmx[i].price, :buytaskmx[i].dscrp,:buytaskmx[i].mtrlcode, :buytaskmx[i].printid,:buytaskmx[i].fprice,:buytaskmx[i].rebate, :buytaskmx[i].orderid,:buytaskmx[i].storageid,:buytaskmx[i].status, :buytaskmx[i].sptmtrlname,:buytaskmx[i].unit,:buytaskmx[i].rate, :buytaskmx[i].uqty,:buytaskmx[i].uprice,:buytaskmx[i].woodcode, :buytaskmx[i].pcode,:buytaskmx[i].rqmxprintid,:buytaskmx[i].requestbuyid, :buytaskmx[i].relrqbuycode,:buytaskmx[i].wrkGrpid,:buytaskmx[i].taskmxprintid, :buytaskmx[i].stopqty,:buytaskmx[i].rebuyqty,:buytaskmx[i].enprice, :buytaskmx[i].tax,:buytaskmx[i].iffp,:buytaskmx[i].outtype,:buytaskmx[i].storagetype,:buytaskmx[i].plancode, :buytaskmx[i].buybargainid, :buytaskmx[i].buybargainprintid, :buytaskmx[i].buybargaincode, :buytaskmx[i].jgdscrp; DO WHILE commit_transaction.SQLCode = 0 i++ FETCH cur_inwaermx INTO :buytaskmx[i].mtrlid,:buytaskmx[i].qty,:buytaskmx[i].price, :buytaskmx[i].dscrp,:buytaskmx[i].mtrlcode, :buytaskmx[i].printid,:buytaskmx[i].fprice,:buytaskmx[i].rebate, :buytaskmx[i].orderid,:buytaskmx[i].storageid,:buytaskmx[i].status, :buytaskmx[i].sptmtrlname,:buytaskmx[i].unit,:buytaskmx[i].rate, :buytaskmx[i].uqty,:buytaskmx[i].uprice,:buytaskmx[i].woodcode, :buytaskmx[i].pcode,:buytaskmx[i].rqmxprintid,:buytaskmx[i].requestbuyid, :buytaskmx[i].relrqbuycode,:buytaskmx[i].wrkGrpid,:buytaskmx[i].taskmxprintid, :buytaskmx[i].stopqty,:buytaskmx[i].rebuyqty,:buytaskmx[i].enprice, :buytaskmx[i].tax,:buytaskmx[i].iffp,:buytaskmx[i].outtype,:buytaskmx[i].storagetype,:buytaskmx[i].plancode, :buytaskmx[i].buybargainid, :buytaskmx[i].buybargainprintid, :buytaskmx[i].buybargaincode, :buytaskmx[i].jgdscrp; LOOP CLOSE cur_inwaermx; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_buytaskmx WHERE u_buytaskmx.taskid = :arg_taskid AND u_buytaskmx.scid = :arg_scid 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 it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer cancelpermit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 DateTime nulldate Long ll_i Decimal lde_qty_tol, lde_addqty_order IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_requestbuy_hz = -1000 THEN rslt = 0 arg_msg = '选项:[111]申购单汇总采购,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_update_rqmtrlqty_buy = -1000 THEN rslt = 0 arg_msg = '选项:[342]采购订单审核检查并更新生产计划采购需求已订货数,读取初始默认值失败,操作取消!' GOTO ext END IF //yyx 100306 Long ll_ti,ll_rcnt //datastore ds_tmp_update //ds_tmp_update = Create datastore //ds_tmp_update.DataObject = 'ds_buytask_update_order' //ds_tmp_update.SetTransObject(sqlca) ////yyx 100306 datastore ds ds = Create datastore ds.DataObject = 'ds_orderrqmtrl_request_buytask' ds.SetTransObject(sqlca) uo_order_ml uo_order uo_order = Create uo_order_ml uo_requestbuy uo_rqbuy uo_rqbuy = Create uo_requestbuy SetNull(nulldate) IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误采购订单唯一码' GOTO ext END IF IF getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF ctmint > 0 THEN arg_msg = '单据已截数,不能操作' rslt = 0 GOTO ext END IF IF Status <> 1 THEN rslt = 0 arg_msg = "订单只有在已审核状态才可以执行撤消审核，请核对" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_inwaremx,u_inware WHERE ( u_inware.scid = u_inwaremx.scid ) AND ( u_inware.inwareid = u_inwaremx.inwareid ) AND ( u_inware.billtype = 1) AND ( u_inwaremx.relid = :arg_taskid ) AND ( u_inwaremx.scid = :arg_scid) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询采购订单收货数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "采购订单已经有相关进仓单据,不可以撤消审核" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_buytaskmx WHERE ( u_buytaskmx.taskid = :arg_taskid ) AND ( u_buytaskmx.scid = :arg_scid ) AND ( u_buytaskmx.stopqty > 0 ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询采购订单是否有终止数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "采购订单明细已有终止数量,不可以撤消审核" GOTO ext END IF SELECT count(*) INTO :cnt FROM u_sptcheck_mx INNER JOIN u_sptcheck ON u_sptcheck_mx.billid = u_sptcheck.billid WHERE u_sptcheck_mx.reltaskid = :arg_taskid AND u_sptcheck.scid = :arg_scid AND u_sptcheck.billtype = 0 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询采购订单是否已开质检单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "采购订单已经有相关质检单,不可以撤消审核" GOTO ext END IF // cnt = 0 SELECT count(*) INTO :cnt FROM u_getbar WHERE ( u_getbar.ifrel = 2) AND ( u_getbar.orderid = :arg_taskid ) AND ( u_getbar.scid = :arg_scid) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询采购订单是否已开条码生成单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "采购订单已经有相关条码生成单,不可以撤消审核" GOTO ext END IF UPDATE u_buyTask SET Status = 4, permit_emp = '', permit_date = :nulldate WHERE TaskID = :arg_taskid And Status = 1 And scid = :arg_scid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致采购订单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF String ls_unit_rq Decimal lde_rate_rq, lde_addqty FOR ll_i = 1 To it_mxbt IF buytaskmx[ll_i].requestbuyid > 0 THEN //处理单位转换,确认完成数量 SELECT unit, rate INTO :ls_unit_rq, :lde_rate_rq FROM u_requestbuymx WHERE ( printid = :buytaskmx[ll_i].rqmxprintid ) AND ( requestbuyid = :buytaskmx[ll_i].requestbuyid ) And ( scid = :scid ); IF ls_unit_rq = buytaskmx[ll_i].unit THEN //单位相同, 直接去订单数量 lde_addqty = buytaskmx[ll_i].uqty - buytaskmx[ll_i].rebuyqty ELSE //单位不同, 先转库存单位, 在转申购单位 lde_addqty = buytaskmx[ll_i].qty - buytaskmx[ll_i].rebuyqty * buytaskmx[ll_i].rate lde_addqty = lde_addqty / lde_rate_rq END IF IF uo_rqbuy.addmxcmpl(scid,buytaskmx[ll_i].requestbuyid,& buytaskmx[ll_i].rqmxprintid,0 - lde_addqty, arg_msg, False) = 0 THEN arg_msg = '第'+String(ll_i)+'行,'+arg_msg rslt = 0 GOTO ext END IF // IF uo_rqbuy.addmxcmpl(scid,buytaskmx[ll_i].requestbuyid,& // buytaskmx[ll_i].rqmxprintid,0 - (buytaskmx[ll_i].uqty - buytaskmx[ll_i].rebuyqty),ARG_MSG,False) = 0 THEN // ARG_MSG = '第'+String(ll_i)+'行,'+ARG_MSG // rslt = 0 // GOTO ext // END IF IF uo_rqbuy.tryfinish(scid,buytaskmx[ll_i].requestbuyid,arg_msg,False) = 0 THEN arg_msg = '第'+String(ll_i)+'行,'+arg_msg rslt = 0 GOTO ext END IF END IF IF billtype = 0 THEN IF uo_option_update_rqmtrlqty_buy = 1 THEN ll_rcnt = ds.Retrieve(scid,buytaskmx[ll_i].requestbuyid,buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].Status,buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode, buytaskmx[ll_i].orderid) lde_qty_tol = buytaskmx[ll_i].qty //- buytaskmx[ll_i].rebuyqty * buytaskmx[ll_i].rate FOR ll_ti = 1 To ll_rcnt IF ds.Object.u_orderrqmtrl_consignedqty[ll_ti] <= 0 THEN CONTINUE IF lde_qty_tol > ds.Object.u_orderrqmtrl_consignedqty[ll_ti] THEN lde_addqty_order = ds.Object.u_orderrqmtrl_consignedqty[ll_ti] lde_qty_tol -= lde_addqty_order ELSE lde_addqty_order = lde_qty_tol lde_qty_tol = 0 END IF lde_addqty_order = 0 - lde_addqty_order IF uo_order.f_assign_rqmtrlqty(ds.Object.u_orderrqmtrl_scid[ll_ti],ds.Object.u_orderrqmtrl_orderid[ll_ti],& ds.Object.u_orderrqmtrl_wrkGrpid[ll_ti],buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].mtrlcode,buytaskmx[ll_i].Status,& buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode,lde_addqty_order,2,arg_msg,False) = 0 THEN arg_msg = '订单明细行:'+String(ll_i)+','+arg_msg rslt = 0 GOTO ext END IF IF lde_qty_tol = 0 THEN EXIT NEXT END IF // IF uo_option_update_rqmtrlqty_buy = 1 THEN // // IF buytaskmx[ll_i].orderid > 0 THEN // IF uo_order.f_assign_rqmtrlqty(scid,buytaskmx[ll_i].orderid,buytaskmx[ll_i].wrkGrpid,& // buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].mtrlcode,& // buytaskmx[ll_i].Status,buytaskmx[ll_i].woodcode,& // buytaskmx[ll_i].pcode,0 - (buytaskmx[ll_i].qty - buytaskmx[ll_i].rate * buytaskmx[ll_i].rebuyqty),2,arg_msg,False) = 0 THEN // rslt = 0 // GOTO ext // END IF // ELSE // //YYX 100305 // IF buytaskmx[ll_i].requestbuyid > 0 And uo_option_requestbuy_hz = 1 THEN // ll_rcnt = ds_tmp_update.Retrieve(scid,buytaskmx[ll_i].requestbuyid,buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].Status,buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode) // // FOR ll_ti = 1 To ll_rcnt // IF uo_order.f_assign_rqmtrlqty(ds_tmp_update.Object.scid[ll_ti],ds_tmp_update.Object.orderid[ll_ti],& // ds_tmp_update.Object.wrkGrpid[ll_ti],buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].mtrlcode,buytaskmx[ll_i].Status,& // buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode,0 - (ds_tmp_update.Object.uqty[ll_ti] * buytaskmx[ll_i].rate),2,arg_msg,False) = 0 THEN // rslt = 0 // GOTO ext // END IF // NEXT // END IF // //buytaskmx[ll_i].qty - buytaskmx[ll_i].rate * buytaskmx[ll_i].rebuyqty // END IF // END IF END IF NEXT it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit THEN COMMIT Using commit_transaction; END IF Destroy uo_order Destroy uo_rqbuy //Destroy ds_tmp_update Destroy ds p_reset() Return (rslt) end function public function integer add_dscrp (long arg_scid, long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit);//add_dscrp(string arg_newdescppart) //0 fail 1 SUCCESS INT rslt=1 arg_newdescppart=TRIM(arg_newdescppart) IF it_updatebegin OR it_newbegin THEN rslt=0 arG_MSG="编辑状态下不可用" goto ext END IF IF arg_newdescppart='' THEN rslt=0 arG_MSG="要添加内容为空,操作取消" goto ext END IF if p_getinfo(arg_scid,arg_taskid,arg_msg)=0 then rslt=0 goto ext end if IF status=0 THEN rslt=0 arG_MSG="待采购审核状态下不可用" goto ext END IF UPDATE u_buyTask SET DSCRP = DSCRP+' '+:arg_newdescppart WHERE u_buyTask.taskid = :arg_taskid using commit_transaction; if commit_transaction.SQLCode<>0 then rslt=0 arG_MSG="因网络或其它原因导致添加采购订单备注操作失败"+"~n"+commit_transaction.SQLErrText rollback using commit_transaction; goto ext end if DSCRP = DSCRP+' '+arg_newdescppart it_newbegin=FALSE it_updatebegin=FALSE EXT: if arg_ifcommit and rslt=1 then COMMIT using commit_transaction; end if p_reset() return (rslt) end function public function integer tempstoptask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);INT rslt=1,cnt=0 IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF arg_taskid<=0 THEN rslt=0 ARG_MSG='错误采购订单唯一码' goto ext end if if p_getinfo(arg_scid,arg_taskid,arg_msg)=0 then rslt=0 goto ext end if IF Status<>1 and Status<>2 THEN rslt=0 arG_MSG="订单只有在进行状态或暂停状态才可以执行暂停/取消暂停操作" goto ext END IF if Status=1 then UPDATE u_buyTask SET Status = 2 ,stopemp=:publ_operator WHERE TaskID = :arg_taskid and scid=:arg_scid using commit_transaction ; if commit_transaction.sqlcode<>0 then rslt=0 arG_MSG="因网络或其它原因导致暂停采购订单操作失败"+"~n"+commit_transaction.SQLErrText goto ext end if else UPDATE u_buyTask SET Status = 1,stopemp='' WHERE TaskID = :arg_taskid and scid=:arg_scid using commit_transaction; if commit_transaction.sqlcode<>0 then rslt=0 arG_MSG="因网络或其它原因导致取消暂停采购订单操作失败"+"~n"+commit_transaction.SQLErrText goto ext end if end if it_newbegin=FALSE it_updatebegin=FALSE EXT: if rslt=0 then rollback using commit_transaction; elseif arg_ifcommit then COMMIT using commit_transaction; end if p_reset() return (rslt) end function public function integer cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);//删除未审核的订单 //0 FAIL, 1 SUCCESS Int rslt = 1 Long ll_fp IF uo_option_disuse_buytask = -1000 THEN rslt = 0 arg_msg = '选项:[293]启用采购订单废弃单,读取初始默认值失败,操作取消!' GOTO ext END IF uo_mtrlware_assign uo_fp_plan uo_fp_plan = Create uo_mtrlware_assign uo_fp_plan.commit_transaction = commit_transaction datastore ds_fp_plan_del ds_fp_plan_del = Create datastore ds_fp_plan_del.DataObject = 'ds_fp_plan_plankind_del' ds_fp_plan_del.SetTransObject(commit_transaction) IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误采购订单唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 0 THEN rslt = 0 ARG_MSG = "订单已经审核,不可以删除" GOTO ext END IF if uo_option_disuse_buytask = 1 then If uof_disuse(arg_scid,arg_taskid,1,arg_msg,False) = 0 Then rslt = 0 Goto ext End If end if //删除原有分配计划明细 ds_fp_plan_del.Retrieve(arg_scid,arg_taskid,2) IF ds_fp_plan_del.RowCount() > 0 THEN IF ds_fp_plan_del.Object.sumassignqty[1] > 0 THEN rslt = 0 ARG_MSG = "原分配计划明细已有分配数,操作取消" GOTO ext END IF END IF FOR ll_fp = 1 To ds_fp_plan_del.RowCount() IF uo_fp_plan.uof_plan_del(ds_fp_plan_del.Object.id[ll_fp],& ds_fp_plan_del.Object.qty[ll_fp],ARG_MSG,False) = 0 THEN ARG_MSG = '删除分配计划失败,'+ARG_MSG rslt = 0 GOTO ext END IF NEXT /////////////////////////////////// // DELETE FROM u_buytask Where u_buytask.taskid = :arg_taskid And scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "删除采购订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF DELETE FROM u_buytaskmx Where u_buytaskmx.taskid = :arg_taskid And scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "删除采购订单明细操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF ext: it_newbegin = False it_updatebegin = False IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Destroy uo_fp_plan Destroy ds_fp_plan_del p_reset() Return (rslt) end function public function integer firstpermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 Long ll_i Long ll_mtrlwareid,ll_cusid Int li_balctype,li_storagetype Decimal lde_qty_tol, lde_addqty_order IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_if_oa_buytask = -1000 THEN rslt = 0 arg_msg = '选项:[228]材料采购订单使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_buytask_cl_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[092]材料采购订单二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_if_oa_buytask_cp = -1000 THEN rslt = 0 arg_msg = '选项:[229]成品采购订单使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_if_oa_buytask_dept = -1000 THEN rslt = 0 arg_msg = '选项:[423]非生产采购订单使用OA审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_buytask_cp_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[093]成品采购订单二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_buytask_dept_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[422]非生产采购订单使用二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_requestbuy_hz = -1000 THEN rslt = 0 arg_msg = '选项:[111]申购单汇总采购,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_update_rqmtrlqty_buy = -1000 THEN rslt = 0 arg_msg = '选项:[342]采购订单保存审核检查并更新生产计划采购需求已订货数,读取初始默认值失败,操作取消!' GOTO ext END IF //yyx 100306 Long ll_ti,ll_rcnt //datastore ds_tmp_update //ds_tmp_update = Create datastore //ds_tmp_update.DataObject = 'ds_buytask_update_order' //ds_tmp_update.SetTransObject(sqlca) ////yyx 100306 datastore ds ds = Create datastore ds.DataObject = 'ds_orderrqmtrl_request_buytask' ds.SetTransObject(sqlca) uo_order_ml uo_order uo_order = Create uo_order_ml uo_requestbuy uo_rqbuy uo_rqbuy = Create uo_requestbuy IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误采购订单唯一码' GOTO ext END IF IF getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF billtype = 0 THEN IF uo_option_if_oa_buytask = 1 And uo_option_buytask_cl_secaudit = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_taskid,94,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF ELSEif billtype = 1 then IF uo_option_if_oa_buytask_cp = 1 And uo_option_buytask_cp_secaudit = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_taskid,1277,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF elseif billtype = 2 then IF uo_option_if_oa_buytask_dept = 1 And uo_option_buytask_dept_secaudit = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_taskid,4299,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF status <> 4 THEN rslt = 0 arg_msg = "订单不是在初审状态,不可以终审" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :arg_emp Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消!" GOTO ext END IF UPDATE u_buytask SET permit_emp = :arg_emp, permit_date = getdate(), status = 1 WHERE taskid = :arg_taskid AND scid = :arg_scid And status = 4 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致订单最终审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF String ls_unit_rq Decimal lde_rate_rq, lde_addqty FOR ll_i = 1 To it_mxbt IF buytaskmx[ll_i].requestbuyid > 0 THEN ///////////////// //更新申购完成数 //处理单位转换,确认完成数量 SELECT unit, rate INTO :ls_unit_rq, :lde_rate_rq FROM u_requestbuymx WHERE ( printid = :buytaskmx[ll_i].rqmxprintid ) AND ( requestbuyid = :buytaskmx[ll_i].requestbuyid ) And ( scid = :scid ); IF ls_unit_rq = buytaskmx[ll_i].unit THEN //单位相同, 直接去订单数量 lde_addqty = buytaskmx[ll_i].uqty - buytaskmx[ll_i].rebuyqty ELSE //单位不同, 先转库存单位, 在转申购单位 lde_addqty = buytaskmx[ll_i].qty - buytaskmx[ll_i].rebuyqty * buytaskmx[ll_i].rate lde_addqty = lde_addqty / lde_rate_rq END IF //改成订单选申购单,可以再改单位, 不同单位数量要转换 IF uo_rqbuy.addmxcmpl(scid,buytaskmx[ll_i].requestbuyid,& buytaskmx[ll_i].rqmxprintid,lde_addqty,arg_msg,False) = 0 THEN arg_msg = '订单明细行:'+String(ll_i)+','+arg_msg rslt = 0 GOTO ext END IF IF uo_rqbuy.tryfinish(scid,buytaskmx[ll_i].requestbuyid,arg_msg,False) = 0 THEN arg_msg = '订单明细行:'+String(ll_i)+','+arg_msg rslt = 0 GOTO ext END IF /////////////////////// //更新主计划 已订货数 / 销售订单加库存 IF billtype = 0 THEN IF uo_option_update_rqmtrlqty_buy = 1 THEN ll_rcnt = ds.Retrieve(scid,buytaskmx[ll_i].requestbuyid,buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].status,buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode, buytaskmx[ll_i].orderid) lde_qty_tol = buytaskmx[ll_i].qty //- buytaskmx[ll_i].rebuyqty * buytaskmx[ll_i].rate FOR ll_ti = 1 To ll_rcnt IF ds.Object.u_orderrqmtrl_truerqqty[ll_ti] <= ds.Object.u_orderrqmtrl_consignedqty[ll_ti] THEN CONTINUE IF lde_qty_tol > ds.Object.u_orderrqmtrl_truerqqty[ll_ti] - ds.Object.u_orderrqmtrl_consignedqty[ll_ti] THEN lde_addqty_order = ds.Object.u_orderrqmtrl_truerqqty[ll_ti] - ds.Object.u_orderrqmtrl_consignedqty[ll_ti] lde_qty_tol -= lde_addqty_order ELSE lde_addqty_order = lde_qty_tol lde_qty_tol = 0 END IF IF uo_order.f_assign_rqmtrlqty(ds.Object.u_orderrqmtrl_scid[ll_ti],ds.Object.u_orderrqmtrl_orderid[ll_ti],& ds.Object.u_orderrqmtrl_wrkGrpid[ll_ti],buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].mtrlcode,buytaskmx[ll_i].status,& buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode,lde_addqty_order,2,arg_msg,False) = 0 THEN arg_msg = '订单明细行:'+String(ll_i)+','+arg_msg rslt = 0 GOTO ext END IF IF lde_qty_tol = 0 THEN EXIT NEXT END IF // IF uo_option_update_rqmtrlqty_buy = 1 THEN // IF buytaskmx[ll_i].orderid > 0 THEN // IF uo_order.f_assign_rqmtrlqty(scid,buytaskmx[ll_i].orderid,buytaskmx[ll_i].wrkGrpid,& // buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].mtrlcode,buytaskmx[ll_i].status,& // buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode,buytaskmx[ll_i].qty - buytaskmx[ll_i].rebuyqty * buytaskmx[ll_i].rate,2,arg_msg,False) = 0 THEN // arg_msg = '订单明细行:'+String(ll_i)+','+arg_msg // rslt = 0 // GOTO ext // END IF // ELSE // //YYX 100305 // IF buytaskmx[ll_i].requestbuyid > 0 And uo_option_requestbuy_hz = 1 THEN // ll_rcnt = ds_tmp_update.Retrieve(scid,buytaskmx[ll_i].requestbuyid,buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].status,buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode) // // lde_qty_tol = buytaskmx[ll_i].qty - buytaskmx[ll_i].rebuyqty * buytaskmx[ll_i].rate // FOR ll_ti = 1 To ll_rcnt // // IF lde_qty_tol > ds_tmp_update.Object.qty[ll_ti] THEN // lde_addqty_order = ds_tmp_update.Object.qty[ll_ti] // lde_qty_tol -= lde_addqty_order // ELSE // lde_addqty_order = lde_qty_tol // lde_qty_tol = 0 // END IF // // IF uo_order.f_assign_rqmtrlqty(ds_tmp_update.Object.scid[ll_ti],ds_tmp_update.Object.orderid[ll_ti],& // ds_tmp_update.Object.wrkGrpid[ll_ti],buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].mtrlcode,buytaskmx[ll_i].status,& // buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode,lde_addqty_order,2,arg_msg,False) = 0 THEN // arg_msg = '订单明细行:'+String(ll_i)+','+arg_msg // rslt = 0 // GOTO ext // END IF // NEXT // END IF // //buytaskmx[ll_i].qty - buytaskmx[ll_i].rebuyqty * buytaskmx[ll_i].rate // END IF // END IF ELSE //成品审核加0库存 //IF billtype = 0 THEN IF sys_option_buytask_add0ware = 1 THEN IF buytaskmx[ll_i].storageid > 0 THEN SELECT balctype,storagetype INTO :li_balctype,:li_storagetype FROM u_storage Where storageid = :buytaskmx[ll_i].storageid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '订单明细行:'+String(ll_i)+",查询仓库是否使用客户库存失败,"+commit_transaction.SQLErrText GOTO ext END IF IF li_storagetype = 1 THEN ll_cusid = 0 ELSE IF li_balctype = 0 THEN ll_cusid = 0 ELSE IF buytaskmx[ll_i].storagetype = 1 THEN ll_cusid = 0 ELSE IF buytaskmx[ll_i].orderid = 0 THEN ll_cusid = 0 ELSE SELECT u_saletask.cusid INTO :ll_cusid FROM u_saletask WHERE u_saletask.scid = :scid AND u_saletask.taskid = :buytaskmx[ll_i].orderid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '订单明细行:'+String(ll_i)+",查询对应销售订单客户id失败,"+commit_transaction.SQLErrText GOTO ext END IF END IF END IF END IF END IF Int li_ref_ifadd IF f_insert_0_mtrlware_2(ll_mtrlwareid,buytaskmx[ll_i].mtrlid,buytaskmx[ll_i].mtrlcode,buytaskmx[ll_i].storageid,& ll_cusid,buytaskmx[ll_i].status,buytaskmx[ll_i].woodcode,buytaskmx[ll_i].pcode,'','',& '',0,li_ref_ifadd,arg_msg,False) = 0 THEN arg_msg = '订单产品细行:'+String(ll_i)+',查询产品0库存信息记录失败,'+arg_msg rslt = 0 GOTO ext END IF // SELECT top 1 mtrlwareid INTO :ll_mtrlwareid // FROM u_mtrlware // WHERE scid = :scid // AND mtrlid = :buytaskmx[ll_i].mtrlid // AND storageid = :buytaskmx[ll_i].storageid // AND status = :buytaskmx[ll_i].status // AND woodcode = :buytaskmx[ll_i].woodcode // AND pcode = :buytaskmx[ll_i].pcode // AND plancode = '' // AND sptid = :ll_cusid // And mtrlcuscode = '' Using commit_transaction; // // IF commit_transaction.SQLCode = -1 THEN // arg_msg = '订单明细行:'+String(ll_i)+',查询产品库存失败,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext // ELSEIF sqlca.SQLCode = 100 THEN // ll_mtrlwareid = 0 // // ll_mtrlwareid = f_sys_scidentity(scid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca) // IF ll_mtrlwareid <= 0 THEN // arg_msg = '订单明细行:'+String(ll_i)+',取0库存id失败,'+arg_msg // rslt = 0 // GOTO ext // END IF // // INSERT INTO u_mtrlware(scid, // mtrlwareid, // mtrlid, // storageid, // noallocqty, // status, // plancode, // woodcode, // pcode, // sptid, // mtrlcuscode) // VALUES(:scid, // :ll_mtrlwareid, // :buytaskmx[ll_i].mtrlid, // :buytaskmx[ll_i].storageid, // 0, // :buytaskmx[ll_i].status, // '', // :buytaskmx[ll_i].woodcode, // :buytaskmx[ll_i].pcode, // :ll_cusid,'') Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '订单明细行:'+String(ll_i)+',产品加0库存失败或物料已经有库存,请检查,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext // END IF // END IF END IF END IF //IF sys_option_buytask_add0ware = 1 THEN END IF END IF //IF buytaskmx[ll_i].requestbuyid > 0 THEN NEXT it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit THEN COMMIT Using commit_transaction; END IF Destroy uo_order Destroy uo_rqbuy //Destroy ds_tmp_update Destroy ds p_reset() Return (rslt) end function public function integer lastpermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误采购订单唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 4 THEN rslt = 0 ARG_MSG = "订单只有在已采购审核状态才可以执行最终审核，请核对" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :arg_emp ; IF sqlca.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 ARG_MSG = "操作员姓名未登记或已取消!" GOTO ext END IF UPDATE u_buyTask SET Permit_emp = :arg_emp, Status = 1 Where TaskID = :arg_taskid ; IF sqlca.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致采购订单最终审核操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit THEN COMMIT; END IF p_reset() RETURN (rslt) end function public function integer checkmxmpl (long arg_scid, long arg_taskid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg);//checkmxcmpl(long arg_taskid,long arg_mtrlid,decimal arg_addqty,ref string arg_msg,boolean arg_ifcommit) INT rslt=1,cnt=0 IF arg_taskid<=0 THEN rslt=0 ARG_MSG='错误采购订单唯一码' goto ext end if if arg_addqty=0 then rslt=1 goto ext end if rslt=p_getinfo(arg_scid,arg_taskid,arg_msg) if rslt=0 then goto ext IF Status<>1 THEN rslt=0 arG_MSG="采购订单只有在进行状态下才可以执行进仓" goto ext END IF decimal ls_buyQty,ls_assignQty string ls_mtrlcode SELECT u_buyTaskMx.Qty, u_buyTaskMx.assignQty, u_mtrldef.mtrlcode INTO :ls_buyQty, :ls_assignQty, :ls_mtrlcode FROM u_buyTaskMx ,u_mtrldef WHERE ( u_buyTaskMx.TaskID =:arg_taskid ) AND ( u_buyTaskMx.MtrlID =:arg_mtrlid ) and ( u_mtrldef.mtrlid=u_buyTaskMx.MtrlID ) and ( u_buytaskmx.scid=:arg_scid) using commit_transaction; if commit_transaction.sqlcode<>0 then rslt=0 arG_MSG="因网络或错误物料编码["+ls_mtrlcode+"]导致查询采购订单已完成数量操作失败"+"~n"+commit_transaction.SQLErrText goto ext end if if ls_buyQty < ls_assignQty + arg_addqty then rslt=0 arG_MSG="物料["+ls_mtrlcode+"]的订单未完成数量只有"+string(ls_buyQty - ls_assignQty,'#,##0.0#')+",不能入库"+string(arg_addqty,'#,##0.0#') goto ext end if EXT: p_reset() return (rslt) end function public function integer trycmplbuytask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);//trycmplbuytask(arg_taskid,arg_msg,arg_ifcommit) Int rslt = 1,cnt = 0 DateTime null_dt SetNull(null_dt) IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误采购订单唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 And status <> 5 THEN rslt = 0 IF status <> 1 THEN arg_msg = "采购订单只有在进行状态下才可以执行设完成状态" ELSEIF status <> 5 THEN arg_msg = "采购订单只有在完成状态下才可以执行撤消完成状态" END IF GOTO ext END IF Decimal ls_zerook Boolean if_finish Decimal ld_autostopqty[],ld_stopqty[],ld_stopqty_ori[] String ls_mtrlcode[] Long ll_printid[] String ls_stopreason[],ls_stopreason_tmp Long ll_i = 1,j,ll_mx if_finish = True DECLARE zero_cur CURSOR FOR SELECT u_buytaskmx.uqty * (1 - u_mtrldef.downrate) - u_buytaskmx.consignedqty - u_buytaskmx.stopqty FROM u_buytaskmx,u_mtrldef WHERE ( u_buytaskmx.taskid = :arg_taskid ) AND ( u_buytaskmx.scid = :arg_scid ) AND ( u_buytaskmx.stopflag = 0 ) AND ( u_buytaskmx.mtrlid = u_mtrldef.mtrlid ) Using commit_transaction ; OPEN zero_cur; FETCH zero_cur Into :ls_zerook; DO WHILE commit_transaction.SQLCode = 0 IF if_finish THEN IF ls_zerook > 0 THEN if_finish = False END IF FETCH zero_cur Into :ls_zerook; LOOP CLOSE zero_cur; IF status = 1 And if_finish THEN UPDATE u_buytask SET status = 5, accomplishdate = getdate(), finishemp = :publ_operator WHERE ( u_buytask.taskid = :arg_taskid ) And u_buytask.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致采购订单完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF DECLARE mx_cur CURSOR FOR SELECT u_buytaskmx.uqty - u_buytaskmx.consignedqty - u_buytaskmx.stopqty, u_buytaskmx.uqty - u_buytaskmx.consignedqty, u_buytaskmx.printid, u_mtrldef.mtrlcode, u_buytaskmx.stopreason, u_buytaskmx.stopqty FROM u_buytaskmx,u_mtrldef WHERE ( u_buytaskmx.taskid = :arg_taskid ) AND ( u_buytaskmx.scid = :arg_scid ) AND ( u_buytaskmx.stopflag = 0 ) AND ( u_buytaskmx.mtrlid = u_mtrldef.mtrlid ) Using commit_transaction ; OPEN mx_cur; FETCH mx_cur Into :ld_autostopqty[ll_i],:ld_stopqty[ll_i],:ll_printid[ll_i],:ls_mtrlcode[ll_i],:ls_stopreason[ll_i],:ld_stopqty_ori[ll_i]; DO WHILE commit_transaction.SQLCode = 0 ll_i++ FETCH mx_cur Into :ld_autostopqty[ll_i],:ld_stopqty[ll_i],:ll_printid[ll_i],:ls_mtrlcode[ll_i],:ls_stopreason[ll_i],:ld_stopqty_ori[ll_i]; LOOP CLOSE mx_cur; ll_mx = ll_i - 1 FOR j = 1 To ll_mx IF ld_autostopqty[j] > 0 THEN IF Trim(ls_stopreason[j]) = '' THEN IF ld_stopqty_ori[j] > 0 THEN ls_stopreason_tmp = leftA('原手动终止数量:'+String(ld_stopqty_ori[j],'#,##0.##########')+';现收货达下浮数量自动完成,自动终止数量:'+String(ld_autostopqty[j],'#,##0.##########'),100) ELSE ls_stopreason_tmp = '收货达下浮数量自动完成,自动终止数量:'+String(ld_autostopqty[j],'#,##0.##########') END IF ELSE ls_stopreason_tmp = leftA('原手动终止数量:'+String(ld_stopqty_ori[j],'#,##0.##########')+'原因:'+Trim(ls_stopreason[j])+';现收货达下浮数量自动完成,自动终止数量:'+String(ld_autostopqty[j],'#,##0.##########'),100) END IF UPDATE u_buytaskmx SET stopqty = :ld_stopqty[j], stopreason = :ls_stopreason_tmp, autostopqty = :ld_autostopqty[j] WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :ll_printid[j] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '物料:'+ls_mtrlcode[j]+',更新自动完成终止数失败,'+commit_transaction.SQLErrText GOTO ext END IF END IF NEXT END IF IF status = 5 And Not if_finish THEN UPDATE u_buytask SET status = 1, accomplishdate = :null_dt, finishemp = '' WHERE ( u_buytask.taskid = :arg_taskid ) And u_buytask.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致采购订单撤消完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF DECLARE mx2_cur CURSOR FOR SELECT u_buytaskmx.autostopqty, u_buytaskmx.stopqty, u_buytaskmx.printid, u_mtrldef.mtrlcode FROM u_buytaskmx,u_mtrldef WHERE ( u_buytaskmx.taskid = :arg_taskid ) AND ( u_buytaskmx.scid = :arg_scid ) AND ( u_buytaskmx.stopflag = 0 ) AND ( u_buytaskmx.mtrlid = u_mtrldef.mtrlid ) Using commit_transaction ; OPEN mx2_cur; FETCH mx2_cur Into :ld_autostopqty[ll_i],:ld_stopqty[ll_i],:ll_printid[ll_i],:ls_mtrlcode[ll_i]; DO WHILE commit_transaction.SQLCode = 0 ll_i++ FETCH mx2_cur Into :ld_autostopqty[ll_i],:ld_stopqty[ll_i],:ll_printid[ll_i],:ls_mtrlcode[ll_i]; LOOP CLOSE mx2_cur; ll_mx = ll_i - 1 FOR j = 1 To ll_mx IF ld_autostopqty[j] > 0 THEN UPDATE u_buytaskmx SET stopqty = :ld_stopqty[j] - :ld_autostopqty[j], stopreason = '', autostopqty = 0 WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :ll_printid[j] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '物料:'+ls_mtrlcode[j]+',更新自动完成终止数失败,'+commit_transaction.SQLErrText GOTO ext END IF END IF NEXT END IF it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF p_reset() Return (rslt) end function public function integer finishtask (integer arg_finishtype, long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0, i DateTime null_dt SetNull(null_dt) IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误采购订单唯一码' GOTO ext END IF IF getinfo(arg_scid,arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF arg_finishtype = 5 Or arg_finishtype = 6 THEN IF Status <> 1 THEN rslt = 0 ARG_MSG = "采购订单只有在进行状态才可以执行完成，请核对" GOTO ext END IF ELSE IF arg_finishtype = 1 THEN IF Status <> 6 THEN rslt = 0 ARG_MSG = "采购订单只有在手动完成状态下才可以执行取消手动完成，请核对" GOTO ext END IF END IF END IF IF arg_finishtype = 5 Or arg_finishtype = 6 THEN UPDATE u_buyTask SET status = :arg_finishtype,accomplishdate = getdate(),finishemp = :publ_operator WHERE ( u_buyTask.TaskID = :arg_taskid ) AND ( u_buyTask.scid = :arg_scid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致完成采购订单操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF ELSE UPDATE u_buyTask SET status = :arg_finishtype,accomplishdate = :null_dt,finishemp = '' WHERE ( u_buyTask.TaskID = :arg_taskid ) AND ( u_buyTask.scid = :arg_scid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致取消手动完成采购订单操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF END IF //更新明细完成状态 FOR i = 1 To it_mxbt IF finishmx(arg_scid, arg_taskid, buytaskmx[i].printid, ARG_MSG, False) = 0 THEN rslt = 0 GOTO ext END IF NEXT ext: IF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF p_reset() Return (rslt) end function public function integer newbegin (long 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() it_newbegin=TRUE it_updatebegin=FALSE scid=arg_scid ext: if rslt = 0 then p_reset() return rslt end function public function integer stopmx (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, integer arg_flag, string arg_stopreason, ref string arg_msg, boolean arg_commit);Int rslt = 1 //Int li_flag //DateTime null_dt //Decimal ld_notconsignedqty // //IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN // rslt = 0 // GOTO ext //END IF // //SetNull(null_dt) // //IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN // rslt = 0 // GOTO ext //END IF // //IF arg_flag = 1 THEN // IF status <> 1 THEN // arg_msg = '订单只能在进行状态才能操作' // rslt = 0 // GOTO ext // END IF //ELSE // IF status <> 1 AND status <> 5 THEN // arg_msg = '订单只能在进行状态或自动完成状态才能操作' // rslt = 0 // GOTO ext // END IF //END IF // //SELECT stopflag INTO :li_flag // FROM u_buytaskmx // WHERE scid = :arg_scid // AND taskid = :arg_taskid // AND printid = :arg_printid USING commit_transaction ; //IF sqlca.SQLCode <> 0 THEN // arg_msg = '查询明细物料'+arg_mtrlcode+'中止标记失败' // rslt = 0 // GOTO ext //END IF // //IF arg_flag = 0 THEN // IF li_flag = 0 THEN // arg_msg = '明细物料'+arg_mtrlcode+'还未中止,不能取消中止' // rslt = 0 // GOTO ext // END IF //ELSE // IF li_flag = 1 THEN // arg_msg = '明细物料'+arg_mtrlcode+'已中止,不能重复中止' // rslt = 0 // GOTO ext // END IF //END IF // // //IF arg_flag = 1 THEN // SELECT u_buyTaskMx.uQty - u_buyTaskMx.consignedqty // INTO :ld_notconsignedqty // FROM u_buytaskmx // WHERE scid = :arg_scid // AND taskid = :arg_taskid // AND printid = :arg_printid USING commit_transaction ; // IF sqlca.SQLCode <> 0 THEN // arg_msg = '查询明细物料'+arg_mtrlcode+'未完成数失败' // rslt = 0 // GOTO ext // END IF // // IF ld_notconsignedqty <= 0 THEN // arg_msg = '明细物料'+arg_mtrlcode+'已完成收货,不能中止' // rslt = 0 // GOTO ext // END IF //END IF // //IF arg_flag = 0 THEN // UPDATE u_buytaskmx // SET stopflag = 0, // stopemp = '', // stopdate = :null_dt, // stopreason = '' // WHERE scid = :arg_scid // AND taskid = :arg_taskid // AND printid = :arg_printid USING commit_transaction ; //ELSE // UPDATE u_buytaskmx // SET stopflag = 1, // stopemp = :publ_operator, // stopdate = getdate(), // stopreason = :arg_stopreason // WHERE scid = :arg_scid // AND taskid = :arg_taskid // AND printid = :arg_printid USING commit_transaction ; //END IF // //IF sqlca.SQLCode <> 0 THEN // arg_msg = '更新明细'+arg_mtrlcode+'中止标记失败,'+sqlca.SQLErrText // rslt = 0 // GOTO ext //END IF // //IF trycmplbuytask(arg_scid,arg_taskid,arg_msg,FALSE) = 0 THEN // rslt = 0 // GOTO ext //END IF // ////更新明细完成状态 //IF finishmx(arg_scid, arg_taskid, arg_printid, arg_msg, False) = 0 THEN // rslt = 0 // GOTO ext //END IF // //ext: //IF rslt = 0 THEN // ROLLBACK; //ELSEIF rslt = 1 AND arg_commit THEN // COMMIT; //END IF RETURN rslt end function public function integer secpermit (long arg_scid, long arg_taskid, ref string arg_emp, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1 Long cnt = 0 Long ll_i IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_if_oa_buytask = -1000 THEN rslt = 0 arg_msg = '选项:[228]材料采购订单使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_buytask_cl_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[092]材料采购订单二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_if_oa_buytask_cp = -1000 THEN rslt = 0 arg_msg = '选项:[229]成品采购订单使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_if_oa_buytask_dept = -1000 THEN rslt = 0 arg_msg = '选项:[423]非生产采购订单使用OA审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_buytask_cp_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[093]成品采购订单二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_buytask_dept_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[422]非生产采购订单二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误采购订单唯一码' GOTO ext END IF IF getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 0 THEN rslt = 0 arg_msg = "订单不是在待审核状态,不可以再审" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :arg_emp USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消!" GOTO ext END IF UPDATE u_buytask SET firpermitemp = :arg_emp, firpermitdate = getdate(), status = 4 WHERE taskid = :arg_taskid AND scid = :arg_scid AND status = 0 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致订单最终审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF billtype = 0 THEN IF uo_option_if_oa_buytask = 1 AND uo_option_buytask_cl_secaudit = 1 THEN IF f_oa(commit_transaction,FALSE,arg_msg,94,scid,taskid,taskcode,relcode,dscrp) = 0 THEN rslt = 0 GOTO ext END IF END IF ELSEif billtype = 1 then IF uo_option_if_oa_buytask_cp = 1 AND uo_option_buytask_cp_secaudit = 1 THEN IF f_oa(commit_transaction,FALSE,arg_msg,1277,scid,taskid,taskcode,relcode,dscrp) = 0 THEN rslt = 0 GOTO ext END IF END IF elseif billtype = 2 then IF uo_option_if_oa_buytask_dept = 1 AND uo_option_buytask_dept_secaudit = 1 THEN IF f_oa(commit_transaction,FALSE,arg_msg,4299,scid,taskid,taskcode,relcode,dscrp) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer cancelsecpermit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 DateTime nulldate Long ll_i If f_aps_mrp_cklock(arg_scid,arg_msg) = 0 Then rslt = 0 Goto ext End If If uo_option_if_oa_buytask = -1000 Then rslt = 0 arg_msg = '选项:[228]材料采购订单使用审批流程,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_buytask_cl_secaudit = -1000 Then rslt = 0 arg_msg = '选项:[092]材料采购订单二级审核,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_if_oa_buytask_cp = -1000 Then rslt = 0 arg_msg = '选项:[229]成品采购订单使用审批流程,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_if_oa_buytask_dept = -1000 Then rslt = 0 arg_msg = '选项:[423]非生产采购订单使用审批流程,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_buytask_cp_secaudit = -1000 Then rslt = 0 arg_msg = '选项:[093]成品采购订单二级审核,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_buytask_dept_secaudit = -1000 Then rslt = 0 arg_msg = '选项:[422]非生产采购订单二级审核,读取初始默认值失败,操作取消!' Goto ext End If SetNull(nulldate) If arg_taskid <= 0 Then rslt = 0 arg_msg = '错误采购订单唯一码' Goto ext End If If getinfo(arg_scid,arg_taskid,arg_msg) = 0 Then rslt = 0 Goto ext End If If ctmint > 0 Then arg_msg = '单据已截数,不能操作' rslt = 0 Goto ext End If If billtype = 0 Then If uo_option_if_oa_buytask = 1 And uo_option_buytask_cl_secaudit = 1 And audit_buildtype = 0 Then If f_check_if_oaflow_caudit(arg_scid,arg_taskid,94,arg_msg ) = 0 Then rslt = 0 Goto ext End If End If ElseIf billtype = 1 Then If uo_option_if_oa_buytask_cp = 1 And uo_option_buytask_cp_secaudit = 1 And audit_buildtype = 0 Then If f_check_if_oaflow_caudit(arg_scid,arg_taskid,1277,arg_msg ) = 0 Then rslt = 0 Goto ext End If End If ElseIf billtype = 2 Then If uo_option_if_oa_buytask_dept = 1 And uo_option_buytask_dept_secaudit = 1 And audit_buildtype = 0 Then If f_check_if_oaflow_caudit(arg_scid,arg_taskid,4299,arg_msg ) = 0 Then rslt = 0 Goto ext End If End If End If If Status <> 4 Then rslt = 0 arg_msg = "订单不是在初审状态,不可以撤审" Goto ext End If Update u_buyTask Set Status = 0, firpermitemp = '', firpermitdate = :nulldate Where TaskID = :arg_taskid And scid = :arg_scid And Status = 4 Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致采购订单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText Goto ext End If //将相关已完成的OA公文的状态设为作废 If billtype = 0 Then If (uo_option_buytask_cl_secaudit = 1 And uo_option_if_oa_buytask = 1) Then Update oa_doc Set docflag = 12 Where powerid = 94 And scid = :arg_scid And billid = :arg_taskid //and docflag = 11 Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '更新相关公文状态失败'+commit_transaction.SQLErrText Goto ext End If End If Elseif billtype = 1 then If (uo_option_buytask_cp_secaudit = 1 And uo_option_if_oa_buytask_cp = 1) Then Update oa_doc Set docflag = 12 Where powerid = 1277 And scid = :arg_scid And billid = :arg_taskid //and docflag = 11 Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '更新相关公文状态失败'+commit_transaction.SQLErrText Goto ext End If End If elseif billtype = 2 then If (uo_option_buytask_dept_secaudit = 1 And uo_option_if_oa_buytask_dept = 1) Then Update oa_doc Set docflag = 12 Where powerid = 4299 And scid = :arg_scid And billid = :arg_taskid //and docflag = 11 Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '更新相关公文状态失败'+commit_transaction.SQLErrText Goto ext End If End If End If it_newbegin = False it_updatebegin = False ext: If rslt = 0 Then Rollback Using commit_transaction; ElseIf arg_ifcommit Then Commit Using commit_transaction; End If p_reset() Return (rslt) end function public function integer stopqty (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, decimal arg_rebuyqty, string arg_stopreason, ref string arg_msg, boolean arg_commit); Int rslt = 1 Long cnt Int li_flag DateTime null_dt Decimal ld_notconsignedqty Long ll_requestbuyid,ll_rqmxprintid Decimal ld_r_uqty,ld_r_consignedqty,ld_rebuyqty_ori DateTime server_datetime String ls_stopemp Decimal ld_uv_uqty,ld_uv_rebuyqty String ls_unit, ls_r_unit Decimal ld_rate, ld_r_rate, lde_adduqty, lde_r_rebuyqty_ori, lde_addqty String ls_status, ls_woodcode, ls_pcode,ls_mtrlcode Long ll_orderid, ll_mtrlid , ll_wrkgrpid Decimal lde_qty_tol, lde_addqty_order IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_requestbuy uo_rqbuy uo_rqbuy = Create uo_requestbuy //yyx 100306 Long ll_ti,ll_rcnt //datastore ds_tmp_update //ds_tmp_update = Create datastore //ds_tmp_update.DataObject = 'ds_buytask_update_order' //ds_tmp_update.SetTransObject(sqlca) //yyx 100306 datastore ds ds = Create datastore ds.DataObject = 'ds_orderrqmtrl_request_buytask' ds.SetTransObject(sqlca) uo_order_ml uo_order uo_order = Create uo_order_ml SELECT Top 1 getdate() Into :server_datetime From u_user Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF IF IsNull(arg_stopqty) THEN arg_stopqty = 0 IF IsNull(arg_rebuyqty) THEN arg_rebuyqty = 0 IF arg_stopqty < 0 THEN arg_msg = '订单终止数不能少于0,请检查' rslt = 0 GOTO ext END IF IF arg_rebuyqty > arg_stopqty THEN arg_msg = '重新采购数不能少于终止数,请检查' rslt = 0 GOTO ext END IF //采购收货选质检模式, 检查订单是否有未审质检单 , 有这不能保持; IF sys_option_check_buyin = 1 THEN IF arg_stopqty <> 0 THEN SELECT count(*) INTO :cnt FROM u_sptcheck_mx INNER JOIN u_sptcheck ON u_sptcheck_mx.billid = u_sptcheck.billid WHERE u_sptcheck.scid = :arg_scid AND u_sptcheck_mx.reltaskid = :arg_taskid AND u_sptcheck_mx.reltaskprintid = :arg_printid AND ( u_sptcheck.flag = 0 OR u_sptcheck.flag = 4) And u_sptcheck.billtype = 0; 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 END IF END IF IF arg_stopqty = 0 THEN SetNull(server_datetime) ls_stopemp = '' ELSE ls_stopemp = publ_operator END IF SetNull(null_dt) IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 And status <> 5 THEN arg_msg = '订单只能在进行状态或自动完成状态才能操作' rslt = 0 GOTO ext END IF SELECT u_buyTaskMx.uQty - u_buyTaskMx.consignedqty, requestbuyid, rqmxprintid, rebuyqty, unit, rate, orderid, wrkGrpid, mtrlid, status, woodcode, pcode INTO :ld_notconsignedqty, :ll_requestbuyid, :ll_rqmxprintid, :ld_rebuyqty_ori, :ls_unit, :ld_rate, :ll_orderid, :ll_wrkGrpid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode FROM u_buytaskmx WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction ; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询明细物料'+arg_mtrlcode+'未完成数失败' rslt = 0 GOTO ext END IF IF arg_stopqty > ld_notconsignedqty THEN arg_msg = '明细物料'+arg_mtrlcode+'未收货数只有:'+String(ld_notconsignedqty,'#,##0.##########') +'不能终止:'+String(arg_stopqty,'#,##0.##########') rslt = 0 GOTO ext END IF IF ll_requestbuyid > 0 THEN //arg_stopqty,arg_rebuyqty - 采购单位, 更新申购要转成申购单位 SELECT uqty,consignedqty,unit,rate INTO :ld_r_uqty,:ld_r_consignedqty,:ls_r_unit, :ld_r_rate FROM u_requestbuymx WHERE scid = :arg_scid AND requestbuyid = :ll_requestbuyid And printid = :ll_rqmxprintid Using commit_transaction ; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料'+arg_mtrlcode+'相关申购单信息失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF lde_addqty = (arg_rebuyqty - ld_rebuyqty_ori) * ld_rate //库存单位 IF ls_r_unit = ls_unit THEN //单位相同, 直接取订单数量 lde_adduqty = arg_rebuyqty lde_r_rebuyqty_ori = ld_rebuyqty_ori ELSE //单位不同, 先转库存单位, 在转申购单位 lde_adduqty = arg_rebuyqty * ld_rate lde_adduqty = lde_adduqty / ld_r_rate lde_r_rebuyqty_ori = ld_rebuyqty_ori * ld_rate lde_r_rebuyqty_ori = lde_r_rebuyqty_ori / ld_r_rate END IF lde_adduqty = lde_adduqty - lde_r_rebuyqty_ori //申购单位 IF lde_adduqty > ld_r_consignedqty THEN rslt = 0 arg_msg = '物料'+arg_mtrlcode+'相关申购单的已订货数为:'+String(ld_r_consignedqty,'#,##0.##########')+',不能重新采购:'+String(arg_rebuyqty,'#,##0.##########') GOTO ext END IF UPDATE u_requestbuymx SET consignedqty = consignedqty - :lde_adduqty WHERE scid = :arg_scid AND requestbuyid = :ll_requestbuyid And printid = :ll_rqmxprintid Using commit_transaction ; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新明细'+arg_mtrlcode+'相关申购单的已订货数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF uo_rqbuy.tryfinish(arg_scid,ll_requestbuyid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF billtype = 0 THEN //更新主计划订货数 IF uo_option_update_rqmtrlqty_buy = 1 THEN ll_rcnt = ds.Retrieve(arg_scid,ll_requestbuyid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode, ll_orderid) lde_qty_tol = Abs(lde_addqty) FOR ll_ti = 1 To ll_rcnt IF lde_addqty > 0 THEN //增加终止 IF ds.Object.u_orderrqmtrl_consignedqty[ll_ti] <= 0 THEN CONTINUE IF lde_qty_tol > ds.Object.u_orderrqmtrl_consignedqty[ll_ti] THEN lde_addqty_order = ds.Object.u_orderrqmtrl_consignedqty[ll_ti] lde_qty_tol -= lde_addqty_order ELSE lde_addqty_order = lde_qty_tol lde_qty_tol = 0 END IF lde_addqty_order = 0 - lde_addqty_order ELSE //取消终止 IF ds.Object.u_orderrqmtrl_truerqqty[ll_ti] <= ds.Object.u_orderrqmtrl_consignedqty[ll_ti] THEN CONTINUE IF lde_qty_tol > ds.Object.u_orderrqmtrl_truerqqty[ll_ti] - ds.Object.u_orderrqmtrl_consignedqty[ll_ti] THEN lde_addqty_order = ds.Object.u_orderrqmtrl_truerqqty[ll_ti] - ds.Object.u_orderrqmtrl_consignedqty[ll_ti] lde_qty_tol -= lde_addqty_order ELSE lde_addqty_order = lde_qty_tol lde_qty_tol = 0 END IF lde_addqty_order = lde_addqty_order END IF IF uo_order.f_assign_rqmtrlqty(ds.Object.u_orderrqmtrl_scid[ll_ti],ds.Object.u_orderrqmtrl_orderid[ll_ti],& ds.Object.u_orderrqmtrl_wrkGrpid[ll_ti],ll_mtrlid,ls_mtrlcode,& ls_status,ls_woodcode,ls_pcode,lde_addqty_order,2,arg_msg,False) = 0 THEN arg_msg = '订单明细,'+arg_msg rslt = 0 GOTO ext END IF IF lde_qty_tol = 0 THEN EXIT NEXT END IF // IF ll_orderid > 0 THEN // IF uo_order.f_assign_rqmtrlqty(arg_scid,ll_orderid,ll_wrkgrpid,& // ll_mtrlid,ls_mtrlcode,ls_status,& // ls_woodcode,ls_pcode, 0 - lde_addqty,2,arg_msg,False) = 0 THEN // arg_msg = '订单明细,'+arg_msg // rslt = 0 // GOTO ext // END IF // ELSE // //YYX 100305 // IF ll_requestbuyid > 0 And uo_option_requestbuy_hz = 1 THEN // ll_rcnt = ds_tmp_update.Retrieve(arg_scid,ll_requestbuyid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode) // lde_qty_tol = Abs(lde_addqty) // FOR ll_ti = 1 To ll_rcnt // // IF lde_qty_tol > ds_tmp_update.Object.qty[ll_ti] THEN // lde_addqty_order = ds_tmp_update.Object.qty[ll_ti] // lde_qty_tol -= lde_addqty_order // ELSE // lde_addqty_order = lde_qty_tol // lde_qty_tol = 0 // END IF // // IF lde_addqty > 0 THEN //增加终止 // lde_addqty_order = 0 - lde_addqty_order // ELSE //取消终止 // lde_addqty_order = lde_addqty_order // END IF // IF uo_order.f_assign_rqmtrlqty(ds_tmp_update.Object.scid[ll_ti],ds_tmp_update.Object.orderid[ll_ti],& // ds_tmp_update.Object.wrkGrpid[ll_ti],ll_mtrlid,ls_mtrlcode,& // ls_status,ls_woodcode,ls_pcode,lde_addqty_order,2,arg_msg,False) = 0 THEN // arg_msg = '订单明细,'+arg_msg // rslt = 0 // GOTO ext // END IF // // NEXT // END IF // //buytaskmx[ll_i].qty - buytaskmx[ll_i].rebuyqty * buytaskmx[ll_i].rate // END IF END IF END IF UPDATE u_buytaskmx SET stopqty = :arg_stopqty, rebuyqty = :arg_rebuyqty, stopemp = :ls_stopemp, stopdate = :server_datetime, stopreason = :arg_stopreason WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新明细'+arg_mtrlcode+'中止标记失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF trycmplbuytask(arg_scid,arg_taskid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //更新明细完成状态 IF finishmx(arg_scid, arg_taskid, arg_printid, arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction ; ELSEIF rslt = 1 And arg_commit THEN COMMIT Using commit_transaction ; END IF Destroy uo_rqbuy Destroy uo_order //Destroy ds_tmp_update Destroy ds RETURN rslt end function public function integer ue_splitqty (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, decimal arg_splitqty, datetime arg_newdate, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_flag Decimal ld_notconsignedqty,ld_uqty Long ll_new_pid IF IsNull(arg_splitqty) THEN arg_splitqty = 0 IF arg_splitqty <= 0 THEN arG_MSG = '订单拆分数不能少于或等于0,请检查' rslt = 0 GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 THEN arG_MSG = '订单只能在进行状态才能操作' rslt = 0 GOTO ext END IF SELECT u_buyTaskMx.uQty - u_buyTaskMx.consignedqty - u_buyTaskMx.stopqty, u_buyTaskMx.uQty INTO :ld_notconsignedqty, :ld_uqty FROM u_buytaskmx WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '查询明细物料'+arg_mtrlcode+'未完成数失败' rslt = 0 GOTO ext END IF IF arg_splitqty > ld_notconsignedqty THEN arG_MSG = '明细物料'+arg_mtrlcode+'未收货数只有:'+String(ld_notconsignedqty,'#,##0.##########') +'不能拆分:'+String(arg_splitqty,'#,##0.##########') rslt = 0 GOTO ext END IF IF arg_splitqty = ld_uqty THEN rslt = 0 arG_MSG = '拆分数不能与采购数量相同' GOTO ext END IF SELECT max(printid) INTO :ll_new_pid FROM u_buytaskmx WHERE scid = :arg_scid AND taskid = :arg_taskid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '查询明细行ID失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ll_new_pid = ll_new_pid + 1 INSERT INTO u_buytaskmx ( scid, qty, price, mtrlid, taskid, dscrp, printid, fprice, rebate, requiredate, orderid, storageid, status, iforder, sptmtrlname, unit, rate, uqty, uprice, woodcode, pcode, rqmxprintid, requestbuyid, relrqbuycode, wrkGrpid, taskmxprintid, enprice) SELECT scid, :arg_splitqty * rate, price, mtrlid, taskid, dscrp, :ll_new_pid, fprice, rebate, :arg_newdate, orderid, storageid, status, iforder, sptmtrlname, unit, rate, :arg_splitqty, uprice, woodcode, pcode, rqmxprintid, requestbuyid, relrqbuycode, wrkGrpid, taskmxprintid, enprice FROM u_buyTaskMx WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '插入新明细行失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF UPDATE u_buyTaskMx SET uqty = uqty - :arg_splitqty, qty = qty - :arg_splitqty * rate WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '更新原明细行数量失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction ; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction ; END IF RETURN rslt end function public function integer addmx_sptcheckqty (long arg_scid, long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 IF uo_option_ifovertask = -1000 THEN rslt = 0 arg_msg = '选项:[010]超采购,外协订单收货,读取初始默认值失败,操作取消!' GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误采购订单唯一码' GOTO ext END IF IF arg_addqty = 0 THEN rslt = 1 GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 And status <> 5 THEN rslt = 0 IF status <> 1 THEN arg_msg = "采购订单只有在进行状态下才可以执行质检" ELSEIF status <> 5 THEN arg_msg = "采购订单只有在完成状态下才可以撤销质检" END IF GOTO ext END IF Decimal ld_qty,ld_sptcheckqty Long ll_mtrlid String ls_mtrlcode Decimal ld_uprate,ld_upqty,ld_stopqty SELECT u_mtrldef.mtrlcode, u_buytaskmx.qty, u_buytaskmx.sptcheckqty, u_buytaskmx.stopqty, u_buytaskmx.mtrlid INTO :ls_mtrlcode, :ld_qty, :ld_sptcheckqty, :ld_stopqty, :ll_mtrlid FROM u_mtrldef,u_buytaskmx WHERE u_mtrldef.mtrlid = u_buytaskmx.mtrlid AND u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_taskid AND u_buytaskmx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细物料编码失败,'+commit_transaction.SQLErrText GOTO ext END IF IF uo_option_ifovertask = 1 THEN //不允许超收 IF ld_qty < ld_sptcheckqty + arg_addqty + ld_stopqty THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+"未质检数量只有"+String(ld_qty - ld_sptcheckqty - ld_stopqty,'#,##0.0#########')+",不能质检"+String(arg_addqty,'#,##0.0#########') GOTO ext END IF ELSEIF uo_option_ifovertask = 3 THEN //允许超收但按比例限制 SELECT uprate , upqty INTO :ld_uprate,:ld_upqty FROM u_mtrldef Where mtrlid = :ll_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+Trim(ls_mtrlcode)+'超收货比例失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ld_qty * (1 + ld_uprate) + ld_upqty < ld_sptcheckqty + arg_addqty + ld_stopqty THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+"未完成数量只有"+String(ld_qty - ld_sptcheckqty - ld_stopqty, '#,##0.0#########')+"允许超收上限:"+String(ld_qty * (1 + ld_uprate) + ld_upqty - ld_sptcheckqty - ld_stopqty,'#,##0.0#########')+",不能入库"+String(arg_addqty,'#,##0.0#########') GOTO ext END IF END IF IF arg_addqty < 0 And arg_addqty + ld_sptcheckqty < 0 THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+"已质检数量只有"+String(ld_sptcheckqty, '#,##0.0###')+",不能撤审质检数量"+String(arg_addqty,'#,##0.0#########') GOTO ext END IF UPDATE u_buytaskmx SET sptcheckqty = sptcheckqty + :arg_addqty WHERE ( u_buytaskmx.taskid = :arg_taskid ) AND ( u_buytaskmx.printid = :arg_printid ) AND ( u_buytaskmx.scid = :arg_scid) AND ( u_buytaskmx.stopflag = 0 ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致采购订单完成数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit THEN COMMIT Using commit_transaction; END IF p_reset() Return (rslt) end function public function integer finishmx (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误采购订单唯一码' GOTO ext END IF IF arg_printid <= 0 THEN rslt = 0 arg_msg = '错误采购订单明细ID唯一码' GOTO ext END IF Int li_status, li_stopflag Int li_finishflag = 0 String ls_finishemp DateTime ldt_finishdate Decimal ls_buyqty,ls_consignedqty Long ll_mtrlid Decimal ld_upqty,ld_stopqty SELECT status INTO :li_status FROM u_buytask WHERE scid = :arg_scid AND taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询采购订单状态失败,'+commit_transaction.SQLErrText GOTO ext END IF IF li_status = 5 Or li_status = 6 Or li_status = 3 THEN li_finishflag = 1 ls_finishemp = publ_operator ldt_finishdate = DateTime(Today(), Now()) ELSE SELECT u_buytaskmx.mtrlid, u_buytaskmx.uqty, u_buytaskmx.consignedqty, u_buytaskmx.stopqty, u_buytaskmx.stopflag INTO :ll_mtrlid, :ls_buyqty, :ls_consignedqty, :ld_stopqty, :li_stopflag FROM u_mtrldef,u_buytaskmx WHERE u_mtrldef.mtrlid = u_buytaskmx.mtrlid AND u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_taskid AND u_buytaskmx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细物料编码失败,'+commit_transaction.SQLErrText GOTO ext END IF IF li_stopflag = 1 THEN li_finishflag = 1 ls_finishemp = publ_operator ldt_finishdate = DateTime(Today(), Now()) ELSE IF ls_buyqty - ld_stopqty <= ls_consignedqty THEN li_finishflag = 1 ls_finishemp = publ_operator ldt_finishdate = DateTime(Today(), Now()) ELSE li_finishflag = 0 ls_finishemp = '' SetNull(ldt_finishdate ) END IF END IF END IF UPDATE u_buytaskmx SET finishflag = :li_finishflag, finishemp = :ls_finishemp, finishdate = :ldt_finishdate WHERE u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_taskid AND u_buytaskmx.printid = :arg_printid Using commit_transaction; 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 = '更新采购订单明细信息不存在,'+commit_transaction.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit THEN COMMIT Using commit_transaction; END IF //p_reset() Return (rslt) end function public function integer uof_disuse (long arg_scid, long arg_taskid, integer arg_disusetype, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_disuseid //arg_disusetype 0 - 修改, 1-删除 Select max(disuseid) Into :ll_disuseid From u_buyTask_disuse Where scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; If commit_transaction.SQLCode = -1 Then rslt = 0 arg_msg = '获取采购订单废弃单序号失败,'+ commit_transaction.SQLErrText Goto ext ElseIf commit_transaction.SQLCode = 100 Then ll_disuseid = 0 End If if isnull(ll_disuseid) then ll_disuseid = 0 ll_disuseid++ Insert Into u_buyTask_disuse (scid, TaskID, TaskCode, orderid, kind, sptID, requiredate, accomplishdate, finishemp, Status, Opemp, Modemp, moddate, Assign_Emp, Permit_Emp, Permit_date, Dscrp, opdate, stopemp, ctmint, printnum, relcode, banktypeid, train, reason, billtype, firpermitemp, firpermitdate, billamt, moneyid, mrate, ConfirmTime, ConfirmUser, senduser, sendtime, sendcnt, sptcode, sptname, moneyname, banktypename, disuseid, disuseemp, disusedate, disusetype) Select u_buyTask.scid, u_buyTask.TaskID, u_buyTask.TaskCode, u_buyTask.orderid, u_buyTask.kind, u_buyTask.sptID, u_buyTask.requiredate, u_buyTask.accomplishdate, u_buyTask.finishemp, u_buyTask.Status, u_buyTask.Opemp, u_buyTask.Modemp, u_buyTask.moddate, u_buyTask.Assign_Emp, u_buyTask.Permit_Emp, u_buyTask.Permit_date, u_buyTask.Dscrp, u_buyTask.opdate, u_buyTask.stopemp, u_buyTask.ctmint, u_buyTask.printnum, u_buyTask.relcode, u_buyTask.banktypeid, u_buyTask.train, u_buyTask.reason, u_buyTask.billtype, u_buyTask.firpermitemp, u_buyTask.firpermitdate, u_buyTask.billamt, u_buyTask.moneyid, u_buyTask.mrate, u_buyTask.ConfirmTime, u_buyTask.ConfirmUser, u_buyTask.senduser, u_buyTask.sendtime, u_buyTask.sendcnt, u_spt.sptcode, u_spt.name, cw_currency.name, cw_banktype.banktypename, :ll_disuseid,:publ_operator,getdate(),:arg_disusetype From u_buyTask LEFT Outer JOIN cw_banktype ON u_buyTask.banktypeid = cw_banktype.banktypeid LEFT Outer JOIN cw_currency ON u_buyTask.moneyid = cw_currency.moneyid LEFT Outer JOIN u_spt ON u_buyTask.sptID = u_spt.sptid Where u_buyTask.scid = :arg_scid And u_buyTask.taskid = :arg_taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '插入采购订单废弃单失败,'+commit_transaction.SQLErrText Goto ext End If Insert Into u_buyTaskmx_disuse (scid, TaskID, printid, MtrlID, iforder, Qty, fprice, rebate, Price, AssignQty, status, dscrp, consignedqty, Requiredate, storageid, orderid, ctmint, sptmtrlname, uqty, uprice, unit, rate, stopflag, stopemp, stopdate, stopreason, woodcode, pcode, rqmxprintid, requestbuyid, relrqbuycode, wrkGrpid, taskmxprintid, sptbackdate, delayreason, stopqty, rebuyqty, buybargainid, buybargainprintid, buybargaincode, accomplishdate, admtrlid, relprintid, fpqty, ffpqty, autostopqty, enprice, tax, sptcheckqty, plancode, finishflag, finishemp, finishdate, mtrlcode, mtrlname, disuseid) Select u_buyTaskMx.scid, u_buyTaskMx.TaskID, u_buyTaskMx.printid, u_buyTaskMx.MtrlID, u_buyTaskMx.iforder, u_buyTaskMx.Qty, u_buyTaskMx.fprice, u_buyTaskMx.rebate, u_buyTaskMx.Price, u_buyTaskMx.AssignQty, u_buyTaskMx.status, u_buyTaskMx.dscrp, u_buyTaskMx.consignedqty, u_buyTaskMx.Requiredate, u_buyTaskMx.storageid, u_buyTaskMx.orderid, u_buyTaskMx.ctmint, u_buyTaskMx.sptmtrlname, u_buyTaskMx.uqty, u_buyTaskMx.uprice, u_buyTaskMx.unit, u_buyTaskMx.rate, u_buyTaskMx.stopflag, u_buyTaskMx.stopemp, u_buyTaskMx.stopdate, u_buyTaskMx.stopreason, u_buyTaskMx.woodcode, u_buyTaskMx.pcode, u_buyTaskMx.rqmxprintid, u_buyTaskMx.requestbuyid, u_buyTaskMx.relrqbuycode, u_buyTaskMx.wrkGrpid, u_buyTaskMx.taskmxprintid, u_buyTaskMx.sptbackdate, u_buyTaskMx.delayreason, u_buyTaskMx.stopqty, u_buyTaskMx.rebuyqty, u_buyTaskMx.buybargainid, u_buyTaskMx.buybargainprintid, u_buyTaskMx.buybargaincode, u_buyTaskMx.accomplishdate, u_buyTaskMx.admtrlid, u_buyTaskMx.relprintid, u_buyTaskMx.fpqty, u_buyTaskMx.ffpqty, u_buyTaskMx.autostopqty, u_buyTaskMx.enprice, u_buyTaskMx.tax, u_buyTaskMx.sptcheckqty, u_buyTaskMx.plancode, u_buyTaskMx.finishflag, u_buyTaskMx.finishemp, u_buyTaskMx.finishdate, u_mtrldef.mtrlcode, u_mtrldef.mtrlname,:ll_disuseid From u_buyTaskMx LEFT Outer JOIN u_mtrldef ON u_buyTaskMx.MtrlID = u_mtrldef.mtrlid Where u_buyTaskMx.scid = :arg_scid And u_buyTaskMx.taskid = :arg_taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '插入采购订单废弃单明细失败,'+commit_transaction.SQLErrText Goto ext End If ext: If rslt = 0 Then Rollback Using commit_transaction; ElseIf rslt = 1 And arg_ifcommit Then Commit Using commit_transaction; End If Return rslt end function public function integer uof_update_buyermemo (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, string arg_buyermemo, boolean arg_ifcommit, ref string arg_msg);Int rslt = 1 UPDATE u_buytaskmx SET buyermemo = :arg_buyermemo WHERE scid = :arg_scid AND taskid = :arg_taskid AND printid = :arg_printid And mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新订单明细备忘录失败'+sqlca.SQLErrText GOTO ext ELSEIF sqlca.SQLNRows = 0 THEN rslt = 0 arg_msg = '要更新的数据不存在，可能已删除，请重新检查' GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_update_feedback (long arg_scid, long arg_taskid, s_buytaskmx_feedback_ljfieb arg_s_mx[], ref string arg_msg, boolean arg_ifcommit);Int rslt Long ll_i Int li_ifupdate = 0 rslt = 1 If UpperBound(arg_s_mx) <= 0 Then rslt = 0 arg_msg = '没有反馈内容' Goto ext End If For ll_i = 1 To UpperBound(arg_s_mx) If arg_s_mx[ll_i].spt_uqty > 0 Then li_ifupdate = 1 Exit End If Next If li_ifupdate = 0 Then rslt = 0 arg_msg = '订单明细回复数量均为零,不能更新到原订单中' Goto ext End If If uo_option_disuse_buytask = -1000 Then rslt = 0 arg_msg = '选项:[293]启用采购订单废弃单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_unit_dec = -1000 Then rslt = 0 arg_msg = '选项:[023]辅助单位转换库存单位小数位,读取初始默认值失败,操作取消!' Goto ext End If If p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 Then rslt = 0 Goto ext End If If status = 1 Then If cancelpermit(arg_scid,arg_taskid,arg_msg,False) = 0 Then arg_msg = '撤审采购订单失败:'+arg_msg rslt = 0 Goto ext Else If cancelsecpermit(arg_scid,arg_taskid,arg_msg,True) = 0 Then arg_msg = '撤审采购订单失败:'+arg_msg rslt = 0 Goto ext End If End If ElseIf status = 4 Then If cancelsecpermit(arg_scid,arg_taskid,arg_msg,True) = 0 Then arg_msg = '撤审采购订单失败:'+arg_msg rslt = 0 Goto ext End If End If If uo_option_disuse_buytask = 1 Then If uof_disuse(scid,taskid,0,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If For ll_i = 1 To UpperBound(arg_s_mx) If arg_s_mx[ll_i].spt_uqty = 0 Then Delete From u_buytaskmx Where mtrlid = :arg_s_mx[ll_i].mtrlid And orderid = :arg_s_mx[ll_i].orderid And status = :arg_s_mx[ll_i].status And woodcode = :arg_s_mx[ll_i].woodcode And pcode = :arg_s_mx[ll_i].pcode And wrkgrpid = :arg_s_mx[ll_i].wrkgrpid And unit = :arg_s_mx[ll_i].unit And taskmxprintid = :arg_s_mx[ll_i].taskmxprintid And requestbuyid = :arg_s_mx[ll_i].requestbuyid And rqmxprintid = :arg_s_mx[ll_i].rqmxprintid And scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "删除采购订单明细操作失败"+"~n"+SQLCA.SQLErrText Goto ext End If Else Update u_buytaskmx Set uqty = :arg_s_mx[ll_i].spt_uqty, enprice = :arg_s_mx[ll_i].spt_enprice, requiredate = :arg_s_mx[ll_i].spt_requiredate, status = :arg_s_mx[ll_i].spt_status, woodcode = :arg_s_mx[ll_i].spt_woodcode, pcode = :arg_s_mx[ll_i].spt_pcode, dscrp = :arg_s_mx[ll_i].spt_dscrp, qty = round(:arg_s_mx[ll_i].spt_uqty / rate,:uo_option_unit_dec), uprice = :arg_s_mx[ll_i].spt_enprice * :mrate, fprice = Round((:arg_s_mx[ll_i].spt_enprice * :arg_s_mx[ll_i].spt_uqty * :mrate)/(Round(:arg_s_mx[ll_i].spt_uqty * rate,:uo_option_unit_dec)),10), price = fprice * rebate Where mtrlid = :arg_s_mx[ll_i].mtrlid And orderid = :arg_s_mx[ll_i].orderid And status = :arg_s_mx[ll_i].status And woodcode = :arg_s_mx[ll_i].woodcode And pcode = :arg_s_mx[ll_i].pcode And wrkgrpid = :arg_s_mx[ll_i].wrkgrpid And unit = :arg_s_mx[ll_i].unit And taskmxprintid = :arg_s_mx[ll_i].taskmxprintid And requestbuyid = :arg_s_mx[ll_i].requestbuyid And rqmxprintid = :arg_s_mx[ll_i].rqmxprintid And scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '更新采购订单明细失败,'+commit_transaction.SQLErrText Goto ext End If End If Next ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit THEN COMMIT Using commit_transaction; END IF Return rslt end function public function integer uof_update_requiredate (long arg_scid, long arg_taskid, long arg_printid, datetime arg_requiredate, string arg_reason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_ifmod Int cnt SELECT CASE when u_buytaskmx.requiredate2 Is Null THEN 0 ELSE 1 END Into :li_ifmod From u_buytaskmx Where taskid = :arg_taskid And printid = :arg_printid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询采购订单明细失败,'+sqlca.SQLErrText GOTO ext END IF ////按计划的,已超期的,不能修改 //Long ll_daynum //string ls_ordercodestr //SELECT CASE when u_buytaskmx.finishflag = 1 THEN DATEDIFF(dd, u_buytaskmx.finishdate, u_buytaskmx.requiredate) when u_buyTask.Status In ( 0 ,1,2,4) THEN DATEDIFF(dd, GETDATE(), u_buytaskmx.requiredate) ELSE DATEDIFF(dd, u_buyTask.accomplishdate, u_buytaskmx.requiredate) END as daynum, isnull(u_requestbuymx.ordercodestr,'') as ordercodestr // Into :ll_daynum, :ls_ordercodestr //From u_buyTask Inner join //u_buytaskmx On u_buyTask.scid = u_buytaskmx.scid //And u_buyTask.taskid = u_buytaskmx.taskid LEFT OUTER JOIN // u_requestbuymx ON u_buyTaskMx.scid = u_requestbuymx.scid AND // u_buyTaskMx.requestbuyid = u_requestbuymx.requestbuyid AND // u_buyTaskMx.rqmxprintid = u_requestbuymx.printid //Where u_buytaskmx.taskid = :arg_taskid //And u_buytaskmx.printid = :arg_printid //And u_buytaskmx.scid = :arg_scid; //IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询采购订单信息失败,'+sqlca.SQLErrText // GOTO ext //END IF // //IF ll_daynum < 0 and ls_ordercodestr <> '' THEN // rslt = 0 // arg_msg = '按主生产计划的采购订单,明细已经超期,不能修改' // GOTO ext //END IF IF li_ifmod = 0 THEN UPDATE u_buytaskmx SET requiredate2 = requiredate, requiredate = :arg_requiredate, modreason = :arg_reason, modemp = :publ_operator, moddate = getdate() WHERE taskid = :arg_taskid AND printid = :arg_printid And scid = :arg_scid; ELSE UPDATE u_buytaskmx SET requiredate = :arg_requiredate, modreason = :arg_reason, modemp = :publ_operator, moddate = getdate() WHERE taskid = :arg_taskid AND printid = :arg_printid And scid = :arg_scid; END IF IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新订单明细更改后交货日期失败'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSE COMMIT; END IF RETURN rslt end function public function integer cstopbuytask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0, i IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误采购订单唯一码' GOTO ext END IF IF getinfo(arg_scid,arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 3 THEN rslt = 0 ARG_MSG = "订单只有在终止状态才可以执行反终止，请核对" GOTO ext END IF UPDATE u_buyTask SET Status = 1,accomplishdate = null,stopemp = '' Where TaskID = :arg_taskid AND scid = :arg_scid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致反终止采购订单操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK USING commit_transaction; GOTO ext END IF //更新明细完成状态 FOR i = 1 To it_mxbt IF finishmx(arg_scid, arg_taskid, buytaskmx[i].printid, ARG_MSG, False) = 0 THEN rslt = 0 GOTO ext END IF NEXT it_newbegin = FALSE it_updatebegin = FALSE ext: IF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer acceptmx (integer arg_iforder, long arg_orderid, string arg_ordercode, long arg_mtrlid, decimal arg_uqty, decimal arg_enprice, decimal arg_rebate, decimal arg_planprice, string arg_dscrp, string arg_mtrlcode, ref string arg_msg, long arg_printid, datetime arg_requiredate, long arg_storageid, string arg_status, string arg_unit, decimal arg_rate, string arg_woodcode, string arg_pcode, long arg_requestbuyid, long arg_rqmxprintid, long arg_wrkgrpid, long arg_taskmxprintid, decimal arg_tax, string arg_plancode, string arg_jgdscrp);s_buytaskmx s_mx s_mx.iforder = arg_iforder s_mx.orderid = arg_orderid s_mx.ordercode = arg_ordercode s_mx.mtrlid = arg_mtrlid s_mx.uqty = arg_uqty s_mx.enprice = arg_enprice s_mx.rebate = arg_rebate s_mx.planprice = arg_planprice s_mx.dscrp = arg_dscrp s_mx.mtrlcode = arg_mtrlcode s_mx.printid = arg_printid s_mx.Requiredate = arg_requiredate s_mx.storageid = arg_storageid s_mx.status = arg_status s_mx.unit = arg_unit s_mx.rate = arg_rate s_mx.woodcode = arg_woodcode s_mx.pcode = arg_pcode s_mx.requestbuyid = arg_requestbuyid s_mx.rqmxprintid = arg_rqmxprintid s_mx.wrkgrpid = arg_wrkgrpid s_mx.taskmxprintid = arg_taskmxprintid s_mx.tax = arg_tax s_mx.plancode = arg_plancode s_mx.jgdscrp = arg_jgdscrp //s_mx.dscrp2 = arg_dscrp2 return acceptmx(s_mx, arg_msg) // // //Int rslt = 1 //Long cnt = 0,ls_i //Int li_mtrlkind,li_iffp //Int li_iflimitprice //Int li_statusflag,li_outtype,li_ifpackpro //String ls_relrqbuycode //Decimal ld_uprate,ld_upqty //String ls_sptmtrlname //Int li_buydec, li_buy_ceiling, li_buyunit //Int li_flag, li_issuliao // //uo_spt_price uo_sptprice //uo_sptprice = Create uo_spt_price // //uo_spt_price uo_price //uo_price = Create uo_spt_price // //IF uo_option_change_status = '-1000' THEN // rslt = 0 // arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!' // GOTO ext //END IF // //IF uo_option_change_woodcode = '-1000' THEN // rslt = 0 // arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!' // GOTO ext //END IF // //IF uo_option_change_pcode = '-1000' THEN // rslt = 0 // arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!' // GOTO ext //END IF // //IF uo_option_buyprice_buytask_notlimit = -1000 THEN // rslt = 0 // arg_msg = '选项:[079]采购订单不限制价格,读取初始默认值失败,操作取消!' // GOTO ext //END IF // //IF uo_option_update_rqmtrlqty_buy = -1000 THEN // rslt = 0 // arg_msg = '选项:[342]采购订单保存审核检查并更新生产计划采购需求已订货数,读取初始默认值失败,操作取消!' // GOTO ext //END IF // ////IF uo_option_unit_dec = -1000 THEN //// rslt = 0 //// arg_msg = '选项:[023]辅助单位转换库存单位小数位,读取初始默认值失败,操作取消!' //// GOTO ext ////END IF // //IF it_newbegin = False And it_updatebegin = False THEN // rslt = 0 // arg_msg = "非编辑状态不可以使用,操作取消" // GOTO ext //END IF // ////清除空值 //IF IsNull(arg_iforder) THEN arg_iforder = 1 //IF IsNull(arg_orderid) THEN arg_orderid = 0 //IF IsNull(arg_ordercode) THEN arg_ordercode = '' //IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0 //IF IsNull(arg_uqty) THEN arg_uqty = 0 //IF IsNull(arg_enprice) THEN arg_enprice = 0 //IF IsNull(arg_rebate) THEN arg_rebate = 1 //IF IsNull(arg_planprice) THEN arg_planprice = 0 //IF IsNull(arg_dscrp) THEN arg_dscrp = '' //IF IsNull(arg_mtrlcode) THEN arg_mtrlcode = '' //IF IsNull(arg_printid) THEN arg_printid = 0 //IF IsNull(arg_storageid) THEN arg_storageid = 0 //IF IsNull(arg_status) THEN arg_status = '' //IF IsNull(arg_woodcode) THEN arg_woodcode = '' //IF IsNull(arg_pcode) THEN arg_pcode = '' //IF IsNull(arg_unit) THEN arg_unit = '' //IF IsNull(arg_rate) THEN arg_rate = 1 //IF arg_rate = 0 THEN arg_rate = 1 //IF IsNull(arg_requestbuyid) THEN arg_requestbuyid = 0 //IF IsNull(arg_rqmxprintid) THEN arg_rqmxprintid = 0 //IF IsNull(arg_wrkgrpid) THEN arg_wrkgrpid = 0 //IF IsNull(arg_taskmxprintid) THEN arg_taskmxprintid = 0 //IF IsNull(arg_tax) THEN arg_tax = 0 //IF IsNull(arg_jgdscrp) THEN arg_jgdscrp = '' // ////if arg_rebate = 0 then arg_rebate = 1 // //IF arg_mtrlid = 0 Or arg_uqty = 0 THEN // 如果进仓数量为 0，或物料编号为空，则不作任何处理 // rslt = 1 // GOTO ext //END IF // // //IF f_check_status(1,arg_status) = 0 THEN // rslt = 0 // arg_msg = "查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_status // GOTO ext //END IF // //IF f_check_status(2,arg_woodcode) = 0 THEN // rslt = 0 // arg_msg = "查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_woodcode // GOTO ext //END IF // //IF f_check_status(3,arg_pcode) = 0 THEN // rslt = 0 // arg_msg = "查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_pcode // GOTO ext //END IF // //IF sys_option_nostorageid_buy = 1 THEN // cnt = 0 // SELECT count(*) // INTO :cnt // FROM u_storage // WHERE u_storage.storageid = :arg_storageid // Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "查询操作失败,仓库编号" // GOTO ext // END IF // // IF cnt = 0 THEN // rslt = 0 // arg_msg = "错误的仓库编号" // GOTO ext // END IF //END IF // //SELECT mtrlkind, // upbuyrate, // upbuyqty, // iffp, // iflimitprice, // statusflag, // outtype, // ifpackpro, // buyunit, // buydec, // buy_ceiling, // flag, // issuliao // INTO :li_mtrlkind, // :ld_uprate, // :ld_upqty, // :li_iffp, // :li_iflimitprice, // :li_statusflag, // :li_outtype, // :li_ifpackpro, // :li_buyunit, // :li_buydec, // :li_buy_ceiling, // :li_flag, // :li_issuliao // FROM u_mtrldef // WHERE u_mtrldef.mtrlid = :arg_mtrlid // Using commit_transaction; //IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "查询物料:"+arg_mtrlcode+',属性失败,'+commit_transaction.SQLErrText // GOTO ext //END IF // ////处理单位转换保留位数 //IF li_buyunit = 0 THEN //不使用默认采购单位, 保留N位小数也使用 // li_buydec = 10 //END IF // //IF sys_option_audit_mtrl <> 0 THEN // IF li_flag <> 2 THEN // rslt = 0 // arg_msg = "系统选项[297]限制,物料:"+arg_mtrlcode+',资料未审核,不能建单' // GOTO ext // END IF //END IF // ////ys特殊用法 //IF li_issuliao = 5 Or li_issuliao = 8 THEN // IF arg_jgdscrp = "" THEN // rslt = 0 // arg_msg = "行:"+String(arg_printid)+",物料:"+arg_mtrlcode+',请选择材质/密度' // GOTO ext // END IF //END IF // //IF arg_rebate <= 0 or arg_rebate > 1 THEN // arg_msg = '行:'+String(arg_printid)+',折扣错误,只能取范围(0, 1]' // rslt = 0 // GOTO ext //END IF // //IF Date(requiredate) > Date(arg_requiredate) THEN // arg_msg = '交货日期不能在订货日期前' // rslt = 0 // GOTO ext //END IF // //Dec ld_uqty,ld_consignedqty, lde_addqty, lde_rate_rq //String ls_unit_rq // //IF arg_iforder = 1 THEN // IF arg_requestbuyid = 0 THEN // arg_msg = '物料:'+arg_mtrlcode+',请选择申购单' // rslt = 0 // GOTO ext // END IF // // // // SELECT u_requestbuy.requestbuycode, u_requestbuymx.uqty,u_requestbuymx.consignedqty,u_requestbuymx.unit,u_requestbuymx.rate // INTO :ls_relrqbuycode, :ld_uqty,:ld_consignedqty, :ls_unit_rq, :lde_rate_rq // FROM u_requestbuy,u_requestbuymx // WHERE u_requestbuy.scid = u_requestbuymx.scid // AND u_requestbuy.requestbuyid = u_requestbuymx.requestbuyid // AND u_requestbuymx.scid = :scid // AND u_requestbuymx.requestbuyid = :arg_requestbuyid // AND u_requestbuymx.printid = :arg_rqmxprintid // Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = "查询物料:"+arg_mtrlcode+'查询申购单号失败,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext // END IF // // IF ls_unit_rq = arg_unit THEN //单位相同, 直接去订单数量 // lde_addqty = arg_uqty // ELSE // //单位不同, 先转库存单位, 在转申购单位 // lde_addqty = Round(arg_uqty * arg_rate,li_buydec) // lde_addqty = lde_addqty / lde_rate_rq // END IF // // IF Not f_power_ind(1405,sys_msg_pow) Or sys_power_issuper THEN // IF ld_uqty * (1 + ld_uprate) + ld_upqty < lde_addqty + ld_consignedqty THEN // rslt = 0 // arg_msg = '物料:'+arg_mtrlcode+',申购单位:'+ls_unit_rq+',申购未完成数量:'+String(ld_uqty - ld_consignedqty,'#,##0.00##' )+',允许订货上限为:'+String(ld_uqty * (1 + ld_uprate) + ld_upqty - ld_consignedqty,'#,##0.00##')+',少于本次完成数量:'+String(lde_addqty,'#,##0.00##') // GOTO ext // END IF // ELSE // IF ld_uqty < lde_addqty + ld_consignedqty THEN // rslt = 0 // arg_msg = '物料:'+arg_mtrlcode+',申购单位:'+ls_unit_rq+',申购未完成数量:'+String(ld_uqty - ld_consignedqty,'#,##0.00##' )+',少于本次完成数量:'+String(lde_addqty,'#,##0.00##') // // IF ld_uprate > 0 Or ld_uprate > 0 THEN // arg_msg += '~r~n你没有超申购的权限' // END IF // GOTO ext // END IF // END IF // // IF uo_option_update_rqmtrlqty_buy = 1 THEN // IF arg_orderid > 0 And billtype = 0 THEN // IF li_mtrlkind = 1 THEN // arg_msg = '物料:'+arg_mtrlcode+',mrp属性设为不按计划,所以不能选择计划' // rslt = 0 // GOTO ext // END IF // // Decimal ld_truerqqty // // ld_consignedqty = 0 // // SELECT sum(truerqqty),sum(consignedqty) // INTO :ld_truerqqty,:ld_consignedqty // FROM u_orderrqmtrl // WHERE u_orderrqmtrl.orderid = :arg_orderid // AND u_orderrqmtrl.scid = :scid // AND u_orderrqmtrl.mtrlid = :arg_mtrlid // AND u_orderrqmtrl.status = :arg_status // AND u_orderrqmtrl.woodcode = :arg_woodcode // AND u_orderrqmtrl.pcode = :arg_pcode // AND u_orderrqmtrl.wrkgrpid = :arg_wrkgrpid // and u_orderrqmtrl.plantype = 2 // Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询生产计划:'+arg_ordercode+',物料:'+arg_mtrlcode+'需求未安排数失败,'+commit_transaction.SQLErrText // GOTO ext // END IF // // //默认库存单位 // lde_addqty = Round(arg_uqty * arg_rate,li_buydec) // // IF Not f_power_ind(1405,sys_msg_pow) Or sys_power_issuper THEN // IF ld_truerqqty * (1 + ld_uprate) + ld_upqty < (lde_addqty + ld_consignedqty) THEN // rslt = 0 // arg_msg = '生产计划:'+arg_ordercode+',物料:'+arg_mtrlcode+'需求未安排数只有:'+String(ld_truerqqty - ld_consignedqty,'#,##0.0####' )+',允许订货上限为:'+String(ld_truerqqty * (1 + ld_uprate) + ld_upqty - ld_consignedqty,'#,##0.00##')+',少于本次完成数量:'+String(lde_addqty,'#,##0.00##') // GOTO ext // END IF // ELSE // IF lde_addqty > ld_truerqqty - ld_consignedqty THEN // arg_msg = '生产计划:'+arg_ordercode+',物料:'+arg_mtrlcode+'需求未安排数只有:'+String(ld_truerqqty - ld_consignedqty,'#,##0.0####') + ',不能安排:'+String(lde_addqty,'#,##0.0####') // // IF ld_uprate > 0 Or ld_uprate > 0 THEN // arg_msg += '~r~n你没有超申购的权限' // END IF // // rslt = 0 // GOTO ext // END IF // END IF // END IF // END IF //END IF // //IF li_statusflag = 2 And Trim(arg_status) = '' THEN // rslt = 0 // arg_msg = '第'+String(arg_printid)+'行,物料:'+arg_mtrlcode+' 属于组合配置类型,但没有输入配置,请检查' // GOTO ext //END IF // //IF uo_sptprice.uof_check_limitprice(0,arg_mtrlid,arg_status,arg_woodcode,arg_pcode,arg_unit,arg_enprice * mrate * arg_rebate,arg_msg) = 0 THEN // rslt = 0 // GOTO ext //END IF // //IF uo_option_buyprice_buytask_notlimit = 0 And li_iflimitprice = 1 THEN // IF uo_sptprice.uof_check_price(0,sptid,arg_mtrlid,arg_mtrlcode,arg_unit,arg_status,arg_woodcode,arg_pcode,'',moneyid,arg_enprice * mrate * arg_rebate,requiredate,arg_msg) = 0 THEN // rslt = 0 // GOTO ext // END IF //END IF // ////查询合同号 //Long ll_buybargainid, ll_buybargainprintid //String ls_buybargaincode //IF uo_sptprice.uof_getmtrlsptbuybargain(moneyid, sptid, arg_mtrlid,arg_unit,arg_status,arg_woodcode,arg_pcode,arg_jgdscrp,& // ll_buybargainid, ll_buybargainprintid, ls_buybargaincode,arg_msg) = 0 THEN // rslt = 0 // GOTO ext //END IF // ////查询最后一次收货价 //String ls_lastcode //DateTime ldt_lastdate //Decimal lde_lastprice // //SELECT top 1 u_inware.inwarecode,u_inware.indate, // u_inwaremx.uprice INTO // :ls_lastcode,:ldt_lastdate,:lde_lastprice // FROM u_inware INNER JOIN // u_inwareMx ON u_inware.inwareid = u_inwareMx.inwareid // WHERE u_inware.flag = 1 AND // u_inware.thflag = 0 AND // u_inwareMx.mtrlid = :arg_mtrlid AND // u_inwareMx.unit = :arg_unit AND // u_inwareMx.status = :arg_status AND // u_inwareMx.woodcode = :arg_woodcode AND // u_inwareMx.pcode = :arg_pcode AND // u_inware.sptid = :sptid // Order By u_inware.auditingdate Desc; // //IF sqlca.SQLCode <> 0 THEN // lde_lastprice = 0 // ls_lastcode = '' // SetNull(ldt_lastdate) //END IF // //IF IsNull(lde_lastprice) THEN lde_lastprice = 0 //IF IsNull(ls_lastcode) THEN ls_lastcode = '' ////IF IsNull(ldt_lastdate) THEN SetNull(ldt_lastdate) // //// //IF Round(arg_uqty * arg_rate,li_buydec) = 0 THEN // rslt = 0 // arg_msg = '第'+String(arg_printid)+'行,转换成库存数量后数量为0,请检查~r~n' // arg_msg += "采购数量:"+String(arg_uqty, '#,##0.#########')+",转换率:"+String(arg_rate, '#,##0.#########')+",保留小数位数:"+String(li_buydec, '##0') // GOTO ext //END IF // //FOR ls_i = 1 To it_mxbt //合并重复项 // IF buytaskmx[ls_i].mtrlid = arg_mtrlid And & // buytaskmx[ls_i].orderid = arg_orderid And & // Date(buytaskmx[ls_i].requiredate) = Date(arg_requiredate) And & // buytaskmx[ls_i].status = arg_status And & // buytaskmx[ls_i].woodcode = arg_woodcode And & // buytaskmx[ls_i].pcode = arg_pcode And & // buytaskmx[ls_i].wrkgrpid = arg_wrkgrpid And & // buytaskmx[ls_i].unit = arg_unit And & // buytaskmx[ls_i].taskmxprintid = arg_taskmxprintid And & // buytaskmx[ls_i].requestbuyid = arg_requestbuyid And & // buytaskmx[ls_i].rqmxprintid = arg_rqmxprintid And & // buytaskmx[ls_i].plancode = arg_plancode THEN // // buytaskmx[ls_i].uqty = buytaskmx[ls_i].uqty+arg_uqty // buytaskmx[ls_i].qty = buytaskmx[ls_i].qty+Round(arg_uqty * arg_rate,li_buydec) // rslt = 1 // GOTO ext // END IF //NEXT // // ////写入内容 //it_mxbt++ //buytaskmx[it_mxbt].iforder = arg_iforder //buytaskmx[it_mxbt].orderid = arg_orderid //buytaskmx[it_mxbt].ordercode = arg_ordercode //buytaskmx[it_mxbt].mtrlid = arg_mtrlid //buytaskmx[it_mxbt].uqty = arg_uqty //buytaskmx[it_mxbt].qty = Round(arg_uqty * arg_rate,li_buydec) //buytaskmx[it_mxbt].plprice = arg_planprice //buytaskmx[it_mxbt].dscrp = arg_dscrp //buytaskmx[it_mxbt].mtrlcode = arg_mtrlcode //buytaskmx[it_mxbt].printid = arg_printid //buytaskmx[it_mxbt].unit = arg_unit //buytaskmx[it_mxbt].rate = arg_rate //buytaskmx[it_mxbt].rebate = arg_rebate //buytaskmx[it_mxbt].enprice = arg_enprice //单价-外币-采购单位 //buytaskmx[it_mxbt].uprice = arg_enprice * mrate //单价-本位币-采购单位 //buytaskmx[it_mxbt].fprice = Round((arg_enprice * arg_uqty * mrate)/(Round(arg_uqty * arg_rate,li_buydec)),10) //单价-本位币-库存单位 //buytaskmx[it_mxbt].acprice = buytaskmx[it_mxbt].fprice * arg_rebate //折后单价-本位币-库存单位 //buytaskmx[it_mxbt].requiredate = arg_requiredate //buytaskmx[it_mxbt].status = arg_status //buytaskmx[it_mxbt].woodcode = arg_woodcode //buytaskmx[it_mxbt].pcode = arg_pcode //buytaskmx[it_mxbt].storageid = arg_storageid //buytaskmx[it_mxbt].tax = arg_tax //billamt = billamt + Round(arg_enprice * arg_uqty * arg_rebate,2) // //buytaskmx[it_mxbt].requestbuyid = arg_requestbuyid //buytaskmx[it_mxbt].rqmxprintid = arg_rqmxprintid //buytaskmx[it_mxbt].relrqbuycode = ls_relrqbuycode //buytaskmx[it_mxbt].wrkgrpid = arg_wrkgrpid //buytaskmx[it_mxbt].taskmxprintid = arg_taskmxprintid // //IF uo_price.uof_getmtrlname(sptid,arg_mtrlid,ls_sptmtrlname,arg_msg) = 0 THEN // rslt = 0 // GOTO ext //END IF // //buytaskmx[it_mxbt].sptmtrlname = ls_sptmtrlname //buytaskmx[it_mxbt].iffp = li_iffp //buytaskmx[it_mxbt].outtype = li_outtype //buytaskmx[it_mxbt].ifpackpro = li_ifpackpro // //buytaskmx[it_mxbt].plancode = arg_plancode // //buytaskmx[it_mxbt].buybargainid = ll_buybargainid //buytaskmx[it_mxbt].buybargainprintid = ll_buybargainprintid //buytaskmx[it_mxbt].buybargaincode = ls_buybargaincode // //buytaskmx[it_mxbt].jgdscrp = arg_jgdscrp // //buytaskmx[it_mxbt].lastcode = ls_lastcode //buytaskmx[it_mxbt].lastdate = ldt_lastdate //buytaskmx[it_mxbt].lastprice = lde_lastprice // //ext: //IF rslt = 0 THEN p_clearmx() // //Destroy uo_sptprice //Destroy uo_price // //Return(rslt) // // // // // // end function public function integer stopbuytask (long arg_scid, long arg_taskid, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0, i IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误采购订单唯一码' GOTO ext END IF IF getinfo(arg_scid,arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 1 THEN rslt = 0 ARG_MSG = "订单只有在进行状态才可以执行终止，请核对" GOTO ext END IF arg_stopreason = Trim(arg_stopreason) IF arg_stopreason = '' THEN rslt = 0 ARG_MSG = "请输入终止原因" GOTO ext END IF UPDATE u_buyTask SET Status = 3, accomplishdate = getdate(), stopemp = :publ_operator, stopreason = :arg_stopreason Where TaskID = :arg_taskid And scid = :arg_scid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致终止采购订单操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF //更新明细完成状态 FOR i = 1 To it_mxbt IF finishmx(arg_scid, arg_taskid, buytaskmx[i].printid, ARG_MSG, False) = 0 THEN rslt = 0 GOTO ext END IF NEXT it_newbegin = False it_updatebegin = False ext: IF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF p_reset() Return (rslt) end function public function integer mod_price (long arg_scid, long arg_taskid, long arg_printid, decimal arg_enprice, decimal arg_rebate, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status = 0 THEN rslt = 0 arg_msg = '采购订单待审核状态下不能执行修改单价功能' GOTO ext END IF Decimal ld_enprice,ld_uprice,ld_uqty,ld_rate,ld_qty,ld_rebate, ld_fprice, ld_price Long ll_mtrlid String ls_status,ls_woodcode,ls_pcode,ls_plancode int li_buydec, li_buy_ceiling SELECT u_buytaskmx.enprice, u_buytaskmx.uprice, u_buytaskmx.fprice, u_buytaskmx.price, u_buytaskmx.uqty, u_buytaskmx.rate, u_buytaskmx.qty, u_buytaskmx.rebate, u_buytaskmx.mtrlid, u_buytaskmx.status, u_buytaskmx.woodcode, u_buytaskmx.pcode, u_mtrldef.buydec, u_mtrldef.buy_ceiling INTO :ld_enprice, :ld_uprice, :ld_fprice, :ld_price, :ld_uqty, :ld_rate, :ld_qty, :ld_rebate, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :li_buydec, :li_buy_ceiling FROM u_buytaskmx inner join u_mtrldef on u_buytaskmx.mtrlid = u_mtrldef.mtrlid WHERE u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_taskid AND u_buytaskmx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询采购订单明细内容失败'+commit_transaction.SQLErrText GOTO ext END IF if arg_rebate = -1 then arg_rebate = ld_rebate IF arg_enprice = ld_enprice and arg_rebate = ld_rebate THEN rslt = 0 arg_msg = '单价和折扣没有任何修改,不能保存' GOTO ext END IF Decimal ld_enprice_new, ld_uprice_new,ld_fprice_new,ld_price_new, lde_billamt ld_enprice_new = arg_enprice ld_uprice_new = Round(arg_enprice * mrate,10) ld_fprice_new = Round((ld_uprice_new * ld_uqty)/(Round(ld_uqty * ld_rate,li_buydec)),10) ld_price_new = ld_fprice_new * arg_rebate UPDATE u_buytaskmx SET enprice = :arg_enprice, uprice = :ld_uprice_new, fprice = :ld_fprice_new, price = :ld_price_new, rebate = :arg_rebate WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新单据明细失败'+commit_transaction.SQLErrText GOTO ext END IF INSERT INTO u_buytaskmx_modprice (scid, taskid, printid, enprice_old, uprice_old, fprice_old, price_old, enprice_new, uprice_new, fprice_new, price_new, mxdscrp, opdate, opemp,rebate_old, rebate_new) VALUES (:arg_scid, :arg_taskid,:arg_printid, :ld_enprice, :ld_uprice, :ld_fprice, :ld_price, :ld_enprice_new,:ld_uprice_new, :ld_fprice_new, :ld_price_new, '', getdate(), :publ_operator,:ld_rebate,:arg_rebate)Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入修改历史失败'+commit_transaction.SQLErrText GOTO ext END IF SELECT sum(round(enprice * uqty * rebate, 2)) INTO :lde_billamt FROM u_buytaskmx WHERE scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询单据金额失败'+commit_transaction.SQLErrText GOTO ext END IF UPDATE u_buytask SET billamt = :lde_billamt WHERE scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新单据金额失败'+commit_transaction.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer uof_update_requiredate_chk (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg);Int rslt = 1 Int li_ifmod Int cnt //按计划的,已超期的,不能修改 Long ll_daynum string ls_ordercodestr SELECT CASE when u_buytaskmx.finishflag = 1 THEN DATEDIFF(dd, u_buytaskmx.finishdate, u_buytaskmx.requiredate) when u_buyTask.Status In ( 0 ,1,2,4) THEN DATEDIFF(dd, GETDATE(), u_buytaskmx.requiredate) ELSE DATEDIFF(dd, u_buyTask.accomplishdate, u_buytaskmx.requiredate) END as daynum, isnull(u_requestbuymx.ordercodestr,'') as ordercodestr Into :ll_daynum, :ls_ordercodestr From u_buyTask Inner join u_buytaskmx On u_buyTask.scid = u_buytaskmx.scid And u_buyTask.taskid = u_buytaskmx.taskid LEFT OUTER JOIN u_requestbuymx ON u_buyTaskMx.scid = u_requestbuymx.scid AND u_buyTaskMx.requestbuyid = u_requestbuymx.requestbuyid AND u_buyTaskMx.rqmxprintid = u_requestbuymx.printid Where u_buytaskmx.taskid = :arg_taskid And u_buytaskmx.printid = :arg_printid And u_buytaskmx.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询采购订单信息失败,'+sqlca.SQLErrText GOTO ext END IF IF ll_daynum < 0 and ls_ordercodestr <> '' THEN rslt = 0 arg_msg = '按主生产计划的采购订单,明细已经超期,不能修改' GOTO ext END IF ext: RETURN rslt end function public function integer uof_update_billamt (long arg_scid, long arg_taskid, boolean arg_ifcommit, ref string arg_msg);Int rslt = 1 decimal lde_billamt Int cnt SELECT sum(round(enprice * uqty * rebate, 2)) INTO :lde_billamt FROM u_buytaskmx WHERE scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询单据金额失败'+commit_transaction.SQLErrText GOTO ext END IF UPDATE u_buytask SET billamt = :lde_billamt WHERE scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新单据金额失败'+commit_transaction.SQLErrText GOTO ext END IF ext: if rslt = 0 then rollback using commit_transaction; else commit using commit_transaction; end if RETURN rslt end function public function integer addmxcmpl (long arg_scid, long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 Decimal lde_qty_tol, lde_addqty_order IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_ifovertask = -1000 THEN rslt = 0 arg_msg = '选项:[010]超采购,外协订单收货,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_requestbuy_hz = -1000 THEN rslt = 0 arg_msg = '选项:[111]申购单汇总采购,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_update_rqmtrlqty_buy = -1000 THEN rslt = 0 arg_msg = '选项:[342]采购订单保存审核检查并更新生产计划采购需求已订货数,读取初始默认值失败,操作取消!' GOTO ext END IF //yyx 100306 Long ll_ti,ll_rcnt datastore ds_tmp_update ds_tmp_update = Create datastore ds_tmp_update.DataObject = 'ds_buytask_update_order' ds_tmp_update.SetTransObject(sqlca) //yyx 100306 datastore ds ds = Create datastore ds.DataObject = 'ds_orderrqmtrl_request_buytask' ds.SetTransObject(sqlca) IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误采购订单唯一码' GOTO ext END IF IF arg_addqty = 0 THEN rslt = 1 GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 And status <> 5 THEN rslt = 0 IF status <> 1 THEN arg_msg = "采购订单只有在进行状态下才可以执行进仓" ELSEIF status <> 5 THEN arg_msg = "采购订单只有在完成状态下才可以撤消进仓" END IF GOTO ext END IF Decimal ls_buyqty,ls_consignedqty,ld_sum_consignedqty String ls_mtrlcode Long ll_orderid,ll_wrkGrpid,ll_mtrlid,ll_requestbuyid String ls_status,ls_woodcode,ls_pcode Decimal ld_uprate,ld_upqty,ld_stopqty, lde_rate SELECT u_mtrldef.mtrlcode, u_buytaskmx.orderid, u_buytaskmx.wrkGrpid, u_buytaskmx.mtrlid, u_buytaskmx.status, u_buytaskmx.woodcode, u_buytaskmx.pcode, u_buytaskmx.requestbuyid, u_buytaskmx.uqty, u_buytaskmx.consignedqty, u_buytaskmx.stopqty, u_buytaskmx.rate INTO :ls_mtrlcode, :ll_orderid, :ll_wrkGrpid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ll_requestbuyid, :ls_buyqty, :ls_consignedqty, :ld_stopqty, :lde_rate FROM u_mtrldef,u_buytaskmx WHERE u_mtrldef.mtrlid = u_buytaskmx.mtrlid AND u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_taskid AND u_buytaskmx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细物料编码失败,'+commit_transaction.SQLErrText GOTO ext END IF IF uo_option_ifovertask = 1 THEN //不允许超收 IF ls_buyqty < ls_consignedqty + arg_addqty + ld_stopqty THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+"未完成数量只有"+String(ls_buyqty - ls_consignedqty - ld_stopqty,'#,##0.0#########')+",不能入库"+String(arg_addqty,'#,##0.0#########') GOTO ext END IF ELSEIF uo_option_ifovertask = 3 THEN //允许超收但按比例限制 SELECT uprate , upqty INTO :ld_uprate,:ld_upqty FROM u_mtrldef Where mtrlid = :ll_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+Trim(ls_mtrlcode)+'超收货比例失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ls_buyqty * (1 + ld_uprate) + ld_upqty < ls_consignedqty + arg_addqty + ld_stopqty THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+"未完成数量只有"+String(ls_buyqty - ls_consignedqty - ld_stopqty, '#,##0.0#########')+"允许超收上限:"+String(ls_buyqty * (1 + ld_uprate) + ld_upqty - ls_consignedqty - ld_stopqty,'#,##0.0#########')+",不能入库"+String(arg_addqty,'#,##0.0#########') GOTO ext END IF END IF IF arg_addqty < 0 And arg_addqty + ls_consignedqty < 0 THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+"已完成数量只有"+String(ls_consignedqty, '#,##0.0###')+",不能退货"+String(arg_addqty,'#,##0.0#########') GOTO ext END IF UPDATE u_buytaskmx SET consignedqty = consignedqty + :arg_addqty WHERE ( u_buytaskmx.taskid = :arg_taskid ) AND ( u_buytaskmx.printid = :arg_printid ) AND ( u_buytaskmx.scid = :arg_scid) AND ( u_buytaskmx.stopflag = 0 ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致采购订单完成数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //更新订单完成状态 IF trycmplbuytask(arg_scid, arg_taskid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //更新明细完成状态 IF finishmx(arg_scid, arg_taskid, arg_printid, arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF uo_order_ml uo_order uo_order = Create uo_order_ml IF billtype = 0 THEN IF uo_option_update_rqmtrlqty_buy = 1 THEN ll_rcnt = ds.Retrieve(scid,ll_requestbuyid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode, ll_orderid) lde_qty_tol = Abs(arg_addqty * lde_rate) //- buytaskmx[ll_i].rebuyqty * buytaskmx[ll_i].rate FOR ll_ti = 1 To ll_rcnt IF arg_addqty > 0 THEN //增加收货 IF ds.Object.u_orderrqmtrl_truerqqty[ll_ti] <= ds.Object.u_orderrqmtrl_inqty[ll_ti] THEN CONTINUE IF lde_qty_tol > ds.Object.u_orderrqmtrl_truerqqty[ll_ti] - ds.Object.u_orderrqmtrl_inqty[ll_ti] THEN lde_addqty_order = ds.Object.u_orderrqmtrl_truerqqty[ll_ti] - ds.Object.u_orderrqmtrl_inqty[ll_ti] lde_qty_tol -= lde_addqty_order ELSE lde_addqty_order = lde_qty_tol lde_qty_tol = 0 END IF lde_addqty_order = lde_addqty_order ELSE //减少收货 IF ds.Object.u_orderrqmtrl_inqty[ll_ti] <= 0 THEN CONTINUE IF lde_qty_tol > ds.Object.u_orderrqmtrl_inqty[ll_ti] THEN lde_addqty_order = ds.Object.u_orderrqmtrl_inqty[ll_ti] lde_qty_tol -= lde_addqty_order ELSE lde_addqty_order = lde_qty_tol lde_qty_tol = 0 END IF lde_addqty_order = 0 - lde_addqty_order END IF IF uo_order.f_assign_inqty(ds.Object.u_orderrqmtrl_scid[ll_ti],ds.Object.u_orderrqmtrl_orderid[ll_ti],& ds.Object.u_orderrqmtrl_wrkGrpid[ll_ti],2,& ll_mtrlid,ls_mtrlcode,ls_status,& ls_woodcode,ls_pcode,lde_addqty_order,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF lde_qty_tol = 0 THEN EXIT NEXT END IF END IF //IF uo_option_update_rqmtrlqty_buy = 1 THEN // IF billtype = 0 THEN // IF ll_orderid > 0 THEN // Long ll_cnt_order // SELECT count(*) INTO :ll_cnt_order // FROM u_order_ml // WHERE scid = :scid // AND orderid = :ll_orderid // Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '查询相关订单明细:'+String(arg_printid)+',相关生产计划失败' // rslt = 0 // GOTO ext // END IF // // IF ll_cnt_order > 0 THEN // IF uo_order.f_assign_inqty(scid,ll_orderid,ll_wrkGrpid,2,& // ll_mtrlid,ls_mtrlcode,ls_status,& // ls_woodcode,ls_pcode,arg_addqty,arg_msg,False) = 0 THEN // rslt = 0 // GOTO ext // END IF // // arg_msg = uo_order.arg_msg_str // // END IF // ELSE // //yyx 100305 // // IF ll_requestbuyid > 0 And uo_option_requestbuy_hz = 1 THEN // ll_rcnt = ds_tmp_update.Retrieve(scid,ll_requestbuyid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode) // // FOR ll_ti = 1 To ll_rcnt // IF uo_order.f_assign_inqty(ds_tmp_update.Object.scid[ll_ti],ds_tmp_update.Object.orderid[ll_ti],& // ds_tmp_update.Object.wrkGrpid[ll_ti],2,& // ll_mtrlid,ls_mtrlcode,ls_status,& // ls_woodcode,ls_pcode,arg_addqty,arg_msg,False) = 0 THEN // rslt = 0 // GOTO ext // END IF // NEXT // // arg_msg = uo_order.arg_msg_str // END IF // // // END IF // END IF //END IF it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit THEN COMMIT Using commit_transaction; END IF Destroy uo_order Destroy ds_tmp_update Destroy ds p_reset() Return (rslt) end function public function integer acceptmx (s_buytaskmx s_mx, ref string arg_msg);Int rslt = 1 Long cnt = 0,ls_i Int li_mtrlkind,li_iffp Int li_iflimitprice Int li_statusflag,li_outtype,li_ifpackpro String ls_relrqbuycode Decimal ld_uprate,ld_upqty String ls_sptmtrlname Int li_buydec, li_buy_ceiling, li_buyunit Int li_flag, li_issuliao uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price uo_spt_price uo_price uo_price = Create uo_spt_price IF uo_option_change_status = '-1000' THEN rslt = 0 arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_change_woodcode = '-1000' THEN rslt = 0 arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_change_pcode = '-1000' THEN rslt = 0 arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_buyprice_buytask_notlimit = -1000 THEN rslt = 0 arg_msg = '选项:[079]采购订单不限制价格,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_update_rqmtrlqty_buy = -1000 THEN rslt = 0 arg_msg = '选项:[342]采购订单保存审核检查并更新生产计划采购需求已订货数,读取初始默认值失败,操作取消!' GOTO ext END IF //IF uo_option_unit_dec = -1000 THEN // rslt = 0 // arg_msg = '选项:[023]辅助单位转换库存单位小数位,读取初始默认值失败,操作取消!' // GOTO ext //END IF IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF //清除空值 IF IsNull(s_mx.iforder) THEN s_mx.iforder = 1 IF IsNull(s_mx.orderid) THEN s_mx.orderid = 0 IF IsNull(s_mx.ordercode) THEN s_mx.ordercode = '' IF IsNull(s_mx.mtrlid) THEN s_mx.mtrlid = 0 IF IsNull(s_mx.uqty) THEN s_mx.uqty = 0 IF IsNull(s_mx.enprice) THEN s_mx.enprice = 0 IF IsNull(s_mx.rebate) THEN s_mx.rebate = 1 IF IsNull(s_mx.planprice) THEN s_mx.planprice = 0 IF IsNull(s_mx.dscrp) THEN s_mx.dscrp = '' IF IsNull(s_mx.dscrp2) THEN s_mx.dscrp2 = '' IF IsNull(s_mx.mtrlcode) THEN s_mx.mtrlcode = '' IF IsNull(s_mx.printid) THEN s_mx.printid = 0 IF IsNull(s_mx.storageid) THEN s_mx.storageid = 0 IF IsNull(s_mx.status) THEN s_mx.status = '' IF IsNull(s_mx.woodcode) THEN s_mx.woodcode = '' IF IsNull(s_mx.pcode) THEN s_mx.pcode = '' IF IsNull(s_mx.unit) THEN s_mx.unit = '' IF IsNull(s_mx.rate) THEN s_mx.rate = 1 IF s_mx.rate = 0 THEN s_mx.rate = 1 IF IsNull(s_mx.requestbuyid) THEN s_mx.requestbuyid = 0 IF IsNull(s_mx.rqmxprintid) THEN s_mx.rqmxprintid = 0 IF IsNull(s_mx.wrkgrpid) THEN s_mx.wrkgrpid = 0 IF IsNull(s_mx.taskmxprintid) THEN s_mx.taskmxprintid = 0 IF IsNull(s_mx.tax) THEN s_mx.tax = 0 IF IsNull(s_mx.jgdscrp) THEN s_mx.jgdscrp = '' //if s_mx.rebate = 0 then s_mx.rebate = 1 IF s_mx.mtrlid = 0 Or s_mx.uqty = 0 THEN // 如果进仓数量为 0，或物料编号为空，则不作任何处理 rslt = 1 GOTO ext END IF IF f_check_status(1,s_mx.status) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.status GOTO ext END IF IF f_check_status(2,s_mx.woodcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.woodcode GOTO ext END IF IF f_check_status(3,s_mx.pcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.pcode GOTO ext END IF IF sys_option_nostorageid_buy = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_storage WHERE u_storage.storageid = :s_mx.storageid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,仓库编号" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "错误的仓库编号" GOTO ext END IF END IF SELECT mtrlkind, upbuyrate, upbuyqty, iffp, iflimitprice, statusflag, outtype, ifpackpro, buyunit, buydec, buy_ceiling, flag, issuliao INTO :li_mtrlkind, :ld_uprate, :ld_upqty, :li_iffp, :li_iflimitprice, :li_statusflag, :li_outtype, :li_ifpackpro, :li_buyunit, :li_buydec, :li_buy_ceiling, :li_flag, :li_issuliao FROM u_mtrldef WHERE u_mtrldef.mtrlid = :s_mx.mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询物料:"+s_mx.mtrlcode+',属性失败,'+commit_transaction.SQLErrText GOTO ext END IF //处理单位转换保留位数 IF li_buyunit = 0 THEN //不使用默认采购单位, 保留N位小数也使用 li_buydec = 10 END IF IF sys_option_audit_mtrl <> 0 THEN IF li_flag <> 2 THEN rslt = 0 arg_msg = "系统选项[297]限制,物料:"+s_mx.mtrlcode+',资料未审核,不能建单' GOTO ext END IF END IF //ys特殊用法 IF li_issuliao = 5 Or li_issuliao = 8 THEN IF s_mx.jgdscrp = "" THEN rslt = 0 arg_msg = "行:"+String(s_mx.printid)+",物料:"+s_mx.mtrlcode+',请选择材质/密度' GOTO ext END IF END IF IF s_mx.rebate <= 0 or s_mx.rebate > 1 THEN arg_msg = '行:'+String(s_mx.printid)+',折扣错误,只能取范围(0, 1]' rslt = 0 GOTO ext END IF IF Date(requiredate) > Date(s_mx.requiredate) THEN arg_msg = '交货日期不能在订货日期前' rslt = 0 GOTO ext END IF Dec ld_uqty,ld_consignedqty, lde_addqty, lde_rate_rq String ls_unit_rq IF s_mx.iforder = 1 THEN IF s_mx.requestbuyid = 0 THEN arg_msg = '物料:'+s_mx.mtrlcode+',请选择申购单' rslt = 0 GOTO ext END IF SELECT u_requestbuy.requestbuycode, u_requestbuymx.uqty,u_requestbuymx.consignedqty,u_requestbuymx.unit,u_requestbuymx.rate INTO :ls_relrqbuycode, :ld_uqty,:ld_consignedqty, :ls_unit_rq, :lde_rate_rq FROM u_requestbuy,u_requestbuymx WHERE u_requestbuy.scid = u_requestbuymx.scid AND u_requestbuy.requestbuyid = u_requestbuymx.requestbuyid AND u_requestbuymx.scid = :scid AND u_requestbuymx.requestbuyid = :s_mx.requestbuyid AND u_requestbuymx.printid = :s_mx.rqmxprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = "查询物料:"+s_mx.mtrlcode+'查询申购单号失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ls_unit_rq = s_mx.unit THEN //单位相同, 直接去订单数量 lde_addqty = s_mx.uqty ELSE //单位不同, 先转库存单位, 在转申购单位 lde_addqty = Round(s_mx.uqty * s_mx.rate,li_buydec) lde_addqty = Truncate(lde_addqty / lde_rate_rq,li_buydec) END IF IF Not f_power_ind(1405,sys_msg_pow) Or sys_power_issuper THEN IF ld_uqty * (1 + ld_uprate) + ld_upqty < lde_addqty + ld_consignedqty THEN rslt = 0 arg_msg = '物料:'+s_mx.mtrlcode+',申购单位:'+ls_unit_rq+',申购未完成数量:'+String(ld_uqty - ld_consignedqty,'#,##0.00######' )+',允许订货上限为:'+String(ld_uqty * (1 + ld_uprate) + ld_upqty - ld_consignedqty,'#,##0.00######')+',少于本次完成数量:'+String(lde_addqty,'#,##0.00######') GOTO ext END IF ELSE IF ld_uqty < lde_addqty + ld_consignedqty THEN rslt = 0 arg_msg = '物料:'+s_mx.mtrlcode+',申购单位:'+ls_unit_rq+',申购未完成数量:'+String(ld_uqty - ld_consignedqty,'#,##0.00######' )+',少于本次完成数量:'+String(lde_addqty,'#,##0.00######') IF ld_uprate > 0 Or ld_uprate > 0 THEN arg_msg += '~r~n你没有超申购的权限' END IF GOTO ext END IF END IF IF uo_option_update_rqmtrlqty_buy = 1 THEN IF s_mx.orderid > 0 And billtype = 0 THEN IF li_mtrlkind = 1 THEN arg_msg = '物料:'+s_mx.mtrlcode+',mrp属性设为不按计划,所以不能选择计划' rslt = 0 GOTO ext END IF Decimal ld_truerqqty ld_consignedqty = 0 SELECT sum(truerqqty),sum(consignedqty) INTO :ld_truerqqty,:ld_consignedqty FROM u_orderrqmtrl WHERE u_orderrqmtrl.orderid = :s_mx.orderid AND u_orderrqmtrl.scid = :scid AND u_orderrqmtrl.mtrlid = :s_mx.mtrlid AND u_orderrqmtrl.status = :s_mx.status AND u_orderrqmtrl.woodcode = :s_mx.woodcode AND u_orderrqmtrl.pcode = :s_mx.pcode AND u_orderrqmtrl.wrkgrpid = :s_mx.wrkgrpid and u_orderrqmtrl.plantype = 2 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询生产计划:'+s_mx.ordercode+',物料:'+s_mx.mtrlcode+'需求未安排数失败,'+commit_transaction.SQLErrText GOTO ext END IF //默认库存单位 lde_addqty = Round(s_mx.uqty * s_mx.rate,li_buydec) IF Not f_power_ind(1405,sys_msg_pow) Or sys_power_issuper THEN IF ld_truerqqty * (1 + ld_uprate) + ld_upqty < (lde_addqty + ld_consignedqty) THEN rslt = 0 arg_msg = '生产计划:'+s_mx.ordercode+',物料:'+s_mx.mtrlcode+'需求未安排数只有:'+String(ld_truerqqty - ld_consignedqty,'#,##0.0####' )+',允许订货上限为:'+String(ld_truerqqty * (1 + ld_uprate) + ld_upqty - ld_consignedqty,'#,##0.00##')+',少于本次完成数量:'+String(lde_addqty,'#,##0.00##') GOTO ext END IF ELSE IF lde_addqty > ld_truerqqty - ld_consignedqty THEN arg_msg = '生产计划:'+s_mx.ordercode+',物料:'+s_mx.mtrlcode+'需求未安排数只有:'+String(ld_truerqqty - ld_consignedqty,'#,##0.0####') + ',不能安排:'+String(lde_addqty,'#,##0.0####') IF ld_uprate > 0 Or ld_uprate > 0 THEN arg_msg += '~r~n你没有超申购的权限' END IF rslt = 0 GOTO ext END IF END IF END IF END IF END IF IF li_statusflag = 2 And Trim(s_mx.status) = '' THEN rslt = 0 arg_msg = '第'+String(s_mx.printid)+'行,物料:'+s_mx.mtrlcode+' 属于组合配置类型,但没有输入配置,请检查' GOTO ext END IF IF uo_sptprice.uof_check_limitprice(0,s_mx.mtrlid,s_mx.status,s_mx.woodcode,s_mx.pcode,s_mx.unit,s_mx.enprice * mrate * s_mx.rebate,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_buyprice_buytask_notlimit = 0 And li_iflimitprice = 1 THEN IF uo_sptprice.uof_check_price(0,sptid,s_mx.mtrlid,s_mx.mtrlcode,s_mx.unit,s_mx.status,s_mx.woodcode,s_mx.pcode,'',moneyid,s_mx.enprice * mrate * s_mx.rebate,requiredate,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF //查询合同号 Long ll_buybargainid, ll_buybargainprintid String ls_buybargaincode IF uo_sptprice.uof_getmtrlsptbuybargain(moneyid, sptid, s_mx.mtrlid,s_mx.unit,s_mx.status,s_mx.woodcode,s_mx.pcode,s_mx.jgdscrp,& ll_buybargainid, ll_buybargainprintid, ls_buybargaincode,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //查询最后一次收货价 String ls_lastcode DateTime ldt_lastdate Decimal lde_lastprice SELECT top 1 u_inware.inwarecode,u_inware.indate, u_inwaremx.uprice INTO :ls_lastcode,:ldt_lastdate,:lde_lastprice FROM u_inware INNER JOIN u_inwareMx ON u_inware.inwareid = u_inwareMx.inwareid WHERE u_inware.flag = 1 AND u_inware.thflag = 0 AND u_inwareMx.mtrlid = :s_mx.mtrlid AND u_inwareMx.unit = :s_mx.unit AND u_inwareMx.status = :s_mx.status AND u_inwareMx.woodcode = :s_mx.woodcode AND u_inwareMx.pcode = :s_mx.pcode AND u_inware.sptid = :sptid Order By u_inware.auditingdate Desc; IF sqlca.SQLCode <> 0 THEN lde_lastprice = 0 ls_lastcode = '' SetNull(ldt_lastdate) END IF IF IsNull(lde_lastprice) THEN lde_lastprice = 0 IF IsNull(ls_lastcode) THEN ls_lastcode = '' //IF IsNull(ldt_lastdate) THEN SetNull(ldt_lastdate) // IF Round(s_mx.uqty * s_mx.rate,li_buydec) = 0 THEN rslt = 0 arg_msg = '第'+String(s_mx.printid)+'行,转换成库存数量后数量为0,请检查~r~n' arg_msg += "采购数量:"+String(s_mx.uqty, '#,##0.#########')+",转换率:"+String(s_mx.rate, '#,##0.#########')+",保留小数位数:"+String(li_buydec, '##0') GOTO ext END IF FOR ls_i = 1 To it_mxbt //合并重复项 IF buytaskmx[ls_i].mtrlid = s_mx.mtrlid And & buytaskmx[ls_i].orderid = s_mx.orderid And & Date(buytaskmx[ls_i].requiredate) = Date(s_mx.requiredate) And & buytaskmx[ls_i].status = s_mx.status And & buytaskmx[ls_i].woodcode = s_mx.woodcode And & buytaskmx[ls_i].pcode = s_mx.pcode And & buytaskmx[ls_i].wrkgrpid = s_mx.wrkgrpid And & buytaskmx[ls_i].unit = s_mx.unit And & buytaskmx[ls_i].taskmxprintid = s_mx.taskmxprintid And & buytaskmx[ls_i].requestbuyid = s_mx.requestbuyid And & buytaskmx[ls_i].rqmxprintid = s_mx.rqmxprintid And & buytaskmx[ls_i].plancode = s_mx.plancode THEN buytaskmx[ls_i].uqty = buytaskmx[ls_i].uqty+s_mx.uqty buytaskmx[ls_i].qty = buytaskmx[ls_i].qty+Round(s_mx.uqty * s_mx.rate,li_buydec) rslt = 1 GOTO ext END IF NEXT //写入内容 it_mxbt++ buytaskmx[it_mxbt].iforder = s_mx.iforder buytaskmx[it_mxbt].orderid = s_mx.orderid buytaskmx[it_mxbt].ordercode = s_mx.ordercode buytaskmx[it_mxbt].mtrlid = s_mx.mtrlid buytaskmx[it_mxbt].uqty = s_mx.uqty buytaskmx[it_mxbt].qty = Round(s_mx.uqty * s_mx.rate,li_buydec) buytaskmx[it_mxbt].plprice = s_mx.planprice buytaskmx[it_mxbt].dscrp = s_mx.dscrp buytaskmx[it_mxbt].dscrp2 = s_mx.dscrp2 buytaskmx[it_mxbt].mtrlcode = s_mx.mtrlcode buytaskmx[it_mxbt].printid = s_mx.printid buytaskmx[it_mxbt].unit = s_mx.unit buytaskmx[it_mxbt].rate = s_mx.rate buytaskmx[it_mxbt].rebate = s_mx.rebate buytaskmx[it_mxbt].enprice = s_mx.enprice //单价-外币-采购单位 buytaskmx[it_mxbt].uprice = s_mx.enprice * mrate //单价-本位币-采购单位 buytaskmx[it_mxbt].fprice = Round((s_mx.enprice * s_mx.uqty * mrate)/(Round(s_mx.uqty * s_mx.rate,li_buydec)),10) //单价-本位币-库存单位 buytaskmx[it_mxbt].acprice = buytaskmx[it_mxbt].fprice * s_mx.rebate //折后单价-本位币-库存单位 buytaskmx[it_mxbt].requiredate = s_mx.requiredate buytaskmx[it_mxbt].status = s_mx.status buytaskmx[it_mxbt].woodcode = s_mx.woodcode buytaskmx[it_mxbt].pcode = s_mx.pcode buytaskmx[it_mxbt].storageid = s_mx.storageid buytaskmx[it_mxbt].tax = s_mx.tax billamt = billamt + Round(s_mx.enprice * s_mx.uqty * s_mx.rebate,2) buytaskmx[it_mxbt].requestbuyid = s_mx.requestbuyid buytaskmx[it_mxbt].rqmxprintid = s_mx.rqmxprintid buytaskmx[it_mxbt].relrqbuycode = ls_relrqbuycode buytaskmx[it_mxbt].wrkgrpid = s_mx.wrkgrpid buytaskmx[it_mxbt].taskmxprintid = s_mx.taskmxprintid IF uo_price.uof_getmtrlname(sptid,s_mx.mtrlid,ls_sptmtrlname,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF buytaskmx[it_mxbt].sptmtrlname = ls_sptmtrlname buytaskmx[it_mxbt].iffp = li_iffp buytaskmx[it_mxbt].outtype = li_outtype buytaskmx[it_mxbt].ifpackpro = li_ifpackpro buytaskmx[it_mxbt].plancode = s_mx.plancode buytaskmx[it_mxbt].buybargainid = ll_buybargainid buytaskmx[it_mxbt].buybargainprintid = ll_buybargainprintid buytaskmx[it_mxbt].buybargaincode = ls_buybargaincode buytaskmx[it_mxbt].jgdscrp = s_mx.jgdscrp buytaskmx[it_mxbt].lastcode = ls_lastcode buytaskmx[it_mxbt].lastdate = ldt_lastdate buytaskmx[it_mxbt].lastprice = lde_lastprice ext: IF rslt = 0 THEN p_clearmx() Destroy uo_sptprice Destroy uo_price Return(rslt) end function on uo_buytask.create call super::create TriggerEvent( this, "constructor" ) end on on uo_buytask.destroy TriggerEvent( this, "destructor" ) call super::destroy end on event constructor;String str_optionvalue,arg_msg f_get_sys_option_value('111',str_optionvalue,arg_msg) uo_option_requestbuy_hz = Long(str_optionvalue) f_get_sys_option_value('228',str_optionvalue,arg_msg) uo_option_if_oa_buytask = Long(str_optionvalue) f_get_sys_option_value('229',str_optionvalue,arg_msg) uo_option_if_oa_buytask_cp = Long(str_optionvalue) f_get_sys_option_value('423',str_optionvalue,arg_msg) uo_option_if_oa_buytask_dept = Long(str_optionvalue) f_get_sys_option_value('092',str_optionvalue,arg_msg) uo_option_buytask_cl_secaudit = Long(str_optionvalue) f_get_sys_option_value('093',str_optionvalue,arg_msg) uo_option_buytask_cp_secaudit = Long(str_optionvalue) f_get_sys_option_value('422',str_optionvalue,arg_msg) uo_option_buytask_dept_secaudit = Long(str_optionvalue) f_get_sys_option_value('010',str_optionvalue,arg_msg) uo_option_ifovertask = Long(str_optionvalue) f_get_sys_option_value('029',str_optionvalue,arg_msg) uo_option_change_status = str_optionvalue f_get_sys_option_value('027',str_optionvalue,arg_msg) uo_option_change_woodcode = str_optionvalue f_get_sys_option_value('028',str_optionvalue,arg_msg) uo_option_change_pcode = str_optionvalue f_get_sys_option_value('079',str_optionvalue,arg_msg) uo_option_buyprice_buytask_notlimit = Long(str_optionvalue) f_get_sys_option_value('023',str_optionvalue,arg_msg) uo_option_unit_dec = Long(str_optionvalue) f_get_sys_option_value('293',str_optionvalue,arg_msg) uo_option_disuse_buytask = Long(str_optionvalue) f_get_sys_option_value('342',str_optionvalue,arg_msg) uo_option_update_rqmtrlqty_buy = Long(str_optionvalue) end event