$PBExportHeader$uo_mtrldef.sru forward global type uo_mtrldef from nonvisualobject end type end forward global type uo_mtrldef from nonvisualobject end type global uo_mtrldef uo_mtrldef type variables Long uo_mtrlid int uo_option_use_suliao,uo_option_use_machining_ll string uo_option_change_status,uo_option_change_woodcode,uo_option_change_pcode int uo_option_inout_type end variables forward prototypes public function integer uof_del_mtrl (long arg_mtrlid, ref string arg_msg, boolean arg_ifcommit) public function integer uo_add_mtrl_storage (long arg_mtrlid, long arg_storageid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_code_find (long arg_id, string arg_code, ref string arg_msg) public function integer uof_update_configure2 (long arg_mtrlid, s_mtrl_configure_array arg_s_config, boolean arg_ifcommit, ref string arg_msg) public function integer uof_add_skmtrl (long arg_mtrlid, string arg_mtrlcode, string arg_mtrlname, string arg_usermtrlmode, string arg_mtrlmode, long arg_sk_mtrltypeid, decimal arg_period, string arg_zxmtrlmode, ref string arg_msg, boolean arg_ifcommit) public function integer uof_tech_del (long arg_mtrlid, boolean arg_ifcommit, ref string arg_msg) public function integer uof_tech_update (long arg_mtrlid, s_addon_techdef arg_s_tech, boolean arg_ifcommit, ref string arg_msg) public function integer uof_skmtrl_add (long arg_mtrlid, long arg_skmtrlid, decimal arg_period, ref string arg_msg, boolean arg_ifcommit) public function integer uof_qc_update (s_mtrl_qc arg_s_qc, ref string arg_msg, boolean arg_ifcommit) public function integer uof_qc_del (long arg_mtrlid, long arg_qcid, ref string arg_msg) public function integer uof_zb_update (s_mtrl_zb arg_s_zb, ref string arg_msg, boolean arg_ifcommit) public function integer uof_zb_del (long arg_mtrlid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_jgdscrp_update (long arg_mtrlid, s_mtrljgdscrp_array s_mtrjgdscrp, boolean arg_ifcommit, ref string arg_msg) public function integer uof_audit (long arg_mtrlid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer uof_c_audit (long arg_mtrlid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_c_secaudit (long arg_mtrlid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_secaudit (long arg_mtrlid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_mtrl (s_mtrldef arg_s_mtrl, string arg_opemp, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_ban (long arg_mtrlid, s_mtrldef_ban arg_s_ban, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_ppqty (long arg_mtrlid, s_mtrldef arg_s_mtrl, ref string arg_msg) public function integer uof_update_pzdftflag (long arg_flag, long arg_typeid, string arg_config, ref string arg_msg) public function integer uof_get_pztype (integer arg_type, string arg_pzname, ref long arg_pzid, ref string arg_msg) end prototypes public function integer uof_del_mtrl (long arg_mtrlid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt cnt = 0 Select count(*) Into :cnt From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询物料资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If //申购单汇总明细 cnt = 0 Select count(*) Into :cnt From u_requestbuymx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(申购单汇总明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于申购单汇总明细,不可以删除!" rslt = 0 Goto ext End If //申购单汇总明细 cnt = 0 Select count(*) Into :cnt From u_requestbuymxmx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(申购单明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于申购单明细,不可以删除!" rslt = 0 Goto ext End If //外协申请单明细 cnt = 0 Select count(*) Into :cnt From u_request_wfjgmxmx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(外协申请单明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于外协申请单明细,不可以删除!" rslt = 0 Goto ext End If //外协申请单汇总明细 cnt = 0 Select count(*) Into :cnt From u_request_wfjgMx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(外协申请单汇总明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于外协申请单汇总明细,不可以删除!" rslt = 0 Goto ext End If //外协申请单汇总明细 cnt = 0 Select count(*) Into :cnt From u_request_wfjgMx_out Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(外协申请单发出明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于外协申请单发出明细,不可以删除!" rslt = 0 Goto ext End If //采购订单明细 cnt = 0 Select count(*) Into :cnt From u_buytaskmx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(采购订单明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于采购订单明细,不可以删除!" rslt = 0 Goto ext End If //外协订单明细 cnt = 0 Select count(*) Into :cnt From u_order_wfjgMx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(外协订单收货明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于外协订单收货明细,不可以删除!" rslt = 0 Goto ext End If //外协订单发出明细 cnt = 0 Select count(*) Into :cnt From u_order_wfjgMx_out Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(外协订单发出明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于外协订单发出明细,不可以删除!" rslt = 0 Goto ext End If //销售订单明细 cnt = 0 Select count(*) Into :cnt From u_saletaskmx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(销售订单明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于销售订单明细,不可以删除!" rslt = 0 Goto ext End If //生产计划 cnt = 0 Select count(*) Into :cnt From u_Order_ml Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(生产计划)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于生产计划,不可以删除!" rslt = 0 Goto ext End If //进仓明细 cnt = 0 Select count(*) Into :cnt From u_inwaremx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(进仓明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于仓库进仓,不可以删除!" rslt = 0 Goto ext End If //出仓明细 cnt = 0 Select count(*) Into :cnt From u_outwaremx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(出仓明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于仓库出仓,不可以删除!" rslt = 0 Goto ext End If //出仓明细mx cnt = 0 Select count(*) Into :cnt From u_outwaremx_mx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(出仓明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于仓库出仓,不可以删除!" rslt = 0 Goto ext End If //外协收货单明细 cnt = 0 Select count(*) Into :cnt From ow_wfjgmx_in_aft Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(外协收货单明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于外协收货单明细,不可以删除!" rslt = 0 Goto ext End If //外协发出单明细 cnt = 0 Select count(*) Into :cnt From ow_wfjgmx_out Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(外协发出单明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于外协发出单明细,不可以删除!" rslt = 0 Goto ext End If //供应商询价单明细 cnt = 0 Select count(*) Into :cnt From u_spt_price_changemx Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then arg_msg = "数据(供应商询价单明细)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于供应商询价单明细,不可以删除!" rslt = 0 Goto ext End If //库存 cnt = 0 Select COUNT(*) Into :cnt From u_mtrlware Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = "数据(仓库库存)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于仓库库存,不可以删除!" rslt = 0 Goto ext End If //物料清单 cnt = 0 Select COUNT(*) Into :cnt From u_PrdPF Where sonmtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = "数据(物料清单)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于物料清单,不可以删除!" rslt = 0 Goto ext End If If Not f_power_ind(3673,sys_msg_pow) Then //价格表明细 cnt = 0 Select COUNT(*) Into :cnt From u_sale_price_mx Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = "数据(价格表)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于价格表,不可以删除!" rslt = 0 Goto ext End If //物料清单 cnt = 0 Select COUNT(*) Into :cnt From u_PrdPF Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = "数据(物料清单)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于物料清单,不可以删除!" rslt = 0 Goto ext End If //生产流程 cnt = 0 Select COUNT(*) Into :cnt From u_mtrl_wkp Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = "数据(物料生产流程)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于物料生产流程,不可以删除!" rslt = 0 Goto ext End If //工价表 cnt = 0 Select COUNT(*) Into :cnt From u_sc_workprice Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = "数据(工价表)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于物料工价表,不可以删除!" rslt = 0 Goto ext End If //工艺路线 cnt = 0 Select COUNT(*) Into :cnt From u_mtrl_wkp_tech Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = "数据(工价表)查询操作失败!(请重试!)" rslt = 0 Goto ext End If If cnt > 0 Then arg_msg = "该资料已经使用于物料工价表,不可以删除!" rslt = 0 Goto ext End If // Int li_issuliao,li_issuliao_sk Long ll_sk_mtrlid Select issuliao Into :li_issuliao From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料塑料属性失败,'+sqlca.SQLErrText Goto ext End If If li_issuliao = 2 Then Select count(*) Into :cnt From u_mtrldef_sl Where sk_mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询水口料是否已被使用失败,'+sqlca.SQLErrText Goto ext End If If cnt > 0 Then arg_msg = "该水口料已经使用于物料资料,不可以删除!" rslt = 0 Goto ext End If End If End If // //_del: /////// // Delete From u_mtrl_storage Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除物料存放仓库资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_mtrldef_ban Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除物料板件信息失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除物料资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_mtrl_pf Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除物料清单失败,原因:'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_mtrl_wkp_tech Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除物料工艺路线失败,原因:'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_sc_workprice Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除物料工价表失败,原因:'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_mtrl_wkp Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除物料工组流程失败,原因:'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_mtrldef_sl Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除物料水口料失败,原因:'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_PrdPF Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除物料清单失败,原因:'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_sale_price_mx Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '删除价格表明细失败,原因:'+sqlca.SQLErrText rslt = 0 Goto ext End If Delete From u_mtrl_configure2 Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '删除物料包件配置资料操作失败：'+sqlca.SQLErrText Goto ext End If Delete From u_mtrldef_planprice Where mtrlid = :arg_mtrlid ; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '删除物料计划成本价资料操作失败：'+sqlca.SQLErrText Goto ext End If Long ll_ConnectionID If f_get_outerconnection(ll_ConnectionID,arg_msg) = 1 Then Delete From U_File Where relid = :arg_mtrlid And (billtype = 201 or billtype = 202) Using sys_fileDB_sqlca ; If sys_fileDB_sqlca.SQLCode <> 0 Then arg_msg = '删除物料图片失败,原因:'+sys_fileDB_sqlca.SQLErrText rslt = 0 Goto ext End If End If ext: If rslt = 0 Then Rollback; ElseIf rslt = 1 And arg_ifcommit Then Commit; Commit Using sys_fileDB_sqlca; End If Return rslt end function public function integer uo_add_mtrl_storage (long arg_mtrlid, long arg_storageid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 INSERT INTO u_mtrl_storage(mtrlid,storageid) Values(:arg_mtrlid,:arg_storageid); IF sqlca.SQLCode <> 0 THEN arg_msg = "物料指定默认仓库失败,"+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_code_find (long arg_id, string arg_code, ref string arg_msg);Int rslt = 1 long cnt SELECT count(*) INTO :cnt FROM u_mtrldef WHERE mtrlid <> :arg_id AND mtrlcode = :arg_code; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料编码:'+arg_code+',是否已用失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN arg_msg = '查询物料编码:'+arg_code+',已用,请重新输入' rslt = 0 GOTO ext END IF ext: RETURN rslt end function public function integer uof_update_configure2 (long arg_mtrlid, s_mtrl_configure_array arg_s_config, boolean arg_ifcommit, ref string arg_msg);Long rslt = 1 IF arg_mtrlid <= 0 THEN rslt = 0 arg_msg = '错误的物料ID' GOTO ext END IF DELETE FROM u_mtrl_configure2 Where mtrlid = :arg_mtrlid ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '删除物料包件配置资料操作失败：'+sqlca.SQLErrText GOTO ext END IF Long ls_i String ls_pzcode,ls_name,ls_pzcodemx,ls_namemx Long ls_printid,ls_pzid Long ll_pzflag = 0 FOR ls_i = 1 TO UpperBound(arg_s_config.pzid) ls_pzid = arg_s_config.pzid[ls_i] ls_pzcode = arg_s_config.pzcode[ls_i] ls_name = arg_s_config.pzname[ls_i] ls_pzcodemx = arg_s_config.pzcodemx[ls_i] ls_namemx = arg_s_config.pznamemx[ls_i] ls_printid = arg_s_config.printid[ls_i] INSERT INTO u_mtrl_configure2 (mtrlid, pzid, printid, pzcode, pzname, pzcodemx, pznamemx) Values(:arg_mtrlid,:ls_pzid,:ls_printid,:ls_pzcode,:ls_name,:ls_pzcodemx,:ls_namemx) USING sqlca; 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 RETURN rslt end function public function integer uof_add_skmtrl (long arg_mtrlid, string arg_mtrlcode, string arg_mtrlname, string arg_usermtrlmode, string arg_mtrlmode, long arg_sk_mtrltypeid, decimal arg_period, string arg_zxmtrlmode, ref string arg_msg, boolean arg_ifcommit);//2011-11-09 起, 停用本函数,代码作备用保留// Int rslt = 1 Long cnt Long ll_sk_mtrlid String sk_handtype String ls_code,ls_name String ls_mtrlmode SELECT sk_mtrlid INTO :ll_sk_mtrlid FROM u_mtrldef_sl Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode = -1 THEN rslt = 0 arg_msg = '查询物料是否已有相关水口料失败,'+sqlca.SQLErrText GOTO ext ELSEIF sqlca.SQLCode = 100 THEN ll_sk_mtrlid = 0 END IF SELECT count(*) INTO :cnt FROM u_mtrldef_sl Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询塑料资料失败' GOTO ext END IF SELECT handtype INTO :sk_handtype FROM u_mtrltype Where mtrltypeid = :arg_sk_mtrltypeid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询水口料详细类别失败!' GOTO ext END IF IF ll_sk_mtrlid = 0 THEN ll_sk_mtrlid = f_sys_scidentity(0,"u_mtrldef","mtrlid",arg_msg,TRUE,id_sqlca) IF ll_sk_mtrlid <= 0 THEN rslt = 0 GOTO ext END IF ls_code = arg_mtrlcode + '~~'+'(skl)' ls_name = arg_mtrlname + '~~'+'(水口料)' INSERT INTO u_mtrldef (mtrlid, mtrlname, mtrlcode, mtrltypeid, handtype, unit, issuliao, usermtrlmode, mtrlorigin, mtrlmode, mtrlprp, zxmtrlmode) VALUES (:ll_sk_mtrlid, :ls_name, :ls_code, :arg_sk_mtrltypeid, :sk_handtype, '公斤', 2, :arg_usermtrlmode, 2, :arg_mtrlmode, 2, :arg_zxmtrlmode) ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入相关水口料信息失败!'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN INSERT INTO u_mtrldef_sl (mtrlid, sk_mtrlid, sk_mtrlname, sk_mtrltypeid, period) VALUES (:arg_mtrlid, :ll_sk_mtrlid, :ls_name, :arg_sk_mtrltypeid, :arg_period); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入相关水口料信息失败!'+sqlca.SQLErrText GOTO ext END IF ELSE UPDATE u_mtrldef_sl SET sk_mtrlid = :ll_sk_mtrlid, sk_mtrlname = :ls_name, sk_mtrltypeid = :arg_sk_mtrltypeid, period = :arg_period Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新物料相关水口料信息失败,'+sqlca.SQLErrText GOTO ext END IF END IF ELSE SELECT sk_mtrlid INTO :ll_sk_mtrlid FROM u_mtrldef_sl Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料相关水口料信息失败,'+sqlca.SQLErrText GOTO ext END IF ls_code = arg_mtrlcode + '~~'+'(skl)' ls_name = arg_mtrlname + '~~'+'(水口料)' UPDATE u_mtrldef SET mtrltypeid = :arg_sk_mtrltypeid, handtype = :sk_handtype, usermtrlmode = :arg_usermtrlmode, mtrlmode = :arg_mtrlmode, mtrlcode = :ls_code, mtrlname = :ls_name, zxmtrlmode = :arg_zxmtrlmode Where mtrlid = :ll_sk_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新物料相关水口料信息失败,'+sqlca.SQLErrText GOTO ext END IF UPDATE u_mtrldef_sl SET sk_mtrltypeid = :arg_sk_mtrltypeid, period = :arg_period Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新物料相关水口料信息失败,'+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 uof_tech_del (long arg_mtrlid, boolean arg_ifcommit, ref string arg_msg);Int rslt = 1 DELETE FROM u_mtrl_tech Where mtrlid = :arg_mtrlid using sqlca; IF sqlca.SQLCode <> 0 THEN arg_msg = '删除物料工艺明细失败,原因:'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ext: if rslt = 0 then rollback using sqlca; elseif rslt = 1 and arg_ifcommit then commit using sqlca; end if return rslt end function public function integer uof_tech_update (long arg_mtrlid, s_addon_techdef arg_s_tech, boolean arg_ifcommit, ref string arg_msg);long rslt = 1 if arg_mtrlid<=0 then rslt = 0 arg_msg = '错误的物料ID' goto ext end if delete from u_mtrl_tech where mtrlid = :arg_mtrlid using sqlca; if sqlca.sqlcode<>0 then rslt = 0 arg_msg = '删除操作失败：'+sqlca.sqlerrtext goto ext end if long ls_i for ls_i=1 to UpperBound(arg_s_tech.techid) if arg_s_tech.techid[ls_i]>0 then insert into u_mtrl_tech (mtrlid, techdefid,qty,unit,dscrp,width, len, heightdegree) values(:arg_mtrlid,:arg_s_tech.techid[ls_i],:arg_s_tech.qty[ls_i],:arg_s_tech.unit[ls_i],:arg_s_tech.dscrp[ls_i], :arg_s_tech.width[ls_i], :arg_s_tech.len[ls_i], :arg_s_tech.heightdegree[ls_i]) using sqlca; if sqlca.sqlcode<>0 then rslt = 0 arg_msg = '删除操作失败：'+sqlca.sqlerrtext goto ext end if end if next ext: if rslt = 0 then rollback using sqlca; elseif rslt = 1 and arg_ifcommit then commit using sqlca; end if return rslt end function public function integer uof_skmtrl_add (long arg_mtrlid, long arg_skmtrlid, decimal arg_period, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 String ls_skmtrlname Long ll_skmtrltypeid Long cnt SELECT mtrlname,mtrltypeid INTO :ls_skmtrlname,:ll_skmtrltypeid FROM u_mtrldef Where mtrlid = :arg_skmtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询水口料信息失败 '+sqlca.SQLErrText GOTO ext END IF SELECT count(*) INTO :cnt FROM u_mtrldef_sl Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询塑料资料失败 '+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN INSERT INTO u_mtrldef_sl (mtrlid, sk_mtrlid, sk_mtrlname, sk_mtrltypeid, period) VALUES (:arg_mtrlid, :arg_skmtrlid, :ls_skmtrlname, :ll_skmtrltypeid, :arg_period); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入相关水口料信息失败!'+sqlca.SQLErrText GOTO ext END IF ELSE UPDATE u_mtrldef_sl SET sk_mtrlid = :arg_skmtrlid, sk_mtrlname = :ls_skmtrlname, sk_mtrltypeid = :ll_skmtrltypeid, period = :arg_period Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新物料相关水口料信息失败,'+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 uof_qc_update (s_mtrl_qc arg_s_qc, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_qcid IF arg_s_qc.mtrlid = 0 THEN rslt = 0 arg_msg = "物料ID错误" GOTO ext END IF IF arg_s_qc.dftflag = 1 THEN UPDATE u_mtrldef_qc SET dftflag = 0 WHERE mtrlid = :arg_s_qc.mtrlid And qcid <> :arg_s_qc.qcid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新默认质检组合失败,"+sqlca.SQLErrText GOTO ext END IF END IF IF arg_s_qc.qcid = 0 THEN //新增 ll_qcid = f_sys_scidentity(0,"u_mtrldef_qc","qcid",arg_msg,True,id_sqlca) IF ll_qcid <= 0 THEN rslt = 0 GOTO ext END IF INSERT INTO u_mtrldef_qc (mtrlid, qcid, qcname, dftflag, inuse) VALUES (:arg_s_qc.mtrlid, :ll_qcid, :arg_s_qc.qcname, :arg_s_qc.dftflag, :arg_s_qc.inuse); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "新建质检组合资料失败,"+sqlca.SQLErrText GOTO ext END IF ELSE //修改 UPDATE u_mtrldef_qc SET qcname = :arg_s_qc.qcname, dftflag = :arg_s_qc.dftflag, inuse = :arg_s_qc.inuse WHERE mtrlid = :arg_s_qc.mtrlid And qcid = :arg_s_qc.qcid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新质检组合资料失败,"+sqlca.SQLErrText GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSE COMMIT; END IF RETURN rslt end function public function integer uof_qc_del (long arg_mtrlid, long arg_qcid, ref string arg_msg);Int rslt = 1 DELETE FROM u_mtrldef_qcmx WHERE mtrlid = :arg_mtrlid And qcid = :arg_qcid; IF sqlca.SQLCode <> 0 THEN arg_msg = '删除质检项目明细失败'+sqlca.SQLErrText rslt = 0 GOTO ext END IF DELETE FROM u_mtrldef_qc WHERE mtrlid = :arg_mtrlid And qcid = :arg_qcid; 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 uof_zb_update (s_mtrl_zb arg_s_zb, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_sonmtrlid IF arg_s_zb.mtrlid = 0 THEN rslt = 0 arg_msg = "物料ID错误" GOTO ext END IF //IF arg_s_zb.sonmtrlid = 0 THEN // rslt = 0 // arg_msg = "纸板ID错误,请选择纸板" // GOTO ext //END IF IF arg_s_zb.zxtypeid = 0 THEN rslt = 0 arg_msg = "纸箱类别ID错误,请选择纸箱类别" GOTO ext END IF UPDATE u_mtrldef_add_property SET exp = :arg_s_zb.exp, dscrp = :arg_s_zb.dscrp, sonmtrlid = :arg_s_zb.sonmtrlid, zxtypeid = :arg_s_zb.zxtypeid, modemp = :publ_operator, moddate = getdate() Where mtrlid = :arg_s_zb.mtrlid; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN INSERT INTO u_mtrldef_add_property (mtrlid, sonmtrlid, zxtypeid, exp, dscrp, opemp, opdate) VALUES (:arg_s_zb.mtrlid, :arg_s_zb.sonmtrlid, :arg_s_zb.zxtypeid, :arg_s_zb.exp, :arg_s_zb.dscrp, :publ_operator, getdate()); 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; ELSE COMMIT; END IF RETURN rslt end function public function integer uof_zb_del (long arg_mtrlid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 DELETE FROM u_mtrldef_add_property WHERE mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '删除纸板失败'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEif arg_ifcommit then COMMIT; END IF RETURN rslt end function public function integer uof_jgdscrp_update (long arg_mtrlid, s_mtrljgdscrp_array s_mtrjgdscrp, boolean arg_ifcommit, ref string arg_msg);Long rslt = 1 IF arg_mtrlid <= 0 THEN rslt = 0 arg_msg = '错误的物料ID' GOTO ext END IF DELETE FROM u_mtrl_jgdscrp Where mtrlid = :arg_mtrlid USING sqlca; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '删除操作失败：'+sqlca.SQLErrText GOTO ext END IF Long ls_i String ls_jgdscrpcode,ls_jgdscrpname,ls_jgdscrpmxcode,ls_jgdscrpmxname Long ls_jgdscrpmxid String ls_jgdscrp FOR ls_i = 1 TO UpperBound(s_mtrjgdscrp.jgdscrpmxid) ls_jgdscrpmxid = s_mtrjgdscrp.jgdscrpmxid[ls_i] ls_jgdscrpcode = s_mtrjgdscrp.jgdscrpcode[ls_i] ls_jgdscrpname = s_mtrjgdscrp.jgdscrpname[ls_i] ls_jgdscrpmxname = s_mtrjgdscrp.jgdscrpmxname[ls_i] ls_jgdscrpmxcode = s_mtrjgdscrp.jgdscrpmxcode[ls_i] ls_jgdscrp = ls_jgdscrp +ls_jgdscrpcode+ls_jgdscrpname+ls_jgdscrpmxcode+ls_jgdscrpmxname +' ' INSERT INTO u_mtrl_jgdscrp (mtrlid, jgdscrpmxid) Values(:arg_mtrlid,:ls_jgdscrpmxid) USING sqlca; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入操作失败：'+sqlca.SQLErrText GOTO ext END IF NEXT UPDATE u_mtrldef SET jgdscrp = :ls_jgdscrp Where mtrlid = :arg_mtrlid USING sqlca; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新工艺说明操作失败：'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK USING sqlca; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING sqlca; END IF RETURN rslt end function public function integer uof_audit (long arg_mtrlid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);Int li_flag Int rslt = 1 Select flag Into :li_flag From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料审核状态失败,'+sqlca.SQLErrText Goto ext End If If li_flag <> 0 Then rslt = 0 arg_msg = '物料不是在待审核状态,不能审核' Goto ext End If Update u_mtrldef Set flag = 1 , auditemp = :arg_emp, auditdate = getdate() Where mtrlid = :arg_mtrlid And flag = 0 ; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '物料正在审核,请刷新 '+sqlca.SQLErrText Goto ext 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 Return rslt end function public function integer uof_c_audit (long arg_mtrlid, ref string arg_msg, boolean arg_ifcommit);Int li_flag Int rslt = 1 datetime ld_nulldt setnull(ld_nulldt) Select flag Into :li_flag From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料审核状态失败,'+sqlca.SQLErrText Goto ext End If If li_flag <> 1 Then rslt = 0 arg_msg = '物料不是在待终审状态,不能撤初审' Goto ext End If Update u_mtrldef Set flag = 0 , auditemp = '', auditdate = :ld_nulldt Where mtrlid = :arg_mtrlid And flag = 1 ; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '物料正在撤审,请刷新 '+sqlca.SQLErrText Goto ext 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 Return rslt end function public function integer uof_c_secaudit (long arg_mtrlid, ref string arg_msg, boolean arg_ifcommit);Int li_flag Int rslt = 1 datetime ld_nulldt setnull(ld_nulldt) Select flag Into :li_flag From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料审核状态失败,'+sqlca.SQLErrText Goto ext End If If li_flag <> 2 Then rslt = 0 arg_msg = '物料不是在终审状态,不能撤终审' Goto ext End If Update u_mtrldef Set flag = 1 , secauditemp = '', secauditdate = :ld_nulldt Where mtrlid = :arg_mtrlid And flag = 2 ; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '物料正在撤审,请刷新 '+sqlca.SQLErrText Goto ext 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 Return rslt end function public function integer uof_secaudit (long arg_mtrlid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);Int li_flag Int rslt = 1 Select flag Into :li_flag From u_mtrldef Where mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料审核状态失败,'+sqlca.SQLErrText Goto ext End If If li_flag <> 1 Then rslt = 0 arg_msg = '物料不是在待终审状态,不能终审' Goto ext End If Update u_mtrldef Set flag = 2 , secauditemp = :arg_emp, secauditdate = getdate() Where mtrlid = :arg_mtrlid And flag = 1 ; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then rslt = 0 arg_msg = '物料正在审核,请刷新 '+sqlca.SQLErrText Goto ext 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 Return rslt end function public function integer uof_add_mtrl (s_mtrldef arg_s_mtrl, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt,ll_mtrlid,ll_i String ls_mtrltype,ls_handtype Long ll_scid_wrkGrpid Int li_ifunit Int li_issuliao_ori Long ll_sk_mtrlid String ls_barcode If uo_option_use_suliao = -1000 Then rslt = 0 arg_msg = '选项:[159]启用注塑模块,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_use_machining_ll = -1000 Then rslt = 0 arg_msg = '选项:[170]启用来料加工模块,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_change_status = '-1000' Then rslt = 0 arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_change_woodcode = '-1000' Then rslt = 0 arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_change_pcode = '-1000' Then rslt = 0 arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_inout_type = -1000 Then rslt = 0 arg_msg = '选项:[142]进出仓高级选项,读取初始默认值失败,操作取消!' Goto ext End If If IsNull(arg_s_mtrl.mtrlid) Then arg_s_mtrl.mtrlid = 0 If IsNull(arg_s_mtrl.mtrlcode) Then arg_s_mtrl.mtrlcode = '' If IsNull(arg_s_mtrl.mtrlname) Then arg_s_mtrl.mtrlname = '' If IsNull(arg_s_mtrl.mtrlsectype) Then arg_s_mtrl.mtrlsectype = '' If IsNull(arg_s_mtrl.mtrlmode) Then arg_s_mtrl.mtrlmode = '' If IsNull(arg_s_mtrl.unit) Then arg_s_mtrl.unit = '' If IsNull(arg_s_mtrl.dscrp) Then arg_s_mtrl.dscrp = '' If IsNull(arg_s_mtrl.lmbuyprice) Then arg_s_mtrl.lmbuyprice = 0 If IsNull(arg_s_mtrl.lmsaleprice) Then arg_s_mtrl.lmsaleprice = 0 If IsNull(arg_s_mtrl.prdpackcode) Then arg_s_mtrl.prdpackcode = '' If IsNull(arg_s_mtrl.packqty) Then arg_s_mtrl.packqty = 0 If IsNull(arg_s_mtrl.zxmtrlmode) Then arg_s_mtrl.zxmtrlmode = '' If IsNull(arg_s_mtrl.unit_buy) Then arg_s_mtrl.unit_buy = '' If IsNull(arg_s_mtrl.rate_buy) Then arg_s_mtrl.rate_buy = 0 If IsNull(arg_s_mtrl.unit_scll) Then arg_s_mtrl.unit_scll = '' If IsNull(arg_s_mtrl.rate_scll) Then arg_s_mtrl.rate_scll = 0 If IsNull(arg_s_mtrl.unit_sale) Then arg_s_mtrl.unit_sale = '' If IsNull(arg_s_mtrl.rate_sale) Then arg_s_mtrl.rate_sale = 0 If IsNull(arg_s_mtrl.orderdays) Then arg_s_mtrl.orderdays = 0 If IsNull(arg_s_mtrl.buydays) Then arg_s_mtrl.buydays = 0 If IsNull(arg_s_mtrl.wfjgdays) Then arg_s_mtrl.wfjgdays = 0 If IsNull(arg_s_mtrl.minbuyqty) Then arg_s_mtrl.minbuyqty = 0 If IsNull(arg_s_mtrl.aheaddays) Then arg_s_mtrl.aheaddays = 0 If IsNull(arg_s_mtrl.ifselforder) Then arg_s_mtrl.ifselforder = 0 If IsNull(arg_s_mtrl.mprice) Then arg_s_mtrl.mprice = 0 If IsNull(arg_s_mtrl.mtrlorigin) Then arg_s_mtrl.mtrlorigin = 0 If IsNull(arg_s_mtrl.mtrlkind) Then arg_s_mtrl.mtrlkind = 0 If IsNull(arg_s_mtrl.lspacklimit) Then arg_s_mtrl.lspacklimit = 0 If IsNull(arg_s_mtrl.maxqty) Then arg_s_mtrl.maxqty = 0 If IsNull(arg_s_mtrl.minqty) Then arg_s_mtrl.minqty = 0 If IsNull(arg_s_mtrl.isuse) Then arg_s_mtrl.isuse = 1 If IsNull(arg_s_mtrl.mtrltypeid) Then arg_s_mtrl.mtrltypeid = 0 If IsNull(arg_s_mtrl.barcode) Then arg_s_mtrl.barcode = '' If IsNull(arg_s_mtrl.net_weight) Then arg_s_mtrl.net_weight = 0 If IsNull(arg_s_mtrl.gross_weight) Then arg_s_mtrl.gross_weight = 0 If IsNull(arg_s_mtrl.cubage) Then arg_s_mtrl.cubage = 0 If IsNull(arg_s_mtrl.mtrlengname) Then arg_s_mtrl.mtrlengname = '' If IsNull(arg_s_mtrl.scllflag) Then arg_s_mtrl.scllflag = 0 If IsNull(arg_s_mtrl.dftwrkGrpid) Then arg_s_mtrl.dftwrkGrpid = 0 If IsNull(arg_s_mtrl.dftsptid) Then arg_s_mtrl.dftsptid = 0 If IsNull(arg_s_mtrl.scid) Then arg_s_mtrl.scid = 0 If IsNull(arg_s_mtrl.ifscid) Then arg_s_mtrl.ifscid = 0 If IsNull(arg_s_mtrl.mtrlprp) Then arg_s_mtrl.mtrlprp = 0 If IsNull(arg_s_mtrl.uprate) Then arg_s_mtrl.uprate = 0 If IsNull(arg_s_mtrl.upqty) Then arg_s_mtrl.upqty = 0 If IsNull(arg_s_mtrl.ordertype) Then arg_s_mtrl.ordertype = 0 If IsNull(arg_s_mtrl.statusflag) Then arg_s_mtrl.statusflag = 0 If IsNull(arg_s_mtrl.statustype) Then arg_s_mtrl.statustype = 0 If IsNull(arg_s_mtrl.woodcodeflag) Then arg_s_mtrl.woodcodeflag = 0 If IsNull(arg_s_mtrl.woodcodetype) Then arg_s_mtrl.woodcodetype = 0 If IsNull(arg_s_mtrl.pcodeflag) Then arg_s_mtrl.pcodeflag = 0 If IsNull(arg_s_mtrl.pcodetype) Then arg_s_mtrl.pcodetype = 0 If IsNull(arg_s_mtrl.mtrlarea) Then arg_s_mtrl.mtrlarea = 0 If IsNull(arg_s_mtrl.mtrlarea1) Then arg_s_mtrl.mtrlarea1 = 0 If IsNull(arg_s_mtrl.mtrlarea2) Then arg_s_mtrl.mtrlarea2 = 0 If IsNull(arg_s_mtrl.configcode) Then arg_s_mtrl.configcode = '' If IsNull(arg_s_mtrl.configname) Then arg_s_mtrl.configname = '' If IsNull(arg_s_mtrl.ifpack) Then arg_s_mtrl.ifpack = 0 If IsNull(arg_s_mtrl.ifpackpro) Then arg_s_mtrl.ifpackpro = 0 If IsNull(arg_s_mtrl.autoinstall) Then arg_s_mtrl.autoinstall = 0 If IsNull(arg_s_mtrl.iflimitprice) Then arg_s_mtrl.iflimitprice = 0 If IsNull(arg_s_mtrl.mtrlcolor) Then arg_s_mtrl.mtrlcolor = '' If IsNull(arg_s_mtrl.configcodetype) Then arg_s_mtrl.configcodetype = 0 If IsNull(arg_s_mtrl.ifautodd) Then arg_s_mtrl.ifautodd = 0 If IsNull(arg_s_mtrl.iflljg) Then arg_s_mtrl.iflljg = 0 If IsNull(arg_s_mtrl.ifunit) Then arg_s_mtrl.ifunit = 0 If IsNull(arg_s_mtrl.ifpackpz) Then arg_s_mtrl.ifpackpz = 0 If IsNull(arg_s_mtrl.ifpacktype) Then arg_s_mtrl.ifpacktype = 0 If IsNull(arg_s_mtrl.scllrate) Then arg_s_mtrl.scllrate = 0 If IsNull(arg_s_mtrl.cmpqty) Then arg_s_mtrl.cmpqty = 1 If IsNull(arg_s_mtrl.usermtrlmode) Then arg_s_mtrl.usermtrlmode = '' If IsNull(arg_s_mtrl.storagetype) Then arg_s_mtrl.storagetype = 0 If IsNull(arg_s_mtrl.ifmtrlcuscode) Then arg_s_mtrl.ifmtrlcuscode = 0 If IsNull(arg_s_mtrl.mrptype) Then arg_s_mtrl.mrptype = 0 If IsNull(arg_s_mtrl.mrparg) Then arg_s_mtrl.mrparg = 0 If IsNull(arg_s_mtrl.updownprice) Then arg_s_mtrl.updownprice = 0 If IsNull(arg_s_mtrl.outtype) Then arg_s_mtrl.outtype = 0 If IsNull(arg_s_mtrl.ifpricepack) Then arg_s_mtrl.ifpricepack = 0 If IsNull(arg_s_mtrl.gydscrp) Then arg_s_mtrl.gydscrp = '' If IsNull(arg_s_mtrl.downrate) Then arg_s_mtrl.downrate = 0 If IsNull(arg_s_mtrl.ifcustom) Then arg_s_mtrl.ifcustom = 0 If IsNull(arg_s_mtrl.buyunit) Then arg_s_mtrl.buyunit = 0 If IsNull(arg_s_mtrl.wfjgunit) Then arg_s_mtrl.wfjgunit = 0 If IsNull(arg_s_mtrl.scllunit) Then arg_s_mtrl.scllunit = 0 If IsNull(arg_s_mtrl.saleunit) Then arg_s_mtrl.saleunit = 0 If IsNull(arg_s_mtrl.buydec) Then arg_s_mtrl.buydec = 5 If IsNull(arg_s_mtrl.wfjgdec) Then arg_s_mtrl.wfjgdec = 5 If IsNull(arg_s_mtrl.sclldec) Then arg_s_mtrl.sclldec = 5 If IsNull(arg_s_mtrl.saledec) Then arg_s_mtrl.saledec = 5 If IsNull(arg_s_mtrl.issuliao) Then arg_s_mtrl.issuliao = 0 If IsNull(arg_s_mtrl.period) Then arg_s_mtrl.period = 0 If IsNull(arg_s_mtrl.skmtrlid) Then arg_s_mtrl.skmtrlid = 0 If IsNull(arg_s_mtrl.ifenough) Then arg_s_mtrl.ifenough = 0 If IsNull(arg_s_mtrl.capacity) Then arg_s_mtrl.capacity = 0 If IsNull(arg_s_mtrl.expday) Then arg_s_mtrl.expday = 0 If IsNull(arg_s_mtrl.capaparm) Then arg_s_mtrl.capaparm = 1 If IsNull(arg_s_mtrl.sctaskqty) Then arg_s_mtrl.sctaskqty = 0 If IsNull(arg_s_mtrl.minarg) Then arg_s_mtrl.minarg = 0 If IsNull(arg_s_mtrl.maxarg) Then arg_s_mtrl.maxarg = 0 If IsNull(arg_s_mtrl.status_check) Then arg_s_mtrl.status_check = 0 If IsNull(arg_s_mtrl.woodcode_check) Then arg_s_mtrl.woodcode_check = 0 If IsNull(arg_s_mtrl.pcode_check) Then arg_s_mtrl.pcode_check = 0 If IsNull(arg_s_mtrl.maxdays) Then arg_s_mtrl.maxdays = 0 If IsNull(arg_s_mtrl.mindays) Then arg_s_mtrl.mindays = 0 If IsNull(arg_s_mtrl.ifmrppackpf) Then arg_s_mtrl.ifmrppackpf = 0 If IsNull(arg_s_mtrl.maxzjday) Then arg_s_mtrl.maxzjday = 0 If IsNull(arg_s_mtrl.eoq) Then arg_s_mtrl.eoq = 0 If IsNull(arg_s_mtrl.splitrate) Then arg_s_mtrl.splitrate = 0 If IsNull(arg_s_mtrl.mrp_unit) Then arg_s_mtrl.mrp_unit = 0 If IsNull(arg_s_mtrl.rebuytype) Then arg_s_mtrl.rebuytype = 0 If IsNull(arg_s_mtrl.rebuylot) Then arg_s_mtrl.rebuylot = 0 If IsNull(arg_s_mtrl.ifsendlot) Then arg_s_mtrl.ifsendlot = 0 If IsNull(arg_s_mtrl.upddrate) Then arg_s_mtrl.upddrate = 0 If IsNull(arg_s_mtrl.upddqty) Then arg_s_mtrl.upddqty = 0 If IsNull(arg_s_mtrl.upsalerate) Then arg_s_mtrl.upsalerate = 0 If IsNull(arg_s_mtrl.upsaleqty) Then arg_s_mtrl.upsaleqty = 0 If IsNull(arg_s_mtrl.status_config) Then arg_s_mtrl.status_config = '' If IsNull(arg_s_mtrl.woodcode_config) Then arg_s_mtrl.woodcode_config = '' If IsNull(arg_s_mtrl.pcode_config) Then arg_s_mtrl.pcode_config = '' If IsNull(arg_s_mtrl.pricepztype) Then arg_s_mtrl.pricepztype = 0 If IsNull(arg_s_mtrl.useday) Then arg_s_mtrl.useday = 0 If arg_s_mtrl.rebuytype <> 2 Then arg_s_mtrl.rebuylot = 0 If IsNull(arg_s_mtrl.ifusedeliqty) Then arg_s_mtrl.ifusedeliqty = 0 If IsNull(arg_s_mtrl.equiptype) Then arg_s_mtrl.equiptype = 0 If IsNull(arg_s_mtrl.ifpackpro2) Then arg_s_mtrl.ifpackpro2 = 0 If IsNull(arg_s_mtrl.ifkl) Then arg_s_mtrl.ifkl = 0 If IsNull(arg_s_mtrl.ifturn) Then arg_s_mtrl.ifturn = 0 If IsNull(arg_s_mtrl.iffp) Then arg_s_mtrl.iffp = 0 If IsNull(arg_s_mtrl.scllqty) Then arg_s_mtrl.scllqty = 0 If IsNull(arg_s_mtrl.if_hourpay) Then arg_s_mtrl.if_hourpay = 0 If IsNull(arg_s_mtrl.ifmrp) Then arg_s_mtrl.ifmrp = 1 If IsNull(arg_s_mtrl.if_inherit) Then arg_s_mtrl.if_inherit = 0 If arg_s_mtrl.statusflag <> 4 And arg_s_mtrl.statusflag <> 5 And arg_s_mtrl.statusflag <> 1 Or arg_s_mtrl.statustype <= 0 Then arg_s_mtrl.status_config = '' If arg_s_mtrl.woodcodeflag <> 4 And arg_s_mtrl.woodcodeflag <> 5 And arg_s_mtrl.woodcodeflag <> 1 Or arg_s_mtrl.woodcodetype <= 0 Then arg_s_mtrl.woodcode_config = '' If arg_s_mtrl.pcodeflag <> 4 And arg_s_mtrl.pcodeflag <> 5 And arg_s_mtrl.pcodeflag <> 1 Or arg_s_mtrl.pcodetype <= 0 Then arg_s_mtrl.pcode_config = '' If arg_s_mtrl.statusflag <> 4 And arg_s_mtrl.statusflag <> 5 And arg_s_mtrl.statusflag <> 1 Then arg_s_mtrl.status_spc = 0 If arg_s_mtrl.woodcodeflag <> 4 And arg_s_mtrl.woodcodeflag <> 5 And arg_s_mtrl.woodcodeflag <> 1 Then arg_s_mtrl.woodcode_spc = 0 If arg_s_mtrl.pcodeflag <> 4 And arg_s_mtrl.pcodeflag <> 5 And arg_s_mtrl.pcodeflag <> 1 Then arg_s_mtrl.pcode_spc = 0 If IsNull(arg_s_mtrl.status_spc) Then arg_s_mtrl.status_spc = 0 If IsNull(arg_s_mtrl.woodcode_spc) Then arg_s_mtrl.woodcode_spc = 0 If IsNull(arg_s_mtrl.pcode_spc) Then arg_s_mtrl.pcode_spc = 0 If arg_s_mtrl.ifkl = 0 Then arg_s_mtrl.ifturn = 0 If IsNull(arg_s_mtrl.groupstr) Then arg_s_mtrl.groupstr = '' If IsNull(arg_s_mtrl.groupday) Then arg_s_mtrl.groupday = 0 If IsNull(arg_s_mtrl.aps_capacity_type) Then arg_s_mtrl.aps_capacity_type = '' If IsNull(arg_s_mtrl.scllplan_mode) Then arg_s_mtrl.scllplan_mode = 0 If IsNull(arg_s_mtrl.ifcheck) Then arg_s_mtrl.ifcheck = 0 If IsNull(arg_s_mtrl.checkrate) Then arg_s_mtrl.checkrate = 0 If IsNull(arg_s_mtrl.chkpassrate) Then arg_s_mtrl.chkpassrate = 0 If IsNull(arg_s_mtrl.dftcusid) Then arg_s_mtrl.dftcusid = 0 If IsNull(arg_s_mtrl.sendtype) Then arg_s_mtrl.sendtype = 0 If IsNull(arg_s_mtrl.mb_mtrlid) Then arg_s_mtrl.mb_mtrlid = 0 If IsNull(arg_s_mtrl.buy_ceiling) Then arg_s_mtrl.buy_ceiling = 0 If IsNull(arg_s_mtrl.scll_ceiling) Then arg_s_mtrl.scll_ceiling = 0 If IsNull(arg_s_mtrl.wfjg_ceiling) Then arg_s_mtrl.wfjg_ceiling = 0 If IsNull(arg_s_mtrl.sale_ceiling) Then arg_s_mtrl.sale_ceiling = 0 If IsNull(arg_s_mtrl.material) Then arg_s_mtrl.material = '' If IsNull(arg_s_mtrl.adddec) Then arg_s_mtrl.adddec = 0 If IsNull(arg_s_mtrl.ifbarcodefp) Then arg_s_mtrl.ifbarcodefp = 0 If IsNull(arg_s_mtrl.stoppqty) Then arg_s_mtrl.stoppqty = 0 If IsNull(arg_s_mtrl.buy_autoday) Then arg_s_mtrl.buy_autoday = 0 If IsNull(arg_s_mtrl.upbuyrate) Then arg_s_mtrl.upbuyrate = 0 If IsNull(arg_s_mtrl.upbuyqty) Then arg_s_mtrl.upbuyqty = 0 If IsNull(arg_s_mtrl.ifrebuypack) Then arg_s_mtrl.ifrebuypack = 0 If IsNull(arg_s_mtrl.protype) Then arg_s_mtrl.protype = 0 If IsNull(arg_s_mtrl.buydays_bx) Then arg_s_mtrl.buydays_bx = 0 If IsNull(arg_s_mtrl.wfjgdays_bx) Then arg_s_mtrl.wfjgdays_bx = 0 If IsNull(arg_s_mtrl.multqty) Then arg_s_mtrl.multqty = 0 If IsNull(arg_s_mtrl.buyer) Then arg_s_mtrl.buyer = '' If IsNull(arg_s_mtrl.multtype) Then arg_s_mtrl.multtype = 0 If IsNull(arg_s_mtrl.bantype) Then arg_s_mtrl.bantype = 0 If IsNull(arg_s_mtrl.midu) Then arg_s_mtrl.midu = 0 If IsNull(arg_s_mtrl.BalcCmplNotUpdate) Then arg_s_mtrl.BalcCmplNotUpdate = 0 If arg_s_mtrl.ifpack = 1 And arg_s_mtrl.mtrlorigin <> 2 And arg_s_mtrl.ifselforder = 0 Then rslt = 0 arg_msg = '非采购包件，生产属性不能设无,请重新选择' Goto ext End If If arg_s_mtrl.ifpack <> 0 And arg_s_mtrl.ifmrp = 0 Then rslt = 0 arg_msg = '包件必须使用参加物料运算,请重新选择' Goto ext End If If arg_s_mtrl.ifpackpro = 1 And uo_option_inout_type <> 0 And arg_s_mtrl.outtype = 0 Then rslt = 0 arg_msg = '系统选项设置了包件出仓或条码出仓,包件产品必须设包件出仓或条码出仓,请检查' Goto ext End If Int li_sonflag Select sonflag Into :li_sonflag From u_mtrltype Where mtrltypeid = :arg_s_mtrl.mtrltypeid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料类别是否最下级失败,'+sqlca.SQLErrText Goto ext End If If li_sonflag = 0 Then rslt = 0 arg_msg = '所选的物料类别不是最下级物料类别,请重新选择' Goto ext End If If uo_option_use_suliao = 1 Then If arg_s_mtrl.issuliao = 1 And arg_s_mtrl.skmtrlid = 0 Then arg_msg = '塑料件必须先指定对应水口料的物料类别' rslt = 0 Goto ext End If If arg_s_mtrl.issuliao = 1 And arg_s_mtrl.net_weight = 0 Then arg_msg = '塑料件必须指定净重' rslt = 0 Goto ext End If End If If arg_s_mtrl.mtrlid <> 0 Then Select issuliao Into :li_issuliao_ori From u_mtrldef Where mtrlid = :arg_s_mtrl.mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询物料塑料属性失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If li_issuliao_ori = 1 And arg_s_mtrl.issuliao <> 1 Then Select sk_mtrlid Into :ll_sk_mtrlid From u_mtrldef_sl Where mtrlid = :arg_s_mtrl.mtrlid; If sqlca.SQLCode <> 0 Then ll_sk_mtrlid = 0 End If If ll_sk_mtrlid > 0 Then Update u_mtrldef_sl Set sk_mtrlid = 0, sk_mtrltypeid = 0, sk_mtrlname = '' Where mtrlid = :arg_s_mtrl.mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '清除物料相关水口料信息失败' Goto ext End If End If End If If li_issuliao_ori = 2 And arg_s_mtrl.issuliao <> 2 Then Select count(*) Into :cnt From u_mtrldef_sl Where sk_mtrlid = :arg_s_mtrl.mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询水口料是否已被使用失败,'+sqlca.SQLErrText Goto ext End If If cnt > 0 Then arg_msg = "该水口料已经使用于物料资料,不可以更改属性!" rslt = 0 Goto ext End If End If End If If arg_s_mtrl.mtrlcode = '' Then arg_msg = '请输入物料编码!' rslt = 0 Goto ext End If If arg_s_mtrl.mtrlname = '' Then arg_msg = '请输入物料名称!' rslt = 0 Goto ext End If If arg_s_mtrl.mtrltypeid = 0 Then arg_msg = '请选择物料类别!' rslt = 0 Goto ext End If Select mtrltype,handtype Into :ls_mtrltype, :ls_handtype From u_mtrltype Where mtrltypeid = :arg_s_mtrl.mtrltypeid; If sqlca.SQLCode <> 0 Then arg_msg = '查询物料类别失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If If arg_s_mtrl.mtrlorigin < 0 Then arg_msg = '请选择物料来源' rslt = 0 Goto ext End If If arg_s_mtrl.mtrlorigin = 2 Then arg_s_mtrl.ifselforder = 0 If uo_option_use_machining_ll = 0 And arg_s_mtrl.mtrlorigin = 6 Then arg_msg = '系统选项设为不启用来料加工,不能建立来料加工的物料' rslt = 0 Goto ext End If If arg_s_mtrl.iflljg = 1 And arg_s_mtrl.mtrlorigin <> 0 Then arg_msg = '来源不是自制[0]的物料,不能设为来料自制,请检查' rslt = 0 Goto ext End If If arg_s_mtrl.mtrlid > 0 Then Select ifunit Into :li_ifunit From u_mtrldef Where mtrlid = :arg_s_mtrl.mtrlid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料是否使用库存双数量失败'+sqlca.SQLErrText Goto ext End If If li_ifunit <> arg_s_mtrl.ifunit Then Select count(*) Into :cnt From u_mtrlware Where mtrlid = :arg_s_mtrl.mtrlid And noallocqty <> 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 End If End If If arg_s_mtrl.ifunit = 1 And (arg_s_mtrl.unit_buy = '' Or arg_s_mtrl.rate_buy = 0 ) Then arg_msg = '使用库存双数量核算必须同时设定辅单位1及其转换率' rslt = 0 Goto ext End If Choose Case arg_s_mtrl.mtrlorigin Case 6 If arg_s_mtrl.mtrlprp = 1 Then arg_msg = '来源为来料加工的物料,物料属性不能设置为半产品,请重新选择物料属性' rslt = 0 Goto ext End If If arg_s_mtrl.mtrlprp = 0 Then arg_msg = '来源为来料加工的物料,物料属性不能设置为成品[0],请重新选择物料属性' rslt = 0 Goto ext End If If arg_s_mtrl.ifselforder <> 0 Then arg_msg = '来源为来料加工的物料,生产属性只能设置为无[0],请重新选择生产属性' rslt = 0 Goto ext End If Case 2 If arg_s_mtrl.ifselforder <> 0 Then arg_msg = '来源为采购[2]的物料,生产属性只能设置为无[0],请重新选择生产属性' rslt = 0 Goto ext End If Case 3 If arg_s_mtrl.ifselforder <> 0 Then If arg_s_mtrl.dftwrkGrpid = 0 Then arg_msg = '请选择生产车间' rslt = 0 Goto ext End If Select scid Into :ll_scid_wrkGrpid From u_sc_wkp Where wrkGrpid = :arg_s_mtrl.dftwrkGrpid; If sqlca.SQLCode <> 0 Then arg_msg = '查询生产车间所属分部失败' rslt = 0 Goto ext End If If ll_scid_wrkGrpid <> arg_s_mtrl.scid Then arg_msg = '生产车间所属分部与生产分部不相符,请检查' rslt = 0 Goto ext End If End If Case 0 If arg_s_mtrl.dftwrkGrpid = 0 Then arg_msg = '请选择生产车间' rslt = 0 Goto ext End If Select scid Into :ll_scid_wrkGrpid From u_sc_wkp Where wrkGrpid = :arg_s_mtrl.dftwrkGrpid; If sqlca.SQLCode <> 0 Then arg_msg = '查询生产车间所属分部失败' rslt = 0 Goto ext End If If ll_scid_wrkGrpid <> arg_s_mtrl.scid Then arg_msg = '生产车间所属分部与生产分部不相符,请检查' rslt = 0 Goto ext End If End Choose If arg_s_mtrl.mtrlprp < 0 Then arg_msg = '请选择物料属性' rslt = 0 Goto ext End If Choose Case arg_s_mtrl.mtrlprp Case 0 If arg_s_mtrl.ifpackpro <> 0 Then If arg_s_mtrl.ifpackpz = 1 Then arg_msg = '下级包件可使用上级包件产品配置属性只能设在包件上,不能设在全包件成品上,请检查' rslt = 0 Goto ext End If If arg_s_mtrl.statusflag = 2 And (arg_s_mtrl.ifpackpro <> 3 And arg_s_mtrl.ifpackpro <> 4) Then arg_msg = '包件产品'+uo_option_change_status+'类型只能使用自由选填或严格选择或不使用,请检查' rslt = 0 Goto ext End If if arg_s_mtrl.ifpackpro = 5 and not (arg_s_mtrl.statusflag = 0 or arg_s_mtrl.statusflag = 1) then arg_msg = '全订制板式家具包件产品'+uo_option_change_status+'类型只能使用自由选填或严格选择,请检查' rslt = 0 Goto ext end if if arg_s_mtrl.ifpackpro = 5 and not (arg_s_mtrl.woodcodeflag = 0 or arg_s_mtrl.woodcodeflag = 1) then arg_msg = '全订制板式家具包件产品'+uo_option_change_woodcode+'类型只能使用自由选填或严格选择,请检查' rslt = 0 Goto ext end if // IF arg_s_mtrl.statusflag = 4 THEN // arg_msg = '包件产品'+uo_option_change_status+'类型只能使用自由选填或严格选择或不使用,请检查' // rslt = 0 // GOTO ext // END IF // IF arg_s_mtrl.woodcodeflag = 4 THEN // arg_msg = '包件产品'+uo_option_change_woodcode+'类型只能使用自由选填或严格选择或不使用,请检查' // rslt = 0 // GOTO ext // END IF // // IF arg_s_mtrl.pcodeflag = 4 THEN // arg_msg = '包件产品'+uo_option_change_pcode+'类型只能使用自由选填或严格选择或不使用,请检查' // rslt = 0 // GOTO ext // END IF Else // IF arg_s_mtrl.ifmrppackpf = 1 THEN // arg_msg = '物料不是包件产品,不能使用包件产品MRP运算考虑包件类型清单属性,请检查' // rslt = 0 // GOTO ext // END IF End If Case Else If arg_s_mtrl.ifpackpro <> 0 Then arg_msg = '物料属性不为成品,包件产品分类不能设置为包件成品,请检查' rslt = 0 Goto ext End If If arg_s_mtrl.autoinstall = 1 Then arg_msg = '物料属性不为成品,包件配置不能设置为自动组装,请检查' rslt = 0 Goto ext End If End Choose If arg_s_mtrl.statusflag = 2 Then arg_s_mtrl.capacity = 0 If arg_s_mtrl.ifpackpro <> 0 And arg_s_mtrl.ifpack <> 0 Then rslt = 0 arg_msg = '物料不能同时设为全包件产品及包件,请检查' Goto ext End If //IF arg_s_mtrl.ifpackpro = 1 And arg_s_mtrl.ifpackpro2 = 1 THEN // arg_msg = '包件产品与组合配置包件产品不能同时设置,请检查' // rslt = 0 // GOTO ext //END IF If arg_s_mtrl.ifpackpro = 3 And arg_s_mtrl.statusflag <> 2 Then arg_msg = '组合配置包件产品必须使用组合配置,请检查' rslt = 0 Goto ext End If //IF arg_s_mtrl.ifpackpro = 0 And arg_s_mtrl.ifpricepack = 1 THEN // arg_msg = '价格表按包件产品属性只能设在包件产品上,请检查' // rslt = 0 // GOTO ext //END IF If arg_s_mtrl.ifpackpro = 3 And arg_s_mtrl.ordertype <> 0 Then rslt = 0 arg_msg = '组合配置散排散进包件产品只能设置“指令单合并”' Goto ext End If If arg_s_mtrl.ifpackpro = 2 And arg_s_mtrl.ordertype <> 1 Then rslt = 0 arg_msg = '个性包件产品只能设置“指令单分离”' Goto ext End If If arg_s_mtrl.ifpack = 0 And arg_s_mtrl.ifpackpz = 1 Then rslt = 0 arg_msg = '下级包件可使用上级包件产品配置属性只能设在包件上,请检查' Goto ext End If If arg_s_mtrl.ifmtrlcuscode = 0 And (arg_s_mtrl.ifpackpro = 2 Or arg_s_mtrl.ifpackpro = 4) Then rslt = 0 arg_msg = '个性包件产品和组合配置整排散进包件产品必须使用产品批号,请检查' Goto ext End If If arg_s_mtrl.unit = '' Then arg_msg = '请输入物料计量单位!' rslt = 0 Goto ext End If If arg_s_mtrl.unit_buy <> '' And arg_s_mtrl.rate_buy <= 0 Then arg_msg = '不合理的转换率1' rslt = 0 Goto ext End If If arg_s_mtrl.unit_buy = '' And arg_s_mtrl.rate_buy <> 0 Then arg_msg = '必须输入辅单位1才能设定转换率1' rslt = 0 Goto ext End If If arg_s_mtrl.unit_scll <> '' And arg_s_mtrl.rate_scll <= 0 Then arg_msg = '不合理的转换率2' rslt = 0 Goto ext End If If arg_s_mtrl.unit_scll = '' And arg_s_mtrl.rate_scll <> 0 Then arg_msg = '必须输入辅单位2才能设定转换率2' rslt = 0 Goto ext End If If arg_s_mtrl.unit_sale <> '' And arg_s_mtrl.rate_sale <= 0 Then arg_msg = '不合理的转换率3' rslt = 0 Goto ext End If If arg_s_mtrl.unit_sale = '' And arg_s_mtrl.rate_sale <> 0 Then arg_msg = '必须输入辅单位3才能设定转换率3' rslt = 0 Goto ext End If string ls_pzname long ll_pzid if arg_s_mtrl.statusflag = 1 or arg_s_mtrl.statusflag = 4 or arg_s_mtrl.statusflag = 5 then if arg_s_mtrl.status_spc = 1 then //自动查找或新建分类 ll_pzid = 0 ls_pzname = trim(arg_s_mtrl.mtrlcode)+' '+uo_option_change_status if uof_get_pztype(arg_s_mtrl.statusflag, ls_pzname, ll_pzid, arg_msg) = 0 then arg_msg = uo_option_change_status+',查找对应专用配置类型失败,'+arg_msg rslt = 0 Goto ext end if arg_s_mtrl.statustype = ll_pzid end if end if if arg_s_mtrl.woodcodeflag = 1 or arg_s_mtrl.woodcodeflag = 4 or arg_s_mtrl.woodcodeflag = 5 then if arg_s_mtrl.woodcode_spc = 1 then //自动查找或新建分类 ll_pzid = 0 ls_pzname = trim(arg_s_mtrl.mtrlcode)+' '+uo_option_change_woodcode if uof_get_pztype(arg_s_mtrl.woodcodeflag, ls_pzname, ll_pzid, arg_msg) = 0 then arg_msg = uo_option_change_woodcode+',查找对应专用配置类型失败,'+arg_msg rslt = 0 Goto ext end if arg_s_mtrl.woodcodetype = ll_pzid end if end if if arg_s_mtrl.pcodeflag = 1 or arg_s_mtrl.pcodeflag = 4 or arg_s_mtrl.pcodeflag = 5 then if arg_s_mtrl.pcode_spc = 1 then //自动查找或新建分类 ll_pzid = 0 ls_pzname = trim(arg_s_mtrl.mtrlcode)+' '+uo_option_change_pcode if uof_get_pztype(arg_s_mtrl.pcodeflag, ls_pzname, ll_pzid, arg_msg) = 0 then arg_msg = uo_option_change_pcode+',查找对应专用配置类型失败,'+arg_msg rslt = 0 Goto ext end if arg_s_mtrl.pcodetype = ll_pzid end if end if If arg_s_mtrl.statusflag = 1 And arg_s_mtrl.statustype = 0 Then arg_msg = uo_option_change_status+' 类型为严格选择,必须选定一个待选类别' rslt = 0 Goto ext End If If arg_s_mtrl.woodcodeflag = 1 And arg_s_mtrl.woodcodetype = 0 Then arg_msg = uo_option_change_woodcode+' 类型为严格选择,必须选定一个待选类别' rslt = 0 Goto ext End If If arg_s_mtrl.pcodeflag = 1 And arg_s_mtrl.pcodetype = 0 Then arg_msg = uo_option_change_pcode+' 类型为严格选择,必须选定一个待选类别' rslt = 0 Goto ext End If If (arg_s_mtrl.statusflag = 4 or arg_s_mtrl.statusflag = 5) And arg_s_mtrl.statustype = 0 Then arg_msg = uo_option_change_status+' 类型为部件选配,必须选定一个待选类别' rslt = 0 Goto ext End If If (arg_s_mtrl.woodcodeflag = 4 or arg_s_mtrl.woodcodeflag = 5) And arg_s_mtrl.woodcodetype = 0 Then arg_msg = uo_option_change_woodcode+' 类型为部件选配,必须选定一个待选类别' rslt = 0 Goto ext End If If (arg_s_mtrl.pcodeflag = 4 or arg_s_mtrl.pcodeflag = 5) And arg_s_mtrl.pcodetype = 0 Then arg_msg = uo_option_change_pcode+' 类型为部件选配,必须选定一个待选类别' rslt = 0 Goto ext End If If (arg_s_mtrl.statusflag <> 4 and arg_s_mtrl.statusflag <> 5) Then arg_s_mtrl.status_check = 0 If (arg_s_mtrl.woodcodeflag <> 4 and arg_s_mtrl.woodcodeflag <> 5) Then arg_s_mtrl.woodcode_check = 0 If (arg_s_mtrl.pcodeflag <> 4 and arg_s_mtrl.pcodeflag <> 5) Then arg_s_mtrl.pcode_check = 0 If arg_s_mtrl.buydec < 0 Then arg_msg = '不合理的默认采购单位小数位数' rslt = 0 Goto ext End If If arg_s_mtrl.wfjgdec < 0 Then arg_msg = '不合理的默认外协单位小数位数' rslt = 0 Goto ext End If If arg_s_mtrl.sclldec < 0 Then arg_msg = '不合理的默认领料单位小数位数' rslt = 0 Goto ext End If If arg_s_mtrl.saledec < 0 Then arg_msg = '不合理的默认销售单位小数位数' rslt = 0 Goto ext End If If arg_s_mtrl.cmpqty <= 0 Then arg_msg = '不合理的物料清单基数' rslt = 0 Goto ext End If If arg_s_mtrl.maxarg < 0 Then arg_msg = '不合理的库存上限系数' rslt = 0 Goto ext End If If arg_s_mtrl.minarg < 0 Then arg_msg = '不合理的库存下限系数' rslt = 0 Goto ext End If //If arg_s_mtrl.mrptype = 1 Then // arg_s_mtrl.mrparg = 0 //End If If arg_s_mtrl.mrparg < 0 Or arg_s_mtrl.mrparg > 10 Then arg_msg = '不合理的物料运算精度,精度范围:0至10' rslt = 0 Goto ext End If If arg_s_mtrl.capacity < 0 Then arg_msg = '不合理的产能参数' rslt = 0 Goto ext End If If arg_s_mtrl.expday < 0 Then arg_msg = '不合理的经验生产周期' rslt = 0 Goto ext End If If arg_s_mtrl.sctaskqty < 0 Then arg_msg = '不合理的工序派工基数' rslt = 0 Goto ext End If If arg_s_mtrl.maxzjday < 0 Then arg_msg = '不合理的自制周期上限' rslt = 0 Goto ext End If If arg_s_mtrl.eoq < 0 Then arg_msg = '不合理的经济批量' rslt = 0 Goto ext End If If arg_s_mtrl.splitrate < 0 Then arg_msg = '不合理的分拆极限百分比' rslt = 0 Goto ext End If If arg_s_mtrl.iffp = 1 And arg_s_mtrl.mtrlkind <> 0 Then arg_msg = '使用库存分配,领料属性必须是严格按计划' rslt = 0 Goto ext End If If arg_s_mtrl.scllrate < 0 Then arg_msg = '不合理的超领比例' rslt = 0 Goto ext End If If arg_s_mtrl.scllqty < 0 Then arg_msg = '不合理的附加超领数量' rslt = 0 Goto ext End If If arg_s_mtrl.adddec < 0 Then arg_msg = '不合理的申购误差' rslt = 0 Goto ext End If If Trim(arg_s_mtrl.barcode) <> '' Then ls_barcode = Trim(arg_s_mtrl.barcode) Select count(*) Into :cnt From u_mtrldef Where barcode = :ls_barcode And mtrlid <> :arg_s_mtrl.mtrlid; 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 End If String ls_simplename If arg_s_mtrl.dftcusid > 0 Then Select simplename Into :ls_simplename From u_cust Where cusid = :arg_s_mtrl.dftcusid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询默认客户的简称失败,'+sqlca.SQLErrText Goto ext End If arg_s_mtrl.simplename = ls_simplename End If If arg_s_mtrl.ifbarcodefp = 1 And arg_s_mtrl.outtype <> 2 Then rslt = 0 arg_msg = '使用库存条码指定分配订单必须同时使用条码进出仓' Goto ext End If //如果状态是无效,检查有在进行的主计划，指令单，有采购未到货数，外协未到货数，则不允许设成将物料的状态设为无效，需提示只能设“待停产”状态 If arg_s_mtrl.mtrlid <> 0 And arg_s_mtrl.isuse = 0 Then cnt = 0 Select count(*) Into :cnt From u_order_ml Where mtrlid = :arg_s_mtrl.mtrlid And status = 1; If sqlca.SQLCode <> 0 Then cnt = 0 If cnt > 0 Then rslt = 0 arg_msg = '物料有在进行的主生产计划或指令单,不能设为无效(停产),只能设为待停产' Goto ext End If cnt = 0 Select count(*) Into :cnt From uv_materiel_willfinish_buytask Where mtrlid = :arg_s_mtrl.mtrlid; If sqlca.SQLCode <> 0 Then cnt = 0 If cnt > 0 Then rslt = 0 arg_msg = '物料有有采购未到货数,不能设为无效(停产),只能设为待停产' Goto ext End If cnt = 0 Select count(*) Into :cnt From uv_materiel_willfinish_wfjg Where mtrlid = :arg_s_mtrl.mtrlid; If sqlca.SQLCode <> 0 Then cnt = 0 If cnt > 0 Then rslt = 0 arg_msg = '物料有有外协未到货数,不能设为无效(停产),只能设为待停产' Goto ext End If End If If arg_s_mtrl.mtrlid = 0 Then ll_mtrlid = f_sys_scidentity(0,"u_mtrldef","mtrlid",arg_msg,True,id_sqlca) If ll_mtrlid <= 0 Then rslt = 0 Goto ext End If Insert Into u_mtrldef (mtrlid, mtrlcode, mtrlname, mtrltype, mtrlsectype, mtrlmode, Mtrlorigin, unit, lspacklimit, LMsaleprice, lmbuyprice, dscrp, MaxQTY, MinQTY, isuse, packqty, prdpackcode, opdate, opemp, mtrltypeid, handtype, barcode, mtrlkind, net_weight, gross_weight, cubage, mtrlengname, zxmtrlmode, unit_scll, unit_buy, rate_buy, rate_scll, rate_sale, unit_sale, scllflag, dftwrkGrpid, orderdays, buydays, wfjgdays, ifselforder, minbuyqty, aheaddays, mprice, dftsptid, scid, ifscid, mtrlprp, uprate, upqty, ordertype, statusflag, statustype, woodcodeflag, woodcodetype, pcodeflag, pcodetype, mtrlarea, mtrlarea1, mtrlarea2, configcode, configname, ifpack, ifpackpro, autoinstall, iflimitprice, mtrlcolor, configcodetype, ifautodd, iflljg, ifunit, ifpackpz, ifpacktype, scllrate, cmpqty, usermtrlmode, storagetype, ifmtrlcuscode, mrptype, mrparg, updownprice, outtype, ifpricepack, gydscrp, downrate, ifcustom, buyunit, wfjgunit, scllunit, saleunit, buydec, wfjgdec, sclldec, saledec, issuliao, ifenough, capacity, expday, capaparm, sctaskqty, minarg, maxarg, status_check, woodcode_check, pcode_check, maxdays, mindays, ifmrppackpf, maxzjday, eoq, splitrate, mrp_unit, rebuytype, rebuylot, ifsendlot, upddrate, upddqty, upsalerate, upsaleqty, ifusedeliqty, status_config, woodcode_config, pcode_config, pricepztype, useday, equiptype, ifpackpro2, ifkl, ifturn, iffp, scllqty, piccode, dftscllwkpid, if_hourpay, ifmrp, if_inherit, groupstr, groupday, aps_capacity_type, ifcheck, checkrate, scllplan_mode, chkpassrate, dftcusid, simplename, sendtype, mb_mtrlid, buy_ceiling, wfjg_ceiling, scll_ceiling, sale_ceiling, material, adddec, ifbarcodefp, stoppqty, buy_autoday, upbuyrate, upbuyqty, ifrebuypack, protype, buydays_bx, wfjgdays_bx, multqty, buyer, multtype, bantype, midu, BalcCmplNotUpdate, status_spc, woodcode_spc, pcode_spc) Values(:ll_mtrlid, :arg_s_mtrl.mtrlcode, :arg_s_mtrl.mtrlname, :ls_mtrltype, :arg_s_mtrl.mtrlsectype, :arg_s_mtrl.mtrlmode, :arg_s_mtrl.Mtrlorigin, :arg_s_mtrl.unit, :arg_s_mtrl.lspacklimit, :arg_s_mtrl.LMsaleprice, :arg_s_mtrl.lmbuyprice, :arg_s_mtrl.dscrp, :arg_s_mtrl.MaxQTY, :arg_s_mtrl.MinQTY, :arg_s_mtrl.isuse, :arg_s_mtrl.packqty, :arg_s_mtrl.prdpackcode, getdate(), :arg_opemp, :arg_s_mtrl.mtrltypeid, :ls_handtype, :arg_s_mtrl.barcode, :arg_s_mtrl.mtrlkind, :arg_s_mtrl.net_weight, :arg_s_mtrl.gross_weight, :arg_s_mtrl.cubage, :arg_s_mtrl.mtrlengname, :arg_s_mtrl.zxmtrlmode, :arg_s_mtrl.unit_scll, :arg_s_mtrl.unit_buy, :arg_s_mtrl.rate_buy, :arg_s_mtrl.rate_scll, :arg_s_mtrl.rate_sale, :arg_s_mtrl.unit_sale, :arg_s_mtrl.scllflag, :arg_s_mtrl.dftwrkGrpid, :arg_s_mtrl.orderdays, :arg_s_mtrl.buydays, :arg_s_mtrl.wfjgdays, :arg_s_mtrl.ifselforder, :arg_s_mtrl.minbuyqty, :arg_s_mtrl.aheaddays, :arg_s_mtrl.mprice, :arg_s_mtrl.dftsptid, :arg_s_mtrl.scid, :arg_s_mtrl.ifscid, :arg_s_mtrl.mtrlprp, :arg_s_mtrl.uprate, :arg_s_mtrl.upqty, :arg_s_mtrl.ordertype, :arg_s_mtrl.statusflag, :arg_s_mtrl.statustype, :arg_s_mtrl.woodcodeflag, :arg_s_mtrl.woodcodetype, :arg_s_mtrl.pcodeflag, :arg_s_mtrl.pcodetype, :arg_s_mtrl.mtrlarea, :arg_s_mtrl.mtrlarea1, :arg_s_mtrl.mtrlarea2, :arg_s_mtrl.configcode, :arg_s_mtrl.configname, :arg_s_mtrl.ifpack, :arg_s_mtrl.ifpackpro, :arg_s_mtrl.autoinstall, :arg_s_mtrl.iflimitprice, :arg_s_mtrl.mtrlcolor, :arg_s_mtrl.configcodetype, :arg_s_mtrl.ifautodd, :arg_s_mtrl.iflljg, :arg_s_mtrl.ifunit, :arg_s_mtrl.ifpackpz, :arg_s_mtrl.ifpacktype, :arg_s_mtrl.scllrate, :arg_s_mtrl.cmpqty, :arg_s_mtrl.usermtrlmode, :arg_s_mtrl.storagetype, :arg_s_mtrl.ifmtrlcuscode, :arg_s_mtrl.mrptype, :arg_s_mtrl.mrparg, :arg_s_mtrl.updownprice, :arg_s_mtrl.outtype, :arg_s_mtrl.ifpricepack, :arg_s_mtrl.gydscrp, :arg_s_mtrl.downrate, :arg_s_mtrl.ifcustom, :arg_s_mtrl.buyunit, :arg_s_mtrl.wfjgunit, :arg_s_mtrl.scllunit, :arg_s_mtrl.saleunit, :arg_s_mtrl.buydec, :arg_s_mtrl.wfjgdec, :arg_s_mtrl.sclldec, :arg_s_mtrl.saledec, :arg_s_mtrl.issuliao, :arg_s_mtrl.ifenough, :arg_s_mtrl.capacity, :arg_s_mtrl.expday, :arg_s_mtrl.capaparm, :arg_s_mtrl.sctaskqty, :arg_s_mtrl.minarg, :arg_s_mtrl.maxarg, :arg_s_mtrl.status_check, :arg_s_mtrl.woodcode_check, :arg_s_mtrl.pcode_check, :arg_s_mtrl.maxdays, :arg_s_mtrl.mindays, :arg_s_mtrl.ifmrppackpf, :arg_s_mtrl.maxzjday, :arg_s_mtrl.eoq, :arg_s_mtrl.splitrate, :arg_s_mtrl.mrp_unit, :arg_s_mtrl.rebuytype, :arg_s_mtrl.rebuylot, :arg_s_mtrl.ifsendlot, :arg_s_mtrl.upddrate, :arg_s_mtrl.upddqty, :arg_s_mtrl.upsalerate, :arg_s_mtrl.upsaleqty, :arg_s_mtrl.ifusedeliqty, :arg_s_mtrl.status_config, :arg_s_mtrl.woodcode_config, :arg_s_mtrl.pcode_config, :arg_s_mtrl.pricepztype, :arg_s_mtrl.useday, :arg_s_mtrl.equiptype, :arg_s_mtrl.ifpackpro2, :arg_s_mtrl.ifkl, :arg_s_mtrl.ifturn, :arg_s_mtrl.iffp, :arg_s_mtrl.scllqty, :arg_s_mtrl.piccode, :arg_s_mtrl.dftscllwkpid, :arg_s_mtrl.if_hourpay, :arg_s_mtrl.ifmrp, :arg_s_mtrl.if_inherit, :arg_s_mtrl.groupstr, :arg_s_mtrl.groupday, :arg_s_mtrl.aps_capacity_type, :arg_s_mtrl.ifcheck, :arg_s_mtrl.checkrate, :arg_s_mtrl.scllplan_mode, :arg_s_mtrl.chkpassrate, :arg_s_mtrl.dftcusid, :arg_s_mtrl.simplename, :arg_s_mtrl.sendtype, :arg_s_mtrl.mb_mtrlid, :arg_s_mtrl.buy_ceiling, :arg_s_mtrl.wfjg_ceiling, :arg_s_mtrl.scll_ceiling, :arg_s_mtrl.sale_ceiling, :arg_s_mtrl.material, :arg_s_mtrl.adddec, :arg_s_mtrl.ifbarcodefp, :arg_s_mtrl.stoppqty, :arg_s_mtrl.buy_autoday, :arg_s_mtrl.upbuyrate, :arg_s_mtrl.upbuyqty, :arg_s_mtrl.ifrebuypack, :arg_s_mtrl.protype, :arg_s_mtrl.buydays_bx, :arg_s_mtrl.wfjgdays_bx, :arg_s_mtrl.multqty, :arg_s_mtrl.buyer, :arg_s_mtrl.multtype, :arg_s_mtrl.bantype, :arg_s_mtrl.midu, :arg_s_mtrl.BalcCmplNotUpdate, :arg_s_mtrl.status_spc, :arg_s_mtrl.woodcode_spc, :arg_s_mtrl.pcode_spc); If sqlca.SQLCode <> 0 Then arg_msg = '建立物料资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If Update u_mtrldef_planprice Set planprice = 0 Where mtrlid = :ll_mtrlid; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then Insert Into u_mtrldef_planprice (mtrlid,planprice) Values (:ll_mtrlid,0); If sqlca.SQLCode <> 0 Then arg_msg = '建立物料计划成本价资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If End If End If uo_mtrlid = ll_mtrlid Else Update u_mtrldef Set mtrlcode = :arg_s_mtrl.mtrlcode, mtrlname = :arg_s_mtrl.mtrlname, mtrltype = :ls_mtrltype, mtrlsectype = :arg_s_mtrl.mtrlsectype, mtrlmode = :arg_s_mtrl.mtrlmode, Mtrlorigin = :arg_s_mtrl.Mtrlorigin, unit = :arg_s_mtrl.unit, lspacklimit = :arg_s_mtrl.lspacklimit, LMsaleprice = :arg_s_mtrl.LMsaleprice, lmbuyprice = :arg_s_mtrl.lmbuyprice, dscrp = :arg_s_mtrl.dscrp, MaxQTY = :arg_s_mtrl.MaxQTY, MinQTY = :arg_s_mtrl.MinQTY, isuse = :arg_s_mtrl.isuse, packqty = :arg_s_mtrl.packqty, prdpackcode = :arg_s_mtrl.prdpackcode, mtrltypeid = :arg_s_mtrl.mtrltypeid, handtype = :ls_handtype, barcode = :arg_s_mtrl.barcode, mtrlkind = :arg_s_mtrl.mtrlkind, net_weight = :arg_s_mtrl.net_weight, gross_weight = :arg_s_mtrl.gross_weight, cubage = :arg_s_mtrl.cubage, mtrlengname = :arg_s_mtrl.mtrlengname, zxmtrlmode = :arg_s_mtrl.zxmtrlmode, unit_scll = :arg_s_mtrl.unit_scll, unit_buy = :arg_s_mtrl.unit_buy, rate_buy = :arg_s_mtrl.rate_buy, rate_scll = :arg_s_mtrl.rate_scll, rate_sale = :arg_s_mtrl.rate_sale, unit_sale = :arg_s_mtrl.unit_sale, scllflag = :arg_s_mtrl.scllflag, dftwrkGrpid = :arg_s_mtrl.dftwrkGrpid, orderdays = :arg_s_mtrl.orderdays, buydays = :arg_s_mtrl.buydays, wfjgdays = :arg_s_mtrl.wfjgdays, ifselforder = :arg_s_mtrl.ifselforder, minbuyqty = :arg_s_mtrl.minbuyqty, aheaddays = :arg_s_mtrl.aheaddays, mprice = :arg_s_mtrl.mprice, dftsptid = :arg_s_mtrl.dftsptid, scid = :arg_s_mtrl.scid, ifscid = :arg_s_mtrl.ifscid, mtrlprp = :arg_s_mtrl.mtrlprp, moddate = getdate(), modemp = :arg_opemp, uprate = :arg_s_mtrl.uprate, upqty = :arg_s_mtrl.upqty, ordertype = :arg_s_mtrl.ordertype, statusflag = :arg_s_mtrl.statusflag, statustype = :arg_s_mtrl.statustype, woodcodeflag = :arg_s_mtrl.woodcodeflag, woodcodetype = :arg_s_mtrl.woodcodetype, pcodeflag = :arg_s_mtrl.pcodeflag, pcodetype = :arg_s_mtrl.pcodetype, mtrlarea = :arg_s_mtrl.mtrlarea, mtrlarea1 = :arg_s_mtrl.mtrlarea1, mtrlarea2 = :arg_s_mtrl.mtrlarea2, configcode = :arg_s_mtrl.configcode, configname = :arg_s_mtrl.configname, ifpack = :arg_s_mtrl.ifpack, ifpackpro = :arg_s_mtrl.ifpackpro, autoinstall = :arg_s_mtrl.autoinstall, iflimitprice = :arg_s_mtrl.iflimitprice, mtrlcolor = :arg_s_mtrl.mtrlcolor, configcodetype = :arg_s_mtrl.configcodetype, ifautodd = :arg_s_mtrl.ifautodd, iflljg = :arg_s_mtrl.iflljg, ifunit = :arg_s_mtrl.ifunit, ifpackpz = :arg_s_mtrl.ifpackpz, ifpacktype = :arg_s_mtrl.ifpacktype, scllrate = :arg_s_mtrl.scllrate, cmpqty = :arg_s_mtrl.cmpqty, usermtrlmode = :arg_s_mtrl.usermtrlmode, storagetype = :arg_s_mtrl.storagetype, ifmtrlcuscode = :arg_s_mtrl.ifmtrlcuscode, mrptype = :arg_s_mtrl.mrptype, mrparg = :arg_s_mtrl.mrparg, updownprice = :arg_s_mtrl.updownprice, outtype = :arg_s_mtrl.outtype, ifpricepack = :arg_s_mtrl.ifpricepack, gydscrp = :arg_s_mtrl.gydscrp, downrate = :arg_s_mtrl.downrate, ifcustom = :arg_s_mtrl.ifcustom, buyunit = :arg_s_mtrl.buyunit, wfjgunit = :arg_s_mtrl.wfjgunit, scllunit = :arg_s_mtrl.scllunit, saleunit = :arg_s_mtrl.saleunit, buydec = :arg_s_mtrl.buydec, wfjgdec = :arg_s_mtrl.wfjgdec, sclldec = :arg_s_mtrl.sclldec, saledec = :arg_s_mtrl.saledec, issuliao = :arg_s_mtrl.issuliao, ifenough = :arg_s_mtrl.ifenough, capacity = :arg_s_mtrl.capacity, expday = :arg_s_mtrl.expday, capaparm = :arg_s_mtrl.capaparm, sctaskqty = :arg_s_mtrl.sctaskqty, minarg = :arg_s_mtrl.minarg, maxarg = :arg_s_mtrl.maxarg, status_check = :arg_s_mtrl.status_check, woodcode_check = :arg_s_mtrl.woodcode_check, pcode_check = :arg_s_mtrl.pcode_check, maxdays = :arg_s_mtrl.maxdays, mindays = :arg_s_mtrl.mindays, ifmrppackpf = :arg_s_mtrl.ifmrppackpf, maxzjday = :arg_s_mtrl.maxzjday, eoq = :arg_s_mtrl.eoq, splitrate = :arg_s_mtrl.splitrate, mrp_unit = :arg_s_mtrl.mrp_unit, rebuytype = :arg_s_mtrl.rebuytype, rebuylot = :arg_s_mtrl.rebuylot, ifsendlot = :arg_s_mtrl.ifsendlot, upddrate = :arg_s_mtrl.upddrate, upddqty = :arg_s_mtrl.upddqty, upsalerate = :arg_s_mtrl.upsalerate, upsaleqty = :arg_s_mtrl.upsaleqty, ifusedeliqty = :arg_s_mtrl.ifusedeliqty, status_config = :arg_s_mtrl.status_config, woodcode_config = :arg_s_mtrl.woodcode_config, pcode_config = :arg_s_mtrl.pcode_config, pricepztype = :arg_s_mtrl.pricepztype, useday = :arg_s_mtrl.useday, equiptype = :arg_s_mtrl.equiptype, ifpackpro2 = :arg_s_mtrl.ifpackpro2, ifkl = :arg_s_mtrl.ifkl, ifturn = :arg_s_mtrl.ifturn, iffp = :arg_s_mtrl.iffp, scllqty = :arg_s_mtrl.scllqty, piccode = :arg_s_mtrl.piccode, dftscllwkpid = :arg_s_mtrl.dftscllwkpid, if_hourpay = :arg_s_mtrl.if_hourpay, ifmrp = :arg_s_mtrl.ifmrp, if_inherit = :arg_s_mtrl.if_inherit, groupstr = :arg_s_mtrl.groupstr, groupday = :arg_s_mtrl.groupday, aps_capacity_type = :arg_s_mtrl.aps_capacity_type, ifcheck = :arg_s_mtrl.ifcheck, checkrate = :arg_s_mtrl.checkrate, scllplan_mode = :arg_s_mtrl.scllplan_mode, chkpassrate = :arg_s_mtrl.chkpassrate, dftcusid = :arg_s_mtrl.dftcusid, simplename = :arg_s_mtrl.simplename, sendtype = :arg_s_mtrl.sendtype, mb_mtrlid = :arg_s_mtrl.mb_mtrlid, buy_ceiling = :arg_s_mtrl.buy_ceiling, wfjg_ceiling = :arg_s_mtrl.wfjg_ceiling, scll_ceiling = :arg_s_mtrl.scll_ceiling, sale_ceiling = :arg_s_mtrl.sale_ceiling, material = :arg_s_mtrl.material, adddec = :arg_s_mtrl.adddec, ifbarcodefp = :arg_s_mtrl.ifbarcodefp, stoppqty = :arg_s_mtrl.stoppqty, buy_autoday = :arg_s_mtrl.buy_autoday, upbuyrate = :arg_s_mtrl.upbuyrate, upbuyqty = :arg_s_mtrl.upbuyqty, ifrebuypack = :arg_s_mtrl.ifrebuypack, protype = :arg_s_mtrl.protype, buydays_bx = :arg_s_mtrl.buydays_bx, wfjgdays_bx = :arg_s_mtrl.wfjgdays_bx, multqty = :arg_s_mtrl.multqty , buyer = :arg_s_mtrl.buyer, multtype = :arg_s_mtrl.multtype, bantype = :arg_s_mtrl.bantype, midu = :arg_s_mtrl.midu, BalcCmplNotUpdate = :arg_s_mtrl.BalcCmplNotUpdate, status_spc = :arg_s_mtrl.status_spc, woodcode_spc = :arg_s_mtrl.woodcode_spc, pcode_spc = :arg_s_mtrl.pcode_spc Where mtrlid = :arg_s_mtrl.mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '更新物料资料失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If uo_mtrlid = arg_s_mtrl.mtrlid End If If uo_option_use_suliao = 1 And arg_s_mtrl.issuliao = 1 Then If uof_skmtrl_add(uo_mtrlid,arg_s_mtrl.skmtrlid,arg_s_mtrl.period,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If //增加检查,如果系部件选配,设置了默认值,且分类唯一应用在当前物料,更新部件选配默认值的标准标记 IF uof_update_ppqty(uo_mtrlid,arg_s_mtrl, arg_msg) = 0 THEN 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_update_ban (long arg_mtrlid, s_mtrldef_ban arg_s_ban, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 If arg_mtrlid <= 0 Then rslt = 0 arg_msg = '不合理的物料ID' Goto ext End If If IsNull(arg_s_ban.promode) Then arg_s_ban.promode = '' If IsNull(arg_s_ban.wenli) Then arg_s_ban.wenli = '' If IsNull(arg_s_ban.fengbian) Then arg_s_ban.fengbian = '' If IsNull(arg_s_ban.paikong) Then arg_s_ban.paikong = '' If IsNull(arg_s_ban.luoji) Then arg_s_ban.luoji = '' If IsNull(arg_s_ban.penyou) Then arg_s_ban.penyou = '' If IsNull(arg_s_ban.gydscrp) Then arg_s_ban.gydscrp = '' If IsNull(arg_s_ban.direction) Then arg_s_ban.direction = 0 If IsNull(arg_s_ban.pfklmode) Then arg_s_ban.pfklmode = '' Update u_mtrldef_ban Set promode = :arg_s_ban.promode, wenli = :arg_s_ban.wenli, fengbian = :arg_s_ban.fengbian, paikong = :arg_s_ban.paikong, luoji = :arg_s_ban.luoji, penyou = :arg_s_ban.penyou, gydscrp = :arg_s_ban.gydscrp, direction = :arg_s_ban.direction, pfklmode = :arg_s_ban.pfklmode Where mtrlid = :arg_mtrlid; If sqlca.SQLCode = 0 Then If sqlca.SQLNRows = 0 Then Insert Into u_mtrldef_ban (mtrlid, promode, wenli, fengbian, paikong, luoji, penyou, gydscrp, direction, pfklmode) Values (:arg_mtrlid, :arg_s_ban.promode, :arg_s_ban.wenli, :arg_s_ban.fengbian, :arg_s_ban.paikong, :arg_s_ban.luoji, :arg_s_ban.penyou, :arg_s_ban.gydscrp, :arg_s_ban.direction, :arg_s_ban.pfklmode); 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 arg_ifcommit Then Commit; End If Return rslt end function public function integer uof_update_ppqty (long arg_mtrlid, s_mtrldef arg_s_mtrl, ref string arg_msg);//更新相应部件选配类型的匹配数量(ppqty) Long rslt = 1 //If arg_s_mtrl.statusflag = 1 And arg_s_mtrl.statustype = 0 Then // arg_msg = uo_option_change_status+' 类型为严格选择,必须选定一个待选类别' // rslt = 0 // Goto ext //End If // //If arg_s_mtrl.woodcodeflag = 1 And arg_s_mtrl.woodcodetype = 0 Then // arg_msg = uo_option_change_woodcode+' 类型为严格选择,必须选定一个待选类别' // rslt = 0 // Goto ext //End If // //If arg_s_mtrl.pcodeflag = 1 And arg_s_mtrl.pcodetype = 0 Then // arg_msg = uo_option_change_pcode+' 类型为严格选择,必须选定一个待选类别' // rslt = 0 // Goto ext //End If // IF uof_update_pzdftflag(arg_s_mtrl.statusflag, arg_s_mtrl.statustype, arg_s_mtrl.status_config, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uof_update_pzdftflag(arg_s_mtrl.woodcodeflag, arg_s_mtrl.woodcodetype, arg_s_mtrl.woodcode_config, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uof_update_pzdftflag(arg_s_mtrl.pcodeflag, arg_s_mtrl.pcodetype, arg_s_mtrl.pcode_config, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ext: RETURN rslt end function public function integer uof_update_pzdftflag (long arg_flag, long arg_typeid, string arg_config, ref string arg_msg);Int rslt = 1 Long i, ll_start, ll_i, cnt String ls_name[], ls_namemx[] Long ll_printid IF arg_flag = 4 THEN SELECT cnt INTO :cnt FROM uv_configure_type_ppqty Where pzid = :arg_typeid; IF sqlca.SQLCode <> 0 THEN cnt = 0 END IF IF cnt = 1 And arg_config <> '' THEN //更新标准标记 IF Right(arg_config,1) <> "|" THEN arg_config += "|" END IF i = 0 ll_start = Pos(arg_config, "|") DO WHILE ll_start > 0 And arg_config <> "|" i++ ls_name[i] = Left(arg_config, Pos(arg_config,":") - 1) ls_namemx[i] = Left(arg_config, ll_start - 1) ls_namemx[i] = Mid(ls_namemx[i],Pos(ls_namemx[i],':') + 1) arg_config = Mid(arg_config, ll_start + 1) ll_start = Pos(arg_config, "|") LOOP FOR ll_i = 1 To UpperBound(ls_name) UPDATE u_configure_codemx SET ifdft = 1 FROM u_configure_code INNER JOIN u_configure_codemx ON u_configure_code.pzid = u_configure_codemx.pzid WHERE u_configure_code.typeid = :arg_typeid AND u_configure_code.name = :ls_name[ll_i] And u_configure_codemx.namemx = :ls_namemx[ll_i]; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新配置标准值失败,"+sqlca.SQLErrText GOTO ext END IF NEXT ELSE //取消标准标记 UPDATE u_configure_codemx SET ifdft = 0 FROM u_configure_code INNER JOIN u_configure_codemx ON u_configure_code.pzid = u_configure_codemx.pzid Where u_configure_code.typeid = :arg_typeid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "取消配置标准值失败,"+sqlca.SQLErrText GOTO ext END IF END IF END IF ext: IF rslt = 0 THEN //rollback; ELSE END IF RETURN rslt end function public function integer uof_get_pztype (integer arg_type, string arg_pzname, ref long arg_pzid, ref string arg_msg);Int rslt = 1 Long ll_cnt Long ll_newid IF arg_type = 1 THEN SELECT count(*) INTO :ll_cnt FROM u_pztype_def Where typename = :arg_pzname; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询新配置类型名称是否重复失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_cnt > 0 THEN SELECT typeid INTO :ll_newid FROM u_pztype_def Where typename = :arg_pzname; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询新配置类型名称失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF //arg_pzid = ll_newid //RETURN 1 END IF IF ll_newid = 0 THEN ll_newid = f_sys_scidentity(0,"u_pztype_def","typeid",arg_msg,True,id_sqlca) IF ll_newid <= 0 THEN arg_msg = '获取新ID失败,'+arg_msg rslt = 0 GOTO ext END IF INSERT INTO u_pztype_def (typeid, typename) Values ( :ll_newid, :arg_pzname); IF sqlca.SQLCode <> 0 THEN arg_msg = '新建严格选择配置类型:'+arg_pzname+'失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF ELSE SELECT count(*) INTO :ll_cnt FROM u_configure_type Where contfigtypename = :arg_pzname; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询新部件选配类型名称是否重复失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_cnt > 0 THEN SELECT contfigtypeid INTO :ll_newid FROM u_configure_type Where contfigtypename = :arg_pzname; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询新部件选配类型名称失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF // arg_pzid = ll_newid // RETURN 1 END IF IF ll_newid = 0 THEN ll_newid = f_sys_scidentity(0,"u_configure_type","contfigtypeid",arg_msg,True,id_sqlca) IF ll_newid <= 0 THEN arg_msg = '获取新ID失败,'+arg_msg rslt = 0 GOTO ext END IF INSERT INTO u_configure_type (contfigtypeid, contfigtypename) Values ( :ll_newid, :arg_pzname); IF sqlca.SQLCode <> 0 THEN arg_msg = '新建部件选配类型:'+arg_pzname+'失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF END IF arg_pzid = ll_newid ext: RETURN rslt end function on uo_mtrldef.create call super::create TriggerEvent( this, "constructor" ) end on on uo_mtrldef.destroy TriggerEvent( this, "destructor" ) call super::destroy end on event constructor;String str_optionvalue,arg_msg f_get_sys_option_value('159',str_optionvalue,arg_msg) uo_option_use_suliao = Long(str_optionvalue) f_get_sys_option_value('170',str_optionvalue,arg_msg) uo_option_use_machining_ll = Long(str_optionvalue) f_get_sys_option_value('029',str_optionvalue,arg_msg) uo_option_change_status = str_optionvalue f_get_sys_option_value('027',str_optionvalue,arg_msg) uo_option_change_woodcode = str_optionvalue f_get_sys_option_value('028',str_optionvalue,arg_msg) uo_option_change_pcode = str_optionvalue f_get_sys_option_value('142',str_optionvalue,arg_msg) uo_option_inout_type = Long(str_optionvalue) end event