$PBExportHeader$uo_order_wfjg.sru forward global type uo_order_wfjg from nonvisualobject end type end forward global type uo_order_wfjg from nonvisualobject end type global uo_order_wfjg uo_order_wfjg type variables PUBLIC PROTECTEDWRITE Long scid PUBLIC PROTECTEDWRITE Long wfjgid PUBLIC PROTECTEDWRITE String taskcode PUBLIC PROTECTEDWRITE DateTime opdate PUBLIC PROTECTEDWRITE String operator PUBLIC PROTECTEDWRITE Int status PUBLIC PROTECTEDWRITE DateTime accomplishdate PUBLIC PROTECTEDWRITE String permit_emp PUBLIC PROTECTEDWRITE Long ctmint Long sptid String assign_emp string reason int billtype //0-正常;1-异常; 2-退回;4-返工;9-盘盈 DateTime requiredate String dscrp string relcode decimal dec_round = 2 //计算发出明细保留小数位, 取自外协订单界面 int caudit_checkauto int uo_option_wfjg_outmx,uo_option_autocreate_outware int uo_option_ifovertask,uo_option_2unit int uo_option_update_rqmtrlqty_wfjg Transaction commit_transaction PRIVATE: s_order_wfjgmx wfjgmx[] //明细结构数组 s_order_wfjgmx_out wfjgmx_out[],wfjghz_out[] //明细结构数组 Long it_mxbt = 0 //明细结构数组末指针 Long it_mxbt_out = 0 //明细结构数组末指针 long it_mxbt_out_hz = 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 newbegin (long arg_scid, ref string arg_msg) public function integer p_getinfo (long arg_scid, long arg_wfjgid, ref string arg_msg) public function integer getinfo (long arg_scid, long arg_wfjgid, ref string arg_msg) public function integer add_dscrp (long arg_scid, long arg_wfjgid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit) public function integer cancel (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit) public function integer cancelpermit (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit) public function integer checkmxmpl (long arg_scid, long arg_wfjgid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg) public function integer finishtask (integer arg_finishtype, long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit) public function integer firstpermit (long arg_scid, long arg_wfjgid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer tempstoptask (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit) public function integer trycmplbuytask (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit) public function integer updatebegin (long arg_scid, long arg_wfjgid, ref string arg_msg) public function integer checkmxmpl_out (long arg_scid, long arg_wfjgid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg) public function integer addmxcmpl_out (long arg_scid, long arg_wfjgid, long arg_mtrlid, long arg_orderid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer wasteqty (long arg_scid, decimal arg_wasteqty, long arg_wfjg_orderid, long arg_printid, string arg_mtrlcode, ref string arg_msg, boolean arg_ifcommit) public function integer addmxcmpl (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer stopqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, decimal arg_rewfjgqty, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit) public function integer uof_splitqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_splitqty, datetime arg_newdate, ref string arg_msg, boolean arg_ifcommit) public function integer stopqty_out (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx_out (integer arg_iforder, long arg_orderid, string arg_ordercode, long arg_mtrlid, decimal arg_qty, decimal arg_price, string arg_dscrp, string arg_mtrlcode, ref string arg_msg, long arg_printid, long arg_storageid, string arg_status, string arg_woodcode, string arg_pcode, string arg_unit, decimal arg_uqty, decimal arg_rate, long arg_relprintid, long arg_wrkgrpid) public function integer addmx_sptcheckqty (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer addmxcmpl_out (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer finishmx (long arg_scid, long arg_wfjgid, long arg_printid, ref string arg_msg, boolean arg_ifcommit) public function integer stopqty_out_mx (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, ref string arg_msg, boolean arg_ifcommit) public function integer addmxcmpl_out_mx (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer stopbuytask (long arg_scid, long arg_wfjgid, string arg_stopreason, 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_qty, decimal arg_price, string arg_dscrp, string arg_mtrlcode, ref string arg_msg, long arg_printid, datetime arg_requiredate, long arg_storageid, string arg_jgdscrp, string arg_status, string arg_woodcode, string arg_pcode, long arg_wrkgrpid, long arg_relwfjgid, long arg_relprintid, string arg_pfcode, string arg_unit, decimal arg_uqty, decimal arg_rate, decimal arg_taxrate, string arg_plancode, long arg_relwfjgid2, long arg_relprintid2) public function integer uof_add_thqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_thqty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_nonconsignedqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx (s_order_wfjgmx s_mx, ref string arg_msg) public function integer stopaddqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, decimal arg_rewfjgqty, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit) public function integer uof_chk_ware_outhz (long arg_row, ref string arg_msg) public function integer uof_create_outware_wfjg (long arg_scid, string arg_emp, ref string arg_msg) public function integer uof_destroy_outware_wfjg (ref string arg_msg) public function integer uof_add_order_acmpqty (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_order_stopqty (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) protected function integer uof_add_dstrqty (long arg_scid, long arg_wfjgid, long arg_printid, long arg_orderid, long arg_mtrlid, string arg_pfcode, decimal arg_buyqty, decimal arg_addqty, integer arg_type, ref string arg_msg, boolean arg_ifcommit) end prototypes public function integer p_reset ();//INT p_RESET() //清除对象及其明细 scid = 0 wfjgid = 0 taskcode = '' reason = '' operator = '' status = 0 it_newbegin = FALSE it_updatebegin = FALSE //清除明细 P_CLEARMX() RETURN 1 end function public function integer p_clearmx ();//INT p_clearmx() //清除明细 it_mxbt = 0 it_mxbt_out = 0 it_mxbt_out_hz = 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,j Long ls_newwfjgid DateTime server_datetime String ls_sccode Long ll_fp_array,ll_fp 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) IF uo_option_wfjg_outmx = -1000 THEN rslt = 0 arg_msg = '选项:[086]外协订单必须有发出明细,外协收货单必须有外协商库存明细,读取初始默认值失败,操作取消!' GOTO ext END IF IF IsNull(dscrp) THEN dscrp = '' IF IsNull(assign_emp) THEN assign_emp = '' IF IsNull(arg_operator) THEN arg_operator = '' IF IsNull(reason) THEN reason = '' //==================================================================== // script - save ( ref string arg_msg, boolean arg_ifcommit ) // reason: //-------------------------------------------------------------------- // modified by: yyx date: 2004.02.20 //-------------------------------------------------------------------- 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 IF billtype = 1 And reason = '' THEN rslt = 0 arg_msg = '请选择原因' 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 IF uo_option_wfjg_outmx = 1 And it_mxbt_out = 0 THEN rslt = 0 arg_msg = "没有正确的发出明细内容" GOTO ext END IF IF uo_option_wfjg_outmx = 1 THEN FOR i = 1 To it_mxbt FOR j = 1 To it_mxbt_out IF wfjgmx[i].printid = wfjgmx_out[j].relprintid THEN GOTO _next_check END IF NEXT rslt = 0 arg_msg = '收货明细第'+String(wfjgmx[i].printid)+'行,没有对应的发出明细,请检查' GOTO ext _next_check: NEXT FOR j = 1 To it_mxbt_out FOR i = 1 To it_mxbt IF wfjgmx[i].printid = wfjgmx_out[j].relprintid THEN GOTO _next_check2 END IF NEXT rslt = 0 arg_msg = '发出明细第'+String(wfjgmx[i].printid)+'行,没有对应的收货明细,请检查' GOTO ext _next_check2: NEXT END IF //必须选物料清单或计划 而且 必须有发出明细的 比较清单数量也必须相应; 2013-06-05 IF sys_option_wfjg_out_cmp = 1 And uo_option_wfjg_outmx = 1 THEN Long ll_mtrlid_in, ll_mtrlid_out Decimal lde_qty_in, lde_qty_out, lde_qty_out_pf String ls_pfcode Decimal lde_truerqqty_in_pf, lde_rqqty_out_pf, lde_sonscale Boolean lb_find = False FOR i = 1 To it_mxbt ll_mtrlid_in = wfjgmx[i].mtrlid lde_qty_in = wfjgmx[i].qty ls_pfcode = wfjgmx[i].pfcode lb_find = False FOR j = 1 To it_mxbt_out IF wfjgmx[i].printid = wfjgmx_out[j].relprintid THEN ll_mtrlid_out = wfjgmx_out[j].mtrlid lde_qty_out = wfjgmx_out[j].qty lde_qty_out_pf = 0 lb_find = True IF ll_mtrlid_in = ll_mtrlid_out THEN lde_qty_out_pf = lde_qty_in //返工类型, 发出物料和收货物料为同一种的,只检查数量关系 lde_sonscale = 1 ELSE IF wfjgmx[i].orderid > 0 THEN //查主计划 SELECT top 1 u_OrderRqMtrl_tree.truerqqty INTO :lde_truerqqty_in_pf FROM u_OrderRqMtrl_tree WHERE ( u_OrderRqMtrl_tree.scid = :scid) AND ( u_OrderRqMtrl_tree.orderid = :wfjgmx[i].orderid) AND ( u_OrderRqMtrl_tree.mtrlid = :ll_mtrlid_in ) And ( u_OrderRqMtrl_tree.pfcode = :ls_pfcode ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细行:'+String(wfjgmx[i].printid)+',查询对应的主计划运算结果资料失败,'+commit_transaction.SQLErrText GOTO ext END IF SELECT top 1 u_OrderRqMtrl_tree.rqqty, u_OrderRqMtrl_tree.sonscale INTO :lde_rqqty_out_pf, :lde_sonscale FROM u_OrderRqMtrl_tree WHERE ( u_OrderRqMtrl_tree.scid = :scid) AND ( u_OrderRqMtrl_tree.orderid = :wfjgmx[i].orderid) AND ( u_OrderRqMtrl_tree.pmtrlid = :ll_mtrlid_in ) AND ( u_OrderRqMtrl_tree.mtrlid = :ll_mtrlid_out ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细行:'+String(wfjgmx[i].printid)+',对应发出明细行:'+String(wfjgmx_out[j].printid)+',查询对应的主计划运算结果资料失败,'+commit_transaction.SQLErrText GOTO ext END IF IF lde_sonscale = 0 THEN lde_sonscale = lde_rqqty_out_pf / lde_truerqqty_in_pf END IF lde_qty_out_pf = Round(lde_qty_in * lde_sonscale, dec_round) ELSE SELECT :lde_qty_in * u_prdpf.Sonscale / (1 - u_PrdPF.sonloss) + u_PrdPF.SonDECLoss, u_prdpf.Sonscale INTO :lde_qty_out_pf, :lde_sonscale FROM u_PrdPF WHERE ( u_PrdPF.mtrlid = :ll_mtrlid_in ) AND ( u_PrdPF.sonmtrlid = :ll_mtrlid_out ) And ( u_prdpf.pfcode = :ls_pfcode ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细行:'+String(wfjgmx[i].printid)+',对应发出明细行:'+String(wfjgmx_out[j].printid)+',查询对应的物料清单资料失败,'+commit_transaction.SQLErrText GOTO ext END IF lde_qty_out_pf = Round(lde_qty_out_pf, dec_round) END IF END IF IF lde_qty_out <> lde_qty_out_pf THEN Decimal lde_tmprate if lde_sonscale = 1 then lde_tmprate = 0 else //临时,比例在99%以上的算正确 IF lde_qty_out > lde_qty_out_pf THEN lde_tmprate = lde_qty_out_pf / lde_qty_out ELSE lde_tmprate = lde_qty_out / lde_qty_out_pf END IF end if IF lde_tmprate < 0.99 THEN rslt = 0 arg_msg = '系统选项[086,253]限制收货明细与发出明细必须跟物料清单或主计划运算对应~r~n收货明细行'+String(wfjgmx[i].printid)+',对应发出明细行:'+String(wfjgmx_out[j].printid)+',数量比例与限制不相等,请检查' GOTO ext END IF END IF END IF NEXT IF Not lb_find THEN rslt = 0 arg_msg = '系统选项[086,253]限制收货明细与供应商库存明细必须跟物料清单或主计划运算对应~r~n收货明细行'+String(wfjgmx[i].printid)+',找不到对应的发出明细,请检查' GOTO ext END IF NEXT 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 wfjgid = 0 THEN //新建 ls_newwfjgid = f_sys_scidentity(scid,"u_order_wfjg","wfjgid",arg_msg,True,id_sqlca) //数据commit事务) IF ls_newwfjgid <= 0 THEN rslt = 0 ROLLBACK; 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 = 2 THEN taskcode = getid(scid,ls_sccode + 'WB',Date(server_datetime),False,commit_transaction) ELSEIF billtype = 4 THEN taskcode = getid(scid,ls_sccode + 'WD',Date(server_datetime),False,commit_transaction) ELSE //IF billtype = 0 Or billtype = 1 Or billtype = 9 THEN taskcode = getid(scid,ls_sccode + 'WJ',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_order_wfjg ( scid, wfjgid, taskcode, sptid, requiredate, status, opemp, assign_emp, permit_emp, dscrp, opdate, billtype, reason, relcode) VALUES ( :scid, :ls_newwfjgid, :taskcode, :sptid, :requiredate, :status, :operator, :assign_emp, :permit_emp, :dscrp, :opdate, :billtype, :reason, :relcode) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入外加工计划操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF wfjgid = ls_newwfjgid ELSE //////////////////////////////////////////////// //更新 UPDATE u_order_wfjg SET sptid = :sptid, requiredate = :requiredate, assign_emp = :assign_emp, dscrp = :dscrp, moddate = getdate(), modemp = :publ_operator, billtype = :billtype, reason = :reason, relcode = :relcode WHERE u_order_wfjg.wfjgid = :wfjgid And u_order_wfjg.scid = :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_order_wfjgmx WHERE u_order_wfjgmx.wfjgid = :wfjgid And u_order_wfjgmx.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,wfjgid,3) 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_order_wfjgmx_out_mx WHERE u_order_wfjgmx_out_mx.wfjgid = :wfjgid And u_order_wfjgmx_out_mx.scid = :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_order_wfjgmx_out WHERE u_order_wfjgmx_out.wfjgid = :wfjgid And u_order_wfjgmx_out.scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除旧有明细/计划出操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF FOR i = 1 To it_mxbt INSERT INTO u_order_wfjgmx ( scid, wfjgid, mtrlid, qty, price, rebate, dscrp, printid, requiredate, orderid, storageid, jgdscrp, status, iforder, woodcode, pcode, wrkgrpid, relwfjgid, relprintid, pfcode, relcode, unit, uqty, rate, taxrate, plancode, relwfjgid2, relprintid2, thtype) VALUES (:scid, :wfjgid, :wfjgmx[i].mtrlid, :wfjgmx[i].qty, :wfjgmx[i].price, :wfjgmx[i].rebate, :wfjgmx[i].dscrp, :wfjgmx[i].printid, :wfjgmx[i].requiredate, :wfjgmx[i].orderid, :wfjgmx[i].storageid, :wfjgmx[i].jgdscrp, :wfjgmx[i].status, :wfjgmx[i].iforder, :wfjgmx[i].woodcode, :wfjgmx[i].pcode, :wfjgmx[i].wrkgrpid, :wfjgmx[i].relwfjgid, :wfjgmx[i].relprintid, :wfjgmx[i].pfcode, :wfjgmx[i].relcode, :wfjgmx[i].unit, :wfjgmx[i].uqty, :wfjgmx[i].rate, :wfjgmx[i].taxrate, :wfjgmx[i].plancode, :wfjgmx[i].relwfjgid2, :wfjgmx[i].relprintid2, :wfjgmx[i].thtype) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN IF it_newbegin THEN wfjgid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF wfjgmx[i].iffp = 1 And wfjgmx[i].orderid > 0 THEN ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 0 s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 3 s_fp_plan.plankind_relbillid[ll_fp_array] = wfjgid s_fp_plan.plankind_relprintid[ll_fp_array] = wfjgmx[i].printid s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.relbillid[ll_fp_array] = wfjgmx[i].orderid s_fp_plan.relprintid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = wfjgmx[i].qty s_fp_plan.status[ll_fp_array] = wfjgmx[i].status s_fp_plan.woodcode[ll_fp_array] = wfjgmx[i].woodcode s_fp_plan.pcode[ll_fp_array] = wfjgmx[i].pcode END IF NEXT FOR j = 1 To it_mxbt_out INSERT INTO u_order_wfjgmx_out_mx ( scid, wfjgid, mtrlid, qty, price, dscrp, printid, storageid, status, woodcode, pcode, unit, uqty, rate, relprintid, wrkgrpid) VALUES (:scid, :wfjgid, :wfjgmx_out[j].mtrlid, :wfjgmx_out[j].qty, :wfjgmx_out[j].price, :wfjgmx_out[j].dscrp, :wfjgmx_out[j].printid, :wfjgmx_out[j].storageid, :wfjgmx_out[j].status, :wfjgmx_out[j].woodcode, :wfjgmx_out[j].pcode, :wfjgmx_out[j].unit, :wfjgmx_out[j].uqty, :wfjgmx_out[j].rate, :wfjgmx_out[j].relprintid, :wfjgmx_out[j].wrkgrpid ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN IF it_newbegin THEN wfjgid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入发出明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT FOR j = 1 To it_mxbt_out_hz INSERT INTO u_order_wfjgmx_out ( scid, qty, price, mtrlid, wfjgid, dscrp, printid, storageid, status, woodcode, pcode, unit, uqty, rate) VALUES (:scid, :wfjghz_out[j].qty, :wfjghz_out[j].price, :wfjghz_out[j].mtrlid, :wfjgid, :wfjghz_out[j].dscrp , :wfjghz_out[j].printid, :wfjghz_out[j].storageid, :wfjghz_out[j].status, :wfjghz_out[j].woodcode, :wfjghz_out[j].pcode, :wfjghz_out[j].unit, :wfjghz_out[j].uqty, :wfjghz_out[j].rate) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN IF it_newbegin THEN wfjgid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入发出汇总操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT 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 wfjgid = 0 GOTO ext END IF NEXT it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; p_clearmx() ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Destroy uo_fp_plan Destroy ds_fp_plan_del 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 p_getinfo (long arg_scid, long arg_wfjgid, ref string arg_msg);Int rslt = 1 SELECT wfjgID, TaskCode, sptID, requiredate, accomplishdate, Status, Opemp, Assign_Emp, Permit_Emp, Dscrp, opdate , billtype, reason , ctmint, relcode INTO :wfjgID, :TaskCode, :sptID, :requiredate, :accomplishdate, :Status, :Operator, :Assign_Emp, :Permit_Emp, :Dscrp, :opdate, :billtype, :reason, :ctmint, :relcode FROM u_order_wfjg WHERE u_order_wfjg.wfjgID = :arg_wfjgID And u_order_wfjg.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 getinfo (long arg_scid, long arg_wfjgid, ref string arg_msg);Int rslt = 1,i = 1,no_mxcheck = 0,j = 1,k = 1 IF arg_wfjgid <= 0 THEN rslt = 0 arg_msg = '错误外加工计划唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_wfjgid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //用游标读取明细 DECLARE cur_inwaermx CURSOR FOR SELECT u_order_wfjgmx.mtrlid, u_order_wfjgmx.qty, u_order_wfjgmx.price, u_order_wfjgmx.rebate, u_order_wfjgmx.dscrp, u_mtrldef.mtrlcode, u_order_wfjgmx.printid, u_order_wfjgmx.orderid, u_order_wfjgmx.storageid, u_order_wfjgmx.jgdscrp, u_order_wfjgmx.iforder, u_order_wfjgmx.status, u_order_wfjgmx.woodcode, u_order_wfjgmx.pcode, u_order_wfjgmx.wrkGrpid, u_order_wfjgmx.relwfjgid, u_order_wfjgmx.relprintid, u_order_wfjgmx.pfcode, u_order_wfjgmx.unit, u_order_wfjgmx.uqty, u_order_wfjgmx.rate, u_order_wfjgmx.taxrate, u_order_wfjgmx.plancode, u_order_wfjgmx.relwfjgid2, u_order_wfjgmx.relprintid2, u_order_wfjgmx.thtype FROM u_order_wfjgmx,u_mtrldef WHERE u_order_wfjgmx.wfjgid = :arg_wfjgid AND u_order_wfjgmx.scid = :arg_scid AND u_order_wfjgmx.mtrlid = u_mtrldef.mtrlid Using commit_transaction; OPEN cur_inwaermx; FETCH cur_inwaermx INTO :wfjgmx[i].mtrlid,:wfjgmx[i].qty,:wfjgmx[i].price,:wfjgmx[i].rebate, :wfjgmx[i].dscrp,:wfjgmx[i].mtrlcode, :wfjgmx[i].printid,:wfjgmx[i].orderid, :wfjgmx[i].storageid,:wfjgmx[i].jgdscrp,:wfjgmx[i].iforder, :wfjgmx[i].status,:wfjgmx[i].woodcode,:wfjgmx[i].pcode, :wfjgmx[i].wrkGrpid,:wfjgmx[i].relwfjgid, :wfjgmx[i].relprintid,:wfjgmx[i].pfcode, :wfjgmx[i].unit,:wfjgmx[i].uqty,:wfjgmx[i].rate,:wfjgmx[i].taxrate,:wfjgmx[i].plancode,:wfjgmx[i].relwfjgid2, :wfjgmx[i].relprintid2,:wfjgmx[i].thtype; DO WHILE commit_transaction.SQLCode = 0 i++ FETCH cur_inwaermx INTO :wfjgmx[i].mtrlid,:wfjgmx[i].qty,:wfjgmx[i].price,:wfjgmx[i].rebate, :wfjgmx[i].dscrp,:wfjgmx[i].mtrlcode, :wfjgmx[i].printid,:wfjgmx[i].orderid, :wfjgmx[i].storageid,:wfjgmx[i].jgdscrp,:wfjgmx[i].iforder, :wfjgmx[i].status,:wfjgmx[i].woodcode,:wfjgmx[i].pcode, :wfjgmx[i].wrkGrpid,:wfjgmx[i].relwfjgid, :wfjgmx[i].relprintid,:wfjgmx[i].pfcode, :wfjgmx[i].unit,:wfjgmx[i].uqty,:wfjgmx[i].rate,:wfjgmx[i].taxrate,:wfjgmx[i].plancode,:wfjgmx[i].relwfjgid2, :wfjgmx[i].relprintid2,:wfjgmx[i].thtype; LOOP CLOSE cur_inwaermx; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_order_wfjgmx WHERE u_order_wfjgmx.wfjgid = :arg_wfjgid And u_order_wfjgmx.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 // //用游标读取明细 DECLARE cur_inwaermx_out CURSOR FOR SELECT u_order_wfjgmx_out_mx.mtrlid, u_order_wfjgmx_out_mx.qty, u_order_wfjgmx_out_mx.price, u_order_wfjgmx_out_mx.dscrp, u_mtrldef.mtrlcode, u_mtrldef.unit, u_order_wfjgmx_out_mx.printid, u_order_wfjgmx_out_mx.storageid, u_order_wfjgmx_out_mx.status, u_order_wfjgmx_out_mx.woodcode, u_order_wfjgmx_out_mx.pcode, u_order_wfjgmx_out_mx.unit, u_order_wfjgmx_out_mx.uqty, u_order_wfjgmx_out_mx.rate, u_order_wfjgmx_out_mx.relprintid, u_order_wfjgmx_out_mx.wrkgrpid FROM u_order_wfjgmx_out_mx,u_mtrldef WHERE u_order_wfjgmx_out_mx.wfjgid = :arg_wfjgid AND u_order_wfjgmx_out_mx.scid = :arg_scid AND u_order_wfjgmx_out_mx.mtrlid = u_mtrldef.mtrlid Using commit_transaction; OPEN cur_inwaermx_out; FETCH cur_inwaermx_out INTO :wfjgmx_out[j].mtrlid,:wfjgmx_out[j].qty, :wfjgmx_out[j].price, :wfjgmx_out[j].dscrp,:wfjgmx_out[j].mtrlcode,:wfjgmx_out[j].unit_def, :wfjgmx_out[j].printid, :wfjgmx_out[j].storageid, :wfjgmx_out[j].status,:wfjgmx_out[j].woodcode, :wfjgmx_out[j].pcode,:wfjgmx_out[j].unit,:wfjgmx_out[j].uqty,:wfjgmx_out[j].rate,:wfjgmx_out[j].relprintid, :wfjgmx_out[j].wrkGrpid; DO WHILE commit_transaction.SQLCode = 0 j++ FETCH cur_inwaermx_out INTO :wfjgmx_out[j].mtrlid,:wfjgmx_out[j].qty, :wfjgmx_out[j].price, :wfjgmx_out[j].dscrp,:wfjgmx_out[j].mtrlcode,:wfjgmx_out[j].unit_def, :wfjgmx_out[j].printid, :wfjgmx_out[j].storageid, :wfjgmx_out[j].status,:wfjgmx_out[j].woodcode, :wfjgmx_out[j].pcode,:wfjgmx_out[j].unit,:wfjgmx_out[j].uqty,:wfjgmx_out[j].rate,:wfjgmx_out[j].relprintid, :wfjgmx_out[j].wrkGrpid; LOOP CLOSE cur_inwaermx_out; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_order_wfjgmx_out_mx WHERE u_order_wfjgmx_out_mx.wfjgid = :arg_wfjgid And u_order_wfjgmx_out_mx.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,外协计划发出明细数量" GOTO ext END IF IF j <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,外协计划发出明细" GOTO ext END IF it_mxbt_out = j - 1 // //用游标读取明细 DECLARE cur_out_hz CURSOR FOR SELECT u_order_wfjgmx_out.mtrlid, u_order_wfjgmx_out.qty, u_order_wfjgmx_out.price, u_order_wfjgmx_out.dscrp, u_mtrldef.mtrlcode, u_mtrldef.unit, u_order_wfjgmx_out.printid, u_order_wfjgmx_out.storageid, u_order_wfjgmx_out.status, u_order_wfjgmx_out.woodcode, u_order_wfjgmx_out.pcode, u_order_wfjgmx_out.unit, u_order_wfjgmx_out.uqty, u_order_wfjgmx_out.rate FROM u_order_wfjgmx_out,u_mtrldef WHERE u_order_wfjgmx_out.wfjgid = :arg_wfjgid AND u_order_wfjgmx_out.scid = :arg_scid AND u_order_wfjgmx_out.mtrlid = u_mtrldef.mtrlid Using commit_transaction; OPEN cur_out_hz; FETCH cur_out_hz INTO :wfjghz_out[k].mtrlid,:wfjghz_out[k].qty, :wfjghz_out[k].price, :wfjghz_out[k].dscrp,:wfjghz_out[k].mtrlcode,:wfjghz_out[k].unit_def, :wfjghz_out[k].printid, :wfjghz_out[k].storageid, :wfjghz_out[k].status,:wfjghz_out[k].woodcode, :wfjghz_out[k].pcode,:wfjghz_out[k].unit,:wfjghz_out[k].uqty,:wfjghz_out[k].rate; DO WHILE commit_transaction.SQLCode = 0 k++ FETCH cur_out_hz INTO :wfjghz_out[k].mtrlid,:wfjghz_out[k].qty, :wfjghz_out[k].price, :wfjghz_out[k].dscrp,:wfjghz_out[k].mtrlcode,:wfjghz_out[k].unit_def, :wfjghz_out[k].printid, :wfjghz_out[k].storageid, :wfjghz_out[k].status,:wfjghz_out[k].woodcode, :wfjghz_out[k].pcode,:wfjghz_out[k].unit,:wfjghz_out[k].uqty,:wfjghz_out[k].rate; LOOP CLOSE cur_out_hz; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_order_wfjgmx_out WHERE u_order_wfjgmx_out.wfjgid = :arg_wfjgid And u_order_wfjgmx_out.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,外协计划发出汇总数量"+commit_transaction.sqlerrtext GOTO ext END IF IF k <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,外协计划发出汇总" GOTO ext END IF it_mxbt_out_hz = k - 1 // it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer add_dscrp (long arg_scid, long arg_wfjgid, 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 arg_newdescppart = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF IF p_getinfo(arg_scid,arg_wfjgid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF status = 0 THEN rslt = 0 arG_MSG = "待审核状态下不可用" GOTO ext END IF UPDATE u_order_wfjg SET DSCRP = DSCRP+' '+:arg_newdescppart WHERE u_order_wfjg.wfjgid = :arg_wfjgid AND u_order_wfjg.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 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 cancel (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit);//删除未审核的订单 //0 FAIL, 1 SUCCESS Int rslt = 1 Long ll_fp 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_wfjgid <= 0 THEN rslt = 0 ARG_MSG = '错误外加工计划唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_wfjgid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 0 THEN rslt = 0 ARG_MSG = "外加工计划已经审核,不可以删除" GOTO ext END IF //删除原有分配计划明细 ds_fp_plan_del.Retrieve(arg_scid,arg_wfjgid,3) 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_order_wfjgMx WHERE u_order_wfjgMx.wfjgid = :arg_wfjgid And u_order_wfjgMx.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "删除外协订单收货明细操作失败"+"~n"+SQLCA.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF DELETE FROM u_order_wfjgMx_out WHERE u_order_wfjgMx_out.wfjgid = :arg_wfjgid And u_order_wfjgMx_out.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "删除外协订单发出明细操作失败"+"~n"+SQLCA.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF DELETE FROM u_order_wfjgMx_out_mx WHERE u_order_wfjgMx_out_mx.wfjgid = :arg_wfjgid And u_order_wfjgMx_out_mx.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "删除外协订单发出汇总操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF DELETE FROM u_order_wfjg WHERE u_order_wfjg.wfjgid = :arg_wfjgid And u_order_wfjg.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "删除外协订单操作失败"+"~n"+commit_transaction.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 cancelpermit (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 Long ll_i Long ll_lp,ll_k, ll_j, ll_m String ls_mtrlcode_out Decimal ld_costamt_out ,ld_qty_out,ld_cost_out Long ll_wrkgrpid_out,ll_mtrlid_out String ls_status_out,ls_woodcode_out,ls_pcode_out Decimal ld_overqty Long ll_workgroupid Long ll_cnt_order,ll_orderid,ll_wrkGrpid,ll_mtrlid,ll_row_f,ll_mtrlid_order Int li_ordertype_order,li_ifwfjgorder String ls_wrkgrpname DateTime nulldate SetNull(nulldate) IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_autocreate_outware = -1000 THEN rslt = 0 arg_msg = '选项:[087]外协订单审核自动生成仓库外协发出单,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_update_rqmtrlqty_wfjg = -1000 THEN rslt = 0 arg_msg = '选项:[343]外协订单审核检查并更新生产计划采购需求已订货数,读取初始默认值失败,操作取消!' GOTO ext END IF uo_order_ml uo_order uo_order = Create uo_order_ml uo_request_wfjg uo_wfjg uo_wfjg = Create uo_request_wfjg uo_wfjg.commit_transaction = sqlca datastore ds_rqwfjg ds_rqwfjg = Create datastore ds_rqwfjg.DataObject = 'ds_order_wfjg_request_wfjg_mxmx' ds_rqwfjg.SetTransObject(sqlca) datastore ds_mrpmx ds_mrpmx = Create datastore ds_mrpmx.DataObject = 'ds_order_ml_mrpmx' ds_mrpmx.SetTransObject(sqlca) IF arg_wfjgid <= 0 THEN rslt = 0 arg_msg = '错误外协计划唯一码' GOTO ext END IF IF getinfo(arg_scid,arg_wfjgid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF ctmint > 0 THEN arg_msg = '单据已截数,不能操作' rslt = 0 GOTO ext END IF IF billtype = 2 THEN //退回单,自动完成 IF Status = 5 THEN UPDATE u_order_wfjg SET Status = 1, accomplishdate = NULL, finishemp = '' WHERE wfjgid = :arg_wfjgid AND scid = :arg_scid And Status = 5 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "外协订单取消完成操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF Status = 1 END IF END IF IF Status <> 1 THEN rslt = 0 arg_msg = "外协计划只有在已审核状态才可以执行撤消审核，请核对" GOTO ext END IF IF caudit_checkauto = 0 And & Trim(dscrp) = '返工单审核自动生成的外协订单' THEN arg_msg = '该单据为返工单审核自动生成的外协订单,不能撤审' rslt = 0 GOTO ext END IF IF caudit_checkauto = 0 And & Trim(dscrp) = '盘盈单审核自动生成的外协订单' THEN arg_msg = '该单据为盘盈单审核自动生成的外协订单,不能撤审' rslt = 0 GOTO ext END IF SELECT count(*) INTO :cnt FROM ow_wfjgmx_in_aft WHERE ( ow_wfjgmx_in_aft.scid = :arg_scid ) And ( ow_wfjgmx_in_aft.relid = :arg_wfjgid ) 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_wfjgid AND u_sptcheck.scid = :arg_scid AND u_sptcheck.billtype = 1 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 IF uo_option_autocreate_outware = 1 THEN //如果使用订单自动生成发出单,则检查是否有非自动生成的发出单(原则上没有) SELECT count(*) INTO :cnt FROM ow_wfjgmx_out,ow_wfjg_out WHERE ( ow_wfjgmx_out.scid = :arg_scid ) AND ( ow_wfjgmx_out.relid = :arg_wfjgid ) AND (ow_wfjg_out.scid = ow_wfjgmx_out.scid) AND (ow_wfjg_out.outwareid = ow_wfjgmx_out.outwareid) And (ow_wfjg_out.relid <> :arg_wfjgid ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询外协计划是否已开发货单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ELSE SELECT count(*) INTO :cnt FROM ow_wfjgmx_out WHERE ( ow_wfjgmx_out.scid = :arg_scid ) And ( ow_wfjgmx_out.relid = :arg_wfjgid ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询外协计划是否已开发货单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF IF cnt > 0 THEN rslt = 0 arg_msg = "外加工计划已经有相关发出单据,不可以撤消审核" GOTO ext END IF //检查是否有退回类型的外协订单 SELECT count(*) INTO :cnt FROM u_order_wfjg INNER JOIN u_order_wfjgMx ON u_order_wfjg.scid = u_order_wfjgMx.scid AND u_order_wfjg.wfjgID = u_order_wfjgMx.wfjgID WHERE u_order_wfjg.scid = :arg_scid AND u_order_wfjgMx.relwfjgid2 = :arg_wfjgid AND u_order_wfjg.billtype = 2 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_order_wfjg SET Status = 0, permit_emp = '', permit_date = :nulldate WHERE wfjgid = :arg_wfjgid 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 uo_option_update_rqmtrlqty_wfjg = 1 THEN IF wfjgmx[ll_i].orderid > 0 THEN IF uo_order.f_assign_rqmtrlqty(scid,wfjgmx[ll_i].orderid,wfjgmx[ll_i].wrkGrpid,& wfjgmx[ll_i].mtrlid,wfjgmx[ll_i].mtrlcode,& wfjgmx[ll_i].Status,wfjgmx[ll_i].woodcode,& wfjgmx[ll_i].pcode,0 - wfjgmx[ll_i].qty,3,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF wfjgmx[ll_i].relwfjgid > 0 THEN //处理单位转换,确认完成数量 SELECT unit, rate INTO :ls_unit_rq, :lde_rate_rq FROM u_request_wfjgMx WHERE ( printid = :wfjgmx[ll_i].relprintid ) AND ( wfjgid = :wfjgmx[ll_i].relwfjgid ) And ( scid = :scid ); IF ls_unit_rq = wfjgmx[ll_i].unit THEN //单位相同, 直接用订单数量 lde_addqty = wfjgmx[ll_i].uqty ELSE //单位不同, 先转库存单位, 在转申购单位 lde_addqty = wfjgmx[ll_i].qty lde_addqty = lde_addqty / lde_rate_rq END IF IF billtype = 2 THEN IF wfjgmx[ll_i].thtype = 0 THEN //退回, 重新发出 //增加申请单退回数 IF uo_wfjg.uof_add_thqty(arg_scid,wfjgmx[ll_i].relwfjgid,wfjgmx[ll_i].relprintid,lde_addqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF ELSEIF billtype = 4 THEN //增加申请单返工数 IF uo_wfjg.uof_add_fgqty(arg_scid,wfjgmx[ll_i].relwfjgid,wfjgmx[ll_i].relprintid, 0 - lde_addqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF IF wfjgmx[ll_i].thtype = 0 THEN //退回, 重新发出 IF uo_wfjg.addmxcmpl(arg_scid,wfjgmx[ll_i].relwfjgid,wfjgmx[ll_i].relprintid, 0 - lde_addqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF uo_wfjg.trycmplwfjg(arg_scid,wfjgmx[ll_i].relwfjgid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //1.通过外协申请单,找到对应的主计划, 更新主计划的已领数 Dec lde_addqty_out_allow, lde_addqty_out_detrqty_allow, lde_addqty_out_ed, lde_sonscale Long ll_cnt_tree Decimal lde_addqty_allow, ld_qty, lde_addqty_ed IF wfjgmx[ll_i].iforder > 0 THEN lde_addqty_out_ed = 0 ll_cnt_order = ds_rqwfjg.Retrieve(arg_scid,wfjgmx[ll_i].relwfjgid,wfjgmx[ll_i].relprintid) // IF lde_addqty > 0 THEN // lde_addqty_ed = 0 // FOR ll_k = 1 To ll_cnt_order // ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k] // IF ll_orderid = 0 THEN CONTINUE // // SELECT ordertype,mtrlid,ifwforder, acmpqty // INTO :li_ordertype_order,:ll_mtrlid_order,:li_ifwfjgorder, :lde_addqty_allow // FROM u_order_ml // WHERE u_order_ml.scid = :scid // AND u_order_ml.orderid = :ll_orderid // Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '查询相关订单明细:'+String(wfjgmx[ll_i].printid)+',相关生产计划类型失败,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext // END IF // //更新外协主生产计划已进仓数 // If (li_ordertype_order = 3 Or li_ifwfjgorder = 1) And ll_mtrlid_order = wfjgmx[ll_i].mtrlid THEN // // IF lde_addqty_allow > 0 THEN // ld_qty = Min(lde_addqty - lde_addqty_ed, lde_addqty_allow) // lde_addqty_ed += ld_qty // // IF ld_qty > 0 THEN // // IF uo_order.addmxcmpl(scid,ll_orderid, 0 - ld_qty,arg_msg,False) = 0 THEN // arg_msg = '更新行:'+String(ll_i)+','+arg_msg // rslt = 0 // GOTO ext // END IF // // IF uo_order.tryfinishorder(scid,ll_orderid,arg_msg,False) = 0 THEN // arg_msg = '更新行:'+String(ll_i)+','+arg_msg // rslt = 0 // GOTO ext // END IF // END IF // END IF // END IF // NEXT // END IF //lde_addqty = 0 - lde_addqty IF lde_addqty > 0 THEN FOR ll_j = 1 To it_mxbt_out IF wfjgmx_out[ll_j].relprintid = wfjgmx[ll_i].printid THEN FOR ll_k = 1 To ll_cnt_order ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k] IF ll_orderid = 0 THEN CONTINUE ll_cnt_tree = ds_mrpmx.Retrieve(arg_scid,ll_orderid) ll_row_f = ds_mrpmx.Find("u_orderrqmtrl_tree_mtrlid = "+String(wfjgmx[ll_i].mtrlid),1,ds_mrpmx.RowCount()) IF ll_row_f > 0 THEN ll_lp = ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_row_f] FOR ll_m = ll_row_f + 1 To ds_mrpmx.RowCount() IF ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_m] <= ll_lp THEN EXIT IF ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_m] = ll_lp + 1 & And ds_mrpmx.Object.u_orderrqmtrl_tree_rqqty[ll_m] > 0 & And ds_mrpmx.Object.u_orderrqmtrl_tree_mtrlid[ll_m] = wfjgmx_out[ll_j].mtrlid THEN ls_mtrlcode_out = ds_mrpmx.Object.u_mtrldef_mtrlcode[ll_m] ll_wrkgrpid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_wrkgrpid[ll_m] ll_mtrlid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_mtrlid[ll_m] ls_status_out = ds_mrpmx.Object.u_orderrqmtrl_tree_status[ll_m] ls_woodcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_woodcode[ll_m] ls_pcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_pcode[ll_m] lde_sonscale = ds_mrpmx.Object.u_orderrqmtrl_tree_sonscale[ll_m] IF lde_sonscale = 0 THEN lde_sonscale = ds_mrpmx.Object.u_orderrqmtrl_tree_rqqty[ll_m] / ds_mrpmx.Object.u_orderrqmtrl_tree_truerqqty[ll_row_f] END IF //找有多少未完成数, 分配完成 SELECT sum(dstrqty) INTO :lde_addqty_out_detrqty_allow FROM u_orderrqmtrl WHERE scid = :arg_scid AND orderid = :ll_orderid AND mtrlid = :ll_mtrlid_out AND status = :ls_status_out AND woodcode = :ls_woodcode_out AND pcode = :ls_pcode_out And dstrqty > 0; IF sqlca.SQLCode <> 0 THEN lde_addqty_out_allow = 0 lde_addqty_out_detrqty_allow = 0 END IF IF lde_addqty_out_detrqty_allow > 0 THEN ld_qty_out = Min(Round(lde_addqty * lde_sonscale,dec_round) - lde_addqty_out_ed, lde_addqty_out_detrqty_allow) lde_addqty_out_ed += ld_qty_out IF ld_qty_out <> 0 THEN // SELECT top 1 cost INTO :ld_cost_out FROM ow_wfjgware WHERE sptid = :sptid AND mtrlid = :ll_mtrlid_out AND status = :ls_status_out AND woodcode = :ls_woodcode_out AND pcode = :ls_pcode_out AND scid = :scid Order By cost Desc Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ld_cost_out = 0 END IF ld_costamt_out = ld_qty_out * ld_cost_out IF ll_wrkgrpid_out > 0 THEN SELECT wrkgrpname INTO :ls_wrkgrpname FROM u_sc_workgroup Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询领用工组信息失败,'+commit_transaction.SQLErrText GOTO ext END IF SELECT TOP 1 workgroupid INTO :ll_workgroupid FROM u_workgroup Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询领用工组 '+ls_wrkgrpname+' 相关的工作中心失败,可能是工组没有设置对应的工作中心,请检查'+commit_transaction.SQLErrText GOTO ext END IF ELSE ll_workgroupid = 0 END IF IF uo_order.f_add_dstrqty(scid,ll_orderid,ll_workgroupid,ll_mtrlid_out,ls_mtrlcode_out,ls_status_out,ls_woodcode_out,ls_pcode_out,0 - ld_qty_out,0 - ld_costamt_out,arg_msg,False,-1,ld_overqty) = 0 THEN arg_msg = '相关订单明细:'+String(wfjgmx[ll_i].printid)+',更新生产计划已领数失败,'+arg_msg rslt = 0 GOTO ext END IF END IF END IF END IF IF Abs(Round(lde_addqty * lde_sonscale,dec_round)) = Abs(lde_addqty_out_ed) THEN EXIT NEXT IF Abs(Round(lde_addqty * lde_sonscale,dec_round)) = Abs(lde_addqty_out_ed) THEN EXIT END IF NEXT END IF NEXT END IF //IF lde_addqty > 0 THEN END IF //IF wfjgmx[ll_i].iforder > 0 THEN END IF //IF wfjgmx[ll_i].thtype = 0 THEN //退回, 重新发出 END IF //IF wfjgmx[ll_i].relwfjgid > 0 THEN //处理退回类型的对应订单退回数 IF wfjgmx[ll_i].relwfjgid2 > 0 And wfjgmx[ll_i].relprintid2 > 0 THEN // wfjgmx[ll_i].qty < 0 IF wfjgmx[ll_i].thtype = 0 THEN //退回, 重新发出 IF uof_add_thqty(arg_scid, wfjgmx[ll_i].relwfjgid2, wfjgmx[ll_i].relprintid2,wfjgmx[ll_i].mtrlcode, wfjgmx[ll_i].qty,arg_msg, False) = 0 THEN arg_msg = '更新行:'+String(ll_i)+','+arg_msg rslt = 0 GOTO ext END IF ELSE //退回,终止收货 IF stopaddqty(arg_scid, wfjgmx[ll_i].relwfjgid2, wfjgmx[ll_i].relprintid2,wfjgmx[ll_i].mtrlcode, wfjgmx[ll_i].qty,0,'取消终止收货',arg_msg, False) = 0 THEN arg_msg = '更新行:'+String(ll_i)+','+arg_msg rslt = 0 GOTO ext END IF END IF END IF NEXT //撤审并删除自动生成的仓库外协发出单 IF uof_destroy_outware_wfjg( arg_msg) = 0 THEN rslt = 0 GOTO ext END IF it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Destroy uo_order Destroy ds_rqwfjg Destroy ds_mrpmx p_reset() Return (rslt) end function public function integer checkmxmpl (long arg_scid, long arg_wfjgid, 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_wfjgid <= 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_wfjgid,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_order_wfjgMx.Qty, u_order_wfjgMx.consignedqty, u_mtrldef.mtrlcode INTO :ls_buyQty, :ls_assignQty, :ls_mtrlcode FROM u_order_wfjgMx ,u_mtrldef WHERE ( u_order_wfjgMx.wfjgid = :arg_wfjgid ) AND ( u_order_wfjgMx.scid = :arg_scid ) AND ( u_order_wfjgMx.MtrlID = :arg_mtrlid ) AND ( u_mtrldef.MtrlID = u_order_wfjgMx.MtrlID ) 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 finishtask (integer arg_finishtype, long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0, i DateTime null_dt SetNull(null_dt) IF arg_wfjgid <= 0 THEN rslt = 0 ARG_MSG = '错误外加工计划唯一码' GOTO ext END IF IF getinfo(arg_scid,arg_wfjgid,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_order_wfjg SET status = :arg_finishtype, accomplishdate = getdate(), finishemp = :publ_operator WHERE ( u_order_wfjg.wfjgid = :arg_wfjgid ) And ( u_order_wfjg.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_order_wfjg SET status = :arg_finishtype, accomplishdate = :null_dt, finishemp = '' WHERE ( u_order_wfjg.wfjgid = :arg_wfjgid ) And ( u_order_wfjg.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_wfjgid, wfjgmx[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 firstpermit (long arg_scid, long arg_wfjgid, string arg_emp, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1 Long cnt = 0 Long ll_i,ll_0_mtrlwareid Int li_thflag Long ll_lp,ll_k, ll_j, ll_m String ls_mtrlcode_out Decimal ld_costamt_out ,ld_qty_out,ld_cost_out Long ll_wrkgrpid_out,ll_mtrlid_out String ls_status_out,ls_woodcode_out,ls_pcode_out Decimal ld_overqty Long ll_workgroupid Long ll_cnt_order,ll_orderid,ll_wrkGrpid,ll_mtrlid,ll_row_f,ll_mtrlid_order Int li_ordertype_order,li_ifwfjgorder String ls_wrkgrpname String ls_unit Decimal ld_rate IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_autocreate_outware = -1000 THEN rslt = 0 arg_msg = '选项:[087]外协订单审核自动生成仓库外协发出单,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_update_rqmtrlqty_wfjg = -1000 THEN rslt = 0 arg_msg = '选项:[343]外协订单审核检查并更新生产计划采购需求已订货数,读取初始默认值失败,操作取消!' GOTO ext END IF uo_request_wfjg uo_wfjg uo_wfjg = Create uo_request_wfjg uo_wfjg.commit_transaction = sqlca uo_order_ml uo_order uo_order = Create uo_order_ml datastore ds_rqwfjg ds_rqwfjg = Create datastore ds_rqwfjg.DataObject = 'ds_order_wfjg_request_wfjg_mxmx' ds_rqwfjg.SetTransObject(sqlca) datastore ds_mrpmx ds_mrpmx = Create datastore ds_mrpmx.DataObject = 'ds_order_ml_mrpmx' ds_mrpmx.SetTransObject(sqlca) IF arg_wfjgid <= 0 THEN rslt = 0 arg_msg = '错误外协订单唯一码' GOTO ext END IF IF getinfo(arg_scid,arg_wfjgid,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_order_wfjg SET Permit_Emp = :arg_emp, Permit_date = getdate(), Status = 1 WHERE wfjgid = :arg_wfjgid 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 String ls_unit_rq Decimal lde_rate_rq, lde_addqty FOR ll_i = 1 To it_mxbt //更新主计划 外协需求已订货数 IF uo_option_update_rqmtrlqty_wfjg = 1 THEN IF wfjgmx[ll_i].orderid > 0 THEN IF uo_order.f_assign_rqmtrlqty(scid,wfjgmx[ll_i].orderid,wfjgmx[ll_i].wrkGrpid,& wfjgmx[ll_i].mtrlid,wfjgmx[ll_i].mtrlcode,wfjgmx[ll_i].Status,& wfjgmx[ll_i].woodcode,wfjgmx[ll_i].pcode,wfjgmx[ll_i].qty,3,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF //更新外协申请单已订货数 IF wfjgmx[ll_i].relwfjgid > 0 THEN Dec lde_thqty, lde_fgqty //处理单位转换,确认完成数量 SELECT unit, rate INTO :ls_unit_rq, :lde_rate_rq FROM u_request_wfjgMx WHERE ( printid = :wfjgmx[ll_i].relprintid ) AND ( wfjgid = :wfjgmx[ll_i].relwfjgid ) And ( scid = :scid ) Using commit_transaction; IF ls_unit_rq = wfjgmx[ll_i].unit THEN //单位相同, 直接用订单数量 lde_addqty = wfjgmx[ll_i].uqty ELSE //单位不同, 先转库存单位, 在转申购单位 lde_addqty = wfjgmx[ll_i].qty lde_addqty = lde_addqty / lde_rate_rq END IF IF billtype = 2 THEN //增加申请单退回数 IF wfjgmx[ll_i].thtype = 0 THEN //退回, 重新发出 IF uo_wfjg.uof_add_thqty(arg_scid,wfjgmx[ll_i].relwfjgid,wfjgmx[ll_i].relprintid, 0 - lde_addqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF ELSEIF billtype = 4 THEN //增加申请单返工数 IF uo_wfjg.uof_add_fgqty(arg_scid,wfjgmx[ll_i].relwfjgid,wfjgmx[ll_i].relprintid, lde_addqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF IF wfjgmx[ll_i].thtype = 0 THEN // 退回, 终止收货的 除外 IF uo_wfjg.addmxcmpl(arg_scid,wfjgmx[ll_i].relwfjgid,wfjgmx[ll_i].relprintid,& lde_addqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //尝试自动完成申请单 IF uo_wfjg.trycmplwfjg(arg_scid,wfjgmx[ll_i].relwfjgid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //1.通过外协申请单,找到对应的主计划, 更新主计划的已领数 Dec lde_addqty_out_allow, lde_addqty_out_detrqty_allow, lde_addqty_out_ed, lde_sonscale Long ll_cnt_tree Decimal lde_addqty_allow, ld_qty, lde_addqty_ed IF wfjgmx[ll_i].iforder > 0 THEN lde_addqty_out_ed = 0 ll_cnt_order = ds_rqwfjg.Retrieve(arg_scid,wfjgmx[ll_i].relwfjgid,wfjgmx[ll_i].relprintid) // IF lde_addqty > 0 THEN // lde_addqty_ed = 0 // FOR ll_k = 1 To ll_cnt_order // ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k] // IF ll_orderid = 0 THEN CONTINUE // // SELECT ordertype,mtrlid,ifwforder, orderqty - acmpqty - stopqty // INTO :li_ordertype_order,:ll_mtrlid_order,:li_ifwfjgorder, :lde_addqty_allow // FROM u_order_ml // WHERE u_order_ml.scid = :scid // AND u_order_ml.orderid = :ll_orderid // Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '查询相关订单明细:'+String(wfjgmx[ll_i].printid)+',相关生产计划类型失败,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext // END IF // //更新外协主生产计划已进仓数 // If (li_ordertype_order = 3 Or li_ifwfjgorder = 1) And ll_mtrlid_order = wfjgmx[ll_i].mtrlid THEN // // IF lde_addqty_allow > 0 THEN // ld_qty = Min(lde_addqty - lde_addqty_ed, lde_addqty_allow) // lde_addqty_ed += ld_qty // // IF ld_qty > 0 THEN // IF uo_order.addmxcmpl(scid,ll_orderid,ld_qty,arg_msg,False) = 0 THEN // arg_msg = '更新行:'+String(ll_i)+','+arg_msg // rslt = 0 // GOTO ext // END IF // // IF uo_order.tryfinishorder(scid,ll_orderid,arg_msg,False) = 0 THEN // arg_msg = '更新行:'+String(ll_i)+','+arg_msg // rslt = 0 // GOTO ext // END IF // END IF // END IF // END IF // NEXT // END IF //更新对应主计划的已领数 IF lde_addqty > 0 THEN FOR ll_j = 1 To it_mxbt_out IF wfjgmx_out[ll_j].relprintid = wfjgmx[ll_i].printid THEN FOR ll_k = 1 To ll_cnt_order ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k] IF ll_orderid = 0 THEN CONTINUE ll_cnt_tree = ds_mrpmx.Retrieve(arg_scid,ll_orderid) ll_row_f = ds_mrpmx.Find("u_orderrqmtrl_tree_mtrlid = "+String(wfjgmx[ll_i].mtrlid),1,ds_mrpmx.RowCount()) IF ll_row_f > 0 THEN ll_lp = ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_row_f] FOR ll_m = ll_row_f + 1 To ds_mrpmx.RowCount() IF ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_m] <= ll_lp THEN EXIT IF ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_m] = ll_lp + 1 & And ds_mrpmx.Object.u_orderrqmtrl_tree_rqqty[ll_m] > 0 & And ds_mrpmx.Object.u_orderrqmtrl_tree_mtrlid[ll_m] = wfjgmx_out[ll_j].mtrlid THEN ls_mtrlcode_out = ds_mrpmx.Object.u_mtrldef_mtrlcode[ll_m] ll_wrkgrpid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_wrkgrpid[ll_m] ll_mtrlid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_mtrlid[ll_m] ls_status_out = ds_mrpmx.Object.u_orderrqmtrl_tree_status[ll_m] ls_woodcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_woodcode[ll_m] ls_pcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_pcode[ll_m] lde_sonscale = ds_mrpmx.Object.u_orderrqmtrl_tree_sonscale[ll_m] IF lde_sonscale = 0 THEN lde_sonscale = ds_mrpmx.Object.u_orderrqmtrl_tree_rqqty[ll_m] / ds_mrpmx.Object.u_orderrqmtrl_tree_truerqqty[ll_row_f] END IF //找有多少未完成数, 分配完成 SELECT sum(rqqty - dstrqty) , sum(dstrqty) INTO :lde_addqty_out_allow, :lde_addqty_out_detrqty_allow FROM u_orderrqmtrl WHERE scid = :arg_scid AND orderid = :ll_orderid AND mtrlid = :ll_mtrlid_out AND status = :ls_status_out AND woodcode = :ls_woodcode_out AND pcode = :ls_pcode_out And rqqty > dstrqty ; IF sqlca.SQLCode <> 0 THEN lde_addqty_out_allow = 0 lde_addqty_out_detrqty_allow = 0 END IF IF lde_addqty_out_allow > 0 THEN ld_qty_out = Min(Round(lde_addqty * lde_sonscale,dec_round) - lde_addqty_out_ed, lde_addqty_out_allow) lde_addqty_out_ed += ld_qty_out IF ld_qty_out <> 0 THEN // SELECT top 1 cost INTO :ld_cost_out FROM ow_wfjgware WHERE sptid = :sptid AND mtrlid = :ll_mtrlid_out AND status = :ls_status_out AND woodcode = :ls_woodcode_out AND pcode = :ls_pcode_out AND scid = :scid Order By cost Desc Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ld_cost_out = 0 END IF ld_costamt_out = ld_qty_out * ld_cost_out IF ll_wrkgrpid_out > 0 THEN SELECT wrkgrpname INTO :ls_wrkgrpname FROM u_sc_workgroup Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询领用工组信息失败,'+commit_transaction.SQLErrText GOTO ext END IF SELECT TOP 1 workgroupid INTO :ll_workgroupid FROM u_workgroup Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询领用工组 '+ls_wrkgrpname+' 相关的工作中心失败,可能是工组没有设置对应的工作中心,请检查'+commit_transaction.SQLErrText GOTO ext END IF ELSE ll_workgroupid = 0 END IF IF uo_order.f_add_dstrqty(scid,ll_orderid,ll_workgroupid,ll_mtrlid_out,ls_mtrlcode_out,ls_status_out,ls_woodcode_out,ls_pcode_out,ld_qty_out,ld_costamt_out,arg_msg,False,-1,ld_overqty) = 0 THEN arg_msg = '相关订单明细:'+String(wfjgmx[ll_i].printid)+',更新生产计划已领数失败,'+arg_msg rslt = 0 GOTO ext END IF END IF END IF END IF IF Abs(Round(lde_addqty * lde_sonscale,dec_round)) = Abs(lde_addqty_out_ed) THEN EXIT //如果系1:N时是有问题的 NEXT IF Abs(Round(lde_addqty * lde_sonscale,dec_round)) = Abs(lde_addqty_out_ed) THEN EXIT END IF NEXT END IF NEXT END IF //IF lde_addqty > 0 THEN END IF //if wfjgmx[ll_i].thtype = 0 then END IF //IF wfjgmx[ll_i].iforder > 0 THEN END IF //IF wfjgmx[ll_i].relwfjgid > 0 THEN //处理退回类型的对应外协订单退回数 IF wfjgmx[ll_i].relwfjgid2 > 0 And wfjgmx[ll_i].relprintid2 > 0 THEN // wfjgmx[ll_i].qty < 0 IF wfjgmx[ll_i].thtype = 0 THEN //退回, 重新发出 IF uof_add_thqty(arg_scid, wfjgmx[ll_i].relwfjgid2, wfjgmx[ll_i].relprintid2,wfjgmx[ll_i].mtrlcode, 0 - wfjgmx[ll_i].qty,arg_msg, False) = 0 THEN arg_msg = '更新行:'+String(ll_i)+','+arg_msg rslt = 0 GOTO ext END IF ELSE //退回,终止收货 IF stopaddqty(arg_scid, wfjgmx[ll_i].relwfjgid2, wfjgmx[ll_i].relprintid2,wfjgmx[ll_i].mtrlcode, 0 - wfjgmx[ll_i].qty,0,'终止收货',arg_msg, False) = 0 THEN arg_msg = '更新行:'+String(ll_i)+','+arg_msg rslt = 0 GOTO ext END IF END IF END IF NEXT //==================================================================== // 按外协订单发出明细内容自动建立 IF uof_create_outware_wfjg(arg_scid, arg_emp, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF billtype = 2 THEN //退回单,自动完成 UPDATE u_order_wfjg SET Status = 5, accomplishdate = getdate(), finishemp = :publ_operator WHERE wfjgid = :arg_wfjgid AND scid = :arg_scid And Status = 1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "外协订单完成操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF Status = 5 END IF ////////////// // it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Destroy uo_order //Destroy uo_ware Destroy ds_rqwfjg p_reset() Return (rslt) end function public function integer tempstoptask (long arg_scid, long arg_wfjgid, ref string arg_msg, boolean arg_ifcommit);INT rslt=1,cnt=0 IF arg_wfjgid<=0 THEN rslt=0 ARG_MSG='错误外加工计划唯一码' goto ext end if if p_getinfo(arg_scid,arg_wfjgid,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_order_wfjg SET Status = 2 , stopemp=:publ_operator WHERE wfjgid = :arg_wfjgid 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_order_wfjg SET Status = 1,stopemp='' WHERE wfjgid = :arg_wfjgid 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 and rslt = 1 then COMMIT using commit_transaction; end if p_reset() return (rslt) end function public function integer trycmplbuytask (long arg_scid, long arg_wfjgid, 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_wfjgid <= 0 THEN rslt = 0 arg_msg = '错误外加工计划唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_wfjgid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 AND status <> 5 THEN rslt = 1 IF status <> 1 THEN arg_msg = "外加工计划只有在进行状态下才可以执行设完成状态" ELSEIF status <> 5 THEN arg_msg = "外加工计划只有在完成状态下才可以执行撤消完成状态" END IF GOTO ext END IF Decimal ls_zerook Boolean if_finish if_finish = TRUE DECLARE zero_cur CURSOR FOR SELECT u_order_wfjgMx.qty * (1 - u_mtrldef.downrate) - u_order_wfjgMx.consignedqty - u_order_wfjgMx.wasteqty - u_order_wfjgMx.stopqty - u_order_wfjgMx.thqty FROM u_order_wfjgMx,u_mtrldef WHERE ( u_order_wfjgMx.wfjgid = :arg_wfjgid ) AND ( u_order_wfjgMx.scid = :arg_scid ) AND ( u_order_wfjgMx.stopflag = 0 ) and ( u_order_wfjgMx.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_order_wfjg SET status = 5, accomplishdate = getdate(), finishemp = :publ_operator WHERE ( u_order_wfjg.wfjgid = :arg_wfjgid ) And ( u_order_wfjg.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 IF status = 5 AND NOT if_finish THEN UPDATE u_order_wfjg SET status = 1, accomplishdate = :null_dt, finishemp = '' WHERE ( u_order_wfjg.wfjgid = :arg_wfjgid ) And ( u_order_wfjg.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 AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer updatebegin (long arg_scid, long arg_wfjgid, ref string arg_msg);//UPDATEbegin(long arg_taskid,ref string arg_msg) //从置对象,设定业务类型与关联ID,准备更新进仓单 //0 fail 1 success Long rslt = 1,CNT = 0 IF arg_wfjgid <= 0 THEN rslt = 0 ARG_MSG = '错误外加工计划唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_wfjgid,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() //清除明细 ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer checkmxmpl_out (long arg_scid, long arg_wfjgid, 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_wfjgid <= 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_wfjgid,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_order_wfjgMx_out.Qty, u_order_wfjgMx_out.consignedqty, u_mtrldef.mtrlcode INTO :ls_buyQty, :ls_assignQty, :ls_mtrlcode FROM u_order_wfjgMx_out ,u_mtrldef WHERE ( u_order_wfjgMx_out.wfjgid = :arg_wfjgid ) AND ( u_order_wfjgMx_out.scid = :arg_scid ) AND ( u_order_wfjgMx_out.MtrlID = :arg_mtrlid ) AND ( u_mtrldef.MtrlID = u_order_wfjgMx_out.MtrlID ) 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 addmxcmpl_out (long arg_scid, long arg_wfjgid, long arg_mtrlid, long arg_orderid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 String ls_mtrlcode Long ll_printid SELECT u_order_wfjgMx_out.printid INTO :ll_printid FROM u_order_wfjgMx_out WHERE ( u_order_wfjgMx_out.wfjgid = :arg_wfjgid ) AND ( u_order_wfjgMx_out.scid = :arg_scid ) AND ( u_order_wfjgMx_out.mtrlid = :arg_mtrlid ) AND ( u_order_wfjgMx_out.status = :arg_status ) AND ( u_order_wfjgMx_out.woodcode = :arg_woodcode ) AND ( u_order_wfjgMx_out.pcode = :arg_pcode ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误物料编码["+ls_mtrlcode+"]导致查询外加工计划已完成数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF addmxcmpl_out(arg_scid, arg_wfjgid, ll_printid, arg_addqty, arg_msg, arg_ifcommit) = 0 THEN rslt = 0 GOTO ext END IF ext: RETURN rslt //IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN // rslt = 0 // GOTO ext //END IF // //IF arg_wfjgid <= 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_wfjgid,arg_msg) = 0 THEN // rslt = 0 // GOTO ext //END IF //Decimal ls_buyqty,ls_consignedqty //SELECT mtrlcode INTO :ls_mtrlcode FROM u_mtrldef // WHERE mtrlid = :arg_mtrlid // USING commit_transaction; //IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询物料资料失败' // GOTO ext //END IF // // // //SELECT u_order_wfjgMx_out.qty, // u_order_wfjgMx_out.consignedqty + u_order_wfjgMx_out.stopqty // INTO :ls_buyqty, // :ls_consignedqty // FROM u_order_wfjgMx_out // WHERE ( u_order_wfjgMx_out.wfjgid = :arg_wfjgid ) AND // ( u_order_wfjgMx_out.scid = :arg_scid ) AND // ( u_order_wfjgMx_out.mtrlid = :arg_mtrlid ) AND // ( u_order_wfjgMx_out.status = :arg_status ) AND // ( u_order_wfjgMx_out.woodcode = :arg_woodcode ) AND // ( u_order_wfjgMx_out.pcode = :arg_pcode ) 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_consignedqty + arg_addqty THEN // rslt = 0 // arg_msg = "物料["+ls_mtrlcode+"]的未完成数量只有"+String(ls_buyqty - ls_consignedqty,'#,##0.0###')+",不能发出"+String(arg_addqty,'#,##0.0#') // GOTO ext //END IF // //UPDATE u_order_wfjgMx_out // SET consignedqty = consignedqty + :arg_addqty // WHERE ( u_order_wfjgMx_out.wfjgid = :arg_wfjgid ) AND // ( u_order_wfjgMx_out.scid = :arg_scid ) AND // ( u_order_wfjgMx_out.mtrlid = :arg_mtrlid ) AND // ( u_order_wfjgMx_out.status = :arg_status ) AND // ( u_order_wfjgMx_out.woodcode = :arg_woodcode ) AND // ( u_order_wfjgMx_out.pcode = :arg_pcode ) USING commit_transaction; //IF sqlca.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 and rslt = 1 THEN // COMMIT USING commit_transaction; //END IF // // //p_reset() //Return (rslt) end function public function integer wasteqty (long arg_scid, decimal arg_wasteqty, long arg_wfjg_orderid, long arg_printid, string arg_mtrlcode, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 Decimal ls_buyqty,ls_consignedqty 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 arg_wfjg_orderid <= 0 THEN rslt = 0 ARG_MSG = '错误外加工计划唯一码' GOTO ext END IF SELECT count(*) INTO :cnt FROM u_order_wfjgmx WHERE u_order_wfjgmx.scid = :arg_scid AND u_order_wfjgmx.wfjgid = :arg_wfjg_orderid AND u_order_wfjgmx.printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "查询外加工明细操作失败!在物料"+String(arg_mtrlcode) GOTO ext END IF IF cnt = 0 THEN rslt = 0 ARG_MSG = "外加工明细不存在，在物料!"+String(arg_mtrlcode) GOTO ext END IF long ll_mtrlid SELECT u_order_wfjgMx.mtrlid INTO :ll_mtrlid FROM u_mtrldef,u_order_wfjgMx WHERE u_mtrldef.mtrlid = u_order_wfjgMx.mtrlid AND u_order_wfjgMx.scid = :arg_scid AND u_order_wfjgMx.wfjgid = :arg_wfjg_orderid AND u_order_wfjgMx.printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细物料编码失败,'+commit_transaction.SQLErrText GOTO ext END IF Decimal ld_uprate,ld_upqty IF uo_option_ifovertask = 1 THEN //不允许超收 SELECT u_order_wfjgMx.qty, u_order_wfjgMx.consignedqty + u_order_wfjgMx.wasteqty INTO :ls_buyqty, :ls_consignedqty FROM u_order_wfjgMx WHERE ( u_order_wfjgMx.wfjgid = :arg_wfjg_orderid ) AND ( u_order_wfjgMx.scid = :arg_scid ) AND ( u_order_wfjgmx.printid = :arg_printid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或错误物料编码["+arg_mtrlcode+"]导致查询外加工计划已完成数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF ls_buyqty < ls_consignedqty + arg_wasteqty THEN rslt = 0 ARG_MSG = "物料["+arg_mtrlcode+"]的未完成数量只有"+String(ls_buyqty - ls_consignedqty,'#,##0.0###')+",不能入库"+String(arg_wasteqty,'#,##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(arg_mtrlcode)+'超收货比例失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF SELECT u_order_wfjgMx.qty, u_order_wfjgMx.consignedqty + u_order_wfjgMx.wasteqty INTO :ls_buyqty, :ls_consignedqty FROM u_order_wfjgMx WHERE ( u_order_wfjgMx.wfjgid = :arg_wfjg_orderid ) AND ( u_order_wfjgMx.scid = :arg_scid ) AND ( u_order_wfjgMx.printid = :arg_printid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误物料编码:"+arg_mtrlcode+",导致查询外加工计划已完成数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF ls_buyqty * (1 + ld_uprate) + ld_upqty < ls_consignedqty + arg_wasteqty THEN rslt = 0 arg_msg = "物料:"+arg_mtrlcode+"未完成数量只有"+String(ls_buyqty - ls_consignedqty,'#,##0.0###')+"允许超收上限:"+string(ls_buyqty * (1 + ld_uprate) + ld_upqty - ls_consignedqty,'#,##0.00##')+",不能入库"+String(arg_wasteqty,'#,##0.0#') GOTO ext END IF END IF UPDATE u_order_wfjgmx SET u_order_wfjgmx.wasteqty = u_order_wfjgmx.wasteqty + :arg_wasteqty WHERE u_order_wfjgmx.scid = :arg_scid AND u_order_wfjgmx.wfjgid = :arg_wfjg_orderid AND u_order_wfjgmx.printid = :arg_printid 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_wfjg_orderid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //更新明细完成状态 IF finishmx(arg_scid, arg_wfjg_orderid, arg_printid, arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF Return (rslt) end function public function integer addmxcmpl (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 Long ll_row_f 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_update_rqmtrlqty_wfjg = -1000 THEN rslt = 0 arg_msg = '选项:[343]外协订单审核检查并更新生产计划采购需求已订货数,读取初始默认值失败,操作取消!' GOTO ext END IF uo_order_ml uo_order uo_order = Create uo_order_ml IF arg_wfjgid <= 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_wfjgid,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 String ls_mtrlcode,ls_taskcode Long ll_orderid,ll_wrkGrpid,ll_mtrlid String ls_status,ls_woodcode,ls_pcode Long ll_iforder Long ll_cnt_order,ll_mtrlid_order Int li_ordertype_order_ml Decimal ld_uprate,ld_upqty String ls_pfcode SELECT u_mtrldef.mtrlcode, u_order_wfjgMx.orderid, u_order_wfjgMx.wrkGrpid, u_order_wfjgMx.mtrlid, u_order_wfjgMx.status, u_order_wfjgMx.woodcode, u_order_wfjgMx.pcode, u_order_wfjgmx.iforder, u_order_wfjgmx.pfcode, u_order_wfjg.taskcode, u_order_wfjgMx.qty, u_order_wfjgMx.consignedqty + u_order_wfjgMx.wasteqty + u_order_wfjgMx.stopqty INTO :ls_mtrlcode, :ll_orderid, :ll_wrkGrpid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ll_iforder, :ls_pfcode, :ls_taskcode, :ls_buyqty, :ls_consignedqty FROM u_mtrldef,u_order_wfjgMx,u_order_wfjg WHERE u_mtrldef.mtrlid = u_order_wfjgMx.mtrlid AND u_order_wfjgMx.scid = :arg_scid AND u_order_wfjgMx.wfjgid = :arg_wfjgid AND u_order_wfjgMx.scid = u_order_wfjg.scid AND u_order_wfjgMx.wfjgid = u_order_wfjg.wfjgid AND u_order_wfjgMx.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 THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+",的未完成数量只有"+String(ls_buyqty - ls_consignedqty,'#,##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 THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+"未完成数量只有"+String(ls_buyqty - ls_consignedqty,'#,##0.0###')+"允许超收上限:"+String(ls_buyqty * (1 + ld_uprate) + ld_upqty - ls_consignedqty,'#,##0.00##')+",不能入库"+String(arg_addqty,'#,##0.0#') GOTO ext END IF END IF UPDATE u_order_wfjgMx SET consignedqty = consignedqty + :arg_addqty WHERE ( u_order_wfjgMx.wfjgid = :arg_wfjgid ) AND ( u_order_wfjgMx.printid = :arg_printid ) AND ( u_order_wfjgMx.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 trycmplbuytask(arg_scid,arg_wfjgid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //更新明细完成状态 IF finishmx(arg_scid, arg_wfjgid, arg_printid, arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF //更新相关发出明细已领数 IF uof_add_dstrqty(arg_scid, arg_wfjgid, arg_printid, ll_orderid, ll_mtrlid, ls_pfcode, ls_buyqty, arg_addqty, 0,arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_update_rqmtrlqty_wfjg = 1 THEN IF ll_orderid > 0 And ll_iforder = 1 THEN SELECT count(*),ordertype,mtrlid INTO :ll_cnt_order,:li_ordertype_order_ml,:ll_mtrlid_order FROM u_order_ml WHERE scid = :arg_scid AND orderid = :ll_orderid GROUP BY ordertype,mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询相关订单:'+ls_taskcode+' 明细:'+String(arg_printid)+',相关生产计划:'+String(ll_orderid)+'计划类型失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_cnt_order > 0 THEN IF uo_order.f_assign_inqty(arg_scid,ll_orderid,ll_wrkGrpid,3,& 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 END IF END IF //更新外协主计划进仓数 IF uof_add_order_acmpqty(arg_scid,arg_wfjgid, arg_printid,arg_addqty, arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Destroy uo_order p_reset() Return (rslt) end function public function integer stopqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, decimal arg_rewfjgqty, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 long ll_row_f DateTime server_datetime DateTime null_dt String ls_stopemp Decimal ld_notconsignedqty,ld_rewfjgqty_ori decimal ld_r_uqty,ld_r_consignedqty,ls_buyqty, lde_add_stopqty,lde_stopqty Long ll_relwfjgid,ll_relprintid long ll_orderid, ll_mtrlid String ls_pfcode decimal lde_sonscale IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_request_wfjg uo_rqwfjg uo_rqwfjg = create uo_request_wfjg uo_rqwfjg.commit_transaction = commit_transaction 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_rewfjgqty) THEN arg_rewfjgqty = 0 IF arg_stopqty < 0 THEN arG_MSG = '订单终止数不能少于0,请检查' rslt = 0 GOTO ext END IF IF arg_rewfjgqty > arg_stopqty THEN arG_MSG = '重新外协数不能大于终止数,请检查' rslt = 0 GOTO ext END IF IF arg_stopqty = 0 THEN SetNull(server_datetime) ls_stopemp = '' arg_stopreason = '' ELSE ls_stopemp = publ_operator END IF SetNull(null_dt) IF p_getinfo(arg_scid,arg_wfjgid,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_order_wfjgMx.Qty - u_order_wfjgMx.consignedqty - u_order_wfjgmx.wasteqty - u_order_wfjgmx.thqty, u_order_wfjgMx.relwfjgid, u_order_wfjgMx.relprintid, u_order_wfjgMx.orderid, u_order_wfjgMx.mtrlid, u_order_wfjgMx.pfcode, u_order_wfjgMx.Qty, u_order_wfjgMx.stopqty INTO :ld_notconsignedqty, :ll_relwfjgid, :ll_relprintid, :ll_orderid, :ll_mtrlid, :ls_pfcode, :ls_buyqty, :lde_stopqty FROM u_order_wfjgMx WHERE u_order_wfjgMx.scid = :arg_scid AND u_order_wfjgMx.wfjgid = :arg_wfjgid And u_order_wfjgMx.printid = :arg_printid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '查询明细物料'+arg_mtrlcode+'未完成数失败' rslt = 0 GOTO ext END IF lde_add_stopqty = arg_stopqty - lde_stopqty 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_relwfjgid > 0 THEN SELECT qty,consignedqty INTO :ld_r_uqty,:ld_r_consignedqty FROM u_request_wfjgMx WHERE scid = :arg_scid AND wfjgid = :ll_relwfjgid And printid = :ll_relprintid Using commit_transaction ; IF sqlca.SQLCode <> 0 THEN arG_MSG = '查询物料'+arg_mtrlcode+'相关申购单信息失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF arg_rewfjgqty > ld_r_consignedqty THEN rslt = 0 arG_MSG = '物料'+arg_mtrlcode+'相关外协申请单的已订货数为:'+String(ld_r_consignedqty,'#,##0.##########')+',不能重新外协:'+String(arg_rewfjgqty,'#,##0.##########') GOTO ext END IF SELECT rewfjgqty INTO :ld_rewfjgqty_ori FROM u_order_wfjgMx WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid And printid = :arg_printid Using commit_transaction ; IF sqlca.SQLCode <> 0 THEN arG_MSG = '查询明细物料'+arg_mtrlcode+'原重新外协数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF UPDATE u_request_wfjgMx SET consignedqty = consignedqty + :ld_rewfjgqty_ori - :arg_rewfjgqty WHERE scid = :arg_scid AND wfjgid = :ll_relwfjgid And printid = :ll_relprintid Using commit_transaction ; IF sqlca.SQLCode <> 0 THEN arG_MSG = '更新明细'+arg_mtrlcode+'相关外协申请单的已订货数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF uo_rqwfjg.trycmplwfjg(arg_scid,ll_relwfjgid,arG_MSG,False) = 0 THEN rslt = 0 GOTO ext END IF END IF UPDATE u_order_wfjgMx SET stopqty = :arg_stopqty, rewfjgqty = :arg_rewfjgqty, stopemp = :ls_stopemp, stopdate = :server_datetime, stopreason = :arg_stopreason WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid 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_wfjgid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //更新明细完成状态 IF finishmx(arg_scid, arg_wfjgid, arg_printid, arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF ////lhd2013-8-7 //更新相关发出明细已领数 IF uof_add_dstrqty(arg_scid, arg_wfjgid, arg_printid, ll_orderid, ll_mtrlid, ls_pfcode, ls_buyqty, lde_add_stopqty,1, arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF ////lhd2013-8-7_end ////更新外协主计划终止数 //IF uof_add_order_stopqty(arg_scid,arg_wfjgid, arg_printid,arg_addqty, arg_msg,False) = 0 THEN // rslt = 0 // GOTO ext //END IF ext: destroy uo_rqwfjg 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_splitqty (long arg_scid, long arg_wfjgid, 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_wfjgid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 THEN arG_MSG = '订单只能在进行状态才能操作' rslt = 0 GOTO ext END IF SELECT u_order_wfjgMx.Qty - u_order_wfjgMx.consignedqty - u_order_wfjgMx.stopqty - u_order_wfjgMx.wasteqty, u_order_wfjgMx.Qty INTO :ld_notconsignedqty, :ld_uqty FROM u_order_wfjgMx WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid 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_order_wfjgMx WHERE scid = :arg_scid And wfjgid = :arg_wfjgid 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_order_wfjgMx ( scid, qty, price, rebate, mtrlid, wfjgID, dscrp, printid, requiredate, orderid, storageid, jgdscrp, status, iforder, woodcode, pcode, wrkGrpid, relwfjgid, relprintid, pfcode, relcode, unit, uqty, rate) SELECT scid, :arg_splitqty, price, rebate, mtrlid, wfjgID, dscrp, :ll_new_pid, :arg_newdate, orderid, storageid, jgdscrp, status, iforder, woodcode, pcode, wrkGrpid, relwfjgid, relprintid, pfcode, relcode, unit, case rate when 0 then :arg_splitqty else :arg_splitqty / rate END , rate FROM u_order_wfjgMx WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid AND printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN wfjgid = 0 //还原taskid rslt = 0 arG_MSG = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF UPDATE u_order_wfjgMx SET uqty = case rate when 0 then uqty - :arg_splitqty else uqty - :arg_splitqty / rate end , qty = qty - :arg_splitqty WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid 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 stopqty_out (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 DateTime server_datetime DateTime null_dt String ls_stopemp Decimal ld_notconsignedqty,ld_rewfjgqty_ori Decimal ld_r_uqty,ld_r_consignedqty Long ll_relwfjgid,ll_relprintid IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN 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 IsNull(arg_stopqty) THEN arg_stopqty = 0 IF arg_stopqty < 0 THEN arg_msg = '订单终止数不能少于0,请检查' rslt = 0 GOTO ext 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_wfjgid,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_order_wfjgMx_out.Qty - u_order_wfjgMx_out.consignedqty INTO :ld_notconsignedqty FROM u_order_wfjgMx_out WHERE u_order_wfjgMx_out.scid = :arg_scid AND u_order_wfjgMx_out.wfjgid = :arg_wfjgid And u_order_wfjgMx_out.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 UPDATE u_order_wfjgMx_out SET stopqty = :arg_stopqty, stopemp = :ls_stopemp, stopdate = :server_datetime, stopreason = :arg_stopreason WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid 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 stopqty_out_mx(arg_scid, arg_wfjgid, arg_printid, arg_mtrlcode, arg_stopqty, 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_ifcommit THEN COMMIT Using commit_transaction ; END IF RETURN rslt end function public function integer acceptmx_out (integer arg_iforder, long arg_orderid, string arg_ordercode, long arg_mtrlid, decimal arg_qty, decimal arg_price, string arg_dscrp, string arg_mtrlcode, ref string arg_msg, long arg_printid, long arg_storageid, string arg_status, string arg_woodcode, string arg_pcode, string arg_unit, decimal arg_uqty, decimal arg_rate, long arg_relprintid, long arg_wrkgrpid);//return 0 fail 1 success // 函数增加一个明细项 Long rslt = 1,cnt = 0,ls_i IF uo_option_2unit = -1000 THEN rslt = 0 arg_msg = '选项:[067]外协双单位核算,读取初始默认值失败,操作取消!' 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 = 0 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_qty) THEN arg_qty = 0 IF IsNull(arg_price) THEN arg_price = 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_relprintid) THEN arg_relprintid = 0 IF IsNull(arg_wrkgrpid) THEN arg_wrkgrpid = 0 IF arg_mtrlid = 0 Or arg_qty = 0 THEN // 如果进仓数量为 0，或物料编号为空，则不作任何处理 rslt = 1 GOTO ext END IF IF uo_option_2unit = 1 THEN IF arg_uqty = 0 THEN arg_msg = '发出明细,行:'+String(arg_printid)+ ',请输入计价数量' rslt = 0 GOTO ext END IF IF Trim(arg_unit) = '' THEN arg_msg = '发出明细,行:'+String(arg_printid)+ ',请选择计价单位' rslt = 0 GOTO ext END IF END IF IF arg_price < 0 THEN rslt = 0 arg_msg = "发出明细,物料:" + String(arg_mtrlcode)+" 单价错误" GOTO ext END IF //检查物料id SELECT count(*) INTO :cnt FROM u_mtrldef Where u_mtrldef.mtrlid = :arg_mtrlid ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "发出明细,查询操作失败,物料编号" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "发出明细,错误的产品编号: "+String(arg_mtrlcode) GOTO ext END IF If (sys_option_nostorageid_wfjg = 1 Or sys_option_autocreate_outware = 1) And & dscrp <> '返工单审核自动生成的外协订单' And & dscrp <> '盘盈单审核自动生成的外协订单' THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_storage Where u_storage.storageid = :arg_storageid ; 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 END IF IF arg_iforder = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml WHERE u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :scid; IF sqlca.SQLCode <> 0 Or cnt = 0 THEN rslt = 0 arg_msg = '生产计划:'+arg_ordercode+'不存在' GOTO ext END IF END IF FOR ls_i = 1 To it_mxbt_out //合并重复项 IF wfjgmx_out[ls_i].mtrlid = arg_mtrlid And & wfjgmx_out[ls_i].orderid = arg_orderid And & wfjgmx_out[ls_i].status = arg_status And & wfjgmx_out[ls_i].woodcode = arg_woodcode And & wfjgmx_out[ls_i].pcode = arg_pcode And & wfjgmx_out[ls_i].unit = arg_unit And & wfjgmx_out[ls_i].relprintid = arg_relprintid And & wfjgmx_out[ls_i].wrkgrpid = arg_wrkgrpid THEN wfjgmx_out[ls_i].qty = wfjgmx_out[ls_i].qty + arg_qty wfjgmx_out[ls_i].uqty = wfjgmx_out[ls_i].uqty + arg_uqty GOTO _hz END IF NEXT //写入内容 it_mxbt_out++ wfjgmx_out[it_mxbt_out].iforder = arg_iforder wfjgmx_out[it_mxbt_out].orderid = arg_orderid wfjgmx_out[it_mxbt_out].ordercode = arg_ordercode wfjgmx_out[it_mxbt_out].mtrlid = arg_mtrlid wfjgmx_out[it_mxbt_out].qty = arg_qty wfjgmx_out[it_mxbt_out].dscrp = arg_dscrp wfjgmx_out[it_mxbt_out].mtrlcode = arg_mtrlcode wfjgmx_out[it_mxbt_out].printid = arg_printid wfjgmx_out[it_mxbt_out].price = arg_price wfjgmx_out[it_mxbt_out].storageid = arg_storageid wfjgmx_out[it_mxbt_out].status = arg_status wfjgmx_out[it_mxbt_out].woodcode = arg_woodcode wfjgmx_out[it_mxbt_out].pcode = arg_pcode wfjgmx_out[it_mxbt_out].relprintid = arg_relprintid wfjgmx_out[it_mxbt_out].wrkgrpid = arg_wrkgrpid IF uo_option_2unit = 0 THEN arg_uqty = arg_qty END IF wfjgmx_out[it_mxbt_out].unit = arg_unit wfjgmx_out[it_mxbt_out].uqty = arg_uqty IF arg_uqty <> 0 THEN wfjgmx_out[it_mxbt_out].rate = arg_qty / arg_uqty ELSE wfjgmx_out[it_mxbt_out].rate = 0 END IF _hz: FOR ls_i = 1 To it_mxbt_out_hz //合并重复项 IF wfjghz_out[ls_i].mtrlid = arg_mtrlid And & wfjghz_out[ls_i].status = arg_status And & wfjghz_out[ls_i].woodcode = arg_woodcode And & wfjghz_out[ls_i].pcode = arg_pcode And & wfjghz_out[ls_i].unit = arg_unit THEN wfjghz_out[ls_i].qty = wfjghz_out[ls_i].qty + arg_qty wfjghz_out[ls_i].uqty = wfjghz_out[ls_i].uqty + arg_uqty IF uof_chk_ware_outhz(ls_i, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF rslt = 1 GOTO ext END IF NEXT it_mxbt_out_hz++ wfjghz_out[it_mxbt_out_hz].mtrlid = arg_mtrlid wfjghz_out[it_mxbt_out_hz].qty = arg_qty wfjghz_out[it_mxbt_out_hz].dscrp = arg_dscrp wfjghz_out[it_mxbt_out_hz].mtrlcode = arg_mtrlcode wfjghz_out[it_mxbt_out_hz].printid = it_mxbt_out_hz wfjghz_out[it_mxbt_out_hz].price = arg_price wfjghz_out[it_mxbt_out_hz].storageid = arg_storageid wfjghz_out[it_mxbt_out_hz].status = arg_status wfjghz_out[it_mxbt_out_hz].woodcode = arg_woodcode wfjghz_out[it_mxbt_out_hz].pcode = arg_pcode IF uo_option_2unit = 0 THEN arg_uqty = arg_qty END IF wfjghz_out[it_mxbt_out_hz].unit = arg_unit wfjghz_out[it_mxbt_out_hz].uqty = arg_uqty IF arg_uqty <> 0 THEN wfjghz_out[it_mxbt_out_hz].rate = arg_qty / arg_uqty ELSE wfjghz_out[it_mxbt_out_hz].rate = 0 END IF IF uof_chk_ware_outhz(it_mxbt_out_hz, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //发出明细 对应 汇总明细的printid ext: IF rslt = 0 THEN p_clearmx() Return(rslt) end function public function integer addmx_sptcheckqty (long arg_scid, long arg_wfjgid, 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_wfjgid <= 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_wfjgid,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_order_wfjgMx.qty, u_order_wfjgMx.sptcheckqty, u_order_wfjgMx.stopqty, u_order_wfjgMx.mtrlid INTO :ls_mtrlcode, :ld_qty, :ld_sptcheckqty, :ld_stopqty, :ll_mtrlid FROM u_mtrldef,u_order_wfjgMx WHERE u_mtrldef.mtrlid = u_order_wfjgMx.mtrlid AND u_order_wfjgMx.scid = :arg_scid AND u_order_wfjgMx.wfjgID = :arg_wfjgid AND u_order_wfjgMx.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_order_wfjgMx SET sptcheckqty = sptcheckqty + :arg_addqty WHERE ( u_order_wfjgMx.wfjgid = :arg_wfjgid ) AND ( u_order_wfjgMx.printid = :arg_printid ) AND ( u_order_wfjgMx.scid = :arg_scid)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 addmxcmpl_out (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, 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_wfjgid <= 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_wfjgid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF Decimal ls_buyqty,ls_consignedqty String ls_mtrlcode //SELECT mtrlcode INTO :ls_mtrlcode FROM u_mtrldef // WHERE mtrlid = :arg_mtrlid // USING commit_transaction; //IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询物料资料失败' // GOTO ext //END IF SELECT u_order_wfjgMx_out.qty, u_order_wfjgMx_out.consignedqty + u_order_wfjgMx_out.stopqty, u_mtrldef.mtrlcode INTO :ls_buyqty, :ls_consignedqty, :ls_mtrlcode FROM u_order_wfjgMx_out INNER join u_mtrldef on u_order_wfjgMx_out.mtrlid = u_mtrldef.mtrlid WHERE ( u_order_wfjgMx_out.scid = :arg_scid ) AND ( u_order_wfjgMx_out.wfjgid = :arg_wfjgid ) AND ( u_order_wfjgMx_out.printid = :arg_printid ) 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 > 0 THEN //正常发出订单 IF ls_buyqty < ls_consignedqty + arg_addqty THEN rslt = 0 arg_msg = "物料["+ls_mtrlcode+"]的未完成数量只有"+String(ls_buyqty - ls_consignedqty,'#,##0.0###')+",不能发出"+String(arg_addqty,'#,##0.0#') GOTO ext END IF ELSE //退回订单 IF Abs(ls_buyqty) < Abs(ls_consignedqty + arg_addqty) THEN rslt = 0 arg_msg = "物料["+ls_mtrlcode+"]的未完成数量只有"+String(ls_buyqty - ls_consignedqty,'#,##0.0###')+",不能发出"+String(arg_addqty,'#,##0.0#') GOTO ext END IF END IF UPDATE u_order_wfjgMx_out SET consignedqty = consignedqty + :arg_addqty WHERE ( u_order_wfjgMx_out.scid = :arg_scid ) AND ( u_order_wfjgMx_out.wfjgid = :arg_wfjgid ) AND ( u_order_wfjgMx_out.printid = :arg_printid ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新外协订单完成数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //更新发出明细完成数 IF addmxcmpl_out_mx(arg_scid, arg_wfjgid, arg_printid, ls_mtrlcode, arg_addqty, arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF p_reset() Return (rslt) end function public function integer finishmx (long arg_scid, long arg_wfjgid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);//先更新单据的状态, 在更新明细的状态 Int rslt = 1 Long cnt = 0 IF arg_wfjgid <= 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 lde_qty,lde_consignedqty, lde_wasteqty, lde_thqty Long ll_mtrlid Decimal ld_upqty,lde_stopqty, lde_downrate SELECT status INTO :li_status FROM u_order_wfjg WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid 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_order_wfjgmx.mtrlid, u_order_wfjgmx.qty, u_order_wfjgmx.consignedqty, u_order_wfjgmx.stopqty, u_order_wfjgmx.stopflag, u_order_wfjgMx.wasteqty, u_order_wfjgMx.thqty, u_mtrldef.downrate INTO :ll_mtrlid, :lde_qty, :lde_consignedqty, :lde_stopqty, :li_stopflag, :lde_wasteqty, :lde_thqty, :lde_downrate FROM u_mtrldef,u_order_wfjgmx WHERE u_mtrldef.mtrlid = u_order_wfjgmx.mtrlid AND u_order_wfjgmx.scid = :arg_scid AND u_order_wfjgmx.wfjgid = :arg_wfjgid AND u_order_wfjgmx.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 lde_qty * (1 - lde_downrate) - lde_wasteqty - lde_stopqty - lde_consignedqty - lde_thqty <= 0 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_order_wfjgmx SET finishflag = :li_finishflag, finishemp = :ls_finishemp, finishdate = :ldt_finishdate WHERE u_order_wfjgmx.scid = :arg_scid AND u_order_wfjgmx.wfjgid = :arg_wfjgid AND u_order_wfjgmx.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 stopqty_out_mx (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, ref string arg_msg, boolean arg_ifcommit);//==================================================================== // 事件: uo_order_wfjg.stopqty_out_mx() //-------------------------------------------------------------------- // 描述: //-------------------------------------------------------------------- // 参数: // value long arg_scid // value long arg_wfjgid // value long arg_printid // value string arg_mtrlcode // value decimal arg_stopqty // reference string arg_msg // value boolean arg_ifcommit //-------------------------------------------------------------------- // 返回: (none) //-------------------------------------------------------------------- // 作者: LHD 日期: 2013年01月03日 //-------------------------------------------------------------------- // Copyright (c) 2002-2018 RICHTA(TM), All rights reserved. //-------------------------------------------------------------------- // 修改历史: // //==================================================================== Int rslt = 1 Long ll_cnt = 1, i s_order_wfjgmx_out s_out_mx[] Long ll_printid Decimal lde_qty, lde_consignedqty, lde_stopqty Int li_stopflag Decimal lde_addqty, lde_restqty //lde_addqty = arg_qty //用游标读取明细 DECLARE cur_out_mx CURSOR FOR SELECT u_order_wfjgmx_out_mx.printid, u_order_wfjgmx_out_mx.qty, u_order_wfjgmx_out_mx.consignedqty, u_order_wfjgmx_out_mx.stopqty, u_order_wfjgmx_out_mx.stopflag FROM u_order_wfjgmx_out_mx INNER JOIN u_order_wfjgMx_out ON u_order_wfjgmx_out_mx.scid = u_order_wfjgMx_out.scid AND u_order_wfjgmx_out_mx.wfjgid = u_order_wfjgMx_out.wfjgID AND u_order_wfjgmx_out_mx.mtrlid = u_order_wfjgMx_out.MtrlID AND u_order_wfjgmx_out_mx.status = u_order_wfjgMx_out.status AND u_order_wfjgmx_out_mx.woodcode = u_order_wfjgMx_out.woodcode AND u_order_wfjgmx_out_mx.pcode = u_order_wfjgMx_out.pcode AND u_order_wfjgmx_out_mx.unit = u_order_wfjgMx_out.unit WHERE u_order_wfjgMx_out.scid = :arg_scid AND u_order_wfjgMx_out.wfjgid = :arg_wfjgid AND u_order_wfjgMx_out.printid = :arg_printid Using commit_transaction; OPEN cur_out_mx; FETCH cur_out_mx Into :s_out_mx[ll_cnt].printid, :s_out_mx[ll_cnt].qty, :s_out_mx[ll_cnt].consignedqty, :s_out_mx[ll_cnt].stopqty, :s_out_mx[ll_cnt].stopflag; DO WHILE commit_transaction.SQLCode = 0 ll_cnt++ FETCH cur_out_mx Into :s_out_mx[ll_cnt].printid, :s_out_mx[ll_cnt].qty, :s_out_mx[ll_cnt].consignedqty, :s_out_mx[ll_cnt].stopqty, :s_out_mx[ll_cnt].stopflag; LOOP CLOSE cur_out_mx; ll_cnt -= 1 //arg_stopqty 必定 >0 lde_restqty = arg_stopqty FOR i = 1 To ll_cnt ll_printid = s_out_mx[i].printid IF s_out_mx[i].qty - s_out_mx[i].consignedqty <= 0 THEN UPDATE u_order_wfjgmx_out_mx SET stopqty = 0 WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid And printid = :ll_printid Using commit_transaction ; ELSE lde_addqty = Min(lde_restqty, s_out_mx[i].qty - s_out_mx[i].consignedqty) lde_restqty -= lde_addqty UPDATE u_order_wfjgmx_out_mx SET stopqty = :lde_addqty WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid And printid = :ll_printid Using commit_transaction ; END IF IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '更新明细'+arg_mtrlcode+'中止数量失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF NEXT //更新发出明细终止数 //IF arg_stopqty > 0 THEN // lde_restqty = arg_stopqty // FOR i = 1 To ll_cnt // ll_printid = s_out_mx[i].printid // IF s_out_mx[i].qty - s_out_mx[i].consignedqty - s_out_mx[i].stopqty <= 0 THEN CONTINUE // // lde_addqty = Min(lde_restqty, s_out_mx[i].qty - s_out_mx[i].consignedqty - s_out_mx[i].stopqty) // lde_restqty -= lde_addqty // // UPDATE u_order_wfjgmx_out_mx // SET stopqty = stopqty + :lde_addqty // WHERE scid = :arg_scid // AND wfjgid = :arg_wfjgid // And printid = :ll_printid Using commit_transaction ; // IF commit_transaction.SQLCode <> 0 THEN // arG_MSG = '更新明细'+arg_mtrlcode+'中止数量失败,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext // END IF // // IF lde_restqty <= 0 THEN EXIT // NEXT //ELSE // lde_restqty = Abs(arg_stopqty) // FOR i = 1 To ll_cnt // ll_printid = s_out_mx[i].printid // IF s_out_mx[i].stopqty <= 0 THEN CONTINUE // // lde_addqty = Min(lde_restqty, s_out_mx[i].stopqty) // lde_restqty -= lde_addqty // // UPDATE u_order_wfjgmx_out_mx // SET stopqty = stopqty - :lde_addqty // WHERE scid = :arg_scid // AND wfjgid = :arg_wfjgid // And printid = :ll_printid Using commit_transaction ; // IF commit_transaction.SQLCode <> 0 THEN // arG_MSG = '更新明细'+arg_mtrlcode+'中止数量失败,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext // END IF // // IF lde_restqty <= 0 THEN EXIT // NEXT //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 addmxcmpl_out_mx (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);//==================================================================== // 事件: uo_order_wfjg.addmxcmpl_out_mx() //-------------------------------------------------------------------- // 描述: //-------------------------------------------------------------------- // 参数: // value long arg_scid // value long arg_wfjgid // value long arg_printid // value string arg_mtrlcode // value decimal arg_addqty // reference string arg_msg // value boolean arg_ifcommit //-------------------------------------------------------------------- // 返回: (none) //-------------------------------------------------------------------- // 作者: LHD 日期: 2013年01月03日 //-------------------------------------------------------------------- // Copyright (c) 2002-2018 RICHTA(TM), All rights reserved. //-------------------------------------------------------------------- // 修改历史: // //==================================================================== Int rslt = 1 Long ll_cnt = 1, i s_order_wfjgmx_out s_out_mx[] Long ll_printid Decimal lde_qty, lde_consignedqty, lde_stopqty Int li_stopflag Decimal lde_addqty, lde_restqty //lde_addqty = arg_qty //用游标读取明细 DECLARE cur_out_mx CURSOR FOR SELECT u_order_wfjgmx_out_mx.printid, u_order_wfjgmx_out_mx.qty, u_order_wfjgmx_out_mx.consignedqty, u_order_wfjgmx_out_mx.stopqty, u_order_wfjgmx_out_mx.stopflag FROM u_order_wfjgmx_out_mx INNER JOIN u_order_wfjgMx_out ON u_order_wfjgmx_out_mx.scid = u_order_wfjgMx_out.scid AND u_order_wfjgmx_out_mx.wfjgid = u_order_wfjgMx_out.wfjgID AND u_order_wfjgmx_out_mx.mtrlid = u_order_wfjgMx_out.MtrlID AND u_order_wfjgmx_out_mx.status = u_order_wfjgMx_out.status AND u_order_wfjgmx_out_mx.woodcode = u_order_wfjgMx_out.woodcode AND u_order_wfjgmx_out_mx.pcode = u_order_wfjgMx_out.pcode AND u_order_wfjgmx_out_mx.unit = u_order_wfjgMx_out.unit WHERE u_order_wfjgMx_out.scid = :arg_scid AND u_order_wfjgMx_out.wfjgid = :arg_wfjgid AND u_order_wfjgMx_out.printid = :arg_printid Using commit_transaction; OPEN cur_out_mx; FETCH cur_out_mx Into :s_out_mx[ll_cnt].printid, :s_out_mx[ll_cnt].qty, :s_out_mx[ll_cnt].consignedqty, :s_out_mx[ll_cnt].stopqty, :s_out_mx[ll_cnt].stopflag; DO WHILE commit_transaction.SQLCode = 0 ll_cnt++ FETCH cur_out_mx Into :s_out_mx[ll_cnt].printid, :s_out_mx[ll_cnt].qty, :s_out_mx[ll_cnt].consignedqty, :s_out_mx[ll_cnt].stopqty, :s_out_mx[ll_cnt].stopflag; LOOP CLOSE cur_out_mx; ll_cnt -= 1 //更新发出明细完成数 IF arg_addqty > 0 THEN //增加完成 lde_restqty = arg_addqty FOR i = 1 To ll_cnt ll_printid = s_out_mx[i].printid IF s_out_mx[i].qty > 0 THEN //审核, 正常增完成数 IF s_out_mx[i].qty - s_out_mx[i].consignedqty - s_out_mx[i].stopqty <= 0 THEN CONTINUE lde_addqty = Min(lde_restqty, s_out_mx[i].qty - s_out_mx[i].consignedqty - s_out_mx[i].stopqty) lde_restqty -= lde_addqty ELSE //撤审,退回减完成数 IF Abs(s_out_mx[i].consignedqty) = 0 THEN CONTINUE lde_addqty = Min(lde_restqty, Abs(s_out_mx[i].consignedqty)) lde_restqty -= lde_addqty lde_addqty = 0 - lde_addqty END IF UPDATE u_order_wfjgmx_out_mx SET consignedqty = consignedqty + :lde_addqty WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid And printid = :ll_printid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '更新明细'+arg_mtrlcode+'完成数量失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF lde_restqty <= 0 THEN EXIT NEXT ELSE lde_restqty = Abs(arg_addqty) FOR i = 1 To ll_cnt ll_printid = s_out_mx[i].printid IF s_out_mx[i].qty > 0 THEN //审核, 正常增完成数 IF s_out_mx[i].consignedqty <= 0 THEN CONTINUE lde_addqty = Min(lde_restqty, s_out_mx[i].consignedqty) lde_restqty -= lde_addqty ELSE //撤审,退回减完成数 IF Abs(s_out_mx[i].qty) - Abs(s_out_mx[i].consignedqty) - Abs(s_out_mx[i].stopqty) <= 0 THEN CONTINUE lde_addqty = Min(lde_restqty, Abs(s_out_mx[i].qty) - Abs(s_out_mx[i].consignedqty) - Abs(s_out_mx[i].stopqty)) lde_restqty -= lde_addqty lde_addqty = 0 - lde_addqty END IF UPDATE u_order_wfjgmx_out_mx SET consignedqty = consignedqty - :lde_addqty WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid And printid = :ll_printid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '更新明细'+arg_mtrlcode+'完成数量失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF lde_restqty <= 0 THEN EXIT NEXT 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 stopbuytask (long arg_scid, long arg_wfjgid, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0, i IF arg_wfjgid <= 0 THEN rslt = 0 ARG_MSG = '错误外加工计划唯一码' GOTO ext END IF IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF getinfo(arg_scid,arg_wfjgid,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_order_wfjg SET Status = 5, accomplishdate = getdate(), stopemp = :publ_operator, stopreason = :arg_stopreason WHERE wfjgid = :arg_wfjgid 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_wfjgid, wfjgmx[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_qty, decimal arg_price, string arg_dscrp, string arg_mtrlcode, ref string arg_msg, long arg_printid, datetime arg_requiredate, long arg_storageid, string arg_jgdscrp, string arg_status, string arg_woodcode, string arg_pcode, long arg_wrkgrpid, long arg_relwfjgid, long arg_relprintid, string arg_pfcode, string arg_unit, decimal arg_uqty, decimal arg_rate, decimal arg_taxrate, string arg_plancode, long arg_relwfjgid2, long arg_relprintid2); s_order_wfjgmx s_mx s_mx.iforder = arg_iforder s_mx.orderid = arg_orderid s_mx.ordercode = arg_ordercode s_mx.mtrlid = arg_mtrlid s_mx.qty = arg_qty s_mx.price = arg_price 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.jgdscrp = arg_jgdscrp s_mx.status = arg_status s_mx.woodcode = arg_woodcode s_mx.pcode = arg_pcode s_mx.wrkgrpid = arg_wrkgrpid s_mx.relwfjgid = arg_relwfjgid s_mx.relprintid = arg_relprintid s_mx.pfcode = arg_pfcode s_mx.unit = arg_unit s_mx.uqty = arg_uqty s_mx.rate = arg_rate s_mx.taxrate = arg_taxrate s_mx.plancode = arg_plancode s_mx.relwfjgid2 = arg_relwfjgid2 s_mx.relprintid2 = arg_relprintid2 s_mx.rebate = 1 s_mx.thtype = 0 return acceptmx(s_mx, arg_msg) /* Int rslt = 1 Long cnt = 0,ls_i Int li_mtrlkind,li_iffp String ls_relcode int li_iflimitprice uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price IF uo_option_2unit = -1000 THEN rslt = 0 arg_msg = '选项:[067]外协双单位核算,读取初始默认值失败,操作取消!' 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 = 0 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_qty) THEN arg_qty = 0 IF IsNull(arg_price) THEN arg_price = 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_jgdscrp) THEN arg_jgdscrp = '' IF IsNull(arg_status) THEN arg_status = '' IF IsNull(arg_woodcode) THEN arg_woodcode = '' IF IsNull(arg_pcode) THEN arg_pcode = '' IF IsNull(arg_relwfjgid) THEN arg_relwfjgid = 0 IF IsNull(arg_relprintid) THEN arg_relprintid = 0 IF IsNull(arg_pfcode) THEN arg_pfcode = '' if isnull(arg_taxrate) then arg_taxrate = 0 if isnull(arg_plancode) then arg_plancode = '' IF IsNull(arg_relwfjgid2) THEN arg_relwfjgid2 = 0 IF IsNull(arg_relprintid2) THEN arg_relprintid2 = 0 IF arg_mtrlid = 0 OR arg_qty = 0 THEN rslt = 1 GOTO ext END IF IF uo_option_2unit = 1 THEN IF arg_uqty = 0 THEN arg_msg = '收货明细,行:'+String(arg_printid)+ ',请输入计价数量' rslt = 0 GOTO ext END IF IF Trim(arg_unit) = '' THEN arg_msg = '收货明细,行:'+String(arg_printid)+ ',请选择计价单位' rslt = 0 GOTO ext END IF END IF IF arg_price < 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(arg_printid)+",物料:" + String(arg_mtrlcode)+",单价错误" GOTO ext END IF if arg_taxrate < 0 then rslt = 0 arg_msg = '收货明细,行:'+String(arg_printid)+",物料:" + String(arg_mtrlcode)+",税率错误" GOTO ext END IF SELECT mtrlkind,iffp, iflimitprice INTO :li_mtrlkind,:li_iffp, :li_iflimitprice FROM u_mtrldef WHERE u_mtrldef.mtrlid = :arg_mtrlid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(arg_printid)+",查询物料:"+arg_mtrlcode+',属性失败,'+commit_transaction.SQLErrText GOTO ext END IF if sys_option_nostorageid_wfjg = 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 = '收货明细,行:'+String(arg_printid)+",查询操作失败,仓库编号" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(arg_printid)+",错误的仓库编号" GOTO ext END IF end if IF arg_relwfjgid > 0 THEN IF arg_relprintid = 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(arg_printid)+",错误的外协申请单明细ID" GOTO ext END IF SELECT taskcode INTO :ls_relcode FROM u_request_wfjg WHERE scid = :scid AND wfjgid = :arg_relwfjgid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(arg_printid)+",查询外协申请单单失败,"+commit_transaction.SQLErrText GOTO ext END IF ELSE ls_relcode = '' END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_mtrl_pf WHERE mtrlid = :arg_mtrlid AND pfcode = :arg_pfcode USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '收货明细,行:'+String(arg_printid)+',查询物料清单失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '收货明细,行:'+String(arg_printid)+',查询物料清单不存在,请检查' rslt = 0 GOTO ext END IF IF cnt > 1 THEN arg_msg = '收货明细,行:'+String(arg_printid)+',查询物料清单重复,请检查' rslt = 0 GOTO ext END IF IF Date(Requiredate) > Date(arg_requiredate) THEN arg_msg = '收货明细,行:'+String(arg_printid)+',回厂日期不能在下单日期前' rslt = 0 GOTO ext END IF decimal lde_mrate, lde_rebate lde_mrate = 1 lde_rebate = 1 Long ll_moneyid_native SELECT moneyid INTO :ll_moneyid_native From cw_currency Where native = 1; IF sqlca.SQLCode <> 0 THEN arg_msg = '收货明细,行:'+String(arg_printid)+',查询本位币币种id失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_iflimitprice = 1 THEN IF f_power_ind(3709,sys_msg_pow) Or Not sys_power_issuper THEN IF uo_sptprice.uof_check_price(0,sptid,arg_mtrlid,arg_mtrlcode,arg_unit,arg_status,arg_woodcode,arg_pcode,arg_jgdscrp,ll_moneyid_native,arg_price * lde_mrate * lde_rebate,Requiredate,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF //写入内容 it_mxbt++ wfjgmx[it_mxbt].iforder = arg_iforder wfjgmx[it_mxbt].orderid = arg_orderid wfjgmx[it_mxbt].ordercode = arg_ordercode wfjgmx[it_mxbt].mtrlid = arg_mtrlid wfjgmx[it_mxbt].qty = arg_qty wfjgmx[it_mxbt].dscrp = arg_dscrp wfjgmx[it_mxbt].mtrlcode = arg_mtrlcode wfjgmx[it_mxbt].printid = arg_printid wfjgmx[it_mxbt].price = arg_price wfjgmx[it_mxbt].Requiredate = arg_requiredate wfjgmx[it_mxbt].storageid = arg_storageid wfjgmx[it_mxbt].jgdscrp = arg_jgdscrp wfjgmx[it_mxbt].status = arg_status wfjgmx[it_mxbt].woodcode = arg_woodcode wfjgmx[it_mxbt].pcode = arg_pcode wfjgmx[it_mxbt].wrkgrpid = arg_wrkgrpid wfjgmx[it_mxbt].relwfjgid = arg_relwfjgid wfjgmx[it_mxbt].relprintid = arg_relprintid wfjgmx[it_mxbt].pfcode = arg_pfcode wfjgmx[it_mxbt].relcode = ls_relcode wfjgmx[it_mxbt].taxrate = arg_taxrate wfjgmx[it_mxbt].iffp = li_iffp wfjgmx[it_mxbt].plancode = arg_plancode wfjgmx[it_mxbt].relwfjgid2 = arg_relwfjgid2 wfjgmx[it_mxbt].relprintid2 = arg_relprintid2 //IF uo_option_2unit = 0 THEN // arg_uqty = arg_qty //END IF wfjgmx[it_mxbt].unit = arg_unit wfjgmx[it_mxbt].uqty = arg_uqty IF arg_uqty <> 0 THEN wfjgmx[it_mxbt].rate = arg_qty / arg_uqty ELSE wfjgmx[it_mxbt].rate = 0 END IF ext: destroy uo_sptprice IF rslt = 0 THEN p_clearmx() Return(rslt) */ end function public function integer uof_add_thqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_thqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_notconsignedqty,lde_thqty Int li_status Long ll_orderid,ll_mtrlid,ll_row_f Long ll_lp,ll_k String ls_mtrlcode_out Decimal ld_costamt_out ,ld_qty_out,ld_cost_out Long ll_wrkgrpid_out,ll_mtrlid_out String ls_status_out,ls_woodcode_out,ls_pcode_out Decimal ld_overqty,ld_arrry_qty Long ll_workgroupid String ls_wrkgrpname String ls_pfcode Long cnt Decimal ls_buyqty decimal lde_sonscale uo_order_wfjg uo_wfjg uo_wfjg = Create uo_order_wfjg uo_wfjg.commit_transaction = sqlca uo_order_ml uo_order uo_order = Create uo_order_ml //datastore ds_mrpmx //ds_mrpmx = Create datastore //ds_mrpmx.DataObject = 'ds_order_ml_mrpmx' //ds_mrpmx.SetTransObject(sqlca) IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF IsNull(arg_thqty) THEN arg_thqty = 0 IF arg_thqty = 0 THEN GOTO ext END IF SELECT u_order_wfjg.status INTO :li_status FROM u_order_wfjg WHERE u_order_wfjg.scid = :arg_scid AND u_order_wfjg.wfjgid = :arg_wfjgid Using commit_transaction ; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询明细物料'+arg_mtrlcode+'未完成数失败' rslt = 0 GOTO ext END IF IF li_status <> 1 And li_status <> 5 THEN arg_msg = '订单只能在进行状态或自动完成状态才能操作' rslt = 0 GOTO ext END IF SELECT u_order_wfjgMx.Qty - u_order_wfjgMx.consignedqty - u_order_wfjgmx.wasteqty - u_order_wfjgmx.stopqty - u_order_wfjgmx.thqty, u_order_wfjgmx.thqty, u_order_wfjgmx.orderid, u_order_wfjgMx.mtrlid, u_order_wfjgMx.pfcode, u_order_wfjgMx.Qty INTO :ld_notconsignedqty, :lde_thqty, :ll_orderid, :ll_mtrlid, :ls_pfcode, :ls_buyqty FROM u_order_wfjgMx WHERE u_order_wfjgMx.scid = :arg_scid AND u_order_wfjgMx.wfjgid = :arg_wfjgid And u_order_wfjgMx.printid = :arg_printid Using commit_transaction ; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询明细物料'+arg_mtrlcode+'未完成数失败' rslt = 0 GOTO ext END IF IF arg_thqty > 0 THEN IF arg_thqty > ld_notconsignedqty THEN arg_msg = '明细物料'+arg_mtrlcode+'未完成数只有:'+String(ld_notconsignedqty,'#,##0.##########') +'不能退回:'+String(arg_thqty,'#,##0.##########') rslt = 0 GOTO ext END IF ELSE //<0 IF Abs(arg_thqty) > lde_thqty THEN arg_msg = '明细物料'+arg_mtrlcode+'已退回数只有:'+String(lde_thqty,'#,##0.##########') +'不能撤销退回:'+String(arg_thqty,'#,##0.##########') rslt = 0 GOTO ext END IF END IF //更新相关发出明细已领数 IF uof_add_dstrqty(arg_scid, arg_wfjgid, arg_printid, ll_orderid, ll_mtrlid, ls_pfcode, ls_buyqty, arg_thqty, 0,arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF UPDATE u_order_wfjgMx SET thqty = thqty + :arg_thqty WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid 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 uo_wfjg.trycmplbuytask(arg_scid,arg_wfjgid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //更新明细完成状态 IF uo_wfjg.finishmx(arg_scid, arg_wfjgid, arg_printid, arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF ext: Destroy uo_wfjg Destroy uo_order //Destroy ds_mrpmx 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_add_nonconsignedqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 UPDATE u_order_wfjgMx SET nonconsignedqty = Qty - consignedqty - wasteqty - stopqty - thqty WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid 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_wfjgid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF //更新明细完成状态 IF finishmx(arg_scid, arg_wfjgid, 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_ifcommit THEN COMMIT Using commit_transaction ; END IF RETURN rslt end function public function integer acceptmx (s_order_wfjgmx s_mx, ref string arg_msg);Int rslt = 1 Long cnt = 0,ls_i Int li_mtrlkind,li_iffp String ls_relcode int li_iflimitprice uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price IF uo_option_2unit = -1000 THEN rslt = 0 arg_msg = '选项:[067]外协双单位核算,读取初始默认值失败,操作取消!' 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 = 0 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.qty) THEN s_mx.qty = 0 IF IsNull(s_mx.price) THEN s_mx.price = 0 IF IsNull(s_mx.rebate) THEN s_mx.rebate = 1 IF s_mx.rebate = 0 THEN s_mx.rebate = 1 IF IsNull(s_mx.dscrp) THEN s_mx.dscrp = '' 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.jgdscrp) THEN s_mx.jgdscrp = '' 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.relwfjgid) THEN s_mx.relwfjgid = 0 IF IsNull(s_mx.relprintid) THEN s_mx.relprintid = 0 IF IsNull(s_mx.pfcode) THEN s_mx.pfcode = '' if isnull(s_mx.taxrate) then s_mx.taxrate = 0 if isnull(s_mx.plancode) then s_mx.plancode = '' IF IsNull(s_mx.relwfjgid2) THEN s_mx.relwfjgid2 = 0 IF IsNull(s_mx.relprintid2) THEN s_mx.relprintid2 = 0 IF IsNull(s_mx.thtype) THEN s_mx.thtype = 0 IF s_mx.mtrlid = 0 OR s_mx.qty = 0 THEN rslt = 1 GOTO ext END IF IF uo_option_2unit = 1 THEN IF s_mx.uqty = 0 THEN arg_msg = '收货明细,行:'+String(s_mx.printid)+ ',请输入计价数量' rslt = 0 GOTO ext END IF IF Trim(s_mx.unit) = '' THEN arg_msg = '收货明细,行:'+String(s_mx.printid)+ ',请选择计价单位' rslt = 0 GOTO ext END IF END IF IF s_mx.price < 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(s_mx.printid)+",物料:" + String(s_mx.mtrlcode)+",单价错误" GOTO ext END IF if s_mx.taxrate < 0 then rslt = 0 arg_msg = '收货明细,行:'+String(s_mx.printid)+",物料:" + String(s_mx.mtrlcode)+",税率错误" GOTO ext END IF IF s_mx.rebate <= 0 or s_mx.rebate > 1 THEN arg_msg = '收货明细,行:'+String(s_mx.printid)+",物料:" + String(s_mx.mtrlcode)+",折扣错误,只能取范围(0, 1]" rslt = 0 GOTO ext END IF SELECT mtrlkind,iffp, iflimitprice INTO :li_mtrlkind,:li_iffp, :li_iflimitprice FROM u_mtrldef WHERE u_mtrldef.mtrlid = :s_mx.mtrlid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(s_mx.printid)+",查询物料:"+s_mx.mtrlcode+',属性失败,'+commit_transaction.SQLErrText GOTO ext END IF if sys_option_nostorageid_wfjg = 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 = '收货明细,行:'+String(s_mx.printid)+",查询操作失败,仓库编号" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(s_mx.printid)+",错误的仓库编号" GOTO ext END IF end if IF s_mx.relwfjgid > 0 THEN IF s_mx.relprintid = 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(s_mx.printid)+",错误的外协申请单明细ID" GOTO ext END IF SELECT taskcode INTO :ls_relcode FROM u_request_wfjg WHERE scid = :scid AND wfjgid = :s_mx.relwfjgid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细,行:'+String(s_mx.printid)+",查询外协申请单单失败,"+commit_transaction.SQLErrText GOTO ext END IF ELSE ls_relcode = '' END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_mtrl_pf WHERE mtrlid = :s_mx.mtrlid AND pfcode = :s_mx.pfcode USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '收货明细,行:'+String(s_mx.printid)+',查询物料清单失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '收货明细,行:'+String(s_mx.printid)+',查询物料清单不存在,请检查' rslt = 0 GOTO ext END IF IF cnt > 1 THEN arg_msg = '收货明细,行:'+String(s_mx.printid)+',查询物料清单重复,请检查' rslt = 0 GOTO ext END IF IF Date(Requiredate) > Date(s_mx.requiredate) THEN arg_msg = '收货明细,行:'+String(s_mx.printid)+',回厂日期不能在下单日期前' rslt = 0 GOTO ext END IF decimal lde_mrate, lde_rebate lde_mrate = 1 lde_rebate = 1 Long ll_moneyid_native SELECT moneyid INTO :ll_moneyid_native From cw_currency Where native = 1; IF sqlca.SQLCode <> 0 THEN arg_msg = '收货明细,行:'+String(s_mx.printid)+',查询本位币币种id失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_iflimitprice = 1 THEN IF f_power_ind(3709,sys_msg_pow) Or Not sys_power_issuper 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,s_mx.jgdscrp,ll_moneyid_native,s_mx.price * lde_mrate * lde_rebate,Requiredate,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF //写入内容 it_mxbt++ wfjgmx[it_mxbt].printid = s_mx.printid wfjgmx[it_mxbt].iforder = s_mx.iforder wfjgmx[it_mxbt].orderid = s_mx.orderid wfjgmx[it_mxbt].ordercode = s_mx.ordercode wfjgmx[it_mxbt].mtrlid = s_mx.mtrlid wfjgmx[it_mxbt].mtrlcode = s_mx.mtrlcode wfjgmx[it_mxbt].qty = s_mx.qty wfjgmx[it_mxbt].unit = s_mx.unit wfjgmx[it_mxbt].uqty = s_mx.uqty IF s_mx.uqty <> 0 THEN wfjgmx[it_mxbt].rate = s_mx.qty / s_mx.uqty ELSE wfjgmx[it_mxbt].rate = 0 END IF wfjgmx[it_mxbt].price = s_mx.price wfjgmx[it_mxbt].rebate = s_mx.rebate wfjgmx[it_mxbt].storageid = s_mx.storageid wfjgmx[it_mxbt].jgdscrp = s_mx.jgdscrp wfjgmx[it_mxbt].status = s_mx.status wfjgmx[it_mxbt].woodcode = s_mx.woodcode wfjgmx[it_mxbt].pcode = s_mx.pcode wfjgmx[it_mxbt].plancode = s_mx.plancode wfjgmx[it_mxbt].dscrp = s_mx.dscrp wfjgmx[it_mxbt].Requiredate = s_mx.requiredate wfjgmx[it_mxbt].wrkgrpid = s_mx.wrkgrpid wfjgmx[it_mxbt].relwfjgid = s_mx.relwfjgid wfjgmx[it_mxbt].relprintid = s_mx.relprintid wfjgmx[it_mxbt].pfcode = s_mx.pfcode wfjgmx[it_mxbt].relcode = ls_relcode wfjgmx[it_mxbt].taxrate = s_mx.taxrate wfjgmx[it_mxbt].iffp = li_iffp wfjgmx[it_mxbt].relwfjgid2 = s_mx.relwfjgid2 wfjgmx[it_mxbt].relprintid2 = s_mx.relprintid2 wfjgmx[it_mxbt].thtype = s_mx.thtype ext: destroy uo_sptprice IF rslt = 0 THEN p_clearmx() Return(rslt) end function public function integer stopaddqty (long arg_scid, long arg_wfjgid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, decimal arg_rewfjgqty, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);//arg_stopqty //本次要终止的数量 ; > 0增加终止; <0 减少终止; Int rslt = 1 Long ll_mtrlid Decimal lde_qty, lde_stopqty, lde_rewfjgqty Decimal ld_notconsignedqty IF IsNull(arg_stopqty) THEN arg_stopqty = 0 IF IsNull(arg_rewfjgqty) THEN arg_rewfjgqty = 0 SELECT u_order_wfjgMx.Qty - u_order_wfjgMx.consignedqty - u_order_wfjgmx.wasteqty - u_order_wfjgmx.thqty, u_order_wfjgMx.mtrlid, u_order_wfjgMx.Qty, u_order_wfjgMx.stopqty INTO :ld_notconsignedqty, :ll_mtrlid, :lde_qty, :lde_stopqty FROM u_order_wfjgMx WHERE u_order_wfjgMx.scid = :arg_scid AND u_order_wfjgMx.wfjgid = :arg_wfjgid And u_order_wfjgMx.printid = :arg_printid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '查询明细物料'+arg_mtrlcode+'未完成数失败' rslt = 0 GOTO ext END IF IF arg_mtrlcode = "" THEN SELECT mtrlcode INTO :arg_mtrlcode FROM u_mtrldef Where mtrlid = :ll_mtrlid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arG_MSG = '查询明细物料资料失败' rslt = 0 GOTO ext END IF END IF IF arg_stopqty > 0 THEN IF arg_stopqty > ld_notconsignedqty THEN arG_MSG = '明细物料'+arg_mtrlcode+'未完成数只有:'+String(ld_notconsignedqty,'#,##0.##########') +'不能终止:'+String(arg_stopqty,'#,##0.##########') rslt = 0 GOTO ext END IF ELSE IF Abs(arg_stopqty) > lde_stopqty THEN arG_MSG = '明细物料'+arg_mtrlcode+'已终止数只有:'+String(lde_stopqty,'#,##0.##########') +'不能取消终止:'+String(Abs(arg_stopqty),'#,##0.##########') rslt = 0 GOTO ext END IF END IF lde_stopqty = lde_stopqty + arg_stopqty //最新的终止数 IF stopqty(arg_scid, arg_wfjgid, arg_printid, arg_mtrlcode,lde_stopqty, arg_rewfjgqty ,arg_stopreason,arG_MSG,arg_ifcommit ) = 0 THEN rslt = 0 GOTO ext END IF ext: RETURN rslt end function public function integer uof_chk_ware_outhz (long arg_row, ref string arg_msg);Int rslt = 1 ////////////////////////////////////// // //==================================================================== // 按外协订单发出明细内容自动建立 //==================================================================== Int li_thflag Long i Decimal ld_sumqty IF uo_option_autocreate_outware = 1 And Trim(dscrp) <> '返工单审核自动生成的外协订单' And Trim(dscrp) <> '盘盈单审核自动生成的外协订单' THEN IF wfjghz_out[arg_row].qty > 0 THEN //检查库存 SELECT sum(noallocqty) INTO :ld_sumqty FROM u_mtrlware WHERE mtrlid = :wfjghz_out[arg_row].mtrlid AND storageid = :wfjghz_out[arg_row].storageid AND status = :wfjghz_out[arg_row].status AND woodcode = :wfjghz_out[arg_row].woodcode And pcode = :wfjghz_out[arg_row].pcode Using sqlca; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询 '+wfjghz_out[arg_row].mtrlcode+' 库存数量失败'+'~r~n'+sqlca.SQLErrText GOTO ext END IF IF IsNull(ld_sumqty) THEN ld_sumqty = 0 IF ld_sumqty < wfjghz_out[arg_row].qty THEN rslt = 0 arg_msg = wfjghz_out[arg_row].mtrlcode+' 库存数量:'+String(ld_sumqty,'#,##0.##########')+'少于本次出仓数量:'+String(wfjghz_out[arg_row].qty,'#,##0.##########')+',不能自动生成发出单' GOTO ext END IF ELSEIF billtype = 2 And wfjghz_out[arg_row].qty < 0 THEN //退回的,检查供应商库存 SELECT sum(noallocqty) INTO :ld_sumqty FROM ow_wfjgware WHERE mtrlid = :wfjghz_out[arg_row].mtrlid AND sptid = :sptid AND status = :wfjghz_out[arg_row].status AND woodcode = :wfjghz_out[arg_row].woodcode And pcode = :wfjghz_out[arg_row].pcode Using sqlca; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询 '+wfjghz_out[arg_row].mtrlcode+' 外协商库存数量失败'+'~r~n'+sqlca.SQLErrText GOTO ext END IF IF IsNull(ld_sumqty) THEN ld_sumqty = 0 IF ld_sumqty < Abs(wfjghz_out[arg_row].qty) THEN rslt = 0 arg_msg = wfjghz_out[arg_row].mtrlcode+' 外协商库存数量:'+String(ld_sumqty,'#,##0.##########')+'少于本次出仓数量:'+String(wfjghz_out[arg_row].qty,'#,##0.##########')+',不能自动生成退回单' GOTO ext END IF END IF END IF /////////////////////////////////////// // ext: RETURN rslt end function public function integer uof_create_outware_wfjg (long arg_scid, string arg_emp, ref string arg_msg);Int rslt = 1 Long cnt Int li_thflag Long ll_0_mtrlwareid Dec ld_rate String ls_unit //==================================================================== // 按外协订单发出明细内容自动建立 //==================================================================== uo_outware_wfjg uo_ware uo_ware = Create uo_outware_wfjg uo_ware.commit_transaction = sqlca Long i,j Long ll_mx Decimal ld_sumqty,ld_acceptqty,ld_lastqty Long ll_mtrlwareid[] Decimal ld_noallocqty[] Long ll_printid = 0 IF uo_option_autocreate_outware = 1 And Trim(dscrp) <> '返工单审核自动生成的外协订单' And Trim(dscrp) <> '盘盈单审核自动生成的外协订单' THEN IF it_mxbt_out_hz > 0 THEN DateTime server_dt SELECT Top 1 getdate() Into :server_dt From u_user Using commit_transaction ; //取得系统时间,借用操作员表 IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF IF uo_ware.newbegin(scid,4,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_ware.outdate = requiredate uo_ware.outrep = arg_emp uo_ware.dscrp = '外协订单 '+taskcode+' 自动生成' uo_ware.relid = wfjgid //相关ID uo_ware.sptid = sptid uo_ware.part = taskcode uo_ware.if_getid_ture = False //自动区分类型,发出/退回 IF wfjghz_out[1].qty >= 0 THEN uo_ware.thflag = 0 li_thflag = 0 ELSE uo_ware.thflag = 1 li_thflag = 1 END IF //检查是否够库存 FOR i = 1 To it_mxbt_out_hz IF li_thflag = 0 THEN //发出单,检查库存数 SELECT sum(noallocqty) INTO :ld_sumqty FROM u_mtrlware WHERE mtrlid = :wfjghz_out[i].mtrlid AND storageid = :wfjghz_out[i].storageid AND status = :wfjghz_out[i].status AND woodcode = :wfjghz_out[i].woodcode And pcode = :wfjghz_out[i].pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询 '+wfjghz_out[i].mtrlcode+' 库存数量失败'+'~r~n'+commit_transaction.SQLErrText GOTO ext END IF IF IsNull(ld_sumqty) THEN ld_sumqty = 0 IF ld_sumqty < wfjghz_out[i].qty THEN rslt = 0 arg_msg = wfjghz_out[i].mtrlcode+' 库存数量:'+String(ld_sumqty,'#,##0.##########')+'少于本次出仓数量:'+String(wfjghz_out[i].qty,'#,##0.##########')+',不能自动生成发出单' GOTO ext END IF ELSE //退回单,检查库存id cnt = 0 SELECT count(*) INTO :cnt FROM u_mtrlware WHERE mtrlid = :wfjghz_out[i].mtrlid AND storageid = :wfjghz_out[i].storageid AND status = :wfjghz_out[i].status AND woodcode = :wfjghz_out[i].woodcode And pcode = :wfjghz_out[i].pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询 '+wfjghz_out[i].mtrlcode+' 退回仓库是否有库存记录失败'+'~r~n'+commit_transaction.SQLErrText GOTO ext END IF IF cnt = 0 THEN ll_0_mtrlwareid = f_sys_scidentity(arg_scid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca) IF ll_0_mtrlwareid <= 0 THEN rslt = 0 GOTO ext END IF INSERT INTO u_mtrlware(scid, mtrlwareid, mtrlid, storageid, status, woodcode, pcode) VALUES(:arg_scid, :ll_0_mtrlwareid, :wfjghz_out[i].mtrlid, :wfjghz_out[i].storageid, :wfjghz_out[i].status, :wfjghz_out[i].woodcode, :wfjghz_out[i].pcode) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '物料:'+wfjghz_out[i].mtrlcode+' 退回仓增加0库存记录失败'+'~r~n'+commit_transaction.SQLErrText GOTO ext END IF END IF END IF NEXT //插入明细 FOR i = 1 To it_mxbt_out_hz ll_mx = 1 DECLARE cur_mx CURSOR FOR SELECT noallocqty,mtrlwareid FROM u_mtrlware WHERE mtrlid = :wfjghz_out[i].mtrlid AND storageid = :wfjghz_out[i].storageid AND status = :wfjghz_out[i].status AND woodcode = :wfjghz_out[i].woodcode AND pcode = :wfjghz_out[i].pcode ORDER BY noallocqty DESC Using commit_transaction; OPEN cur_mx; FETCH cur_mx Into :ld_noallocqty[ll_mx],:ll_mtrlwareid[ll_mx]; DO WHILE commit_transaction.SQLCode = 0 ll_mx++ FETCH cur_mx Into :ld_noallocqty[ll_mx],:ll_mtrlwareid[ll_mx]; LOOP CLOSE cur_mx; ld_lastqty = wfjghz_out[i].qty FOR j = 1 To ll_mx - 1 IF ld_lastqty <= ld_noallocqty[j] THEN ld_acceptqty = ld_lastqty ld_lastqty = 0 ELSE ld_acceptqty = ld_noallocqty[j] ld_lastqty = ld_lastqty - ld_noallocqty[j] END IF ll_printid++ IF wfjghz_out[i].rate <= 0 THEN ld_rate = 1 ls_unit = wfjghz_out[i].unit_def ELSE ld_rate = wfjghz_out[i].rate ls_unit = wfjghz_out[i].unit END IF IF uo_ware.acceptmx(ll_mtrlwareid[j],& ld_acceptqty / ld_rate,& ls_unit,& ld_acceptqty,0,& wfjghz_out[i].dscrp,& ll_printid,& arg_msg,& 1,& wfjgid,& wfjghz_out[i].printid,& 0,0) = 0 THEN rslt = 0 GOTO ext END IF IF ld_lastqty = 0 THEN EXIT NEXT IF ld_lastqty > 0 THEN arg_msg = wfjghz_out[i].mtrlcode+' 库存欠数量:'+String(ld_lastqty,'#,##0.##########')+',不能自动生成发出单' rslt = 0 GOTO ext END IF NEXT //保存发出单 IF uo_ware.Save(False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_ware.getinfo(scid,uo_ware.outwareid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //审核发出单 IF uo_ware.auditing(False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF // END IF // IF billtype = 2 THEN //退回单,自动更新原外协订单的已退回数 // // END IF END IF ext: Destroy uo_ware RETURN rslt end function public function integer uof_destroy_outware_wfjg (ref string arg_msg);Int rslt = 1 Long cnt //撤审并删除自动生成的仓库外协发出单 uo_outware_wfjg uo_ware uo_ware = Create uo_outware_wfjg uo_ware.commit_transaction = sqlca IF uo_option_autocreate_outware = 1 And Trim(dscrp) <> '返工单审核自动生成的外协订单' THEN cnt = 0 SELECT count(*) INTO :cnt FROM ow_wfjg_out WHERE relid = :wfjgid AND billtype = 4 And scid = :scid Using commit_transaction; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询是否有自动建立的外协发出单失败'+'~n'+commit_transaction.SQLErrText GOTO ext END IF IF cnt = 1 THEN Long ll_outwareid SELECT outwareid INTO :ll_outwareid FROM ow_wfjg_out WHERE relid = :wfjgid AND billtype = 4 And scid = :scid Using commit_transaction; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询自动建立的外协发出单信息失败'+'~n'+commit_transaction.SQLErrText GOTO ext END IF IF uo_ware.getinfo(scid,ll_outwareid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_ware.c_auditing(False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_ware.del(scid,ll_outwareid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF // ext: Destroy uo_ware RETURN rslt end function public function integer uof_add_order_acmpqty (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);// arg_addqty > 0 审核 增加 // arg_addqty < 0 撤审 减少 Int rslt = 1 Long ll_i, ll_k Long ll_cnt_order Long ll_orderid, ll_mtrlid_order Int li_ordertype_order, li_ifwfjgorder Decimal lde_addqty uo_order_ml uo_order uo_order = Create uo_order_ml datastore ds_rqwfjg ds_rqwfjg = Create datastore ds_rqwfjg.DataObject = 'ds_order_wfjg_request_wfjg_mxmx' ds_rqwfjg.SetTransObject(sqlca) //1.通过外协申请单,找到对应的主计划, //更新外协主生产计划已进仓数 Decimal lde_addqty_allow, ld_qty Decimal lde_orderqty, lde_acmpqty, lde_stopqty, lde_unacmpqty //ll_i = arg_row lde_addqty = Abs(arg_addqty) String ls_mtrlcode,ls_taskcode Long ll_mtrlid Long ll_iforder Int li_ordertype_order_ml Long ll_relwfjgid, ll_relprintid SELECT u_mtrldef.mtrlcode, u_order_wfjgMx.orderid, u_order_wfjgMx.mtrlid, u_order_wfjgmx.iforder, u_order_wfjg.taskcode, u_order_wfjgMx.relwfjgid, u_order_wfjgMx.relprintid INTO :ls_mtrlcode, :ll_orderid, :ll_mtrlid, :ll_iforder, :ls_taskcode, :ll_relwfjgid, :ll_relprintid FROM u_mtrldef,u_order_wfjgMx,u_order_wfjg WHERE u_mtrldef.mtrlid = u_order_wfjgMx.mtrlid AND u_order_wfjgMx.scid = :arg_scid AND u_order_wfjgMx.wfjgid = :arg_wfjgid AND u_order_wfjgMx.scid = u_order_wfjg.scid AND u_order_wfjgMx.wfjgid = u_order_wfjg.wfjgid AND u_order_wfjgMx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细物料编码失败,'+commit_transaction.SQLErrText GOTO ext END IF IF ll_iforder > 0 THEN ll_cnt_order = ds_rqwfjg.Retrieve(scid,ll_relwfjgid,ll_relprintid) FOR ll_k = 1 To ll_cnt_order ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k] IF ll_orderid = 0 THEN CONTINUE li_ordertype_order = ds_rqwfjg.Object.ordertype[ll_k] li_ifwfjgorder = ds_rqwfjg.Object.ifwforder[ll_k] ll_mtrlid_order = ds_rqwfjg.Object.mtrlid_order[ll_k] lde_orderqty = ds_rqwfjg.Object.mtrlid_order[ll_k] lde_acmpqty = ds_rqwfjg.Object.acmpqty[ll_k] lde_stopqty = ds_rqwfjg.Object.stopqty[ll_k] lde_unacmpqty = ds_rqwfjg.Object.unacmpqty[ll_k] //更新外协主生产计划已进仓数 If (li_ordertype_order = 3 Or li_ifwfjgorder = 1) And ll_mtrlid_order = ll_mtrlid THEN IF arg_addqty > 0 THEN lde_addqty_allow = lde_unacmpqty ELSE lde_addqty_allow = lde_acmpqty END IF IF lde_addqty_allow > 0 THEN ld_qty = Min(lde_addqty, lde_addqty_allow) //本条处理数 lde_addqty -= ld_qty //未处理数 IF ld_qty > 0 THEN IF arg_addqty > 0 THEN //增加 //ld_qty = ld_qty ELSE //减少 ld_qty = 0 - ld_qty END IF IF uo_order.addmxcmpl(scid,ll_orderid,ld_qty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF uo_order.tryfinishorder(scid,ll_orderid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF IF lde_addqty <= 0 THEN EXIT // 完成 END IF END IF NEXT END IF ext: Destroy uo_order Destroy ds_rqwfjg 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_add_order_stopqty (long arg_scid, long arg_wfjgid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);// arg_addqty > 0 审核 增加 // arg_addqty < 0 撤审 减少 Int rslt = 1 Long ll_i, ll_k Long ll_cnt_order Long ll_orderid, ll_mtrlid_order Int li_ordertype_order, li_ifwfjgorder Decimal lde_addqty uo_order_ml uo_order uo_order = Create uo_order_ml datastore ds_rqwfjg ds_rqwfjg = Create datastore ds_rqwfjg.DataObject = 'ds_order_wfjg_request_wfjg_mxmx' ds_rqwfjg.SetTransObject(sqlca) //1.通过外协申请单,找到对应的主计划, //更新外协主生产计划终止数 Decimal lde_addqty_allow, ld_qty Decimal lde_orderqty, lde_acmpqty, lde_stopqty, lde_unacmpqty //ll_i = arg_row lde_addqty = Abs(arg_addqty) String ls_mtrlcode,ls_taskcode Long ll_mtrlid Long ll_iforder Int li_ordertype_order_ml Long ll_relwfjgid, ll_relprintid SELECT u_mtrldef.mtrlcode, u_order_wfjgMx.orderid, u_order_wfjgMx.wrkGrpid, u_order_wfjgMx.mtrlid, u_order_wfjgmx.iforder, u_order_wfjg.taskcode, u_order_wfjgMx.relwfjgid, u_order_wfjgMx.relprintid INTO :ls_mtrlcode, :ll_orderid, :ll_mtrlid, :ll_iforder, :ls_taskcode, :ll_relwfjgid, :ll_relprintid FROM u_mtrldef,u_order_wfjgMx,u_order_wfjg WHERE u_mtrldef.mtrlid = u_order_wfjgMx.mtrlid AND u_order_wfjgMx.scid = :arg_scid AND u_order_wfjgMx.wfjgid = :arg_wfjgid AND u_order_wfjgMx.scid = u_order_wfjg.scid AND u_order_wfjgMx.wfjgid = u_order_wfjg.wfjgid AND u_order_wfjgMx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细物料编码失败,'+commit_transaction.SQLErrText GOTO ext END IF IF ll_iforder > 0 THEN ll_cnt_order = ds_rqwfjg.Retrieve(scid,ll_relwfjgid,ll_relprintid) FOR ll_k = 1 To ll_cnt_order ll_orderid = ds_rqwfjg.Object.u_request_wfjgmxmx_orderid[ll_k] IF ll_orderid = 0 THEN CONTINUE li_ordertype_order = ds_rqwfjg.Object.ordertype[ll_k] li_ifwfjgorder = ds_rqwfjg.Object.ifwforder[ll_k] ll_mtrlid_order = ds_rqwfjg.Object.mtrlid_order[ll_k] lde_orderqty = ds_rqwfjg.Object.mtrlid_order[ll_k] lde_acmpqty = ds_rqwfjg.Object.acmpqty[ll_k] lde_stopqty = ds_rqwfjg.Object.stopqty[ll_k] lde_unacmpqty = ds_rqwfjg.Object.unacmpqty[ll_k] //更新外协主生产计划已进仓数 If (li_ordertype_order = 3 Or li_ifwfjgorder = 1) And ll_mtrlid_order = ll_mtrlid THEN IF arg_addqty > 0 THEN lde_addqty_allow = lde_unacmpqty ELSE lde_addqty_allow = lde_stopqty END IF IF lde_addqty_allow > 0 THEN ld_qty = Min(lde_addqty, lde_addqty_allow) //本条处理数 lde_addqty -= ld_qty //未处理数 IF ld_qty > 0 THEN IF arg_addqty > 0 THEN //增加 //ld_qty = ld_qty ELSE //减少 ld_qty = 0 - ld_qty END IF // IF uo_order.addmxcmpl(scid,ll_orderid,ld_qty,arg_msg,False) = 0 THEN // rslt = 0 // GOTO ext // END IF // IF uo_order.tryfinishorder(scid,ll_orderid,arg_msg,False) = 0 THEN // rslt = 0 // GOTO ext // END IF END IF IF lde_addqty <= 0 THEN EXIT // 完成 END IF END IF NEXT END IF ext: Destroy uo_order Destroy ds_rqwfjg IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit THEN COMMIT Using commit_transaction; END IF RETURN rslt end function protected function integer uof_add_dstrqty (long arg_scid, long arg_wfjgid, long arg_printid, long arg_orderid, long arg_mtrlid, string arg_pfcode, decimal arg_buyqty, decimal arg_addqty, integer arg_type, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1 Long ll_k, ll_row_f,cnt Long ll_lp Long ll_sonmtrlid_array[],ll_array,k Decimal ld_qty_array[] String ls_mtrlcode_out, ls_status_out, ls_woodcode_out, ls_pcode_out Long ll_wrkgrpid_out, ll_mtrlid_out Decimal ld_qty_out, ld_arrry_qty Decimal lde_sonscale String ls_ordercode, ls_mtrlcode Decimal ld_cost_out,ld_costamt_out,ld_overqty String ls_wrkgrpname Long ll_workgroupid datastore ds_mrpmx ds_mrpmx = Create datastore ds_mrpmx.DataObject = 'ds_order_ml_mrpmx' ds_mrpmx.SetTransObject(sqlca) uo_order_ml uo_order uo_order = Create uo_order_ml //arg_type 0-收货更新,1-终止更新 //更新相关发出明细已领数 IF arg_orderid > 0 THEN SELECT ordercode INTO :ls_ordercode FROM u_order_ml WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN ls_ordercode = "" END IF SELECT mtrlcode Into :ls_mtrlcode From u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN ls_mtrlcode = "" END IF ds_mrpmx.Retrieve(arg_scid,arg_orderid) ll_row_f = ds_mrpmx.Find("u_orderrqmtrl_tree_mtrlid = "+String(arg_mtrlid),1,ds_mrpmx.RowCount()) IF ll_row_f = 0 THEN rslt = 0 arg_msg = '订单明细:'+String(arg_printid)+' 相应主生产计划['+ls_ordercode+']运算明细找不到资料['+ls_mtrlcode+'],请检查计划运算结果' GOTO ext END IF IF ll_row_f > 0 THEN ll_lp = ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_row_f] FOR ll_k = ll_row_f + 1 To ds_mrpmx.RowCount() IF ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_k] <= ll_lp THEN EXIT IF ds_mrpmx.Object.u_orderrqmtrl_tree_lp[ll_k] = ll_lp + 1 And ds_mrpmx.Object.u_orderrqmtrl_tree_rqqty[ll_k] > 0 THEN ls_mtrlcode_out = ds_mrpmx.Object.u_mtrldef_mtrlcode[ll_k] ll_wrkgrpid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_wrkgrpid[ll_k] ll_mtrlid_out = ds_mrpmx.Object.u_orderrqmtrl_tree_mtrlid[ll_k] ls_status_out = ds_mrpmx.Object.u_orderrqmtrl_tree_status[ll_k] ls_woodcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_woodcode[ll_k] ls_pcode_out = ds_mrpmx.Object.u_orderrqmtrl_tree_pcode[ll_k] lde_sonscale = ds_mrpmx.Object.u_orderrqmtrl_tree_sonscale[ll_k] IF lde_sonscale = 0 THEN lde_sonscale = ds_mrpmx.Object.u_orderrqmtrl_tree_rqqty[ll_k] / ds_mrpmx.Object.u_orderrqmtrl_tree_truerqqty[ll_row_f] END IF ld_qty_out = Round(arg_addqty * lde_sonscale,dec_round) //ld_qty_out = arg_addqty / ds_mrpmx.Object.u_orderrqmtrl_tree_truerqqty[ll_row_f] * ds_mrpmx.Object.u_orderrqmtrl_tree_rqqty[ll_k] UPDATE u_order_wfjgMx_out SET DstrQty = DstrQty + :ld_qty_out WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid AND mtrlid = :ll_mtrlid_out AND status = :ls_status_out AND woodcode = :ls_woodcode_out AND pcode = :ls_pcode_out Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '订单明细:'+String(arg_printid)+' 更新相关发出明细已领数失败,'+commit_transaction.SQLErrText GOTO ext END IF //yyx2015-5-22 终止收货明细更新主生产计划发出明细的已领数 IF arg_type = 1 THEN SELECT top 1 cost INTO :ld_cost_out FROM ow_wfjgware WHERE sptid = :sptid AND mtrlid = :ll_mtrlid_out AND status = :ls_status_out AND woodcode = :ls_woodcode_out AND pcode = :ls_pcode_out AND scid = :scid Order By cost Desc Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ld_cost_out = 0 END IF ld_costamt_out = ld_qty_out * ld_cost_out IF ll_wrkgrpid_out > 0 THEN SELECT wrkgrpname INTO :ls_wrkgrpname FROM u_sc_workgroup Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询领用工组信息失败,'+commit_transaction.SQLErrText GOTO ext END IF SELECT TOP 1 workgroupid INTO :ll_workgroupid FROM u_workgroup Where wrkGrpid = :ll_wrkgrpid_out Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询领用工组 '+ls_wrkgrpname+' 相关的工作中心失败,可能是工组没有设置对应的工作中心,请检查'+commit_transaction.SQLErrText GOTO ext END IF ELSE ll_workgroupid = 0 END IF IF uo_order.f_add_dstrqty(arg_scid,arg_orderid,ll_workgroupid,ll_mtrlid_out,ls_mtrlcode_out,ls_status_out,ls_woodcode_out,ls_pcode_out,0 - ld_qty_out,0 - ld_costamt_out,arg_msg,False,-1,ld_overqty) = 0 THEN arg_msg = '相关订单明细:'+String(arg_printid)+',更新生产计划已领数失败,'+arg_msg rslt = 0 GOTO ext END IF END IF //yyx2015-5-22 end END IF NEXT END IF ELSE cnt = 0 SELECT count(*) INTO :cnt FROM u_order_wfjgmx_out_mx WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid And relprintid = :arg_printid; IF sqlca.SQLCode <> 0 THEN arg_msg = '订单明细:'+String(arg_printid)+' 更新相关发出明细失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN ll_array = 0 DECLARE cur_inmx CURSOR FOR SELECT u_PrdPF.SonMtrlid, :arg_addqty * u_prdpf.Sonscale / (1 - u_PrdPF.sonloss) + u_PrdPF.SonDECLoss FROM u_PrdPF INNER JOIN u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid WHERE ( u_PrdPF.mtrlid = :arg_mtrlid ) And ( u_PrdPF.pfcode = :arg_pfcode ) ; OPEN cur_inmx; FETCH cur_inmx Into :ll_mtrlid_out,:ld_arrry_qty; DO WHILE sqlca.SQLCode = 0 ll_array++ ll_sonmtrlid_array[ll_array] = ll_mtrlid_out ld_qty_array[ll_array] = ld_arrry_qty FETCH cur_inmx Into :ll_mtrlid_out,:ld_arrry_qty; LOOP CLOSE cur_inmx; IF ll_array = 0 THEN IF sys_option_wfjg_outmx = 0 Or sys_option_wfjg_out_cmp = 0 THEN //可以没有发出明细 ELSE arg_msg = '订单明细:'+String(arg_printid)+' 没有设置下级物料清单,请检查物料清单' rslt = 0 GOTO ext END IF END IF FOR k = 1 To ll_array UPDATE u_order_wfjgMx_out SET DstrQty = DstrQty + :ld_qty_array[k] WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid AND mtrlid = :ll_sonmtrlid_array[k] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '订单明细:'+String(arg_printid)+' 更新相关发出明细已领数失败,'+commit_transaction.SQLErrText GOTO ext END IF NEXT ELSE ll_array = 0 DECLARE cur_inmx2 CURSOR FOR SELECT u_order_wfjgmx_out_mx.mtrlid, :arg_addqty * u_order_wfjgmx_out_mx.qty / :arg_buyqty FROM u_order_wfjgmx_out_mx WHERE ( u_order_wfjgmx_out_mx.scid = :arg_scid ) AND ( u_order_wfjgmx_out_mx.wfjgid = :arg_wfjgid ) And ( u_order_wfjgmx_out_mx.relprintid = :arg_printid ) ; OPEN cur_inmx2; FETCH cur_inmx2 Into :ll_mtrlid_out,:ld_arrry_qty; DO WHILE sqlca.SQLCode = 0 ll_array++ ll_sonmtrlid_array[ll_array] = ll_mtrlid_out ld_qty_array[ll_array] = ld_arrry_qty FETCH cur_inmx2 Into :ll_mtrlid_out,:ld_arrry_qty; LOOP CLOSE cur_inmx2; IF ll_array = 0 THEN arg_msg = '订单明细:'+String(arg_printid)+' 没有设置相应发出明细,请检查订单的发出明细' rslt = 0 GOTO ext END IF FOR k = 1 To ll_array UPDATE u_order_wfjgMx_out SET DstrQty = DstrQty + :ld_qty_array[k] WHERE scid = :arg_scid AND wfjgid = :arg_wfjgid AND mtrlid = :ll_sonmtrlid_array[k] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '订单明细:'+String(arg_printid)+' 更新相关发出明细已领数失败,'+commit_transaction.SQLErrText GOTO ext END IF NEXT END IF END IF ext: Destroy ds_mrpmx Destroy uo_order RETURN rslt end function on uo_order_wfjg.create call super::create TriggerEvent( this, "constructor" ) end on on uo_order_wfjg.destroy TriggerEvent( this, "destructor" ) call super::destroy end on event constructor;String str_optionvalue,arg_msg f_get_sys_option_value('086',str_optionvalue,arg_msg) uo_option_wfjg_outmx = Long(str_optionvalue) f_get_sys_option_value('087',str_optionvalue,arg_msg) uo_option_autocreate_outware = Long(str_optionvalue) f_get_sys_option_value('010',str_optionvalue,arg_msg) uo_option_ifovertask = Long(str_optionvalue) f_get_sys_option_value('067',str_optionvalue,arg_msg) uo_option_2unit = Long(str_optionvalue) f_get_sys_option_value('343',str_optionvalue,arg_msg) uo_option_update_rqmtrlqty_wfjg = Long(str_optionvalue) end event