$PBExportHeader$uo_order_ml.sru forward global type uo_order_ml from nonvisualobject end type type s_order_ml from structure within uo_order_ml end type end forward type s_order_ml from structure string relcode datetime orderdate long taskid string taskcode long mtrlid string status_mode string woodcode string pcode decimal { 10 } orderqty datetime requiredate string dscrp string gydscrp string assign_emp integer ordertype string taskrelcode long cusid string pfcode long taskmxid string mtrlcode integer iffp long porderid string pordercode long utid long wrkgrpid string pfklmode long pforderid string pfordercode decimal { 10 } pfqty string secdscrp string thdscrp long taskscid datetime perfinishdate long storageid decimal { 5 } capacity long tmpid integer level string typename string p_taskrelcode string cusname integer p_ordertype long p_cusid string outtypestr integer inwareflag integer outscllflag long pzlorderid string saletaskcode string saletaskrelcode long upmtrlid integer iffg integer ifwforder integer ifauto long p_taskid long p_taskmxid long p_mtrlid integer fpkind long fgid integer if_inherit decimal { 10 } addqty string wpcode integer pctype decimal { 10 } notmrpqty integer ifpban integer ifupban end type global type uo_order_ml from nonvisualobject end type global uo_order_ml uo_order_ml type variables Public ProtectedWrite Long scid Public ProtectedWrite Long orderid Public ProtectedWrite String ordercode Public ProtectedWrite Int okplan_flag Public ProtectedWrite Int scllflag Public ProtectedWrite Int scllsecflag Public ProtectedWrite Int status Public ProtectedWrite DateTime accomplishdate Public ProtectedWrite String Accomplishemp Public ProtectedWrite String permit_emp Public ProtectedWrite DateTime permit_date Public ProtectedWrite String opemp Public ProtectedWrite DateTime opdate Public ProtectedWrite String modemp Public ProtectedWrite DateTime moddate Public ProtectedWrite String stopemp Public ProtectedWrite Long ctmint Public ProtectedWrite Int ifpackpro_mtrl String billcode Int ordertype String relcode DateTime orderdate Long mtrlid String status_mode String woodcode String pcode Decimal orderqty Decimal AcmpQty Decimal stopqty DateTime requiredate String dscrp String Assign_emp String taskrelcode String pfcode,wpcode Long taskid Long taskmxid String taskcode Long cusid Long porderid String pordercode Long relrqbuyid String relrqbuycode Decimal planqty Long wrkGrpid String gydscrp String pfklmode Long relrqwfjgid String relrqwfjgcode DateTime perfinishdate int pctype Decimal addqty Long pforderid String pfordercode Decimal pfqty String secdscrp String thdscrp Long taskscid Int stopjj String stopjjemp DateTime stopjjdate String stopjjreason Long storageid Decimal capacity String cusname,p_taskrelcode String outtypestr Int ifwforder Int inwareflag,outscllflag Long pzlorderid String pzlordercode_tmp //用于生成派生指令单号 Int iffg Int ifauto Long fgid Int ifauto_optype = 1 //对象调用模式, 0:手动, 1:自动 Int if_inherit int ifpban,ifupban Long orderid_arr[],orderqty_arr[] String arg_msg_str = '' Long audit_buildtype Int Level String typename Boolean if_getid_ture = True s_aps_orderrqmtrl ins_s_rqmtrl,ins_s_empty Long it_mx_rq s_workpricetable ins_s_wp[] Long it_mx_bomwp Long deep Private: Long it_mxbt = 0 s_order_ml s_order_mx[] Long it_mxbt_ut = 0 s_order_ml s_order_ut[] Long it_mxbt_wrk = 0 s_ordermtrl_workgroup_tmp s_wrk_tmp[] Int uo_option_if_oa_order_ml Int uo_option_order_ml_secaudit Int uo_option_if_oa_order_zl Int uo_option_order_ml_zl_secaudit Int uo_option_order_bh_use_yc Int uo_option_def_bom Int uo_option_order_mtrlware Int uo_option_inware_mtrlcuscode Int uo_option_order_ml_save_reccl Int uo_option_order_ml_add_use_wkp Int uo_option_ifovertask_cp Int uo_option_if_taskwork_acmpqty Int uo_option_ml_wkp Int uo_option_auto_wrkdate Int uo_option_use_sc_date Int uo_option_unite_order_ml Int uo_option_unite_order_ml_zl Int uo_option_order_ml_scll_secaudit Int uo_option_autocreate_buy Int uo_option_autocreate_wfjg Int uo_option_def_workprice Int uo_option_orderrqwp_union Int uo_option_requestbuy_hz Int uo_option_requestwfjg_hz Int uo_option_zlmtrlchange_wx_update_rqwfjg Int uo_option_scll_rate Int uo_option_skl_overscll Int uo_option_skl_overscll_rate Int uo_option_use_suliao Int uo_option_management_cost Int uo_option_ect_price Int uo_option_order_ml_use_zl Int uo_option_use_workgroup_tree = 0 //使用工艺路线 Int uo_option_scllaudit_autobuild = 0 //主生产计划用料审核自动生成相关指令单及派工单 Int uo_option_def_mtrlwkp = 0 //生产计划审核前检查工组流程是否定义 Int uo_option_scllaudit_autobuild_tech = 0 Int uo_option_auto_finish_zl Int uo_option_update_lockdateflag Int uo_option_packpro2_not_use_pack1 Int uo_option_order_capacity Int uo_option_order_ml_zl_checkdate Int uo_option_order_zl_3_day Long ins_produce_wrkgrpid_bj Int uo_option_ifpackpro2_if_no_pack2 int uo_option_scll_back_check int uo_option_autostop_porder int uo_option_bujian_notmrpqty int uo_option_orderrqwp_auditgj int uo_option_order_zl_auto_getbar int uo_option_canpack_ifzanyong end variables forward prototypes private function integer p_reset () public function integer f_distribute_dstrqty (long arg_atid, ref string arg_msg) public function integer add_dscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg) public function integer del (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer updatebegin (long arg_scid, long arg_orderid, ref string arg_msg) public function integer audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer tmpstoporder (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer finishorder (integer arg_finishtype, long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer tryfinishorder (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer cancel_finishorder (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer save (ref string arg_msg, boolean arg_ifcommit) public function integer update (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer addmxcmpl (long arg_scid, long arg_orderid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) private function integer p_getinfo (long arg_scid, long arg_orderid, ref string arg_msg) private function integer p_clearmx () public function integer newbegin (long arg_scid) public function integer update_bom (long arg_scid, long arg_orderid, string arg_pfcode, ref string arg_msg) public function integer uof_finish_procode_qty (long arg_scid, long arg_orderid, string arg_procode, integer arg_type, ref string arg_msg, boolean arg_ifcommit) public function integer addmxcmpl_planqty (long arg_scid, long arg_orderid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) private subroutine p_replace_mx () public function integer getinfo (long arg_scid, long arg_orderid, ref string arg_msg) public function integer f_assign_inqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, integer arg_plantype, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_pz_change (integer arg_type, string arg_updatestr, long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_msg) public function integer audit_scll (long arg_scid, long arg_orderid, integer arg_scllflag, ref string arg_msg, boolean arg_ifcommit) public function integer caudit_scll (long arg_scid, long arg_orderid, integer arg_scllflag, ref string arg_msg, boolean arg_ifcommit) public function integer uof_check_if_zl (long arg_scid, long arg_orderid, ref string arg_msg) public function integer uof_get_scllflag (long arg_scid, long arg_orderid, ref integer arg_scllflag, ref string arg_msg) public function integer uof_check_if_rbuy (long arg_scid, long arg_orderid, ref string arg_msg) public function integer uof_check_if_wfjg (long arg_scid, long arg_orderid, ref string arg_msg) public function integer f_add_conpfqty (long arg_scid, long arg_orderid, decimal arg_pfqty, ref string arg_msg, boolean arg_ifcommit) public function integer f_add_rqbuyqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_plantype, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer f_assign_rqmtrlqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, integer arg_plantype, ref string arg_msg, boolean arg_ifcommit) public function integer add_secdscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg) public function integer add_thdscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg) public function integer uof_tryfinish_packorder (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer mod_perfinishdate (long arg_scid, long arg_orderid, datetime arg_oridate, datetime arg_newdate, string arg_reason, ref string arg_msg, boolean arg_ifcommit) public function integer f_add_dstrqty_ws (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_noallocqty, decimal arg_allocqty, ref string arg_msg, boolean arg_ifcommit) public function integer f_add_dstrqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, decimal arg_costamt, ref string arg_msg, boolean arg_ifcommit, long arg_relint_1, ref decimal arg_overqty) public function integer uof_stopjj (long arg_scid, long arg_orderid, string arg_reason, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_fpqty (long arg_scid, long arg_orderid, long arg_fpscid, long arg_fporderid, decimal arg_fpqty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_del_fpqty (long arg_scid, long arg_orderid, long arg_fpscid, long arg_fporderid, ref string arg_msg, boolean arg_ifcommit) public function integer uf_add_taskqty (long arg_scid, long arg_orderid, long arg_mtrlid, string arg_procode, decimal arg_taskqty, ref string arg_msg, boolean arg_ifcommit) public function integer addmxskl (long arg_scid, long arg_orderid, decimal arg_qty, decimal arg_costamt, ref string arg_msg, boolean arg_ifcommit) public function integer uof_order_cmpcost (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_reccl (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_order_add_wkp_tree (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer addmxcmpl_planqty_wkp (long arg_scid, long arg_orderid, string arg_wkpname, long arg_wrkgrpid, long arg_owrkgrpid, decimal arg_addqty, datetime arg_bdate, datetime arg_edate, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx_wrk (long arg_tmpid, long arg_wrkgrpid, long arg_owrkgrpid, string arg_wkpname, datetime arg_begindate, datetime arg_requiredate, decimal arg_lastdays, decimal arg_lasthour, ref string arg_msg) public function integer uof_order_add_wkp_tmp (long arg_scid, long arg_orderid, long arg_tmpid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_auto_order_plan (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer add_newdscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg) public function integer sec_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer c_sec_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_procode_qty (long arg_scid, long arg_orderid, string arg_procode, datetime arg_billdate, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_workgroup_qty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, datetime arg_finishdate, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer uo_cmp_datediff_wrk (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_ordermtrl_tree_acmpqty (long arg_scid, long arg_orderid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_ordermtrl_tree_sqty (long arg_scid, long arg_orderid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer uo_cmp_tree_date (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uo_cmp_wrk_edate (datetime arg_sdate, long arg_wrkgrpid, decimal arg_lasthour, ref datetime arg_edate, ref decimal arg_resthour_e, ref string arg_msg) public function integer uof_create_order_plan_tech (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_delete_order_plan_tech (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_order_cmp_wrk_date (long arg_scid, long arg_orderid, datetime arg_sdate, ref string arg_msg, boolean arg_ifcommit) public function integer mod_order_requiredate (long arg_scid, long arg_orderid, datetime arg_oridate, datetime arg_newdate, datetime arg_oriredate, datetime arg_newredate, string arg_reason, boolean arg_ifcmpdate, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_outtypestr_zl (long arg_scid[], long arg_orderid[], ref string arg_msg, boolean arg_ifcommit) public function integer uof_tryfinish_packorder2 (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer c_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uf_add_ftaskqty (long arg_scid, long arg_orderid, long arg_mtrlid, string arg_procode, datetime arg_billdate, decimal arg_ftaskqty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_okplan (long arg_scid, long arg_orderid, integer arg_okplanflag, string arg_opemp, ref string arg_msg, boolean arg_ifcommit) public function integer uof_reset_tree_barcode (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_order_add_wkp_tree_doing (long arg_scid, long arg_orderid, long arg_this_printid, long arg_next_printid, s_ordermtrl_workgroup_tree arg_s_tree[], integer arg_kind, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_minbdate (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_orderrqmtrl_zlqty (long arg_scid, long arg_orderid, long arg_mtrlid, long arg_wrkgrpid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_zlqty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_workgroup_barcode_pt (long arg_scid, long arg_orderid, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_mrpcode (long arg_scid, long arg_orderid, string arg_mrpcode, ref string arg_msg, boolean arg_ifcommit) public function integer stoporder_cancel (long arg_scid, long arg_orderid, integer arg_ifchange, ref string arg_msg, boolean arg_ifcommit) public function integer plan_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer c_plan_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer p_update_orderdate (long arg_scid, long arg_orderid, datetime arg_orderdate, datetime arg_requiredate, string arg_dscrp, decimal arg_addqty, boolean arg_ifcommit, ref string arg_msg) public function integer uf_createorder_pt (long arg_scid, long arg_orderid, integer arg_pttype, integer arg_bomflag, boolean arg_ifcommit, ref string arg_msg) public function integer stoporder (long arg_scid, long arg_orderid, integer arg_ifchange, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit) public function integer f_add_flqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_bom_workprice (long arg_mtrlid, string arg_pfcode, decimal arg_qty, ref string arg_msg) public function integer uof_protype_workprice (long arg_mtrlid, string arg_pfcode, string arg_wpcode, decimal arg_qty, ref string arg_msg) public function integer add_gydscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg) public function integer uof_stop_tree (long arg_scid, long arg_orderid, decimal arg_stopqty, integer arg_type, integer arg_ifaddhis, ref string arg_msg, boolean arg_ifcommit) public function integer uof_mtrl_change (long arg_scid, long arg_orderid, decimal arg_rate, integer arg_type, integer arg_ifchange, integer arg_ifaddhis, ref string arg_msg, boolean arg_ifcommit) public function integer uof_c_stopjj (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_workprice_parm (long arg_mtrlid, string arg_wpcode, string arg_procode, decimal arg_proqty, string arg_parmstr, integer arg_kind, ref string arg_value_str, ref decimal arg_value_dec) public function integer uof_tryfinish_packorder_buy (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_reccl_cf (long arg_scid, long arg_orderid, s_order_ml_rqmtrl_scll arg_s_mtrl_scll, ref string arg_msg, boolean arg_ifcommit) public function integer uof_order_add_tree_barcode (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx (string arg_relcode, datetime arg_orderdate, long arg_taskid, string arg_taskcode, long arg_cusid, long arg_mtrlid, string arg_status_mode, string arg_woodcode, string arg_pcode, decimal arg_orderqty, string arg_dscrp, string arg_assign_emp, datetime arg_requiredate, integer arg_ordertype, string arg_taskrelcode, string arg_pfcode, long arg_taskmxid, long arg_porderid, long arg_utid, long arg_wrkgrpid, string arg_gydscrp, string arg_pfklmode, long arg_pforderid, string arg_pfordercode, decimal arg_pfqty, string arg_secdscrp, string arg_thdscrp, long arg_taskscid, datetime arg_perfinishdate, long arg_storageid, long arg_tmpid, integer arg_level, string arg_typename, string arg_outtypestr, long arg_pzlorderid, integer arg_iffg, integer arg_ifauto, integer arg_if_inherit, decimal arg_addqty, string arg_wpcode, integer arg_pctype, ref string arg_msg) public function integer tmp_order_add_pro (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_order_add_pro (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit, boolean arg_ifall, boolean arg_ifupdateprice, integer arg_ifproaudit) public function integer uof_order_add_wkp (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit, integer arg_if_olddate) public function integer addmxcmpl_rqacmpqty (long arg_scid, long arg_orderid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer addmx_sptcheckqty (long arg_scid, long arg_orderid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) end prototypes private function integer p_reset ();//int p_reset() //清除对象及其明细 scid = 0 orderid = 0 ordercode = '' Accomplishemp = '' permit_emp = '' opemp = '' modemp = '' stopemp = '' relcode = '' mtrlid = 0 status_mode = '' woodcode = '' pcode = '' orderqty = 0 AcmpQty = 0 stopqty = 0 dscrp = '' Assign_emp = '' wrkGrpid = 0 gydscrp = '' secdscrp = '' thdscrp = '' stopjj = 0 stopjjemp = '' stopjjreason = '' storageid = 0 capacity = 0 arg_msg_str = '' //清除明细 p_clearmx() RETURN 1 end function public function integer f_distribute_dstrqty (long arg_atid, ref string arg_msg);//分摊材料用量 //1.查询时间段副材料用料量 //2.查询时间段生产计划明细完成时间入仓产品用料分摊 //==================================================================== // Function: f_distribute_dstrqty() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: // value long arg_atid // reference string arg_msg //-------------------------------------------------------------------- // Returns: integer //-------------------------------------------------------------------- // Author: yyx Date: 2004.10.04 //-------------------------------------------------------------------- // Modify History: // //==================================================================== int rslt = 1 //long count,i,k //long ls_mtrlid,arr_mtrlid[] //string ls_mtrlcode,arr_mtrlcode[],ls_mtrlname,arr_mtrlname[] //decimal ls_outqty,arr_outqty[] //datetime ls_firstdate,ls_enddate //datastore ds_dstrqty //long li_orderid,li_olmtrlid,li_mtrlid //decimal li_rqqty,li_sumrqqty // //select firstdate,enddate //into :ls_firstdate,:ls_enddate //from u_apportion_time //where atid = :arg_atid; //if sqlca.sqlcode <> 0 then // rslt =0 // arg_msg = '查询盘点时间失败' // goto ext //end if // //declare cur_apportion cursor for // select u_mtrldef.mtrlid, // u_apportion.orqty + u_apportion.inqty - u_apportion.balcqty, // u_mtrldef.mtrlcode, // u_mtrldef.mtrlname // from u_mtrldef, // u_apportion // where ( u_mtrldef.mtrlid = u_apportion.mtrlid ) // and ( u_mtrldef.mtrlkind = 1 ) // and ( u_apportion.atid = :arg_atid ); //open cur_apportion; //fetch cur_apportion into :ls_mtrlid,:ls_outqty,:ls_mtrlcode,:ls_mtrlname; //do while sqlca.sqlcode = 0 // count++ // arr_mtrlid[count] = ls_mtrlid // arr_mtrlcode[count] = ls_mtrlcode // arr_mtrlname[count] = ls_mtrlname // arr_outqty[count] = ls_outqty // fetch cur_apportion into :ls_mtrlid,:ls_outqty,:ls_mtrlcode,:ls_mtrlname; //loop //close cur_apportion; // //if count <= 0 then // arg_msg = '该分摊时间还未盘车间数量' // rslt = 0 // goto ext //end if // //ds_dstrqty = create datastore //ds_dstrqty.dataobject = 'ds_distribute_dstrqty' //ds_dstrqty.settransobject(sqlca) //for i = 1 to count // li_orderid = 0 // li_olmtrlid = 0 // li_mtrlid = 0 // li_rqqty = 0 // li_sumrqqty = 0 // // if ds_dstrqty.retrieve(ls_firstdate,ls_enddate,arr_mtrlid[i]) <= 0 then continue // li_sumrqqty = ds_dstrqty.object.sum_rqqty[1] // // ds_dstrqty.accepttext() // for k = 1 to ds_dstrqty.rowcount() // li_orderid = ds_dstrqty.object.u_orderrqmtrl_orderid[i] // li_olmtrlid = ds_dstrqty.object.u_orderrqmtrl_olmtrlid[i] // li_mtrlid = ds_dstrqty.object.u_orderrqmtrl_mtrlid[i] // li_rqqty = ds_dstrqty.object.u_orderrqmtrl_rqqty[i] // // update u_OrderRqMtrl // set DstrQty = DstrQty + (:li_rqqty / :li_sumrqqty) * :li_sumrqqty, // atid = :arg_atid // where orderid = :li_orderid // and olmtrlid = :li_olmtrlid // and mtrlid = :li_mtrlid; // if sqlca.sqlcode <> 0 then // rslt = 0 // arg_msg = '分摊物料'+arr_mtrlname[i]+'用料量失败~n'+sqlca.sqlerrtext // goto ext // end if // next //next // //ext: return rslt end function public function integer add_dscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg); Int rslt = 1 IF arg_newdescppart = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arG_MSG) IF rslt = 0 THEN GOTO ext IF status = 0 THEN rslt = 0 arG_MSG = "待审核状态下不可用" GOTO ext END IF UPDATE u_order_ml SET DSCRP = DSCRP+' '+:arg_newdescppart WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid; IF SQLCA.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致添加计划备注操作失败"+"~n"+SQLCA.SQLErrText ROLLBACK; GOTO ext END IF DSCRP = DSCRP+' '+arg_newdescppart ext: IF rslt = 1 THEN COMMIT; END IF p_reset() RETURN (rslt) end function public function integer del (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_fp Long i,cnt Long ll_scid,ll_orderid,ll_mtrlid,ll_wrkgrpid String ls_status,ls_woodcode,ls_pcode Decimal ld_fpqty uo_mtrlware_assign uo_fp_plan uo_fp_plan = Create uo_mtrlware_assign uo_fp_plan.commit_transaction = sqlca datastore ds_fp_plan_del ds_fp_plan_del = Create datastore ds_fp_plan_del.DataObject = 'ds_fp_plan_plankind_del' ds_fp_plan_del.SetTransObject(sqlca) datastore ds_zl_fp_del ds_zl_fp_del = Create datastore ds_zl_fp_del.DataObject = 'ds_zl_scllqty_from_orderrqmtrl_fp_cancel' ds_zl_fp_del.SetTransObject(sqlca) rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF Status <> 0 THEN rslt = 0 arg_msg = "计划已经审核,不可以删除" GOTO ext END IF DELETE FROM u_OrderRqMtrl WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除计划的计划用料表相应记录操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM U_OrderRqwp WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除计划的工序表相应记录操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_OrderMtrl_workgroup WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除计划的交接明细表相应记录操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_ordermtrl_wrk_jd WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除工组工作量明细表相应记录操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_order_ml_perfinishdate_log WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除计划的预计完成日期修改日志操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_OrderRqMtrl_tree WHERE u_OrderRqMtrl_tree.orderid = :arg_orderid And u_OrderRqMtrl_tree.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除生产计划运算树操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF //处理分配占用数 cnt = 0 SELECT count(*) INTO :cnt FROM u_OrderRqMtrl_scll WHERE ( u_OrderRqMtrl_scll.scid = :arg_scid ) AND ( u_OrderRqMtrl_scll.OrderID = :arg_orderid ) AND ( u_OrderRqMtrl_scll.fpqty > 0 ); IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令领料明细是否有已分配数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF //取消分配 IF cnt > 0 THEN ds_zl_fp_del.Retrieve(arg_scid,arg_orderid) FOR i = 1 To ds_zl_fp_del.RowCount() ll_scid = ds_zl_fp_del.Object.scid[i] ll_orderid = ds_zl_fp_del.Object.orderid[i] ll_mtrlid = ds_zl_fp_del.Object.mtrlid[i] ll_wrkgrpid = ds_zl_fp_del.Object.wrkgrpid[i] ls_status = ds_zl_fp_del.Object.Status[i] ls_woodcode = ds_zl_fp_del.Object.woodcode[i] ls_pcode = ds_zl_fp_del.Object.pcode[i] ld_fpqty = ds_zl_fp_del.Object.fpqty[i] IF uo_fp_plan.uof_assign_add_to_zl_scll(ll_scid,ll_orderid,ll_mtrlid,ll_wrkgrpid,& ls_status,ls_woodcode,ls_pcode,0 - ld_fpqty,0,0,0,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF NEXT END IF /////////////////////////////////// // DELETE FROM u_OrderRqMtrl_scll WHERE u_OrderRqMtrl_scll.orderid = :arg_orderid And u_OrderRqMtrl_scll.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除生产计划用料明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_order_ml_mx WHERE u_order_ml_mx.orderid = :arg_orderid And u_order_ml_mx.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除生产计划明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF //删除原有分配计划明细 ds_fp_plan_del.Retrieve(arg_scid,arg_orderid,1) IF ds_fp_plan_del.RowCount() > 0 THEN IF ds_fp_plan_del.Object.sumassignqty[1] > 0 THEN rslt = 0 arg_msg = "原分配计划明细已有分配数,操作取消" GOTO ext END IF END IF FOR ll_fp = 1 To ds_fp_plan_del.RowCount() IF uo_fp_plan.uof_plan_del(ds_fp_plan_del.Object.id[ll_fp],& ds_fp_plan_del.Object.qty[ll_fp],arg_msg,False) = 0 THEN arg_msg = '删除分配计划失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT /////////////////////////////////// // DELETE FROM u_order_zl_planmx WHERE u_order_zl_planmx.orderid = :arg_orderid And u_order_zl_planmx.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除生产计划进仓计划操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_order_ml WHERE u_order_ml.orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除生产计划操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF //扣减相关部件生产计划的已分配数量 IF pforderid > 0 THEN IF f_add_conpfqty(arg_scid,pforderid,0 - pfqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF //更新主计划自制需求指令单数量yyx20120815 IF ordertype = 4 And pzlorderid = 0 THEN IF uof_update_orderrqmtrl_zlqty(arg_scid,porderid,mtrlid,wrkgrpid,& status_mode,woodcode,pcode,0 - orderqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF // ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Destroy uo_fp_plan Destroy ds_fp_plan_del Destroy ds_zl_fp_del Return (rslt) end function public function integer updatebegin (long arg_scid, long arg_orderid, ref string arg_msg);Long rslt = 1 IF uo_option_if_oa_order_ml = -1000 THEN rslt = 0 arg_msg = '选项:[230]生产计划使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[225]生产计划使用二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_if_oa_order_zl = -1000 THEN rslt = 0 arg_msg = '选项:[231]生产指令单使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_zl_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[226]生产指令单使用二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF p_reset() rslt = p_getinfo(arg_scid,arg_orderid,arg_msg) IF rslt = 0 THEN GOTO ext IF ordertype <> 4 THEN IF uo_option_if_oa_order_ml = 1 And uo_option_order_ml_secaudit = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_orderid,36,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF ELSE IF uo_option_if_oa_order_zl = 1 And uo_option_order_ml_zl_secaudit = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_orderid,1138,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF Status <> 0 THEN rslt = 0 arg_msg = '已经处于审核或完成等状态,不可以修改,如果计划未领料并要修改请先撤销审核' GOTO ext END IF p_clearmx() //清除明细 ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 Long ls_i String ls_mtrlcode Int ll_statustype,ll_ordertype,li_ifpackpro,li_ifpack,li_storagetype_mtrl Long ll_porderid Int li_ifzl_add0ware String ls_wpcode Long ll_mtrlid,ll_wrkid Int li_mtrlorigin Decimal ld_packqty_mtrl String ls_plancode If f_aps_mrp_cklock(arg_scid,arg_msg) = 0 Then rslt = 0 Goto ext End If datastore ds_tree ds_tree = Create datastore ds_tree.DataObject = 'ds_orderrqmtrl_tree_ifpack2' ds_tree.SetTransObject(sqlca) datastore ds_gb_mx ds_gb_mx = Create datastore ds_gb_mx.DataObject = 'dw_getbarmx_edit' ds_gb_mx.SetTransObject(sqlca) uo_order_ml uo_zl uo_zl = Create uo_order_ml uo_getbar uo_get uo_get = Create uo_getbar If uo_option_if_oa_order_ml = -1000 Then rslt = 0 arg_msg = '选项:[230]生产计划使用审批流程,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_order_ml_secaudit = -1000 Then rslt = 0 arg_msg = '选项:[225]生产计划使用二级审核,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_if_oa_order_zl = -1000 Then rslt = 0 arg_msg = '选项:[231]生产指令单使用审批流程,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_order_ml_zl_secaudit = -1000 Then rslt = 0 arg_msg = '选项:[226]生产指令单使用二级审核,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_order_bh_use_yc = -1000 Then rslt = 0 arg_msg = '选项:[074]备货生产计划选销售预测单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_def_bom = -1000 Then rslt = 0 arg_msg = '选项:[013]生产计划审核时需要检查是否已定义物料清单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_order_mtrlware = -1000 Then rslt = 0 arg_msg = '选项:[143]生产计划审核增加0库存,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_inware_mtrlcuscode = -1000 Then rslt = 0 arg_msg = '选项:[138]生产进仓单产品批号策略按指令单号,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_use_workgroup_tree = -1000 Then rslt = 0 arg_msg = '选项:[233]使用工艺路线,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_def_mtrlwkp = -1000 Then rslt = 0 arg_msg = '选项:[239]生产计划审核时需要检查是否检查工组流程是否定义,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_ifpackpro2_if_no_pack2 = -1000 Then rslt = 0 arg_msg = '选项:[340]个性包件产品物料清单允许没有个性包件,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_order_zl_auto_getbar = -1000 Then rslt = 0 arg_msg = '选项:[403]胚板指令单终审是否自动生成条码生成单并审核,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_canpack_ifzanyong = -1000 Then rslt = 0 arg_msg = '选项:[417]通用包件产品可装数选项,读取初始默认值失败,操作取消!' Goto ext End If uo_saletask uo_task uo_task = Create uo_saletask uo_task.commit_transaction = sqlca uo_saletask_ll uo_task_ll uo_task_ll = Create uo_saletask_ll uo_task_ll.commit_transaction = sqlca If arg_orderid = 0 Then rslt = 0 arg_msg = "没有审核对象" Goto ext End If If p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If If status <> 0 Then rslt = 0 arg_msg = "计划只有在待审批状态才可以执行审批，请核对" Goto ext End If If getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If //检查是否有相关配置变更单未审 cnt = 0 Select count(*) Into :cnt From u_saletaskmx_change Inner JOIN u_saletaskmx_changemx ON u_saletaskmx_change.Billid = u_saletaskmx_changemx.billid Where (u_saletaskmx_change.affirmflag = 0 Or u_saletaskmx_change.flag = 0) And (u_saletaskmx_changemx.orderid = :arg_orderid) And (u_saletaskmx_changemx.scid = :arg_scid) ; If sqlca.SQLCode <> 0 Then arg_msg = ordercode + ',查询是否有相关配置变更单未审失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = ordercode + ',有相关配置变更单未审,请先审核' rslt = 0 Goto ext End If Select mtrlcode, statusflag, ordertype, ifpackpro, ifpack, storagetype, mtrlorigin, packqty Into :ls_mtrlcode, :ll_statustype, :ll_ordertype, :li_ifpackpro, :li_ifpack, :li_storagetype_mtrl, :li_mtrlorigin, :ld_packqty_mtrl From u_mtrldef Where mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If //检查是否已建立清单 If ordertype <> 4 Then If ll_statustype <> 2 Then If uo_option_def_bom = 1 Then If li_mtrlorigin <> 2 Then cnt = 0 Select count(*) Into :cnt From u_PrdPF,u_Mtrl_pf Where u_PrdPF.mtrlid = :mtrlid And u_PrdPF.pfcode = u_Mtrl_pf.pfcode And u_PrdPF.mtrlid = u_Mtrl_pf.mtrlid And u_Mtrl_pf.pfcode = :pfcode And u_Mtrl_pf.flag = 1; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品:'+ls_mtrlcode + ',清单:'+ pfcode +',是否已设置物料清单明细失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt = 0 Then arg_msg = '产品:'+ls_mtrlcode + ',清单:'+ pfcode +',物料清单用料明细未建立,请检查' rslt = 0 Goto ext End If End If ElseIf uo_option_def_bom = 2 Then If f_check_pf_flag(mtrlid,pfcode,0,arg_msg) = 0 Then rslt = 0 Goto ext End If End If End If End If //检查是否已建立工组流程 If uo_option_def_mtrlwkp = 1 Then cnt = 0 Select count(*) Into :cnt From u_mtrl_wkp Where u_mtrl_wkp.mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品:'+ls_mtrlcode +',是否已设置工组流程明细失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt = 0 Then arg_msg = '产品:'+ls_mtrlcode + ',工组流程明细未建立,请检查' rslt = 0 Goto ext End If End If If ordertype = 1 Or & ordertype = 2 Or & ordertype = 3 Or & ordertype = 0 And & uo_option_order_bh_use_yc = 1 Then If ordertype <> 3 Then If it_mxbt = 0 Then rslt = 0 arg_msg = '没有订单明细,操作终止,请检查' Goto ext End If End If If ordertype = 2 Then For ls_i = 1 To it_mxbt If s_order_mx[ls_i].taskid > 0 Then If uo_task_ll.updateassignqty(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,s_order_mx[ls_i].taskmxid,s_order_mx[ls_i].orderqty,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If Next Else For ls_i = 1 To it_mxbt If s_order_mx[ls_i].taskid > 0 Then If uo_task.updateassignqty(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,s_order_mx[ls_i].taskmxid,s_order_mx[ls_i].orderqty,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If Next End If ElseIf ordertype = 4 And pzlorderid = 0 Then If it_mxbt = 0 Then rslt = 0 arg_msg = '没有计划明细,操作终止,请检查' Goto ext End If For ls_i = 1 To it_mxbt If s_order_mx[ls_i].taskid > 0 Then Int li_plantype Long ll_wrkGrpid_scll Select plantype,wrkGrpid Into :li_plantype,:ll_wrkGrpid_scll From u_OrderRqMtrl Where scid = :scid And orderid = :s_order_mx[ls_i].taskid And mxpkid = :s_order_mx[ls_i].taskmxid; If sqlca.SQLCode <> 0 Then arg_msg = '查询生产自制需求资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If f_assign_rqmtrlqty(scid,s_order_mx[ls_i].taskid,ll_wrkGrpid_scll,& mtrlid,ls_mtrlcode,status_mode,& woodcode,pcode,s_order_mx[ls_i].orderqty,0,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If Next End If Update u_order_ml Set permit_emp = :publ_operator, permit_date = getdate(), status = 7 Where orderid = :arg_orderid And scid = :scid And status = 0; If sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 Then rslt = 0 arg_msg = "因网络或其它原因导致计划审批操作失败"+"~n"+sqlca.SQLErrText Goto ext End If //==================================================================== // 更新订单排产数量,加工生产计划工序 //==================================================================== If Not (ordertype <> 4 And ll_ordertype = 1) Then If outscllflag = 1 And ordertype <> 3 Then If uof_order_add_pro(arg_scid,arg_orderid,arg_msg,False,True,False,0) = 0 Then rslt = 0 Goto ext End If If uof_order_add_wkp(arg_scid,arg_orderid,arg_msg,False,0) = 0 Then rslt = 0 Goto ext End If If uof_order_add_wkp_tree(arg_scid,arg_orderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If End If If uo_option_order_mtrlware > 0 Then Long ll_mtrlwareid,ll_storageid_p Long ll_mtrlid_p String ls_mtrlcuscode String ls_taskrelcode_p,ls_ordercode_p Long ll_cusid_p Int li_balctype If uo_option_inware_mtrlcuscode = 0 Or li_ifpackpro = 1 Or li_ifpackpro = 3 Then ls_mtrlcuscode = '' Else ls_mtrlcuscode = ordercode End If If storageid > 0 Then Select balctype Into :li_balctype From u_storage Where storageid = :storageid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询仓库是否使用客户库存失败失败,"+sqlca.SQLErrText Goto ext End If End If If ordertype <> 4 And ll_ordertype = 0 And storageid > 0 Then //合并排产,生产计划增加0库存,否则相关指令单增加库存 If (li_ifpackpro = 2 Or li_ifpackpro = 4) And ll_ordertype = 0 Then ls_mtrlcuscode = ordercode End If If li_balctype = 0 Then cusid = 0 Else If li_storagetype_mtrl = 1 Then cusid = 0 End If If li_ifpackpro = 1 And uo_option_canpack_ifzanyong = 1 Then ls_plancode = '' Else ls_plancode = taskrelcode End If Select top 1 mtrlwareid Into :ll_mtrlwareid From u_mtrlware Where mtrlid = :mtrlid And status = :status_mode And storageid = :storageid And woodcode = :woodcode And plancode = :ls_plancode And pcode = :pcode And sptid = :cusid And mtrlcuscode = :ls_mtrlcuscode; If sqlca.SQLCode = -1 Then arg_msg = '查询产品库存失败,'+sqlca.SQLErrText rslt = 0 Goto ext ElseIf sqlca.SQLCode = 100 Then ll_mtrlwareid = 0 ll_mtrlwareid = f_sys_scidentity(scid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca) If ll_mtrlwareid <= 0 Then rslt = 0 Goto ext End If Insert Into u_mtrlware(scid,mtrlwareid,mtrlid,storageid,noallocqty,status,plancode,woodcode,pcode,sptid,mtrlcuscode) Values(:scid,:ll_mtrlwareid,:mtrlid,:storageid,0,:status_mode,:ls_plancode,:woodcode,:pcode,:cusid,:ls_mtrlcuscode); If sqlca.SQLCode <> 0 Then arg_msg = '主生产计划产品加0库存失败或物料已经有库存,请检查,'+sqlca.SQLErrText rslt = 0 Goto ext End If End If ElseIf ordertype = 4 And porderid > 0 Then Select u_order_ml.mtrlid,u_order_ml.taskrelcode,u_order_ml.cusid,u_order_ml.storageid,u_order_ml.ordercode Into :ll_mtrlid_p,:ls_taskrelcode_p,:ll_cusid_p,:ll_storageid_p,:ls_ordercode_p From u_order_ml Where u_order_ml.orderid = :porderid And u_order_ml.scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "加0库存时,指令单查询上级主生产计划资料失败,"+sqlca.SQLErrText Goto ext End If If ll_storageid_p > 0 Then Select balctype Into :li_balctype From u_storage Where storageid = :ll_storageid_p; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询主生产计划仓库是否使用客户库存失败失败,"+sqlca.SQLErrText Goto ext End If If ll_ordertype = 1 And ll_mtrlid_p = mtrlid Or li_ifpack = 2 Then If ll_ordertype = 1 And ll_mtrlid_p = mtrlid And (li_ifpackpro = 0 Or li_ifpackpro = 2 Or li_ifpackpro = 4) And pzlorderid = 0 Then ls_mtrlcuscode = ordercode ls_plancode = ls_taskrelcode_p li_ifzl_add0ware = 1 ElseIf ll_ordertype = 1 And ll_mtrlid_p = mtrlid And (li_ifpackpro = 2 Or li_ifpackpro = 4) And pzlorderid > 0 Or li_ifpack = 2 And ll_mtrlid_p <> mtrlid Then Select u_order_ml.taskrelcode,u_order_ml.cusid,u_order_ml.ordercode Into :ls_taskrelcode_p,:ll_cusid_p,:ls_ordercode_p From u_order_ml Where u_order_ml.orderid = :pzlorderid And u_order_ml.scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "加0库存时,查询上级指令资料失败,"+sqlca.SQLErrText Goto ext End If ls_mtrlcuscode = ls_ordercode_p If uo_option_order_mtrlware = 1 Then li_ifzl_add0ware = 1 ElseIf uo_option_order_mtrlware = 2 Then li_ifzl_add0ware = 0 End If ElseIf ll_ordertype = 1 And li_ifpack = 2 And ll_mtrlid_p = mtrlid Then ls_mtrlcuscode = ordercode ls_plancode = ls_taskrelcode_p If uo_option_order_mtrlware = 1 Then li_ifzl_add0ware = 1 ElseIf uo_option_order_mtrlware = 2 Then li_ifzl_add0ware = 0 End If ElseIf ll_ordertype = 1 And ll_mtrlid_p = mtrlid And (li_ifpackpro = 1 Or li_ifpackpro = 3) Then ls_mtrlcuscode = '' If li_ifpackpro = 1 And uo_option_canpack_ifzanyong = 1 Then ls_plancode = '' Else ls_plancode = ls_taskrelcode_p End If li_ifzl_add0ware = 1 End If If li_ifzl_add0ware = 1 Then If li_balctype = 0 Then ll_cusid_p = 0 Else If li_storagetype_mtrl = 1 Then ll_cusid_p = 0 End If Select top 1 mtrlwareid Into :ll_mtrlwareid From u_mtrlware Where mtrlid = :mtrlid And status = :status_mode And storageid = :ll_storageid_p And woodcode = :woodcode And plancode = :ls_plancode And pcode = :pcode And sptid = :ll_cusid_p And mtrlcuscode = :ls_mtrlcuscode; If sqlca.SQLCode = -1 Then arg_msg = '查询指令单产品是否有库存记录失败,'+sqlca.SQLErrText rslt = 0 Goto ext ElseIf sqlca.SQLCode = 100 Then ll_mtrlwareid = 0 ll_mtrlwareid = f_sys_scidentity(scid,"u_mtrlware","mtrlwareid",arg_msg,True,id_sqlca) If ll_mtrlwareid <= 0 Then rslt = 0 Goto ext End If Insert Into u_mtrlware(scid,mtrlwareid,mtrlid,storageid,noallocqty,status,plancode,woodcode,pcode,sptid,mtrlcuscode) Values(:scid,:ll_mtrlwareid,:mtrlid,:ll_storageid_p,0,:status_mode,:ls_plancode,:woodcode,:pcode,:ll_cusid_p,:ls_mtrlcuscode); If sqlca.SQLCode <> 0 Then arg_msg = '指令单产品加0库存失败或物料已经有库存,请检查,'+sqlca.SQLErrText rslt = 0 Goto ext End If End If End If End If End If End If End If Int li_ordertype_p,li_ifpackpro_p Long ll_i,ll_j Long ll_orderid_tmp Long ll_pmtrlid String ls_p_status,ls_p_woodcode,ls_p_pcode Boolean lb_if_autozl = False s_mtrlcfg_expr s_pz[] If ordertype <> 4 Then If (li_ifpackpro = 4 Or li_ifpackpro = 2 ) And ll_ordertype = 0 Then lb_if_autozl = True End If ll_porderid = arg_orderid Else If porderid = 0 Then lb_if_autozl = False Else Select u_mtrldef.ordertype, u_mtrldef.ifpackpro, u_Order_ml.mtrlid, u_Order_ml.status_mode, u_Order_ml.woodcode, u_Order_ml.pcode Into :li_ordertype_p, :li_ifpackpro_p, :ll_pmtrlid, :ls_p_status, :ls_p_woodcode, :ls_p_pcode From u_Order_ml Inner JOIN u_mtrldef ON u_Order_ml.mtrlid = u_mtrldef.mtrlid Where u_Order_ml.orderid = :porderid And u_order_ml.scid = :scid; If sqlca.SQLCode <> 0 Then arg_msg = '查询上级计划产品相关信息失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If li_ordertype_p = 1 And & mtrlid = ll_pmtrlid And & (li_ifpackpro_p = 2 Or li_ifpackpro_p = 4 And status_mode = ls_p_status And woodcode = ls_p_woodcode And pcode = ls_p_pcode And pzlorderid = 0) Then lb_if_autozl = True End If ll_porderid = porderid End If End If Decimal ld_pzqty If lb_if_autozl Then uo_zl.newbegin(arg_scid) If li_ifpackpro = 4 Then f_checkpz(status_mode,s_pz[]) For ll_i = 1 To UpperBound(s_pz) ld_pzqty = Dec(s_pz[ll_i].qty) If uo_zl.acceptmx(relcode,& orderdate,& 0,& '',& 0,& mtrlid,& s_pz[ll_i].cfgname,& woodcode,& pcode,& orderqty * ld_pzqty,& dscrp,& publ_operator,& requiredate,& 4,& taskrelcode,& pfcode,& taskmxid,& ll_porderid,& ll_i,& wrkGrpid,& gydscrp,& pfklmode,& 0,'',0,& secdscrp,& thdscrp,& arg_scid,& perfinishdate,& 0,& 0,& Level,& typename,& outtypestr,& arg_orderid,& 0,& 0,0,addqty,& wpcode,0,& arg_msg) = 0 Then arg_msg = '建立相关生产指令单失败,'+arg_msg rslt = 0 Goto ext End If Next ElseIf li_ifpackpro = 2 Then If ll_ordertype = 0 Then ds_tree.Retrieve(arg_scid,arg_orderid) Else ds_tree.Retrieve(arg_scid,ll_porderid) End If For ll_i = 1 To ds_tree.RowCount() ll_mtrlid = ds_tree.Object.u_orderrqmtrl_tree_mtrlid[ll_i] ll_wrkid = ds_tree.Object.u_orderrqmtrl_tree_produce_wrkgrpid[ll_i] Select top 1 wpcode Into :ls_wpcode From u_mtrl_workprice Where mtrlid = :ll_mtrlid And wrkid = :ll_wrkid Order By ifdft Desc; If sqlca.SQLCode <> 0 Then ls_wpcode = '' If uo_zl.acceptmx(relcode,& orderdate,& 0,& '',& 0,& ds_tree.Object.u_orderrqmtrl_tree_mtrlid[ll_i],& ds_tree.Object.u_orderrqmtrl_tree_status[ll_i],& ds_tree.Object.u_orderrqmtrl_tree_woodcode[ll_i],& ds_tree.Object.u_orderrqmtrl_tree_pcode[ll_i],& ds_tree.Object.u_orderrqmtrl_tree_truerqqty[ll_i]*orderqty/ds_tree.Object.u_order_ml_orderqty[ll_i],& dscrp,& publ_operator,& requiredate,& 4,& taskrelcode,& ds_tree.Object.u_orderrqmtrl_tree_pfcode[ll_i],& taskmxid,& ll_porderid,& ll_i,& ds_tree.Object.u_orderrqmtrl_tree_produce_wrkgrpid[ll_i],& gydscrp,& pfklmode,& 0,'',0,& secdscrp,& thdscrp,& arg_scid,& perfinishdate,& 0,& 0,& Level,& typename,& outtypestr,& arg_orderid,& 0,& 0,0,0,& ls_wpcode,0,& arg_msg) = 0 Then arg_msg = '建立相关生产指令单失败,'+arg_msg rslt = 0 Goto ext End If Next End If uo_zl.pzlordercode_tmp = ordercode If ds_tree.RowCount() > 0 And li_ifpackpro = 2 Or UpperBound(s_pz) > 0 And li_ifpackpro = 4 Then If uo_zl.Save(arg_msg,False) = 0 Then arg_msg = '保存相关生产指令单失败,'+arg_msg rslt = 0 Goto ext End If uo_zl.pzlordercode_tmp = '' If uo_option_ifpackpro2_if_no_pack2 = 0 Then If UpperBound(uo_zl.orderid_arr) = 0 Then rslt = 0 arg_msg = '没有生成相关进仓指令单,请检查,可能没有个性包件或组合配置子件' Goto ext End If End If For ll_j = 1 To UpperBound(uo_zl.orderid_arr) ll_orderid_tmp = uo_zl.orderid_arr[ll_j] If uo_zl.audit(arg_scid,ll_orderid_tmp,arg_msg,False) = 0 Then rslt = 0 arg_msg = '审核相关生产指令单失败(初审),'+arg_msg Goto ext End If If uo_zl.plan_audit(arg_scid,ll_orderid_tmp,arg_msg,False) = 0 Then rslt = 0 arg_msg = '审核相关生产指令单失败(二审),'+arg_msg Goto ext End If If uo_zl.sec_audit(arg_scid,ll_orderid_tmp,arg_msg,False) = 0 Then rslt = 0 arg_msg = '审核相关生产指令单失败(终审),'+arg_msg Goto ext End If Next End If End If If ordertype <> 4 Then If uo_option_if_oa_order_ml = 1 And uo_option_order_ml_secaudit = 1 Then If f_oa(sqlca,False,arg_msg,36,arg_scid,arg_orderid,ordercode,relcode,dscrp) = 0 Then rslt = 0 Goto ext End If End If Else If uo_option_if_oa_order_zl = 1 And uo_option_order_ml_zl_secaudit = 1 Then If f_oa(sqlca,False,arg_msg,1138,arg_scid,arg_orderid,ordercode,relcode,dscrp) = 0 Then rslt = 0 Goto ext End If End If End If //yyx20140723 //胚板指令终审自动建立条码生成单 If uo_option_order_zl_auto_getbar = 1 And ordertype = 4 And ifpban = 1 Then s_getbar arg_s_gb Long ll_storageid_wrkgrpid Decimal ld_packqty Long ll_cnt,child_row,j String ls_barcode DateTime server_dt Select Top 1 getdate() Into :server_dt From u_user; If sqlca.SQLCode <> 0 Then arg_msg = '查询服务器时间失败,操作取消' rslt = 0 Goto ext End If Select storageid Into :ll_storageid_wrkgrpid From u_sc_wkp Where wrkGrpid = :wrkGrpid; If sqlca.SQLCode <> 0 Then arg_msg = '查询胚板指令单车间资料对应仓库失败,操作取消' rslt = 0 Goto ext End If If ll_storageid_wrkgrpid = 0 Then arg_msg = '胚板指令单车间资料对应仓库未设置,操作取消' rslt = 0 Goto ext End If If ld_packqty_mtrl = 0 Then ld_packqty_mtrl = 1 // arg_msg = '胚板指令单物料未设置包装件数,操作取消' // rslt = 0 // GOTO ext End If arg_s_gb.scid = arg_scid arg_s_gb.getbarid = 0 arg_s_gb.getbardate = server_dt arg_s_gb.ifrel = 1 arg_s_gb.orderid = arg_orderid arg_s_gb.storageid = ll_storageid_wrkgrpid arg_s_gb.mtrlid = mtrlid arg_s_gb.cusid = 0 arg_s_gb.plancode = '' arg_s_gb.status = status_mode arg_s_gb.woodcode = woodcode arg_s_gb.pcode = pcode arg_s_gb.mtrlcuscode = '' arg_s_gb.Location = '' arg_s_gb.packqty = ld_packqty_mtrl arg_s_gb.qty = orderqty arg_s_gb.dscrp = '胚板指令单终审自动建立条码单' arg_s_gb.reason = '' arg_s_gb.buytaskprintid = 0 arg_s_gb.packuqty = 0 arg_s_gb.uqty = 0 arg_s_gb.rate = 0 ds_gb_mx.Reset() If ld_packqty_mtrl >= 1 Then ll_cnt = Ceiling(Truncate(orderqty/ld_packqty_mtrl,10)) ld_packqty = ld_packqty_mtrl Else ll_cnt = Ceiling(orderqty*ld_packqty_mtrl) ld_packqty = Long(1/ld_packqty_mtrl) End If For j = 1 To ll_cnt ls_barcode = getid(0,"TXM",Date(server_dt),False,sqlca) //取得新单据编号 If ls_barcode = "err" Then ls_barcode = '' arg_msg = '胚板指令单无法获取条码,操作取消' rslt = 0 Goto ext End If child_row = ds_gb_mx.InsertRow(0) ds_gb_mx.Object.barcode[child_row] = ls_barcode If Mod(orderqty,ld_packqty) = 0 Then ds_gb_mx.Object.packqty[child_row] = ld_packqty Else If j <> ll_cnt Then ds_gb_mx.Object.packqty[child_row] = ld_packqty Else ds_gb_mx.Object.packqty[child_row] = orderqty - ld_packqty * ( ll_cnt - 1 ) End If End If Next ds_gb_mx.AcceptText() For j = 1 To ds_gb_mx.RowCount() arg_s_gb.arg_s_mx[j].barcode = ds_gb_mx.Object.barcode[j] arg_s_gb.arg_s_mx[j].packqty = ds_gb_mx.Object.packqty[j] arg_s_gb.arg_s_mx[j].packuqty = ds_gb_mx.Object.packuqty[j] arg_s_gb.arg_s_mx[j].rate = ds_gb_mx.Object.rate[j] arg_s_gb.arg_s_mx[j].qty = ds_gb_mx.Object.qty[j] arg_s_gb.arg_s_mx[j].mxdscrp = '' Next If uo_get.Save(arg_s_gb,publ_operator,arg_msg,False) = 0 Then arg_msg = '保存胚板指令单终审自动建立条码生成单失败,'+arg_msg rslt = 0 Goto ext End If If uo_get.auditing(uo_get.uo_getbarid,publ_operator,arg_msg,False) = 0 Then arg_msg = '审核胚板指令单终审自动建立条码生成单失败,'+arg_msg rslt = 0 Goto ext End If End If // ext: If rslt = 0 Then Rollback; p_reset() ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Destroy uo_task Destroy uo_task_ll Destroy uo_zl Destroy uo_get Destroy ds_tree Destroy ds_gb_mx Return rslt end function public function integer tmpstoporder (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 If f_aps_mrp_cklock(arg_scid,arg_msg) = 0 Then rslt = 0 Goto ext End If rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) If rslt = 0 Then Goto ext If status <> 1 And status <> 2 Then rslt = 0 arg_msg = "计划只有在进行状态或暂停状态才可以执行暂停/取消暂停操作" Goto ext End If If status = 1 Then cnt = 0 Select count(*) Into :cnt From u_inwaremx Inner JOIN u_inware ON u_inwaremx.scid = u_inware.scid And u_inwaremx.inwareid = u_inware.inwareid Where (u_inware.billtype = 3) And (u_inware.flag = 0) And (u_inwaremx.scid = :arg_scid) And (u_inwaremx.relid = :arg_orderid); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = OrderCode+' 查询是否有相关未审核生产进仓单失败'+sqlca.SQLErrText Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = OrderCode+' 有相关未审核生产进仓单,不能暂停' Goto ext End If Update u_order_ml Set status = 2, stopemp = :publ_operator Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致暂停计划操作失败"+"~n"+sqlca.SQLErrText Goto ext End If Else Update u_order_ml Set status = 1, stopemp = '' Where orderid = :arg_orderid And scid = :arg_scid ; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致取消暂停计划操作失败"+"~n"+sqlca.SQLErrText Goto ext End If End If ext: If rslt = 0 Then Rollback; p_reset() ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Return (rslt) end function public function integer finishorder (integer arg_finishtype, long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 DateTime null_dt SetNull(null_dt) If uo_option_auto_finish_zl = -1000 Then rslt = 0 arg_msg = '选项:[255]生产计划完成,相关指令单自动完成,读取初始默认值失败,操作取消!' Goto ext End If rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) If rslt = 0 Then Goto ext If arg_finishtype = 5 Or arg_finishtype = 6 Then If status <> 1 Then rslt = 0 arg_msg = "生产计划只有在进行状态才可以执行完成，请核对" Goto ext End If //如果是主计划,下级指令单状态有1,2,4,7,不允许终止主计划 If ordertype <> 4 Then Select count(*) Into :cnt From u_order_ml Where ordertype = 4 And porderid = :arg_orderid And scid = :arg_scid And status In (1,2,4,7); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = OrderCode+'查询下级指令单状态失败'+sqlca.SQLErrText Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = OrderCode+',有下级指令单处于在进行、暂停、待二审或待终审状态,不能手动完成主计划' Goto ext End If End If Else If arg_finishtype = 1 Then If status <> 6 Then rslt = 0 arg_msg = "生产计划只有在手动完成状态下才可以执行取消手动完成，请核对" Goto ext End If End If End If If arg_finishtype = 5 Or arg_finishtype = 6 Then Update u_order_ml Set status = :arg_finishtype, accomplishdate = getdate(), Accomplishemp = :publ_operator Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致完成生产计划操作失败"+"~n"+sqlca.SQLErrText Goto ext End If Else Update u_order_ml Set status = :arg_finishtype, accomplishdate = :null_dt, Accomplishemp = '' Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致取消手动完成生产计划操作失败"+"~n"+sqlca.SQLErrText Goto ext End If End If If uo_option_auto_finish_zl = 1 And ordertype <> 4 Then If arg_finishtype = 5 Or arg_finishtype = 6 Then Update u_order_ml Set status = 5 Where porderid = :arg_orderid And scid = :arg_scid And ordertype = 4; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其他原因导致更新相关指令单状态操作失败"+"~n"+sqlca.SQLErrText Goto ext End If Else Update u_order_ml Set status = 1 Where porderid = :arg_orderid And scid = :arg_scid And orderqty > acmpqty And ordertype = 4; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其他原因导致更新相关指令单状态操作失败"+"~n"+sqlca.SQLErrText Goto ext End If End If End If Int li_ifpack If ordertype = 4 Then Select u_mtrldef.ifpack Into :li_ifpack From u_mtrldef Where u_mtrldef.mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料是否属于包件失败'+sqlca.SQLErrText Goto ext End If If li_ifpack = 1 Then If uof_tryfinish_packorder(arg_scid,arg_orderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If End If If uof_order_cmpcost(arg_scid,arg_orderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If ext: If rslt = 0 Then Rollback; ElseIf arg_ifcommit And rslt = 1 Then Commit; End If p_reset() Return (rslt) end function public function integer tryfinishorder (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1,cnt = 0 Decimal ld_not_finishqty Boolean if_finish DateTime null_dt SetNull(null_dt) IF uo_option_auto_finish_zl = -1000 THEN rslt = 0 arg_msg = '选项:[255]生产计划完成,相关指令单自动完成,读取初始默认值失败,操作取消!' GOTO ext END IF IF p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 And status <> 5 THEN rslt = 0 IF status <> 1 THEN arg_msg = "生产计划只有在进行状态下才可以执行设完成状态" ELSEIF status <> 5 THEN arg_msg = "生产计划只有在完成状态下才可以执行撤消完成状态" END IF GOTO ext END IF if_finish = True SELECT u_order_ml.orderqty - u_order_ml.acmpqty - u_order_ml.stopqty INTO :ld_not_finishqty FROM u_order_ml WHERE ( u_order_ml.orderid = :arg_orderid ) And ( u_order_ml.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产计划未完成数量失败' rslt = 0 GOTO ext END IF IF if_finish THEN IF ld_not_finishqty > 0 THEN if_finish = False END IF IF status = 1 And if_finish THEN UPDATE u_order_ml SET status = 5, accomplishdate = getdate(), accomplishemp = :publ_operator WHERE ( u_order_ml.orderid = :arg_orderid ) And ( u_order_ml.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致生产计划完成状态设置操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF IF status = 5 And Not if_finish THEN UPDATE u_order_ml SET status = 1, accomplishdate = :null_dt, accomplishemp = '' WHERE ( u_order_ml.orderid = :arg_orderid ) And ( u_order_ml.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致生产计划撤消完成状态设置操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF IF uo_option_auto_finish_zl = 1 And ordertype <> 4 THEN IF if_finish THEN UPDATE u_order_ml SET status = 5 WHERE porderid = :arg_orderid AND scid = :arg_scid And ordertype = 4; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致更新相关指令单状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ELSE UPDATE u_order_ml SET status = 1 WHERE porderid = :arg_orderid AND scid = :arg_scid AND orderqty > acmpqty And ordertype = 4; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致更新相关指令单状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF END IF Int li_ifpack,li_ifpackpro IF ordertype = 4 THEN SELECT u_mtrldef.ifpack,u_mtrldef.ifpackpro INTO :li_ifpack,:li_ifpackpro FROM u_mtrldef Where u_mtrldef.mtrlid = :mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料是否属于包件失败'+sqlca.SQLErrText GOTO ext END IF IF li_ifpack = 1 Or li_ifpack = 2 Or li_ifpackpro = 3 THEN IF uof_tryfinish_packorder(arg_scid,arg_orderid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF IF li_ifpackpro = 4 THEN IF uof_tryfinish_packorder2(arg_scid,arg_orderid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF uof_order_cmpcost(arg_scid,arg_orderid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF p_reset() Return(rslt) end function public function integer cancel_finishorder (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit); int rslt = 1,cnt = 0 datetime null_dt setnull(null_dt) rslt =p_getinfo(arg_scid,arg_orderid,arg_msg) if rslt = 0 then goto ext update u_order_ml set status = 1, accomplishdate = :null_dt, Accomplishemp = '' where orderid = :arg_orderid and scid = :arg_scid; if sqlca.sqlcode <> 0 then rslt = 0 arg_msg = "因网络或其它原因导致取消完成生产计划操作失败"+"~n"+sqlca.sqlerrtext goto ext end if ext: if rslt=0 then rollback; elseif arg_ifcommit and rslt = 1 then commit; end if p_reset() return (rslt) end function public function integer save (ref string arg_msg, boolean arg_ifcommit);Integer rslt = 1 Long ls_i,ls_j,ll_k,ll_m,ll_n,ll_o,ll_p DateTime server_dt String ls_sccode String ls_billcode Long ll_orderid[],ll_orderqty_array[],ll_tmp_orderid String ls_ordercode[],ls_tmp_ordercode Decimal ld_SaleQty,ld_AssignQty,ld_ordermx_qty Long cnt,mx_cnt Long ll_taskid String ls_taskcode Decimal ld_upddrate,ld_upddqty Long ll_cnt_code String ls_code_find_str Long ll_lp,ll_loop Long ll_mtrlid String ls_status,ls_woodcode,ls_pcode Boolean lb_iffind = False DateTime ldt_RqDate,ldt_edate,ldt_RqDate_tree,ldt_edate_tree,ldt_rqdate_up,ldt_edate_up Decimal ld_buydays,ld_wfjgdays,ld_Relative Long ll_mtrlid_tree,ll_wrkgrpid,ll_produce_wrkgrpid,li_plantype String ls_status_tree,ls_woodcode_tree,ls_pcode_tree // ll_printid Long ll_fp_array,ll_fp Int li_ifpackpro,li_ordertype s_mtrlware_assign_plan s_fp_plan datastore ds_tree ds_tree = Create datastore ds_tree.DataObject = 'ds_orderrqmtrl_tree_stop' ds_tree.SetTransObject(sqlca) uo_mtrlware_assign uo_fp_plan uo_fp_plan = Create uo_mtrlware_assign uo_fp_plan.commit_transaction = sqlca IF uo_option_order_bh_use_yc = -1000 THEN rslt = 0 arg_msg = '选项:[074]备货生产计划选销售预测单,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_save_reccl = -1000 THEN rslt = 0 arg_msg = '选项:[222]生产指令单保存时计算用料,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_add_use_wkp = -1000 THEN rslt = 0 arg_msg = '选项:[186]生产计划新建时显示工作量,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_zl_3_day = -1000 THEN rslt = 0 arg_msg = '选项:[316]指令单保存时更新相关采购需求明细日期,读取初始默认值失败,操作取消!' GOTO ext END IF IF scid < 0 THEN rslt = 0 arg_msg = '请选择正确的分部' GOTO ext END IF IF it_mxbt = 0 THEN arg_msg = '没有计划明细保存' rslt = 0 GOTO ext END IF FOR ls_i = 1 To it_mxbt IF s_order_mx[ls_i].ordertype = 1 THEN //检查主计划 SELECT u_SaleTaskMx.pqty, u_SaleTaskMx.AssignQty, u_mtrldef.upddrate, u_mtrldef.upddqty INTO :ld_SaleQty, :ld_AssignQty, :ld_upddrate, :ld_upddqty FROM u_SaleTaskMx,u_mtrldef WHERE u_SaleTaskMx.mtrlid = u_mtrldef.mtrlid AND u_SaleTaskMx.scid = :s_order_mx[ls_i].taskscid AND u_SaleTaskMx.taskid = :s_order_mx[ls_i].taskid AND u_SaleTaskMx.printid = :s_order_mx[ls_i].taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询销售订单已排产数量失败！'+sqlca.SQLErrText rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml_mx INNER JOIN u_Order_ml ON u_order_ml_mx.scid = u_Order_ml.scid AND u_order_ml_mx.orderid = u_Order_ml.OrderID WHERE u_order_ml_mx.taskid = :s_order_mx[ls_i].taskid AND u_order_ml_mx.taskscid = :s_order_mx[ls_i].taskscid AND u_order_ml_mx.taskmxid = :s_order_mx[ls_i].taskmxid AND u_Order_ml.status = 0 ; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询是否有未审核生产计划失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ld_ordermx_qty = 0 IF cnt > 0 THEN SELECT sum(u_order_ml_mx.qty) INTO :ld_ordermx_qty FROM u_order_ml_mx INNER JOIN u_Order_ml ON u_order_ml_mx.scid = u_Order_ml.scid AND u_order_ml_mx.orderid = u_Order_ml.OrderID WHERE u_order_ml_mx.taskid = :s_order_mx[ls_i].taskid AND u_order_ml_mx.taskscid = :s_order_mx[ls_i].taskscid AND u_order_ml_mx.taskmxid = :s_order_mx[ls_i].taskmxid AND u_Order_ml.status = 0 ; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询已开生计划未审核数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF IF s_order_mx[ls_i].orderqty > ld_SaleQty * (1 + ld_upddrate) + ld_upddqty - ld_AssignQty - ld_ordermx_qty THEN arg_msg = '第'+String(ls_i)+'行待排产数只有:'+String(ld_SaleQty * (1 + ld_upddrate) + ld_upddqty - ld_AssignQty - ld_ordermx_qty,'#,##0.##########')+',不能再排产:'+String(s_order_mx[ls_i].orderqty,'#,##0.##########') rslt = 0 GOTO ext END IF ELSEIF s_order_mx[ls_i].ordertype = 4 THEN //检查指令单 IF s_order_mx[ls_i].pzlorderid = 0 THEN SELECT sum(u_OrderRqMtrl.truerqqty), sum(u_OrderRqMtrl.consignedQty), u_mtrldef.upddrate, u_mtrldef.upddqty INTO :ld_SaleQty, :ld_AssignQty, :ld_upddrate, :ld_upddqty FROM u_OrderRqMtrl,u_mtrldef WHERE u_OrderRqMtrl.mtrlid = u_mtrldef.mtrlid AND u_OrderRqMtrl.scid = :scid AND u_OrderRqMtrl.orderid = :s_order_mx[ls_i].porderid AND u_OrderRqMtrl.mtrlid = :s_order_mx[ls_i].mtrlid AND u_OrderRqMtrl.status = :s_order_mx[ls_i].status_mode AND u_OrderRqMtrl.woodcode = :s_order_mx[ls_i].woodcode AND u_OrderRqMtrl.pcode = :s_order_mx[ls_i].pcode GROUP BY u_mtrldef.upddrate, u_mtrldef.upddqty; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询主生产计划已排产数量失败！'+sqlca.SQLErrText rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_Order_ml WHERE u_Order_ml.scid = :scid AND u_Order_ml.porderid = :s_order_mx[ls_i].porderid AND u_Order_ml.mtrlid = :s_order_mx[ls_i].mtrlid AND u_Order_ml.status_mode = :s_order_mx[ls_i].status_mode AND u_Order_ml.woodcode = :s_order_mx[ls_i].woodcode AND u_Order_ml.pcode = :s_order_mx[ls_i].pcode AND u_Order_ml.status = 0 ; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询是否有未审核车间生产指令失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ld_ordermx_qty = 0 IF cnt > 0 THEN SELECT sum(u_Order_ml.orderqty) INTO :ld_ordermx_qty FROM u_Order_ml WHERE u_Order_ml.scid = :scid AND u_Order_ml.porderid = :s_order_mx[ls_i].porderid AND u_Order_ml.mtrlid = :s_order_mx[ls_i].mtrlid AND u_Order_ml.status_mode = :s_order_mx[ls_i].status_mode AND u_Order_ml.woodcode = :s_order_mx[ls_i].woodcode AND u_Order_ml.pcode = :s_order_mx[ls_i].pcode AND u_Order_ml.status = 0 ; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询已开车间生产指令未审核数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF IF s_order_mx[ls_i].orderqty > ld_SaleQty * (1 + ld_upddrate) + ld_upddqty - ld_AssignQty - ld_ordermx_qty THEN arg_msg = '第'+String(ls_i)+'行待排产数只有:'+String(ld_SaleQty * (1 + ld_upddrate) + ld_upddqty - ld_AssignQty - ld_ordermx_qty,'#,##0.##########')+',不能再排产:'+String(s_order_mx[ls_i].orderqty,'#,##0.##########') rslt = 0 GOTO ext END IF END IF END IF NEXT //**合并产品 p_replace_mx() IF it_mxbt_ut = 0 THEN arg_msg = '没有计划保存' rslt = 0 GOTO ext END IF SELECT Top 1 getdate() Into :server_dt From u_user ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF IF f_get_sccode(scid,sqlca,ls_sccode,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF sys_option_if_order_billcode = 1 THEN ls_billcode = getid(scid,ls_sccode+"PC",Date(server_dt),if_getid_ture,sqlca) IF ls_billcode = "err" THEN rslt = 0 arg_msg = "无法获取排产号"+"~n"+sqlca.SQLErrText GOTO ext END IF ELSE ls_billcode = '' END IF //**取ID,单号 FOR ls_i = 1 To it_mxbt_ut ll_tmp_orderid = f_sys_scidentity(scid,"u_order_ml","orderid",arg_msg,True,id_sqlca) IF ll_tmp_orderid <= 0 THEN rslt = 0 GOTO ext END IF IF s_order_ut[1].ordertype = 4 THEN IF s_order_ut[ls_i].pzlorderid = 0 THEN ls_tmp_ordercode = getid(scid,ls_sccode+"ZL",Date(server_dt),if_getid_ture,sqlca) //取得新单据编号 ELSE ls_code_find_str = pzlordercode_tmp+'.%' ll_cnt_code = 0 SELECT COUNT(*) INTO :ll_cnt_code FROM u_Order_ml Where (OrderCode Like :ls_code_find_str); IF sqlca.SQLCode <> 0 THEN ll_cnt_code = 0 ll_cnt_code++ ls_tmp_ordercode = pzlordercode_tmp + '.'+String(ll_cnt_code,'00') FOR ll_k = 1 To UpperBound(ls_ordercode) IF ls_tmp_ordercode = ls_ordercode[ll_k] THEN ll_cnt_code++ ls_tmp_ordercode = pzlordercode_tmp + '.'+String(ll_cnt_code,'00') ll_k = 0 END IF NEXT END IF ELSE ls_tmp_ordercode = getid(scid,ls_sccode+"SC",Date(server_dt),if_getid_ture,sqlca) //取得新单据编号 END IF IF ls_tmp_ordercode = "err" THEN rslt = 0 arg_msg = "无法获取计划编号"+"~n"+sqlca.SQLErrText GOTO ext END IF ll_orderid[ls_i] = ll_tmp_orderid ls_ordercode[ls_i] = ls_tmp_ordercode ll_orderqty_array[ls_i] = s_order_ut[ls_i].orderqty NEXT FOR ls_i = 1 To it_mxbt_ut mx_cnt = 0 ls_taskcode = s_order_ut[ls_i].taskcode IF lena(ls_taskcode) > 255 THEN ls_taskcode = lefta(ls_taskcode,255) if isnull(s_order_ut[ls_i].ifpban) then s_order_ut[ls_i].ifpban = 0 if isnull(s_order_ut[ls_i].ifupban) then s_order_ut[ls_i].ifupban = 0 INSERT INTO u_order_ml (scid, orderid, ordercode, billcode, relcode, orderdate, mtrlid, status_mode, woodcode, pcode, requiredate, orderqty, Opemp, opdate, dscrp, Assign_emp, ordertype, taskrelcode, pfcode, taskid, taskcode, taskmxid, cusid, porderid, pordercode, wrkGrpid, gydscrp, pfklmode, pforderid, pfordercode, pfqty, secdscrp, thdscrp, taskscid, perfinishdate, storageid, capacity, level, typename, p_taskrelcode, saletaskcode, saletaskrelcode, cusname, p_ordertype, p_cusid, p_mtrlid, outtypestr, pzlorderid, inwareflag, outscllflag, iffg, ifauto, upmtrlid, if_inherit, addqty, ifwforder, wpcode, pctype, notmrpqty, ifpban, ifupban) VALUES ( :scid, :ll_orderid[ls_i], :ls_ordercode[ls_i], :ls_billcode, :s_order_ut[ls_i].relcode, :s_order_ut[ls_i].orderdate, :s_order_ut[ls_i].mtrlid, :s_order_ut[ls_i].status_mode, :s_order_ut[ls_i].woodcode, :s_order_ut[ls_i].pcode, :s_order_ut[ls_i].requiredate, :s_order_ut[ls_i].orderqty, :publ_operator, :server_dt, :s_order_ut[ls_i].dscrp, :s_order_ut[ls_i].Assign_emp, :s_order_ut[ls_i].ordertype, :s_order_ut[ls_i].taskrelcode, :s_order_ut[ls_i].pfcode, :s_order_ut[ls_i].taskid, :ls_taskcode, :s_order_ut[ls_i].taskmxid, :s_order_ut[ls_i].cusid, :s_order_ut[ls_i].porderid, :s_order_ut[ls_i].pordercode, :s_order_ut[ls_i].wrkGrpid, :s_order_ut[ls_i].gydscrp, :s_order_ut[ls_i].pfklmode, :s_order_ut[ls_i].pforderid, :s_order_ut[ls_i].pfordercode, :s_order_ut[ls_i].pfqty, :s_order_ut[ls_i].secdscrp, :s_order_ut[ls_i].thdscrp, :s_order_ut[ls_i].taskscid, :s_order_ut[ls_i].perfinishdate, :s_order_ut[ls_i].storageid, :s_order_ut[ls_i].capacity, :s_order_ut[ls_i].level, :s_order_ut[ls_i].typename, :s_order_ut[ls_i].p_taskrelcode, :s_order_ut[ls_i].saletaskcode, :s_order_ut[ls_i].saletaskrelcode, :s_order_ut[ls_i].cusname, :s_order_ut[ls_i].p_ordertype, :s_order_ut[ls_i].p_cusid, :s_order_ut[ls_i].p_mtrlid, :s_order_ut[ls_i].outtypestr, :s_order_ut[ls_i].pzlorderid, :s_order_ut[ls_i].inwareflag, :s_order_ut[ls_i].outscllflag, :s_order_ut[ls_i].iffg, :s_order_ut[ls_i].ifauto, :s_order_ut[ls_i].upmtrlid, :s_order_ut[ls_i].if_inherit, :s_order_ut[ls_i].addqty, :s_order_ut[ls_i].ifwforder, :s_order_ut[ls_i].wpcode, :s_order_ut[ls_i].pctype, :s_order_ut[ls_i].notmrpqty, :s_order_ut[ls_i].ifpban, :s_order_ut[ls_i].ifupban) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入计划操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF s_order_ut[ls_i].ordertype = 1 Or & s_order_ut[ls_i].ordertype = 2 Or & s_order_ut[ls_i].ordertype = 3 Or & s_order_ut[ls_i].ordertype = 4 Or & s_order_ut[ls_i].ordertype = 0 And & uo_option_order_bh_use_yc = 1 THEN FOR ls_j = 1 To it_mxbt IF s_order_mx[ls_j].utid = s_order_ut[ls_i].utid THEN IF s_order_ut[ls_i].iffp = 1 And s_order_ut[ls_i].inwareflag = 1 And s_order_ut[ls_i].fpkind >= 0 THEN IF s_order_ut[ls_i].ordertype = 4 And s_order_mx[ls_j].porderid > 0 THEN ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 IF s_order_ut[ls_i].fpkind = 1 THEN s_fp_plan.assigntype[ll_fp_array] = 1 ELSE s_fp_plan.assigntype[ll_fp_array] = 0 END IF s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 1 s_fp_plan.plankind_relbillid[ll_fp_array] = ll_orderid[ls_i] s_fp_plan.plankind_relprintid[ll_fp_array] = 0 s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 IF s_order_ut[ls_i].fpkind = 1 THEN s_fp_plan.relbillid[ll_fp_array] = s_order_mx[ls_j].p_taskid s_fp_plan.relprintid[ll_fp_array] = s_order_mx[ls_j].p_taskmxid ELSE s_fp_plan.relbillid[ll_fp_array] = s_order_mx[ls_j].porderid s_fp_plan.relprintid[ll_fp_array] = 0 END IF s_fp_plan.planassignqty[ll_fp_array] = s_order_mx[ls_j].orderqty s_fp_plan.mtrlid[ll_fp_array] = s_order_mx[ls_j].mtrlid s_fp_plan.status[ll_fp_array] = s_order_mx[ls_j].status_mode s_fp_plan.woodcode[ll_fp_array] = s_order_mx[ls_j].woodcode s_fp_plan.pcode[ll_fp_array] = s_order_mx[ls_j].pcode ELSEIF s_order_ut[ls_i].ordertype = 1 THEN //订单 ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 1 s_fp_plan.plankind_relbillid[ll_fp_array] = ll_orderid[ls_i] s_fp_plan.plankind_relprintid[ll_fp_array] = 0 s_fp_plan.scid[ll_fp_array] = scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.relbillid[ll_fp_array] = s_order_mx[ls_j].taskid s_fp_plan.relprintid[ll_fp_array] = s_order_mx[ls_j].taskmxid s_fp_plan.planassignqty[ll_fp_array] = s_order_mx[ls_j].orderqty s_fp_plan.mtrlid[ll_fp_array] = s_order_mx[ls_j].mtrlid s_fp_plan.status[ll_fp_array] = s_order_mx[ls_j].status_mode s_fp_plan.woodcode[ll_fp_array] = s_order_mx[ls_j].woodcode s_fp_plan.pcode[ll_fp_array] = s_order_mx[ls_j].pcode END IF END IF IF s_order_ut[ls_i].ordertype = 1 Or & s_order_ut[ls_i].ordertype = 2 Or & s_order_ut[ls_i].ordertype = 3 Or & s_order_ut[ls_i].ordertype = 0 And & uo_option_order_bh_use_yc = 1 THEN ll_taskid = s_order_mx[ls_j].taskid ls_taskcode = s_order_mx[ls_j].taskcode ELSE ll_taskid = s_order_mx[ls_j].porderid ls_taskcode = s_order_mx[ls_j].pordercode END IF UPDATE u_order_ml_mx SET qty = qty + :s_order_mx[ls_j].orderqty WHERE scid = :scid AND orderid = :ll_orderid[ls_i] AND taskid = :ll_taskid And taskmxid = :s_order_mx[ls_j].taskmxid; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN INSERT INTO u_order_ml_mx (scid, orderid, taskid, taskmxid, taskcode, qty, cusid, taskscid) VALUES( :scid, :ll_orderid[ls_i], :ll_taskid, :s_order_mx[ls_j].taskmxid, :ls_taskcode, :s_order_mx[ls_j].orderqty, :s_order_mx[ls_j].cusid, :s_order_mx[ls_j].taskscid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入计划明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF mx_cnt++ END IF ELSE rslt = 0 arg_msg = "因网络或其它原因导致更新计划明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF NEXT IF mx_cnt = 0 THEN rslt = 0 IF s_order_ut[ls_i].ordertype = 4 THEN arg_msg = '指令单没有相关计划明细,请检查' ELSE arg_msg = '主生产计划没有相关订单明细,请检查' END IF GOTO ext END IF END IF IF uo_option_order_ml_save_reccl = 1 THEN IF s_order_ut[ls_i].ordertype = 4 And s_order_ut[ls_i].pzlorderid = 0 THEN IF uof_reccl(scid,ll_orderid[ls_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '计算领料明细失败,'+arg_msg GOTO ext END IF END IF IF uo_option_order_zl_3_day = 1 THEN IF s_order_ut[ls_i].ordertype = 4 THEN //如果是包件产品并且是分离排产的,下级的采购包件按指令单要求完成日期减7天 SELECT ifpackpro,ordertype INTO :li_ifpackpro,:li_ordertype FROM u_mtrldef Where mtrlid = :s_order_ut[ls_i].mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询产品信息失败,'+sqlca.SQLErrText GOTO ext END IF IF li_ifpackpro > 0 And li_ordertype = 1 THEN UPDATE u_OrderRqMtrl SET u_orderrqmtrl.RqDate = dateadd(day, -7, u_Order_ml.requiredate), u_orderrqmtrl.edate = dateadd(day, 0 - u_mtrldef.buydays, dateadd(day, -7, u_Order_ml.requiredate)), u_orderrqmtrl.rqdate_ori = case when u_orderrqmtrl.rqdate_ori is NULL then u_orderrqmtrl.RqDate else u_orderrqmtrl.rqdate_ori END , u_orderrqmtrl.edate_ori = case when u_orderrqmtrl.edate_ori is NULL then u_orderrqmtrl.edate else u_orderrqmtrl.edate_ori END FROM u_Order_ml INNER JOIN u_OrderRqMtrl_scll ON u_Order_ml.OrderID = u_OrderRqMtrl_scll.OrderID AND u_Order_ml.scid = u_OrderRqMtrl_scll.scid INNER JOIN u_Order_ml u_Order_ml_p ON u_Order_ml.porderid = u_Order_ml_p.OrderID AND u_Order_ml.scid = u_Order_ml_p.scid INNER JOIN u_OrderRqMtrl ON u_Order_ml_p.OrderID = u_OrderRqMtrl.OrderID AND u_Order_ml_p.scid = u_OrderRqMtrl.scid AND u_OrderRqMtrl_scll.MtrlID = u_OrderRqMtrl.MtrlID AND u_OrderRqMtrl_scll.wrkGrpid = u_OrderRqMtrl.wrkGrpid INNER JOIN u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid WHERE (u_OrderRqMtrl.plantype = 2) AND (u_mtrldef.ifpack > 0) AND (u_OrderRqMtrl_scll.scid = :scid) And (u_OrderRqMtrl_scll.orderid = :ll_orderid[ls_i]) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新需求明细日期操作失败(采购包件)"+"~n"+sqlca.SQLErrText GOTO ext END IF ELSE //直接采购下级 UPDATE u_OrderRqMtrl SET u_orderrqmtrl.RqDate = dateadd(day, -3, u_Order_ml.orderdate), u_orderrqmtrl.edate = dateadd(day, 0 - u_mtrldef.buydays, dateadd(day, -3, u_Order_ml.orderdate)), u_orderrqmtrl.rqdate_ori = case when u_orderrqmtrl.rqdate_ori is NULL then u_orderrqmtrl.RqDate else u_orderrqmtrl.rqdate_ori END , u_orderrqmtrl.edate_ori = case when u_orderrqmtrl.edate_ori is NULL then u_orderrqmtrl.edate else u_orderrqmtrl.edate_ori END FROM u_Order_ml INNER JOIN u_OrderRqMtrl_scll ON u_Order_ml.OrderID = u_OrderRqMtrl_scll.OrderID AND u_Order_ml.scid = u_OrderRqMtrl_scll.scid INNER JOIN u_Order_ml u_Order_ml_p ON u_Order_ml.porderid = u_Order_ml_p.OrderID AND u_Order_ml.scid = u_Order_ml_p.scid INNER JOIN u_OrderRqMtrl ON u_Order_ml_p.OrderID = u_OrderRqMtrl.OrderID AND u_Order_ml_p.scid = u_OrderRqMtrl.scid AND u_OrderRqMtrl_scll.MtrlID = u_OrderRqMtrl.MtrlID AND u_OrderRqMtrl_scll.wrkGrpid = u_OrderRqMtrl.wrkGrpid INNER JOIN u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid WHERE (u_OrderRqMtrl.plantype = 2) AND (u_OrderRqMtrl_scll.scid = :scid) And (u_OrderRqMtrl_scll.orderid = :ll_orderid[ls_i]) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新需求明细日期操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF //下级外协,以及外协下级的外协或采购 ds_tree.Retrieve(scid,s_order_ut[ls_i].porderid) //定位指令单在运算树中的位置 FOR ll_m = 1 To ds_tree.RowCount() ll_mtrlid = ds_tree.Object.mtrlid[ll_m] ls_status = ds_tree.Object.status[ll_m] ls_woodcode = ds_tree.Object.woodcode[ll_m] ls_pcode = ds_tree.Object.pcode[ll_m] IF ll_mtrlid = s_order_ut[ls_i].mtrlid And ls_status = s_order_ut[ls_i].status_mode And ls_woodcode = s_order_ut[ls_i].woodcode And ls_pcode = s_order_ut[ls_i].pcode THEN ll_lp = ds_tree.Object.lp[ll_m] lb_iffind = True EXIT END IF NEXT IF lb_iffind THEN FOR ll_n = ll_m + 1 To ds_tree.RowCount() IF ds_tree.Object.lp[ll_n] <= ll_lp THEN EXIT IF ds_tree.Object.lp[ll_n] = ll_lp + 1 And ds_tree.Object.plantype[ll_n] = 3 THEN ld_wfjgdays = ds_tree.Object.u_mtrldef_wfjgdays[ll_n] ll_mtrlid_tree = ds_tree.Object.mtrlid[ll_n] ll_wrkgrpid = ds_tree.Object.wrkGrpid[ll_n] ll_produce_wrkgrpid = ds_tree.Object.produce_wrkgrpid[ll_n] li_plantype = ds_tree.Object.plantype[ll_n] ls_status_tree = ds_tree.Object.status[ll_n] ls_woodcode_tree = ds_tree.Object.woodcode[ll_n] ls_pcode_tree = ds_tree.Object.pcode[ll_n] ldt_RqDate = DateTime(RelativeDate(Date(s_order_ut[ls_i].orderdate),-3),Time(0)) ldt_edate = DateTime(RelativeDate(Date(ldt_RqDate),0 - Int(ld_wfjgdays)),Time(0)) ds_tree.Object.u_orderrqmtrl_tree_rqdate[ll_n] = ldt_RqDate ds_tree.Object.u_orderrqmtrl_tree_edate[ll_n] = ldt_edate ds_tree.AcceptText() UPDATE u_orderrqmtrl SET u_orderrqmtrl.RqDate = :ldt_RqDate, u_orderrqmtrl.edate = :ldt_edate, u_orderrqmtrl.rqdate_ori = case when u_orderrqmtrl.rqdate_ori is NULL then u_orderrqmtrl.RqDate else u_orderrqmtrl.rqdate_ori END , u_orderrqmtrl.edate_ori = case when u_orderrqmtrl.edate_ori is NULL then u_orderrqmtrl.edate else u_orderrqmtrl.edate_ori END WHERE scid = :scid AND orderid = :s_order_ut[ls_i].porderid AND mtrlid = :ll_mtrlid_tree AND wrkgrpid = :ll_wrkgrpid AND status = :ls_status_tree AND woodcode = :ls_woodcode_tree AND pcode = :ls_pcode_tree And plantype = :li_plantype; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划用料需求日期失败'+"~n"+sqlca.SQLErrText GOTO ext END IF FOR ll_o = ll_n + 1 To ds_tree.RowCount() IF ds_tree.Object.lp[ll_o] <= ll_lp + 1 THEN EXIT IF ds_tree.Object.plantype[ll_o] <> 2 And ds_tree.Object.plantype[ll_o] <> 3 THEN EXIT ll_mtrlid_tree = ds_tree.Object.mtrlid[ll_o] ll_wrkgrpid = ds_tree.Object.wrkGrpid[ll_o] ll_produce_wrkgrpid = ds_tree.Object.produce_wrkgrpid[ll_o] li_plantype = ds_tree.Object.plantype[ll_o] ls_status_tree = ds_tree.Object.status[ll_o] ls_woodcode_tree = ds_tree.Object.woodcode[ll_o] ls_pcode_tree = ds_tree.Object.pcode[ll_o] FOR ll_p = ll_o - 1 To 1 Step -1 IF ds_tree.Object.lp[ll_p] = ds_tree.Object.lp[ll_o] - 1 THEN ldt_rqdate_up = ds_tree.Object.u_orderrqmtrl_tree_rqdate[ll_p] ldt_edate_up = ds_tree.Object.u_orderrqmtrl_tree_edate[ll_p] EXIT END IF NEXT IF ds_tree.Object.plantype[ll_o] = 2 THEN ld_Relative = ds_tree.Object.u_mtrldef_buydays[ll_o] ELSEIF ds_tree.Object.plantype[ll_o] = 3 THEN ld_Relative = ds_tree.Object.u_mtrldef_wfjgdays[ll_o] END IF ldt_RqDate_tree = DateTime(RelativeDate(Date(ldt_edate_up),-3),Time(0)) ldt_edate_tree = DateTime(RelativeDate(Date(ldt_RqDate_tree),0 - Int(ld_Relative)),Time(0)) ds_tree.Object.u_orderrqmtrl_tree_rqdate[ll_o] = ldt_RqDate_tree ds_tree.Object.u_orderrqmtrl_tree_edate[ll_o] = ldt_edate_tree ds_tree.AcceptText() UPDATE u_orderrqmtrl SET u_orderrqmtrl.RqDate = :ldt_RqDate_tree, u_orderrqmtrl.edate = :ldt_edate_tree, u_orderrqmtrl.rqdate_ori = case when u_orderrqmtrl.rqdate_ori is NULL then u_orderrqmtrl.RqDate else u_orderrqmtrl.rqdate_ori END , u_orderrqmtrl.edate_ori = case when u_orderrqmtrl.edate_ori is NULL then u_orderrqmtrl.edate else u_orderrqmtrl.edate_ori END WHERE scid = :scid AND orderid = :s_order_ut[ls_i].porderid AND mtrlid = :ll_mtrlid_tree AND wrkgrpid = :ll_wrkgrpid AND status = :ls_status_tree AND woodcode = :ls_woodcode_tree AND pcode = :ls_pcode_tree And plantype = :li_plantype; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划用料需求日期失败'+"~n"+sqlca.SQLErrText GOTO ext END IF NEXT ll_n = ll_o - 1 END IF NEXT END IF END IF END IF END IF END IF IF uo_option_order_ml_add_use_wkp = 1 THEN IF s_order_ut[ls_i].ordertype <> 4 THEN IF uof_order_add_wkp_tmp(scid,ll_orderid[ls_i],s_order_ut[ls_i].tmpid,arg_msg,False) = 0 THEN rslt = 0 arg_msg = '生成工组进度失败,'+arg_msg GOTO ext END IF END IF END IF //更新主计划自制需求指令单数量yyx20120815 IF s_order_ut[ls_i].ordertype = 4 And s_order_ut[ls_i].pzlorderid = 0 THEN IF uof_update_orderrqmtrl_zlqty(scid,s_order_ut[ls_i].porderid,s_order_ut[ls_i].mtrlid,& s_order_ut[ls_i].wrkGrpid,s_order_ut[ls_i].status_mode,s_order_ut[ls_i].woodcode,& s_order_ut[ls_i].pcode,s_order_ut[ls_i].orderqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF // //加入进仓计划 IF s_order_ut[ls_i].inwareflag = 1 THEN INSERT INTO u_order_zl_planmx (scid,orderid,aps_plancode,begindate,enddate,orderqty) VALUES(:scid,:ll_orderid[ls_i],'', :s_order_ut[ls_i].orderdate, :s_order_ut[ls_i].requiredate, :s_order_ut[ls_i].orderqty); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入进仓计划操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF NEXT FOR ll_fp = 1 To ll_fp_array IF uo_fp_plan.uof_plan_add(s_fp_plan.scid[ll_fp],& s_fp_plan.mtrlwareid[ll_fp],s_fp_plan.assigntype[ll_fp],& s_fp_plan.relbillid[ll_fp],s_fp_plan.relprintid[ll_fp],& s_fp_plan.planassignqty[ll_fp],& '',publ_operator,s_fp_plan.plantype[ll_fp],& s_fp_plan.plankind[ll_fp],s_fp_plan.plankind_relbillid[ll_fp],& s_fp_plan.plankind_relprintid[ll_fp],2,s_fp_plan.mtrlid[ll_fp],& s_fp_plan.status[ll_fp],s_fp_plan.woodcode[ll_fp],s_fp_plan.pcode[ll_fp],arg_msg,False) = 0 THEN arg_msg = '明细行:'+String(ll_fp)+',保存库存分配计划明细表失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT orderid_arr = ll_orderid orderqty_arr = ll_orderqty_array ext: IF rslt = 0 THEN ROLLBACK; p_clearmx() ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF Destroy ds_tree Destroy uo_fp_plan Return(rslt) end function public function integer update (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Integer rslt = 1 Long cnt = 0,ls_j String ls_mtrlcode Decimal ld_SaleQty,ld_AssignQty,ld_ordermx_qty,ld_this_orderqty Decimal ld_upddrate,ld_upddqty Long ll_fp_array,ll_fp Int li_p_ordertype,li_p_ifpackpro,li_ifpack,li_ordertype_mtrldef Long ll_p_mtrlid,ll_p_taskid,ll_p_taskmxid Long ll_statustype Decimal ld_capacity,ld_capacity_zj s_mtrlcfg_expr s_pz[] String ls_status_zj long ll_i long ll_p_taskscid int li_ifbj decimal ld_notmrpqty s_mtrlware_assign_plan s_fp_plan uo_mtrlware_assign uo_fp_plan uo_fp_plan = Create uo_mtrlware_assign uo_fp_plan.commit_transaction = sqlca datastore ds_fp_plan_del ds_fp_plan_del = Create datastore ds_fp_plan_del.DataObject = 'ds_fp_plan_plankind_del' ds_fp_plan_del.SetTransObject(sqlca) IF uo_option_def_bom = -1000 THEN rslt = 0 arg_msg = '选项:[013]生产计划审核时需要检查是否已定义物料清单,读取初始默认值失败,操作取消!' GOTO ext END IF If uo_option_order_capacity = -1000 Then rslt = 0 arg_msg = '选项:[304]指令单保存按车间产能总量限制,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_bujian_notmrpqty = -1000 Then rslt = 0 arg_msg = '选项:[388]补件类型主计划下属的半成品不参与其他计划的可用数,读取初始默认值失败,操作取消!' Goto ext End If IF IsNull(billcode) THEN billcode = '' IF IsNull(ordertype) THEN ordertype = 0 IF IsNull(relcode) THEN relcode = '' IF IsNull(mtrlid) THEN mtrlid = 0 IF IsNull(status_mode) THEN status_mode = '' IF IsNull(woodcode) THEN woodcode = '' IF IsNull(pcode) THEN pcode = '' IF IsNull(orderqty) THEN orderqty = 0 IF IsNull(Assign_emp) THEN Assign_emp = '' IF IsNull(pfcode) THEN pfcode = '' IF IsNull(taskrelcode) THEN taskrelcode = '' IF IsNull(taskcode) THEN taskcode = '' IF IsNull(taskid) THEN taskid = 0 IF IsNull(taskmxid) THEN taskmxid = 0 IF IsNull(cusid) THEN cusid = 0 IF IsNull(wrkGrpid) THEN wrkGrpid = 0 IF IsNull(porderid) THEN porderid = 0 IF IsNull(pordercode) THEN pordercode = '' IF IsNull(gydscrp) THEN gydscrp = '' IF IsNull(pfklmode) THEN pfklmode = '' IF IsNull(dscrp) THEN dscrp = '' IF IsNull(secdscrp) THEN secdscrp = '' IF IsNull(thdscrp) THEN thdscrp = '' IF Len(dscrp) > 0 THEN dscrp = ' ' + dscrp IF IsNull(storageid) THEN storageid = 0 IF IsNull(Level) THEN Level = 2 IF IsNull(typename) THEN typename = '' IF IsNull(p_taskrelcode) THEN p_taskrelcode = '' IF IsNull(cusname) THEN cusname = '' IF IsNull(outtypestr) THEN outtypestr = '' IF IsNull(iffg) THEN iffg = 0 IF IsNull(ifauto) THEN ifauto = 0 IF IsNull(fgid) THEN fgid = 0 if isnull(if_inherit) then if_inherit = 0 if isnull(addqty) then addqty = 0 if isnull(wpcode) then wpcode = '' if isnull(pctype) then pctype = 0 IF Assign_emp = '' THEN arg_msg = '请输入计划负责人' rslt = 0 GOTO ext END IF IF IsNull(orderdate) Or Year(Date(orderdate)) < 2001 THEN rslt = 0 arg_msg = "请输入合理计划日期" GOTO ext END IF if wpcode = '' then arg_msg = '请选择工价表号' rslt = 0 goto ext end if SELECT mtrlcode,ifpack,ordertype INTO :ls_mtrlcode,:li_ifpack,:li_ordertype_mtrldef FROM u_mtrldef Where mtrlid = :mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料编码失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF uo_option_def_bom = 1 THEN IF pfcode = '' THEN arg_msg = '物料:'+ls_mtrlcode+'请选择物料清单' rslt = 0 GOTO ext END IF SELECT count(*) INTO :cnt FROM u_mtrl_pf WHERE mtrlid = :mtrlid And pfcode = :pfcode; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+ls_mtrlcode+'对应物料清单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt <> 1 THEN arg_msg = '物料:'+ls_mtrlcode+'不存在或重复物料清单:'+pfcode rslt = 0 GOTO ext END IF END IF Select mtrlcode, statusflag, capacity * capaparm Into :ls_mtrlcode, :ll_statustype, :ld_capacity From u_mtrldef Where mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询物料编号失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If ll_statustype = 2 Then ld_capacity = 0 f_checkpz(status_mode,s_pz[]) For ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname Select capacity * capaparm Into :ld_capacity_zj From u_mtrl_configure Where mtrlid = :mtrlid And Name = :ls_status_zj; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询子件 "+ls_status_zj+" 折算套数参数操作失败" Goto ext End If ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty) Next End If If uo_option_order_capacity = 1 then //And outscllflag = 1 Then DateTime server_dt,ldt_sdate,ldt_edate Decimal ld_capatotal,ld_capatotal_ot,ld_capacity_sum String ls_wrkgrpname Select Top 1 getdate() Into :server_dt From u_user; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询操作失败,日期 " Goto ext End If ldt_sdate = DateTime(Date(server_dt),Time(0)) ldt_edate = DateTime(Date(server_dt),Time('23:59:59')) Select capatotal,capatotal_ot,wrkgrpname Into :ld_capatotal,:ld_capatotal_ot,:ls_wrkgrpname From u_sc_wkp Where wrkGrpid = :wrkgrpid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询车间设定产能总量失败,车间ID:'+String(wrkgrpid) Goto ext End If Select sum(capacity) Into :ld_capacity_sum From u_order_ml Where orderdate >= :ldt_sdate And orderdate <= :ldt_edate And wrkGrpid = :wrkgrpid and orderid <> :orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询车间当天已排产能失败,车间:'+ls_wrkgrpname Goto ext End If if isnull(ld_capacity_sum) then ld_capacity_sum = 0 If ld_capacity_sum + ld_capacity * orderqty > ld_capatotal + ld_capatotal_ot Then rslt = 0 arg_msg = '车间:'+ls_wrkgrpname+'当天已排产能:'+String(ld_capacity_sum,'#,##0.##########')+',车间设定产能总量:'+String(ld_capatotal + ld_capatotal_ot,'#,##0.##########')+',不能再排产能:'+String(ld_capacity * orderqty,'#,##0.##########') Goto ext End If End If IF ordertype = 1 THEN IF it_mxbt = 0 THEN arg_msg = '没有计划明细保存' rslt = 0 GOTO ext END IF IF it_mxbt = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_cust Where cusid = :cusid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询客户资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt <> 1 THEN arg_msg = '不存在客户资料或客户资料重复' rslt = 0 GOTO ext END IF SELECT name INTO :cusname FROM u_cust Where cusid = :cusid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询客户资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF FOR ls_j = 1 To it_mxbt cnt = 0 SELECT count(*) INTO :cnt FROM u_saletaskmx WHERE scid = :s_order_mx[ls_j].taskscid AND taskid = :s_order_mx[ls_j].taskid And printid = :s_order_mx[ls_j].taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+ls_mtrlcode+'订单资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '不存在订单明细:'+ls_mtrlcode rslt = 0 GOTO ext END IF SELECT u_SaleTaskMx.pqty, u_SaleTaskMx.AssignQty, u_mtrldef.upddrate, u_mtrldef.upddqty INTO :ld_SaleQty, :ld_AssignQty, :ld_upddrate, :ld_upddqty FROM u_SaleTaskMx,u_mtrldef WHERE u_SaleTaskMx.mtrlid = u_mtrldef.mtrlid AND u_SaleTaskMx.scid = :s_order_mx[ls_j].taskscid AND u_SaleTaskMx.taskid = :s_order_mx[ls_j].taskid AND u_saletaskmx.printid = :s_order_mx[ls_j].taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询销售订单已排产数量失败！'+sqlca.SQLErrText rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml_mx WHERE u_order_ml_mx.taskid = :s_order_mx[ls_j].taskid AND u_order_ml_mx.taskscid = :s_order_mx[ls_j].taskscid AND u_order_ml_mx.taskmxid = :s_order_mx[ls_j].taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询是否已开生计划失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ld_ordermx_qty = 0 ld_this_orderqty = 0 IF cnt > 0 THEN SELECT sum(u_order_ml_mx.qty) INTO :ld_ordermx_qty FROM u_order_ml_mx WHERE u_order_ml_mx.taskid = :s_order_mx[ls_j].taskid AND u_order_ml_mx.taskscid = :s_order_mx[ls_j].taskscid AND u_order_ml_mx.taskmxid = :s_order_mx[ls_j].taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询已开生产计划数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF SELECT u_order_ml_mx.qty INTO :ld_this_orderqty FROM u_order_ml_mx WHERE u_order_ml_mx.scid = :arg_scid AND u_order_ml_mx.orderid = :arg_orderid AND u_order_ml_mx.taskid = :s_order_mx[ls_j].taskid AND u_order_ml_mx.taskscid = :s_order_mx[ls_j].taskscid AND u_order_ml_mx.taskmxid = :s_order_mx[ls_j].taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询修改前的已开生产计划数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF IF s_order_mx[ls_j].orderqty > ld_SaleQty * (1 + ld_upddrate) + ld_upddqty - ld_AssignQty - ld_ordermx_qty + ld_this_orderqty THEN arg_msg = '第'+String(ls_j)+'行待排产数只有:'+String(ld_SaleQty * (1 + ld_upddrate) + ld_upddqty - ld_AssignQty - ld_ordermx_qty + ld_this_orderqty,'#,##0.##########')+',不能再排产:'+String(s_order_mx[ls_j].orderqty,'#,##0.##########') rslt = 0 GOTO ext END IF NEXT END IF ELSEIF ordertype = 4 THEN IF porderid = 0 THEN arg_msg = '指令单没有主生产计划相关联' rslt = 0 GOTO ext END IF IF wrkGrpid = 0 THEN arg_msg = '指令单没有生产车间' rslt = 0 GOTO ext END IF SELECT u_order_ml.taskrelcode, u_order_ml.cusname, u_order_ml.ordertype, u_order_ml.mtrlid, u_mtrldef.ifpackpro, u_order_ml.taskid, u_order_ml.taskmxid, u_order_ml.taskscid INTO :p_taskrelcode, :cusname, :li_p_ordertype, :ll_p_mtrlid, :li_p_ifpackpro, :ll_p_taskid, :ll_p_taskmxid, :ll_p_taskscid FROM u_order_ml,u_mtrldef WHERE u_order_ml.mtrlid = u_mtrldef.mtrlid AND u_order_ml.scid = :scid And u_order_ml.orderid = :porderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询相关主生产计划信息失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF Select u_saletype.ifbj Into :li_ifbj From u_SaleTask Inner JOIN u_saletype ON u_SaleTask.typeid = u_saletype.typeid Where u_SaleTask.scid = :ll_p_taskscid And u_saletask.taskid = :ll_p_taskid; If sqlca.SQLCode <> 0 Then li_ifbj = 0 If li_ifbj = 1 And uo_option_bujian_notmrpqty = 1 Then ld_notmrpqty = orderqty Else ld_notmrpqty = 0 End If cnt = 0 SELECT count(*) INTO :cnt FROM u_sc_wkp Where wrkGrpid = :wrkGrpid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询车间资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF UPDATE u_order_ml SET relcode = :relcode, orderdate = :orderdate, requiredate = :requiredate, orderqty = :orderqty, modemp = :publ_operator, moddate = getdate(), dscrp = :dscrp, Assign_emp = :Assign_emp, taskrelcode = :taskrelcode, billcode = :billcode, status_mode = :status_mode, woodcode = :woodcode, pcode = :pcode, pfcode = :pfcode, taskid = :taskid, taskmxid = :taskmxid, taskcode = :taskcode, cusid = :cusid, mtrlid = :mtrlid, wrkGrpid = :wrkGrpid, gydscrp = :gydscrp, pfqty = :pfqty, porderid = :porderid, pordercode = :pordercode, secdscrp = :secdscrp, thdscrp = :thdscrp, perfinishdate = :perfinishdate, storageid = :storageid, level = :Level, typename = :typename, p_taskrelcode = :p_taskrelcode, cusname = :cusname, outtypestr = :outtypestr, iffg = :iffg, ifauto = :ifauto, if_inherit = :if_inherit, addqty = :addqty, capacity = :ld_capacity * :orderqty, wpcode = :wpcode, pctype = :pctype, notmrpqty = :ld_notmrpqty WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid And status = 0 ; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新计划操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_order_ml_mx WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致删除计划明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF //删除原有分配计划明细 ds_fp_plan_del.Retrieve(arg_scid,arg_orderid,1) IF ds_fp_plan_del.RowCount() > 0 THEN IF ds_fp_plan_del.Object.sumassignqty[1] > 0 THEN rslt = 0 arg_msg = "原分配计划明细已有分配数,操作取消" GOTO ext END IF END IF FOR ll_fp = 1 To ds_fp_plan_del.RowCount() IF uo_fp_plan.uof_plan_del(ds_fp_plan_del.Object.id[ll_fp],& ds_fp_plan_del.Object.qty[ll_fp],arg_msg,False) = 0 THEN arg_msg = '删除分配计划失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT /////////////////////////////////// // FOR ls_j = 1 To it_mxbt Long ll_taskid String ls_taskcode IF ordertype <> 4 THEN ll_taskid = s_order_mx[ls_j].taskid ls_taskcode = s_order_mx[ls_j].taskcode ELSE ll_taskid = s_order_mx[ls_j].porderid ls_taskcode = s_order_mx[ls_j].pordercode END IF INSERT INTO u_order_ml_mx (scid, orderid, taskid, taskmxid, taskcode, cusid, qty, taskscid) VALUES( :arg_scid, :arg_orderid, :ll_taskid, :s_order_mx[ls_j].taskmxid, :ls_taskcode, :s_order_mx[ls_j].cusid, :s_order_mx[ls_j].orderqty, :s_order_mx[ls_j].taskscid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入计划明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF inwareflag = 1 THEN IF ordertype = 4 And li_p_ordertype = 1 THEN IF s_order_mx[ls_j].iffp = 1 And s_order_mx[ls_j].porderid > 0 THEN ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 CHOOSE CASE li_p_ifpackpro CASE 0,3,4 IF li_ordertype_mtrldef = 1 And ll_p_mtrlid = mtrlid THEN s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.relbillid[ll_fp_array] = ll_p_taskid s_fp_plan.relprintid[ll_fp_array] = ll_p_taskmxid ELSE s_fp_plan.assigntype[ll_fp_array] = 0 s_fp_plan.relbillid[ll_fp_array] = s_order_mx[ls_j].porderid s_fp_plan.relprintid[ll_fp_array] = 0 END IF CASE 1,2 IF li_ifpack > 0 THEN s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.relbillid[ll_fp_array] = ll_p_taskid s_fp_plan.relprintid[ll_fp_array] = ll_p_taskmxid ELSE s_fp_plan.assigntype[ll_fp_array] = 0 s_fp_plan.relbillid[ll_fp_array] = s_order_mx[ls_j].porderid s_fp_plan.relprintid[ll_fp_array] = 0 END IF END CHOOSE s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 1 s_fp_plan.plankind_relbillid[ll_fp_array] = arg_orderid s_fp_plan.plankind_relprintid[ll_fp_array] = 0 s_fp_plan.scid[ll_fp_array] = arg_scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.planassignqty[ll_fp_array] = s_order_mx[ls_j].orderqty s_fp_plan.mtrlid[ll_fp_array] = s_order_mx[ls_j].mtrlid s_fp_plan.status[ll_fp_array] = s_order_mx[ls_j].status_mode s_fp_plan.woodcode[ll_fp_array] = s_order_mx[ls_j].woodcode s_fp_plan.pcode[ll_fp_array] = s_order_mx[ls_j].pcode END IF ELSEIF ordertype = 1 THEN IF s_order_mx[ls_j].iffp = 1 And s_order_mx[ls_j].porderid > 0 THEN ll_fp_array++ s_fp_plan.planid[ll_fp_array] = 0 s_fp_plan.assigntype[ll_fp_array] = 1 s_fp_plan.plantype[ll_fp_array] = 1 s_fp_plan.plankind[ll_fp_array] = 1 s_fp_plan.plankind_relbillid[ll_fp_array] = arg_orderid s_fp_plan.plankind_relprintid[ll_fp_array] = 0 s_fp_plan.scid[ll_fp_array] = arg_scid s_fp_plan.mtrlwareid[ll_fp_array] = 0 s_fp_plan.relbillid[ll_fp_array] = s_order_mx[ls_j].taskid s_fp_plan.relprintid[ll_fp_array] = s_order_mx[ls_j].taskmxid s_fp_plan.planassignqty[ll_fp_array] = s_order_mx[ls_j].orderqty s_fp_plan.mtrlid[ll_fp_array] = s_order_mx[ls_j].mtrlid s_fp_plan.status[ll_fp_array] = s_order_mx[ls_j].status_mode s_fp_plan.woodcode[ll_fp_array] = s_order_mx[ls_j].woodcode s_fp_plan.pcode[ll_fp_array] = s_order_mx[ls_j].pcode END IF END IF END IF NEXT FOR ll_fp = 1 To ll_fp_array IF uo_fp_plan.uof_plan_add(s_fp_plan.scid[ll_fp],& s_fp_plan.mtrlwareid[ll_fp],s_fp_plan.assigntype[ll_fp],& s_fp_plan.relbillid[ll_fp],s_fp_plan.relprintid[ll_fp],& s_fp_plan.planassignqty[ll_fp],& '',publ_operator,s_fp_plan.plantype[ll_fp],& s_fp_plan.plankind[ll_fp],s_fp_plan.plankind_relbillid[ll_fp],& s_fp_plan.plankind_relprintid[ll_fp],2,s_fp_plan.mtrlid[ll_fp],& s_fp_plan.status[ll_fp],s_fp_plan.woodcode[ll_fp],s_fp_plan.pcode[ll_fp],arg_msg,False) = 0 THEN arg_msg = '明细行:'+String(s_fp_plan.plankind_relprintid[ll_fp])+',保存库存分配计划明细表失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; p_clearmx() ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF Destroy uo_fp_plan Destroy ds_fp_plan_del Return(rslt) end function public function integer addmxcmpl (long arg_scid, long arg_orderid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0,ll_mtrlid,ll_mtrlid_p Decimal ld_orderqty,ld_acmpqty,ld_inqty,ld_inqty_update Long j String ls_aps_plancode String ls_mtrlname,ls_mtrlcode datastore ds_order_inplanmx ds_order_inplanmx = Create datastore If arg_addqty > 0 Then ds_order_inplanmx.DataObject = 'ds_aps_order_plancode_in' Else ds_order_inplanmx.DataObject = 'ds_aps_order_plancode_in_cancel' End If ds_order_inplanmx.SetTransObject(sqlca) If uo_option_order_bh_use_yc = -1000 Then rslt = 0 arg_msg = '选项:[074]备货生产计划选销售预测单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_ifovertask_cp = -1000 Then rslt = 0 arg_msg = '选项:[112]超生产计划进仓,读取初始默认值失败,操作取消!' Goto ext End If uo_saletask uo_task uo_task = Create uo_saletask uo_task.commit_transaction = sqlca rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) If rslt = 0 Then Goto ext If arg_addqty = 0 Then arg_msg = '没有完成数量' rslt = 0 Goto ext End If If status <> 1 And status <> 5 Then rslt = 0 arg_msg = "计划["+ordercode+"]只有在进行或完成状态下才可以执行操作" Goto ext End If Select mtrlname,mtrlcode,u_order_ml.mtrlid Into :ls_mtrlname,:ls_mtrlcode,:ll_mtrlid From u_mtrldef,u_order_ml Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_mtrldef.mtrlid = u_order_ml.mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或错误产品唯一码导致查询产品操作失败" Goto ext End If Decimal ld_uprate,ld_upqty If uo_option_ifovertask_cp = 1 or uo_option_ifovertask_cp = 4 Then //不允许超收 //检查是否完成 Select orderqty - stopqty,acmpqty Into :ld_orderqty,:ld_acmpqty From u_order_ml Where ( orderid = :arg_orderid ) And ( scid = :arg_scid ); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或错误查询产品唯一码或计划计划数和完成数量操作失败" Goto ext End If If ld_orderqty < arg_addqty + ld_acmpqty Then rslt = 0 arg_msg = '该计划明细产品['+ls_mtrlname+']未完成数量'+String(ld_orderqty - ld_acmpqty,'#,##0.00##' )+'小于本次完成数量' Goto ext End If ElseIf uo_option_ifovertask_cp = 3 Then //允许超收但按比例限制 Select uprate , upqty Into :ld_uprate,:ld_upqty From u_mtrldef Where mtrlid = :ll_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询物料:'+Trim(ls_mtrlcode)+'超收货比例失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Select orderqty - stopqty,acmpqty Into :ld_orderqty,:ld_acmpqty From u_order_ml Where ( orderid = :arg_orderid ) And ( scid = :arg_scid ); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或错误查询产品唯一码或计划计划数和完成数量操作失败" Goto ext End If If ld_orderqty * (1 + ld_uprate) + ld_upqty < arg_addqty + ld_acmpqty Then rslt = 0 arg_msg = '该计划明细产品['+ls_mtrlname+']未完成数量'+String(ld_orderqty - ld_acmpqty,'#,##0.00##' )+',允许超收上限:'+String(ld_orderqty * (1 + ld_uprate) + ld_upqty - ld_acmpqty,'#,##0.00##' )+',小于本次完成数量:'+String(arg_addqty,'#,##0.00##' ) Goto ext End If End If Update u_order_ml Set acmpqty = acmpqty + :arg_addqty Where ( orderid = :arg_orderid ) And ( scid = :arg_scid ); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或错误产品唯一码导致更新生产计划完成数量操作失败"+"~n"+sqlca.SQLErrText Goto ext End If uo_order_ml uo_order uo_order = Create uo_order_ml Long ls_i If getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If Decimal ld_addqty,ld_noinwareqty,ld_addinqty,ld_inwareqty,ld_saleqty ld_addqty = arg_addqty If ordertype = 0 And uo_option_order_bh_use_yc = 1 Then If ld_addqty > 0 Then For ls_i = 1 To it_mxbt If s_order_mx[ls_i].taskid > 0 Then Select SaleQty , inwareQty Into :ld_saleqty,:ld_inwareqty From u_saletaskmx Where scid = :s_order_mx[ls_i].taskscid And taskid = :s_order_mx[ls_i].taskid And printid = :s_order_mx[ls_i].taskmxid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询相关订单明细未进仓数失败'+"~n"+sqlca.SQLErrText Goto ext End If ld_noinwareqty = ld_saleqty - ld_inwareqty If ld_noinwareqty > 0 Then If ld_addqty > ld_noinwareqty Then ld_addinqty = ld_noinwareqty ld_addqty = ld_addqty - ld_noinwareqty Else ld_addinqty = ld_addqty ld_addqty = 0 End If If uo_task.updateinwareqty(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,s_order_mx[ls_i].taskmxid,ld_addinqty,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If If uo_task.trycmptask_fore(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If ld_addqty = 0 Then Exit End If Next Else For ls_i = it_mxbt To 1 Step -1 If s_order_mx[ls_i].taskid > 0 Then Select SaleQty , inwareQty Into :ld_saleqty,:ld_inwareqty From u_saletaskmx Where scid = :s_order_mx[ls_i].taskscid And taskid = :s_order_mx[ls_i].taskid And printid = :s_order_mx[ls_i].taskmxid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询相关订单明细未进仓数失败'+"~n"+sqlca.SQLErrText Goto ext End If If ld_inwareqty > 0 Then If 0 - ld_addqty > ld_inwareqty Then ld_addinqty = 0 - ld_inwareqty ld_addqty = ld_addqty + ld_inwareqty Else ld_addinqty = ld_addqty ld_addqty = 0 End If End If If uo_task.updateinwareqty(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,s_order_mx[ls_i].taskmxid,ld_addinqty,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If uo_task.trycmptask_fore(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If ld_addqty = 0 Then Exit End If Next End If End If //更新分离排产产品上级计划完成数 If ordertype = 4 And porderid > 0 And pzlorderid = 0 Then Long ll_cnt_order Select count(*) Into :ll_cnt_order From u_order_ml Where scid = :scid And orderid = :porderid; If sqlca.SQLCode <> 0 Then arg_msg = '查询相关生产计划失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If ll_cnt_order > 0 Then If uo_order.f_assign_inqty(scid,porderid,wrkGrpid,0,& mtrlid,ls_mtrlcode,status_mode,& woodcode,pcode,arg_addqty,arg_msg,False) = 0 Then rslt = 0 Goto ext End If Select u_order_ml.mtrlid Into :ll_mtrlid_p From u_order_ml Where u_order_ml.orderid = :porderid And u_order_ml.scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询主生产计划物料ID失败,"+sqlca.SQLErrText Goto ext End If If ll_mtrlid_p = ll_mtrlid Then If uo_order.addmxcmpl(arg_scid,porderid,arg_addqty,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If uo_order.tryfinishorder(arg_scid,porderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If End If End If //更新进仓计划 If inwareflag = 1 Then ds_order_inplanmx.Retrieve(arg_scid,arg_orderid) If arg_addqty > 0 Then ld_inqty = arg_addqty 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_inqty = 0 Then Exit If j = ds_order_inplanmx.RowCount() Then ld_inqty_update = ld_inqty ld_inqty = 0 Else If ds_order_inplanmx.Object.notinqty[j] <= 0 Then Continue If ld_inqty > ds_order_inplanmx.Object.notinqty[j] Then ld_inqty_update = ds_order_inplanmx.Object.notinqty[j] ld_inqty = ld_inqty - ds_order_inplanmx.Object.notinqty[j] Else ld_inqty_update = ld_inqty ld_inqty = 0 End If End If ls_aps_plancode = ds_order_inplanmx.Object.aps_plancode[j] Update u_order_zl_planmx Set inqty = inqty + :ld_inqty_update Where scid = :arg_scid And orderid = :arg_orderid And aps_plancode = :ls_aps_plancode; If sqlca.SQLCode <> 0 Then arg_msg = '更新进仓计划已进仓数失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Next // IF ld_inqty > 0 THEN // arg_msg = '进仓计划有余数,请检查' // rslt = 0 // GOTO ext // END IF Else ld_inqty = Abs(arg_addqty) 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_inqty = 0 Then Exit If ld_inqty > ds_order_inplanmx.Object.inqty[j] Then ld_inqty_update = ds_order_inplanmx.Object.inqty[j] ld_inqty = ld_inqty - ds_order_inplanmx.Object.inqty[j] Else ld_inqty_update = ld_inqty ld_inqty = 0 End If ls_aps_plancode = ds_order_inplanmx.Object.aps_plancode[j] Update u_order_zl_planmx Set inqty = inqty - :ld_inqty_update Where scid = :arg_scid And orderid = :arg_orderid And aps_plancode = :ls_aps_plancode; If sqlca.SQLCode <> 0 Then arg_msg = '更新进仓计划已进仓数失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Next If ld_inqty > 0 Then arg_msg = '进仓计划有余数,请检查' rslt = 0 Goto ext End If End If End If ext: If rslt = 0 Then Rollback; ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Destroy uo_order p_reset() Return (rslt) end function private function integer p_getinfo (long arg_scid, long arg_orderid, ref string arg_msg);Int rslt = 1,i = 1,no_mxcheck = 0 IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误生产计划唯一码' GOTO ext END IF SELECT u_Order_ml.OrderCode, u_Order_ml.relcode, u_Order_ml.orderdate, u_Order_ml.mtrlid, u_Order_ml.Status, u_Order_ml.status_mode, u_Order_ml.woodcode, u_Order_ml.pcode, u_Order_ml.orderqty, u_Order_ml.AcmpQty, u_Order_ml.stopqty, u_Order_ml.Requiredate, u_Order_ml.Accomplishdate, u_Order_ml.Accomplishemp, u_Order_ml.Opemp, u_Order_ml.Permit_emp, u_Order_ml.Permit_date, u_Order_ml.Opdate, u_Order_ml.stopemp, u_Order_ml.Dscrp, u_Order_ml.Modemp, u_Order_ml.moddate, u_Order_ml.Assign_emp, u_Order_ml.ordertype, u_Order_ml.taskrelcode, u_Order_ml.pfcode, u_Order_ml.taskid, u_Order_ml.taskmxid, u_Order_ml.taskcode, u_Order_ml.cusid, u_Order_ml.ctmint, u_Order_ml.porderid, u_Order_ml.pordercode, u_Order_ml.scllflag, u_Order_ml.scllsecflag, u_Order_ml.relrqbuyid, u_Order_ml.relrqbuycode, u_Order_ml.planqty, u_Order_ml.wrkGrpid, u_Order_ml.gydscrp, u_Order_ml.pfklmode, u_Order_ml.relrqwfjgid, u_Order_ml.relrqwfjgcode, u_order_ml.pforderid, u_order_ml.pfordercode, u_order_ml.pfqty, u_order_ml.taskscid, u_order_ml.perfinishdate, u_order_ml.stopjj, u_order_ml.stopjjemp, u_order_ml.stopjjdate, u_order_ml.stopjjreason, u_order_ml.storageid, u_order_ml.capacity, u_order_ml.inwareflag, u_order_ml.outscllflag, u_order_ml.pzlorderid, u_order_ml.secdscrp, u_order_ml.thdscrp, u_order_ml.Level, u_order_ml.typename, u_mtrldef.ifpackpro, u_order_ml.iffg, u_order_ml.ifauto, u_order_ml.okplan_flag, u_order_ml.if_inherit, u_order_ml.addqty, u_order_ml.ifwforder, u_order_ml.wpcode, u_order_ml.pctype, u_order_ml.ifpban, u_order_ml.ifupban INTO :OrderCode, :relcode, :orderdate, :mtrlid, :Status, :status_mode, :woodcode, :pcode, :orderqty, :AcmpQty, :stopqty, :Requiredate, :Accomplishdate, :Accomplishemp, :Opemp, :Permit_emp, :Permit_date, :Opdate, :stopemp, :Dscrp, :Modemp, :moddate, :Assign_emp, :ordertype, :taskrelcode, :pfcode, :taskid, :taskmxid, :taskcode, :cusid, :ctmint, :porderid, :pordercode, :scllflag, :scllsecflag, :relrqbuyid, :relrqbuycode, :planqty, :wrkGrpid, :gydscrp, :pfklmode, :relrqwfjgid, :relrqwfjgcode, :pforderid, :pfordercode, :pfqty, :taskscid, :perfinishdate, :stopjj, :stopjjemp, :stopjjdate, :stopjjreason, :storageid, :capacity, :inwareflag, :outscllflag, :pzlorderid, :secdscrp, :thdscrp, :Level, :typename, :ifpackpro_mtrl, :iffg, :ifauto, :okplan_flag, :if_inherit, :addqty, :ifwforder, :wpcode, :pctype, :ifpban, :ifupban FROM u_Order_ml inner join u_mtrldef on u_Order_ml.mtrlid = u_mtrldef.mtrlid WHERE u_order_ml.orderid = :arg_orderid AND u_Order_ml.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询生产计划内容失败(错误生产计划唯一码)' GOTO ext END IF scid = arg_scid orderid = arg_orderid ext: IF rslt = 0 THEN p_reset() RETURN rslt end function private function integer p_clearmx ();//int p_clearmx() //清除明细 it_mxbt = 0 it_mxbt_ut = 0 it_mxbt_wrk = 0 RETURN 1 end function public function integer newbegin (long arg_scid);Long rslt = 1 p_reset() scid = arg_scid RETURN rslt end function public function integer update_bom (long arg_scid, long arg_orderid, string arg_pfcode, ref string arg_msg); Int rslt = 1 Long cnt = 0 Int li_ifpackpro rslt = p_getinfo(arg_scid,arg_orderid, arG_MSG) IF rslt = 0 THEN GOTO ext IF status <> 1 THEN rslt = 0 arG_MSG = "只有在进行状态下才能重选清单" GOTO ext END IF // IF scllflag = 1 THEN rslt = 0 arG_MSG = "计划已执行用料初审,不能重选清单" GOTO ext END IF IF scllsecflag = 1 THEN rslt = 0 arG_MSG = "计划已执行用料终审,不能重选清单" GOTO ext END IF // //检查是否已开指令单,申购单,外协申请单 IF uof_check_if_zl(arg_scid,arg_orderid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF uof_check_if_rbuy(arg_scid,arg_orderid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF uof_check_if_wfjg(arg_scid,arg_orderid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF // SELECT count(*) INTO :cnt FROM u_mtrl_pf WHERE mtrlid = :mtrlid And pfcode = :arg_pfcode; IF sqlca.SQLCode <> 0 THEN arG_MSG = '查询产品BOM资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arG_MSG = '产品BOM资料不存在' rslt = 0 GOTO ext END IF SELECT ifpackpro INTO :li_ifpackpro FROM u_mtrldef Where mtrlid = :mtrlid; IF sqlca.SQLCode <> 0 THEN arG_MSG = '查询计划物料包件产品属性失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_ifpackpro = 2 And pfcode <> arg_pfcode THEN DELETE FROM u_saletaskmx_pf WHERE scid = :arg_scid AND taskid = :taskid And printid = :taskmxid; IF sqlca.SQLCode <> 0 THEN arG_MSG = '主生产计划对应销售订单明细删除包件清单明细失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF INSERT INTO u_saletaskmx_pf (scid, taskid, printid, mtrlid, sonmtrlid, status, woodcode, pcode, Sonscale, Sonscale_fm) SELECT :arg_scid, :taskid, :taskmxid, :MtrlID, u_prdpf.sonmtrlid, case u_prdpf.ifover when 0 then u_prdpf.status when 1 then case when u_prdpf.dipztype=0 or u_prdpf.dipztype=3 or u_prdpf.dipztype=5 or u_prdpf.dipztype=6 then :status_mode else '' END END, case u_prdpf.ifover when 0 then u_prdpf.woodcode when 1 then case when u_prdpf.dipztype=1 or u_prdpf.dipztype=3 or u_prdpf.dipztype=4 or u_prdpf.dipztype=6 then :woodcode else '' END END, case u_prdpf.ifover when 0 then u_prdpf.pcode when 1 then case when u_prdpf.dipztype=2 or u_prdpf.dipztype=4 or u_prdpf.dipztype=5 or u_prdpf.dipztype=6 then :pcode else '' END END, u_prdpf.sonscale, 1 FROM u_prdpf,u_mtrldef WHERE u_prdpf.mtrlid = :MtrlID AND u_prdpf.pfcode = :arg_pfcode AND u_prdpf.sonmtrlid = u_mtrldef.mtrlid AND u_mtrldef.ifpack > 0; IF sqlca.SQLCode <> 0 THEN arg_msg = '新建主生产计划对应销售订单明细包件清单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END if UPDATE u_order_ml SET pfcode = :arg_pfcode WHERE u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致更新计划BOM失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 1 THEN COMMIT; else rollback; END IF p_reset() Return (rslt) end function public function integer uof_finish_procode_qty (long arg_scid, long arg_orderid, string arg_procode, integer arg_type, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_finishflag DateTime null_dt SetNull(null_dt) IF uo_option_ml_wkp = -1000 THEN rslt = 0 arg_msg = '选项:[047]生产计划直接确认车间完成,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_ml_wkp = 0 THEN arg_msg = '系统没有设置为直接确认生产计划车间完成' rslt = 0 GOTO ext END IF SELECT finishflag INTO :li_finishflag FROM U_OrderRqwp WHERE scid = :arg_scid AND orderid = :arg_orderid AND Procode = :arg_procode; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询工序完成标记失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF arg_type = 0 THEN IF li_finishflag = 1 THEN arg_msg = '工序已确认完成,不能再确认' rslt = 0 GOTO ext END IF UPDATE U_OrderRqwp SET finishflag = 1, finishdate = getdate(), finishqty = proqty WHERE scid = :arg_scid AND orderid = :arg_orderid AND Procode = :arg_procode AND finishflag = 0; IF sqlca.SQLCode <> 0 THEN arg_msg = '确认工序完成失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ELSE IF li_finishflag = 0 THEN arg_msg = '工序还未确认,不能取消确认' rslt = 0 GOTO ext END IF UPDATE U_OrderRqwp SET finishflag = 0, finishdate = :null_dt, finishqty = 0 WHERE scid = :arg_scid AND orderid = :arg_orderid AND Procode = :arg_procode AND finishflag = 1; IF sqlca.SQLCode <> 0 THEN arg_msg = '取消确认工序完成失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer addmxcmpl_planqty (long arg_scid, long arg_orderid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 long cnt = 0 Dec ld_orderqty,ld_planqty String ls_mtrlname rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF arg_addqty = 0 THEN arg_msg = '没有完成数量' rslt = 0 GOTO ext END IF IF status <> 1 THEN rslt = 0 arg_msg = "计划["+ordercode+"]只有在进行状态下才可以执行操作" GOTO ext END IF SELECT mtrlname INTO :ls_mtrlname FROM u_mtrldef,u_order_ml Where u_order_ml.orderid = :arg_orderid and u_order_ml.scid = :arg_scid and u_mtrldef.mtrlid = u_order_ml.mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致查询产品操作失败" GOTO ext END IF //检查是否完成 SELECT orderqty,planqty INTO :ld_orderqty,:ld_planqty FROM u_order_ml WHERE ( orderid = :arg_orderid ) AND ( scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误查询产品唯一码或计划计划数和已排程数量操作失败" GOTO ext END IF IF status = 1 THEN IF ld_orderqty < arg_addqty + ld_planqty THEN rslt = 0 arg_msg = '该计划明细产品:'+ls_mtrlname+',未排程数'+String(ld_orderqty - ld_planqty,'#,##0.00##' )+'小于本次排程数' GOTO ext END IF END IF UPDATE u_order_ml SET planqty = planqty + :arg_addqty WHERE ( orderid = :arg_orderid ) AND ( scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致更新生产计划完成数量操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT; END IF p_reset() RETURN (rslt) end function private subroutine p_replace_mx ();Long ll_i,ll_j FOR ll_i = 1 TO it_mxbt If ( s_order_mx[ll_i].ordertype = 1 AND uo_option_unite_order_ml = 1 OR & s_order_mx[ll_i].ordertype = 4 AND uo_option_unite_order_ml_zl = 1 OR & s_order_mx[ll_i].ordertype = 0 AND uo_option_order_bh_use_yc = 1 ) THEN FOR ll_j = 1 TO it_mxbt_ut IF s_order_ut[ll_j].utid = s_order_mx[ll_i].utid THEN s_order_ut[ll_j].orderqty = s_order_ut[ll_j].orderqty + s_order_mx[ll_i].orderqty s_order_ut[ll_j].pfqty = s_order_ut[ll_j].pfqty + s_order_mx[ll_i].pfqty s_order_ut[ll_j].capacity = s_order_ut[ll_j].capacity + s_order_mx[ll_i].capacity s_order_ut[ll_j].addqty = s_order_ut[ll_j].addqty + s_order_mx[ll_i].addqty s_order_ut[ll_j].notmrpqty = s_order_ut[ll_j].notmrpqty + s_order_mx[ll_i].notmrpqty s_order_ut[ll_j].taskcode = s_order_ut[ll_j].taskcode + ','+s_order_mx[ll_i].taskcode s_order_ut[ll_j].taskrelcode = '' s_order_ut[ll_j].cusid = 0 s_order_ut[ll_j].taskid = 0 s_order_ut[ll_j].taskmxid = 0 s_order_ut[ll_j].pzlorderid = 0 s_order_ut[ll_j].porderid = 0 s_order_ut[ll_j].pordercode = '' s_order_ut[ll_j].p_taskrelcode = '' s_order_ut[ll_j].cusname = '' s_order_ut[ll_j].outtypestr = '' GOTO next_ END IF NEXT END IF it_mxbt_ut++ s_order_ut[it_mxbt_ut].relcode = s_order_mx[ll_i].relcode s_order_ut[it_mxbt_ut].orderdate = s_order_mx[ll_i].orderdate s_order_ut[it_mxbt_ut].mtrlid = s_order_mx[ll_i].mtrlid s_order_ut[it_mxbt_ut].status_mode = s_order_mx[ll_i].status_mode s_order_ut[it_mxbt_ut].woodcode = s_order_mx[ll_i].woodcode s_order_ut[it_mxbt_ut].pcode = s_order_mx[ll_i].pcode s_order_ut[it_mxbt_ut].orderqty = s_order_mx[ll_i].orderqty s_order_ut[it_mxbt_ut].dscrp = s_order_mx[ll_i].dscrp s_order_ut[it_mxbt_ut].assign_emp = s_order_mx[ll_i].assign_emp s_order_ut[it_mxbt_ut].requiredate = s_order_mx[ll_i].requiredate s_order_ut[it_mxbt_ut].ordertype = s_order_mx[ll_i].ordertype s_order_ut[it_mxbt_ut].pfcode = s_order_mx[ll_i].pfcode s_order_ut[it_mxbt_ut].taskid = s_order_mx[ll_i].taskid s_order_ut[it_mxbt_ut].taskcode = s_order_mx[ll_i].taskcode s_order_ut[it_mxbt_ut].taskrelcode = s_order_mx[ll_i].taskrelcode s_order_ut[it_mxbt_ut].taskmxid = s_order_mx[ll_i].taskmxid s_order_ut[it_mxbt_ut].cusid = s_order_mx[ll_i].cusid s_order_ut[it_mxbt_ut].porderid = s_order_mx[ll_i].porderid s_order_ut[it_mxbt_ut].pordercode = s_order_mx[ll_i].pordercode s_order_ut[it_mxbt_ut].utid = s_order_mx[ll_i].utid s_order_ut[it_mxbt_ut].wrkGrpid = s_order_mx[ll_i].wrkGrpid s_order_ut[it_mxbt_ut].gydscrp = s_order_mx[ll_i].gydscrp s_order_ut[it_mxbt_ut].pfklmode = s_order_mx[ll_i].pfklmode s_order_ut[it_mxbt_ut].pforderid = s_order_mx[ll_i].pforderid s_order_ut[it_mxbt_ut].pfordercode = s_order_mx[ll_i].pfordercode s_order_ut[it_mxbt_ut].pfqty = s_order_mx[ll_i].pfqty s_order_ut[it_mxbt_ut].secdscrp = s_order_mx[ll_i].secdscrp s_order_ut[it_mxbt_ut].thdscrp = s_order_mx[ll_i].thdscrp s_order_ut[it_mxbt_ut].taskscid = s_order_mx[ll_i].taskscid s_order_ut[it_mxbt_ut].perfinishdate = s_order_mx[ll_i].perfinishdate s_order_ut[it_mxbt_ut].storageid = s_order_mx[ll_i].storageid s_order_ut[it_mxbt_ut].capacity = s_order_mx[ll_i].capacity s_order_ut[it_mxbt_ut].tmpid = s_order_mx[ll_i].tmpid s_order_ut[it_mxbt_ut].level = s_order_mx[ll_i].level s_order_ut[it_mxbt_ut].typename = s_order_mx[ll_i].typename s_order_ut[it_mxbt_ut].p_taskrelcode = s_order_mx[ll_i].p_taskrelcode s_order_ut[it_mxbt_ut].saletaskcode = s_order_mx[ll_i].saletaskcode s_order_ut[it_mxbt_ut].saletaskrelcode = s_order_mx[ll_i].saletaskrelcode s_order_ut[it_mxbt_ut].cusname = s_order_mx[ll_i].cusname s_order_ut[it_mxbt_ut].p_ordertype = s_order_mx[ll_i].p_ordertype s_order_ut[it_mxbt_ut].p_cusid = s_order_mx[ll_i].p_cusid s_order_ut[it_mxbt_ut].p_mtrlid = s_order_mx[ll_i].p_mtrlid s_order_ut[it_mxbt_ut].outtypestr = s_order_mx[ll_i].outtypestr s_order_ut[it_mxbt_ut].pzlorderid = s_order_mx[ll_i].pzlorderid s_order_ut[it_mxbt_ut].inwareflag = s_order_mx[ll_i].inwareflag s_order_ut[it_mxbt_ut].outscllflag = s_order_mx[ll_i].outscllflag s_order_ut[it_mxbt_ut].iffg = s_order_mx[ll_i].iffg s_order_ut[it_mxbt_ut].ifauto = s_order_mx[ll_i].ifauto s_order_ut[it_mxbt_ut].upmtrlid = s_order_mx[ll_i].upmtrlid s_order_ut[it_mxbt_ut].iffp = s_order_mx[ll_i].iffp s_order_ut[it_mxbt_ut].fpkind = s_order_mx[ll_i].fpkind s_order_ut[it_mxbt_ut].p_taskid = s_order_mx[ll_i].p_taskid s_order_ut[it_mxbt_ut].p_taskmxid = s_order_mx[ll_i].p_taskmxid s_order_ut[it_mxbt_ut].fgid = s_order_mx[ll_i].fgid s_order_ut[it_mxbt_ut].if_inherit = s_order_mx[ll_i].if_inherit s_order_ut[it_mxbt_ut].addqty = s_order_mx[ll_i].addqty s_order_ut[it_mxbt_ut].ifwforder = s_order_mx[ll_i].ifwforder s_order_ut[it_mxbt_ut].wpcode = s_order_mx[ll_i].wpcode s_order_ut[it_mxbt_ut].pctype = s_order_mx[ll_i].pctype s_order_ut[it_mxbt_ut].notmrpqty = s_order_mx[ll_i].notmrpqty s_order_ut[it_mxbt_ut].ifpban = s_order_mx[ll_i].ifpban s_order_ut[it_mxbt_ut].ifupban = s_order_mx[ll_i].ifupban next_: NEXT end subroutine public function integer getinfo (long arg_scid, long arg_orderid, ref string arg_msg);Int rslt = 1 Long i = 1,no_mxcheck = 0 IF arg_orderid <= 0 THEN rslt = 0 arg_msg = "非法单据唯一码" GOTO ext END IF //用游标读取明细 DECLARE cur_ordermx CURSOR FOR SELECT u_order_ml_mx.taskid, u_order_ml_mx.taskmxid, u_order_ml_mx.qty, u_order_ml_mx.taskscid FROM u_order_ml_mx WHERE u_order_ml_mx.orderid = :arg_orderid AND u_order_ml_mx.scid = :arg_scid ; OPEN cur_ordermx; FETCH cur_ordermx INTO :s_order_mx[i].taskid, :s_order_mx[i].taskmxid, :s_order_mx[i].orderqty, :s_order_mx[i].taskscid; DO WHILE sqlca.SQLCode = 0 i++ FETCH cur_ordermx INTO :s_order_mx[i].taskid, :s_order_mx[i].taskmxid, :s_order_mx[i].orderqty, :s_order_mx[i].taskscid; LOOP CLOSE cur_ordermx; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_order_ml_mx WHERE orderid = :arg_orderid AND scid = :arg_scid ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,计划明细数量" GOTO ext END IF IF i <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,计划明细" GOTO ext END IF it_mxbt = i - 1 ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer f_assign_inqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, integer arg_plantype, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_mtrlkind,li_ifpack,li_ifpackpro,li_ifpackpro2 Int li_pordermtrl_ordertype IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误的计划唯一码' GOTO ext END IF IF arg_mtrlid <= 0 THEN rslt = 0 arg_msg = '错误的物料唯一码' GOTO ext END IF SELECT mtrlkind,ifpack,ifpackpro2 INTO :li_mtrlkind,:li_ifpack,:li_ifpackpro2 FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '物料:'+arg_mtrlcode+'查询领料属性失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_mtrlkind = 1 THEN rslt = 1 GOTO ext END IF CHOOSE CASE arg_plantype CASE 0 UPDATE u_OrderRqMtrl SET inqty = inqty + :arg_qty WHERE orderid = :arg_orderid AND produce_wrkGrpid = :arg_wrkGrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid And plantype = 0; CASE 2,3 UPDATE u_OrderRqMtrl SET inqty = inqty + :arg_qty WHERE orderid = :arg_orderid AND wrkGrpid = :arg_wrkGrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid And (plantype = 2 Or plantype = 3); END CHOOSE IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN arg_msg = '更新物料:'+arg_mtrlcode + '已进仓数明细失败(更新行数 = 0),'+sqlca.SQLErrText rslt = 1 ELSEIF sqlca.SQLNRows > 1 THEN arg_msg = '更新物料:'+arg_mtrlcode + '已进仓数明细失败(更新行数 > 1),'+sqlca.SQLErrText rslt = 1 END IF IF Trim(arg_msg) <> '' THEN arg_msg_str = arg_msg END IF ELSE rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+'已进仓数量失败,'+sqlca.SQLErrText GOTO ext END IF IF li_ifpack > 0 THEN SELECT u_mtrldef.ifpackpro,u_mtrldef.ordertype INTO :li_ifpackpro,:li_pordermtrl_ordertype FROM u_order_ml,u_mtrldef WHERE u_order_ml.mtrlid = u_mtrldef.mtrlid AND u_order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料:'+arg_mtrlcode+'对应生产计划产品是否包件产品失败,'+sqlca.SQLErrText GOTO ext END IF END IF //当是包件产品生产计划包件进仓时，进仓数自动更新为已领数 //当是组合配置包件产品生产计划包件进仓时，进仓数自动更新为已领数 IF arg_plantype = 0 THEN IF li_ifpack = 1 And li_ifpackpro = 1 Or li_ifpackpro2 = 1 THEN UPDATE u_OrderRqMtrl SET DstrQty = DstrQty + :arg_qty WHERE orderid = :arg_orderid AND produce_wrkGrpid = :arg_wrkGrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid And plantype = 0; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN arg_msg = '更新物料:'+arg_mtrlcode + '已领数明细失败(包件,更新行数 = 0),'+sqlca.SQLErrText rslt = 1 ELSEIF sqlca.SQLNRows > 1 THEN arg_msg = '更新物料:'+arg_mtrlcode + '已领数明细失败(包件,行数 > 1),'+sqlca.SQLErrText rslt = 1 END IF IF Trim(arg_msg) <> '' THEN arg_msg_str = arg_msg END IF ELSE rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+'已进仓数量失败,'+sqlca.SQLErrText GOTO ext END IF END IF ELSEIF arg_plantype = 2 THEN //yyx2013-9-3 采购包件进仓完成计划 IF li_ifpack = 1 And li_ifpackpro = 1 THEN UPDATE u_OrderRqMtrl SET DstrQty = DstrQty + :arg_qty WHERE orderid = :arg_orderid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid And plantype = 2; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN arg_msg = '更新物料:'+arg_mtrlcode + '已领数明细失败(包件,更新行数 = 0),'+sqlca.SQLErrText rslt = 1 ELSEIF sqlca.SQLNRows > 1 THEN arg_msg = '更新物料:'+arg_mtrlcode + '已领数明细失败(包件,行数 > 1),'+sqlca.SQLErrText rslt = 1 END IF IF Trim(arg_msg) <> '' THEN arg_msg_str = arg_msg END IF ELSE rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+'已进仓数量失败,'+sqlca.SQLErrText GOTO ext END IF IF uof_tryfinish_packorder_buy(arg_scid,arg_orderid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_pz_change (integer arg_type, string arg_updatestr, long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_msg);Int rslt = 1 CHOOSE CASE arg_type CASE 1 UPDATE u_OrderRqMtrl_scll SET status = :arg_updatestr WHERE u_OrderRqMtrl_scll.scid = :arg_scid AND u_OrderRqMtrl_scll.wrkgrpid = :arg_wrkgrpid AND u_OrderRqMtrl_scll.orderid = :arg_orderid AND u_OrderRqMtrl_scll.mtrlid = :arg_mtrlid AND u_OrderRqMtrl_scll.status = :arg_status AND u_OrderRqMtrl_scll.woodcode = :arg_woodcode And u_OrderRqMtrl_scll.pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF CASE 2 UPDATE u_OrderRqMtrl_scll SET woodcode = :arg_updatestr WHERE u_OrderRqMtrl_scll.scid = :arg_scid AND u_OrderRqMtrl_scll.wrkgrpid = :arg_wrkgrpid AND u_OrderRqMtrl_scll.orderid = :arg_orderid AND u_OrderRqMtrl_scll.mtrlid = :arg_mtrlid AND u_OrderRqMtrl_scll.status = :arg_status AND u_OrderRqMtrl_scll.woodcode = :arg_woodcode And u_OrderRqMtrl_scll.pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF CASE 3 UPDATE u_OrderRqMtrl_scll SET pcode = :arg_updatestr WHERE u_OrderRqMtrl_scll.scid = :arg_scid AND u_OrderRqMtrl_scll.wrkgrpid = :arg_wrkgrpid AND u_OrderRqMtrl_scll.orderid = :arg_orderid AND u_OrderRqMtrl_scll.mtrlid = :arg_mtrlid AND u_OrderRqMtrl_scll.status = :arg_status AND u_OrderRqMtrl_scll.woodcode = :arg_woodcode And u_OrderRqMtrl_scll.pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END CHOOSE UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.status = u_OrderRqMtrl_scll.status, u_OrderRqMtrl.woodcode = u_OrderRqMtrl_scll.woodcode, u_OrderRqMtrl.pcode = u_OrderRqMtrl_scll.pcode FROM u_OrderRqMtrl INNER JOIN u_OrderRqMtrl_scll ON u_OrderRqMtrl.scid = u_OrderRqMtrl_scll.scid AND u_OrderRqMtrl.OrderID = u_OrderRqMtrl_scll.OrderID AND u_OrderRqMtrl.MtrlID = u_OrderRqMtrl_scll.MtrlID AND u_OrderRqMtrl.wrkGrpid = u_OrderRqMtrl_scll.wrkGrpid WHERE ((u_OrderRqMtrl.status <> u_OrderRqMtrl_scll.status) OR (u_OrderRqMtrl.woodcode <> u_OrderRqMtrl_scll.woodcode) OR (u_OrderRqMtrl.pcode <> u_OrderRqMtrl_scll.pcode)) AND (u_OrderRqMtrl.scid = :arg_scid) And (u_OrderRqMtrl.orderid = :arg_orderid); IF sqlca.SQLCode <> 0 THEN arg_msg = '更新需求表失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSE COMMIT; END IF RETURN rslt end function public function integer audit_scll (long arg_scid, long arg_orderid, integer arg_scllflag, ref string arg_msg, boolean arg_ifcommit);//arg_scllflag 1 :初审,2:终审 Int rslt = 1 Long cnt = 0 Long ls_i,ll_j,ll_k,ll_sp_cnt,ll_l Long ll_orderid_tmp Decimal ld_eoq,ld_splitrate,ld_truerqqty,ld_qty Long ll_cnt = 0 Long ll_porderid Int li_ifpackpro String ls_mtrlcode String ls_mtrlsectype String ls_zxmtrlmode String ls_unit Long ll_OrderID Long ll_MtrlID Decimal ld_noconsignedqty String ls_status String ls_woodcode String ls_pcode Long ll_wrkgrpid,ll_wrkid Long ll_storageid_last,ll_m DateTime ld_rqdate String ls_wpcode String ls_taskrelcode Long ll_cnt_mxt Decimal ld_qty_arr[],ld_trueqty_tmp Long count = 0 String ls_plancode rslt = 1 If f_aps_mrp_cklock(arg_scid,arg_msg) = 0 Then rslt = 0 Goto ext End If If uo_option_order_ml_scll_secaudit = -1000 Then rslt = 0 arg_msg = '选项:[065]生产计划用料二级审核,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_autocreate_buy = -1000 Then rslt = 0 arg_msg = '选项:[054]生产计划审核自动建立申购单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_autocreate_wfjg = -1000 Then rslt = 0 arg_msg = '选项:[068]生产计划审核自动建立外协申请单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_scllaudit_autobuild = -1000 Then rslt = 0 arg_msg = '选项:[234]主生产计划用料审自动生成相关指令单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_scllaudit_autobuild_tech = -1000 Then rslt = 0 arg_msg = '选项:[245]主生产计划用料审自动生成相关指令单的工组派工单,读取初始默认值失败,操作取消!' Goto ext End If uo_requestbuy uo_rqbuy uo_rqbuy = Create uo_requestbuy uo_request_wfjg uo_wfjg uo_wfjg = Create uo_request_wfjg uo_wfjg.commit_transaction = sqlca uo_wfjg.if_getid_ture = False uo_order_ml uo_ml uo_ml = Create uo_order_ml uo_ml.if_getid_ture = False uo_order_ml_mrp uo_ml_mrp uo_ml_mrp = Create uo_order_ml_mrp s_order_ml_rqmtrl s_mtrl,s_mtrl_null datastore ds_ch_pack ds_ch_pack = Create datastore ds_ch_pack.DataObject = 'ds_order_ml_mrptree_pack' ds_ch_pack.SetTransObject(sqlca) datastore ds_orderrqmx ds_orderrqmx = Create datastore ds_orderrqmx.DataObject = 'dw_order_ml_zl_orderrqmx' ds_orderrqmx.SetTransObject(sqlca) datastore ds_reqmtrl ds_reqmtrl = Create datastore ds_reqmtrl.DataObject = 'ds_order_ml_reqmtrl_mx' ds_reqmtrl.SetTransObject(sqlca) If arg_orderid = 0 Then rslt = 0 arg_msg = "没有审核对象" Goto ext End If If p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If If status <> 1 Then rslt = 0 arg_msg = "计划只有在在进行状态才可以执行用料审批,请核对" Goto ext End If //检查是否有相关配置变更单未审 cnt = 0 Select count(*) Into :cnt From u_saletaskmx_change Inner JOIN u_saletaskmx_changemx ON u_saletaskmx_change.Billid = u_saletaskmx_changemx.billid Where (u_saletaskmx_change.affirmflag = 0 Or u_saletaskmx_change.flag = 0) And (u_saletaskmx_changemx.orderid = :arg_orderid) And (u_saletaskmx_changemx.scid = :arg_scid) ; If sqlca.SQLCode <> 0 Then arg_msg = ordercode + ',查询是否有相关配置变更单未审失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = ordercode + ',有相关配置变更单未审,请先审核' rslt = 0 Goto ext End If If uo_option_order_ml_scll_secaudit = 0 Then If scllflag = 1 Then rslt = 0 arg_msg = "计划已执行用料审批,请核对" Goto ext End If Else If arg_scllflag = 1 Then If scllflag = 1 Then rslt = 0 arg_msg = "计划已执行用料初审,请核对" Goto ext End If Else If scllflag = 0 Then rslt = 0 arg_msg = "计划未执行用料初审,请核对" Goto ext End If If scllsecflag = 1 Then rslt = 0 arg_msg = "计划已执行用料终审,请核对" Goto ext End If End If End If If uo_option_order_ml_scll_secaudit = 0 Then Update u_order_ml Set scllemp = :publ_operator, sclldate = getdate(), scllflag = 1, scllsecemp = :publ_operator, scllsecdate = getdate(), scllsecflag = 1 Where orderid = :arg_orderid And scid = :arg_scid And scllflag = 0 And scllsecflag = 0 And status = 1; Else If arg_scllflag = 1 Then Update u_order_ml Set scllemp = :publ_operator, sclldate = getdate(), scllflag = 1 Where orderid = :arg_orderid And scid = :arg_scid And scllflag = 0 And status = 1; Else Update u_order_ml Set scllsecemp = :publ_operator, scllsecdate = getdate(), scllsecflag = 1 Where orderid = :arg_orderid And scid = :arg_scid And scllflag = 1 And scllsecflag = 0 And status = 1; End If End If If sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 Then rslt = 0 arg_msg = "因网络或其它原因导致更新计划用料审核标记失败"+"~n"+sqlca.SQLErrText Goto ext End If If uo_option_order_ml_scll_secaudit = 0 Or & uo_option_order_ml_scll_secaudit = 1 And arg_scllflag = 2 Then //自动建申购单 If uo_option_autocreate_buy = 1 Then cnt = 0 Select count(*) Into :cnt From u_mtrldef, u_OrderRqMtrl Where ( u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid ) And ( u_OrderRqMtrl.plantype = 2 ) And ( u_mtrldef.mtrlkind = 0 Or u_mtrldef.mtrlkind = 2) And ( u_OrderRqMtrl.scid = :arg_scid ) And ( u_OrderRqMtrl.orderid = :arg_orderid ) And ( u_OrderRqMtrl.truerqqty - u_OrderRqMtrl.consignedqty > 0); If sqlca.SQLCode <> 0 Then arg_msg = '查询自动材料申购单物料明细数目失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then s_requestbuy arg_s_rqbuy arg_s_rqbuy.scid = scid arg_s_rqbuy.requestbuyid = 0 arg_s_rqbuy.requestbuydate = DateTime(Today(),Time(0)) arg_s_rqbuy.assign_emp = publ_operator arg_s_rqbuy.relcode = '' arg_s_rqbuy.dscrp = '' arg_s_rqbuy.ifauto = 1 arg_s_rqbuy.billtype = 0 Declare cur_rqbuy Cursor For Select u_mtrldef.mtrlcode, u_mtrldef.mtrlsectype, u_mtrldef.zxmtrlmode, u_OrderRqMtrl.OrderID, u_OrderRqMtrl.MtrlID, u_OrderRqMtrl.truerqqty - u_OrderRqMtrl.consignedqty, u_OrderRqMtrl.status , u_OrderRqMtrl.woodcode , u_OrderRqMtrl.pcode, u_OrderRqMtrl.wrkgrpid, u_orderrqmtrl.rqdate, u_mtrldef.unit From u_mtrldef, u_OrderRqMtrl Where ( u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid ) And ( u_OrderRqMtrl.plantype = 2 ) And ( u_mtrldef.mtrlkind = 0 Or u_mtrldef.mtrlkind = 2 ) And ( u_OrderRqMtrl.scid = :arg_scid ) And ( u_OrderRqMtrl.orderid = :arg_orderid ) And ( u_OrderRqMtrl.truerqqty - u_OrderRqMtrl.consignedqty > 0); Open cur_rqbuy; Fetch cur_rqbuy Into :ls_mtrlcode,:ls_mtrlsectype,:ls_zxmtrlmode, :ll_OrderID,:ll_MtrlID,:ld_noconsignedqty,:ls_status, :ls_woodcode,:ls_pcode,:ll_wrkgrpid,:ld_rqdate,:ls_unit; Do While sqlca.SQLCode = 0 count++ arg_s_rqbuy.arg_s_rqbuymx[count].mtrlcode = ls_mtrlcode arg_s_rqbuy.arg_s_rqbuymx[count].uqty = ld_noconsignedqty arg_s_rqbuy.arg_s_rqbuymx[count].unit = ls_unit arg_s_rqbuy.arg_s_rqbuymx[count].status = ls_status arg_s_rqbuy.arg_s_rqbuymx[count].woodcode = ls_woodcode arg_s_rqbuy.arg_s_rqbuymx[count].pcode = ls_pcode arg_s_rqbuy.arg_s_rqbuymx[count].mxdscrp = '' arg_s_rqbuy.arg_s_rqbuymx[count].MtrlID = ll_MtrlID arg_s_rqbuy.arg_s_rqbuymx[count].orderid = ll_OrderID arg_s_rqbuy.arg_s_rqbuymx[count].wrkgrpid = ll_wrkgrpid arg_s_rqbuy.arg_s_rqbuymx[count].storageid = ll_storageid_last arg_s_rqbuy.arg_s_rqbuymx[count].ifrel = 1 arg_s_rqbuy.arg_s_rqbuymx[count].printid = count arg_s_rqbuy.arg_s_rqbuymx[count].rate = 1 arg_s_rqbuy.arg_s_rqbuymx[count].rqdate = ld_rqdate If if_inherit = 1 Then arg_s_rqbuy.arg_s_rqbuymx[count].plancode = taskrelcode Else arg_s_rqbuy.arg_s_rqbuymx[count].plancode = '' End If Fetch cur_rqbuy Into :ls_mtrlcode,:ls_mtrlsectype,:ls_zxmtrlmode, :ll_OrderID,:ll_MtrlID,:ld_noconsignedqty,:ls_status, :ls_woodcode,:ls_pcode,:ll_wrkgrpid,:ld_rqdate,:ls_unit; Loop Close cur_rqbuy; //查默认仓库及最近收货仓库 For ll_m = 1 To count arg_s_rqbuy.arg_s_rqbuymx[ll_m].storageid = f_mtrl_storageid(scid,arg_s_rqbuy.arg_s_rqbuymx[ll_m].MtrlID) Next If uo_rqbuy.Save(arg_s_rqbuy,publ_operator,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If uo_rqbuy.audit(scid,uo_rqbuy.uo_requestbuyid,publ_operator,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If uo_rqbuy.audit_2(scid,uo_rqbuy.uo_requestbuyid,publ_operator,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If uo_rqbuy.uo_requestbuyid = 0 Or uo_rqbuy.uo_requestbuycode = '' Then arg_msg = '更新计划时获得错误的自动申购单号唯一码' rslt = 0 Goto ext End If Update u_order_ml Set relrqbuyid = :uo_rqbuy.uo_requestbuyid, relrqbuycode = :uo_rqbuy.uo_requestbuycode Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then arg_msg = '更新计划申购单号失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If End If End If //自动建外协申请单 If uo_option_autocreate_wfjg = 1 Then cnt = 0 Select count(*) Into :cnt From u_mtrldef,u_OrderRqMtrl Where ( u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid ) And ( u_OrderRqMtrl.plantype = 3 ) And ( u_mtrldef.mtrlkind = 0 Or u_mtrldef.mtrlkind = 2) And ( u_OrderRqMtrl.scid = :arg_scid ) And ( u_OrderRqMtrl.orderid = :arg_orderid ) And ( u_OrderRqMtrl.truerqqty - u_OrderRqMtrl.consignedqty > 0); If sqlca.SQLCode <> 0 Then arg_msg = '查询自动外协申请单物料明细数目失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then datastore ds_wfjg ds_wfjg = Create datastore ds_wfjg.DataObject = 'ds_order_ml_rqwfjg' ds_wfjg.SetTransObject(sqlca) ds_wfjg.Retrieve(arg_orderid,arg_scid) If uo_wfjg.newbegin(arg_scid,arg_msg) = 0 Then rslt = 0 Goto ext End If uo_wfjg.Requiredate = DateTime(Today(),Time(0)) uo_wfjg.assign_emp = publ_operator uo_wfjg.dscrp = '' uo_wfjg.ifauto = 1 If if_inherit = 1 Then ls_plancode = taskrelcode Else ls_plancode = '' End If For ll_j = 1 To ds_wfjg.RowCount() If uo_wfjg.acceptmx(1,& arg_orderid,& ds_wfjg.Object.u_order_ml_ordercode[ll_j],& ds_wfjg.Object.u_orderrqmtrl_mtrlid[ll_j],& ds_wfjg.Object.u_orderrqmtrl_truerqqty[ll_j],& ds_wfjg.Object.u_orderrqmtrl_gydscrp[ll_j],& ds_wfjg.Object.u_mtrldef_mtrlcode[ll_j],& arg_msg,& ll_j,& ds_wfjg.Object.u_orderrqmtrl_rqdate[ll_j],& '',& ds_wfjg.Object.u_orderrqmtrl_status[ll_j],& ds_wfjg.Object.u_orderrqmtrl_woodcode[ll_j],& ds_wfjg.Object.u_orderrqmtrl_pcode[ll_j],& ds_wfjg.Object.u_orderrqmtrl_wrkgrpid[ll_j],& ds_wfjg.Object.u_orderrqmtrl_pfcode[ll_j],& ls_plancode,& ds_wfjg.Object.u_mtrldef_unit[ll_j],& ds_wfjg.Object.u_orderrqmtrl_truerqqty[ll_j],& 1) = 0 Then rslt = 0 Goto ext End If Next If uo_wfjg.savesubmit(publ_operator,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If uo_wfjg.audit(scid,uo_wfjg.wfjgid,publ_operator,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If uo_wfjg.audit_2(scid,uo_wfjg.wfjgid,publ_operator,arg_msg,False) = 0 Then rslt = 0 Goto ext End If If uo_wfjg.wfjgid = 0 Or uo_wfjg.taskcode = '' Then arg_msg = '更新计划时获得错误的自动外协申请单号唯一码' rslt = 0 Goto ext End If Update u_order_ml Set relrqwfjgid = :uo_wfjg.wfjgid, relrqwfjgcode = :uo_wfjg.taskcode Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then arg_msg = '更新计划外协申请单号失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If End If End If If uo_option_scllaudit_autobuild <> 0 Then SELECT u_mtrldef.ifpackpro INTO :li_ifpackpro FROM u_mtrldef,u_order_ml WHERE u_mtrldef.mtrlid = u_order_ml.mtrlid AND u_order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询计划包件产品属性失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF If uo_option_scllaudit_autobuild_tech = 1 Then If uof_create_order_plan_tech(arg_scid,arg_orderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If ds_reqmtrl.Retrieve(arg_scid,arg_orderid) If ds_reqmtrl.RowCount() > 0 Then uo_ml.newbegin(arg_scid) End If For ll_j = 1 To ds_reqmtrl.RowCount() ld_eoq = ds_reqmtrl.Object.u_mtrldef_eoq[ll_j] //最小经济批量 ld_splitrate = ds_reqmtrl.Object.u_mtrldef_splitrate[ll_j] //最大经济批量 ld_truerqqty = ds_reqmtrl.Object.u_orderrqmtrl_truerqqty[ll_j] ld_trueqty_tmp = ld_truerqqty //yyx2014-2-28 //yyx2014-09-17 // IF pctype = 1 THEN // ld_eoq = 1 // ld_splitrate = 1 // END IF If ld_splitrate > 0 And ld_truerqqty > ld_splitrate Then ll_sp_cnt = Ceiling(Truncate(ld_truerqqty / ld_splitrate,10)) Else ll_sp_cnt = 1 End If ll_cnt_mxt = 0 For ll_k = 1 To ll_sp_cnt If ll_k = ll_sp_cnt Then ll_cnt_mxt++ ld_qty_arr[ll_cnt_mxt] = ld_trueqty_tmp ld_trueqty_tmp = 0 Else If ld_trueqty_tmp - ld_splitrate < ld_eoq Then ll_cnt_mxt++ ld_qty_arr[ll_cnt_mxt] = ld_trueqty_tmp - ld_eoq ld_trueqty_tmp = ld_eoq Else ll_cnt_mxt++ ld_qty_arr[ll_cnt_mxt] = ld_splitrate ld_trueqty_tmp = ld_trueqty_tmp - ld_splitrate End If End If Next For ll_k = 1 To ll_cnt_mxt ls_taskrelcode = '' If MtrlID = ds_reqmtrl.Object.u_orderrqmtrl_mtrlid[ll_j] Or ds_reqmtrl.Object.u_mtrldef_if_inherit[ll_j] = 1 Then ls_taskrelcode = taskrelcode Else ls_taskrelcode = '' End If ll_MtrlID = ds_reqmtrl.Object.u_orderrqmtrl_mtrlid[ll_j] ll_wrkid = ds_reqmtrl.Object.u_orderrqmtrl_produce_wrkGrpid[ll_j] Select top 1 wpcode Into :ls_wpcode From u_mtrl_workprice Where mtrlid = :ll_mtrlid And wrkid = :ll_wrkid Order By ifdft Desc; If sqlca.SQLCode <> 0 Then ls_wpcode = '' ll_cnt++ If uo_ml.acceptmx(relcode,& ds_reqmtrl.Object.u_orderrqmtrl_edate[ll_j],& 0,& '',& 0,& ds_reqmtrl.Object.u_orderrqmtrl_mtrlid[ll_j],& ds_reqmtrl.Object.u_orderrqmtrl_status[ll_j],& ds_reqmtrl.Object.u_orderrqmtrl_woodcode[ll_j],& ds_reqmtrl.Object.u_orderrqmtrl_pcode[ll_j],& ld_qty_arr[ll_k],& dscrp,& publ_operator,& ds_reqmtrl.Object.u_orderrqmtrl_rqdate[ll_j],& 4,& ls_taskrelcode,& ds_reqmtrl.Object.u_orderrqmtrl_pfcode[ll_j],& ds_reqmtrl.Object.u_orderrqmtrl_mxpkid[ll_j],& arg_orderid,& ll_cnt,& ds_reqmtrl.Object.u_orderrqmtrl_produce_wrkGrpid[ll_j],& ds_reqmtrl.Object.u_orderrqmtrl_gydscrp[ll_j],& ds_reqmtrl.Object.u_orderrqmtrl_pfklmode[ll_j],& 0,'',0,& secdscrp,& thdscrp,& arg_scid,& ds_reqmtrl.Object.u_orderrqmtrl_rqdate[ll_j],& 0,& 0,& ds_reqmtrl.Object.u_order_ml_level[ll_j],& ds_reqmtrl.Object.u_order_ml_typename[ll_j],& ds_reqmtrl.Object.u_order_ml_outtypestr[ll_j],& 0,& 0,& 0,0,0,& ls_wpcode,0,& arg_msg) = 0 Then arg_msg = '建立相关生产指令单失败,'+arg_msg rslt = 0 Goto ext End If Next Next If ds_reqmtrl.RowCount() > 0 Then If uo_ml.Save(arg_msg,False) = 0 Then arg_msg = '保存相关生产指令单失败,'+arg_msg rslt = 0 Goto ext End If If uo_option_scllaudit_autobuild = 1 Then For ll_j = 1 To UpperBound(uo_ml.orderid_arr) ll_orderid_tmp = uo_ml.orderid_arr[ll_j] If uo_ml.audit(arg_scid,ll_orderid_tmp,arg_msg,False) = 0 Then rslt = 0 arg_msg = '审核相关生产指令单失败(初审),'+arg_msg Goto ext End If If uo_ml.plan_audit(arg_scid,ll_orderid_tmp,arg_msg,False) = 0 Then rslt = 0 arg_msg = '审核相关生产指令单失败(二审),'+arg_msg Goto ext End If If uo_ml.sec_audit(arg_scid,ll_orderid_tmp,arg_msg,False) = 0 Then rslt = 0 arg_msg = '审核相关生产指令单失败(终审),'+arg_msg Goto ext End If If ifpackpro_mtrl = 5 Then If uo_ml.uof_order_add_tree_barcode(arg_scid,ll_orderid_tmp,arg_msg,False) = 0 Then rslt = 0 arg_msg = '相关生产指令单生成工艺条码失败,'+arg_msg Goto ext End If End If If uo_ml_mrp.uof_del_rqmtrl_scll(arg_scid,ll_orderid_tmp,False,arg_msg) = 0 Then arg_msg = '删除相关生产指令单用料失败,'+arg_msg rslt = 0 Goto ext End If ds_orderrqmx.Retrieve(ll_orderid_tmp,arg_scid) For ll_l = 1 To ds_orderrqmx.RowCount() s_mtrl = s_mtrl_null ll_porderid = ds_orderrqmx.Object.u_order_ml_mx_taskid[ll_l] If uo_ml_mrp.uof_get_rqmtrl(arg_scid,ll_orderid_tmp,ll_porderid,s_mtrl,arg_msg) = 0 Then arg_msg = '计算相关生产指令单用料失败1,'+arg_msg rslt = 0 Goto ext End If If uo_ml_mrp.uof_add_rqmtrl_scll(s_mtrl,False,arg_msg) = 0 Then arg_msg = '计算相关生产指令单用料失败2,'+arg_msg rslt = 0 Goto ext End If Next If uo_option_scllaudit_autobuild_tech = 1 Then If uo_ml.uof_create_order_plan_tech(arg_scid,ll_orderid_tmp,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If Next End If End If End If //yyx2-12=10-24 //删进仓计划 Delete From u_order_zl_planmx Where u_order_zl_planmx.orderid = :arg_orderid And u_order_zl_planmx.scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除生产计划进仓计划操作失败"+"~n"+sqlca.SQLErrText Goto ext End If //加入进仓计划 If inwareflag = 1 Then Insert Into u_order_zl_planmx (scid,orderid,aps_plancode,begindate,enddate,orderqty) Values(:arg_scid,:arg_orderid,'', :orderdate, :requiredate, :orderqty); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致插入进仓计划操作失败"+"~n"+sqlca.SQLErrText Goto ext End If End If End If //个性包件产品如果有换包件则更新到订单包件明细 Long k Long ll_s_mtrlid String ls_s_status,ls_s_woodcode,ls_s_pcode Decimal ld_s_soncale,ld_s_soncale_fm If arg_scllflag = 1 And ifpackpro_mtrl = 2 Then cnt = 0 Select count(*) Into :cnt From u_OrderRqMtrl_tree,u_mtrldef Where ( u_OrderRqMtrl_tree.MtrlID = u_mtrldef.mtrlid ) And ( u_OrderRqMtrl_tree.scid = :arg_scid ) And ( u_OrderRqMtrl_tree.OrderID = :arg_orderid ) And ( u_OrderRqMtrl_tree.lp = 1 ) And ( u_mtrldef.ifpack > 0 ) And ( u_OrderRqMtrl_tree.ifchanged = 1 ); If sqlca.SQLCode <> 0 Then arg_msg = '查询主生产计划是否有换包件失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then ds_ch_pack.Retrieve(arg_scid,arg_orderid) If ds_ch_pack.RowCount() > 0 Then Delete From u_saletaskmx_pf Where scid = :arg_scid And taskid = :taskid And printid = :taskmxid; If sqlca.SQLCode <> 0 Then arg_msg = '主生产计划对应销售订单明细删除包件清单明细失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If For k = 1 To ds_ch_pack.RowCount() ll_s_mtrlid = ds_ch_pack.Object.u_orderrqmtrl_tree_mtrlid[k] ls_s_status = ds_ch_pack.Object.u_orderrqmtrl_tree_status[k] ls_s_woodcode = ds_ch_pack.Object.u_orderrqmtrl_tree_woodcode[k] ls_s_pcode = ds_ch_pack.Object.u_orderrqmtrl_tree_pcode[k] ld_s_soncale = ds_ch_pack.Object.u_orderrqmtrl_tree_rqqty[k] ld_s_soncale_fm = orderqty Insert Into u_saletaskmx_pf (scid,taskid,printid,mtrlid,sonmtrlid,status,woodcode,pcode,Sonscale,Sonscale_fm) Values(:arg_scid,:taskid,:taskmxid,:MtrlID,:ll_s_mtrlid,:ls_s_status,:ls_s_woodcode,:ls_s_pcode,:ld_s_soncale,:ld_s_soncale_fm); If sqlca.SQLCode <> 0 Then arg_msg = '新建主生产计划对应销售订单明细包件清单失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Next End If End If End If ext: If rslt = 0 Then Rollback; p_reset() ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Destroy uo_rqbuy Destroy uo_wfjg Destroy uo_ml Destroy ds_reqmtrl Destroy ds_wfjg Destroy ds_ch_pack Return rslt end function public function integer caudit_scll (long arg_scid, long arg_orderid, integer arg_scllflag, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt Long ll_orderid_arr[] Long ll_mxbt = 1,ll_i Int li_status IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_order_ml_scll_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[065]生产计划用料二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_autocreate_buy = -1000 THEN rslt = 0 arg_msg = '选项:[054]生产计划审核自动建立申购单,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_autocreate_wfjg = -1000 THEN rslt = 0 arg_msg = '选项:[068]生产计划审核自动建立外协申请单,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_scllaudit_autobuild = -1000 THEN rslt = 0 arg_msg = '选项:[234]主生产计划用料审核自动生成相关指令单及派工单,读取初始默认值失败,操作取消!' GOTO ext END IF uo_requestbuy uo_rqbuy uo_rqbuy = Create uo_requestbuy uo_request_wfjg uo_wfjg uo_wfjg = Create uo_request_wfjg uo_wfjg.commit_transaction = sqlca uo_order_ml uo_ml uo_ml = Create uo_order_ml DateTime null_dt SetNull(null_dt) IF arg_orderid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 THEN rslt = 0 arg_msg = "计划只有在在进行状态才可以执行用料撤审,请核对" GOTO ext END IF IF uo_option_order_ml_scll_secaudit = 0 THEN IF scllflag = 0 THEN rslt = 0 arg_msg = "计划还未执行用料审批,请核对" GOTO ext END IF ELSE IF arg_scllflag = 1 THEN IF scllflag = 0 THEN rslt = 0 arg_msg = "计划还未执行用料初审,请核对" GOTO ext END IF IF scllsecflag = 1 THEN rslt = 0 arg_msg = "计划已执行用料终审,请核对" GOTO ext END IF ELSE IF scllsecflag = 0 THEN rslt = 0 arg_msg = "计划还未执行用料终审,请核对" GOTO ext END IF END IF END IF //检查是否已开指令单 IF ordertype <> 4 And uo_option_scllaudit_autobuild = 0 THEN IF uof_check_if_zl(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF // IF uo_option_order_ml_scll_secaudit = 0 THEN UPDATE u_order_ml SET scllemp = '', sclldate = :null_dt, scllflag = 0, scllsecemp = '', scllsecdate = :null_dt, scllsecflag = 0 WHERE orderid = :arg_orderid AND scid = :scid AND scllflag = 1 AND scllsecflag = 1 And status = 1; ELSE IF arg_scllflag = 1 THEN UPDATE u_order_ml SET scllemp = '', sclldate = :null_dt, scllflag = 0 WHERE orderid = :arg_orderid AND scid = :scid AND scllflag = 1 AND scllsecflag = 0 And status = 1; ELSE UPDATE u_order_ml SET scllsecemp = '', scllsecdate = :null_dt, scllsecflag = 0 WHERE orderid = :arg_orderid AND scid = :scid AND scllflag = 1 AND scllsecflag = 1 And status = 1; END IF END IF IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新计划用料审批标记失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF uo_option_order_ml_scll_secaudit = 0 Or & uo_option_order_ml_scll_secaudit = 1 And arg_scllflag = 2 THEN cnt = 0 IF relrqbuyid > 0 THEN SELECT count(*) INTO :cnt FROM u_requestbuy WHERE scid = :scid AND requestbuyid = :relrqbuyid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关申购单是否存在失败,'+sqlca.SQLErrText GOTO ext END IF END IF IF uo_option_autocreate_buy = 1 And cnt > 0 THEN IF uo_rqbuy.caudit_2(scid,relrqbuyid,0,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF uo_rqbuy.caudit(scid,relrqbuyid,0,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF uo_rqbuy.del(scid,relrqbuyid,0,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF cnt = 0 IF relrqwfjgid > 0 THEN SELECT count(*) INTO :cnt FROM u_request_wfjg WHERE scid = :scid AND wfjgid = :relrqwfjgid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关外协申请单是否存在失败,'+sqlca.SQLErrText GOTO ext END IF END IF IF uo_option_autocreate_wfjg = 1 And cnt > 0 THEN IF uo_wfjg.caudit_2(scid,relrqwfjgid,0,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF uo_wfjg.caudit(scid,relrqwfjgid,0,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF uo_wfjg.Cancel(scid,relrqwfjgid,0,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF //检查是否已开材料申购单,外协申请单 IF ordertype <> 4 THEN IF uof_check_if_rbuy(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uof_check_if_wfjg(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF UPDATE u_order_ml SET relrqwfjgid = 0, relrqwfjgcode = '', relrqbuyid = 0, relrqbuycode = '' WHERE orderid = :arg_orderid And scid = :scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新相关申购单信息失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF uo_option_scllaudit_autobuild <> 0 And ordertype <> 4 THEN IF uof_delete_order_plan_tech(arg_scid,arg_orderid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF DECLARE cur_porder CURSOR FOR SELECT orderid FROM u_order_ml WHERE porderid = :arg_orderid AND scid = :arg_scid And pzlorderid = 0; OPEN cur_porder; FETCH cur_porder Into :ll_orderid_arr[ll_mxbt]; DO WHILE sqlca.SQLCode = 0 ll_mxbt++ FETCH cur_porder Into :ll_orderid_arr[ll_mxbt]; LOOP CLOSE cur_porder; ll_mxbt = ll_mxbt - 1 FOR ll_i = 1 To ll_mxbt IF uo_ml.uof_delete_order_plan_tech(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF SELECT status INTO :li_status FROM u_order_ml WHERE scid = :arg_scid And orderid = :ll_orderid_arr[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关指令单状态失败,id:'+String(ll_orderid_arr[ll_i])+','+arg_msg GOTO ext END IF IF li_status = 1 THEN IF uo_ml.c_sec_audit(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '撤审相关生产指令单失败,id:'+String(ll_orderid_arr[ll_i])+','+arg_msg GOTO ext END IF END IF SELECT status INTO :li_status FROM u_order_ml WHERE scid = :arg_scid And orderid = :ll_orderid_arr[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关指令单状态失败,id:'+String(ll_orderid_arr[ll_i])+','+arg_msg GOTO ext END IF IF li_status = 4 THEN IF uo_ml.c_plan_audit(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '撤审相关生产指令单失败,id:'+String(ll_orderid_arr[ll_i])+','+arg_msg GOTO ext END IF END IF SELECT status INTO :li_status FROM u_order_ml WHERE scid = :arg_scid And orderid = :ll_orderid_arr[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关指令单状态失败,id:'+String(ll_orderid_arr[ll_i])+','+arg_msg GOTO ext END IF IF li_status = 7 THEN IF uo_ml.c_audit(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '撤审相关生产指令单失败,id:'+String(ll_orderid_arr[ll_i])+','+arg_msg GOTO ext END IF END IF IF uo_ml.del(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '删除相关生产指令单失败,id:'+String(ll_orderid_arr[ll_i])+','+arg_msg GOTO ext END IF NEXT END IF UPDATE u_order_ml SET u_order_ml.plan_flag = 0 WHERE u_order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新主生产计划排程标记失败,'+sqlca.SQLErrText GOTO ext END IF //删进仓计划 DELETE FROM u_order_zl_planmx WHERE u_order_zl_planmx.orderid = :arg_orderid And u_order_zl_planmx.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除生产计划进仓计划操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF //个性包件产品如果有换包件则更新到订单包件明细 //IF arg_scllflag = 1 And ifpackpro_mtrl = 2 THEN // DELETE FROM u_saletaskmx_pf // WHERE scid = :arg_scid // AND taskid = :taskid // And printid = :taskmxid; // IF sqlca.SQLCode <> 0 THEN // arg_msg = '删除主生产计划对应销售订单明细包件清单失败,'+sqlca.SQLErrText // rslt = 0 // GOTO ext // END IF //END IF ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF Destroy uo_rqbuy Destroy uo_wfjg Destroy uo_ml RETURN rslt end function public function integer uof_check_if_zl (long arg_scid, long arg_orderid, ref string arg_msg);Int rslt = 1 Long cnt cnt = 0 SELECT count(*) INTO :cnt FROM u_Order_ml INNER JOIN u_order_ml_mx ON u_Order_ml.scid = u_order_ml_mx.scid AND u_Order_ml.OrderID = u_order_ml_mx.orderid WHERE u_order_ml_mx.scid = :arg_scid AND u_order_ml_mx.taskid = :arg_orderid AND u_Order_ml.ordertype = 4 and u_order_ml.pzlorderid = 0 ; IF sqlca.SQLCode <> 0 THEN arg_msg = '检查生产计划是否已开指令单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF IsNull(cnt) THEN cnt = 0 IF cnt > 0 THEN arg_msg = '生产计划已开指令单,不能撤审或修改用料' rslt = 0 GOTO ext END IF ext: RETURN rslt end function public function integer uof_get_scllflag (long arg_scid, long arg_orderid, ref integer arg_scllflag, ref string arg_msg);Int rslt = 1 int li_scllflag SELECT scllflag INTO :li_scllflag FROM u_order_ml WHERE scid = :arg_scid AND orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '检查生产计划是否已用料审失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF arg_scllflag = li_scllflag ext: RETURN rslt end function public function integer uof_check_if_rbuy (long arg_scid, long arg_orderid, ref string arg_msg);Int rslt = 1 Long cnt cnt = 0 SELECT count(*) INTO :cnt FROM u_requestbuymx,u_requestbuy WHERE u_requestbuymx.scid = :arg_scid AND u_requestbuymx.orderid = :arg_orderid and u_requestbuymx.scid = u_requestbuy.scid and u_requestbuymx.requestbuyid = u_requestbuy.requestbuyid and u_requestbuy.billtype = 0 ; IF sqlca.SQLCode <> 0 THEN arg_msg = '检查生产计划是否已开材料申购单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF IsNull(cnt) THEN cnt = 0 IF cnt > 0 THEN arg_msg = '生产计划已开材料申购单,不能撤审或修改用料' rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_requestbuymxmx,u_requestbuy WHERE u_requestbuymxmx.scid = :arg_scid AND u_requestbuymxmx.orderid = :arg_orderid and u_requestbuymxmx.scid = u_requestbuy.scid and u_requestbuymxmx.requestbuyid = u_requestbuy.requestbuyid and u_requestbuy.billtype = 0 ; IF sqlca.SQLCode <> 0 THEN arg_msg = '检查生产计划是否已开材料申购单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF IsNull(cnt) THEN cnt = 0 IF cnt > 0 THEN arg_msg = '生产计划已开材料申购单,不能撤审或修改用料' rslt = 0 GOTO ext END IF ext: RETURN rslt end function public function integer uof_check_if_wfjg (long arg_scid, long arg_orderid, ref string arg_msg);Int rslt = 1 Long cnt cnt = 0 SELECT count(*) INTO :cnt FROM u_request_wfjgMx WHERE u_request_wfjgMx.scid = :arg_scid AND u_request_wfjgMx.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '检查生产计划是否已开外协申请单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF IsNull(cnt) THEN cnt = 0 IF cnt > 0 THEN arg_msg = '生产计划已开外协申请单,不能撤审或修改用料' rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_request_wfjgMxmx WHERE u_request_wfjgMxmx.scid = :arg_scid AND u_request_wfjgMxmx.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '检查生产计划是否已开外协申请单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF IsNull(cnt) THEN cnt = 0 IF cnt > 0 THEN arg_msg = '生产计划已开外协申请单,不能撤审或修改用料' rslt = 0 GOTO ext END IF ext: RETURN rslt end function public function integer f_add_conpfqty (long arg_scid, long arg_orderid, decimal arg_pfqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_orderqty,ld_conpfqty SELECT orderqty,conpfqty INTO :ld_orderqty,:ld_conpfqty FROM u_order_ml WHERE scid = :arg_scid AND orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询部件生产计划相关信息失败'+sqlca.SQLErrText GOTO ext END IF IF arg_pfqty > ld_orderqty - ld_conpfqty THEN rslt = 0 arg_msg = '部件生产计划未分配数量只有:'+String( ld_orderqty - ld_conpfqty,'#,##0.0###')+',不能再分配:'+String(arg_pfqty,'#,##0.0###') GOTO ext END IF UPDATE u_order_ml SET conpfqty = conpfqty + :arg_pfqty WHERE scid = :arg_scid AND orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新部件生产计划已分配数量失败'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer f_add_rqbuyqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_plantype, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_mtrlkind Decimal ld_consignedqty,ld_truerqqty,ld_adddec IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误的计划唯一码' GOTO ext END IF IF arg_mtrlid <= 0 THEN rslt = 0 arg_msg = '错误的物料唯一码' GOTO ext END IF SELECT mtrlkind,adddec INTO :li_mtrlkind,:ld_adddec FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '物料:'+arg_mtrlcode+'查询MRP属性失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_mtrlkind = 1 THEN rslt = 1 GOTO ext END IF SELECT rqbuyqty, truerqqty INTO :ld_consignedqty, :ld_truerqqty FROM u_OrderRqMtrl WHERE orderid = :arg_orderid AND wrkGrpid = :arg_wrkGrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid and plantype = :arg_plantype; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+arg_mtrlcode+'计划已申购数(申请)数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF IsNull(ld_consignedqty) THEN ld_consignedqty = 0 IF IsNull(ld_truerqqty) THEN ld_truerqqty = 0 IF ld_consignedqty + arg_qty > ld_truerqqty + ld_adddec THEN arg_msg = '物料:'+arg_mtrlcode+'未安排申购(申请)只有:'+String(ld_truerqqty - ld_consignedqty,'#,#0.0#########')+',不能安排:'+String(arg_qty,'#,#0.0#########') rslt = 0 GOTO ext END IF UPDATE u_OrderRqMtrl SET rqbuyqty = rqbuyqty + :arg_qty WHERE orderid = :arg_orderid AND wrkGrpid = :arg_wrkGrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid and plantype = :arg_plantype; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN arg_msg = '更新物料:'+arg_mtrlcode + '需求申购(申请)明细失败(更新行数 = 0),'+sqlca.SQLErrText rslt = 0 GOTO ext ELSEIF sqlca.SQLNRows > 1 THEN arg_msg = '更新物料:'+arg_mtrlcode + '需求申购(申请)明细失败(更新行数 > 1),'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ELSE rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+'已申购(申请)数量失败,'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer f_assign_rqmtrlqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, integer arg_plantype, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_mtrlkind Long i String ls_ordercode DateTime ldt_rqdate,ldt_edate Decimal ld_consignedqty,ld_truerqqty,ld_uprate,ld_upqty Decimal ld_updateqty,ld_oriqty Boolean lb_ifcheck = True IF uo_option_requestbuy_hz = -1000 THEN rslt = 0 arg_msg = '选项:[111]申购单汇总采购,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_requestwfjg_hz = -1000 THEN rslt = 0 arg_msg = '选项:[121]外协申请单汇总外协,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_zlmtrlchange_wx_update_rqwfjg = -1000 THEN rslt = 0 arg_msg = '选项:[333]指令单外协物料换料单更新外协申请单和外协订单,读取初始默认值失败,操作取消!' GOTO ext END IF datastore ds_update ds_update = Create datastore IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误的计划唯一码' GOTO ext END IF SELECT ordercode INTO :ls_ordercode FROM u_order_ml WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '物料:'+arg_mtrlcode+'查询主生产计划编号失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF arg_mtrlid <= 0 THEN rslt = 0 arg_msg = '错误的物料唯一码' GOTO ext END IF SELECT mtrlkind,uprate , upqty,mtrlcode INTO :li_mtrlkind,:ld_uprate,:ld_upqty,:arg_mtrlcode FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '物料:'+arg_mtrlcode+'查询MRP属性失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_mtrlkind = 1 THEN rslt = 1 GOTO ext END IF SELECT sum(consignedqty), sum(truerqqty) INTO :ld_consignedqty, :ld_truerqqty FROM u_OrderRqMtrl WHERE orderid = :arg_orderid AND wrkGrpid = :arg_wrkGrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid And plantype = :arg_plantype ; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',已安排数失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF IsNull(ld_consignedqty) THEN ld_consignedqty = 0 IF IsNull(ld_truerqqty) THEN ld_truerqqty = 0 IF arg_plantype = 0 Or arg_plantype = 6 THEN lb_ifcheck = True ELSEIF arg_plantype = 2 THEN IF uo_option_requestbuy_hz = 0 THEN lb_ifcheck = True ELSE lb_ifcheck = False END IF ELSEIF arg_plantype = 3 THEN IF uo_option_requestwfjg_hz = 0 THEN IF uo_option_zlmtrlchange_wx_update_rqwfjg = 0 THEN lb_ifcheck = False ELSE lb_ifcheck = True END IF ELSE lb_ifcheck = False END IF END IF IF lb_ifcheck THEN IF arg_qty > 0 THEN IF Not f_power_ind(1405,sys_msg_pow) Or sys_power_issuper THEN IF ld_truerqqty * (1 + ld_uprate) + ld_upqty < (arg_qty + ld_consignedqty) THEN rslt = 0 arg_msg = '物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',需求未安排数只有:'+String(ld_truerqqty - ld_consignedqty,'#,##0.0####' )+',允许订货上限为:'+String(ld_truerqqty * (1 + ld_uprate) + ld_upqty - ld_consignedqty,'#,##0.00##')+',少于本次安排数量:'+String(arg_qty,'#,##0.00##') GOTO ext END IF ELSE IF ld_consignedqty + arg_qty > ld_truerqqty THEN arg_msg = '物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',未安排数只有:'+String(ld_truerqqty - ld_consignedqty,'#,#0.0#')+',不能安排:'+String(arg_qty,'#,#0.0#') rslt = 0 GOTO ext END IF END IF ELSE IF ld_consignedqty < Abs( arg_qty ) THEN arg_msg = '物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',已安排数只有:'+String(ld_consignedqty,'#,#0.0#')+',不能取消安排:'+String(Abs(arg_qty),'#,#0.0#') rslt = 0 GOTO ext END IF END IF END IF IF arg_plantype = 2 And uo_option_requestbuy_hz = 1 THEN IF arg_qty > 0 THEN ds_update.DataObject = 'ds_assign_rqmtrlqty1' ELSE ds_update.DataObject = 'ds_assign_rqmtrlqty2' END IF ds_update.SetTransObject(sqlca) ds_update.Retrieve(arg_scid,arg_orderid,arg_mtrlid,arg_wrkGrpid,arg_status,arg_woodcode,arg_pcode,arg_plantype) IF ds_update.RowCount() = 0 THEN rslt = 1 GOTO ext // arg_msg = '物料:'+arg_mtrlcode +',计划:'+ls_ordercode+',没有需求明细,请检查主生产计划需求明细'+sqlca.SQLErrText // rslt = 0 // GOTO ext END IF IF arg_qty > 0 THEN ld_oriqty = arg_qty FOR i = 1 To ds_update.RowCount() ldt_rqdate = ds_update.Object.rqdate[i] ldt_edate = ds_update.Object.edate[i] IF ld_oriqty > ds_update.Object.notconsignedqty[i] THEN ld_updateqty = ds_update.Object.notconsignedqty[i] ld_oriqty = ld_oriqty - ds_update.Object.notconsignedqty[i] ELSE ld_updateqty = ld_oriqty ld_oriqty = 0 END IF IF i = ds_update.RowCount() THEN //处理超申购特殊情况 IF ld_oriqty > 0 THEN ld_updateqty = ld_updateqty + ld_oriqty ld_oriqty = 0 END IF END IF UPDATE u_OrderRqMtrl SET consignedqty = consignedqty + :ld_updateqty WHERE orderid = :arg_orderid AND wrkGrpid = :arg_wrkGrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid AND plantype = :arg_plantype AND rqdate = :ldt_rqdate And edate = :ldt_edate; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN arg_msg = '更新物料:'+arg_mtrlcode +',计划:'+ls_ordercode+',需求明细失败,(没有找到更新行)' rslt = 0 GOTO ext END IF ELSE rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',已安排数量失败,'+sqlca.SQLErrText GOTO ext END IF NEXT IF ld_oriqty > 0 THEN rslt = 0 arg_msg = '物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',已安排数量更新有更新余数:'+String(ld_oriqty)+',操作取消' GOTO ext END IF ELSE ld_oriqty = Abs(arg_qty) FOR i = 1 To ds_update.RowCount() ldt_rqdate = ds_update.Object.rqdate[i] ldt_edate = ds_update.Object.edate[i] IF ld_oriqty > ds_update.Object.notconsignedqty[i] THEN ld_updateqty = ds_update.Object.notconsignedqty[i] ld_oriqty = ld_oriqty - ds_update.Object.notconsignedqty[i] ELSE ld_updateqty = ld_oriqty ld_oriqty = 0 END IF UPDATE u_OrderRqMtrl SET consignedqty = consignedqty - :ld_updateqty WHERE orderid = :arg_orderid AND wrkGrpid = :arg_wrkGrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid AND plantype = :arg_plantype AND rqdate = :ldt_rqdate And edate = :ldt_edate; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN arg_msg = '更新物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',需求明细失败,(没有找到更新行)' rslt = 0 GOTO ext END IF ELSE rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',已安排数量失败,'+sqlca.SQLErrText GOTO ext END IF NEXT // IF ld_oriqty > 0 THEN // rslt = 0 // arg_msg = '物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',已安排数量更新有更新余数:'+String(ld_oriqty)+',操作取消' // GOTO ext // END IF END IF ELSE UPDATE u_OrderRqMtrl SET consignedqty = consignedqty + :arg_qty WHERE orderid = :arg_orderid AND wrkGrpid = :arg_wrkGrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND scid = :arg_scid And plantype = :arg_plantype; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN arg_msg = '更新物料:'+arg_mtrlcode +',计划:'+ls_ordercode+',需求明细失败,(没有找到更新行)' rslt = 0 GOTO ext END IF ELSE rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+',计划:'+ls_ordercode+',已安排数量失败,'+sqlca.SQLErrText GOTO ext END IF END IF UPDATE u_order_ml SET u_Order_ml.zlflag = isnull(uv_order_zl_flag.flag,0) FROM u_Order_ml LEFT OUTER JOIN uv_order_zl_flag ON u_Order_ml.scid = uv_order_zl_flag.scid AND u_Order_ml.OrderID = uv_order_zl_flag.OrderID WHERE u_order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新相关主生产计划指令单状态失败,'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Destroy ds_update RETURN rslt end function public function integer add_secdscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg); Int rslt = 1 IF arg_newdescppart = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arG_MSG) IF rslt = 0 THEN GOTO ext IF status = 0 THEN rslt = 0 arG_MSG = "待审核状态下不可用" GOTO ext END IF UPDATE u_order_ml SET secdscrp = :arg_newdescppart WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid; IF SQLCA.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致修改计划备注2操作失败"+"~n"+SQLCA.SQLErrText ROLLBACK; GOTO ext END IF secdscrp = arg_newdescppart ext: IF rslt = 1 THEN COMMIT; END IF p_reset() RETURN (rslt) end function public function integer add_thdscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg); Int rslt = 1 IF arg_newdescppart = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arG_MSG) IF rslt = 0 THEN GOTO ext IF status = 0 THEN rslt = 0 arG_MSG = "待审核状态下不可用" GOTO ext END IF UPDATE u_order_ml SET thdscrp = :arg_newdescppart WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid; IF SQLCA.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致修改计划备注3操作失败"+"~n"+SQLCA.SQLErrText ROLLBACK; GOTO ext END IF thdscrp = arg_newdescppart ext: IF rslt = 1 THEN COMMIT; END IF p_reset() RETURN (rslt) end function public function integer uof_tryfinish_packorder (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt rslt = 1 rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext Decimal ld_qty Int li_ifpackpro,li_ifpack,li_pordermtrl_ordertype Long ll_porder_mtrlid DateTime null_dt SetNull(null_dt) Long ll_cnt_zl,ll_cnt_zl_finish Int ll_pack1_finish //如果不是指令单，或者合并指令单的情况不作处理 IF porderid = 0 THEN rslt = 1 GOTO ext END IF SELECT u_mtrldef.ifpackpro,u_mtrldef.ordertype,u_mtrldef.mtrlid INTO :li_ifpackpro,:li_pordermtrl_ordertype,:ll_porder_mtrlid FROM u_mtrldef,u_order_ml WHERE u_mtrldef.mtrlid = u_order_ml.mtrlid AND u_order_ml.orderid = :porderid And u_order_ml.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关主计划产品是否全包件产品失败,'+sqlca.SQLErrText GOTO ext END IF IF li_ifpackpro = 0 THEN //不是全包件产品,退出函数,否则检查主计划相关指令单是否全部完成 rslt = 1 GOTO ext END IF Long ll_cnt,cnt ll_cnt = 0 IF li_ifpackpro = 1 Or li_ifpackpro = 2 THEN SELECT count(*) INTO :ll_cnt FROM u_orderrqmtrl,u_mtrldef WHERE u_orderrqmtrl.mtrlid = u_mtrldef.mtrlid AND u_orderrqmtrl.orderid = :porderid AND u_orderrqmtrl.scid = :arg_scid AND ( u_mtrldef.ifpack = 1 OR u_mtrldef.ifpack = 2 ) And (u_orderrqmtrl.plantype = 0 or u_orderrqmtrl.plantype = 2) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询包件产品主生产计划相关生产需求失败'+sqlca.SQLErrText GOTO ext END IF ELSEIF li_ifpackpro = 3 THEN SELECT count(*) INTO :ll_cnt FROM u_orderrqmtrl,u_order_ml WHERE u_orderrqmtrl.scid = u_order_ml.scid AND u_orderrqmtrl.orderid = u_order_ml.orderid AND u_orderrqmtrl.mtrlid = u_order_ml.mtrlid AND u_orderrqmtrl.orderid = :porderid AND u_orderrqmtrl.scid = :arg_scid And u_orderrqmtrl.plantype = 0 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询组合配置包件产品主生产计划相关生产需求失败'+sqlca.SQLErrText GOTO ext END IF END IF //1.先检查主生产计划自制需求,需求数是否等于用料数,不等即说明有分配库存,跳过判断完成比例 //2.查询相应部件的完成情况,按需求量对比后得出主计划物料的完成数量 IF li_ifpackpro = 1 Or li_ifpackpro = 3 THEN IF ll_cnt > 0 THEN cnt = 0 IF li_ifpackpro = 1 THEN SELECT count(*) INTO :cnt FROM u_orderrqmtrl,u_mtrldef WHERE u_orderrqmtrl.mtrlid = u_mtrldef.mtrlid AND ( u_mtrldef.ifpack = 1 ) AND u_orderrqmtrl.orderid = :porderid AND u_orderrqmtrl.scid = :arg_scid AND u_orderrqmtrl.inqty < u_orderrqmtrl.truerqqty And (u_orderrqmtrl.plantype = 0 or u_orderrqmtrl.plantype = 2) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询包件产品主生产计划相关指令单是否全部完成失败'+sqlca.SQLErrText GOTO ext END IF ELSEIF li_ifpackpro = 3 THEN SELECT count(*) INTO :cnt FROM u_orderrqmtrl,u_order_ml WHERE u_orderrqmtrl.scid = u_order_ml.scid AND u_orderrqmtrl.orderid = u_order_ml.orderid AND u_orderrqmtrl.mtrlid = u_order_ml.mtrlid AND u_orderrqmtrl.orderid = :porderid AND u_orderrqmtrl.scid = :arg_scid AND u_orderrqmtrl.inqty < u_orderrqmtrl.truerqqty And u_orderrqmtrl.plantype = 0 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询组合配置包件产品主生产计划相关指令单是否全部完成失败'+sqlca.SQLErrText GOTO ext END IF END IF IF cnt = 0 THEN //相关自制需求全部完成,更新主生产计划已完成数及状态 UPDATE u_order_ml SET status = 5, accomplishdate = getdate(), accomplishemp = :publ_operator, acmpqty = orderqty WHERE ( u_order_ml.orderid = :porderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致生产计划完成状态设置操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF //更新分离排产包件产品指令完成数 IF li_ifpackpro = 1 And li_pordermtrl_ordertype = 1 THEN UPDATE u_order_ml SET status = 5, accomplishdate = getdate(), accomplishemp = :publ_operator, acmpqty = orderqty FROM u_order_ml WHERE (u_order_ml.scid = :arg_scid) AND (u_order_ml.porderid = :porderid) And (u_order_ml.mtrlid = :ll_porder_mtrlid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新包件产品主生产计划对应【指令单分离】相关对应产品指令单状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF ELSE //如果没有全部完成,则取自制需求的最小完成率去计算主生产计划的完成数 Decimal ld_minrate IF li_ifpackpro = 1 THEN SELECT min(inqty / truerqqty) INTO :ld_minrate FROM u_orderrqmtrl,u_mtrldef WHERE u_orderrqmtrl.mtrlid = u_mtrldef.mtrlid AND u_orderrqmtrl.orderid = :porderid AND u_orderrqmtrl.scid = :arg_scid AND ( u_mtrldef.ifpack = 1 ) AND (u_orderrqmtrl.plantype = 0 or u_orderrqmtrl.plantype = 2) And u_orderrqmtrl.truerqqty > 0 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关包件产品主生产计划自制需求完成率失败'+"~n"+sqlca.SQLErrText GOTO ext END IF ElseIf ( li_ifpackpro = 3 ) THEN SELECT min(inqty / truerqqty) INTO :ld_minrate FROM u_orderrqmtrl,u_order_ml WHERE u_orderrqmtrl.scid = u_order_ml.scid AND u_orderrqmtrl.orderid = u_order_ml.orderid AND u_orderrqmtrl.mtrlid = u_order_ml.mtrlid AND u_orderrqmtrl.orderid = :porderid AND u_orderrqmtrl.scid = :arg_scid AND u_orderrqmtrl.plantype = 0 And u_orderrqmtrl.truerqqty > 0 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关组合配置包件产品主生产计划自制需求完成率失败'+"~n"+sqlca.SQLErrText GOTO ext END IF END IF UPDATE u_order_ml SET status = 1, accomplishdate = :null_dt, accomplishemp = '', acmpqty = orderqty * :ld_minrate WHERE ( u_order_ml.orderid = :porderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新包件产品主生产计划状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF //更新分离排产包件产品指令完成数 IF li_ifpackpro = 1 And li_pordermtrl_ordertype = 1 THEN UPDATE u_order_ml SET status = 1, accomplishdate = :null_dt, accomplishemp = '', acmpqty = orderqty * :ld_minrate WHERE (u_order_ml.scid = :arg_scid) AND (u_order_ml.porderid = :porderid) And (u_order_ml.mtrlid = :ll_porder_mtrlid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新包件产品主生产计划对应【指令单分离】相关对应产品指令单状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF END IF END IF ELSE //1.先检查主生产计划自制需求,需求数是否等于用料数,不等即说明有分配库存,跳过判断完成比例 //2.查询相应部件的完成情况,按需求量对比后得出主计划物料的完成数量 SELECT count(*) INTO :ll_cnt_zl FROM u_order_ml,u_mtrldef WHERE (u_order_ml.mtrlid = u_mtrldef.mtrlid) AND ( u_order_ml.porderid = :porderid ) AND ( u_order_ml.scid = :arg_scid ) AND ( u_order_ml.pzlorderid > 0 ) And ( u_mtrldef.ifpack = 2 ); IF sqlca.SQLCode <> 0 THEN arg_msg = '查询包件产品主生产计划个性包件指令状态失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_cnt_zl = 0 THEN arg_msg = '错误的个性包件指令数量,请检查' rslt = 0 GOTO ext END IF SELECT count(*) INTO :cnt FROM u_order_ml WHERE u_order_ml.pzlorderid = :pzlorderid AND u_order_ml.scid = :arg_scid AND u_order_ml.AcmpQty < u_order_ml.orderqty - u_order_ml.stopqty And u_order_ml.ordertype = 4; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询个性包件产品主生产计划【分离指令】相关个性包件指令是否全部完成或终止失败'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN //相关自制需求全部完成,更新主生产计划已完成数及状态 IF pzlorderid = 0 THEN UPDATE u_order_ml SET status = 5, accomplishdate = getdate(), accomplishemp = :publ_operator, acmpqty = orderqty WHERE ( u_order_ml.porderid = :porderid ) AND (u_order_ml.scid = :arg_scid) And (u_order_ml.mtrlid = :ll_porder_mtrlid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "通用包件指令更新个性包件产品主生产计划【分离指令】完成状态失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ELSE UPDATE u_order_ml SET status = 5, accomplishdate = getdate(), accomplishemp = :publ_operator, acmpqty = orderqty WHERE ( u_order_ml.orderid = :pzlorderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "个性包件指令更新个性包件产品主生产计划【分离指令】完成状态失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF ELSE //如果没有全部完成,则取自制需求的最小完成率去计算主生产计划的完成数 IF pzlorderid > 0 THEN SELECT min(AcmpQty/orderqty) INTO :ld_minrate FROM u_order_ml WHERE u_order_ml.pzlorderid = :pzlorderid AND u_order_ml.scid = :arg_scid And u_order_ml.ordertype = 4; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询个性包件产品主生产计划【分离指令】相关个性包件指令完成率失败'+"~n"+sqlca.SQLErrText GOTO ext END IF UPDATE u_order_ml SET status = 1, accomplishdate = :null_dt, accomplishemp = '', acmpqty = orderqty * :ld_minrate WHERE ( u_order_ml.orderid = :pzlorderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新个性包件产品主生产计划【分离指令】完成状态失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF END IF IF ll_cnt > 0 THEN IF uo_option_packpro2_not_use_pack1 = 1 THEN ll_pack1_finish = 1 ELSE cnt = 0 SELECT count(*) INTO :cnt FROM u_orderrqmtrl,u_mtrldef WHERE u_orderrqmtrl.mtrlid = u_mtrldef.mtrlid AND ( u_mtrldef.ifpack = 1 ) AND u_orderrqmtrl.orderid = :porderid AND u_orderrqmtrl.scid = :arg_scid AND u_orderrqmtrl.inqty < u_orderrqmtrl.truerqqty AND u_orderrqmtrl.plantype = 0 And u_mtrldef.ifpack = 1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询个性包件产品主生产计划自制需求通用包件是否全部完成失败'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN ll_pack1_finish = 0 ELSE ll_pack1_finish = 1 END IF END IF ELSE ll_pack1_finish = 1 END IF ld_qty = 0 SELECT isnull(sum(AcmpQty),0) INTO :ld_qty FROM u_order_ml WHERE u_order_ml.porderid = :porderid AND u_order_ml.ordertype = 4 AND u_order_ml.pzlorderid = 0 And u_order_ml.mtrlid = :ll_porder_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关相关个性包件产品主生产计划【分离指令】完成数失败'+"~n"+sqlca.SQLErrText GOTO ext END IF UPDATE u_order_ml SET status = case when :ll_pack1_finish = 1 AND u_order_ml.orderqty - u_order_ml.stopqty = :ld_qty then 5 else 1 END, accomplishdate = case when :ll_pack1_finish = 1 AND u_order_ml.orderqty - u_order_ml.stopqty = :ld_qty then getdate() else :null_dt END, accomplishemp = case when :ll_pack1_finish = 1 AND u_order_ml.orderqty - u_order_ml.stopqty = :ld_qty then :publ_operator else '' END, acmpqty = :ld_qty WHERE ( u_order_ml.orderid = :porderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新个性包件产品主生产计划完成状态失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer mod_perfinishdate (long arg_scid, long arg_orderid, datetime arg_oridate, datetime arg_newdate, string arg_reason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 DateTime server_dt IF p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF Date(arg_oridate) = Date(arg_newdate) THEN rslt = 0 arg_msg = '新预计完成日期与原日期相同,无须更新,操作取消' GOTO ext END IF IF Date(arg_newdate) < Date(orderdate) THEN rslt = 0 arg_msg = '不合理的新预计完成日期(新预计完成日期早于生产计划日期)' GOTO ext END IF arg_reason = Trim(arg_reason) Long cnt Long ll_printid cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml_perfinishdate_log WHERE scid = :arg_scid AND orderid = :arg_orderid and logtype = 0 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询预计完成日期修改日志失败'+'~n'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN ll_printid = 0 ELSE SELECT max(printid) INTO :ll_printid FROM u_order_ml_perfinishdate_log WHERE scid = :arg_scid AND orderid = :arg_orderid and logtype = 0 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询预计完成日期修改日志失败'+'~n'+sqlca.SQLErrText GOTO ext END IF END IF ll_printid++ SELECT Top 1 getdate() INTO :server_dt FROM u_user ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF INSERT INTO u_order_ml_perfinishdate_log (scid, orderid, printid, logtype, oridate, newdate, reason, modemp, moddate) VALUES (:arg_scid, :arg_orderid, :ll_printid, 0, :arg_oridate, :arg_newdate, :arg_reason, :publ_operator, :server_dt); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入预计完成日期修改日志操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF UPDATE u_order_ml SET perfinishdate = :arg_newdate WHERE scid = :arg_scid AND orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新预计完成日期失败'+'~n'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT; END IF Return(rslt) end function public function integer f_add_dstrqty_ws (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_noallocqty, decimal arg_allocqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_ordertype Long cnt Long ll_taskid[] Decimal ld_qty_tmp,ld_rqqty_tmp,ld_dstrqty_tmp,ld_update_qty Long ll_porderid Long i Boolean lb_iffind Long ll_i,ll_cnt Long ll_issuliao Long ll_wrkGrpid,ll_storageid Decimal ld_price IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误的指令单唯一码' GOTO ext END IF IF arg_wrkGrpid <= 0 THEN rslt = 0 arg_msg = '错误的工作组唯一码' GOTO ext END IF IF arg_mtrlid <= 0 THEN rslt = 0 arg_msg = '错误的物料唯一码' GOTO ext END IF SELECT issuliao INTO :ll_issuliao FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料领料属性失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_issuliao = 2 Or ll_issuliao = 3 THEN Decimal ld_slscllweight,ld_orderweight UPDATE u_order_ml SET slscllweight = slscllweight + :arg_noallocqty FROM u_order_ml WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新塑料领料总重失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF SELECT wrkGrpid INTO :ll_wrkGrpid FROM u_order_ml WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单所属车间失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF SELECT u_sc_wkp.storageid INTO :ll_storageid FROM u_storage,u_sc_wkp WHERE u_sc_wkp.wrkgrpid = :ll_wrkgrpid And u_sc_wkp.storageid = u_storage.storageid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询车间对应仓库属性失败'+sqlca.SQLErrText rslt = 0 GOTO ext END IF SELECT top 1 u_mtrlware.cost INTO :ld_price FROM u_mtrlware,u_mtrldef WHERE u_mtrlware.storageid = :ll_storageid AND u_mtrlware.mtrlid = :arg_mtrlid AND u_mtrlware.status = :arg_status AND u_mtrlware.woodcode = :arg_woodcode AND u_mtrlware.pcode = :arg_pcode And u_mtrlware.mtrlid = u_mtrldef.mtrlid; IF sqlca.SQLCode <> 0 THEN // arg_msg = '查询库存成本价失败,'+string(arg_mtrlid)+sqlca.SQLErrText // rslt = 0 // GOTO ext ld_price = 0 END IF IF IsNull(ld_price) THEN ld_price = 0 UPDATE u_orderrqmtrl_scll SET DstrQty = DstrQty + :arg_noallocqty, wsdstrqty = wsdstrqty + :arg_noallocqty + :arg_allocqty, costamt = costamt + :arg_noallocqty * :ld_price WHERE orderid = :arg_orderid AND mtrlid = :arg_mtrlid AND wrkGrpid = :arg_wrkGrpid AND scid = :arg_scid AND status = :arg_status AND woodcode = :arg_woodcode And pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml_mx WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询计划明细失败,'+sqlca.SQLErrText GOTO ext END IF SELECT ordertype,porderid INTO :li_ordertype,:ll_porderid FROM u_order_ml WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产计划资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 1 THEN IF li_ordertype = 4 And ll_porderid = 0 THEN arg_msg = '错误的计划资料,计划类型为指令单,但没有上级生产计划' rslt = 0 GOTO ext END IF ELSE IF li_ordertype = 4 THEN IF arg_noallocqty > 0 THEN DECLARE cur_mx CURSOR FOR SELECT taskid FROM u_order_ml_mx WHERE scid = :arg_scid AND orderid = :arg_orderid Order By taskid ; OPEN cur_mx ; FETCH cur_mx Into :ll_taskid[i]; DO WHILE sqlca.SQLCode = 0 i++ FETCH cur_mx Into :ll_taskid[i]; LOOP CLOSE cur_mx; ELSE DECLARE cur_mx_2 CURSOR FOR SELECT taskid FROM u_order_ml_mx WHERE scid = :arg_scid AND orderid = :arg_orderid Order By taskid Desc; OPEN cur_mx_2 ; FETCH cur_mx_2 Into :ll_taskid[i]; DO WHILE sqlca.SQLCode = 0 i++ FETCH cur_mx_2 Into :ll_taskid[i]; LOOP CLOSE cur_mx_2; END IF END IF END IF //更新需求表 Long ll_orderid_update IF cnt = 1 THEN IF li_ordertype = 4 THEN ll_orderid_update = ll_porderid ELSE ll_orderid_update = arg_orderid END IF UPDATE u_orderrqmtrl SET DstrQty = DstrQty + :arg_noallocqty WHERE orderid = :ll_orderid_update AND mtrlid = :arg_mtrlid AND wrkGrpid = :arg_wrkgrpid AND scid = :arg_scid AND status = :arg_status AND woodcode = :arg_woodcode And pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText GOTO ext END IF ELSE IF li_ordertype <> 4 THEN //如果是主计划,直接更新 UPDATE u_orderrqmtrl SET DstrQty = DstrQty + :arg_noallocqty WHERE orderid = :arg_orderid AND mtrlid = :arg_mtrlid AND wrkGrpid = :arg_wrkgrpid AND scid = :arg_scid AND status = :arg_status AND woodcode = :arg_woodcode And pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText GOTO ext END IF ELSE ld_qty_tmp = arg_noallocqty lb_iffind = False FOR ll_i = 1 To cnt ll_cnt = 0 SELECT count(*) INTO :ll_cnt FROM u_orderrqmtrl WHERE orderid = :ll_taskid[ll_i] AND mtrlid = :arg_mtrlid AND wrkGrpid = :arg_wrkgrpid AND scid = :arg_scid AND status = :arg_status AND woodcode = :arg_woodcode And pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText GOTO ext END IF IF ll_cnt = 0 THEN IF ll_i = cnt And lb_iffind = False THEN rslt = 0 arg_msg = '查询物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText GOTO ext ELSE CONTINUE END IF ELSE lb_iffind = True END IF SELECT rqqty,DstrQty INTO :ld_rqqty_tmp,:ld_dstrqty_tmp FROM u_orderrqmtrl WHERE orderid = :ll_taskid[ll_i] AND mtrlid = :arg_mtrlid AND wrkGrpid = :arg_wrkgrpid AND scid = :arg_scid AND status = :arg_status AND woodcode = :arg_woodcode And pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText GOTO ext END IF IF arg_noallocqty > 0 THEN //领料单审核 IF ld_qty_tmp > ld_rqqty_tmp - ld_dstrqty_tmp THEN IF ll_i = cnt THEN ld_update_qty = ld_qty_tmp ld_qty_tmp = 0 ELSE ld_update_qty = ld_rqqty_tmp - ld_dstrqty_tmp ld_qty_tmp = ld_qty_tmp - (ld_rqqty_tmp - ld_dstrqty_tmp) END IF ELSE ld_update_qty = ld_qty_tmp ld_qty_tmp = 0 END IF ELSEIF arg_noallocqty < 0 THEN //领料单撤审 IF 0 - ld_qty_tmp > ld_dstrqty_tmp THEN IF ll_i = cnt THEN ld_update_qty = 0 - ld_dstrqty_tmp ld_qty_tmp = 0 ELSE ld_update_qty = 0 - ld_dstrqty_tmp ld_qty_tmp = ld_qty_tmp + ld_dstrqty_tmp END IF ELSE ld_update_qty = ld_qty_tmp ld_qty_tmp = 0 END IF END IF UPDATE u_orderrqmtrl SET DstrQty = DstrQty + :ld_update_qty WHERE orderid = :ll_taskid[ll_i] AND mtrlid = :arg_mtrlid AND wrkGrpid = :arg_wrkgrpid AND scid = :arg_scid AND status = :arg_status AND woodcode = :arg_woodcode And pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText GOTO ext END IF IF ld_qty_tmp = 0 THEN EXIT NEXT END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer f_add_dstrqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, decimal arg_costamt, ref string arg_msg, boolean arg_ifcommit, long arg_relint_1, ref decimal arg_overqty);Int rslt = 1 Long ll_wrkgrpid,ll_porderid Decimal ld_rqqty,ld_dstrqty Int li_ordertype Long cnt Long ll_taskid[] String ls_taskcode[] Long i = 1 Long ll_i Decimal ld_qty_tmp,ld_rqqty_tmp,ld_dstrqty_tmp,ld_update_qty Long ll_cnt Boolean lb_iffind = False Decimal ld_update_qty_scll,ld_update_amt_scll Long ll_mtrlkind,ll_issuliao Decimal ld_scllrate,ld_scllqty String ls_ordercode,ls_pordercode If uo_option_scll_back_check = -1000 Then rslt = 0 arg_msg = '选项:[379]退料单检查允许退料数量,读取初始默认值失败,操作取消!' Goto ext End If it_mx_rq = 0 ins_s_rqmtrl = ins_s_empty If arg_orderid <= 0 Then rslt = 0 arg_msg = '错误的计划唯一码' Goto ext End If cnt = 0 Select count(*) Into :cnt From u_order_ml_mx Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询计划明细失败,'+sqlca.SQLErrText Goto ext End If Select ordertype,porderid,ordercode,pordercode Into :li_ordertype,:ll_porderid,:ls_ordercode,:ls_pordercode From u_order_ml Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then arg_msg = '查询生产计划资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt = 1 Then If li_ordertype = 4 And ll_porderid = 0 Then arg_msg = '错误的计划资料,计划类型为指令单,但没有上级生产计划' rslt = 0 Goto ext End If Else If li_ordertype = 4 Then If arg_qty > 0 Then Declare cur_mx Cursor For Select taskid,taskcode From u_order_ml_mx Where scid = :arg_scid And orderid = :arg_orderid Order By taskid ; Open cur_mx ; Fetch cur_mx Into :ll_taskid[i],:ls_taskcode[i]; Do While sqlca.SQLCode = 0 i++ Fetch cur_mx Into :ll_taskid[i],:ls_taskcode[i]; Loop Close cur_mx; Else Declare cur_mx_2 Cursor For Select taskid,taskcode From u_order_ml_mx Where scid = :arg_scid And orderid = :arg_orderid Order By taskid Desc; Open cur_mx_2 ; Fetch cur_mx_2 Into :ll_taskid[i],:ls_taskcode[i]; Do While sqlca.SQLCode = 0 i++ Fetch cur_mx_2 Into :ll_taskid[i],:ls_taskcode[i]; Loop Close cur_mx_2; End If End If End If //后面增加top 1 处理 2013.06.18 //If arg_wrkGrpid <= 0 Then // rslt = 0 // arg_msg = '错误的工作中心唯一码' // Goto ext //End If If arg_mtrlid <= 0 Then rslt = 0 arg_msg = '错误的物料唯一码' Goto ext End If Select mtrlkind, issuliao, scllrate, scllqty Into :ll_mtrlkind, :ll_issuliao, :ld_scllrate, :ld_scllqty From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '指令单:'+ls_ordercode+'查询物料领料属性失败,ID'+String(arg_mtrlid) +' ' +sqlca.SQLErrText rslt = 0 Goto ext End If //后面增加top 1 处理 2013.06.18 If arg_wrkGrpid > 0 Then Select wrkGrpid Into :ll_wrkgrpid From u_workgroup Where workgroupid = :arg_wrkGrpid; If sqlca.SQLCode <> 0 Then arg_msg = '指令单:'+ls_ordercode+'查询工作中心所属工组失败,ID:'+String(arg_wrkGrpid) +' ' +sqlca.SQLErrText rslt = 0 Goto ext End If Else ll_wrkgrpid = 0 End If If ll_issuliao = 2 Or ll_issuliao = 3 Then Decimal ld_slscllweight,ld_orderweight Update u_order_ml Set slscllweight = slscllweight + :arg_qty From u_order_ml Where orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then arg_msg = '更新塑料领料总重失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If End If If arg_relint_1 = 0 Or arg_relint_1 = 2 Or arg_relint_1 = 5 Then //领料单 or 退料单 Select truerqqty,dstrqty Into :ld_rqqty,:ld_dstrqty From u_orderrqmtrl_scll Where orderid = :arg_orderid And mtrlid = :arg_mtrlid And wrkGrpid = :ll_wrkgrpid And scid = :arg_scid And status = :arg_status And woodcode = :arg_woodcode And pcode = :arg_pcode; If sqlca.SQLCode <> 0 Then arg_msg = '指令单:'+ls_ordercode+'查询物料:'+arg_mtrlcode+'已领料数失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If IsNull(ld_rqqty) Then ld_rqqty = 0 If IsNull(ld_dstrqty) Then ld_dstrqty = 0 If arg_relint_1 = 0 Or arg_relint_1 = 5 Then If ll_mtrlkind = 0 Then If ld_dstrqty + arg_qty > ld_rqqty * (1 + ld_scllrate) + ld_scllqty Then arg_msg = '指令单:'+ls_ordercode+'物料:'+arg_mtrlcode+'未领料数只有:'+String(ld_rqqty - ld_dstrqty,'#,#0.0#') + ',可领数只有:' +String(ld_rqqty * (1 + ld_scllrate) + ld_scllqty - ld_dstrqty,'#,#0.0#')+',不能领料:'+String(arg_qty,'#,#0.0#') rslt = 0 Goto ext End If ld_update_qty_scll = arg_qty ld_update_amt_scll = arg_costamt arg_overqty = 0 Else If arg_qty > 0 Then If ld_dstrqty + arg_qty > ld_rqqty Then ld_update_qty_scll = ld_rqqty - ld_dstrqty ld_update_amt_scll = (arg_costamt / arg_qty) * (ld_rqqty - ld_dstrqty) arg_overqty = ld_dstrqty + arg_qty - ld_rqqty Else ld_update_qty_scll = arg_qty ld_update_amt_scll = arg_costamt arg_overqty = 0 End If Else If ld_dstrqty + arg_qty < 0 Then ld_update_qty_scll = 0 - ld_dstrqty ld_update_amt_scll = (arg_costamt / arg_qty) * (0 - ld_dstrqty) arg_overqty = ld_dstrqty + arg_qty Else ld_update_qty_scll = arg_qty ld_update_amt_scll = arg_costamt arg_overqty = 0 End If End If End If ElseIf arg_relint_1 = 2 Then If arg_qty < 0 Then //审核还料单时检查,撤审时不检查 If ld_dstrqty < Abs(arg_qty) Then arg_msg = '指令单:'+ls_ordercode+'物料:'+arg_mtrlcode+'已领料数只有:'+String(ld_dstrqty,'#,#0.0#')+',不能退料:'+String(arg_qty,'#,#0.0#') rslt = 0 Goto ext End If If uo_option_scll_back_check = 1 Then Decimal ld_orderqty,ld_acmpqty Decimal ld_blrate,ld_canbackqty Select orderqty,acmpqty Into :ld_orderqty,:ld_acmpqty From u_order_ml Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询指令单:'+ls_ordercode+'已进仓数失败,'+sqlca.SQLErrText Goto ext End If If ld_orderqty > 0 Then ld_blrate = ld_rqqty / ld_orderqty ld_canbackqty = ld_dstrqty - ld_blrate * ld_acmpqty If Abs(arg_qty) > ld_canbackqty Then arg_msg = '指令单:'+ls_ordercode+'已进仓数:'+string(ld_acmpqty,'#,#0.0#')+',物料:'+arg_mtrlcode+'对应已用料数量:'+string(ld_blrate * ld_acmpqty,'#,#0.0#')+',已领数:'+string(ld_dstrqty,'#,#0.0#')+',可退料数只有:'+String(ld_canbackqty,'#,#0.0#')+',不能退料:'+String(arg_qty,'#,#0.0#') rslt = 0 Goto ext End If End If End If End If ld_update_qty_scll = arg_qty ld_update_amt_scll = arg_costamt End If ElseIf arg_relint_1 = -1 Then ld_update_qty_scll = arg_qty ld_update_amt_scll = arg_costamt End If If Not (arg_relint_1 = -1 And li_ordertype <> 3) Then Update u_orderrqmtrl_scll Set DstrQty = DstrQty + :ld_update_qty_scll, costamt = costamt + :ld_update_amt_scll Where orderid = :arg_orderid And mtrlid = :arg_mtrlid And wrkGrpid = :ll_wrkgrpid And scid = :arg_scid And status = :arg_status And woodcode = :arg_woodcode And pcode = :arg_pcode; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then Insert Into u_orderrqmtrl_scll (scid, OrderID, MtrlID, wrkGrpid, truerqqty, DstrQty, costamt, status, woodcode, pcode) Values (:arg_scid, :arg_orderid, :arg_mtrlid, :ll_wrkgrpid, :arg_Qty, 0, :arg_costamt, :arg_status, :arg_woodcode, :arg_pcode); If sqlca.SQLCode <> 0 Then arg_msg = '指令单:'+ls_ordercode+'物料:'+arg_mtrlcode + '新建领料明细失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If End If datastore ds_sl ds_sl = Create datastore ds_sl.DataObject = "ds_slcost" ds_sl.SetTransObject(sqlca) ds_sl.Retrieve(arg_scid,arg_orderid) Long ll_row Decimal ld_slcost = 0,ld_planslcost = 0 ll_row = ds_sl.RowCount() If ll_row > 0 Then For ll_i = 1 To ll_row If ds_sl.Object.u_mtrldef_issuliao[ll_i] = 2 Or ds_sl.Object.u_mtrldef_issuliao[ll_i] = 3 Then ld_slcost = ld_slcost + ds_sl.Object.u_orderrqmtrl_scll_costamt[ll_i] //ds_sl.Object.u_orderrqmtrl_truerqqty[ll_i] * ds_sl.Object.price[ll_i] ld_planslcost = ld_planslcost + ds_sl.Object.u_orderrqmtrl_scll_truerqqty[ll_i] * ds_sl.Object.price[ll_i] End If Next End If Update u_order_ml Set u_order_ml.slcost = :ld_slcost, u_order_ml.planslcost = :ld_planslcost Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '指令单:'+ls_ordercode+'更新计划塑料成本失败,'+sqlca.SQLErrText Goto ext End If Else rslt = 0 arg_msg = '指令单:'+ls_ordercode+'更新物料:'+arg_mtrlcode+',领料数失败>>'+sqlca.SQLErrText Goto ext End If End If //更新需求表 Long ll_orderid_update String ls_ordercode_update If cnt = 1 Then If li_ordertype = 4 Then ll_orderid_update = ll_porderid ls_ordercode_update = ls_pordercode Else ll_orderid_update = arg_orderid ls_ordercode_update = ls_ordercode End If Update u_orderrqmtrl Set DstrQty = DstrQty + :arg_qty Where orderid = :ll_orderid_update And mtrlid = :arg_mtrlid And wrkGrpid = :ll_wrkgrpid And scid = :arg_scid And status = :arg_status And woodcode = :arg_woodcode And pcode = :arg_pcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '生产计划:'+ls_ordercode_update +',更新物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText Goto ext ElseIf sqlca.SQLNRows = 0 Then Select top 1 wrkgrpid Into :ll_wrkgrpid From u_orderrqmtrl Where orderid = :ll_orderid_update And mtrlid = :arg_mtrlid And scid = :arg_scid And status = :arg_status And woodcode = :arg_woodcode And pcode = :arg_pcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '生产计划:'+ls_ordercode_update +',物料:'+arg_mtrlcode+',查询物料需求明细失败(领料组)>>'+sqlca.SQLErrText Goto ext ElseIf sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '生产计划:'+ls_ordercode_update +',物料:'+arg_mtrlcode+',查询物料需求明细失败(领料组)>>找不到相关行' Goto ext End If Update u_orderrqmtrl Set DstrQty = DstrQty + :arg_qty Where orderid = :ll_orderid_update And mtrlid = :arg_mtrlid And wrkGrpid = :ll_wrkgrpid And scid = :arg_scid And status = :arg_status And woodcode = :arg_woodcode And pcode = :arg_pcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '生产计划:'+ls_ordercode_update +',更新物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText Goto ext ElseIf sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '生产计划:'+ls_ordercode_update +',更新物料:'+arg_mtrlcode+',计划需求明细失败>>找不到相关更新行' Goto ext End If End If it_mx_rq++ ins_s_rqmtrl.mtrlid[it_mx_rq] = arg_mtrlid ins_s_rqmtrl.status[it_mx_rq] = arg_status ins_s_rqmtrl.woodcode[it_mx_rq] = arg_woodcode ins_s_rqmtrl.pcode[it_mx_rq] = arg_pcode ins_s_rqmtrl.wrkGrpid[it_mx_rq] = ll_wrkgrpid ins_s_rqmtrl.orderid[it_mx_rq] = ll_orderid_update ins_s_rqmtrl.qty[it_mx_rq] = arg_qty ins_s_rqmtrl.scid[it_mx_rq] = arg_scid Else If li_ordertype <> 4 Then //如果是主计划,直接更新 Update u_orderrqmtrl Set DstrQty = DstrQty + :arg_qty Where orderid = :arg_orderid And mtrlid = :arg_mtrlid And wrkGrpid = :ll_wrkgrpid And scid = :arg_scid And status = :arg_status And woodcode = :arg_woodcode And pcode = :arg_pcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '生产计划:'+ls_ordercode+'更新物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText Goto ext ElseIf sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '生产计划:'+ls_ordercode+'更新物料:'+arg_mtrlcode+',计划需求明细失败>>找不到相关更新行' Goto ext End If it_mx_rq++ ins_s_rqmtrl.mtrlid[it_mx_rq] = arg_mtrlid ins_s_rqmtrl.status[it_mx_rq] = arg_status ins_s_rqmtrl.woodcode[it_mx_rq] = arg_woodcode ins_s_rqmtrl.pcode[it_mx_rq] = arg_pcode ins_s_rqmtrl.wrkGrpid[it_mx_rq] = ll_wrkgrpid ins_s_rqmtrl.orderid[it_mx_rq] = arg_orderid ins_s_rqmtrl.qty[it_mx_rq] = arg_qty ins_s_rqmtrl.scid[it_mx_rq] = arg_scid Else ld_qty_tmp = arg_qty lb_iffind = False For ll_i = 1 To cnt ll_cnt = 0 Select count(*) Into :ll_cnt From u_orderrqmtrl Where orderid = :ll_taskid[ll_i] And mtrlid = :arg_mtrlid And wrkGrpid = :ll_wrkgrpid And scid = :arg_scid And status = :arg_status And woodcode = :arg_woodcode And pcode = :arg_pcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '生产计划:'+ls_taskcode[ll_i]+',查询物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText Goto ext End If If ll_cnt = 0 Then If ll_i = cnt And lb_iffind = False Then rslt = 0 arg_msg = '生产计划:'+ls_taskcode[ll_i]+',查询物料:'+arg_mtrlcode+',计划需求明细失败>>找不到相关行' Goto ext Else Continue End If Else lb_iffind = True End If Select rqqty,DstrQty Into :ld_rqqty_tmp,:ld_dstrqty_tmp From u_orderrqmtrl Where orderid = :ll_taskid[ll_i] And mtrlid = :arg_mtrlid And wrkGrpid = :ll_wrkgrpid And scid = :arg_scid And status = :arg_status And woodcode = :arg_woodcode And pcode = :arg_pcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '生产计划:'+ls_taskcode[ll_i]+',查询物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText Goto ext ElseIf sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '生产计划:'+ls_taskcode[ll_i]+',查询物料:'+arg_mtrlcode+',计划需求明细失败>>找不到相关行' Goto ext End If If arg_qty > 0 Then //领料单审核 If ld_qty_tmp > ld_rqqty_tmp - ld_dstrqty_tmp Then If ll_i = cnt Then ld_update_qty = ld_qty_tmp ld_qty_tmp = 0 Else ld_update_qty = ld_rqqty_tmp - ld_dstrqty_tmp ld_qty_tmp = ld_qty_tmp - (ld_rqqty_tmp - ld_dstrqty_tmp) End If Else ld_update_qty = ld_qty_tmp ld_qty_tmp = 0 End If ElseIf arg_qty < 0 Then //领料单撤审 If 0 - ld_qty_tmp > ld_dstrqty_tmp Then If ll_i = cnt Then ld_update_qty = 0 - ld_dstrqty_tmp ld_qty_tmp = 0 Else ld_update_qty = 0 - ld_dstrqty_tmp ld_qty_tmp = ld_qty_tmp + ld_dstrqty_tmp End If Else ld_update_qty = ld_qty_tmp ld_qty_tmp = 0 End If End If Update u_orderrqmtrl Set DstrQty = DstrQty + :ld_update_qty Where orderid = :ll_taskid[ll_i] And mtrlid = :arg_mtrlid And wrkGrpid = :ll_wrkgrpid And scid = :arg_scid And status = :arg_status And woodcode = :arg_woodcode And pcode = :arg_pcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '生产计划:'+ls_taskcode[ll_i]+',更新物料:'+arg_mtrlcode+',计划需求明细失败>>'+sqlca.SQLErrText Goto ext ElseIf sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '生产计划:'+ls_taskcode[ll_i]+',更新物料:'+arg_mtrlcode+',计划需求明细失败>>找不到相关更新行' Goto ext End If it_mx_rq++ ins_s_rqmtrl.mtrlid[it_mx_rq] = arg_mtrlid ins_s_rqmtrl.status[it_mx_rq] = arg_status ins_s_rqmtrl.woodcode[it_mx_rq] = arg_woodcode ins_s_rqmtrl.pcode[it_mx_rq] = arg_pcode ins_s_rqmtrl.wrkGrpid[it_mx_rq] = ll_wrkgrpid ins_s_rqmtrl.orderid[it_mx_rq] = ll_taskid[ll_i] ins_s_rqmtrl.qty[it_mx_rq] = ld_update_qty ins_s_rqmtrl.scid[it_mx_rq] = arg_scid If ld_qty_tmp = 0 Then Exit Next End If End If // ext: If rslt = 0 Then Rollback; ElseIf rslt = 1 And arg_ifcommit Then Commit; End If Return rslt end function public function integer uof_stopjj (long arg_scid, long arg_orderid, string arg_reason, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1 rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF status = 0 THEN rslt = 0 arg_msg = "待审核状态下不能执行终止计件操作，请核对" GOTO ext END IF IF stopjj = 1 THEN rslt = 0 arg_msg = '已执行过终止计件操作,不能重复执行' GOTO ext END IF IF Trim(arg_reason) = '' THEN rslt = 0 arg_msg = '请说明终止计件的原因' GOTO ext END IF UPDATE u_order_ml SET stopjj = 1, stopjjemp = :publ_operator, stopjjdate = getdate(), stopjjreason = :arg_reason WHERE orderid = :arg_orderid AND scid = :arg_scid and stopjj = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致终止计件操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT; END IF Return (rslt) end function public function integer uof_add_fpqty (long arg_scid, long arg_orderid, long arg_fpscid, long arg_fporderid, decimal arg_fpqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt String ls_ordercode String ls_fpdscrp IF IsNull(arg_scid) THEN arg_scid = 0 IF IsNull(arg_orderid) THEN arg_orderid = 0 IF IsNull(arg_fpscid) THEN arg_fpscid = 0 IF IsNull(arg_fporderid) THEN arg_fporderid = 0 IF IsNull(arg_fpqty) THEN arg_fpqty = 0 IF arg_fpqty <= 0 THEN rslt = 0 arg_msg = '不合理的分配数量' GOTO ext END IF SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :arg_scid AND orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询主计划资料失败,'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '主计划资料不存在' GOTO ext END IF SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :arg_fpscid AND orderid = :arg_fporderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询被分配主计划资料失败,'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '被分配计划资料不存在' GOTO ext END IF Decimal ld_fpqty Decimal ld_orderqty SELECT orderqty,fpqty INTO :ld_orderqty,:ld_fpqty FROM u_order_ml WHERE scid = :arg_fpscid AND orderid = :arg_fporderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询被分配计划信息失败'+sqlca.SQLErrText GOTO ext END IF IF ld_fpqty + arg_fpqty > ld_orderqty THEN rslt = 0 arg_msg = '分配数量'+String(arg_fpqty,'#,##0.##########')+' 不能大于被分配计划的未分配数量'+String(ld_orderqty - ld_fpqty,'#,##0.##########') GOTO ext END IF INSERT INTO u_order_fpmx (scid, orderid, fpscid, fporderid, fpqty) VALUES (:arg_scid, :arg_orderid, :arg_fpscid, :arg_fporderid, :arg_fpqty); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入分配明细表失败'+sqlca.SQLErrText GOTO ext END IF SELECT ordercode INTO :ls_ordercode FROM u_order_ml WHERE scid = :arg_scid AND orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询主计划号失败'+sqlca.SQLErrText GOTO ext END IF ls_fpdscrp = ls_ordercode+'/'+String(arg_fpqty,'#,##0.##########')+';' UPDATE u_order_ml SET fpqty = fpqty + :arg_fpqty, fpdscrp = fpdscrp + :ls_fpdscrp WHERE scid = :arg_fpscid AND orderid = :arg_fporderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询被分配计划的分配数量失败'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_del_fpqty (long arg_scid, long arg_orderid, long arg_fpscid, long arg_fporderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt String ls_ordercode String ls_fpdscrp IF IsNull(arg_scid) THEN arg_scid = 0 IF IsNull(arg_orderid) THEN arg_orderid = 0 IF IsNull(arg_fpscid) THEN arg_fpscid = 0 IF IsNull(arg_fporderid) THEN arg_fporderid = 0 SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :arg_scid AND orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询主计划资料失败,'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '主计划资料不存在' GOTO ext END IF SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :arg_fpscid AND orderid = :arg_fporderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询被分配主计划资料失败,'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '被分配计划资料不存在' GOTO ext END IF Decimal ld_fpqty SELECT fpqty INTO :ld_fpqty FROM u_order_fpmx WHERE scid = :arg_scid AND orderid = :arg_orderid AND fpscid = :arg_fpscid AND fporderid = :arg_fporderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询分配数量失败'+sqlca.SQLErrText GOTO ext END IF SELECT ordercode INTO :ls_ordercode FROM u_order_ml WHERE scid = :arg_scid AND orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询主计划号失败'+sqlca.SQLErrText GOTO ext END IF ls_fpdscrp = ls_ordercode+'/'+String(ld_fpqty,'#,##0.##########')+';' UPDATE u_order_ml SET fpqty = fpqty - :ld_fpqty, fpdscrp = replace(fpdscrp,:ls_fpdscrp,'') WHERE scid = :arg_fpscid AND orderid = :arg_fporderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询被分配计划的分配数量失败'+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_order_fpmx WHERE orderid = :arg_orderid AND scid = :arg_scid and fpscid = :arg_fpscid and fporderid = :arg_fporderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除计划分配明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uf_add_taskqty (long arg_scid, long arg_orderid, long arg_mtrlid, string arg_procode, decimal arg_taskqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 If arg_orderid <= 0 Then rslt = 0 arg_msg = '错误的计划唯一码' Goto ext End If If arg_mtrlid <= 0 Then rslt = 0 arg_msg = '错误的物料ID唯一码' Goto ext End If If arg_procode = '' Or IsNull(arg_procode) Then rslt = 0 arg_msg = '错误的工序序号' Goto ext End If Int li_status,li_finish_scflag Select status,finish_scflag Into :li_status,:li_finish_scflag From u_order_ml Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then arg_msg = '查询单据审核标记失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If //IF li_status <> 1 and li_status <> 5 and li_status <> 6 THEN // rslt = 0 // arg_msg = "计划只有在进行或已完成状态才可以执行操作，请核对" // GOTO ext //END IF If li_status = 0 Then rslt = 0 arg_msg = "计划只有在进行或已完成状态才可以执行操作，请核对" Goto ext End If If li_finish_scflag = 1 Then rslt = 0 arg_msg = '生产计划/指令单已完成派工,请核对' Goto ext End If Update u_orderrqwp Set taskqty = taskqty + :arg_taskqty Where orderid = :arg_orderid And mtrlid = :arg_mtrlid And procode = :arg_procode And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其他原因导致更新已安排时数失败'+sqlca.SQLErrText Goto ext Else If sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '没有找到可更新的指令单工序进度' Goto ext End If End If ext: If rslt = 0 Then Rollback; ElseIf rslt = 1 And arg_ifcommit Then Commit; End If Return rslt end function public function integer addmxskl (long arg_scid, long arg_orderid, decimal arg_qty, decimal arg_costamt, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1 Decimal ld_slweight,ld_sklweight,ld_slscllweight String ls_mtrlname IF uo_option_skl_overscll = -1000 THEN rslt = 0 arg_msg = '选项:[160]是否允许水口料超领料数入库,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_skl_overscll_rate = -1000 THEN rslt = 0 arg_msg = '选项:[197]水口料超计划回收比例,读取初始默认值失败,操作取消!' GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF arg_qty = 0 THEN rslt = 0 arg_msg = "没有水口料回收数量" GOTO ext END IF SELECT u_mtrldef.mtrlname INTO :ls_mtrlname FROM u_Order_ml INNER JOIN u_mtrldef_sl ON u_Order_ml.mtrlid = u_mtrldef_sl.mtrlid INNER JOIN u_mtrldef ON u_mtrldef_sl.sk_mtrlid = u_mtrldef.mtrlid Where u_Order_ml.orderid = :arg_orderid ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致查询水口料操作失败" GOTO ext END IF IF uo_option_skl_overscll = 0 THEN //不允许超计划 SELECT slweight,sklweight,slscllweight INTO :ld_slweight,:ld_sklweight,:ld_slscllweight FROM u_order_ml WHERE ( orderid = :arg_orderid ) And ( scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误查询生产计划塑料成品总重或水口料总重操作失败" GOTO ext END IF IF ld_slscllweight < ld_sklweight + ld_slweight + arg_qty THEN rslt = 0 arg_msg = '该计划明细对应的水口料['+ls_mtrlname+']'+'~r~n'+'本次回收数量大于本计划水口料可回收数:'+String(ld_slscllweight - ld_slweight - ld_sklweight,'0.####')+'~r~n' +'塑料成品总重:'+String(ld_slweight,'0.####')+',塑料领料总重:'+String(ld_slscllweight,'0.####')+', 已回收水口料重量:'+String(ld_sklweight,'0.####') GOTO ext END IF ELSEIF uo_option_skl_overscll = 2 THEN //允许但按比例限制 SELECT slweight,sklweight,slscllweight INTO :ld_slweight,:ld_sklweight,:ld_slscllweight FROM u_order_ml WHERE ( orderid = :arg_orderid ) And ( scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误查询生产计划塑料成品总重或水口料总重操作失败" GOTO ext END IF IF (ld_slscllweight - ld_slweight) * (1 + uo_option_skl_overscll_rate) < ld_sklweight + arg_qty THEN rslt = 0 arg_msg = '该计划明细对应的水口料['+ls_mtrlname+']'+'~r~n'+'本次回收数量大于本计划水口料可回收数:'+String( (ld_slscllweight - ld_slweight) * (1 + uo_option_skl_overscll_rate) - ld_sklweight,'0.####')+'~r~n' +'塑料成品总重:'+String(ld_slweight,'0.####')+',塑料领料总重:'+String(ld_slscllweight,'0.####')+', 已回收水口料重量:'+String(ld_sklweight,'0.####') GOTO ext END IF END IF UPDATE u_order_ml SET sklweight = sklweight + :arg_qty, slcost = slcost - :arg_costamt WHERE ( orderid = :arg_orderid ) And ( scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致更新生产计划水口料重量操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT; END IF p_reset() Return (rslt) end function public function integer uof_order_cmpcost (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1 Long ll_issuliao Long ll_mtrlid IF uo_option_use_suliao = -1000 THEN rslt = 0 arg_msg = '选项:[159]启用注塑模块,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_management_cost = -1000 THEN rslt = 0 arg_msg = '选项:[161]月设备总管理费,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_ect_price = -1000 THEN rslt = 0 arg_msg = '选项:[162]电费单价,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_use_suliao = 0 THEN RETURN 1 IF p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF SELECT u_mtrldef.mtrlid,issuliao INTO :ll_mtrlid,:ll_issuliao FROM u_mtrldef,u_order_ml WHERE u_mtrldef.mtrlid = u_order_ml.mtrlid AND u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料属性失败,'+sqlca.SQLErrText GOTO ext END IF IF ll_issuliao = 1 THEN //如果是塑料件，则计算注塑成本 Decimal ld_ysamt,ld_bgamt,ld_kcamt,ld_bxamt,ld_bzamt,ld_wfjgamt,ld_qtamt Decimal ld_ftqty Decimal ld_ftcost Long ll_macnt,ll_wage_rowcnt,ll_i,ll_sb_rowcnt,ll_j Decimal ld_award,ld_stantby,ld_zxcost,ld_cp,ld_bcp,ld_rlcost Decimal ld_time,ld_ect,ld_sbcost,ld_glcost,ld_ectcost //查询分滩成本 SELECT ysamt, bgamt, kcamt, bxamt, bzamt, ftqty, wfjgamt, qtamt INTO :ld_ysamt, :ld_bgamt, :ld_kcamt, :ld_bxamt, :ld_bzamt, :ld_ftqty , :ld_wfjgamt, :ld_qtamt FROM u_order_ml WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询分滩数量失败,'+sqlca.SQLErrText GOTO ext END IF IF ld_ftqty > 0 THEN ld_ftcost = (ld_ysamt + ld_bgamt + ld_kcamt + ld_bxamt + ld_bzamt + ld_qtamt) / ld_ftqty ELSE ld_ftcost = 0 END IF //查询本厂机台数量,用于计算管理成本 SELECT count(*) INTO :ll_macnt FROM u_workgroup WHERE mode = 1 And ifm = 1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询机台数量失败,'+sqlca.SQLErrText GOTO ext END IF //计算工资成本,数据来源于相关质检单的工资明细 datastore ds_wage ds_wage = Create datastore ds_wage.DataObject = "ds_data_wage" ds_wage.SetTransObject(sqlca) ds_wage.Retrieve(arg_scid,arg_orderid) ll_wage_rowcnt = ds_wage.RowCount() IF ll_wage_rowcnt > 0 THEN FOR ll_i = 1 To ll_wage_rowcnt ld_award = ds_wage.Object.awardprice[ll_i] ld_stantby = ds_wage.Object.stantby_price[ll_i] ld_zxcost = ds_wage.Object.zx_price[ll_i] * ds_wage.Object.zx_qty[ll_i] ld_cp = ds_wage.Object.cp_price[ll_i] ld_bcp = ds_wage.Object.bcp_price[ll_i] ld_rlcost = ld_rlcost + ld_award + ld_stantby + ld_cp + ld_bcp //+ ld_zxcost NEXT END IF //设备成本 -电费,管理费,设备耗损费,数据源于质检单"生产现场数据"及设备定义 datastore ds_sb ds_sb = Create datastore ds_sb.DataObject = "ds_sbcost" ds_sb.SetTransObject(sqlca) ds_sb.Retrieve(arg_orderid) ll_sb_rowcnt = ds_sb.RowCount() IF ll_sb_rowcnt > 0 THEN FOR ll_j = 1 To ll_sb_rowcnt ld_time = ds_sb.Object.u_data_collect_stantby_time[ll_j] + ds_sb.Object.u_data_collect_worktime[ll_j] ld_ect = ds_sb.Object.u_data_collect_ammeter_end[ll_j] - ds_sb.Object.u_data_collect_ammeter_start[ll_j] ld_sbcost = ld_sbcost + ld_time * ds_sb.Object.u_equipment_manage_depreciation_cost[ll_j] ld_glcost = ld_glcost + (uo_option_management_cost / 30 / ll_macnt / 24 ) * ld_time ld_ectcost = ld_ectcost + ld_ect * uo_option_ect_price NEXT END IF //更新生产计划成本 UPDATE u_order_ml SET rlcost = :ld_rlcost, sbcost = :ld_sbcost, glcost = :ld_glcost, ectcost = :ld_ectcost WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新成本失败,'+sqlca.SQLErrText GOTO ext END IF END IF //重算所有相关成本,得出生产计划成本 //ds_slcost - 本生产计划领料明细 datastore ds_sl,ds_son ds_sl = Create datastore ds_sl.DataObject = "ds_slcost" ds_sl.SetTransObject(sqlca) ds_sl.Retrieve(arg_scid,arg_orderid) Long ll_row,ll_sonrow,i Decimal ld_slcost = 0,ld_planslcost = 0 Decimal ld_slmtrlcost = 0,ld_slqty ll_row = ds_sl.RowCount() //计算产品材料成本.如果下级物料有子生产计划,则取子生产计划的成本作为下级物料的领料成本,否则按领料单. IF ll_row > 0 THEN FOR ll_i = 1 To ll_row IF ds_sl.Object.u_mtrldef_issuliao[ll_i] = 0 Or ds_sl.Object.u_mtrldef_issuliao[ll_i] = 1 THEN ld_slcost = ld_slcost + ds_sl.Object.u_orderrqmtrl_scll_costamt[ll_i] END IF NEXT END IF UPDATE u_order_ml SET u_order_ml.sumclcost = :ld_slcost WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新非塑料材料成本失败,'+sqlca.SQLErrText GOTO ext END IF Decimal ld_sumrlcost Decimal ld_taskworkcost,ld_scwg_cost,ld_scwg_day_cost SELECT isnull(sum(Workprice * Amount),0) INTO :ld_taskworkcost FROM u_sc_taskworkmx INNER JOIN u_sc_taskwork ON u_sc_taskworkmx.Billid = u_sc_taskwork.billid WHERE u_sc_taskwork.orderid = :arg_orderid And u_sc_taskwork.scid = :arg_scid; IF sqlca.SQLCode = -1 THEN rslt = 0 arg_msg = '查询生产计划相关产品个人计件单失败,'+sqlca.SQLErrText GOTO ext END IF IF IsNull(ld_taskworkcost) THEN ld_taskworkcost = 0 SELECT isnull(sum(u_scwg_taskwork_2_mx.qty * u_scwg_taskwork_2_mx.price),0) INTO :ld_scwg_cost FROM u_scwg_taskwork_2 INNER JOIN u_scwg_taskwork_2_mx ON u_scwg_taskwork_2.billid = u_scwg_taskwork_2_mx.billid WHERE u_scwg_taskwork_2.scid = :arg_scid And u_scwg_taskwork_2_mx.orderid = :arg_orderid; IF sqlca.SQLCode = -1 THEN rslt = 0 arg_msg = '查询生产计划相关工组月计件单失败,'+sqlca.SQLErrText GOTO ext END IF IF IsNull(ld_scwg_cost) THEN ld_scwg_cost = 0 SELECT isnull(sum(u_scwg_taskwork_day_mx.qty * u_scwg_taskwork_day_mx.price),0) INTO :ld_scwg_day_cost FROM u_scwg_taskwork_day INNER JOIN u_scwg_taskwork_day_mx ON u_scwg_taskwork_day.billid = u_scwg_taskwork_day_mx.billid WHERE u_scwg_taskwork_day.scid = :arg_scid And u_scwg_taskwork_day_mx.orderid = :arg_orderid; IF sqlca.SQLCode = -1 THEN rslt = 0 arg_msg = "查询生产计划相关工组日计件单失败,"+sqlca.SQLErrText GOTO ext END IF IF IsNull(ld_scwg_day_cost) THEN ld_scwg_day_cost = 0 ld_sumrlcost = ld_taskworkcost + ld_scwg_cost + ld_scwg_day_cost UPDATE u_order_ml SET sumrlcost = :ld_sumrlcost Where u_order_ml.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新非塑料人力成本失败,"+sqlca.SQLErrText GOTO ext END IF SELECT ysamt,bgamt,kcamt,bxamt,bzamt,ftqty,wfjgamt,qtamt INTO :ld_ysamt,:ld_bgamt,:ld_kcamt,:ld_bxamt,:ld_bzamt,:ld_ftqty , :ld_wfjgamt , :ld_qtamt FROM u_order_ml Where orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询分滩费用/加工费失败,"+sqlca.SQLErrText GOTO ext END IF IF ld_ftqty > 0 THEN ld_ftcost = (ld_ysamt + ld_bgamt + ld_kcamt + ld_bxamt + ld_bzamt + ld_qtamt) / ld_ftqty ELSE ld_ftcost = 0 END IF UPDATE u_order_ml SET sumcost = :ld_ftcost * acmpqty + sumrlcost + sumclcost + slcost + rlcost + sbcost + glcost + ectcost + :ld_wfjgamt WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新生产计划总成本失败,"+sqlca.SQLErrText GOTO ext END IF //计算单产品成本 :生产计划总成本 / 生产数量 Decimal ld_latest_pdcode SELECT CASE u_order_ml.acmpqty when 0 THEN 0 ELSE u_order_ml.sumcost / u_order_ml.acmpqty END Into :ld_latest_pdcode From u_order_ml Where u_order_ml.orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新生产计划单产品成本失败,"+sqlca.SQLErrText GOTO ext END IF IF ld_latest_pdcode > 0 THEN // UPDATE u_mtrldef // SET u_mtrldef.planprice = case u_mtrldef.latest_pdcost when 0 then u_mtrldef.planprice else u_mtrldef.latest_pdcost end , // u_mtrldef.latest_pdcost = :ld_latest_pdcode // Where u_mtrldef.mtrlid = :ll_mtrlid ; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "更新产品最新成本价失败,"+sqlca.SQLErrText // GOTO ext // END IF IF f_update_planprice(ll_mtrlid,status_mode,woodcode,pcode,1,ld_latest_pdcode,arg_msg,False,sqlca) = 0 THEN rslt = 0 arg_msg = '更新产品计划成本价失败'+arg_msg GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_reccl (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_scid Long ll_orderid,ll_porderid String ls_ordercode,ls_pordercode Long cnt cnt = 0 SELECT count(*) INTO :cnt FROM u_OrderRqMtrl_scll WHERE orderid = :ll_orderid AND scid = :ll_scid AND u_OrderRqMtrl_scll.DstrQty > 0 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询是否有已领数失败'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '已有已领料,不能重新计算用料' GOTO ext END IF uo_order_ml_mrp uo_ml_mrp uo_ml_mrp = CREATE uo_order_ml_mrp IF uo_ml_mrp.uof_del_rqmtrl_scll(arg_scid,arg_orderid,FALSE,arg_msg) = 0 THEN // arg_msg = ls_ordercode+','+arg_msg rslt = 0 GOTO ext END IF Long ll_i Boolean if_commit //20080715改,方便批操作调用而改成用datastore datastore ds_orderrqmx ds_orderrqmx = CREATE datastore ds_orderrqmx.DataObject = 'dw_order_ml_zl_orderrqmx' ds_orderrqmx.SetTransObject(sqlca) ds_orderrqmx.Retrieve(arg_orderid,arg_scid) s_order_ml_rqmtrl s_mtrl,s_mtrl_null FOR ll_i = 1 TO ds_orderrqmx.RowCount() s_mtrl = s_mtrl_null ll_porderid = ds_orderrqmx.Object.u_order_ml_mx_taskid[ll_i] ls_pordercode = ds_orderrqmx.Object.u_order_ml_mx_taskcode[ll_i] IF uo_ml_mrp.uof_get_rqmtrl(arg_scid,arg_orderid,ll_porderid,s_mtrl,arg_msg) = 0 THEN arg_msg = '上级计划:'+ls_pordercode+','+arg_msg rslt = 0 GOTO ext END IF IF uo_ml_mrp.uof_add_rqmtrl_scll(s_mtrl,arg_ifcommit,arg_msg) = 0 THEN arg_msg = '上级计划:'+ls_pordercode+','+arg_msg rslt = 0 GOTO ext END IF NEXT DESTROY uo_ml_mrp DESTROY ds_orderrqmx ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT; END IF Return(rslt) end function public function integer uof_order_add_wkp_tree (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_finishqty,ld_sqty,ld_oqty Long ll_dftwrkgrpid Int li_if_tree_wkp DateTime ldt_tmp Long ll_statusflag,ll_ordertype,ll_printid Long ll_swkpid,ll_owkpid String ls_partname,ls_relname Long ll_lp Int li_if_inherit String ls_partname_inherit Long ll_parentid,ll_workgroupid Decimal ld_minlasthour,ld_lasthour,ld_eoq,ld_splitrate,ld_waittime,ld_beforehour,ld_afterhour,ld_eq_empnum,ld_eqworkhour Int li_if_barcode Long ll_equipmenttypeid Int li_ifaccept Decimal ld_baseqty Int li_if_follow,li_ifgroup Decimal ld_workhour_minute,ld_workhour Long ll_printid_mx Long ll_j Long ll_mtrlid Decimal ld_orderqty Long printid,iflast,lp Decimal lasthour,workhour Long workgroupid DateTime begindate,enddate String ls_pfgroup,ls_promode,ls_pfklmode,ls_pfgroupmode,ls_gydscrp Decimal ld_pfgroupqty String ls_relname_up Int li_ifsj_ban String ls_wenli, ls_fengbian, ls_paikong, ls_luoji, ls_penyou Long ll_sonmtrlid datastore ds_tree_hz ds_tree_hz = Create datastore ds_tree_hz.DataObject = 'ds_ordermtrl_workgroup_tree_hz' ds_tree_hz.SetTransObject(sqlca) datastore ds_tech_mx ds_tech_mx = Create datastore ds_tech_mx.DataObject = 'ds_mtrl_wkp_tech_mx' ds_tech_mx.SetTransObject(sqlca) datastore ds_modle_pf ds_modle_pf = Create datastore ds_modle_pf.DataObject = 'ds_mtrl_wkp_tech_modle_pf' ds_modle_pf.SetTransObject(sqlca) If arg_orderid = 0 Then rslt = 0 arg_msg = "没有审核对象" Goto ext End If If p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If If wrkGrpid = 0 Then rslt = 1 Goto ext End If Select ordertype Into :ll_ordertype From u_mtrldef Where mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料计划属性失败,'+sqlca.SQLErrText Goto ext End If If (ordertype <> 4 And ll_ordertype = 1) Then rslt = 1 Goto ext End If If status <> 4 And status <> 1 And status <> 7 Then rslt = 0 arg_msg = "计划只有在已审核状态才可以执行生成工组进度,请核对" Goto ext End If Select dftwrkgrpid,statusflag Into :ll_dftwrkgrpid,:ll_statusflag From u_mtrldef Where mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料默认生产车间失败'+'~n'+sqlca.SQLErrText Goto ext End If If wrkGrpid <> ll_dftwrkgrpid Then rslt = 1 arg_msg = '生产指令单或生产计划的车间与计划物料默认的生产车间不一致,不能生成工组进度' Goto ext End If Select if_tree_wkp Into :li_if_tree_wkp From u_sc_wkp Where wrkGrpid = :wrkGrpid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产车间排程属性失败'+'~n'+sqlca.SQLErrText Goto ext End If Select sum(sqty),sum(oqty) Into :ld_sqty,:ld_oqty From u_OrderMtrl_workgroup_tree Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询计划是否已交接操作失败"+"~n"+sqlca.SQLErrText Goto ext End If If IsNull(ld_sqty) Then ld_sqty = 0 If IsNull(ld_oqty) Then ld_oqty = 0 If ld_sqty > 0 Then arg_msg = '计划已有完成数,不能重新生成条码工组进度' rslt = 0 Goto ext End If If ld_oqty > 0 Then arg_msg = '计划已有接收数,不能重新生成条码工组进度' rslt = 0 Goto ext End If Long ll_wrkgrpid[],ll_owrkgrpid[] String ls_wkpname[] Long ll_ifjd[] DateTime ld_requiredate[],ld_begindate[] String ls_dscrp[] Decimal ll_lastdays[] Long i,cnt Long ll_i s_mtrlcfg_expr s_pz[] String ls_status_zj Decimal ld_qty_zj Int li_ifpackpro_p If ordertype = 4 And porderid > 0 Then Select ifpackpro Into :li_ifpackpro_p From u_Order_ml Inner JOIN u_mtrldef ON u_Order_ml.mtrlid = u_mtrldef.mtrlid Where u_order_ml.orderid = :porderid And u_Order_ml.scid = :scid; If sqlca.SQLCode <> 0 Then li_ifpackpro_p = 0 Else li_ifpackpro_p = 0 End If Delete From u_OrderMtrl_workgroup_tree Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除计划的交接明细表相应记录操作失败"+"~n"+sqlca.SQLErrText Goto ext End If If li_ifpackpro_p <> 5 Then Insert Into u_OrderMtrl_workgroup_tree (scid, orderid, printid, swkpid, owkpid, partname, lp, iflast, relname, orderqty, sqty, oqty, if_inherit, partname_inherit, parentid, workgroupid, lasthour, workhour, if_barcode, eoq, splitrate, waittime, beforehour, afterhour, eq_empnum, eqworkhour, equipmenttypeid, ifaccept, baseqty, if_follow, printid_sort, ifgroup, ifsj_ban) Select u_order_ml.scid, u_order_ml.orderid, u_mtrl_wkp_tech.printid, u_mtrl_wkp_tech.swkpid, u_mtrl_wkp_tech.owkpid, u_mtrl_wkp_tech.partname, u_mtrl_wkp_tech.lp, u_mtrl_wkp_tech.iflast, u_mtrl_wkp_tech.relname, :orderqty, 0, 0, u_mtrl_wkp_tech.if_inherit, u_mtrl_wkp_tech.partname_inherit, u_mtrl_wkp_tech.parentid, u_mtrl_wkp_tech.workgroupid, case when :Level = 0 then u_mtrl_wkp_tech.minlasthour else u_mtrl_wkp_tech.lasthour End , u_mtrl_wkp_tech.workhour, u_mtrl_wkp_tech.if_barcode, u_mtrl_wkp_tech.eoq, u_mtrl_wkp_tech.splitrate, u_mtrl_wkp_tech.waittime, u_mtrl_wkp_tech.beforehour, u_mtrl_wkp_tech.afterhour, u_mtrl_wkp_tech.eq_empnum, u_mtrl_wkp_tech.eqworkhour, u_mtrl_wkp_tech.equipmenttypeid, u_mtrl_wkp_tech.ifaccept, case u_mtrl_wkp_tech.baseqty when 0 then :orderqty else u_mtrl_wkp_tech.baseqty End, u_mtrl_wkp_tech.if_follow, u_mtrl_wkp_tech.printid * 10, u_mtrl_wkp_tech.ifgroup, u_mtrl_wkp_tech.ifsj_ban From u_mtrl_wkp_tech,u_order_ml Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_mtrl_wkp_tech.mtrlid = u_Order_ml.mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '从产品工艺流程加入生产计划工艺进度失败,原因:'+sqlca.SQLErrText Goto ext End If If ll_statusflag = 2 Then f_checkpz(status_mode,s_pz[]) For ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname ld_qty_zj = Dec(s_pz[ll_i].qty) ds_tech_mx.Retrieve(mtrlid,ls_status_zj) For ll_j = 1 To ds_tech_mx.RowCount() ll_printid_mx = ds_tech_mx.Object.printid[ll_j] ld_workhour_minute = ds_tech_mx.Object.workhour_minute[ll_j] ld_workhour = ds_tech_mx.Object.workhour[ll_j] ld_beforehour = ds_tech_mx.Object.beforehour[ll_j] ld_afterhour = ds_tech_mx.Object.afterhour[ll_j] ld_eq_empnum = ds_tech_mx.Object.eq_empnum[ll_j] ld_eqworkhour = ds_tech_mx.Object.eqworkhour[ll_j] Update u_OrderMtrl_workgroup_tree Set workhour = workhour + :ld_workhour * :ld_qty_zj, beforehour = beforehour + :ld_beforehour * :ld_qty_zj, afterhour = afterhour + :ld_afterhour * :ld_qty_zj, eq_empnum = eq_empnum + :ld_eq_empnum * :ld_qty_zj, eqworkhour = eqworkhour + :ld_eqworkhour * :ld_qty_zj Where scid = :arg_scid And orderid = :arg_orderid And printid = :ll_printid_mx; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '从工艺流程配置明细更新生产计划工艺进度失败,原因:'+sqlca.SQLErrText Goto ext End If Next Next End If Else ds_modle_pf.Retrieve(mtrlid,pfcode) ll_printid = 1 Insert Into u_OrderMtrl_workgroup_tree (scid, orderid, printid, partname, lp, iflast, relname, orderqty) Values (:arg_scid, :arg_orderid, :ll_printid, '成品', 0, 1, '成品', :orderqty); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '从工艺流程配置明细更新生产计划工艺进度失败,原因:'+sqlca.SQLErrText Goto ext End If For ll_i = 1 To ds_modle_pf.RowCount() ll_printid++ ll_swkpid = ds_modle_pf.Object.u_mtrl_wkp_tech_swkpid[ll_i] ll_owkpid = ds_modle_pf.Object.u_mtrl_wkp_tech_owkpid[ll_i] ll_lp = ds_modle_pf.Object.u_mtrl_wkp_tech_lp[ll_i] li_if_inherit = ds_modle_pf.Object.u_mtrl_wkp_tech_if_inherit[ll_i] ls_partname_inherit = ds_modle_pf.Object.u_mtrl_wkp_tech_partname_inherit[ll_i] ll_parentid = ds_modle_pf.Object.u_mtrl_wkp_tech_parentid[ll_i] ll_workgroupid = ds_modle_pf.Object.u_mtrl_wkp_tech_workgroupid[ll_i] ld_minlasthour = ds_modle_pf.Object.u_mtrl_wkp_tech_minlasthour[ll_i] ld_lasthour = ds_modle_pf.Object.u_mtrl_wkp_tech_lasthour[ll_i] ld_workhour = ds_modle_pf.Object.u_mtrl_wkp_tech_workhour[ll_i] li_if_barcode = ds_modle_pf.Object.u_mtrl_wkp_tech_if_barcode[ll_i] ld_eoq = ds_modle_pf.Object.u_mtrl_wkp_tech_eoq[ll_i] ld_splitrate = ds_modle_pf.Object.u_mtrl_wkp_tech_splitrate[ll_i] ld_waittime = ds_modle_pf.Object.u_mtrl_wkp_tech_waittime[ll_i] ld_beforehour = ds_modle_pf.Object.u_mtrl_wkp_tech_beforehour[ll_i] ld_afterhour = ds_modle_pf.Object.u_mtrl_wkp_tech_afterhour[ll_i] ld_eq_empnum = ds_modle_pf.Object.u_mtrl_wkp_tech_eq_empnum[ll_i] ld_eqworkhour = ds_modle_pf.Object.u_mtrl_wkp_tech_eqworkhour[ll_i] ll_equipmenttypeid = ds_modle_pf.Object.u_mtrl_wkp_tech_equipmenttypeid[ll_i] li_ifaccept = ds_modle_pf.Object.u_mtrl_wkp_tech_ifaccept[ll_i] ld_baseqty = ds_modle_pf.Object.u_mtrl_wkp_tech_baseqty[ll_i] li_if_follow = ds_modle_pf.Object.u_mtrl_wkp_tech_if_follow[ll_i] li_ifgroup = ds_modle_pf.Object.u_mtrl_wkp_tech_ifgroup[ll_i] ld_pfgroupqty = ds_modle_pf.Object.u_prdpf_pfgroupqty[ll_i] ls_pfgroupmode = ds_modle_pf.Object.u_prdpf_pfgroupmode[ll_i] ls_gydscrp = ds_modle_pf.Object.u_prdpf_dscrp[ll_i] ls_pfgroup = ds_modle_pf.Object.u_prdpf_pfgroup[ll_i] ls_promode = ds_modle_pf.Object.u_prdpf_promode[ll_i] ls_pfklmode = ds_modle_pf.Object.u_prdpf_pfklmode[ll_i] li_ifsj_ban = ds_modle_pf.Object.u_mtrl_wkp_tech_ifsj_ban[ll_i] ls_partname = ds_modle_pf.Object.u_mtrl_wkp_tech_partname[ll_i] ls_wenli = ds_modle_pf.Object.u_prdpf_wenli[ll_i] ls_fengbian = ds_modle_pf.Object.u_prdpf_fengbian[ll_i] ls_paikong = ds_modle_pf.Object.u_prdpf_paikong[ll_i] ls_luoji = ds_modle_pf.Object.u_prdpf_luoji[ll_i] ls_penyou = ds_modle_pf.Object.u_prdpf_penyou[ll_i] ll_sonmtrlid = ds_modle_pf.Object.u_prdpf_sonmtrlid[ll_i] If IsNull(ll_swkpid) Then ll_swkpid = 0 If IsNull(ll_owkpid) Then ll_owkpid = 0 If IsNull(ll_lp) Then ll_lp = 0 If IsNull(li_if_inherit) Then li_if_inherit = 0 If IsNull(ls_partname_inherit) Then ls_partname_inherit = '' If IsNull(ll_parentid) Then ll_parentid = 0 If IsNull(ll_workgroupid) Then ll_workgroupid = 0 If IsNull(ld_minlasthour) Then ld_minlasthour = 0 If IsNull(ld_lasthour) Then ld_lasthour = 0 If IsNull(ld_workhour) Then ld_workhour = 0 If IsNull(li_if_barcode) Then li_if_barcode = 1 If IsNull(ld_eoq) Then ld_eoq = 0 If IsNull(ld_splitrate) Then ld_splitrate = 0 If IsNull(ld_waittime) Then ld_waittime = 0 If IsNull(ld_beforehour) Then ld_beforehour = 0 If IsNull(ld_afterhour) Then ld_afterhour = 0 If IsNull(ld_eq_empnum) Then ld_eq_empnum = 0 If IsNull(ld_eqworkhour) Then ld_eqworkhour = 0 If IsNull(ll_equipmenttypeid) Then ll_equipmenttypeid = 0 If IsNull(li_ifaccept) Then li_ifaccept = 0 If IsNull(ld_baseqty) Then ld_baseqty = 0 If IsNull(li_if_follow) Then li_if_follow = 0 If IsNull(li_ifgroup) Then li_ifgroup = 0 If IsNull(ld_pfgroupqty) Then ld_pfgroupqty = 1 If IsNull(ls_pfgroupmode) Then ls_pfgroupmode = '' If IsNull(ls_gydscrp) Then ls_gydscrp = '' If IsNull(ls_pfgroup) Then ls_pfgroup = '' If IsNull(ls_promode) Then ls_promode = '' If IsNull(ls_pfklmode) Then ls_pfklmode = '' If IsNull(ls_partname) Then ls_partname = '' If IsNull(li_ifsj_ban) Then li_ifsj_ban = 0 If IsNull(ls_wenli) Then ls_wenli = '' If IsNull(ls_fengbian) Then ls_fengbian = '' If IsNull(ls_paikong) Then ls_paikong = '' If IsNull(ls_luoji) Then ls_luoji = '' If IsNull(ls_penyou) Then ls_penyou = '' If IsNull(ll_sonmtrlid) Then ll_sonmtrlid = 0 If ll_lp = 0 Then If li_ifsj_ban = 0 Then ls_partname = ls_pfgroup + '('+ls_pfklmode+')' ls_relname = ls_pfgroup + '('+ls_pfklmode+')' ls_relname_up = ls_relname Else ls_partname = ls_pfgroup + '['+ ls_partname + ']' ls_relname = ls_partname ls_relname_up = ls_relname End If Else ls_partname = ds_modle_pf.Object.u_mtrl_wkp_tech_partname[ll_i] ls_relname = ls_relname_up //ds_modle_pf.Object.u_mtrl_wkp_tech_relname[ll_i] End If Insert Into u_OrderMtrl_workgroup_tree (scid, orderid, printid, swkpid, owkpid, partname, lp, iflast, relname, orderqty, sqty, oqty, if_inherit, partname_inherit, parentid, workgroupid, lasthour, workhour, if_barcode, eoq, splitrate, waittime, beforehour, afterhour, eq_empnum, eqworkhour, equipmenttypeid, ifaccept, baseqty, if_follow, printid_sort, ifgroup, pfgroup, promode, pfgroupmode, pfklmode, gydscrp, ifsj_ban, wenli, fengbian, paikong, luoji, penyou, sonmtrlid) Values (:arg_scid, :arg_orderid, :ll_printid, :ll_swkpid, :ll_owkpid, :ls_partname, :ll_lp + 1, 0, :ls_relname, :orderqty * :ld_pfgroupqty, 0, 0, :li_if_inherit, :ls_partname_inherit, :ll_parentid, :ll_workgroupid, case when :Level = 0 then :ld_minlasthour else :ld_lasthour End , :ld_workhour, :li_if_barcode, :ld_eoq, :ld_splitrate, :ld_waittime, :ld_beforehour, :ld_afterhour, :ld_eq_empnum, :ld_eqworkhour, :ll_equipmenttypeid, :li_ifaccept, case :ld_baseqty when 0 then :orderqty else :ld_baseqty End , :li_if_follow, :ll_printid * 10, :li_ifgroup, :ls_pfgroup, :ls_promode, :ls_pfgroupmode, :ls_pfklmode, :ls_gydscrp, :li_ifsj_ban, :ls_wenli, :ls_fengbian, :ls_paikong, :ls_luoji, :ls_penyou, :ll_sonmtrlid); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '从工艺流程配置明细更新生产计划工艺进度失败,原因:'+sqlca.SQLErrText + '~r~n' Goto ext End If Next End If //根据公式刷新工时及周期 String ls_workhour_formula,ls_lasthour_formula Long ll_printid_tree Decimal ld_orderqty_tree String s_rtn Decimal ld_workhour_str,ld_lasthour_str datastore ds_tree ds_tree = Create datastore ds_tree.DataObject = 'ds_ordermtrl_workgroup_tree_cmp' ds_tree.SetTransObject(sqlca) ds_tree.Retrieve(arg_scid,arg_orderid) datastore ds_pricestr ds_pricestr = Create datastore ds_pricestr.DataObject = 'ds_pricestr_cmpl' ds_pricestr.SetTransObject(sqlca) For ll_i = 1 To ds_tree.RowCount() ls_workhour_formula = ds_tree.Object.u_mtrl_wkp_tech_workhour_formula[ll_i] ls_lasthour_formula = ds_tree.Object.u_mtrl_wkp_tech_lasthour_formula[ll_i] ll_printid_tree = ds_tree.Object.printid[ll_i] ld_orderqty_tree = ds_tree.Object.orderqty[ll_i] If Trim(ls_workhour_formula) <> '' Then Select Top 1 Replace( :ls_workhour_formula,'不包含',' not like ') Into :ls_workhour_formula From u_user; Select Top 1 Replace( :ls_workhour_formula,'不等于','<>') Into :ls_workhour_formula From u_user; Select Top 1 Replace( :ls_workhour_formula,'包含',' like ') Into :ls_workhour_formula From u_user; Select Top 1 Replace( :ls_workhour_formula,'数量',:ld_orderqty_tree) Into :ls_workhour_formula From u_user; Select Top 1 Replace( :ls_workhour_formula,'等于',' = ') Into :ls_workhour_formula From u_user; Select Top 1 Replace( :ls_workhour_formula,'大于',' > ') Into :ls_workhour_formula From u_user; Select Top 1 Replace( :ls_workhour_formula,'小于',' < ') Into :ls_workhour_formula From u_user; If Pos(ls_workhour_formula,'配置2') > 0 Then Select Top 1 Replace( :ls_workhour_formula,'配置2',"'"+:pcode+"'") Into :ls_workhour_formula From u_user; End If If Pos(ls_workhour_formula,'配置1') > 0 Then Select Top 1 Replace( :ls_workhour_formula,'配置1',"'"+:woodcode+"'") Into :ls_workhour_formula From u_user; End If If Pos(ls_workhour_formula,'配置') > 0 Then Select Top 1 Replace( :ls_workhour_formula,'配置',"'"+:status_mode+"'") Into :ls_workhour_formula From u_user; End If ds_pricestr.Retrieve() ds_pricestr.Modify('cmpl.expression= "'+ls_workhour_formula+'"') s_rtn = String(ds_pricestr.Object.cmpl[1]) If s_rtn = 'false' Then Goto _lasthour Else ld_workhour_str = Round(Dec(s_rtn),5) End If Update u_OrderMtrl_workgroup_tree Set workhour = :ld_workhour_str / 60 Where scid = :arg_scid And orderid = :arg_orderid And printid = :ll_printid_tree; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '按公式更新工时失败,'+sqlca.SQLErrText Goto ext End If End If _lasthour: If Trim(ls_lasthour_formula) <> '' Then Select Top 1 Replace( :ls_lasthour_formula,'不包含',' not like ') Into :ls_lasthour_formula From u_user; Select Top 1 Replace( :ls_lasthour_formula,'不等于','<>') Into :ls_lasthour_formula From u_user; Select Top 1 Replace( :ls_lasthour_formula,'包含',' like ') Into :ls_lasthour_formula From u_user; Select Top 1 Replace( :ls_lasthour_formula,'数量',:ld_orderqty_tree) Into :ls_lasthour_formula From u_user; Select Top 1 Replace( :ls_lasthour_formula,'等于',' = ') Into :ls_lasthour_formula From u_user; Select Top 1 Replace( :ls_lasthour_formula,'大于',' > ') Into :ls_lasthour_formula From u_user; Select Top 1 Replace( :ls_lasthour_formula,'小于',' < ') Into :ls_lasthour_formula From u_user; If Pos(ls_lasthour_formula,'配置2') > 0 Then Select Top 1 Replace( :ls_lasthour_formula,'配置2',"'"+:pcode+"'") Into :ls_lasthour_formula From u_user; End If If Pos(ls_lasthour_formula,'配置1') > 0 Then Select Top 1 Replace( :ls_lasthour_formula,'配置1',"'"+:woodcode+"'") Into :ls_lasthour_formula From u_user; End If If Pos(ls_lasthour_formula,'配置') > 0 Then Select Top 1 Replace( :ls_lasthour_formula,'配置',"'"+:status_mode+"'") Into :ls_lasthour_formula From u_user; End If ds_pricestr.Retrieve() ds_pricestr.Modify('cmpl.expression= "'+ls_lasthour_formula+'"') s_rtn = String(ds_pricestr.Object.cmpl[1]) If s_rtn = 'false' Then Continue Else ld_lasthour_str = Round(Dec(s_rtn),5) End If Update u_OrderMtrl_workgroup_tree Set lasthour = :ld_lasthour_str Where scid = :arg_scid And orderid = :arg_orderid And printid = :ll_printid_tree; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '按公式更新交接周期失败,'+sqlca.SQLErrText Goto ext End If End If Next If uo_cmp_tree_date(arg_scid,arg_orderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If Delete From u_ordermtrl_workgroup_barcode Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除计划已生成的工组条码操作失败"+"~n"+sqlca.SQLErrText Goto ext End If If li_if_tree_wkp = 1 Then Delete From u_OrderMtrl_workgroup Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除计划已工组进度操作失败"+"~n"+sqlca.SQLErrText Goto ext End If ds_tree_hz.Retrieve(arg_scid,arg_orderid) For ll_i = 1 To ds_tree_hz.RowCount() ll_mtrlid = ds_tree_hz.Object.mtrlid[ll_i] ll_swkpid = ds_tree_hz.Object.swkpid[ll_i] ll_owkpid = ds_tree_hz.Object.owkpid[ll_i] ld_orderqty = ds_tree_hz.Object.min_orderqty[ll_i] iflast = ds_tree_hz.Object.iflast[ll_i] lp = ds_tree_hz.Object.max_lp[ll_i] lasthour = ds_tree_hz.Object.lasthour[ll_i] workhour = ds_tree_hz.Object.workhour[ll_i] workgroupid = ds_tree_hz.Object.workgroupid[ll_i] begindate = ds_tree_hz.Object.begindate[ll_i] enddate = ds_tree_hz.Object.enddate[ll_i] Insert Into u_ordermtrl_workgroup (scid, orderid, mtrlid, wrkgrpid, owrkgrpid, orderqty, lastdays, ifjd, wkpname, printid, iflast, groupstr, lp, printlp, lasthour, workgroupid, begindate, requiredate, workhour) Values (:arg_scid, :arg_orderid, :ll_mtrlid, :ll_swkpid, :ll_owkpid, :ld_orderqty, :lasthour / 8, 1, '', :ll_i, :iflast, '', :lp, 0, :lasthour, :workgroupid, :begindate, :enddate, :workhour); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '从工艺流程进度加入生产计划工组进度失败,原因:'+sqlca.SQLErrText Goto ext End If Next If uof_update_minbdate(arg_scid,arg_orderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If ////按APS结果更新工艺进度开始结束时间 2014-09-22 Update u_OrderMtrl_workgroup_tree Set u_OrderMtrl_workgroup_tree.begindate = u_OrderRqMtrl_tech.begindate, u_OrderMtrl_workgroup_tree.enddate = u_OrderRqMtrl_tech.enddate, u_OrderMtrl_workgroup_tree.workhour = u_OrderRqMtrl_tech.workhour, u_OrderMtrl_workgroup_tree.beforehour = u_OrderRqMtrl_tech.beforehour, u_OrderMtrl_workgroup_tree.afterhour = u_OrderRqMtrl_tech.afterhour From u_OrderMtrl_workgroup_tree Inner JOIN u_Order_ml ON u_OrderMtrl_workgroup_tree.scid = u_Order_ml.scid And u_OrderMtrl_workgroup_tree.orderid = u_Order_ml.OrderID Inner JOIN u_OrderRqMtrl_tech ON u_Order_ml.scid = u_OrderRqMtrl_tech.scid And u_Order_ml.mtrlid = u_OrderRqMtrl_tech.MtrlID And u_Order_ml.status_mode = u_OrderRqMtrl_tech.status And u_Order_ml.woodcode = u_OrderRqMtrl_tech.woodcode And u_Order_ml.pcode = u_OrderRqMtrl_tech.pcode And u_Order_ml.wrkGrpid = u_OrderRqMtrl_tech.wrkGrpid And u_OrderMtrl_workgroup_tree.swkpid = u_OrderRqMtrl_tech.swkpid And u_OrderMtrl_workgroup_tree.owkpid = u_OrderRqMtrl_tech.owkpid And u_OrderMtrl_workgroup_tree.lp = u_OrderRqMtrl_tech.lp And u_OrderMtrl_workgroup_tree.partname = u_OrderRqMtrl_tech.partname And u_OrderMtrl_workgroup_tree.relname = u_OrderRqMtrl_tech.relname Where (u_Order_ml.porderid = u_OrderRqMtrl_tech.OrderID And u_order_ml.ordertype = 4 Or u_Order_ml.orderid = u_OrderRqMtrl_tech.OrderID And u_order_ml.ordertype <> 4) And (u_order_ml.scid = :arg_scid) And (u_Order_ml.orderid = :arg_orderid); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '按APS结果更新工艺进度开始结束时间失败,原因:'+sqlca.SQLErrText Goto ext End If //// ext: If rslt = 0 Then Rollback; p_reset() ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Destroy ds_tree_hz Destroy ds_tech_mx Destroy ds_tree Destroy ds_pricestr Destroy ds_modle_pf Return rslt end function public function integer addmxcmpl_planqty_wkp (long arg_scid, long arg_orderid, string arg_wkpname, long arg_wrkgrpid, long arg_owrkgrpid, decimal arg_addqty, datetime arg_bdate, datetime arg_edate, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 Dec ld_orderqty,ld_planqty String ls_mtrlname IF uo_option_update_lockdateflag = -1000 THEN rslt = 0 arg_msg = '选项:[270]工组派工单审核完毕自动写排程审核状态为最高级审核(全锁),读取初始默认值失败,操作取消!' GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF arg_addqty = 0 THEN arg_msg = '没有完成数量' rslt = 0 GOTO ext END IF IF status <> 1 THEN rslt = 0 arg_msg = "计划["+ordercode+"]只有在进行状态下才可以执行操作" GOTO ext END IF SELECT mtrlname INTO :ls_mtrlname FROM u_mtrldef,u_order_ml WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid And u_mtrldef.mtrlid = u_order_ml.mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致查询产品操作失败" GOTO ext END IF //检查是否完成 SELECT orderqty,taskqty INTO :ld_orderqty,:ld_planqty FROM u_OrderMtrl_workgroup WHERE ( u_OrderMtrl_workgroup.orderid = :arg_orderid ) AND ( u_OrderMtrl_workgroup.scid = :arg_scid ) AND ( u_OrderMtrl_workgroup.wkpname = :arg_wkpname ) AND ( u_OrderMtrl_workgroup.wrkgrpid = :arg_wrkgrpid ) And ( u_OrderMtrl_workgroup.owrkgrpid = :arg_owrkgrpid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误查询产品唯一码或计划计划数和已排程数量操作失败" GOTO ext END IF IF status = 1 THEN IF ld_orderqty < arg_addqty + ld_planqty THEN rslt = 0 arg_msg = '该计划明细产品:'+ls_mtrlname+',未派工数'+String(ld_orderqty - ld_planqty,'#,##0.00##' )+'小于本次排程数' GOTO ext END IF END IF IF arg_addqty < 0 THEN SetNull(arg_bdate) SetNull(arg_edate) END IF UPDATE u_OrderMtrl_workgroup SET u_OrderMtrl_workgroup.taskqty = u_OrderMtrl_workgroup.taskqty + :arg_addqty, u_OrderMtrl_workgroup.bdate = :arg_bdate, u_OrderMtrl_workgroup.edate = :arg_edate WHERE ( u_OrderMtrl_workgroup.orderid = :arg_orderid ) AND ( u_OrderMtrl_workgroup.scid = :arg_scid ) AND ( u_OrderMtrl_workgroup.wkpname = :arg_wkpname ) AND ( u_OrderMtrl_workgroup.wrkgrpid = :arg_wrkgrpid ) And ( u_OrderMtrl_workgroup.owrkgrpid = :arg_owrkgrpid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致更新生产计划完成数量操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF uo_option_update_lockdateflag = 1 THEN SELECT count(*) INTO :cnt FROM u_OrderMtrl_workgroup WHERE orderqty > taskqty AND scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询指令单工组是否完成派工失败,'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN UPDATE u_order_ml SET lockdateflag = 0 WHERE scid = :arg_scid And orderid = :arg_orderid; ELSE UPDATE u_order_ml SET lockdateflag = 3 WHERE scid = :arg_scid And orderid = :arg_orderid; END IF IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新指令单排程状态失败,'+sqlca.SQLErrText GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF p_reset() Return (rslt) end function public function integer acceptmx_wrk (long arg_tmpid, long arg_wrkgrpid, long arg_owrkgrpid, string arg_wkpname, datetime arg_begindate, datetime arg_requiredate, decimal arg_lastdays, decimal arg_lasthour, ref string arg_msg);Int rslt = 1 IF IsNull(arg_tmpid) THEN arg_tmpid = 0 IF IsNull(arg_wrkgrpid) THEN arg_wrkgrpid = 0 IF IsNull(arg_owrkgrpid) THEN arg_owrkgrpid = 0 IF IsNull(arg_wkpname) THEN arg_wkpname = '' IF IsNull(arg_lastdays) THEN arg_lastdays = 0 IF IsNull(arg_lasthour) THEN arg_lasthour = 0 it_mxbt_wrk++ s_wrk_tmp[it_mxbt_wrk].tmpid = arg_tmpid s_wrk_tmp[it_mxbt_wrk].wrkgrpid = arg_wrkgrpid s_wrk_tmp[it_mxbt_wrk].owrkgrpid = arg_owrkgrpid s_wrk_tmp[it_mxbt_wrk].wkpname = arg_wkpname s_wrk_tmp[it_mxbt_wrk].begindate = arg_begindate s_wrk_tmp[it_mxbt_wrk].requiredate = arg_requiredate s_wrk_tmp[it_mxbt_wrk].lastdays = arg_lastdays s_wrk_tmp[it_mxbt_wrk].lasthour = arg_lasthour RETURN rslt end function public function integer uof_order_add_wkp_tmp (long arg_scid, long arg_orderid, long arg_tmpid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_finishqty Long ll_dftwrkgrpid DateTime ldt_tmp IF arg_orderid = 0 THEN rslt = 0 arg_msg = "没有建立对象" GOTO ext END IF Long ll_wrkgrpid[],ll_owrkgrpid[] String ls_wkpname[] Long ll_ifjd[] DateTime ld_requiredate[],ld_begindate[] String ls_dscrp[] Decimal ll_lastdays[],ld_lasthour[] Decimal ld_orderqty[] Long i,cnt Long ll_i i = 1 DELETE FROM u_OrderMtrl_workgroup WHERE orderid = :arg_orderid AND scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除计划的交接明细表相应记录操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF INSERT INTO u_ordermtrl_workgroup (scid, orderid, mtrlid, wrkgrpid, owrkgrpid, orderqty, lastdays, ifjd, wkpname, printid, iflast, groupstr, lp, printlp, lasthour, workgroupid) SELECT u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_mtrl_wkp.swkpid, u_mtrl_wkp.owkpid, u_order_ml.orderqty, u_mtrl_wkp.lastdays, 1, u_mtrl_wkp.wkpname, u_mtrl_wkp.printid, u_mtrl_wkp.iflast, u_mtrl_wkp.groupstr, u_mtrl_wkp.lp, u_mtrl_wkp.printlp, u_mtrl_wkp.lasthour, u_mtrl_wkp.workgroupid FROM u_mtrl_wkp,u_order_ml WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid AND u_mtrl_wkp.mtrlid = u_order_ml.mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '从物料生产流程加入生产计划车间失败,原因:'+sqlca.SQLErrText GOTO ext END IF IF ordertype <> 4 THEN INSERT INTO u_ordermtrl_workgroup (scid, orderid, mtrlid, wrkgrpid, owrkgrpid, orderqty, lastdays, ifjd, printid, groupstr, lp, printlp) SELECT u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workgroup.wrkgrpid, 0, u_order_ml.orderqty, 0,0,1000,'',0,0 FROM u_sc_workgroup,u_order_ml WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid AND u_sc_workgroup.ifprint = 1 AND u_sc_workgroup.ifjj = 1 AND u_sc_workgroup.wrkgrpid NOT In (SELECT u_mtrl_wkp.swkpid FROM u_mtrl_wkp Where u_mtrl_wkp.mtrlid = :mtrlid) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '从车间资料加入工生产计划车间失败,原因:'+sqlca.SQLErrText GOTO ext END IF END IF Long l_wrkgrpid[],l_owrkgrpid[],l_ifjd[],l_printid[] Decimal l_lastdays[],l_lasthour[] String l_wkpname[],l_groupstr[] Long j,cnt_2,ll_count,ll_j DateTime ld_sdate,ld_edate,ld_update_edate DateTime ld_sdate_max Decimal ld_resthour,ld_workhour,ld_resthour_e Int li_timehour Int li_rdate Decimal ld_resthour_tmp DateTime ld_workdate_tmp Long l_printid_gr[] String l_groupstr_gr[] Long cnt_gr DateTime ld_sdate_gr[] Long ll_workgroupid[] Long k Boolean lb_if_find = FALSE String ls_arg_date IF uo_option_auto_wrkdate = -1000 THEN rslt = 0 arg_msg = '选项:[126]生产计划,生产指令自动计算工组开始日期,结束日期,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_use_sc_date = -1000 THEN rslt = 0 arg_msg = '选项:[180]工组进度按小时统计,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_auto_wrkdate = 1 THEN SELECT orderdate INTO :ld_sdate_max FROM u_order_ml WHERE orderid = :arg_orderid AND scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询生产计划或指令单计划开始日期失败'+sqlca.SQLErrText GOTO ext END IF ld_sdate_max = DateTime(Date(ld_sdate_max),Time('8:00:00')) IF uof_order_cmp_wrk_date(arg_scid,arg_orderid,ld_sdate_max,arg_msg,False) = 0 THEN arg_msg = '计算工组日期失败,'+arg_msg rslt = 0 GOTO ext END IF // j = 1 // // DECLARE cur_wrkmx_2 CURSOR FOR // SELECT wrkgrpid, // owrkgrpid, // wkpname, // ifjd, // printid, // lastdays, // groupstr, // lasthour // FROM u_OrderMtrl_workgroup // WHERE orderid = :arg_orderid // AND scid = :arg_scid // Order By printid; // // OPEN cur_wrkmx_2; // FETCH cur_wrkmx_2 INTO :l_wrkgrpid[j],:l_owrkgrpid[j], // :l_wkpname[j],:l_ifjd[j],:l_printid[j],:l_lastdays[j], // :l_groupstr[j],:l_lasthour[j]; // // DO WHILE sqlca.SQLCode = 0 // j++ // FETCH cur_wrkmx_2 INTO :l_wrkgrpid[j],:l_owrkgrpid[j], // :l_wkpname[j],:l_ifjd[j],:l_printid[j],:l_lastdays[j], // :l_groupstr[j],:l_lasthour[j]; // LOOP // CLOSE cur_wrkmx_2; // cnt_2 = j - 1 // // FOR ll_i = 1 TO cnt_2 // ll_count = 0 // IF l_ifjd[ll_i] = 1 THEN // // IF l_groupstr[ll_i] <> '' THEN // lb_if_find = FALSE // FOR k = 1 TO cnt_gr // IF l_groupstr_gr[k] = l_groupstr[ll_i] THEN // ld_sdate = ld_sdate_gr[k] // lb_if_find = TRUE // EXIT // END IF // NEXT // // IF lb_if_find = FALSE THEN // ld_sdate = ld_sdate_max // END IF // ELSE // ld_sdate = ld_sdate_max // END IF // // ls_arg_date = String(ld_sdate,'yyyy-mm-dd') // // IF uo_option_use_sc_date = 1 THEN // SELECT sum(banhour) INTO :ld_workhour // FROM u_sc_date // WHERE CONVERT(CHAR(10), Workdate, 120) = :ls_arg_date // AND Proid = :l_wrkgrpid[ll_i]; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询工组日历失败'+sqlca.SQLErrText // GOTO ext // END IF // ELSE // ld_workhour = 8 // END IF // // li_timehour = Hour(Time(ld_sdate)) // // IF li_timehour <= 12 THEN // ld_resthour = ld_workhour - (li_timehour - 8) // ELSEIF li_timehour > 12 AND li_timehour <= 18 THEN // ld_resthour = ld_workhour - (li_timehour - 14 + 4) // ELSEIF li_timehour > 18 THEN // ld_resthour = ld_workhour - (li_timehour - 19 + 8) // END IF // // IF ld_resthour >= l_lasthour[ll_i] THEN // IF li_timehour + l_lasthour[ll_i] <= 12 THEN // ld_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_i]) + ':00:00')) // ELSEIF li_timehour + l_lasthour[ll_i] <= 18 THEN // IF li_timehour < 12 THEN // ld_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_i] + 2) + ':00:00')) // ELSE // ld_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_i]) + ':00:00')) // END IF // ELSE // IF li_timehour < 12 THEN // ld_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_i] + 3) + ':00:00')) // ELSEIF li_timehour < 18 THEN // ld_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_i] + 1) + ':00:00')) // ELSE // ld_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_i]) + ':00:00')) // END IF // END IF // ld_resthour_e = ld_resthour - l_lasthour[ll_i] // ELSE // IF uo_option_use_sc_date = 0 THEN // li_rdate = Int((l_lasthour[ll_i] - ld_resthour) / 8 ) // ld_resthour_tmp = Mod((l_lasthour[ll_i] - ld_resthour),8) // // // IF ld_resthour_tmp = 0 THEN // ld_resthour_tmp = 8 // li_rdate = li_rdate // ELSE // li_rdate = li_rdate + 1 // END IF // // IF 8 + ld_resthour_tmp <= 12 THEN // ld_edate = DateTime(RelativeDate(Date(ld_sdate),li_rdate),Time(String(8 + ld_resthour_tmp) + ':00:00')) // ELSEIF 8 + ld_resthour_tmp + 2 <= 18 THEN // ld_edate = DateTime(RelativeDate(Date(ld_sdate),li_rdate),Time(String(8 + ld_resthour_tmp + 2) + ':00:00')) // ELSE // ld_edate = DateTime(RelativeDate(Date(ld_sdate),li_rdate),Time(String(8 + ld_resthour_tmp + 3) + ':00:00')) // END IF // ld_resthour_e = ld_workhour - ld_resthour_tmp // ELSE // ld_resthour_tmp = l_lasthour[ll_i] - ld_resthour // // SELECT top 1 sum(banhour),workdate INTO :ld_workhour,:ld_workdate_tmp // FROM u_sc_date // WHERE CONVERT(CHAR(10), Workdate, 120) > :ls_arg_date // AND Proid = :l_wrkgrpid[ll_i] // group by workdate // Order By Workdate; // DO WHILE ld_resthour_tmp > ld_workhour AND sqlca.SQLCode = 0 // // ls_arg_date = String(ld_workdate_tmp,'yyyy-mm-dd') // ld_resthour_tmp = ld_resthour_tmp - ld_workhour // SELECT top 1 sum(banhour),workdate INTO :ld_workhour,:ld_workdate_tmp // FROM u_sc_date // WHERE CONVERT(CHAR(10), Workdate, 120) > :ls_arg_date // AND Proid = :l_wrkgrpid[ll_i] // group by workdate // Order By Workdate; // LOOP // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询工组日历失败'+sqlca.SQLErrText // GOTO ext // END IF // IF 8 + ld_resthour_tmp <= 12 THEN // ld_edate = DateTime(Date(ld_workdate_tmp),Time(String(8 + ld_resthour_tmp) + ':00:00')) // ELSEIF 8 + ld_resthour_tmp + 2 <= 18 THEN // ld_edate = DateTime(Date(ld_workdate_tmp),Time(String(8 + ld_resthour_tmp + 2) + ':00:00')) // ELSE // ld_edate = DateTime(Date(ld_workdate_tmp),Time(String(8 + ld_resthour_tmp + 3) + ':00:00')) // END IF // // ld_resthour_e = ld_workhour - ld_resthour_tmp // END IF // // END IF // // UPDATE u_ordermtrl_workgroup // SET begindate = :ld_sdate, // requiredate = :ld_edate // WHERE orderid = :arg_orderid // AND scid = :arg_scid // AND wrkGrpid = :l_wrkgrpid[ll_i] // AND owrkgrpid = :l_owrkgrpid[ll_i] // AND wkpname = :l_wkpname[ll_i]; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '更新工组开始及完成时间失败'+sqlca.SQLErrText // GOTO ext // END IF // // IF l_groupstr[ll_i] <> '' THEN // lb_if_find = FALSE // // IF ld_resthour_e > 0 THEN // IF Hour(Time(ld_edate)) = 12 THEN // ld_sdate = DateTime(Date(ld_edate),Time('14:00:00')) // ELSEIF Hour(Time(ld_edate)) = 18 THEN // ld_sdate = DateTime(Date(ld_edate),Time('19:00:00')) // ELSE // ld_sdate = ld_edate // END IF // ELSE // ld_sdate = DateTime(RelativeDate(Date(ld_edate),1),Time('8:00:00')) // END IF // // FOR k = 1 TO cnt_gr // IF l_groupstr_gr[k] = l_groupstr[ll_i] THEN // ld_sdate_gr[k] = ld_sdate // l_printid_gr[k] = l_printid[ll_i] // lb_if_find = TRUE // EXIT // END IF // NEXT // // IF lb_if_find = FALSE THEN // cnt_gr++ // l_printid_gr[cnt_gr] = l_printid[ll_i] // l_groupstr_gr[cnt_gr] = l_groupstr[ll_i] // ld_sdate_gr[cnt_gr] = ld_sdate // END IF // END IF // // FOR ll_j = ll_i + 1 TO cnt_2 // IF l_ifjd[ll_j] = 1 AND & // l_printid[ll_j] = l_printid[ll_i] THEN // // // IF l_groupstr[ll_j] <> '' THEN // lb_if_find = FALSE // FOR k = 1 TO cnt_gr // IF l_groupstr_gr[k] = l_groupstr[ll_j] THEN // ld_sdate = ld_sdate_gr[k] // lb_if_find = TRUE // EXIT // END IF // NEXT // // IF lb_if_find = FALSE THEN // ld_sdate = ld_sdate_max // END IF // ELSE // ld_sdate = ld_sdate_max // END IF // // ls_arg_date = String(ld_sdate,'yyyy-mm-dd') // // IF uo_option_use_sc_date = 1 THEN // SELECT sum(banhour) INTO :ld_workhour // FROM u_sc_date // WHERE CONVERT(CHAR(10), Workdate, 120) = :ls_arg_date // AND Proid = :l_wrkgrpid[ll_j]; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询工组日历失败'+sqlca.SQLErrText // GOTO ext // END IF // ELSE // ld_workhour = 8 // END IF // // li_timehour = Hour(Time(ld_sdate)) // // IF li_timehour <= 12 THEN // ld_resthour = ld_workhour - (li_timehour - 8) // ELSEIF li_timehour > 12 AND li_timehour <= 18 THEN // ld_resthour = ld_workhour - (li_timehour - 14 + 4) // ELSEIF li_timehour > 18 THEN // ld_resthour = ld_workhour - (li_timehour - 19 + 8) // END IF // // IF ld_resthour >= l_lasthour[ll_j] THEN // IF li_timehour + l_lasthour[ll_j] <= 12 THEN // ld_update_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_j]) + ':00:00')) // ELSEIF li_timehour + l_lasthour[ll_j] <= 18 THEN // IF li_timehour < 12 THEN // ld_update_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_j] + 2) + ':00:00')) // ELSE // ld_update_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_j]) + ':00:00')) // END IF // ELSE // IF li_timehour < 12 THEN // ld_update_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_j] + 3) + ':00:00')) // ELSEIF li_timehour < 18 THEN // ld_update_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_j] + 1) + ':00:00')) // ELSE // ld_update_edate = DateTime(Date(ld_sdate),Time(String(li_timehour + l_lasthour[ll_j]) + ':00:00')) // END IF // END IF // ld_resthour_e = ld_resthour - l_lasthour[ll_j] // ELSE // IF uo_option_use_sc_date = 0 THEN // li_rdate = Int((l_lasthour[ll_j] - ld_resthour) / 8 ) // ld_resthour_tmp = Mod((l_lasthour[ll_j] - ld_resthour),8) // // IF ld_resthour_tmp = 0 THEN // ld_resthour_tmp = 8 // li_rdate = li_rdate // ELSE // li_rdate = li_rdate + 1 // END IF // // IF 8 + ld_resthour_tmp <= 12 THEN // ld_update_edate = DateTime(RelativeDate(Date(ld_sdate),li_rdate),Time(String(8 + ld_resthour_tmp) + ':00:00')) // ELSEIF 8 + ld_resthour_tmp + 2 <= 18 THEN // ld_update_edate = DateTime(RelativeDate(Date(ld_sdate),li_rdate),Time(String(8 + ld_resthour_tmp + 2) + ':00:00')) // ELSE // ld_update_edate = DateTime(RelativeDate(Date(ld_sdate),li_rdate),Time(String(8 + ld_resthour_tmp + 3) + ':00:00')) // END IF // ld_resthour_e = ld_workhour - ld_resthour_tmp // ELSE // ld_resthour_tmp = l_lasthour[ll_j] - ld_resthour // // SELECT top 1 sum(banhour),workdate INTO :ld_workhour,:ld_workdate_tmp // FROM u_sc_date // WHERE CONVERT(CHAR(10), Workdate, 120) > :ls_arg_date // AND Proid = :l_wrkgrpid[ll_j] // group by workdate // Order By Workdate; // DO WHILE ld_resthour_tmp > ld_workhour AND sqlca.SQLCode = 0 // // ls_arg_date = String(ld_workdate_tmp,'yyyy-mm-dd') // ld_resthour_tmp = ld_resthour_tmp - ld_workhour // SELECT top 1 sum(banhour),workdate INTO :ld_workhour,:ld_workdate_tmp // FROM u_sc_date // WHERE CONVERT(CHAR(10), Workdate, 120) > :ls_arg_date // AND Proid = :l_wrkgrpid[ll_j] // group by workdate // Order By Workdate; // LOOP // // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询工组日历失败'+sqlca.SQLErrText // GOTO ext // END IF // // IF 8 + ld_resthour_tmp <= 12 THEN // ld_update_edate = DateTime(Date(ld_workdate_tmp),Time(String(8 + ld_resthour_tmp) + ':00:00')) // ELSEIF 8 + ld_resthour_tmp + 2 <= 18 THEN // ld_update_edate = DateTime(Date(ld_workdate_tmp),Time(String(8 + ld_resthour_tmp + 2) + ':00:00')) // ELSE // ld_update_edate = DateTime(Date(ld_workdate_tmp),Time(String(8 + ld_resthour_tmp + 3) + ':00:00')) // END IF // END IF // END IF // // UPDATE u_ordermtrl_workgroup // SET begindate = :ld_sdate, // requiredate = :ld_update_edate // WHERE orderid = :arg_orderid // AND scid = :arg_scid // AND wrkGrpid = :l_wrkgrpid[ll_j] // AND owrkgrpid = :l_owrkgrpid[ll_j] // AND wkpname = :l_wkpname[ll_j]; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '更新工组开始及完成时间失败'+sqlca.SQLErrText // GOTO ext // END IF // // IF l_groupstr[ll_j] <> '' THEN // lb_if_find = FALSE // // IF ld_resthour_e > 0 THEN // IF Hour(Time(ld_update_edate)) = 12 THEN // ld_sdate = DateTime(Date(ld_update_edate),Time('14:00:00')) // ELSEIF Hour(Time(ld_edate)) = 18 THEN // ld_sdate = DateTime(Date(ld_update_edate),Time('19:00:00')) // ELSE // ld_sdate = ld_update_edate // END IF // // ELSE // ld_sdate = DateTime(RelativeDate(Date(ld_update_edate),1),Time('8:00:00')) // END IF // // FOR k = 1 TO cnt_gr // IF l_groupstr_gr[k] = l_groupstr[ll_j] THEN // ld_sdate_gr[k] = ld_sdate // l_printid_gr[k] = l_printid[ll_j] // lb_if_find = TRUE // EXIT // END IF // NEXT // // IF lb_if_find = FALSE THEN // cnt_gr++ // l_printid_gr[cnt_gr] = l_printid[ll_j] // l_groupstr_gr[cnt_gr] = l_groupstr[ll_j] // ld_sdate_gr[cnt_gr] = ld_sdate // END IF // END IF // // IF ld_edate < ld_update_edate THEN // ld_edate = ld_update_edate // END IF // ll_count++ // END IF // NEXT // ll_i = ll_i + ll_count // // IF Hour(Time(ld_edate)) = 18 THEN // ldt_tmp = DateTime(RelativeDate(Date(ld_edate),1),Time('8:00:00')) // ELSEIF Hour(Time(ld_edate)) = 12 THEN // ldt_tmp = DateTime(Date(ld_edate),Time('14:00:00')) // ELSE // ldt_tmp = ld_edate // END IF // // IF ld_sdate_max < ldt_tmp THEN // ld_sdate_max = ldt_tmp // END IF // END IF // NEXT END IF //更新要求完成日期 DECLARE cur_wrk_tmp CURSOR FOR SELECT requiredate, begindate, lastdays, lasthour, workgroupid, wrkgrpid, owrkgrpid, wkpname FROM u_OrderMtrl_workgroup_tmp Where tmpid = :arg_tmpid; OPEN cur_wrk_tmp; j = 1 FETCH cur_wrk_tmp INTO :ld_requiredate[j],:ld_begindate[j],:ll_lastdays[j],:ld_lasthour[j],:ll_workgroupid[j], :ll_wrkgrpid[j],:ll_owrkgrpid[j],:ls_wkpname[j]; DO WHILE sqlca.SQLCode = 0 j++ FETCH cur_wrk_tmp INTO :ld_requiredate[j],:ld_begindate[j],:ll_lastdays[j],:ld_lasthour[j],:ll_workgroupid[j], :ll_wrkgrpid[j],:ll_owrkgrpid[j],:ls_wkpname[j]; LOOP CLOSE cur_wrk_tmp; cnt = j - 1 FOR ll_i = 1 TO cnt UPDATE u_ordermtrl_workgroup SET requiredate = :ld_requiredate[ll_i], begindate = :ld_begindate[ll_i], lastdays = :ll_lastdays[ll_i], lasthour = :ld_lasthour[ll_i], workgroupid = :ll_workgroupid[ll_i] WHERE orderid = :arg_orderid AND scid = :arg_scid AND wrkgrpid = :ll_wrkgrpid[ll_i] AND owrkgrpid = :ll_owrkgrpid[ll_i] AND wkpname = :ls_wkpname[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新要求完成时间失败,原因:'+sqlca.SQLErrText GOTO ext END IF NEXT //按日期加入进度表 DELETE FROM u_ordermtrl_wrk_jd WHERE orderid = :arg_orderid AND scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除工组工作量明细表相应记录操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF j = 1 DECLARE cur_wrkmx_jd CURSOR FOR SELECT wrkgrpid, owrkgrpid, wkpname, requiredate, begindate, orderqty, workgroupid FROM u_OrderMtrl_workgroup WHERE orderid = :arg_orderid AND scid = :arg_scid; OPEN cur_wrkmx_jd; FETCH cur_wrkmx_jd INTO :ll_wrkgrpid[j],:ll_owrkgrpid[j], :ls_wkpname[j],:ld_requiredate[j],:ld_begindate[j],:ld_orderqty[j],:ll_workgroupid[j]; DO WHILE sqlca.SQLCode = 0 j++ FETCH cur_wrkmx_jd INTO :ll_wrkgrpid[j],:ll_owrkgrpid[j], :ls_wkpname[j],:ld_requiredate[j],:ld_begindate[j],:ld_orderqty[j],:ll_workgroupid[j]; LOOP CLOSE cur_wrkmx_jd; cnt = j - 1 Long ll_DaysAfter DateTime ldt_wrkdate Decimal ld_order_wrk FOR ll_i = 1 TO cnt ll_DaysAfter = DaysAfter(Date(ld_begindate[ll_i]), Date(ld_requiredate[ll_i])) IF ll_DaysAfter + 1 <> 0 THEN ld_order_wrk = ld_orderqty[ll_i] / (ll_DaysAfter + 1) FOR ll_j = 1 TO ll_DaysAfter + 1 ldt_wrkdate = DateTime(RelativeDate(Date(ld_begindate[ll_i]),ll_j - 1 ),Time(0)) INSERT INTO u_ordermtrl_wrk_jd (scid, orderid, wrkgrpid, owrkgrpid, wkpname, wrkdate, orderqty, workgroupid) VALUES (:arg_scid, :arg_orderid, :ll_wrkgrpid[ll_i], :ll_owrkgrpid[ll_i], :ls_wkpname[ll_i], :ldt_wrkdate, :ld_order_wrk, :ll_workgroupid[ll_i]); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "插入工组工作量明细表失败"+"~n"+sqlca.SQLErrText GOTO ext END IF NEXT END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT; END IF RETURN rslt end function public function integer uof_auto_order_plan (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 s_order_plan arg_s_plan,arg_s_empty Long ll_wrkgrpid[],ll_owrkgrpid[] String ls_mtrlcode[] Decimal ld_orderqty[] DateTime ldt_requiredate[],ldt_begindate[] String ls_wkpname[] Long ll_workgroupid[],ll_rel_planid[],ll_rel_planprintid[] Long ll_mxbt Long ll_i Long cnt Long ll_planid,ll_printid Int li_flag,li_secflag uo_order_Plan uo_plan uo_plan = CREATE uo_order_Plan ll_mxbt = 1 DECLARE cur_ordermtrl CURSOR FOR SELECT u_OrderMtrl_workgroup.wrkGrpid, u_OrderMtrl_workgroup.owrkGrpid, u_mtrldef.mtrlcode, u_OrderMtrl_workgroup.orderqty, u_OrderMtrl_workgroup.begindate, u_OrderMtrl_workgroup.requiredate, u_OrderMtrl_workgroup.wkpname, u_OrderMtrl_workgroup.workgroupid, u_OrderMtrl_workgroup.rel_planid, u_OrderMtrl_workgroup.rel_planprintid FROM u_OrderMtrl_workgroup INNER JOIN u_mtrldef ON u_OrderMtrl_workgroup.mtrlid = u_mtrldef.mtrlid WHERE u_OrderMtrl_workgroup.scid = :arg_scid AND u_OrderMtrl_workgroup.orderid = :arg_orderid Order By u_OrderMtrl_workgroup.printid,u_OrderMtrl_workgroup.groupstr; OPEN cur_ordermtrl; FETCH cur_ordermtrl INTO :ll_wrkgrpid[ll_mxbt], :ll_owrkgrpid[ll_mxbt], :ls_mtrlcode[ll_mxbt], :ld_orderqty[ll_mxbt], :ldt_begindate[ll_mxbt], :ldt_requiredate[ll_mxbt], :ls_wkpname[ll_mxbt], :ll_workgroupid[ll_mxbt], :ll_rel_planid[ll_mxbt], :ll_rel_planprintid[ll_mxbt]; DO WHILE sqlca.SQLCode = 0 ll_mxbt++ FETCH cur_ordermtrl INTO :ll_wrkgrpid[ll_mxbt], :ll_owrkgrpid[ll_mxbt], :ls_mtrlcode[ll_mxbt], :ld_orderqty[ll_mxbt], :ldt_begindate[ll_mxbt], :ldt_requiredate[ll_mxbt], :ls_wkpname[ll_mxbt], :ll_workgroupid[ll_mxbt], :ll_rel_planid[ll_mxbt], :ll_rel_planprintid[ll_mxbt]; LOOP CLOSE cur_ordermtrl; ll_mxbt = ll_mxbt - 1 FOR ll_i = 1 TO ll_mxbt IF ll_rel_planid[ll_i] > 0 AND ll_rel_planprintid[ll_i] > 0 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_order_planmx WHERE scid = :arg_scid AND oplanid = :ll_rel_planid[ll_i] AND printid = :ll_rel_planprintid[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询是否已有派工单失败,'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN ll_planid = 0 ll_printid = 0 ELSE ll_planid = ll_rel_planid[ll_i] ll_printid = ll_rel_planprintid[ll_i] SELECT flag,secflag INTO :li_flag,:li_secflag FROM u_order_plan WHERE scid = :arg_scid AND oplanid = :ll_planid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关派工单状态失败,'+sqlca.SQLErrText GOTO ext END IF END IF ELSE ll_planid = 0 ll_printid = 0 END IF IF li_secflag = 1 THEN IF uo_plan.caudit_2(arg_scid,ll_planid,arg_msg,FALSE) = 0 THEN arg_msg = '相关派工单撤二审失败,'+arg_msg rslt = 0 GOTO ext END IF END IF IF li_flag = 1 THEN IF uo_plan.caudit(arg_scid,ll_planid,arg_msg,FALSE) = 0 THEN arg_msg = '相关派工单撤审失败,'+arg_msg rslt = 0 GOTO ext END IF END IF arg_s_plan = arg_s_empty arg_s_plan.scid = arg_scid arg_s_plan.oplanid = ll_planid arg_s_plan.oplandate = ldt_begindate[ll_i] arg_s_plan.assign_emp = publ_operator arg_s_plan.relcode = '' arg_s_plan.dscrp = '' arg_s_plan.workgroupid = ll_workgroupid[ll_i] arg_s_plan.wrkGrpid = ll_wrkgrpid[ll_i] arg_s_plan.arg_s_planmx[1].mtrlcode = ls_mtrlcode[ll_i] arg_s_plan.arg_s_planmx[1].qty = ld_orderqty[ll_i] arg_s_plan.arg_s_planmx[1].mxdscrp = '' arg_s_plan.arg_s_planmx[1].orderid = arg_orderid arg_s_plan.arg_s_planmx[1].requiredate = ldt_requiredate[ll_i] arg_s_plan.arg_s_planmx[1].wkpname = ls_wkpname[ll_i] arg_s_plan.arg_s_planmx[1].owrkGrpid = ll_owrkgrpid[ll_i] arg_s_plan.arg_s_planmx[1].printid = 1 IF uo_plan.Save(arg_s_plan,publ_operator,arg_msg,FALSE) = 0 THEN arg_msg = '相关派工单保存失败,'+arg_msg rslt = 0 GOTO ext END IF IF uo_plan.audit(arg_scid,uo_plan.uo_oplanid,publ_operator,arg_msg,FALSE) = 0 THEN arg_msg = '相关派工单审核失败,'+arg_msg rslt = 0 GOTO ext END IF IF uo_plan.audit_2(arg_scid,uo_plan.uo_oplanid,publ_operator,arg_msg,FALSE) = 0 THEN arg_msg = '相关派工单二审失败,'+arg_msg rslt = 0 GOTO ext END IF UPDATE u_OrderMtrl_workgroup SET rel_planid = :uo_plan.uo_oplanid, rel_planprintid = 1 WHERE scid = :arg_scid AND orderid = :arg_orderid AND wrkgrpid = :ll_wrkgrpid[ll_i] AND owrkGrpid = :ll_owrkgrpid[ll_i] AND wkpname = :ls_wkpname[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新相关单据唯一码失败,'+sqlca.SQLErrText GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT; END IF RETURN rslt end function public function integer add_newdscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg); Int rslt = 1 IF arg_newdescppart = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arG_MSG) IF rslt = 0 THEN GOTO ext IF status = 0 THEN rslt = 0 arG_MSG = "待审核状态下不可用" GOTO ext END IF UPDATE u_order_ml SET DSCRP = :arg_newdescppart WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid; IF SQLCA.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致添加计划备注操作失败"+"~n"+SQLCA.SQLErrText ROLLBACK; GOTO ext END IF DSCRP = arg_newdescppart ext: IF rslt = 1 THEN COMMIT; END IF p_reset() RETURN (rslt) end function public function integer sec_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 Long ls_i IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_if_oa_order_ml = -1000 THEN rslt = 0 arg_msg = '选项:[230]生产计划使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[225]生产计划使用二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_if_oa_order_zl = -1000 THEN rslt = 0 arg_msg = '选项:[231]生产指令单使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_zl_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[226]生产指令单使用二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF arg_orderid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //检查是否有相关配置变更单未审 cnt = 0 SELECT count(*) INTO :cnt FROM u_saletaskmx_change INNER JOIN u_saletaskmx_changemx ON u_saletaskmx_change.Billid = u_saletaskmx_changemx.billid WHERE (u_saletaskmx_change.affirmflag = 0 OR u_saletaskmx_change.flag = 0) AND (u_saletaskmx_changemx.orderid = :arg_orderid) And (u_saletaskmx_changemx.scid = :arg_scid) ; IF sqlca.SQLCode <> 0 THEN arg_msg = ordercode + ',查询是否有相关配置变更单未审失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN arg_msg = ordercode + ',有相关配置变更单未审,请先审核' rslt = 0 GOTO ext END IF IF ordertype <> 4 THEN IF uo_option_if_oa_order_ml = 1 And uo_option_order_ml_secaudit = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_orderid,36,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF ELSE IF uo_option_if_oa_order_zl = 1 And uo_option_order_ml_zl_secaudit = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_orderid,1138,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF status <> 4 THEN rslt = 0 arg_msg = "计划只有在待终审状态才可以执行终审，请核对" GOTO ext END IF UPDATE u_order_ml SET sec_permit_emp = :publ_operator, sec_permit_date = getdate(), status = 1 WHERE orderid = :arg_orderid AND scid = :scid And status = 4; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致计划终审操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF RETURN rslt end function public function integer c_sec_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 Long ls_i String ls_mtrlcode Decimal finishqty,ld_sqty,ld_oqty DateTime null_dt SetNull(null_dt) IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF ctmint > 0 THEN arg_msg = '单据已截数,不能操作' rslt = 0 GOTO ext END IF //IF pzlorderid > 0 THEN // arg_msg = '自动生成的指令,不能操作' // rslt = 0 // GOTO ext //END IF IF status <> 1 THEN rslt = 0 arg_msg = "只有在已审核状态才可以执行撤消审核，请核对" GOTO ext END IF IF scllflag = 1 THEN rslt = 0 arg_msg = "计划已执行用料审批,请先用料撤审" GOTO ext END IF IF ordertype = 4 THEN IF ifauto_optype = 0 THEN IF iffg = 1 And ifauto = 1 THEN arg_msg = '自动生成的返工指令,不能手动撤审,需撤审相应返工物料运算批' rslt = 0 GOTO ext END IF END IF END IF //查询是否已开生产指令单终止单 cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml_stop WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询是否有相关的生产指令单终止单失败' rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '本生产计划已开了相关的生产指令单终止单,不能撤审' GOTO ext END IF // //查询是否有相关的成品生产计划 cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :arg_scid And pforderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询是否有相关的成品生产计划失败' rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '本生产计划已开了相关的成品生产计划,不能撤审' GOTO ext END IF // SELECT mtrlcode INTO :ls_mtrlcode FROM u_mtrldef Where mtrlid = :mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询产品编号失败' rslt = 0 GOTO ext END IF IF getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //检查报数单 SELECT sum(finishqty) INTO :finishqty FROM u_OrderMtrl_workgroup WHERE orderid = :arg_orderid And scid = :scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产计划工组报数失败' rslt = 0 GOTO ext END IF IF finishqty > 0 THEN arg_msg = '生产计划已有工组报数,不能撤审' rslt = 0 GOTO ext END IF //条码进度 SELECT sum(sqty),sum(oqty) INTO :ld_sqty,:ld_oqty FROM u_OrderMtrl_workgroup_tree WHERE orderid = :arg_orderid And scid = :scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产计划工组报数失败' rslt = 0 GOTO ext END IF IF ld_sqty > 0 THEN arg_msg = '生产计划已有工组完成数,不能撤审' rslt = 0 GOTO ext END IF IF ld_oqty > 0 THEN arg_msg = '生产计划已有工组接收数,不能撤审' rslt = 0 GOTO ext END IF //检查已完成数量 IF AcmpQty > 0 THEN arg_msg = '生产计划已有进仓数,不能撤审' rslt = 0 GOTO ext END IF IF planqty > 0 THEN arg_msg = '生产计划已有排程数,不能撤审' rslt = 0 GOTO ext END IF //检查工序已开单数,已确认完成数 Decimal ld_amount Decimal ld_finishqty ld_amount = 0 SELECT sum(isnull(v_order_procode.amount,0)) INTO :ld_amount FROM v_order_procode WHERE v_order_procode.orderid = :arg_orderid And v_order_procode.scid = :scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询工序已开单数操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF ld_amount > 0 THEN arg_msg = '生产计划工序已有开单数,不能撤审' rslt = 0 GOTO ext END IF ld_finishqty = 0 SELECT sum(U_OrderRqwp.finishqty) INTO :ld_finishqty FROM U_OrderRqwp WHERE ( U_OrderRqwp.scid = :scid ) AND ( U_OrderRqwp.orderid = :arg_orderid ) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询工序已确认完成数操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF ld_finishqty > 0 THEN arg_msg = '生产计划工序已确认完成数,不能撤审' rslt = 0 GOTO ext END IF //检查派工数量 cnt = 0 SELECT count(*) INTO :cnt FROM u_order_planmx WHERE ( u_order_planmx.orderid = :arg_orderid ) AND ( u_order_planmx.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询计划是否已开生产派工单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "生产计划已经有相关派工单,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //检查指令单 IF ordertype <> 4 THEN IF uof_check_if_zl(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF //检查进数量 cnt = 0 SELECT count(*) INTO :cnt FROM u_inware,u_inwaremx WHERE ( u_inware.billtype = 3 ) AND ( u_inware.scid = u_inwaremx.scid ) AND ( u_inware.inwareid = u_inwaremx.inwareid ) AND ( u_inwaremx.relid = :arg_orderid ) AND ( u_inwaremx.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询计划是否已开生产进仓单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "生产计划已经有相关生产进仓单据,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //检查领料数量 SELECT count(*) INTO :cnt FROM u_outware,u_outwaremx WHERE ( u_outware.billtype = 3 ) AND ( u_outware.scid = u_outwaremx.scid ) AND ( u_outware.outwareid = u_outwaremx.outwareid ) AND ( u_outwaremx.relid = :arg_orderid ) AND ( u_outwaremx.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询计划领料数量操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "生产计划已经有相关领料出仓单据,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //检查工序派工单 SELECT count(*) INTO :cnt FROM u_sc_task WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询相关工序派工单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "生产计划已经有相关工序派工单,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //检查是否已开发料通知单 cnt = 0 SELECT count(*) INTO :cnt FROM u_outware_scllplan_mx,u_outware_scllplan WHERE ( u_outware_scllplan.outwareid = u_outware_scllplan_mx.outwareid ) AND ( u_outware_scllplan_mx.orderid = :arg_orderid ) AND ( u_outware_scllplan.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询指令单是否已开发料通知单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "指令单已经有相关发料通知单,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF UPDATE u_order_ml SET status = 4, sec_Permit_emp = '', sec_Permit_date = :null_dt WHERE orderid = :arg_orderid AND scid = :arg_scid And status = 1; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows = 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致计划撤消审核操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Return (rslt) end function public function integer uof_add_procode_qty (long arg_scid, long arg_orderid, string arg_procode, datetime arg_billdate, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);//更新工序进度完成数 Int rslt = 1 String ls_ordercode String ls_mtrlcode Decimal ld_orderqty,ld_acmpqty,ld_trueqty DateTime null_dt Long cnt SetNull(null_dt) If uo_option_if_taskwork_acmpqty = -1000 Then rslt = 0 arg_msg = '选项:[202]计件单选生产计划时按已进仓数限制,读取初始默认值失败,操作取消!' Goto ext End If If arg_orderid <= 0 Then rslt = 0 arg_msg = '错误的计划唯一码' Goto ext End If Select ordercode Into :ls_ordercode From u_Order_ml Where OrderID = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then arg_msg = '查询生产计划编号失败' rslt = 0 Goto ext End If Select u_mtrldef.mtrlcode , u_order_ml.orderqty, u_order_ml.acmpqty Into :ls_mtrlcode, :ld_orderqty, :ld_acmpqty From u_mtrldef,u_order_ml Where u_order_ml.mtrlid = u_mtrldef.mtrlid And u_order_ml.scid = :arg_scid And u_Order_ml.OrderID = :arg_orderid; If sqlca.SQLCode <> 0 Then arg_msg = '查询物料编号失败' rslt = 0 Goto ext End If If uo_option_if_taskwork_acmpqty = 1 Then ld_trueqty = ld_acmpqty Else ld_trueqty = ld_orderqty End If Decimal ld_nofinqty Long ll_mtrlid Select (U_OrderRqwp.proqty / :ld_orderqty) * :ld_trueqty - U_OrderRqwp.finishqty, mtrlid Into :ld_nofinqty, :ll_mtrlid From U_OrderRqwp Where orderid = :arg_orderid And scid = :arg_scid And Procode = :arg_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',未完成数量失败>>'+sqlca.SQLErrText Goto ext End If If arg_qty > ld_nofinqty Then rslt = 0 arg_msg = '生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',未完成数量为:'+String(ld_nofinqty,'#,##0.##########')+',不能再完成:'+String(arg_qty,'#,##0.##########') Goto ext End If Update U_OrderRqwp Set finishqty = finishqty + :arg_qty Where orderid = :arg_orderid And scid = :arg_scid And Procode = :arg_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',完成数量失败>>'+sqlca.SQLErrText Goto ext End If //如果工组进度解决方案为[按末工序计件确认数更新工组完成数],且工组末工序,更新工组完成数 //////////////////////////////////////////////// // Long ll_wrkGrpid, ll_proorder_max, ll_proorder Select wrkGrpid, proorder Into :ll_wrkGrpid, :ll_proorder From U_OrderRqwp Where orderid = :arg_orderid And scid = :arg_scid And Procode = :arg_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',对应工组失败>>'+sqlca.SQLErrText Goto ext End If //检查工组,工组进度解决方案 110527 Int li_jdtype Select jdtype Into :li_jdtype From u_sc_workgroup Where wrkGrpid = :ll_wrkGrpid Using sqlca; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询工组进度解决方案操作失败"+"~n"+sqlca.SQLErrText Goto ext End If If li_jdtype = 2 Then Select max(proorder) Into :ll_proorder_max From U_OrderRqwp Where orderid = :arg_orderid And scid = :arg_scid And wrkGrpid = :ll_wrkGrpid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',所属工组最后工序失败>>'+sqlca.SQLErrText Goto ext End If Select count(*) Into :cnt From U_OrderRqwp Where orderid = :arg_orderid And scid = :arg_scid And proorder = :ll_proorder_max; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',最大工序号:'+String(ll_proorder_max)+'是否唯一失败>>'+sqlca.SQLErrText Goto ext End If If cnt > 1 Then rslt = 0 arg_msg = '查询生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',存在多个工序设了相同的最大工序号,请检查' Goto ext End If If ll_proorder = ll_proorder_max Then //当前工序为最后工序 If uof_add_workgroup_qty(arg_scid, arg_orderid , ll_wrkGrpid, ll_mtrlid, arg_billdate, arg_qty, arg_msg, False) = 0 Then rslt = 0 arg_msg = '生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',所属工组更新完成数失败>>'+arg_msg Goto ext End If End If End If //////////////////////////////////////////////// // ext: If rslt = 0 Then Rollback; ElseIf rslt = 1 And arg_ifcommit Then Commit; End If Return rslt end function public function integer uof_add_workgroup_qty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, datetime arg_finishdate, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);//更新工组进度完成数 Int rslt = 1 String ls_ordercode String ls_mtrlcode Decimal ld_orderqty,ld_acmpqty,ld_trueqty DateTime null_dt SetNull(null_dt) DateTime dt_fdate uo_order_wkp_jd uo_jd uo_jd = Create uo_order_wkp_jd IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误的计划唯一码' GOTO ext END IF SELECT ordercode INTO :ls_ordercode FROM u_Order_ml WHERE OrderID = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产计划编号失败' rslt = 0 GOTO ext END IF SELECT u_mtrldef.mtrlcode , u_order_ml.orderqty, u_order_ml.acmpqty INTO :ls_mtrlcode, :ld_orderqty, :ld_acmpqty FROM u_mtrldef,u_order_ml WHERE u_order_ml.mtrlid = u_mtrldef.mtrlid AND u_order_ml.scid = :arg_scid And u_Order_ml.OrderID = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料编号失败' rslt = 0 GOTO ext END IF //arg_wrkgrpid:源工组; Decimal not_finishqty SELECT orderqty - finishqty - stopqty INTO :not_finishqty FROM u_OrderMtrl_workgroup WHERE orderid = :arg_orderid AND wrkGrpid = :arg_wrkgrpid AND owrkGrpid > 0 and scid = :arg_scid and ifjd = 1 Using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = ',查询物料:'+ls_mtrlcode+'源工组未完成数量失败,原因:'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF arg_qty > not_finishqty THEN arg_msg = '物料:'+ls_mtrlcode+'当前数量'+String(arg_qty,'#,##0.0###')+' > 工组未完成数量'+String(not_finishqty,'#,##0.0###')+',不能审核' rslt = 0 GOTO ext END IF UPDATE u_OrderMtrl_workgroup SET finishqty = finishqty + :arg_qty, finishflag = case when orderqty <= finishqty + :arg_qty + stopqty then 1 else 0 END , finishdate = case when orderqty <= finishqty + :arg_qty + stopqty then :arg_finishdate else :null_dt END WHERE orderid = :arg_orderid AND wrkGrpid = :arg_wrkgrpid AND owrkGrpid > 0 and ifjd = 1 and scid = :arg_scid Using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新物料:'+ls_mtrlcode+'源工组未完成数量失败,原因:'+sqlca.SQLErrText rslt = 0 GOTO ext END IF Long ll_cnt SELECT count(0) INTO :ll_cnt FROM u_OrderMtrl_workgroup WHERE scid = :arg_scid AND orderid = :arg_orderid And finishflag = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询指令单是否派工完成失败,' + sqlca.SQLErrText GOTO ext END IF IF ll_cnt = 0 THEN UPDATE u_Order_ml SET finish_scflag = 1 WHERE scid = :arg_scid And OrderID = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新指令单派工完成标记失败,' + sqlca.SQLErrText GOTO ext END IF else UPDATE u_Order_ml SET finish_scflag = 0 WHERE scid = :arg_scid And OrderID = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新指令单派工完成标记失败,' + sqlca.SQLErrText GOTO ext END IF END IF IF uo_jd.uof_order_add_wrk_jd(arg_scid,arg_orderid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF dt_fdate = DateTime(Date(arg_finishdate), Time(0)) UPDATE u_OrderMtrl_workgroup_date SET fqty = fqty + :arg_qty WHERE scid = :arg_scid AND orderid = :arg_orderid AND wrkgrpid = :arg_wrkgrpid And fdate = :dt_fdate; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN INSERT INTO u_OrderMtrl_workgroup_date (scid,orderid,wrkgrpid,fdate,fqty) VALUES (:arg_scid,:arg_orderid,:arg_wrkgrpid,:dt_fdate,:arg_qty); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入工组当天进度失败,'+sqlca.SQLErrText GOTO ext END IF END IF ELSE rslt = 0 arg_msg = '更新工组当天进度失败,'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Destroy uo_jd RETURN rslt end function public function integer uo_cmp_datediff_wrk (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 datastore ds_diff ds_diff = Create datastore ds_diff.DataObject = 'ds_order_ml_wkp_datediff' ds_diff.SetTransObject(sqlca) ds_diff.Retrieve(arg_scid,arg_orderid) ds_diff.AcceptText() ds_diff.SetSort('u_ordermtrl_workgroup_printid A ,u_ordermtrl_workgroup_groupstr A,u_ordermtrl_workgroup_wkpname A') ds_diff.Sort() Long ll_i,ll_j Long ll_owrkgrpid String ls_groupstr DateTime ldt_bdate,ldt_edate DateTime ldt_begindate,ldt_requiredate Decimal ld_hourdiffdef,ld_hourdiff Int li_datediff Int li_bhour,li_ehour Long ll_daysaffter Int li_diffhour DateTime ldt_nextbdate,ldt_nextedate Decimal ld_hourdiff_update,ld_hourdiffdef_update Long ll_wrkgrpid String ls_wkpname ds_diff.AcceptText() FOR ll_i = 1 To ds_diff.RowCount() IF ds_diff.Object.ifjd[ll_i] = 1 THEN ll_owrkgrpid = ds_diff.Object.u_ordermtrl_workgroup_owrkgrpid[ll_i] ldt_requiredate = ds_diff.Object.u_ordermtrl_workgroup_requiredate[ll_i] FOR ll_j = ll_i + 1 To ds_diff.RowCount() IF ds_diff.Object.u_ordermtrl_workgroup_wrkgrpid[ll_j] = ll_owrkgrpid And & ds_diff.Object.ifjd[ll_j] = 1 THEN ldt_edate = ds_diff.Object.u_ordermtrl_workgroup_requiredate[ll_j] ld_hourdiffdef = ds_diff.Object.lasthour[ll_j] IF Hour(Time(ldt_requiredate)) = 12 THEN ldt_bdate = DateTime(Date(ldt_requiredate),Time('14:00:00')) ELSEIF Hour(Time(ldt_requiredate)) = 18 THEN ldt_bdate = DateTime(RelativeDate(Date(ldt_requiredate),1),Time('8:00:00')) ELSE ldt_bdate = ldt_requiredate END IF ds_diff.Object.nextbdate[ll_i] = ldt_bdate ds_diff.Object.nextedate[ll_i] = ldt_edate // ll_daysaffter = DaysAfter(Date(ldt_bdate),Date(ldt_edate)) li_bhour = Hour(Time(ldt_bdate)) li_ehour = Hour(Time(ldt_edate)) IF li_bhour <= 12 And li_ehour <= 12 THEN li_diffhour = li_ehour - li_bhour li_datediff = ll_daysaffter * 8 +li_diffhour ELSEIF li_bhour >= 14 And li_ehour >= 14 THEN li_diffhour = li_ehour - li_bhour li_datediff = ll_daysaffter * 8 +li_diffhour ELSEIF li_bhour >= 8 And li_bhour <= 12 And li_ehour >= 14 THEN li_diffhour = li_ehour - li_bhour - 2 li_datediff = ll_daysaffter * 8 +li_diffhour ELSE li_diffhour = 10 + li_ehour - li_bhour li_datediff = (ll_daysaffter - 1) * 8 + li_diffhour END IF ld_hourdiff = li_datediff ds_diff.Object.hourdiff[ll_i] = ld_hourdiff ds_diff.Object.hourdiffdef[ll_i] = ld_hourdiffdef EXIT END IF NEXT END IF NEXT ds_diff.AcceptText() FOR ll_i = 1 To ds_diff.RowCount() IF ds_diff.Object.ifjd[ll_i] = 1 THEN ldt_nextbdate = ds_diff.Object.nextbdate[ll_i] ldt_nextedate = ds_diff.Object.nextedate[ll_i] ld_hourdiff_update = ds_diff.Object.hourdiff[ll_i] ld_hourdiffdef_update = ds_diff.Object.hourdiffdef[ll_i] ll_owrkgrpid = ds_diff.Object.u_ordermtrl_workgroup_owrkgrpid[ll_i] ll_wrkgrpid = ds_diff.Object.u_ordermtrl_workgroup_wrkgrpid[ll_i] ls_wkpname = ds_diff.Object.u_ordermtrl_workgroup_wkpname[ll_i] UPDATE u_ordermtrl_workgroup SET nextbdate = :ldt_nextbdate, nextedate = :ldt_nextedate, hourdiff = :ld_hourdiff_update, hourdiffdef = :ld_hourdiffdef_update WHERE scid = :arg_scid AND orderid = :arg_orderid AND wrkgrpid = :ll_wrkgrpid AND owrkgrpid = :ll_owrkgrpid And wkpname = :ls_wkpname; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新下工组完成时间失败,'+sqlca.SQLErrText GOTO ext END IF END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF destroy ds_diff RETURN rslt end function public function integer uof_add_ordermtrl_tree_acmpqty (long arg_scid, long arg_orderid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);//更新工组进度完成数 Int rslt = 1 String ls_ordercode String ls_mtrlcode Decimal ld_orderqty,ld_acmpqty String ls_relname,ls_partname String ls_treename DateTime null_dt SetNull(null_dt) IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误的计划唯一码' GOTO ext END IF SELECT ordercode INTO :ls_ordercode FROM u_Order_ml WHERE OrderID = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产计划编号失败' rslt = 0 GOTO ext END IF SELECT relname,partname INTO :ls_relname,:ls_partname FROM u_OrderMtrl_workgroup_tree WHERE scid = :arg_scid AND orderid = :arg_orderid AND printid = :arg_printid Using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单:'+ls_ordercode+'工艺路线信息失败,原因:'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ls_relname = ls_partname THEN ls_treename = ls_relname ELSE ls_treename = ls_relname + '-'+ls_partname END IF Decimal not_finishqty SELECT orderqty - acmpqty INTO :not_finishqty FROM u_OrderMtrl_workgroup_tree WHERE scid = :arg_scid AND orderid = :arg_orderid AND printid = :arg_printid Using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单:'+ls_ordercode+'工艺路线:'+ls_treename +'未派工数量失败,原因:'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF arg_addqty > not_finishqty THEN arg_msg = '指令单:'+ls_ordercode+'工艺路线:'+ls_treename+'未派工数量只有 '+String(not_finishqty,'#,##0.##########')+','+'不能派工'+String(arg_addqty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_OrderMtrl_workgroup_tree SET acmpqty = acmpqty + :arg_addqty WHERE scid = :arg_scid AND orderid = :arg_orderid AND printid = :arg_printid Using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新指令单:'+ls_ordercode+'工艺路线:'+ls_treename+'已派工数量失败,原因:'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_add_ordermtrl_tree_sqty (long arg_scid, long arg_orderid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);//更新工组进度完成数 Int rslt = 1 String ls_ordercode String ls_mtrlcode Decimal ld_orderqty,ld_acmpqty String ls_relname,ls_partname String ls_treename DateTime null_dt SetNull(null_dt) IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误的计划唯一码' GOTO ext END IF SELECT ordercode INTO :ls_ordercode FROM u_Order_ml WHERE OrderID = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产计划编号失败' rslt = 0 GOTO ext END IF SELECT relname,partname INTO :ls_relname,:ls_partname FROM u_OrderMtrl_workgroup_tree WHERE scid = :arg_scid AND orderid = :arg_orderid AND printid = :arg_printid Using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单:'+ls_ordercode+'工艺路线信息失败,原因:'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ls_relname = ls_partname THEN ls_treename = ls_relname ELSE ls_treename = ls_relname + '-'+ls_partname END IF Decimal not_finishqty SELECT orderqty - sqty INTO :not_finishqty FROM u_OrderMtrl_workgroup_tree WHERE scid = :arg_scid AND orderid = :arg_orderid AND printid = :arg_printid Using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单:'+ls_ordercode+'工艺路线:'+ls_treename +'未完工数量失败,原因:'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF arg_addqty > not_finishqty THEN arg_msg = '指令单:'+ls_ordercode+'工艺路线:'+ls_treename+'未完工数量只有 '+String(not_finishqty,'#,##0.##########')+','+'不能完工'+String(arg_addqty,'#,##0.##########') rslt = 0 GOTO ext END IF UPDATE u_OrderMtrl_workgroup_tree SET sqty = sqty + :arg_addqty, sdate = case when sqty + :arg_addqty = 0 then :null_dt else getdate() end WHERE scid = :arg_scid AND orderid = :arg_orderid AND printid = :arg_printid Using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新指令单:'+ls_ordercode+'工艺路线:'+ls_treename+'已完工数量失败,原因:'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uo_cmp_tree_date (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_i,ll_j Long ll_lp[],ll_mxbt = 1 DateTime ldt_sdate,ldt_edate,ldt_sdate_order,ldt_edate_before Long ll_row,ll_printid String ls_arg_date Long ll_wrkgrpid Decimal ld_workhour,ld_resthour,ld_lasthour,ld_resthour_tmp Int li_timehour,li_rdate Decimal ld_workdate_tmp Decimal ld_resthour_e SELECT orderdate INTO :ldt_sdate_order FROM u_order_ml WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询指令单开始日期失败,'+sqlca.SQLErrText GOTO ext END IF DECLARE cur_lp CURSOR FOR SELECT DISTINCT lp FROM u_OrderMtrl_workgroup_tree WHERE (scid = :arg_scid) AND (orderid = :arg_orderid) Order By lp Desc; OPEN cur_lp; FETCH cur_lp Into :ll_lp[ll_mxbt]; DO WHILE sqlca.SQLCode = 0 ll_mxbt++ FETCH cur_lp Into :ll_lp[ll_mxbt]; LOOP CLOSE cur_lp; ll_mxbt = ll_mxbt - 1 datastore ds_tree ds_tree = Create datastore ds_tree.DataObject = 'ds_ordermtrl_workgroup_tree_date' ds_tree.SetTransObject(sqlca) ds_tree.Retrieve(arg_scid,arg_orderid) FOR ll_i = 1 To ll_mxbt FOR ll_j = 1 To ds_tree.RowCount() IF ds_tree.Object.lp[ll_j] = ll_lp[ll_i] THEN ll_printid = ds_tree.Object.printid[ll_j] ld_lasthour = ds_tree.Object.lasthour[ll_j] ll_wrkgrpid = ds_tree.Object.swkpid[ll_j] ll_row = ds_tree.Find('parentid = '+String(ll_printid),1,ds_tree.RowCount()) IF ll_row = 0 THEN ldt_sdate = DateTime(Date(ldt_sdate_order),Time('8:00:00')) ELSE ldt_edate_before = ds_tree.Object.enddate[ll_row] IF Hour(Time(ldt_edate_before)) = 18 THEN ldt_sdate = DateTime(RelativeDate(Date(ldt_edate_before),1),Time('8:00:00')) ELSEIF Hour(Time(ldt_edate_before)) = 12 THEN ldt_sdate = DateTime(Date(ldt_edate_before),Time('14:00:00')) ELSE ldt_sdate = ldt_edate_before END IF END IF IF uo_cmp_wrk_edate(ldt_sdate,ll_wrkgrpid,ld_lasthour,ldt_edate,ld_resthour_e,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ds_tree.Object.begindate[ll_j] = ldt_sdate ds_tree.Object.enddate[ll_j] = ldt_edate ds_tree.AcceptText() UPDATE u_OrderMtrl_workgroup_tree SET begindate = :ldt_sdate, enddate = :ldt_edate WHERE scid = :arg_scid AND orderid = :arg_orderid And printid = :ll_printid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新日期失败,'+sqlca.SQLErrText GOTO ext END IF END IF NEXT NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uo_cmp_wrk_edate (datetime arg_sdate, long arg_wrkgrpid, decimal arg_lasthour, ref datetime arg_edate, ref decimal arg_resthour_e, ref string arg_msg);Int rslt = 1 String ls_arg_date Decimal ld_workhour,ld_resthour Int li_timehour,li_rdate Decimal ld_resthour_tmp DateTime ld_workdate_tmp ls_arg_date = String(arg_sdate,'yyyy-mm-dd') IF uo_option_use_sc_date = 1 THEN SELECT sum(banhour) INTO :ld_workhour FROM u_sc_date WHERE CONVERT(CHAR(10), Workdate, 120) = :ls_arg_date And Proid = :arg_wrkgrpid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工组日历失败'+sqlca.SQLErrText GOTO ext END IF ELSE ld_workhour = 8 END IF li_timehour = Hour(Time(arg_sdate)) IF li_timehour <= 12 THEN ld_resthour = ld_workhour - (li_timehour - 8) ELSEIF li_timehour > 12 And li_timehour <= 18 THEN ld_resthour = ld_workhour - (li_timehour - 14 + 4) ELSEIF li_timehour > 18 THEN ld_resthour = ld_workhour - (li_timehour - 19 + 8) END IF IF ld_resthour >= arg_lasthour THEN IF li_timehour + arg_lasthour <= 12 THEN arg_edate = DateTime(Date(arg_sdate),Time(String(li_timehour + arg_lasthour) + ':00:00')) ELSEIF li_timehour + arg_lasthour <= 18 THEN IF li_timehour < 12 THEN arg_edate = DateTime(Date(arg_sdate),Time(String(li_timehour + arg_lasthour + 2) + ':00:00')) ELSE arg_edate = DateTime(Date(arg_sdate),Time(String(li_timehour + arg_lasthour) + ':00:00')) END IF ELSE IF li_timehour < 12 THEN arg_edate = DateTime(Date(arg_sdate),Time(String(li_timehour + arg_lasthour + 3) + ':00:00')) ELSEIF li_timehour < 18 THEN arg_edate = DateTime(Date(arg_sdate),Time(String(li_timehour + arg_lasthour + 1) + ':00:00')) ELSE arg_edate = DateTime(Date(arg_sdate),Time(String(li_timehour + arg_lasthour) + ':00:00')) END IF END IF arg_resthour_e = ld_resthour - arg_lasthour ELSE IF uo_option_use_sc_date = 0 THEN li_rdate = Int((arg_lasthour - ld_resthour) / 8 ) ld_resthour_tmp = Mod((arg_lasthour - ld_resthour),8) IF ld_resthour_tmp = 0 THEN ld_resthour_tmp = 8 li_rdate = li_rdate ELSE li_rdate = li_rdate + 1 END IF IF 8 + ld_resthour_tmp <= 12 THEN arg_edate = DateTime(RelativeDate(Date(arg_sdate),li_rdate),Time(String(8 + ld_resthour_tmp) + ':00:00')) ELSEIF 8 + ld_resthour_tmp + 2 <= 18 THEN arg_edate = DateTime(RelativeDate(Date(arg_sdate),li_rdate),Time(String(8 + ld_resthour_tmp + 2) + ':00:00')) ELSE arg_edate = DateTime(RelativeDate(Date(arg_sdate),li_rdate),Time(String(8 + ld_resthour_tmp + 3) + ':00:00')) END IF arg_resthour_e = ld_workhour - ld_resthour_tmp ELSE ld_resthour_tmp = arg_lasthour - ld_resthour SELECT top 1 sum(banhour),workdate INTO :ld_workhour,:ld_workdate_tmp FROM u_sc_date WHERE CONVERT(CHAR(10), Workdate, 120) > :ls_arg_date AND Proid = :arg_wrkgrpid GROUP BY workdate Order By Workdate; DO WHILE ld_resthour_tmp > ld_workhour And sqlca.SQLCode = 0 ls_arg_date = String(ld_workdate_tmp,'yyyy-mm-dd') ld_resthour_tmp = ld_resthour_tmp - ld_workhour SELECT top 1 sum(banhour),workdate INTO :ld_workhour,:ld_workdate_tmp FROM u_sc_date WHERE CONVERT(CHAR(10), Workdate, 120) > :ls_arg_date AND Proid = :arg_wrkgrpid GROUP BY workdate Order By Workdate; LOOP IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工组日历失败'+sqlca.SQLErrText GOTO ext END IF IF 8 + ld_resthour_tmp <= 12 THEN arg_edate = DateTime(Date(ld_workdate_tmp),Time(String(8 + ld_resthour_tmp) + ':00:00')) ELSEIF 8 + ld_resthour_tmp + 2 <= 18 THEN arg_edate = DateTime(Date(ld_workdate_tmp),Time(String(8 + ld_resthour_tmp + 2) + ':00:00')) ELSE arg_edate = DateTime(Date(ld_workdate_tmp),Time(String(8 + ld_resthour_tmp + 3) + ':00:00')) END IF arg_resthour_e = ld_workhour - ld_resthour_tmp END IF END IF ext: RETURN rslt end function public function integer uof_create_order_plan_tech (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_i datetime server_dt s_order_plan_tech arg_s_tech uo_order_plan_tech uo_tech uo_tech = Create uo_order_plan_tech datastore ds_tree ds_tree = Create datastore ds_tree.DataObject = 'ds_ordermtrl_workgroup_tree_date' ds_tree.SetTransObject(sqlca) SELECT Top 1 getdate() Into :server_dt From u_user ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF ds_tree.Retrieve(arg_scid,arg_orderid) ds_tree.setsort('printid desc') ds_tree.sort() FOR ll_i = 1 To ds_tree.RowCount() arg_s_tech.scid = ds_tree.Object.scid[ll_i] arg_s_tech.orderid = ds_tree.Object.orderid[ll_i] arg_s_tech.billid = 0 arg_s_tech.rep = publ_operator arg_s_tech.wrkgrpid = ds_tree.Object.swkpid[ll_i] arg_s_tech.workgroupid = ds_tree.Object.workgroupid[ll_i] arg_s_tech.printid = ds_tree.Object.printid[ll_i] arg_s_tech.parentid = ds_tree.Object.parentid[ll_i] arg_s_tech.qty = ds_tree.Object.orderqty[ll_i] arg_s_tech.begindate = ds_tree.Object.begindate[ll_i] arg_s_tech.enddate = ds_tree.Object.enddate[ll_i] arg_s_tech.billdate = server_dt IF uo_tech.Save(arg_s_tech,publ_operator,arg_msg,False) = 0 THEN arg_msg = '建立相关派工单失败,'+arg_msg rslt = 0 GOTO ext END IF IF uo_tech.audit(uo_tech.uo_billid,publ_operator,arg_msg,False) = 0 THEN arg_msg = '审核相关派工单失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Destroy uo_tech Destroy ds_tree RETURN rslt end function public function integer uof_delete_order_plan_tech (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt String ls_ordercode Long ll_billid[] Int li_flag[] Long ll_mxbt = 1,ll_i uo_order_plan_tech uo_tech uo_tech = Create uo_order_plan_tech //SELECT ordercode INTO :ls_ordercode // FROM u_order_ml // WHERE scid = :arg_scid // And orderid = :arg_orderid; //IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询指令单信息失败,'+sqlca.SQLErrText // GOTO ext //END IF // //SELECT count(*) // INTO :cnt // FROM u_order_plan_tech // WHERE scid = :arg_scid // AND orderid = :arg_orderid // And flag = 1; //IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询指令单:'+ls_ordercode+'相关已审工艺派工单失败,'+sqlca.SQLErrText // GOTO ext //END IF // //IF cnt > 0 THEN // rslt = 0 // arg_msg = '指令单:'+ls_ordercode+'已有相关已审工艺派工单,不能删除相关工艺派工单' // GOTO ext //END IF DECLARE cur_plan CURSOR FOR SELECT billid,flag FROM u_order_plan_tech WHERE scid = :arg_scid And orderid = :arg_orderid; OPEN cur_plan; FETCH cur_plan Into :ll_billid[ll_mxbt],:li_flag[ll_mxbt]; DO WHILE sqlca.SQLCode = 0 ll_mxbt++ FETCH cur_plan Into :ll_billid[ll_mxbt],:li_flag[ll_mxbt]; LOOP CLOSE cur_plan; ll_mxbt = ll_mxbt - 1 FOR ll_i = 1 To ll_mxbt IF li_flag[ll_i] = 1 THEN IF uo_tech.caudit(ll_billid[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '撤审相关工艺派工单失败,'+arg_msg GOTO ext END IF END IF IF uo_tech.del(ll_billid[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '删除相关工艺派工单失败,'+arg_msg GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Destroy uo_tech RETURN rslt end function public function integer uof_order_cmp_wrk_date (long arg_scid, long arg_orderid, datetime arg_sdate, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long l_wrkgrpid[],l_owrkgrpid[],l_ifjd[],l_printid[] Decimal l_lastdays[],l_lasthour[] String l_wkpname[],l_groupstr[] Long j,cnt_2,ll_count,ll_j DateTime ld_sdate,ld_edate,ld_update_edate DateTime ld_sdate_max Decimal ld_resthour,ld_workhour,ld_resthour_e Int li_timehour Int li_rdate Decimal ld_resthour_tmp DateTime ld_workdate_tmp Long l_printid_gr[] String l_groupstr_gr[] Long cnt_gr DateTime ld_sdate_gr[] Long k Boolean lb_if_find = False String ls_arg_date DateTime ldt_tmp Long ll_i ld_sdate_max = arg_sdate j = 1 DECLARE cur_wrkmx_2 CURSOR FOR SELECT wrkgrpid, owrkgrpid, wkpname, ifjd, printid, lastdays, groupstr, lasthour FROM u_OrderMtrl_workgroup WHERE orderid = :arg_orderid AND scid = :arg_scid Order By printid; OPEN cur_wrkmx_2; FETCH cur_wrkmx_2 INTO :l_wrkgrpid[j],:l_owrkgrpid[j], :l_wkpname[j],:l_ifjd[j],:l_printid[j],:l_lastdays[j], :l_groupstr[j],:l_lasthour[j]; DO WHILE sqlca.SQLCode = 0 j++ FETCH cur_wrkmx_2 INTO :l_wrkgrpid[j],:l_owrkgrpid[j], :l_wkpname[j],:l_ifjd[j],:l_printid[j],:l_lastdays[j], :l_groupstr[j],:l_lasthour[j]; LOOP CLOSE cur_wrkmx_2; cnt_2 = j - 1 FOR ll_i = 1 To cnt_2 ll_count = 0 IF l_ifjd[ll_i] = 1 THEN IF l_groupstr[ll_i] <> '' THEN lb_if_find = False FOR k = 1 To cnt_gr IF l_groupstr_gr[k] = l_groupstr[ll_i] THEN ld_sdate = ld_sdate_gr[k] lb_if_find = True EXIT END IF NEXT IF lb_if_find = False THEN ld_sdate = ld_sdate_max END IF ELSE ld_sdate = ld_sdate_max END IF IF uo_cmp_wrk_edate(ld_sdate,l_wrkgrpid[ll_i],l_lasthour[ll_i],ld_edate,ld_resthour_e,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF UPDATE u_ordermtrl_workgroup SET begindate = :ld_sdate, requiredate = :ld_edate WHERE orderid = :arg_orderid AND scid = :arg_scid AND wrkGrpid = :l_wrkgrpid[ll_i] AND owrkgrpid = :l_owrkgrpid[ll_i] And wkpname = :l_wkpname[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新工组开始及完成时间失败'+sqlca.SQLErrText GOTO ext END IF IF l_groupstr[ll_i] <> '' THEN lb_if_find = False IF ld_resthour_e > 0 THEN IF Hour(Time(ld_edate)) = 12 THEN ld_sdate = DateTime(Date(ld_edate),Time('14:00:00')) ELSEIF Hour(Time(ld_edate)) = 18 THEN ld_sdate = DateTime(Date(ld_edate),Time('19:00:00')) ELSE ld_sdate = ld_edate END IF ELSE ld_sdate = DateTime(RelativeDate(Date(ld_edate),1),Time('8:00:00')) END IF FOR k = 1 To cnt_gr IF l_groupstr_gr[k] = l_groupstr[ll_i] THEN ld_sdate_gr[k] = ld_sdate l_printid_gr[k] = l_printid[ll_i] lb_if_find = True EXIT END IF NEXT IF lb_if_find = False THEN cnt_gr++ l_printid_gr[cnt_gr] = l_printid[ll_i] l_groupstr_gr[cnt_gr] = l_groupstr[ll_i] ld_sdate_gr[cnt_gr] = ld_sdate END IF END IF FOR ll_j = ll_i + 1 To cnt_2 IF l_ifjd[ll_j] = 1 And & l_printid[ll_j] = l_printid[ll_i] THEN IF l_groupstr[ll_j] <> '' THEN lb_if_find = False FOR k = 1 To cnt_gr IF l_groupstr_gr[k] = l_groupstr[ll_j] THEN ld_sdate = ld_sdate_gr[k] lb_if_find = True EXIT END IF NEXT IF lb_if_find = False THEN ld_sdate = ld_sdate_max END IF ELSE ld_sdate = ld_sdate_max END IF IF uo_cmp_wrk_edate(ld_sdate,l_wrkgrpid[ll_i],l_lasthour[ll_i],ld_update_edate,ld_resthour_e,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF UPDATE u_ordermtrl_workgroup SET begindate = :ld_sdate, requiredate = :ld_update_edate WHERE orderid = :arg_orderid AND scid = :arg_scid AND wrkGrpid = :l_wrkgrpid[ll_j] AND owrkgrpid = :l_owrkgrpid[ll_j] And wkpname = :l_wkpname[ll_j]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新工组开始及完成时间失败'+sqlca.SQLErrText GOTO ext END IF IF l_groupstr[ll_j] <> '' THEN lb_if_find = False IF ld_resthour_e > 0 THEN IF Hour(Time(ld_update_edate)) = 12 THEN ld_sdate = DateTime(Date(ld_update_edate),Time('14:00:00')) ELSEIF Hour(Time(ld_edate)) = 18 THEN ld_sdate = DateTime(Date(ld_update_edate),Time('19:00:00')) ELSE ld_sdate = ld_update_edate END IF ELSE ld_sdate = DateTime(RelativeDate(Date(ld_update_edate),1),Time('8:00:00')) END IF FOR k = 1 To cnt_gr IF l_groupstr_gr[k] = l_groupstr[ll_j] THEN ld_sdate_gr[k] = ld_sdate l_printid_gr[k] = l_printid[ll_j] lb_if_find = True EXIT END IF NEXT IF lb_if_find = False THEN cnt_gr++ l_printid_gr[cnt_gr] = l_printid[ll_j] l_groupstr_gr[cnt_gr] = l_groupstr[ll_j] ld_sdate_gr[cnt_gr] = ld_sdate END IF END IF IF ld_edate < ld_update_edate THEN ld_edate = ld_update_edate END IF ll_count++ END IF NEXT ll_i = ll_i + ll_count IF Hour(Time(ld_edate)) = 18 THEN ldt_tmp = DateTime(RelativeDate(Date(ld_edate),1),Time('8:00:00')) ELSEIF Hour(Time(ld_edate)) = 12 THEN ldt_tmp = DateTime(Date(ld_edate),Time('14:00:00')) ELSE ldt_tmp = ld_edate END IF IF ld_sdate_max < ldt_tmp THEN ld_sdate_max = ldt_tmp END IF END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer mod_order_requiredate (long arg_scid, long arg_orderid, datetime arg_oridate, datetime arg_newdate, datetime arg_oriredate, datetime arg_newredate, string arg_reason, boolean arg_ifcmpdate, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 DateTime server_dt IF p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF Date(arg_oridate) = Date(arg_newdate) And Date(arg_oriredate) = Date(arg_newredate) THEN rslt = 0 arg_msg = '新日期与原日期相同,无须更新,操作取消' GOTO ext END IF arg_reason = Trim(arg_reason) Long cnt Long ll_printid cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml_perfinishdate_log WHERE scid = :arg_scid AND orderid = :arg_orderid And logtype = 1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询预计完成日期修改日志失败'+'~n'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN ll_printid = 0 ELSE SELECT max(printid) INTO :ll_printid FROM u_order_ml_perfinishdate_log WHERE scid = :arg_scid AND orderid = :arg_orderid And logtype = 1 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询预计完成日期修改日志失败'+'~n'+sqlca.SQLErrText GOTO ext END IF END IF ll_printid++ SELECT Top 1 getdate() Into :server_dt From u_user ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF INSERT INTO u_order_ml_perfinishdate_log (scid, orderid, printid, logtype, oridate, newdate, oriredate, newredate, reason, modemp, moddate) VALUES (:arg_scid, :arg_orderid, :ll_printid, 1, :arg_oridate, :arg_newdate, :arg_oriredate, :arg_newredate, :arg_reason, :publ_operator, :server_dt); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入预计完成日期修改日志操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF UPDATE u_order_ml SET orderdate = :arg_newdate, requiredate = :arg_newredate WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新预计完成日期失败'+'~n'+sqlca.SQLErrText GOTO ext END IF IF arg_ifcmpdate THEN DateTime ld_sdate_max ld_sdate_max = DateTime(Date(arg_newdate),Time('8:00:00')) IF uof_order_cmp_wrk_date(arg_scid,arg_orderid,ld_sdate_max,arg_msg,False) = 0 THEN arg_msg = '计算工组日期失败,'+arg_msg rslt = 0 GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF Return(rslt) end function public function integer uof_update_outtypestr_zl (long arg_scid[], long arg_orderid[], ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_scid Long ll_i,ll_j,ll_k,ll_l Long ll_mxbt String ls_outtypestr_p String ls_outtypestr[],ls_empty[] Long ll_mtrlid,ll_orderid_mx,ll_porderid_mx String ls_status,ls_woodcode,ls_pcode String ls_outtypestr_zl DateTime server_dt IF UpperBound(arg_orderid) <= 0 THEN rslt = 1 GOTO ext END IF SELECT Top 1 getdate() Into :server_dt From u_user ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF ll_scid = arg_scid[1] datastore ds_outtype,ds_mtrlid,ds_mx ds_outtype = Create datastore ds_outtype.DataObject = 'ds_order_zl_outtypestr_cnt' ds_outtype.SetTransObject(sqlca) ds_mtrlid = Create datastore ds_mtrlid.DataObject = 'ds_order_zl_outtypestr_mtrlid' ds_mtrlid.SetTransObject(sqlca) ds_mx = Create datastore ds_mx.DataObject = 'ds_order_zl_outtypestr_mx' ds_mx.SetTransObject(sqlca) ds_outtype.Retrieve(ll_scid,arg_orderid) FOR ll_i = 1 To ds_outtype.RowCount() ls_outtypestr_p = ds_outtype.Object.outtypestr[ll_i] ls_outtypestr = ls_empty ll_mxbt = 0 FOR ll_j = 1 To ds_outtype.Object.maxcnt[ll_i] //取组号 ls_outtypestr_zl = getid(0,'OUT',Date(server_dt),if_getid_ture,sqlca) //取得新单据编号 IF ls_outtypestr_zl = "err" THEN rslt = 0 arg_msg = "无法获取组号"+"~n"+sqlca.SQLErrText GOTO ext END IF // ll_mxbt++ ls_outtypestr[ll_mxbt] = ls_outtypestr_zl NEXT ds_mtrlid.Retrieve(ll_scid,arg_orderid,ls_outtypestr_p) FOR ll_k = 1 To ds_mtrlid.RowCount() ll_mtrlid = ds_mtrlid.Object.u_order_ml_mtrlid[ll_k] ls_status = ds_mtrlid.Object.u_order_ml_status_mode[ll_k] ls_woodcode = ds_mtrlid.Object.u_order_ml_woodcode[ll_k] ls_pcode = ds_mtrlid.Object.u_order_ml_pcode[ll_k] ll_porderid_mx = ds_mtrlid.Object.u_order_ml_porderid[ll_k] ds_mx.Retrieve(ll_scid,ll_porderid_mx,ll_mtrlid,ls_status,ls_woodcode,ls_pcode,ls_outtypestr_p) FOR ll_l = 1 To ds_mx.RowCount() IF ll_l > ll_mxbt THEN EXIT ll_orderid_mx = ds_mx.Object.u_order_ml_orderid[ll_l] UPDATE u_order_ml SET outtypestr = :ls_outtypestr[ll_l] WHERE scid = :ll_scid And orderid = :ll_orderid_mx; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新指令单组号失败,'+sqlca.SQLErrText GOTO ext END IF NEXT NEXT NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_tryfinish_packorder2 (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt rslt = 1 rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext Int li_ifpackpro,li_orderype_mtrl Long ll_porderid,cnt Decimal ld_minrate,ld_qty DateTime null_dt SetNull(null_dt) //如果不是指令单，或者合并指令单的情况不作处理 IF porderid = 0 THEN rslt = 1 GOTO ext END IF SELECT u_mtrldef.ordertype,u_mtrldef.ifpackpro,u_order_ml.porderid INTO :li_orderype_mtrl,:li_ifpackpro,:ll_porderid FROM u_mtrldef,u_order_ml WHERE u_mtrldef.mtrlid = u_order_ml.mtrlid AND u_order_ml.orderid = :pzlorderid And u_order_ml.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询组合配置整排指令是否指令单分离属性失败,'+sqlca.SQLErrText GOTO ext END IF IF li_ifpackpro <> 4 THEN //不是整排散进组合配置包件产品,退出函数,否则检查主计划相关指令单是否全部完成 rslt = 1 GOTO ext END IF //1.先检查主生产计划自制需求,需求数是否等于用料数,不等即说明有分配库存,跳过判断完成比例 //2.查询相应部件的完成情况,按需求量对比后得出主计划物料的完成数量 SELECT count(*) INTO :cnt FROM u_order_ml WHERE u_order_ml.pzlorderid = :pzlorderid AND u_order_ml.scid = :arg_scid AND u_order_ml.AcmpQty < u_order_ml.orderqty And u_order_ml.ordertype = 4; IF sqlca.SQLCode <> 0 THEN rslt = 0 IF li_orderype_mtrl = 0 THEN arg_msg = '查询组合配置包件产品主生产计划相关分子件指令单是否全部完成失败'+sqlca.SQLErrText ELSE arg_msg = '查询组合配置包件产品主生产计划【分离指令】相关子件指令单是否全部完成失败'+sqlca.SQLErrText END IF GOTO ext END IF IF cnt = 0 THEN //相关自制需求全部完成,更新主生产计划已完成数及状态 UPDATE u_order_ml SET status = 5, accomplishdate = getdate(), accomplishemp = :publ_operator, acmpqty = orderqty WHERE ( u_order_ml.orderid = :pzlorderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 IF li_orderype_mtrl = 0 THEN arg_msg = "更新组合配置包件产品主生产计划完成状态失败"+"~n"+sqlca.SQLErrText ELSE arg_msg = "更新组合配置包件产品主生产计划【分离指令】完成状态失败"+"~n"+sqlca.SQLErrText END IF GOTO ext END IF ELSE //如果没有全部完成,则取自制需求的最小完成率去计算主生产计划的完成数 SELECT min(AcmpQty/orderqty) INTO :ld_minrate FROM u_order_ml WHERE u_order_ml.pzlorderid = :pzlorderid AND u_order_ml.scid = :arg_scid And u_order_ml.ordertype = 4; IF sqlca.SQLCode <> 0 THEN rslt = 0 IF li_orderype_mtrl = 0 THEN arg_msg = '查询相关组合配置包件产品主生产计划子件指令完成率失败'+"~n"+sqlca.SQLErrText ELSE arg_msg = '查询相关组合配置包件产品主生产计划【分离指令】子件指令完成率失败'+"~n"+sqlca.SQLErrText END IF GOTO ext END IF UPDATE u_order_ml SET status = 1, accomplishdate = :null_dt, accomplishemp = '', acmpqty = orderqty * :ld_minrate WHERE ( u_order_ml.orderid = :pzlorderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 IF li_orderype_mtrl = 0 THEN arg_msg = "更新组合配置包件产品主生产计划完成状态失败"+"~n"+sqlca.SQLErrText ELSE arg_msg = "更新组合配置包件产品主生产计划【分离指令】完成状态失败"+"~n"+sqlca.SQLErrText END IF GOTO ext END IF END IF IF li_orderype_mtrl = 1 THEN SELECT isnull(sum(AcmpQty),0) INTO :ld_qty FROM u_order_ml WHERE u_order_ml.porderid = :ll_porderid AND u_order_ml.ordertype = 4 AND u_order_ml.pzlorderid = 0 And u_order_ml.mtrlid = :mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询组合配置包件产品主生产计划相关【分离指令】完数失败'+"~n"+sqlca.SQLErrText GOTO ext END IF UPDATE u_order_ml SET status = case when u_order_ml.orderqty - u_order_ml.stopqty = :ld_qty then 5 else 1 END, accomplishdate = case when u_order_ml.orderqty - u_order_ml.stopqty = :ld_qty then getdate() else :null_dt END, accomplishemp = case when u_order_ml.orderqty - u_order_ml.stopqty = :ld_qty then :publ_operator else '' END, acmpqty = :ld_qty WHERE ( u_order_ml.orderid = :ll_porderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新组合配置包件产品主生产计划完成状态失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer c_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 Long ls_i,ll_fp String ls_mtrlcode IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_saletask uo_task uo_task = Create uo_saletask uo_task.commit_transaction = sqlca uo_saletask_ll uo_task_ll uo_task_ll = Create uo_saletask_ll uo_task_ll.commit_transaction = sqlca uo_mtrlware_assign uo_mtrlware_fp uo_mtrlware_fp = Create uo_mtrlware_assign uo_mtrlware_fp.commit_transaction = sqlca uo_getbar uo_get uo_get = Create uo_getbar datastore ds_fp_del ds_fp_del = Create datastore ds_fp_del.DataObject = 'ds_order_fp_del' ds_fp_del.SetTransObject(sqlca) Decimal finishqty,ld_sqty,ld_oqty DateTime null_dt SetNull(null_dt) IF uo_option_if_oa_order_ml = -1000 THEN rslt = 0 arg_msg = '选项:[230]生产计划使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[225]生产计划使用二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_if_oa_order_zl = -1000 THEN rslt = 0 arg_msg = '选项:[231]生产指令单使用审批流程,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_zl_secaudit = -1000 THEN rslt = 0 arg_msg = '选项:[226]生产指令单使用二级审核,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_bh_use_yc = -1000 THEN rslt = 0 arg_msg = '选项:[074]备货生产计划选销售预测单,读取初始默认值失败,操作取消!' GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF ctmint > 0 THEN arg_msg = '单据已截数,不能操作' rslt = 0 GOTO ext END IF //IF pzlorderid > 0 THEN // arg_msg = '自动生成的指令,不能操作' // rslt = 0 // GOTO ext //END IF //yyx20140723 //胚板指令终审自动建立条码生成单 IF uo_option_order_zl_auto_getbar = 1 And ordertype = 4 And ifpban = 1 THEN Long ll_getbarid SELECT getbarid Into :ll_getbarid From u_getbar Where ifrel = 1 And orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode = -1 THEN arg_msg = '查询胚板指令单自动建立的条码生成单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext ELSEIF sqlca.SQLCode = 100 THEN ll_getbarid = 0 END IF IF ll_getbarid > 0 THEN IF uo_get.c_auditing(ll_getbarid,False,arg_msg,False) = 0 THEN arg_msg = '撤审胚板指令单自动建立的条码生成单失败,'+arg_msg rslt = 0 GOTO ext END IF IF uo_get.del(ll_getbarid,arg_msg,False) = 0 THEN arg_msg = '删除胚板指令单自动建立的条码生成单失败,'+arg_msg rslt = 0 GOTO ext END IF END IF END IF //end_yyx20140723 IF ordertype = 4 THEN IF ifauto_optype = 0 THEN IF iffg = 1 And ifauto = 1 THEN arg_msg = '自动生成的返工指令,不能手动撤审,需撤审相应返工物料运算批' rslt = 0 GOTO ext END IF END IF END IF IF ordertype <> 4 THEN IF uo_option_order_ml_secaudit = 1 And uo_option_if_oa_order_ml = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow_caudit(arg_scid,arg_orderid,36,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF ELSE IF uo_option_order_ml_zl_secaudit = 1 And uo_option_if_oa_order_zl = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow_caudit(arg_scid,arg_orderid,1138,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF Status <> 7 THEN rslt = 0 arg_msg = "生产计划只有在待二审状态才可以执行撤消审核，请核对" GOTO ext END IF IF scllflag = 1 THEN rslt = 0 arg_msg = "计划已执行用料审批,请先用料撤审" GOTO ext END IF //查询是否已开生产指令单终止单 cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml_stop WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询是否有相关的生产指令单终止单失败' rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '本生产计划已开了相关的生产指令单终止单,不能撤审' GOTO ext END IF // //查询是否有相关的成品生产计划 cnt = 0 SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :arg_scid And pforderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询是否有相关的成品生产计划失败' rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = '本生产计划已开了相关的成品生产计划,不能撤审' GOTO ext END IF // SELECT mtrlcode INTO :ls_mtrlcode FROM u_mtrldef Where mtrlid = :mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询产品编号失败' rslt = 0 GOTO ext END IF IF getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //检查报数单 SELECT sum(finishqty) INTO :finishqty FROM u_OrderMtrl_workgroup WHERE orderid = :arg_orderid And scid = :scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产计划工组报数失败' rslt = 0 GOTO ext END IF IF finishqty > 0 THEN arg_msg = '生产计划已有工组报数,不能撤审' rslt = 0 GOTO ext END IF //条码进度 SELECT sum(sqty),sum(oqty) INTO :ld_sqty,:ld_oqty FROM u_OrderMtrl_workgroup_tree WHERE orderid = :arg_orderid And scid = :scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产计划工组报数失败' rslt = 0 GOTO ext END IF IF ld_sqty > 0 THEN arg_msg = '生产计划已有工组完成数,不能撤审' rslt = 0 GOTO ext END IF IF ld_oqty > 0 THEN arg_msg = '生产计划已有工组接收数,不能撤审' rslt = 0 GOTO ext END IF //检查已完成数量 IF AcmpQty > 0 THEN arg_msg = '生产计划已有进仓数,不能撤审' rslt = 0 GOTO ext END IF IF planqty > 0 THEN arg_msg = '生产计划已有排程数,不能撤审' rslt = 0 GOTO ext END IF //检查工序已开单数,已确认完成数 Decimal ld_amount Decimal ld_finishqty ld_amount = 0 SELECT sum(isnull(v_order_procode.amount,0)) INTO :ld_amount FROM v_order_procode WHERE v_order_procode.orderid = :arg_orderid And v_order_procode.scid = :scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询工序已开单数操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF ld_amount > 0 THEN arg_msg = '生产计划工序已有开单数,不能撤审' rslt = 0 GOTO ext END IF ld_finishqty = 0 SELECT sum(U_OrderRqwp.finishqty) INTO :ld_finishqty FROM U_OrderRqwp WHERE ( U_OrderRqwp.scid = :scid ) AND ( U_OrderRqwp.orderid = :arg_orderid ) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询工序已确认完成数操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF ld_finishqty > 0 THEN arg_msg = '生产计划工序已确认完成数,不能撤审' rslt = 0 GOTO ext END IF //检查派工数量 cnt = 0 SELECT count(*) INTO :cnt FROM u_order_planmx WHERE ( u_order_planmx.orderid = :arg_orderid ) AND ( u_order_planmx.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询计划是否已开生产派工单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "生产计划已经有相关派工单,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //检查指令单 IF ordertype <> 4 THEN IF uof_check_if_zl(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF //检查进数量 cnt = 0 SELECT count(*) INTO :cnt FROM u_inware,u_inwaremx WHERE ( u_inware.billtype = 3 ) AND ( u_inware.scid = u_inwaremx.scid ) AND ( u_inware.inwareid = u_inwaremx.inwareid ) AND ( u_inwaremx.relid = :arg_orderid ) AND ( u_inwaremx.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询计划是否已开生产进仓单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "生产计划已经有相关生产进仓单据,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //检查领料数量 cnt = 0 SELECT count(*) INTO :cnt FROM u_outware,u_outwaremx WHERE ( u_outware.billtype = 3 ) AND ( u_outware.scid = u_outwaremx.scid ) AND ( u_outware.outwareid = u_outwaremx.outwareid ) AND ( u_outwaremx.relid = :arg_orderid ) AND ( u_outwaremx.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询计划领料数量操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN String ls_rel_scllcode,ls_msg_scllcode DECLARE cur_check_code CURSOR FOR SELECT u_outware.outwarecode FROM u_outware,u_outwaremx WHERE ( u_outware.billtype = 3 ) AND ( u_outware.scid = u_outwaremx.scid ) AND ( u_outware.outwareid = u_outwaremx.outwareid ) AND ( u_outwaremx.relid = :arg_orderid ) AND ( u_outwaremx.scid = :arg_scid ); OPEN cur_check_code; FETCH cur_check_code Into :ls_rel_scllcode; DO WHILE sqlca.SQLCode = 0 IF Trim(ls_msg_scllcode) = '' THEN ls_msg_scllcode = ls_rel_scllcode ELSE ls_msg_scllcode = ls_msg_scllcode +',' + ls_rel_scllcode END IF FETCH cur_check_code Into :ls_rel_scllcode; LOOP CLOSE cur_check_code; rslt = 0 arg_msg = "指令单已经有相关领料出仓单据,不可以撤消审核,请先删除相关单据再撤审"+'~r~n' + '相关领料单号:'+ls_msg_scllcode GOTO ext END IF //检查是否已开发料通知单 cnt = 0 SELECT count(*) INTO :cnt FROM u_outware_scllplan_mx,u_outware_scllplan WHERE ( u_outware_scllplan.outwareid = u_outware_scllplan_mx.outwareid ) AND ( u_outware_scllplan_mx.orderid = :arg_orderid ) AND ( u_outware_scllplan.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询指令单是否已开发料通知单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "指令单已经有相关发料通知单,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //检查工序派工单 cnt = 0 SELECT count(*) INTO :cnt FROM u_sc_task WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询相关工序派工单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "指令单已经有相关工序派工单,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //检查工艺派工单 cnt = 0 SELECT count(*) INTO :cnt FROM u_order_plan_tech WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询相关工艺派工单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "指令单已经有相关工艺派工单,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //检查条码生成单 cnt = 0 SELECT count(*) INTO :cnt FROM u_getbar WHERE scid = :arg_scid AND orderid = :arg_orderid And ifrel = 1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询相关条码生成单操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "主计划或指令单已经有相关条码生成单,不可以撤消审核,请先删除相关单据再撤审" GOTO ext END IF //==================================================================== // 删除工序明细/工组明细 //==================================================================== DELETE FROM U_OrderRqwp WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '删除指令单工序明细失败,原因>>'+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_OrderRqMtrl WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除计划的计划用料表相应记录操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_OrderRqMtrl_tree WHERE u_OrderRqMtrl_tree.orderid = :arg_orderid And u_OrderRqMtrl_tree.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除生产计划运算树操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_OrderMtrl_workgroup WHERE u_OrderMtrl_workgroup.orderid = :arg_orderid And u_OrderMtrl_workgroup.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除生产计划工组进度操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_OrderMtrl_workgroup_tree WHERE u_OrderMtrl_workgroup_tree.orderid = :arg_orderid And u_OrderMtrl_workgroup_tree.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除生产计划条码工组进度操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_ordermtrl_workgroup_barcode WHERE u_ordermtrl_workgroup_barcode.orderid = :arg_orderid And u_ordermtrl_workgroup_barcode.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除相关工组条码明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_order_ml_barcode WHERE u_order_ml_barcode.orderid = :arg_orderid And u_order_ml_barcode.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除相关条码明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_ordermtrl_wrk_jd WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除工组工作量明细表相应记录操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF DELETE FROM u_order_ml_stop_mtrl_his WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除变更记录操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF ordertype = 1 Or & ordertype = 2 Or & ordertype = 3 Or & ordertype = 0 And & uo_option_order_bh_use_yc = 1 THEN IF ordertype = 2 THEN FOR ls_i = 1 To it_mxbt IF s_order_mx[ls_i].taskid > 0 THEN IF uo_task_ll.updateassignqty(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,s_order_mx[ls_i].taskmxid,0 - s_order_mx[ls_i].orderqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF NEXT ELSE FOR ls_i = 1 To it_mxbt IF s_order_mx[ls_i].taskid > 0 THEN IF uo_task.updateassignqty(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,s_order_mx[ls_i].taskmxid,0 - s_order_mx[ls_i].orderqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF NEXT END IF ELSEIF ordertype = 4 And pzlorderid = 0 THEN FOR ls_i = 1 To it_mxbt IF s_order_mx[ls_i].taskid > 0 THEN Int li_plantype Long ll_wrkGrpid_scll SELECT plantype,wrkGrpid INTO :li_plantype,:ll_wrkGrpid_scll FROM u_OrderRqMtrl WHERE scid = :scid AND orderid = :s_order_mx[ls_i].taskid And mxpkid = :s_order_mx[ls_i].taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询生产自制需求资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF f_assign_rqmtrlqty(scid,s_order_mx[ls_i].taskid,ll_wrkGrpid_scll,& mtrlid,ls_mtrlcode,status_mode,& woodcode,pcode,0 - s_order_mx[ls_i].orderqty,0,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF NEXT END IF IF ordertype <> 4 THEN //删除原分配 ds_fp_del.Retrieve(arg_scid,arg_orderid) FOR ll_fp = 1 To ds_fp_del.RowCount() IF ds_fp_del.Object.fptype[ll_fp] = 0 THEN IF uo_mtrlware_fp.uof_assign_del(ds_fp_del.Object.id[ll_fp],& ds_fp_del.Object.qty[ll_fp],arg_msg,False) = 0 THEN arg_msg = '删除分配失败,'+arg_msg rslt = 0 GOTO ext END IF ELSE IF uo_mtrlware_fp.uof_plan_del(ds_fp_del.Object.id[ll_fp],& ds_fp_del.Object.qty[ll_fp],arg_msg,False) = 0 THEN arg_msg = '删除分配计划失败,'+arg_msg rslt = 0 GOTO ext END IF END IF NEXT // END IF /// // Long ll_mxbt = 1,ll_i,ll_orderid_arr[] Int li_status uo_order_ml uo_ml uo_ml = Create uo_order_ml DECLARE cur_porder CURSOR FOR SELECT orderid FROM u_order_ml WHERE pzlorderid = :arg_orderid And scid = :arg_scid; OPEN cur_porder; FETCH cur_porder Into :ll_orderid_arr[ll_mxbt]; DO WHILE sqlca.SQLCode = 0 ll_mxbt++ FETCH cur_porder Into :ll_orderid_arr[ll_mxbt]; LOOP CLOSE cur_porder; ll_mxbt = ll_mxbt - 1 FOR ll_i = 1 To ll_mxbt IF uo_ml.uof_delete_order_plan_tech(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF SELECT status INTO :li_status FROM u_order_ml WHERE scid = :arg_scid And orderid = :ll_orderid_arr[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关指令单状态失败,'+arg_msg GOTO ext END IF IF li_status = 1 THEN IF uo_ml.c_sec_audit(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '撤审相关生产指令单失败,'+arg_msg GOTO ext END IF END IF SELECT status INTO :li_status FROM u_order_ml WHERE scid = :arg_scid And orderid = :ll_orderid_arr[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关指令单状态失败,'+arg_msg GOTO ext END IF IF li_status = 4 THEN IF uo_ml.c_plan_audit(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '撤审相关生产指令单失败,'+arg_msg GOTO ext END IF END IF SELECT status INTO :li_status FROM u_order_ml WHERE scid = :arg_scid And orderid = :ll_orderid_arr[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关指令单状态失败,'+arg_msg GOTO ext END IF IF li_status = 7 THEN IF uo_ml.c_audit(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '撤审相关生产指令单失败,'+arg_msg GOTO ext END IF END IF IF uo_ml.del(arg_scid,ll_orderid_arr[ll_i],arg_msg,False) = 0 THEN rslt = 0 arg_msg = '删除相关生产指令单失败,'+arg_msg GOTO ext END IF NEXT // // UPDATE u_order_ml SET status = 0, Permit_emp = '', Permit_date = :null_dt WHERE orderid = :arg_orderid AND scid = :arg_scid And Status = 7; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows = 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致计划撤消审核操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Destroy uo_task Destroy uo_task_ll Destroy uo_mtrlware_fp Destroy ds_fp_del Destroy uo_ml Destroy uo_get Return (rslt) end function public function integer uf_add_ftaskqty (long arg_scid, long arg_orderid, long arg_mtrlid, string arg_procode, datetime arg_billdate, decimal arg_ftaskqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误的计划唯一码' GOTO ext END IF IF arg_mtrlid <= 0 THEN rslt = 0 arg_msg = '错误的物料ID唯一码' GOTO ext END IF IF arg_procode = '' OR IsNull(arg_procode) THEN rslt = 0 arg_msg = '错误的工序序号' GOTO ext END IF Int li_status string ls_mtrlcode,ls_ordercode long ll_mtrlid SELECT u_order_ml.status, u_mtrldef.mtrlcode, u_order_ml.ordercode, u_order_ml.mtrlid INTO :li_status, :ls_mtrlcode, :ls_ordercode, :ll_mtrlid FROM u_mtrldef,u_order_ml WHERE u_order_ml.mtrlid = u_mtrldef.mtrlid and u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询单据审核标记失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF //IF li_status <> 1 and li_status <> 5 and li_status <> 6 THEN // rslt = 0 // arg_msg = "计划只有在进行或已完成状态才可以执行操作，请核对" // GOTO ext //END IF UPDATE u_orderrqwp SET ftaskqty = ftaskqty + :arg_ftaskqty WHERE orderid = :arg_orderid AND mtrlid = :arg_mtrlid AND procode = :arg_procode AND scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络或其他原因导致更新已安排时数失败'+sqlca.SQLErrText GOTO ext END IF //如果工组进度解决方案为[按末工序计件确认数更新工组完成数],且工组末工序,更新工组完成数 //////////////////////////////////////////////// // Long ll_wrkGrpid, ll_proorder_max, ll_proorder SELECT wrkGrpid, proorder INTO :ll_wrkGrpid, :ll_proorder FROM U_OrderRqwp WHERE orderid = :arg_orderid AND scid = :arg_scid And Procode = :arg_procode; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',对应工组失败>>'+sqlca.SQLErrText GOTO ext END IF //检查工组,工组进度解决方案 110527 Int li_jdtype SELECT jdtype INTO :li_jdtype FROM u_sc_workgroup Where wrkGrpid = :ll_wrkGrpid Using sqlca; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询工组进度解决方案操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF li_jdtype = 3 or li_jdtype = 4 THEN SELECT max(proorder) INTO :ll_proorder_max FROM U_OrderRqwp WHERE orderid = :arg_orderid AND scid = :arg_scid And wrkGrpid = :ll_wrkGrpid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',所属工组最后工序失败>>'+sqlca.SQLErrText GOTO ext END IF IF ll_proorder = ll_proorder_max THEN //当前工序为最后工序 IF uof_add_workgroup_qty(arg_scid, arg_orderid , ll_wrkGrpid, ll_mtrlid, arg_billdate, arg_ftaskqty, arg_msg, False) = 0 THEN rslt = 0 arg_msg = '生产计划:'+ls_ordercode+',物料:'+ls_mtrlcode+',工序:'+arg_procode+',所属工组更新完成数失败>>'+arg_msg GOTO ext END IF END IF END IF //////////////////////////////////////////////// // ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_okplan (long arg_scid, long arg_orderid, integer arg_okplanflag, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 DateTime null_dt SetNull(null_dt) rslt = p_getinfo(arg_scid,arg_orderid,arg_msg) IF rslt = 0 THEN GOTO ext IF ctmint > 0 THEN arg_msg = '单据已截数,不能操作' rslt = 0 GOTO ext END IF IF arg_okplanflag = 1 THEN IF okplan_flag = 1 THEN rslt = 1 GOTO ext END IF UPDATE u_order_ml SET okplan_flag = 1, okplan_emp = :arg_opemp, okplan_date = getdate() WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows = 0 THEN rslt = 0 arg_msg = "更新可排程标记失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ELSE IF okplan_flag = 0 THEN rslt = 1 GOTO ext END IF UPDATE u_order_ml SET okplan_flag = 0, okplan_emp = '', okplan_date = :null_dt WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows = 0 THEN rslt = 0 arg_msg = "更新可排程标记失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Return (rslt) end function public function integer uof_reset_tree_barcode (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 DateTime ldt_null Long cnt SetNull(ldt_null) //1.删除PDA扫描记录 DELETE FROM u_order_wkp_barcode_pda WHERE (barcode IN (SELECT barcode FROM u_ordermtrl_workgroup_barcode Where (orderid = :arg_orderid) And (scid = :arg_scid))); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '删除PDA扫描记录失败,'+sqlca.SQLErrText GOTO ext END IF //2.删除条码扫描更新工组每天进度记录 DELETE FROM u_OrderMtrl_workgroup_date WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '删除工组每天进度记录失败,'+sqlca.SQLErrText GOTO ext END IF //3.删除部件条码 DELETE FROM u_ordermtrl_workgroup_barcode Where (orderid = :arg_orderid) And (scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '删除部件条码失败,'+sqlca.SQLErrText GOTO ext END IF //4.清空工艺进度数量 UPDATE u_OrderMtrl_workgroup_tree SET sqty = 0, oqty = 0, sdate = :ldt_null, odate = :ldt_null WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '清空工艺进度数量失败,'+sqlca.SQLErrText GOTO ext END IF //5.清空使用条码更新模式的工组进度 UPDATE u_OrderMtrl_workgroup SET u_OrderMtrl_workgroup.finishqty = 0, u_OrderMtrl_workgroup.finishdate = :ldt_null, u_OrderMtrl_workgroup.finishflag = 0 FROM u_OrderMtrl_workgroup INNER JOIN u_sc_workgroup ON u_OrderMtrl_workgroup.wrkGrpid = u_sc_workgroup.wrkGrpid WHERE (u_sc_workgroup.jdtype = 6) AND (u_OrderMtrl_workgroup.scid = :arg_scid) And (u_OrderMtrl_workgroup.orderid = :arg_orderid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '清空使用条码更新模式的工组进度失败,'+sqlca.SQLErrText GOTO ext END IF //6.清空工艺派工单的完成数 SELECT count(*) INTO :cnt FROM u_finish_tech_mx WHERE relid IN ( SELECT billid FROM u_order_plan_tech WHERE scid = :arg_scid And orderid = :arg_orderid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询相关是否已开相关工艺完工单失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "已开相关工艺完工单,请先删除" GOTO ext END IF UPDATE u_order_plan_tech SET fqty = 0 WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致更新派工单完成数量操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_order_add_wkp_tree_doing (long arg_scid, long arg_orderid, long arg_this_printid, long arg_next_printid, s_ordermtrl_workgroup_tree arg_s_tree[], integer arg_kind, ref string arg_msg, boolean arg_ifcommit);//==================================================================== // 修改:工艺进度插入并生成相关资料 //-------------------------------------------------------------------- // 作者: Dyy 日期: 2012年06月30日 //==================================================================== /*名称解释: A-本级(arg_this_printid) B-下级(arg_next_printid) C-新增级 情况1: A与B之间插入C (arg_kind : 1~4) 情况2: A加入下级C (arg_kind: 5,6) arg_kind 使用说明: (A与B之间插入C) 1.A本身继承B,新增的C必须继承B,A改为继承C(a,b,c) 2.A不是继承B,新增的C继承B(a,c) 3.A不是继承B,A继承新增的C(a,b,d) 4.A不是继承B,新增的C不存在继承关系(a,e) (A加入下级C) 5.A继承C(b,d) 6.A不继承C(e) 处理方法列表: a.更改B的parentid (1,2,3,4) b.更改A的继承关系(A条码要改继承属性) (1,3,5) c.增加C的条码(复制B条码) (1,2) d.增加C的条码(复制A条码)(A条码要改继承属性) (3,5) e.增加C的条码(新建条码) (4,6) **刷新printid_sort */ Int rslt = 1 Long ll_mxbt,ll_i Long swkpid ,owkpid ,printid String partname Long lp ,iflast String relname Decimal ld_orderqty String partname_inherit DateTime begindate ,enddate Long parentid ,workgroupid Decimal lasthour ,workhour ,eoq Long if_barcode Decimal splitrate ,waittime Long li_if_inherit ,ifaccept Decimal baseqty Long printid_sort DateTime server_dt Long ll_max_pid,ll_pid,ll_cnt String ls_barcode Decimal ld_qty Long ll_printid Long ll_lp_this,ll_lp_min,ll_printid_min datastore ds_barcode ds_barcode = Create datastore ds_barcode.DataObject = 'ds_ordermtrl_workgroup_barcode_doing' ds_barcode.SetTransObject(sqlca) datastore ds_tree ds_tree = Create datastore ds_tree.DataObject = 'ds_OrderMtrl_workgroup_tree_sort' ds_tree.SetTransObject(sqlca) IF uo_option_scllaudit_autobuild_tech = -1000 THEN rslt = 0 arg_msg = '选项:[245]主生产计划用料审自动生成相关指令单的工组派工单,读取初始默认值失败,操作取消!' GOTO ext END IF s_order_plan_tech arg_s_tech uo_order_plan_tech uo_tech uo_tech = Create uo_order_plan_tech SELECT Top 1 getdate() Into :server_dt From u_user ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF ll_mxbt = UpperBound(arg_s_tree) IF ll_mxbt <> 1 THEN rslt = 0 arg_msg = '没有正确的新增工艺资料' GOTO ext END IF //更新A下级的层级lp IF arg_kind = 1 Or arg_kind = 2 Or arg_kind = 3 Or arg_kind = 4 THEN SELECT lp INTO :ll_lp_this FROM u_ordermtrl_workgroup_tree WHERE scid = :arg_scid AND orderid = :arg_orderid And printid = :arg_this_printid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询本级层级数值失败,'+sqlca.SQLErrText GOTO ext END IF SELECT top 1 printid INTO :ll_printid_min FROM u_ordermtrl_workgroup_tree WHERE scid = :arg_scid AND orderid = :arg_orderid AND lp <= :ll_lp_this AND printid > :arg_this_printid Order By printid_sort; IF sqlca.SQLCode <> 0 THEN IF sqlca.SQLCode = 100 THEN ll_printid_min = 0 ELSE rslt = 0 arg_msg = '查询本级所有层级数值失败,'+sqlca.SQLErrText GOTO ext END IF END IF UPDATE u_ordermtrl_workgroup_tree SET lp = lp + 1 WHERE (scid = :arg_scid) AND (orderid = :arg_orderid) AND (printid > :arg_this_printid) And (printid < :ll_printid_min Or :ll_printid_min = 0 ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新本级下级的层级数值失败,'+sqlca.SQLErrText GOTO ext END IF END IF printid = arg_s_tree[1].printid swkpid = arg_s_tree[1].swkpid owkpid = arg_s_tree[1].owkpid partname = arg_s_tree[1].partname lp = arg_s_tree[1].lp iflast = arg_s_tree[1].iflast relname = arg_s_tree[1].relname ld_orderqty = arg_s_tree[1].orderqty partname_inherit = arg_s_tree[1].partname_inherit begindate = arg_s_tree[1].begindate enddate = arg_s_tree[1].enddate parentid = arg_s_tree[1].parentid workgroupid = arg_s_tree[1].workgroupid lasthour = arg_s_tree[1].lasthour workhour = arg_s_tree[1].workhour eoq = arg_s_tree[1].eoq if_barcode = arg_s_tree[1].if_barcode splitrate = arg_s_tree[1].splitrate waittime = arg_s_tree[1].waittime li_if_inherit = arg_s_tree[1].if_inherit ifaccept = arg_s_tree[1].ifaccept baseqty = arg_s_tree[1].baseqty printid_sort = arg_s_tree[1].printid_sort INSERT INTO u_ordermtrl_workgroup_tree ( scid, orderid, printid, swkpid , owkpid , partname , lp , iflast , relname , orderqty , partname_inherit , begindate , enddate , parentid , workgroupid , lasthour , workhour , eoq , if_barcode , splitrate , waittime , if_inherit , ifaccept , baseqty , printid_sort) VALUES ( :arg_scid, :arg_orderid, :printid, :swkpid , :owkpid , :partname , :lp , :iflast , :relname , :ld_orderqty , :partname_inherit , :begindate , :enddate , :parentid , :workgroupid , :lasthour , :workhour , :eoq , :if_barcode , :splitrate , :waittime , :li_if_inherit , :ifaccept , :baseqty , :printid_sort); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入工艺进度失败,'+sqlca.SQLErrText GOTO ext END IF Int li_scllsecflag,li_ordertype SELECT scllsecflag,ordertype INTO :li_scllsecflag,:li_ordertype FROM u_order_ml WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询指令单/生产计划属性失败,'+sqlca.SQLErrText GOTO ext END IF IF li_ordertype = 4 Or (li_ordertype <> 4 And li_scllsecflag = 1 ) THEN IF uo_option_scllaudit_autobuild_tech = 1 THEN arg_s_tech.scid = arg_scid arg_s_tech.orderid = arg_orderid arg_s_tech.billid = 0 arg_s_tech.rep = publ_operator arg_s_tech.wrkgrpid = swkpid arg_s_tech.workgroupid = workgroupid arg_s_tech.printid = printid arg_s_tech.parentid = parentid arg_s_tech.qty = ld_orderqty arg_s_tech.begindate = begindate arg_s_tech.enddate = enddate arg_s_tech.billdate = server_dt IF uo_tech.Save(arg_s_tech,publ_operator,arg_msg,False) = 0 THEN arg_msg = '建立相关派工单失败,'+arg_msg rslt = 0 GOTO ext END IF IF uo_tech.audit(uo_tech.uo_billid,publ_operator,arg_msg,False) = 0 THEN arg_msg = '审核相关派工单失败,'+arg_msg rslt = 0 GOTO ext END IF END IF END IF //根据arg_kind执行不同的操作 //更改B的parentid IF arg_kind = 1 Or arg_kind = 2 Or arg_kind = 3 Or arg_kind = 4 THEN UPDATE u_ordermtrl_workgroup_tree SET parentid = :printid WHERE scid = :arg_scid AND orderid = :arg_orderid And printid = :arg_next_printid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新下级的相关parentid失败,'+sqlca.SQLErrText GOTO ext END IF END IF //更改A的继承关系 IF arg_kind = 1 Or arg_kind = 3 Or arg_kind = 5 THEN UPDATE u_ordermtrl_workgroup_tree SET partname_inherit = :partname, if_inherit = 1 WHERE scid = :arg_scid AND orderid = :arg_orderid And printid = :arg_this_printid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新本级继承关系失败,'+sqlca.SQLErrText GOTO ext END IF UPDATE u_ordermtrl_workgroup_barcode SET partname_inherit = :partname WHERE scid = :arg_scid AND orderid = :arg_orderid And printid = :arg_this_printid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新本级相关条码继承关系失败,'+sqlca.SQLErrText GOTO ext END IF END IF //增加C的条码(复制B条码) IF if_barcode = 1 THEN IF arg_kind = 1 Or arg_kind = 2 THEN ds_barcode.Retrieve(arg_scid,arg_orderid,arg_next_printid) SELECT max(pid) INTO :ll_max_pid FROM u_ordermtrl_workgroup_barcode WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工艺条码信息失败,'+sqlca.SQLErrText GOTO ext END IF ll_cnt = 0 FOR ll_i = 1 To ds_barcode.RowCount() ll_cnt++ ll_pid = ll_max_pid + ll_cnt ls_barcode = ds_barcode.Object.barcode[ll_i] ld_qty = ds_barcode.Object.qty[ll_i] INSERT INTO u_ordermtrl_workgroup_barcode (scid, orderid, printid, pid, barcode, qty, swkpid, owkpid, relname, partname, if_inherit, partname_inherit, workgroupid) VALUES (:arg_scid, :arg_orderid, :printid, :ll_pid, :ls_barcode, :ld_qty, :swkpid, :owkpid, :relname, :partname, :li_if_inherit, :partname_inherit, :workgroupid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '生成新增工艺的条码失败,'+sqlca.SQLErrText GOTO ext END IF NEXT END IF END IF //增加C的条码(复制A条码) IF if_barcode = 1 THEN IF arg_kind = 3 Or arg_kind = 5 THEN ds_barcode.Retrieve(arg_scid,arg_orderid,arg_this_printid) SELECT max(pid) INTO :ll_max_pid FROM u_ordermtrl_workgroup_barcode WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工艺条码信息失败,'+sqlca.SQLErrText GOTO ext END IF ll_cnt = 0 FOR ll_i = 1 To ds_barcode.RowCount() ll_cnt++ ll_pid = ll_max_pid + ll_cnt ls_barcode = ds_barcode.Object.barcode[ll_i] ld_qty = ds_barcode.Object.qty[ll_i] INSERT INTO u_ordermtrl_workgroup_barcode (scid, orderid, printid, pid, barcode, qty, swkpid, owkpid, relname, partname, if_inherit, partname_inherit, workgroupid) VALUES (:arg_scid, :arg_orderid, :printid, :ll_pid, :ls_barcode, :ld_qty, :swkpid, :owkpid, :relname, :partname, :li_if_inherit, :partname_inherit, :workgroupid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '生成新增工艺的条码失败,'+sqlca.SQLErrText GOTO ext END IF NEXT UPDATE u_ordermtrl_workgroup_barcode SET if_inherit = 1 WHERE scid = :arg_scid AND orderid = :arg_orderid And printid = :arg_this_printid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新本级条码继承属性失败,'+sqlca.SQLErrText GOTO ext END IF END IF END IF //增加C的条码(新建) IF if_barcode = 1 THEN IF arg_kind = 4 Or arg_kind = 6 THEN FOR ll_i = 1 To Ceiling(Round(ld_orderqty/baseqty,10)) IF ll_i = Ceiling(Round(ld_orderqty/baseqty,10)) THEN ld_qty = ld_orderqty - (ll_i - 1) * baseqty ELSE ld_qty = baseqty END IF SELECT max(pid) INTO :ll_max_pid FROM u_ordermtrl_workgroup_barcode WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工艺条码信息失败,'+sqlca.SQLErrText GOTO ext END IF ll_cnt = 0 ll_cnt++ ll_pid = ll_max_pid + ll_cnt ls_barcode = getid(0,"BARCODE1",Date(server_dt),True,sqlca) INSERT INTO u_ordermtrl_workgroup_barcode (scid, orderid, printid, pid, barcode, qty, swkpid, owkpid, relname, partname, if_inherit, partname_inherit, workgroupid) VALUES (:arg_scid, :arg_orderid, :printid, :ll_pid, :ls_barcode, :ld_qty, :swkpid, :owkpid, :relname, :partname, :li_if_inherit, :partname_inherit, :workgroupid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '生成新增工艺的条码失败,'+sqlca.SQLErrText GOTO ext END IF NEXT END IF END IF //更新工艺路线的printid_sort ds_tree.Retrieve(arg_scid,arg_orderid) FOR ll_i = 1 To ds_tree.RowCount() ll_printid = ds_tree.Object.printid[ll_i] UPDATE u_OrderMtrl_workgroup_tree SET printid_sort = :ll_i * 10 WHERE scid = :arg_scid AND orderid = :arg_orderid And printid = :ll_printid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新工艺进度排序失败,'+sqlca.SQLErrText GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Destroy uo_tech Destroy ds_barcode RETURN rslt end function public function integer uof_update_minbdate (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_ordertype Long ll_porderid Long ll_orderid_tree SELECT ordertype,porderid INTO :li_ordertype,:ll_porderid FROM u_order_ml WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询指令单信息失败,'+sqlca.SQLErrText GOTO ext END IF IF li_ordertype <> 4 THEN ll_orderid_tree = arg_orderid ELSE ll_orderid_tree = ll_porderid END IF UPDATE u_OrderMtrl_workgroup SET u_OrderMtrl_workgroup.minbdate = DATEADD(dd,ISNULL(v_minbdate.dayadd, 0), GETDATE()) FROM u_OrderMtrl_workgroup LEFT OUTER JOIN (SELECT wrkGrpid, MAX(dayadd) AS dayadd FROM (SELECT u_OrderRqMtrl_tree.wrkGrpid, CASE u_mtrldef.Mtrlorigin WHEN 2 THEN u_mtrldef.buydays WHEN 3 THEN u_mtrldef.wfjgdays WHEN 6 THEN u_mtrldef.aheaddays when 0 then u_mtrldef.expday END AS dayadd FROM u_OrderRqMtrl_tree INNER JOIN u_mtrldef ON u_OrderRqMtrl_tree.MtrlID = u_mtrldef.mtrlid WHERE (u_OrderRqMtrl_tree.OrderID = :ll_orderid_tree) AND (u_OrderRqMtrl_tree.scid = :arg_scid) AND (u_OrderRqMtrl_tree.truerqqty > 0) AND ((u_mtrldef.Mtrlorigin <> 0) or (u_mtrldef.Mtrlorigin = 0 and u_mtrldef.ifselforder = 1))) v_tree GROUP BY wrkGrpid) v_minbdate ON u_OrderMtrl_workgroup.wrkGrpid = v_minbdate.wrkGrpid WHERE u_OrderMtrl_workgroup.scid = :arg_scid And u_OrderMtrl_workgroup.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新工组理论最早齐料启产日期失败,'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_update_orderrqmtrl_zlqty (long arg_scid, long arg_orderid, long arg_mtrlid, long arg_wrkgrpid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_zlqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 UPDATE u_OrderRqMtrl SET u_OrderRqMtrl.zlqty = u_OrderRqMtrl.zlqty + :arg_zlqty FROM u_OrderRqMtrl WHERE u_OrderRqMtrl.produce_wrkGrpid = :arg_wrkgrpid AND u_OrderRqMtrl.status = :arg_status AND u_OrderRqMtrl.woodcode = :arg_woodcode AND u_OrderRqMtrl.pcode = :arg_pcode AND u_OrderRqMtrl.plantype = 0 AND u_OrderRqMtrl.scid = :arg_scid AND u_OrderRqMtrl.orderid = :arg_orderid And u_OrderRqMtrl.mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新相关主生产计划自制需求指令单数量失败,'+sqlca.SQLErrText GOTO ext END IF UPDATE u_order_ml SET u_Order_ml.zlflag = isnull(uv_order_zl_flag.flag,0) FROM u_Order_ml LEFT OUTER JOIN uv_order_zl_flag ON u_Order_ml.scid = uv_order_zl_flag.scid AND u_Order_ml.OrderID = uv_order_zl_flag.OrderID WHERE u_order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新相关主生产计划指令单状态失败,'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_workgroup_barcode_pt (long arg_scid, long arg_orderid, long arg_wrkgrpid, ref string arg_msg, boolean arg_ifcommit);// 部件条码自动配套 Int rslt = 1 Decimal ld_minsqty Decimal ld_finishqty Decimal ld_addqty Long ll_printid, arr_printid[] Long ll_cnt = 0 Long i, j Long ll_pid, arr_pid[] Long ll_ptflag, arr_ptflag[] Decimal ld_qty, arr_qty[] Long ll_bar_cnt = 0 Decimal ld_ptqty DateTime dt_server Long ll_jdtype SELECT jdtype INTO :ll_jdtype FROM u_sc_workgroup Where wrkgrpid = :arg_wrkgrpid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工组进度生成模式失败,' + sqlca.SQLErrText GOTO ext END IF IF ll_jdtype <> 6 THEN GOTO ext END IF SELECT top 1 GETDATE() INTO :dt_server From u_user; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询服务器日期失败,' + sqlca.SQLErrText GOTO ext END IF ld_minsqty = 0 SELECT MIN(sqty) INTO :ld_minsqty FROM (SELECT scid, orderid, swkpid, SUM(qty) AS sqty, printid FROM u_ordermtrl_workgroup_barcode WHERE scid = :arg_scid AND orderid = :arg_orderid AND swkpid = :arg_wrkgrpid AND sflag = 1 Group By scid, orderid, swkpid, printid) a; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询指令单可配套数失败,' + sqlca.SQLErrText GOTO ext END IF IF IsNull(ld_minsqty) THEN ld_minsqty = 0 ld_finishqty = 0 SELECT MIN(ptcnt) INTO :ld_finishqty FROM (SELECT scid, orderid, swkpid, printid, SUM(qty) AS ptcnt FROM u_ordermtrl_workgroup_barcode WHERE (scid = :arg_scid) AND (orderid = :arg_orderid) AND (swkpid = :arg_wrkgrpid) AND sflag = 1 AND ptflag = 1 Group By scid, orderid, swkpid, printid) b; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询指令单已配套数失败,' + sqlca.SQLErrText GOTO ext END IF IF IsNull(ld_finishqty) THEN ld_finishqty = 0 ld_addqty = ld_minsqty - ld_finishqty IF ld_addqty > 0 THEN ll_cnt = 0 DECLARE cur1 CURSOR FOR SELECT printid FROM u_OrderMtrl_workgroup_tree WHERE (scid = :arg_scid) AND (orderid = :arg_orderid) And (swkpid = :arg_wrkgrpid); OPEN cur1; FETCH cur1 Into :ll_printid; DO WHILE sqlca.SQLCode = 0 ll_cnt++ arr_printid[ll_cnt] = ll_printid FETCH cur1 Into :ll_printid; LOOP CLOSE cur1; FOR i = 1 To ll_cnt ll_printid = arr_printid[i] ll_bar_cnt = 0 DECLARE cur2 CURSOR FOR SELECT pid, ptflag, qty FROM u_ordermtrl_workgroup_barcode WHERE (scid = :arg_scid) AND (orderid = :arg_orderid) AND (printid = :ll_printid) AND (sflag = 1) Order By ptflag Desc, sdate; OPEN cur2; FETCH cur2 Into :ll_pid, :ll_ptflag, :ld_qty; DO WHILE sqlca.SQLCode = 0 ll_bar_cnt++ arr_pid[ll_bar_cnt] = ll_pid arr_ptflag[ll_bar_cnt] = ll_ptflag arr_qty[ll_bar_cnt] = ld_qty FETCH cur2 Into :ll_pid, :ll_ptflag, :ld_qty; LOOP CLOSE cur2; j = 0 ld_ptqty = ld_minsqty DO WHILE j < ll_bar_cnt And ld_ptqty > 0 j++ ll_pid = arr_pid[j] ll_ptflag = arr_ptflag[j] ld_qty = arr_qty[j] IF ll_ptflag <> 1 THEN UPDATE u_ordermtrl_workgroup_barcode SET ptflag = 1, ptdate = :dt_server WHERE scid = :arg_scid AND orderid = :arg_orderid AND printid = :ll_printid And pid = :ll_pid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新配套标记失败,' + sqlca.SQLErrText GOTO ext END IF IF sqlca.SQLNRows = 0 THEN rslt = 0 arg_msg = '更新配套标记失败,部件条码已经不存在' GOTO ext END IF END IF ld_ptqty = ld_ptqty - ld_qty LOOP NEXT IF uof_add_workgroup_qty(arg_scid, arg_orderid, arg_wrkgrpid, 0, dt_server, ld_addqty, arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF END IF ext: IF arg_ifcommit THEN IF rslt = 1 THEN COMMIT; ELSE ROLLBACK; END IF END IF RETURN rslt end function public function integer uof_update_mrpcode (long arg_scid, long arg_orderid, string arg_mrpcode, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 UPDATE u_order_ml SET u_order_ml.mrpcode = :arg_mrpcode WHERE u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '主生产计划更新运算批号失败,'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSE IF arg_ifcommit THEN COMMIT; END IF END IF RETURN rslt end function public function integer stoporder_cancel (long arg_scid, long arg_orderid, integer arg_ifchange, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,ll_rslt Int li_ifpackpro,li_ordertype,li_ifpack Long ll_porderid,ll_mtrlid_p,ls_i String ls_status_p,ls_woodcode_p,ls_pcode_p DateTime ld_nulldt SetNull(ld_nulldt) Decimal ld_stopqty_ori,ld_stopqty uo_saletask uo_task uo_task = Create uo_saletask uo_task.commit_transaction = sqlca If uo_option_order_bh_use_yc = -1000 Then rslt = 0 arg_msg = '选项:[074]备货生产计划选销售预测单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_autostop_porder = -1000 Then rslt = 0 arg_msg = '选项:[383]终止分离排产指令单自动终止相关主生产计划,读取初始默认值失败,操作取消!' Goto ext End If If f_aps_mrp_cklock(arg_scid,arg_msg) = 0 Then rslt = 0 Goto ext End If rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) If rslt = 0 Then Goto ext If status <> 3 Then rslt = 0 arg_msg = "计划或指令单只有在终止状态才可以执行撤消终止,请核对" Goto ext End If If getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If If ordertype = 0 And uo_option_order_bh_use_yc = 1 Then For ls_i = 1 To it_mxbt If s_order_mx[ls_i].taskid > 0 Then Select stopqty Into :ld_stopqty_ori From u_saletaskmx Where scid = :s_order_mx[ls_i].taskscid And taskid = :s_order_mx[ls_i].taskid And printid = :s_order_mx[ls_i].taskmxid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产计划相关销售预测单信息失败'+sqlca.SQLErrText Goto ext End If ld_stopqty = ld_stopqty_ori - s_order_mx[ls_i].orderqty If uo_task.stopqty(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,s_order_mx[ls_i].taskmxid,'',ld_stopqty,'',arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If Next End If //扣减相关部件生产计划的已分配数量 If pforderid > 0 Then If f_add_conpfqty(arg_scid,pforderid, 0 - (pfqty * (acmpqty - orderqty)) / orderqty ,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If //是否终止用料 If arg_ifchange = 1 Or arg_ifchange = 2 Then ll_rslt = uof_mtrl_change(arg_scid,arg_orderid,0,1,arg_ifchange,1,arg_msg,False) If ll_rslt = 0 Then rslt = 0 Goto ext End If End If //yyx2013-11-9 String ls_mtrlcode If ordertype = 4 And pzlorderid = 0 And (arg_ifchange = 1 Or arg_ifchange = 2) Then If it_mxbt = 0 Then rslt = 0 arg_msg = '没有计划明细,操作终止,请检查' Goto ext End If For ls_i = 1 To it_mxbt If s_order_mx[ls_i].taskid > 0 Then Int li_plantype Long ll_wrkGrpid_scll Select plantype,wrkGrpid Into :li_plantype,:ll_wrkGrpid_scll From u_OrderRqMtrl Where scid = :scid And orderid = :s_order_mx[ls_i].taskid And mxpkid = :s_order_mx[ls_i].taskmxid; If sqlca.SQLCode <> 0 Then arg_msg = '查询生产自制需求资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If f_assign_rqmtrlqty(scid,s_order_mx[ls_i].taskid,ll_wrkGrpid_scll,& mtrlid,ls_mtrlcode,status_mode,& woodcode,pcode,s_order_mx[ls_i].orderqty,0,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If Next End If //yyx2013-11-9_end //如果是通用包件产品,检查相关包件指令是否终止 //如果是分离排产的指令单,要终止相关主生产计划 If ordertype = 4 And porderid > 0 Then Select ifpack Into :li_ifpack From u_mtrldef Where mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询指令单物料资料包件属性失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Select u_mtrldef.ifpackpro, u_mtrldef.ordertype, u_order_ml.mtrlid, u_order_ml.status_mode, u_order_ml.woodcode, u_order_ml.pcode Into :li_ifpackpro, :li_ordertype, :ll_mtrlid_p, :ls_status_p, :ls_woodcode_p, :ls_pcode_p From u_Order_ml Inner JOIN u_mtrldef ON u_Order_ml.mtrlid = u_mtrldef.mtrlid Where u_Order_ml.scid = :scid And u_order_ml.orderid = :porderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询相关主生产计划产品属性失败,'+sqlca.SQLErrText Goto ext End If ll_porderid = porderid If li_ifpackpro = 1 And li_ifpack = 1 Then Update u_order_ml Set status = 1, stopemp = '', Accomplishdate = :ld_nulldt, stopreason = '' Where u_order_ml.scid = :scid And u_order_ml.orderid = :porderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '自动取消终止包件产品主生产计划失败,'+arg_msg Goto ext End If End If //如果是分离排产,还要同时终止主生产计划对应的指令单(非包件产品) If uo_option_autostop_porder = 1 Then If li_ordertype = 1 And & ll_mtrlid_p = mtrlid And & ls_status_p = status_mode And & ls_woodcode_p = woodcode And & ls_pcode_p = pcode And & li_ifpackpro = 0 Then Update u_order_ml Set stopqty = stopqty - (:orderqty - :acmpqty - :stopqty), status = 1, stopemp = '', Accomplishdate = :ld_nulldt, stopreason = '' Where u_order_ml.scid = :scid And u_order_ml.orderid = :porderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新分离排产对应主生产计划终止数量失败,'+arg_msg Goto ext End If End If End If End If Update u_order_ml Set status = 1, stopemp = '', Accomplishdate = :ld_nulldt, stopreason = '', stopqty = 0 Where orderid = :arg_orderid And scid = :arg_scid And status = 3; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致终止生产计划操作失败"+"~n"+sqlca.SQLErrText Goto ext ElseIf sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = "正在终止生产计划,请稍后重试" Goto ext End If ext: If rslt = 0 Then Rollback; p_reset() ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Destroy uo_task Return (rslt) end function public function integer plan_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0,li_ptflag Long ls_i IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF arg_orderid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 7 THEN rslt = 0 arg_msg = "计划只有在待二审状态才可以执行二审，请核对" GOTO ext END IF IF ordertype = 4 THEN SELECT ptflag INTO :li_ptflag FROM u_sc_wkp Where wrkGrpid = :wrkGrpid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = OrderCode+'查询生产车间配置属性失败'+sqlca.SQLErrText GOTO ext END IF IF li_ptflag = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_orderrqmtrl_scll WHERE u_orderrqmtrl_scll.scid = :arg_scid AND u_orderrqmtrl_scll.orderid = :arg_orderid And u_orderrqmtrl_scll.wareqty > 0; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单领料明细是否有配套材料失败,请检查,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = OrderCode+'计划由于至少没有找到任何一种材料配套,不能审核'+sqlca.SQLErrText rslt = 0 GOTO ext END IF UPDATE u_order_ml SET ptflag = 5 WHERE orderid = :arg_orderid AND scid = :arg_scid And status = 7; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN rslt = 0 arg_msg = OrderCode+"更新指令单配套状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF END IF UPDATE u_order_ml SET plan_emp = :publ_operator, plan_auditdate = getdate(), status = 4 WHERE orderid = :arg_orderid AND scid = :scid And status = 7; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致计划二审操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF RETURN rslt end function public function integer c_plan_audit (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 Long ls_i,li_ptflag String ls_mtrlcode Decimal finishqty,ld_sqty,ld_oqty DateTime null_dt SetNull(null_dt) IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF ctmint > 0 THEN arg_msg = '单据已截数,不能操作' rslt = 0 GOTO ext END IF IF status <> 4 THEN rslt = 0 arg_msg = "只有在待终审状态才可以执行撤消二审，请核对" GOTO ext END IF IF ordertype = 4 THEN SELECT ptflag INTO :li_ptflag FROM u_sc_wkp Where wrkGrpid = :wrkGrpid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = OrderCode+'查询生产车间配置属性失败'+sqlca.SQLErrText GOTO ext END IF IF li_ptflag = 1 THEN UPDATE u_order_ml SET ptflag = 1 WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows <= 0 THEN rslt = 0 arg_msg = OrderCode+"更新指令单配套状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF END IF UPDATE u_order_ml SET status = 7, plan_emp = '', plan_auditdate = :null_dt WHERE orderid = :arg_orderid AND scid = :arg_scid And status = 4; IF sqlca.SQLCode <> 0 Or sqlca.SQLNRows = 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致计划撤消二审操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF Return (rslt) end function public function integer p_update_orderdate (long arg_scid, long arg_orderid, datetime arg_orderdate, datetime arg_requiredate, string arg_dscrp, decimal arg_addqty, boolean arg_ifcommit, ref string arg_msg);Long rslt = 1 IF uo_option_order_zl_3_day = -1000 THEN rslt = 0 arg_msg = '选项:[316]指令单保存时更新相关采购需求明细日期,读取初始默认值失败,操作取消!' GOTO ext END IF UPDATE u_order_ml SET orderdate = :arg_orderdate, requiredate = :arg_requiredate, dscrp = :arg_dscrp, modemp = :publ_operator, moddate = getdate(), addqty = :arg_addqty WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = "更新指令单信息失败!"+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF uo_option_order_zl_3_day = 1 THEN Int li_ordertype Long ll_porderid,cnt SELECT ordertype,porderid INTO :li_ordertype,:ll_porderid FROM u_order_ml WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = "查询指令信息失败!"+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_ordertype = 4 THEN SELECT count(*) INTO :cnt FROM u_requestbuymxmx WHERE scid = :arg_scid And orderid = :ll_porderid; IF sqlca.SQLCode <> 0 THEN arg_msg = "查询指令指相关主生产计划需求是否已开申购单失败!"+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN UPDATE u_OrderRqMtrl SET u_orderrqmtrl.RqDate = dateadd(day, -3, u_Order_ml.orderdate), u_orderrqmtrl.edate = dateadd(day, 0 - u_mtrldef.buydays, dateadd(day, -3, u_Order_ml.orderdate)), u_orderrqmtrl.rqdate_ori = case when u_orderrqmtrl.rqdate_ori is NULL then u_orderrqmtrl.RqDate else u_orderrqmtrl.rqdate_ori END , u_orderrqmtrl.edate_ori = case when u_orderrqmtrl.edate_ori is NULL then u_orderrqmtrl.edate else u_orderrqmtrl.edate_ori END FROM u_Order_ml INNER JOIN u_OrderRqMtrl_scll ON u_Order_ml.OrderID = u_OrderRqMtrl_scll.OrderID AND u_Order_ml.scid = u_OrderRqMtrl_scll.scid INNER JOIN u_Order_ml u_Order_ml_p ON u_Order_ml.porderid = u_Order_ml_p.OrderID AND u_Order_ml.scid = u_Order_ml_p.scid INNER JOIN u_OrderRqMtrl ON u_Order_ml_p.OrderID = u_OrderRqMtrl.OrderID AND u_Order_ml_p.scid = u_OrderRqMtrl.scid AND u_OrderRqMtrl_scll.MtrlID = u_OrderRqMtrl.MtrlID AND u_OrderRqMtrl_scll.wrkGrpid = u_OrderRqMtrl.wrkGrpid INNER JOIN u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid WHERE (u_OrderRqMtrl.plantype = 2) AND (u_OrderRqMtrl_scll.scid = :arg_scid) And (u_OrderRqMtrl_scll.orderid = :arg_orderid) ; // UPDATE u_OrderRqMtrl // SET u_orderrqmtrl.RqDate = case when u_orderrqmtrl.rqdate_ori is NULL then dateadd(day, -3, u_Order_ml.orderdate) else case when dateadd(day, -3, u_Order_ml.orderdate) < u_orderrqmtrl.RqDate then dateadd(day, -3, u_Order_ml.orderdate) else u_orderrqmtrl.RqDate END END, // u_orderrqmtrl.edate = case when u_orderrqmtrl.rqdate_ori is NULL then dateadd(day, 0 - u_mtrldef.buydays, dateadd(day, -3, u_Order_ml.orderdate)) else case when dateadd(day, -3, u_Order_ml.orderdate) < u_orderrqmtrl.RqDate then dateadd(day, - u_mtrldef.buydays, dateadd(day, -3, u_Order_ml.orderdate)) else u_orderrqmtrl.edate END END , // u_orderrqmtrl.rqdate_ori = case when u_orderrqmtrl.rqdate_ori is NULL then u_orderrqmtrl.RqDate else u_orderrqmtrl.rqdate_ori END , // u_orderrqmtrl.edate_ori = case when u_orderrqmtrl.edate_ori is NULL then u_orderrqmtrl.edate else u_orderrqmtrl.edate_ori END // FROM u_Order_ml INNER JOIN // u_OrderRqMtrl_scll ON u_Order_ml.OrderID = u_OrderRqMtrl_scll.OrderID AND // u_Order_ml.scid = u_OrderRqMtrl_scll.scid INNER JOIN // u_Order_ml u_Order_ml_p ON u_Order_ml.porderid = u_Order_ml_p.OrderID AND // u_Order_ml.scid = u_Order_ml_p.scid INNER JOIN // u_OrderRqMtrl ON u_Order_ml_p.OrderID = u_OrderRqMtrl.OrderID AND // u_Order_ml_p.scid = u_OrderRqMtrl.scid AND // u_OrderRqMtrl_scll.MtrlID = u_OrderRqMtrl.MtrlID AND // u_OrderRqMtrl_scll.wrkGrpid = u_OrderRqMtrl.wrkGrpid INNER JOIN // u_mtrldef ON u_OrderRqMtrl.MtrlID = u_mtrldef.mtrlid // WHERE (u_OrderRqMtrl.plantype = 2) // AND (u_OrderRqMtrl_scll.scid = :arg_scid) // And (u_OrderRqMtrl_scll.orderid = :arg_orderid) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新需求明细日期操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uf_createorder_pt (long arg_scid, long arg_orderid, integer arg_pttype, integer arg_bomflag, boolean arg_ifcommit, ref string arg_msg); //检测配套数 Int rslt = 1 Int ls_ptflag Long ls_remtrl_cnt,ls_ware_cnt,ls_mtrlid Long i,j,d,k Decimal ls_wareqty,ld_qty,ld_standqty Long cus_c = 0,fai_c = 0,count String mtrlname,mtrlcode rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) If rslt = 0 Then Goto ext IF status <> 7 THEN rslt = 0 arg_msg = '指令单只有在待二审状态下才能进行配套计算,失败' GOTO ext END IF //IF status = 0 THEN // // IF arg_pttype = 0 THEN arg_bomflag = -1 // // IF f_cmpl_rqmtrl(orderid,arg_bomflag,TRUE,arg_msg) = 0 THEN // rslt = 0 // GOTO ext // END IF // //END IF // s_mtrlware_noalloc_array ls_mtrl_array s_pfmx ls_pfmx[] s_mtrlware_noalloc_array s_array s_mtrlware_noalloc_array s_mx Decimal ls_sonscale,ls_stopqty Long ls_sonmtrlid DECLARE pf_cur CURSOR FOR SELECT u_orderrqmtrl_scll.mtrlid , u_orderrqmtrl_scll.truerqqty/u_order_ml.orderqty,0 FROM u_OrderRqMtrl_scll INNER JOIN u_Order_ml ON u_OrderRqMtrl_scll.OrderID = u_Order_ml.OrderID AND u_OrderRqMtrl_scll.scid = u_Order_ml.scid WHERE u_orderrqmtrl_scll.orderid = :arg_orderid AND u_orderrqmtrl_scll.scid = :arg_scid And u_order_ml.orderqty > 0; OPEN pf_cur; count = 1 FETCH pf_cur INTO :ls_sonmtrlid,& :ls_sonscale,:ls_stopqty; DO WHILE sqlca.SQLCode = 0 //循环读取明细数据 ls_sonscale = Truncate(ls_sonscale,5) ls_pfmx[count].sonmtrlid = ls_sonmtrlid ls_pfmx[count].sonscale = ls_sonscale ls_pfmx[count].addqty = ls_stopqty count++ FETCH pf_cur INTO :ls_sonmtrlid,& :ls_sonscale,:ls_stopqty; LOOP count = count - 1 CLOSE pf_cur; // SELECT ptflag INTO :ls_ptflag FROM u_sc_wkp Where wrkGrpid = :wrkGrpid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询生产车间配置属性失败'+sqlca.SQLErrText GOTO ext END IF IF ls_ptflag = 0 THEN rslt = 0 arg_msg = '车间没有设置配套属性,不能配套' GOTO ext END IF IF count = 0 THEN rslt = 1 GOTO ext END IF SELECT u_mtrldef.mtrlcode,u_mtrldef.mtrlname INTO :mtrlcode,:mtrlname FROM u_mtrldef INNER JOIN u_Order_ml ON u_mtrldef.mtrlid = u_Order_ml.mtrlid WHERE u_Order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询生产指令物料名称失败'+sqlca.SQLErrText GOTO ext END IF Decimal ld_freeqty,ld_notdstrqty String ls_mtrlcode,ls_mtrlname Decimal ld_noallocqty,ld_allqty,ld_maxqty,ld_wareqty,ls_TrueRqQty Long ll_storageid_err[] Long ls_storageid,ll_i Boolean bl_free = False ld_maxqty = 1000000 IF arg_pttype = 0 THEN //单指令 FOR ll_i = 1 To count ls_pfmx[ll_i].sonscale = Truncate(ls_pfmx[ll_i].sonscale,5) IF ls_pfmx[ll_i].sonscale = 0 THEN CONTINUE SELECT mtrlcode, mtrlname INTO :ls_mtrlcode, :ls_mtrlname FROM u_mtrldef Where mtrlid = :ls_pfmx[ll_i].sonmtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = arg_msg+'~r~n'+'查询物料编码失败'+String(ls_pfmx[ll_i].sonmtrlid) //bl_free = TRUE CONTINUE END IF IF Pos(ls_mtrlname ,'胶水') > 0 Or Pos(ls_mtrlname ,'安装图') > 0 THEN CONTINUE IF Pos(Upper(mtrlcode),'B2060') > 0 And Pos(ls_mtrlname ,'胶袋') > 0 THEN CONTINUE ld_freeqty = 0 ld_noallocqty = 0 ld_notdstrqty = 0 ld_allqty = 0 //查找可用数量=库存数量-冻结数量 SELECT freeqty,noallocqty,notdstrqty INTO :ld_freeqty,:ld_noallocqty,:ld_notdstrqty FROM uv_Order_ml_RqMtrl_freeqty Where mtrlid = :ls_pfmx[ll_i].sonmtrlid; IF sqlca.SQLCode <> 0 THEN //bl_free = TRUE //CONTINUE END IF IF ld_freeqty < 0 THEN ld_freeqty = 0 END IF ld_allqty = ld_freeqty/ls_pfmx[ll_i].sonscale // f_round_qty(ls_pfmx[ll_i].sonmtrlid, ld_allqty) // f_round_qty(ls_pfmx[ll_i].sonmtrlid, ld_notdstrqty) ld_maxqty = Min(ld_maxqty,ld_allqty) IF IsNull(ld_maxqty) THEN ld_maxqty = 0 IF ld_maxqty = 0 THEN //bl_free = TRUE CONTINUE END IF NEXT ld_qty = Truncate ( ld_maxqty, 0 ) d = 0 FOR i = 1 To count ls_mtrlid = ls_pfmx[i].sonmtrlid IF ls_mtrlid = 0 THEN CONTINUE d++ s_mx.mtrlid[d] = ls_mtrlid s_mx.sonscale[d] = ls_pfmx[i].sonscale s_mx.order_mtrlid[d] = mtrlid s_mx.qty [d] = ld_qty s_mx.mtrlwareid[d] = arg_orderid s_mx.scid[d] = arg_scid NEXT // OpenWithParm(w_createorder_pt2,s_mx) s_array = Message.PowerObjectParm IF UpperBound(s_array.mtrlid) > 0 THEN s_mx = s_array ld_qty = s_array.allocqty[1] d = UpperBound(s_array.mtrlid) ELSE arg_ifcommit = False rslt = 0 arg_msg = '审核取消' GOTO ext END IF ELSE //多指令 FOR ll_i = 1 To count ld_wareqty = 0 ld_freeqty = 0 ld_noallocqty = 0 ld_notdstrqty = 0 ld_allqty = 0 ls_TrueRqQty = 0 ld_standqty = 0 SELECT mtrlcode, mtrlname INTO :ls_mtrlcode, :ls_mtrlname FROM u_mtrldef Where mtrlid = :ls_pfmx[ll_i].sonmtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = arg_msg+'~r~n'+'查询物料编码失败'+String(ls_pfmx[ll_i].sonmtrlid) bl_free = True CONTINUE END IF SELECT wareqty INTO :ld_wareqty FROM u_orderrqmtrl_scll WHERE orderid = :arg_orderid AND mtrlid = :ls_pfmx[ll_i].sonmtrlid And ( scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN //continue END IF SELECT freeqty,noallocqty,notdstrqty INTO :ld_freeqty,:ld_noallocqty,:ld_notdstrqty FROM uv_Order_ml_RqMtrl_freeqty Where mtrlid = :ls_pfmx[ll_i].sonmtrlid; IF sqlca.SQLCode <> 0 THEN //continue END IF ls_pfmx[ll_i].sonscale = Truncate(ls_pfmx[ll_i].sonscale,5) ld_standqty = ls_pfmx[ll_i].sonscale* orderqty - ls_pfmx[ll_i].addqty //配套需求数量 // f_round_qty(ls_pfmx[ll_i].sonmtrlid, ld_standqty ) // f_round_qty(ls_pfmx[ll_i].sonmtrlid, ld_notdstrqty) ld_maxqty = ld_noallocqty - (ld_notdstrqty - ld_wareqty ) //本次指令计划冻结数 IF ld_maxqty <= 0 THEN ld_maxqty = 0 IF ld_maxqty >= ld_standqty THEN ld_wareqty = ld_standqty ELSE ld_wareqty = ld_maxqty END IF s_mx.mtrlid[ll_i] = ls_pfmx[ll_i].sonmtrlid s_mx.qty[ll_i] = ld_wareqty s_mx.u_mtrldef_mtrlname[ll_i] = ls_mtrlname NEXT ld_qty = orderqty d = UpperBound(s_mx.mtrlid) END IF UPDATE u_OrderRqMtrl_scll SET wareqty = 0 WHERE ( u_OrderRqMtrl_scll.orderid = :arg_orderid ) And ( u_orderrqmtrl_scll.scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN arg_msg = '更新生产指令领料配套数量失败' rslt = 0 GOTO ext END IF FOR i = 1 To d IF Pos(s_mx.u_mtrldef_mtrlname[i] ,'胶水') > 0 Or Pos(s_mx.u_mtrldef_mtrlname[i] ,'安装图') > 0 THEN CONTINUE IF Pos(Upper(mtrlcode),'B2060') > 0 And Pos(s_mx.u_mtrldef_mtrlname[i] ,'胶袋') > 0 THEN CONTINUE UPDATE u_OrderRqMtrl_scll SET wareqty = wareqty + :s_mx.qty[i] WHERE ( orderid = :arg_orderid ) AND (mtrlid = :s_mx.mtrlid[i]) And (scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN arg_msg = '更新生产指令领料配套数量失败' rslt = 0 GOTO ext END IF NEXT UPDATE u_order_ml SET ptqty = :ld_qty, ptflag = 1, ptdate = getdate(), ptemp = :publ_operator Where OrderID = :arg_orderid and scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新生产指令领料配套数量失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ext: IF arg_ifcommit THEN IF rslt = 1 THEN COMMIT; ELSE ROLLBACK; END IF END IF RETURN rslt end function public function integer stoporder (long arg_scid, long arg_orderid, integer arg_ifchange, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);Long cnt Int rslt = 1,li_ptflag,ll_rslt Int li_ifpackpro,li_ordertype,li_ifpack,li_status Long ll_porderid,ll_mtrlid_p String ls_status_p,ls_woodcode_p,ls_pcode_p Decimal ld_notinqty_p Long ll_orderid_arr[] Int li_mxbt Long ll_i,ls_i Decimal ld_stopqty_ori,ld_stopqty String ls_mtrlcode li_mxbt = 1 datastore ds_stop_zl ds_stop_zl = Create datastore ds_stop_zl.DataObject = 'ds_order_ml_stop_p_zl' ds_stop_zl.SetTransObject(sqlca) uo_saletask uo_task uo_task = Create uo_saletask uo_task.commit_transaction = sqlca If f_aps_mrp_cklock(arg_scid,arg_msg) = 0 Then rslt = 0 Goto ext End If If uo_option_order_bh_use_yc = -1000 Then rslt = 0 arg_msg = '选项:[074]备货生产计划选销售预测单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_if_oa_order_ml = -1000 Then rslt = 0 arg_msg = '选项:[230]生产计划使用审批流程,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_order_ml_secaudit = -1000 Then rslt = 0 arg_msg = '选项:[225]生产计划使用二级审核,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_if_oa_order_zl = -1000 Then rslt = 0 arg_msg = '选项:[231]生产指令单使用审批流程,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_order_ml_zl_secaudit = -1000 Then rslt = 0 arg_msg = '选项:[226]生产指令单使用二级审核,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_autostop_porder = -1000 Then rslt = 0 arg_msg = '选项:[383]终止分离排产指令单自动终止相关主生产计划,读取初始默认值失败,操作取消!' Goto ext End If rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) If rslt = 0 Then Goto ext If ordertype <> 4 Then If uo_option_if_oa_order_ml = 1 And uo_option_order_ml_secaudit = 1 And audit_buildtype = 0 Then If f_check_if_oaflow(arg_scid,arg_orderid,36,arg_msg ) = 0 Then rslt = 0 Goto ext End If End If Else If uo_option_if_oa_order_zl = 1 And uo_option_order_ml_zl_secaudit = 1 And audit_buildtype = 0 Then If f_check_if_oaflow(arg_scid,arg_orderid,1138,arg_msg ) = 0 Then rslt = 0 Goto ext End If End If End If If ordertype = 4 And porderid > 0 Then Select u_mtrldef.ifpackpro, u_mtrldef.ordertype, u_order_ml.mtrlid, u_order_ml.status_mode, u_order_ml.woodcode, u_order_ml.pcode, u_order_ml.orderqty - u_order_ml.acmpqty - u_order_ml.stopqty, u_order_ml.status Into :li_ifpackpro, :li_ordertype, :ll_mtrlid_p, :ls_status_p, :ls_woodcode_p, :ls_pcode_p, :ld_notinqty_p, :li_status From u_Order_ml Inner JOIN u_mtrldef ON u_Order_ml.mtrlid = u_mtrldef.mtrlid Where u_Order_ml.scid = :scid And u_order_ml.orderid = :porderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询相关主生产计划产品属性失败,'+sqlca.SQLErrText Goto ext End If End If //如果是包件产品生产计划分离的指令单,终止时不考虑状态(雅舍需求, 2014-06-24) If Not (ordertype = 4 And li_ifpackpro = 1 And & ll_mtrlid_p = mtrlid And & ls_status_p = status_mode And & ls_woodcode_p = woodcode And & ls_pcode_p = pcode) Then If status <> 1 Then rslt = 0 arg_msg = "计划只有在进行状态才可以执行终止，请核对" Goto ext End If End If If getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If If Trim(arg_stopreason) = '' Then rslt = 0 arg_msg = '请输入终止原因' Goto ext End If //如果是主计划,下级指令单状态有1,2,4,7,不允许终止主计划 If ordertype <> 4 Then Select count(*) Into :cnt From u_order_ml Where ordertype = 4 And porderid = :arg_orderid And scid = :arg_scid And status In (1,2,4,7); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = OrderCode+'查询下级指令单状态失败'+sqlca.SQLErrText Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = OrderCode+',有下级指令单处于在进行、暂停、待二审或待终审状态,不能终止主计划' Goto ext End If End If If ordertype = 4 Then Select ptflag Into :li_ptflag From u_sc_wkp Where wrkGrpid = :wrkGrpid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = OrderCode+'查询生产车间配置属性失败'+sqlca.SQLErrText Goto ext End If End If // cnt = 0 Select count(*) Into :cnt From u_inwaremx Inner JOIN u_inware ON u_inwaremx.scid = u_inware.scid And u_inwaremx.inwareid = u_inware.inwareid Where (u_inware.billtype = 3) And (u_inware.flag = 0) And (u_inwaremx.scid = :arg_scid) And (u_inwaremx.relid = :arg_orderid); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = OrderCode+' 查询是否有相关未审核生产进仓单失败'+sqlca.SQLErrText Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = OrderCode+' 有相关未审核生产进仓单,不能终止' Goto ext End If If ordertype = 0 And uo_option_order_bh_use_yc = 1 Then For ls_i = 1 To it_mxbt If s_order_mx[ls_i].taskid > 0 Then Select stopqty Into :ld_stopqty_ori From u_saletaskmx Where scid = :s_order_mx[ls_i].taskscid And taskid = :s_order_mx[ls_i].taskid And printid = :s_order_mx[ls_i].taskmxid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产计划相关销售预测单信息失败'+sqlca.SQLErrText Goto ext End If ld_stopqty = ld_stopqty_ori + s_order_mx[ls_i].orderqty If uo_task.stopqty(s_order_mx[ls_i].taskscid,s_order_mx[ls_i].taskid,s_order_mx[ls_i].taskmxid,'',ld_stopqty,'',arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If Next End If //扣减相关部件生产计划的已分配数量 If pforderid > 0 Then If f_add_conpfqty(arg_scid,pforderid, (pfqty * (acmpqty - orderqty)) / orderqty ,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If //是否终止用料 If arg_ifchange = 1 Then ll_rslt = uof_mtrl_change(arg_scid,arg_orderid,0,0,arg_ifchange,1,arg_msg,False) If ll_rslt = 0 Then rslt = 0 Goto ext ElseIf rslt = 2 Then Update u_order_ml Set stopreason = rtrim(stopreason) + ','+'已开申购单,不能终止物料需求' Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致补充生产计划终止原因失败"+"~n"+sqlca.SQLErrText Goto ext End If End If ElseIf arg_ifchange = 2 Then ll_rslt = uof_mtrl_change(arg_scid,arg_orderid,0,0,arg_ifchange,1,arg_msg,False) If ll_rslt = 0 Then rslt = 0 Goto ext End If End If //yyx2013-11-9 If ordertype = 4 And pzlorderid = 0 And (arg_ifchange = 1 Or arg_ifchange = 2) and status = 1 Then If it_mxbt = 0 Then rslt = 0 arg_msg = '没有计划明细,操作终止,请检查' Goto ext End If For ls_i = 1 To it_mxbt If s_order_mx[ls_i].taskid > 0 Then Int li_plantype Long ll_wrkGrpid_scll Select plantype,wrkGrpid Into :li_plantype,:ll_wrkGrpid_scll From u_OrderRqMtrl Where scid = :scid And orderid = :s_order_mx[ls_i].taskid And mxpkid = :s_order_mx[ls_i].taskmxid; If sqlca.SQLCode <> 0 Then arg_msg = '查询生产自制需求资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If f_assign_rqmtrlqty(scid,s_order_mx[ls_i].taskid,ll_wrkGrpid_scll,& mtrlid,ls_mtrlcode,status_mode,& woodcode,pcode,0 - s_order_mx[ls_i].orderqty,0,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If Next End If //yyx2013-11-9_end If ordertype = 4 And li_ptflag = 1 Then Update u_orderrqmtrl_scll Set u_orderrqmtrl_scll.wareqty = u_orderrqmtrl_scll.dstrqty From u_orderrqmtrl_scll Where u_orderrqmtrl_scll.scid = :arg_scid And u_orderrqmtrl_scll.orderid = :arg_orderid And u_orderrqmtrl_scll.wareqty > u_orderrqmtrl_scll.dstrqty; If sqlca.SQLCode <> 0 Then arg_msg = '更新指令单配套数量失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If End If //如果是通用包件产品,检查相关包件指令是否终止 //如果是分离排产的指令单,要终止相关主生产计划 If ordertype = 4 And porderid > 0 Then Select ifpack Into :li_ifpack From u_mtrldef Where mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询指令单物料资料包件属性失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If ll_porderid = porderid li_mxbt = 1 If li_ifpackpro = 1 And li_ifpack = 1 Then ds_stop_zl.Retrieve(scid,porderid) If ds_stop_zl.RowCount() > 0 Then If ds_stop_zl.Find('u_orderrqmtrl_truerqqty > stopqty',1,ds_stop_zl.RowCount()) = 0 Then Declare cur_zl_p Cursor For Select orderid From u_order_ml Where scid = :arg_scid And porderid = :ll_porderid And mtrlid = :ll_mtrlid_p And status_mode = :ls_status_p And woodcode = :ls_woodcode_p And pcode = :ls_pcode_p And ordertype = 4; Open cur_zl_p; Fetch cur_zl_p Into :ll_orderid_arr[li_mxbt]; Do While sqlca.SQLCode = 0 li_mxbt++ Fetch cur_zl_p Into :ll_orderid_arr[li_mxbt]; Loop Close cur_zl_p; For ll_i = 1 To li_mxbt - 1 If stoporder(scid,ll_orderid_arr[ll_i],arg_ifchange,'终止包件指令自动终止',arg_msg,False) = 0 Then rslt = 0 arg_msg = '自动终止包件产品主生产计划对应的分离指令单失败,'+arg_msg Goto ext End If Next // If stoporder(scid,porderid,arg_ifchange,'终止包件指令自动终止主计划',arg_msg,False) = 0 Then // rslt = 0 // arg_msg = '自动终止包件产品主生产计划失败,'+arg_msg // Goto ext // End If End If End If End If //如果是分离排产,还要同时终止主生产计划对应的指令单(非包件产品) If uo_option_autostop_porder = 1 Then If li_ordertype = 1 And & ll_mtrlid_p = mtrlid And & ls_status_p = status_mode And & ls_woodcode_p = woodcode And & ls_pcode_p = pcode And & li_ifpackpro = 0 And & li_status <> 3 Then Update u_order_ml Set stopqty = stopqty + (:orderqty - :acmpqty - :stopqty) Where u_order_ml.scid = :scid And u_order_ml.orderid = :porderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新分离排产对应主生产计划终止数量失败,'+arg_msg Goto ext End If If ld_notinqty_p = orderqty - acmpqty - stopqty Then If stoporder(scid,porderid,arg_ifchange,'终止包件指令自动终止',arg_msg,False) = 0 Then rslt = 0 arg_msg = '自动终止分离排产对应主生产计划失败,'+arg_msg Goto ext End If End If End If // DECLARE cur_zl_p CURSOR FOR // SELECT orderid // FROM u_order_ml // WHERE scid = :arg_scid // AND porderid = :ll_porderid // AND mtrlid = :ll_mtrlid_p // AND status_mode = :ls_status_p // AND woodcode = :ls_woodcode_p // And pcode = :ls_pcode_p; // // OPEN cur_zl_p; // // FETCH cur_zl_p Into :ll_orderid_arr[li_mxbt]; // // DO WHILE sqlca.SQLCode = 0 // li_mxbt++ // FETCH cur_zl_p Into :ll_orderid_arr[li_mxbt]; // LOOP // // CLOSE cur_zl_p; // // FOR ll_i = 1 To li_mxbt - 1 // IF stoporder(scid,ll_orderid_arr[ll_i],arg_ifchange,'终止包件指令自动终止',arg_msg,False) = 0 THEN // rslt = 0 // arg_msg = '自动终止包件产品主生产计划对应的分离指令单失败,'+arg_msg // GOTO ext // END IF // NEXT End If End If Update u_order_ml Set status = 3, stopemp = :publ_operator, Accomplishdate = getdate(), stopreason = :arg_stopreason, stopqty = orderqty - acmpqty Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致终止生产计划操作失败"+"~n"+sqlca.SQLErrText Goto ext End If ext: If rslt = 0 Then Rollback; p_reset() ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Destroy uo_task Destroy ds_stop_zl Return (rslt) end function public function integer f_add_flqty (long arg_scid, long arg_orderid, long arg_wrkgrpid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt rslt = 1 String ls_ordercode SELECT ordercode INTO :ls_ordercode FROM u_order_ml WHERE scid = :arg_scid And orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询指令单信息失败,scid:'+String(arg_scid)+',orderid:'+String(arg_orderid)+','+sqlca.SQLErrText GOTO ext END IF UPDATE u_OrderRqMtrl_scll SET flqty = flqty + :arg_addqty WHERE scid = :arg_scid AND orderid = :arg_orderid AND wrkgrpid = :arg_wrkgrpid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode And pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '指令单:'+ls_ordercode+'更新物料:'+arg_mtrlcode+',发料通知单数失败>>'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_bom_workprice (long arg_mtrlid, string arg_pfcode, decimal arg_qty, ref string arg_msg);Int rslt = 1 Int li_mtrlorigin Long count = 0,cnt Long ll_i s_pfmx ls_s_pfmx[] Decimal ld_cmpqty Decimal ld_qty,ld_bom_qty Long tem_long String ls_wpcode String ls_pricestr_value Decimal ld_workprice_str deep++ If deep > 1000 Then arg_msg = '递归太深'+String(deep) rslt = 0 Goto ext End If Select cmpqty Into :ld_cmpqty From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询物料清单基数失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Declare pf_cur Cursor For Select u_PrdPF.Sonscale, u_PrdPF.SonLoss, u_PrdPF.SonDECLosS, u_PrdPF.SonMtrlid, u_PrdPF.sonpfcode, u_mtrldef.mtrlcode, u_mtrldef.mrptype, u_mtrldef.mrparg From u_PrdPF Inner JOIN u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid Where (u_mtrldef.ifselforder = 0) And (u_mtrldef.mtrlorigin = 0) And ( u_PrdPF.mtrlid = :arg_mtrlid ) And ( u_PrdPF.pfcode = :arg_pfcode ) Order By u_PrdPF.printid; Open pf_cur; count = 1 Fetch pf_cur Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,& :ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,:ls_s_pfmx[count].sonpfcode,& :ls_s_pfmx[count].mtrlcode,:ls_s_pfmx[count].u_mtrldef_mrptype,& :ls_s_pfmx[count].u_mtrldef_mrparg; Do While sqlca.SQLCode = 0 count++ Fetch pf_cur Into :ls_s_pfmx[count].Sonscale,:ls_s_pfmx[count].SonLoss,& :ls_s_pfmx[count].SonDECLosS,:ls_s_pfmx[count].SonMtrlid,:ls_s_pfmx[count].sonpfcode,& :ls_s_pfmx[count].mtrlcode,:ls_s_pfmx[count].u_mtrldef_mrptype,& :ls_s_pfmx[count].u_mtrldef_mrparg; Loop count = count - 1 Close pf_cur; For ll_i = 1 To count If ls_s_pfmx[ll_i].u_mtrldef_mrptype = 0 Then ld_qty = Round(arg_qty * (ls_s_pfmx[ll_i].Sonscale/(1 - ls_s_pfmx[ll_i].SonLoss)+ls_s_pfmx[ll_i].SonDECLosS)/ld_cmpqty,ls_s_pfmx[ll_i].u_mtrldef_mrparg) ld_bom_qty = Round((ls_s_pfmx[ll_i].Sonscale/(1 - ls_s_pfmx[ll_i].SonLoss)+ls_s_pfmx[ll_i].SonDECLosS)/ld_cmpqty,ls_s_pfmx[ll_i].u_mtrldef_mrparg) Else If ls_s_pfmx[ll_i].u_mtrldef_mrparg = 0 Then ld_qty = Ceiling(Truncate(arg_qty * ls_s_pfmx[ll_i].Sonscale/(1 - ls_s_pfmx[ll_i].SonLoss)+ls_s_pfmx[ll_i].SonDECLosS,10)/ld_cmpqty) ld_bom_qty = Ceiling(Truncate(ls_s_pfmx[ll_i].Sonscale/(1 - ls_s_pfmx[ll_i].SonLoss)+ls_s_pfmx[ll_i].SonDECLosS,10)/ld_cmpqty) Else tem_long = 10^ls_s_pfmx[ll_i].u_mtrldef_mrparg ld_qty = Ceiling((Truncate(arg_qty * ls_s_pfmx[ll_i].Sonscale/(1 - ls_s_pfmx[ll_i].SonLoss)+ls_s_pfmx[ll_i].SonDECLosS,10)/ld_cmpqty) * tem_long)/tem_long ld_qty = Round(ld_qty , ls_s_pfmx[ll_i].u_mtrldef_mrparg) ld_bom_qty = Ceiling((Truncate(ls_s_pfmx[ll_i].Sonscale/(1 - ls_s_pfmx[ll_i].SonLoss)+ls_s_pfmx[ll_i].SonDECLosS,10)/ld_cmpqty) * tem_long)/tem_long ld_bom_qty = Round(ld_bom_qty , ls_s_pfmx[ll_i].u_mtrldef_mrparg) End If End If ls_wpcode = f_get_dft_wp(ls_s_pfmx[ll_i].SonMtrlid) If ls_wpcode = '' Then rslt = 0 arg_msg = '查询部件:'+ls_s_pfmx[count].mtrlcode+' 默认工价表号失败' Goto ext End If cnt = 0 Select COUNT(*) Into :cnt From (Select rpcode, SUM(ifdftpg) AS ifdftpg From u_sc_workprice Where (Mtrlid = :ls_s_pfmx[ll_i].SonMtrlid) And (rpcode <> '') And (u_sc_workprice.wpcode = :ls_wpcode) Group By rpcode Having (SUM(ifdftpg) <> 1)) v_rpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询部件:'+ls_s_pfmx[count].mtrlcode+' 替代工序默认派工属性是否设置正确失败' Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = '部件:'+ls_s_pfmx[count].mtrlcode+' 替代工序默认派工属性必须设置且必须唯一' Goto ext End If Declare cur_wpmx Cursor For Select u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * :ld_qty, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workqty * :ld_qty, u_sc_workprice.u_workprice, :ls_s_pfmx[ll_i].mtrlcode, u_sc_workprice.workprice * :ld_bom_qty, u_sc_workprice.pricestr, '['+ltrim(rtrim(u_mtrldef.mtrlcode))+']' + ltrim(rtrim(u_mtrldef.mtrlname)) + '('+ltrim(rtrim(u_mtrldef.mtrlmode))+')', u_sc_workprice.replacestr, u_sc_workprice.mtrlid, u_sc_workprice.rpcode, u_sc_workprice.auditflag_gj From u_sc_workprice Inner JOIN u_mtrldef ON u_sc_workprice.Mtrlid = u_mtrldef.mtrlid Where u_sc_workprice.mtrlid = :ls_s_pfmx[ll_i].SonMtrlid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And u_sc_workprice.wpcode = :ls_wpcode; Open cur_wpmx; it_mx_bomwp++ Fetch cur_wpmx Into :ins_s_wp[it_mx_bomwp].procode,& :ins_s_wp[it_mx_bomwp].proname,& :ins_s_wp[it_mx_bomwp].proorder,& :ins_s_wp[it_mx_bomwp].workqty,& :ins_s_wp[it_mx_bomwp].wrkgrpid,& :ins_s_wp[it_mx_bomwp].lsxtype,& :ins_s_wp[it_mx_bomwp].workprice,& :ins_s_wp[it_mx_bomwp].status,& :ins_s_wp[it_mx_bomwp].ifjd,& :ins_s_wp[it_mx_bomwp].lastflag,& :ins_s_wp[it_mx_bomwp].sctype,& :ins_s_wp[it_mx_bomwp].equipmentid,& :ins_s_wp[it_mx_bomwp].partname,& :ins_s_wp[it_mx_bomwp].eqworkhour,& :ins_s_wp[it_mx_bomwp].Workhour,& :ins_s_wp[it_mx_bomwp].beforehour,& :ins_s_wp[it_mx_bomwp].afterhour,& :ins_s_wp[it_mx_bomwp].workprice,& :ins_s_wp[it_mx_bomwp].worktype,& :ins_s_wp[it_mx_bomwp].eq_empnum,& :ins_s_wp[it_mx_bomwp].ifgroup,& :ins_s_wp[it_mx_bomwp].u_workqty,& :ins_s_wp[it_mx_bomwp].u_workprice,& :ins_s_wp[it_mx_bomwp].mtrlcode,& :ins_s_wp[it_mx_bomwp].workprice_bom,& :ins_s_wp[it_mx_bomwp].pricestr,& :ins_s_wp[it_mx_bomwp].pro_dscrp,& :ins_s_wp[it_mx_bomwp].replacestr,& :ins_s_wp[it_mx_bomwp].sonmtrlid,& :ins_s_wp[it_mx_bomwp].rpcode,& :ins_s_wp[it_mx_bomwp].auditflag_gj; Do While sqlca.SQLCode = 0 //套入公式 If ins_s_wp[it_mx_bomwp].pricestr <> '' Then If uof_workprice_parm(ls_s_pfmx[ll_i].SonMtrlid,ls_wpcode,ins_s_wp[it_mx_bomwp].procode,ins_s_wp[it_mx_bomwp].workqty,ins_s_wp[it_mx_bomwp].pricestr,0,ls_pricestr_value,ld_workprice_str) <> 0 Then ins_s_wp[it_mx_bomwp].workprice_bom = ld_workprice_str ins_s_wp[it_mx_bomwp].workprice = ld_workprice_str ins_s_wp[it_mx_bomwp].pricestr_value = ls_pricestr_value End If End If it_mx_bomwp++ Fetch cur_wpmx Into :ins_s_wp[it_mx_bomwp].procode,& :ins_s_wp[it_mx_bomwp].proname,& :ins_s_wp[it_mx_bomwp].proorder,& :ins_s_wp[it_mx_bomwp].workqty,& :ins_s_wp[it_mx_bomwp].wrkgrpid,& :ins_s_wp[it_mx_bomwp].lsxtype,& :ins_s_wp[it_mx_bomwp].workprice,& :ins_s_wp[it_mx_bomwp].status,& :ins_s_wp[it_mx_bomwp].ifjd,& :ins_s_wp[it_mx_bomwp].lastflag,& :ins_s_wp[it_mx_bomwp].sctype,& :ins_s_wp[it_mx_bomwp].equipmentid,& :ins_s_wp[it_mx_bomwp].partname,& :ins_s_wp[it_mx_bomwp].eqworkhour,& :ins_s_wp[it_mx_bomwp].Workhour,& :ins_s_wp[it_mx_bomwp].beforehour,& :ins_s_wp[it_mx_bomwp].afterhour,& :ins_s_wp[it_mx_bomwp].workprice,& :ins_s_wp[it_mx_bomwp].worktype,& :ins_s_wp[it_mx_bomwp].eq_empnum,& :ins_s_wp[it_mx_bomwp].ifgroup,& :ins_s_wp[it_mx_bomwp].u_workqty,& :ins_s_wp[it_mx_bomwp].u_workprice,& :ins_s_wp[it_mx_bomwp].mtrlcode,& :ins_s_wp[it_mx_bomwp].workprice_bom,& :ins_s_wp[it_mx_bomwp].pricestr,& :ins_s_wp[it_mx_bomwp].pro_dscrp,& :ins_s_wp[it_mx_bomwp].replacestr,& :ins_s_wp[it_mx_bomwp].sonmtrlid,& :ins_s_wp[it_mx_bomwp].rpcode,& :ins_s_wp[it_mx_bomwp].auditflag_gj; Loop Close cur_wpmx; it_mx_bomwp = it_mx_bomwp - 1 If uof_bom_workprice(ls_s_pfmx[ll_i].SonMtrlid,ls_s_pfmx[ll_i].sonpfcode,ld_qty,arg_msg) = 0 Then rslt = 0 Goto ext End If Next ext: Return rslt end function public function integer uof_protype_workprice (long arg_mtrlid, string arg_pfcode, string arg_wpcode, decimal arg_qty, ref string arg_msg);Int rslt String ls_pricestr_value Decimal ld_workprice_str rslt = 1 Declare cur_wpmx Cursor For Select u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * :arg_qty, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workqty * :arg_qty, u_sc_workprice.u_workprice, u_mtrldef.mtrlcode, u_sc_workprice.workprice, u_sc_workprice.pricestr, '['+ltrim(rtrim(u_mtrldef.mtrlcode))+']' + ltrim(rtrim(u_mtrldef.mtrlname)) + '('+ltrim(rtrim(u_mtrldef.mtrlmode))+')', u_sc_workprice.replacestr, u_sc_workprice.mtrlid, u_sc_workprice.rpcode, u_sc_workprice.auditflag_gj From u_sc_workprice Inner JOIN u_mtrldef ON u_sc_workprice.Mtrlid = u_mtrldef.mtrlid Where u_sc_workprice.mtrlid = :arg_mtrlid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And u_sc_workprice.wpcode = :arg_wpcode; Open cur_wpmx; it_mx_bomwp++ Fetch cur_wpmx Into :ins_s_wp[it_mx_bomwp].procode,& :ins_s_wp[it_mx_bomwp].proname,& :ins_s_wp[it_mx_bomwp].proorder,& :ins_s_wp[it_mx_bomwp].workqty,& :ins_s_wp[it_mx_bomwp].wrkgrpid,& :ins_s_wp[it_mx_bomwp].lsxtype,& :ins_s_wp[it_mx_bomwp].workprice,& :ins_s_wp[it_mx_bomwp].status,& :ins_s_wp[it_mx_bomwp].ifjd,& :ins_s_wp[it_mx_bomwp].lastflag,& :ins_s_wp[it_mx_bomwp].sctype,& :ins_s_wp[it_mx_bomwp].equipmentid,& :ins_s_wp[it_mx_bomwp].partname,& :ins_s_wp[it_mx_bomwp].eqworkhour,& :ins_s_wp[it_mx_bomwp].Workhour,& :ins_s_wp[it_mx_bomwp].beforehour,& :ins_s_wp[it_mx_bomwp].afterhour,& :ins_s_wp[it_mx_bomwp].workprice,& :ins_s_wp[it_mx_bomwp].worktype,& :ins_s_wp[it_mx_bomwp].eq_empnum,& :ins_s_wp[it_mx_bomwp].ifgroup,& :ins_s_wp[it_mx_bomwp].u_workqty,& :ins_s_wp[it_mx_bomwp].u_workprice,& :ins_s_wp[it_mx_bomwp].mtrlcode,& :ins_s_wp[it_mx_bomwp].workprice_bom,& :ins_s_wp[it_mx_bomwp].pricestr,& :ins_s_wp[it_mx_bomwp].pro_dscrp,& :ins_s_wp[it_mx_bomwp].replacestr,& :ins_s_wp[it_mx_bomwp].sonmtrlid,& :ins_s_wp[it_mx_bomwp].rpcode,& :ins_s_wp[it_mx_bomwp].auditflag_gj; Do While sqlca.SQLCode = 0 //套入公式 If ins_s_wp[it_mx_bomwp].pricestr <> '' Then If uof_workprice_parm(arg_mtrlid,arg_wpcode,ins_s_wp[it_mx_bomwp].procode,ins_s_wp[it_mx_bomwp].workqty,ins_s_wp[it_mx_bomwp].pricestr,0,ls_pricestr_value,ld_workprice_str) <> 0 Then ins_s_wp[it_mx_bomwp].workprice_bom = ld_workprice_str ins_s_wp[it_mx_bomwp].workprice = ld_workprice_str ins_s_wp[it_mx_bomwp].pricestr_value = ls_pricestr_value End If End If it_mx_bomwp++ Fetch cur_wpmx Into :ins_s_wp[it_mx_bomwp].procode,& :ins_s_wp[it_mx_bomwp].proname,& :ins_s_wp[it_mx_bomwp].proorder,& :ins_s_wp[it_mx_bomwp].workqty,& :ins_s_wp[it_mx_bomwp].wrkgrpid,& :ins_s_wp[it_mx_bomwp].lsxtype,& :ins_s_wp[it_mx_bomwp].workprice,& :ins_s_wp[it_mx_bomwp].status,& :ins_s_wp[it_mx_bomwp].ifjd,& :ins_s_wp[it_mx_bomwp].lastflag,& :ins_s_wp[it_mx_bomwp].sctype,& :ins_s_wp[it_mx_bomwp].equipmentid,& :ins_s_wp[it_mx_bomwp].partname,& :ins_s_wp[it_mx_bomwp].eqworkhour,& :ins_s_wp[it_mx_bomwp].Workhour,& :ins_s_wp[it_mx_bomwp].beforehour,& :ins_s_wp[it_mx_bomwp].afterhour,& :ins_s_wp[it_mx_bomwp].workprice,& :ins_s_wp[it_mx_bomwp].worktype,& :ins_s_wp[it_mx_bomwp].eq_empnum,& :ins_s_wp[it_mx_bomwp].ifgroup,& :ins_s_wp[it_mx_bomwp].u_workqty,& :ins_s_wp[it_mx_bomwp].u_workprice,& :ins_s_wp[it_mx_bomwp].mtrlcode,& :ins_s_wp[it_mx_bomwp].workprice_bom,& :ins_s_wp[it_mx_bomwp].pricestr,& :ins_s_wp[it_mx_bomwp].pro_dscrp,& :ins_s_wp[it_mx_bomwp].replacestr,& :ins_s_wp[it_mx_bomwp].sonmtrlid,& :ins_s_wp[it_mx_bomwp].rpcode,& :ins_s_wp[it_mx_bomwp].auditflag_gj; Loop Close cur_wpmx; it_mx_bomwp = it_mx_bomwp - 1 If uof_bom_workprice(arg_mtrlid,arg_pfcode,arg_qty,arg_msg) = 0 Then rslt = 0 Goto ext End If ext: Return rslt end function public function integer add_gydscrp (long arg_scid, long arg_orderid, string arg_newdescppart, ref string arg_msg); Int rslt = 1 IF arg_newdescppart = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_orderid, arG_MSG) IF rslt = 0 THEN GOTO ext IF status = 0 THEN rslt = 0 arG_MSG = "待审核状态下不可用" GOTO ext END IF UPDATE u_order_ml SET gydscrp = :arg_newdescppart WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid; IF SQLCA.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致修改工艺说明操作失败"+"~n"+SQLCA.SQLErrText ROLLBACK; GOTO ext END IF gydscrp = arg_newdescppart ext: IF rslt = 1 THEN COMMIT; END IF p_reset() RETURN (rslt) end function public function integer uof_stop_tree (long arg_scid, long arg_orderid, decimal arg_stopqty, integer arg_type, integer arg_ifaddhis, ref string arg_msg, boolean arg_ifcommit);Int rslt rslt = 1 Long ll_i,ll_j,ll_k Long ll_porderid,ll_printid Decimal ld_stopqty,ld_standardrqqty,ld_rate Long ll_mtrlid,ll_wrkgrpid,ll_produce_wrkgrpid,ll_wrkgrpid_zl Int li_plantype String ls_status,ls_woodcode,ls_pcode Decimal ld_rqqty_tree Long ll_lp,ll_mtrlid_zl,ll_printid_tree String ls_status_zl,ls_woodcode_zl,ls_pcode_zl Decimal ld_stopqty_sum,ld_stopqty_tmp Int li_ifwfjgup,li_ordertype_zl ld_stopqty_sum = arg_stopqty datastore ds_tree ds_tree = Create datastore ds_tree.DataObject = 'ds_orderrqmtrl_tree_stop' ds_tree.SetTransObject(sqlca) datastore ds_stop_his ds_stop_his = Create datastore ds_stop_his.DataObject = 'ds_order_ml_stop_mtrl_his' ds_stop_his.SetTransObject(sqlca) If arg_type = 0 Then //终止 Select mtrlid,status_mode,woodcode,pcode,porderid,wrkgrpid,ordertype Into :ll_mtrlid_zl,:ls_status_zl,:ls_woodcode_zl,:ls_pcode_zl,:ll_porderid,:ll_wrkgrpid_zl,:li_ordertype_zl From u_order_ml Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询指令单信息失败'+"~n"+sqlca.SQLErrText Goto ext End If //yyx2014-8-14主计划也是指令单 if li_ordertype_zl <> 4 then ll_porderid = arg_orderid end if //end_yyx2014-8-14主计划也是指令单 Delete From u_order_ml_stop_mtrl_his Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除旧终止记录操作失败"+"~n"+sqlca.SQLErrText Goto ext End If ds_tree.Retrieve(arg_scid,ll_porderid) If ds_tree.RowCount() <= 0 Then rslt = 1 Goto ext End If For ll_i = 1 To ds_tree.RowCount() If ld_stopqty_sum <= 0 Then Exit ll_mtrlid = ds_tree.Object.mtrlid[ll_i] ls_status = ds_tree.Object.status[ll_i] ls_woodcode = ds_tree.Object.woodcode[ll_i] ls_pcode = ds_tree.Object.pcode[ll_i] //1.定位指令单在运算树中的位置 If ll_mtrlid = ll_mtrlid_zl And ls_status = ls_status_zl And ls_woodcode = ls_woodcode_zl And ls_pcode = ls_pcode_zl Then ll_lp = ds_tree.Object.lp[ll_i] ll_printid_tree = ds_tree.Object.printid[ll_i] ld_standardrqqty = ds_tree.Object.standardrqqty[ll_i] If ld_standardrqqty = 0 Then ld_standardrqqty = ds_tree.Object.rqqty[ll_i] End If If ld_stopqty_sum > ld_standardrqqty Then ld_stopqty_tmp = ld_standardrqqty ld_stopqty_sum = ld_stopqty_sum - ld_stopqty_tmp Else ld_stopqty_tmp = ld_stopqty_sum ld_stopqty_sum = 0 End If If ld_standardrqqty = 0 Then ld_rate = 1 Else ld_rate = ld_stopqty_tmp / ld_standardrqqty End If //1.1 终止指令单在运算树中的数量 // UPDATE u_orderrqmtrl_tree // SET rqqty = rqqty - :ld_stopqty_tmp, // truerqqty = truerqqty- :ld_stopqty_tmp, // scllqty = scllqty - :ld_stopqty_tmp // WHERE scid = :arg_scid // AND orderid = :ll_porderid // And printid = :ll_printid_tree; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '因网络或其它原因导致更新生产计划运算数据失败'+"~n"+sqlca.SQLErrText // GOTO ext // END IF //yyx2013-10-31 Update u_orderrqmtrl_tree Set truerqqty = truerqqty - :ld_stopqty_tmp Where scid = :arg_scid And orderid = :ll_porderid And printid = :ll_printid_tree; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划运算数据失败'+"~n"+sqlca.SQLErrText Goto ext End If Update u_orderrqmtrl Set truerqqty = truerqqty - :ld_stopqty_tmp Where scid = :arg_scid And orderid = :ll_porderid And mtrlid = :ll_mtrlid_zl And produce_wrkGrpid = :ll_wrkgrpid_zl And status = :ls_status_zl And woodcode = :ls_woodcode_zl And pcode = :ls_pcode_zl And plantype = 0; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划用料需求失败'+"~n"+sqlca.SQLErrText Goto ext End If // If arg_ifaddhis = 1 Then Update u_order_ml_stop_mtrl_his Set stopqty = stopqty + :ld_stopqty_tmp Where scid = :arg_scid And orderid = :arg_orderid And porderid = :ll_porderid And printid = :ll_printid_tree; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then Insert Into u_order_ml_stop_mtrl_his (scid, orderid, porderid, printid, stopqty) Values (:arg_scid, :arg_orderid, :ll_porderid, :ll_printid_tree, :ld_stopqty_tmp); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致插入终止历史失败'+"~n"+sqlca.SQLErrText Goto ext End If End If Else rslt = 0 arg_msg = '因网络或其它原因导致更新终止历史失败'+"~n"+sqlca.SQLErrText Goto ext End If End If // //1.1 end //2.如果直接上级是外协,终止相应数量 For ll_j = ll_i - 1 To 1 Step -1 If ds_tree.Object.lp[ll_j] <= ll_lp - 2 Then Exit If ds_tree.Object.lp[ll_j] = ll_lp - 1 Then If ds_tree.Object.plantype[ll_j] <> 3 Then Exit ll_mtrlid = ds_tree.Object.mtrlid[ll_j] ll_wrkgrpid = ds_tree.Object.wrkgrpid[ll_j] ll_produce_wrkgrpid = ds_tree.Object.produce_wrkGrpid[ll_j] li_plantype = ds_tree.Object.plantype[ll_j] ls_status = ds_tree.Object.status[ll_j] ls_woodcode = ds_tree.Object.woodcode[ll_j] ls_pcode = ds_tree.Object.pcode[ll_j] ld_rqqty_tree = ds_tree.Object.u_orderrqmtrl_tree_truerqqty[ll_j] ll_printid = ds_tree.Object.printid[ll_j] //上级是外协,只终止净需求数(上层的自制仍需领料) Update u_orderrqmtrl Set truerqqty = truerqqty - :ld_rqqty_tree * :ld_rate Where scid = :arg_scid And orderid = :ll_porderid And mtrlid = :ll_mtrlid And wrkgrpid = :ll_wrkgrpid And status = :ls_status And woodcode = :ls_woodcode And pcode = :ls_pcode And plantype = :li_plantype; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划用料需求失败'+"~n"+sqlca.SQLErrText Goto ext End If Update u_orderrqmtrl_tree Set truerqqty = truerqqty- :ld_rqqty_tree * :ld_rate Where scid = :arg_scid And orderid = :ll_porderid And printid = :ll_printid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划运算数据失败'+"~n"+sqlca.SQLErrText Goto ext End If If arg_ifaddhis = 1 Then Update u_order_ml_stop_mtrl_his Set stopqty = stopqty + :ld_rqqty_tree * :ld_rate Where scid = :arg_scid And orderid = :arg_orderid And porderid = :ll_porderid And printid = :ll_printid; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then Insert Into u_order_ml_stop_mtrl_his (scid, orderid, porderid, printid, stopqty, ifwfjgup) Values (:arg_scid, :arg_orderid, :ll_porderid, :ll_printid, :ld_rqqty_tree * :ld_rate, 1); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致插入终止历史失败'+"~n"+sqlca.SQLErrText Goto ext End If End If Else rslt = 0 arg_msg = '因网络或其它原因导致更新终止历史失败'+"~n"+sqlca.SQLErrText Goto ext End If End If Exit End If Next //3.下级外协件的采购数量按相应数量终止 For ll_j = ll_i + 1 To ds_tree.RowCount() If ds_tree.Object.lp[ll_j] <= ll_lp Then Exit If ds_tree.Object.lp[ll_j] = ll_lp + 1 And ds_tree.Object.plantype[ll_j] = 3 Then For ll_k = ll_j + 1 To ds_tree.RowCount() If ds_tree.Object.lp[ll_k] <= ll_lp + 1 Then Exit If ds_tree.Object.lp[ll_k] = ll_lp + 2 And ds_tree.Object.plantype[ll_k] = 2 Then ll_mtrlid = ds_tree.Object.mtrlid[ll_k] ll_wrkgrpid = ds_tree.Object.wrkgrpid[ll_k] ll_produce_wrkgrpid = ds_tree.Object.produce_wrkGrpid[ll_k] li_plantype = ds_tree.Object.plantype[ll_k] ls_status = ds_tree.Object.status[ll_k] ls_woodcode = ds_tree.Object.woodcode[ll_k] ls_pcode = ds_tree.Object.pcode[ll_k] ld_rqqty_tree = ds_tree.Object.rqqty[ll_k] ll_printid = ds_tree.Object.printid[ll_k] Update u_orderrqmtrl Set RqQty = RqQty - :ld_rqqty_tree * :ld_rate, truerqqty = truerqqty- :ld_rqqty_tree * :ld_rate, scllqty = scllqty - :ld_rqqty_tree * :ld_rate Where scid = :arg_scid And orderid = :ll_porderid And mtrlid = :ll_mtrlid And wrkgrpid = :ll_wrkgrpid And status = :ls_status And woodcode = :ls_woodcode And pcode = :ls_pcode And plantype = :li_plantype; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划用料需求失败'+"~n"+sqlca.SQLErrText Goto ext End If Update u_orderrqmtrl_tree Set rqqty = rqqty - :ld_rqqty_tree * :ld_rate, truerqqty = truerqqty - :ld_rqqty_tree * :ld_rate, scllqty = scllqty - :ld_rqqty_tree * :ld_rate Where scid = :arg_scid And orderid = :ll_porderid And printid = :ll_printid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划运算数据失败'+"~n"+sqlca.SQLErrText Goto ext End If If arg_ifaddhis = 1 Then Update u_order_ml_stop_mtrl_his Set stopqty = stopqty + :ld_rqqty_tree * :ld_rate Where scid = :arg_scid And orderid = :arg_orderid And porderid = :ll_porderid And printid = :ll_printid; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then Insert Into u_order_ml_stop_mtrl_his (scid, orderid, porderid, printid, stopqty, ifwfjgup) Values (:arg_scid, :arg_orderid, :ll_porderid, :ll_printid, :ld_rqqty_tree * :ld_rate, 2); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致插入终止历史失败'+"~n"+sqlca.SQLErrText Goto ext End If End If Else rslt = 0 arg_msg = '因网络或其它原因导致更新终止历史失败'+"~n"+sqlca.SQLErrText Goto ext End If End If End If Next ll_j = ll_k - 1 End If Next End If Next Else //取消终止 ds_stop_his.Retrieve(arg_scid,arg_orderid) For ll_i = 1 To ds_stop_his.RowCount() ll_porderid = ds_stop_his.Object.porderid[ll_i] ll_printid = ds_stop_his.Object.printid[ll_i] ld_stopqty = ds_stop_his.Object.stopqty[ll_i] ll_mtrlid = ds_stop_his.Object.u_orderrqmtrl_tree_mtrlid[ll_i] ll_wrkgrpid = ds_stop_his.Object.u_orderrqmtrl_tree_wrkgrpid[ll_i] ll_produce_wrkgrpid = ds_stop_his.Object.u_orderrqmtrl_tree_produce_wrkgrpid[ll_i] li_plantype = ds_stop_his.Object.u_orderrqmtrl_tree_plantype[ll_i] ls_status = ds_stop_his.Object.u_orderrqmtrl_tree_status[ll_i] ls_woodcode = ds_stop_his.Object.u_orderrqmtrl_tree_woodcode[ll_i] ls_pcode = ds_stop_his.Object.u_orderrqmtrl_tree_pcode[ll_i] li_ifwfjgup = ds_stop_his.Object.u_order_ml_stop_mtrl_his_ifwfjgup[ll_i] Update u_orderrqmtrl Set truerqqty = truerqqty + :ld_stopqty, RqQty = RqQty + case :li_ifwfjgup when 2 then :ld_stopqty else 0 End , scllqty = scllqty + case :li_ifwfjgup when 2 then :ld_stopqty else 0 End Where scid = :arg_scid And orderid = :ll_porderid And mtrlid = :ll_mtrlid And wrkgrpid = :ll_wrkgrpid And status = :ls_status And woodcode = :ls_woodcode And pcode = :ls_pcode And plantype = :li_plantype; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划用料需求失败'+"~n"+sqlca.SQLErrText Goto ext End If Update u_orderrqmtrl_tree Set truerqqty = truerqqty + :ld_stopqty, rqqty = rqqty + case :li_ifwfjgup when 2 then :ld_stopqty else 0 End, scllqty = scllqty + case :li_ifwfjgup when 2 then :ld_stopqty else 0 End Where scid = :arg_scid And orderid = :ll_porderid And printid = :ll_printid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '因网络或其它原因导致更新生产计划运算数据失败'+"~n"+sqlca.SQLErrText Goto ext End If Delete From u_order_ml_stop_mtrl_his Where scid = :arg_scid And orderid = :arg_orderid And porderid = :ll_porderid And printid = :ll_printid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除终止记录操作失败"+"~n"+sqlca.SQLErrText Goto ext End If Next End If ext: Destroy ds_tree Destroy ds_stop_his If rslt = 0 Then Rollback; ElseIf rslt = 1 And arg_ifcommit Then Commit; End If Return rslt end function public function integer uof_mtrl_change (long arg_scid, long arg_orderid, decimal arg_rate, integer arg_type, integer arg_ifchange, integer arg_ifaddhis, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_i,cnt,ll_Ordertype,ll_porderid Long ll_scid,ll_orderid,ll_mtrlid,ll_wrkgrpid String ls_status,ls_woodcode,ls_pcode Decimal ld_sqty,ld_dqty,ld_orderqty String ls_mtrlcode uo_order_ml_mtrl_change uo_mtrl_ch uo_mtrl_ch = Create uo_order_ml_mtrl_change s_order_ml_mtrl_change arg_s_mtrl_ch s_order_ml_mtrl_change_mx arg_s_mx[],arg_s_empty_mx[] SELECT ordertype,porderid,orderqty INTO :ll_Ordertype,:ll_porderid,:ld_orderqty FROM u_order_ml WHERE u_order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单类型失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF //yyx2014-8-14注释,主计划为指令单 //IF ll_Ordertype <> 4 THEN // rslt = 1 // GOTO ext //END IF IF arg_ifchange = 1 THEN IF ll_Ordertype = 4 THEN SELECT count(*) INTO :cnt FROM u_requestbuymxmx WHERE u_requestbuymxmx.scid = :arg_scid And u_requestbuymxmx.orderid = :ll_porderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单相关主计划是否已开申购单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 2 GOTO ext END IF ELSE SELECT count(*) INTO :cnt FROM u_requestbuymxmx WHERE u_requestbuymxmx.scid = :arg_scid And u_requestbuymxmx.orderid = :arg_orderid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单相关主计划是否已开申购单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 2 GOTO ext END IF END IF END IF datastore ds_scll ds_scll = Create datastore ds_scll.DataObject = 'ds_order_stop_mtrl_change' ds_scll.SetTransObject(sqlca) ds_scll.Retrieve(arg_scid,arg_orderid,arg_type) FOR ll_i = 1 To ds_scll.RowCount() ll_scid = ds_scll.Object.u_orderrqmtrl_scll_scid[ll_i] ll_orderid = ds_scll.Object.u_orderrqmtrl_scll_orderid[ll_i] ll_mtrlid = ds_scll.Object.u_orderrqmtrl_scll_mtrlid[ll_i] ll_wrkgrpid = ds_scll.Object.u_orderrqmtrl_scll_wrkgrpid[ll_i] ls_status = ds_scll.Object.u_orderrqmtrl_scll_status[ll_i] ls_woodcode = ds_scll.Object.u_orderrqmtrl_scll_woodcode[ll_i] ls_pcode = ds_scll.Object.u_orderrqmtrl_scll_pcode[ll_i] IF arg_type = 0 THEN ld_sqty = ds_scll.Object.u_orderrqmtrl_scll_truerqqty[ll_i] IF arg_rate * ds_scll.Object.u_orderrqmtrl_scll_truerqqty[ll_i] > ds_scll.Object.dstrqty[ll_i] THEN ld_dqty = arg_rate * ds_scll.Object.u_orderrqmtrl_scll_truerqqty[ll_i] ELSE ld_dqty = ds_scll.Object.dstrqty[ll_i] END IF ELSE ld_sqty = ds_scll.Object.u_orderrqmtrl_scll_truerqqty[ll_i] ld_dqty = ds_scll.Object.u_orderrqmtrl_scll_truerqqty_ori[ll_i] END IF ls_mtrlcode = ds_scll.Object.u_mtrldef_mtrlcode[ll_i] arg_s_mtrl_ch.scid = ll_scid arg_s_mtrl_ch.billid = 0 arg_s_mtrl_ch.billdate = DateTime(Today(),Time(0)) arg_s_mtrl_ch.billemp = publ_operator arg_s_mtrl_ch.relcode = '' arg_s_mtrl_ch.dscrp = '指令单终止自动生成' //注意修改时这里时要修改uo_order_ml_mtrl_change.audit arg_s_mtrl_ch.orderid = ll_orderid arg_s_mtrl_ch.smtrlid = ll_mtrlid arg_s_mtrl_ch.wrkgrpid = ll_wrkgrpid arg_s_mtrl_ch.status = ls_status arg_s_mtrl_ch.woodcode = ls_woodcode arg_s_mtrl_ch.pcode = ls_pcode arg_s_mtrl_ch.dmtrlid = ll_mtrlid arg_s_mtrl_ch.sqty = ld_sqty arg_s_mtrl_ch.dqty = ld_dqty arg_s_mtrl_ch.billtype = 1 arg_s_mtrl_ch.ifchange = 1 //加明细 arg_s_mx = arg_s_empty_mx IF f_addmx_mtrl_change(ll_scid,ll_orderid,ll_mtrlid,ll_wrkgrpid,ls_status,ls_woodcode,ls_pcode,ld_sqty,ld_dqty,arg_s_mx,arg_msg) = 0 THEN rslt = 0 arg_msg = '需求明细第'+String(ll_i)+'行,物料:'+ls_mtrlcode+',生成生产指令单换料单失败,原因:计算单据明细失败.'+arg_msg GOTO ext END IF arg_s_mtrl_ch.arg_s_mx = arg_s_mx IF uo_mtrl_ch.Save(arg_s_mtrl_ch,publ_operator,arg_msg,False) = 0 THEN rslt = 0 arg_msg = '需求明细第'+String(ll_i)+'行,物料:'+ls_mtrlcode+',生成生产指令单换料单失败,'+arg_msg GOTO ext END IF IF uo_mtrl_ch.audit(uo_mtrl_ch.uo_billid,publ_operator,arg_msg,False) = 0 THEN rslt = 0 arg_msg = '需求明细第'+String(ll_i)+'行,物料:'+ls_mtrlcode+',审核相关生产指令单换料单失败,'+arg_msg GOTO ext END IF NEXT IF uof_stop_tree (arg_scid,arg_orderid,ld_orderqty * (1 - arg_rate),arg_type,arg_ifaddhis,arg_msg,False) = 0 THEN rslt = 0 arg_msg = '终止相关外协上下级需求失败,'+arg_msg GOTO ext END IF ext: Destroy uo_mtrl_ch Destroy ds_scll IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_c_stopjj (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1 datetime null_dt setnull(null_dt) rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF stopjj = 0 THEN rslt = 0 arg_msg = '没有执行过终止计件操作,不能取消终止' GOTO ext END IF UPDATE u_order_ml SET stopjj = 0, stopjjemp = '', stopjjdate = :null_dt, stopjjreason = '' WHERE orderid = :arg_orderid AND scid = :arg_scid and stopjj = 1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致取消终止计件操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; p_reset() ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT; END IF Return (rslt) end function public function integer uof_workprice_parm (long arg_mtrlid, string arg_wpcode, string arg_procode, decimal arg_proqty, string arg_parmstr, integer arg_kind, ref string arg_value_str, ref decimal arg_value_dec);//arg_kind 0-单价, 1 -数量 //如果外部调用,必须先执行 p_getinfo 获取指令单信息 Int rslt = 1 Decimal ld_splitrate String ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode,ls_mtrlmode Decimal arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9 Decimal ld_eqworkhour,ld_Workhour,ld_beforehour,ld_afterhour,ld_eq_empnum String ls_parmname Decimal ld_parmvalue,ld_hourpay_cmp,ld_workprice,ld_workqty_ori,ld_hourpay,ld_workprice_def Long ll_j String s_rtn String ls_ban_gydscrp,ls_ban_pfklmode string ls_mtrltype datastore ds_pricestr ds_pricestr = Create datastore ds_pricestr.DataObject = 'ds_pricestr_cmpl' ds_pricestr.SetTransObject(sqlca) datastore ds_parm ds_parm = Create datastore ds_parm.DataObject = 'ds_workprice_parm_def' ds_parm.SetTransObject(sqlca) ds_parm.Retrieve() Select splitrate, mtrlsectype, zxmtrlmode, usermtrlmode, mtrlmode, mtrltype Into :ld_splitrate, :ls_mtrlsectype, :ls_zxmtrlmode, :ls_usermtrlmode, :ls_mtrlmode, :ls_mtrltype From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 Goto ext End If Select gydscrp,pfklmode Into :ls_ban_gydscrp,:ls_ban_pfklmode From u_mtrldef_ban Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then ls_ban_gydscrp = '' ls_ban_pfklmode = '' End If Select workprice Into :ld_workprice_def From u_sc_workprocedure Where code = :arg_procode; If sqlca.SQLCode <> 0 Then rslt = 0 Goto ext End If Select u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.eq_empnum, u_sc_workprice.arg1, u_sc_workprice.arg2, u_sc_workprice.arg3, u_sc_workprice.arg4, u_sc_workprice.arg5, u_sc_workprice.arg6, u_sc_workprice.arg7, u_sc_workprice.arg8, u_sc_workprice.arg9, u_sc_workprice.workprice, u_sc_workprice.workqty, isnull(u_worktype.hourpay,0) as hourpay Into :ld_eqworkhour, :ld_Workhour, :ld_beforehour, :ld_afterhour, :ld_eq_empnum, :arg1, :arg2, :arg3, :arg4, :arg5, :arg6, :arg7, :arg8, :arg9, :ld_workprice, :ld_workqty_ori, :ld_hourpay From u_sc_workprice LEFT Outer JOIN u_worktype ON u_sc_workprice.worktype = u_worktype.worktype Where u_sc_workprice.mtrlid = :arg_mtrlid And u_sc_workprice.procode = :arg_procode And u_sc_workprice.wpcode = :arg_wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 Goto ext End If //替换自定义参数 For ll_j = 1 To ds_parm.RowCount() ls_parmname = ds_parm.Object.parmname[ll_j] ld_parmvalue = ds_parm.Object.parmvalue[ll_j] ld_parmvalue = Dec(String(ld_parmvalue,'#,##0.##########')) ls_parmname = '['+ls_parmname+']' Select Top 1 Replace( :arg_parmstr,:ls_parmname,:ld_parmvalue) Into :arg_parmstr From u_user; Next Select Top 1 Replace( :arg_parmstr,'不包含',' not like ') Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'不等于','<>') Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'包含',' like ') Into :arg_parmstr From u_user; orderqty = Dec(String(orderqty,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'指令单数量',:orderqty) Into :arg_parmstr From u_user; arg_proqty = Dec(String(arg_proqty,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'数量',:arg_proqty) Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'等于',' = ') Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'大于',' > ') Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'小于',' < ') Into :arg_parmstr From u_user; If arg_proqty > ld_splitrate And ld_splitrate <> 0 Then ld_hourpay_cmp = (ld_splitrate * (ld_Workhour + ld_eqworkhour * ld_eq_empnum) + ld_beforehour + ld_afterhour) / ld_splitrate * ld_hourpay Else ld_hourpay_cmp = (arg_proqty * (ld_Workhour + ld_eqworkhour * ld_eq_empnum) + ld_beforehour + ld_afterhour) / arg_proqty * ld_hourpay End If ld_hourpay_cmp = Dec(String(ld_hourpay_cmp,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'按时薪计算',:ld_hourpay_cmp) Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'物料类别',"'"+:ls_mtrltype+"'") Into :arg_parmstr From u_user; If Pos(arg_parmstr,'配置2') > 0 Then Select Top 1 Replace( :arg_parmstr,'配置2',"'"+:pcode+"'") Into :arg_parmstr From u_user; End If If Pos(arg_parmstr,'配置1') > 0 Then Select Top 1 Replace( :arg_parmstr,'配置1',"'"+:woodcode+"'") Into :arg_parmstr From u_user; End If If Pos(arg_parmstr,'配置') > 0 Then Select Top 1 Replace( :arg_parmstr,'配置',"'"+:status_mode+"'") Into :arg_parmstr From u_user; End If Select Top 1 Replace( :arg_parmstr,'物料开料规格',"'"+:ls_ban_pfklmode+"'") Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'指令单开料规格',"'"+:pfklmode+"'") Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'工艺说明',"'"+:gydscrp+"'") Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'物料工艺备注',"'"+:ls_ban_gydscrp+"'") Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'自定义1',"'"+:ls_mtrlsectype+"'") Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'自定义2',"'"+:ls_zxmtrlmode+"'") Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'自定义3',"'"+:ls_usermtrlmode+"'") Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'物料规格',"'"+:ls_mtrlmode+"'") Into :arg_parmstr From u_user; ld_workprice = Dec(String(ld_workprice,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'工价表工价',:ld_workprice) Into :arg_parmstr From u_user; ld_workprice_def = Dec(String(ld_workprice_def,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'工序工价',:ld_workprice_def) Into :arg_parmstr From u_user; Select Top 1 Replace( :arg_parmstr,'生产批号',"'"+:taskrelcode+"'") Into :arg_parmstr From u_user; arg1 = Dec(String(arg1,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'参数1',:arg1) Into :arg_parmstr From u_user; arg2 = Dec(String(arg2,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'参数2',:arg2) Into :arg_parmstr From u_user; arg3 = Dec(String(arg3,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'参数3',:arg3) Into :arg_parmstr From u_user; arg4 = Dec(String(arg4,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'参数4',:arg4) Into :arg_parmstr From u_user; arg5 = Dec(String(arg5,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'参数5',:arg5) Into :arg_parmstr From u_user; arg6 = Dec(String(arg6,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'参数6',:arg6) Into :arg_parmstr From u_user; arg7 = Dec(String(arg7,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'参数7',:arg7) Into :arg_parmstr From u_user; arg8 = Dec(String(arg8,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'参数8',:arg8) Into :arg_parmstr From u_user; arg9 = Dec(String(arg9,'#,##0.##########')) Select Top 1 Replace( :arg_parmstr,'参数9',:arg9) Into :arg_parmstr From u_user; arg_value_str = arg_parmstr ds_pricestr.DataObject = 'ds_pricestr_cmpl' ds_pricestr.SetTransObject(sqlca) ds_pricestr.Retrieve() ds_pricestr.Modify('cmpl.expression= "'+arg_parmstr+'"') s_rtn = String(ds_pricestr.Object.cmpl[1]) If arg_kind = 0 Then If s_rtn = 'false' Then arg_value_dec = 0 Else arg_value_dec = Round(Dec(s_rtn),5) End If ElseIf arg_kind = 1 Then If s_rtn = 'false' Then arg_value_dec = arg_proqty Else arg_value_dec = Round(Dec(s_rtn),5) * (arg_proqty / ld_workqty_ori) End If End If ext: Destroy ds_pricestr Destroy ds_parm Return rslt end function public function integer uof_tryfinish_packorder_buy (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt rslt = 1 rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext Decimal ld_qty Int li_ifpackpro,li_ifpack,li_pordermtrl_ordertype Long ll_porder_mtrlid DateTime null_dt SetNull(null_dt) Long ll_cnt_zl,ll_cnt_zl_finish Int ll_pack1_finish SELECT u_mtrldef.ifpackpro,u_mtrldef.ordertype,u_mtrldef.mtrlid INTO :li_ifpackpro,:li_pordermtrl_ordertype,:ll_porder_mtrlid FROM u_mtrldef,u_order_ml WHERE u_mtrldef.mtrlid = u_order_ml.mtrlid AND u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关主计划产品是否全包件产品失败,'+sqlca.SQLErrText GOTO ext END IF IF li_ifpackpro = 0 THEN //不是全包件产品,退出函数,否则检查主计划相关指令单是否全部完成 rslt = 1 GOTO ext END IF Long ll_cnt,cnt ll_cnt = 0 IF li_ifpackpro = 1 THEN SELECT count(*) INTO :ll_cnt FROM u_orderrqmtrl,u_mtrldef WHERE u_orderrqmtrl.mtrlid = u_mtrldef.mtrlid AND u_orderrqmtrl.orderid = :arg_orderid AND u_orderrqmtrl.scid = :arg_scid AND ( u_mtrldef.ifpack = 1 ) And (u_orderrqmtrl.plantype = 0 Or u_orderrqmtrl.plantype = 2) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询包件产品主生产计划相关生产需求失败'+sqlca.SQLErrText GOTO ext END IF //1.先检查主生产计划自制需求,需求数是否等于用料数,不等即说明有分配库存,跳过判断完成比例 //2.查询相应部件的完成情况,按需求量对比后得出主计划物料的完成数量 IF ll_cnt > 0 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_orderrqmtrl,u_mtrldef WHERE u_orderrqmtrl.mtrlid = u_mtrldef.mtrlid AND ( u_mtrldef.ifpack = 1 ) AND u_orderrqmtrl.orderid = :arg_orderid AND u_orderrqmtrl.scid = :arg_scid AND u_orderrqmtrl.inqty < u_orderrqmtrl.truerqqty And (u_orderrqmtrl.plantype = 0 Or u_orderrqmtrl.plantype = 2) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询包件产品主生产计划相关指令单是否全部完成失败'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN //相关自制需求全部完成,更新主生产计划已完成数及状态 UPDATE u_order_ml SET status = 5, accomplishdate = getdate(), accomplishemp = :publ_operator, acmpqty = orderqty WHERE ( u_order_ml.orderid = :arg_orderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致生产计划完成状态设置操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF //更新分离排产包件产品指令完成数 IF li_pordermtrl_ordertype = 1 THEN UPDATE u_order_ml SET status = 5, accomplishdate = getdate(), accomplishemp = :publ_operator, acmpqty = orderqty FROM u_order_ml WHERE (u_order_ml.scid = :arg_scid) AND (u_order_ml.porderid = :arg_orderid) And (u_order_ml.mtrlid = :ll_porder_mtrlid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新包件产品主生产计划对应【指令单分离】相关对应产品指令单状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF ELSE //如果没有全部完成,则取自制需求的最小完成率去计算主生产计划的完成数 Decimal ld_minrate SELECT min(inqty / truerqqty) INTO :ld_minrate FROM u_orderrqmtrl,u_mtrldef WHERE u_orderrqmtrl.mtrlid = u_mtrldef.mtrlid AND u_orderrqmtrl.orderid = :arg_orderid AND u_orderrqmtrl.scid = :arg_scid AND ( u_mtrldef.ifpack = 1 ) AND (u_orderrqmtrl.plantype = 0 OR u_orderrqmtrl.plantype = 2) And u_orderrqmtrl.truerqqty > 0 ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关包件产品主生产计划自制需求完成率失败'+"~n"+sqlca.SQLErrText GOTO ext END IF UPDATE u_order_ml SET status = 1, accomplishdate = :null_dt, accomplishemp = '', acmpqty = orderqty * :ld_minrate WHERE ( u_order_ml.orderid = :arg_orderid ) And (u_order_ml.scid = :arg_scid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新包件产品主生产计划状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF //更新分离排产包件产品指令完成数 IF li_pordermtrl_ordertype = 1 THEN UPDATE u_order_ml SET status = 1, accomplishdate = :null_dt, accomplishemp = '', acmpqty = orderqty * :ld_minrate WHERE (u_order_ml.scid = :arg_scid) AND (u_order_ml.porderid = :arg_orderid) And (u_order_ml.mtrlid = :ll_porder_mtrlid); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新包件产品主生产计划对应【指令单分离】相关对应产品指令单状态操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF END IF END IF END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_reccl_cf (long arg_scid, long arg_orderid, s_order_ml_rqmtrl_scll arg_s_mtrl_scll, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_i DELETE FROM u_OrderRqMtrl_scll WHERE orderid = :arg_orderid And scid = :arg_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '删除原领料明细失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF FOR ll_i = 1 To UpperBound(arg_s_mtrl_scll.mtrlid) INSERT INTO u_OrderRqMtrl_scll (scid, orderid, mtrlid, status, woodcode, pcode, truerqqty, wrkGrpid, ifchanged, truerqqty_ori, stopemp, stopdate, ifchmtrlbillstop, stopreason, sclldate) VALUES (:arg_scid, :arg_orderid, :arg_s_mtrl_scll.mtrlid[ll_i], :arg_s_mtrl_scll.status[ll_i], :arg_s_mtrl_scll.woodcode[ll_i], :arg_s_mtrl_scll.pcode[ll_i], :arg_s_mtrl_scll.truerqqty[ll_i], :arg_s_mtrl_scll.wrkGrpid[ll_i], :arg_s_mtrl_scll.ifchanged[ll_i], :arg_s_mtrl_scll.truerqqty_ori[ll_i], :arg_s_mtrl_scll.stopemp[ll_i], :arg_s_mtrl_scll.stopdate[ll_i], :arg_s_mtrl_scll.ifchmtrlbillstop[ll_i], :arg_s_mtrl_scll.stopreason[ll_i], :arg_s_mtrl_scll.sclldate[ll_i]); IF sqlca.SQLCode <> 0 THEN arg_msg = '建立生产计划物料领料明细失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF Return(rslt) end function public function integer uof_order_add_tree_barcode (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_row,ll_i,ll_j,ll_m,ll_n Long cnt DateTime server_dt Long ll_pid Long ll_fail = 0,ll_suc = 0 Long ll_cnt_lp = 0 String arg_msg_tmp = '',ls_ordercode Long ll_swkpid,ll_owkpid,ll_printid,ll_workgroupid Decimal ld_orderqty,ld_qty String ls_barcode String ls_relname,ls_partname Int li_if_inherit String ls_partname_inherit String ls_str Long ll_cnt Long ll_k Long ll_orderid_f[],ll_scid_f[],ll_f_cnt = 0,ll_l String ls_ordercode_f[] Long ll_workgroupid_arr[],ll_empty_id[] Decimal ld_minqty_arr[],ld_maxqty_arr[],ll_empty_qty[] Decimal ld_qty_total Long ll_workgroupid_update,ll_mxbt_wgid Decimal ld_baseqty datastore ds_tree ds_tree = Create datastore ds_tree.DataObject = 'ds_OrderMtrl_workgroup_tree' ds_tree.SetTransObject(sqlca) datastore ds_workgroupid ds_workgroupid = Create datastore ds_workgroupid.DataObject = 'ds_find_ordermtrl_workgroupid' ds_workgroupid.SetTransObject(sqlca) datastore ds_inherit ds_inherit = Create datastore ds_inherit.DataObject = 'ds_find_inherit_barcode' ds_inherit.SetTransObject(sqlca) Select Top 1 getdate() Into :server_dt From u_user ; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询操作失败,日期 " Goto ext End If Select count(*) Into :cnt From u_OrderMtrl_workgroup_tree Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产指令单是否已生成条码工组进度失败,'+sqlca.SQLErrText Goto ext End If If cnt = 0 Then If uof_order_add_wkp_tree(arg_scid,arg_orderid,arg_msg,True) = 0 Then rslt = 0 Goto ext End If End If Select count(*) Into :cnt From u_OrderMtrl_workgroup_tree Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产指令单是否已生成条码工组进度失败,'+sqlca.SQLErrText Goto ext End If If cnt = 0 Then rslt = 0 arg_msg = '生产指令单没有生成条码工组进度,不能执行生成条码操作' Goto ext End If Select count(*) Into :cnt From u_ordermtrl_workgroup_barcode Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产指令单是否已生成条码失败,'+sqlca.SQLErrText Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = '生产指令单已生成过条码,不能重复生成' Goto ext End If ds_tree.Retrieve(arg_scid,arg_orderid) //Open(w_sys_wait_2jdt) //初始化进度条 //w_sys_wait_2jdt.Show() //w_sys_wait_2jdt.wf_accepttol(ds_tree.RowCount()) For ll_i = 1 To ds_tree.RowCount() // w_sys_wait_2jdt.wf_inc(ll_i) If ds_tree.Object.if_barcode[ll_i] <> 1 Then Continue ll_swkpid = ds_tree.Object.swkpid[ll_i] ll_owkpid = ds_tree.Object.owkpid[ll_i] ld_orderqty = ds_tree.Object.orderqty[ll_i] ll_printid = ds_tree.Object.printid[ll_i] ls_relname = ds_tree.Object.relname[ll_i] ls_partname = ds_tree.Object.partname[ll_i] li_if_inherit = ds_tree.Object.if_inherit[ll_i] ls_partname_inherit = ds_tree.Object.partname_inherit[ll_i] ll_workgroupid = ds_tree.Object.workgroupid[ll_i] ld_baseqty = ds_tree.Object.baseqty[ll_i] If ld_baseqty = 0 Then ld_baseqty = 1 If Trim(ls_relname) = Trim(ls_partname) Then ls_str = Trim(ls_partname) Else ls_str = Trim(ls_relname) +'-'+ Trim(ls_partname) End If // w_sys_wait_2jdt.st_msg.Text = "正在生成条码:"+ls_str //进度信息 // w_sys_wait_2jdt.wf_accepttol2(Ceiling(ld_orderqty)) ds_workgroupid.Retrieve(arg_scid,arg_orderid,ll_swkpid,ll_owkpid) ll_workgroupid_arr = ll_empty_id ld_minqty_arr = ll_empty_qty ld_maxqty_arr = ll_empty_qty ll_mxbt_wgid = 0 For ll_m = 1 To ds_workgroupid.RowCount() ll_mxbt_wgid++ ll_workgroupid_arr[ll_mxbt_wgid] = ds_workgroupid.Object.workgroupid[ll_m] If ll_m = 1 Then ld_minqty_arr[ll_mxbt_wgid] = 1 ld_maxqty_arr[ll_mxbt_wgid] = ds_workgroupid.Object.orderqty[ll_m] Else ld_minqty_arr[ll_mxbt_wgid] = ds_workgroupid.Object.orderqty[ll_m - 1] + 1 ld_maxqty_arr[ll_mxbt_wgid] = ds_workgroupid.Object.orderqty[ll_m] + ds_workgroupid.Object.orderqty[ll_m - 1] End If Next ld_qty_total = 0 If li_if_inherit = 1 Then If ls_relname <> '成品' Then ds_inherit.Retrieve(arg_scid,arg_orderid,ls_relname,ls_partname_inherit) Else ds_inherit.Retrieve(arg_scid,arg_orderid,ls_partname_inherit,ls_partname_inherit) End If If ds_inherit.RowCount() <> Ceiling(Round(ld_orderqty/ld_baseqty,10)) Then // Close(w_sys_wait_2jdt) Rollback; Destroy ds_tree Destroy ds_workgroupid Destroy ds_inherit ll_f_cnt++ ll_scid_f[ll_f_cnt] = arg_scid ll_orderid_f[ll_f_cnt] = arg_orderid ls_ordercode_f[ll_f_cnt] = ls_ordercode rslt = 0 arg_msg = '生成条码失败,继承条码数量与被继承条码数量不一致 '+ls_partname_inherit + '~r~n' Goto _del_tmp End If End If For ll_j = 1 To Ceiling(Round(ld_orderqty/ld_baseqty,10)) If ll_j = Ceiling(Round(ld_orderqty/ld_baseqty,10)) Then ld_qty = ld_orderqty - (ll_j - 1)* ld_baseqty Else ld_qty = ld_baseqty End If ld_qty_total = ld_qty_total + ld_qty ll_workgroupid_update = 0 If ll_mxbt_wgid = 0 Then ll_workgroupid_update = ll_workgroupid Else For ll_n = 1 To ll_mxbt_wgid If ld_qty_total >= ld_minqty_arr[ll_n] And ld_qty_total <= ld_maxqty_arr[ll_n] Then ll_workgroupid_update = ll_workgroupid_arr[ll_n] Exit End If Next End If If ll_workgroupid_update = 0 Then ll_workgroupid_update = ll_workgroupid End If If li_if_inherit = 1 Then ls_barcode = ds_inherit.Object.barcode[ll_j] Else ls_barcode = getid(0,"BARCODE1",Date(server_dt),True,sqlca) End If ll_pid++ Insert Into u_ordermtrl_workgroup_barcode (scid, orderid, printid, pid, barcode, qty, swkpid, owkpid, relname, partname, if_inherit, partname_inherit, workgroupid) Values (:arg_scid, :arg_orderid, :ll_printid, :ll_pid, :ls_barcode, :ld_qty, :ll_swkpid, :ll_owkpid, :ls_relname, :ls_partname, :li_if_inherit, :ls_partname_inherit, :ll_workgroupid_update); If sqlca.SQLCode <> 0 Then // Close(w_sys_wait_2jdt) Rollback; Destroy ds_tree ll_f_cnt++ ll_scid_f[ll_f_cnt] = arg_scid ll_orderid_f[ll_f_cnt] = arg_orderid ls_ordercode_f[ll_f_cnt] = ls_ordercode rslt = 0 arg_msg = '生成条码失败_2,'+sqlca.SQLErrText + '~r~n' Goto _del_tmp End If If arg_ifcommit Then Commit; End If // w_sys_wait_2jdt.wf_inc2(ll_j) Next // w_sys_wait_2jdt.wf_inc(ll_i) Next //Close(w_sys_wait_2jdt) _del_tmp: For ll_l = 1 To ll_f_cnt Delete From u_ordermtrl_workgroup_barcode Where scid = :ll_scid_f[ll_l] And orderid = :ll_orderid_f[ll_l]; If sqlca.SQLCode <> 0 Then Rollback; rslt = 0 arg_msg = arg_msg + ls_ordercode_f[ll_l]+ ' ' +'删除临时生成条码失败,'+sqlca.SQLErrText Continue End If If arg_ifcommit Then Commit; End If Next ext: Return rslt end function public function integer acceptmx (string arg_relcode, datetime arg_orderdate, long arg_taskid, string arg_taskcode, long arg_cusid, long arg_mtrlid, string arg_status_mode, string arg_woodcode, string arg_pcode, decimal arg_orderqty, string arg_dscrp, string arg_assign_emp, datetime arg_requiredate, integer arg_ordertype, string arg_taskrelcode, string arg_pfcode, long arg_taskmxid, long arg_porderid, long arg_utid, long arg_wrkgrpid, string arg_gydscrp, string arg_pfklmode, long arg_pforderid, string arg_pfordercode, decimal arg_pfqty, string arg_secdscrp, string arg_thdscrp, long arg_taskscid, datetime arg_perfinishdate, long arg_storageid, long arg_tmpid, integer arg_level, string arg_typename, string arg_outtypestr, long arg_pzlorderid, integer arg_iffg, integer arg_ifauto, integer arg_if_inherit, decimal arg_addqty, string arg_wpcode, integer arg_pctype, ref string arg_msg);Integer rslt = 1,cnt = 0 String ls_mtrlcode,ls_pordercode,ls_mtrlname Long ls_i Long ll_statustype,li_mtrlorigin_mtrl Int li_bantype_mtrl Int li_ifpban_save,li_ifupban_save Decimal ld_capacity,ld_capacity_zj s_mtrlcfg_expr s_pz[] String ls_status_zj Long ll_i String ls_cusname,ls_p_taskrelcode,ls_saletaskcode,ls_saletaskrelcode Long ll_p_cusid,ll_p_taskid,ll_p_taskmxid,ll_p_ordertype Int li_ordertype,li_ifpackpro,li_ifpack,li_ifselforder,li_iffp Int li_p_ordertype_mtrldef,li_p_ifpackpro,li_p_ifpack Int li_ifmrppackpf //检查下级有无非包件【是否包件清单分离】 Long ll_pf_cnt_pack0,ll_pf_cnt_packin Int li_inwareflag,li_outscllflag Decimal ld_SaleQty,ld_AssignQty,ld_ordermx_qty Long ll_p_mtrlid,ll_upmtrlid String ls_p_status,ls_p_woodcode,ls_p_pcode,ls_p_pfcode Long ll_typeid Int li_ifbj Long ll_lp,ll_printid,ll_lp_tmp Int li_fpkind Boolean lb_cd = True Int li_ifwforder Decimal ld_notmrpqty = 0 Long ll_p_taskscid datastore ds_find_pmtrlid ds_find_pmtrlid = Create datastore ds_find_pmtrlid.DataObject = 'ds_orderrqmtrl_tree_find_pmtrlid' ds_find_pmtrlid.SetTransObject(sqlca) IF uo_option_def_bom = -1000 THEN rslt = 0 arg_msg = '选项:[013]生产计划审核时需要检查是否已定义物料清单,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_use_zl = -1000 THEN rslt = 0 arg_msg = '选项:[073]系统使用指令单排产,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_mtrlware = -1000 THEN rslt = 0 arg_msg = '选项:[143]生产计划审核增加0库存,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_inware_mtrlcuscode = -1000 THEN rslt = 0 arg_msg = '选项:[138]生产进仓单产品批号策略按指令单号,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_capacity = -1000 THEN rslt = 0 arg_msg = '选项:[304]指令单保存按车间产能总量限制,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_order_ml_zl_checkdate = -1000 THEN rslt = 0 arg_msg = '选项:[313]指令单保存不检查交货日期,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_bujian_notmrpqty = -1000 THEN rslt = 0 arg_msg = '选项:[388]补件类型主计划下属的半成品不参与其他计划的可用数,读取初始默认值失败,操作取消!' GOTO ext END IF IF IsNull(arg_relcode) THEN arg_relcode = '' IF IsNull(arg_taskid) THEN arg_taskid = 0 IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0 IF IsNull(arg_cusid) THEN arg_cusid = 0 IF IsNull(arg_status_mode) THEN arg_status_mode = '' IF IsNull(arg_woodcode) THEN arg_woodcode = '' IF IsNull(arg_pcode) THEN arg_pcode = '' IF IsNull(arg_orderqty) THEN arg_orderqty = 0 IF IsNull(arg_Assign_emp) THEN arg_Assign_emp = '' IF IsNull(arg_taskcode) THEN arg_taskcode = '' IF IsNull(arg_taskrelcode) THEN arg_taskrelcode = '' IF IsNull(arg_pfcode) THEN arg_pfcode = '' IF IsNull(arg_ordertype) THEN arg_ordertype = 0 IF IsNull(arg_taskmxid) THEN arg_taskmxid = 0 IF IsNull(arg_porderid) THEN arg_porderid = 0 IF IsNull(arg_utid) THEN arg_utid = 0 IF IsNull(arg_wrkgrpid) THEN arg_wrkgrpid = 0 IF IsNull(arg_taskscid) THEN arg_taskscid = 0 IF IsNull(arg_outtypestr) THEN arg_outtypestr = '' IF IsNull(arg_gydscrp) THEN arg_gydscrp = '' IF IsNull(arg_pfklmode) THEN arg_pfklmode = '' IF IsNull(arg_pforderid) THEN arg_pforderid = 0 IF IsNull(arg_pfordercode) THEN arg_pfordercode = '' IF IsNull(arg_pfqty) THEN arg_pfqty = 0 IF IsNull(arg_secdscrp) THEN arg_secdscrp = '' IF IsNull(arg_thdscrp) THEN arg_thdscrp = '' IF IsNull(arg_dscrp) THEN arg_dscrp = '' IF Len(arg_dscrp) > 0 THEN arg_dscrp = ' ' + arg_dscrp IF IsNull(arg_storageid) THEN arg_storageid = 0 IF IsNull(arg_tmpid) THEN arg_tmpid = 0 IF IsNull(arg_level) THEN arg_level = 2 IF IsNull(arg_typename) THEN arg_typename = '' IF IsNull(arg_iffg) THEN arg_iffg = 0 IF IsNull(arg_ifauto) THEN arg_ifauto = 0 IF IsNull(arg_addqty) THEN arg_addqty = 0 IF IsNull(arg_wpcode) THEN arg_wpcode = '' IF arg_orderqty <= 0 THEN rslt = 1 GOTO ext END IF IF arg_Assign_emp = '' THEN arg_msg = '请输入计划负责人' rslt = 0 GOTO ext END IF IF IsNull(arg_orderdate) Or Year(Date(arg_orderdate)) < 2001 THEN rslt = 0 arg_msg = "请输入合理计划日期" GOTO ext END IF IF uo_option_order_ml_zl_checkdate = 1 THEN lb_cd = False END IF IF lb_cd THEN IF Date(arg_orderdate) > Date(arg_requiredate) THEN rslt = 0 arg_msg = "计划日期大于要求完成日期" GOTO ext END IF END IF SELECT mtrlcode, mtrlname, statusflag, capacity * capaparm, ifpack, ifpackpro, ordertype, ifselforder, iffp, mtrlorigin, bantype INTO :ls_mtrlcode, :ls_mtrlname, :ll_statustype, :ld_capacity, :li_ifpack, :li_ifpackpro, :li_ordertype, :li_ifselforder, :li_iffp, :li_mtrlorigin_mtrl, :li_bantype_mtrl FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料编号失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF arg_ordertype <> 4 THEN //主生产计划 IF li_ifpackpro = 2 Or li_ifpackpro = 4 THEN IF uo_option_order_mtrlware = 0 THEN rslt = 0 arg_msg = '产品是个性包件产品或组合配置整排散进包件产品,选项:[143]生产计划审核增加0库存必须开启,请检查' GOTO ext END IF IF uo_option_inware_mtrlcuscode = 0 THEN rslt = 0 arg_msg = '产品是个性包件产品或组合配置整排散进包件产品,选项:[138]生产进仓单产品批号策略按指令单号必须开启,请检查' GOTO ext END IF IF arg_storageid = 0 THEN rslt = 0 arg_msg = '产品是个性包件产品或组合配置整排散进包件产品,仓库未选择,请检查' GOTO ext END IF END IF END IF IF uo_option_def_bom = 1 And ll_statustype <> 2 THEN IF arg_pfcode = '' THEN arg_msg = '物料:'+ls_mtrlcode+'请选择物料清单' rslt = 0 GOTO ext END IF SELECT count(*) INTO :cnt FROM u_mtrl_pf WHERE mtrlid = :arg_mtrlid And pfcode = :arg_pfcode; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+ls_mtrlcode+'对应物料清单失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt <> 1 THEN arg_msg = '物料:'+ls_mtrlcode+'不存在或重复物料清单:'+arg_pfcode rslt = 0 GOTO ext END IF END IF IF ll_statustype = 2 THEN ld_capacity = 0 f_checkpz(arg_status_mode,s_pz[]) FOR ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname SELECT capacity * capaparm INTO :ld_capacity_zj FROM u_mtrl_configure WHERE mtrlid = :arg_mtrlid And Name = :ls_status_zj; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询子件 "+ls_status_zj+" 折算套数参数操作失败" GOTO ext END IF ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty) NEXT END IF IF arg_ordertype = 0 And uo_option_order_bh_use_yc = 1 THEN SELECT taskcode,relcode INTO :ls_saletaskcode,:ls_saletaskrelcode FROM u_saletask WHERE scid = :arg_taskscid And taskid = :arg_taskid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+ls_mtrlcode+'预测订单编号失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_saletaskmx WHERE scid = :arg_taskscid AND taskid = :arg_taskid And printid = :arg_taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+ls_mtrlcode+'预测订单明细资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '不存在订单明细:'+ls_mtrlcode rslt = 0 GOTO ext END IF ELSEIF arg_ordertype = 1 THEN SELECT name INTO :ls_cusname FROM u_cust Where cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询客户资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF SELECT taskcode,relcode,typeid INTO :ls_saletaskcode,:ls_saletaskrelcode,:ll_typeid FROM u_saletask WHERE scid = :arg_taskscid And taskid = :arg_taskid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+ls_mtrlcode+'订单编号失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_typeid > 0 THEN SELECT ifbj INTO :li_ifbj FROM u_saletype Where typeid = :ll_typeid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+ls_mtrlcode+'相关订单的订单分类是否补件信息失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_ifbj = 1 THEN arg_wrkgrpid = ins_produce_wrkgrpid_bj IF uo_option_bujian_notmrpqty = 1 THEN ld_notmrpqty = arg_orderqty ELSE ld_notmrpqty = 0 END IF END IF END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_saletaskmx WHERE scid = :arg_taskscid AND taskid = :arg_taskid And printid = :arg_taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+ls_mtrlcode+'订单明细资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '不存在订单明细:'+ls_mtrlcode rslt = 0 GOTO ext END IF ll_p_cusid = arg_cusid ELSEIF arg_ordertype = 4 THEN IF arg_porderid = 0 THEN arg_msg = '指令单没有上级计划' rslt = 0 GOTO ext END IF SELECT u_Order_ml.ordercode, u_Order_ml.taskrelcode, u_Order_ml.cusname, u_Order_ml.cusid, u_Order_ml.saletaskcode, u_Order_ml.saletaskrelcode, u_Order_ml.taskid, u_Order_ml.taskscid, u_Order_ml.taskmxid, u_Order_ml.ordertype, u_mtrldef.ordertype, u_mtrldef.ifpackpro, u_mtrldef.ifpack, u_Order_ml.mtrlid, u_Order_ml.status_mode, u_Order_ml.woodcode, u_Order_ml.pcode, u_Order_ml.pfcode INTO :ls_pordercode, :ls_p_taskrelcode, :ls_cusname, :ll_p_cusid, :ls_saletaskcode, :ls_saletaskrelcode, :ll_p_taskid, :ll_p_taskscid, :ll_p_taskmxid, :ll_p_ordertype, :li_p_ordertype_mtrldef, :li_p_ifpackpro, :li_p_ifpack, :ll_p_mtrlid, :ls_p_status, :ls_p_woodcode, :ls_p_pcode, :ls_p_pfcode FROM u_Order_ml INNER JOIN u_mtrldef ON u_Order_ml.mtrlid = u_mtrldef.mtrlid WHERE u_Order_ml.orderid = :arg_porderid And u_Order_ml.scid = :scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询上级计划编号失败,请检查,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF SELECT u_saletype.ifbj INTO :li_ifbj FROM u_SaleTask INNER JOIN u_saletype ON u_SaleTask.typeid = u_saletype.typeid WHERE u_SaleTask.scid = :ll_p_taskscid And u_saletask.taskid = :ll_p_taskid; IF sqlca.SQLCode <> 0 THEN li_ifbj = 0 IF li_ifbj = 1 And uo_option_bujian_notmrpqty = 1 THEN ld_notmrpqty = arg_orderqty ELSE ld_notmrpqty = 0 END IF IF arg_pzlorderid = 0 THEN IF arg_taskmxid = 0 THEN arg_msg = '错误的计划:'+ls_pordercode+',自制需求明细' rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_OrderRqMtrl WHERE scid = :scid AND orderid = :arg_porderid And mxpkid = :arg_taskmxid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询计划:'+ls_pordercode+',自制需求明细失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF SELECT top 1 lp,printid INTO :ll_lp,:ll_printid FROM u_orderrqmtrl_tree WHERE u_orderrqmtrl_tree.scid = :scid AND u_orderrqmtrl_tree.orderid = :arg_porderid AND u_orderrqmtrl_tree.mtrlid = :arg_mtrlid Order By u_orderrqmtrl_tree.printid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询指令单所属上级自制物料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ll_upmtrlid = 0 ds_find_pmtrlid.Retrieve(scid,arg_porderid,ll_lp,ll_printid) FOR ll_i = ds_find_pmtrlid.RowCount() To 1 Step -1 IF ll_i <> ds_find_pmtrlid.RowCount() THEN IF ds_find_pmtrlid.Object.u_orderrqmtrl_tree_lp[ll_i] >= ll_lp_tmp THEN CONTINUE END IF IF ds_find_pmtrlid.Object.u_mtrldef_mtrlorigin[ll_i] = 0 THEN ll_upmtrlid = ds_find_pmtrlid.Object.u_orderrqmtrl_tree_mtrlid[ll_i] EXIT ELSE ll_lp_tmp = ds_find_pmtrlid.Object.u_orderrqmtrl_tree_lp[ll_i] END IF NEXT END IF IF arg_ordertype <> 4 And uo_option_order_ml_use_zl = 1 Or & arg_ordertype = 4 THEN IF arg_wrkgrpid = 0 THEN arg_msg = '计划或指令单没有生产车间' rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_sc_wkp Where wrkGrpid = :arg_wrkgrpid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询车间资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF IF arg_ordertype <> 4 THEN //主生产计划 IF li_ifbj = 1 And li_mtrlorigin_mtrl = 2 THEN li_inwareflag = 1 li_outscllflag = 1 ELSE IF li_ifpackpro = 1 Or li_ifpackpro = 2 Or li_ifpackpro = 5 THEN //yyx20120820加强检查进仓包件指令 // SELECT count(*) // INTO :cnt // FROM u_PrdPF INNER JOIN // u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid // WHERE u_PrdPF.mtrlid = :arg_mtrlid // AND u_PrdPF.pfcode = :arg_pfcode // and u_mtrldef.ifpack = 0; // IF cnt > 0 THEN // li_ifmrppackpf = 1 // ELSE // li_ifmrppackpf = 0 // END IF SELECT count(*), sum(case when u_mtrldef.ifpack = 0 then 1 else 0 END), sum(case when u_mtrldef.ifpack > 0 AND (u_mtrldef.mtrlorigin = 2 OR u_mtrldef.mtrlorigin = 3) then 1 when u_mtrldef.ifpack > 0 AND u_mtrldef.mtrlorigin = 0 AND u_mtrldef.ifselforder = 3 then 1 else 0 END) INTO :cnt,:ll_pf_cnt_pack0,:ll_pf_cnt_packin FROM u_PrdPF INNER JOIN u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid WHERE u_PrdPF.mtrlid = :arg_mtrlid And u_PrdPF.pfcode = :arg_pfcode; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料清单是否存在非包件失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_pf_cnt_pack0 > 0 THEN li_ifmrppackpf = 1 ELSE IF cnt = ll_pf_cnt_packin THEN li_ifmrppackpf = 1 ELSE li_ifmrppackpf = 0 END IF END IF // ELSE li_ifmrppackpf = 0 END IF IF li_ifpackpro = 0 And li_ordertype = 0 THEN li_inwareflag = 1 li_outscllflag = 1 ELSEIF li_ifpackpro = 0 And li_ordertype = 1 THEN li_inwareflag = 0 li_outscllflag = 0 ElseIf (li_ifpackpro = 1 Or li_ifpackpro = 5) And li_ordertype = 0 And li_ifmrppackpf = 0 THEN li_inwareflag = 0 li_outscllflag = 0 ElseIf (li_ifpackpro = 1 Or li_ifpackpro = 5) And li_ordertype = 0 And li_ifmrppackpf = 1 THEN li_inwareflag = 0 li_outscllflag = 1 ElseIf (li_ifpackpro = 1 Or li_ifpackpro = 5) And li_ordertype = 1 And li_ifmrppackpf = 0 THEN li_inwareflag = 0 li_outscllflag = 0 ElseIf (li_ifpackpro = 1 Or li_ifpackpro = 5) And li_ordertype = 1 And li_ifmrppackpf = 1 THEN li_inwareflag = 0 li_outscllflag = 0 ELSEIF li_ifpackpro = 2 And li_ordertype = 1 THEN li_inwareflag = 0 li_outscllflag = 0 ELSEIF li_ifpackpro = 3 And li_ordertype = 0 THEN li_inwareflag = 0 li_outscllflag = 0 ELSEIF li_ifpackpro = 4 And li_ordertype = 0 THEN li_inwareflag = 0 li_outscllflag = 1 ELSEIF li_ifpackpro = 4 And li_ordertype = 1 THEN li_inwareflag = 0 li_outscllflag = 0 END IF END IF ELSE // //合并在上面代码yyx20120815 // SELECT u_mtrldef.ordertype, // u_mtrldef.ifpackpro, // u_Order_ml.mtrlid, // u_Order_ml.status_mode, // u_Order_ml.woodcode, // u_Order_ml.pcode // INTO :li_p_ordertype_mtrldef, // :li_p_ifpackpro, // :ll_p_mtrlid, // :ls_p_status, // :ls_p_woodcode, // :ls_p_pcode // FROM u_Order_ml INNER JOIN // u_mtrldef ON u_Order_ml.mtrlid = u_mtrldef.mtrlid // WHERE u_Order_ml.orderid = :arg_porderid // And u_order_ml.scid = :scid; // IF sqlca.SQLCode <> 0 THEN // arg_msg = '查询上级主计划产品相关信息失败,'+sqlca.SQLErrText // rslt = 0 // GOTO ext // END IF IF li_p_ifpackpro = 1 Or li_p_ifpackpro = 2 Or li_p_ifpackpro = 5 THEN //yyx20120820加强检查进仓包件指令 // SELECT count(*) // INTO :cnt // FROM u_PrdPF INNER JOIN // u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid // WHERE u_PrdPF.mtrlid = :ll_p_mtrlid // AND u_PrdPF.pfcode = :arg_pfcode // And u_mtrldef.ifpack = 0 ; // IF sqlca.SQLCode <> 0 THEN // arg_msg = '查询物料清单是否存在非包件失败,'+sqlca.SQLErrText // rslt = 0 // GOTO ext // END IF // // IF cnt > 0 THEN // li_ifmrppackpf = 1 // ELSE // li_ifmrppackpf = 0 // END IF SELECT count(*), sum(case when u_mtrldef.ifpack = 0 then 1 else 0 END), sum(case when u_mtrldef.ifpack > 0 AND (u_mtrldef.mtrlorigin = 2 OR u_mtrldef.mtrlorigin = 3) then 1 when u_mtrldef.ifpack > 0 AND u_mtrldef.mtrlorigin = 0 AND u_mtrldef.ifselforder = 3 then 1 else 0 END) INTO :cnt,:ll_pf_cnt_pack0,:ll_pf_cnt_packin FROM u_PrdPF INNER JOIN u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid WHERE u_PrdPF.mtrlid = :ll_p_mtrlid And u_PrdPF.pfcode = :arg_pfcode; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料清单是否存在非包件失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_pf_cnt_pack0 > 0 THEN li_ifmrppackpf = 1 ELSE IF cnt = ll_pf_cnt_packin THEN li_ifmrppackpf = 1 ELSE li_ifmrppackpf = 0 END IF END IF ELSE li_ifmrppackpf = 0 END IF IF arg_pzlorderid > 0 THEN li_inwareflag = 1 li_outscllflag = 0 ELSE IF li_p_ifpackpro = 0 THEN li_inwareflag = 1 li_outscllflag = 1 ElseIf (li_p_ifpackpro = 1 Or li_p_ifpackpro = 5) And li_p_ordertype_mtrldef = 0 THEN IF li_ifmrppackpf = 0 THEN li_inwareflag = 1 li_outscllflag = 1 ELSE IF li_ifpack = 1 THEN li_inwareflag = 1 li_outscllflag = 0 ELSE li_inwareflag = 1 li_outscllflag = 1 END IF END IF ElseIf (li_p_ifpackpro = 1 Or li_p_ifpackpro = 5) And li_p_ordertype_mtrldef = 1 THEN IF li_ifpackpro = 1 THEN IF li_ifmrppackpf = 0 THEN li_inwareflag = 0 li_outscllflag = 0 ELSE li_inwareflag = 0 li_outscllflag = 1 END IF ELSEIF li_ifpack = 1 THEN IF li_ifmrppackpf = 0 THEN li_inwareflag = 1 li_outscllflag = 1 ELSE li_inwareflag = 1 li_outscllflag = 0 END IF ELSE li_inwareflag = 1 li_outscllflag = 1 END IF ELSEIF li_p_ifpackpro = 2 And li_p_ordertype_mtrldef = 1 THEN IF li_ifpackpro = 2 THEN li_inwareflag = 0 li_outscllflag = 1 ELSE IF li_ifpack = 2 THEN li_inwareflag = 1 li_outscllflag = 0 ELSEIF li_ifpack = 1 THEN IF li_ifselforder = 3 THEN li_inwareflag = 1 li_outscllflag = 0 ELSE li_inwareflag = 1 li_outscllflag = 1 END IF ELSE li_inwareflag = 1 li_outscllflag = 1 END IF END IF ELSEIF li_p_ifpackpro = 3 And li_p_ordertype_mtrldef = 0 THEN li_inwareflag = 1 li_outscllflag = 1 ELSEIF li_p_ifpackpro = 4 And li_p_ordertype_mtrldef = 0 THEN IF ll_p_mtrlid = arg_mtrlid THEN li_inwareflag = 1 li_outscllflag = 0 ELSE li_inwareflag = 1 li_outscllflag = 1 END IF ELSEIF li_p_ifpackpro = 4 And li_p_ordertype_mtrldef = 1 THEN IF ll_p_mtrlid = arg_mtrlid And ls_p_status = arg_status_mode And ls_p_woodcode = arg_woodcode And ls_p_pcode = arg_pcode THEN li_inwareflag = 0 li_outscllflag = 1 ELSE IF ll_p_mtrlid = arg_mtrlid THEN li_inwareflag = 1 li_outscllflag = 0 ELSE li_inwareflag = 1 li_outscllflag = 1 END IF END IF END IF END IF //检查指令是否分离排产计划 IF li_inwareflag = 1 THEN IF ll_p_ordertype = 1 THEN CHOOSE CASE li_p_ifpackpro CASE 0,3,4 IF li_p_ordertype_mtrldef = 1 And ll_p_mtrlid = arg_mtrlid THEN li_fpkind = 1 END IF CASE 1,2 IF li_ifpack > 0 THEN li_fpkind = 1 END IF END CHOOSE ELSE IF li_p_ordertype_mtrldef = 1 And ll_p_mtrlid = arg_mtrlid THEN li_fpkind = -1 //不分配 END IF END IF END IF END IF IF Not (li_mtrlorigin_mtrl = 3 Or ordertype = 3 Or li_mtrlorigin_mtrl = 2 ) THEN IF li_outscllflag = 1 THEN IF arg_wpcode = '' THEN arg_msg = '请选择工价表号,产品编码:'+ls_mtrlcode+',产品名称:'+ls_mtrlname+',可能没有指定默认工价表' rslt = 0 GOTO ext END IF END IF END IF IF uo_option_order_capacity = 1 And orderid = 0 THEN //And li_outscllflag = 1 Then DateTime server_dt,ldt_sdate,ldt_edate Decimal ld_capatotal,ld_capatotal_ot,ld_capacity_sum String ls_wrkgrpname SELECT Top 1 getdate() Into :server_dt From u_user; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF ldt_sdate = DateTime(Date(server_dt),Time(0)) ldt_edate = DateTime(Date(server_dt),Time('23:59:59')) SELECT capatotal,capatotal_ot,wrkgrpname INTO :ld_capatotal,:ld_capatotal_ot,:ls_wrkgrpname FROM u_sc_wkp Where wrkGrpid = :arg_wrkgrpid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询车间设定产能总量失败,车间ID:'+String(arg_wrkgrpid) GOTO ext END IF SELECT sum(capacity) INTO :ld_capacity_sum FROM u_order_ml WHERE orderdate >= :ldt_sdate AND orderdate <= :ldt_edate And wrkGrpid = :arg_wrkgrpid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询车间当天已排产能失败,车间:'+ls_wrkgrpname GOTO ext END IF IF IsNull(ld_capacity_sum) THEN ld_capacity_sum = 0 IF ld_capacity_sum + ld_capacity * arg_orderqty > ld_capatotal + ld_capatotal_ot THEN rslt = 0 arg_msg = '车间:'+ls_wrkgrpname+'当天已排产能:'+String(ld_capacity_sum,'#,##0.##########')+',车间设定产能总量:'+String(ld_capatotal + ld_capatotal_ot,'#,##0.##########')+',不能再排产能:'+String(ld_capacity * arg_orderqty,'#,##0.##########') GOTO ext END IF END IF IF arg_ordertype = 3 THEN li_inwareflag = 0 it_mxbt++ s_order_mx[it_mxbt].relcode = arg_relcode s_order_mx[it_mxbt].orderdate = arg_orderdate s_order_mx[it_mxbt].taskid = arg_taskid s_order_mx[it_mxbt].mtrlid = arg_mtrlid s_order_mx[it_mxbt].status_mode = arg_status_mode s_order_mx[it_mxbt].woodcode = arg_woodcode s_order_mx[it_mxbt].pcode = arg_pcode s_order_mx[it_mxbt].orderqty = arg_orderqty s_order_mx[it_mxbt].dscrp = arg_dscrp s_order_mx[it_mxbt].assign_emp = arg_Assign_emp s_order_mx[it_mxbt].requiredate = arg_requiredate s_order_mx[it_mxbt].ordertype = arg_ordertype IF arg_ordertype = 4 THEN s_order_mx[it_mxbt].taskcode = ls_pordercode ELSE s_order_mx[it_mxbt].taskcode = arg_taskcode END IF s_order_mx[it_mxbt].taskrelcode = arg_taskrelcode s_order_mx[it_mxbt].taskmxid = arg_taskmxid s_order_mx[it_mxbt].pfcode = arg_pfcode s_order_mx[it_mxbt].cusid = arg_cusid s_order_mx[it_mxbt].porderid = arg_porderid s_order_mx[it_mxbt].pordercode = ls_pordercode s_order_mx[it_mxbt].utid = arg_utid s_order_mx[it_mxbt].wrkGrpid = arg_wrkgrpid s_order_mx[it_mxbt].gydscrp = arg_gydscrp s_order_mx[it_mxbt].pfklmode = arg_pfklmode s_order_mx[it_mxbt].pforderid = arg_pforderid s_order_mx[it_mxbt].pfordercode = arg_pfordercode s_order_mx[it_mxbt].pfqty = arg_pfqty s_order_mx[it_mxbt].secdscrp = arg_secdscrp s_order_mx[it_mxbt].thdscrp = arg_thdscrp s_order_mx[it_mxbt].taskscid = arg_taskscid s_order_mx[it_mxbt].perfinishdate = arg_perfinishdate s_order_mx[it_mxbt].storageid = arg_storageid s_order_mx[it_mxbt].capacity = ld_capacity * arg_orderqty s_order_mx[it_mxbt].typename = arg_typename s_order_mx[it_mxbt].tmpid = arg_tmpid s_order_mx[it_mxbt].Level = arg_level s_order_mx[it_mxbt].p_taskrelcode = ls_p_taskrelcode s_order_mx[it_mxbt].saletaskcode = ls_saletaskcode s_order_mx[it_mxbt].saletaskrelcode = ls_saletaskrelcode s_order_mx[it_mxbt].cusname = ls_cusname s_order_mx[it_mxbt].p_ordertype = li_p_ordertype_mtrldef s_order_mx[it_mxbt].p_cusid = ll_p_cusid s_order_mx[it_mxbt].p_mtrlid = ll_p_mtrlid s_order_mx[it_mxbt].outtypestr = arg_outtypestr s_order_mx[it_mxbt].pzlorderid = arg_pzlorderid s_order_mx[it_mxbt].inwareflag = li_inwareflag s_order_mx[it_mxbt].outscllflag = li_outscllflag s_order_mx[it_mxbt].iffg = arg_iffg s_order_mx[it_mxbt].ifauto = arg_ifauto s_order_mx[it_mxbt].upmtrlid = ll_upmtrlid s_order_mx[it_mxbt].iffp = li_iffp s_order_mx[it_mxbt].fpkind = li_fpkind s_order_mx[it_mxbt].if_inherit = arg_if_inherit s_order_mx[it_mxbt].addqty = arg_addqty IF li_mtrlorigin_mtrl = 3 THEN s_order_mx[it_mxbt].ifwforder = 1 ELSE s_order_mx[it_mxbt].ifwforder = 0 END IF s_order_mx[it_mxbt].wpcode = arg_wpcode s_order_mx[it_mxbt].pctype = arg_pctype s_order_mx[it_mxbt].notmrpqty = ld_notmrpqty //yyx2014-7-22 IF li_inwareflag = 0 THEN li_ifpban_save = 0 li_ifupban_save = 0 ELSE IF arg_ordertype = 4 THEN IF li_p_ifpack = 1 THEN //主计划为包件 IF li_bantype_mtrl = 0 THEN li_ifpban_save = 0 li_ifupban_save = 0 ELSEIF li_bantype_mtrl = 1 THEN li_ifpban_save = 1 cnt = 0 SELECT count(*) INTO :cnt FROM u_prdpf WHERE u_prdpf.mtrlid = :ll_p_mtrlid AND u_prdpf.pfcode = :ls_p_pfcode And u_PrdPF.SonMtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN cnt = 0 END IF IF cnt = 0 THEN li_ifupban_save = 0 ELSE li_ifupban_save = 1 END IF ELSEIF li_bantype_mtrl = 2 THEN li_ifpban_save = 0 li_ifupban_save = 1 END IF END IF IF li_p_ifpackpro = 1 THEN //主计划为包件产品 IF li_bantype_mtrl = 0 THEN li_ifpban_save = 0 li_ifupban_save = 0 ELSEIF li_bantype_mtrl = 1 THEN li_ifpban_save = 1 cnt = 0 SELECT count(*) INTO :cnt FROM u_prdpf,u_prdpf u_prdpf_p,u_mtrldef WHERE u_prdpf_p.mtrlid = :ll_p_mtrlid AND u_prdpf_p.pfcode = :ls_p_pfcode and u_prdpf_p.sonmtrlid = u_mtrldef.mtrlid and u_mtrldef.ifpack = 1 and u_prdpf_p.sonmtrlid = u_prdpf.mtrlid and u_prdpf_p.sonpfcode = u_prdpf.pfcode And u_prdpf.SonMtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN cnt = 0 END IF IF cnt = 0 THEN li_ifupban_save = 0 ELSE li_ifupban_save = 1 END IF ELSEIF li_bantype_mtrl = 2 THEN li_ifpban_save = 0 li_ifupban_save = 1 END IF END IF IF li_p_ifpack = 0 And li_p_ifpackpro <> 1 THEN //主计划非包件产品非包件 IF li_bantype_mtrl = 0 THEN li_ifpban_save = 0 li_ifupban_save = 0 ELSEIF li_bantype_mtrl = 1 THEN li_ifpban_save = 1 cnt = 0 SELECT count(*) INTO :cnt FROM u_prdpf WHERE u_prdpf.mtrlid = :ll_p_mtrlid AND u_prdpf.pfcode = :ls_p_pfcode And u_PrdPF.SonMtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN cnt = 0 END IF IF cnt = 0 THEN li_ifupban_save = 0 ELSE li_ifupban_save = 1 END IF ELSEIF li_bantype_mtrl = 2 THEN li_ifpban_save = 0 li_ifupban_save = 1 END IF END IF ELSE IF li_bantype_mtrl = 0 THEN li_ifpban_save = 0 li_ifupban_save = 0 ELSEIF li_bantype_mtrl = 1 THEN li_ifpban_save = 1 li_ifupban_save = 1 ELSEIF li_bantype_mtrl = 2 THEN li_ifpban_save = 0 li_ifupban_save = 1 END IF END IF END IF s_order_mx[it_mxbt].ifpban = li_ifpban_save s_order_mx[it_mxbt].ifupban = li_ifupban_save ext: Destroy ds_find_pmtrlid Return(rslt) end function public function integer tmp_order_add_pro (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit);//YS危险功能,勿删 2014-03-19 Int rslt = 1 Long cnt String ls_partname Long li_ordertype_mtrldef Long ll_statusflag,li_ifpackpro Decimal lde_price s_mtrlcfg_expr s_pz[],s_empty[] Long ll_i,ll_j String ls_status_zj Decimal ld_qty_zj String ls_utcode[] Long cnt_ut = 0 Decimal ld_workprice,ld_workqty,ld_workprice_sum String ls_procode,ls_proname Long ll_proorder,ll_wrkgrpid,ll_lsxtype,ll_ifjd,ll_lastflag Int li_sctype Long ll_equipmentid Decimal ld_eqworkhour,ld_Workhour,ld_beforehour,ld_afterhour,ld_eq_empnum String ls_worktype Int li_if_hourpay Decimal ld_eoq,ld_splitrate Decimal ld_hourpay String ls_mtrlsectype,ls_usermtrlmode,ls_zxmtrlmode,ls_mtrlmode Int li_ifgroup Decimal ld_u_workqty,ld_u_workprice,ld_u_workprice_sum Int li_protype Long ll_mtrlid String ls_pricestr,s_rtn Decimal ld_workprice_str,ld_workqty_str,ld_workqty_ori Decimal ld_proqty,ld_hourpay_cmp String ls_pricestr_ori,ls_pricestr_value String ls_parmname Decimal ld_parmvalue String ls_workqtystr_ori,ls_workqtystr_value,ls_workqtystr Decimal ld_u_workqty_str,ld_u_workprice_str String ls_u_workqtystr,ls_u_workqtystr_value,ls_u_pricestr,ls_u_pricestr_value String ls_u_workqtystr_ori,ls_u_pricestr_ori datastore ds_orderrqwp ds_orderrqwp = Create datastore ds_orderrqwp.DataObject = 'ds_orderrqwp_workprice' ds_orderrqwp.SetTransObject(sqlca) datastore ds_pricestr ds_pricestr = Create datastore ds_pricestr.DataObject = 'ds_pricestr_cmpl' ds_pricestr.SetTransObject(sqlca) datastore ds_parm ds_parm = Create datastore ds_parm.DataObject = 'ds_workprice_parm_def' ds_parm.SetTransObject(sqlca) ds_parm.Retrieve() If uo_option_def_workprice = -1000 Then rslt = 0 arg_msg = '选项:[012]生产计划审核时需要检查是否已定义工价表,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_orderrqwp_union = -1000 Then rslt = 0 arg_msg = '选项:[148]生产计划工序明细按工价表配置及组号合并,读取初始默认值失败,操作取消!' Goto ext End If If arg_orderid = 0 Then rslt = 0 arg_msg = "没有审核对象" Goto ext End If If p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If If ordertype = 3 Or ifwforder = 1 Then rslt = 1 Goto ext End If Select ordertype, statusflag, ifpackpro, if_hourpay, eoq, splitrate, mtrlsectype, zxmtrlmode, usermtrlmode, mtrlmode, protype Into :li_ordertype_mtrldef, :ll_statusflag, :li_ifpackpro, :li_if_hourpay, :ld_eoq, :ld_splitrate, :ls_mtrlsectype, :ls_zxmtrlmode, :ls_usermtrlmode, :ls_mtrlmode, :li_protype From u_mtrldef Where mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料计划属性失败,'+sqlca.SQLErrText Goto ext End If If (ordertype <> 4 And li_ordertype_mtrldef = 1) Then rslt = 1 Goto ext End If If status <> 1 And status <> 4 And status <> 7 And status <> 5 And status <> 6 Then rslt = 0 arg_msg = "计划只有在(已审核,完成)状态才可以执行重新生成工序,请核对" Goto ext End If //IF uo_option_def_workprice = 0 THEN // rslt = 1 // GOTO ext //END IF If li_protype = 0 Then If li_ifpackpro = 0 Then If ll_statusflag <> 2 Then If uo_option_def_workprice = 1 Or uo_option_def_workprice = 2 Then cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where u_sc_workprice.mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品工价表失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt = 0 Then arg_msg = '产品对应车间的工价表未建立,请先建立工价表' rslt = 0 Goto ext End If End If If uo_option_def_workprice = 2 Then cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where u_sc_workprice.mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode And u_sc_workprice.auditflag = 0 And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品工价表是否有未审核失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = '产品对应车间的工价表存在未审核工价,请检查' rslt = 0 Goto ext End If End If Else // f_checkpz(status_mode,s_pz[]) f_checkpz_general(mtrlid,status_mode,s_pz[]) For ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname If uo_option_def_workprice = 1 Or uo_option_def_workprice = 2 Then cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where u_sc_workprice.mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode And (u_sc_workprice.status = :ls_status_zj Or u_sc_workprice.status = '') And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品子件:'+ls_status_zj+'工价表失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt = 0 Then arg_msg = '产品对应车间的子件:'+ls_status_zj+'工价表未建立,请先建立工价表' rslt = 0 Goto ext End If End If If uo_option_def_workprice = 2 Then cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where u_sc_workprice.mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode And (u_sc_workprice.status = :ls_status_zj Or u_sc_workprice.status = '') And u_sc_workprice.auditflag = 0 And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品工价表子件:'+ls_status_zj+'是否有未审核失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = '产品对应车间的工价表子件:'+ls_status_zj+'存在未审核工价,请检查' rslt = 0 Goto ext End If End If Next End If End If // cnt = 0 // Select count(*) Into :cnt // From u_orderrqwp // Where (finishqty > 0 Or taskqty > 0 ) // And orderid = :arg_orderid // And scid = :arg_scid; // If sqlca.SQLCode <> 0 Then // arg_msg = '查询计划工序明细是否有完成数量失败,'+sqlca.SQLErrText // rslt = 0 // Goto ext // End If // // If cnt > 0 Then // arg_msg = '计划工序明细已有完成数量或已派工数,不能生成计划工序明细' // rslt = 0 // Goto ext // End If Select count(*) Into :cnt From v_order_procode Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then arg_msg = '查询计划工序明细是否已开计件单失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = '计划工序明细已开计件单,不能生成计划工序明细' rslt = 0 Goto ext End If // Select count(*) Into :cnt // From u_sc_task // Where scid = :arg_scid // And orderid = :arg_orderid; // If sqlca.SQLCode <> 0 Then // arg_msg = '查询计划工序明细是否已开工序派工单失败,'+sqlca.SQLErrText // rslt = 0 // Goto ext // End If // // If cnt > 0 Then // arg_msg = '计划工序明细开工序派工单,不能生成计划工序明细' // rslt = 0 // Goto ext // End If Delete From u_orderrqwp Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除计划的工序明细表相应记录操作失败"+"~n"+sqlca.SQLErrText Goto ext End If s_pz = s_empty If ll_statusflag <> 2 Then //非组合配置产品 cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where mtrlid = :mtrlid And ltrim(rtrim(utcode)) <> '' And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询产品价格表是否有组号失败'+sqlca.SQLErrText Goto ext End If If uo_option_orderrqwp_union = 0 Or uo_option_orderrqwp_union = 1 Or cnt = 0 Then Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workqty, u_workprice) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workqty * u_order_ml.orderqty, u_sc_workprice.u_workprice From u_sc_workprice,u_order_ml Where u_sc_workprice.mtrlid = u_order_ml.mtrlid And u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Else cnt_ut = 1 Declare cur_ut2 Cursor For Select distinct utcode From u_sc_workprice Where mtrlid = :mtrlid And lTrim(rtrim(utcode)) <> '' And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And u_sc_workprice.wpcode = :wpcode; Open cur_ut2; Fetch cur_ut2 Into :ls_utcode[cnt_ut]; Do While sqlca.SQLCode = 0 cnt_ut++ Fetch cur_ut2 Into :ls_utcode[cnt_ut]; Loop Close cur_ut2; cnt_ut = cnt_ut - 1 For ll_i = 1 To cnt_ut ld_workprice = 0 ld_workqty = 0 Select sum(workprice),sum(workqty),sum(u_workprice),sum(u_workqty) Into :ld_workprice,:ld_workqty,:ld_u_workprice,:ld_u_workqty From u_sc_workprice Where lTrim(rtrim(utcode)) = :ls_utcode[ll_i] And mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询组号:'+ls_utcode[ll_i]+' 合计工价,数量失败,'+sqlca.SQLErrText Goto ext End If Select top 1 u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup Into :ls_procode, :ls_proname, :ll_proorder, :ll_wrkgrpid, :ll_lsxtype, :ll_ifjd, :ll_lastflag, :li_sctype, :ll_equipmentid, :ls_partname, :ld_eqworkhour, :ld_Workhour, :ld_beforehour, :ld_afterhour, :ls_worktype, :ld_eq_empnum, :li_ifgroup From u_sc_workprice Where mtrlid = :mtrlid And utcode = :ls_utcode[ll_i] And u_sc_workprice.wpcode = :wpcode Order By lastflag Desc,u_sc_workprice.proorder Desc; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询工价表组号:'+ls_utcode[ll_i]+'末工序相关信息失败'+sqlca.SQLErrText Goto ext End If ls_proname = '工序:(组:'+Trim(ls_utcode[ll_i])+')' Insert Into u_orderrqwp (scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty) Values (:arg_scid, :arg_orderid, :mtrlid, :ls_procode, :ls_proname, :ll_proorder, :orderqty, :ll_wrkgrpid, :ll_lsxtype, :ld_workprice, :status_mode, :ll_ifjd, :ll_lastflag, :li_sctype, :ll_equipmentid, :ls_partname, :ld_eqworkhour, :ld_Workhour, :ld_beforehour, :ld_afterhour, :ld_workprice_sum, :ls_worktype, :ld_eq_empnum, :li_ifgroup, :ld_u_workprice, :ld_u_workqty); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Next //加空组号工序 Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty From u_sc_workprice,u_order_ml Where u_sc_workprice.mtrlid = u_order_ml.mtrlid And u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And u_sc_workprice.utcode = '' And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If End If Else cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where mtrlid = :mtrlid And ltrim(rtrim(utcode)) <> '' And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询产品价格表是否有组号失败'+sqlca.SQLErrText Goto ext End If If uo_option_orderrqwp_union = 0 Or cnt = 0 Then // f_checkpz(status_mode,s_pz[]) f_checkpz_general(mtrlid,status_mode,s_pz[]) For ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname ld_qty_zj = Dec(s_pz[ll_i].qty) Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty * :ld_qty_zj From u_sc_workprice,u_order_ml Where u_sc_workprice.mtrlid = u_order_ml.mtrlid And u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (u_sc_workprice.status = :ls_status_zj) And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Next //加空子件工序(公共) Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty * :ld_qty_zj From u_sc_workprice,u_order_ml Where u_sc_workprice.mtrlid = u_order_ml.mtrlid And u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (u_sc_workprice.status = '') And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序[空子件]失败,原因:'+sqlca.SQLErrText Goto ext End If Else // f_checkpz(status_mode,s_pz[]) cnt_ut = 1 f_checkpz_general(mtrlid,status_mode,s_pz[]) Declare cur_ut Cursor For Select distinct utcode From u_sc_workprice Where mtrlid = :mtrlid And lTrim(rtrim(utcode)) <> '' And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And u_sc_workprice.wpcode = :wpcode; Open cur_ut; Fetch cur_ut Into :ls_utcode[cnt_ut]; Do While sqlca.SQLCode = 0 cnt_ut++ Fetch cur_ut Into :ls_utcode[cnt_ut]; Loop Close cur_ut; cnt_ut = cnt_ut - 1 For ll_i = 1 To cnt_ut ld_workprice_sum = 0 For ll_j = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_j].cfgname ld_qty_zj = Dec(s_pz[ll_j].qty) ld_workprice = 0 ld_workqty = 0 ld_u_workprice = 0 ld_u_workqty = 0 Select workprice, workqty, u_workprice, u_workqty,pricestr, workqtystr, u_pricestr, u_workqtystr, procode Into :ld_workprice, :ld_workqty, :ld_u_workprice, :ld_u_workqty, :ls_pricestr, :ls_workqtystr, :ls_u_pricestr, :ls_u_workqtystr, :ls_procode From u_sc_workprice Where lTrim(rtrim(utcode)) = :ls_utcode[ll_i] And lTrim(rtrim(status)) = :ls_status_zj And mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询组号:'+ls_utcode[ll_i]+' 配置:'+ls_status_zj+' 工价失败,'+sqlca.SQLErrText Goto ext End If If Trim(ls_workqtystr) <> '' Then If uof_workprice_parm(mtrlid,wpcode,ls_procode,ld_workqty * ld_qty_zj,ls_workqtystr,1,ls_workqtystr_value,ld_workqty_str) = 1 Then ld_workqty = ld_workqty_str End If End If If Trim(ls_pricestr) <> '' Then If uof_workprice_parm(mtrlid,wpcode,ls_procode,ld_workqty * ld_qty_zj,ls_pricestr,0,ls_pricestr_value,ld_workprice_str) = 1 Then ld_workprice = ld_workprice_str End If End If If Trim(ls_u_workqtystr) <> '' Then If uof_workprice_parm(mtrlid,wpcode,ls_procode,ld_workqty * ld_qty_zj,ls_u_workqtystr,1,ls_u_workqtystr_value,ld_u_workqty_str) = 1 Then ld_u_workqty = ld_u_workqty_str End If End If If Trim(ls_u_pricestr) <> '' Then If uof_workprice_parm(mtrlid,wpcode,ls_procode,ld_workqty * ld_qty_zj,ls_u_pricestr,0,ls_u_pricestr_value,ld_u_workprice_str) = 1 Then ld_u_workprice = ld_u_workprice_str End If End If ld_workprice_sum = ld_workprice_sum + ld_workprice * ld_workqty * ld_qty_zj ld_u_workprice_sum = ld_u_workprice_sum + ld_u_workprice * ld_u_workqty * ld_qty_zj Next Select top 1 u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup Into :ls_procode, :ls_proname, :ll_proorder, :ll_wrkgrpid, :ll_lsxtype, :ll_ifjd, :ll_lastflag, :li_sctype, :ll_equipmentid, :ls_partname, :ld_eqworkhour, :ld_Workhour, :ld_beforehour, :ld_afterhour, :ls_worktype, :ld_eq_empnum, :li_ifgroup From u_sc_workprice Where mtrlid = :mtrlid And utcode = :ls_utcode[ll_i] And u_sc_workprice.wpcode = :wpcode Order By lastflag Desc; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询工价表组号:'+ls_utcode[ll_i]+'相关信息失败'+sqlca.SQLErrText Goto ext End If Insert Into u_orderrqwp (scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty) Values (:arg_scid, :arg_orderid, :mtrlid, :ls_procode, :ls_proname, :ll_proorder, :orderqty, :ll_wrkgrpid, :ll_lsxtype, :ld_workprice_sum, :status_mode, :ll_ifjd, :ll_lastflag, :li_sctype, :ll_equipmentid, :ls_partname, :ld_eqworkhour, :ld_Workhour, :ld_beforehour, :ld_afterhour, :ld_workprice_sum, :ls_worktype, :ld_eq_empnum, :li_ifgroup, :ld_u_workprice_sum, :orderqty); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Next //加空组号工序 For ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname ld_qty_zj = Dec(s_pz[ll_i].qty) Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, u_workprice, u_workqty) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty * :ld_qty_zj From u_sc_workprice,u_order_ml Where u_sc_workprice.mtrlid = u_order_ml.mtrlid And u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (u_sc_workprice.status = :ls_status_zj) And u_sc_workprice.utcode = '' And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Next //加空子件工序 Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, u_workprice, u_workqty) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty * :ld_qty_zj From u_sc_workprice,u_order_ml Where u_sc_workprice.mtrlid = u_order_ml.mtrlid And u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (u_sc_workprice.status = '') And u_sc_workprice.utcode = '' And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序[空子件]失败,原因:'+sqlca.SQLErrText Goto ext End If Update U_OrderRqwp Set U_OrderRqwp.workPrice = u_sc_workprice.workPrice, U_OrderRqwp.ori_workPrice = u_sc_workprice.workPrice From U_OrderRqwp Inner JOIN u_Order_ml ON U_OrderRqwp.scid = u_Order_ml.scid And U_OrderRqwp.orderid = u_Order_ml.OrderID Inner JOIN u_sc_workprice ON u_Order_ml.mtrlid = u_sc_workprice.Mtrlid And u_Order_ml.status_mode = u_sc_workprice.status And U_OrderRqwp.Proname = u_sc_workprice.Proname And u_Order_ml.wpcode = u_sc_workprice.wpcode Where U_OrderRqwp.scid = :arg_scid And u_orderrqwp.orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If End If End If //如果按组号合并,则不再执行公式 If uo_option_orderrqwp_union = 0 Or uo_option_orderrqwp_union = 1 And cnt_ut = 0 Then ds_orderrqwp.Retrieve(arg_scid,arg_orderid,wpcode) For ll_i = 1 To ds_orderrqwp.RowCount() ls_pricestr = ds_orderrqwp.Object.u_sc_workprice_pricestr[ll_i] ll_mtrlid = ds_orderrqwp.Object.u_orderrqwp_mtrlid[ll_i] ls_procode = ds_orderrqwp.Object.u_orderrqwp_procode[ll_i] ls_worktype = ds_orderrqwp.Object.u_orderrqwp_worktype[ll_i] ld_hourpay = ds_orderrqwp.Object.hourpay[ll_i] ld_proqty = ds_orderrqwp.Object.u_orderrqwp_proqty[ll_i] ld_Workhour = ds_orderrqwp.Object.u_orderrqwp_workhour[ll_i] ld_beforehour = ds_orderrqwp.Object.u_orderrqwp_beforehour[ll_i] ld_afterhour = ds_orderrqwp.Object.u_orderrqwp_afterhour[ll_i] ld_eq_empnum = ds_orderrqwp.Object.u_orderrqwp_eq_empnum[ll_i] ld_eqworkhour = ds_orderrqwp.Object.u_orderrqwp_eqworkhour[ll_i] ls_workqtystr = ds_orderrqwp.Object.u_sc_workprice_workqtystr[ll_i] ld_workqty_ori = ds_orderrqwp.Object.u_sc_workprice_workqty[ll_i] ld_workprice_str = ds_orderrqwp.Object.u_orderrqwp_workprice[ll_i] ld_u_workqty_str = ds_orderrqwp.Object.u_orderrqwp_u_workqty[ll_i] ld_u_workprice_str = ds_orderrqwp.Object.u_orderrqwp_u_workprice[ll_i] ls_u_workqtystr = ds_orderrqwp.Object.u_sc_workprice_u_workqtystr[ll_i] ls_u_pricestr = ds_orderrqwp.Object.u_sc_workprice_u_pricestr[ll_i] ld_workqty_str = ld_proqty If ld_workqty_ori = 0 Then ld_workqty_ori = 1 ls_pricestr_ori = '' ls_pricestr_value = '' ls_workqtystr_ori = '' ls_workqtystr_value = '' //1.数量公式 If Trim(ls_workqtystr) <> '' Then ls_workqtystr_ori = ls_workqtystr uof_workprice_parm(ll_mtrlid,wpcode,ls_procode,ld_proqty,ls_workqtystr,1,ls_workqtystr_value,ld_workqty_str) ld_proqty = ld_workqty_str End If //2.单价公式 If Trim(ls_pricestr) <> '' Then ls_pricestr_ori = ls_pricestr uof_workprice_parm(ll_mtrlid,wpcode,ls_procode,ld_proqty,ls_pricestr,0,ls_pricestr_value,ld_workprice_str) Else If li_if_hourpay = 2 Then If ld_proqty > ld_splitrate And ld_splitrate <> 0 Then ld_workprice_str = (ld_splitrate * (ld_Workhour + ld_eqworkhour * ld_eq_empnum) + ld_beforehour + ld_afterhour) / ld_splitrate * ld_hourpay Else ld_workprice_str = (ld_proqty * (ld_Workhour + ld_eqworkhour * ld_eq_empnum) + ld_beforehour + ld_afterhour) / ld_proqty * ld_hourpay End If Else Goto _u_workqty End If End If //3.折算数量 _u_workqty: If Trim(ls_u_workqtystr) <> '' Then ls_u_workqtystr_ori = ls_u_workqtystr uof_workprice_parm(ll_mtrlid,wpcode,ls_procode,ld_proqty,ls_u_workqtystr,1,ls_u_workqtystr_value,ld_u_workqty_str) End If //4.折算单价 If Trim(ls_u_pricestr) <> '' Then ls_u_pricestr_ori = ls_u_pricestr uof_workprice_parm(ll_mtrlid,wpcode,ls_procode,ld_proqty,ls_u_pricestr,0,ls_u_pricestr_value,ld_u_workprice_str) End If Update u_orderrqwp Set workprice = :ld_workprice_str, ori_workprice = :ld_workprice_str, pricestr = :ls_pricestr_ori, pricestr_value = :ls_pricestr_value, proqty = :ld_workqty_str, workqtystr = :ls_workqtystr_ori, workqtystr_value = :ls_workqtystr_value, u_workqty = :ld_u_workqty_str, u_workqtystr = :ls_u_workqtystr_ori, u_workqtystr_value = :ls_u_workqtystr_value, u_workprice = :ld_u_workprice_str, u_pricestr = :ls_u_pricestr_ori, u_pricestr_value = :ls_u_pricestr_value Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :ll_mtrlid And procode = :ls_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '按单价公式更新工序单价失败,'+sqlca.SQLErrText Goto ext End If Next End If Else it_mx_bomwp = 0 deep = 0 If uof_protype_workprice(mtrlid,pfcode,wpcode,orderqty,arg_msg) = 0 Then rslt = 0 arg_msg = '计算下级虚拟部件工价表失败,'+arg_msg Goto ext End If Delete From u_orderrqwp Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除计划的工序明细表相应记录操作失败"+"~n"+sqlca.SQLErrText Goto ext End If If li_protype = 1 Then For ll_i = 1 To it_mx_bomwp Update u_orderrqwp Set proqty = proqty + :ins_s_wp[ll_i].workqty, u_workqty = u_workqty + :ins_s_wp[ll_i].u_workqty, pro_dscrp = case when len(pro_dscrp + ',' + :ins_s_wp[ll_i].pro_dscrp) < 255 then pro_dscrp + ',' + :ins_s_wp[ll_i].pro_dscrp else pro_dscrp End Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :mtrlid And procode = :ins_s_wp[ll_i].mtrlcode + '_' + :ins_s_wp[ll_i].procode; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workqty, u_workprice, pricestr, pricestr_value, procode_ori, pro_dscrp, sonmtrlid) Values (:arg_scid, :arg_orderid, :mtrlid, :ins_s_wp[ll_i].mtrlcode + '_' + :ins_s_wp[ll_i].procode, :ins_s_wp[ll_i].proname, :ins_s_wp[ll_i].proorder, :ins_s_wp[ll_i].workqty, :ins_s_wp[ll_i].wrkgrpid, :ins_s_wp[ll_i].lsxtype, :ins_s_wp[ll_i].workprice, :ins_s_wp[ll_i].status, :ins_s_wp[ll_i].ifjd, :ins_s_wp[ll_i].lastflag, :ins_s_wp[ll_i].sctype, :ins_s_wp[ll_i].equipmentid, :ins_s_wp[ll_i].partname, :ins_s_wp[ll_i].eqworkhour, :ins_s_wp[ll_i].Workhour, :ins_s_wp[ll_i].beforehour, :ins_s_wp[ll_i].afterhour, :ins_s_wp[ll_i].workprice, :ins_s_wp[ll_i].worktype, :ins_s_wp[ll_i].eq_empnum, :ins_s_wp[ll_i].ifgroup, :ins_s_wp[ll_i].u_workqty, :ins_s_wp[ll_i].u_workprice, :ins_s_wp[ll_i].pricestr, :ins_s_wp[ll_i].pricestr_value, :ins_s_wp[ll_i].procode, :ins_s_wp[ll_i].pro_dscrp, :ins_s_wp[ll_i].sonmtrlid); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If End If Else If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If End If Next // ElseIf li_protype = 2 Then // // s_workpricetable s_wp_union[] // Long ll_wp_union // // For ll_i = 1 To it_mx_bomwp // For ll_j = 1 To ll_wp_union // If ins_s_wp[ll_i].procode = s_wp_union[ll_j].procode Then // s_wp_union[ll_j].workprice_bom = s_wp_union[ll_j].workprice_bom + ins_s_wp[ll_i].workprice_bom // // If lena(s_wp_union[ll_j].pro_dscrp + ',' + ins_s_wp[ll_i].pro_dscrp) > 255 Then // s_wp_union[ll_j].pro_dscrp = leftA(s_wp_union[ll_j].pro_dscrp + ',' + ins_s_wp[ll_i].pro_dscrp,255) // Else // s_wp_union[ll_j].pro_dscrp = s_wp_union[ll_j].pro_dscrp + ',' + ins_s_wp[ll_i].pro_dscrp // End If // Goto _next_wp // End If // Next // // ll_wp_union++ // // s_wp_union[ll_wp_union].procode = ins_s_wp[ll_i].procode // s_wp_union[ll_wp_union].proname = ins_s_wp[ll_i].proname // s_wp_union[ll_wp_union].proorder = ins_s_wp[ll_i].proorder // s_wp_union[ll_wp_union].workqty = ins_s_wp[ll_i].workqty // s_wp_union[ll_wp_union].wrkgrpid = ins_s_wp[ll_i].wrkgrpid // s_wp_union[ll_wp_union].lsxtype = ins_s_wp[ll_i].lsxtype // s_wp_union[ll_wp_union].workprice = ins_s_wp[ll_i].workprice // s_wp_union[ll_wp_union].status = ins_s_wp[ll_i].status // s_wp_union[ll_wp_union].ifjd = ins_s_wp[ll_i].ifjd // s_wp_union[ll_wp_union].lastflag = ins_s_wp[ll_i].lastflag // s_wp_union[ll_wp_union].sctype = ins_s_wp[ll_i].sctype // s_wp_union[ll_wp_union].equipmentid = ins_s_wp[ll_i].equipmentid // s_wp_union[ll_wp_union].partname = ins_s_wp[ll_i].partname // s_wp_union[ll_wp_union].eqworkhour = ins_s_wp[ll_i].eqworkhour // s_wp_union[ll_wp_union].Workhour = ins_s_wp[ll_i].Workhour // s_wp_union[ll_wp_union].beforehour = ins_s_wp[ll_i].beforehour // s_wp_union[ll_wp_union].afterhour = ins_s_wp[ll_i].afterhour // s_wp_union[ll_wp_union].workprice = ins_s_wp[ll_i].workprice // s_wp_union[ll_wp_union].worktype = ins_s_wp[ll_i].worktype // s_wp_union[ll_wp_union].eq_empnum = ins_s_wp[ll_i].eq_empnum // s_wp_union[ll_wp_union].ifgroup = ins_s_wp[ll_i].ifgroup // s_wp_union[ll_wp_union].u_workqty = ins_s_wp[ll_i].u_workqty // s_wp_union[ll_wp_union].u_workprice = ins_s_wp[ll_i].u_workprice // s_wp_union[ll_wp_union].workprice_bom = ins_s_wp[ll_i].workprice_bom // s_wp_union[ll_wp_union].pricestr = '' // s_wp_union[ll_wp_union].pricestr_value = '' // s_wp_union[ll_wp_union].pro_dscrp = ins_s_wp[ll_i].pro_dscrp // // // _next_wp: // Next // // For ll_i = 1 To ll_wp_union // // Insert Into u_orderrqwp(scid, // orderid, // mtrlid, // procode, // proname, // proorder, // proqty, // wrkgrpid, // lsxtype, // workprice, // status, // ifjd, // lastflag, // sctype, // equipmentid, // partname, // eqworkhour, // Workhour, // beforehour, // afterhour, // ori_workprice, // worktype, // eq_empnum, // ifgroup, // u_workqty, // u_workprice, // pricestr, // pricestr_value, // procode_ori, // pro_dscrp) // Values ( :arg_scid, // :arg_orderid, // :mtrlid, // :s_wp_union[ll_i].procode, // :s_wp_union[ll_i].proname, // :s_wp_union[ll_i].proorder, // :orderqty, // :s_wp_union[ll_i].wrkgrpid, // :s_wp_union[ll_i].lsxtype, // :s_wp_union[ll_i].workprice_bom, // :s_wp_union[ll_i].status, // :s_wp_union[ll_i].ifjd, // :s_wp_union[ll_i].lastflag, // :s_wp_union[ll_i].sctype, // :s_wp_union[ll_i].equipmentid, // :s_wp_union[ll_i].partname, // :s_wp_union[ll_i].eqworkhour, // :s_wp_union[ll_i].Workhour, // :s_wp_union[ll_i].beforehour, // :s_wp_union[ll_i].afterhour, // :s_wp_union[ll_i].workprice_bom, // :s_wp_union[ll_i].worktype, // :s_wp_union[ll_i].eq_empnum, // :s_wp_union[ll_i].ifgroup, // :orderqty, // :s_wp_union[ll_i].workprice_bom, // :s_wp_union[ll_i].pricestr, // :s_wp_union[ll_i].pricestr_value, // :s_wp_union[ll_i].procode, // :s_wp_union[ll_i].pro_dscrp); // If sqlca.SQLCode <> 0 Then // rslt = 0 // arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText // Goto ext // End If // Next End If End If Update u_order_ml Set u_Order_ml.sctaskflag = isnull(uv_sc_task_qty_flag.sctaskflag, '') From u_Order_ml LEFT Outer JOIN uv_sc_task_qty_flag ON u_Order_ml.scid = uv_sc_task_qty_flag.scid And u_Order_ml.OrderID = uv_sc_task_qty_flag.OrderID Where u_Order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新派工状态失败,原因:'+sqlca.SQLErrText Goto ext End If ext: If rslt = 0 Then Rollback; p_reset() ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Destroy ds_pricestr Destroy ds_orderrqwp Destroy ds_parm Return rslt end function public function integer uof_order_add_pro (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit, boolean arg_ifall, boolean arg_ifupdateprice, integer arg_ifproaudit);Int rslt = 1 Long cnt String ls_partname,ls_mtrlcode Long li_ordertype_mtrldef Long ll_statusflag,li_ifpackpro Decimal lde_price s_mtrlcfg_expr s_pz[],s_empty[] Long ll_i,ll_j String ls_status_zj Decimal ld_qty_zj String ls_utcode[] Long cnt_ut = 0 Decimal ld_workprice,ld_workqty,ld_workprice_sum String ls_rpcode String ls_procode,ls_proname Long ll_proorder,ll_wrkgrpid,ll_lsxtype,ll_ifjd,ll_lastflag Int li_sctype Long ll_equipmentid Decimal ld_eqworkhour,ld_Workhour,ld_beforehour,ld_afterhour,ld_eq_empnum String ls_worktype Int li_if_hourpay Decimal ld_eoq,ld_splitrate Decimal ld_hourpay String ls_mtrlsectype,ls_usermtrlmode,ls_zxmtrlmode,ls_mtrlmode Int li_ifgroup Decimal ld_u_workqty,ld_u_workprice,ld_u_workprice_sum Int li_protype String ls_replacestr Long ll_mtrlid String ls_pricestr,s_rtn Decimal ld_workprice_str,ld_workqty_str,ld_workqty_ori Decimal ld_proqty,ld_hourpay_cmp String ls_pricestr_ori,ls_pricestr_value String ls_parmname Decimal ld_parmvalue String ls_workqtystr_ori,ls_workqtystr_value,ls_workqtystr Decimal ld_u_workqty_str,ld_u_workprice_str String ls_u_workqtystr,ls_u_workqtystr_value,ls_u_pricestr,ls_u_pricestr_value String ls_u_workqtystr_ori,ls_u_pricestr_ori datastore ds_orderrqwp ds_orderrqwp = Create datastore ds_orderrqwp.DataObject = 'ds_orderrqwp_workprice' ds_orderrqwp.SetTransObject(sqlca) datastore ds_pricestr ds_pricestr = Create datastore ds_pricestr.DataObject = 'ds_pricestr_cmpl' ds_pricestr.SetTransObject(sqlca) datastore ds_replacestr ds_replacestr = Create datastore ds_replacestr.DataObject = 'ds_orderrqwp_replacestr' ds_replacestr.SetTransObject(sqlca) datastore ds_parm ds_parm = Create datastore ds_parm.DataObject = 'ds_workprice_parm_def' ds_parm.SetTransObject(sqlca) ds_parm.Retrieve() If uo_option_def_workprice = -1000 Then rslt = 0 arg_msg = '选项:[012]生产计划审核时需要检查是否已定义工价表,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_orderrqwp_union = -1000 Then rslt = 0 arg_msg = '选项:[148]生产计划工序明细按工价表配置及组号合并,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_orderrqwp_auditgj = -1000 Then rslt = 0 arg_msg = '选项:[398]工价表如果未进行工价审,指令单工序明细生成时对应工序工价为0,读取初始默认值失败,操作取消!' Goto ext End If If arg_orderid = 0 Then rslt = 0 arg_msg = "没有审核对象" Goto ext End If If p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If If ordertype = 3 Or ifwforder = 1 Then rslt = 1 Goto ext End If Select ordertype, statusflag, ifpackpro, if_hourpay, eoq, splitrate, mtrlsectype, zxmtrlmode, usermtrlmode, mtrlmode, protype, mtrlcode Into :li_ordertype_mtrldef, :ll_statusflag, :li_ifpackpro, :li_if_hourpay, :ld_eoq, :ld_splitrate, :ls_mtrlsectype, :ls_zxmtrlmode, :ls_usermtrlmode, :ls_mtrlmode, :li_protype, :ls_mtrlcode From u_mtrldef Where mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料计划属性失败,'+sqlca.SQLErrText Goto ext End If If (ordertype <> 4 And li_ordertype_mtrldef = 1) Then rslt = 1 Goto ext End If If status <> 1 And status <> 4 And status <> 7 And status <> 5 And status <> 6 Then rslt = 0 arg_msg = "计划只有在(已审核,完成)状态才可以执行重新生成工序,请核对" Goto ext End If //IF uo_option_def_workprice = 0 THEN // rslt = 1 // GOTO ext //END IF //==================================================================== // 处理前检查 //==================================================================== cnt = 0 Select COUNT(*) Into :cnt From (Select rpcode, SUM(ifdftpg) AS ifdftpg From u_sc_workprice Where (Mtrlid = :mtrlid) And (rpcode <> '') And (u_sc_workprice.wpcode = :wpcode) Group By rpcode Having (SUM(ifdftpg) <> 1)) v_rpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询产品:'+ls_mtrlcode+' 替代工序默认派工属性是否设置正确失败' Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = '产品:'+ls_mtrlcode+' 替代工序默认派工属性必须设置且必须唯一' Goto ext End If If li_protype = 0 Then If li_ifpackpro = 0 Then If ll_statusflag <> 2 Then If uo_option_def_workprice = 1 Or uo_option_def_workprice = 2 Then cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where u_sc_workprice.mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品工价表失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt = 0 Then arg_msg = '产品对应车间的工价表未建立,请先建立工价表' rslt = 0 Goto ext End If End If If uo_option_def_workprice = 2 Then cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where u_sc_workprice.mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode And u_sc_workprice.auditflag = 0 And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品工价表是否有未审核失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = '产品对应车间的工价表存在未审核工价,请检查' rslt = 0 Goto ext End If End If Else // f_checkpz(status_mode,s_pz[]) f_checkpz_general(mtrlid,status_mode,s_pz[]) For ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname If uo_option_def_workprice = 1 Or uo_option_def_workprice = 2 Then cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where u_sc_workprice.mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode And (u_sc_workprice.status = :ls_status_zj Or u_sc_workprice.status = '') And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品子件:'+ls_status_zj+'工价表失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt = 0 Then arg_msg = '产品对应车间的子件:'+ls_status_zj+'工价表未建立,请先建立工价表' rslt = 0 Goto ext End If End If If uo_option_def_workprice = 2 Then cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where u_sc_workprice.mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode And (u_sc_workprice.status = :ls_status_zj Or u_sc_workprice.status = '') And u_sc_workprice.auditflag = 0 And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then arg_msg = '查询产品工价表子件:'+ls_status_zj+'是否有未审核失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = '产品对应车间的工价表子件:'+ls_status_zj+'存在未审核工价,请检查' rslt = 0 Goto ext End If End If Next End If End If End If //==================================================================== // 删除旧工序 //==================================================================== If arg_ifall Then // 全部重新生成 cnt = 0 Select count(*) Into :cnt From u_orderrqwp Where (finishqty > 0 Or taskqty > 0 ) And orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then arg_msg = '查询计划工序明细是否有完成数量失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = '计划工序明细已有完成数量或已派工数,不能生成计划工序明细' rslt = 0 Goto ext End If Select count(*) Into :cnt From v_order_procode Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then arg_msg = '查询计划工序明细是否已开计件单失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = '计划工序明细已开计件单,不能生成计划工序明细' rslt = 0 Goto ext End If Select count(*) Into :cnt From u_sc_task Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then arg_msg = '查询计划工序明细是否已开工序派工单失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = '计划工序明细开工序派工单,不能生成计划工序明细' rslt = 0 Goto ext End If Delete From u_orderrqwp Where orderid = :arg_orderid And scid = :arg_scid And finishqty = 0 And taskqty = 0; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除计划的工序明细表相应记录操作失败"+"~n"+sqlca.SQLErrText Goto ext End If Else // 部分重新生成 If arg_ifupdateprice Then Select count(0) Into :cnt From v_order_procode Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then arg_msg = '查询计划工序明细是否已开计件单失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = '计划工序明细已开计件单,不能更新工价' rslt = 0 Goto ext End If End If Delete From u_sc_task From U_OrderRqwp Inner JOIN u_sc_task ON U_OrderRqwp.scid = u_sc_task.scid And U_OrderRqwp.orderid = u_sc_task.orderid And U_OrderRqwp.Procode = u_sc_task.procode And U_OrderRqwp.Mtrlid = u_sc_task.mtrlid Where (U_OrderRqwp.finishqty = 0) And (U_OrderRqwp.taskqty = 0) And (u_sc_task.scid = :arg_scid) And (u_sc_task.orderid = :arg_orderid) And (u_sc_task.flag = 0); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '删除未审工序派工单失败,' + sqlca.SQLErrText Goto ext End If Delete From u_orderrqwp Where orderid = :arg_orderid And scid = :arg_scid And finishqty = 0 And taskqty = 0 And Not Exists (Select 1 From u_sc_task Where flag = 1 And scid = u_orderrqwp.scid And orderid = u_orderrqwp.orderid And mtrlid = u_orderrqwp.mtrlid And Procode = u_orderrqwp.Procode); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除未派工工序进度失败"+"~n"+sqlca.SQLErrText Goto ext End If End If If li_protype = 0 Then s_pz = s_empty If ll_statusflag <> 2 Then //非组合配置产品 cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where mtrlid = :mtrlid And ltrim(rtrim(utcode)) <> '' And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询产品价格表是否有组号失败'+sqlca.SQLErrText Goto ext End If If uo_option_orderrqwp_union = 0 Or uo_option_orderrqwp_union = 1 Or cnt = 0 Then If Not arg_ifall And arg_ifupdateprice Then Update U_OrderRqwp Set workPrice = u_sc_workprice.workPrice, ori_workprice = u_sc_workprice.workPrice From u_sc_workprice Inner JOIN U_OrderRqwp ON u_sc_workprice.Mtrlid = U_OrderRqwp.Mtrlid And u_sc_workprice.procode = U_OrderRqwp.Procode Where (u_sc_workprice.ifownpro = 0) And (u_sc_workprice.lsxtype <> 0) And (u_sc_workprice.wpcode = :wpcode) And (U_OrderRqwp.scid = :arg_scid) And (u_orderrqwp.orderid = :arg_orderid); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新工价失败,' + sqlca.SQLErrText Goto ext End If End If Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workqty, u_workprice, replacestr, procode_ori, rpcode, auditflag_gj) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, case :uo_option_orderrqwp_auditgj when 0 then u_sc_workprice.workprice else (case u_sc_workprice.auditflag_gj when 0 then 0 else u_sc_workprice.workprice end ) end , u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, case :uo_option_orderrqwp_auditgj when 0 then u_sc_workprice.workprice else (case u_sc_workprice.auditflag_gj when 0 then 0 else u_sc_workprice.workprice end ) end , u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workqty * u_order_ml.orderqty, u_sc_workprice.u_workprice, u_sc_workprice.replacestr, u_sc_workprice.procode, u_sc_workprice.rpcode, u_sc_workprice.auditflag_gj From u_sc_workprice Inner JOIN u_Order_ml ON u_sc_workprice.Mtrlid = u_Order_ml.mtrlid LEFT Outer JOIN U_OrderRqwp AS U_OrderPro ON u_Order_ml.scid = U_OrderPro.scid And u_Order_ml.OrderID = U_OrderPro.orderid And u_Order_ml.mtrlid = U_OrderPro.Mtrlid And u_sc_workprice.procode = U_OrderPro.Procode Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And u_sc_workprice.wpcode = :wpcode And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And U_OrderPro.scid Is Null; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Else cnt_ut = 1 Declare cur_ut2 Cursor For Select distinct utcode From u_sc_workprice Where mtrlid = :mtrlid And lTrim(rtrim(utcode)) <> '' And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And u_sc_workprice.wpcode = :wpcode; Open cur_ut2; Fetch cur_ut2 Into :ls_utcode[cnt_ut]; Do While sqlca.SQLCode = 0 cnt_ut++ Fetch cur_ut2 Into :ls_utcode[cnt_ut]; Loop Close cur_ut2; cnt_ut = cnt_ut - 1 For ll_i = 1 To cnt_ut ld_workprice = 0 ld_workqty = 0 Select sum(workprice),sum(workqty),sum(u_workprice),sum(u_workqty) Into :ld_workprice,:ld_workqty,:ld_u_workprice,:ld_u_workqty From u_sc_workprice Where lTrim(rtrim(utcode)) = :ls_utcode[ll_i] And mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询组号:'+ls_utcode[ll_i]+' 合计工价,数量失败,'+sqlca.SQLErrText Goto ext End If Select top 1 u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.replacestr, u_sc_workprice.rpcode Into :ls_procode, :ls_proname, :ll_proorder, :ll_wrkgrpid, :ll_lsxtype, :ll_ifjd, :ll_lastflag, :li_sctype, :ll_equipmentid, :ls_partname, :ld_eqworkhour, :ld_Workhour, :ld_beforehour, :ld_afterhour, :ls_worktype, :ld_eq_empnum, :li_ifgroup, :ls_replacestr, :ls_rpcode From u_sc_workprice Where mtrlid = :mtrlid And utcode = :ls_utcode[ll_i] And u_sc_workprice.wpcode = :wpcode And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') Order By lastflag Desc,u_sc_workprice.proorder Desc; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询工价表组号:'+ls_utcode[ll_i]+'末工序相关信息失败'+sqlca.SQLErrText Goto ext End If ls_proname = '工序:(组:'+Trim(ls_utcode[ll_i])+')' cnt = 0 Select COUNT(0) Into :cnt From u_orderrqwp Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :mtrlid And Procode = :ls_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询现有工序进度失败,' + sqlca.SQLErrText Goto ext End If If cnt = 0 Then Insert Into u_orderrqwp (scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty, replacestr, procode_ori, rpcode) Values (:arg_scid, :arg_orderid, :mtrlid, :ls_procode, :ls_proname, :ll_proorder, :orderqty, :ll_wrkgrpid, :ll_lsxtype, :ld_workprice, :status_mode, :ll_ifjd, :ll_lastflag, :li_sctype, :ll_equipmentid, :ls_partname, :ld_eqworkhour, :ld_Workhour, :ld_beforehour, :ld_afterhour, :ld_workprice_sum, :ls_worktype, :ld_eq_empnum, :li_ifgroup, :ld_u_workprice, :ld_u_workqty, :ls_replacestr, :ls_procode, :ls_rpcode); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Else If arg_ifupdateprice Then Update u_OrderRqwp Set workprice = :ld_workprice, ori_workprice = :ld_workprice_sum Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :mtrlid And Procode = :ls_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新工序进度工价失败,' + sqlca.SQLErrText Goto ext End If End If End If Next //加空组号工序 If Not arg_ifall And arg_ifupdateprice Then Update U_OrderRqwp Set workPrice = u_sc_workprice.workPrice, ori_workprice = u_sc_workprice.workPrice From u_sc_workprice Inner JOIN U_OrderRqwp ON u_sc_workprice.Mtrlid = U_OrderRqwp.Mtrlid And u_sc_workprice.procode = U_OrderRqwp.Procode Where U_OrderRqwp.orderid = :arg_orderid And U_OrderRqwp.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And u_sc_workprice.utcode = '' And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新工价失败,' + sqlca.SQLErrText Goto ext End If End If Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty, replacestr, procode_ori, rpcode) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty, u_sc_workprice.replacestr, u_sc_workprice.procode, u_sc_workprice.rpcode From u_sc_workprice Inner JOIN u_Order_ml ON u_sc_workprice.Mtrlid = u_Order_ml.mtrlid LEFT Outer JOIN U_OrderRqwp AS U_OrderPro ON u_Order_ml.scid = U_OrderPro.scid And u_Order_ml.OrderID = U_OrderPro.orderid And u_Order_ml.mtrlid = U_OrderPro.Mtrlid And u_sc_workprice.procode = U_OrderPro.Procode Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And u_sc_workprice.utcode = '' And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And u_sc_workprice.wpcode = :wpcode And U_OrderPro.scid Is Null; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If End If Else //组合配置产品 cnt = 0 Select count(*) Into :cnt From u_sc_workprice Where mtrlid = :mtrlid And ltrim(rtrim(utcode)) <> '' And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询产品价格表是否有组号失败'+sqlca.SQLErrText Goto ext End If If uo_option_orderrqwp_union = 0 Or cnt = 0 Then // f_checkpz(status_mode,s_pz[]) f_checkpz_general(mtrlid,status_mode,s_pz[]) For ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname ld_qty_zj = Dec(s_pz[ll_i].qty) If Not arg_ifall And arg_ifupdateprice Then Update U_OrderRqwp Set workPrice = u_sc_workprice.workPrice, ori_workprice = u_sc_workprice.workPrice From u_sc_workprice Inner JOIN U_OrderRqwp ON u_sc_workprice.Mtrlid = U_OrderRqwp.Mtrlid And u_sc_workprice.procode = U_OrderRqwp.Procode Where U_OrderRqwp.orderid = :arg_orderid And U_OrderRqwp.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And (u_sc_workprice.status = :ls_status_zj) And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新工价失败,' + sqlca.SQLErrText Goto ext End If End If Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty, replacestr, procode_ori, rpcode, auditflag_gj) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, case :uo_option_orderrqwp_auditgj when 0 then u_sc_workprice.workprice else (case u_sc_workprice.auditflag_gj when 0 then 0 else u_sc_workprice.workprice end ) end , u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, case :uo_option_orderrqwp_auditgj when 0 then u_sc_workprice.workprice else (case u_sc_workprice.auditflag_gj when 0 then 0 else u_sc_workprice.workprice end ) end , u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.replacestr, u_sc_workprice.procode, u_sc_workprice.rpcode, u_sc_workprice.auditflag_gj From u_sc_workprice Inner JOIN u_Order_ml ON u_sc_workprice.Mtrlid = u_Order_ml.mtrlid LEFT Outer JOIN U_OrderRqwp AS U_OrderPro ON u_Order_ml.scid = U_OrderPro.scid And u_Order_ml.OrderID = U_OrderPro.orderid And u_Order_ml.mtrlid = U_OrderPro.Mtrlid And u_sc_workprice.procode = U_OrderPro.Procode Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And (u_sc_workprice.status = :ls_status_zj) And u_sc_workprice.wpcode = :wpcode And U_OrderPro.scid Is Null; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Next //加空子件工序(公共) If Not arg_ifall And arg_ifupdateprice Then Update U_OrderRqwp Set workPrice = u_sc_workprice.workPrice, ori_workprice = u_sc_workprice.workPrice From u_sc_workprice Inner JOIN U_OrderRqwp ON u_sc_workprice.Mtrlid = U_OrderRqwp.Mtrlid And u_sc_workprice.procode = U_OrderRqwp.Procode Where U_OrderRqwp.orderid = :arg_orderid And U_OrderRqwp.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And (u_sc_workprice.status = '') And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新工价失败,' + sqlca.SQLErrText Goto ext End If End If Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty, replacestr, procode_ori, rpcode, auditflag_gj) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, case :uo_option_orderrqwp_auditgj when 0 then u_sc_workprice.workprice else (case u_sc_workprice.auditflag_gj when 0 then 0 else u_sc_workprice.workprice end ) end , u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, case :uo_option_orderrqwp_auditgj when 0 then u_sc_workprice.workprice else (case u_sc_workprice.auditflag_gj when 0 then 0 else u_sc_workprice.workprice end ) end , u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.replacestr, u_sc_workprice.procode, u_sc_workprice.rpcode, u_sc_workprice.auditflag_gj From u_sc_workprice Inner JOIN u_Order_ml ON u_sc_workprice.Mtrlid = u_Order_ml.mtrlid LEFT Outer JOIN U_OrderRqwp AS U_OrderPro ON u_Order_ml.scid = U_OrderPro.scid And u_Order_ml.OrderID = U_OrderPro.orderid And u_Order_ml.mtrlid = U_OrderPro.Mtrlid And u_sc_workprice.procode = U_OrderPro.Procode Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And (u_sc_workprice.status = '') And u_sc_workprice.wpcode = :wpcode And U_OrderPro.scid Is Null; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序[空子件]失败,原因:'+sqlca.SQLErrText Goto ext End If Else // f_checkpz(status_mode,s_pz[]) cnt_ut = 1 f_checkpz_general(mtrlid,status_mode,s_pz[]) Declare cur_ut Cursor For Select distinct utcode From u_sc_workprice Where mtrlid = :mtrlid And lTrim(rtrim(utcode)) <> '' And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And u_sc_workprice.wpcode = :wpcode; Open cur_ut; Fetch cur_ut Into :ls_utcode[cnt_ut]; Do While sqlca.SQLCode = 0 cnt_ut++ Fetch cur_ut Into :ls_utcode[cnt_ut]; Loop Close cur_ut; cnt_ut = cnt_ut - 1 For ll_i = 1 To cnt_ut ld_workprice_sum = 0 For ll_j = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_j].cfgname ld_qty_zj = Dec(s_pz[ll_j].qty) ld_workprice = 0 ld_workqty = 0 ld_u_workprice = 0 ld_u_workqty = 0 Select workprice, workqty, u_workprice, u_workqty,pricestr, workqtystr, u_pricestr, u_workqtystr, procode Into :ld_workprice, :ld_workqty, :ld_u_workprice, :ld_u_workqty, :ls_pricestr, :ls_workqtystr, :ls_u_pricestr, :ls_u_workqtystr, :ls_procode From u_sc_workprice Where lTrim(rtrim(utcode)) = :ls_utcode[ll_i] And lTrim(rtrim(status)) = :ls_status_zj And mtrlid = :mtrlid And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询组号:'+ls_utcode[ll_i]+' 配置:'+ls_status_zj+' 工价失败,'+sqlca.SQLErrText Goto ext End If If Trim(ls_workqtystr) <> '' Then If uof_workprice_parm(mtrlid,wpcode,ls_procode,ld_workqty * ld_qty_zj,ls_workqtystr,1,ls_workqtystr_value,ld_workqty_str) = 1 Then ld_workqty = ld_workqty_str End If End If If Trim(ls_pricestr) <> '' Then If uof_workprice_parm(mtrlid,wpcode,ls_procode,ld_workqty * ld_qty_zj,ls_pricestr,0,ls_pricestr_value,ld_workprice_str) = 1 Then ld_workprice = ld_workprice_str End If End If If Trim(ls_u_workqtystr) <> '' Then If uof_workprice_parm(mtrlid,wpcode,ls_procode,ld_workqty * ld_qty_zj,ls_u_workqtystr,1,ls_u_workqtystr_value,ld_u_workqty_str) = 1 Then ld_u_workqty = ld_u_workqty_str End If End If If Trim(ls_u_pricestr) <> '' Then If uof_workprice_parm(mtrlid,wpcode,ls_procode,ld_workqty * ld_qty_zj,ls_u_pricestr,0,ls_u_pricestr_value,ld_u_workprice_str) = 1 Then ld_u_workprice = ld_u_workprice_str End If End If ld_workprice_sum = ld_workprice_sum + ld_workprice * ld_workqty * ld_qty_zj ld_u_workprice_sum = ld_u_workprice_sum + ld_u_workprice * ld_u_workqty * ld_qty_zj Next Select top 1 u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.ifgroup, u_sc_workprice.replacestr, u_sc_workprice.rpcode Into :ls_procode, :ls_proname, :ll_proorder, :ll_wrkgrpid, :ll_lsxtype, :ll_ifjd, :ll_lastflag, :li_sctype, :ll_equipmentid, :ls_partname, :ld_eqworkhour, :ld_Workhour, :ld_beforehour, :ld_afterhour, :ls_worktype, :ld_eq_empnum, :li_ifgroup, :ls_replacestr, :ls_rpcode From u_sc_workprice Where mtrlid = :mtrlid And utcode = :ls_utcode[ll_i] And u_sc_workprice.wpcode = :wpcode Order By lastflag Desc; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询工价表组号:'+ls_utcode[ll_i]+'相关信息失败'+sqlca.SQLErrText Goto ext End If cnt = 0 Select count(0) Into :cnt From u_orderrqwp Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :mtrlid And Procode = :ls_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询旧工序进度失败,' + sqlca.SQLErrText Goto ext End If If cnt = 0 Then Insert Into u_orderrqwp (scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workprice, u_workqty, replacestr, procode_ori, rpcode) Values (:arg_scid, :arg_orderid, :mtrlid, :ls_procode, :ls_proname, :ll_proorder, :orderqty, :ll_wrkgrpid, :ll_lsxtype, :ld_workprice_sum, :status_mode, :ll_ifjd, :ll_lastflag, :li_sctype, :ll_equipmentid, :ls_partname, :ld_eqworkhour, :ld_Workhour, :ld_beforehour, :ld_afterhour, :ld_workprice_sum, :ls_worktype, :ld_eq_empnum, :li_ifgroup, :ld_u_workprice_sum, :orderqty, :ls_replacestr, :ls_procode, :ls_rpcode); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Else If Not arg_ifall And arg_ifupdateprice Then Update u_orderrqwp Set workprice = :ld_workprice_sum, ori_workprice = :ld_workprice_sum Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :mtrlid And Procode = :ls_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新旧工序进度工价失败,' + sqlca.SQLErrText Goto ext End If End If End If Next //加空组号工序 For ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname ld_qty_zj = Dec(s_pz[ll_i].qty) If Not arg_ifall And arg_ifupdateprice Then Update U_OrderRqwp Set workPrice = u_sc_workprice.workPrice, ori_workprice = u_sc_workprice.workPrice From u_sc_workprice Inner JOIN U_OrderRqwp ON u_sc_workprice.Mtrlid = U_OrderRqwp.Mtrlid And u_sc_workprice.procode = U_OrderRqwp.Procode Where U_OrderRqwp.orderid = :arg_orderid And U_OrderRqwp.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (u_sc_workprice.status = :ls_status_zj) And u_sc_workprice.utcode = '' And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新工价失败,' + sqlca.SQLErrText Goto ext End If End If Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, u_workprice, u_workqty, replacestr, procode_ori, rpcode) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.replacestr, u_sc_workprice.procode, u_sc_workprice.rpcode From u_sc_workprice Inner JOIN u_Order_ml ON u_sc_workprice.Mtrlid = u_Order_ml.mtrlid LEFT Outer JOIN U_OrderRqwp AS U_OrderPro ON u_Order_ml.scid = U_OrderPro.scid And u_Order_ml.OrderID = U_OrderPro.orderid And u_Order_ml.mtrlid = U_OrderPro.Mtrlid And u_sc_workprice.procode = U_OrderPro.Procode Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (u_sc_workprice.status = :ls_status_zj) And u_sc_workprice.utcode = '' And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And u_sc_workprice.wpcode = :wpcode And U_OrderPro.scid Is Null; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If Next //加空子件工序 If Not arg_ifall And arg_ifupdateprice Then Update U_OrderRqwp Set workPrice = u_sc_workprice.workPrice, ori_workprice = u_sc_workprice.workPrice From u_sc_workprice Inner JOIN U_OrderRqwp ON u_sc_workprice.Mtrlid = U_OrderRqwp.Mtrlid And u_sc_workprice.procode = U_OrderRqwp.Procode Where U_OrderRqwp.orderid = :arg_orderid And U_OrderRqwp.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (u_sc_workprice.status = '') And u_sc_workprice.utcode = '' And u_sc_workprice.wpcode = :wpcode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新工价失败,' + sqlca.SQLErrText Goto ext End If End If Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, u_workprice, u_workqty, replacestr, procode_ori, rpcode) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workprice.procode, u_sc_workprice.proname, u_sc_workprice.proorder, u_sc_workprice.workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.wrkgrpid, u_sc_workprice.lsxtype, u_sc_workprice.workprice, u_sc_workprice.status, u_sc_workprice.ifjd, u_sc_workprice.lastflag, u_sc_workprice.sctype, u_sc_workprice.equipmentid, u_sc_workprice.partname, u_sc_workprice.eqworkhour, u_sc_workprice.Workhour, u_sc_workprice.beforehour, u_sc_workprice.afterhour, u_sc_workprice.workprice, u_sc_workprice.worktype, u_sc_workprice.eq_empnum, u_sc_workprice.u_workprice, u_sc_workprice.u_workqty * u_order_ml.orderqty * :ld_qty_zj, u_sc_workprice.replacestr, u_sc_workprice.procode, u_sc_workprice.rpcode From u_sc_workprice Inner JOIN u_Order_ml ON u_sc_workprice.Mtrlid = u_Order_ml.mtrlid LEFT Outer JOIN U_OrderRqwp AS U_OrderPro ON u_Order_ml.scid = U_OrderPro.scid And u_Order_ml.OrderID = U_OrderPro.orderid And u_Order_ml.mtrlid = U_OrderPro.Mtrlid And u_sc_workprice.procode = U_OrderPro.Procode Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workprice.ifownpro = 0 And u_sc_workprice.lsxtype <> 0 And (u_sc_workprice.status = '') And u_sc_workprice.utcode = '' And (ltrim(rtrim(u_sc_workprice.rpcode)) <> '' And u_sc_workprice.ifdftpg = 1 Or ltrim(rtrim(u_sc_workprice.rpcode)) = '') And u_sc_workprice.wpcode = :wpcode And U_OrderPro.scid Is Null; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序[空子件]失败,原因:'+sqlca.SQLErrText Goto ext End If Update U_OrderRqwp Set U_OrderRqwp.workPrice = u_sc_workprice.workPrice, U_OrderRqwp.ori_workPrice = u_sc_workprice.workPrice From U_OrderRqwp Inner JOIN u_Order_ml ON U_OrderRqwp.scid = u_Order_ml.scid And U_OrderRqwp.orderid = u_Order_ml.OrderID Inner JOIN u_sc_workprice ON u_Order_ml.mtrlid = u_sc_workprice.Mtrlid And u_Order_ml.status_mode = u_sc_workprice.status And U_OrderRqwp.Proname = u_sc_workprice.Proname And u_Order_ml.wpcode = u_sc_workprice.wpcode Where U_OrderRqwp.scid = :arg_scid And u_orderrqwp.orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If End If End If //如果按组号合并,则不再执行公式 If uo_option_orderrqwp_union = 0 Or uo_option_orderrqwp_union = 1 And cnt_ut = 0 Then ds_orderrqwp.Retrieve(arg_scid,arg_orderid,wpcode) For ll_i = 1 To ds_orderrqwp.RowCount() ls_pricestr = ds_orderrqwp.Object.u_sc_workprice_pricestr[ll_i] ll_mtrlid = ds_orderrqwp.Object.u_orderrqwp_mtrlid[ll_i] ls_procode = ds_orderrqwp.Object.u_orderrqwp_procode[ll_i] ls_worktype = ds_orderrqwp.Object.u_orderrqwp_worktype[ll_i] ld_hourpay = ds_orderrqwp.Object.hourpay[ll_i] ld_proqty = ds_orderrqwp.Object.u_orderrqwp_proqty[ll_i] ld_Workhour = ds_orderrqwp.Object.u_orderrqwp_workhour[ll_i] ld_beforehour = ds_orderrqwp.Object.u_orderrqwp_beforehour[ll_i] ld_afterhour = ds_orderrqwp.Object.u_orderrqwp_afterhour[ll_i] ld_eq_empnum = ds_orderrqwp.Object.u_orderrqwp_eq_empnum[ll_i] ld_eqworkhour = ds_orderrqwp.Object.u_orderrqwp_eqworkhour[ll_i] ls_workqtystr = ds_orderrqwp.Object.u_sc_workprice_workqtystr[ll_i] ld_workqty_ori = ds_orderrqwp.Object.u_sc_workprice_workqty[ll_i] ld_workprice_str = ds_orderrqwp.Object.u_orderrqwp_workprice[ll_i] ld_u_workqty_str = ds_orderrqwp.Object.u_orderrqwp_u_workqty[ll_i] ld_u_workprice_str = ds_orderrqwp.Object.u_orderrqwp_u_workprice[ll_i] ls_u_workqtystr = ds_orderrqwp.Object.u_sc_workprice_u_workqtystr[ll_i] ls_u_pricestr = ds_orderrqwp.Object.u_sc_workprice_u_pricestr[ll_i] ld_workqty_str = ld_proqty If ld_workqty_ori = 0 Then ld_workqty_ori = 1 ls_pricestr_ori = '' ls_pricestr_value = '' ls_workqtystr_ori = '' ls_workqtystr_value = '' //1.数量公式 If Trim(ls_workqtystr) <> '' Then ls_workqtystr_ori = ls_workqtystr uof_workprice_parm(ll_mtrlid,wpcode,ls_procode,ld_proqty,ls_workqtystr,1,ls_workqtystr_value,ld_workqty_str) ld_proqty = ld_workqty_str End If //2.单价公式 If Trim(ls_pricestr) <> '' Then ls_pricestr_ori = ls_pricestr uof_workprice_parm(ll_mtrlid,wpcode,ls_procode,ld_proqty,ls_pricestr,0,ls_pricestr_value,ld_workprice_str) Else If li_if_hourpay = 2 Then If ld_proqty > ld_splitrate And ld_splitrate <> 0 Then ld_workprice_str = (ld_splitrate * (ld_Workhour + ld_eqworkhour * ld_eq_empnum) + ld_beforehour + ld_afterhour) / ld_splitrate * ld_hourpay Else ld_workprice_str = (ld_proqty * (ld_Workhour + ld_eqworkhour * ld_eq_empnum) + ld_beforehour + ld_afterhour) / ld_proqty * ld_hourpay End If Else Goto _u_workqty End If End If //3.折算数量 _u_workqty: If Trim(ls_u_workqtystr) <> '' Then ls_u_workqtystr_ori = ls_u_workqtystr uof_workprice_parm(ll_mtrlid,wpcode,ls_procode,ld_proqty,ls_u_workqtystr,1,ls_u_workqtystr_value,ld_u_workqty_str) End If //4.折算单价 If Trim(ls_u_pricestr) <> '' Then ls_u_pricestr_ori = ls_u_pricestr uof_workprice_parm(ll_mtrlid,wpcode,ls_procode,ld_proqty,ls_u_pricestr,0,ls_u_pricestr_value,ld_u_workprice_str) End If Update u_orderrqwp Set workprice = :ld_workprice_str, ori_workprice = :ld_workprice_str, pricestr = :ls_pricestr_ori, pricestr_value = :ls_pricestr_value, proqty = :ld_workqty_str, workqtystr = :ls_workqtystr_ori, workqtystr_value = :ls_workqtystr_value, u_workqty = :ld_u_workqty_str, u_workqtystr = :ls_u_workqtystr_ori, u_workqtystr_value = :ls_u_workqtystr_value, u_workprice = :ld_u_workprice_str, u_pricestr = :ls_u_pricestr_ori, u_pricestr_value = :ls_u_pricestr_value Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :ll_mtrlid And Procode = :ls_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '按单价公式更新工序单价失败,'+sqlca.SQLErrText Goto ext End If Next End If Else it_mx_bomwp = 0 deep = 0 If uof_protype_workprice(mtrlid,pfcode,wpcode,orderqty,arg_msg) = 0 Then rslt = 0 arg_msg = '计算下级虚拟部件工价表失败,'+arg_msg Goto ext End If // DELETE FROM u_orderrqwp // WHERE orderid = :arg_orderid // And scid = :arg_scid; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "删除计划的工序明细表相应记录操作失败"+"~n"+sqlca.SQLErrText // GOTO ext // END IF // If li_protype = 1 Then // 清空原工序的工序合并说明、原工序号 Update u_orderrqwp Set pro_dscrp = '', procode_ori = '' Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '清空原工序的工序合并说明、原工序号失败,' + sqlca.SQLErrText Goto ext End If For ll_i = 1 To it_mx_bomwp // 更新原工序的工序合并说明、原工序号 Update u_orderrqwp Set pro_dscrp = case when len(pro_dscrp + ',' + :ins_s_wp[ll_i].pro_dscrp) < 255 then pro_dscrp + ',' + :ins_s_wp[ll_i].pro_dscrp else pro_dscrp End, procode_ori = :ins_s_wp[ll_i].procode Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :mtrlid And Procode = :ins_s_wp[ll_i].mtrlcode + '_' + :ins_s_wp[ll_i].Procode And (finishqty > 0 Or taskqty > 0); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新原工序的工序合并说明、原工序号失败,' + sqlca.SQLErrText Goto ext End If If sqlca.SQLNRows = 0 Then Update u_orderrqwp Set proqty = proqty + :ins_s_wp[ll_i].workqty, u_workqty = u_workqty + :ins_s_wp[ll_i].u_workqty, pro_dscrp = case when len(pro_dscrp + ',' + :ins_s_wp[ll_i].pro_dscrp) < 255 then pro_dscrp + ',' + :ins_s_wp[ll_i].pro_dscrp else pro_dscrp End Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :mtrlid And Procode = :ins_s_wp[ll_i].mtrlcode + '_' + :ins_s_wp[ll_i].Procode; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then Insert Into u_orderrqwp(scid, orderid, mtrlid, procode, proname, proorder, proqty, wrkgrpid, lsxtype, workprice, status, ifjd, lastflag, sctype, equipmentid, partname, eqworkhour, Workhour, beforehour, afterhour, ori_workprice, worktype, eq_empnum, ifgroup, u_workqty, u_workprice, pricestr, pricestr_value, procode_ori, pro_dscrp, replacestr, sonmtrlid, rpcode, auditflag_gj) Values (:arg_scid, :arg_orderid, :mtrlid, :ins_s_wp[ll_i].mtrlcode + '_' + :ins_s_wp[ll_i].procode, :ins_s_wp[ll_i].proname, :ins_s_wp[ll_i].proorder, :ins_s_wp[ll_i].workqty, :ins_s_wp[ll_i].wrkgrpid, :ins_s_wp[ll_i].lsxtype, case :uo_option_orderrqwp_auditgj when 0 then :ins_s_wp[ll_i].workprice else (case :ins_s_wp[ll_i].auditflag_gj when 0 then 0 else :ins_s_wp[ll_i].workprice end ) end , :ins_s_wp[ll_i].status, :ins_s_wp[ll_i].ifjd, :ins_s_wp[ll_i].lastflag, :ins_s_wp[ll_i].sctype, :ins_s_wp[ll_i].equipmentid, :ins_s_wp[ll_i].partname, :ins_s_wp[ll_i].eqworkhour, :ins_s_wp[ll_i].Workhour, :ins_s_wp[ll_i].beforehour, :ins_s_wp[ll_i].afterhour, case :uo_option_orderrqwp_auditgj when 0 then :ins_s_wp[ll_i].workprice else (case :ins_s_wp[ll_i].auditflag_gj when 0 then 0 else :ins_s_wp[ll_i].workprice end ) end , :ins_s_wp[ll_i].worktype, :ins_s_wp[ll_i].eq_empnum, :ins_s_wp[ll_i].ifgroup, :ins_s_wp[ll_i].u_workqty, :ins_s_wp[ll_i].u_workprice, :ins_s_wp[ll_i].pricestr, :ins_s_wp[ll_i].pricestr_value, :ins_s_wp[ll_i].procode, :ins_s_wp[ll_i].pro_dscrp, :ins_s_wp[ll_i].replacestr, :ins_s_wp[ll_i].sonmtrlid, :ins_s_wp[ll_i].rpcode, :ins_s_wp[ll_i].auditflag_gj); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If End If Else If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新生产计划工序失败,原因:'+sqlca.SQLErrText Goto ext End If End If Else If Not arg_ifall And arg_ifupdateprice Then Update u_orderrqwp Set workprice = :ins_s_wp[ll_i].workprice, ori_workprice = :ins_s_wp[ll_i].workprice, auditflag_gj = :ins_s_wp[ll_i].auditflag_gj Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :mtrlid And Procode = :ins_s_wp[ll_i].mtrlcode + '_' + :ins_s_wp[ll_i].Procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新旧工序进度工价失败,' + sqlca.SQLErrText Goto ext End If End If End If Next ElseIf li_protype = 2 Then // s_workpricetable s_wp_union[] // Long ll_wp_union // // FOR ll_i = 1 To it_mx_bomwp // FOR ll_j = 1 To ll_wp_union // IF ins_s_wp[ll_i].Procode = s_wp_union[ll_j].Procode THEN // s_wp_union[ll_j].workprice_bom = s_wp_union[ll_j].workprice_bom + ins_s_wp[ll_i].workprice_bom // IF lena(s_wp_union[ll_j].pro_dscrp + ',' + ins_s_wp[ll_i].pro_dscrp) > 255 THEN // s_wp_union[ll_j].pro_dscrp = leftA(s_wp_union[ll_j].pro_dscrp + ',' + ins_s_wp[ll_i].pro_dscrp,255) // ELSE // s_wp_union[ll_j].pro_dscrp = s_wp_union[ll_j].pro_dscrp + ',' + ins_s_wp[ll_i].pro_dscrp // END IF // GOTO _next_wp // END IF // NEXT // // ll_wp_union++ // // s_wp_union[ll_wp_union].Procode = ins_s_wp[ll_i].Procode // s_wp_union[ll_wp_union].proname = ins_s_wp[ll_i].proname // s_wp_union[ll_wp_union].proorder = ins_s_wp[ll_i].proorder // s_wp_union[ll_wp_union].workqty = ins_s_wp[ll_i].workqty // s_wp_union[ll_wp_union].wrkgrpid = ins_s_wp[ll_i].wrkgrpid // s_wp_union[ll_wp_union].lsxtype = ins_s_wp[ll_i].lsxtype // s_wp_union[ll_wp_union].workPrice = ins_s_wp[ll_i].workPrice // s_wp_union[ll_wp_union].status = ins_s_wp[ll_i].status // s_wp_union[ll_wp_union].ifjd = ins_s_wp[ll_i].ifjd // s_wp_union[ll_wp_union].lastflag = ins_s_wp[ll_i].lastflag // s_wp_union[ll_wp_union].sctype = ins_s_wp[ll_i].sctype // s_wp_union[ll_wp_union].equipmentid = ins_s_wp[ll_i].equipmentid // s_wp_union[ll_wp_union].partname = ins_s_wp[ll_i].partname // s_wp_union[ll_wp_union].eqworkhour = ins_s_wp[ll_i].eqworkhour // s_wp_union[ll_wp_union].Workhour = ins_s_wp[ll_i].Workhour // s_wp_union[ll_wp_union].beforehour = ins_s_wp[ll_i].beforehour // s_wp_union[ll_wp_union].afterhour = ins_s_wp[ll_i].afterhour // s_wp_union[ll_wp_union].workPrice = ins_s_wp[ll_i].workPrice // s_wp_union[ll_wp_union].worktype = ins_s_wp[ll_i].worktype // s_wp_union[ll_wp_union].eq_empnum = ins_s_wp[ll_i].eq_empnum // s_wp_union[ll_wp_union].ifgroup = ins_s_wp[ll_i].ifgroup // s_wp_union[ll_wp_union].u_workqty = ins_s_wp[ll_i].u_workqty // s_wp_union[ll_wp_union].u_workprice = ins_s_wp[ll_i].u_workprice // s_wp_union[ll_wp_union].workprice_bom = ins_s_wp[ll_i].workprice_bom // s_wp_union[ll_wp_union].pricestr = '' // s_wp_union[ll_wp_union].pricestr_value = '' // s_wp_union[ll_wp_union].pro_dscrp = ins_s_wp[ll_i].pro_dscrp // s_wp_union[ll_wp_union].replacestr = ins_s_wp[ll_i].replacestr // // _next_wp: // NEXT // // FOR ll_i = 1 To ll_wp_union // // UPDATE u_orderrqwp // SET procode_ori = :s_wp_union[ll_i].procode, // pro_dscrp = :s_wp_union[ll_i].pro_dscrp // WHERE scid = :arg_scid // AND orderid = :arg_orderid // AND mtrlid = :mtrlid // And Procode = :s_wp_union[ll_i].Procode; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '更新原工序进度工序合并说明、原工序号失败' + sqlca.SQLErrText // GOTO ext // END IF // IF sqlca.SQLNRows = 0 THEN // INSERT INTO u_orderrqwp(scid, // orderid, // mtrlid, // procode, // proname, // proorder, // proqty, // wrkgrpid, // lsxtype, // workprice, // status, // ifjd, // lastflag, // sctype, // equipmentid, // partname, // eqworkhour, // Workhour, // beforehour, // afterhour, // ori_workprice, // worktype, // eq_empnum, // ifgroup, // u_workqty, // u_workprice, // pricestr, // pricestr_value, // procode_ori, // pro_dscrp, // replacestr) // VALUES ( :arg_scid, // :arg_orderid, // :mtrlid, // :s_wp_union[ll_i].procode, // :s_wp_union[ll_i].proname, // :s_wp_union[ll_i].proorder, // :orderqty, // :s_wp_union[ll_i].wrkgrpid, // :s_wp_union[ll_i].lsxtype, // :s_wp_union[ll_i].workprice_bom, // :s_wp_union[ll_i].status, // :s_wp_union[ll_i].ifjd, // :s_wp_union[ll_i].lastflag, // :s_wp_union[ll_i].sctype, // :s_wp_union[ll_i].equipmentid, // :s_wp_union[ll_i].partname, // :s_wp_union[ll_i].eqworkhour, // :s_wp_union[ll_i].Workhour, // :s_wp_union[ll_i].beforehour, // :s_wp_union[ll_i].afterhour, // :s_wp_union[ll_i].workprice_bom, // :s_wp_union[ll_i].worktype, // :s_wp_union[ll_i].eq_empnum, // :s_wp_union[ll_i].ifgroup, // :orderqty, // :s_wp_union[ll_i].workprice_bom, // :s_wp_union[ll_i].pricestr, // :s_wp_union[ll_i].pricestr_value, // :s_wp_union[ll_i].procode, // :s_wp_union[ll_i].pro_dscrp, // :s_wp_union[ll_i].replacestr); // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '增加生产计划工序失败,原因:'+sqlca.SQLErrText // GOTO ext // END IF // ELSE // IF Not arg_ifall And arg_ifupdateprice THEN // UPDATE u_orderrqwp // SET workprice = :s_wp_union[ll_i].workprice_bom, // ori_workprice = :s_wp_union[ll_i].workprice_bom // WHERE scid = :arg_scid // AND orderid = :arg_orderid // AND mtrlid = :mtrlid // And Procode = :s_wp_union[ll_i].Procode; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '更新原工序进度工价失败' + sqlca.SQLErrText // GOTO ext // END IF // END IF // END IF // NEXT End If End If //更新默认替代工序 String arg_replacestr,ls_str_dft,ls_price Decimal ld_price ds_replacestr.Retrieve(arg_scid,arg_orderid) For ll_i = 1 To ds_replacestr.RowCount() ll_mtrlid = ds_replacestr.Object.u_orderrqwp_mtrlid[ll_i] ls_procode = ds_replacestr.Object.u_orderrqwp_procode[ll_i] arg_replacestr = ds_replacestr.Object.u_orderrqwp_replacestr[ll_i] ls_str_dft = Mid(arg_replacestr,Pos(arg_replacestr,'(默认)') + Len('(默认)'), Pos(arg_replacestr,':',Pos(arg_replacestr,'(默认)')) - (Pos(arg_replacestr,'(默认)') + Len('(默认)') )) ls_price = Mid(arg_replacestr,Pos(arg_replacestr,ls_str_dft)+Len(ls_str_dft) + 1, Pos(arg_replacestr,';',Pos(arg_replacestr,ls_str_dft)) - Pos(arg_replacestr,':',Pos(arg_replacestr,ls_str_dft)) - 1) If Trim(ls_str_dft) = '' Then Continue If IsNumber(ls_price) = False Then Continue ld_price = Dec(ls_price) Update u_orderrqwp Set replace_proname = :ls_str_dft, workprice = :ld_price Where scid = :arg_scid And orderid = :arg_orderid And mtrlid = :ll_mtrlid And Procode = :ls_procode; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新派工状态失败,原因:'+sqlca.SQLErrText Goto ext End If Next Update u_order_ml Set u_Order_ml.sctaskflag = isnull(uv_sc_task_qty_flag.sctaskflag, '') From u_Order_ml LEFT Outer JOIN uv_sc_task_qty_flag ON u_Order_ml.scid = uv_sc_task_qty_flag.scid And u_Order_ml.OrderID = uv_sc_task_qty_flag.OrderID Where u_Order_ml.scid = :arg_scid And u_order_ml.orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新派工状态失败,原因:'+sqlca.SQLErrText Goto ext End If // If arg_ifproaudit = 1 Then Update u_order_ml Set proauditflag = 1, proauditemp = :publ_operator, proauditdate = getdate() Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '工序进度确认标志失败,' + sqlca.SQLErrText Goto ext End If End If ext: If rslt = 0 Then Rollback; p_reset() ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Destroy ds_pricestr Destroy ds_orderrqwp Destroy ds_parm Return rslt end function public function integer uof_order_add_wkp (long arg_scid, long arg_orderid, ref string arg_msg, boolean arg_ifcommit, integer arg_if_olddate);Int rslt = 1 Decimal ld_finishqty Long ll_dftwrkgrpid,ll_ordertype DateTime ldt_tmp Long ll_wrkgrpid[],ll_owrkgrpid[] String ls_wkpname[] Long ll_ifjd[],ll_workgroupid[] DateTime ld_requiredate[],ld_begindate[] String ls_dscrp[] Decimal ll_lastdays[],ld_lasthour[] Decimal ld_orderqty[],ld_uprate[] Long ll_rel_planid[],ll_rel_planprintid[] DateTime ld_minbdate[] Long i,cnt Long ll_i,ll_j s_mtrlcfg_expr s_pz[] String ls_status_zj Decimal ld_qty_zj Long ll_statusflag Long ll_swkpid,ll_owkpid String ls_wkpname_s Decimal ld_workhour,ld_beforehour,ld_afterhour uo_order_wkp_jd uo_jd uo_jd = Create uo_order_wkp_jd datastore ds_mx ds_mx = Create datastore ds_mx.DataObject = 'ds_mtrl_wkp_mx' ds_mx.SetTransObject(sqlca) If uo_option_order_ml_add_use_wkp = -1000 Then rslt = 0 arg_msg = '选项:[186]生产计划新建时显示工作量,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_auto_wrkdate = -1000 Then rslt = 0 arg_msg = '选项:[126]生产计划,生产指令自动计算工组开始日期,结束日期,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_use_sc_date = -1000 Then rslt = 0 arg_msg = '选项:[180]工组进度按小时统计,读取初始默认值失败,操作取消!' Goto ext End If If arg_orderid = 0 Then rslt = 0 arg_msg = "没有审核对象" Goto ext End If If p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 Then rslt = 0 Goto ext End If Select ordertype, dftwrkgrpid, statusflag Into :ll_ordertype, :ll_dftwrkgrpid, :ll_statusflag From u_mtrldef Where mtrlid = :mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料信息失败,'+sqlca.SQLErrText Goto ext End If If (ordertype <> 4 And ll_ordertype = 1) Then rslt = 1 Goto ext End If //yyx20120912 If outscllflag = 0 Then rslt = 1 Goto ext End If // If uo_option_order_ml_add_use_wkp = 0 Then If status <> 1 And status <> 4 And status <> 7 Then rslt = 0 arg_msg = "计划只有在在进行状态才可以执行重新生成工组进度,请核对" Goto ext End If End If If wrkGrpid <> ll_dftwrkgrpid Then rslt = 1 arg_msg = '生产指令单或生产计划的车间与计划物料默认的生产车间不一致,不能生成工组进度' Goto ext End If Select sum(finishqty) Into :ld_finishqty From u_OrderMtrl_workgroup Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询计划是否已交接操作失败"+"~n"+sqlca.SQLErrText Goto ext End If If IsNull(ld_finishqty) Then ld_finishqty = 0 If ld_finishqty > 0 Then arg_msg = '计划已有交接数,不能重新生成工组进度' rslt = 0 Goto ext End If Select count(*) Into :cnt From u_order_planmx Where scid = :arg_scid And orderid = :arg_orderid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询计划是否已开工组派工单操作失败"+"~n"+sqlca.SQLErrText Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = "计划已开工组派工单操作,不能重新生成工组进度" Goto ext End If i = 1 //arg_if_olddate 是否保留原开始结束日期及周期参数 0-保留 1-清空,重新生成 If arg_if_olddate = 1 Then Declare cur_wrkmx Cursor For Select wrkgrpid, owrkgrpid, wkpname, ifjd, lastdays, lasthour, requiredate, dscrp, begindate, workgroupid, rel_planid, rel_planprintid, uprate, minbdate From u_OrderMtrl_workgroup Where orderid = :arg_orderid And scid = :arg_scid; Open cur_wrkmx; Fetch cur_wrkmx Into :ll_wrkgrpid[i],:ll_owrkgrpid[i], :ls_wkpname[i],:ll_ifjd[i],:ll_lastdays[i],:ld_lasthour[i],:ld_requiredate[i], :ls_dscrp[i],:ld_begindate[i],:ll_workgroupid[i], :ll_rel_planid[i],:ll_rel_planprintid[i],:ld_uprate[i],:ld_minbdate[i]; Do While sqlca.SQLCode = 0 i++ Fetch cur_wrkmx Into :ll_wrkgrpid[i],:ll_owrkgrpid[i], :ls_wkpname[i],:ll_ifjd[i],:ll_lastdays[i],:ld_lasthour[i],:ld_requiredate[i], :ls_dscrp[i],:ld_begindate[i],:ll_workgroupid[i], :ll_rel_planid[i],:ll_rel_planprintid[i],:ld_uprate[i],:ld_minbdate[i]; Loop Close cur_wrkmx; cnt = i - 1 End If Delete From u_OrderMtrl_workgroup Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除计划的交接明细表相应记录操作失败"+"~n"+sqlca.SQLErrText Goto ext End If Insert Into u_ordermtrl_workgroup (scid, orderid, mtrlid, wrkgrpid, owrkgrpid, orderqty, lastdays, ifjd, wkpname, printid, iflast, groupstr, lp, printlp, lasthour, workgroupid, beforehour, afterhour, workhour, gydscrp, uprate, ifgroup) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_mtrl_wkp.swkpid, u_mtrl_wkp.owkpid, u_order_ml.orderqty, case when :Level = 0 then u_mtrl_wkp.minlasthour / 8 else u_mtrl_wkp.lastdays End , 1, u_mtrl_wkp.wkpname, u_mtrl_wkp.printid, u_mtrl_wkp.iflast, u_mtrl_wkp.groupstr, u_mtrl_wkp.lp, u_mtrl_wkp.printlp, case when :Level = 0 then u_mtrl_wkp.minlasthour else u_mtrl_wkp.lasthour End , u_mtrl_wkp.workgroupid, u_mtrl_wkp.beforehour, u_mtrl_wkp.afterhour, u_mtrl_wkp.workhour, u_mtrl_wkp.gydscrp, u_mtrl_wkp.uprate, u_mtrl_wkp.ifgroup From u_mtrl_wkp,u_order_ml Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_mtrl_wkp.mtrlid = u_order_ml.mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '从物料生产流程加入生产计划车间失败,原因:'+sqlca.SQLErrText Goto ext End If If ordertype <> 4 Then Insert Into u_ordermtrl_workgroup (scid, orderid, mtrlid, wrkgrpid, owrkgrpid, orderqty, lastdays, ifjd, printid, groupstr, lp, printlp, uprate, ifgroup) Select u_order_ml.scid, u_order_ml.orderid, u_order_ml.mtrlid, u_sc_workgroup.wrkgrpid, 0, u_order_ml.orderqty, 0,0,1000,'',0,0,0,0 From u_sc_workgroup,u_order_ml Where u_order_ml.orderid = :arg_orderid And u_order_ml.scid = :arg_scid And u_sc_workgroup.ifprint = 1 And u_sc_workgroup.ifjj = 1 And u_sc_workgroup.wrkGrpid Not In (Select u_mtrl_wkp.swkpid From u_mtrl_wkp Where u_mtrl_wkp.mtrlid = :mtrlid) ; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '从车间资料加入工生产计划车间失败,原因:'+sqlca.SQLErrText Goto ext End If End If If ll_statusflag = 2 Then f_checkpz(status_mode,s_pz[]) For ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname ld_qty_zj = Dec(s_pz[ll_i].qty) ds_mx.Retrieve(mtrlid,ls_status_zj) For ll_j = 1 To ds_mx.RowCount() ll_owkpid = ds_mx.Object.u_mtrl_wkp_mx_owkpid[ll_j] ll_swkpid = ds_mx.Object.u_mtrl_wkp_mx_swkpid[ll_j] ls_wkpname_s = ds_mx.Object.u_mtrl_wkp_mx_wkpname[ll_j] ld_workhour = ds_mx.Object.u_mtrl_wkp_mx_workhour[ll_j] ld_beforehour = ds_mx.Object.u_mtrl_wkp_mx_beforehour[ll_j] ld_afterhour = ds_mx.Object.u_mtrl_wkp_mx_afterhour[ll_j] Update u_OrderMtrl_workgroup Set workhour = workhour + :ld_workhour * :ld_qty_zj, beforehour = beforehour + :ld_beforehour * :ld_qty_zj, afterhour = afterhour + :ld_afterhour * :ld_qty_zj Where orderid = :arg_orderid And scid = :arg_scid And wrkgrpid = :ll_swkpid And owrkgrpid = :ll_owkpid And wkpname = :ls_wkpname_s; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '从工艺流程配置明细更新生产计划工艺进度失败,原因:'+sqlca.SQLErrText Goto ext End If Next Next End If If uof_update_minbdate(arg_scid,arg_orderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If Long l_wrkgrpid[],l_owrkgrpid[],l_ifjd[],l_printid[] Decimal l_lastdays[],l_lasthour[] String l_wkpname[],l_groupstr[] Long j,cnt_2,ll_count DateTime ld_sdate,ld_edate,ld_update_edate DateTime ld_sdate_max Decimal ld_resthour,ld_resthour_e Int li_timehour Int li_rdate Decimal ld_resthour_tmp DateTime ld_workdate_tmp Long l_printid_gr[] String l_groupstr_gr[] Long cnt_gr DateTime ld_sdate_gr[] Long k Boolean lb_if_find = False String ls_arg_date If uo_option_auto_wrkdate = 1 Then Select orderdate Into :ld_sdate_max From u_order_ml Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询生产计划或指令单计划开始日期失败'+sqlca.SQLErrText Goto ext End If ld_sdate_max = DateTime(Date(ld_sdate_max),Time('8:00:00')) If uof_order_cmp_wrk_date(arg_scid,arg_orderid,ld_sdate_max,arg_msg,False) = 0 Then arg_msg = '计算工组日期失败,'+arg_msg rslt = 0 Goto ext End If End If //更新要求完成日期 If arg_if_olddate = 1 Then For ll_i = 1 To cnt Update u_ordermtrl_workgroup Set ifjd = :ll_ifjd[ll_i], requiredate = :ld_requiredate[ll_i], begindate = :ld_begindate[ll_i], OriBegindate = :ld_begindate[ll_i], OriRequiredate = :ld_requiredate[ll_i], lastdays = :ll_lastdays[ll_i], lasthour = :ld_lasthour[ll_i], dscrp = :ls_dscrp[ll_i], rel_planid = :ll_rel_planid[ll_i], rel_planprintid = :ll_rel_planprintid[ll_i] Where orderid = :arg_orderid And scid = :arg_scid And wrkgrpid = :ll_wrkgrpid[ll_i] And owrkgrpid = :ll_owrkgrpid[ll_i] And wkpname = :ls_wkpname[ll_i]; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '更新要求完成时间失败,原因:'+sqlca.SQLErrText Goto ext End If Next End If If uo_cmp_datediff_wrk(arg_scid,arg_orderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If //按日期加入进度表 Delete From u_ordermtrl_wrk_jd Where orderid = :arg_orderid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "删除工组工作量明细表相应记录操作失败"+"~n"+sqlca.SQLErrText Goto ext End If j = 1 Declare cur_wrkmx_jd Cursor For Select wrkgrpid, owrkgrpid, wkpname, requiredate, begindate, orderqty, workgroupid From u_OrderMtrl_workgroup Where orderid = :arg_orderid And scid = :arg_scid; Open cur_wrkmx_jd; Fetch cur_wrkmx_jd Into :ll_wrkgrpid[j],:ll_owrkgrpid[j], :ls_wkpname[j],:ld_requiredate[j],:ld_begindate[j],:ld_orderqty[j], :ll_workgroupid[j]; Do While sqlca.SQLCode = 0 j++ Fetch cur_wrkmx_jd Into :ll_wrkgrpid[j],:ll_owrkgrpid[j], :ls_wkpname[j],:ld_requiredate[j],:ld_begindate[j],:ld_orderqty[j], :ll_workgroupid[j]; Loop Close cur_wrkmx_jd; cnt = j - 1 Long ll_DaysAfter DateTime ldt_wrkdate Decimal ld_order_wrk For ll_i = 1 To cnt ll_DaysAfter = DaysAfter(Date(ld_begindate[ll_i]), Date(ld_requiredate[ll_i])) If ll_DaysAfter + 1 <> 0 Then ld_order_wrk = ld_orderqty[ll_i] / (ll_DaysAfter + 1) For ll_j = 1 To ll_DaysAfter + 1 ldt_wrkdate = DateTime(RelativeDate(Date(ld_begindate[ll_i]),ll_j - 1 ),Time(0)) Insert Into u_ordermtrl_wrk_jd (scid, orderid, wrkgrpid, owrkgrpid, wkpname, wrkdate, orderqty, workgroupid) Values (:arg_scid, :arg_orderid, :ll_wrkgrpid[ll_i], :ll_owrkgrpid[ll_i], :ls_wkpname[ll_i], :ldt_wrkdate, :ld_order_wrk, :ll_workgroupid[ll_i]); If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "插入工组工作量明细表失败"+"~n"+sqlca.SQLErrText Goto ext End If Next End If Next //if uof_auto_order_plan(arg_scid,arg_orderid,arg_msg,false) = 0 then // rslt = 0 // goto ext //end if If uo_jd.uof_order_add_wrk_jd(arg_scid,arg_orderid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If ext: If rslt = 0 Then Rollback; p_reset() ElseIf arg_ifcommit And rslt = 1 Then Commit; End If Destroy uo_jd Destroy ds_mx Return rslt end function public function integer addmxcmpl_rqacmpqty (long arg_scid, long arg_orderid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 Dec ld_orderqty,ld_rqacmpqty String ls_mtrlname rslt = p_getinfo(arg_scid,arg_orderid, arg_msg) IF rslt = 0 THEN GOTO ext IF arg_addqty = 0 THEN arg_msg = '没有完成数量' rslt = 0 GOTO ext END IF IF status <> 1 THEN rslt = 0 arg_msg = "计划["+ordercode+"]只有在进行状态下才可以执行操作" GOTO ext END IF SELECT mtrlname INTO :ls_mtrlname FROM u_mtrldef,u_order_ml WHERE u_order_ml.orderid = :arg_orderid AND u_order_ml.scid = :arg_scid And u_mtrldef.mtrlid = u_order_ml.mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询产品操作失败" GOTO ext END IF //检查是否完成 SELECT orderqty,rqacmpqty INTO :ld_orderqty,:ld_rqacmpqty FROM u_order_ml WHERE ( orderid = :arg_orderid ) And ( scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询计划数和已申购数量操作失败" GOTO ext END IF IF status = 1 THEN IF ld_orderqty < arg_addqty + ld_rqacmpqty THEN rslt = 0 arg_msg = '该计划明细产品:'+ls_mtrlname+',未申购数'+String(ld_orderqty - ld_rqacmpqty,'#,##0.00##' )+'小于本次申购数' GOTO ext END IF END IF UPDATE u_order_ml SET rqacmpqty = rqacmpqty + :arg_addqty WHERE ( orderid = :arg_orderid ) And ( scid = :arg_scid ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新生产计划完成数量操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF p_reset() Return (rslt) end function public function integer addmx_sptcheckqty (long arg_scid, long arg_orderid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 //IF uo_option_ifovertask = -1000 THEN // rslt = 0 // arg_msg = '选项:[010]超采购,外协订单收货,读取初始默认值失败,操作取消!' // GOTO ext //END IF IF arg_orderid <= 0 THEN rslt = 0 arg_msg = '错误指令单唯一码' GOTO ext END IF IF arg_addqty = 0 THEN rslt = 1 GOTO ext END IF IF p_getinfo(arg_scid,arg_orderid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 And status <> 5 THEN rslt = 0 IF status <> 1 THEN arg_msg = "指令单只有在进行状态下才可以执行质检" ELSEIF status <> 5 THEN arg_msg = "指令单只有在完成状态下才可以撤销质检" END IF GOTO ext END IF Decimal ld_qty,ld_sptcheckqty Long ll_mtrlid String ls_mtrlcode Decimal ld_uprate,ld_upqty,ld_stopqty SELECT u_mtrldef.mtrlcode, u_order_ml.orderqty, u_order_ml.sptcheckqty, u_order_ml.stopqty, u_order_ml.mtrlid INTO :ls_mtrlcode, :ld_qty, :ld_sptcheckqty, :ld_stopqty, :ll_mtrlid FROM u_mtrldef,u_order_ml WHERE u_mtrldef.mtrlid = u_order_ml.mtrlid AND u_order_ml.scid = :arg_scid AND u_order_ml.orderid = :arg_orderid Using sqlca; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细物料编码失败,'+sqlca.SQLErrText GOTO ext END IF //IF uo_option_ifovertask = 1 THEN //不允许超收 IF ld_qty < ld_sptcheckqty + arg_addqty + ld_stopqty THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+"未质检数量只有"+String(ld_qty - ld_sptcheckqty - ld_stopqty,'#,##0.0#########')+",不能质检"+String(arg_addqty,'#,##0.0#########') GOTO ext END IF //ELSEIF uo_option_ifovertask = 3 THEN //允许超收但按比例限制 // SELECT uprate , upqty // INTO :ld_uprate,:ld_upqty // FROM u_mtrldef // Where mtrlid = :ll_mtrlid; // IF sqlca.SQLCode <> 0 THEN // arg_msg = '查询物料:'+Trim(ls_mtrlcode)+'超收货比例失败,'+sqlca.SQLErrText // rslt = 0 // GOTO ext // END IF // // IF ld_qty * (1 + ld_uprate) + ld_upqty < ld_sptcheckqty + arg_addqty + ld_stopqty THEN // rslt = 0 // arg_msg = "物料:"+ls_mtrlcode+"未完成数量只有"+String(ld_qty - ld_sptcheckqty - ld_stopqty, '#,##0.0#########')+"允许超收上限:"+String(ld_qty * (1 + ld_uprate) + ld_upqty - ld_sptcheckqty - ld_stopqty,'#,##0.0#########')+",不能入库"+String(arg_addqty,'#,##0.0#########') // GOTO ext // END IF // //END IF IF arg_addqty < 0 And arg_addqty + ld_sptcheckqty < 0 THEN rslt = 0 arg_msg = "物料:"+ls_mtrlcode+"已质检数量只有"+String(ld_sptcheckqty, '#,##0.0###')+",不能撤审质检数量"+String(arg_addqty,'#,##0.0#########') GOTO ext END IF UPDATE u_order_ml SET sptcheckqty = sptcheckqty + :arg_addqty WHERE ( u_order_ml.orderid = :arg_orderid ) AND ( u_order_ml.scid = :arg_scid) Using sqlca; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致指令单完成数量操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK Using sqlca; ELSEIF arg_ifcommit THEN COMMIT Using sqlca; END IF p_reset() Return (rslt) end function on uo_order_ml.create call super::create TriggerEvent( this, "constructor" ) end on on uo_order_ml.destroy TriggerEvent( this, "destructor" ) call super::destroy end on event constructor;arg_msg_str = '' String str_optionvalue,arg_msg f_get_sys_option_value('230',str_optionvalue,arg_msg) uo_option_if_oa_order_ml = Long(str_optionvalue) f_get_sys_option_value('225',str_optionvalue,arg_msg) uo_option_order_ml_secaudit = Long(str_optionvalue) f_get_sys_option_value('231',str_optionvalue,arg_msg) uo_option_if_oa_order_zl = Long(str_optionvalue) f_get_sys_option_value('226',str_optionvalue,arg_msg) uo_option_order_ml_zl_secaudit = Long(str_optionvalue) f_get_sys_option_value('074',str_optionvalue,arg_msg) uo_option_order_bh_use_yc = Long(str_optionvalue) f_get_sys_option_value('013',str_optionvalue,arg_msg) uo_option_def_bom = Long(str_optionvalue) f_get_sys_option_value('143',str_optionvalue,arg_msg) uo_option_order_mtrlware = Long(str_optionvalue) f_get_sys_option_value('138',str_optionvalue,arg_msg) uo_option_inware_mtrlcuscode = Long(str_optionvalue) f_get_sys_option_value('222',str_optionvalue,arg_msg) uo_option_order_ml_save_reccl = Long(str_optionvalue) f_get_sys_option_value('186',str_optionvalue,arg_msg) uo_option_order_ml_add_use_wkp = Long(str_optionvalue) f_get_sys_option_value('112',str_optionvalue,arg_msg) uo_option_ifovertask_cp = Long(str_optionvalue) f_get_sys_option_value('202',str_optionvalue,arg_msg) uo_option_if_taskwork_acmpqty = Long(str_optionvalue) f_get_sys_option_value('047',str_optionvalue,arg_msg) uo_option_ml_wkp = Long(str_optionvalue) f_get_sys_option_value('126',str_optionvalue,arg_msg) uo_option_auto_wrkdate = Long(str_optionvalue) f_get_sys_option_value('180',str_optionvalue,arg_msg) uo_option_use_sc_date = Long(str_optionvalue) f_get_sys_option_value('061',str_optionvalue,arg_msg) uo_option_unite_order_ml = Long(str_optionvalue) f_get_sys_option_value('071',str_optionvalue,arg_msg) uo_option_unite_order_ml_zl = Long(str_optionvalue) f_get_sys_option_value('065',str_optionvalue,arg_msg) uo_option_order_ml_scll_secaudit = Long(str_optionvalue) f_get_sys_option_value('054',str_optionvalue,arg_msg) uo_option_autocreate_buy = Long(str_optionvalue) f_get_sys_option_value('068',str_optionvalue,arg_msg) uo_option_autocreate_wfjg = Long(str_optionvalue) f_get_sys_option_value('012',str_optionvalue,arg_msg) uo_option_def_workprice = Long(str_optionvalue) f_get_sys_option_value('148',str_optionvalue,arg_msg) uo_option_orderrqwp_union = Long(str_optionvalue) f_get_sys_option_value('111',str_optionvalue,arg_msg) uo_option_requestbuy_hz = Long(str_optionvalue) //f_get_sys_option_value('080',str_optionvalue,arg_msg) //uo_option_scll_rate = Long(str_optionvalue) // f_get_sys_option_value('160',str_optionvalue,arg_msg) uo_option_skl_overscll = Long(str_optionvalue) f_get_sys_option_value('197',str_optionvalue,arg_msg) uo_option_skl_overscll_rate = Long(str_optionvalue) f_get_sys_option_value('159',str_optionvalue,arg_msg) uo_option_use_suliao = Long(str_optionvalue) f_get_sys_option_value('161',str_optionvalue,arg_msg) uo_option_management_cost = Long(str_optionvalue) f_get_sys_option_value('162',str_optionvalue,arg_msg) uo_option_ect_price = Long(str_optionvalue) f_get_sys_option_value('073',str_optionvalue,arg_msg) uo_option_order_ml_use_zl = Long(str_optionvalue) f_get_sys_option_value('233',str_optionvalue,arg_msg) uo_option_use_workgroup_tree = Long(str_optionvalue) f_get_sys_option_value('234',str_optionvalue,arg_msg) uo_option_scllaudit_autobuild = Long(str_optionvalue) f_get_sys_option_value('239',str_optionvalue,arg_msg) uo_option_def_mtrlwkp = Long(str_optionvalue) f_get_sys_option_value('245',str_optionvalue,arg_msg) uo_option_scllaudit_autobuild_tech = Long(str_optionvalue) f_get_sys_option_value('255',str_optionvalue,arg_msg) uo_option_auto_finish_zl = Long(str_optionvalue) f_get_sys_option_value('270',str_optionvalue,arg_msg) uo_option_update_lockdateflag = Long(str_optionvalue) f_get_sys_option_value('289',str_optionvalue,arg_msg) uo_option_packpro2_not_use_pack1 = Long(str_optionvalue) f_get_sys_option_value('304',str_optionvalue,arg_msg) uo_option_order_capacity = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('313',str_optionvalue,arg_msg) uo_option_order_ml_zl_checkdate = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('316',str_optionvalue,arg_msg) uo_option_order_zl_3_day = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('121',str_optionvalue,arg_msg) uo_option_requestwfjg_hz = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('333',str_optionvalue,arg_msg) uo_option_zlmtrlchange_wx_update_rqwfjg = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('340',str_optionvalue,arg_msg) uo_option_ifpackpro2_if_no_pack2 = Long(str_optionvalue) SELECT wrkgrpid INTO :ins_produce_wrkgrpid_bj FROM u_sc_wkp Where ifbj = 1; IF sqlca.SQLCode <> 0 THEN ins_produce_wrkgrpid_bj = 0 END IF str_optionvalue = '' f_get_sys_option_value('379',str_optionvalue,arg_msg) uo_option_scll_back_check = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('383',str_optionvalue,arg_msg) uo_option_autostop_porder = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('388',str_optionvalue,arg_msg) uo_option_bujian_notmrpqty = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('398',str_optionvalue,arg_msg) uo_option_orderrqwp_auditgj = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('403',str_optionvalue,arg_msg) uo_option_order_zl_auto_getbar = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('417',str_optionvalue,arg_msg) uo_option_canpack_ifzanyong = Long(str_optionvalue) end event