$PBExportHeader$uo_mtrlware_assign.sru forward global type uo_mtrlware_assign from nonvisualobject end type end forward global type uo_mtrlware_assign from nonvisualobject end type global uo_mtrlware_assign uo_mtrlware_assign type variables Long uo_assignid Int li_if_assign_del_check_outware Boolean ib_ifnotcheck_qty = False Boolean ib_ifinware_audit_do = False Transaction commit_transaction //数据commit事务 Int uo_option_packpro2_not_use_pack1 Int uo_option_iffp_recmpl_canuseqty Long uo_fp_storageid,uo_fp_pdbdate Int li_if_uo_mtrlware_trans_fp_deluse int uo_option_canpack_ifzanyong end variables forward prototypes public function integer uof_assign_del (long arg_assignid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_assign_addoutqty (long arg_assignid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_plan_del (long arg_planid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_plan_addassignqty (long arg_planid, decimal arg_qty, string arg_inwarecode, long arg_inprintid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_assign_add (long arg_scid, long arg_mtrlwareid, integer arg_assigntype, long arg_relbillid, long arg_relprintid, decimal arg_assignqty, decimal arg_cost, string arg_dscrp, string arg_mtrlcuscode, string arg_inwarecode, long arg_inprintid, integer arg_fpgrade, string arg_opemp, ref string arg_msg, boolean arg_ifcommit) public function integer uof_plan_add (long arg_scid, long arg_mtrlwareid, integer arg_assigntype, long arg_relbillid, long arg_relprintid, decimal arg_planqty, string arg_dscrp, string arg_opemp, integer arg_plantype, integer arg_plankind, long arg_plankind_relbillid, long arg_plankind_relprintid, integer arg_fpgrade, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_msg, boolean arg_ifcommit) public function integer uof_assign_add_to_zl_scll (long arg_scid, long arg_orderid, long arg_mtrlid, long arg_wrkgrpid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_fpqty, long arg_from_p_orderid, integer arg_from_plantype, integer arg_from_produce_wrkgrpid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_assign_del_order (long arr_scid[], long arr_orderid[], ref string arg_msg, boolean if_commit) public function integer uof_assign_add_order (long arg_scid[], long arg_orderid[], ref string arg_msg, boolean if_commit) public function integer uof_assign_add_to_order (long arg_scid, long arg_mtrlwareid, long arg_orderid, decimal arg_qty, long arg_fpgrade, ref string arg_msg, boolean if_commit) public function integer uof_assign_del_all_order (ref string arg_msg, boolean if_commit) public function integer uof_assign_del_order_by_mtrlid (long arg_mtrlid, ref string arg_msg, boolean if_commit) public function integer uof_assign_add_to_order_auto (ref string arg_msg, boolean if_commit) public function integer uof_assign_add_to_order_by_mtrlid (long arg_mtrlid, ref string arg_msg, boolean if_commit) public function integer uof_adjust_order_by_mtrlid (long arg_mtrlid, long arg_fpgrade, ref string arg_msg) public function integer uof_assign_add_packpro_to_saletask (long arg_scid, long arg_mtrlwareid_task, long arg_cusid_task, long arg_mtrlid_task, decimal arg_fpqty, long arg_relbillid, long arg_relprintid, string arg_relbillcode, decimal arg_cost, string arg_dscrp, string arg_mtrlcuscode, integer arg_fpgrade, string arg_opemp, ref string arg_msg, boolean arg_ifcommit) public function integer uof_clear_barcodefp (ref string arg_barcode, string arg_msg, boolean arg_ifcommit) end prototypes public function integer uof_assign_del (long arg_assignid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_scid,ll_mtrlwareid,ll_storageid Decimal ld_noallocqty,ld_allocqty Decimal ld_assignqty,ld_outqty,ld_assignqty_mtrlcuscode,ld_assignqty_old_task Int li_assigntype Long ll_relbillid,ll_relprintid,ll_mtrlid,ll_mtrlid_son,ll_cusid,ll_fpgrade Long i,cnt,k Int li_ifpack,li_ifpackpro,li_ifpackpro_mtrlware Decimal ld_Sonscale,ld_Sonscale_fm,ld_fpqty,ld_fpqty_mtrlcuscode String ls_status,ls_woodcode,ls_pcode,ls_mtrlcuscode,ls_plancode Long ll_mtrlwareid_task,ll_mtrlid_task String ls_relbillcode,ls_mtrlcode,ls_mtrlcode_task String ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task Int li_ref_ifadd String arg_lsg Decimal ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro Int li_ifbarcodefp,li_outtype_storage String ls_barcode Decimal ld_barcode_fpqty_cancel,ld_ref_fpqty s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst //取消指令分配用 Long j Decimal ld_fpqty_zl,ld_arg_qty,ld_update_qty Long ll_orderid_zl,ll_wrkgrpid_zl String ls_ordercode_zl Long ll_wrkgrpid, ll_plantype, ll_produce_wrkgrpid Long arr_wrkgrpid[], arr_plantype[], arr_produce_wrkgrpid[] Decimal ld_a_fpqty, arr_a_fpqty[], ld_tmpqty, ld_delqty Long ll_rqcnt IF uo_option_iffp_recmpl_canuseqty = -1000 THEN rslt = 0 arg_msg = '选项:[290]库存分配是否重算库存可装数、未分配可装数、未开单可装数,读取初始默认值失败,操作取消!' GOTO ext END IF datastore ds_cmpl_pack_saletask ds_cmpl_pack_saletask = Create datastore ds_cmpl_pack_saletask.DataObject = 'ds_uo_mtrlware_assign_saletask_pack_del' ds_cmpl_pack_saletask.SetTransObject(commit_transaction) datastore ds_cmpl_pack_saletask_barcode ds_cmpl_pack_saletask_barcode = Create datastore ds_cmpl_pack_saletask_barcode.DataObject = 'ds_uo_mtrlware_assign_saletask_barcode_del' ds_cmpl_pack_saletask_barcode.SetTransObject(commit_transaction) datastore ds_orderrqmtrl_fp_2_zl ds_orderrqmtrl_fp_2_zl = Create datastore ds_orderrqmtrl_fp_2_zl.DataObject = 'ds_order_mtrl_fp_to_zl_cancel' ds_orderrqmtrl_fp_2_zl.SetTransObject(commit_transaction) uo_cmpl_packpro uo_cmpl_p uo_cmpl_p = Create uo_cmpl_packpro uo_cmpl_p.commit_transaction = commit_transaction IF IsNull(arg_assignid) THEN arg_assignid = 0 IF IsNull(arg_qty) THEN arg_qty = 0 ld_barcode_fpqty_cancel = arg_qty SELECT scid, mtrlwareid, assignqty, outqty, assigntype, relbillid, relprintid, relbillcode, cusid, fpgrade INTO :ll_scid, :ll_mtrlwareid, :ld_assignqty, :ld_outqty, :li_assigntype, :ll_relbillid, :ll_relprintid, :ls_relbillcode, :ll_cusid, :ll_fpgrade FROM u_mtrlware_assign Where assignid = :arg_assignid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询库存分配资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF li_assigntype = 1 And li_if_assign_del_check_outware = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_outware,u_outwaremx WHERE u_outware.scid = u_outwaremx.scid AND u_outware.outwareid = u_outwaremx.outwareid AND u_outware.billtype = 1 AND u_outware.flag = 0 AND u_outwaremx.scid = :ll_scid AND u_outwaremx.relid = :ll_relbillid And u_outwaremx.relprintid = :ll_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配明细相关销售订单明细是否已开发货单失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN arg_msg = '分配明细相关销售订单明细已开发货单,操作取消' rslt = 0 GOTO ext END IF END IF IF ld_assignqty - ld_outqty < arg_qty THEN arg_msg = '库存分配未出仓数只有:'+String(ld_assignqty - ld_outqty,'#,##0.##########') + ',不能取消分配数量:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF IF arg_qty = ld_assignqty And ld_outqty = 0 THEN DELETE FROM u_mtrlware_assign Where assignid = :arg_assignid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '删除库存分配失败,' + commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE UPDATE u_mtrlware_assign SET assignqty = assignqty - :arg_qty Where assignid = :arg_assignid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新库存分配已分配数失败,' + commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF UPDATE u_mtrlware SET allocqty = allocqty - :arg_qty WHERE mtrlwareid = :ll_mtrlwareid And scid = :ll_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新库存已分配数量失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF SELECT u_mtrlware.mtrlid, u_mtrlware.storageid, u_mtrldef.ifpack, u_mtrldef.ifpackpro, u_mtrldef.mtrlcode, u_mtrlware.status, u_mtrlware.woodcode, u_mtrlware.pcode, u_mtrlware.mtrlcuscode, u_mtrlware.noallocqty, u_mtrlware.allocqty, u_mtrlware.plancode, u_mtrldef.ifbarcodefp, u_storage.outtype INTO :ll_mtrlid, :ll_storageid, :li_ifpack, :li_ifpackpro_mtrlware, :ls_mtrlcode, :ls_status, :ls_woodcode, :ls_pcode, :ls_mtrlcuscode, :ld_noallocqty, :ld_allocqty, :ls_plancode, :li_ifbarcodefp, :li_outtype_storage FROM u_mtrlware,u_mtrldef,u_storage WHERE u_mtrlware.scid = :ll_scid AND u_mtrlware.mtrlwareid = :ll_mtrlwareid And u_mtrlware.mtrlid = u_mtrldef.mtrlid And u_mtrlware.storageid = u_storage.storageid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询库存物料资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_noallocqty < ld_allocqty THEN arg_msg = '库存数小于已分配数,请检查库存' rslt = 0 GOTO ext END IF IF li_assigntype = 0 THEN //取消分到指令单 ds_orderrqmtrl_fp_2_zl.Retrieve(ll_scid,ll_relbillid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode) ld_arg_qty = arg_qty FOR i = 1 To ds_orderrqmtrl_fp_2_zl.RowCount() ll_orderid_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_orderid[i] ls_ordercode_zl = ds_orderrqmtrl_fp_2_zl.Object.u_order_ml_ordercode[i] ll_wrkgrpid_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_wrkgrpid[i] ld_fpqty_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_fpqty[i] IF ld_fpqty_zl > ld_arg_qty THEN ld_update_qty = ld_arg_qty ld_arg_qty = 0 ELSE ld_update_qty = ld_fpqty_zl ld_arg_qty = ld_arg_qty - ld_fpqty_zl END IF IF uof_assign_add_to_zl_scll(ll_scid,ll_orderid_zl,ll_mtrlid,ll_wrkgrpid_zl,& ls_status,ls_woodcode,ls_pcode,0 - ld_update_qty,& 0,0,0,arg_msg,False) = 0 THEN arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',更新相关指令单:'+ls_ordercode_zl+',物料已分配数失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT ll_rqcnt = 0 DECLARE cur1 CURSOR FOR SELECT wrkGrpid, plantype, produce_wrkGrpid, fpqty FROM u_OrderRqMtrl WHERE scid = :ll_scid AND orderid = :ll_relbillid AND mtrlid = :ll_mtrlid AND status = :ls_status AND woodcode = :ls_woodcode AND pcode = :ls_pcode And fpqty > 0 Using commit_transaction; OPEN cur1; FETCH cur1 Into :ll_wrkgrpid, :ll_plantype, :ll_produce_wrkgrpid, :ld_a_fpqty; DO WHILE commit_transaction.SQLCode = 0 ll_rqcnt++ arr_wrkgrpid[ll_rqcnt] = ll_wrkgrpid arr_plantype[ll_rqcnt] = ll_plantype arr_produce_wrkgrpid[ll_rqcnt] = ll_produce_wrkgrpid arr_a_fpqty[ll_rqcnt] = ld_a_fpqty FETCH cur1 Into :ll_wrkgrpid, :ll_plantype, :ll_produce_wrkgrpid, :ld_a_fpqty; LOOP CLOSE cur1; ld_tmpqty = arg_qty FOR i = 1 To ll_rqcnt IF ld_tmpqty = 0 THEN EXIT ll_wrkgrpid = arr_wrkgrpid[i] ll_plantype = arr_plantype[i] ll_produce_wrkgrpid = arr_produce_wrkgrpid[i] ld_a_fpqty = arr_a_fpqty[i] IF ld_tmpqty > ld_a_fpqty THEN ld_delqty = ld_a_fpqty ELSE ld_delqty = ld_tmpqty END IF UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.fpqty = u_OrderRqMtrl.fpqty - :ld_delqty WHERE u_OrderRqMtrl.scid = :ll_scid AND u_OrderRqMtrl.orderid = :ll_relbillid AND u_OrderRqMtrl.mtrlid = :ll_mtrlid AND u_OrderRqMtrl.status = :ls_status AND u_OrderRqMtrl.woodcode = :ls_woodcode AND u_OrderRqMtrl.pcode = :ls_pcode AND u_OrderRqMtrl.wrkgrpid = :ll_wrkgrpid AND u_OrderRqMtrl.plantype = :ll_plantype And u_OrderRqMtrl.produce_wrkGrpid = :ll_produce_wrkgrpid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新生产计划需求明细库存已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ld_tmpqty = ld_tmpqty - ld_delqty IF i = ll_rqcnt And ld_tmpqty > 0 THEN UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.fpqty = u_OrderRqMtrl.fpqty - :ld_tmpqty WHERE u_OrderRqMtrl.scid = :ll_scid AND u_OrderRqMtrl.orderid = :ll_relbillid AND u_OrderRqMtrl.mtrlid = :ll_mtrlid AND u_OrderRqMtrl.status = :ls_status AND u_OrderRqMtrl.woodcode = :ls_woodcode AND u_OrderRqMtrl.pcode = :ls_pcode AND u_OrderRqMtrl.wrkgrpid = :ll_wrkgrpid AND u_OrderRqMtrl.plantype = :ll_plantype And u_OrderRqMtrl.produce_wrkGrpid = :ll_produce_wrkgrpid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新生产计划需求明细库存已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF NEXT ELSE SELECT u_mtrldef.ifpackpro, u_saletaskmx.mtrlid, u_saletaskmx.status, u_saletaskmx.woodcode, u_saletaskmx.pcode, u_saletaskmx.mtrlcuscode, u_mtrldef.mtrlcode INTO :li_ifpackpro, :ll_mtrlid_task, :ls_status_task, :ls_woodcode_task, :ls_pcode_task, :ls_plancode_task, :ls_mtrlcode_task FROM u_saletask,u_saletaskmx,u_mtrldef WHERE u_saletask.scid = u_saletaskmx.scid AND u_saletask.taskid = u_saletaskmx.taskid AND u_saletaskmx.mtrlid = u_mtrldef.mtrlid AND u_saletaskmx.scid = :ll_scid AND u_saletaskmx.taskid = :ll_relbillid And u_saletaskmx.printid = :ll_relprintid Using commit_transaction; IF commit_transaction.SQLCode = -1 THEN arg_msg = '查询订单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext ELSEIF commit_transaction.SQLCode = 100 THEN rslt = 1 GOTO ext END IF //yyx20120825 //包件检查订单包件产品是否有0库存,如果无则加0库存并计算可装数 IF li_ifpackpro = 2 And li_ifpack = 2 Or & li_ifpackpro = 4 And (Pos(ls_status_task,'+') > 0 Or Pos(ls_status_task,'*') > 0) Or & li_ifpackpro = 1 And li_ifpack = 1 THEN IF f_insert_0_mtrlware_2(ll_mtrlwareid_task,ll_mtrlid_task,ls_mtrlcode_task,ll_storageid,& 0,ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task,ls_mtrlcuscode,& '',0,li_ref_ifadd,arg_msg,False) = 0 THEN arg_msg = '订单产品:'+ls_mtrlcode_task+',查询包件产品0库存信息记录失败,'+arg_msg rslt = 0 GOTO ext END IF IF li_ref_ifadd = 1 THEN IF f_cmp_di_qty_fpqty(ll_mtrlid_task,ll_storageid,ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task,ls_mtrlcuscode,ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro,ld_ref_fpqty,arg_lsg,arg_msg) = 0 THEN arg_msg = '物料:'+ls_mtrlcode_task+',计算可装数失败,'+arg_msg rslt = 0 GOTO ext END IF IF uo_cmpl_p.uof_update_canuseqty(ll_scid,ll_mtrlwareid_task,ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro,ld_ref_fpqty,arg_msg,False) = 0 THEN arg_msg = '物料:'+ls_mtrlcode_task+',更新可装数失败,'+arg_msg rslt = 0 GOTO ext END IF END IF END IF //yyx20120712_end If (li_ifpackpro = 1 Or li_ifpackpro = 2) And li_ifpack = 0 THEN arg_msg = '当前库存分配的订单为包件产品,但对应分配的库存不是包件,请检查资料' rslt = 0 GOTO ext ElseIf (li_ifpackpro = 1 Or li_ifpackpro = 2) And li_ifpack > 0 THEN Long ll_saletaskmx_pf_ch IF Not ( uo_option_packpro2_not_use_pack1 = 1 And li_ifpackpro = 2 And li_ifpack = 1 ) THEN ll_saletaskmx_pf_ch = 0 IF li_ifpackpro = 1 THEN ll_saletaskmx_pf_ch = 0 ELSE SELECT count(*) INTO :ll_saletaskmx_pf_ch FROM u_SaleTaskMx_pf WHERE u_SaleTaskMx_pf.scid = :ll_scid AND u_SaleTaskMx_pf.taskid = :ll_relbillid And u_SaleTaskMx_pf.printid = :ll_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询相关订单明细行:'+String(ll_relprintid)+'是否有换包件失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF IF ll_saletaskmx_pf_ch > 0 THEN ds_cmpl_pack_saletask.DataObject = 'ds_uo_mtrlware_assign_saletask_pack2_del' ds_cmpl_pack_saletask.SetTransObject(commit_transaction) ds_cmpl_pack_saletask.Retrieve(ll_scid,ll_relbillid,ll_relprintid) ELSE ds_cmpl_pack_saletask.Retrieve(ll_mtrlid_task) END IF IF ds_cmpl_pack_saletask.RowCount() = 0 THEN ld_fpqty = 0 ld_fpqty_mtrlcuscode = 0 ELSE ld_fpqty = 999999999 ld_fpqty_mtrlcuscode = 999999999 FOR i = 1 To ds_cmpl_pack_saletask.RowCount() IF uo_option_packpro2_not_use_pack1 = 1 THEN IF li_ifpackpro = 2 And ds_cmpl_pack_saletask.Object.u_mtrldef_ifpack[i] = 1 THEN CONTINUE END IF END IF ll_mtrlid_son = ds_cmpl_pack_saletask.Object.u_prdpf_sonmtrlid[i] ld_Sonscale = ds_cmpl_pack_saletask.Object.u_prdpf_sonscale[i] ld_Sonscale_fm = ds_cmpl_pack_saletask.Object.u_prdpf_sonscale_fm[i] SELECT isnull(sum(assignqty),0), isnull(sum(case when u_mtrldef.ifpack = 1 OR u_mtrldef.ifpack = 2 AND u_mtrlware_assign.mtrlcuscode = :ls_mtrlcuscode then assignqty else 0 END ),0) INTO :ld_assignqty,:ld_assignqty_mtrlcuscode FROM u_mtrlware_assign INNER join u_mtrldef on u_mtrlware_assign.mtrlid = u_mtrldef.mtrlid WHERE u_mtrlware_assign.scid = :ll_scid AND u_mtrlware_assign.relbillid = :ll_relbillid AND u_mtrlware_assign.relprintid = :ll_relprintid AND u_mtrlware_assign.mtrlid = :ll_mtrlid_son And u_mtrlware_assign.assigntype = 1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单其它包件已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ld_fpqty = Min(ld_fpqty,ld_assignqty/(ld_Sonscale/ld_Sonscale_fm)) ld_fpqty_mtrlcuscode = Min(ld_fpqty_mtrlcuscode,ld_assignqty_mtrlcuscode/(ld_Sonscale/ld_Sonscale_fm)) NEXT END IF UPDATE u_saletaskmx SET u_saletaskmx.fpqty = :ld_fpqty WHERE u_saletaskmx.scid = :ll_scid AND u_saletaskmx.taskid = :ll_relbillid And u_saletaskmx.printid = :ll_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新订单明细已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF ELSEIF li_ifpackpro = 3 Or li_ifpackpro = 4 THEN //组合配置包件产品 s_mtrlcfg_expr s_pz[] Long ll_array,ll_l Decimal ld_pf_Sonscale[] String ls_pf_status[],ls_pf_woodcode[],ls_pf_pcode[] f_checkpz(ls_status_task,s_pz[]) ll_array = UpperBound(s_pz) IF ll_array = 0 THEN arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(ll_relprintid)+',拆分子件错误,请检查组合配置' rslt = 0 GOTO ext END IF FOR ll_l = 1 To ll_array ls_pf_status[ll_l] = s_pz[ll_l].cfgname ls_pf_woodcode[ll_l] = ls_woodcode_task ls_pf_pcode[ll_l] = ls_pcode_task ld_pf_Sonscale[ll_l] = Dec(s_pz[ll_l].qty) NEXT ld_fpqty = 0 FOR ll_l = 1 To ll_array IF ll_l > 1 And ld_fpqty = 0 THEN EXIT //最少配套数为0,不用计算其它子件 SELECT isnull(sum(assignqty),0), isnull(sum(case u_mtrlware_assign.mtrlcuscode when :ls_mtrlcuscode then assignqty else 0 END ),0) INTO :ld_assignqty,:ld_assignqty_mtrlcuscode FROM u_mtrlware_assign,u_mtrlware WHERE u_mtrlware_assign.scid = u_mtrlware.scid AND u_mtrlware_assign.mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.scid = :ll_scid AND u_mtrlware_assign.relbillid = :ll_relbillid AND u_mtrlware_assign.relprintid = :ll_relprintid AND u_mtrlware_assign.mtrlid = :ll_mtrlid AND u_mtrlware_assign.assigntype = 1 AND u_mtrlware.status = :ls_pf_status[ll_l] AND u_mtrlware.woodcode = :ls_pf_woodcode[ll_l] And u_mtrlware.pcode = :ls_pf_pcode[ll_l] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(ll_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ll_l = 1 THEN ld_fpqty = ld_assignqty/ld_pf_Sonscale[ll_l] ld_fpqty_mtrlcuscode = ld_assignqty_mtrlcuscode/ld_pf_Sonscale[ll_l] ELSE ld_fpqty = Min(ld_fpqty,ld_assignqty/ld_pf_Sonscale[ll_l]) ld_fpqty_mtrlcuscode = Min(ld_fpqty_mtrlcuscode,ld_assignqty_mtrlcuscode/ld_pf_Sonscale[ll_l]) END IF NEXT UPDATE u_saletaskmx SET u_saletaskmx.fpqty = :ld_fpqty WHERE u_saletaskmx.scid = :ll_scid AND u_saletaskmx.taskid = :ll_relbillid And u_saletaskmx.printid = :ll_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新订单明细已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE UPDATE u_saletaskmx SET u_saletaskmx.fpqty = u_saletaskmx.fpqty - :arg_qty WHERE u_saletaskmx.scid = :ll_scid AND u_saletaskmx.taskid = :ll_relbillid And u_saletaskmx.printid = :ll_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新订单明细已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF END IF IF li_assigntype = 1 THEN //yyx20130119 IF li_ifbarcodefp = 1 and ( li_outtype_storage = 2 or li_outtype_storage = 3 ) and li_if_uo_mtrlware_trans_fp_deluse = 0 THEN ds_cmpl_pack_saletask_barcode.Retrieve(ll_scid,ll_relbillid,ll_relprintid,ll_mtrlwareid) IF ds_cmpl_pack_saletask_barcode.RowCount() = 0 THEN arg_msg = '没有相关条码可取消分配,请检查相关订单库存条码分配' rslt = 0 GOTO ext END IF IF ds_cmpl_pack_saletask_barcode.Object.sumqty[1] < ld_barcode_fpqty_cancel THEN arg_msg = '取消相关订单库存条码分配的数量不足冲减,请检查相关订单库存条码分配' rslt = 0 GOTO ext END IF FOR k = 1 To ds_cmpl_pack_saletask_barcode.RowCount() IF ld_barcode_fpqty_cancel = 0 THEN EXIT END IF ls_barcode = ds_cmpl_pack_saletask_barcode.Object.barcode[k] IF ds_cmpl_pack_saletask_barcode.Object.qty[k] <= ld_barcode_fpqty_cancel THEN if uof_clear_barcodefp(ls_barcode,arg_msg,false) = 0 then rslt = 0 goto ext end if ld_barcode_fpqty_cancel = ld_barcode_fpqty_cancel - ds_cmpl_pack_saletask_barcode.Object.qty[k] END IF NEXT IF ld_barcode_fpqty_cancel > 0 THEN arg_msg = '取消相关订单库存条码分配的数量有余数,操作取消,请检查相关订单库存条码分配' rslt = 0 GOTO ext END IF END IF // //yyx20120825 //检查包件产品订单同批号的可装数,更新到包件产品库存分配明细 IF li_ifpackpro = 2 And li_ifpack = 2 Or & li_ifpackpro = 4 And (Pos(ls_status_task,'+') > 0 Or Pos(ls_status_task,'*') > 0) Or & li_ifpackpro = 1 And li_ifpack = 1 THEN SELECT assignqty INTO :ld_assignqty_old_task FROM u_mtrlware_assign WHERE u_mtrlware_assign.scid = :ll_scid AND u_mtrlware_assign.mtrlwareid = :ll_mtrlwareid_task AND u_mtrlware_assign.relbillid = :ll_relbillid AND u_mtrlware_assign.relprintid = :ll_relprintid AND u_mtrlware_assign.mtrlid = :ll_mtrlid_task And u_mtrlware_assign.assigntype = 1 Using commit_transaction; IF commit_transaction.SQLCode = -1 THEN arg_msg = '查询包件产品原库存分配数量失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext ELSEIF commit_transaction.SQLCode = 100 THEN ld_assignqty_old_task = 0 END IF ld_fpqty_mtrlcuscode = ld_fpqty_mtrlcuscode - ld_assignqty_old_task IF uof_assign_add_packpro_to_saletask(ll_scid,ll_mtrlwareid_task,& ll_cusid,ll_mtrlid_task,ld_fpqty_mtrlcuscode,& ll_relbillid,ll_relprintid,ls_relbillcode,& 0,'',ls_mtrlcuscode,& ll_fpgrade,'',arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF //yyx20120825_end //yyx2012-9-29 IF Not ib_ifinware_audit_do And uo_option_iffp_recmpl_canuseqty = 1 THEN //yyx2012-9-29返回计算可装数库存id数组 If ( li_ifpack = 1 Or li_ifpack = 2 Or li_ifpackpro_mtrlware = 3 Or li_ifpackpro_mtrlware = 4 ) THEN IF uo_cmpl_p.uof_ref_mtrlwarid_array(ll_mtrlid,ls_plancode,ls_mtrlcuscode,ll_storageid,s_mtrlwareid_array_rst,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF IF UpperBound(s_mtrlwareid_array_rst.mtrlwareid) > 0 THEN IF uo_cmpl_p.uof_cmpl_diqty(s_mtrlwareid_array_rst,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF Destroy ds_cmpl_pack_saletask Destroy ds_orderrqmtrl_fp_2_zl Destroy uo_cmpl_p RETURN rslt end function public function integer uof_assign_addoutqty (long arg_assignid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_scid,ll_mtrlwareid Decimal ld_assignqty,ld_outqty IF IsNull(arg_assignid) THEN arg_assignid = 0 IF IsNull(arg_qty) THEN arg_qty = 0 SELECT scid, mtrlwareid, assignqty, outqty INTO :ll_scid, :ll_mtrlwareid, :ld_assignqty, :ld_outqty FROM u_mtrlware_assign Where assignid = :arg_assignid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询库存分配资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_assignqty - ld_outqty < arg_qty THEN arg_msg = '库存分配未出仓数只有:'+String(ld_assignqty - ld_outqty,'#,##0.##########') + ',不能出仓数量:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_mtrlware SET allocqty = allocqty - :arg_qty WHERE mtrlwareid = :ll_mtrlwareid AND scid = :ll_scid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新库存已分配数量失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF UPDATE u_mtrlware_assign SET outqty = outqty + :arg_qty Where assignid = :arg_assignid 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 uof_plan_del (long arg_planid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_planassignqty,ld_assignqty Int li_Plantype,li_Plankind String ls_plankind_relbillcode Long ll_Plankind_relbillid,ll_Plankind_relprintid,ll_scid Decimal ld_fpqty,ld_ffpqty_not Long ll_mtrlid,ll_mtrlwareid,ll_relbillid String ls_status,ls_woodcode,ls_pcode Int li_assigntype String ls_Plankind_aps_plancode IF IsNull(arg_planid) THEN arg_planid = 0 IF IsNull(arg_qty) THEN arg_qty = 0 SELECT planassignqty, assignqty, Plantype, Plankind, Plankind_relbillid, Plankind_relprintid, scid, mtrlwareid, assigntype, relbillid, Plankind_aps_plancode INTO :ld_planassignqty, :ld_assignqty, :li_Plantype, :li_Plankind, :ll_Plankind_relbillid, :ll_Plankind_relprintid, :ll_scid, :ll_mtrlwareid, :li_assigntype, :ll_relbillid, :ls_Plankind_aps_plancode FROM u_mtrlware_assign_plan Where planid = :arg_planid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询库存分配计划资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_planassignqty - ld_assignqty < arg_qty THEN arg_msg = '分配计划未完成分配数只有:'+String(ld_planassignqty - ld_assignqty,'#,##0.##########') + ',不能取消分配计划数量:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF IF li_Plantype = 1 THEN IF li_Plankind = 0 THEN arg_msg = '错误的分配计划类型,请检查(0-无,1-指令单分配,2-采购订单分配,3-外协订单分配)' rslt = 0 GOTO ext END IF //检查分计划来源 CHOOSE CASE li_Plankind CASE 1 SELECT u_order_ml.ordercode, u_order_ml.fpqty, u_order_ml.fpqty - u_order_ml.ffpqty, u_order_ml.mtrlid, u_order_ml.status_mode, u_order_ml.woodcode, u_order_ml.pcode INTO :ls_plankind_relbillcode,:ld_fpqty,:ld_ffpqty_not, :ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode FROM u_order_ml WHERE u_order_ml.scid = :ll_scid And u_order_ml.orderid = :ll_Plankind_relbillid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配计划所属指令单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_qty > ld_fpqty THEN arg_msg = '指令单:'+ls_plankind_relbillcode+'分配计划占用数只有:'+String(ld_fpqty,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF IF arg_qty > ld_ffpqty_not THEN arg_msg = '指令单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_order_ml SET u_order_ml.fpqty = u_order_ml.fpqty - :arg_qty WHERE u_order_ml.scid = :ll_scid And u_order_ml.orderid = :ll_Plankind_relbillid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新指令单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF UPDATE u_order_zl_planmx SET u_order_zl_planmx.fpplanqty = u_order_zl_planmx.fpplanqty - :arg_qty WHERE u_order_zl_planmx.scid = :ll_scid AND u_order_zl_planmx.orderid = :ll_Plankind_relbillid And u_order_zl_planmx.aps_plancode = :ls_Plankind_aps_plancode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新指令单:'+ls_plankind_relbillcode+',排程批:'+ls_Plankind_aps_plancode+',分配计划占用数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF CASE 2 SELECT u_buytask.taskcode, u_buytaskmx.fpqty, u_buytaskmx.fpqty - u_buytaskmx.ffpqty, u_buytaskmx.mtrlid, u_buytaskmx.status, u_buytaskmx.woodcode, u_buytaskmx.pcode INTO :ls_plankind_relbillcode,:ld_fpqty,:ld_ffpqty_not, :ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode FROM u_buytask,u_buytaskmx WHERE u_buytask.scid = u_buytaskmx.scid AND u_buytask.taskid = u_buytaskmx.taskid AND u_buytaskmx.scid = :ll_scid AND u_buytaskmx.taskid = :ll_Plankind_relbillid And u_buytaskmx.printid = :ll_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配计划所属采购订单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_qty > ld_fpqty THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+'ld_fpqty:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF IF arg_qty > ld_ffpqty_not THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_buytaskmx SET u_buytaskmx.fpqty = u_buytaskmx.fpqty - :arg_qty WHERE u_buytaskmx.scid = :ll_scid AND u_buytaskmx.taskid = :ll_Plankind_relbillid And u_buytaskmx.printid = :ll_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF CASE 3 SELECT u_order_wfjg.taskcode, u_order_wfjgmx.fpqty, u_order_wfjgmx.fpqty - u_order_wfjgmx.ffpqty, u_order_wfjgmx.mtrlid, u_order_wfjgmx.status, u_order_wfjgmx.woodcode, u_order_wfjgmx.pcode INTO :ls_plankind_relbillcode,:ld_fpqty,:ld_ffpqty_not, :ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode FROM u_order_wfjg,u_order_wfjgmx WHERE u_order_wfjg.scid = u_order_wfjgmx.scid AND u_order_wfjg.taskid = u_order_wfjgmx.taskid AND u_order_wfjgmx.scid = :ll_scid AND u_order_wfjgmx.taskid = :ll_Plankind_relbillid And u_order_wfjgmx.printid = :ll_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配计划所属采购订单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_qty > ld_fpqty THEN arg_msg = '外协订单:'+ls_plankind_relbillcode+'ld_fpqty:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF IF arg_qty > ld_ffpqty_not THEN arg_msg = '外协订单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能取消分配:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_order_wfjgmx SET u_order_wfjgmx.fpqty = u_order_wfjgmx.fpqty - :arg_qty WHERE u_order_wfjgmx.scid = :ll_scid AND u_order_wfjgmx.taskid = :ll_Plankind_relbillid And u_order_wfjgmx.printid = :ll_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新外协订单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END CHOOSE ELSE SELECT mtrlid,status,woodcode,pcode INTO :ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode FROM u_mtrlware WHERE u_mtrlware.scid = :ll_scid And u_mtrlware.mtrlwareid = :ll_mtrlwareid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询库存信息失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF IF li_assigntype = 0 THEN //更新已分配数 UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.fpplanqty = u_OrderRqMtrl.fpplanqty - :arg_qty WHERE u_OrderRqMtrl.scid = :ll_scid AND u_OrderRqMtrl.orderid = :ll_relbillid AND u_OrderRqMtrl.mtrlid = :ll_mtrlid AND u_OrderRqMtrl.status = :ls_status AND u_OrderRqMtrl.woodcode = :ls_woodcode And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新物料需求库存分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF IF arg_qty = ld_planassignqty And ld_assignqty = 0 THEN DELETE FROM u_mtrlware_assign_plan Where planid = :arg_planid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '删除库存分配计划失败,' + commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE UPDATE u_mtrlware_assign_plan SET planassignqty = planassignqty - :arg_qty Where planid = :arg_planid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新库存分配计划计划分配数失败,' + commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer uof_plan_addassignqty (long arg_planid, decimal arg_qty, string arg_inwarecode, long arg_inprintid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_planmxid Decimal ld_planassignqty,ld_assignqty Int li_Plantype,li_Plankind Long ll_Plankind_relbillid,ll_Plankind_relprintid,ll_scid String ls_plankind_relbillcode Decimal ld_ffpqty_not IF IsNull(arg_planid) THEN arg_planid = 0 IF IsNull(arg_qty) THEN arg_qty = 0 SELECT planassignqty, assignqty, Plantype, Plankind, Plankind_relbillid, Plankind_relprintid, scid INTO :ld_planassignqty, :ld_assignqty, :li_Plantype, :li_Plankind, :ll_Plankind_relbillid, :ll_Plankind_relprintid, :ll_scid FROM u_mtrlware_assign_plan Where planid = :arg_planid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询库存分配计划资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_planassignqty - ld_assignqty < arg_qty THEN arg_msg = '库存分配计划未完成数只有:'+String(ld_planassignqty - ld_assignqty,'#,##0.##########') + ',不能完成数量:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_mtrlware_assign_plan SET assignqty = assignqty + :arg_qty Where planid = :arg_planid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新库存分配计划已完成数失败,' + commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_qty > 0 THEN ll_planmxid = f_sys_scidentity(0,"u_mtrlware_assign_plan_assignmx","planmxid",arg_msg,True,id_sqlca) IF ll_planmxid <= 0 THEN rslt = 0 GOTO ext END IF INSERT INTO u_mtrlware_assign_plan_assignmx (planmxid, planid, inwarecode, inprintid, qty) VALUES (:ll_planmxid, :arg_planid, :arg_inwarecode, :arg_inprintid, :arg_qty) using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '建立库存分配计划分配明细失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE DELETE FROM u_mtrlware_assign_plan_assignmx WHERE planid = :arg_planid AND inwarecode = :arg_inwarecode And inprintid = :arg_inprintid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '删除库存分配计划进仓分配明细失败,' + commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF IF li_Plantype = 1 THEN IF li_Plankind = 0 THEN arg_msg = '错误的分配计划类型,请检查(0-无,1-指令单分配,2-采购订单分配,3-外协订单分配)' rslt = 0 GOTO ext END IF //检查分计划来源 CHOOSE CASE li_Plankind CASE 1 SELECT u_order_ml.ordercode, u_order_ml.fpqty - u_order_ml.ffpqty INTO :ls_plankind_relbillcode,:ld_ffpqty_not FROM u_order_ml WHERE u_order_ml.scid = :ll_scid And u_order_ml.orderid = :ll_Plankind_relbillid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配计划所属指令单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_qty > ld_ffpqty_not THEN arg_msg = '指令单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_order_ml SET u_order_ml.ffpqty = u_order_ml.ffpqty + :arg_qty WHERE u_order_ml.scid = :ll_scid And u_order_ml.orderid = :ll_Plankind_relbillid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新指令单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF CASE 2 SELECT u_buytask.taskcode, u_buytaskmx.fpqty - u_buytaskmx.ffpqty INTO :ls_plankind_relbillcode,:ld_ffpqty_not FROM u_buytask,u_buytaskmx WHERE u_buytask.scid = u_buytaskmx.scid AND u_buytask.taskid = u_buytaskmx.taskid AND u_buytaskmx.scid = :ll_scid AND u_buytaskmx.taskid = :ll_Plankind_relbillid And u_buytaskmx.printid = :ll_Plankind_relprintid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配计划所属采购订单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_qty > ld_ffpqty_not THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_buytaskmx SET u_buytaskmx.ffpqty = u_buytaskmx.ffpqty + :arg_qty WHERE u_buytaskmx.scid = :ll_scid AND u_buytaskmx.taskid = :ll_Plankind_relbillid And u_buytaskmx.printid = :ll_Plankind_relprintid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF CASE 3 SELECT u_order_wfjg.taskcode, u_order_wfjgmx.fpqty - u_order_wfjgmx.ffpqty INTO :ls_plankind_relbillcode,:ld_ffpqty_not FROM u_order_wfjg,u_order_wfjgmx WHERE u_order_wfjg.scid = u_order_wfjgmx.scid AND u_order_wfjg.wfjgid = u_order_wfjgmx.wfjgid AND u_order_wfjgmx.scid = :ll_scid AND u_order_wfjgmx.wfjgid = :ll_Plankind_relbillid And u_order_wfjgmx.printid = :ll_Plankind_relprintid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配计划所属外协订单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_qty > ld_ffpqty_not THEN arg_msg = '外协订单:'+ls_plankind_relbillcode+'分配计划未完成数只有:'+String(ld_ffpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_qty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_order_wfjgmx SET u_order_wfjgmx.ffpqty = u_order_wfjgmx.ffpqty + :arg_qty WHERE u_order_wfjgmx.scid = :ll_scid AND u_order_wfjgmx.wfjgid = :ll_Plankind_relbillid And u_order_wfjgmx.printid = :ll_Plankind_relprintid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新外协订单:'+ls_plankind_relbillcode+'分配计划完成数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END CHOOSE END IF ext: IF rslt = 0 THEN ROLLBACK using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT using commit_transaction; END IF RETURN rslt end function public function integer uof_assign_add (long arg_scid, long arg_mtrlwareid, integer arg_assigntype, long arg_relbillid, long arg_relprintid, decimal arg_assignqty, decimal arg_cost, string arg_dscrp, string arg_mtrlcuscode, string arg_inwarecode, long arg_inprintid, integer arg_fpgrade, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_assignid,ll_mtrlid,ll_mtrlid_task,ll_cusid,ll_storageid,ll_sptid String ls_relbillcode Decimal ld_assignqty_all,ld_assignqty,ld_fpqty,ld_assignqty_old_task Decimal ld_wareamt,ld_noallocqty,ld_allocqty Int li_ifpack,li_ifpackpro,li_ifpackpro_mtrlware Decimal ld_Sonscale,ld_Sonscale_fm String ls_plancode,ls_status,ls_woodcode,ls_pcode,ls_mtrlcuscode,ls_mtrlcuscode_fp,ls_mtrlcuscode_fp_array[] String ls_mtrlcuscode_fp_str Long ll_array_mtrlcuscode,k,ll_cnt_notsame String ls_mtrlcode String ls_status_task,ls_woodcode_task,ls_pcode_task Long i,ll_mtrlid_son,j //销售订单包件产品加0库存用 Int li_ref_ifadd String ls_mtrlcode_task Long ll_assignid_task Long ll_mtrlwareid_task String ls_plancode_task,ls_location_task,arg_lsg Decimal ld_taskqty,ld_assignqty_mtrlcuscode,ld_fpqty_mtrlcuscode Decimal ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro Decimal lde_fpqty_task,ld_ref_fpqty Decimal ld_assignqty_fp,ld_sumfpqty s_cmplpackpro_ref_mtrlwareid_array s_mtrlwareid_array_rst //指令分配用 Long ll_orderid_zl,ll_wrkgrpid_zl,ll_produce_wrkgrpid,ll_wrkgrpid_order Decimal ld_fpqty_zl,ld_fpqty_order,ld_assignqty_update,ld_assignqty_order String ls_ordercode_zl Int li_plantype If uo_option_packpro2_not_use_pack1 = -1000 Then rslt = 0 arg_msg = '选项:[289]个性包件产品不考虑通用包件,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_iffp_recmpl_canuseqty = -1000 Then rslt = 0 arg_msg = '选项:[290]库存分配是否重算库存可装数、未分配可装数、未开单可装数,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_canpack_ifzanyong = -1000 Then rslt = 0 arg_msg = '选项:[417]通用包件产品可装数选项,读取初始默认值失败,操作取消!' Goto ext End If datastore ds_cmpl_pack_saletask ds_cmpl_pack_saletask = Create datastore ds_cmpl_pack_saletask.DataObject = 'ds_uo_mtrlware_assign_saletask_pack' ds_cmpl_pack_saletask.SetTransObject(commit_transaction) datastore ds_orderrqmtrl_fp_2_zl ds_orderrqmtrl_fp_2_zl = Create datastore ds_orderrqmtrl_fp_2_zl.DataObject = 'ds_order_mtrl_fp_to_zl' ds_orderrqmtrl_fp_2_zl.SetTransObject(commit_transaction) datastore ds_orderrqmtrl_fp ds_orderrqmtrl_fp = Create datastore ds_orderrqmtrl_fp.DataObject = 'ds_order_mtrl_fp' ds_orderrqmtrl_fp.SetTransObject(commit_transaction) uo_cmpl_packpro uo_cmpl_p uo_cmpl_p = Create uo_cmpl_packpro uo_cmpl_p.commit_transaction = commit_transaction If IsNull(arg_scid) Then arg_scid = 0 If IsNull(arg_mtrlwareid) Then arg_mtrlwareid = 0 If IsNull(arg_assigntype) Then arg_assigntype = 0 If IsNull(arg_Relbillid) Then arg_Relbillid = 0 If IsNull(arg_relprintid) Then arg_relprintid = 0 If IsNull(arg_assignqty) Then arg_assignqty = 0 If IsNull(arg_cost) Then arg_cost = 0 If IsNull(arg_mtrlcuscode) Then arg_mtrlcuscode = '' If IsNull(arg_inwarecode) Then arg_inwarecode = '' If IsNull(arg_inprintid) Then arg_inprintid = 0 If IsNull(arg_opemp) Then arg_opemp = '' If IsNull(arg_dscrp) Then arg_dscrp = '' If arg_mtrlwareid = 0 Then arg_msg = '非法的库存id' rslt = 0 Goto ext End If If arg_assignqty <= 0 Then arg_msg = '错误的分配数量' rslt = 0 Goto ext End If ld_wareamt = Round(arg_assignqty * arg_cost,2) Select u_mtrlware.mtrlid, u_mtrlware.noallocqty, u_mtrlware.allocqty, u_mtrldef.ifpack, u_mtrldef.ifpackpro, u_mtrlware.status, u_mtrlware.woodcode, u_mtrlware.pcode, u_mtrldef.mtrlcode, u_mtrlware.mtrlcuscode, u_mtrlware.storageid, u_mtrlware.sptid, u_mtrlware.plancode Into :ll_mtrlid, :ld_noallocqty, :ld_allocqty, :li_ifpack, :li_ifpackpro_mtrlware, :ls_status, :ls_woodcode, :ls_pcode, :ls_mtrlcode, :ls_mtrlcuscode, :ll_storageid, :ll_sptid, :ls_plancode From u_mtrlware,u_mtrldef Where u_mtrlware.scid = :arg_scid And u_mtrlware.mtrlwareid = :arg_mtrlwareid And u_mtrlware.mtrlid = u_mtrldef.mtrlid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询库存物料资料失败,库存id:'+String(arg_mtrlwareid)+','+commit_transaction.SQLErrText rslt = 0 Goto ext End If If ld_noallocqty < ld_allocqty + arg_assignqty Then arg_msg = '物料:'+ls_mtrlcode+'产品批号:'+ls_mtrlcuscode+',库存id:'+String(arg_mtrlwareid)+',库存总数:'+String(ld_noallocqty,'#,##0.##########')+',已分配数:'+String(ld_allocqty,'#,##0.##########')+',不能再分配:'+String(arg_assignqty,'#,##0.##########') rslt = 0 Goto ext End If If arg_assigntype = 0 Then If arg_Relbillid = 0 Then arg_msg = '非法的生产计划id' rslt = 0 Goto ext End If Select ordercode Into :ls_relbillcode From u_order_ml Where scid = :arg_scid And orderid = :arg_Relbillid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询计划资料失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If Select isnull(sum(u_OrderRqMtrl.RqQty),0), isnull(sum(u_OrderRqMtrl.fpqty),0) Into :ld_assignqty_all, :ld_assignqty From u_OrderRqMtrl Where u_OrderRqMtrl.scid = :arg_scid And u_OrderRqMtrl.orderid = :arg_relbillid And u_OrderRqMtrl.mtrlid = :ll_mtrlid And u_OrderRqMtrl.status = :ls_status And u_OrderRqMtrl.woodcode = :ls_woodcode And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',查询物料计划领用需求总数及已库存分配数失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If ld_assignqty_all < ld_assignqty + arg_assignqty Then arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再库存分配:'+String(arg_assignqty,'#,##0.##########') rslt = 0 Goto ext End If ds_orderrqmtrl_fp.Retrieve(arg_scid,arg_Relbillid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode) ld_assignqty_order = arg_assignqty For j = 1 To ds_orderrqmtrl_fp.RowCount() If ld_assignqty_order > 0 Then ld_fpqty_order = ds_orderrqmtrl_fp.Object.notfpqty[j] ll_produce_wrkgrpid = ds_orderrqmtrl_fp.Object.produce_wrkgrpid[j] li_plantype = ds_orderrqmtrl_fp.Object.plantype[j] ll_wrkgrpid_order = ds_orderrqmtrl_fp.Object.wrkgrpid[j] If ld_fpqty_order > ld_assignqty_order Then ld_assignqty_update = ld_assignqty_order ld_assignqty_order = 0 Else ld_assignqty_update = ld_fpqty_order ld_assignqty_order = ld_assignqty_order - ld_fpqty_order End If //更新已分配数 Update u_OrderRqMtrl Set u_OrderRqMtrl.fpqty = u_OrderRqMtrl.fpqty + :ld_assignqty_update Where u_OrderRqMtrl.scid = :arg_scid And u_OrderRqMtrl.orderid = :arg_relbillid And u_OrderRqMtrl.mtrlid = :ll_mtrlid And u_OrderRqMtrl.status = :ls_status And u_OrderRqMtrl.woodcode = :ls_woodcode And u_OrderRqMtrl.pcode = :ls_pcode And u_OrderRqMtrl.plantype = :li_plantype And u_OrderRqMtrl.produce_wrkgrpid = :ll_produce_wrkgrpid And u_OrderRqMtrl.wrkgrpid = :ll_wrkgrpid_order Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',更新物料需求已分配数失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If End If Next //自动分到指令单 ds_orderrqmtrl_fp_2_zl.Retrieve(arg_scid,arg_Relbillid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode) ld_assignqty_order = arg_assignqty For i = 1 To ds_orderrqmtrl_fp_2_zl.RowCount() If ld_assignqty_order > 0 Then ll_orderid_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_orderid[i] ls_ordercode_zl = ds_orderrqmtrl_fp_2_zl.Object.u_order_ml_ordercode[i] ll_wrkgrpid_zl = ds_orderrqmtrl_fp_2_zl.Object.u_orderrqmtrl_scll_wrkgrpid[i] ld_fpqty_zl = ds_orderrqmtrl_fp_2_zl.Object.notfpqty[i] If ld_fpqty_zl > ld_assignqty_order Then ld_assignqty_update = ld_assignqty_order ld_assignqty_order = 0 Else ld_assignqty_update = ld_fpqty_zl ld_assignqty_order = ld_assignqty_order - ld_fpqty_zl End If If uof_assign_add_to_zl_scll(arg_scid,ll_orderid_zl,ll_mtrlid,& ll_wrkgrpid_zl,ls_status,ls_woodcode,ls_pcode,ld_assignqty_update,& 0,0,0,arg_msg,False) = 0 Then arg_msg = '计划:'+ls_relbillcode+',物料:'+ls_mtrlcode+',更新相关指令单:'+ls_ordercode_zl+',物料已分配数失败,'+arg_msg rslt = 0 Goto ext End If End If Next Else If arg_Relbillid = 0 Then arg_msg = '非法的销售订单id' rslt = 0 Goto ext End If Select u_saletask.taskcode, u_saletaskmx.saleqty, u_mtrldef.ifpackpro, u_saletaskmx.mtrlid, u_saletask.cusid, u_saletaskmx.status, u_saletaskmx.woodcode, u_saletaskmx.pcode, u_saletaskmx.mtrlcuscode, u_mtrldef.mtrlcode Into :ls_relbillcode, :ld_assignqty_all, :li_ifpackpro, :ll_mtrlid_task, :ll_cusid, :ls_status_task, :ls_woodcode_task, :ls_pcode_task, :ls_plancode_task, :ls_mtrlcode_task From u_saletask,u_saletaskmx,u_mtrldef Where u_saletask.scid = u_saletaskmx.scid And u_saletask.taskid = u_saletaskmx.taskid And u_saletaskmx.mtrlid = u_mtrldef.mtrlid And u_saletaskmx.scid = :arg_scid And u_saletaskmx.taskid = :arg_relbillid And u_saletaskmx.printid = :arg_relprintid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询订单资料失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If //yyx20120712 //包件检查订单包件产品是否有0库存,如果无则加0库存并计算可装数 ld_taskqty = ld_assignqty_all If li_ifpackpro = 2 And li_ifpack = 2 Or & li_ifpackpro = 4 And (Pos(ls_status_task,'+') > 0 Or Pos(ls_status_task,'*') > 0) Or & li_ifpackpro = 1 And li_ifpack = 1 Then If f_insert_0_mtrlware_2(ll_mtrlwareid_task,ll_mtrlid_task,ls_mtrlcode_task,ll_storageid,& ll_sptid,ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task,ls_mtrlcuscode,& '',0,li_ref_ifadd,arg_msg,False) = 0 Then arg_msg = '订单产品:'+ls_mtrlcode_task+',查询包件产品0库存信息记录失败,'+arg_msg rslt = 0 Goto ext End If If li_ref_ifadd = 1 Then If f_cmp_di_qty_fpqty(ll_mtrlid_task,ll_storageid,ls_status_task,ls_woodcode_task,ls_pcode_task,ls_plancode_task,ls_mtrlcuscode,ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro,ld_ref_fpqty,arg_lsg,arg_msg) = 0 Then arg_msg = '物料:'+ls_mtrlcode_task+',计算可装数失败,'+arg_msg rslt = 0 Goto ext End If If uo_cmpl_p.uof_update_canuseqty(arg_scid,ll_mtrlwareid_task,ld_ref_qty,ld_ref_pack_min_nofpqty,ld_ref_noauditingqty_ifpackpro,ld_ref_fpqty,arg_msg,False) = 0 Then arg_msg = '物料:'+ls_mtrlcode_task+',更新可装数失败,'+arg_msg rslt = 0 Goto ext End If End If End If //yyx20120712_end //yyx20120706 If li_ifpack = 2 And li_ifpackpro = 2 Or li_ifpackpro = 4 Then Declare cur_mtrlcuscode Cursor For Select distinct u_mtrlware.mtrlcuscode From u_mtrlware_assign,u_mtrlware,u_mtrldef Where u_mtrlware_assign.scid = u_mtrlware.scid And u_mtrlware_assign.mtrlwareid = u_mtrlware.mtrlwareid And u_mtrldef.mtrlid = u_mtrlware.mtrlid And u_mtrlware_assign.scid = :arg_scid And u_mtrlware_assign.relbillid = :arg_relbillid And u_mtrlware_assign.relprintid = :arg_relprintid And u_mtrlware_assign.assigntype = 1 And u_mtrlware_assign.assignqty > 0 And ( :li_ifpackpro = 2 And u_mtrldef.ifpack = 2 Or :li_ifpackpro = 4 ) Using commit_transaction; Open cur_mtrlcuscode; Fetch cur_mtrlcuscode Into :ls_mtrlcuscode_fp; Do While commit_transaction.SQLCode = 0 ll_array_mtrlcuscode++ ls_mtrlcuscode_fp_array[ll_array_mtrlcuscode] = ls_mtrlcuscode_fp ls_mtrlcuscode_fp_str += ls_mtrlcuscode_fp+',' Fetch cur_mtrlcuscode Into :ls_mtrlcuscode_fp; Loop Close cur_mtrlcuscode; If ll_array_mtrlcuscode > ld_assignqty_all Then arg_msg = '订单:'+ls_relbillcode+',明细已分配产品批号次数:'+String(ll_array_mtrlcuscode)+',大于订货数量'+String(ld_assignqty_all,'##0.##########')+',已分配批次:'+ls_mtrlcuscode_fp_str+'操作取消' rslt = 0 Goto ext End If If ll_array_mtrlcuscode = ld_assignqty_all Then For k = 1 To ll_array_mtrlcuscode If ls_mtrlcuscode_fp_array[k] <> ls_mtrlcuscode Then ll_cnt_notsame++ End If Next If ll_cnt_notsame = ll_array_mtrlcuscode Then arg_msg = '订单:'+ls_relbillcode+',明细已分配产品批号次数:'+String(ll_array_mtrlcuscode)+',如果分配本次产品批号,分配次数就会大于订货数量'+String(ld_assignqty_all,'##0.##########')+',已分配批次:'+ls_mtrlcuscode_fp_str+',本次分配批次:'+ls_mtrlcuscode+',操作取消' rslt = 0 Goto ext End If End If End If //yyx20120706_end If (li_ifpackpro = 1 Or li_ifpackpro = 2) And li_ifpack = 0 Then arg_msg = '订单:'+ls_relbillcode+',明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单为包件产品,但对应分配的库存不是包件,请检查资料' rslt = 0 Goto ext ElseIf (li_ifpackpro = 1 Or li_ifpackpro = 2) And li_ifpack > 0 Then Long ll_saletaskmx_pf_ch ll_saletaskmx_pf_ch = 0 If li_ifpackpro = 1 Then ll_saletaskmx_pf_ch = 0 Else Select count(*) Into :ll_saletaskmx_pf_ch From u_SaleTaskMx_pf Where u_SaleTaskMx_pf.scid = :arg_scid And u_SaleTaskMx_pf.taskid = :arg_relbillid And u_SaleTaskMx_pf.printid = :arg_relprintid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '订单:'+ls_relbillcode+',明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询是否有换包件失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If End If If ll_saletaskmx_pf_ch > 0 Then Select u_SaleTaskMx_pf.Sonscale, u_SaleTaskMx_pf.Sonscale_fm Into :ld_Sonscale,:ld_Sonscale_fm From u_SaleTaskMx_pf Where u_SaleTaskMx_pf.scid = :arg_scid And u_SaleTaskMx_pf.taskid = :arg_relbillid And u_SaleTaskMx_pf.printid = :arg_relprintid And u_SaleTaskMx_pf.sonmtrlid = :ll_mtrlid Using commit_transaction; If commit_transaction.SQLCode = -1 Then arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询当前库存分配的订单包件产品物料清单是否包含有对应分配的库存包件失败,请检查清单资料,'+commit_transaction.SQLErrText rslt = 0 Goto ext ElseIf commit_transaction.SQLCode = 100 Then arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单包件产品物料清单不包含有对应分配的库存包件,请检查清单资料' rslt = 0 Goto ext End If Else Select u_prdpf.Sonscale,1 Into :ld_Sonscale,:ld_Sonscale_fm From u_saletaskmx,u_mtrl_pf,u_prdpf,u_mtrldef Where u_saletaskmx.mtrlid = u_mtrl_pf.mtrlid And u_saletaskmx.scid = :arg_scid And u_saletaskmx.taskid = :arg_relbillid And u_saletaskmx.printid = :arg_relprintid And u_mtrl_pf.mtrlid = u_prdpf.mtrlid And u_mtrl_pf.pfcode = u_prdpf.pfcode And ( u_mtrl_pf.ifdi = 0 And u_mtrl_pf.ifdft = 1 ) And u_PrdPF.SonMtrlid = :ll_mtrlid And u_prdpf.sonmtrlid = u_mtrldef.mtrlid And u_mtrldef.ifpack > 0 Using commit_transaction; If commit_transaction.SQLCode = -1 Then arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询当前库存分配的订单包件产品物料清单是否包含有对应分配的库存包件失败,请检查清单资料,'+commit_transaction.SQLErrText rslt = 0 Goto ext ElseIf commit_transaction.SQLCode = 100 Then arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单包件产品物料清单不包含有对应分配的库存包件,请检查清单资料' rslt = 0 Goto ext End If End If ld_assignqty_all = ld_assignqty_all * ld_Sonscale/ld_Sonscale_fm Select isnull(sum(assignqty),0), isnull(sum(case when u_mtrldef.ifpack = 1 Or u_mtrldef.ifpack = 2 And u_mtrlware_assign.mtrlcuscode = :ls_mtrlcuscode then assignqty else 0 End ),0) Into :ld_assignqty,:ld_assignqty_mtrlcuscode From u_mtrlware_assign Inner join u_mtrldef on u_mtrlware_assign.mtrlid = u_mtrldef.mtrlid Where u_mtrlware_assign.scid = :arg_scid And u_mtrlware_assign.relbillid = :arg_relbillid And u_mtrlware_assign.relprintid = :arg_relprintid And u_mtrlware_assign.mtrlid = :ll_mtrlid And u_mtrlware_assign.assigntype = 1 Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If ld_assignqty_all < ld_assignqty + arg_assignqty Then If ib_ifnotcheck_qty Then rslt = 1 Goto ext Else arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再分配:'+String(arg_assignqty,'#,##0.##########') rslt = 0 Goto ext End If End If //如果使用通用包件占用,检查通用包件的被占用数 If uo_option_canpack_ifzanyong = 1 And li_ifpackpro = 1 And li_ifpack = 1 Then //得到该包件库存分配给这种订单产品的总数量 Select sum(u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty) Into :ld_assignqty_fp From u_mtrlware_assign Inner JOIN u_SaleTaskMx ON u_mtrlware_assign.Scid = u_SaleTaskMx.scid And u_mtrlware_assign.Relbillid = u_SaleTaskMx.TaskID And u_mtrlware_assign.Relprintid = u_SaleTaskMx.printid Where u_SaleTaskMx.MtrlID = :ll_mtrlid_task and u_SaleTaskMx.status = :ls_status_task and u_SaleTaskMx.woodcode = :ls_woodcode_task and u_SaleTaskMx.pcode = :ls_pcode_task And u_mtrlware_assign.Scid = :arg_scid And u_mtrlware_assign.mtrlwareid = :arg_mtrlwareid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配给对应包件产品的数量失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If //得到该包件库存被这种订单产品占用的数量 Select sum(u_mtrlware_pack_fp.qty - u_mtrlware_pack_fp.outqty) Into :ld_sumfpqty FROM u_mtrlware_pack_fp INNER JOIN u_mtrlware u_mtrlware_cp ON u_mtrlware_pack_fp.scid = u_mtrlware_cp.scid AND u_mtrlware_pack_fp.cpmtrlwareid = u_mtrlware_cp.mtrlwareid Where u_mtrlware_pack_fp.scid = :arg_scid And u_mtrlware_pack_fp.mtrlwareid = :arg_mtrlwareid And u_mtrlware_pack_fp.cpmtrlid = :ll_mtrlid_task and u_mtrlware_cp.status = :ls_status_task and u_mtrlware_cp.woodcode = :ls_woodcode_task and u_mtrlware_cp.pcode = :ls_pcode_task Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单包件库存被对应包件产品占用数失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If if isnull(ld_assignqty_fp) then ld_assignqty_fp = 0 if isnull(ld_sumfpqty) then ld_sumfpqty = 0 //限制先有占用数才能进行库存分配 If arg_assignqty + ld_assignqty_fp > ld_sumfpqty Then rslt = 0 arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+','+'包件被包件产品占用数量为:'+String(ld_sumfpqty,'#,##0.##########')+',库存已分配数量:'+String(ld_assignqty_fp,'#,##0.##########')+',不能再分配:'+String(arg_assignqty,'#,##0.##########') Goto ext End If End If //计算配套数 If Not ( uo_option_packpro2_not_use_pack1 = 1 And li_ifpackpro = 2 And li_ifpack = 1 ) Then ld_fpqty = (arg_assignqty + ld_assignqty)/(ld_Sonscale/ld_Sonscale_fm) ld_fpqty_mtrlcuscode = (arg_assignqty + ld_assignqty_mtrlcuscode)/(ld_Sonscale/ld_Sonscale_fm) If ll_saletaskmx_pf_ch > 0 Then ds_cmpl_pack_saletask.DataObject = 'ds_uo_mtrlware_assign_saletask_pack2' ds_cmpl_pack_saletask.SetTransObject(commit_transaction) ds_cmpl_pack_saletask.Retrieve(arg_scid,arg_Relbillid,arg_relprintid,ll_mtrlid) Else ds_cmpl_pack_saletask.Retrieve(ll_mtrlid_task,ll_mtrlid) End If For i = 1 To ds_cmpl_pack_saletask.RowCount() If uo_option_packpro2_not_use_pack1 = 1 Then If li_ifpackpro = 2 And ds_cmpl_pack_saletask.Object.u_mtrldef_ifpack[i] = 1 Then Continue End If End If ll_mtrlid_son = ds_cmpl_pack_saletask.Object.u_prdpf_sonmtrlid[i] ld_Sonscale = ds_cmpl_pack_saletask.Object.u_prdpf_sonscale[i] ld_Sonscale_fm = ds_cmpl_pack_saletask.Object.u_prdpf_sonscale_fm[i] Select isnull(sum(assignqty),0), isnull(sum(case when u_mtrldef.ifpack = 1 Or u_mtrldef.ifpack = 2 And u_mtrlware_assign.mtrlcuscode = :ls_mtrlcuscode then assignqty else 0 End ),0) Into :ld_assignqty,:ld_assignqty_mtrlcuscode From u_mtrlware_assign Inner join u_mtrldef on u_mtrlware_assign.mtrlid = u_mtrldef.mtrlid Where u_mtrlware_assign.scid = :arg_scid And u_mtrlware_assign.relbillid = :arg_relbillid And u_mtrlware_assign.relprintid = :arg_relprintid And u_mtrlware_assign.mtrlid = :ll_mtrlid_son And u_mtrlware_assign.assigntype = 1 Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',查询订单其它包件已分配数失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If ld_fpqty = Min(ld_fpqty,ld_assignqty/(ld_Sonscale/ld_Sonscale_fm)) ld_fpqty_mtrlcuscode = Min(ld_fpqty_mtrlcuscode,ld_assignqty_mtrlcuscode/(ld_Sonscale/ld_Sonscale_fm)) Next End If ElseIf li_ifpackpro = 3 Or li_ifpackpro = 4 Then //组合配置包件产品 s_mtrlcfg_expr s_pz[] Long ll_array,ll_l Decimal ld_pf_Sonscale[] String ls_pf_status[],ls_pf_woodcode[],ls_pf_pcode[] f_checkpz(ls_status_task,s_pz[]) ll_array = UpperBound(s_pz) If ll_array = 0 Then arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',拆分子件错误,请检查组合配置' rslt = 0 Goto ext End If For ll_l = 1 To ll_array ls_pf_status[ll_l] = s_pz[ll_l].cfgname ls_pf_woodcode[ll_l] = ls_woodcode_task ls_pf_pcode[ll_l] = ls_pcode_task ld_pf_Sonscale[ll_l] = Dec(s_pz[ll_l].qty) Next For ll_l = 1 To ll_array If ll_l > 1 And ld_fpqty = 0 Then Exit //最少配套数为0,不用计算其它子件 Select isnull(sum(u_mtrlware_assign.assignqty),0), isnull(sum(case u_mtrlware_assign.mtrlcuscode when :ls_mtrlcuscode then u_mtrlware_assign.assignqty else 0 End ),0) Into :ld_assignqty,:ld_assignqty_mtrlcuscode From u_mtrlware_assign,u_mtrlware Where u_mtrlware_assign.scid = u_mtrlware.scid And u_mtrlware_assign.mtrlwareid = u_mtrlware.mtrlwareid And u_mtrlware_assign.scid = :arg_scid And u_mtrlware_assign.relbillid = :arg_relbillid And u_mtrlware_assign.relprintid = :arg_relprintid And u_mtrlware_assign.mtrlid = :ll_mtrlid And u_mtrlware_assign.assigntype = 1 And u_mtrlware.status = :ls_pf_status[ll_l] And u_mtrlware.woodcode = :ls_pf_woodcode[ll_l] And u_mtrlware.pcode = :ls_pf_pcode[ll_l] Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If ls_status = ls_pf_status[ll_l] And ls_woodcode = ls_pf_woodcode[ll_l] And ls_pcode = ls_pf_pcode[ll_l] Then ld_assignqty = ld_assignqty + arg_assignqty ld_assignqty_mtrlcuscode = ld_assignqty_mtrlcuscode + arg_assignqty End If If ll_l = 1 Then ld_fpqty = ld_assignqty/ld_pf_Sonscale[ll_l] ld_fpqty_mtrlcuscode = ld_assignqty_mtrlcuscode/ld_pf_Sonscale[ll_l] Else ld_fpqty = Min(ld_fpqty,ld_assignqty/ld_pf_Sonscale[ll_l]) ld_fpqty_mtrlcuscode = Min(ld_fpqty_mtrlcuscode,ld_assignqty_mtrlcuscode/ld_pf_Sonscale[ll_l]) End If Next Else Select isnull(sum(assignqty),0) Into :ld_assignqty From u_mtrlware_assign Where u_mtrlware_assign.scid = :arg_scid And u_mtrlware_assign.relbillid = :arg_relbillid And u_mtrlware_assign.relprintid = :arg_relprintid And u_mtrlware_assign.assigntype = 1 Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单已分配数失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If ld_assignqty_all < ld_assignqty + arg_assignqty Then If ib_ifnotcheck_qty Then rslt = 1 Goto ext Else arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再分配:'+String(arg_assignqty,'#,##0.##########') rslt = 0 Goto ext End If End If ld_fpqty = arg_assignqty + ld_assignqty ld_fpqty_mtrlcuscode = 0 End If If Not ( uo_option_packpro2_not_use_pack1 = 1 And li_ifpackpro = 2 And li_ifpack = 1 ) Then Update u_saletaskmx Set u_saletaskmx.fpqty = :ld_fpqty Where u_saletaskmx.scid = :arg_scid And u_saletaskmx.taskid = :arg_relbillid And u_saletaskmx.printid = :arg_relprintid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',更新订单明细已分配数失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If End If End If ll_assignid = f_sys_scidentity(0,"u_mtrlware_assign","assignid",arg_msg,True,id_sqlca) If ll_assignid <= 0 Then rslt = 0 Goto ext End If Insert Into u_mtrlware_assign (assignid, assigntype, scid, mtrlwareid, mtrlid, Relbillid, relprintid, relbillcode, assignqty, cost, wareamt, dscrp, mtrlcuscode, inwarecode, inprintid, cusid, fpgrade, waredate, opdate, opemp, storageid, pdbdate) Values (:ll_assignid, :arg_assigntype, :arg_scid, :arg_mtrlwareid, :ll_mtrlid, :arg_Relbillid, :arg_relprintid, :ls_relbillcode, :arg_assignqty, :arg_cost, :ld_wareamt, :arg_dscrp, :ls_mtrlcuscode, :arg_inwarecode, :arg_inprintid, :ll_cusid, :arg_fpgrade, getdate(), getdate(), :arg_opemp, :uo_fp_storageid, :uo_fp_pdbdate) Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '分配库存失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If Update u_mtrlware Set allocqty = allocqty + :arg_assignqty Where mtrlwareid = :arg_mtrlwareid And scid = :arg_scid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '更新库存已分配数量失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If arg_assigntype = 1 Then //yyx20120712 //检查包件产品订单同批号的可装数，更新到包件产品库存分配明细 If li_ifpackpro = 2 And li_ifpack = 2 Or & li_ifpackpro = 4 And (Pos(ls_status_task,'+') > 0 Or Pos(ls_status_task,'*') > 0) Or & li_ifpackpro = 1 And li_ifpack = 1 Then Select assignqty Into :ld_assignqty_old_task From u_mtrlware_assign Where u_mtrlware_assign.scid = :arg_scid And u_mtrlware_assign.mtrlwareid = :ll_mtrlwareid_task And u_mtrlware_assign.relbillid = :arg_relbillid And u_mtrlware_assign.relprintid = :arg_relprintid And u_mtrlware_assign.mtrlid = :ll_mtrlid_task And u_mtrlware_assign.assigntype = 1 Using commit_transaction; If commit_transaction.SQLCode = -1 Then arg_msg = '查询包件产品原库存分配数量失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext ElseIf commit_transaction.SQLCode = 100 Then ld_assignqty_old_task = 0 End If ld_fpqty_mtrlcuscode = ld_fpqty_mtrlcuscode - ld_assignqty_old_task If uof_assign_add_packpro_to_saletask(arg_scid,ll_mtrlwareid_task,& ll_cusid,ll_mtrlid_task,ld_fpqty_mtrlcuscode,& arg_Relbillid,arg_relprintid,ls_relbillcode,& arg_cost,arg_dscrp,ls_mtrlcuscode,& arg_fpgrade,arg_opemp,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If //yyx20120712_end //yyx2012-9-29 If Not ib_ifinware_audit_do And uo_option_iffp_recmpl_canuseqty = 1 Then //yyx2012-9-29返回计算可装数库存id数组 If ( li_ifpack = 1 Or li_ifpack = 2 Or li_ifpackpro_mtrlware = 3 Or li_ifpackpro_mtrlware = 4 ) Then If uo_cmpl_p.uof_ref_mtrlwarid_array(ll_mtrlid,ls_plancode,ls_mtrlcuscode,ll_storageid,s_mtrlwareid_array_rst,arg_msg) = 0 Then rslt = 0 Goto ext End If End If If UpperBound(s_mtrlwareid_array_rst.mtrlwareid) > 0 Then If uo_cmpl_p.uof_cmpl_diqty(s_mtrlwareid_array_rst,arg_msg) = 0 Then rslt = 0 Goto ext End If End If End If End If uo_assignid = ll_assignid ext: If rslt = 0 Then Rollback Using commit_transaction; ElseIf rslt = 1 And arg_ifcommit Then Commit Using commit_transaction; End If Destroy ds_cmpl_pack_saletask Destroy ds_orderrqmtrl_fp_2_zl Destroy ds_orderrqmtrl_fp Destroy uo_cmpl_p Return rslt end function public function integer uof_plan_add (long arg_scid, long arg_mtrlwareid, integer arg_assigntype, long arg_relbillid, long arg_relprintid, decimal arg_planqty, string arg_dscrp, string arg_opemp, integer arg_plantype, integer arg_plankind, long arg_plankind_relbillid, long arg_plankind_relprintid, integer arg_fpgrade, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_planid,ll_mtrlid,ll_cusid String ls_relbillcode,ls_plankind_relbillcode String ls_aps_plancode Decimal ld_assignqty_all,ld_assignqty,ld_assignqty_plan,ld_assignqty_plan_mtrlware String ls_status,ls_woodcode,ls_pcode,ls_mtrlcode String ls_status_task,ls_woodcode_task,ls_pcode_task Decimal ld_fpqty_not Decimal ld_noallocqty Decimal ld_Sonscale,ld_fpqty_buytask_update,ld_fpqty_buytask_plan,ld_buytask_qty Int li_mtrldef_ifpackpro,li_mtrldef_ifpack,li_mtrldef_outtype Long i,ll_i,ll_sonmtrlid //aps_plancode Long j Decimal ld_fpplanqty,ld_planqty String ls_Plankind_aps_plancode datastore ds_pfpack ds_pfpack = Create datastore ds_pfpack.DataObject = 'ds_pf_pack' ds_pfpack.SetTransObject(commit_transaction) datastore ds_order_inplanmx ds_order_inplanmx = Create datastore ds_order_inplanmx.DataObject = 'ds_aps_order_plancode' ds_order_inplanmx.SetTransObject(commit_transaction) s_mtrlcfg_expr s_pz_buytask[] IF IsNull(arg_scid) THEN arg_scid = 0 IF IsNull(arg_mtrlwareid) THEN arg_mtrlwareid = 0 IF IsNull(arg_assigntype) THEN arg_assigntype = 0 IF IsNull(arg_Relbillid) THEN arg_Relbillid = 0 IF IsNull(arg_relprintid) THEN arg_relprintid = 0 IF IsNull(arg_planqty) THEN arg_planqty = 0 IF IsNull(arg_Plantype) THEN arg_Plantype = 0 IF IsNull(arg_Plankind) THEN arg_Plankind = 0 IF IsNull(arg_Plankind_relbillid) THEN arg_Plankind_relbillid = 0 IF IsNull(arg_Plankind_relprintid) THEN arg_Plankind_relprintid = 0 IF IsNull(arg_opemp) THEN arg_opemp = '' IF IsNull(arg_dscrp) THEN arg_dscrp = '' IF arg_planqty <= 0 THEN arg_msg = '错误的计划分配数量' rslt = 0 GOTO ext END IF IF arg_Plantype = 0 THEN //库存分配 IF arg_mtrlwareid = 0 THEN arg_msg = '非法的库存id' rslt = 0 GOTO ext END IF SELECT u_mtrlware.mtrlid, u_mtrlware.status, u_mtrlware.woodcode, u_mtrlware.pcode, u_mtrldef.ifpack, u_mtrldef.mtrlcode, u_mtrlware.noallocqty - u_mtrlware.allocqty INTO :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :li_mtrldef_ifpack, :ls_mtrlcode, :ld_noallocqty FROM u_mtrlware,u_mtrldef WHERE u_mtrlware.mtrlid = u_mtrldef.mtrlid AND u_mtrlware.scid = :arg_scid And u_mtrlware.mtrlwareid = :arg_mtrlwareid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询库存物料资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ll_mtrlid <> arg_mtrlid THEN arg_msg = '传入分配计划物料id与库存对应物料id不相符,请检查' rslt = 0 GOTO ext END IF arg_status = ls_status arg_woodcode = ls_woodcode arg_pcode = ls_pcode IF ld_noallocqty < arg_planqty THEN arg_msg = '库存未分配数不足,请检查' rslt = 0 GOTO ext END IF IF arg_assigntype = 0 THEN //计划分配 IF arg_Relbillid = 0 THEN arg_msg = '非法的生产计划id' rslt = 0 GOTO ext END IF SELECT ordercode INTO :ls_relbillcode FROM u_order_ml WHERE scid = :arg_scid And orderid = :arg_Relbillid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询计划资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF SELECT isnull(sum(u_OrderRqMtrl.RqQty),0), isnull(sum(u_OrderRqMtrl.fpqty),0), isnull(sum(u_OrderRqMtrl.fpplanqty),0) INTO :ld_assignqty_all, :ld_assignqty, :ld_assignqty_plan FROM u_OrderRqMtrl WHERE u_OrderRqMtrl.scid = :arg_scid AND u_OrderRqMtrl.orderid = :arg_relbillid AND u_OrderRqMtrl.mtrlid = :ll_mtrlid AND u_OrderRqMtrl.status = :ls_status AND u_OrderRqMtrl.woodcode = :ls_woodcode And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询物料计划领用需求总数及已库存分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_assignqty >= ld_assignqty_plan THEN IF ld_assignqty_all < ld_assignqty + arg_planqty THEN arg_msg = '计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再库存分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF ELSE IF ld_assignqty_all < ld_assignqty_plan + arg_planqty THEN arg_msg = '计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已安排分配计划数:'+String(ld_assignqty_plan,'#,##0.##########')+',不能再库存分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF END IF //更新已分配数 UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.fpplanqty = u_OrderRqMtrl.fpplanqty + :arg_planqty WHERE u_OrderRqMtrl.scid = :arg_scid AND u_OrderRqMtrl.orderid = :arg_relbillid AND u_OrderRqMtrl.mtrlid = :ll_mtrlid AND u_OrderRqMtrl.status = :ls_status AND u_OrderRqMtrl.woodcode = :ls_woodcode And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新物料需求已安排分配计划数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE //订单分配 IF arg_Relbillid = 0 THEN arg_msg = '非法的销售订单id' rslt = 0 GOTO ext END IF SELECT u_saletask.taskcode, u_saletask.cusid, u_saletaskmx.saleqty, u_mtrldef.ifpackpro, u_mtrldef.outtype, u_saletaskmx.status, u_saletaskmx.woodcode, u_saletaskmx.pcode INTO :ls_relbillcode, :ll_cusid, :ld_assignqty_all, :li_mtrldef_ifpackpro, :li_mtrldef_outtype, :ls_status_task, :ls_woodcode_task, :ls_pcode_task FROM u_saletask,u_saletaskmx,u_mtrldef WHERE u_saletaskmx.mtrlid = u_mtrldef.mtrlid AND u_saletask.scid = u_saletaskmx.scid AND u_saletask.taskid = u_saletaskmx.taskid AND u_saletaskmx.scid = :arg_scid AND u_saletaskmx.taskid = :arg_relbillid And u_saletaskmx.printid = :arg_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF If (li_mtrldef_ifpackpro = 1 Or li_mtrldef_ifpackpro = 2) And li_mtrldef_ifpack = 0 THEN arg_msg = '订单:'+ls_relbillcode+',明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配计划的订单为包件产品,但对应分配的库存不是包件,请检查资料' rslt = 0 GOTO ext ElseIf (li_mtrldef_ifpackpro = 1 Or li_mtrldef_ifpackpro = 2) And li_mtrldef_ifpack > 0 THEN Long ll_saletaskmx_pf_ch ll_saletaskmx_pf_ch = 0 IF li_mtrldef_ifpackpro = 1 THEN ll_saletaskmx_pf_ch = 0 ELSE SELECT count(*) INTO :ll_saletaskmx_pf_ch FROM u_SaleTaskMx_pf WHERE u_SaleTaskMx_pf.scid = :arg_scid AND u_SaleTaskMx_pf.taskid = :arg_relbillid And u_SaleTaskMx_pf.printid = :arg_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '订单:'+ls_relbillcode+',明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询是否有换包件失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF IF ll_saletaskmx_pf_ch > 0 THEN SELECT u_SaleTaskMx_pf.Sonscale INTO :ld_Sonscale FROM u_SaleTaskMx_pf WHERE u_SaleTaskMx_pf.scid = :arg_scid AND u_SaleTaskMx_pf.taskid = :arg_relbillid AND u_SaleTaskMx_pf.printid = :arg_relprintid And u_SaleTaskMx_pf.sonmtrlid = :ll_mtrlid Using commit_transaction; IF commit_transaction.SQLCode = -1 THEN arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询当前库存分配的订单包件产品物料清单是否包含有对应分配的库存包件失败,请检查清单资料,'+commit_transaction.SQLErrText rslt = 0 GOTO ext ELSEIF commit_transaction.SQLCode = 100 THEN arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单包件产品物料清单不包含有对应分配的库存包件,请检查清单资料' rslt = 0 GOTO ext END IF ELSE SELECT u_prdpf.Sonscale INTO :ld_Sonscale FROM u_saletaskmx,u_mtrl_pf,u_prdpf,u_mtrldef WHERE u_saletaskmx.mtrlid = u_mtrl_pf.mtrlid AND u_saletaskmx.scid = :arg_scid AND u_saletaskmx.taskid = :arg_relbillid AND u_saletaskmx.printid = :arg_relprintid AND u_mtrl_pf.mtrlid = u_prdpf.mtrlid AND u_mtrl_pf.pfcode = u_prdpf.pfcode AND ( u_mtrl_pf.ifdi = 0 AND u_mtrl_pf.ifdft = 1 ) AND u_PrdPF.SonMtrlid = :ll_mtrlid AND u_prdpf.sonmtrlid = u_mtrldef.mtrlid And u_mtrldef.ifpack > 0 Using commit_transaction; IF commit_transaction.SQLCode = -1 THEN arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询当前库存分配的订单包件产品物料清单是否包含有对应分配的库存包件失败,请检查清单资料,'+commit_transaction.SQLErrText rslt = 0 GOTO ext ELSEIF commit_transaction.SQLCode = 100 THEN arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',当前库存分配的订单包件产品物料清单不包含有对应分配的库存包件,请检查清单资料' rslt = 0 GOTO ext END IF END IF IF ld_Sonscale = 0 THEN arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',错误的包件组成数,请检查清单资料' rslt = 0 GOTO ext END IF ld_assignqty_all = ld_assignqty_all * ld_Sonscale SELECT isnull(sum(assignqty),0) INTO :ld_assignqty FROM u_mtrlware_assign WHERE u_mtrlware_assign.scid = :arg_scid AND u_mtrlware_assign.relbillid = :arg_relbillid AND u_mtrlware_assign.relprintid = :arg_relprintid AND u_mtrlware_assign.mtrlid = :ll_mtrlid And u_mtrlware_assign.assigntype = 1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF SELECT isnull(sum(planassignqty),0) INTO :ld_assignqty_plan_mtrlware FROM u_mtrlware_assign_plan WHERE u_mtrlware_assign_plan.scid = :arg_scid AND u_mtrlware_assign_plan.relbillid = :arg_relbillid AND u_mtrlware_assign_plan.relprintid = :arg_relprintid AND u_mtrlware_assign_plan.assigntype = 1 And u_mtrlware_assign_plan.mtrlid = :ll_mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单已分配计划数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_assignqty_all < ld_assignqty + arg_planqty + ld_assignqty_plan_mtrlware THEN arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',已分配计划数:'+String(ld_assignqty_plan_mtrlware,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF ELSEIF li_mtrldef_ifpackpro = 3 Or li_mtrldef_ifpackpro = 4 THEN //组合配置包件产品 s_mtrlcfg_expr s_pz[] Long ll_array,ll_l f_checkpz(ls_status_task,s_pz[]) ll_array = UpperBound(s_pz) IF ll_array = 0 THEN arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',拆分子件错误,请检查组合配置' rslt = 0 GOTO ext END IF FOR ll_l = 1 To ll_array IF s_pz[ll_l].cfgname = ls_status THEN ld_Sonscale = Dec(s_pz[ll_l].qty) EXIT END IF NEXT IF ld_Sonscale = 0 THEN arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',错误的包件组成数,请检查清单资料' rslt = 0 GOTO ext END IF ld_assignqty_all = ld_assignqty_all * ld_Sonscale SELECT isnull(sum(assignqty),0) INTO :ld_assignqty FROM u_mtrlware_assign,u_mtrlware WHERE u_mtrlware_assign.scid = u_mtrlware.scid AND u_mtrlware_assign.mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.scid = :arg_scid AND u_mtrlware_assign.relbillid = :arg_relbillid AND u_mtrlware_assign.relprintid = :arg_relprintid AND u_mtrlware_assign.mtrlid = :ll_mtrlid AND u_mtrlware_assign.assigntype = 1 AND u_mtrlware.status = :ls_status AND u_mtrlware.woodcode = :ls_woodcode And u_mtrlware.pcode = :ls_pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '订单:'+ls_relbillcode+',明细行:'+String(arg_relprintid)+',查询订单包件已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF SELECT isnull(sum(planassignqty),0) INTO :ld_assignqty_plan_mtrlware FROM u_mtrlware_assign_plan WHERE u_mtrlware_assign_plan.scid = :arg_scid AND u_mtrlware_assign_plan.relbillid = :arg_relbillid AND u_mtrlware_assign_plan.relprintid = :arg_relprintid AND u_mtrlware_assign_plan.assigntype = 1 And u_mtrlware_assign_plan.mtrlid = :ll_mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单已分配计划数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_assignqty_all < ld_assignqty + arg_planqty + ld_assignqty_plan_mtrlware THEN arg_msg = '订单:'+ls_relbillcode+',包件明细物料:'+ls_mtrlcode+',明细行:'+String(arg_relprintid)+',订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',已分配计划数:'+String(ld_assignqty_plan_mtrlware,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF ELSE //非包件产品 SELECT isnull(sum(assignqty),0) INTO :ld_assignqty FROM u_mtrlware_assign WHERE u_mtrlware_assign.scid = :arg_scid AND u_mtrlware_assign.relbillid = :arg_relbillid AND u_mtrlware_assign.relprintid = :arg_relprintid And u_mtrlware_assign.assigntype = 1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF SELECT isnull(sum(planassignqty),0) INTO :ld_assignqty_plan_mtrlware FROM u_mtrlware_assign_plan WHERE u_mtrlware_assign_plan.scid = :arg_scid AND u_mtrlware_assign_plan.relbillid = :arg_relbillid AND u_mtrlware_assign_plan.relprintid = :arg_relprintid And u_mtrlware_assign_plan.assigntype = 1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单已分配计划数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_assignqty_all < ld_assignqty + arg_planqty + ld_assignqty_plan_mtrlware THEN arg_msg = '订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已分配数:'+String(ld_assignqty,'#,##0.##########')+',已分配计划数:'+String(ld_assignqty_plan_mtrlware,'#,##0.##########')+',不能再库存分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF END IF END IF ELSE //计划分配 IF arg_Plankind = 0 THEN rslt = 0 arg_msg = '错误的分配计划类型,请检查(0-无,1-指令单分配,2-采购订单分配,3-外协订单分配)' GOTO ext END IF //检查分计划来源 CHOOSE CASE arg_Plankind CASE 1 SELECT u_order_ml.ordercode, u_order_ml.orderqty - u_order_ml.fpqty, u_order_ml.mtrlid, u_order_ml.status_mode, u_order_ml.woodcode, u_order_ml.pcode INTO :ls_plankind_relbillcode,:ld_fpqty_not, :ll_mtrlid,:ls_status,:ls_woodcode,:ls_pcode FROM u_order_ml WHERE u_order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_Plankind_relbillid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配计划所属指令单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ll_mtrlid <> arg_mtrlid THEN arg_msg = '传入分配计划物料id与指令对应物料id不相符,请检查' rslt = 0 GOTO ext END IF arg_status = ls_status arg_woodcode = ls_woodcode arg_pcode = ls_pcode IF arg_planqty > ld_fpqty_not THEN arg_msg = '指令单:'+ls_plankind_relbillcode+'分配计划未占用数只有:'+String(ld_fpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_order_ml SET u_order_ml.fpqty = u_order_ml.fpqty + :arg_planqty WHERE u_order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_Plankind_relbillid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新指令单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF CASE 2 SELECT u_buytask.taskcode, u_buytaskmx.qty - u_buytaskmx.fpqty, u_buytaskmx.qty, u_buytaskmx.mtrlid, u_buytaskmx.status, u_buytaskmx.woodcode, u_buytaskmx.pcode, u_mtrldef.outtype, u_mtrldef.ifpackpro INTO :ls_plankind_relbillcode, :ld_fpqty_not, :ld_buytask_qty, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :li_mtrldef_outtype, :li_mtrldef_ifpackpro FROM u_buytask,u_buytaskmx,u_mtrldef WHERE u_buytask.scid = u_buytaskmx.scid AND u_buytask.taskid = u_buytaskmx.taskid AND u_mtrldef.mtrlid = u_buytaskmx.mtrlid AND u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_Plankind_relbillid And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配计划所属采购订单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF li_mtrldef_outtype = 0 THEN IF ll_mtrlid <> arg_mtrlid THEN arg_msg = '传入分配计划物料id与采购订单对应物料id不相符,请检查' rslt = 0 GOTO ext END IF IF arg_planqty > ld_fpqty_not THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+'分配计划未占用数只有:'+String(ld_fpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_buytaskmx SET u_buytaskmx.fpqty = u_buytaskmx.fpqty + :arg_planqty WHERE u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_Plankind_relbillid And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE CHOOSE CASE li_mtrldef_ifpackpro CASE 0 IF ll_mtrlid <> arg_mtrlid THEN arg_msg = '传入分配计划物料id与采购订单对应物料id不相符,请检查' rslt = 0 GOTO ext END IF IF arg_planqty > ld_fpqty_not THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+'分配计划未占用数只有:'+String(ld_fpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_buytaskmx SET u_buytaskmx.fpqty = u_buytaskmx.fpqty + :arg_planqty WHERE u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_Plankind_relbillid And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF CASE 1,2 ds_pfpack.Retrieve(ll_mtrlid) IF ds_pfpack.RowCount() = 0 THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+",物料清单找不到包件明细,请检查" rslt = 0 GOTO ext END IF ld_fpqty_buytask_update = 0 FOR ll_i = 1 To ds_pfpack.RowCount() ld_fpqty_buytask_plan = 0 ll_sonmtrlid = ds_pfpack.Object.u_prdpf_sonmtrlid[ll_i] SELECT isnull(sum(u_mtrlware_assign_plan.planassingqty),0) INTO :ld_fpqty_buytask_plan FROM u_mtrlware_assign_plan WHERE u_mtrlware_assign_plan.scid = :arg_scid AND u_mtrlware_assign_plan.assigntype = :arg_assigntype AND u_mtrlware_assign_plan.plantype = :arg_plantype AND u_mtrlware_assign_plan.plankind = :arg_plankind AND u_mtrlware_assign_plan.plankind_relbillid = :arg_plankind_relbillid AND u_mtrlware_assign_plan.plankind_relprintid = :arg_plankind_relprintid And u_mtrlware_assign_plan.mtrlid = :ll_sonmtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+",包件明细查询已安排分配计划数失败,"+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ll_sonmtrlid = arg_mtrlid THEN ld_fpqty_buytask_plan += arg_planqty END IF ld_fpqty_buytask_update = Max(ld_fpqty_buytask_update,ld_fpqty_buytask_plan/ds_pfpack.Object.u_prdpf_sonscale[ll_i]) NEXT IF ld_fpqty_buytask_update > ld_buytask_qty THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+'数量只有:'+String(ld_buytask_qty,'#,##0.##########')+',不能分配:'+String(ld_fpqty_buytask_update,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_buytaskmx SET u_buytaskmx.fpqty = ld_fpqty_buytask_update WHERE u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_Plankind_relbillid And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF CASE 3,4 f_checkpz(ls_status,s_pz_buytask[]) IF UpperBound(s_pz) = 0 THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+',拆分子件错误,请检查组合配置' rslt = 0 GOTO ext END IF ld_fpqty_buytask_update = 0 FOR ll_i = 1 To UpperBound(s_pz_buytask) ld_fpqty_buytask_plan = 0 SELECT isnull(sum(u_mtrlware_assign_plan.planassingqty),0) INTO :ld_fpqty_buytask_plan FROM u_mtrlware_assign_plan WHERE u_mtrlware_assign_plan.scid = :arg_scid AND u_mtrlware_assign_plan.assigntype = :arg_assigntype AND u_mtrlware_assign_plan.plantype = :arg_plantype AND u_mtrlware_assign_plan.plankind = :arg_plankind AND u_mtrlware_assign_plan.plankind_relbillid = :arg_plankind_relbillid AND u_mtrlware_assign_plan.plankind_relprintid = :arg_plankind_relprintid AND u_mtrlware_assign_plan.mtrlid = :arg_mtrlid And u_mtrlware_assign_plan.status = :s_pz_buytask[ll_i].cfgname Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+",子件明细查询已安排分配计划数失败,"+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_status = s_pz_buytask[ll_i].cfgname THEN ld_fpqty_buytask_plan += arg_planqty END IF ld_fpqty_buytask_update = Max(ld_fpqty_buytask_update,ld_fpqty_buytask_plan/Dec(s_pz_buytask[ll_i].qty)) NEXT IF ld_fpqty_buytask_update > ld_buytask_qty THEN arg_msg = '采购订单:'+ls_plankind_relbillcode+'数量只有:'+String(ld_buytask_qty,'#,##0.##########')+',不能分配:'+String(ld_fpqty_buytask_update,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_buytaskmx SET u_buytaskmx.fpqty = ld_fpqty_buytask_update WHERE u_buytaskmx.scid = :arg_scid AND u_buytaskmx.taskid = :arg_Plankind_relbillid And u_buytaskmx.printid = :arg_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新采购订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END CHOOSE END IF CASE 3 SELECT u_order_wfjg.taskcode, u_order_wfjgmx.qty - u_order_wfjgmx.fpqty, u_order_wfjgmx.mtrlid, u_order_wfjgmx.status, u_order_wfjgmx.woodcode, u_order_wfjgmx.pcode INTO :ls_plankind_relbillcode, :ld_fpqty_not, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode FROM u_order_wfjg,u_order_wfjgmx WHERE u_order_wfjg.scid = u_order_wfjgmx.scid AND u_order_wfjg.wfjgid = u_order_wfjgmx.wfjgid AND u_order_wfjgmx.scid = :arg_scid AND u_order_wfjgmx.wfjgid = :arg_Plankind_relbillid And u_order_wfjgmx.printid = :arg_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询分配计划所属外协订单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ll_mtrlid <> arg_mtrlid THEN arg_msg = '传入分配计划物料id与外协订单对应物料id不相符,请检查' rslt = 0 GOTO ext END IF arg_status = ls_status arg_woodcode = ls_woodcode arg_pcode = ls_pcode IF arg_planqty > ld_fpqty_not THEN arg_msg = '外协订单:'+ls_plankind_relbillcode+'分配计划未占用数只有:'+String(ld_fpqty_not,'#,##0.##########')+',不能再分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_order_wfjgmx SET u_order_wfjgmx.fpqty = u_order_wfjgmx.fpqty + :arg_planqty WHERE u_order_wfjgmx.scid = :arg_scid AND u_order_wfjgmx.wfjgid = :arg_Plankind_relbillid And u_order_wfjgmx.printid = :arg_Plankind_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新外协订单:'+ls_plankind_relbillcode+'分配计划占用数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END CHOOSE //检查是否超已分配数 IF arg_assigntype = 0 THEN IF arg_Relbillid = 0 THEN arg_msg = '非法的生产计划id' rslt = 0 GOTO ext END IF SELECT ordercode INTO :ls_relbillcode FROM u_order_ml WHERE scid = :arg_scid And orderid = :arg_Relbillid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询计划资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF SELECT isnull(sum(u_OrderRqMtrl.RqQty),0), isnull(sum(u_OrderRqMtrl.fpqty),0), isnull(sum(u_OrderRqMtrl.fpplanqty),0) INTO :ld_assignqty_all, :ld_assignqty, :ld_assignqty_plan FROM u_OrderRqMtrl WHERE u_OrderRqMtrl.scid = :arg_scid AND u_OrderRqMtrl.orderid = :arg_relbillid AND u_OrderRqMtrl.mtrlid = :ll_mtrlid AND u_OrderRqMtrl.status = :ls_status AND u_OrderRqMtrl.woodcode = :ls_woodcode And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询物料计划领用需求总数及已安排分配计划数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_assignqty >= ld_assignqty_plan THEN IF ld_assignqty_all < ld_assignqty + arg_planqty THEN arg_msg = '计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已库存分配数:'+String(ld_assignqty,'#,##0.##########')+',不能再计划分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF ELSE IF ld_assignqty_all < ld_assignqty_plan + arg_planqty THEN arg_msg = '计划需求数:'+String(ld_assignqty_all,'#,##0.##########')+',已安排分配计划数:'+String(ld_assignqty_plan,'#,##0.##########')+',不能再计划分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF END IF //更新已分配数 UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.fpplanqty = u_OrderRqMtrl.fpplanqty + :arg_planqty WHERE u_OrderRqMtrl.scid = :arg_scid AND u_OrderRqMtrl.orderid = :arg_relbillid AND u_OrderRqMtrl.mtrlid = :ll_mtrlid AND u_OrderRqMtrl.status = :ls_status AND u_OrderRqMtrl.woodcode = :ls_woodcode And u_OrderRqMtrl.pcode = :ls_pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新物料需求已安排分配计划数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE IF arg_Relbillid = 0 THEN arg_msg = '非法的销售订单id' rslt = 0 GOTO ext END IF SELECT u_saletask.taskcode, u_saletask.cusid, u_saletaskmx.saleqty INTO :ls_relbillcode, :ll_cusid, :ld_assignqty_all FROM u_saletask,u_saletaskmx WHERE u_saletask.scid = u_saletaskmx.scid AND u_saletask.taskid = u_saletaskmx.taskid AND u_saletaskmx.scid = :arg_scid AND u_saletaskmx.taskid = :arg_relbillid And u_saletaskmx.printid = :arg_relprintid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF SELECT isnull(sum(assignqty),0) INTO :ld_assignqty_plan FROM u_mtrlware_assign WHERE u_mtrlware_assign.scid = :arg_scid AND u_mtrlware_assign.relbillid = :arg_relbillid AND u_mtrlware_assign.relprintid = :arg_relprintid AND u_mtrlware_assign.assigntype = 1 And u_mtrlware_assign.plantype = 1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单已安排分配计划数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_assignqty_all < ld_assignqty_plan + arg_planqty THEN arg_msg = '订单订货数:'+String(ld_assignqty_all,'#,##0.##########')+',已安排分配计划数:'+String(ld_assignqty_plan,'#,##0.##########')+',不能再计划分配:'+String(arg_planqty,'#,##0.##########') rslt = 0 GOTO ext END IF END IF END IF IF arg_Plantype = 1 And arg_Plankind = 1 THEN ds_order_inplanmx.Retrieve(arg_scid,arg_Plankind_relbillid) ld_planqty = arg_planqty IF ds_order_inplanmx.RowCount() = 0 THEN arg_msg = '指令单没有排程批次,请检查' rslt = 0 GOTO ext END IF FOR j = 1 To ds_order_inplanmx.RowCount() IF ld_planqty = 0 THEN EXIT IF ld_planqty > ds_order_inplanmx.Object.notfpplanqty[j] THEN ld_fpplanqty = ds_order_inplanmx.Object.notfpplanqty[j] ld_planqty = ld_planqty - ds_order_inplanmx.Object.notfpplanqty[j] ELSE ld_fpplanqty = ld_planqty ld_planqty = 0 END IF ls_Plankind_aps_plancode = ds_order_inplanmx.Object.aps_plancode[j] ll_planid = f_sys_scidentity(0,"u_mtrlware_assign_plan","planid",arg_msg,True,id_sqlca) IF ll_planid <= 0 THEN rslt = 0 GOTO ext END IF INSERT INTO u_mtrlware_assign_plan (planid, assigntype, scid, mtrlwareid, Relbillid, relprintid, relbillcode, planassignqty, cusid, dscrp, opdate, opemp, plantype, plankind, plankind_relbillid, plankind_relprintid, fpgrade, mtrlid, status, woodcode, pcode, Plankind_aps_plancode) VALUES (:ll_planid, :arg_assigntype, :arg_scid, :arg_mtrlwareid, :arg_Relbillid, :arg_relprintid, :ls_relbillcode, :ld_fpplanqty, :ll_cusid, :arg_dscrp, getdate(), :arg_opemp, :arg_plantype, :arg_plankind, :arg_plankind_relbillid, :arg_Plankind_relprintid, :arg_fpgrade, :arg_mtrlid, :arg_status, :arg_woodcode, :arg_pcode, :ls_Plankind_aps_plancode) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '指令单建立分配计划失败(按排程批),'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF UPDATE u_order_zl_planmx SET u_order_zl_planmx.fpplanqty = u_order_zl_planmx.fpplanqty + :ld_fpplanqty WHERE u_order_zl_planmx.scid = :arg_scid AND u_order_zl_planmx.orderid = :arg_Plankind_relbillid And u_order_zl_planmx.aps_plancode = :ls_Plankind_aps_plancode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新指令单:'+ls_plankind_relbillcode+',排程批:'+ls_Plankind_aps_plancode+',分配计划占用数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF NEXT IF ld_planqty > 0 THEN arg_msg = '排程批有余数,不能建立分配计划,请检查' rslt = 0 GOTO ext END IF ELSE ll_planid = f_sys_scidentity(0,"u_mtrlware_assign_plan","planid",arg_msg,True,id_sqlca) IF ll_planid <= 0 THEN rslt = 0 GOTO ext END IF INSERT INTO u_mtrlware_assign_plan (planid, assigntype, scid, mtrlwareid, Relbillid, relprintid, relbillcode, planassignqty, cusid, dscrp, opdate, opemp, plantype, plankind, plankind_relbillid, plankind_relprintid, fpgrade, mtrlid, status, woodcode, pcode, Plankind_aps_plancode) VALUES (:ll_planid, :arg_assigntype, :arg_scid, :arg_mtrlwareid, :arg_Relbillid, :arg_relprintid, :ls_relbillcode, :arg_planqty, :ll_cusid, :arg_dscrp, getdate(), :arg_opemp, :arg_plantype, :arg_plankind, :arg_plankind_relbillid, :arg_Plankind_relprintid, :arg_fpgrade, :arg_mtrlid, :arg_status, :arg_woodcode, :arg_pcode, '') Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '建立分配计划失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF Destroy ds_pfpack Destroy ds_order_inplanmx RETURN rslt end function public function integer uof_assign_add_to_zl_scll (long arg_scid, long arg_orderid, long arg_mtrlid, long arg_wrkgrpid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_fpqty, long arg_from_p_orderid, integer arg_from_plantype, integer arg_from_produce_wrkgrpid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_fpqty,ld_trueRqqty,ld_notfpqty String ls_mtrlcode,ls_ordercode Long ll_orderid_p,i Long ll_ifenouth Decimal ld_notfpqty_zl,ld_notfpqty_zl_update,ld_notfpqty_zl_check datastore ds_update_orderrqmtrl_fp ds_update_orderrqmtrl_fp = Create datastore SELECT mtrlcode INTO :ls_mtrlcode From u_mtrldef Where mtrlid = :arg_mtrlid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询指令单领料明细物料编码失败,id:'+String(arg_mtrlid)+','+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF SELECT ordercode,porderid INTO :ls_ordercode,:ll_orderid_p From u_order_ml Where orderid = :arg_orderid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询指令单编号失败,id:'+String(arg_orderid)+','+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF //合并排产主计划指令 IF ll_orderid_p = 0 THEN ll_orderid_p = arg_orderid SELECT u_OrderRqMtrl_scll.trueRqqty, u_OrderRqMtrl_scll.fpqty INTO :ld_trueRqqty, :ld_fpqty FROM u_OrderRqMtrl_scll WHERE u_OrderRqMtrl_scll.scid = :arg_scid AND u_OrderRqMtrl_scll.orderid = :arg_orderid AND u_OrderRqMtrl_scll.mtrlid = :arg_mtrlid AND u_OrderRqMtrl_scll.wrkgrpid = :arg_wrkgrpid AND u_OrderRqMtrl_scll.status = :arg_status AND u_OrderRqMtrl_scll.woodcode = :arg_woodcode And u_OrderRqMtrl_scll.pcode = :arg_pcode using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',查询指令单用料数及已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_fpqty > 0 THEN IF ld_trueRqqty < ld_fpqty + arg_fpqty THEN arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',指令单物料未分配数只有:'+String(ld_trueRqqty - ld_fpqty,'#,#0.#########')+',不能再分配:'+String(arg_fpqty,'#,#0.#########') rslt = 0 GOTO ext END IF ELSE IF ld_fpqty < Abs(arg_fpqty) THEN arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',指令单物料已分配数只有:'+String(ld_fpqty,'#,#0.#########')+',不能取消分配:'+String(arg_fpqty,'#,#0.#########') rslt = 0 GOTO ext END IF END IF UPDATE u_OrderRqMtrl_scll SET u_OrderRqMtrl_scll.fpqty = u_OrderRqMtrl_scll.fpqty + :arg_fpqty WHERE u_OrderRqMtrl_scll.scid = :arg_scid AND u_OrderRqMtrl_scll.orderid = :arg_orderid AND u_OrderRqMtrl_scll.mtrlid = :arg_mtrlid AND u_OrderRqMtrl_scll.wrkgrpid = :arg_wrkgrpid AND u_OrderRqMtrl_scll.status = :arg_status AND u_OrderRqMtrl_scll.woodcode = :arg_woodcode And u_OrderRqMtrl_scll.pcode = :arg_pcode using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新指令单用料数及已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF //更新计划分配占用数 IF arg_from_p_orderid = 0 THEN IF arg_fpqty > 0 THEN ds_update_orderrqmtrl_fp.DataObject = 'ds_zlscllfp_update_order_fp' ds_update_orderrqmtrl_fp.SetTransObject(commit_transaction) ds_update_orderrqmtrl_fp.Retrieve(arg_scid,ll_orderid_p,arg_wrkgrpid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode) ld_notfpqty_zl_check = arg_fpqty FOR i = 1 To ds_update_orderrqmtrl_fp.RowCount() IF ld_notfpqty_zl_check = 0 THEN EXIT arg_from_p_orderid = ds_update_orderrqmtrl_fp.Object.orderid[i] arg_from_plantype = ds_update_orderrqmtrl_fp.Object.plantype[i] arg_from_produce_wrkGrpid = ds_update_orderrqmtrl_fp.Object.produce_wrkgrpid[i] ld_notfpqty_zl = ds_update_orderrqmtrl_fp.Object.notfpqty[i] IF ld_notfpqty_zl_check > ld_notfpqty_zl THEN ld_notfpqty_zl_update = ld_notfpqty_zl ld_notfpqty_zl_check = ld_notfpqty_zl_check - ld_notfpqty_zl ELSE ld_notfpqty_zl_update = ld_notfpqty_zl_check ld_notfpqty_zl_check = 0 END IF UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.fpqty_zl = u_OrderRqMtrl.fpqty_zl + :ld_notfpqty_zl_update WHERE u_OrderRqMtrl.scid = :arg_scid AND u_OrderRqMtrl.orderid = :arg_from_p_orderid AND u_OrderRqMtrl.plantype = :arg_from_plantype AND u_OrderRqMtrl.produce_wrkGrpid = :arg_from_produce_wrkGrpid AND u_OrderRqMtrl.mtrlid = :arg_mtrlid AND u_OrderRqMtrl.wrkgrpid = :arg_wrkgrpid AND u_OrderRqMtrl.status = :arg_status AND u_OrderRqMtrl.woodcode = :arg_woodcode And u_OrderRqMtrl.pcode = :arg_pcode using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF NEXT IF ld_notfpqty_zl_check > 0 THEN arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数有余数:'+String(ld_notfpqty_zl_check,'#,##0.##########')+',操作取消' rslt = 0 GOTO ext END IF ELSE ds_update_orderrqmtrl_fp.DataObject = 'ds_zlscllfp_update_order_fp_cancel' ds_update_orderrqmtrl_fp.SetTransObject(commit_transaction) ds_update_orderrqmtrl_fp.Retrieve(arg_scid,ll_orderid_p,arg_wrkgrpid,arg_mtrlid,arg_status,arg_woodcode,arg_pcode) ld_notfpqty_zl_check = Abs(arg_fpqty) FOR i = 1 To ds_update_orderrqmtrl_fp.RowCount() IF ld_notfpqty_zl_check = 0 THEN EXIT arg_from_p_orderid = ds_update_orderrqmtrl_fp.Object.orderid[i] arg_from_plantype = ds_update_orderrqmtrl_fp.Object.plantype[i] arg_from_produce_wrkGrpid = ds_update_orderrqmtrl_fp.Object.produce_wrkgrpid[i] ld_notfpqty_zl = ds_update_orderrqmtrl_fp.Object.fpqty_zl[i] IF ld_notfpqty_zl_check > ld_notfpqty_zl THEN ld_notfpqty_zl_update = ld_notfpqty_zl ld_notfpqty_zl_check = ld_notfpqty_zl_check - ld_notfpqty_zl ELSE ld_notfpqty_zl_update = ld_notfpqty_zl_check ld_notfpqty_zl_check = 0 END IF UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.fpqty_zl = u_OrderRqMtrl.fpqty_zl - :ld_notfpqty_zl_update WHERE u_OrderRqMtrl.scid = :arg_scid AND u_OrderRqMtrl.orderid = :arg_from_p_orderid AND u_OrderRqMtrl.plantype = :arg_from_plantype AND u_OrderRqMtrl.produce_wrkGrpid = :arg_from_produce_wrkGrpid AND u_OrderRqMtrl.mtrlid = :arg_mtrlid AND u_OrderRqMtrl.wrkgrpid = :arg_wrkgrpid AND u_OrderRqMtrl.status = :arg_status AND u_OrderRqMtrl.woodcode = :arg_woodcode And u_OrderRqMtrl.pcode = :arg_pcode using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF NEXT IF ld_notfpqty_zl_check > 0 THEN arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数有余数,操作取消' rslt = 0 GOTO ext END IF END IF ELSE UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.fpqty_zl = u_OrderRqMtrl.fpqty_zl + :arg_fpqty WHERE u_OrderRqMtrl.scid = :arg_scid AND u_OrderRqMtrl.orderid = :arg_from_p_orderid AND u_OrderRqMtrl.plantype = :arg_from_plantype AND u_OrderRqMtrl.produce_wrkGrpid = :arg_from_produce_wrkGrpid AND u_OrderRqMtrl.mtrlid = :arg_mtrlid AND u_OrderRqMtrl.wrkgrpid = :arg_wrkgrpid AND u_OrderRqMtrl.status = :arg_status AND u_OrderRqMtrl.woodcode = :arg_woodcode And u_OrderRqMtrl.pcode = :arg_pcode using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '指令单:'+ls_ordercode + ',物料:'+ls_mtrlcode+',更新相关主生产计划指令单占用分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF //更新足料标记 SELECT isnull(sum(isnull(u_OrderRqMtrl_scll.trueRqqty - u_OrderRqMtrl_scll.fpqty,0)),0) INTO :ld_notfpqty FROM u_OrderRqMtrl_scll,u_mtrldef WHERE u_OrderRqMtrl_scll.scid = :arg_scid AND u_OrderRqMtrl_scll.orderid = :arg_orderid AND u_OrderRqMtrl_scll.wrkgrpid = :arg_wrkgrpid AND u_OrderRqMtrl_scll.mtrlid = u_mtrldef.mtrlid And u_mtrldef.iffp = 1 using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '检查指令单:'+ls_ordercode + '工组是否足料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_notfpqty > 0 THEN ll_ifenouth = 1 ELSE ll_ifenouth = 0 END IF UPDATE u_ordermtrl_wrk_mtrl SET u_ordermtrl_wrk_mtrl.ifenouth = :ll_ifenouth WHERE u_ordermtrl_wrk_mtrl.scid = :arg_scid AND u_ordermtrl_wrk_mtrl.orderid = :arg_orderid And u_ordermtrl_wrk_mtrl.wrkgrpid = :arg_wrkgrpid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '指令单:'+ls_ordercode + ',更新足料标记失败,'+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 Destroy ds_update_orderrqmtrl_fp RETURN rslt end function public function integer uof_assign_del_order (long arr_scid[], long arr_orderid[], ref string arg_msg, boolean if_commit);Int rslt = 1 Long ll_scid, ll_orderid Long ll_assignid, arr_assignid[] Decimal ld_qty, arr_qty[] Long ll_cnt2 = 0, ll_cnt Long ll_i ll_cnt = UpperBound(arr_scid) FOR ll_i = 1 To ll_cnt ll_scid = arr_scid[ll_i] ll_orderid = arr_orderid[ll_i] DECLARE cur1 CURSOR FOR SELECT u_mtrlware_assign.Assignid, u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty AS Expr1 FROM u_mtrlware_assign INNER JOIN u_mtrlware ON u_mtrlware_assign.Mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.Scid = u_mtrlware.scid INNER JOIN u_storage ON u_mtrlware.storageid = u_storage.storageid INNER JOIN u_mtrldef ON u_mtrlware.mtrlid = u_mtrldef.mtrlid WHERE (u_mtrlware_assign.assignqty > u_mtrlware_assign.Outqty) AND (u_mtrlware_assign.assigntype = 0) AND (u_mtrldef.iffp = 1) AND (u_storage.storagetype = 1) And (u_mtrlware.Scid = :ll_scid) And (u_mtrlware_assign.Relbillid = :ll_orderid) using commit_transaction; OPEN cur1; FETCH cur1 Into :ll_assignid, :ld_qty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt2++ arr_assignid[ll_cnt2] = ll_assignid arr_qty[ll_cnt2] = ld_qty FETCH cur1 Into :ll_assignid, :ld_qty; LOOP CLOSE cur1; NEXT FOR ll_i = 1 To ll_cnt2 IF uof_assign_del(arr_assignid[ll_i], arr_qty[ll_i], Ref arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF NEXT ext: IF if_commit THEN IF rslt = 1 THEN COMMIT using commit_transaction; ELSE ROLLBACK using commit_transaction; END IF END IF RETURN rslt end function public function integer uof_assign_add_order (long arg_scid[], long arg_orderid[], ref string arg_msg, boolean if_commit);Int rslt = 1 Long ll_cnt = 0, ll_cnt2 = 0 Long ll_scid, arr_scid[], ll_orderid, arr_orderid[], ll_mtrlid, arr_mtrlid[] String ls_status, arr_status[], ls_woodcode, arr_woodcode[], ls_pcode, arr_pcode[] Decimal ld_qty, arr_qty[] Long ll_mtrlwareid, arr_mtrlwareid[] Decimal ld_notfpqty, arr_notfpqty[] Decimal ld_fpreal Long ll_i, ll_j String ls_sql = '' ls_sql = ls_sql + " SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode, " ls_sql = ls_sql + " u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS RqQty, u_OrderRqMtrl.RqDate " ls_sql = ls_sql + " INTO [#tmp_OrderRqMtrl] " ls_sql = ls_sql + " FROM u_OrderRqMtrl INNER JOIN " ls_sql = ls_sql + " u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid " ls_sql = ls_sql + " WHERE (u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) AND (u_mtrldef.iffp = 1) AND (u_OrderRqMtrl.scid = ?) AND " ls_sql = ls_sql + " (u_OrderRqMtrl.OrderID = ?) " String ls_sql2 = '' ls_sql2 = ls_sql2 + " INSERT INTO [#tmp_OrderRqMtrl] " ls_sql2 = ls_sql2 + " SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode, " ls_sql2 = ls_sql2 + " u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS RqQty, u_OrderRqMtrl.RqDate " ls_sql2 = ls_sql2 + " FROM u_OrderRqMtrl INNER JOIN " ls_sql2 = ls_sql2 + " u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid " ls_sql2 = ls_sql2 + " WHERE (u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) AND (u_mtrldef.iffp = 1) AND (u_OrderRqMtrl.scid = ?) AND " ls_sql2 = ls_sql2 + " (u_OrderRqMtrl.OrderID = ?) " FOR ll_i = 1 To UpperBound(arg_scid) IF ll_i = 1 THEN PREPARE SQLSA From :ls_sql using commit_transaction; ELSE PREPARE SQLSA From :ls_sql2 using commit_transaction; END IF EXECUTE SQLSA Using :arg_scid[ll_i],:arg_orderid[ll_i]; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询主计划物料需求失败,' + commit_transaction.SQLErrText GOTO ext END IF NEXT ls_sql = "SELECT scid, orderid, mtrlid, status, woodcode, pcode, rqqty From [#tmp_OrderRqMtrl] Order By rqdate" PREPARE SQLSA From :ls_sql using commit_transaction; DECLARE cur1 Dynamic Cursor FOR SQLSA; OPEN Dynamic cur1; FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt++ arr_scid[ll_cnt] = ll_scid arr_orderid[ll_cnt] = ll_orderid arr_mtrlid[ll_cnt] = ll_mtrlid arr_status[ll_cnt] = ls_status arr_woodcode[ll_cnt] = ls_woodcode arr_pcode[ll_cnt] = ls_pcode arr_qty[ll_cnt] = ld_qty FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty; LOOP CLOSE cur1; IF commit_transaction.SQLErrText <> '' AND ll_cnt = 0 THEN rslt = 0 arg_msg = commit_transaction.SQLErrText GOTO ext END IF FOR ll_i = 1 To ll_cnt ll_scid = arr_scid[ll_i] ll_orderid = arr_orderid[ll_i] ll_mtrlid = arr_mtrlid[ll_i] ls_status = arr_status[ll_i] ls_woodcode = arr_woodcode[ll_i] ls_pcode = arr_pcode[ll_i] ld_qty = arr_qty[ll_i] ll_cnt2 = 0 DECLARE cur2 CURSOR FOR SELECT u_mtrlware.mtrlwareid, u_mtrlware.noallocqty - u_mtrlware.allocqty AS Expr1 FROM u_mtrlware INNER JOIN u_storage ON u_mtrlware.storageid = u_storage.storageid WHERE (u_mtrlware.scid = :ll_scid) AND (u_mtrlware.mtrlid = :ll_mtrlid) AND (u_mtrlware.Status = :ls_status) AND (u_mtrlware.woodcode = :ls_woodcode) And (u_mtrlware.pcode = :ls_pcode) And (u_mtrlware.noallocqty > u_mtrlware.allocqty) And (u_storage.inuse = 1) And (u_storage.storagetype = 1) using commit_transaction; OPEN cur2; FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt2++ arr_mtrlwareid[ll_cnt2] = ll_mtrlwareid arr_notfpqty[ll_cnt2] = ld_notfpqty FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty; LOOP CLOSE cur2; FOR ll_j = 1 To ll_cnt2 IF ld_qty = 0 THEN EXIT ll_mtrlwareid = arr_mtrlwareid[ll_j] ld_notfpqty = arr_notfpqty[ll_j] IF ld_qty > ld_notfpqty THEN ld_fpreal = ld_notfpqty ELSE ld_fpreal = ld_qty END IF IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_orderid, ld_fpreal, 2, Ref arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF ld_qty = ld_qty - ld_fpreal NEXT NEXT ext: ls_sql = "drop table [#tmp_OrderRqMtrl]" EXECUTE Immediate :ls_sql using commit_transaction; IF if_commit THEN IF rslt = 1 THEN COMMIT using commit_transaction; ELSE ROLLBACK using commit_transaction; END IF END IF RETURN rslt end function public function integer uof_assign_add_to_order (long arg_scid, long arg_mtrlwareid, long arg_orderid, decimal arg_qty, long arg_fpgrade, ref string arg_msg, boolean if_commit);Int rslt = 1 Decimal ld_cost String ls_dscrp String ls_mtrlcuscode ls_dscrp = '' SELECT cost , mtrlcuscode INTO :ld_cost, :ls_mtrlcuscode FROM u_mtrlware Where scid = :arg_scid And mtrlwareid = :arg_mtrlwareid using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ld_cost = 0 ls_mtrlcuscode = '' END IF RETURN uof_assign_add(arg_scid, arg_mtrlwareid, 0, arg_orderid, 0, arg_qty, ld_cost, ls_dscrp, ls_mtrlcuscode, '', 0, arg_fpgrade, publ_operator, Ref arg_msg, if_commit) RETURN rslt end function public function integer uof_assign_del_all_order (ref string arg_msg, boolean if_commit);Int rslt = 1 Long ll_assignid, arr_assignids[] Decimal ld_qty, arr_qtys[] Long ll_cnt = 0 DECLARE cur1 CURSOR FOR SELECT u_mtrlware_assign.Assignid, u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty AS Expr1 FROM u_mtrlware_assign INNER JOIN u_mtrlware ON u_mtrlware_assign.Mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.Scid = u_mtrlware.scid INNER JOIN u_storage ON u_mtrlware.storageid = u_storage.storageid INNER JOIN u_mtrldef ON u_mtrlware.mtrlid = u_mtrldef.mtrlid WHERE (u_mtrlware_assign.assignqty > u_mtrlware_assign.Outqty) AND (u_mtrlware_assign.assigntype = 0) AND (u_mtrldef.iffp = 1) AND (u_storage.storagetype = 1) using commit_transaction; OPEN cur1; FETCH cur1 Into :ll_assignid, :ld_qty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt ++ arr_assignids[ll_cnt] = ll_assignid arr_qtys[ll_cnt] = ld_qty FETCH cur1 Into :ll_assignid, :ld_qty; LOOP CLOSE cur1; Long ll_i FOR ll_i = 1 To ll_cnt IF uof_assign_del(arr_assignids[ll_i], arr_qtys[ll_i], Ref arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF NEXT ext: IF if_commit THEN IF rslt = 1 THEN COMMIT using commit_transaction; ELSE ROLLBACK using commit_transaction; END IF END IF RETURN rslt end function public function integer uof_assign_del_order_by_mtrlid (long arg_mtrlid, ref string arg_msg, boolean if_commit);Int rslt = 1 Long ll_assignid, arr_assignids[] Decimal ld_qty, arr_qtys[] Long ll_cnt = 0 DECLARE cur1 CURSOR FOR SELECT u_mtrlware_assign.Assignid, u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty AS Expr1 FROM u_mtrlware_assign INNER JOIN u_mtrlware ON u_mtrlware_assign.Mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.Scid = u_mtrlware.scid INNER JOIN u_storage ON u_mtrlware.storageid = u_storage.storageid INNER JOIN u_mtrldef ON u_mtrlware.mtrlid = u_mtrldef.mtrlid WHERE (u_mtrlware_assign.assignqty > u_mtrlware_assign.Outqty) AND (u_mtrlware_assign.assigntype = 0) AND (u_mtrldef.iffp = 1) AND (u_storage.storagetype = 1) AND u_mtrlware.mtrlid = :arg_mtrlid using commit_transaction; OPEN cur1; FETCH cur1 Into :ll_assignid, :ld_qty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt ++ arr_assignids[ll_cnt] = ll_assignid arr_qtys[ll_cnt] = ld_qty FETCH cur1 Into :ll_assignid, :ld_qty; LOOP CLOSE cur1; Long ll_i FOR ll_i = 1 To ll_cnt IF uof_assign_del(arr_assignids[ll_i], arr_qtys[ll_i], Ref arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF NEXT ext: IF if_commit THEN IF rslt = 1 THEN COMMIT using commit_transaction; ELSE ROLLBACK using commit_transaction; END IF END IF RETURN rslt end function public function integer uof_assign_add_to_order_auto (ref string arg_msg, boolean if_commit);Int rslt = 1 Long ll_cnt = 0, ll_cnt2 = 0 Long ll_scid, arr_scid[], ll_orderid, arr_orderid[], ll_mtrlid, arr_mtrlid[] String ls_status, arr_status[], ls_woodcode, arr_woodcode[], ls_pcode, arr_pcode[] Decimal ld_qty, arr_qty[] Long ll_mtrlwareid, arr_mtrlwareid[] Decimal ld_notfpqty, arr_notfpqty[] Decimal ld_fpreal DECLARE cur1 CURSOR FOR SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode, u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS Expr1 FROM u_OrderRqMtrl INNER JOIN u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid WHERE (u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) AND (u_mtrldef.iffp = 1) Order By u_OrderRqMtrl.RqDate using commit_transaction; OPEN cur1; FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt++ arr_scid[ll_cnt] = ll_scid arr_orderid[ll_cnt] = ll_orderid arr_mtrlid[ll_cnt] = ll_mtrlid arr_status[ll_cnt] = ls_status arr_woodcode[ll_cnt] = ls_woodcode arr_pcode[ll_cnt] = ls_pcode arr_qty[ll_cnt] = ld_qty FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty; LOOP CLOSE cur1; Long ll_i, ll_j FOR ll_i = 1 To ll_cnt ll_scid = arr_scid[ll_i] ll_orderid = arr_orderid[ll_i] ll_mtrlid = arr_mtrlid[ll_i] ls_status = arr_status[ll_i] ls_woodcode = arr_woodcode[ll_i] ls_pcode = arr_pcode[ll_i] ld_qty = arr_qty[ll_i] ll_cnt2 = 0 DECLARE cur2 CURSOR FOR SELECT u_mtrlware.mtrlwareid, u_mtrlware.noallocqty - u_mtrlware.allocqty AS Expr1 FROM u_mtrlware INNER JOIN u_storage ON u_mtrlware.storageid = u_storage.storageid WHERE (u_mtrlware.scid = :ll_scid) AND (u_mtrlware.mtrlid = :ll_mtrlid) AND (u_mtrlware.Status = :ls_status) AND (u_mtrlware.woodcode = :ls_woodcode) And (u_mtrlware.pcode = :ls_pcode) And (u_mtrlware.noallocqty > u_mtrlware.allocqty) And (u_storage.inuse = 1) And (u_storage.storagetype = 1) using commit_transaction; OPEN cur2; FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt2++ arr_mtrlwareid[ll_cnt2] = ll_mtrlwareid arr_notfpqty[ll_cnt2] = ld_notfpqty FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty; LOOP CLOSE cur2; FOR ll_j = 1 To ll_cnt2 IF ld_qty = 0 THEN EXIT ll_mtrlwareid = arr_mtrlwareid[ll_j] ld_notfpqty = arr_notfpqty[ll_j] IF ld_qty > ld_notfpqty THEN ld_fpreal = ld_notfpqty ELSE ld_fpreal = ld_qty END IF IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_orderid, ld_fpreal, 2, Ref arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF ld_qty = ld_qty - ld_fpreal NEXT NEXT ext: IF if_commit THEN IF rslt = 1 THEN COMMIT using commit_transaction; ELSE ROLLBACK using commit_transaction; END IF END IF RETURN rslt end function public function integer uof_assign_add_to_order_by_mtrlid (long arg_mtrlid, ref string arg_msg, boolean if_commit);Int rslt = 1 Long ll_cnt = 0, ll_cnt2 = 0 Long ll_scid, arr_scid[], ll_orderid, arr_orderid[], ll_mtrlid, arr_mtrlid[] String ls_status, arr_status[], ls_woodcode, arr_woodcode[], ls_pcode, arr_pcode[] Decimal ld_qty, arr_qty[] Long ll_mtrlwareid, arr_mtrlwareid[] Decimal ld_notfpqty, arr_notfpqty[] Decimal ld_fpreal DECLARE cur1 CURSOR FOR SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode, u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS Expr1 FROM u_OrderRqMtrl INNER JOIN u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid WHERE (u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) AND (u_mtrldef.iffp = 1) AND u_OrderRqMtrl.MtrlID = :arg_mtrlid Order By u_OrderRqMtrl.RqDate using commit_transaction; OPEN cur1; FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt++ arr_scid[ll_cnt] = ll_scid arr_orderid[ll_cnt] = ll_orderid arr_mtrlid[ll_cnt] = ll_mtrlid arr_status[ll_cnt] = ls_status arr_woodcode[ll_cnt] = ls_woodcode arr_pcode[ll_cnt] = ls_pcode arr_qty[ll_cnt] = ld_qty FETCH cur1 Into :ll_scid, :ll_orderid, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ld_qty; LOOP CLOSE cur1; Long ll_i, ll_j FOR ll_i = 1 To ll_cnt ll_scid = arr_scid[ll_i] ll_orderid = arr_orderid[ll_i] ll_mtrlid = arr_mtrlid[ll_i] ls_status = arr_status[ll_i] ls_woodcode = arr_woodcode[ll_i] ls_pcode = arr_pcode[ll_i] ld_qty = arr_qty[ll_i] ll_cnt2 = 0 DECLARE cur2 CURSOR FOR SELECT u_mtrlware.mtrlwareid, u_mtrlware.noallocqty - u_mtrlware.allocqty AS Expr1 FROM u_mtrlware INNER JOIN u_storage ON u_mtrlware.storageid = u_storage.storageid WHERE (u_mtrlware.scid = :ll_scid) AND (u_mtrlware.mtrlid = :ll_mtrlid) AND (u_mtrlware.Status = :ls_status) AND (u_mtrlware.woodcode = :ls_woodcode) And (u_mtrlware.pcode = :ls_pcode) And (u_mtrlware.noallocqty > u_mtrlware.allocqty) And (u_storage.inuse = 1) And (u_storage.storagetype = 1) using commit_transaction; OPEN cur2; FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt2++ arr_mtrlwareid[ll_cnt2] = ll_mtrlwareid arr_notfpqty[ll_cnt2] = ld_notfpqty FETCH cur2 Into :ll_mtrlwareid, :ld_notfpqty; LOOP CLOSE cur2; FOR ll_j = 1 To ll_cnt2 IF ld_qty = 0 THEN EXIT ll_mtrlwareid = arr_mtrlwareid[ll_j] ld_notfpqty = arr_notfpqty[ll_j] IF ld_qty > ld_notfpqty THEN ld_fpreal = ld_notfpqty ELSE ld_fpreal = ld_qty END IF IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_orderid, ld_fpreal, 2, Ref arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF ld_qty = ld_qty - ld_fpreal NEXT NEXT ext: IF if_commit THEN IF rslt = 1 THEN COMMIT using commit_transaction; ELSE ROLLBACK using commit_transaction; END IF END IF RETURN rslt end function public function integer uof_adjust_order_by_mtrlid (long arg_mtrlid, long arg_fpgrade, ref string arg_msg);Int rslt = 1 Long ll_cnt = 0 Long ll_cnt2 = 0 Long ll_cnt3 = 0 Long ll_scid, arr_scid[] Long ll_OrderID, arr_OrderID[] Long ll_MtrlID, arr_MtrlID[] String ls_status, arr_status[] String ls_woodcode, arr_woodcode[] String ls_pcode, arr_pcode[] Decimal ld_notfpqty, arr_notfpqty[] Decimal ld_fpqty, arr_fpqty[] Long ll_mtrlwareid, arr_mtrlwareid[] Decimal ld_noallocqty, arr_noallocqty[] Decimal ld_fpreal Long ll_assignid,arr_assignid[] Decimal ld_assignqty, arr_assignqty[] Long ll_assignwareid, arr_assignwareid[] DECLARE cur1 CURSOR FOR SELECT u_OrderRqMtrl.scid, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.status, u_OrderRqMtrl.woodcode, u_OrderRqMtrl.pcode, u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty AS Expr1, u_OrderRqMtrl.fpqty FROM u_OrderRqMtrl INNER JOIN u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid WHERE ((u_OrderRqMtrl.RqQty - u_OrderRqMtrl.fpqty > 0) OR (u_OrderRqMtrl.fpqty > 0)) AND (u_mtrldef.iffp = 1) AND u_OrderRqMtrl.MtrlID = :arg_mtrlid Order By u_OrderRqMtrl.RqDate Using commit_transaction; OPEN cur1; FETCH cur1 INTO :ll_scid, :ll_OrderID, :ll_MtrlID, :ls_status, :ls_woodcode, :ls_pcode, :ld_notfpqty, :ld_fpqty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt++ arr_scid[ll_cnt] = ll_scid arr_OrderID[ll_cnt] = ll_OrderID arr_MtrlID[ll_cnt] = ll_MtrlID arr_status[ll_cnt] = ls_status arr_woodcode[ll_cnt] = ls_woodcode arr_pcode[ll_cnt] = ls_pcode arr_notfpqty[ll_cnt] = ld_notfpqty arr_fpqty[ll_cnt] = ld_fpqty FETCH cur1 INTO :ll_scid, :ll_OrderID, :ll_MtrlID, :ls_status, :ls_woodcode, :ls_pcode, :ld_notfpqty, :ld_fpqty; LOOP CLOSE cur1; Long ll_i, ll_j FOR ll_i = 1 To ll_cnt ll_scid = arr_scid[ll_i] ll_OrderID = arr_OrderID[ll_i] ll_MtrlID = arr_MtrlID[ll_i] ls_status = arr_status[ll_i] ls_woodcode = arr_woodcode[ll_i] ls_pcode = arr_pcode[ll_i] ld_notfpqty = arr_notfpqty[ll_i] IF ld_notfpqty <= 0 THEN CONTINUE ll_cnt2 = 0 DECLARE cur2 CURSOR FOR SELECT u_mtrlware.mtrlwareid, u_mtrlware.noallocqty - u_mtrlware.allocqty AS Expr1 FROM u_mtrlware INNER JOIN u_storage ON u_mtrlware.storageid = u_storage.storageid WHERE (u_mtrlware.scid = :ll_scid) AND (u_mtrlware.mtrlid = :ll_mtrlid) AND (u_mtrlware.Status = :ls_status) AND (u_mtrlware.woodcode = :ls_woodcode) And (u_mtrlware.pcode = :ls_pcode) And (u_mtrlware.noallocqty > u_mtrlware.allocqty) And (u_storage.inuse = 1) And (u_storage.storagetype = 1) Using commit_transaction; OPEN cur2; FETCH cur2 INTO :ll_mtrlwareid, :ld_noallocqty; DO WHILE commit_transaction.SQLCode = 0 ll_cnt2++ arr_mtrlwareid[ll_cnt2] = ll_mtrlwareid arr_noallocqty[ll_cnt2] = ld_noallocqty FETCH cur2 INTO :ll_mtrlwareid, :ld_noallocqty; LOOP CLOSE cur2; FOR ll_j = 1 To ll_cnt2 IF ld_notfpqty = 0 THEN EXIT ll_mtrlwareid = arr_mtrlwareid[ll_j] ld_noallocqty = arr_noallocqty[ll_j] IF ld_notfpqty > ld_noallocqty THEN ld_fpreal = ld_noallocqty ELSE ld_fpreal = ld_notfpqty END IF IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_OrderID, ld_fpreal, arg_fpgrade, Ref arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF ld_notfpqty = ld_notfpqty - ld_fpreal NEXT IF ld_notfpqty <= 0 THEN CONTINUE FOR ll_j = ll_cnt To ll_i + 1 Step -1 IF arr_fpqty[ll_j] <= 0 THEN CONTINUE IF arr_scid[ll_j] <> ll_scid Or arr_MtrlID[ll_j] <> ll_MtrlID & Or arr_status[ll_j] <> ls_status Or arr_woodcode[ll_j] <> ls_woodcode & Or arr_pcode[ll_j] <> ls_pcode THEN CONTINUE END IF ll_cnt3 = 0 DECLARE cur3 CURSOR FOR SELECT u_mtrlware_assign.Assignid, u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty AS Expr1, u_mtrlware_assign.Mtrlwareid FROM u_mtrlware_assign INNER JOIN u_mtrlware ON u_mtrlware_assign.Mtrlwareid = u_mtrlware.mtrlwareid AND u_mtrlware_assign.Scid = u_mtrlware.scid WHERE (u_mtrlware_assign.Scid = :arr_scid[ll_j]) AND (u_mtrlware_assign.assigntype = 0) AND (u_mtrlware.mtrlid = :arr_MtrlID[ll_j]) AND (u_mtrlware.Status = :arr_status[ll_j]) AND (u_mtrlware.woodcode = :arr_woodcode[ll_j]) AND (u_mtrlware.pcode = :arr_pcode[ll_j]) AND (u_mtrlware_assign.Relbillid = :arr_OrderID[ll_j]) AND (u_mtrlware_assign.assignqty - u_mtrlware_assign.Outqty > 0) AND (u_mtrlware_assign.fpgrade < :arg_fpgrade) Order By u_mtrlware_assign.Assignid Desc Using commit_transaction; OPEN cur3; FETCH cur3 Into :ll_assignid, :ld_assignqty, :ll_assignwareid; DO WHILE commit_transaction.SQLCode = 0 ll_cnt3++ arr_assignid[ll_cnt3] = ll_assignid arr_assignqty[ll_cnt3] = ld_assignqty arr_assignwareid[ll_cnt3] = ll_assignwareid FETCH cur3 Into :ll_assignid, :ld_assignqty, :ll_assignwareid; LOOP CLOSE cur3; NEXT FOR ll_j = 1 To ll_cnt3 IF ld_notfpqty = 0 THEN EXIT ll_assignid = arr_assignid[ll_j] ld_assignqty = arr_assignqty[ll_j] ll_assignwareid = arr_assignwareid[ll_j] IF ld_notfpqty > ld_assignqty THEN ld_fpreal = ld_assignqty ELSE ld_fpreal = ld_notfpqty END IF IF uof_assign_del(ll_assignid, ld_fpreal, Ref arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF IF uof_assign_add_to_order(ll_scid, ll_mtrlwareid, ll_OrderID, ld_fpreal, arg_fpgrade, Ref arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF ld_notfpqty = ld_notfpqty - ld_fpreal NEXT NEXT ext: RETURN rslt end function public function integer uof_assign_add_packpro_to_saletask (long arg_scid, long arg_mtrlwareid_task, long arg_cusid_task, long arg_mtrlid_task, decimal arg_fpqty, long arg_relbillid, long arg_relprintid, string arg_relbillcode, decimal arg_cost, string arg_dscrp, string arg_mtrlcuscode, integer arg_fpgrade, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_assignid IF IsNull(arg_scid) THEN arg_scid = 0 IF IsNull(arg_mtrlwareid_task) THEN arg_mtrlwareid_task = 0 IF IsNull(arg_cusid_task) THEN arg_cusid_task = 0 IF IsNull(arg_mtrlid_task) THEN arg_mtrlid_task = 0 IF IsNull(arg_Relbillid) THEN arg_Relbillid = 0 IF IsNull(arg_relprintid) THEN arg_relprintid = 0 IF IsNull(arg_cost) THEN arg_cost = 0 IF IsNull(arg_mtrlcuscode) THEN arg_mtrlcuscode = '' IF IsNull(arg_opemp) THEN arg_opemp = '' IF IsNull(arg_dscrp) THEN arg_dscrp = '' UPDATE u_mtrlware_assign SET assignqty = assignqty + :arg_fpqty WHERE u_mtrlware_assign.scid = :arg_scid AND u_mtrlware_assign.mtrlwareid = :arg_mtrlwareid_task AND u_mtrlware_assign.relbillid = :arg_relbillid AND u_mtrlware_assign.relprintid = :arg_relprintid AND u_mtrlware_assign.mtrlid = :arg_mtrlid_task And u_mtrlware_assign.assigntype = 1 Using commit_transaction; IF commit_transaction.SQLCode = 0 THEN IF commit_transaction.SQLNRows = 0 THEN //插入内容 ll_assignid = f_sys_scidentity(0,"u_mtrlware_assign","assignid",arg_msg,True,id_sqlca) IF ll_assignid <= 0 THEN rslt = 0 GOTO ext END IF INSERT INTO u_mtrlware_assign (assignid, assigntype, scid, mtrlwareid, mtrlid, Relbillid, relprintid, relbillcode, assignqty, cost, wareamt, dscrp, mtrlcuscode, inwarecode, inprintid, cusid, fpgrade, waredate, opdate, opemp) VALUES (:ll_assignid, 1, :arg_scid, :arg_mtrlwareid_task, :arg_mtrlid_task, :arg_Relbillid, :arg_relprintid, :arg_relbillcode, :arg_fpqty, :arg_cost, :arg_fpqty * :arg_cost, :arg_dscrp, :arg_mtrlcuscode, '', 0, :arg_cusid_task, :arg_fpgrade, getdate(), getdate(), :arg_opemp) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '分配库存失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF ELSE arg_msg = '订单:'+arg_relbillcode+',明细行:'+String(arg_relprintid)+'更新订单包件产品已分配数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF UPDATE u_mtrlware SET u_mtrlware.allocqty = u_mtrlware.allocqty + :arg_fpqty WHERE u_mtrlware.mtrlwareid = :arg_mtrlwareid_task And u_mtrlware.scid = :arg_scid 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 uof_clear_barcodefp (ref string arg_barcode, string arg_msg, boolean arg_ifcommit);Int rslt = 1 UPDATE u_mtrlware_mx SET relbillid = 0, relprintid = 0, relbillcode = '' WHERE u_mtrlware_mx.barcode = :arg_barcode Using commit_transaction; IF commit_transaction.SQLCode = 100 THEN arg_msg = '取消条码:'+arg_barcode+',订单分配信息失败,'+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 on uo_mtrlware_assign.create call super::create TriggerEvent( this, "constructor" ) end on on uo_mtrlware_assign.destroy TriggerEvent( this, "destructor" ) call super::destroy end on event constructor;commit_transaction = sqlca String str_optionvalue,arg_msg f_get_sys_option_value('289',str_optionvalue,arg_msg) uo_option_packpro2_not_use_pack1 = Long(str_optionvalue) f_get_sys_option_value('290',str_optionvalue,arg_msg) uo_option_iffp_recmpl_canuseqty = Long(str_optionvalue) f_get_sys_option_value('417',str_optionvalue,arg_msg) uo_option_canpack_ifzanyong = Long(str_optionvalue) end event