$PBExportHeader$uo_saletask.sru forward global type uo_saletask from nonvisualobject end type type s_saletaskmx from structure within uo_saletask end type type s_saletaskmx_mx from structure within uo_saletask end type type s_saletaskmx_in from structure within uo_saletask end type type s_saletask_itemmx from structure within uo_saletask end type end forward type s_saletaskmx from structure long mtrlid decimal { 10 } saleqty decimal { 10 } plprice decimal { 10 } acprice decimal { 10 } enacprice string dscrp string mtrlcode decimal { 10 } fprice decimal { 10 } u_mtrldef_expday 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 long quoteid string quotecode long quoteprintid string pocode string typestr string pricetype decimal { 5 } capacity decimal { 5 } nprice decimal { 5 } planprice decimal { 10 } stopqty long poid decimal { 10 } fpqty string dscrp_text decimal { 5 } taxrate decimal { 10 } addqty string priceformula long sampleid decimal { 10 } net_weight decimal { 10 } gross_weight decimal { 10 } cubage long fjcnt string fjstr decimal { 10 } porebate 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 type s_saletask_itemmx from structure long scid long taskid long printid long itemid decimal{2} amt string mxdscrp end type global type uo_saletask from nonvisualobject end type global uo_saletask uo_saletask type variables Public ProtectedWrite Long scid 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 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 dscrp3 String relcode String paytype String freight_tele String cus_address String cus_tele String cus_fax String upname Decimal msttakeamt,takeamt Long typeid String rel_rep Int Level long exchangeid string station_address DateTime sendTime String sendUser,fiebrelcode int selecttype Long audit_buildtype int priceflag datetime pricedate string pricerep Transaction commit_transaction //数据commit事务 Private: s_saletaskmx saletaskmx[] //明细结构 s_saletaskmxmx saletaskmxmx[] //明细结构 s_saletaskmx_in saletaskmx_in[] //明细结构 s_saletask_itemmx saletask_itemmx[] Long it_mxbt_in = 0 //来料加工订单收料明细 Long it_mxbt = 0 //明细结构数组末指针 Long it_mxbtmx = 0 //明细结构数组末指针 Long it_mxbt_item = 0 //费用明细指针 Boolean it_newbegin = False //新建标志 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_price_rmb Int uo_option_m_msttake Int uo_option_saletask_secaudit Int uo_option_saletask_fore_secaudit Int uo_option_if_oa_saletask Int uo_option_if_oa_saletask_fore Int uo_option_taskplancode_auto Int uo_option_taskaudit_dprice Int uo_option_autocreate_buy_cp Int uo_option_saletask_addware Int uo_option_if_msg Int uo_option_saletask_set_planprice Int uo_option_checkprice_native Int uo_option_inout_type Int uo_option_if_pricetype Int uo_option_if_saleout Int uo_option_disuse_saletask Int uo_option_sale_ifuse_negativeprice Int uo_option_saletask_ifuse_typebillcode Int uo_option_dd_allto_pqty int uo_option_saletask_rebate_check int uo_option_saletask_packprobom_check int uo_option_saletask_fore_addware int uo_option_saletask_stopqty_type int uo_option_saletask_affirm_produce end variables forward prototypes public function integer p_reset () public function integer p_clearmx () public function integer add_dscrp (long arg_scid, long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit) private function integer p_getinfo (long arg_scid, long arg_taskid, ref string arg_msg) public function integer cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer cancelpermit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer checkmxcmpl (long arg_scid, long arg_taskid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg) public function integer getinfo (long arg_scid, long arg_taskid, ref string arg_msg) public function integer salepermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer tempstoptask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer updatebegin (long arg_scid, long arg_taskid, ref string arg_msg) public function integer savesubmit (string arg_operator, ref string arg_msg, boolean arg_ifcommit) public function integer trycmplsaletask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer newbegin (long arg_scid, ref string arg_msg) public function integer acceptmx_mx (long arg_scid, long arg_mtrlwareid, decimal arg_qty, ref string arg_msg) public function integer stopmx (long arg_scid, 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 bjmx (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, integer arg_flag, ref string arg_msg, boolean arg_commit) public function integer bjprice (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, decimal arg_enprice, decimal arg_rebate, ref string arg_msg, boolean arg_commit) public function integer propermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer cancelpropermit (long arg_scid, 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) private function integer uof_p_check_dprice (ref string arg_msg) public function integer ddpermit (long arg_scid, long arg_taskid, long arg_printid, integer arg_flag, ref string arg_msg, boolean arg_ifcommit) public function integer p_cprqplan (long arg_scid, long arg_taskid, long arg_printid, long arg_flag, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer addmxcmpl (long arg_scid, long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer canceloapermit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer addmxcmpl_in (long arg_scid, long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) 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 updateinwareqty (long arg_scid, long arg_taskid, long arg_printid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer trycmptask_fore (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_getpriceorder (long arg_cusid, long arg_mtrlid, ref string arg_pocode, ref string arg_typestr, ref string arg_msg) public function integer uof_add_plan (s_saletask_plan arg_s_plan, string arg_opemp, ref string arg_msg, boolean arg_ifcommit) public function integer uof_del_plan (long arg_planid, string arg_opemp, ref string arg_msg, boolean arg_ifcommit) public function integer uof_finish_plan (long arg_planid, ref string arg_msg, boolean arg_ifcommit) public function integer add_dscrp2 (long arg_scid, long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit) public function integer addmxsaleout (long arg_scid, long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit) public function integer stopsaletask_cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer stopqty (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit) public function integer add_wrkgrp_mxdscrp (long arg_scid, long arg_taskid, s_saletaskmx_wrkgrp_mxdscrp arg_s_mx, long arg_cnt, ref string arg_msg, boolean arg_ifcommit) public function integer add_relcode (long arg_scid, long arg_taskid, string arg_add_relcode, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx_item (long arg_printid, long arg_itemid, decimal arg_amt, string arg_mxdscrp, ref string arg_msg) public function integer add_dscrpmx (long arg_scid, long arg_taskid, long arg_printid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit) public function integer finishtask (long arg_scid, long arg_taskid, integer arg_status, ref string arg_msg, boolean arg_ifcommit) public function integer finishtask_cancel (long arg_scid, long arg_taskid, integer arg_status, ref string arg_msg, boolean arg_ifcommit) public function integer uof_disuse (long arg_scid, long arg_taskid, integer arg_disusetype, ref string arg_msg, boolean arg_ifcommit) public function integer uof_updatesaleoutcodestr (long arg_scid, long arg_taskid, long arg_printid, boolean arg_ifcommit, ref string arg_msg) public function integer add_dscrp3 (long arg_scid, long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit) public function integer stopsaletask (long arg_scid, long arg_taskid, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit) public function integer updatebqty (long arg_scid, long arg_taskid, long arg_printid, long arg_pid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_cmp_pack (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, decimal arg_qty, ref string arg_msg) public function integer uof_mod_requiredate (long arg_scid[], long arg_taskid[], long arg_printid[], datetime arg_olddate[], datetime arg_newdate[], ref string arg_msg, boolean arg_ifcommit) public function integer acceptmxmx (s_saletaskmxmx arg_s_mx, ref string arg_msg) private function integer uof_p_check_date (ref string arg_msg) public function integer acceptmx (long arg_mtrlid, decimal arg_qty, decimal arg_enprice, 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, long arg_quoteid, string arg_quotecode, long arg_quoteprintid, string arg_pricetype, decimal arg_nprice, long arg_poid, string arg_dscrp_text, decimal arg_taxrate, decimal arg_addqty, string arg_priceformula, long arg_sampleid, decimal arg_net_weight, decimal arg_gross_weight, decimal arg_cubage, long arg_fjcnt, string arg_fjstr, ref string arg_msg) private function integer uof_p_check_packprobom (ref string arg_msg) public function integer uof_add_reminddscrp (long arg_scid, long arg_taskid, string arg_reminddscrp, ref string arg_msg, boolean arg_ifcommit) public function integer priceaudit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer c_priceaudit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_mx (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) end prototypes public function integer p_reset ();//int p_reset() //清除对象及其明细 taskid=0 taskcode='' operator='' status=0 damt = 0 otheramt = 0 banktypeid = 0 moneyid = 0 relcode = '' freight_tele= '' msttakeamt = 0 takeamt = 0 dscrp = '' dscrp2 = '' dscrp3 = '' relcode = '' it_newbegin=false it_updatebegin=false //清除明细 p_clearmx() return 1 end function public function integer p_clearmx ();//INT p_clearmx() //清除明细 it_mxbt = 0 it_mxbtmx = 0 it_mxbt_in = 0 it_mxbt_item = 0 RETURN 1 end function public function integer add_dscrp (long arg_scid, long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit);//add_dscrp(string arg_newdescppart) //0 fail 1 SUCCESS Int rslt = 1 arg_newdescppart = Trim(arg_newdescppart) IF 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_scid,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 SET DSCRP = DSCRP+' '+:arg_newdescppart Where u_saletask.taskid = :arg_taskid AND scid = :arg_scid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致添加销售订单备注操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF 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 private function integer p_getinfo (long arg_scid, 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, typeid, rel_rep, level, dscrp3, exchangeid, station_address, priceflag, pricedate, pricerep, selecttype 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, :typeid, :rel_rep, :level, :dscrp3, :exchangeid, :station_address, :priceflag, :pricedate, :pricerep, :selecttype FROM u_SaleTask Where u_SaleTask.taskid = :arg_taskid AND scid = :arg_scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '查询订单内容失败(错误订单id:'+string(arg_taskid)+'),'+string(commit_transaction.SQLCode)+','+commit_transaction.sqlerrtext GOTO ext END IF ext: RETURN rslt end function public function integer cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);//删除未审核的订单 //0 FAIL, 1 SUCCESS Int rslt = 1 Long cnt If uo_option_disuse_saletask = -1000 Then rslt = 0 arg_msg = '选项:[291]启用销售订单废弃单,读取初始默认值失败,操作取消!' Goto ext End If If arg_scid < 0 Then arg_msg = '请选择分部' rslt = 0 Goto ext End If If arg_taskid <= 0 Then rslt = 0 arg_msg = '错误销售订单唯一码' Goto ext End If If p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 Then rslt = 0 Goto ext End If If Status <> 0 Then rslt = 0 arg_msg = "订单已经审核,不可以删除" Goto ext End If cnt = 0 Select count(*) Into :cnt From u_taskdamt_mx Where u_taskdamt_mx.relid = :arg_taskid And u_taskdamt_mx.scid = :arg_scid Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "查询订单是否已开订单收款单失败"+"~n"+commit_transaction.SQLErrText Rollback Using commit_transaction; Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = "订单已开订单收款单,操作取消,如需删除订单请先删除订单收款单" Rollback Using commit_transaction; Goto ext End If Select count(*) Into :cnt From u_bmsttake_fpmx Where relid = :arg_taskid And scid = :arg_scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询相关应收帐金额是否已分配订单失败"+"~n"+sqlca.SQLErrText Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = "本订单已进行应收帐金额已分配,不能删除" Goto ext End If //IF 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 Kind = 1 And uo_option_disuse_saletask = 1 Then If uof_disuse(arg_scid,arg_taskid,1,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If Delete From u_saletask Where u_saletask.taskid = :arg_taskid And scid = :arg_scid Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "删除销售订单操作失败"+"~n"+commit_transaction.SQLErrText Rollback Using commit_transaction; Goto ext End If Delete From u_saletaskmx Where u_saletaskmx.taskid = :arg_taskid And scid = :arg_scid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "删除销售订单明细操作失败"+"~n"+commit_transaction.SQLErrText Rollback Using commit_transaction; Goto ext End If Delete From u_saletaskmxmx Where taskid = :arg_taskid And scid = :arg_scid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "删除销售订单明细操作失败"+"~n"+commit_transaction.SQLErrText Rollback Using commit_transaction; Goto ext End If Delete From u_saletaskmx_mtrlchange Where u_saletaskmx_mtrlchange.taskid = :arg_taskid And scid = :arg_scid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "删除销售订单换料明细操作失败"+"~n"+commit_transaction.SQLErrText Rollback Using commit_transaction; Goto ext End If //删除原有明细 Delete From u_SaleTaskMx_dscrp Where taskid = :arg_taskid And scid = :arg_scid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "删除旧有明细备注操作失败"+"~n"+commit_transaction.SQLErrText Rollback Using commit_transaction; Goto ext End If Delete From u_saletask_itemmx Where taskid = :arg_taskid And scid = :arg_scid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "删除销售订单费用明细操作失败"+"~n"+commit_transaction.SQLErrText Rollback Using commit_transaction; Goto ext End If Delete From u_saletask_plan Where u_saletask_plan.taskid = :arg_taskid And u_saletask_plan.scid = :arg_scid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "删除销售订单工作计划操作失败"+"~n"+commit_transaction.SQLErrText Rollback Using commit_transaction; Goto ext End If 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 cancelpermit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 DateTime nulldate Decimal ls_consignedQty,ls_fpQty SetNull(nulldate) IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_price_order uo_po uo_po = Create uo_price_order uo_cust_sample uo_cs uo_cs = Create uo_cust_sample IF uo_option_saletask_secaudit = -1000 THEN arg_msg = '选项:[035]销售订单使用二级审核,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_saletask_fore_secaudit = -1000 THEN arg_msg = '选项:[088]销售预测单二级审核,读取初始默认值失败,操作取消!' 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_oa_saletask_fore = -1000 THEN arg_msg = '选项:[227]销售预测单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_scid,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 Kind <> 0 THEN 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 ELSE IF uo_option_saletask_fore_secaudit = 0 Or (uo_option_saletask_secaudit = 1 And uo_option_if_oa_saletask_fore = 1) THEN IF Status <> 1 THEN rslt = 0 If (uo_option_saletask_fore_secaudit = 1 And uo_option_if_oa_saletask_fore = 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 END IF SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :arg_scid AND taskid = :arg_taskid AND (ordertype = 0 OR ordertype = 1) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询销售订单排产数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "销售订单已经有相关生产计划,不可以撤消审核" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_saleoutmx WHERE scid = :arg_scid And 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 cnt = 0 SELECT count(*) INTO :cnt FROM u_outware,u_outwaremx WHERE ( u_outware.billtype = 1 ) AND ( u_outware.scid = u_outwaremx.scid ) AND ( u_outware.outwareid = u_outwaremx.outwareid ) AND ( u_outwaremx.relid = :arg_taskid ) AND ( u_outware.scid = :arg_scid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致查询销售订单发货数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "销售订单已经有相关出仓单据,不可以撤消审核" GOTO ext END IF SELECT sum(u_SaleTaskMx.consignedQty) INTO :ls_consignedQty FROM u_SaleTaskMx WHERE ( u_SaleTaskMx.TaskID = :arg_taskid ) AND ( u_SaleTaskMx.scid = :arg_scid ) AND ( u_SaleTaskMx.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 SELECT sum(u_SaleTaskMx.fpqty) INTO :ls_fpQty FROM u_SaleTaskMx WHERE ( u_SaleTaskMx.TaskID = :arg_taskid ) AND ( u_SaleTaskMx.scid = :arg_scid ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询销售订单已分配数量操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF IF ls_fpQty > 0 THEN rslt = 0 arg_msg = "销售订单已有分配数量,不能撤审" GOTO ext END IF IF Kind <> 0 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_taskdamt_mx WHERE scid = :arg_scid And relid = :arg_taskid; IF SQLCA.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询订单是否已开订单收款单失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "订单已开订单收款单,不能撤审" GOTO ext END IF END IF //来料加工订单,检查是否已开收料单 IF Kind = 2 THEN 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 = :arg_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 ) AND ( u_SaleTaskMx_in.scid = :arg_scid ) 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 END IF //默认订单调度 Long i FOR i = 1 To it_mxbt IF p_cprqplan(arg_scid,arg_taskid,saletaskmx[i].printid,0,saletaskmx[i].saleqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF NEXT Int li_isuse FOR i = 1 To it_mxbt SELECT isuse INTO :li_isuse FROM u_mtrldef Where mtrlid = :saletaskmx[i].mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询:'+saletaskmx[i].mtrlcode+'资料属性失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF li_isuse = 2 THEN UPDATE u_mtrldef SET stopsaleqty = stopsaleqty - :saletaskmx[i].saleqty Where mtrlid = :saletaskmx[i].mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新:'+saletaskmx[i].mtrlcode+'资料待停产后已订数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF NEXT IF Kind <> 0 THEN IF uo_option_saletask_secaudit = 0 Or (uo_option_saletask_secaudit = 1 And uo_option_if_oa_saletask = 1) THEN UPDATE u_SaleTask SET Status = 0, permit_emp = '', permit_date = :nulldate, p_Auditingrep = '', p_Auditingdate = :nulldate WHERE TaskID = :arg_taskid AND scid = :arg_scid AND status = 1 Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致销售订单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ELSE UPDATE u_SaleTask SET Status = 0, permit_emp = '', permit_date = :nulldate WHERE TaskID = :arg_taskid AND scid = :arg_scid 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 ELSE IF uo_option_saletask_fore_secaudit = 0 Or (uo_option_saletask_fore_secaudit = 1 And uo_option_if_oa_saletask_fore = 1) THEN UPDATE u_SaleTask SET Status = 0, permit_emp = '', permit_date = :nulldate, p_Auditingrep = '', p_Auditingdate = :nulldate WHERE TaskID = :arg_taskid AND scid = :arg_scid AND status = 1 Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致销售订单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ELSE UPDATE u_SaleTask SET Status = 0, permit_emp = '', permit_date = :nulldate WHERE TaskID = :arg_taskid AND scid = :arg_scid 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 END IF DELETE FROM u_saletaskmx_moddate_log Where scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致清除明细交期变更历史操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF DELETE FROM u_saletask_stoplog Where scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致清除明细终止数量记录失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //将相关已完成的OA公文的状态设为作废 IF Kind <> 0 THEN If (uo_option_saletask_secaudit = 1 And uo_option_if_oa_saletask = 1) THEN UPDATE oa_doc SET docflag = 12 WHERE powerid = 6 AND scid = :arg_scid AND billid = :arg_taskid //And docflag = 11 Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新相关公文状态失败'+commit_transaction.SQLErrText GOTO ext END IF END IF ELSE If (uo_option_saletask_fore_secaudit = 1 And uo_option_if_oa_saletask_fore = 1) THEN UPDATE oa_doc SET docflag = 12 WHERE powerid = 1324 AND scid = :arg_scid AND billid = :arg_taskid //And docflag = 11 Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新相关公文状态失败'+commit_transaction.SQLErrText GOTO ext END IF END IF END IF IF Kind <> 0 THEN //更新价格指令使用次数 FOR i = 1 To it_mxbt IF saletaskmx[i].poid > 0 THEN IF uo_po.uof_add_salenum(saletaskmx[i].poid, saletaskmx[i].saleqty, 1, False, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF NEXT END IF //更新意向单完成数, 完成意向单 FOR i = 1 To it_mxbt IF saletaskmx[i].sampleid > 0 THEN IF uo_cs.trycmpl(saletaskmx[i].sampleid, 0 - saletaskmx[i].saleqty, arg_msg, False) = 0 THEN rslt = 0 GOTO ext END IF 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() Destroy uo_po Destroy uo_cs Return (rslt) end function public function integer checkmxcmpl (long arg_scid, long arg_taskid, long arg_mtrlid, decimal arg_addqty, ref string arg_msg);//checkmxcmpl(long arg_taskid,long arg_mtrlid,decimal arg_addqty,ref string arg_msg,boolean arg_ifcommit) Int rslt = 1,cnt = 0 If arg_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_scid,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 ) And ( u_saleTaskMx.scid = :arg_scid) 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 getinfo (long arg_scid, 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,k = 1 IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //用游标读取明细 DECLARE cur_inwaermx CURSOR FOR SELECT u_saletaskmx.mtrlid, u_saletaskmx.saleqty, u_saletaskmx.price, u_saletaskmx.mxdscrp, u_saletaskmx.mxdscrp2, u_mtrldef.mtrlcode, u_saletaskmx.fprice, u_saletaskmx.rebate, u_saletaskmx.status, u_saletaskmx.printid, u_saletaskmx.woodcode, u_saletaskmx.pcode, u_saletaskmx.mtrlcuscode, u_saletaskmx.enprice, u_saletaskmx.outtypestr, u_saletaskmx.dftsaleprice, u_saletaskmx.requiredate, u_saletaskmx.pfcode, u_saletaskmx.scidprice, u_saletaskmx.pricetype, u_saletaskmx.capacity, u_saletaskmx.nprice, u_mtrldef.planprice, u_saletaskmx.poid, u_saletaskmx.fpqty, u_saletaskmx.taxrate, u_saletaskmx.addqty, u_saletaskmx.sampleid, u_saletaskmx.net_weight, u_saletaskmx.gross_weight, u_saletaskmx.cubage, u_mtrldef.expday, u_saletaskmx.fjcnt, u_saletaskmx.fjstr FROM u_saletaskmx,u_mtrldef WHERE u_saletaskmx.taskid = :arg_taskid AND u_saletaskmx.mtrlid = u_mtrldef.mtrlid AND u_saletaskmx.scid = :arg_scid 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, :saletaskmx[i].pricetype, :saletaskmx[i].capacity, :saletaskmx[i].nprice, :saletaskmx[i].planprice, :saletaskmx[i].poid,:saletaskmx[i].fpqty, :saletaskmx[i].taxrate,:saletaskmx[i].addqty, :saletaskmx[i].sampleid,:saletaskmx[i].net_weight, :saletaskmx[i].gross_weight, :saletaskmx[i].cubage,:saletaskmx[i].u_mtrldef_expday, :saletaskmx[i].fjcnt,:saletaskmx[i].fjstr; 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, :saletaskmx[i].pricetype, :saletaskmx[i].capacity, :saletaskmx[i].nprice, :saletaskmx[i].planprice, :saletaskmx[i].poid,:saletaskmx[i].fpqty, :saletaskmx[i].taxrate,:saletaskmx[i].addqty, :saletaskmx[i].sampleid,:saletaskmx[i].net_weight, :saletaskmx[i].gross_weight, :saletaskmx[i].cubage,:saletaskmx[i].u_mtrldef_expday, :saletaskmx[i].fjcnt,:saletaskmx[i].fjstr; LOOP CLOSE cur_inwaermx; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_saletaskmx Where u_saletaskmx.taskid = :arg_taskid And scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,销售订单明细数量" GOTO ext END IF IF i <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,销售订单明细" GOTO ext END IF it_mxbt = i - 1 //读取来料加工订单收料明细 //用游标读取明细 DECLARE cur_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 AND u_saletaskmx_in.scid = :arg_scid 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 And scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,销售订单明细数量" GOTO ext END IF IF j <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,销售订单明细" GOTO ext END IF it_mxbt_in = j - 1 //////////////////////// // //读取来料加工订单费用明细 DECLARE cur_saletaskmx_item CURSOR FOR SELECT scid, taskid, printid, itemid, amt, mxdscrp FROM u_saletask_itemmx WHERE u_saletask_itemmx.taskid = :arg_taskid AND u_saletask_itemmx.scid = :arg_scid Using commit_transaction; OPEN cur_saletaskmx_item; FETCH cur_saletaskmx_item INTO :saletask_itemmx[k].scid,:saletask_itemmx[k].taskid, :saletask_itemmx[k].printid,:saletask_itemmx[k].itemid, :saletask_itemmx[k].amt,:saletask_itemmx[k].mxdscrp; DO WHILE commit_transaction.SQLCode = 0 k++ FETCH cur_saletaskmx_item INTO :saletask_itemmx[k].scid,:saletask_itemmx[k].taskid, :saletask_itemmx[k].printid,:saletask_itemmx[k].itemid, :saletask_itemmx[k].amt,:saletask_itemmx[k].mxdscrp; LOOP CLOSE cur_saletaskmx_item; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_saletask_itemmx Where taskid = :arg_taskid And scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,销售订单费用明细数量" GOTO ext END IF IF k <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,销售订单费用明细" GOTO ext END IF it_mxbt_item = k - 1 it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer salepermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 Long i Decimal ld_stoppqty,ld_stopsaleqty Int li_isuse If f_aps_mrp_cklock(arg_scid,arg_msg) = 0 Then rslt = 0 Goto ext End If uo_price_order uo_po uo_po = Create uo_price_order uo_cust_sample uo_cs uo_cs = Create uo_cust_sample If uo_option_saletask_secaudit = -1000 Then arg_msg = '选项:[035]销售订单使用二级审核,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If uo_option_saletask_fore_secaudit = -1000 Then arg_msg = '选项:[088]销售预测单二级审核,读取初始默认值失败,操作取消!' 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_oa_saletask_fore = -1000 Then arg_msg = '选项:[227]销售预测单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If uo_option_saletask_addware = -1000 Then arg_msg = '选项:[039]销售订单审核自动加0库存,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If uo_option_saletask_fore_addware = -1000 Then arg_msg = '选项:[402]销售预测单审核自动加0库存,读取初始默认值失败,操作取消!' 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_set_planprice = -1000 Then arg_msg = '选项:[201]销售订单/预测单审核前必须设定计划价,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If uo_option_inout_type = -1000 Then arg_msg = '选项:[142]进出仓高级选项,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If arg_taskid <= 0 Then rslt = 0 arg_msg = '错误销售订单唯一码' Goto ext End If If getinfo(arg_scid,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 Kind > 0 Then If uof_p_check_dprice(arg_msg) = 0 Then rslt = 0 Goto ext End If //yyx2014-1-4 If uof_p_check_date(arg_msg) = 0 Then rslt = 0 Goto ext End If // //lhd20140703 If uof_p_check_packprobom(arg_msg) = 0 Then rslt = 0 Goto ext End If // For i = 1 To it_mxbt Select stoppqty,stopsaleqty,isuse Into :ld_stoppqty,:ld_stopsaleqty,:li_isuse From u_mtrldef Where mtrlid = :saletaskmx[i].mtrlid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询:'+saletaskmx[i].mtrlcode+'资料属性失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If li_isuse = 2 Then If saletaskmx[i].saleqty > ld_stoppqty - ld_stopsaleqty Then arg_msg = '产品:'+saletaskmx[i].mtrlcode+' 已待停产,待停产后可订数量为:'+String(ld_stoppqty,'#,##0.##########')+',待停产后已订数量为:'+String(ld_stopsaleqty,'#,##0.##########')+',不能再订:'+String(saletaskmx[i].saleqty,'#,##0.##########') rslt = 0 Goto ext End If Update u_mtrldef Set stopsaleqty = stopsaleqty + :saletaskmx[i].saleqty Where mtrlid = :saletaskmx[i].mtrlid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '更新:'+saletaskmx[i].mtrlcode+'资料待停产后已订数失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If End If Next End If Boolean lb_noplan = False If uo_option_saletask_set_planprice = 1 Then For i = 1 To it_mxbt //销售订单/预测单审核前必须设定计划价 If saletaskmx[i].planprice <= 0 Then arg_msg = arg_msg + '产品:'+saletaskmx[i].mtrlcode+'计划价未设定~r~n' lb_noplan = True End If Next If lb_noplan Then rslt = 0 Goto ext End If 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 Kind <> 0 Then If uo_option_saletask_secaudit = 0 Then Update u_saletask Set permit_emp = :arg_emp , permit_date = getdate(), p_Auditingdate = getdate(), p_Auditingrep = :arg_emp, status = 1 Where taskid = :arg_taskid And scid = :arg_scid And status = 0 Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致订单审核操作失败"+"~n"+commit_transaction.SQLErrText Goto ext ElseIf commit_transaction.SQLNRows = 0 Then rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText Goto ext End If Else Update u_saletask Set permit_emp = :arg_emp , permit_date = getdate(), status = 4 Where taskid = :arg_taskid And scid = :arg_scid And status = 0 Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致订单审核操作失败"+"~n"+commit_transaction.SQLErrText Goto ext ElseIf commit_transaction.SQLNRows = 0 Then rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText Goto ext End If End If Else If uo_option_saletask_fore_secaudit = 0 Then Update u_saletask Set permit_emp = :arg_emp , permit_date = getdate(), p_Auditingdate = getdate(), p_Auditingrep = :arg_emp, status = 1 Where taskid = :arg_taskid And scid = :arg_scid And status = 0 Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致订单审核操作失败"+"~n"+commit_transaction.SQLErrText Goto ext ElseIf commit_transaction.SQLNRows = 0 Then rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText Goto ext End If Else Update u_saletask Set permit_emp = :arg_emp , permit_date = getdate(), status = 4 Where taskid = :arg_taskid And scid = :arg_scid And status = 0 Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致订单审核操作失败"+"~n"+commit_transaction.SQLErrText Goto ext ElseIf commit_transaction.SQLNRows = 0 Then rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText Goto ext End If End If End If //成品仓加0库存 //----------------------------------------------- If (uo_option_saletask_addware > 0 And Kind > 0) or (uo_option_saletask_fore_addware > 0 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 Int li_outtype_storage_arr[],li_outtype_storage Int li_storagetype_storage_arr[],li_storagetype_storage Long ll_cusid String ls_status,ls_mtrlcode,ls_pcode,ls_woodcode,ls_plancode Long ll_mtrlwareid,ll_mtrlid Int li_storagetype Int li_outtype,li_ifpackpro,li_ifmrppackpf String ls_pf_status[],ls_pf_woodcode[],ls_pf_pcode[] Int li_ifover[],li_dipztype[] Long ll_SonMtrlid[] Long it_mxt = 1 Long ll_k String ls_status_find,ls_woodcode_find,ls_pcode_find //在订单所属分部的全部成品仓加0库存 If (uo_option_saletask_addware = 1 And Kind > 0) or (uo_option_saletask_fore_addware = 1 and kind = 0) Then Declare pf_cur Cursor For Select u_storage.storageid, u_storage.storagename, u_storage.scid, u_storage.balctype, u_storage.outtype, u_storage.storagetype From u_storage Where ( u_storage.mtrlprp = 0 ) And ( u_storage.inuse = 1 ) And (u_storage.scid = :arg_scid); Open pf_cur; Fetch pf_cur Into :ll_storageid,:ls_storagename,:ll_scid,:li_balctype,:li_outtype_storage,:li_storagetype_storage; 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 li_outtype_storage_arr[count] = li_outtype_storage li_storagetype_storage_arr[count] = li_storagetype_storage Fetch pf_cur Into :ll_storageid,:ls_storagename,:ll_scid,:li_balctype,:li_outtype_storage,:li_storagetype_storage; Loop Close pf_cur; End If 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 Select storagetype,outtype,ifpackpro,ifmrppackpf Into :li_storagetype,:li_outtype,:li_ifpackpro,:li_ifmrppackpf From u_mtrldef Where mtrlid = :ll_mtrlid; If sqlca.SQLCode <> 0 Then arg_msg = '查询:'+ls_mtrlcode+'库存属性失败' rslt = 0 Goto ext End If //在订单所属分部产品默认成品仓加0库存 If (uo_option_saletask_addware = 2 And Kind > 0) or (uo_option_saletask_fore_addware = 2 and kind = 0) Then count = 0 Declare cur_mtrl_storage Cursor For Select u_storage.storageid, u_storage.storagename, u_storage.scid, u_storage.balctype, u_storage.outtype, u_storage.storagetype From u_storage,u_mtrl_storage Where ( u_storage.storageid = u_mtrl_storage.storageid ) And ( u_mtrl_storage.mtrlid = :ll_mtrlid ) And ( u_storage.mtrlprp = 0 ) And ( u_storage.inuse = 1 ) And ( u_storage.scid = :arg_scid ); Open cur_mtrl_storage; Fetch cur_mtrl_storage Into :ll_storageid,:ls_storagename,:ll_scid,:li_balctype,:li_outtype_storage,:li_storagetype_storage; 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 li_outtype_storage_arr[count] = li_outtype_storage li_storagetype_storage_arr[count] = li_storagetype_storage Fetch cur_mtrl_storage Into :ll_storageid,:ls_storagename,:ll_scid,:li_balctype,:li_outtype_storage,:li_storagetype_storage; Loop Close cur_mtrl_storage; End If For ll_j = 1 To count If li_storagetype_storage_arr[ll_j] = 1 Then ll_cusid = 0 Else If li_balctype_arr[ll_j] = 1 Then ll_cusid = cusid Else ll_cusid = 0 End If End If If li_storagetype = 1 Then ll_cusid = 0 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 If sys_option_saletask_addware_addbj = 1 Then If uo_option_inout_type <> 0 And li_outtype <> 0 And li_ifpackpro = 1 Then it_mxt = 1 Declare cur_pf Cursor For Select u_PrdPF.SonMtrlid, u_PrdPF.status, u_PrdPF.woodcode, u_PrdPF.pcode, u_PrdPF.ifover, u_prdpf.dipztype From u_PrdPF,u_mtrl_pf Where ( u_PrdPF.mtrlid = u_mtrl_pf.mtrlid ) And ( u_PrdPF.pfcode = u_mtrl_pf.pfcode ) And ( u_PrdPF.mtrlid = :ll_mtrlid ) And ( u_mtrl_pf.ifdi = 1 And :li_ifpackpro = 0 Or u_mtrl_pf.ifdft = 1 And :li_ifpackpro = 1 And :li_ifmrppackpf = 0 Or u_mtrl_pf.ifdi = 2 And :li_ifpackpro = 1 And :li_ifmrppackpf = 1 ); Open cur_pf; Fetch cur_pf Into :ll_SonMtrlid[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:li_ifover[it_mxt],:li_dipztype[it_mxt]; Do While sqlca.SQLCode = 0 it_mxt++ Fetch cur_pf Into :ll_SonMtrlid[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:li_ifover[it_mxt],:li_dipztype[it_mxt]; Loop it_mxt = it_mxt - 1 Close cur_pf; For ll_k = 1 To it_mxt If li_ifover[ll_k] = 1 Then Choose Case li_dipztype[ll_k] Case 0 ls_status_find = ls_status ls_woodcode_find = '' ls_pcode_find = '' Case 1 ls_status_find = '' ls_woodcode_find = ls_woodcode ls_pcode_find = '' Case 2 ls_status_find = '' ls_woodcode_find = '' ls_pcode_find = ls_pcode Case 3 ls_status_find = ls_status ls_woodcode_find = ls_woodcode ls_pcode_find = '' Case 4 ls_status_find = '' ls_woodcode_find = ls_woodcode ls_pcode_find = ls_pcode Case 5 ls_status_find = ls_status ls_woodcode_find = '' ls_pcode_find = ls_pcode Case 6 ls_status_find = ls_status ls_woodcode_find = ls_woodcode ls_pcode_find = ls_pcode End Choose Else ls_status_find = ls_pf_status[ll_k] ls_woodcode_find = ls_pf_woodcode[ll_k] ls_pcode_find = ls_pf_pcode[ll_k] End If ls_status_find = Trim(ls_status_find) ls_woodcode_find = Trim(ls_woodcode_find) ls_pcode_find = Trim(ls_pcode_find) Select top 1 mtrlwareid Into :ll_mtrlwareid From u_mtrlware Where mtrlid = :ll_SonMtrlid[ll_k] And status = :ls_status_find And storageid = :ll_storageid_arr[ll_j] And woodcode = :ls_woodcode_find And plancode = :ls_plancode And pcode = :ls_pcode_find 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_SonMtrlid[ll_k],:ll_storageid_arr[ll_j],0,:ls_status_find,:ls_plancode,:ls_woodcode_find,:ls_pcode_find,: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 End If End If Next Next End If If uo_option_if_msg = 1 Then If f_billmsg(arg_scid,taskcode,taskcode+'销售订单确认',taskcode+'销售订单确认',commit_transaction,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If //默认订单调度 If Kind <> 0 Then If uo_option_saletask_secaudit = 0 Then For i = 1 To it_mxbt If p_cprqplan(arg_scid,arg_taskid,saletaskmx[i].printid,1,saletaskmx[i].saleqty,arg_msg,False) = 0 Then rslt = 0 Goto ext End If Next End If Else If uo_option_saletask_fore_secaudit = 0 Then For i = 1 To it_mxbt If p_cprqplan(arg_scid,arg_taskid,saletaskmx[i].printid,1,saletaskmx[i].saleqty,arg_msg,False) = 0 Then rslt = 0 Goto ext End If Next End If End If If Kind <> 0 Then 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 Else If uo_option_if_oa_saletask_fore = 1 And uo_option_saletask_fore_secaudit = 1 Then If f_oa(commit_transaction,False,arg_msg,1324,scid,taskid,taskcode,relcode,dscrp) = 0 Then rslt = 0 Goto ext End If End If End If If Kind <> 0 Then //更新价格指令使用次数 For i = 1 To it_mxbt If saletaskmx[i].poid > 0 Then If uo_po.uof_add_salenum(saletaskmx[i].poid, saletaskmx[i].saleqty, 0, False, arg_msg) = 0 Then rslt = 0 Goto ext End If End If Next End If //更新意向单完成数, 完成意向单 For i = 1 To it_mxbt If saletaskmx[i].sampleid > 0 Then If uo_cs.trycmpl(saletaskmx[i].sampleid, saletaskmx[i].saleqty, arg_msg, False) = 0 Then rslt = 0 Goto ext End If 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() Destroy uo_po Destroy uo_cs Return rslt end function public function integer tempstoptask (long arg_scid, 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_scid,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 SET Status = 2,stopemp = :publ_operator Where TaskID = :arg_taskid AND scid = :arg_scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致暂停销售订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ELSE UPDATE u_SaleTask SET Status = 1,stopemp = '' Where TaskID = :arg_taskid AND scid = :arg_scid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致取消暂停销售订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer updatebegin (long arg_scid, long arg_taskid, ref string arg_msg);//UPDATEbegin(long arg_taskid,ref string arg_msg) //从置对象,设定业务类型与关联ID,准备更新进仓单 //0 fail 1 success Long rslt = 1,CNT = 0 IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_if_oa_saletask_fore = -1000 THEN arg_msg = '选项:[227]销售预测单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_scid < 0 THEN arg_msg = '请选择分部' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_scid,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 priceflag <> 0 then rslt = 0 arg_msg = '单据已确认,不能修改' goto ext end if IF Kind <> 0 THEN IF uo_option_if_oa_saletask = 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 ELSE IF uo_option_if_oa_saletask_fore = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_taskid,1324,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF it_newbegin = False it_updatebegin = True p_clearmx() //清除明细 msttakeamt = 0 scid = arg_scid ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer savesubmit (string arg_operator, ref string arg_msg, boolean arg_ifcommit);Integer rslt = 1,cnt = 0,i,j,k Long ls_newtaskid DateTime server_datetime Long ll_taskid String ls_sccode String ls_mtrlcuscode String ls_typebillcode Long ll_typeid String ls_taskcode Int li_pricelistflag Int li_selecttype_cust,li_selecttype_def,li_ifbj If uo_option_disuse_saletask = -1000 Then rslt = 0 arg_msg = '选项:[291]启用销售订单废弃单,读取初始默认值失败,操作取消!' Goto ext End If If uo_option_taskplancode_auto = -1000 Then arg_msg = '选项:[048]销售订单生产批号类型,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If uo_option_saletask_rebate_check = -1000 Then arg_msg = '选项:[364]客户折扣没有审核，不能保存销售订单,读取初始默认值失败,操作取消!' 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 If IsNull(typeid) Then typeid = 0 If IsNull(cusid) Then cusid = 0 If IsNull(rel_rep) Then rel_rep = '' If IsNull(Level) Then Level = 2 If IsNull(dscrp3) Then dscrp3 = '' If IsNull(station_address) Then station_address = '' If IsNull(sendUser) Then sendUser = '' If IsNull(fiebrelcode) Then fiebrelcode = '' If IsNull(exchangeid) Then exchangeid = 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 If Kind <> 4 Then arg_msg = "请输入订单业务员" Else arg_msg = "请输入经手员" End If Goto ext End If If Kind > 0 And Kind <> 3 And Kind <> 4 Then 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 If uo_option_saletask_rebate_check = 1 Then Select pricelistflag Into :li_pricelistflag From u_cust Where cusid = :cusid Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "查询操作失败,客户默认价格表/折扣" Goto ext End If If li_pricelistflag = 0 Then rslt = 0 arg_msg = "客户折扣未审核,不能保存" Goto ext End If End If cnt = 0 Select count(*) Into :cnt From cw_banktype Where banktypeid = :banktypeid Using commit_transaction; 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 Using commit_transaction; 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 If f_moneyid_rate_check(moneyid,mrate,arg_msg) = 0 Then rslt = 0 Goto ext End If //综合订单分类及客户设定,得出最终生效的选择限制 selecttype If f_get_selecttype(typeid,cusid,selecttype,arg_msg) = 0 Then rslt = 0 Goto ext End If ElseIf Kind = 0 And cusid > 0 Then 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 End If If Kind > 0 And Kind <> 4 Then If uo_option_saletask_ifuse_typebillcode = 1 Then If typeid = 0 Then arg_msg = '请先选择订单分类' rslt = 0 Goto ext End If Select billcode Into :ls_typebillcode From u_saletype Where typeid = :typeid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询销售订单分类属性失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If ls_typebillcode = '' Then arg_msg = '订单分类未设置对应单据抬头,请检查' rslt = 0 Goto ext End If End If 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 //检查订货日期是否合法(不能距离当前时间10年以上) if abs(year(date(server_datetime)) - year(date(taskdate))) > 10 then rslt = 0 arg_msg = '请检查订货日期是否正确(不能距离当前时间10年以上)!' goto ext end if If f_check_inoutdate(0,taskdate,False,arg_msg) = 0 Then rslt = 0 Goto ext End If If it_mxbt = 0 Then //如果输入物料资料错则已经清空 rslt = 0 arg_msg = "没有正确销售订单明细内容" Goto ext End If If Date(taskdate) > Date(requiredate) Then arg_msg = '交货日期不能在订货日期前' rslt = 0 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 Kind = 1 And taskid > 0 And uo_option_disuse_saletask = 1 Then If uof_disuse(scid,taskid,0,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If ////////////////////////////////////////////// //开始区分:新建/更新 处理 If taskid = 0 Then //新建 ll_taskid = f_sys_scidentity(scid,"u_saletask","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 If Kind = 0 Then taskcode = getid(scid,ls_sccode + 'SF',Date(server_datetime),False,commit_transaction) If taskcode = "err" Then taskcode = '' rslt = 0 arg_msg = "无法获取销售预测单编号"+"~n"+sqlca.SQLErrText Goto ext End If ElseIf Kind = 1 Then If uo_option_saletask_ifuse_typebillcode = 0 Then taskcode = getid(scid,ls_sccode + 'SG',Date(server_datetime),False,commit_transaction) If taskcode = "err" Then taskcode = '' rslt = 0 arg_msg = "无法获取销售订单编号"+"~n"+sqlca.SQLErrText Goto ext End If Else taskcode = getid_saletask(scid,ls_sccode + ls_typebillcode,Date(server_datetime),False,commit_transaction) If taskcode = "err" Then taskcode = '' rslt = 0 arg_msg = "无法获取销售订单分类编号"+"~n"+sqlca.SQLErrText Goto ext End If End If ElseIf Kind = 2 Then taskcode = getid(scid,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 ElseIf Kind = 3 Then taskcode = getid(scid,ls_sccode + 'SR',Date(server_datetime),False,commit_transaction) If taskcode = "err" Then taskcode = '' rslt = 0 arg_msg = "无法获取销售返工订单编号"+"~n"+sqlca.SQLErrText Goto ext End If ElseIf Kind = 4 Then taskcode = getid(scid,ls_sccode + 'FX',Date(server_datetime),False,commit_transaction) If taskcode = "err" Then taskcode = '' rslt = 0 arg_msg = "无法获取分部需求单编号"+"~n"+sqlca.SQLErrText Goto ext End If End If Insert Into u_saletask ( scid, taskcode, kind, cusid, requiredate, status, opemp, assign_emp, dscrp, dscrp2, opdate, taskid, damt, otheramt, freight, taskdate, banktypeid, moneyid, relcode, paytype, freight_tele, cus_address, cus_tele, cus_fax, mrate, upname, msttakeamt, typeid, rel_rep, level, sendTime, sendUser, fiebrelcode, mxrowcount, dscrp3, exchangeid, station_address, selecttype) Values ( :scid, :taskcode, :Kind, :cusid, :requiredate, :status, :operator, :assign_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, :typeid, :rel_rep, :Level, :sendTime, :sendUser, :fiebrelcode, :it_mxbt, :dscrp3, :exchangeid, :station_address, :selecttype) 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 = '' If Kind = 4 Then ls_mtrlcuscode = saletaskmx[i].mtrlcuscode Else Choose Case uo_option_taskplancode_auto Case 1 ls_mtrlcuscode = saletaskmx[i].mtrlcuscode Case 2 ls_mtrlcuscode = taskcode Case 3 ls_mtrlcuscode = relcode Case 4 ls_mtrlcuscode = taskcode + '.' + String(i,'000') Case 5 ls_mtrlcuscode = '' Case Else arg_msg = '错误的生产批号,管理员请在系统选项设置先设定好订单批号模式' rslt = 0 Goto ext End Choose End If Insert Into u_saletaskmx ( scid, saleqty, price, plprice, mtrlid, taskid, mxdscrp, mxdscrp2, fprice, rebate, status, printid, woodcode, pcode, mtrlcuscode, enprice, outtypestr, dftsaleprice, requiredate, pfcode, scidprice, quoteid, quotecode, quoteprintid, pricetype, capacity, nprice, poid, taxrate, addqty, priceformula, sampleid, enacprice, net_weight, gross_weight, cubage, fjcnt, fjstr, porebate) Values (:scid, :saletaskmx[i].saleqty, :saletaskmx[i].acprice, :saletaskmx[i].plprice, :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].quoteid, :saletaskmx[i].quotecode, :saletaskmx[i].quoteprintid, :saletaskmx[i].pricetype, :saletaskmx[i].capacity, :saletaskmx[i].nprice, :saletaskmx[i].poid, :saletaskmx[i].taxrate, :saletaskmx[i].addqty, :saletaskmx[i].priceformula, :saletaskmx[i].sampleid, :saletaskmx[i].enacprice, :saletaskmx[i].net_weight, :saletaskmx[i].gross_weight, :saletaskmx[i].cubage, :saletaskmx[i].fjcnt, :saletaskmx[i].fjstr, :saletaskmx[i].porebate) Using commit_transaction; If commit_transaction.SQLCode <> 0 Then taskid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText Goto ext End If If Len(Trim(saletaskmx[i].dscrp_text)) > 0 Then Insert Into u_SaleTaskMx_dscrp (scid, taskid, printid, dscrp) Values (:scid, :ll_taskid, :saletaskmx[i].printid, :saletaskmx[i].dscrp_text) Using commit_transaction; If commit_transaction.SQLCode <> 0 Then taskid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入明细备注操作失败"+"~n"+commit_transaction.SQLErrText Goto ext End If End If Next For i = 1 To it_mxbtmx ls_mtrlcuscode = '' If Kind = 4 Then ls_mtrlcuscode = saletaskmxmx[i].mtrlcuscode Else Choose Case uo_option_taskplancode_auto Case 1 ls_mtrlcuscode = saletaskmxmx[i].mtrlcuscode Case 2 ls_mtrlcuscode = taskcode Case 3 ls_mtrlcuscode = relcode Case 4 ls_mtrlcuscode = taskcode + '.' + String(i,'000') Case 5 ls_mtrlcuscode = '' Case Else arg_msg = '错误的生产批号,管理员请在系统选项设置先设定好订单批号模式' rslt = 0 Goto ext End Choose End If Insert Into u_saletaskmxmx ( scid, saleqty, price, plprice, mtrlid, taskid, mxdscrp, mxdscrp2, fprice, rebate, status, printid, woodcode, pcode, mtrlcuscode, enprice, outtypestr, dftsaleprice, requiredate, pfcode, scidprice, quoteid, quotecode, quoteprintid, pricetype, capacity, nprice, poid, taxrate, addqty, priceformula, enacprice, net_weight, gross_weight, cubage) Values (:scid, :saletaskmxmx[i].saleqty, :saletaskmxmx[i].price, :saletaskmxmx[i].plprice, :saletaskmxmx[i].mtrlid, :ll_taskid, :saletaskmxmx[i].mxdscrp, :saletaskmxmx[i].mxdscrp2, :saletaskmxmx[i].fprice, :saletaskmxmx[i].rebate, :saletaskmxmx[i].status, :saletaskmxmx[i].printid, :saletaskmxmx[i].woodcode, :saletaskmxmx[i].pcode, :ls_mtrlcuscode, :saletaskmxmx[i].enprice, :saletaskmxmx[i].outtypestr, :saletaskmxmx[i].dftsaleprice, :saletaskmxmx[i].requiredate, :saletaskmxmx[i].pfcode, :saletaskmxmx[i].scidprice, :saletaskmxmx[i].quoteid, :saletaskmxmx[i].quotecode, :saletaskmxmx[i].quoteprintid, :saletaskmxmx[i].pricetype, :saletaskmxmx[i].capacity, :saletaskmxmx[i].nprice, :saletaskmxmx[i].poid, :saletaskmxmx[i].taxrate, :saletaskmxmx[i].addqty, :saletaskmxmx[i].priceformula, :saletaskmxmx[i].enacprice, :saletaskmxmx[i].net_weight, :saletaskmxmx[i].gross_weight, :saletaskmxmx[i].cubage) 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 If Kind = 2 Then 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 End If For k = 1 To it_mxbt_item Insert Into u_saletask_itemmx (scid, taskid, printid, itemid, amt, mxdscrp) Values (:scid, :ll_taskid, :saletask_itemmx[k].printid, :saletask_itemmx[k].itemid, :saletask_itemmx[k].amt, :saletask_itemmx[k].mxdscrp) 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 cnt = 0 Select count(*) Into :cnt From u_cust_wrkgrp_mxdscrp Where cusid = :cusid And mtrlid = 0; If sqlca.SQLCode <> 0 Then cnt = 0 If cnt > 0 Then Insert Into u_saletaskmx_wrkgrp_mxdscrp (scid, taskid, printid, wrkgrpid, mxdscrp) Select u_SaleTaskMx.scid, u_SaleTaskMx.TaskID, u_SaleTaskMx.printid, u_cust_wrkgrp_mxdscrp.wrkgrpid, u_cust_wrkgrp_mxdscrp.mxdscrp From u_SaleTask Inner JOIN u_SaleTaskMx ON u_SaleTask.scid = u_SaleTaskMx.scid And u_SaleTask.TaskID = u_SaleTaskMx.TaskID Inner JOIN u_cust_wrkgrp_mxdscrp ON u_SaleTask.CusID = u_cust_wrkgrp_mxdscrp.cusid Where u_SaleTask.scid = :scid And u_saletask.taskid = :ll_taskid And (u_cust_wrkgrp_mxdscrp.mtrlid = 0) Using commit_transaction; If commit_transaction.SQLCode <> 0 Then taskid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入默认车间备注(通用)操作失败"+"~n"+commit_transaction.SQLErrText Goto ext End If Update u_saletaskmx_wrkgrp_mxdscrp Set u_saletaskmx_wrkgrp_mxdscrp.mxdscrp = u_cust_wrkgrp_mxdscrp.mxdscrp From u_saletaskmx_wrkgrp_mxdscrp Inner JOIN u_SaleTask ON u_saletaskmx_wrkgrp_mxdscrp.scid = u_SaleTask.scid And u_saletaskmx_wrkgrp_mxdscrp.taskid = u_SaleTask.TaskID Inner JOIN u_cust_wrkgrp_mxdscrp ON u_SaleTask.CusID = u_cust_wrkgrp_mxdscrp.cusid And u_saletaskmx_wrkgrp_mxdscrp.wrkgrpid = u_cust_wrkgrp_mxdscrp.wrkgrpid Inner JOIN u_SaleTaskMx ON u_saletaskmx_wrkgrp_mxdscrp.scid = u_SaleTaskMx.scid And u_saletaskmx_wrkgrp_mxdscrp.taskid = u_SaleTaskMx.TaskID And u_saletaskmx_wrkgrp_mxdscrp.printid = u_SaleTaskMx.printid And u_cust_wrkgrp_mxdscrp.mtrlid = u_SaleTaskMx.MtrlID Where u_SaleTask.scid = :scid And u_saletask.taskid = :ll_taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then taskid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致更新默认车间备注操作失败"+"~n"+commit_transaction.SQLErrText Goto ext End If Else Insert Into u_saletaskmx_wrkgrp_mxdscrp (scid, taskid, printid, wrkgrpid, mxdscrp) Select u_SaleTaskMx.scid, u_SaleTaskMx.TaskID, u_SaleTaskMx.printid, u_cust_wrkgrp_mxdscrp.wrkgrpid, u_cust_wrkgrp_mxdscrp.mxdscrp From u_SaleTask Inner JOIN u_SaleTaskMx ON u_SaleTask.scid = u_SaleTaskMx.scid And u_SaleTask.TaskID = u_SaleTaskMx.TaskID Inner JOIN u_cust_wrkgrp_mxdscrp ON u_SaleTask.CusID = u_cust_wrkgrp_mxdscrp.cusid And u_SaleTaskMx.MtrlID = u_cust_wrkgrp_mxdscrp.mtrlid Where u_SaleTask.scid = :scid And u_saletask.taskid = :ll_taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then taskid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入默认车间备注操作失败"+"~n"+commit_transaction.SQLErrText Goto ext End If End If Else //////////////////////////////////////////////// //更新 Select typeid,taskcode Into :ll_typeid,:ls_taskcode From u_saletask Where taskid = :taskid And scid = :scid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询销售订单分类属性失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If uo_option_saletask_ifuse_typebillcode = 1 Then If ll_typeid <> typeid Then Select billcode Into :ls_typebillcode From u_saletype Where typeid = :typeid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询销售订单分类属性失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If ls_typebillcode = '' Then arg_msg = '订单分类未设置对应单据抬头,请检查' 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_saletask(scid,ls_sccode + ls_typebillcode,Date(server_datetime),False,commit_transaction) If taskcode = "err" Then taskcode = '' rslt = 0 arg_msg = "无法获取销售订单分类编号"+"~n"+sqlca.SQLErrText Goto ext End If ls_taskcode = taskcode End If End If Update u_saletask 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, typeid = :typeid, rel_rep = :rel_rep, level = :Level, sendTime = :sendTime, sendUser = :sendUser, fiebrelcode = :fiebrelcode, mxrowcount = :it_mxbt, dscrp3 = :dscrp3, taskcode = :ls_taskcode, exchangeid = :exchangeid, station_address = :station_address, selecttype = :selecttype Where u_saletask.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 Where u_saletaskmx.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 //删除原有明细 Delete From u_saletaskmxmx Where u_saletaskmxmx.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 //删除原有明细 Delete From u_SaleTaskMx_dscrp Where 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 i = 1 To it_mxbt ls_mtrlcuscode = '' If Kind = 4 Then ls_mtrlcuscode = saletaskmx[i].mtrlcuscode Else Choose Case uo_option_taskplancode_auto Case 1 ls_mtrlcuscode = saletaskmx[i].mtrlcuscode Case 2 ls_mtrlcuscode = taskcode Case 3 ls_mtrlcuscode = relcode Case 4 ls_mtrlcuscode = taskcode + '.' + String(i,'000') Case 5 ls_mtrlcuscode = '' Case Else arg_msg = '错误的生产批号,管理员请先设定好订单批号模式' rslt = 0 Goto ext End Choose End If Insert Into u_saletaskmx ( scid, taskid, mtrlid, saleqty, price, plprice, mxdscrp, mxdscrp2, fprice, rebate, status, printid, woodcode, pcode, mtrlcuscode, enprice, outtypestr, dftsaleprice, requiredate, pfcode, scidprice, quoteid, quotecode, quoteprintid, pricetype, capacity, nprice, poid, taxrate, addqty, priceformula, sampleid, enacprice, net_weight, gross_weight, cubage, fjcnt, fjstr, porebate) Values (:scid, :taskid, :saletaskmx[i].mtrlid, :saletaskmx[i].saleqty, :saletaskmx[i].acprice, :saletaskmx[i].plprice, :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].quoteid, :saletaskmx[i].quotecode, :saletaskmx[i].quoteprintid, :saletaskmx[i].pricetype, :saletaskmx[i].capacity, :saletaskmx[i].nprice, :saletaskmx[i].poid, :saletaskmx[i].taxrate, :saletaskmx[i].addqty, :saletaskmx[i].priceformula, :saletaskmx[i].sampleid, :saletaskmx[i].enacprice, :saletaskmx[i].net_weight, :saletaskmx[i].gross_weight, :saletaskmx[i].cubage, :saletaskmx[i].fjcnt, :saletaskmx[i].fjstr, :saletaskmx[i].porebate) Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText Goto ext End If If Len(Trim(saletaskmx[i].dscrp_text)) > 0 Then Insert Into u_SaleTaskMx_dscrp (scid, taskid, printid, dscrp) Values (:scid, :taskid, :saletaskmx[i].printid, :saletaskmx[i].dscrp_text) Using commit_transaction; If commit_transaction.SQLCode <> 0 Then taskid = 0 //还原taskid rslt = 0 arg_msg = "因网络或其它原因导致插入明细备注操作失败"+"~n"+commit_transaction.SQLErrText Goto ext End If End If Next For i = 1 To it_mxbtmx ls_mtrlcuscode = '' If Kind = 4 Then ls_mtrlcuscode = saletaskmxmx[i].mtrlcuscode Else Choose Case uo_option_taskplancode_auto Case 1 ls_mtrlcuscode = saletaskmxmx[i].mtrlcuscode Case 2 ls_mtrlcuscode = taskcode Case 3 ls_mtrlcuscode = relcode Case 4 ls_mtrlcuscode = taskcode + '.' + String(i,'000') Case 5 ls_mtrlcuscode = '' Case Else arg_msg = '错误的生产批号,管理员请在系统选项设置先设定好订单批号模式' rslt = 0 Goto ext End Choose End If Insert Into u_saletaskmxmx ( scid, saleqty, price, plprice, mtrlid, taskid, mxdscrp, mxdscrp2, fprice, rebate, status, printid, woodcode, pcode, mtrlcuscode, enprice, outtypestr, dftsaleprice, requiredate, pfcode, scidprice, quoteid, quotecode, quoteprintid, pricetype, capacity, nprice, poid, taxrate, addqty, priceformula, enacprice, net_weight, gross_weight, cubage) Values (:scid, :saletaskmxmx[i].saleqty, :saletaskmxmx[i].price, :saletaskmxmx[i].plprice, :saletaskmxmx[i].mtrlid, :taskid, :saletaskmxmx[i].mxdscrp, :saletaskmxmx[i].mxdscrp2, :saletaskmxmx[i].fprice, :saletaskmxmx[i].rebate, :saletaskmxmx[i].status, :saletaskmxmx[i].printid, :saletaskmxmx[i].woodcode, :saletaskmxmx[i].pcode, :ls_mtrlcuscode, :saletaskmxmx[i].enprice, :saletaskmxmx[i].outtypestr, :saletaskmxmx[i].dftsaleprice, :saletaskmxmx[i].requiredate, :saletaskmxmx[i].pfcode, :saletaskmxmx[i].scidprice, :saletaskmxmx[i].quoteid, :saletaskmxmx[i].quotecode, :saletaskmxmx[i].quoteprintid, :saletaskmxmx[i].pricetype, :saletaskmxmx[i].capacity, :saletaskmxmx[i].nprice, :saletaskmxmx[i].poid, :saletaskmxmx[i].taxrate, :saletaskmxmx[i].addqty, :saletaskmxmx[i].priceformula, :saletaskmxmx[i].enacprice, :saletaskmxmx[i].net_weight, :saletaskmxmx[i].gross_weight, :saletaskmxmx[i].cubage) 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 If Kind = 2 Then 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 Delete From u_saletask_itemmx Where u_saletask_itemmx.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 k = 1 To it_mxbt_item Insert Into u_saletask_itemmx (scid, taskid, printid, itemid, amt, mxdscrp) Values (:scid, :taskid, :saletask_itemmx[k].printid, :saletask_itemmx[k].itemid, :saletask_itemmx[k].amt, :saletask_itemmx[k].mxdscrp) 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 Update u_saletaskmxmx Set u_saletaskmxmx.relpid = u_SaleTaskMx.printid From u_SaleTaskMx Inner JOIN u_saletaskmxmx ON u_SaleTaskMx.scid = u_saletaskmxmx.scid And u_SaleTaskMx.TaskID = u_saletaskmxmx.TaskID And u_SaleTaskMx.MtrlID = u_saletaskmxmx.MtrlID And u_SaleTaskMx.status = u_saletaskmxmx.status And u_SaleTaskMx.pcode = u_saletaskmxmx.pcode And u_SaleTaskMx.woodcode = u_saletaskmxmx.woodcode And u_SaleTaskMx.mtrlcuscode = u_saletaskmxmx.mtrlcuscode And u_SaleTaskMx.enprice = u_saletaskmxmx.enprice Where u_SaleTaskMx.scid = :scid And u_saletaskmx.taskid = :taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then taskid = 0 rslt = 0 arg_msg = '更新明细相关printid失败,'+commit_transaction.SQLErrText Goto ext End If it_newbegin = False it_updatebegin = False ext: If rslt = 0 Then Rollback Using commit_transaction; p_clearmx() msttakeamt = 0 ElseIf arg_ifcommit And rslt = 1 Then Commit Using commit_transaction; End If Return rslt end function public function integer trycmplsaletask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);//trycmplsaletask(arg_taskid,arg_msg,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_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF ctmint > 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.consignedqty - u_saletaskmx.stopqty FROM u_saletaskmx WHERE ( u_saletaskmx.taskid = :arg_taskid ) AND ( u_saletaskmx.scid = :arg_scid ) 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 ) And u_saletask.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致销售订单完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF END IF IF status = 5 And Not if_finish THEN UPDATE u_saletask SET status = 1, accomplishdate = :null_dt, finishemp = '' WHERE ( u_saletask.taskid = :arg_taskid ) And u_saletask.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致销售订单撤消完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF END IF 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 newbegin (long arg_scid, ref string arg_msg);//重置对象,设定业务类型与关联ID,准备建立新单 //0 fail 1 success long rslt=1,CNT=0 if arg_scid < 0 then arg_msg = '请选择分部' rslt = 0 goto ext end if p_reset() it_newbegin=TRUE it_updatebegin=FALSE scid=arg_scid ext: if rslt = 0 then p_reset() return rslt end function public function integer acceptmx_mx (long arg_scid, long arg_mtrlwareid, decimal arg_qty, ref string arg_msg);//return 0 fail 1 success // 函数增加一个明细项 Long rslt = 1,cnt = 0,ls_i Decimal ld_noallocqty,ld_allocqty ////清除空值 //IF IsNull(arg_scid) THEN arg_scid = 0 //IF IsNull(arg_mtrlwareid) THEN arg_mtrlid = 0 //IF IsNull(arg_qty) THEN arg_qty = 0 // //IF arg_mtrlwareid = 0 OR arg_qty = 0 THEN // rslt = 1 // GOTO ext //END IF // // // // //SELECT noallocqty,allocqty INTO :ld_noallocqty,:ld_allocqty // FROM u_mtrlware // Where scid = :arg_scid // and mtrlwareid = :arg_mtrlwareid; //IF sqlca.SQLCode <> 0 THEN // arg_msg = '查询库存资料失败' // rslt = 0 // GOTO ext //END IF // //IF arg_qty > ld_noallocqty - ld_allocqty THEN // rslt = 0 // arg_msg = "库存" + String(arg_mtrlcode)+" 单价错误" // GOTO ext //END IF // ////检查物料id //SELECT count(*) // INTO :cnt // FROM u_mtrldef // Where u_mtrldef.mtrlid = :arg_mtrlid ; //IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "查询操作失败,产品编号" // GOTO ext //END IF // //IF cnt = 0 THEN // rslt = 0 // arg_msg = "错误的产品编号: "+String(arg_mtrlcode) // GOTO ext //END IF // //String ls_status,ls_pcode,ls_woodcode // //IF sys_option_price_if_status = 0 THEN // ls_status = '' // ls_pcode = '' // ls_woodcode = '' //ELSE // ls_status = arg_status // ls_pcode = arg_pcode // ls_woodcode = arg_woodcode //END IF // // //SELECT top 1 price INTO :ld_dftsaleprice // FROM u_sale_price_list,u_sale_price_mx // WHERE u_sale_price_list.pricelistid = u_sale_price_mx.pricelistid // AND u_sale_price_list.dftflag = 1 // AND u_sale_price_mx.mtrlid = :arg_mtrlid // AND u_sale_price_mx.status = :ls_status // AND u_sale_price_mx.pcode = :ls_woodcode // AND u_sale_price_mx.pcode = :ls_pcode // AND u_sale_price_list.moneyid = :moneyid; // //IF sqlca.SQLCode <> 0 THEN ld_dftsaleprice = 0 // //FOR ls_i = 1 TO it_mxbt //合并重复项 // IF saletaskmx[it_mxbt].mtrlid = arg_mtrlid AND & // saletaskmx[it_mxbt].status = arg_status AND & // saletaskmx[it_mxbt].pcode = arg_pcode AND & // saletaskmx[it_mxbt].mtrlcuscode = arg_mtrlcuscode AND & // saletaskmx[it_mxbt].woodcode = arg_woodcode THEN // // saletaskmx[it_mxbt].saleqty = saletaskmx[it_mxbt].saleqty+arg_qty // rslt = 1 // GOTO ext // END IF //NEXT // ////写入内容 //it_mxbt++ //saletaskmx[it_mxbt].dftsaleprice = ld_dftsaleprice //saletaskmx[it_mxbt].mtrlid = arg_mtrlid //saletaskmx[it_mxbt].saleqty = arg_qty //saletaskmx[it_mxbt].plprice = arg_planprice //saletaskmx[it_mxbt].dscrp = arg_dscrp //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].enprice = arg_fprice //saletaskmx[it_mxbt].rebate = arg_rebate //saletaskmx[it_mxbt].fprice = arg_fprice * ld_rate //saletaskmx[it_mxbt].acprice = arg_fprice * ld_rate * arg_rebate // //saletaskmx[it_mxbt].outtype = arg_outtype //ext: IF rslt = 0 THEN p_clearmx() RETURN(rslt) end function public function integer stopmx (long arg_scid, 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 Long ll_assignid,j Decimal ld_assignqty uo_mtrlware_assign uo_ma uo_ma = Create uo_mtrlware_assign uo_ma.commit_transaction = commit_transaction datastore ds_fp_del ds_fp_del = Create datastore ds_fp_del.DataObject = 'ds_rp_cust_saletask_fp_mx_fp_del_p' ds_fp_del.SetTransObject(commit_transaction) IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF SetNull(null_dt) IF p_getinfo(arg_scid,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,bjflag INTO :li_flag,:ls_outtype,:li_bjflag FROM u_saletaskmx WHERE scid = :arg_scid AND 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.saleQty - u_saletaskmx.consignedqty INTO :ld_notconsignedqty FROM u_saletaskmx WHERE scid = :arg_scid AND 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 //取消分配 ds_fp_del.Retrieve(arg_scid,arg_taskid,arg_printid) FOR j = 1 To ds_fp_del.RowCount() ll_assignid = ds_fp_del.Object.u_mtrlware_assign_assignid[j] ld_assignqty = ds_fp_del.Object.u_mtrlware_assign_assignqty[j] - ds_fp_del.Object.u_mtrlware_assign_outqty[j] IF uo_ma.uof_assign_del(ll_assignid,ld_assignqty,arg_msg,False) = 0 THEN arg_msg = '删除库存分配失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT END IF IF arg_flag = 0 THEN UPDATE u_saletaskmx SET stopflag = 0, stopemp = '', stopdate = :null_dt, stopreason = '' WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid; ELSE UPDATE u_saletaskmx SET stopflag = 1, stopemp = :publ_operator, stopdate = getdate(), stopreason = :arg_stopreason WHERE scid = :arg_scid AND 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_scid,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 Destroy uo_ma Destroy ds_fp_del RETURN rslt end function public function integer bjmx (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, integer arg_flag, ref string arg_msg, boolean arg_commit);Int rslt = 1 Int li_bjflag DateTime null_dt string ls_outtype Decimal ld_notconsignedqty SetNull(null_dt) IF p_getinfo(arg_scid,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 outtypestr,bjflag INTO :ls_outtype,:li_bjflag FROM u_saletaskmx WHERE scid = :arg_scid AND taskid = :arg_taskid AND printid = :arg_printid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询明细物料'+arg_mtrlcode+'补件审核标记失败' rslt = 0 GOTO ext END IF IF ls_outtype <> '补件' THEN arg_msg = '明细物料'+arg_mtrlcode+'不是补件明细,不能修改单价' rslt = 0 GOTO ext END IF IF arg_flag = 0 THEN IF li_bjflag = 0 THEN arg_msg = '明细物料'+arg_mtrlcode+'还未补件审核,不能取消补件审核' rslt = 0 GOTO ext END IF ELSE IF li_bjflag = 1 THEN arg_msg = '明细物料'+arg_mtrlcode+'已补件审核,不能重复审核' rslt = 0 GOTO ext END IF END IF IF arg_flag = 0 THEN UPDATE u_saletaskmx SET bjflag = 0, bjemp = '', bjdate = :null_dt WHERE scid = :arg_scid AND taskid = :arg_taskid AND printid = :arg_printid; ELSE UPDATE u_saletaskmx SET bjflag = 1, bjemp = :publ_operator, bjdate = getdate() WHERE scid = :arg_scid AND 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 ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 AND arg_commit THEN COMMIT; END IF RETURN rslt end function public function integer bjprice (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, decimal arg_enprice, decimal arg_rebate, ref string arg_msg, boolean arg_commit);Int rslt = 1 Int li_bjflag string ls_outtype decimal ld_fprice,ld_price IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 THEN arg_msg = '订单只能在进行状态下才能操作' rslt = 0 GOTO ext END IF if arg_enprice < 0 or arg_rebate < 0 then arg_msg = '错误单价或折扣' rslt = 0 end if SELECT outtypestr,bjflag INTO :ls_outtype,:li_bjflag FROM u_saletaskmx WHERE scid = :arg_scid AND taskid = :arg_taskid AND printid = :arg_printid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询明细物料'+arg_mtrlcode+'补件审核标记失败' rslt = 0 GOTO ext END IF IF ls_outtype <> '补件' THEN arg_msg = '明细物料'+arg_mtrlcode+'不是补件明细,不能修改单价' rslt = 0 GOTO ext END IF IF li_bjflag = 1 THEN arg_msg = '明细物料'+arg_mtrlcode+'已补件审核,不能修改单价' rslt = 0 GOTO ext END IF ld_fprice = arg_enprice * mrate ld_price = arg_enprice * mrate * arg_rebate UPDATE u_saletaskmx SET enprice = :arg_enprice, rebate = :arg_rebate, fprice = :ld_fprice, price = :ld_price WHERE scid = :arg_scid AND taskid = :arg_taskid AND printid = :arg_printid; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新明细'+arg_mtrlcode+'单价失败,'+sqlca.SQLErrText 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 propermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);//salepermit Int rslt = 1,cnt = 0 IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_saletask_secaudit = -1000 THEN arg_msg = '选项:[035]销售订单使用二级审核,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_saletask_fore_secaudit = -1000 THEN arg_msg = '选项:[088]销售预测单二级审核,读取初始默认值失败,操作取消!' 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_oa_saletask_fore = -1000 THEN arg_msg = '选项:[227]销售预测单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_scid,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_secaudit = 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 ELSE IF uo_option_if_oa_saletask_fore = 1 AND uo_option_saletask_fore_secaudit = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_taskid,1324,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_scid,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 SET p_Auditingdate = getdate(), p_Auditingrep = :arg_emp, status = 1 WHERE taskid = :arg_taskid AND scid = :arg_scid 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 cancelpropermit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1,cnt = 0 DateTime nulldate Decimal ls_consignedQty IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF SetNull(nulldate) IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_scid,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 scid = :arg_scid AND taskid = :arg_taskid AND (ordertype = 0 OR ordertype = 1) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单排产数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关生产计划,不可以撤消审核" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_saleoutmx WHERE scid = :arg_scid And 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 cnt = 0 SELECT count(*) INTO :cnt FROM u_outware,u_outwaremx WHERE ( u_outware.billtype = 1 ) AND ( u_outware.scid = u_outwaremx.scid ) AND ( u_outware.outwareid = u_outwaremx.outwareid ) AND ( u_outwaremx.relid = :arg_taskid ) AND ( u_outware.scid = :arg_scid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单发货数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关出仓单据,不可以撤消审核" GOTO ext END IF SELECT sum(u_SaleTaskMx.consignedQty) INTO :ls_consignedQty FROM u_SaleTaskMx WHERE ( u_SaleTaskMx.TaskID = :arg_taskid ) AND ( u_SaleTaskMx.scid = :arg_scid ) AND ( u_SaleTaskMx.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 IF Kind <> 0 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_taskdamt_mx WHERE scid = :arg_scid And relid = :arg_taskid; IF SQLCA.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "查询订单是否已开订单收款单失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "订单已开订单收款单,不能撤审" GOTO ext END IF END IF //来料加工订单,检查是否已开收料单 IF Kind = 2 THEN 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 = :arg_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 ) AND ( u_SaleTaskMx_in.scid = :arg_scid ) 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 END IF //默认订单调度 Long i FOR i = 1 To it_mxbt IF p_cprqplan(arg_scid,arg_taskid,saletaskmx[i].printid,0,saletaskmx[i].saleqty,ARG_MSG,False) = 0 THEN rslt = 0 GOTO ext END IF NEXT UPDATE u_SaleTask SET Status = 4, p_Auditingrep = '', p_Auditingdate = :nulldate WHERE TaskID = :arg_taskid AND scid = :arg_scid AND status = 1 Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致销售订单撤消审核操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext 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 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_scid,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 pQty + wqty, AssignQty INTO :ld_SaleQty, :ld_AssignQty FROM u_SaleTaskMx WHERE scid = :arg_scid AND 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 SET AssignQty = AssignQty + :arg_qty WHERE scid = :arg_scid AND 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 UPDATE u_SaleTaskMx SET u_SaleTaskMx.perfinishdate = uv_order_perfinishdate.perfinishdate FROM u_SaleTaskMx,uv_order_perfinishdate WHERE u_SaleTaskMx.scid = uv_order_perfinishdate.scid AND u_SaleTaskMx.taskid = uv_order_perfinishdate.taskid AND u_SaleTaskMx.printid = uv_order_perfinishdate.taskmxid AND u_SaleTaskMx.scid = :arg_scid AND u_SaleTaskMx.taskid = :arg_taskid AND u_SaleTaskMx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode = -1 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 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 ddpermit (long arg_scid, 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 DateTime ldt_null SetNull(ldt_null) Decimal ld_bqty String ls_pfcode Int li_ifautodd,li_ifrebuypack,li_ifpackpro Long ll_scid Int li_isuse Long ll_cusid,ll_pid String ls_mtrlcode,ls_status,ls_woodcode,ls_pcode,ls_unit,ls_mtrlcuscode DateTime ldt_rqdate String ls_mxdscrp Decimal ld_bqty_pack Long ll_cnt ll_cnt = 0 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 mtrlid, ddflag, stopflag, bqty, pfcode, status, woodcode, pcode, mtrlcuscode, requiredate, mxdscrp INTO :ll_mtrlid, :li_ddflag, :li_stopflag, :ld_bqty, :ls_pfcode, :ls_status, :ls_woodcode, :ls_pcode, :ls_mtrlcuscode, :ldt_rqdate, :ls_mxdscrp FROM u_saletaskmx WHERE u_saletaskmx.scid = :arg_scid AND u_saletaskmx.taskid = :arg_taskid And u_saletaskmx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',查询订单产品明细失败 '+SQLCA.SQLErrText GOTO ext END IF IF li_stopflag = 1 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',该订单明细已经终止,不能再调度审核' GOTO ext END IF SELECT ifautodd, scid, ifrebuypack , ifpackpro, mtrlcode, isuse INTO :li_ifautodd, :ll_scid, :li_ifrebuypack, :li_ifpackpro, :ls_mtrlcode, :li_isuse FROM u_mtrldef Where mtrlid = :ll_mtrlid ; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '明细行:'+String(arg_printid)+',物料:'+ls_mtrlcode+'查询订单明细物料是否自动调度失败,'+SQLCA.SQLErrText rslt = 0 GOTO ext END IF IF ld_bqty > 0 And li_ifrebuypack = 1 And li_ifpackpro <> 0 And arg_flag = 0 THEN IF uof_cmp_pack(arg_scid,arg_taskid,arg_printid,ll_mtrlid,ls_status,ls_woodcode,ls_pcode,ls_mtrlcuscode,ld_bqty,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF IF li_ifautodd = 0 THEN IF arg_flag = 0 THEN IF li_isuse = 0 THEN arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',不是有效物料,请检查' rslt = 0 GOTO ext END IF IF li_ddflag = 1 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',该订单明细已经调度审核' GOTO ext END IF ELSE IF li_ddflag = 0 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',该订单明细未调度审核' 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 WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',查询订单明细安排采购数量失败 ' + SQLCA.SQLErrText GOTO ext END IF IF ld_bqty > 0 THEN 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 IF Not (li_ifrebuypack = 1 And li_ifpackpro = 1 ) THEN SELECT u_saletaskmx.mtrlid, u_saletaskmx.status, u_saletaskmx.woodcode, u_saletaskmx.pcode, u_mtrldef.mtrlcode, u_mtrldef.unit, u_saletask.cusid, u_saletaskmx.requiredate, u_saletaskmx.mtrlcuscode, u_saletaskmx.mxdscrp INTO :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ls_mtrlcode, :ls_unit, :ll_cusid, :ldt_rqdate, :ls_mtrlcuscode, :ls_mxdscrp FROM u_saletaskmx, u_mtrldef, u_saletask WHERE u_saletaskmx.mtrlid = u_mtrldef.mtrlid AND u_saletask.taskid = u_saletaskmx.taskid AND u_saletask.scid = u_saletaskmx.scid AND u_saletaskmx.scid = :arg_scid AND u_saletaskmx.taskid = :arg_taskid And u_saletaskmx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',查询订单明细内容失败 ' + SQLCA.SQLErrText GOTO ext END IF 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 = ls_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 arg_s_rqbuy.arg_s_rqbuymx[1].rqdate = ldt_rqdate arg_s_rqbuy.arg_s_rqbuymx[1].plancode = ls_mtrlcuscode ELSE DECLARE cur_pack CURSOR FOR SELECT u_saletaskmx_pack.pid, u_saletaskmx_pack.mtrlid, u_saletaskmx_pack.bqty, u_saletaskmx_pack.status, u_saletaskmx_pack.woodcode, u_saletaskmx_pack.pcode, u_saletaskmx_pack.mtrlcuscode, u_mtrldef.mtrlcode, u_mtrldef.unit, u_SaleTask.CusID FROM u_saletaskmx_pack INNER JOIN u_mtrldef ON u_saletaskmx_pack.mtrlid = u_mtrldef.mtrlid INNER JOIN u_SaleTask ON u_saletaskmx_pack.scid = u_SaleTask.scid AND u_saletaskmx_pack.taskid = u_SaleTask.TaskID WHERE u_saletaskmx_pack.scid = :arg_scid AND u_saletaskmx_pack.taskid = :arg_taskid AND u_saletaskmx_pack.printid = :arg_printid ORDER BY u_saletaskmx_pack.pid Using commit_transaction; OPEN cur_pack; FETCH cur_pack Into :ll_pid,:ll_mtrlid,:ld_bqty_pack,:ls_status,:ls_woodcode,:ls_pcode,:ls_mtrlcuscode,:ls_mtrlcode,:ls_unit,:ll_cusid; DO WHILE SQLCA.SQLCode = 0 ll_cnt++ arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].mtrlcode = ls_mtrlcode arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].uqty = ld_bqty arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].unit = ls_unit arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].status = ls_status arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].woodcode = ls_woodcode arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].pcode = ls_pcode arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].mxdscrp = ls_mxdscrp arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].mtrlid = ll_mtrlid arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].orderid = arg_taskid arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].wrkgrpid = 0 arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].ifrel = 1 arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].printid = ll_cnt arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].rate = 1 arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].dftsptid = ll_cusid arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].relprintid = arg_printid arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].rqdate = ldt_rqdate arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].plancode = ls_mtrlcuscode arg_s_rqbuy.arg_s_rqbuymx[ll_cnt].relpid = ll_pid FETCH cur_pack Into :ll_pid,:ll_mtrlid,:ld_bqty_pack,:ls_status,:ls_woodcode,:ls_pcode,:ls_mtrlcuscode,:ls_mtrlcode,:ls_unit,:ll_cusid; LOOP CLOSE cur_pack; END IF IF uo_rqbuy.Save(arg_s_rqbuy,publ_operator,arg_msg,False) = 0 THEN arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+','+arg_msg rslt = 0 GOTO ext END IF IF uo_rqbuy.audit(ll_scid,uo_rqbuy.uo_requestbuyid,publ_operator,arg_msg,False) = 0 THEN arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+','+arg_msg rslt = 0 GOTO ext END IF IF uo_rqbuy.audit_2(ll_scid,uo_rqbuy.uo_requestbuyid,publ_operator,arg_msg,False) = 0 THEN arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+','+arg_msg rslt = 0 GOTO ext END IF END IF END IF UPDATE u_saletaskmx SET ddflag = 1, dddate = getdate(), ddemp = :publ_operator WHERE ddflag = 0 AND scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',更新订单明细调度审核标记失败 ' + 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 distinct 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 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+','+arg_msg rslt = 0 GOTO ext END IF IF uo_rqbuy.caudit(ll_scid,ll_requestbuyid[ll_i],0,arg_msg,False) = 0 THEN arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+','+arg_msg rslt = 0 GOTO ext END IF IF uo_rqbuy.del(ll_scid,ll_requestbuyid[ll_i],0,arg_msg,False) = 0 THEN arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+','+arg_msg 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 = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',查询订单相关成品申购单失败' GOTO ext END IF IF cnt <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',订单已经存在相关成品申购单.不可以撤销审核' GOTO ext END IF END IF //检查生产计划 String ls_ordercode,ls_ordercode_str cnt = 0 DECLARE cur_order CURSOR FOR SELECT distinct u_Order_ml.ordercode FROM u_order_ml_mx INNER JOIN u_Order_ml ON u_order_ml_mx.scid = u_Order_ml.scid AND u_order_ml_mx.orderid = u_Order_ml.OrderID WHERE u_order_ml_mx.taskid = :arg_taskid AND u_order_ml_mx.taskmxid = :arg_printid AND u_order_ml_mx.scid = :arg_scid And (u_Order_ml.ordertype = 0 Or u_Order_ml.ordertype = 1) Using commit_transaction; OPEN cur_order; FETCH cur_order Into :ls_ordercode; DO WHILE commit_transaction.SQLCode = 0 cnt++ IF ls_ordercode_str = '' THEN ls_ordercode_str = ls_ordercode ELSE ls_ordercode_str = ls_ordercode_str + ',' + ls_ordercode END IF FETCH cur_order Into :ls_ordercode; LOOP CLOSE cur_order; IF cnt <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',订单已经存在相关生产计划:'+ls_ordercode_str+',不可以撤销审核' GOTO ext END IF DELETE FROM u_saletaskmx_pack WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',删除包件待申购列表失败 ' + SQLCA.SQLErrText GOTO ext END IF UPDATE u_saletaskmx SET ddflag = 0, dddate = :ldt_null, ddemp = '' WHERE ddflag = 1 AND scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '明细行:'+String(arg_printid)+',物料'+ls_mtrlcode+',更新订单明细调度审核标记失败 ' + 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_scid, 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,li_ifbj Long ll_mtrlid,cnt,ll_typeid DateTime ldt_null SetNull(ldt_null) IF uo_option_dd_allto_pqty = -1000 THEN arg_msg = '选项:[335]销售订单及销售预测单自动调度全部调度到自制排产,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF arg_flag = 1 THEN SELECT typeid INTO :ll_typeid FROM u_saletask WHERE scid = :arg_scid AND taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = '明细行:'+String(arg_printid)+',查询订单分类信息失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_typeid > 0 THEN SELECT ifbj INTO :li_ifbj FROM u_saletype Where typeid = :ll_typeid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = '明细行:'+String(arg_printid)+',查询订单分类是否补件信息失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF END IF END IF SELECT mtrlid,ddflag,stopflag INTO :ll_mtrlid,:li_ddflag,:li_stopflag FROM u_saletaskmx WHERE u_saletaskmx.scid = :arg_scid AND u_saletaskmx.taskid = :arg_taskid And u_saletaskmx.printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = '明细行:'+String(arg_printid)+',查询订单信息失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_stopflag = 1 THEN rslt = 0 ARG_MSG = '明细行:'+String(arg_printid)+',查询订单明细已经终止,请检查' 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 = '明细行:'+String(arg_printid)+',查询订单明细物料是否自动调度失败,'+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 = '明细行:'+String(arg_printid)+',查询订单产品['+ls_mtrlcode+']来源失败' GOTO ext END IF IF li_ifbj = 1 or uo_option_dd_allto_pqty = 1 THEN UPDATE u_saletaskmx SET pqty = :arg_qty WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '明细行:'+String(arg_printid)+',更新订单产品['+ls_mtrlcode+']排产数量失败' GOTO ext END IF ELSE IF li_mtrlorigin = 0 THEN IF li_iflljg = 0 THEN UPDATE u_saletaskmx SET pqty = :arg_qty WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '明细行:'+String(arg_printid)+',更新订单产品['+ls_mtrlcode+']排产数量失败' GOTO ext END IF ELSE UPDATE u_saletaskmx SET lqty = :arg_qty WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '明细行:'+String(arg_printid)+',更新订单产品['+ls_mtrlcode+']客户来料数量失败' GOTO ext END IF END IF ELSEIF li_mtrlorigin = 2 THEN UPDATE u_saletaskmx SET bqty = :arg_qty WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '明细行:'+String(arg_printid)+',更新订单产品['+ls_mtrlcode+']采购数量失败' GOTO ext END IF ELSEIF li_mtrlorigin = 3 THEN UPDATE u_saletaskmx SET wqty = :arg_qty WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '明细行:'+String(arg_printid)+',更新订单产品['+ls_mtrlcode+']外协数量失败' GOTO ext END IF ELSEIF li_mtrlorigin = 6 THEN UPDATE u_saletaskmx SET lqty = :arg_qty WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '明细行:'+String(arg_printid)+',更新订单产品['+ls_mtrlcode+']客户来料数量失败' GOTO ext END IF END IF END IF ELSE IF li_ifautodd = 0 THEN IF li_ddflag = 1 THEN rslt = 0 ARG_MSG = '明细行:'+String(arg_printid)+',该订单明细已经调度审核' GOTO ext END IF END IF UPDATE u_saletaskmx SET pqty = 0,bqty = 0,wqty = 0,lqty = 0 WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = '明细行:'+String(arg_printid)+',更新订单产品['+ls_mtrlcode+']调度数量失败' GOTO ext END IF END IF IF li_ifautodd = 1 THEN IF arg_flag = 1 THEN IF ddpermit(arg_scid,arg_taskid,arg_printid,0,ARG_MSG,False) = 0 THEN rslt = 0 GOTO ext END IF ELSE IF ddpermit(arg_scid,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 addmxcmpl (long arg_scid, long arg_taskid, long arg_printid, decimal arg_addqty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 datetime null_dt setnull(null_dt) IF uo_option_if_saleout = -1000 THEN rslt = 0 arg_msg = '选项:[200]使用发货通知单,读取初始默认值失败,操作取消!' GOTO ext END IF 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_scid,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,ld_saleoutqty String ls_mtrlcode Int li_stopflag Decimal ld_upsalerate,ld_upsaleqty SELECT u_SaleTaskMx.SaleQty, u_SaleTaskMx.consignedQty, u_mtrldef.mtrlcode, u_SaleTaskMx.stopflag, u_mtrldef.upsalerate, u_mtrldef.upsaleqty INTO :ls_SaleQty, :ls_consignedQty, :ls_mtrlcode, :li_stopflag, :ld_upsalerate, :ld_upsaleqty FROM u_SaleTaskMx ,u_mtrldef WHERE ( u_SaleTaskMx.TaskID = :arg_taskid ) AND ( u_SaleTaskMx.printid = :arg_printid ) AND ( u_saletaskmx.scid = :arg_scid) AND ( u_SaleTaskMx.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 li_stopflag = 1 THEN rslt = 0 arg_msg = "产品编码["+ls_mtrlcode+"]对应的销售订单明细已终止,不能执行更新订单完成数操作" GOTO ext END IF IF arg_addqty < 0 THEN IF ls_consignedQty + arg_addqty < 0 THEN rslt = 0 arg_msg = "产品:"+ls_mtrlcode+",的订单已完成数量只有"+String(ls_consignedQty,'#,##0.0#')+",不能退货"+String(arg_addqty,'#,##0.0#') GOTO ext END IF END IF IF ls_SaleQty * (1+ ld_upsalerate) + ld_upsaleqty < ls_consignedQty + arg_addqty THEN rslt = 0 arg_msg = "产品["+ls_mtrlcode+"]的未完成数量只有"+String(ls_SaleQty - ls_consignedQty,'#,##0.0#')+",可发货上限为:"+String(ls_SaleQty * (1+ ld_upsalerate) + ld_upsaleqty - ls_consignedQty,'#,##0.0#')+",不能发货"+String(arg_addqty,'#,##0.0#') GOTO ext END IF IF uo_option_if_saleout = 1 And arg_addqty < 0 THEN ld_saleoutqty = arg_addqty ELSE ld_saleoutqty = 0 END IF UPDATE u_SaleTaskMx SET consignedQty = consignedQty +:arg_addqty, saleoutqty = saleoutqty + :ld_saleoutqty, accomplishdate = case when :ls_consignedQty + :arg_addqty >= :ls_SaleQty then getdate() else :null_dt end WHERE ( u_SaleTaskMx.TaskID = :arg_taskid ) AND ( u_SaleTaskMx.printid = :arg_printid ) AND ( u_saletaskmx.scid = :arg_scid) AND ( u_SaleTaskMx.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 canceloapermit (long arg_scid, 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_saletask_fore_secaudit = -1000 THEN arg_msg = '选项:[088]销售预测单二级审核,读取初始默认值失败,操作取消!' 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_oa_saletask_fore = -1000 THEN arg_msg = '选项:[227]销售预测单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_scid,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 Kind <> 0 THEN IF Not (uo_option_saletask_secaudit = 1 AND uo_option_if_oa_saletask = 1) THEN rslt = 0 ARG_MSG = '系统设置没有使用OA审批流程,请联系管理员' GOTO ext END IF ELSE IF Not (uo_option_saletask_fore_secaudit = 1 AND uo_option_if_oa_saletask_fore = 1) THEN rslt = 0 ARG_MSG = '系统设置没有使用OA审批流程,请联系管理员' GOTO ext END IF END IF IF Status <> 4 THEN rslt = 0 ARG_MSG = "订单只有在已待生产审核状态才可以执行撤消审核，请核对" GOTO ext END IF SELECT count(*) INTO :cnt FROM u_order_ml WHERE scid = :arg_scid AND taskid = :arg_taskid and (ordertype = 0 or ordertype = 1) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单排产数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关生产计划,不可以撤消审核" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_outware,u_outwaremx WHERE ( u_outware.billtype = 1 ) AND ( u_outware.scid = u_outwaremx.scid ) AND ( u_outware.outwareid = u_outwaremx.outwareid ) AND ( u_outwaremx.relid = :arg_taskid ) AND ( u_outware.scid = :arg_scid) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致查询销售订单发货数量操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关出仓单据,不可以撤消审核" GOTO ext END IF SELECT sum(u_SaleTaskMx.consignedQty) INTO :ls_consignedQty FROM u_SaleTaskMx WHERE ( u_SaleTaskMx.TaskID = :arg_taskid ) AND ( u_SaleTaskMx.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 SET Status = 0, permit_emp = '', permit_date = :nulldate WHERE TaskID = :arg_taskid AND scid = :arg_scid 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_scid,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 addmxcmpl_in (long arg_scid, 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_scid,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 ) and ( u_SaleTaskMx_in.scid = :arg_scid) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或错误产品唯一码导致销售订单收料完成数量操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit and rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() 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 updateinwareqty (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_inwareQty IF p_getinfo(arg_scid,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 WHERE scid = :arg_scid AND 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 SET inwareQty = inwareQty + :arg_qty WHERE scid = :arg_scid AND 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 trycmptask_fore (long arg_scid, 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_scid,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 And status <> 3 THEN rslt = 0 IF status <> 1 THEN arg_msg = "销售预测单只有在进行状态下才可以执行设完成状态" ELSEIF status <> 5 THEN arg_msg = "销售预测单只有在完成状态下才可以执行撤消完成状态" ELSE arg_msg = "销售预测单不是在进行,已完成或已终止状态,不能操作" END IF GOTO ext END IF Decimal ls_zerook,ls_stopok Boolean if_finish,if_stop if_finish = True if_stop = True DECLARE zero_cur CURSOR FOR SELECT u_saletaskmx.saleqty - u_saletaskmx.inwareqty - u_saletaskmx.stopqty, u_saletaskmx.saleqty - u_saletaskmx.stopqty FROM u_saletaskmx WHERE ( u_saletaskmx.taskid = :arg_taskid ) AND ( u_saletaskmx.scid = :arg_scid ) Using commit_transaction ; OPEN zero_cur; FETCH zero_cur Into :ls_zerook,:ls_stopok; DO WHILE commit_transaction.SQLCode = 0 IF if_finish THEN IF ls_zerook > 0 THEN if_finish = False END IF IF if_stop THEN IF ls_zerook > 0 THEN if_stop = False END IF FETCH zero_cur Into :ls_zerook,:ls_stopok; LOOP CLOSE zero_cur; IF if_stop THEN UPDATE u_saletask SET status = 3, accomplishdate = getdate(), stopemp = :publ_operator WHERE ( u_saletask.taskid = :arg_taskid ) And u_saletask.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致销售预测单终止状态设置操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF ELSE IF if_finish THEN UPDATE u_saletask SET status = 5, accomplishdate = getdate(), finishemp = :publ_operator WHERE ( u_saletask.taskid = :arg_taskid ) And u_saletask.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致销售预测单完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF ELSEIF Not if_finish THEN UPDATE u_saletask SET status = 1, accomplishdate = :null_dt, finishemp = '' WHERE ( u_saletask.taskid = :arg_taskid ) And u_saletask.scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其他原因导致销售预测单撤消完成状态设置操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF END IF 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 uof_getpriceorder (long arg_cusid, long arg_mtrlid, ref string arg_pocode, ref string arg_typestr, ref string arg_msg);Int rslt = 1 DateTime server_time Long ll_mtrltypeid_arr[],ll_cusareaid_arr[] String ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode Long ll_mtrltypeid,ll_cusareaid Long ll_parentid Long ll_cnt = 0,ll_cnt2 = 0 Long ll_row String ls_pocode,ls_typestr SELECT mtrlsectype,zxmtrlmode,usermtrlmode INTO :ls_mtrlsectype,:ls_zxmtrlmode,:ls_usermtrlmode FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络或其他原因查询产品资料失败'+sqlca.SQLErrText GOTO ext END IF SELECT Top 1 getdate() INTO :server_time FROM u_user; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络或其他原因取服务器时间失败'+sqlca.SQLErrText GOTO ext END IF server_time = DateTime(Date(String(server_time,'yyyy-mm-dd')),Time(0)) // SELECT mtrltypeid INTO :ll_mtrltypeid FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询产品类型失败'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ll_cnt++ ll_mtrltypeid_arr[ll_cnt] = ll_mtrltypeid SELECT parentid INTO :ll_parentid FROM u_mtrltype WHERE mtrltypeid = :ll_mtrltypeid AND parentid > 0 ; DO WHILE sqlca.SQLCode = 0 ll_cnt++ ll_mtrltypeid_arr[ll_cnt] = ll_parentid ll_mtrltypeid = ll_parentid SELECT parentid INTO :ll_parentid FROM u_mtrltype WHERE mtrltypeid = :ll_mtrltypeid AND parentid > 0 ; LOOP // // SELECT cusareaid INTO :ll_cusareaid FROM u_cust Where cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询客户区域失败'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ll_cnt2++ ll_cusareaid_arr[ll_cnt2] = ll_cusareaid SELECT parentid INTO :ll_parentid FROM u_Cusarea WHERE CusareaID = :ll_cusareaid AND parentid > 0 ; DO WHILE sqlca.SQLCode = 0 ll_cnt2++ ll_cusareaid_arr[ll_cnt2] = ll_parentid ll_cusareaid = ll_parentid SELECT parentid INTO :ll_parentid FROM u_Cusarea WHERE CusareaID = :ll_cusareaid AND parentid > 0 ; LOOP datastore ds_price ds_price = CREATE datastore ds_price.DataObject = 'ds_price_order_index' ds_price.SetTransObject(sqlca) ds_price.Retrieve(arg_mtrlid,ll_mtrltypeid_arr[],arg_cusid,ll_cusareaid_arr[],server_time,ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode,0) ll_row = ds_price.RowCount() IF ll_row = 0 THEN ls_pocode = '' ls_typestr = '' ELSE ls_pocode = ds_price.Object.pocode[ll_row] ls_typestr = ds_price.Object.typestr[ll_row] END IF ext: IF rslt = 0 THEN arg_pocode = '' arg_typestr = '' ELSE arg_pocode = ls_pocode arg_typestr = ls_typestr END IF RETURN rslt end function public function integer uof_add_plan (s_saletask_plan arg_s_plan, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt,ll_planid IF IsNull(arg_s_plan.planid) THEN arg_s_plan.planid = 0 IF IsNull(arg_s_plan.scid) THEN arg_s_plan.scid = 0 IF IsNull(arg_s_plan.taskid) THEN arg_s_plan.taskid = 0 IF IsNull(arg_s_plan.planemp) THEN arg_s_plan.planemp = '' IF IsNull(arg_s_plan.plandscrp) THEN arg_s_plan.plandscrp = '' IF arg_s_plan.taskid = 0 THEN arg_msg = '不合理的销售订单唯一码' rslt = 0 GOTO ext END IF IF arg_s_plan.planemp = '' THEN arg_msg = '请填写经手人' rslt = 0 GOTO ext END IF IF arg_s_plan.plandscrp = '' THEN arg_msg = '请填写工作计划内容' rslt = 0 GOTO ext END IF SELECT count(*) INTO :cnt FROM u_saletask WHERE scid = :arg_s_plan.scid AND taskid = :arg_s_plan.taskid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询销售订单信息失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '销售订单不存在,请检查' rslt = 0 GOTO ext END IF IF arg_s_plan.planid = 0 THEN ll_planid = f_sys_scidentity(0,"u_saletask_plan","planid",arg_msg,TRUE,id_sqlca) IF ll_planid <= 0 THEN rslt = 0 GOTO ext END IF INSERT INTO u_saletask_plan (planid, scid, taskid, planemp, plandate, plandscrp, opdate, opemp) VALUES (:ll_planid, :arg_s_plan.scid, :arg_s_plan.taskid, :arg_s_plan.planemp, :arg_s_plan.plandate, :arg_s_plan.plandscrp, getdate(), :arg_opemp) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '建立销售订单工作计划失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE UPDATE u_saletask_plan SET planemp = :arg_s_plan.planemp, plandate = :arg_s_plan.plandate, plandscrp = :arg_s_plan.plandscrp, moddate = getdate(), modemp = :arg_opemp Where planid = :arg_s_plan.planid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新销售订单工作计划失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; END IF RETURN rslt end function public function integer uof_del_plan (long arg_planid, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 String ls_opemp Int li_flag SELECT opemp,flag INTO :ls_opemp,:li_flag FROM u_saletask_plan Where planid = :arg_planid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询客户工作计划失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF NOT sys_power_issuper AND arg_opemp <> ls_opemp THEN arg_msg = '不是资料建立人或系统管理员,不能删除' rslt = 0 GOTO ext END IF IF li_flag = 1 THEN arg_msg = '工作计划已完成,不能删除' rslt = 0 GOTO ext END IF DELETE FROM u_saletask_plan Where planid = :arg_planid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '删除销售订单工作计划失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; END IF RETURN rslt end function public function integer uof_finish_plan (long arg_planid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_flag IF IsNull(arg_planid) THEN arg_planid = 0 IF arg_planid <= 0 THEN rslt = 0 arg_msg = '错误的工作计划唯一码' GOTO ext END IF SELECT flag INTO :li_flag FROM u_saletask_plan Where planid = :arg_planid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询工作计划信息失败,'+commit_transaction.SQLErrText GOTO ext END IF IF li_flag = 1 THEN rslt = 0 arg_msg = '工作计划已完成,不能重复完成,请检查' GOTO ext END IF UPDATE u_saletask_plan SET flag = 1 Where planid = :arg_planid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新工作计划完成状态失败,'+commit_transaction.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; END IF RETURN rslt end function public function integer add_dscrp2 (long arg_scid, long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit);//add_dscrp(string arg_newdescppart) //0 fail 1 SUCCESS Int rslt = 1 arg_newdescppart = Trim(arg_newdescppart) IF 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_scid,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 status = 1 THEN rslt = 0 arG_MSG = "只有在生产审核前才可以使用" GOTO ext END IF UPDATE u_saletask SET dscrp2 = dscrp2+' '+:arg_newdescppart Where u_saletask.taskid = :arg_taskid AND scid = :arg_scid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致添加销售订单备注操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF dscrp2 = dscrp2+' '+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 addmxsaleout (long arg_scid, 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_scid,arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 1 THEN rslt = 0 ARG_MSG = "销售订单只有在进行状态下才可以执行发货通知或取消发货通知" GOTO ext END IF Decimal ls_SaleQty,ld_saleoutqty String ls_mtrlcode decimal ld_upsalerate,ld_upsaleqty SELECT u_SaleTaskMx.SaleQty, u_SaleTaskMx.saleoutqty, u_mtrldef.mtrlcode, u_mtrldef.upsalerate, u_mtrldef.upsaleqty INTO :ls_SaleQty, :ld_saleoutqty, :ls_mtrlcode, :ld_upsalerate, :ld_upsaleqty FROM u_SaleTaskMx ,u_mtrldef WHERE ( u_SaleTaskMx.scid = :arg_scid ) AND ( u_SaleTaskMx.TaskID = :arg_taskid ) AND ( u_SaleTaskMx.printid = :arg_printid ) AND ( u_SaleTaskMx.stopflag = 0 ) AND ( u_SaleTaskMx.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 * (1 + ld_upsalerate) + ld_upsaleqty < ld_saleoutqty + arg_addqty THEN rslt = 0 ARG_MSG = "产品["+ls_mtrlcode+"]的未通知发货数量只有"+String(ls_SaleQty - ld_saleoutqty,'#,##0.0#')+",上限:"+string(ls_SaleQty * (1 + ld_upsalerate) + ld_upsaleqty - ld_saleoutqty,'#,##0.0#')+",不能下单"+String(arg_addqty,'#,##0.0#') GOTO ext END IF UPDATE u_SaleTaskMx SET saleoutqty = saleoutqty +:arg_addqty WHERE ( u_SaleTaskMx.TaskID = :arg_taskid ) AND ( u_SaleTaskMx.printid = :arg_printid ) AND ( u_saletaskmx.scid = :arg_scid) AND ( u_SaleTaskMx.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 stopsaletask_cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 datetime ld_nulldt setnull(ld_nulldt) IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 ARG_MSG = '错误销售订单唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF Status <> 3 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 UPDATE u_SaleTask SET Status = 1, accomplishdate = :ld_nulldt, stopemp = '', stopreason = '' WHERE TaskID = :arg_taskid AND scid = :arg_scid AND Status = 3 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 = "正在终止销售订单,请稍后查询" 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 stopqty (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlcode, decimal arg_stopqty, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Int li_flag DateTime null_dt DateTime server_datetime String ls_stopemp Decimal ld_saleqty,ld_saleoutqty,ld_consignedQty,ld_noauditqty Decimal ld_enprice,ld_rebate,ld_stopamt Decimal ld_stopqty_ori,ld_stopamt_ori Long ll_mtrlid Long ll_assignid,j Decimal ld_assignqty,ld_qty_cancel,ld_qty String ls_status,ls_woodcode,ls_pcode Int li_outtype,li_ifpackpro s_mtrlcfg_expr s_pz[] Long it_mxt,cnt String ls_pf_status[],ls_pf_woodcode[],ls_pf_pcode[] Int li_ifover[],li_dipztype[] Decimal ld_Sonscale[],ld_Sonscale_fm[] Long ll_SonMtrlid[] Long ll_l,ll_j Decimal ld_stopqty_this = 0 Long ll_pid uo_mtrlware_assign uo_ma uo_ma = Create uo_mtrlware_assign uo_ma.commit_transaction = commit_transaction datastore ds_fp_del ds_fp_del = Create datastore ds_fp_del.DataObject = 'ds_rp_cust_saletask_fp_mx_fp_del_p' ds_fp_del.SetTransObject(commit_transaction) datastore ds_fp_del_pack ds_fp_del_pack = Create datastore ds_fp_del_pack.DataObject = 'ds_rp_cust_saletask_fp_mx_fp_del_pack' ds_fp_del_pack.SetTransObject(commit_transaction) If uo_option_m_msttake = -1000 Then arg_msg = '选项:[045]系统使用多币种应收帐,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If uo_option_saletask_stopqty_type = -1000 Then arg_msg = '选项:[404]销售订单终止数量录入方式,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If f_aps_mrp_cklock(arg_scid,arg_msg) = 0 Then rslt = 0 Goto ext End If Select Top 1 getdate() Into :server_datetime From u_user Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "查询操作失败,日期 " Goto ext End If Select u_SaleTaskMx.SaleQty, u_SaleTaskMx.saleoutqty, u_SaleTaskMx.consignedQty, isnull(uv_outware_sale_noaudit_qty.qty,0), u_SaleTaskMx.enprice, u_SaleTaskMx.rebate, u_SaleTaskMx.stopqty, u_mtrldef.outtype, u_mtrldef.ifpackpro, u_SaleTaskMx.mtrlid, u_SaleTaskMx.status, u_SaleTaskMx.woodcode, u_SaleTaskMx.pcode Into :ld_saleqty, :ld_saleoutqty, :ld_consignedQty, :ld_noauditqty, :ld_enprice, :ld_rebate, :ld_stopqty_ori, :li_outtype, :li_ifpackpro, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode From u_SaleTaskMx Inner JOIN u_mtrldef ON u_SaleTaskMx.MtrlID = u_mtrldef.mtrlid LEFT Outer JOIN uv_outware_sale_noaudit_qty ON u_SaleTaskMx.scid = uv_outware_sale_noaudit_qty.scid And u_SaleTaskMx.TaskID = uv_outware_sale_noaudit_qty.relid And u_SaleTaskMx.printid = uv_outware_sale_noaudit_qty.relprintid Where u_SaleTaskMx.scid = :arg_scid And u_SaleTaskMx.TaskID = :arg_taskid And u_SaleTaskMx.printid = :arg_printid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '查询物料'+arg_mtrlcode+'可终止数失败,'+commit_transaction.SQLErrText Goto ext End If If IsNull(arg_stopqty) Then arg_stopqty = 0 //如果 arg_stopqty 代表的是本次终止数量, 需要把原终止数加上,得出订单明细总终止数 //计算本次终止数,保存到终止数量记录表中 If uo_option_saletask_stopqty_type = 1 Then ld_stopqty_this = arg_stopqty arg_stopqty = arg_stopqty + ld_stopqty_ori Else //如果arg_stopqty 代表总终止数, 本次终止数 = 总终止数 - 原终止数 ld_stopqty_this = arg_stopqty - ld_stopqty_ori End If If arg_stopqty < 0 Then arg_msg = '订单总终止数不能少于0,请检查' rslt = 0 Goto ext End If If arg_stopqty = 0 Then SetNull(server_datetime) ls_stopemp = '' Else ls_stopemp = publ_operator End If SetNull(null_dt) If p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 Then rslt = 0 Goto ext End If If status <> 1 And status <> 5 And status <> 3 Then arg_msg = '订单只能在进行状态或自动完成状态才能操作' rslt = 0 Goto ext End If If arg_stopqty > ld_saleqty - ld_consignedQty - ld_noauditqty Then arg_msg = '明细物料'+arg_mtrlcode+'未开发货单数只有:'+String(ld_saleqty - ld_consignedQty - ld_noauditqty,'#,##0.##########')+',不能终止:'+String(arg_stopqty,'#,##0.##########') rslt = 0 Goto ext End If If arg_stopqty > ld_saleqty - ld_saleoutqty Then arg_msg = '明细物料'+arg_mtrlcode+'未开发货通知单数只有:'+String(ld_saleqty - ld_saleoutqty,'#,##0.##########')+',不能终止:'+String(arg_stopqty,'#,##0.##########') rslt = 0 Goto ext End If If arg_stopqty > 0 Then If Not ((li_outtype = 1 Or li_outtype = 2) And li_ifpackpro > 0) Then ds_fp_del.Retrieve(arg_scid,arg_taskid,arg_printid) ld_qty = arg_stopqty For j = 1 To ds_fp_del.RowCount() ll_assignid = ds_fp_del.Object.u_mtrlware_assign_assignid[j] ld_assignqty = ds_fp_del.Object.u_mtrlware_assign_assignqty[j] - ds_fp_del.Object.u_mtrlware_assign_outqty[j] If ld_qty = 0 Then Exit If ld_qty <= ld_assignqty Then ld_qty_cancel = ld_qty ld_qty = 0 Else ld_qty_cancel = ld_assignqty ld_qty = ld_qty - ld_assignqty End If If uo_ma.uof_assign_del(ll_assignid,ld_qty_cancel,arg_msg,False) = 0 Then arg_msg = '删除库存分配失败,'+arg_msg rslt = 0 Goto ext End If Next Else If li_ifpackpro = 1 Or li_ifpackpro = 2 Then it_mxt = 1 cnt = 0 //查是否有换清单 If li_ifpackpro = 2 Then Select count(*) Into :cnt From u_saletaskmx_pf Where scid = :arg_scid And taskid = :arg_taskid And printid = :arg_printid; If sqlca.SQLCode <> 0 Then arg_msg = '查询订单明细否有换包件失败,'+sqlca.SQLErrText rslt = 0 Goto ext End If End If If cnt > 0 Then Declare cur_pf_saletaskmx Cursor For Select u_saletaskmx_pf.SonMtrlid, u_saletaskmx_pf.status, u_saletaskmx_pf.woodcode, u_saletaskmx_pf.pcode, u_saletaskmx_pf.Sonscale, u_saletaskmx_pf.Sonscale_fm From u_saletaskmx_pf Where ( u_saletaskmx_pf.scid = :arg_scid ) And ( u_saletaskmx_pf.taskid = :arg_taskid ) And ( u_saletaskmx_pf.printid = :arg_printid ); Open cur_pf_saletaskmx; Fetch cur_pf_saletaskmx Into :ll_SonMtrlid[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:ld_Sonscale[it_mxt],:ld_Sonscale_fm[it_mxt]; Do While sqlca.SQLCode = 0 it_mxt++ Fetch cur_pf_saletaskmx Into :ll_SonMtrlid[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:ld_Sonscale[it_mxt],:ld_Sonscale_fm[it_mxt]; Loop it_mxt = it_mxt - 1 Close cur_pf_saletaskmx; Else Declare cur_pf Cursor For Select u_PrdPF.SonMtrlid, u_PrdPF.status, u_PrdPF.woodcode, u_PrdPF.pcode, u_prdpf.Sonscale, 1 From u_PrdPF,u_mtrl_pf,u_mtrldef Where ( u_PrdPF.mtrlid = u_mtrl_pf.mtrlid ) And ( u_PrdPF.pfcode = u_mtrl_pf.pfcode ) And ( u_PrdPF.sonmtrlid = u_mtrldef.mtrlid ) And ( u_PrdPF.mtrlid = :ll_mtrlid ) And ( u_mtrl_pf.ifdi = 1 And :li_ifpackpro = 0 Or u_mtrl_pf.ifdft = 1 And (:li_ifpackpro = 1 Or :li_ifpackpro = 2) And u_mtrldef.ifpack > 0) Order By u_PrdPF.printid; Open cur_pf; Fetch cur_pf Into :ll_SonMtrlid[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:ld_Sonscale[it_mxt],:ld_Sonscale_fm[it_mxt]; Do While sqlca.SQLCode = 0 it_mxt++ Fetch cur_pf Into :ll_SonMtrlid[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:ld_Sonscale[it_mxt],:ld_Sonscale_fm[it_mxt]; Loop it_mxt = it_mxt - 1 Close cur_pf; End If Else f_checkpz(ls_status,s_pz[]) it_mxt = UpperBound(s_pz) For ll_l = 1 To it_mxt ll_SonMtrlid[ll_l] = ll_mtrlid ls_pf_status[ll_l] = s_pz[ll_l].cfgname ls_pf_woodcode[ll_l] = ls_woodcode ls_pf_pcode[ll_l] = ls_pcode ld_Sonscale[ll_l] = Dec(s_pz[ll_l].qty) ld_Sonscale_fm[ll_l] = 1 Next End If For ll_j = 1 To it_mxt ds_fp_del_pack.Retrieve(arg_scid,arg_taskid,arg_printid,ll_SonMtrlid[ll_j],ls_pf_status[ll_j],ls_pf_woodcode[ll_j],ls_pf_pcode[ll_j]) ld_qty = arg_stopqty * ld_Sonscale[ll_j]/ld_Sonscale_fm[ll_j] For j = 1 To ds_fp_del_pack.RowCount() ll_assignid = ds_fp_del_pack.Object.u_mtrlware_assign_assignid[j] ld_assignqty = ds_fp_del_pack.Object.u_mtrlware_assign_assignqty[j] - ds_fp_del_pack.Object.u_mtrlware_assign_outqty[j] If ld_qty = 0 Then Exit If ld_qty <= ld_assignqty Then ld_qty_cancel = ld_qty ld_qty = 0 Else ld_qty_cancel = ld_assignqty ld_qty = ld_qty - ld_assignqty End If If uo_ma.uof_assign_del(ll_assignid,ld_qty_cancel,arg_msg,False) = 0 Then arg_msg = '删除库存分配失败,'+arg_msg rslt = 0 Goto ext End If Next Next End If End If Update u_saletaskmx Set stopqty = :arg_stopqty, stopemp = :ls_stopemp, stopdate = :server_datetime, stopreason = :arg_stopreason Where scid = :arg_scid And taskid = :arg_taskid And printid = :arg_printid Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then arg_msg = '更新明细'+arg_mtrlcode+'中止标记失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If uo_option_m_msttake = 1 Then //使用多币种 ld_stopamt = Round(ld_enprice * arg_stopqty * ld_rebate,2) ld_stopamt_ori = Round(ld_enprice * ld_stopqty_ori * ld_rebate,2) Else // 系统不使用多币种,转换为人民币 ld_stopamt = Round(ld_enprice * mrate * arg_stopqty * ld_rebate,2) ld_stopamt_ori = Round(ld_enprice * mrate * ld_stopqty_ori * ld_rebate,2) End If Update u_saletask Set msttakeamt = msttakeamt + :ld_stopamt_ori - :ld_stopamt Where scid = :arg_scid And TaskID = :arg_taskid Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then arg_msg = '更新订单单据金额失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If If Kind <> 0 Then If trycmplsaletask(arg_scid,arg_taskid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If Else If trycmptask_fore(arg_scid,arg_taskid,arg_msg,False) = 0 Then rslt = 0 Goto ext End If End If //记录终止操作记录(终止数,终止时间) If ld_stopqty_this <> 0 Then Select max(pid) Into :ll_pid From u_saletask_stoplog Where scid = :arg_scid And taskid = :arg_taskid And printid = :arg_printid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then ll_pid = 0 if isnull(ll_pid) then ll_pid = 0 ll_pid++ Insert Into u_saletask_stoplog (scid, taskid, printid, pid, stopqty, stopemp, stopdate, stopreason) Values (:arg_scid, :arg_taskid, :arg_printid, :ll_pid, :ld_stopqty_this, :publ_operator, getdate(), :arg_stopreason) Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '增加订单明细终止记录失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If End If ext: If rslt = 0 Then Rollback Using commit_transaction ; ElseIf rslt = 1 And arg_ifcommit Then Commit Using commit_transaction ; End If Destroy uo_ma Destroy ds_fp_del Destroy ds_fp_del_pack Return rslt end function public function integer add_wrkgrp_mxdscrp (long arg_scid, long arg_taskid, s_saletaskmx_wrkgrp_mxdscrp arg_s_mx, long arg_cnt, ref string arg_msg, boolean arg_ifcommit);//add_wrkgrp_mxdscrp(string arg_newdescppart) //0 fail 1 SUCCESS Int rslt = 1 Long i IF it_updatebegin Or it_newbegin THEN rslt = 0 arG_MSG = "编辑状态下不可用" GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF //IF status = 0 THEN // rslt = 0 // arG_MSG = "待销售审核状态下不可用" // GOTO ext //END IF DELETE FROM u_saletaskmx_wrkgrp_mxdscrp WHERE scid = :arg_scid And taskid = :arg_taskid 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 arg_cnt INSERT INTO u_saletaskmx_wrkgrp_mxdscrp (scid, taskid, printid, wrkgrpid, mxdscrp) VALUES (:arg_s_mx.scid[i], :arg_s_mx.taskid[i], :arg_s_mx.printid[i], :arg_s_mx.wrkgrpid[i], :arg_s_mx.mxdscrp[i] ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致新建销售订单车间备注操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF NEXT 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 add_relcode (long arg_scid, long arg_taskid, string arg_add_relcode, ref string arg_msg, boolean arg_ifcommit);//add_dscrp(string arg_newdescppart) //0 fail 1 SUCCESS Int rslt = 1 arg_add_relcode = Trim(arg_add_relcode) IF it_updatebegin Or it_newbegin THEN rslt = 0 arG_MSG = "编辑状态下不可用" GOTO ext END IF IF arg_add_relcode = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF status = 0 THEN rslt = 0 arG_MSG = "待销售审核状态下不可用" GOTO ext END IF //rtrim(relcode)+' '+ UPDATE u_saletask SET relcode = :arg_add_relcode WHERE u_saletask.taskid = :arg_taskid And scid = :arg_scid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致修改销售订单相关号操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF relcode = relcode+' '+arg_add_relcode 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 acceptmx_item (long arg_printid, long arg_itemid, decimal arg_amt, string arg_mxdscrp, ref string arg_msg);Int rslt = 1 Long cnt,ll_i cnt = 0 IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF IF IsNull(arg_printid) THEN arg_printid = 0 IF IsNull(arg_itemid) THEN arg_itemid = 0 IF IsNull(arg_amt) THEN arg_amt = 0 IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = '' IF arg_itemid = 0 Or arg_amt = 0 THEN rslt = 1 GOTO ext END IF SELECT count(*) INTO :cnt FROM u_itemdef Where itemid = :arg_itemid; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询收支项目是否存在失败,'+commit_transaction.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '第'+String(arg_printid)+'行,收支项目不存在,请检查' GOTO ext END IF //合并重复项 FOR ll_i = 1 To it_mxbt_item IF arg_itemid = saletask_itemmx[ll_i].itemid THEN saletask_itemmx[ll_i].amt = saletask_itemmx[ll_i].amt + arg_amt rslt = 1 GOTO ext END IF NEXT it_mxbt_item++ saletask_itemmx[it_mxbt_item].printid = arg_printid saletask_itemmx[it_mxbt_item].itemid = arg_itemid saletask_itemmx[it_mxbt_item].amt = arg_amt saletask_itemmx[it_mxbt_item].mxdscrp = arg_mxdscrp ext: IF rslt = 0 THEN p_clearmx() RETURN rslt end function public function integer add_dscrpmx (long arg_scid, long arg_taskid, long arg_printid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit); Int rslt = 1 arg_newdescppart = Trim(arg_newdescppart) IF arg_newdescppart = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF status <> 4 and status <> 1 THEN rslt = 0 arG_MSG = "非待生产审核状态或在进行状态下不可用" GOTO ext END IF UPDATE u_saletaskmx SET mxDSCRP = mxDSCRP+' '+:arg_newdescppart WHERE u_saletaskmx.taskid = :arg_taskid AND u_saletaskmx.scid = :arg_scid AND u_saletaskmx.printid = :arg_printid And assignqty = 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 = "添加销售订单明细备注,更新操作:0 行,可能明细已有排产数,请检查" GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit THEN COMMIT Using commit_transaction; END IF Return (rslt) end function public function integer finishtask (long arg_scid, long arg_taskid, integer arg_status, ref string arg_msg, boolean arg_ifcommit);//arg_status 5 - 自动完成; 6 - 手动完成 Int rslt = 1 Long cnt = 0 Long ll_assignid,j,i Decimal ld_assignqty uo_mtrlware_assign uo_ma uo_ma = Create uo_mtrlware_assign uo_ma.commit_transaction = commit_transaction datastore ds_fp_del ds_fp_del = Create datastore ds_fp_del.DataObject = 'ds_rp_cust_saletask_fp_mx_fp_del_p' ds_fp_del.SetTransObject(commit_transaction) IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_if_oa_saletask_fore = -1000 THEN arg_msg = '选项:[227]销售预测单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF getinfo(arg_scid,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(arg_scid,arg_taskid,6,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF UPDATE u_SaleTask SET status = :arg_status, accomplishdate = getdate(), finishemp = :publ_operator WHERE ( u_SaleTask.TaskID = :arg_taskid ) AND ( u_SaleTask.scid = :arg_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 ds_fp_del.Retrieve(arg_scid,arg_taskid,saletaskmx[i].printid) FOR j = 1 To ds_fp_del.RowCount() ll_assignid = ds_fp_del.Object.u_mtrlware_assign_assignid[j] ld_assignqty = ds_fp_del.Object.u_mtrlware_assign_assignqty[j] - ds_fp_del.Object.u_mtrlware_assign_outqty[j] IF uo_ma.uof_assign_del(ll_assignid,ld_assignqty,arg_msg,False) = 0 THEN arg_msg = '删除库存分配失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT NEXT ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Destroy uo_ma Destroy ds_fp_del p_reset() Return (rslt) end function public function integer finishtask_cancel (long arg_scid, long arg_taskid, integer arg_status, ref string arg_msg, boolean arg_ifcommit);//arg_status 5 - 自动完成; 6 - 手动完成 Int rslt = 1 Long cnt = 0 DateTime null_dt SetNull(null_dt) IF uo_option_if_oa_saletask = -1000 THEN arg_msg = '选项:[043]销售订单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_if_oa_saletask_fore = -1000 THEN arg_msg = '选项:[227]销售预测单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF if arg_status = 5 then IF Status <> 5 THEN rslt = 0 arg_msg = "销售订单只有在完成状态才可以执行取消完成，请核对" GOTO ext END IF elseif arg_status = 6 then IF Status <> 6 THEN rslt = 0 arg_msg = "销售订单只有在手动完成状态才可以执行取消手动完成，请核对" GOTO ext END IF end if IF ctmint > 0 THEN rslt = 0 arg_msg = '销售订单已被截数,操作取消' GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_saletaskmx WHERE u_saletaskmx.scid = :arg_scid AND u_saletaskmx.taskid = :arg_taskid AND u_saletaskmx.saleqty > u_saletaskmx.consignedQty Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询订单是否自动完成失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '订单不是手动完成,操作取消' rslt = 0 GOTO ext END IF //IF uo_option_if_oa_saletask = 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 UPDATE u_SaleTask SET status = 1, accomplishdate = :null_dt, finishemp = '' WHERE ( u_SaleTask.TaskID = :arg_taskid ) AND ( u_SaleTask.scid = :arg_scid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致取消完成销售订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ext: 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 uof_disuse (long arg_scid, long arg_taskid, integer arg_disusetype, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_disuseid //arg_disusetype 0 - 修改, 1-删除 Select max(disuseid) Into :ll_disuseid From u_SaleTask_disuse Where scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; If commit_transaction.SQLCode = -1 Then rslt = 0 arg_msg = '获取销售订单废弃单序号失败,'+ commit_transaction.SQLErrText Goto ext ElseIf commit_transaction.SQLCode = 100 Then ll_disuseid = 0 End If if isnull(ll_disuseid) then ll_disuseid = 0 ll_disuseid++ Insert Into u_SaleTask_disuse (scid, TaskID, disuseid, disusetype, TaskCode, kind, CusID, taskdate, requiredate, accomplishdate, finishemp, Status, opemp, modemp, moddate, Assign_Emp, Permit_Emp, Permit_date, Dscrp, opdate, stopemp, ctmint, freight, printnum, banktypeid, damt, moneyid, relcode, paytype, dscrp2, freight_tele, cus_address, cus_tele, cus_fax, otheramt, mrate, upname, p_Auditingdate, p_Auditingrep, msttakeamt, takeamt, takedamt, typeid, rel_rep, level, sendTime, sendUser, fiebrelcode, mxrowcount, cuscode, cusname, moneyname, banktypename, typename, disuseemp,disusedate) Select u_SaleTask.scid, u_SaleTask.TaskID, :ll_disuseid, :arg_disusetype,u_SaleTask.TaskCode, u_SaleTask.kind, u_SaleTask.CusID, u_SaleTask.taskdate, u_SaleTask.requiredate, u_SaleTask.accomplishdate, u_SaleTask.finishemp, u_SaleTask.Status, u_SaleTask.opemp, u_SaleTask.modemp, u_SaleTask.moddate, u_SaleTask.Assign_Emp, u_SaleTask.Permit_Emp, u_SaleTask.Permit_date, u_SaleTask.Dscrp, u_SaleTask.opdate, u_SaleTask.stopemp, u_SaleTask.ctmint, u_SaleTask.freight, u_SaleTask.printnum, u_SaleTask.banktypeid, u_SaleTask.damt, u_SaleTask.moneyid, u_SaleTask.relcode, u_SaleTask.paytype, u_SaleTask.dscrp2, u_SaleTask.freight_tele, u_SaleTask.cus_address, u_SaleTask.cus_tele, u_SaleTask.cus_fax, u_SaleTask.otheramt, u_SaleTask.mrate, u_SaleTask.upname, u_SaleTask.p_Auditingdate, u_SaleTask.p_Auditingrep, u_SaleTask.msttakeamt, u_SaleTask.takeamt, u_SaleTask.takedamt, u_SaleTask.typeid, u_SaleTask.rel_rep, u_SaleTask.level, u_SaleTask.sendTime, u_SaleTask.sendUser, u_SaleTask.fiebrelcode, u_SaleTask.mxrowcount, u_cust.cuscode, u_cust.name, cw_currency.name , cw_banktype.banktypename, u_saletype.typename, :publ_operator,getdate() From u_SaleTask LEFT Outer JOIN cw_banktype ON u_SaleTask.banktypeid = cw_banktype.banktypeid LEFT Outer JOIN u_saletype ON u_SaleTask.typeid = u_saletype.typeid LEFT Outer JOIN u_cust ON u_SaleTask.CusID = u_cust.cusid LEFT Outer JOIN cw_currency ON u_SaleTask.moneyid = cw_currency.moneyid Where u_SaleTask.scid = :arg_scid And u_SaleTask.taskid = :arg_taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '插入销售订单废弃单失败,'+commit_transaction.SQLErrText Goto ext End If Insert Into u_SaleTaskMx_disuse (scid, TaskID, disuseid, printid, MtrlID, SaleQty, PlPrice, fprice, rebate, Price, consignedQty, AssignQty, mxdscrp, status, pcode, woodcode, mtrlcuscode, mtrlchangecode, enprice, ctmint, outtype, dftsaleprice, bqty, pqty, stopflag, stopemp, stopdate, stopreason, bjflag, bjdate, bjemp, wqty, auditemp, auditflag, auditdate, lqty, finishbqty, dddate, ddemp, ddflag, mqty, requiredate, pfcode, mxdscrp2, scidprice, inwareqty, outtypestr, changedscrp, quoteid, quotecode, quoteprintid, pricetype, capacity, nprice, saleoutqty, stopqty, fpqty, poid, taxrate, perfinishdate, addqty, mtrlcode, mtrlname) Select u_SaleTaskMx.scid, u_SaleTaskMx.TaskID, :ll_disuseid,u_SaleTaskMx.printid, u_SaleTaskMx.MtrlID, u_SaleTaskMx.SaleQty, u_SaleTaskMx.PlPrice, u_SaleTaskMx.fprice, u_SaleTaskMx.rebate, u_SaleTaskMx.Price, u_SaleTaskMx.consignedQty, u_SaleTaskMx.AssignQty, u_SaleTaskMx.mxdscrp, u_SaleTaskMx.status, u_SaleTaskMx.pcode, u_SaleTaskMx.woodcode, u_SaleTaskMx.mtrlcuscode, u_SaleTaskMx.mtrlchangecode, u_SaleTaskMx.enprice, u_SaleTaskMx.ctmint, u_SaleTaskMx.outtype, u_SaleTaskMx.dftsaleprice, u_SaleTaskMx.bqty, u_SaleTaskMx.pqty, u_SaleTaskMx.stopflag, u_SaleTaskMx.stopemp, u_SaleTaskMx.stopdate, u_SaleTaskMx.stopreason, u_SaleTaskMx.bjflag, u_SaleTaskMx.bjdate, u_SaleTaskMx.bjemp, u_SaleTaskMx.wqty, u_SaleTaskMx.auditemp, u_SaleTaskMx.auditflag, u_SaleTaskMx.auditdate, u_SaleTaskMx.lqty, u_SaleTaskMx.finishbqty, u_SaleTaskMx.dddate, u_SaleTaskMx.ddemp, u_SaleTaskMx.ddflag, u_SaleTaskMx.mqty, u_SaleTaskMx.requiredate, u_SaleTaskMx.pfcode, u_SaleTaskMx.mxdscrp2, u_SaleTaskMx.scidprice, u_SaleTaskMx.inwareqty, u_SaleTaskMx.outtypestr, u_SaleTaskMx.changedscrp, u_SaleTaskMx.quoteid, u_SaleTaskMx.quotecode, u_SaleTaskMx.quoteprintid, u_SaleTaskMx.pricetype, u_SaleTaskMx.capacity, u_SaleTaskMx.nprice, u_SaleTaskMx.saleoutqty, u_SaleTaskMx.stopqty, u_SaleTaskMx.fpqty, u_SaleTaskMx.poid, u_SaleTaskMx.taxrate, u_SaleTaskMx.perfinishdate, u_SaleTaskMx.addqty, u_mtrldef.mtrlcode, u_mtrldef.mtrlname From u_SaleTaskMx LEFT Outer JOIN u_mtrldef ON u_SaleTaskMx.MtrlID = u_mtrldef.mtrlid Where u_SaleTaskMx.scid = :arg_scid And u_SaleTaskMx.taskid = :arg_taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '插入销售订单废弃单明细失败,'+commit_transaction.SQLErrText Goto ext End If Insert Into u_saletask_itemmx_disuse (scid, taskid, disuseid, printid, itemid, amt, mxdscrp, itemcode, itemname, itemtype) Select u_saletask_itemmx.scid, u_saletask_itemmx.taskid, :ll_disuseid,u_saletask_itemmx.printid, u_saletask_itemmx.itemid, u_saletask_itemmx.amt, u_saletask_itemmx.mxdscrp, u_itemdef.itemcode, u_itemdef.itemname, u_itemdef.itemtype From u_saletask_itemmx LEFT Outer JOIN u_itemdef ON u_saletask_itemmx.itemid = u_itemdef.itemid Where u_saletask_itemmx.scid = :arg_scid And u_saletask_itemmx.taskid = :arg_taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '插入销售订单废弃单费用明细失败,'+commit_transaction.SQLErrText Goto ext End If ext: If rslt = 0 Then Rollback Using commit_transaction; ElseIf rslt = 1 And arg_ifcommit Then Commit Using commit_transaction; End If Return rslt end function public function integer uof_updatesaleoutcodestr (long arg_scid, long arg_taskid, long arg_printid, boolean arg_ifcommit, ref string arg_msg);//uof_UpdateSaleOutCodeStr Int rslt = 1 String ls_SaleOutCodeStr //查找单号 Long i, ll_rowcnt datastore ds ds = Create datastore ds.DataObject = "ds_saletask_saleoutcodestr" ds.SetTransObject(sqlca) ll_rowcnt = ds.Retrieve(arg_scid, arg_taskid, arg_printid) FOR i = 1 To ll_rowcnt ls_SaleOutCodeStr = ds.Object.u_saleout_taskcode[i] + "," NEXT IF ls_SaleOutCodeStr <> "" THEN ls_SaleOutCodeStr = Left(ls_SaleOutCodeStr, Len(ls_SaleOutCodeStr) - 1) END IF UPDATE u_saletaskmx SET SaleOutCodeStr = :ls_SaleOutCodeStr WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :arg_printid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新销售订单已开未发货单发货通知单号失败,"+sqlca.SQLErrText GOTO ext END IF ext: Destroy ds IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer add_dscrp3 (long arg_scid, long arg_taskid, string arg_newdescppart, ref string arg_msg, boolean arg_ifcommit);//add_dscrp(string arg_newdescppart) //0 fail 1 SUCCESS Int rslt = 1 arg_newdescppart = Trim(arg_newdescppart) IF 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_scid,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 status = 1 THEN rslt = 0 arG_MSG = "只有在生产审核前才可以使用" GOTO ext END IF UPDATE u_saletask SET dscrp3 = dscrp3+' '+:arg_newdescppart Where u_saletask.taskid = :arg_taskid AND scid = :arg_scid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致添加销售订单备注操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF dscrp3 = dscrp3+' '+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 stopsaletask (long arg_scid, long arg_taskid, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long ll_assignid,j,i Decimal ld_assignqty uo_mtrlware_assign uo_ma uo_ma = Create uo_mtrlware_assign uo_ma.commit_transaction = commit_transaction datastore ds_fp_del ds_fp_del = Create datastore ds_fp_del.DataObject = 'ds_rp_cust_saletask_fp_mx_fp_del_p' ds_fp_del.SetTransObject(commit_transaction) IF f_aps_mrp_cklock(arg_scid,arg_msg) = 0 THEN 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_oa_saletask_fore = -1000 THEN arg_msg = '选项:[227]销售预测单使用OA审批流程,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN rslt = 0 arg_msg = '错误销售订单唯一码' GOTO ext END IF IF getinfo(arg_scid,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 Kind <> 0 THEN IF uo_option_if_oa_saletask = 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 ELSE IF uo_option_if_oa_saletask_fore = 1 And audit_buildtype = 0 THEN IF f_check_if_oaflow(arg_scid,arg_taskid,1324,arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF UPDATE u_SaleTask SET Status = 3, accomplishdate = getdate() , stopemp = :publ_operator, stopreason = :arg_stopreason Where TaskID = :arg_taskid And scid = :arg_scid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致终止销售订单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF FOR i = 1 To it_mxbt ds_fp_del.Retrieve(arg_scid,arg_taskid,saletaskmx[i].printid) FOR j = 1 To ds_fp_del.RowCount() ll_assignid = ds_fp_del.Object.u_mtrlware_assign_assignid[j] ld_assignqty = ds_fp_del.Object.u_mtrlware_assign_assignqty[j] - ds_fp_del.Object.u_mtrlware_assign_outqty[j] IF uo_ma.uof_assign_del(ll_assignid,ld_assignqty,arg_msg,False) = 0 THEN arg_msg = '删除库存分配失败,'+arg_msg rslt = 0 GOTO ext END IF NEXT 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 Destroy uo_ma Destroy ds_fp_del p_reset() Return (rslt) end function public function integer updatebqty (long arg_scid, long arg_taskid, long arg_printid, long arg_pid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Dec ld_SaleQty,ld_finishbQty,ld_bqty IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF status = 0 THEN arg_msg = '订单未审核，不能更新!' rslt = 0 GOTO ext END IF IF arg_pid = 0 THEN SELECT bqty, finishbqty INTO :ld_bqty, :ld_finishbQty FROM u_SaleTaskMx WHERE scid = :arg_scid AND 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 SET finishbqty = finishbqty + :arg_qty WHERE scid = :scid AND 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 ELSE SELECT bqty, finishbqty INTO :ld_bqty, :ld_finishbQty FROM u_saletaskmx_pack WHERE scid = :arg_scid AND taskid = :arg_taskid AND printid = :arg_printid AND pid = :arg_pid 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_pack SET finishbqty = finishbqty + :arg_qty WHERE scid = :scid AND taskid = :arg_taskid AND printid = :arg_printid AND pid = :arg_pid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新订单申购数失败>>'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF ext: IF rslt = 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 uof_cmp_pack (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, decimal arg_qty, ref string arg_msg);Int rslt = 1 Long cnt Long ll_SonMtrlid[] String ls_status,ls_woodcode,ls_pcode,ls_mtrlcuscode Decimal ld_Sonscale[],ld_Sonscale_fm[] Int li_ifover[],li_dipztype[],li_ifpack[] String ls_pf_status[],ls_pf_woodcode[],ls_pf_pcode[] int li_if_inherit[] int li_if_inherit_tmp Long it_mxt = 1 Decimal ld_qty Long ll_i Long ll_statusflag,ll_woodcodeflag,ll_pcodeflag Int li_ifpackpro String ls_mtrlcode String ls_pf_mtrlcode[] s_mtrlcfg_expr s_mtrlcfg[] Long ll_cfg,ll_cnt_s_mtrlcfg Long ll_scid,ll_taskid,ll_printid Int li_ordertype_order Decimal ld_bqty SELECT ifpackpro,statusflag,woodcodeflag,pcodeflag,mtrlcode,if_inherit INTO :li_ifpackpro,:ll_statusflag,:ll_woodcodeflag,:ll_pcodeflag,:ls_mtrlcode,:li_if_inherit_tmp FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料是否包件产品失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_ifpackpro = 1 Or li_ifpackpro = 2 THEN //查询个性包件产品订单明细是否有换包件 IF li_ifpackpro = 2 And arg_mtrlcuscode <> '' THEN SELECT ordertype INTO :li_ordertype_order From u_order_ml Where ordercode = :arg_mtrlcuscode Using commit_transaction; IF sqlca.SQLCode <> 0 THEN cnt = 0 ELSE IF li_ordertype_order = 4 THEN SELECT u_order_ml_p.scid,u_order_ml_p.taskid,u_order_ml_p.taskmxid INTO :ll_scid,:ll_taskid,:ll_printid FROM u_order_ml,u_order_ml u_order_ml_p WHERE u_order_ml.ordercode = :arg_mtrlcuscode AND u_order_ml.scid = u_order_ml_p.scid AND u_order_ml.porderid = u_order_ml_p.orderid Using commit_transaction; IF sqlca.SQLCode <> 0 THEN ll_taskid = 0 END IF ELSE SELECT scid,taskid,taskmxid INTO :ll_scid,:ll_taskid,:ll_printid FROM u_order_ml Where ordercode = :arg_mtrlcuscode Using commit_transaction; IF sqlca.SQLCode <> 0 THEN ll_taskid = 0 END IF END IF IF ll_taskid = 0 THEN cnt = 0 ELSE //查是否有换清单 SELECT count(*) INTO :cnt FROM u_saletaskmx_pf WHERE scid = :ll_scid AND taskid = :ll_taskid And printid = :ll_printid Using commit_transaction; IF sqlca.SQLCode <> 0 THEN cnt = 0 END IF END IF END IF END IF IF cnt > 0 THEN DECLARE cur_pf_saletaskmx CURSOR FOR SELECT u_saletaskmx_pf.SonMtrlid, u_saletaskmx_pf.Sonscale, u_saletaskmx_pf.Sonscale_fm, u_saletaskmx_pf.status, u_saletaskmx_pf.woodcode, u_saletaskmx_pf.pcode, 0, 0, u_mtrldef.ifpack, u_mtrldef.mtrlcode, u_mtrldef.if_inherit FROM u_saletaskmx_pf,u_mtrldef WHERE ( u_saletaskmx_pf.scid = :ll_scid ) AND ( u_saletaskmx_pf.taskid = :ll_taskid ) AND ( u_saletaskmx_pf.printid = :ll_printid ) AND ( u_saletaskmx_pf.SonMtrlid = u_mtrldef.mtrlid ) Using commit_transaction; OPEN cur_pf_saletaskmx; FETCH cur_pf_saletaskmx INTO :ll_SonMtrlid[it_mxt],:ld_Sonscale[it_mxt],:ld_Sonscale_fm[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:li_ifover[it_mxt],:li_dipztype[it_mxt], :li_ifpack[it_mxt],:ls_pf_mtrlcode[it_mxt],:li_if_inherit[it_mxt]; DO WHILE sqlca.SQLCode = 0 it_mxt++ FETCH cur_pf_saletaskmx INTO :ll_SonMtrlid[it_mxt],:ld_Sonscale[it_mxt],:ld_Sonscale_fm[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:li_ifover[it_mxt],:li_dipztype[it_mxt], :li_ifpack[it_mxt],:ls_pf_mtrlcode[it_mxt],:li_if_inherit[it_mxt]; LOOP it_mxt = it_mxt - 1 CLOSE cur_pf_saletaskmx; ELSE DECLARE cur_pf CURSOR FOR SELECT u_PrdPF.SonMtrlid, u_PrdPF.Sonscale, 1, u_PrdPF.status, u_PrdPF.woodcode, u_PrdPF.pcode, u_PrdPF.ifover, u_prdpf.dipztype, u_mtrldef.ifpack, u_mtrldef.mtrlcode, u_mtrldef.if_inherit FROM u_PrdPF,u_mtrl_pf,u_mtrldef WHERE (u_PrdPF.mtrlid = :arg_mtrlid) AND ( u_mtrl_pf.ifdi = 1 AND :li_ifpackpro = 0 OR u_mtrl_pf.ifdft = 1 AND (:li_ifpackpro = 1 OR :li_ifpackpro = 2) AND u_mtrldef.ifpack > 0) AND ( u_PrdPF.mtrlid = u_mtrl_pf.mtrlid ) AND ( u_PrdPF.pfcode = u_mtrl_pf.pfcode ) AND ( u_PrdPF.SonMtrlid = u_mtrldef.mtrlid ) ORDER BY u_PrdPF.printid Using commit_transaction; OPEN cur_pf; FETCH cur_pf INTO :ll_SonMtrlid[it_mxt],:ld_Sonscale[it_mxt],:ld_Sonscale_fm[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:li_ifover[it_mxt],:li_dipztype[it_mxt], :li_ifpack[it_mxt],:ls_pf_mtrlcode[it_mxt],:li_if_inherit[it_mxt]; DO WHILE sqlca.SQLCode = 0 it_mxt++ FETCH cur_pf INTO :ll_SonMtrlid[it_mxt],:ld_Sonscale[it_mxt],:ld_Sonscale_fm[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:li_ifover[it_mxt],:li_dipztype[it_mxt], :li_ifpack[it_mxt],:ls_pf_mtrlcode[it_mxt],:li_if_inherit[it_mxt]; LOOP it_mxt = it_mxt - 1 CLOSE cur_pf; END IF IF it_mxt = 0 THEN IF li_ifpackpro = 0 THEN arg_msg = '该产品没有建立组装清单,不能计算' ELSE arg_msg = '该产品没有建立默认清单,不能计算' END IF rslt = 0 GOTO ext END IF ELSE it_mxt = 0 IF arg_status = '' THEN rslt = 1 GOTO ext ELSE f_checkpz(arg_status,s_mtrlcfg) ll_cnt_s_mtrlcfg = UpperBound(s_mtrlcfg) IF ll_cnt_s_mtrlcfg = 0 THEN rslt = 1 GOTO ext ELSE FOR ll_cfg = 1 To ll_cnt_s_mtrlcfg it_mxt++ ll_SonMtrlid[it_mxt] = arg_mtrlid ls_pf_status[it_mxt] = s_mtrlcfg[ll_cfg].cfgname ls_pf_woodcode[it_mxt] = arg_woodcode ls_pf_pcode[it_mxt] = arg_pcode ls_pf_mtrlcode[it_mxt] = ls_mtrlcode ld_Sonscale[it_mxt] = Dec(s_mtrlcfg[ll_cfg].qty) ld_Sonscale_fm[it_mxt] = 1 li_ifover[it_mxt] = 0 li_ifpack[it_mxt] = 0 li_if_inherit[it_mxt] = li_if_inherit_tmp NEXT END IF END IF END IF FOR ll_i = 1 To it_mxt IF li_ifover[ll_i] = 1 THEN CHOOSE CASE li_dipztype[ll_i] CASE 0 ls_status = arg_status ls_woodcode = '' ls_pcode = '' CASE 1 ls_status = '' ls_woodcode = arg_woodcode ls_pcode = '' CASE 2 ls_status = '' ls_woodcode = '' ls_pcode = arg_pcode CASE 3 ls_status = arg_status ls_woodcode = arg_woodcode ls_pcode = '' CASE 4 ls_status = '' ls_woodcode = arg_woodcode ls_pcode = arg_pcode CASE 5 ls_status = arg_status ls_woodcode = '' ls_pcode = arg_pcode CASE 6 ls_status = arg_status ls_woodcode = arg_woodcode ls_pcode = arg_pcode END CHOOSE ELSE ls_status = ls_pf_status[ll_i] ls_woodcode = ls_pf_woodcode[ll_i] ls_pcode = ls_pf_pcode[ll_i] END IF // IF li_ifpackpro = 2 Or li_ifpackpro = 4 THEN if li_if_inherit[ll_i] = 1 then ls_mtrlcuscode = arg_mtrlcuscode ELSE ls_mtrlcuscode = '' END IF ld_bqty = arg_qty * ld_Sonscale[ll_i]/ld_Sonscale_fm[ll_i] INSERT INTO u_saletaskmx_pack (scid, taskid, printid, pid, mtrlid, bqty, status, woodcode, pcode, mtrlcuscode) VALUES (:arg_scid, :arg_taskid, :arg_printid, :ll_i, :ll_SonMtrlid[ll_i], :ld_bqty, :ls_status, :ls_woodcode, :ls_pcode, :ls_mtrlcuscode) Using commit_transaction; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入包件待申购列表失败,'+commit_transaction.SQLErrText GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; END IF RETURN rslt end function public function integer uof_mod_requiredate (long arg_scid[], long arg_taskid[], long arg_printid[], datetime arg_olddate[], datetime arg_newdate[], ref string arg_msg, boolean arg_ifcommit);Int rslt rslt = 1 Long cnt Long ll_pid,ll_i,ll_j DateTime server_dt Long ll_scid_arr[],ll_taskid_arr[] Long ll_itmx DateTime ld_requestdate_max SELECT Top 1 getdate() Into :server_dt From u_user Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF FOR ll_i = 1 To UpperBound(arg_taskid) IF Date(arg_olddate[ll_i]) = Date(arg_newdate[ll_i]) THEN CONTINUE cnt = 0 SELECT count(*) INTO :cnt FROM u_saletaskmx_moddate_log WHERE scid = :arg_scid[ll_i] AND taskid = :arg_taskid[ll_i] And printid = :arg_printid[ll_i] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询日期修改历史失败'+'~n'+commit_transaction.SQLErrText GOTO ext END IF ll_pid = 0 IF cnt = 0 THEN ll_pid = 0 ELSE SELECT max(pid) INTO :ll_pid FROM u_saletaskmx_moddate_log WHERE scid = :arg_scid[ll_i] AND taskid = :arg_taskid[ll_i] And printid = :arg_printid[ll_i] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询预计完成日期修改日志失败'+'~n'+commit_transaction.SQLErrText GOTO ext END IF END IF ll_pid++ INSERT INTO u_saletaskmx_moddate_log (scid, taskid, printid, pid, olddate, newdate, opdate, opemp) VALUES (:arg_scid[ll_i], :arg_taskid[ll_i], :arg_printid[ll_i], :ll_pid, :arg_olddate[ll_i], :arg_newdate[ll_i], :server_dt, :publ_operator) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入明细交货日期修改日志操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF UPDATE u_SaleTaskMx SET requiredate = :arg_newdate[ll_i] WHERE taskid = :arg_taskid[ll_i] AND scid = :arg_scid[ll_i] And printid = :arg_printid[ll_i] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新明细交货日期失败,'+commit_transaction.SQLErrText GOTO ext END IF NEXT FOR ll_i = 1 To UpperBound(arg_taskid) FOR ll_j = 1 To ll_itmx IF arg_taskid[ll_i] = ll_taskid_arr[ll_j] And arg_scid[ll_i] = ll_scid_arr[ll_j] THEN GOTO _next_task END IF NEXT ll_itmx++ ll_scid_arr[ll_itmx] = arg_scid[ll_i] ll_taskid_arr[ll_itmx] = arg_taskid[ll_i] _next_task: NEXT FOR ll_i = 1 To ll_itmx SELECT max(requiredate) INTO :ld_requestdate_max FROM u_SaleTaskMx WHERE taskid = :ll_taskid_arr[ll_i] And scid = :ll_scid_arr[ll_i] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细最迟交货日期失败,scid = '+String(ll_scid_arr[ll_i]) + ',taskid = '+String(ll_taskid_arr[ll_i])+'~r~n'+commit_transaction.SQLErrText GOTO ext END IF UPDATE u_SaleTask SET requiredate = :ld_requestdate_max WHERE taskid = :ll_taskid_arr[ll_i] And scid = :ll_scid_arr[ll_i] Using commit_transaction; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新主表交货日期失败,scid = '+String(ll_scid_arr[ll_i]) + ',taskid = '+String(ll_taskid_arr[ll_i])+'~r~n'+commit_transaction.SQLErrText GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Return(rslt) end function public function integer acceptmxmx (s_saletaskmxmx arg_s_mx, ref string arg_msg);Int rslt = 1 Long cnt = 0,ls_i,ll_i Decimal ld_dftsaleprice Decimal ld_planprice uo_cusprice uo_price uo_price = Create uo_cusprice 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 uo_option_m_msttake = -1000 THEN arg_msg = '选项:[045]系统使用多币种应收帐,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_checkprice_native = -1000 THEN arg_msg = '选项:[056]销售价格按本位币限价,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_if_pricetype = -1000 THEN arg_msg = '选项:[154]启用价格分类,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_price_rmb = -1000 THEN arg_msg = '选项:[238]销售单价按人民币单价折算,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF //清除空值 IF IsNull(arg_s_mx.mtrlid) THEN arg_s_mx.mtrlid = 0 IF IsNull(arg_s_mx.saleqty) THEN arg_s_mx.saleqty = 0 IF IsNull(arg_s_mx.enprice) THEN arg_s_mx.enprice = 0 IF IsNull(arg_s_mx.rebate) THEN arg_s_mx.rebate = 0 IF IsNull(arg_s_mx.mxdscrp) THEN arg_s_mx.mxdscrp = '' IF IsNull(arg_s_mx.mtrlcode) THEN arg_s_mx.mtrlcode = '' IF IsNull(arg_s_mx.status) THEN arg_s_mx.status = '' IF IsNull(arg_s_mx.woodcode) THEN arg_s_mx.woodcode = '' IF IsNull(arg_s_mx.pcode) THEN arg_s_mx.pcode = '' IF IsNull(arg_s_mx.printid) THEN arg_s_mx.printid = 0 IF IsNull(arg_s_mx.outtype) THEN arg_s_mx.outtype = 0 IF IsNull(arg_s_mx.mtrlcuscode) THEN arg_s_mx.mtrlcuscode = '' IF IsNull(arg_s_mx.mxdscrp2) THEN arg_s_mx.mxdscrp2 = '' IF IsNull(arg_s_mx.nprice) THEN arg_s_mx.nprice = 0 IF IsNull(arg_s_mx.poid) THEN arg_s_mx.poid = 0 IF IsNull(arg_s_mx.taxrate) THEN arg_s_mx.taxrate = 0 IF IsNull(arg_s_mx.addqty) THEN arg_s_mx.addqty = 0 IF IsNull(arg_s_mx.priceformula) THEN arg_s_mx.priceformula = '' IF IsNull(arg_s_mx.net_weight) THEN arg_s_mx.net_weight = 0 IF IsNull(arg_s_mx.gross_weight) THEN arg_s_mx.gross_weight = 0 IF IsNull(arg_s_mx.cubage) THEN arg_s_mx.cubage = 0 arg_s_mx.status = Trim(arg_s_mx.status) arg_s_mx.woodcode = Trim(arg_s_mx.woodcode) arg_s_mx.pcode = Trim(arg_s_mx.pcode) arg_s_mx.mtrlcuscode = Trim(arg_s_mx.mtrlcuscode) IF arg_s_mx.mtrlid = 0 Or arg_s_mx.saleqty = 0 THEN rslt = 1 GOTO ext END IF IF Kind > 0 THEN IF uo_option_sale_ifuse_negativeprice = 0 THEN IF arg_s_mx.enprice * arg_s_mx.rebate < 0 THEN rslt = 0 arg_msg = "产品：" + String(arg_s_mx.mtrlcode)+" 单价错误" GOTO ext END IF END IF IF arg_s_mx.rebate < 0 THEN arg_msg = '折扣错误,请检查' rslt = 0 GOTO ext END IF IF arg_s_mx.taxrate < 0 THEN arg_msg = '不合理的税率' rslt = 0 GOTO ext END IF END IF String ls_pfcode ls_pfcode = '[' + arg_s_mx.status + ']' & + '[' + arg_s_mx.woodcode + ']' & + '[' + arg_s_mx.pcode + ']' IF Len(ls_pfcode) > 255 THEN ls_pfcode = Mid(ls_pfcode, 1, 251) + '...]' END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_mtrl_pf Where pfcode = :ls_pfcode; IF sqlca.SQLCode <> 0 THEN cnt = 0 IF cnt = 0 THEN ls_pfcode = f_get_dft_pf(arg_s_mx.mtrlid) END IF //检查物料id Int li_statusflag,li_woodcodeflag,li_pcodeflag Int li_isuse Decimal ld_capacity,ld_capacity_zj s_mtrlcfg_expr s_pz[] String ls_status_zj Int li_status_check,li_woodcode_check,li_pcode_check SELECT planprice, statusflag, capacity, woodcodeflag, pcodeflag, status_check, woodcode_check, pcode_check, capacity * capaparm, isuse INTO :ld_planprice, :li_statusflag, :ld_capacity, :li_woodcodeflag, :li_pcodeflag, :li_status_check, :li_woodcode_check, :li_pcode_check, :ld_capacity, :li_isuse FROM u_mtrldef Where u_mtrldef.mtrlid = :arg_s_mx.mtrlid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,产品计划价" GOTO ext END IF IF Kind = 0 And li_isuse = 2 THEN arg_msg = '行:'+String(arg_s_mx.printid)+',物料是待停产物料,不能建立销售预测单' rslt = 0 GOTO ext END IF IF li_statusflag = 2 THEN IF arg_s_mx.status = '' THEN arg_msg = '行:'+String(arg_s_mx.printid)+',物料'+uo_option_change_status + '字段使用组合配置,请输入' rslt = 0 GOTO ext END IF ld_capacity = 0 f_checkpz(arg_s_mx.status,s_pz[]) FOR ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname SELECT capacity * capaparm INTO :ld_capacity_zj FROM u_mtrl_configure WHERE mtrlid = :arg_s_mx.mtrlid And Name = :ls_status_zj; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '行:'+String(arg_s_mx.printid)+",物料查询子件 "+ls_status_zj+" 折算套数参数操作失败" GOTO ext END IF ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty) NEXT ELSEIF li_statusflag = 4 And li_status_check = 1 THEN IF arg_s_mx.status = '' THEN arg_msg = '行:'+String(arg_s_mx.printid)+',物料'+uo_option_change_woodcode + '字段使用部件选配,请输入' rslt = 0 GOTO ext END IF ELSEIF li_statusflag = 1 Or li_statusflag = 0 THEN IF f_check_status(1,arg_s_mx.status) = 0 THEN rslt = 0 arg_msg = '行:'+String(arg_s_mx.printid)+",物料查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+arg_s_mx.mtrlcode+",内容:"+arg_s_mx.status GOTO ext END IF END IF IF li_woodcodeflag = 4 And li_woodcode_check = 1 THEN IF arg_s_mx.woodcode = '' THEN arg_msg = '行:'+String(arg_s_mx.printid)+',物料'+uo_option_change_woodcode + '字段使用部件选配,请输入' rslt = 0 GOTO ext END IF ELSEIF li_woodcodeflag = 1 Or li_woodcodeflag = 0 THEN IF f_check_status(2,arg_s_mx.woodcode) = 0 THEN rslt = 0 arg_msg = '行:'+String(arg_s_mx.printid)+",物料查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+arg_s_mx.mtrlcode+",内容:"+arg_s_mx.woodcode GOTO ext END IF END IF IF li_pcodeflag = 4 And li_pcode_check = 1 THEN IF arg_s_mx.pcode = '' THEN arg_msg = '行:'+String(arg_s_mx.printid)+',物料'+uo_option_change_pcode + '字段使用部件选配,请输入' rslt = 0 GOTO ext END IF ELSEIF li_pcodeflag = 1 Or li_pcodeflag = 0 THEN IF f_check_status(3,arg_s_mx.pcode) = 0 THEN rslt = 0 arg_msg = '行:'+String(arg_s_mx.printid)+",物料查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+arg_s_mx.mtrlcode+",内容:"+arg_s_mx.pcode GOTO ext END IF END IF IF Kind > 0 THEN ld_dftsaleprice = 0 f_get_defsaleprice(cusid,arg_s_mx.mtrlid,arg_s_mx.status,arg_s_mx.pcode,arg_s_mx.woodcode,moneyid,ld_dftsaleprice) END IF IF Kind = 1 THEN Int li_ifcheckprice,ll_pricelimittype // IF uo_option_if_pricetype = 1 And arg_s_mx.pricetype <> '' THEN SELECT pricelimittype INTO :ll_pricelimittype FROM u_saletype Where typeid = :typeid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询销售订单分类属性失败,'+commit_transaction.SQLErrText GOTO ext END IF IF arg_s_mx.pricetype <> '' THEN SELECT ifcheckprice INTO :li_ifcheckprice FROM u_pricetype Where pricetype = :arg_s_mx.pricetype Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询价格分类是否属于赠送类型失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE li_ifcheckprice = 1 END IF IF li_ifcheckprice = 2 THEN arg_s_mx.rebate = 0 IF li_ifcheckprice = 1 And ll_pricelimittype = 1 THEN IF uo_option_checkprice_native = 1 THEN IF uo_price.uof_check_price_saletask (typeid,cusid,arg_s_mx.mtrlid,& arg_s_mx.mtrlcode,arg_s_mx.status,arg_s_mx.woodcode,arg_s_mx.pcode,& moneyid,scid,arg_s_mx.quoteid,arg_s_mx.quoteprintid,arg_s_mx.enprice * mrate * arg_s_mx.rebate,arg_s_mx.saleqty,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ELSE IF uo_price.uof_check_price_saletask (typeid,cusid,arg_s_mx.mtrlid,& arg_s_mx.mtrlcode,arg_s_mx.status,arg_s_mx.woodcode,arg_s_mx.pcode,& moneyid,scid,arg_s_mx.quoteid,arg_s_mx.quoteprintid,arg_s_mx.enprice * arg_s_mx.rebate,arg_s_mx.saleqty,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF // END IF END IF //写入内容 it_mxbtmx++ saletaskmxmx[it_mxbtmx].dftsaleprice = ld_dftsaleprice saletaskmxmx[it_mxbtmx].mtrlid = arg_s_mx.mtrlid saletaskmxmx[it_mxbtmx].saleqty = arg_s_mx.saleqty saletaskmxmx[it_mxbtmx].plprice = ld_planprice saletaskmxmx[it_mxbtmx].mxdscrp = arg_s_mx.mxdscrp saletaskmxmx[it_mxbtmx].mxdscrp2 = arg_s_mx.mxdscrp2 saletaskmxmx[it_mxbtmx].mtrlcode = arg_s_mx.mtrlcode saletaskmxmx[it_mxbtmx].status = arg_s_mx.status saletaskmxmx[it_mxbtmx].printid = arg_s_mx.printid saletaskmxmx[it_mxbtmx].woodcode = arg_s_mx.woodcode saletaskmxmx[it_mxbtmx].pcode = arg_s_mx.pcode saletaskmxmx[it_mxbtmx].quotecode = arg_s_mx.quotecode saletaskmxmx[it_mxbtmx].quoteid = arg_s_mx.quoteid saletaskmxmx[it_mxbtmx].quoteprintid = arg_s_mx.quoteprintid saletaskmxmx[it_mxbtmx].mtrlcuscode = arg_s_mx.mtrlcuscode saletaskmxmx[it_mxbtmx].enprice = arg_s_mx.enprice saletaskmxmx[it_mxbtmx].rebate = arg_s_mx.rebate IF uo_option_price_rmb = 0 THEN saletaskmxmx[it_mxbtmx].fprice = arg_s_mx.enprice * mrate IF mrate = 0 THEN saletaskmxmx[it_mxbtmx].enacprice = saletaskmxmx[it_mxbtmx].fprice * arg_s_mx.rebate ELSE saletaskmxmx[it_mxbtmx].enacprice = saletaskmxmx[it_mxbtmx].fprice * arg_s_mx.rebate / mrate END IF saletaskmxmx[it_mxbtmx].price = saletaskmxmx[it_mxbtmx].fprice * arg_s_mx.rebate ELSE saletaskmxmx[it_mxbtmx].fprice = Round(arg_s_mx.enprice * mrate,2) IF mrate = 0 THEN saletaskmxmx[it_mxbtmx].enacprice = Round(saletaskmxmx[it_mxbtmx].fprice * arg_s_mx.rebate,2) ELSE saletaskmxmx[it_mxbtmx].enacprice = Round(saletaskmxmx[it_mxbtmx].fprice * arg_s_mx.rebate / mrate,2) END IF saletaskmxmx[it_mxbtmx].price = Round(saletaskmxmx[it_mxbtmx].fprice * arg_s_mx.rebate,2) END IF saletaskmxmx[it_mxbtmx].scidprice = arg_s_mx.scidprice saletaskmxmx[it_mxbtmx].outtypestr = arg_s_mx.outtypestr saletaskmxmx[it_mxbtmx].requiredate = arg_s_mx.requiredate saletaskmxmx[it_mxbtmx].pfcode = ls_pfcode saletaskmxmx[it_mxbtmx].pricetype = arg_s_mx.pricetype saletaskmxmx[it_mxbtmx].capacity = ld_capacity * arg_s_mx.saleqty saletaskmxmx[it_mxbtmx].nprice = arg_s_mx.nprice saletaskmxmx[it_mxbtmx].poid = arg_s_mx.poid //使用到的价格指令ID saletaskmxmx[it_mxbtmx].taxrate = arg_s_mx.taxrate saletaskmxmx[it_mxbtmx].addqty = arg_s_mx.addqty saletaskmxmx[it_mxbtmx].priceformula = arg_s_mx.priceformula IF uo_option_m_msttake = 1 THEN //使用多币种 msttakeamt = msttakeamt + Round(arg_s_mx.enprice * arg_s_mx.saleqty * arg_s_mx.rebate,2) ELSE // 系统不使用多币种,转换为人民币 msttakeamt = msttakeamt + Round(arg_s_mx.enprice * mrate * arg_s_mx.saleqty * arg_s_mx.rebate,2) END IF saletaskmxmx[it_mxbtmx].net_weight = arg_s_mx.net_weight saletaskmxmx[it_mxbtmx].gross_weight = arg_s_mx.gross_weight saletaskmxmx[it_mxbtmx].cubage = arg_s_mx.cubage //汇总到saletaskmx FOR ll_i = 1 To it_mxbt IF saletaskmx[ll_i].mtrlid = arg_s_mx.mtrlid And & saletaskmx[ll_i].status = arg_s_mx.status And & saletaskmx[ll_i].woodcode = arg_s_mx.woodcode And & saletaskmx[ll_i].pcode = arg_s_mx.pcode And & saletaskmx[ll_i].mtrlcuscode = arg_s_mx.mtrlcuscode And & saletaskmx[ll_i].enprice = arg_s_mx.enprice THEN saletaskmx[ll_i].saleqty = saletaskmx[ll_i].saleqty + arg_s_mx.saleqty saletaskmx[ll_i].capacity = saletaskmx[ll_i].capacity + ld_capacity * arg_s_mx.saleqty saletaskmx[ll_i].addqty = saletaskmx[ll_i].addqty + arg_s_mx.addqty IF arg_s_mx.requiredate < saletaskmx[ll_i].requiredate THEN saletaskmx[ll_i].requiredate = arg_s_mx.requiredate END IF saletaskmx[ll_i].dscrp = '' saletaskmx[ll_i].dscrp2 = '' GOTO ext END IF NEXT it_mxbt++ saletaskmx[it_mxbt].dftsaleprice = ld_dftsaleprice saletaskmx[it_mxbt].mtrlid = arg_s_mx.mtrlid saletaskmx[it_mxbt].saleqty = arg_s_mx.saleqty saletaskmx[it_mxbt].plprice = ld_planprice saletaskmx[it_mxbt].dscrp = arg_s_mx.mxdscrp saletaskmx[it_mxbt].dscrp2 = arg_s_mx.mxdscrp2 saletaskmx[it_mxbt].mtrlcode = arg_s_mx.mtrlcode saletaskmx[it_mxbt].status = arg_s_mx.status saletaskmx[it_mxbt].printid = it_mxbt saletaskmx[it_mxbt].woodcode = arg_s_mx.woodcode saletaskmx[it_mxbt].pcode = arg_s_mx.pcode saletaskmx[it_mxbt].mtrlcuscode = arg_s_mx.mtrlcuscode saletaskmx[it_mxbt].enprice = arg_s_mx.enprice saletaskmx[it_mxbt].rebate = arg_s_mx.rebate IF uo_option_price_rmb = 0 THEN saletaskmx[it_mxbt].fprice = arg_s_mx.enprice * mrate IF mrate = 0 THEN saletaskmx[it_mxbt].enacprice = saletaskmx[it_mxbt].fprice * arg_s_mx.rebate ELSE saletaskmx[it_mxbt].enacprice = saletaskmx[it_mxbt].fprice * arg_s_mx.rebate / mrate END IF saletaskmx[it_mxbt].acprice = saletaskmx[it_mxbt].fprice * arg_s_mx.rebate ELSE saletaskmx[it_mxbt].fprice = Round(arg_s_mx.enprice * mrate,2) IF mrate = 0 THEN saletaskmx[it_mxbt].enacprice = Round(saletaskmx[it_mxbt].fprice * arg_s_mx.rebate,2) ELSE saletaskmx[it_mxbt].enacprice = Round(saletaskmx[it_mxbt].fprice * arg_s_mx.rebate / mrate,2) END IF saletaskmx[it_mxbt].acprice = Round(saletaskmx[it_mxbt].fprice * arg_s_mx.rebate,2) END IF saletaskmx[it_mxbt].scidprice = arg_s_mx.scidprice saletaskmx[it_mxbt].outtype = arg_s_mx.outtypestr saletaskmx[it_mxbt].requiredate = arg_s_mx.requiredate saletaskmx[it_mxbt].pfcode = ls_pfcode saletaskmx[it_mxbt].quoteid = arg_s_mx.quoteid saletaskmx[it_mxbt].quotecode = arg_s_mx.quotecode saletaskmx[it_mxbt].quoteprintid = arg_s_mx.quoteprintid saletaskmx[it_mxbt].pricetype = arg_s_mx.pricetype saletaskmx[it_mxbt].capacity = ld_capacity * arg_s_mx.saleqty saletaskmx[it_mxbt].nprice = arg_s_mx.nprice saletaskmx[it_mxbt].poid = arg_s_mx.poid //使用到的价格指令ID saletaskmx[it_mxbt].dscrp_text = '' saletaskmx[it_mxbt].taxrate = arg_s_mx.taxrate saletaskmx[it_mxbt].addqty = arg_s_mx.addqty saletaskmx[it_mxbt].priceformula = arg_s_mx.priceformula saletaskmx[it_mxbt].sampleid = 0 saletaskmx[it_mxbt].net_weight = arg_s_mx.net_weight saletaskmx[it_mxbt].gross_weight = arg_s_mx.gross_weight saletaskmx[it_mxbt].cubage = arg_s_mx.cubage saletaskmx[it_mxbt].fjcnt = arg_s_mx.fjcnt saletaskmx[it_mxbt].fjstr = arg_s_mx.fjstr ext: IF rslt = 0 THEN p_clearmx() Destroy uo_price RETURN rslt end function private function integer uof_p_check_date (ref string arg_msg);Int rslt = 1 Long ll_i String ls_mtrlcode String ls_msg_pow DateTime serverdt IF Not f_power_ind(3990,ls_msg_pow) or sys_power_issuper THEN rslt = 1 GOTO ext END IF SELECT Top 1 getdate() Into :serverdt From u_user Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期,"+sqlca.SQLErrText GOTO ext END IF FOR ll_i = 1 To it_mxbt ls_mtrlcode = saletaskmx[ll_i].mtrlcode IF RelativeDate ( Date(serverdt), saletaskmx[ll_i].u_mtrldef_expday ) > Date(saletaskmx[ll_i].requiredate ) THEN arg_msg = '物料:'+ls_mtrlcode+',审核日期('+string(serverdt,'yyyy-mm-dd')+')+生产周期('+string(saletaskmx[ll_i].u_mtrldef_expday,'##0')+'天) > 订单明细交期('+string(saletaskmx[ll_i].requiredate,'yyyy-mm-dd')+'),请检查' rslt = 0 GOTO ext END IF NEXT ext: RETURN rslt end function public function integer acceptmx (long arg_mtrlid, decimal arg_qty, decimal arg_enprice, 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, long arg_quoteid, string arg_quotecode, long arg_quoteprintid, string arg_pricetype, decimal arg_nprice, long arg_poid, string arg_dscrp_text, decimal arg_taxrate, decimal arg_addqty, string arg_priceformula, long arg_sampleid, decimal arg_net_weight, decimal arg_gross_weight, decimal arg_cubage, long arg_fjcnt, string arg_fjstr, ref string arg_msg);Int rslt = 1 Long cnt = 0,ls_i,ll_i Decimal ld_dftsaleprice Decimal ld_planprice Decimal ld_stoppqty,ld_stopsaleqty decimal lde_list_price, lde_porebate uo_cusprice uo_price uo_price = Create uo_cusprice 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 uo_option_m_msttake = -1000 Then arg_msg = '选项:[045]系统使用多币种应收帐,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If uo_option_checkprice_native = -1000 Then arg_msg = '选项:[056]销售价格按本位币限价,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If uo_option_if_pricetype = -1000 Then arg_msg = '选项:[154]启用价格分类,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If uo_option_price_rmb = -1000 Then arg_msg = '选项:[238]销售单价按人民币单价折算,读取初始默认值失败,操作取消!' 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_enprice) Then arg_enprice = 0 If IsNull(arg_rebate) Then arg_rebate = 0 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_quoteid) Then arg_quoteid = 0 If IsNull(arg_quotecode) Then arg_quotecode = '' If IsNull(arg_quoteprintid) Then arg_quoteprintid = 0 If IsNull(arg_nprice) Then arg_nprice = 0 If IsNull(arg_poid) Then arg_poid = 0 If IsNull(arg_dscrp_text) Then arg_dscrp_text = '' If IsNull(arg_taxrate) Then arg_taxrate = 0 If IsNull(arg_addqty) Then arg_addqty = 0 If IsNull(arg_priceformula) Then arg_priceformula = '' If IsNull(arg_sampleid) Then arg_sampleid = 0 If IsNull(arg_net_weight) Then arg_net_weight = 0 If IsNull(arg_gross_weight) Then arg_gross_weight = 0 If IsNull(arg_cubage) Then arg_cubage = 0 arg_status = Trim(arg_status) arg_woodcode = Trim(arg_woodcode) arg_pcode = Trim(arg_pcode) arg_mtrlcuscode = Trim(arg_mtrlcuscode) If arg_mtrlid = 0 Or arg_qty = 0 Then rslt = 1 Goto ext End If If Kind > 0 Then If uo_option_sale_ifuse_negativeprice = 0 Then If arg_enprice * arg_rebate < 0 Then rslt = 0 arg_msg = "产品：" + String(arg_mtrlcode)+" 单价错误" Goto ext End If End If If arg_rebate < 0 Then arg_msg = '折扣错误,请检查' rslt = 0 Goto ext End If If arg_taxrate < 0 Then arg_msg = '不合理的税率' rslt = 0 Goto ext End If End If //检查物料id Int li_statusflag,li_woodcodeflag,li_pcodeflag Int li_isuse,li_ifpackpro Decimal ld_capacity,ld_capacity_zj s_mtrlcfg_expr s_pz[] String ls_status_zj Int li_status_check,li_woodcode_check,li_pcode_check Select planprice, statusflag, capacity, woodcodeflag, pcodeflag, status_check, woodcode_check, pcode_check, capacity * capaparm, isuse, ifpackpro Into :ld_planprice, :li_statusflag, :ld_capacity, :li_woodcodeflag, :li_pcodeflag, :li_status_check, :li_woodcode_check, :li_pcode_check, :ld_capacity, :li_isuse, :li_ifpackpro From u_mtrldef Where u_mtrldef.mtrlid = :arg_mtrlid Using commit_transaction ; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "查询操作失败,产品计划价" Goto ext End If If Kind = 0 And li_isuse = 2 Then arg_msg = '行:'+String(arg_printid)+',物料是待停产物料,不能建立销售预测单' rslt = 0 Goto ext End If String ls_pfcode If li_ifpackpro = 5 And taskid > 0 Then ls_pfcode = Trim(taskcode)+'.'+String(arg_printid) Else ls_pfcode = '[' + arg_status + ']' & + '[' + arg_woodcode + ']' & + '[' + arg_pcode + ']' If Len(ls_pfcode) > 255 Then ls_pfcode = Mid(ls_pfcode, 1, 251) + '...]' End If cnt = 0 Select count(*) Into :cnt From u_mtrl_pf Where pfcode = :ls_pfcode mtrlid = :arg_mtrlid; If sqlca.SQLCode <> 0 Then cnt = 0 If cnt = 0 Then ls_pfcode = f_get_dft_pf(arg_mtrlid) End If End If If li_statusflag = 2 Then If arg_status = '' Then arg_msg = '行:'+String(arg_printid)+',物料'+uo_option_change_status + '字段使用组合配置,请输入' rslt = 0 Goto ext End If 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 * capaparm Into :ld_capacity_zj From u_mtrl_configure Where mtrlid = :arg_mtrlid And Name = :ls_status_zj Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '行:'+String(arg_printid)+",物料查询子件 "+ls_status_zj+" 折算套数参数操作失败" Goto ext End If ld_capacity = ld_capacity + ld_capacity_zj * Dec(s_pz[ll_i].qty) Next ElseIf li_statusflag = 4 And li_status_check = 1 Then If arg_status = '' Then arg_msg = '行:'+String(arg_printid)+',物料'+uo_option_change_status + '字段使用部件选配,请输入' rslt = 0 Goto ext End If ElseIf li_statusflag = 1 Or li_statusflag = 0 Then If f_check_status(1,arg_status) = 0 Then rslt = 0 arg_msg = '行:'+String(arg_printid)+",物料查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_status Goto ext End If End If If li_woodcodeflag = 4 And li_woodcode_check = 1 Then If arg_woodcode = '' Then arg_msg = '行:'+String(arg_printid)+',物料'+uo_option_change_woodcode + '字段使用部件选配,请输入' rslt = 0 Goto ext End If ElseIf li_woodcodeflag = 1 Or li_woodcodeflag = 0 Then If f_check_status(2,arg_woodcode) = 0 Then rslt = 0 arg_msg = '行:'+String(arg_printid)+",物料查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_woodcode Goto ext End If End If If li_pcodeflag = 4 And li_pcode_check = 1 Then If arg_pcode = '' Then arg_msg = '行:'+String(arg_printid)+',物料'+uo_option_change_pcode + '字段使用部件选配,请输入' rslt = 0 Goto ext End If ElseIf li_pcodeflag = 1 Or li_pcodeflag = 0 Then If f_check_status(3,arg_pcode) = 0 Then rslt = 0 arg_msg = '行:'+String(arg_printid)+",物料查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_pcode Goto ext End If End If If Kind > 0 And Kind <> 4 Then ld_dftsaleprice = 0 f_get_defsaleprice(cusid,arg_mtrlid,arg_status,arg_pcode,arg_woodcode,moneyid,ld_dftsaleprice) End If If Kind = 1 Then Int li_ifcheckprice,ll_pricelimittype // IF uo_option_if_pricetype = 1 And arg_pricetype <> '' THEN Select pricelimittype Into :ll_pricelimittype From u_saletype Where typeid = :typeid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = '查询销售订单分类属性失败,'+commit_transaction.SQLErrText Goto ext End If If arg_pricetype <> '' Then Select ifcheckprice Into :li_ifcheckprice From u_pricetype Where pricetype = :arg_pricetype Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询价格分类是否属于赠送类型失败,'+commit_transaction.SQLErrText rslt = 0 Goto ext End If Else li_ifcheckprice = 1 End If If li_ifcheckprice = 2 Then arg_rebate = 0 If li_ifcheckprice = 1 And ll_pricelimittype = 1 Then If uo_option_checkprice_native = 1 Then If uo_price.uof_check_price_saletask (typeid,cusid,arg_mtrlid,& arg_mtrlcode,arg_status,arg_woodcode,arg_pcode,& moneyid,scid,arg_quoteid,arg_quoteprintid,arg_enprice * mrate * arg_rebate,arg_qty,arg_msg) = 0 Then rslt = 0 Goto ext End If Else If uo_price.uof_check_price_saletask (typeid,cusid,arg_mtrlid,& arg_mtrlcode,arg_status,arg_woodcode,arg_pcode,& moneyid,scid,arg_quoteid,arg_quoteprintid,arg_enprice * arg_rebate,arg_qty,arg_msg) = 0 Then rslt = 0 Goto ext End If End If End If // END IF // Select stoppqty,stopsaleqty,isuse // Into :ld_stoppqty,:ld_stopsaleqty,:li_isuse // From u_mtrldef // Where mtrlid = :arg_mtrlid Using commit_transaction; // If commit_transaction.SQLCode <> 0 Then // arg_msg = '查询:'+arg_mtrlcode+'资料属性失败,'+commit_transaction.SQLErrText // rslt = 0 // Goto ext // End If // // If li_isuse = 2 Then // If arg_qty > ld_stoppqty - ld_stopsaleqty Then // arg_msg = '产品:'+arg_mtrlcode+' 已待停产,待停产后可订数量为:'+String(ld_stoppqty,'#,##0.##########')+',待停产后已订数量为:'+String(ld_stopsaleqty,'#,##0.##########')+',不能再订:'+String(arg_qty,'#,##0.##########') // rslt = 0 // Goto ext // End If // End If End If //使用价格策略的 if arg_poid > 0 then //记录目标折扣 SELECT top 1 u_sale_price_mx.price INTO :lde_list_price FROM u_sale_price_list INNER JOIN u_sale_price_mx ON u_sale_price_list.pricelistid = u_sale_price_mx.pricelistid WHERE (u_sale_price_list.dftflag = 1) AND (u_sale_price_mx.flag = 1) And (u_sale_price_mx.mtrlid = :arg_mtrlid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN lde_list_price = 0 END IF if lde_list_price > 0 then lde_porebate = round(arg_enprice / lde_list_price, 5) else lde_porebate = 0 end if end if //FOR ls_i = 1 TO it_mxbt //合并重复项 // IF saletaskmx[ls_i].mtrlid = arg_mtrlid AND & // saletaskmx[ls_i].status = arg_status AND & // saletaskmx[ls_i].pcode = arg_pcode AND & // saletaskmx[ls_i].mtrlcuscode = arg_mtrlcuscode AND & // saletaskmx[ls_i].woodcode = arg_woodcode AND & // saletaskmx[ls_i].outtype = arg_outtype THEN // // saletaskmx[ls_i].saleqty = saletaskmx[ls_i].saleqty+arg_qty // rslt = 1 // GOTO ext // END IF //NEXT //写入内容 it_mxbt++ saletaskmx[it_mxbt].dftsaleprice = ld_dftsaleprice saletaskmx[it_mxbt].mtrlid = arg_mtrlid saletaskmx[it_mxbt].saleqty = arg_qty 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].enprice = arg_enprice saletaskmx[it_mxbt].rebate = arg_rebate If uo_option_price_rmb = 0 Then saletaskmx[it_mxbt].fprice = arg_enprice * mrate If mrate = 0 Then saletaskmx[it_mxbt].enacprice = saletaskmx[it_mxbt].fprice * arg_rebate Else saletaskmx[it_mxbt].enacprice = saletaskmx[it_mxbt].fprice * arg_rebate / mrate End If saletaskmx[it_mxbt].acprice = saletaskmx[it_mxbt].fprice * arg_rebate Else saletaskmx[it_mxbt].fprice = Round(arg_enprice * mrate,2) If mrate = 0 Then saletaskmx[it_mxbt].enacprice = Round(saletaskmx[it_mxbt].fprice * arg_rebate,2) Else saletaskmx[it_mxbt].enacprice = Round(saletaskmx[it_mxbt].fprice * arg_rebate / mrate,2) End If saletaskmx[it_mxbt].acprice = Round(saletaskmx[it_mxbt].fprice * arg_rebate,2) End If saletaskmx[it_mxbt].scidprice = arg_scidprice saletaskmx[it_mxbt].outtype = arg_outtype saletaskmx[it_mxbt].requiredate = arg_requiredate saletaskmx[it_mxbt].pfcode = ls_pfcode saletaskmx[it_mxbt].quoteid = arg_quoteid saletaskmx[it_mxbt].quotecode = arg_quotecode saletaskmx[it_mxbt].quoteprintid = arg_quoteprintid saletaskmx[it_mxbt].pricetype = arg_pricetype saletaskmx[it_mxbt].capacity = ld_capacity * arg_qty saletaskmx[it_mxbt].nprice = arg_nprice saletaskmx[it_mxbt].poid = arg_poid //使用到的价格指令ID saletaskmx[it_mxbt].dscrp_text = arg_dscrp_text saletaskmx[it_mxbt].taxrate = arg_taxrate saletaskmx[it_mxbt].addqty = arg_addqty saletaskmx[it_mxbt].priceformula = arg_priceformula saletaskmx[it_mxbt].sampleid = arg_sampleid If uo_option_m_msttake = 1 Then //使用多币种 msttakeamt = msttakeamt + Round(arg_enprice * arg_qty * arg_rebate,2) Else // 系统不使用多币种,转换为人民币 msttakeamt = msttakeamt + Round(arg_enprice * mrate * arg_qty * arg_rebate,2) End If saletaskmx[it_mxbt].net_weight = arg_net_weight saletaskmx[it_mxbt].gross_weight = arg_gross_weight saletaskmx[it_mxbt].cubage = arg_cubage saletaskmx[it_mxbt].fjcnt = arg_fjcnt saletaskmx[it_mxbt].fjstr = arg_fjstr saletaskmx[it_mxbt].porebate = lde_porebate ext: If rslt = 0 Then p_clearmx() Destroy uo_price Return rslt end function private function integer uof_p_check_packprobom (ref string arg_msg);Int rslt = 1 Long ll_i String ls_mtrlcode,ls_msg Long ll_mtrlid Long cnt Int li_ifpackpro IF uo_option_saletask_packprobom_check = -1000 THEN arg_msg = '选项:[399]销售订单审核检查包件产品选项,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF uo_option_saletask_packprobom_check = 0 THEN rslt = 1 GOTO ext END IF FOR ll_i = 1 To it_mxbt ll_mtrlid = saletaskmx[ll_i].mtrlid ls_mtrlcode = saletaskmx[ll_i].mtrlcode SELECT ifpackpro INTO :li_ifpackpro FROM u_mtrldef Where mtrlid = :ll_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '物料:'+ls_mtrlcode+'查询信息失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF li_ifpackpro = 1 Or li_ifpackpro = 2 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_Mtrl_pf WHERE u_Mtrl_pf.mtrlid = :ll_mtrlid AND u_Mtrl_pf.flag = 0 And u_Mtrl_pf.ifdft = 1; IF sqlca.SQLCode <> 0 THEN ls_msg += '查询产品:'+ls_mtrlcode + ',默认清单是否审核失败,'+sqlca.SQLErrText+' ~r~n ' CONTINUE END IF IF cnt > 0 THEN ls_msg += '产品:'+ls_mtrlcode + ',默认清单未审核,请检查'+' ~r~n ' CONTINUE END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_PrdPF,u_Mtrl_pf,u_mtrldef WHERE u_Mtrl_pf.mtrlid = :ll_mtrlid AND u_PrdPF.pfcode = u_Mtrl_pf.pfcode AND u_PrdPF.mtrlid = u_Mtrl_pf.mtrlid AND u_PrdPF.sonmtrlid = u_mtrldef.mtrlid AND u_Mtrl_pf.ifdft = 1 And u_mtrldef.ifpack > 0; IF sqlca.SQLCode <> 0 THEN ls_msg += '查询产品:'+ls_mtrlcode + ',默认清单是否含有包件失败,'+sqlca.SQLErrText+' ~r~n ' CONTINUE END IF IF cnt = 0 THEN ls_msg += '产品:'+ls_mtrlcode + ',默认清单未含有包件,请检查'+' ~r~n ' CONTINUE END IF END IF NEXT IF ls_msg <> '' THEN arg_msg = ls_msg rslt = 0 GOTO ext END IF ext: RETURN rslt end function public function integer uof_add_reminddscrp (long arg_scid, long arg_taskid, string arg_reminddscrp, ref string arg_msg, boolean arg_ifcommit);//add_dscrp(string arg_newdescppart) //0 fail 1 SUCCESS Int rslt = 1 arg_reminddscrp = Trim(arg_reminddscrp) IF it_updatebegin Or it_newbegin THEN rslt = 0 arG_MSG = "编辑状态下不可用" GOTO ext END IF IF arg_reminddscrp = '' THEN rslt = 0 arG_MSG = "要添加内容为空,操作取消" GOTO ext END IF IF p_getinfo(arg_scid,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 SET reminddscrp = reminddscrp + :arg_reminddscrp WHERE u_saletask.taskid = :arg_taskid And scid = :arg_scid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "因网络或其它原因导致修改销售订单相关号操作失败"+"~n"+ commit_transaction.SQLErrText GOTO ext END IF 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 priceaudit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_notsecaudit_amt,ld_notsecaudit_enamt,ld_notsecaudit_billamt Decimal arg_cusbalcamt,arg_cusmaxamt,arg_outrep_balcamt,arg_outrep_maxamt Int lst Decimal ld_maxamt_user If uo_option_saletask_affirm_produce = -1000 Then arg_msg = '选项:[413]销售订单财务确认后排产,读取初始默认值失败,操作取消!' rslt = 0 Goto ext End If If p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 Then rslt = 0 Goto ext End If If priceflag = 1 Then rslt = 0 arg_msg = '单据已确认,不能再确认' Goto ext End If If uo_option_saletask_affirm_produce > 0 And Status <> 1 Then rslt = 0 arg_msg = '选项:[413]销售订单财务确认后排产 开启后,单据只能在进行后才能财务确认' Goto ext End If If uo_option_saletask_affirm_produce = 2 Then //检查信用额 Select sum(round(u_outwaremx.qty * u_outwaremx.price,2)), sum(round(u_outwaremx.qty * u_outwaremx.enprice * u_outwaremx.rebate,2)) Into :ld_notsecaudit_amt,:ld_notsecaudit_enamt From u_outware,u_outwaremx Where u_outware.scid = u_outwaremx.scid And u_outware.outwareid = u_outwaremx.outwareid And u_outware.billtype = 1 And u_outware.secflag = 0 And u_outware.cusid = :cusid And (:sys_option_scid_msttake_mstpay = 1 And u_outware.scid = :scid Or :sys_option_scid_msttake_mstpay = 0 ) And (:sys_option_m_msttake = 1 And u_outware.relint_2 = :moneyid Or :sys_option_m_msttake = 0); If sqlca.SQLCode <> 0 Then ld_notsecaudit_amt = 0 ld_notsecaudit_enamt = 0 End If If IsNull(ld_notsecaudit_amt) Then ld_notsecaudit_amt = 0 If IsNull(ld_notsecaudit_enamt) Then ld_notsecaudit_enamt = 0 If sys_option_m_msttake = 1 Then ld_notsecaudit_billamt = ld_notsecaudit_enamt Else ld_notsecaudit_billamt = ld_notsecaudit_amt End If Select maxamt Into :ld_maxamt_user From u_user Where empid = :sys_empid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询当前操作员信用额失败,'+sqlca.SQLErrText Goto ext End If lst = f_getcusrepamt_info(cusid,scid,moneyid,arg_cusbalcamt,arg_cusmaxamt,arg_outrep_balcamt,arg_outrep_maxamt) If lst <= 0 Then rslt = 0 arg_msg = '查询信用额及欠款失败' Goto ext Else If arg_cusbalcamt + ld_notsecaudit_billamt + msttakeamt > arg_cusmaxamt + ld_maxamt_user Then rslt = 0 arg_msg = '客户信用额 + 操作员信用额 - 客户欠款 - 未财务审金额 - 本单金额:'+String(arg_cusmaxamt,'#0.0#')+' + '+String(ld_maxamt_user,'#0.0#') + ' - '+String(arg_cusbalcamt,'#0.0#')+ ' - '+String(ld_notsecaudit_billamt,'#0.0#') + ' - '+String(msttakeamt,'#0.0#') + ' = ' + String(arg_cusmaxamt + ld_maxamt_user - arg_cusbalcamt - ld_notsecaudit_billamt - msttakeamt,'#0.0#') + ',客户欠款超信用额,不能财务确认' Goto ext End If End If End If Update u_saletask Set pricerep = :publ_operator, pricedate = getdate(), priceflag = 1 Where taskid = :arg_taskid And priceflag = 0 And scid = :arg_scid 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 priceflag = 1 ext: If rslt = 0 Then Rollback Using commit_transaction; ElseIf rslt = 1 And arg_ifcommit Then Commit Using commit_transaction; End If Return rslt end function public function integer c_priceaudit (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 datetime null_dt setnull(null_dt) If p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 Then rslt = 0 Goto ext End If If priceflag = 0 Then rslt = 0 arg_msg = '单据未确认,不能反确认' Goto ext End If Update u_saletask Set pricerep = '', pricedate = :null_dt, priceflag = 0 Where taskid = :arg_taskid And priceflag = 1 And scid = :arg_scid 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 priceflag = 0 ext: If rslt = 0 Then Rollback Using commit_transaction; ElseIf rslt = 1 And arg_ifcommit Then Commit Using commit_transaction; End If Return rslt end function public function integer uof_add_mx (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Integer rslt = 1 Long i String ls_mtrlcuscode Long ll_printid IF uo_option_taskplancode_auto = -1000 THEN arg_msg = '选项:[048]销售订单生产批号类型,读取初始默认值失败,操作取消!' rslt = 0 GOTO ext END IF IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF priceflag = 1 THEN rslt = 0 arg_msg = '单据已确认,不能补充明细' GOTO ext END IF IF status <> 0 THEN rslt = 0 arg_msg = '单据已审核,不能补充明细' GOTO ext END IF SELECT max(printid) INTO :ll_printid FROM u_saletaskmx WHERE scid = :arg_scid And taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询单据明细信息失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF IsNull(ll_printid) THEN ll_printid = 0 FOR i = 1 To it_mxbt ls_mtrlcuscode = '' IF Kind = 4 THEN ls_mtrlcuscode = saletaskmx[i].mtrlcuscode ELSE CHOOSE CASE uo_option_taskplancode_auto CASE 1 ls_mtrlcuscode = saletaskmx[i].mtrlcuscode CASE 2 ls_mtrlcuscode = taskcode CASE 3 ls_mtrlcuscode = relcode CASE 4 ls_mtrlcuscode = taskcode + '.' + String(i,'000') CASE 5 ls_mtrlcuscode = '' CASE ELSE arg_msg = '错误的生产批号,管理员请先设定好订单批号模式' rslt = 0 GOTO ext END CHOOSE END IF ll_printid++ INSERT INTO u_saletaskmx ( scid, taskid, mtrlid, saleqty, price, plprice, mxdscrp, mxdscrp2, fprice, rebate, status, printid, woodcode, pcode, mtrlcuscode, enprice, outtypestr, dftsaleprice, requiredate, pfcode, scidprice, quoteid, quotecode, quoteprintid, pricetype, capacity, nprice, poid, taxrate, addqty, priceformula, sampleid, enacprice, net_weight, gross_weight, cubage, fjcnt, fjstr, porebate) VALUES (:arg_scid, :arg_taskid, :saletaskmx[i].mtrlid, :saletaskmx[i].saleqty, :saletaskmx[i].acprice, :saletaskmx[i].plprice, :saletaskmx[i].dscrp, :saletaskmx[i].dscrp2, :saletaskmx[i].fprice, :saletaskmx[i].rebate, :saletaskmx[i].status, :ll_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].quoteid, :saletaskmx[i].quotecode, :saletaskmx[i].quoteprintid, :saletaskmx[i].pricetype, :saletaskmx[i].capacity, :saletaskmx[i].nprice, :saletaskmx[i].poid, :saletaskmx[i].taxrate, :saletaskmx[i].addqty, :saletaskmx[i].priceformula, :saletaskmx[i].sampleid, :saletaskmx[i].enacprice, :saletaskmx[i].net_weight, :saletaskmx[i].gross_weight, :saletaskmx[i].cubage, :saletaskmx[i].fjcnt, :saletaskmx[i].fjstr, :saletaskmx[i].porebate) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; p_clearmx() msttakeamt = 0 ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF RETURN rslt end function on uo_saletask.create call super::create TriggerEvent( this, "constructor" ) end on on uo_saletask.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('045',str_optionvalue,arg_msg) uo_option_m_msttake = Long(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('088',str_optionvalue,arg_msg) uo_option_saletask_fore_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('227',str_optionvalue,arg_msg) uo_option_if_oa_saletask_fore = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('048',str_optionvalue,arg_msg) uo_option_taskplancode_auto = 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('051',str_optionvalue,arg_msg) uo_option_taskaudit_dprice = 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('044',str_optionvalue,arg_msg) uo_option_if_msg = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('201',str_optionvalue,arg_msg) uo_option_saletask_set_planprice = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('056',str_optionvalue,arg_msg) uo_option_checkprice_native = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('142',str_optionvalue,arg_msg) uo_option_inout_type = Long(str_optionvalue) str_optionvalue = '' f_get_sys_option_value('154',str_optionvalue,arg_msg) uo_option_if_pricetype = Long(str_optionvalue) f_get_sys_option_value('200',str_optionvalue,arg_msg) uo_option_if_saleout = Long(str_optionvalue) f_get_sys_option_value('200',str_optionvalue,arg_msg) uo_option_if_saleout = Long(str_optionvalue) f_get_sys_option_value('291',str_optionvalue,arg_msg) uo_option_disuse_saletask = Long(str_optionvalue) f_get_sys_option_value('300',str_optionvalue,arg_msg) uo_option_sale_ifuse_negativeprice = Long(str_optionvalue) f_get_sys_option_value('301',str_optionvalue,arg_msg) uo_option_saletask_ifuse_typebillcode = Long(str_optionvalue) f_get_sys_option_value('238',str_optionvalue,arg_msg) uo_option_price_rmb = Long(str_optionvalue) f_get_sys_option_value('335',str_optionvalue,arg_msg) uo_option_dd_allto_pqty = Long(str_optionvalue) f_get_sys_option_value('364',str_optionvalue,arg_msg) uo_option_saletask_rebate_check = Long(str_optionvalue) f_get_sys_option_value('399',str_optionvalue,arg_msg) uo_option_saletask_packprobom_check = Long(str_optionvalue) f_get_sys_option_value('402',str_optionvalue,arg_msg) uo_option_saletask_fore_addware = Long(str_optionvalue) f_get_sys_option_value('404',str_optionvalue,arg_msg) uo_option_saletask_stopqty_type = Long(str_optionvalue) f_get_sys_option_value('413',str_optionvalue,arg_msg) uo_option_saletask_affirm_produce = Long(str_optionvalue) end event