$PBExportHeader$uo_saletask_ll.sru forward global type uo_saletask_ll from nonvisualobject end type type s_saletaskmx from structure within uo_saletask_ll end type type s_saletaskmx_mx from structure within uo_saletask_ll end type type s_saletaskmx_in from structure within uo_saletask_ll end type end forward type s_saletaskmx from structure long mtrlid decimal { 10 } saleqty decimal { 10 } plprice decimal { 10 } acprice string dscrp string mtrlcode decimal { 10 } fprice decimal { 5 } rebate string status long printid string woodcode string pcode string mtrlcuscode string mtrlchangecode decimal { 10 } enprice string outtype decimal { 10 } dftsaleprice integer auditflag string auditemp datetime auditdate datetime requiredate string pfcode string dscrp2 decimal { 10 } scidprice decimal { 10 } inwareqty decimal { 10 } usaleqty decimal { 10 } uprice decimal { 5 } rate string unit decimal { 5 } capacity end type type s_saletaskmx_mx from structure long mtrlwareid decimal { 10 } qty end type type s_saletaskmx_in from structure long mtrlid string status string woodcode string pcode string plancode string mxdscrp decimal { 5 } fprice long printid decimal { 10 } qty long storageid end type global type uo_saletask_ll from nonvisualobject end type global uo_saletask_ll uo_saletask_ll type variables Public ProtectedWrite Long taskid Public ProtectedWrite String taskcode Public ProtectedWrite DateTime opdate Public ProtectedWrite String operator Public ProtectedWrite Int status Public ProtectedWrite DateTime accomplishdate Public ProtectedWrite String permit_emp Public ProtectedWrite String last_emp Public ProtectedWrite Long ctmint Long scid Long banktypeid Long moneyid Decimal damt Decimal otheramt Decimal mrate Int Kind Long cusid String assign_emp DateTime requiredate DateTime taskdate String freight String dscrp String dscrp2 String relcode String paytype String freight_tele String cus_address String cus_tele String cus_fax String upname Decimal msttakeamt,takeamt Long audit_buildtype Transaction commit_transaction //数据commit事务 Private: s_saletaskmx saletaskmx[] //明细结构 s_saletaskmx_in saletaskmx_in[] //明细结构 Long it_mxbt_in = 0 //来料加工订单收料明细 Long it_mxbt = 0 //明细结构数组末指针 Boolean it_newbegin = True //新建标志 Boolean it_updatebegin = False //修改标志 s_saletaskmx_mx taskmx[] Long it_mxbt_mx = 0 Decimal mx_sumqty = 0 String uo_option_change_status String uo_option_change_woodcode String uo_option_change_pcode Int uo_option_saletask_secaudit Int uo_option_if_oa_saletask Int uo_option_taskplancode_auto_ll Int uo_option_autocreate_buy_cp Int uo_option_m_msttake Int uo_option_taskaudit_dprice Int uo_option_if_msg Int uo_option_saletask_fore_secaudit Int uo_option_saletask_addware Int uo_option_unit_dec end variables forward prototypes public function integer p_reset () public function integer p_clearmx () public function integer savesubmit (string arg_operator, ref string arg_msg, boolean arg_ifcommit) private function integer uof_p_check_dprice (ref string arg_msg) public function integer acceptmx_in (long arg_mtrlid, long arg_printid, string arg_mtrlcode, long arg_storageid, decimal arg_qty, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, decimal arg_fprice, string arg_mxdscrp, ref string arg_msg) public function integer acceptmx (long arg_mtrlid, decimal arg_uqty, string arg_unit, decimal arg_rate, decimal arg_uprice, decimal arg_rebate, string arg_dscrp, string arg_dscrp2, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, long arg_printid, string arg_outtype, datetime arg_requiredate, decimal arg_scidprice, ref string arg_msg) private function integer p_getinfo (long arg_taskid, ref string arg_msg) public function integer getinfo (long arg_taskid, ref string arg_msg) public function integer addmxcmpl (long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer addmxcmpl_in (long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer cancel (long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer canceloapermit (long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer updateassignqty (long arg_scid, long arg_taskid, long arg_printid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer updatebegin (long arg_taskid, ref string arg_msg) public function integer trycmplsaletask (long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer tempstoptask (long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer stopsaletask (long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer stopmx (long arg_taskid, long arg_printid, string arg_mtrlcode, integer arg_flag, string arg_stopreason, ref string arg_msg, boolean arg_commit) public function integer salepermit (long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer propermit (long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer trycmptask_fore (long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer add_dscrp (long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit) public function integer ddpermit (long arg_taskid, long arg_printid, integer arg_flag, ref string arg_msg, boolean arg_ifcommit) public function integer p_cprqplan (long arg_taskid, long arg_printid, long arg_flag, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer cancelpermit (long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer checkmxcmpl (long arg_taskid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg) public function integer finishtask (long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer cancelpropermit (long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer updatebqty (long arg_taskid, long arg_printid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer updateinwareqty (long arg_taskid, long arg_printid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer newbegin () end prototypes public function integer p_reset ();//int p_reset() //清除对象及其明细 scid = 0 taskid = 0 taskcode = '' operator = '' status = 0 damt = 0 otheramt = 0 banktypeid = 0 moneyid = 0 relcode = '' freight_tele = '' msttakeamt = 0 takeamt = 0 it_newbegin = FALSE it_updatebegin = FALSE //清除明细 p_clearmx() RETURN 1 end function public function integer p_clearmx ();//INT p_clearmx() //清除明细 it_mxbt=0 it_mxbt_in=0 RETURN 1 end function public function integer savesubmit (string arg_operator, ref string arg_msg, boolean arg_ifcommit);Integer rslt = 1,cnt = 0,i,j Long ls_newtaskid DateTime server_datetime Long ll_taskid String ls_sccode String ls_mtrlcuscode IF uo_option_taskplancode_auto_ll = -1000 THEN arg_msg = '选项:[133]来料加工订单生产批号类型,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF IsNull(dscrp) THEN dscrp = '' IF IsNull(dscrp2) THEN dscrp2 = '' IF IsNull(assign_emp) THEN assign_emp = '' IF IsNull(arg_operator) THEN arg_operator = '' IF IsNull(paytype) THEN paytype = '' IF IsNull(relcode) THEN relcode = '' IF IsNull(banktypeid) THEN banktypeid = 0 IF IsNull(moneyid) THEN moneyid = 0 IF IsNull(damt) THEN damt = 0 IF IsNull(otheramt) THEN otheramt = 0 IF IsNull(mrate) THEN mrate = 0 IF IsNull(Kind) THEN Kind = 0 IF IsNull(freight) THEN freight = '' IF IsNull(freight_tele) THEN freight_tele = '' IF IsNull(cus_address) THEN cus_address = '' IF IsNull(cus_tele) THEN cus_tele = '' IF IsNull(cus_fax) THEN cus_fax = '' IF IsNull(upname) THEN upname = '' IF IsNull(msttakeamt) THEN msttakeamt = 0 operator = arg_operator IF it_newbegin = FALSE AND it_updatebegin = FALSE THEN rslt = 0 arg_msg = "非编辑状态不可以提交" GOTO ext END IF IF Trim(assign_emp) = '' THEN rslt = 0 arg_msg = "请输入订单业务员" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_cust Where cusid = :cusid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,客户资料" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "客户未定义或错误" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM cw_banktype Where banktypeid = :banktypeid; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询结算方式失败' rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '结算方式不存在' rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM cw_currency Where moneyid = :moneyid; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询币种失败' rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '币种资料不存在' rslt = 0 GOTO ext END IF IF mrate = 0 THEN arg_msg = '币种汇率错误' rslt = 0 GOTO ext END IF SELECT Top 1 getdate() INTO :server_datetime FROM u_user USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF IF f_check_inoutdate(0,taskdate,FALSE,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF Date(taskdate) > Date(requiredate) THEN arg_msg = '交货日期不能在订货日期前' rslt = 0 GOTO ext END IF IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空 rslt = 0 arg_msg = "没有正确销售订单明细内容" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :operator USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消!" GOTO ext END IF opdate = server_datetime //填写单据建立时间(最近修改时间) ////////////////////////////////////////////// //开始区分:新建/更新 处理 IF taskid = 0 THEN //新建 ll_taskid = f_sys_scidentity(0,"u_saletask_ll","taskid",arg_msg,TRUE,id_sqlca) IF ll_taskid <= 0 THEN rslt = 0 GOTO ext END IF //取分部代号 IF f_get_sccode(scid,commit_transaction,ls_sccode,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF taskcode = getid(0,ls_sccode + 'SJ',Date(server_datetime),FALSE,commit_transaction) IF taskcode = "err" THEN taskcode = '' rslt = 0 arg_msg = "无法获取来料加工订单编号"+"~n"+sqlca.SQLErrText GOTO ext END IF INSERT INTO u_saletask_ll ( scid, taskcode, cusid, requiredate, status, opemp, assign_emp, permit_emp, dscrp, dscrp2, opdate, taskid, damt, otheramt, freight, taskdate, banktypeid, moneyid, relcode, paytype, freight_tele, cus_address, cus_tele, cus_fax, mrate, upname, msttakeamt) VALUES ( :scid, :taskcode, :cusid, :requiredate, :status, :operator, :assign_emp, :permit_emp, :dscrp, :dscrp2, :opdate, :ll_taskid, :damt, :otheramt, :freight, :taskdate, :banktypeid, :moneyid, :relcode, :paytype, :freight_tele, :cus_address, :cus_tele, :cus_fax, :mrate, :upname, :msttakeamt) USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入销售订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //读取新taskid taskid = ll_taskid FOR i = 1 TO it_mxbt ls_mtrlcuscode = '' CHOOSE CASE uo_option_taskplancode_auto_ll CASE 1 ls_mtrlcuscode = saletaskmx[i].mtrlcuscode CASE 2 ls_mtrlcuscode = taskcode CASE 3 ls_mtrlcuscode = relcode CASE ELSE arg_msg = '错误的生产批号,管理员请在系统选项设置先设定好订单批号模式' rslt = 0 GOTO ext END CHOOSE INSERT INTO u_saletaskmx_ll ( scid, saleqty, price, mtrlid, taskid, mxdscrp, mxdscrp2, fprice, rebate, status, printid, woodcode, pcode, mtrlcuscode, enprice, outtypestr, dftsaleprice, requiredate, pfcode, scidprice, usaleqty, unit, rate) VALUES (:scid, :saletaskmx[i].saleqty, :saletaskmx[i].acprice, :saletaskmx[i].mtrlid, :ll_taskid, :saletaskmx[i].dscrp, :saletaskmx[i].dscrp2, :saletaskmx[i].fprice, :saletaskmx[i].rebate, :saletaskmx[i].status, :saletaskmx[i].printid, :saletaskmx[i].woodcode, :saletaskmx[i].pcode, :ls_mtrlcuscode, :saletaskmx[i].enprice, :saletaskmx[i].outtype, :saletaskmx[i].dftsaleprice, :saletaskmx[i].requiredate, :saletaskmx[i].pfcode, :saletaskmx[i].scidprice, :saletaskmx[i].usaleqty, :saletaskmx[i].unit, :saletaskmx[i].rate) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN taskid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT FOR j = 1 TO it_mxbt_in INSERT INTO u_saletaskmx_in (scid, taskid, printid, mtrlid, plancode, status, woodcode, pcode, qty, fprice, mxdscrp, storageid) VALUES (:scid, :ll_taskid, :saletaskmx_in[j].printid, :saletaskmx_in[j].mtrlid, :saletaskmx_in[j].plancode, :saletaskmx_in[j].status, :saletaskmx_in[j].woodcode, :saletaskmx_in[j].pcode, :saletaskmx_in[j].qty, :saletaskmx_in[j].fprice, :saletaskmx_in[j].mxdscrp, :saletaskmx_in[j].storageid) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN taskid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入收料明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT ELSE //////////////////////////////////////////////// //更新 UPDATE u_saletask_ll SET kind = :Kind, cusid = :cusid, requiredate = :requiredate, assign_emp = :assign_emp, dscrp = :dscrp, dscrp2 = :dscrp2, moddate = :opdate, modemp = :operator, damt = :damt, otheramt = :otheramt, freight = :freight, taskdate = :taskdate, banktypeid = :banktypeid, moneyid = :moneyid, relcode = :relcode, paytype = :paytype, freight_tele = :freight_tele, cus_address = :cus_address, cus_tele = :cus_tele, cus_fax = :cus_fax, mrate = :mrate, upname = :upname, msttakeamt = :msttakeamt WHERE taskid = :taskid AND scid = :scid AND status = 0 USING commit_transaction; IF commit_transaction.SQLCode <> 0 OR commit_transaction.SQLNRows <= 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新来料加工订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //删除原有明细 DELETE FROM u_saletaskmx_ll Where u_saletaskmx_ll.taskid = :taskid AND u_saletaskmx_ll.scid = :scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除旧有明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF FOR i = 1 TO it_mxbt ls_mtrlcuscode = '' CHOOSE CASE uo_option_taskplancode_auto_ll CASE 1 ls_mtrlcuscode = saletaskmx[i].mtrlcuscode CASE 2 ls_mtrlcuscode = taskcode CASE 3 ls_mtrlcuscode = relcode CASE ELSE arg_msg = '错误的生产批号,管理员请先设定好订单批号模式' rslt = 0 GOTO ext END CHOOSE INSERT INTO u_saletaskmx_ll ( scid, taskid, mtrlid, saleqty, price, mxdscrp, mxdscrp2, fprice, rebate, status, printid, woodcode, pcode, mtrlcuscode, enprice, outtypestr, dftsaleprice, requiredate, pfcode, scidprice, usaleqty, unit, rate) VALUES (:scid, :taskid, :saletaskmx[i].mtrlid, :saletaskmx[i].saleqty, :saletaskmx[i].acprice, :saletaskmx[i].dscrp, :saletaskmx[i].dscrp2, :saletaskmx[i].fprice, :saletaskmx[i].rebate, :saletaskmx[i].status, :saletaskmx[i].printid, :saletaskmx[i].woodcode, :saletaskmx[i].pcode, :ls_mtrlcuscode, :saletaskmx[i].enprice, :saletaskmx[i].outtype, :saletaskmx[i].dftsaleprice, :saletaskmx[i].requiredate, :saletaskmx[i].pfcode, :saletaskmx[i].scidprice, :saletaskmx[i].usaleqty, :saletaskmx[i].unit, :saletaskmx[i].rate ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT DELETE FROM u_saletaskmx_in Where u_saletaskmx_in.taskid = :taskid AND scid = :scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除旧有收料明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF FOR j = 1 TO it_mxbt_in INSERT INTO u_saletaskmx_in (scid, taskid, printid, mtrlid, plancode, status, woodcode, pcode, qty, fprice, mxdscrp, storageid) VALUES (:scid, :taskid, :saletaskmx_in[j].printid, :saletaskmx_in[j].mtrlid, :saletaskmx_in[j].plancode, :saletaskmx_in[j].status, :saletaskmx_in[j].woodcode, :saletaskmx_in[j].pcode, :saletaskmx_in[j].qty, :saletaskmx_in[j].fprice, :saletaskmx_in[j].mxdscrp, :saletaskmx_in[j].storageid) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN taskid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入收料明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; p_clearmx() ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF RETURN rslt end function private function integer uof_p_check_dprice (ref string arg_msg);Int rslt = 1 Long ll_i String ls_mtrlcode Decimal ld_dftsaleprice IF uo_option_taskaudit_dprice = -1000 THEN arg_msg = '选项:[051]销售订单审核前必须有定价,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_taskaudit_dprice = 0 THEN rslt = 1 GOTO ext END IF FOR ll_i = 1 TO it_mxbt ls_mtrlcode = saletaskmx[ll_i].mtrlcode ld_dftsaleprice = saletaskmx[ll_i].dftsaleprice IF saletaskmx[ll_i].outtype <> '' THEN CONTINUE IF ld_dftsaleprice = 0 THEN arg_msg = '物料:'+ls_mtrlcode+'未有定价,请检查' rslt = 0 GOTO ext END IF NEXT ext: RETURN rslt end function public function integer acceptmx_in (long arg_mtrlid, long arg_printid, string arg_mtrlcode, long arg_storageid, decimal arg_qty, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, decimal arg_fprice, string arg_mxdscrp, ref string arg_msg);Int rslt = 1 Long cnt = 0,ls_i IF it_newbegin = FALSE AND it_updatebegin = FALSE THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF IF uo_option_change_status = '-1000' THEN arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_change_woodcode = '-1000' THEN arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_change_pcode = '-1000' THEN arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF //清除空值 IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0 IF IsNull(arg_qty) THEN arg_qty = 0 IF IsNull(arg_fprice) THEN arg_fprice = 0 IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = '' IF IsNull(arg_mtrlcode) THEN arg_mtrlcode = '' IF IsNull(arg_status) THEN arg_status = '' IF IsNull(arg_woodcode) THEN arg_woodcode = '' IF IsNull(arg_pcode) THEN arg_pcode = '' IF IsNull(arg_printid) THEN arg_printid = 0 IF IsNull(arg_plancode) THEN arg_plancode = '' IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = '' IF IsNull(arg_storageid) THEN arg_storageid = 0 IF arg_mtrlid = 0 OR arg_qty = 0 THEN rslt = 1 GOTO ext END IF IF arg_storageid = 0 THEN rslt = 0 arg_msg = '请选择仓库,第'+String(arg_printid)+'行' GOTO ext END IF IF f_check_status(1,arg_status) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能'+uo_option_change_status+'未定义,物料:"+arg_mtrlcode+",内容:"+arg_status GOTO ext END IF IF f_check_status(2,arg_woodcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能'+uo_option_change_woodcode+'未定义,物料:"+arg_mtrlcode+",内容:"+arg_woodcode GOTO ext END IF IF f_check_status(3,arg_pcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能'+uo_option_change_pcode+'未定义,物料:"+arg_mtrlcode+",内容:"+arg_pcode GOTO ext END IF IF arg_fprice < 0 THEN rslt = 0 arg_msg = "物料编码：" + String(arg_mtrlcode)+" 单价错误" GOTO ext END IF FOR ls_i = 1 TO it_mxbt_in //合并重复项 IF saletaskmx_in[ls_i].mtrlid = arg_mtrlid AND & saletaskmx_in[ls_i].status = arg_status AND & saletaskmx_in[ls_i].pcode = arg_pcode AND & saletaskmx_in[ls_i].plancode = arg_plancode AND & saletaskmx_in[ls_i].woodcode = arg_woodcode and & saletaskmx_in[ls_i].storageid = arg_storageid THEN saletaskmx_in[ls_i].qty = saletaskmx_in[ls_i].qty+arg_qty rslt = 1 GOTO ext END IF NEXT //写入内容 it_mxbt_in++ saletaskmx_in[it_mxbt_in].mtrlid = arg_mtrlid saletaskmx_in[it_mxbt_in].qty = arg_qty saletaskmx_in[it_mxbt_in].fprice = arg_fprice saletaskmx_in[it_mxbt_in].mxdscrp = arg_mxdscrp saletaskmx_in[it_mxbt_in].status = arg_status saletaskmx_in[it_mxbt_in].printid = arg_printid saletaskmx_in[it_mxbt_in].woodcode = arg_woodcode saletaskmx_in[it_mxbt_in].pcode = arg_pcode saletaskmx_in[it_mxbt_in].plancode = arg_plancode saletaskmx_in[it_mxbt_in].storageid = arg_storageid ext: IF rslt = 0 THEN p_clearmx() RETURN rslt end function public function integer acceptmx (long arg_mtrlid, decimal arg_uqty, string arg_unit, decimal arg_rate, decimal arg_uprice, decimal arg_rebate, string arg_dscrp, string arg_dscrp2, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, long arg_printid, string arg_outtype, datetime arg_requiredate, decimal arg_scidprice, ref string arg_msg);Int rslt = 1 Long cnt = 0,ls_i Decimal ld_dftsaleprice Decimal ld_planprice IF it_newbegin = FALSE AND it_updatebegin = FALSE THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF //清除空值 IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0 IF IsNull(arg_uqty) THEN arg_uqty = 0 IF IsNull(arg_uprice) THEN arg_uprice = 0 IF IsNull(arg_rebate) THEN arg_rebate = 0 IF arg_rebate = 0 THEN arg_rebate = 1 IF IsNull(arg_dscrp) THEN arg_dscrp = '' IF IsNull(arg_mtrlcode) THEN arg_mtrlcode = '' IF IsNull(arg_status) THEN arg_status = '' IF IsNull(arg_woodcode) THEN arg_woodcode = '' IF IsNull(arg_pcode) THEN arg_pcode = '' IF IsNull(arg_printid) THEN arg_printid = 0 IF IsNull(arg_outtype) THEN arg_outtype = '' IF IsNull(arg_mtrlcuscode) THEN arg_mtrlcuscode = '' IF IsNull(arg_dscrp2) THEN arg_dscrp2 = '' IF IsNull(arg_unit) THEN arg_unit = '' IF IsNull(arg_rate) THEN arg_rate = 1 IF arg_rate = 0 THEN arg_rate = 1 IF IsNull(arg_uprice) THEN arg_uprice = 0 IF uo_option_change_status = '-1000' THEN arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_change_woodcode = '-1000' THEN arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_change_pcode = '-1000' THEN arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_m_msttake = -1000 THEN arg_msg = '选项:[045]系统使用多币种应收帐,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_unit_dec = -1000 THEN arg_msg = '选项:[023]辅助单位转换库存单位小数位,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_mtrlid = 0 OR arg_uqty = 0 THEN rslt = 1 GOTO ext END IF IF f_check_status(1,arg_status) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_status GOTO ext END IF IF f_check_status(2,arg_woodcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_woodcode GOTO ext END IF IF f_check_status(3,arg_pcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_pcode GOTO ext END IF IF arg_uprice * arg_rebate < 0 THEN rslt = 0 arg_msg = "产品：" + String(arg_mtrlcode)+" 单价错误" GOTO ext END IF IF arg_rebate <= 0 THEN arg_msg = '折扣错误,请检查' rslt = 0 GOTO ext END IF String ls_pfcode ls_pfcode = f_get_dft_pf(arg_mtrlid) //检查物料id Int li_statusflag Decimal ld_capacity,ld_capacity_zj s_mtrlcfg_expr s_pz[] String ls_status_zj long ll_i SELECT planprice,statusflag,capacity INTO :ld_planprice,:li_statusflag,:ld_capacity FROM u_mtrldef Where u_mtrldef.mtrlid = :arg_mtrlid ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,产品计划价" GOTO ext END IF IF li_statusflag = 2 AND Trim(arg_status) = '' THEN rslt = 0 arg_msg = '第'+String(arg_printid)+'行,产品:'+arg_mtrlcode+' 属于组合配置类型,但没有输入配置,请检查' GOTO ext END IF //IF li_statusflag = 2 THEN // ld_capacity = 0 // f_checkpz(arg_status,s_pz[]) // FOR ll_i = 1 TO UpperBound(s_pz) // ls_status_zj = s_pz[ll_i].cfgname // // SELECT capacity // INTO :ld_capacity_zj // FROM u_mtrl_configure // WHERE mtrlid = :arg_mtrlid // AND Name = :ls_status_zj; // IF commit_transaction.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 ld_dftsaleprice = 0 f_get_defsaleprice(cusid,arg_mtrlid,arg_status,arg_pcode,arg_woodcode,moneyid,ld_dftsaleprice) //写入内容 it_mxbt++ saletaskmx[it_mxbt].dftsaleprice = ld_dftsaleprice saletaskmx[it_mxbt].mtrlid = arg_mtrlid saletaskmx[it_mxbt].usaleqty = arg_uqty saletaskmx[it_mxbt].saleqty = Round(arg_uqty * arg_rate,uo_option_unit_dec) saletaskmx[it_mxbt].plprice = ld_planprice saletaskmx[it_mxbt].dscrp = arg_dscrp saletaskmx[it_mxbt].dscrp2 = arg_dscrp2 saletaskmx[it_mxbt].mtrlcode = arg_mtrlcode saletaskmx[it_mxbt].status = arg_status saletaskmx[it_mxbt].printid = arg_printid saletaskmx[it_mxbt].woodcode = arg_woodcode saletaskmx[it_mxbt].pcode = arg_pcode saletaskmx[it_mxbt].mtrlcuscode = arg_mtrlcuscode saletaskmx[it_mxbt].unit = arg_unit saletaskmx[it_mxbt].rate = arg_rate //saletaskmx[it_mxbt].uprice = arg_uprice saletaskmx[it_mxbt].enprice = arg_uprice // * arg_rebate//Round((arg_uprice * arg_uqty)/(Round(arg_uqty * arg_rate,uo_option_unit_dec)),10) saletaskmx[it_mxbt].rebate = arg_rebate saletaskmx[it_mxbt].fprice = arg_uprice * mrate / arg_rate saletaskmx[it_mxbt].acprice = saletaskmx[it_mxbt].fprice * arg_rebate saletaskmx[it_mxbt].scidprice = arg_scidprice saletaskmx[it_mxbt].outtype = arg_outtype saletaskmx[it_mxbt].requiredate = arg_requiredate saletaskmx[it_mxbt].pfcode = ls_pfcode IF uo_option_m_msttake = 1 THEN //使用多币种 msttakeamt = msttakeamt + arg_uprice * arg_uqty * arg_rebate ELSE // 系统不使用多币种,转换为人民币 msttakeamt = msttakeamt + arg_uprice * arg_uqty * arg_rebate * mrate END IF ext: IF rslt = 0 THEN p_clearmx() RETURN rslt end function private function integer p_getinfo (long arg_taskid, ref string arg_msg);Int rslt = 1 SELECT scid, taskid, TaskCode, kind, CusID, requiredate, accomplishdate, Status, Opemp, Assign_Emp, Permit_Emp, Dscrp, Dscrp2, opdate, damt, otheramt, freight, taskdate, banktypeid , moneyid, relcode, paytype, freight_tele, cus_address, cus_tele, cus_fax, mrate, upname, ctmint, msttakeamt, takeamt INTO :scid, :taskid, :TaskCode, :Kind, :CusID, :requiredate, :accomplishdate, :Status, :Operator, :Assign_Emp, :Permit_Emp, :Dscrp, :Dscrp2, :opdate , :damt, :otheramt, :freight, :taskdate, :banktypeid, :moneyid, :relcode, :paytype, :freight_tele, :cus_address, :cus_tele, :cus_fax, :mrate, :upname, :ctmint, :msttakeamt, :takeamt FROM u_SaleTask_ll Where u_SaleTask_ll.taskid = :arg_taskid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '查询订单内容失败(错误来料加工订单唯一码)' GOTO ext END IF ext: RETURN rslt end function public function integer getinfo (long arg_taskid, ref string arg_msg);//getinfo(long arg_taskid,string arg_msg) //0 失败 1成功 Int rslt = 1,i = 1,j = 1 ,no_mxcheck = 0 IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //用游标读取明细 DECLARE cur_inwaermx CURSOR FOR SELECT u_saletaskmx_ll.mtrlid, u_saletaskmx_ll.saleqty, u_saletaskmx_ll.price, u_saletaskmx_ll.mxdscrp, u_saletaskmx_ll.mxdscrp2, u_mtrldef.mtrlcode, u_saletaskmx_ll.fprice, u_saletaskmx_ll.rebate, u_saletaskmx_ll.status, u_saletaskmx_ll.printid, u_saletaskmx_ll.woodcode, u_saletaskmx_ll.pcode, u_saletaskmx_ll.mtrlcuscode, u_saletaskmx_ll.enprice, u_saletaskmx_ll.outtypestr, u_saletaskmx_ll.dftsaleprice, u_saletaskmx_ll.requiredate, u_saletaskmx_ll.pfcode, u_saletaskmx_ll.scidprice FROM u_saletaskmx_ll,u_mtrldef WHERE u_saletaskmx_ll.taskid = :arg_taskid AND u_saletaskmx_ll.mtrlid = u_mtrldef.mtrlid USING commit_transaction; OPEN cur_inwaermx; FETCH cur_inwaermx INTO :saletaskmx[i].mtrlid,:saletaskmx[i].saleqty, :saletaskmx[i].acprice,:saletaskmx[i].dscrp,:saletaskmx[i].dscrp2, :saletaskmx[i].mtrlcode,:saletaskmx[i].fprice, :saletaskmx[i].rebate,:saletaskmx[i].status, :saletaskmx[i].printid,:saletaskmx[i].woodcode, :saletaskmx[i].pcode,:saletaskmx[i].mtrlcuscode, :saletaskmx[i].enprice,:saletaskmx[i].outtype, :saletaskmx[i].dftsaleprice, :saletaskmx[i].requiredate, :saletaskmx[i].pfcode,:saletaskmx[i].scidprice; DO WHILE sqlca.SQLCode = 0 i++ FETCH cur_inwaermx INTO :saletaskmx[i].mtrlid,:saletaskmx[i].saleqty, :saletaskmx[i].acprice,:saletaskmx[i].dscrp,:saletaskmx[i].dscrp2, :saletaskmx[i].mtrlcode,:saletaskmx[i].fprice, :saletaskmx[i].rebate,:saletaskmx[i].status, :saletaskmx[i].printid,:saletaskmx[i].woodcode, :saletaskmx[i].pcode,:saletaskmx[i].mtrlcuscode, :saletaskmx[i].enprice,:saletaskmx[i].outtype, :saletaskmx[i].dftsaleprice, :saletaskmx[i].requiredate, :saletaskmx[i].pfcode,:saletaskmx[i].scidprice; LOOP CLOSE cur_inwaermx; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_saletaskmx_ll Where u_saletaskmx_ll.taskid = :arg_taskid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,销售订单明细数量" GOTO ext END IF IF i <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,销售订单明细" GOTO ext END IF it_mxbt = i - 1 //读取来料加工订单收料明细 //用游标读取明细 DECLARE cur_saletaskmx_in CURSOR FOR SELECT u_saletaskmx_in.mtrlid, u_saletaskmx_in.qty, u_saletaskmx_in.fprice, u_saletaskmx_in.mxdscrp, u_saletaskmx_in.status, u_saletaskmx_in.printid, u_saletaskmx_in.woodcode, u_saletaskmx_in.pcode, u_saletaskmx_in.plancode, u_saletaskmx_in.storageid FROM u_saletaskmx_in WHERE u_saletaskmx_in.taskid = :arg_taskid USING commit_transaction; OPEN cur_saletaskmx_in; FETCH cur_saletaskmx_in INTO :saletaskmx_in[j].mtrlid,:saletaskmx_in[j].qty, :saletaskmx_in[j].fprice,:saletaskmx_in[j].mxdscrp, :saletaskmx_in[j].status,:saletaskmx_in[j].printid,:saletaskmx_in[j].woodcode, :saletaskmx_in[j].pcode,:saletaskmx_in[j].plancode,:saletaskmx_in[j].storageid; DO WHILE sqlca.SQLCode = 0 j++ FETCH cur_saletaskmx_in INTO :saletaskmx_in[j].mtrlid,:saletaskmx_in[j].qty, :saletaskmx_in[j].fprice,:saletaskmx_in[j].mxdscrp, :saletaskmx_in[j].status,:saletaskmx_in[j].printid,:saletaskmx_in[j].woodcode, :saletaskmx_in[j].pcode,:saletaskmx_in[j].plancode,:saletaskmx_in[j].storageid; LOOP CLOSE cur_saletaskmx_in; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_saletaskmx_in Where u_saletaskmx_in.taskid = :arg_taskid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,销售订单明细数量" GOTO ext END IF IF j <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,销售订单明细" GOTO ext END IF it_mxbt_in = j - 1 it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer addmxcmpl (long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF arg_addqty = 0 THEN rslt = 1 GOTO ext END IF IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 AND status <> 5 THEN rslt = 0 IF status <> 1 THEN arg_msg = "销售订单只有在进行状态下才可以执行进仓" ELSEIF status <> 5 THEN arg_msg = "销售订单只有在完成状态下才可以撤消进仓" END IF GOTO ext END IF Decimal ls_usaleqty,ls_consignedqty String ls_mtrlcode SELECT u_saletaskmx_ll.usaleqty, u_saletaskmx_ll.consignedqty, u_mtrldef.mtrlcode INTO :ls_usaleqty, :ls_consignedqty, :ls_mtrlcode FROM u_saletaskmx_ll ,u_mtrldef WHERE ( u_saletaskmx_ll.taskid = :arg_taskid ) AND ( u_saletaskmx_ll.printid = :arg_printid ) AND ( u_saletaskmx_ll.stopflag = 0 ) AND ( u_saletaskmx_ll.mtrlid = u_mtrldef.mtrlid) USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品编码["+ls_mtrlcode+"]导致查询销售订单已完成数量操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF IF ls_usaleqty < ls_consignedqty+arg_addqty THEN rslt = 0 arg_msg = "产品["+ls_mtrlcode+"]的未完成数量只有"+String(ls_usaleqty - ls_consignedqty,'#,##0.0#')+",不能出仓"+String(arg_addqty,'#,##0.0#') GOTO ext END IF UPDATE u_saletaskmx_ll SET consignedqty = consignedqty +:arg_addqty WHERE ( u_saletaskmx_ll.taskid = :arg_taskid ) AND ( u_saletaskmx_ll.printid = :arg_printid ) AND ( u_saletaskmx_ll.stopflag = 0 ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或错误产品唯一码导致销售订单完成数量操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() RETURN (rslt) end function public function integer addmxcmpl_in (long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF arg_addqty = 0 THEN rslt = 1 GOTO ext END IF IF p_getinfo(arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 AND status <> 5 THEN rslt = 0 IF status <> 1 THEN ARG_MSG = "销售订单只有在进行状态下才可以执行收料进仓" ELSEIF status <> 5 THEN ARG_MSG = "销售订单只有在完成状态下才可以撤消收料进仓" END IF GOTO ext END IF Decimal ls_SaleQty,ls_consignedQty String ls_mtrlcode SELECT u_SaleTaskMx_in.Qty, u_SaleTaskMx_in.consignedQty, u_mtrldef.mtrlcode INTO :ls_SaleQty, :ls_consignedQty, :ls_mtrlcode FROM u_SaleTaskMx_in ,u_mtrldef WHERE ( u_SaleTaskMx_in.TaskID = :arg_taskid ) AND ( u_SaleTaskMx_in.printid = :arg_printid ) and ( u_SaleTaskMx_in.mtrlid = u_mtrldef.mtrlid) USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或错误产品编码["+ls_mtrlcode+"]导致查询销售订单已完成数量操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF IF ls_SaleQty < ls_consignedQty+arg_addqty THEN rslt = 0 ARG_MSG = "产品["+ls_mtrlcode+"]的未完成收料数量只有"+String(ls_SaleQty - ls_consignedQty,'#,##0.0#')+",不能出仓"+String(arg_addqty,'#,##0.0#') GOTO ext END IF UPDATE u_SaleTaskMx_in SET consignedQty = consignedQty +:arg_addqty WHERE ( u_SaleTaskMx_in.TaskID = :arg_taskid ) AND ( u_SaleTaskMx_in.printid = :arg_printid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或错误产品唯一码导致销售订单收料完成数量操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit and rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer cancel (long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 0 THEN rslt = 0 arg_msg = "订单已经审核,不可以删除" GOTO ext END IF //IF sys_option_if_OA = 1 AND audit_buildtype = 0 THEN // IF f_check_if_oaflow( arg_scid,arg_taskid,6,arg_msg ) = 0 THEN // rslt = 0 // GOTO ext // END IF //END IF DELETE FROM u_saletask_ll Where u_saletask_ll.taskid = :arg_taskid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除来料加工订单操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK USING commit_transaction; GOTO ext END IF DELETE FROM u_saletaskmx_ll Where taskid = :arg_taskid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除来料加工订单发货明细操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK USING commit_transaction; GOTO ext END IF DELETE FROM u_SaleTaskMx_in Where taskid = :arg_taskid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除来料加工订单收料明细操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK USING commit_transaction; GOTO ext END IF it_newbegin = FALSE it_updatebegin = FALSE IF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF ext: p_reset() Return (rslt) end function public function integer canceloapermit (long arg_taskid, ref string arg_msg, boolean arg_ifcommit);//相关OA公文被否决时调用 Int rslt = 1,cnt = 0 DateTime nulldate Decimal ls_consignedQty SetNull(nulldate) IF uo_option_saletask_secaudit = -1000 THEN arg_msg = '选项:[035]销售订单使用二级审核,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF ctmint > 0 THEN ARG_MSG = '单据已截数,不能操作' rslt = 0 GOTO ext END IF IF NOT (uo_option_saletask_secaudit = 1 AND uo_option_if_oa_saletask = 1) THEN rslt = 0 ARG_MSG = '系统设置没有使用OA审批流程,请联系管理员' GOTO ext END IF IF Status <> 4 THEN rslt = 0 ARG_MSG = "订单只有在已待生产审核状态才可以执行撤消审核，请核对" GOTO ext END IF SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :scid AND taskid = :arg_taskid AND ordertype = 2 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单排产数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关生产计划,不可以撤消审核" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_outware_ll,u_outwaremx_ll WHERE ( u_outware_ll.outwareid = u_outwaremx_ll.outwareid ) AND ( u_outwaremx_ll.relid = :arg_taskid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单发货数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关出仓单据,不可以撤消审核" GOTO ext END IF SELECT sum(u_saletaskmx_ll.consignedQty) INTO :ls_consignedQty FROM u_saletaskmx_ll WHERE ( u_saletaskmx_ll.TaskID = :arg_taskid ) AND ( u_saletaskmx_ll.stopflag = 0 ) USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "查询销售订单已完成数量操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF IF ls_consignedQty > 0 THEN rslt = 0 ARG_MSG = "销售订单已有完成数量,不能撤审" GOTO ext END IF UPDATE u_SaleTask_ll SET Status = 0, permit_emp = '', permit_date = :nulldate WHERE TaskID = :arg_taskid AND status = 4 USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致销售订单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 ARG_MSG = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //默认订单调度 Long i FOR i = 1 TO it_mxbt IF p_cprqplan(arg_taskid,saletaskmx[i].printid,0,saletaskmx[i].saleqty,ARG_MSG,FALSE) = 0 THEN rslt = 0 GOTO ext END IF NEXT it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() RETURN (rslt) end function public function integer updateassignqty (long arg_scid, long arg_taskid, long arg_printid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1 Dec ld_SaleQty,ld_AssignQty IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status = 0 THEN arg_msg = '订单未审核，不能更新!' rslt = 0 GOTO ext END IF SELECT SaleQty, AssignQty INTO :ld_SaleQty, :ld_AssignQty FROM u_SaleTaskMx_ll WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询销售订单已排产数量失败！'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_SaleQty - ld_AssignQty < arg_qty THEN arg_msg = '排产数量大于待生产数！' rslt = 0 GOTO ext END IF UPDATE u_SaleTaskMx_ll SET AssignQty = AssignQty + :arg_qty WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新排产数失败>>'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; ELSEIF rslt = 0 THEN ROLLBACK USING commit_transaction; END IF RETURN rslt end function public function integer updatebegin (long arg_taskid, ref string arg_msg);Long rslt = 1,CNT = 0 IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 0 THEN rslt = 0 arg_msg = '已经处于审核或完成等状态,不可以修改,如果订单未完成并要修改请先撤销审核' GOTO ext END IF IF uo_option_if_oa_saletask = 1 AND audit_buildtype = 0 THEN IF f_check_if_oaflow(scid,arg_taskid,6,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF it_newbegin = FALSE it_updatebegin = TRUE p_clearmx() //清除明细 msttakeamt = 0 ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer trycmplsaletask (long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0,ll_status DateTime null_dt SetNull(null_dt) IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 AND status <> 5 THEN rslt = 0 IF status <> 1 THEN arg_msg = "销售订单只有在进行状态下才可以执行设完成状态" ELSEIF status <> 5 THEN arg_msg = "销售订单只有在完成状态下才可以执行撤消完成状态" END IF GOTO ext END IF Decimal ls_zerook Boolean if_finish if_finish = TRUE DECLARE zero_cur CURSOR FOR SELECT u_saletaskmx_ll.usaleqty - u_saletaskmx_ll.consignedqty FROM u_saletaskmx_ll WHERE ( u_saletaskmx_ll.taskid = :arg_taskid ) AND ( u_saletaskmx_ll.stopflag = 0 ) USING commit_transaction ; OPEN zero_cur; FETCH zero_cur INTO :ls_zerook; DO WHILE commit_transaction.SQLCode = 0 IF if_finish THEN IF ls_zerook > 0 THEN if_finish = FALSE END IF FETCH zero_cur INTO :ls_zerook; LOOP CLOSE zero_cur; IF status = 1 AND if_finish THEN UPDATE u_saletask_ll SET status = 5, accomplishdate = getdate(), finishemp = :publ_operator WHERE ( u_saletask_ll.taskid = :arg_taskid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致销售订单完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK USING commit_transaction; GOTO ext END IF END IF IF status = 5 AND NOT if_finish THEN UPDATE u_saletask_ll SET status = 1, accomplishdate = :null_dt, finishemp = '' WHERE ( u_saletask_ll.taskid = :arg_taskid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致销售订单撤消完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK USING commit_transaction; GOTO ext END IF END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() RETURN (rslt) end function public function integer tempstoptask (long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 1 AND Status <> 2 THEN rslt = 0 ARG_MSG = "订单只有在进行状态或暂停状态才可以执行暂停/取消暂停操作" GOTO ext END IF IF Status = 1 THEN UPDATE u_SaleTask_ll SET Status = 2,stopemp = :publ_operator Where TaskID = :arg_taskid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致暂停销售订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ELSE UPDATE u_SaleTask_ll SET Status = 1,stopemp = '' Where TaskID = :arg_taskid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致取消暂停销售订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer stopsaletask (long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_taskid,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_if_oa_saletask = 1 AND audit_buildtype = 0 THEN IF f_check_if_oaflow(scid,arg_taskid,6,ARG_MSG ) = 0 THEN rslt = 0 GOTO ext END IF END IF UPDATE u_SaleTask_ll SET Status = 3, accomplishdate = getdate() , stopemp = :publ_operator WHERE TaskID = :arg_taskid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致终止销售订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() RETURN (rslt) end function public function integer stopmx (long arg_taskid, long arg_printid, string arg_mtrlcode, integer arg_flag, string arg_stopreason, ref string arg_msg, boolean arg_commit);Int rslt = 1 Int li_flag,li_bjflag string ls_outtype DateTime null_dt Decimal ld_notconsignedqty SetNull(null_dt) IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 THEN arg_msg = '订单只能在进行状态下才能操作' rslt = 0 GOTO ext END IF SELECT stopflag,outtypestr INTO :li_flag,:ls_outtype FROM u_saletaskmx_ll WHERE taskid = :arg_taskid AND printid = :arg_printid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询明细物料'+arg_mtrlcode+'中止标记失败' rslt = 0 GOTO ext END IF IF arg_flag = 0 THEN IF li_flag = 0 THEN arg_msg = '明细物料'+arg_mtrlcode+'还未中止,不能取消中止' rslt = 0 GOTO ext END IF ELSE IF li_flag = 1 THEN arg_msg = '明细物料'+arg_mtrlcode+'已中止,不能重复中止' rslt = 0 GOTO ext END IF END IF IF arg_flag = 1 THEN SELECT u_saletaskmx_ll.usaleQty - u_saletaskmx_ll.consignedqty INTO :ld_notconsignedqty FROM u_saletaskmx_ll WHERE taskid = :arg_taskid AND printid = :arg_printid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询明细物料'+arg_mtrlcode+'未完成数失败' rslt = 0 GOTO ext END IF IF ld_notconsignedqty <= 0 THEN arg_msg = '明细物料'+arg_mtrlcode+'已完成收货,不能中止' rslt = 0 GOTO ext END IF if ls_outtype = '补件' and li_bjflag = 1 then arg_msg = '该明细内容为补件明细,并已审核,不能中止' rslt = 0 goto ext end if END IF IF arg_flag = 0 THEN UPDATE u_saletaskmx_ll SET stopflag = 0, stopemp = '', stopdate = :null_dt, stopreason = '' WHERE taskid = :arg_taskid AND printid = :arg_printid; ELSE UPDATE u_saletaskmx_ll SET stopflag = 1, stopemp = :publ_operator, stopdate = getdate(), stopreason = :arg_stopreason WHERE taskid = :arg_taskid AND printid = :arg_printid; END IF IF sqlca.SQLCode <> 0 THEN arg_msg = '更新明细'+arg_mtrlcode+'中止标记失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF trycmplsaletask(arg_taskid,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 AND arg_commit THEN COMMIT; END IF RETURN rslt end function public function integer salepermit (long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 IF uo_option_saletask_secaudit = -1000 THEN arg_msg = '选项:[035]销售订单使用二级审核,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_if_msg = -1000 THEN arg_msg = '选项:[044]销售订单使用消息确认,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_saletask_addware = -1000 THEN arg_msg = '选项:[039]销售订单审核自动加0库存,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 0 THEN rslt = 0 arg_msg = "订单已经审核或已作其它处理,操作取消" GOTO ext END IF //IF sys_option_if_oa = 1 AND audit_buildtype = 0 THEN // IF f_check_if_oaflow(arg_scid,arg_taskid,6,arg_msg ) = 0 THEN // rslt = 0 // GOTO ext // END IF //END IF IF uof_p_check_dprice(arg_msg) = 0 THEN rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :arg_emp USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消!" GOTO ext END IF IF uo_option_saletask_secaudit = 0 THEN UPDATE u_saletask_ll SET permit_emp = :arg_emp , permit_date = getdate(), p_Auditingdate = getdate(), p_Auditingrep = :arg_emp, status = 1 WHERE taskid = :arg_taskid AND status = 0 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致订单审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ELSE UPDATE u_saletask_ll SET permit_emp = :arg_emp , permit_date = getdate(), status = 4 WHERE taskid = :arg_taskid AND status = 0 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致订单审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF //成品仓加0库存 //----------------------------------------------- IF uo_option_saletask_addware = 1 AND Kind > 0 THEN Long ll_storageid_arr[],ll_storageid Long ll_scid_arr[],ll_scid String ll_storagename_arr[],ls_storagename Long ll_j,count,ll_i Int li_balctype_arr[],li_balctype Long ll_cusid String ls_status,ls_mtrlcode,ls_pcode,ls_woodcode,ls_plancode Long ll_mtrlwareid,ll_mtrlid DECLARE pf_cur CURSOR FOR SELECT u_storage.storageid, u_storage.storagename, u_storage.scid, u_storage.balctype FROM u_storage Where ( u_storage.mtrlprp = 0 ); OPEN pf_cur; FETCH pf_cur INTO :ll_storageid,:ls_storagename,:ll_scid,:li_balctype; DO WHILE sqlca.SQLCode = 0 count++ ll_storageid_arr[count] = ll_storageid ll_storagename_arr[count] = ls_storagename ll_scid_arr[count] = ll_scid li_balctype_arr[count] = li_balctype FETCH pf_cur INTO :ll_storageid,:ls_storagename,:ll_scid,:li_balctype; LOOP CLOSE pf_cur; FOR ll_i = 1 TO it_mxbt ll_mtrlid = saletaskmx[ll_i].mtrlid ls_mtrlcode = saletaskmx[ll_i].mtrlcode ls_status = saletaskmx[ll_i].status ls_pcode = saletaskmx[ll_i].pcode ls_woodcode = saletaskmx[ll_i].woodcode ls_plancode = saletaskmx[ll_i].mtrlcuscode FOR ll_j = 1 TO count IF li_balctype_arr[ll_j] = 1 THEN ll_cusid = cusid ELSE ll_cusid = 0 END IF SELECT top 1 mtrlwareid INTO :ll_mtrlwareid FROM u_mtrlware WHERE mtrlid = :ll_mtrlid AND status = :ls_status AND storageid = :ll_storageid_arr[ll_j] AND woodcode = :ls_woodcode AND plancode = :ls_plancode AND pcode = :ls_pcode AND sptid = :ll_cusid; IF sqlca.SQLCode = -1 THEN arg_msg = '查询:'+ls_mtrlcode+'仓库:'+ll_storagename_arr[ll_j]+'库存失败' rslt = 0 GOTO ext ELSEIF sqlca.SQLCode = 100 THEN ll_mtrlwareid = 0 ll_mtrlwareid = f_sys_scidentity(ll_scid_arr[ll_j],"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) Values(:ll_scid_arr[ll_j],:ll_mtrlwareid,:ll_mtrlid,:ll_storageid_arr[ll_j],0,:ls_status,:ls_plancode,:ls_woodcode,:ls_pcode,:ll_cusid); IF sqlca.SQLCode <> 0 THEN arg_msg = '产品:'+ls_mtrlcode+'仓库:'+ll_storagename_arr[ll_j]+'加0库存失败或物料已经有库存,请检查' rslt = 0 GOTO ext END IF END IF NEXT NEXT END IF IF uo_option_if_msg = 1 THEN IF f_billmsg(scid,taskcode,taskcode+'销售订单确认',taskcode+'销售订单确认',commit_transaction,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF END IF //默认订单调度 Long i IF uo_option_saletask_secaudit = 0 THEN FOR i = 1 TO it_mxbt IF p_cprqplan(arg_taskid,saletaskmx[i].printid,1,saletaskmx[i].saleqty,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF NEXT END IF IF uo_option_if_oa_saletask = 1 AND uo_option_saletask_secaudit = 1 THEN IF f_oa(commit_transaction,FALSE,arg_msg,6,scid,taskid,taskcode,relcode,dscrp) = 0 THEN rslt = 0 GOTO ext END IF END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() RETURN rslt end function public function integer propermit (long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);//salepermit Int rslt = 1,cnt = 0 IF uo_option_saletask_secaudit = -1000 THEN arg_msg = '选项:[035]销售订单使用二级审核,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_saletask_fore_secaudit = -1000 THEN arg_msg = '选项:[088]销售预测单二级审核,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 4 THEN rslt = 0 arg_msg = "订单不是在待生产审状态,操作取消" GOTO ext END IF IF Kind <> 0 THEN IF uo_option_if_oa_saletask = 1 AND uo_option_saletask_fore_secaudit = 1 AND audit_buildtype = 0 THEN IF f_check_if_oaflow(scid,arg_taskid,6,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF Long i FOR i = 1 TO it_mxbt IF p_cprqplan(arg_taskid,saletaskmx[i].printid,1,saletaskmx[i].saleqty,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF NEXT cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :arg_emp USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消!" GOTO ext END IF UPDATE u_saletask_ll SET p_Auditingdate = getdate(), p_Auditingrep = :arg_emp, status = 1 WHERE taskid = :arg_taskid AND status = 4 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致订单生产审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer trycmptask_fore (long arg_taskid, ref string arg_msg, boolean arg_ifcommit);//trycmplsaletask(arg_taskid,arg_msg,arg_ifcommit) Int rslt = 1,cnt = 0,ll_status DateTime null_dt SetNull(null_dt) IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF Kind <> 0 THEN rslt = 0 arg_msg = '不是销售预测单不能按进仓数来完成单据' GOTO ext END IF IF status <> 1 AND status <> 5 THEN rslt = 0 IF status <> 1 THEN arg_msg = "销售订单只有在进行状态下才可以执行设完成状态" ELSEIF status <> 5 THEN arg_msg = "销售订单只有在完成状态下才可以执行撤消完成状态" END IF GOTO ext END IF Decimal ls_zerook Boolean if_finish if_finish = TRUE DECLARE zero_cur CURSOR FOR SELECT u_saletaskmx.saleqty - u_saletaskmx.inwareqty FROM u_saletaskmx WHERE ( u_saletaskmx.taskid = :arg_taskid ) AND ( u_saletaskmx.stopflag = 0 ) USING commit_transaction ; OPEN zero_cur; FETCH zero_cur INTO :ls_zerook; DO WHILE commit_transaction.SQLCode = 0 IF if_finish THEN IF ls_zerook > 0 THEN if_finish = FALSE END IF FETCH zero_cur INTO :ls_zerook; LOOP CLOSE zero_cur; IF status = 1 AND if_finish THEN UPDATE u_saletask SET status = 5, accomplishdate = getdate(), finishemp = :publ_operator WHERE ( u_saletask.taskid = :arg_taskid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致销售订单完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK USING commit_transaction; GOTO ext END IF END IF IF status = 5 AND NOT if_finish THEN UPDATE u_saletask SET status = 1, accomplishdate = :null_dt, finishemp = '' WHERE ( u_saletask.taskid = :arg_taskid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致销售订单撤消完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK USING commit_transaction; GOTO ext END IF END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer add_dscrp (long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 arg_newdescppart = Trim(arg_newdescppart) IF it_updatebegin OR it_newbegin THEN rslt = 0 arG_MSG = "编辑状态下不可用" GOTO ext END IF IF arg_newdescppart = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF IF p_getinfo(arg_taskid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF status = 0 THEN rslt = 0 arG_MSG = "待销售审核状态下不可用" GOTO ext END IF UPDATE u_saletask_ll SET DSCRP = DSCRP+' '+:arg_newdescppart Where u_saletask_ll.taskid = :arg_taskid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致添加销售订单备注操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF DSCRP = DSCRP+' '+arg_newdescppart it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit THEN COMMIT USING commit_transaction; END IF p_reset() RETURN (rslt) end function public function integer ddpermit (long arg_taskid, long arg_printid, integer arg_flag, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 Int li_ddflag,li_stopflag Long ll_mtrlid,ll_scid Decimal ld_bqty DateTime ldt_null SetNull(ldt_null) IF uo_option_autocreate_buy_cp = -1000 THEN arg_msg = '选项:[113]销售订单调度审核自动建立成品申购单,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF uo_requestbuy uo_rqbuy uo_rqbuy = CREATE uo_requestbuy SELECT u_saletaskmx_ll.mtrlid, u_saletaskmx_ll.ddflag, u_saletaskmx_ll.stopflag, u_saletask_ll.scid INTO :ll_mtrlid, :li_ddflag, :li_stopflag, :ll_scid FROM u_saletaskmx_ll,u_saletask_ll WHERE u_saletaskmx_ll.taskid = u_saletask_ll.taskid AND u_saletaskmx_ll.taskid = :arg_taskid AND u_saletaskmx_ll.printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询订单产品明细失败 '+SQLCA.SQLErrText GOTO ext END IF IF li_stopflag = 1 THEN rslt = 0 arg_msg = '该订单明细已经终止,不能再调度审核' GOTO ext END IF Int li_ifautodd SELECT ifautodd INTO :li_ifautodd FROM u_mtrldef Where mtrlid = :ll_mtrlid ; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单明细物料是否自动调度失败,'+SQLCA.SQLErrText rslt = 0 GOTO ext END IF IF li_ifautodd = 0 THEN IF arg_flag = 0 THEN IF li_ddflag = 1 THEN rslt = 0 arg_msg = '该订单明细已经调度审核' GOTO ext END IF ELSE IF li_ddflag = 0 THEN rslt = 0 arg_msg = '该订单明细未调度审核' GOTO ext END IF END IF END IF IF arg_flag = 0 THEN IF uo_option_autocreate_buy_cp = 1 THEN ld_bqty = 0 SELECT bqty INTO :ld_bqty FROM u_saletaskmx_ll WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询订单明细安排采购数量失败 ' + SQLCA.SQLErrText GOTO ext END IF IF ld_bqty > 0 THEN Long ll_cusid String ls_mtrlcode,ls_status,ls_woodcode,ls_pcode,ls_unit SELECT u_saletaskmx_ll.mtrlid, u_saletaskmx_ll.status, u_saletaskmx_ll.woodcode, u_saletaskmx_ll.pcode, u_mtrldef.mtrlcode, u_mtrldef.unit, u_saletask_ll.cusid INTO :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ls_mtrlcode, :ls_unit, :ll_cusid FROM u_saletaskmx_ll, u_mtrldef, u_saletask_ll WHERE u_saletaskmx_ll.mtrlid = u_mtrldef.mtrlid AND u_saletask_ll.taskid = u_saletaskmx_ll.taskid AND u_saletaskmx_ll.taskid = :arg_taskid AND u_saletaskmx_ll.printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询订单明细内容失败 ' + SQLCA.SQLErrText GOTO ext END IF s_requestbuy arg_s_rqbuy arg_s_rqbuy.scid = ll_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 = 1 arg_s_rqbuy.arg_s_rqbuymx[1].mtrlcode = ls_mtrlcode arg_s_rqbuy.arg_s_rqbuymx[1].uqty = ld_bqty arg_s_rqbuy.arg_s_rqbuymx[1].unit = ls_unit arg_s_rqbuy.arg_s_rqbuymx[1].status = ls_status arg_s_rqbuy.arg_s_rqbuymx[1].woodcode = ls_woodcode arg_s_rqbuy.arg_s_rqbuymx[1].pcode = ls_pcode arg_s_rqbuy.arg_s_rqbuymx[1].mxdscrp = '' arg_s_rqbuy.arg_s_rqbuymx[1].mtrlid = ll_mtrlid arg_s_rqbuy.arg_s_rqbuymx[1].orderid = arg_taskid arg_s_rqbuy.arg_s_rqbuymx[1].wrkgrpid = 0 arg_s_rqbuy.arg_s_rqbuymx[1].ifrel = 1 arg_s_rqbuy.arg_s_rqbuymx[1].printid = 1 arg_s_rqbuy.arg_s_rqbuymx[1].rate = 1 arg_s_rqbuy.arg_s_rqbuymx[1].dftsptid = ll_cusid arg_s_rqbuy.arg_s_rqbuymx[1].relprintid = arg_printid IF uo_rqbuy.Save(arg_s_rqbuy,publ_operator,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF IF uo_rqbuy.audit(ll_scid,uo_rqbuy.uo_requestbuyid,publ_operator,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF IF uo_rqbuy.audit_2(ll_scid,uo_rqbuy.uo_requestbuyid,publ_operator,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF UPDATE u_saletaskmx_ll SET ddflag = 1, dddate = getdate(), ddemp = :publ_operator WHERE ddflag = 0 AND taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新订单明细调度审核标记失败 ' + SQLCA.SQLErrText GOTO ext END IF ELSE IF uo_option_autocreate_buy_cp = 1 THEN Long ll_requestbuyid[] Long ll_i,i i = 1 DECLARE cur_rqbuy CURSOR FOR SELECT u_requestbuy.requestbuyid FROM u_requestbuymx,u_requestbuy WHERE u_requestbuymx.requestbuyid = u_requestbuy.requestbuyid AND u_requestbuy.scid = :ll_scid AND u_requestbuymx.orderid = :arg_taskid AND u_requestbuymx.relprintid = :arg_printid AND u_requestbuy.billtype = 1 USING commit_transaction; OPEN cur_rqbuy; FETCH cur_rqbuy INTO :ll_requestbuyid[i]; DO WHILE commit_transaction.SQLCode = 0 i++ FETCH cur_rqbuy INTO :ll_requestbuyid[i]; LOOP CLOSE cur_rqbuy; FOR ll_i = 1 TO i - 1 IF uo_rqbuy.caudit_2(ll_scid,ll_requestbuyid[ll_i],0,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF IF uo_rqbuy.caudit(ll_scid,ll_requestbuyid[ll_i],0,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF IF uo_rqbuy.del(ll_scid,ll_requestbuyid[ll_i],0,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF NEXT ELSE //检查申购单 SELECT count(*) INTO :cnt FROM u_requestbuymx,u_requestbuy WHERE u_requestbuymx.requestbuyid = u_requestbuy.requestbuyid AND u_requestbuy.scid = :ll_scid AND u_requestbuymx.orderid = :arg_taskid AND u_requestbuymx.relprintid = :arg_printid AND u_requestbuy.billtype = 1 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询订单相关成品申购单失败' GOTO ext END IF IF cnt <> 0 THEN rslt = 0 arg_msg = '订单已经存在相关成品申购单.不可以撤销审核' GOTO ext END IF END IF //检查生产计划 SELECT 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.taskid = :arg_taskid AND u_order_ml_mx.taskmxid = :arg_printid AND u_order_ml_mx.scid = :ll_scid AND u_Order_ml.ordertype = 2 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询订单相关生产计划失败' GOTO ext END IF IF cnt <> 0 THEN rslt = 0 arg_msg = '订单已经存在相关生产计划.不可以撤销审核' GOTO ext END IF UPDATE u_saletaskmx_ll SET ddflag = 0, dddate = :ldt_null, ddemp = '' WHERE ddflag = 1 AND taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.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 DESTROY uo_rqbuy RETURN rslt end function public function integer p_cprqplan (long arg_taskid, long arg_printid, long arg_flag, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_stopflag,li_ddflag Long ll_mtrlid,cnt DateTime ldt_null SetNull(ldt_null) IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF SELECT mtrlid,ddflag,stopflag INTO :ll_mtrlid,:li_ddflag,:li_stopflag FROM u_saletaskmx_ll WHERE u_saletaskmx_ll.taskid = :arg_taskid AND u_saletaskmx_ll.printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = '查询订单信息失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_stopflag = 1 THEN rslt = 0 ARG_MSG = '查询订单明细已经终止,请检查' GOTO ext END IF Int li_ifautodd SELECT ifautodd INTO :li_ifautodd FROM u_mtrldef Where mtrlid = :ll_mtrlid ; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = '查询订单明细物料是否自动调度失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF arg_flag = 1 THEN Int li_mtrlorigin String ls_mtrlcode Int li_iflljg SELECT mtrlorigin,mtrlcode,iflljg INTO :li_mtrlorigin,:ls_mtrlcode,:li_iflljg FROM u_mtrldef Where mtrlid = :ll_mtrlid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '查询订单产品['+ls_mtrlcode+']来源失败' GOTO ext END IF IF li_mtrlorigin = 0 THEN IF li_iflljg = 0 THEN UPDATE u_saletaskmx_ll SET pqty = :arg_qty WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '更新订单产品['+ls_mtrlcode+']排产数量失败' GOTO ext END IF ELSE UPDATE u_saletaskmx_ll SET lqty = :arg_qty WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '更新订单产品['+ls_mtrlcode+']客户来料数量失败' GOTO ext END IF END IF ELSEIF li_mtrlorigin = 2 THEN UPDATE u_saletaskmx_ll SET bqty = :arg_qty WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '更新订单产品['+ls_mtrlcode+']采购数量失败' GOTO ext END IF ELSEIF li_mtrlorigin = 3 THEN UPDATE u_saletaskmx_ll SET wqty = :arg_qty WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '更新订单产品['+ls_mtrlcode+']外协数量失败' GOTO ext END IF ELSEIF li_mtrlorigin = 6 THEN UPDATE u_saletaskmx_ll SET lqty = :arg_qty WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '更新订单产品['+ls_mtrlcode+']客户来料数量失败' GOTO ext END IF END IF ELSE IF li_ifautodd = 0 THEN IF li_ddflag = 1 THEN rslt = 0 ARG_MSG = '该订单明细已经调度审核' GOTO ext END IF END IF UPDATE u_saletaskmx_ll SET pqty = 0,bqty = 0,wqty = 0,lqty = 0 WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '更新订单产品['+ls_mtrlcode+']调度数量失败' GOTO ext END IF END IF IF li_ifautodd = 1 THEN IF arg_flag = 1 THEN IF ddpermit(arg_taskid,arg_printid,0,ARG_MSG,FALSE) = 0 THEN rslt = 0 GOTO ext END IF ELSE IF ddpermit(arg_taskid,arg_printid,1,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 cancelpermit (long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 DateTime nulldate Decimal ls_consignedQty SetNull(nulldate) IF uo_option_saletask_secaudit = -1000 THEN arg_msg = '选项:[035]销售订单使用二级审核,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF ctmint > 0 THEN ARG_MSG = '单据已截数,不能操作' rslt = 0 GOTO ext END IF IF uo_option_saletask_secaudit = 0 OR (uo_option_saletask_secaudit = 1 AND uo_option_if_oa_saletask = 1) THEN IF Status <> 1 THEN rslt = 0 IF (uo_option_saletask_secaudit = 1 AND uo_option_if_oa_saletask = 1) THEN ARG_MSG = "订单正在执行审批流程,只有在在进行状态才可以执行撤消审核" ELSE ARG_MSG = "订单只有在已审核状态才可以执行撤消审核，请核对" END IF GOTO ext END IF ELSE IF Status <> 4 THEN rslt = 0 ARG_MSG = "订单只有在已待生产审核状态才可以执行撤消审核，请核对" GOTO ext END IF END IF SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :scid AND taskid = :arg_taskid AND ordertype = 2 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单排产数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关生产计划,不可以撤消审核" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_outware_ll,u_outwaremx_ll WHERE ( u_outware_ll.outwareid = u_outwaremx_ll.outwareid ) AND ( u_outwaremx_ll.relid = :arg_taskid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单发货数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关出仓单据,不可以撤消审核" GOTO ext END IF SELECT sum(u_saletaskmx_ll.consignedQty) INTO :ls_consignedQty FROM u_saletaskmx_ll WHERE ( u_saletaskmx_ll.TaskID = :arg_taskid ) AND ( u_saletaskmx_ll.stopflag = 0 ) USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "查询销售订单已完成数量操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF IF ls_consignedQty > 0 THEN rslt = 0 ARG_MSG = "销售订单已有完成数量,不能撤审" GOTO ext END IF //来料加工订单,检查是否已开收料单 cnt = 0 SELECT count(*) INTO :cnt FROM u_inware,u_inwaremx WHERE ( u_inware.billtype = 5 ) AND ( u_inware.scid = u_inwaremx.scid ) AND ( u_inware.inwareid = u_inwaremx.inwareid ) AND ( u_inwaremx.relid = :arg_taskid ) AND ( u_inware.scid = :scid) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单发货数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "来料加工订单已经有相关收料进仓单据,不可以撤消审核" GOTO ext END IF SELECT sum(u_saletaskmx_in.consignedQty) INTO :ls_consignedQty FROM u_saletaskmx_in WHERE ( u_saletaskmx_in.TaskID = :arg_taskid ) USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "查询来料加工订单已收料数量操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF IF ls_consignedQty > 0 THEN rslt = 0 ARG_MSG = "来料加工订单已有收料数量,不能撤审" GOTO ext END IF IF uo_option_saletask_secaudit = 0 OR (uo_option_saletask_secaudit = 1 AND uo_option_if_oa_saletask = 1) THEN UPDATE u_SaleTask_ll SET Status = 0, permit_emp = '', permit_date = :nulldate, p_Auditingrep = '', p_Auditingdate = :nulldate WHERE TaskID = :arg_taskid AND status = 1 USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致销售订单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 ARG_MSG = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ELSE UPDATE u_SaleTask_ll SET Status = 0, permit_emp = '', permit_date = :nulldate WHERE TaskID = :arg_taskid AND status = 4 USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致销售订单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 ARG_MSG = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF //默认订单调度 Long i FOR i = 1 TO it_mxbt IF p_cprqplan(arg_taskid,saletaskmx[i].printid,0,saletaskmx[i].saleqty,ARG_MSG,FALSE) = 0 THEN rslt = 0 GOTO ext END IF NEXT it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() RETURN (rslt) end function public function integer checkmxcmpl (long arg_taskid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg); Int rslt = 1 long cnt = 0 IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF arg_addqty = 0 THEN rslt = 1 GOTO ext END IF rslt = p_getinfo(arg_taskid,ARG_MSG) IF rslt = 0 THEN GOTO ext IF Status <> 1 THEN rslt = 0 ARG_MSG = "销售订单只有在进行状态下才可以执行进仓" GOTO ext END IF Decimal ls_saleQty,ls_assignQty String ls_mtrlcode SELECT u_saleTaskMx.saleQty, u_saleTaskMx.assignqty, u_mtrldef.mtrlcode INTO :ls_saleQty, :ls_assignQty, :ls_mtrlcode FROM u_saleTaskMx ,u_mtrldef WHERE ( u_saleTaskMx.TaskID = :arg_taskid ) AND ( u_saleTaskMx.MtrlID = :arg_mtrlid ) AND ( u_mtrldef.mtrlid = u_saleTaskMx.MtrlID ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或错误物料编码["+ls_mtrlcode+"]导致查询销售订单已完成数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF ls_saleQty < ls_assignQty + arg_addqty THEN rslt = 0 ARG_MSG = "物料["+ls_mtrlcode+"]的订单未完成数量只有"+String(ls_saleQty - ls_assignQty,'#,##0.0#')+",不能入库"+String(arg_addqty,'#,##0.0#') GOTO ext END IF ext: p_reset() RETURN (rslt) end function public function integer finishtask (long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF rslt = 0 THEN GOTO ext IF Status <> 1 THEN rslt = 0 arg_msg = "销售订单只有在进行状态才可以执行完成，请核对" GOTO ext END IF IF uo_option_if_oa_saletask = 1 AND audit_buildtype = 0 THEN IF f_check_if_oaflow(scid,arg_taskid,6,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF UPDATE u_SaleTask SET status = 5, accomplishdate = getdate(), finishemp = :publ_operator WHERE ( u_SaleTask.TaskID = :arg_taskid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致完成销售订单操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK USING commit_transaction; GOTO ext END IF ext: IF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() RETURN (rslt) end function public function integer cancelpropermit (long arg_taskid, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1,cnt = 0 DateTime nulldate Decimal ls_consignedQty SetNull(nulldate) IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF ctmint > 0 THEN ARG_MSG = '单据已截数,不能操作' rslt = 0 GOTO ext END IF IF Status <> 1 THEN rslt = 0 ARG_MSG = "订单只有在进行状态才可以执行撤消生产审核,请核对" GOTO ext END IF SELECT count(*) INTO :cnt FROM u_order_ml WHERE taskid = :arg_taskid and ordertype = 2 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单排产数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关生产计划,不可以撤消审核" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_outware_ll,u_outwaremx_ll WHERE ( u_outware_ll.outwareid = u_outwaremx_ll.outwareid ) AND ( u_outwaremx_ll.relid = :arg_taskid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单发货数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关出仓单据,不可以撤消审核" GOTO ext END IF SELECT sum(u_SaleTaskMx_ll.consignedQty) INTO :ls_consignedQty FROM u_SaleTaskMx_ll WHERE ( u_SaleTaskMx_ll.TaskID = :arg_taskid ) AND ( u_SaleTaskMx_ll.stopflag = 0 ) USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "查询来料加工订单已完成数量操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF IF ls_consignedQty > 0 THEN rslt = 0 ARG_MSG = "来料加工订单已有完成数量,不能撤审" GOTO ext END IF //来料加工订单,检查是否已开收料单 cnt = 0 SELECT count(*) INTO :cnt FROM u_inware,u_inwaremx WHERE ( u_inware.billtype = 5 ) AND ( u_inware.scid = u_inwaremx.scid ) AND ( u_inware.inwareid = u_inwaremx.inwareid ) AND ( u_inwaremx.relid = :arg_taskid ) AND ( u_inware.scid = :scid) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单发货数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "来料加工订单已经有相关收料进仓单据,不可以撤消审核" GOTO ext END IF SELECT sum(u_SaleTaskMx_in.consignedQty) INTO :ls_consignedQty FROM u_SaleTaskMx_in WHERE ( u_SaleTaskMx_in.TaskID = :arg_taskid ) USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "查询来料加工订单已收料数量操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF IF ls_consignedQty > 0 THEN rslt = 0 ARG_MSG = "来料加工订单已有收料数量,不能撤审" GOTO ext END IF //默认订单调度 Long i FOR i = 1 TO it_mxbt IF p_cprqplan(arg_taskid,saletaskmx[i].printid,0,saletaskmx[i].saleqty,ARG_MSG,FALSE) = 0 THEN rslt = 0 GOTO ext END IF NEXT UPDATE u_SaleTask_ll SET Status = 4, p_Auditingrep = '', p_Auditingdate = :nulldate WHERE TaskID = :arg_taskid AND status = 1 USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致销售订单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 ARG_MSG = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer updatebqty (long arg_taskid, long arg_printid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Dec ld_SaleQty,ld_finishbQty,ld_bqty IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status = 0 THEN arg_msg = '订单未审核，不能更新!' rslt = 0 GOTO ext END IF SELECT bqty, finishbqty INTO :ld_bqty, :ld_finishbQty FROM u_saletaskmx_ll WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询销售订单已申购数量失败！'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_bqty - ld_finishbQty < arg_qty THEN arg_msg = '申购数量大于待申购数!' rslt = 0 GOTO ext END IF UPDATE u_saletaskmx_ll SET finishbqty = finishbqty + :arg_qty WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新订单申购数失败>>'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; ELSEIF rslt = 0 THEN ROLLBACK USING commit_transaction; END IF RETURN rslt end function public function integer updateinwareqty (long arg_taskid, long arg_printid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1 Dec ld_SaleQty,ld_inwareQty IF p_getinfo(arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status = 0 THEN arg_msg = '订单未审核，不能更新!' rslt = 0 GOTO ext END IF SELECT SaleQty, inwareQty INTO :ld_SaleQty, :ld_inwareQty FROM u_saletaskmx_ll WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询销售订单明细已进仓数量失败！'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_SaleQty - ld_inwareQty < arg_qty THEN arg_msg = '进仓数量大于未进仓数！' rslt = 0 GOTO ext END IF UPDATE u_saletaskmx_ll SET inwareQty = inwareQty + :arg_qty WHERE taskid = :arg_taskid AND printid = :arg_printid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新进仓数失败>>'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; ELSEIF rslt = 0 THEN ROLLBACK USING commit_transaction; END IF RETURN rslt end function public function integer newbegin ();//重置对象,设定业务类型与关联ID,准备建立新单 //0 fail 1 success int rslt=1 long CNT=0 p_reset() it_newbegin=TRUE it_updatebegin=FALSE return rslt end function on uo_saletask_ll.create call super::create TriggerEvent( this, "constructor" ) end on on uo_saletask_ll.destroy TriggerEvent( this, "destructor" ) call super::destroy end on event constructor;String arg_msg String str_optionvalue str_optionvalue = '' f_get_sys_option_value('029',str_optionvalue,arg_msg) uo_option_change_status = str_optionvalue str_optionvalue = '' f_get_sys_option_value('027',str_optionvalue,arg_msg) uo_option_change_woodcode = str_optionvalue str_optionvalue = '' f_get_sys_option_value('028',str_optionvalue,arg_msg) uo_option_change_pcode = str_optionvalue str_optionvalue = '' f_get_sys_option_value('035',str_optionvalue,arg_msg) uo_option_saletask_secaudit = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('043',str_optionvalue,arg_msg) uo_option_if_oa_saletask = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('133',str_optionvalue,arg_msg) uo_option_taskplancode_auto_ll = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('113',str_optionvalue,arg_msg) uo_option_autocreate_buy_cp = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('045',str_optionvalue,arg_msg) uo_option_m_msttake = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('051',str_optionvalue,arg_msg) uo_option_taskaudit_dprice = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('044',str_optionvalue,arg_msg) uo_option_if_msg = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('088',str_optionvalue,arg_msg) uo_option_saletask_fore_secaudit = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('039',str_optionvalue,arg_msg) uo_option_saletask_addware = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('023',str_optionvalue,arg_msg) uo_option_unit_dec = Long(str_optionvalue) end event