$PBExportHeader$uo_saletask.sru forward global type uo_saletask from nonvisualobject end type type s_saletaskmx_mx from structure within uo_saletask end type end forward type s_saletaskmx_mx from structure long mtrlwareid decimal { 5 } qty 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 Long banktypeid Long moneyid Decimal damt Decimal otheramt Decimal mrate Decimal msttakeamt Int Kind Long cusid String assign_emp DateTime requiredate DateTime taskdate String freight string transcode string carcode String dscrp String dscrp2 String relcode String paytype String freight_tele String cus_address String cus_tele String cus_tele1 String cus_fax string dscrp3 string rel_rep string freight_address datetime sendTime string sendUser string fiebrelcode long priceflag //确认 Transaction commit_transaction //数据commit事务 PRIVATE: s_saletaskmx saletaskmx[] //明细结构 Long it_mxbt = 0 //明细结构数组末指针 Boolean it_newbegin = FALSE //新建标志 Boolean it_updatebegin = FALSE//修改标志 s_saletaskmx_mx taskmx[] Long it_mxbt_mx = 0 decimal mx_sumqty = 0 s_saletask_itemmx saletask_itemmx[] Long it_mxbt_item = 0 Long it_mxbt_pf = 0 //清单反扣MEI 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 finishtask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer getinfo (long arg_scid, long arg_taskid, ref string arg_msg) public function integer propermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer salepermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer stopsaletask (long arg_scid, long arg_taskid, 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 uof_del_del (long arg_scid, long arg_taskid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_mx (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlchangecode, ref string arg_msg, boolean arg_ifcommit) public function integer uof_mtrlchange (long arg_scid, long arg_taskid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, long arg_smtrlid, long arg_omtrlid, string arg_pfgroup, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx_mx (long arg_scid, long arg_mtrlwareid, decimal arg_qty, ref string arg_msg) public function integer addmxcmpl_assign (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, integer arg_plantype, decimal arg_addqty, boolean arg_ifcommit, ref string arg_msg) public function integer uof_update_relcode (long arg_scid, long arg_taskid, string arg_newrelcode, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_0_mtrlware (ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx (long arg_mtrlid, decimal arg_usaleqty, decimal arg_orderqty, decimal arg_needbuyqty, decimal arg_enprice, decimal arg_rebate, decimal arg_planprice, string arg_dscrp, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, long arg_printid, integer arg_outtype, ref string arg_msg, string arg_unit, decimal arg_rate, string arg_formula, decimal arg_addqty, string arg_mxdscrp2, decimal arg_needwfjgqty, string arg_plancode, decimal arg_tax) public function integer acceptmx (s_saletaskmx s_mx, ref string arg_msg) public function integer finishtask_cancel (long arg_scid, long arg_taskid, 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 uof_stopqty (long arg_scid, long arg_taskid, long arg_printid, decimal arg_stopqty, string arg_stopreason, ref string arg_msg, boolean arg_ifcommit) public function integer uof_add_tc (long arg_scid, long arg_taskid, s_saletaskmx s_mx[], s_saletaskmx_outrep s_mx_rep[], ref string arg_msg, boolean arg_ifcommit) public function integer audit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer audit_cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx_item (s_saletask_itemmx arg_item, ref string arg_msg) public function integer save_end (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 acceptmx_chk (s_saletaskmx s_mx, ref string arg_msg) public function integer auditing_chk (ref string arg_msg) public function integer uf_create_scll (long arg_scid, long arg_billid, string arg_billcode, ref string arg_msg) public function integer uf_get_pfmtrlmx (long arg_mtrlid, decimal arg_qty, ref s_inware_cp_fkmx arg_s_fkmx, ref string arg_msg) public function integer uf_cmpl_rqmtrl (long arg_mtrlid, decimal arg_qty, long arg_lp, long arg_flag, string arg_mtrlcode, s_inware_cp_fkmx arg_s_fkmx, string arg_msg) public function integer uf_get_mtrlware (long arg_storageid, long arg_mtrlid, decimal arg_qty, string arg_mtrlcode, string arg_storagename, ref s_mtrlware_fk s_fk, ref string arg_msg) public function integer uf_update_inware_cost (ref string arg_msg, boolean arg_ifcommit) public function integer uf_destroy_scll (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit) public function integer priceaudit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer priceaudit_cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit) public function integer uf_chk_assemble_qty (long arg_scid, ref string arg_msg) public function integer salecheck (long arg_scid, long arg_taskid, long arg_printid, string arg_emp, ref string arg_msg, boolean arg_ifcommit) public function integer salecheck_cancel (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_insertwaste (integer arg_wastetype, integer arg_taskid, integer arg_scid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_save_dytitle_saletask (long arg_hang, string arg_name, string arg_dwtitlename, string arg_execltitlename, string arg_filtername, ref string arg_msg) 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= '' it_newbegin=false it_updatebegin=false //清除明细 p_clearmx() return 1 end function public function integer p_clearmx ();//INT p_clearmx() //清除明细 it_mxbt=0 it_mxbt_item=0 msttakeamt = 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 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, scid, cus_tele1, priceflag INTO :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, :scid, :cus_tele1, :priceflag 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 = '查询订单内容失败(错误订单唯一码)' 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 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 priceflag = 1 THEN rslt = 0 arg_msg = '单据已确认，不能删除' GOTO ext END IF IF Status <> 0 THEN rslt = 0 arg_msg = "订单已经审核,不可以删除" GOTO ext END IF SELECT count(*) INTO :cnt FROM u_taskdamt_mx INNER JOIN u_taskdamt ON u_taskdamt_mx.billid = u_taskdamt.billid WHERE u_taskdamt_mx.relid = :arg_taskid And u_taskdamt_mx.scid = :arg_scid and u_taskdamt.billtype = 0; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询订单是否有相关订单收款单数据失败,"+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN rslt = 0 arg_msg = "订单已经有相关订单收款单数据,不可以删除" GOTO ext END IF if sys_saletask_autowaste = 1 then //登记删除 if uof_insertwaste(0,taskid,scid,arg_msg,false) = 0 then arg_msg = '插入销售废弃单操作失败,'+commit_transaction.SQLErrText 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 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 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 Status <> 1 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 //检查生产进仓 cnt = 0 SELECT COUNT(*) INTO :cnt FROM u_inware,u_inwaremx WHERE ( u_inware.billtype = 3 ) AND ( u_inware.scid = u_inwaremx.scid ) AND ( u_inware.inwareid = u_inwaremx.inwareid ) AND ( u_inwaremx.relid = :arg_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 //检查采购订单 已订购数 cnt = 0 SELECT COUNT(*) INTO :cnt FROM u_buytask INNER join u_buytaskmx on u_buytask.scid = u_buytaskmx.scid AND u_buytask.taskid = u_buytaskmx.taskid WHERE u_buytask.billtype <> 0 AND u_buytask.scid = :arg_scid And u_buytaskmx.relid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = "查询销售订单是否建立采购订单操作失败"+"~n"+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关采购订单,不可以撤消审核" GOTO ext END IF //检查外协订单 已订购数 cnt = 0 SELECT COUNT(*) INTO :cnt FROM u_order_wfjg INNER join u_order_wfjgMx on u_order_wfjg.scid = u_order_wfjgMx.scid AND u_order_wfjg.wfjgid = u_order_wfjgMx.wfjgid WHERE u_order_wfjg.billtype <> 0 AND u_order_wfjg.scid = :arg_scid And u_order_wfjgMx.orderid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = "查询销售订单是否建立外协订单操作失败"+"~n"+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关外协订单,不可以撤消审核" GOTO ext END IF //检查排产 IF sys_version <> 802001 THEN Long ll_scllflag,ll_flag,ll_ifsc,i,ll_count FOR i = 1 To it_mxbt ll_count = 0 SELECT scllflag, flag, ifsc INTO :ll_scllflag, :ll_flag, :ll_ifsc FROM u_saletaskmx WHERE u_saletaskmx.scid = :arg_scid AND u_saletaskmx.taskid = :arg_taskid AND u_saletaskmx.printid = :saletaskmx[i].printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "销售订单明细行:" + String(saletaskmx[i].printid) + "信息操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF ll_scllflag = 1 THEN rslt = 0 ARG_MSG = "销售订单明细行:" + String(saletaskmx[i].printid) + ",编码:" + saletaskmx[i].mtrlcode + "已领料审核，销售订单不能撤审!" GOTO ext END IF IF ll_flag = 1 THEN rslt = 0 ARG_MSG = "销售订单明细行:" + String(saletaskmx[i].printid) + ",编码:" + saletaskmx[i].mtrlcode + "已审核，销售订单不能撤审!" GOTO ext END IF IF ll_ifsc = 1 THEN rslt = 0 ARG_MSG = "销售订单明细行:" + String(saletaskmx[i].printid) + ",编码:" + saletaskmx[i].mtrlcode + "已排产，销售订单不能撤审!" GOTO ext END IF SELECT count(*) INTO :ll_count FROM u_saletaskmx_card WHERE u_saletaskmx_card.scid = :arg_scid AND u_saletaskmx_card.taskid = :arg_taskid AND u_saletaskmx_card.mxprintid = :saletaskmx[i].printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "销售订单明细行:" + String(saletaskmx[i].printid) + "信息操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF ll_count > 0 THEN rslt = 0 ARG_MSG = "销售订单明细行:" + String(saletaskmx[i].printid) + ",编码:" + saletaskmx[i].mtrlcode + "已生成流程卡，销售订单不能撤审!" GOTO ext END IF NEXT END IF //检查计件 //个人产品工序 已开单数 cnt = 0 SELECT COUNT(*) INTO :cnt FROM u_scwg_taskwork_2,u_scwg_taskwork_2_mx WHERE u_scwg_taskwork_2_mx.billid = u_scwg_taskwork_2.billid AND u_scwg_taskwork_2_mx.orderid = :arg_taskid And u_scwg_taskwork_2_mx.relscid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = "查询销售订单是否建立个人产品工序计件单操作失败"+"~n"+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关个人产品工序计件单,不可以撤消审核" GOTO ext END IF //产品个人工序 已开单数 cnt = 0 SELECT COUNT(*) INTO :cnt FROM u_sc_taskworkmx,u_sc_taskwork WHERE u_sc_taskworkmx.billid = u_sc_taskwork.billid AND u_sc_taskworkmx.scid = u_sc_taskwork.scid And u_sc_taskwork.orderid = :arg_taskid; IF sqlca.SQLCode <> 0 THEN ARG_MSG = "查询销售订单是否建立产品个人工序计件单操作失败"+"~n"+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt > 0 THEN rslt = 0 ARG_MSG = "销售订单已经有相关产品个人工序计件单,不可以撤消审核" GOTO ext END IF //订单收款单 cnt = 0 select count(*) into :cnt from u_taskdamt_mx inner join u_taskdamt on u_taskdamt_mx.scid = u_taskdamt.scid and u_taskdamt_mx.billid = u_taskdamt.billid where u_taskdamt_mx.scid = :arg_scid and u_taskdamt_mx.relid = :arg_taskid and u_taskdamt.billtype = 0; 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 UPDATE u_SaleTask SET Status = 4, permit_emp = '', permit_date = :nulldate 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 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 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 finishtask (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);//手动完成 Int rslt = 1,cnt = 0 IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF rslt = 0 THEN GOTO ext IF Status <> 1 THEN rslt = 0 arg_msg = "销售订单只有在进行状态才可以执行完成，请核对" GOTO ext END IF UPDATE u_SaleTask SET status = 6, 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 ext: IF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF 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,no_mxcheck = 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 //用游标读取明细 DECLARE cur_inwaermx CURSOR FOR SELECT u_saletaskmx.mtrlid, u_saletaskmx.saleqty, u_saletaskmx.price, u_saletaskmx.mxdscrp, 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.outtype, u_saletaskmx.dftsaleprice, u_saletaskmx.unit, u_saletaskmx.rate, u_saletaskmx.usaleqty, u_saletaskmx.ware_enprice, u_saletaskmx.ware_fprice, u_saletaskmx.ware_price, u_saletaskmx.orderqty, u_saletaskmx.needbuyqty, u_saletaskmx.needwfjgqty, u_saletaskmx.tax, u_saletaskmx.packqty, u_saletaskmx.plancode, u_saletaskmx.enamt, u_saletaskmx.enamt_tax, u_saletaskmx.bsamt, u_saletaskmx.bsamt_tax 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].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].unit, :saletaskmx[i].rate,:saletaskmx[i].usaleqty,:saletaskmx[i].ware_enprice, :saletaskmx[i].ware_fprice,:saletaskmx[i].ware_price, :saletaskmx[i].orderqty,:saletaskmx[i].needbuyqty, :saletaskmx[i].needwfjgqty, :saletaskmx[i].tax, :saletaskmx[i].packqty, :saletaskmx[i].plancode, :saletaskmx[i].enamt, :saletaskmx[i].enamt_tax, :saletaskmx[i].bsamt, :saletaskmx[i].bsamt_tax; DO WHILE sqlca.SQLCode = 0 i++ FETCH cur_inwaermx INTO :saletaskmx[i].mtrlid,:saletaskmx[i].saleqty, :saletaskmx[i].acprice,:saletaskmx[i].dscrp, :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].unit, :saletaskmx[i].rate,:saletaskmx[i].usaleqty,:saletaskmx[i].ware_enprice, :saletaskmx[i].ware_fprice,:saletaskmx[i].ware_price, :saletaskmx[i].orderqty,:saletaskmx[i].needbuyqty, :saletaskmx[i].needwfjgqty, :saletaskmx[i].tax, :saletaskmx[i].packqty, :saletaskmx[i].plancode, :saletaskmx[i].enamt, :saletaskmx[i].enamt_tax, :saletaskmx[i].bsamt, :saletaskmx[i].bsamt_tax; 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 taskid = arg_taskid scid = arg_scid it_mxbt = i - 1 it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer propermit (long arg_scid, long arg_taskid, string arg_emp, 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<>4 THEN // rslt=0 // arG_MSG="订单只有在销售经理已审核状态才可以执行生产经理审核，请核对" // goto ext //END IF // //cnt=0 //SELECT count(*) INTO :cnt // FROM u_user // WHERE username=:arg_emp using commit_transaction ; //if commit_transaction.sqlcode<>0 then // rslt=0 // arG_MSG="查询操作失败,操作员!" // goto ext //end if //if cnt=0 then // rslt=0 // arG_MSG="操作员姓名未登记或已取消!" // goto ext //end if // //UPDATE u_SaleTask // SET last_Emp = :arg_emp, // Status = 1 //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 // // // //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 salepermit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);//salepermit Int rslt = 1,cnt = 0 Long ll_storageid_arr[],ll_storageid Long ll_scid_arr[],ll_scid Long ll_if_cus_mtrlware_arr[],ll_if_cus_mtrlware String ll_storagename_arr[],ls_storagename Long ll_inwaretype_arr[],ll_inwaretype Long ll_j,count,ll_i Decimal ld_add_qty Decimal ld_orderqty Long if_plancode_arr[],if_plancode String ls_status,ls_mtrlcode,ls_pcode,ls_woodcode Long ll_mtrlwareid,ll_mtrlid Long ll_cusid 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 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 Decimal lde_lmsaleprice //检查客户定价 IF sys_option_saletask_dft_lmsaleprice = 1 THEN FOR ll_i = 1 To it_mxbt IF saletaskmx[ll_i].dftsaleprice = 0 THEN rslt = 0 arg_msg = "系统选项[074]限制,行:"+String(ll_i)+",产品编号: "+String(saletaskmx[ll_i].mtrlcode)+", 需先设定客户定价" GOTO ext END IF NEXT END IF UPDATE u_SaleTask SET Permit_Emp = :arg_emp , Permit_date = getdate(), Status = 1 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 //成品仓加0库存 //----------------------------------------------- IF uof_add_0_mtrlware(arg_msg, False) = 0 THEN rslt = 0 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 stopsaletask (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 THEN rslt = 0 ARG_MSG = "订单只有在进行状态才可以执行终止，请核对" GOTO ext END IF UPDATE u_SaleTask SET Status = 3, accomplishdate = getdate() , 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 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 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 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 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 priceflag = 1 THEN rslt = 0 arg_msg = '单据已确认，不能修改' GOTO ext END IF if Status<>0 then rslt=0 ARG_MSG='已经处于审核或完成等状态,不可以修改,如果订单未完成并要修改请先撤销审核' goto ext end if it_newbegin=FALSE it_updatebegin=TRUE p_clearmx() //清除明细 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 Long ls_newtaskid DateTime server_datetime Long ll_taskid String ls_sccode String ls_plancode String lss_cusname 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_tele1) THEN cus_tele1 = '' IF IsNull(cus_fax) THEN cus_fax = '' IF IsNull(dscrp3) THEN dscrp3 = '' IF IsNull(rel_rep) THEN rel_rep = '' IF IsNull(fiebrelcode) THEN fiebrelcode = '' IF IsNull(transcode) THEN transcode = '' IF IsNull(carcode) THEN carcode = '' IF IsNull(freight_address) THEN freight_address = '' operator = arg_operator IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以提交" GOTO ext END IF //未注册限制 IF sys_if_register = 0 THEN Long ll_bill_count SELECT count(*) INTO :ll_bill_count From u_saletask; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,销售订单数量 " GOTO ext END IF IF ll_bill_count > 30 THEN rslt = 0 arg_msg = "未注册版本,销售订单只能保存30张!" GOTO ext END IF END IF IF Trim(assign_emp) = '' THEN rslt = 0 arg_msg = "请输入订单业务员" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_cust Where cusid = :cusid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,客户资料" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "客户未定义或错误" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM cw_banktype Where banktypeid = :banktypeid; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询结算方式失败' rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '结算方式不存在' rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM cw_currency Where moneyid = :moneyid; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询币种失败' rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '币种资料不存在' rslt = 0 GOTO ext END IF IF mrate = 0 THEN arg_msg = '币种汇率错误' rslt = 0 GOTO ext END IF SELECT Top 1 getdate() Into :server_datetime From u_user Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空 rslt = 0 arg_msg = "没有正确销售订单明细内容" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :operator Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消!" GOTO ext END IF opdate = server_datetime //填写单据建立时间(最近修改时间) // //计算单据总额,要扣除优惠金额 //msttakeamt -= otheramt //messagebox("",msttakeamt) IF sys_option_mst_multimoney = 1 THEN //使用多币种 msttakeamt -= otheramt ELSE // 系统不使用多币种,转换为人民币 msttakeamt -= Round(otheramt * mrate, 2) END IF ////////////////////////////////////////////// //开始区分:新建/更新 处理 IF taskid = 0 THEN //新建 ll_taskid = f_sys_scidentity(scid,"u_saletask","taskid",arg_msg,False,commit_transaction) IF ll_taskid <= 0 THEN rslt = 0 GOTO ext END IF //取分部代号 IF f_get_sccode(scid,commit_transaction,ls_sccode,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF taskcode = getid(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 //messagebox("",freight_address) INSERT INTO u_saletask ( scid, taskcode, kind, cusid, requiredate, status, opemp, assign_emp, permit_emp, dscrp, dscrp2, opdate, taskid, damt, otheramt, freight, taskdate, transcode, carcode, banktypeid, moneyid, relcode, paytype, freight_tele, cus_address, cus_tele, cus_tele1, cus_fax, mrate, dscrp3, rel_rep, fiebrelcode, msttakeamt, freight_address) VALUES ( :scid, :taskcode, :Kind, :cusid, :requiredate, :status, :operator, :assign_emp, :permit_emp, :dscrp, :dscrp2, :opdate, :ll_taskid, :damt, :otheramt, :freight, :taskdate, :transcode, :carcode, :banktypeid, :moneyid, :relcode, :paytype, :freight_tele, :cus_address, :cus_tele, :cus_tele1, :cus_fax, :mrate, :dscrp3, :rel_rep, :fiebrelcode, :msttakeamt, :freight_address) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_saletask') > 0 THEN arg_msg = '插入销售订单操作失败,关键字ID重复' ELSEIF Pos(Lower(commit_transaction.SQLErrText),'IX_u_saletask') > 0 THEN arg_msg = '插入销售订单操作失败,单据编号重复' ELSE arg_msg = '插入销售订单操作失败,'+commit_transaction.SQLErrText END IF GOTO ext END IF //读取新taskid taskid = ll_taskid ELSE //////////////////////////////////////////////// //更新 if sys_saletask_autowaste = 1 then //登记修改 if uof_insertwaste(1,taskid,scid,arg_msg,false) = 0 then arg_msg = '插入销售废弃单操作失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext 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, transcode = :transcode, carcode = :carcode, banktypeid = :banktypeid, moneyid = :moneyid, relcode = :relcode, paytype = :paytype, freight_tele = :freight_tele, cus_address = :cus_address, cus_tele = :cus_tele, cus_tele1 = :cus_tele1, cus_fax = :cus_fax, mrate = :mrate, dscrp3 = :dscrp3, rel_rep = :rel_rep, msttakeamt = :msttakeamt, freight_address = :freight_address 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 END IF FOR i = 1 To it_mxbt ls_plancode = '' IF sys_option_taskplancode_auto = 1 THEN ls_plancode = taskcode + '.' + String(i, '000') ELSEIF sys_option_taskplancode_auto = 2 THEN ls_plancode = taskcode ELSEIF sys_option_taskplancode_auto = 3 THEN ls_plancode = relcode ELSEIF sys_option_taskplancode_auto = 4 THEN ls_plancode = saletaskmx[i].plancode ELSEIF sys_option_taskplancode_auto = 5 THEN lss_cusname = '' SELECT Top 1 Name Into :lss_cusname From u_cust Where cusid = :cusid; IF IsNull(lss_cusname) THEN lss_cusname = '' ls_plancode = lss_cusname ELSEIF sys_option_taskplancode_auto = 6 THEN //自定义 datastore ds_pricestr String ls_gongsi,s_rtn ds_pricestr = Create datastore ds_pricestr.DataObject = 'ds_pricestr_cmpl' ds_pricestr.SetTransObject(sqlca) ds_pricestr.Retrieve() ls_gongsi = '' ls_gongsi = 'f_plug_taskplancode( ' + "'" + taskcode + "'" + " , " + string(i) + " ) " s_rtn = '' s_rtn = ds_pricestr.Modify('cmpl.expression= "'+ls_gongsi+'"') IF s_rtn <> '' THEN s_rtn = '' END IF s_rtn = String(ds_pricestr.Object.cmpl[1]) IF s_rtn = 'false' Or s_rtn = '' THEN s_rtn = '' END IF ls_plancode=s_rtn END IF INSERT INTO u_saletaskmx ( scid, taskid, mtrlid, saleqty, price, plprice, mxdscrp, fprice, rebate, status, printid, woodcode, pcode, mtrlcuscode, enprice, outtype, dftsaleprice, unit, rate, usaleqty, ware_enprice, ware_fprice, ware_price, orderqty, needbuyqty, formula, addqty, mxdscrp2, needwfjgqty, plancode, tax, packqty, gbrate, enamt, enamt_tax, bsamt, bsamt_tax, net_weight, gross_weight, cubage, requiredate, mxdscrp3, mxdscrp4, priceformula, enprice_notax, otherprice) VALUES (:scid, :taskid, :saletaskmx[i].mtrlid, :saletaskmx[i].saleqty, :saletaskmx[i].acprice, :saletaskmx[i].plprice, :saletaskmx[i].dscrp, :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].unit, :saletaskmx[i].rate, :saletaskmx[i].usaleqty, :saletaskmx[i].ware_enprice, :saletaskmx[i].ware_fprice, :saletaskmx[i].ware_price, :saletaskmx[i].orderqty, :saletaskmx[i].needbuyqty, :saletaskmx[i].formula, :saletaskmx[i].addqty, :saletaskmx[i].mxdscrp2, :saletaskmx[i].needwfjgqty, :ls_plancode, :saletaskmx[i].tax, :saletaskmx[i].packqty, :saletaskmx[i].gbrate, :saletaskmx[i].enamt, :saletaskmx[i].enamt_tax, :saletaskmx[i].bsamt, :saletaskmx[i].bsamt_tax, :saletaskmx[i].net_weight, :saletaskmx[i].gross_weight, :saletaskmx[i].cubage, :saletaskmx[i].requiredate, :saletaskmx[i].mxdscrp3, :saletaskmx[i].mxdscrp4, :saletaskmx[i].priceformula, :saletaskmx[i].enprice_notax, :saletaskmx[i].otherprice) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN IF it_newbegin THEN taskid = 0 //还原taskid rslt = 0 IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_saletaskmx') > 0 THEN arg_msg = '插入销售订单明细操作失败,关键字单据ID重复,分部ID，序号' ELSE arg_msg = '插入销售订单明细操作失败,'+commit_transaction.SQLErrText END IF GOTO ext END IF NEXT it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; p_clearmx() ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF RETURN rslt end function 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,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 status <> 1 And status <> 5 THEN rslt = 1 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.usaleqty - 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 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 GOTO ext END IF 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 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 uof_del_del (long arg_scid, long arg_taskid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 DELETE FROM u_saletaskmx_mtrlchange WHERE scid = :arg_scid AND taskid = :arg_taskid AND mtrlid = :arg_mtrlid AND status = :arg_status AND woodcode = :arg_woodcode And pcode = :arg_pcode; IF sqlca.SQLCode <> 0 THEN arg_msg = '删除原有换料失败' rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_update_mx (long arg_scid, long arg_taskid, long arg_printid, string arg_mtrlchangecode, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 UPDATE u_saletaskmx SET mtrlchangecode = :arg_mtrlchangecode 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 ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer uof_mtrlchange (long arg_scid, long arg_taskid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, long arg_smtrlid, long arg_omtrlid, string arg_pfgroup, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 INSERT INTO u_saletaskmx_mtrlchange (scid, taskid, mtrlid, status, woodcode, pcode, smtrlid, omtrlid, pfgroup) VALUES (:arg_scid, :arg_taskid, :arg_mtrlid, :arg_status, :arg_woodcode, :arg_pcode, :arg_smtrlid, :arg_omtrlid, :arg_pfgroup); IF sqlca.SQLCode <> 0 THEN arg_msg = '建立换料失败'+sqlca.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer 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 addmxcmpl_assign (long arg_scid, long arg_taskid, long arg_printid, long arg_mtrlid, integer arg_plantype, decimal arg_addqty, boolean arg_ifcommit, ref string arg_msg);//0:增加需排产数-已进仓数; 生产进仓调用 //, 采购进仓调用 //2:增加需订购数-已订购数; 采购订单调用 //3:增加需外协数-已外协数; 外协订单调用 //4:采购进仓调用 Int rslt = 1 Long i Int li_flag //查找单号 Dec lde_orderQty,lde_AssignQty,lde_needbuyqty,lde_needwfjgqty Dec lde_buytaskqty,lde_wfjgtaskqty Decimal ll_taskrate,ll_taskaddqty String ls_mtrlcode 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 orderqty,needbuyqty,needwfjgqty, AssignQty,buytaskqty,wfjgtaskqty INTO :lde_orderQty,:lde_needbuyqty,:lde_needwfjgqty, :lde_AssignQty,:lde_buytaskqty,:lde_wfjgtaskqty 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 SELECT mtrlcode,taskrate,taskaddqty INTO :ls_mtrlcode,:ll_taskrate,:ll_taskaddqty FROM u_mtrldef Where mtrlid = :arg_mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询物料资料失败！'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF CHOOSE CASE arg_plantype CASE 0 //自制, 采购, 外协 总和, 进仓总数 IF sys_option_inware_cp_assignqty = 0 THEN IF lde_orderQty + lde_needbuyqty + lde_needwfjgqty - lde_AssignQty < arg_addqty THEN arg_msg = '物料['+ls_mtrlcode +'],进仓数量大于销售订单安排未进仓数量' rslt = 0 GOTO ext END IF END IF IF sys_version = 802003 THEN //只有工业版+是用审核的 IF lde_orderQty + lde_needbuyqty + lde_needwfjgqty <= lde_AssignQty + arg_addqty THEN li_flag = 5 ELSE IF lde_orderQty > 0 THEN li_flag = 1 ELSE li_flag = 0 END IF END IF ELSE li_flag = 0 END IF UPDATE u_SaleTaskMx SET AssignQty = AssignQty + :arg_addqty, flag = :li_flag WHERE scid = :scid AND taskid = :arg_taskid AND printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新销售订单已进仓数量失败~n'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF CASE 2 //采购 //ll_needbuyqty * (1 +ll_taskrate ) + ll_taskaddqty 超收比例和超收数量 IF lde_needbuyqty * (1 +ll_taskrate ) + ll_taskaddqty < lde_buytaskqty + arg_addqty THEN rslt = 0 arg_msg = "物料["+ ls_mtrlcode +"],订货数大于销售订单可订货数" IF ll_taskrate <> 0 THEN arg_msg += "~n超订比例["+String(ll_taskrate,'#,##0.####')+"]" END IF IF ll_taskaddqty <> 0 THEN arg_msg += "~n超订数量["+String(ll_taskaddqty,'#,##0.####')+"]" END IF GOTO ext END IF UPDATE u_saletaskmx SET Buytaskqty = Buytaskqty + :arg_addqty WHERE scid = :scid AND taskid = :arg_taskid AND printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新销售订单已订购数量失败~n'+commit_transaction.SQLErrText GOTO ext END IF CASE 3 //外协 IF lde_needwfjgqty < lde_wfjgtaskqty + arg_addqty THEN rslt = 0 arg_msg = "物料["+ ls_mtrlcode +"],外协订货数大于销售订单未外协数" GOTO ext END IF UPDATE u_saletaskmx SET wfjgtaskqty = wfjgtaskqty + :arg_addqty WHERE scid = :scid AND taskid = :arg_taskid AND printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新销售订单已外协数量失败~n'+commit_transaction.SQLErrText GOTO ext END IF CASE 4//采购收货 IF sys_version = 802003 THEN //只有工业版+是用审核的 IF lde_orderQty + lde_needbuyqty + lde_needwfjgqty <= lde_AssignQty + arg_addqty THEN li_flag = 5 ELSE IF lde_orderQty > 0 THEN li_flag = 1 ELSE li_flag = 0 END IF END IF ELSE li_flag = 0 END IF UPDATE u_SaleTaskMx SET AssignQty = AssignQty + :arg_addqty, flag = :li_flag WHERE scid = :scid AND taskid = :arg_taskid AND printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新销售订单已进仓数量失败~n'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END CHOOSE ext: IF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; ELSEIF rslt = 0 THEN ROLLBACK Using commit_transaction; END IF arg_msg = "销售订单["+taskcode+"]"+arg_msg RETURN rslt end function public function integer uof_update_relcode (long arg_scid, long arg_taskid, string arg_newrelcode, ref string arg_msg, boolean arg_ifcommit);//add_dscrp(string arg_newrelcode) //0 fail 1 SUCCESS Int rslt = 1 arg_newrelcode = Trim(arg_newrelcode) 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 relcode = :arg_newrelcode Where scid = :arg_scid and u_saletask.taskid = :arg_taskid 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 THEN COMMIT USING commit_transaction; END IF p_reset() Return (rslt) end function public function integer uof_add_0_mtrlware (ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 Long ll_storageid_arr[],ll_storageid Long ll_scid_arr[],ll_scid Long ll_if_cus_mtrlware_arr[],ll_if_cus_mtrlware String ll_storagename_arr[],ls_storagename Long ll_inwaretype_arr[],ll_inwaretype Long ll_j,count,ll_i Decimal ld_add_qty Decimal ld_orderqty Long if_plancode_arr[],if_plancode String ls_status,ls_mtrlcode,ls_pcode,ls_woodcode Long ll_mtrlwareid,ll_mtrlid Long ll_cusid String ls_plancode //成品仓加0库存 //----------------------------------------------- //USING commit_transaction; IF sys_option_saletask_addware = 1 & Or ( sys_option_saletask_addware_taskqty = 1 And sys_option_saletask_addware_taskqty_qty > 0 ) & Or sys_option_saletask_addware_taskqty = 2 THEN DECLARE pf_cur CURSOR FOR SELECT u_storage.storageid, u_storage.storagename, u_storage.scid, u_storage.balctype, u_storage.inwaretype, u_storage.if_plancode FROM u_storage WHERE ( u_storage.Mtrlprp = 0 ) AND ( u_storage.scid = :scid ) Using commit_transaction; OPEN pf_cur; FETCH pf_cur Into :ll_storageid,:ls_storagename,:ll_scid,:ll_if_cus_mtrlware,:ll_inwaretype,:if_plancode; DO WHILE commit_transaction.SQLCode = 0 count++ ll_storageid_arr[count] = ll_storageid ll_storagename_arr[count] = ls_storagename ll_scid_arr[count] = ll_scid ll_if_cus_mtrlware_arr[count] = ll_if_cus_mtrlware ll_inwaretype_arr[count] = ll_inwaretype if_plancode_arr[count] = if_plancode FETCH pf_cur Into :ll_storageid,:ls_storagename,:ll_scid,:ll_if_cus_mtrlware,:ll_inwaretype,:if_plancode; LOOP CLOSE pf_cur; FOR ll_i = 1 To it_mxbt ll_mtrlid = saletaskmx[ll_i].mtrlid ls_mtrlcode = saletaskmx[ll_i].mtrlcode ls_status = saletaskmx[ll_i].Status ls_pcode = saletaskmx[ll_i].pcode ls_woodcode = saletaskmx[ll_i].woodcode ld_orderqty = saletaskmx[ll_i].orderqty IF sys_option_saletask_addware = 1 THEN ld_add_qty = 0 ELSEIF sys_option_saletask_addware_taskqty = 1 THEN ld_add_qty = sys_option_saletask_addware_taskqty_qty ELSEIF sys_option_saletask_addware_taskqty = 2 THEN ld_add_qty = ld_orderqty ELSE ld_add_qty = 0 END IF FOR ll_j = 1 To count ll_cusid = 0 IF ll_if_cus_mtrlware_arr[ll_j] = 1 THEN ll_cusid = cusid ELSE ll_cusid = 0 END IF IF if_plancode_arr[ll_j] = 0 THEN ls_plancode = '' ELSE ls_plancode = saletaskmx[ll_i].plancode END IF // IF if_plancode_arr[ll_j] = 1 AND ll_inwaretype_arr[ll_j] = 3 THEN // ls_plancode = taskcode // ELSE // ls_plancode = '' // END IF // ls_plancode = saletaskmx[ll_i].plancode 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 pcode = :ls_pcode AND SCID = :ll_scid_arr[ll_j] AND ( sptid = :ll_cusid OR :ll_cusid = 0 ) AND plancode = :ls_plancode Using commit_transaction; IF commit_transaction.SQLCode = 0 THEN UPDATE u_mtrlware SET noallocqty = noallocqty + :ld_add_qty WHERE mtrlwareid = :ll_mtrlwareid AND scid = :ll_scid_arr[ll_j] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = '产品:' + ls_mtrlcode+'仓库:'+ll_storagename_arr[ll_j]+'增加库存失败' rslt = 0 GOTO ext END IF ELSEIF commit_transaction.SQLCode = -1 THEN ARG_MSG = '查询:'+ls_mtrlcode+'仓库:'+ll_storagename_arr[ll_j]+'库存失败' rslt = 0 GOTO ext ELSEIF commit_transaction.SQLCode = 100 THEN ll_mtrlwareid = 0 ll_mtrlwareid = f_sys_scidentity(ll_scid_arr[ll_j],"u_mtrlware","mtrlwareid",ARG_MSG,False,commit_transaction) IF ll_mtrlwareid <= 0 THEN rslt = 0 GOTO ext END IF INSERT INTO u_mtrlware(scid, mtrlwareid, mtrlid, storageid, noallocqty, status, woodcode, pcode, sptid, plancode) VALUES(:ll_scid_arr[ll_j], :ll_mtrlwareid, :ll_mtrlid, :ll_storageid_arr[ll_j], :ld_add_qty, :ls_status, :ls_woodcode, :ls_pcode, :ll_cusid, :ls_plancode) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ARG_MSG = '产品:'+ls_mtrlcode+'仓库:'+ll_storagename_arr[ll_j]+'加0库存失败或物料已经有库存,请检查' rslt = 0 GOTO ext END IF END IF NEXT NEXT END IF 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 acceptmx (long arg_mtrlid, decimal arg_usaleqty, decimal arg_orderqty, decimal arg_needbuyqty, decimal arg_enprice, decimal arg_rebate, decimal arg_planprice, string arg_dscrp, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, string arg_mtrlcuscode, long arg_printid, integer arg_outtype, ref string arg_msg, string arg_unit, decimal arg_rate, string arg_formula, decimal arg_addqty, string arg_mxdscrp2, decimal arg_needwfjgqty, string arg_plancode, decimal arg_tax);//==================================================================== // 事件: uo_saletask.Script - acceptmx ( long arg_mtrlid, decimal arg_usaleqty, decimal arg_orderqty, decimal arg_needbuyqty, decimal arg_enprice, decimal arg_rebate, decimal arg_planprice, string arg_dscrp, string arg_mtrlcode, string arg_status, string arg_woodcode, string() //-------------------------------------------------------------------- // 描述: //-------------------------------------------------------------------- // 参数: // value long arg_mtrlid // value decimal arg_usaleqty // value decimal arg_orderqty // value decimal arg_needbuyqty // value decimal arg_enprice // value decimal arg_rebate // value decimal arg_planprice // value string arg_dscrp // value string arg_mtrlcode // value string arg_status // value string arg_woodcode // value string arg_pcode // value string arg_mtrlcuscode // value long arg_printid // value integer arg_outtype // reference string arg_msg // value string arg_unit // value decimal arg_rate // value string arg_formula // value decimal arg_addqty // value string arg_mxdscrp2 // value decimal arg_needwfjgqty // value string arg_plancode // value decimal arg_tax //-------------------------------------------------------------------- // 返回: (none) //-------------------------------------------------------------------- // 作者: LHD 日期: 2013年10月23日 //-------------------------------------------------------------------- // Copyright (c) 2002-2018 RICHTA(TM), All rights reserved. //-------------------------------------------------------------------- // 修改历史: // //==================================================================== s_saletaskmx s_mx s_mx.mtrlid = arg_mtrlid s_mx.usaleqty = arg_usaleqty s_mx.orderqty = arg_orderqty s_mx.needbuyqty = arg_needbuyqty s_mx.enprice = arg_enprice s_mx.rebate = arg_rebate s_mx.planprice = arg_planprice s_mx.dscrp = arg_dscrp s_mx.mtrlcode = arg_mtrlcode s_mx.status = arg_status s_mx.woodcode = arg_woodcode s_mx.pcode = arg_pcode s_mx.mtrlcuscode = arg_mtrlcuscode s_mx.printid = arg_printid s_mx.outtype = arg_outtype s_mx.unit = arg_unit s_mx.rate = arg_rate s_mx.formula = arg_formula s_mx.addqty = arg_addqty s_mx.mxdscrp2 = arg_mxdscrp2 s_mx.needwfjgqty = arg_needwfjgqty s_mx.plancode = arg_plancode s_mx.tax = arg_tax return acceptmx(s_mx, arg_msg) /* //return 0 fail 1 success // 函数增加一个明细项 Long rslt = 1,cnt = 0,ls_i Decimal ld_dftsaleprice, lde_saleqty IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF //清除空值 IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0 IF IsNull(arg_usaleqty) THEN arg_usaleqty = 0 IF IsNull(arg_orderqty) THEN arg_orderqty = 0 IF IsNull(arg_needbuyqty) THEN arg_needbuyqty = 0 IF IsNull(arg_needwfjgqty) THEN arg_needwfjgqty = 0 IF IsNull(arg_enprice) THEN arg_enprice = 0 IF IsNull(arg_rebate) THEN arg_rebate = 0 IF IsNull(arg_planprice) THEN arg_planprice = 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 = 0 IF IsNull(arg_mtrlcuscode) THEN arg_mtrlcuscode = '' IF IsNull(arg_unit) THEN arg_unit = '' IF IsNull(arg_rate) Or arg_rate = 0 THEN arg_rate = 1 IF IsNull(arg_formula) THEN arg_formula = '' IF IsNull(arg_addqty) THEN arg_addqty = 0 IF IsNull(arg_mxdscrp2) THEN arg_mxdscrp2 = '' IF IsNull(arg_plancode) THEN arg_plancode = '' IF IsNull(arg_tax) THEN arg_tax = 0 IF arg_mtrlid = 0 Or arg_usaleqty = 0 THEN rslt = 1 GOTO ext END IF IF f_check_status(1, arg_status) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能配置未定义,物料:"+arg_mtrlcode+",配置:"+arg_status GOTO ext END IF IF arg_enprice * arg_rebate < 0 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 Long ll_Mtrlorigin Decimal lde_lmsaleprice SELECT Mtrlorigin, lmsaleprice INTO :ll_Mtrlorigin, :lde_lmsaleprice 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 //取客户定价, 即已审核的客户价格表或默认价格表的价格 f_get_defsaleprice(cusid,arg_mtrlid,arg_unit,arg_status,arg_pcode,arg_woodcode,moneyid,ld_dftsaleprice) IF sys_option_saletask_plan = 1 THEN // arg_orderqty = arg_orderqty // arg_needbuyqty = arg_needbuyqty ELSEIF sys_option_saletask_plan = 2 THEN arg_orderqty = 0 arg_needbuyqty = arg_usaleqty * arg_rate arg_needwfjgqty = 0 ELSEIF sys_option_saletask_plan = 3 THEN arg_orderqty = arg_usaleqty * arg_rate arg_needbuyqty = 0 arg_needwfjgqty = 0 elseif sys_option_saletask_plan =5 THEN arg_orderqty =0 arg_needbuyqty = 0 arg_needwfjgqty = arg_usaleqty * arg_rate elseif sys_option_saletask_plan =6 THEN arg_orderqty =arg_usaleqty * arg_rate arg_needbuyqty = 0 arg_needwfjgqty = arg_usaleqty * arg_rate ELSE CHOOSE CASE ll_Mtrlorigin CASE 0,4 arg_orderqty = arg_usaleqty * arg_rate arg_needbuyqty = 0 arg_needwfjgqty = 0 CASE 2 arg_orderqty = 0 arg_needbuyqty = arg_usaleqty * arg_rate arg_needwfjgqty = 0 CASE ELSE // arg_orderqty = arg_orderqty // arg_needbuyqty = arg_needbuyqty END CHOOSE END IF IF arg_orderqty + arg_needbuyqty + arg_needwfjgqty > arg_usaleqty * arg_rate THEN arg_msg = '需排产数 + 需订购数 + 需外协数 > 订单数量,请检查' rslt = 0 GOTO ext END IF lde_saleqty = Round(arg_usaleqty * arg_rate ,5) IF arg_tax < 0 THEN rslt = 0 arg_msg = "税率不能为负数" GOTO ext 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].unit = arg_unit THEN saletaskmx[ls_i].usaleqty = saletaskmx[ls_i].usaleqty + arg_usaleqty saletaskmx[ls_i].saleqty = saletaskmx[ls_i].saleqty + lde_saleqty //arg_usaleqty saletaskmx[ls_i].addqty = saletaskmx[ls_i].addqty + arg_addqty saletaskmx[ls_i].orderqty = saletaskmx[ls_i].orderqty + arg_orderqty saletaskmx[ls_i].needbuyqty = saletaskmx[ls_i].needbuyqty + arg_needbuyqty saletaskmx[ls_i].needwfjgqty = saletaskmx[ls_i].needwfjgqty + arg_needwfjgqty rslt = 1 GOTO ext END IF NEXT //写入内容 it_mxbt++ saletaskmx[it_mxbt].printid = arg_printid saletaskmx[it_mxbt].mtrlid = arg_mtrlid saletaskmx[it_mxbt].usaleqty = arg_usaleqty saletaskmx[it_mxbt].saleqty = lde_saleqty saletaskmx[it_mxbt].addqty = arg_addqty saletaskmx[it_mxbt].orderqty = arg_orderqty saletaskmx[it_mxbt].needbuyqty = arg_needbuyqty saletaskmx[it_mxbt].needwfjgqty = arg_needwfjgqty saletaskmx[it_mxbt].dftsaleprice = ld_dftsaleprice saletaskmx[it_mxbt].plprice = arg_planprice saletaskmx[it_mxbt].enprice = arg_enprice saletaskmx[it_mxbt].tax = arg_tax saletaskmx[it_mxbt].rebate = arg_rebate saletaskmx[it_mxbt].fprice = arg_enprice * mrate saletaskmx[it_mxbt].acprice = arg_enprice * mrate * arg_rebate IF sys_option_mst_multimoney = 1 THEN //使用多币种 msttakeamt += Round(arg_enprice * arg_usaleqty * arg_rebate,2) ELSE // 系统不使用多币种,转换为人民币 msttakeamt += Round(arg_enprice * mrate * arg_usaleqty * arg_rebate,2) END IF saletaskmx[it_mxbt].unit = arg_unit saletaskmx[it_mxbt].rate = arg_rate saletaskmx[it_mxbt].ware_enprice = Round((arg_enprice * arg_usaleqty)/lde_saleqty,10) saletaskmx[it_mxbt].ware_fprice = Round((arg_enprice * arg_usaleqty)/lde_saleqty,10) * mrate saletaskmx[it_mxbt].ware_price = Round((arg_enprice * arg_usaleqty)/lde_saleqty,10) * mrate * arg_rebate saletaskmx[it_mxbt].mtrlcode = arg_mtrlcode saletaskmx[it_mxbt].status = arg_status saletaskmx[it_mxbt].woodcode = arg_woodcode saletaskmx[it_mxbt].pcode = arg_pcode saletaskmx[it_mxbt].mtrlcuscode = arg_mtrlcuscode saletaskmx[it_mxbt].plancode = arg_plancode saletaskmx[it_mxbt].outtype = arg_outtype saletaskmx[it_mxbt].formula = arg_formula saletaskmx[it_mxbt].dscrp = arg_dscrp saletaskmx[it_mxbt].mxdscrp2 = arg_mxdscrp2 ext: IF rslt = 0 THEN p_clearmx() arg_msg = "第" + String(arg_printid) + "行," + arg_msg END IF Return(rslt) */ end function public function integer acceptmx (s_saletaskmx s_mx, ref string arg_msg);//return 0 fail 1 success // 函数增加一个明细项 Long rslt = 1,cnt = 0,ls_i Decimal ld_dftsaleprice, lde_saleqty If it_newbegin = False And it_updatebegin = False Then rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" Goto ext End If //清除空值 If IsNull(s_mx.mtrlid) Then s_mx.mtrlid = 0 If IsNull(s_mx.usaleqty) Then s_mx.usaleqty = 0 If IsNull(s_mx.orderqty) Then s_mx.orderqty = 0 If IsNull(s_mx.needbuyqty) Then s_mx.needbuyqty = 0 If IsNull(s_mx.needwfjgqty) Then s_mx.needwfjgqty = 0 If IsNull(s_mx.enprice) Then s_mx.enprice = 0 If IsNull(s_mx.rebate) Then s_mx.rebate = 0 If IsNull(s_mx.tax) Then s_mx.tax = 0 If IsNull(s_mx.planprice) Then s_mx.planprice = 0 If IsNull(s_mx.dscrp) Then s_mx.dscrp = '' If IsNull(s_mx.mtrlcode) Then s_mx.mtrlcode = '' If IsNull(s_mx.status) Then s_mx.status = '' If IsNull(s_mx.woodcode) Then s_mx.woodcode = '' If IsNull(s_mx.pcode) Then s_mx.pcode = '' If IsNull(s_mx.printid) Then s_mx.printid = 0 If IsNull(s_mx.outtype) Then s_mx.outtype = 0 If IsNull(s_mx.mtrlcuscode) Then s_mx.mtrlcuscode = '' If IsNull(s_mx.unit) Then s_mx.unit = '' If IsNull(s_mx.rate) Or s_mx.rate = 0 Then s_mx.rate = 1 If IsNull(s_mx.formula) Then s_mx.formula = '' If IsNull(s_mx.priceformula) Then s_mx.priceformula = '' If IsNull(s_mx.addqty) Then s_mx.addqty = 0 If IsNull(s_mx.mxdscrp2) Then s_mx.mxdscrp2 = '' If IsNull(s_mx.plancode) Then s_mx.plancode = '' If IsNull(s_mx.packqty) Then s_mx.packqty = 0 If IsNull(s_mx.net_weight) Then s_mx.net_weight = 0 If IsNull(s_mx.gross_weight) Then s_mx.gross_weight = 0 If IsNull(s_mx.cubage) Then s_mx.cubage = 0 If IsNull(s_mx.otherprice) Then s_mx.otherprice = 0 If IsNull(s_mx.mxdscrp3) Then s_mx.mxdscrp3 = '' If IsNull(s_mx.mxdscrp4) Then s_mx.mxdscrp4 = '' If IsNull(s_mx.enprice_notax) Then s_mx.enprice_notax = 0 If IsNull(s_mx.enamt_tax) Then s_mx.enamt_tax = 0 //税金 If IsNull(s_mx.enprice_notax) Then s_mx.enprice_notax = 0 //不含税单价 If s_mx.enprice_notax = 0 Then s_mx.enprice_notax = s_mx.enprice / (1 + s_mx.tax) End If If s_mx.mtrlid = 0 Or s_mx.usaleqty = 0 Then rslt = 1 Goto ext End If //IF f_check_status(1, s_mx.status) = 0 THEN // rslt = 0 // arg_msg = "查询操作失败,可能配置未定义,物料:"+s_mx.mtrlcode+",配置:"+s_mx.status // GOTO ext //END IF If acceptmx_chk(s_mx, arg_msg) = 0 Then rslt = 0 Goto ext End If If s_mx.enprice * s_mx.rebate < 0 Then rslt = 0 arg_msg = "产品：" + String(s_mx.mtrlcode)+" 单价错误" Goto ext End If If s_mx.tax < 0 Then rslt = 0 arg_msg = "税率不能为负数" Goto ext End If Long ll_Mtrlorigin Decimal lde_lmsaleprice, lde_gbrate Select Mtrlorigin, lmsaleprice,gbrate Into :ll_Mtrlorigin, :lde_lmsaleprice, :lde_gbrate From u_mtrldef Where u_mtrldef.mtrlid = :s_mx.mtrlid ; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = "查询操作失败,产品信息" Goto ext End If //取客户定价, 即已审核的客户价格表或默认价格表的价格 f_get_defsaleprice(cusid,s_mx.mtrlid,s_mx.unit,s_mx.status,s_mx.pcode,s_mx.woodcode,moneyid,ld_dftsaleprice,s_mx.usaleqty) lde_saleqty = Round(s_mx.usaleqty * s_mx.rate ,sys_option_unit_dec_sale) s_mx.fprice = s_mx.enprice * mrate If sys_option_saletask_plan = 1 Then // s_mx.orderqty = s_mx.orderqty // s_mx.needbuyqty = s_mx.needbuyqty ElseIf sys_option_saletask_plan = 2 Then s_mx.orderqty = 0 s_mx.needbuyqty = lde_saleqty //s_mx.usaleqty * s_mx.rate s_mx.needwfjgqty = 0 ElseIf sys_option_saletask_plan = 3 Then s_mx.orderqty = lde_saleqty //s_mx.usaleqty * s_mx.rate s_mx.needbuyqty = 0 s_mx.needwfjgqty = 0 ElseIf sys_option_saletask_plan = 5 Then s_mx.orderqty = 0 //s_mx.usaleqty * s_mx.rate s_mx.needbuyqty = 0 s_mx.needwfjgqty = lde_saleqty ElseIf sys_option_saletask_plan = 6 Then s_mx.orderqty = lde_saleqty //s_mx.usaleqty * s_mx.rate s_mx.needbuyqty = 0 s_mx.needwfjgqty = lde_saleqty Else Choose Case ll_Mtrlorigin Case 0,4 s_mx.orderqty = lde_saleqty //s_mx.usaleqty * s_mx.rate s_mx.needbuyqty = 0 s_mx.needwfjgqty = 0 Case 2 s_mx.orderqty = 0 s_mx.needbuyqty = lde_saleqty //s_mx.usaleqty * s_mx.rate s_mx.needwfjgqty = 0 Case 3 s_mx.needwfjgqty = lde_saleqty s_mx.orderqty = 0 s_mx.needbuyqty =0 Case Else // s_mx.orderqty = s_mx.orderqty // s_mx.needbuyqty = s_mx.needbuyqty End Choose End If // //取消限制 //IF s_mx.orderqty + s_mx.needbuyqty + s_mx.needwfjgqty > s_mx.usaleqty * s_mx.rate THEN // arg_msg = '需排产数 + 需订购数 + 需外协数 > 订单数量,请检查' // rslt = 0 // GOTO ext //END IF If sys_option_saletask_mxhb = 0 Then For ls_i = 1 To it_mxbt //合并重复项 If saletaskmx[ls_i].mtrlid = s_mx.mtrlid And & saletaskmx[ls_i].status = s_mx.status And & saletaskmx[ls_i].pcode = s_mx.pcode And & saletaskmx[ls_i].mtrlcuscode = s_mx.mtrlcuscode And & saletaskmx[ls_i].woodcode = s_mx.woodcode And & saletaskmx[ls_i].unit = s_mx.unit And & saletaskmx[ls_i].enprice = s_mx.enprice And & saletaskmx[ls_i].rebate = s_mx.rebate And & saletaskmx[ls_i].tax = s_mx.tax Then Decimal lde_add_enamt, lde_add_bsamt saletaskmx[ls_i].usaleqty += s_mx.usaleqty saletaskmx[ls_i].saleqty += lde_saleqty //s_mx.usaleqty saletaskmx[ls_i].addqty += s_mx.addqty saletaskmx[ls_i].orderqty += s_mx.orderqty saletaskmx[ls_i].needbuyqty += s_mx.needbuyqty saletaskmx[ls_i].needwfjgqty += s_mx.needwfjgqty lde_add_enamt = Round(s_mx.usaleqty * s_mx.enprice * s_mx.rebate, 2) lde_add_bsamt = Round(s_mx.usaleqty * s_mx.fprice * s_mx.rebate, 2) saletaskmx[ls_i].enamt += Round(s_mx.usaleqty * s_mx.enprice * s_mx.rebate, 2) //原币, 实价含税金额 saletaskmx[ls_i].enamt_tax += Round((s_mx.usaleqty * s_mx.enprice * s_mx.rebate) * s_mx.tax / (1 + s_mx.tax), 2) //原币, 税金 saletaskmx[ls_i].bsamt += Round(s_mx.usaleqty * s_mx.fprice * s_mx.rebate, 2) //本位币, 实价含税金额 saletaskmx[ls_i].bsamt_tax += Round((s_mx.usaleqty * s_mx.fprice * s_mx.rebate) * s_mx.tax / (1 + s_mx.tax), 2) //本位币, 税金 Choose Case sys_option_outware_sale_amt_round Case 0 //分 saletaskmx[ls_i].enamt = Round(saletaskmx[ls_i].enamt, 2) saletaskmx[ls_i].enamt_tax = Round(saletaskmx[ls_i].enamt_tax, 2) saletaskmx[ls_i].bsamt = Round(saletaskmx[ls_i].bsamt, 2) saletaskmx[ls_i].bsamt_tax = Round(saletaskmx[ls_i].bsamt_tax, 2) lde_add_enamt = Round(lde_add_enamt, 2) lde_add_bsamt = Round(lde_add_bsamt, 2) Case 1 saletaskmx[ls_i].enamt = Round(saletaskmx[ls_i].enamt, 1) saletaskmx[ls_i].enamt_tax = Round(saletaskmx[ls_i].enamt_tax, 1) saletaskmx[ls_i].bsamt = Round(saletaskmx[ls_i].bsamt, 1) saletaskmx[ls_i].bsamt_tax = Round(saletaskmx[ls_i].bsamt_tax, 1) lde_add_enamt = Round(lde_add_enamt, 1) lde_add_bsamt = Round(lde_add_bsamt, 1) Case 2 saletaskmx[ls_i].enamt = Round(saletaskmx[ls_i].enamt, 0) saletaskmx[ls_i].enamt_tax = Round(saletaskmx[ls_i].enamt_tax, 0) saletaskmx[ls_i].bsamt = Round(saletaskmx[ls_i].bsamt, 0) saletaskmx[ls_i].bsamt_tax = Round(saletaskmx[ls_i].bsamt_tax, 0) lde_add_enamt = Round(lde_add_enamt, 0) lde_add_bsamt = Round(lde_add_bsamt, 0) Case 3 saletaskmx[ls_i].enamt = Round(saletaskmx[ls_i].enamt / 10, 0) * 10 saletaskmx[ls_i].enamt_tax = Round(saletaskmx[ls_i].enamt_tax / 10, 0) * 10 saletaskmx[ls_i].bsamt = Round(saletaskmx[ls_i].bsamt / 10, 0) * 10 saletaskmx[ls_i].bsamt_tax = Round(saletaskmx[ls_i].bsamt_tax / 10, 0) * 10 lde_add_enamt = Round(lde_add_enamt / 10, 0) * 10 lde_add_bsamt = Round(lde_add_bsamt / 10, 0) * 10 Case 4 saletaskmx[ls_i].enamt = Round(saletaskmx[ls_i].enamt / 100, 0) * 100 saletaskmx[ls_i].enamt_tax = Round(saletaskmx[ls_i].enamt_tax / 100, 0) * 100 saletaskmx[ls_i].bsamt = Round(saletaskmx[ls_i].bsamt / 100, 0) * 100 saletaskmx[ls_i].bsamt_tax = Round(saletaskmx[ls_i].bsamt_tax / 100, 0) * 100 lde_add_enamt = Round(lde_add_enamt / 100, 0) * 100 lde_add_bsamt = Round(lde_add_bsamt / 100, 0) * 100 End Choose If sys_option_mst_multimoney = 1 Then //使用多币种 msttakeamt += lde_add_enamt Else // 系统不使用多币种,转换为人民币 msttakeamt += lde_add_bsamt End If rslt = 1 Goto ext End If Next End If //写入内容 it_mxbt++ saletaskmx[it_mxbt].printid = s_mx.printid saletaskmx[it_mxbt].mtrlid = s_mx.mtrlid saletaskmx[it_mxbt].usaleqty = s_mx.usaleqty saletaskmx[it_mxbt].saleqty = lde_saleqty saletaskmx[it_mxbt].addqty = s_mx.addqty saletaskmx[it_mxbt].orderqty = s_mx.orderqty saletaskmx[it_mxbt].needbuyqty = s_mx.needbuyqty saletaskmx[it_mxbt].needwfjgqty = s_mx.needwfjgqty saletaskmx[it_mxbt].dftsaleprice = ld_dftsaleprice saletaskmx[it_mxbt].plprice = s_mx.planprice saletaskmx[it_mxbt].enprice = s_mx.enprice saletaskmx[it_mxbt].tax = s_mx.tax //税率 saletaskmx[it_mxbt].rebate = s_mx.rebate saletaskmx[it_mxbt].fprice = s_mx.enprice * mrate saletaskmx[it_mxbt].acprice = s_mx.enprice * mrate * s_mx.rebate saletaskmx[it_mxbt].enamt = Round(s_mx.usaleqty * s_mx.enprice * s_mx.rebate, 2) //原币, 实价含税金额 If s_mx.enamt_tax = 0 Then saletaskmx[it_mxbt].enamt_tax = Round((s_mx.usaleqty * s_mx.enprice * s_mx.rebate) * s_mx.tax / (1 + s_mx.tax), 2) //原币, 税金 Else saletaskmx[it_mxbt].enamt_tax = s_mx.enamt_tax End If saletaskmx[it_mxbt].bsamt = Round(s_mx.usaleqty * s_mx.fprice * s_mx.rebate, 2) //本位币, 实价含税金额 saletaskmx[it_mxbt].bsamt_tax = Round((s_mx.usaleqty * s_mx.fprice * s_mx.rebate) * s_mx.tax / (1 + s_mx.tax), 2) //本位币, 税金 Choose Case sys_option_outware_sale_amt_round Case 0 //分 saletaskmx[it_mxbt].enamt = Round(saletaskmx[it_mxbt].enamt, 2) saletaskmx[it_mxbt].enamt_tax = Round(saletaskmx[it_mxbt].enamt_tax, 2) saletaskmx[it_mxbt].bsamt = Round(saletaskmx[it_mxbt].bsamt, 2) saletaskmx[it_mxbt].bsamt_tax = Round(saletaskmx[it_mxbt].bsamt_tax, 2) Case 1 saletaskmx[it_mxbt].enamt = Round(saletaskmx[it_mxbt].enamt, 1) saletaskmx[it_mxbt].enamt_tax = Round(saletaskmx[it_mxbt].enamt_tax, 1) saletaskmx[it_mxbt].bsamt = Round(saletaskmx[it_mxbt].bsamt, 1) saletaskmx[it_mxbt].bsamt_tax = Round(saletaskmx[it_mxbt].bsamt_tax, 1) Case 2 saletaskmx[it_mxbt].enamt = Round(saletaskmx[it_mxbt].enamt, 0) saletaskmx[it_mxbt].enamt_tax = Round(saletaskmx[it_mxbt].enamt_tax, 0) saletaskmx[it_mxbt].bsamt = Round(saletaskmx[it_mxbt].bsamt, 0) saletaskmx[it_mxbt].bsamt_tax = Round(saletaskmx[it_mxbt].bsamt_tax, 0) Case 3 saletaskmx[it_mxbt].enamt = Round(saletaskmx[it_mxbt].enamt / 10, 0) * 10 saletaskmx[it_mxbt].enamt_tax = Round(saletaskmx[it_mxbt].enamt_tax / 10, 0) * 10 saletaskmx[it_mxbt].bsamt = Round(saletaskmx[it_mxbt].bsamt / 10, 0) * 10 saletaskmx[it_mxbt].bsamt_tax = Round(saletaskmx[it_mxbt].bsamt_tax / 10, 0) * 10 Case 4 saletaskmx[it_mxbt].enamt = Round(saletaskmx[it_mxbt].enamt / 100, 0) * 100 saletaskmx[it_mxbt].enamt_tax = Round(saletaskmx[it_mxbt].enamt_tax / 100, 0) * 100 saletaskmx[it_mxbt].bsamt = Round(saletaskmx[it_mxbt].bsamt / 100, 0) * 100 saletaskmx[it_mxbt].bsamt_tax = Round(saletaskmx[it_mxbt].bsamt_tax / 100, 0) * 100 End Choose If sys_option_mst_multimoney = 1 Then //使用多币种 msttakeamt += saletaskmx[it_mxbt].enamt Else // 系统不使用多币种,转换为人民币 msttakeamt += saletaskmx[it_mxbt].bsamt End If saletaskmx[it_mxbt].unit = s_mx.unit saletaskmx[it_mxbt].rate = s_mx.rate saletaskmx[it_mxbt].ware_enprice = Round((s_mx.enprice * s_mx.usaleqty)/lde_saleqty,10) saletaskmx[it_mxbt].ware_fprice = Round((s_mx.enprice * s_mx.usaleqty)/lde_saleqty,10) * mrate saletaskmx[it_mxbt].ware_price = Round((s_mx.enprice * s_mx.usaleqty)/lde_saleqty,10) * mrate * s_mx.rebate saletaskmx[it_mxbt].mtrlcode = s_mx.mtrlcode saletaskmx[it_mxbt].status = s_mx.status saletaskmx[it_mxbt].woodcode = s_mx.woodcode saletaskmx[it_mxbt].pcode = s_mx.pcode saletaskmx[it_mxbt].mtrlcuscode = s_mx.mtrlcuscode saletaskmx[it_mxbt].plancode = s_mx.plancode saletaskmx[it_mxbt].outtype = s_mx.outtype saletaskmx[it_mxbt].formula = s_mx.formula saletaskmx[it_mxbt].priceformula = s_mx.priceformula saletaskmx[it_mxbt].dscrp = s_mx.dscrp saletaskmx[it_mxbt].mxdscrp2 = s_mx.mxdscrp2 saletaskmx[it_mxbt].mxdscrp3 = s_mx.mxdscrp3 saletaskmx[it_mxbt].mxdscrp4 = s_mx.mxdscrp4 saletaskmx[it_mxbt].packqty = s_mx.packqty saletaskmx[it_mxbt].otherprice = s_mx.otherprice saletaskmx[it_mxbt].gbrate = lde_gbrate //saletaskmx[it_mxbt].gbotheramt = lde_gbotheramt saletaskmx[it_mxbt].net_weight = s_mx.net_weight saletaskmx[it_mxbt].gross_weight = s_mx.gross_weight saletaskmx[it_mxbt].cubage = s_mx.cubage saletaskmx[it_mxbt].requiredate = s_mx.requiredate saletaskmx[it_mxbt].enprice_notax = s_mx.enprice_notax //不含税单价 ext: If rslt = 0 Then p_clearmx() arg_msg = "第" + String(s_mx.printid) + "行," + arg_msg End If Return(rslt) end function public function integer finishtask_cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);//撤销手动完成 Int rslt = 1,cnt = 0 IF p_getinfo(arg_scid,arg_taskid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF rslt = 0 THEN GOTO ext IF Status <> 6 THEN rslt = 0 arg_msg = "销售订单只有在手动完成状态才可以撤销完成，请核对" GOTO ext END IF SELECT count(*) INTO :cnt FROM u_saletask INNER join u_saletaskmx on u_saletask.scid = u_saletaskmx.scid AND u_saletask.taskid = u_saletaskmx.taskid WHERE ( u_SaleTask.TaskID = :arg_taskid ) AND ( u_SaleTask.scid = :arg_scid) AND u_saletaskmx.usaleqty - u_saletaskmx.consignedqty > 0 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询销售订单信息失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF Not cnt > 0 THEN rslt = 0 arg_msg = '销售订单明细已完成,不能手动撤销完成' GOTO ext END IF UPDATE u_SaleTask SET status = 1, accomplishdate = NULL, 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 ext: IF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF p_reset() 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);//addmxcmpl(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 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 lde_upsalerate, lde_upsaleqty Decimal ls_uSaleQty,ls_consignedQty, lde_stopqty String ls_mtrlcode SELECT u_SaleTaskMx.uSaleQty, u_SaleTaskMx.consignedQty, u_SaleTaskMx.stopqty, u_mtrldef.mtrlcode, u_mtrldef.upsalerate, u_mtrldef.upsaleqty INTO :ls_uSaleQty, :ls_consignedQty, :lde_stopqty, :ls_mtrlcode, :lde_upsalerate, :lde_upsaleqty FROM u_SaleTaskMx ,u_mtrldef WHERE ( u_mtrldef.mtrlid = u_SaleTaskMx.MtrlID ) 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 = "产品["+ls_mtrlcode+"]查询销售订单已完成数量操作失败"+"~n"+SQLCA.SQLErrText GOTO ext END IF ls_uSaleQty = abs(ls_uSaleQty * (1 + lde_upsalerate ) + lde_upsaleqty) IF ls_uSaleQty < ls_consignedQty + lde_stopqty + arg_addqty THEN rslt = 0 ARG_MSG = "产品["+ls_mtrlcode+"]的未完成数量只有"+String(ls_uSaleQty - ls_consignedQty - lde_stopqty,'#,##0.0#')+",不能出仓"+String(arg_addqty,'#,##0.0#') GOTO ext END IF UPDATE u_SaleTaskMx SET consignedQty = consignedQty +:arg_addqty 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 = "因网络或错误产品唯一码导致销售订单完成数量操作失败"+"~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 uof_stopqty (long arg_scid, long arg_taskid, long arg_printid, 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_consignedQty 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[] Long ll_SonMtrlid[] Long ll_l,ll_j SELECT Top 1 getdate() Into :server_datetime From u_user Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF IF IsNull(arg_stopqty) THEN arg_stopqty = 0 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 IF arg_stopreason = "" THEN arg_msg = '请填写终止原因' rslt = 0 GOTO ext END IF 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 THEN arg_msg = '订单只能在进行状态或自动完成状态才能操作' rslt = 0 GOTO ext END IF SELECT u_SaleTaskMx.SaleQty, u_SaleTaskMx.consignedQty, u_SaleTaskMx.enprice, u_SaleTaskMx.rebate, u_SaleTaskMx.stopqty, u_SaleTaskMx.mtrlid, u_SaleTaskMx.status, u_SaleTaskMx.woodcode, u_SaleTaskMx.pcode INTO :ld_saleqty, :ld_consignedQty, :ld_enprice, :ld_rebate, :ld_stopqty_ori, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode FROM u_SaleTaskMx INNER JOIN u_mtrldef ON u_SaleTaskMx.MtrlID = u_mtrldef.mtrlid 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 = '查询物料可终止数失败,'+commit_transaction.SQLErrText GOTO ext END IF IF arg_stopqty > ld_saleqty - ld_consignedQty THEN arg_msg = '明细物料未发货单数只有:'+String(ld_saleqty - ld_consignedQty,'#,##0.##########')+',不能终止:'+String(arg_stopqty,'#,##0.##########') rslt = 0 GOTO ext END IF IF arg_stopqty > 0 THEN 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 = '更新明细中止标记失败,'+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 = '更新订单单据金额失败,'+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 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_tc (long arg_scid, long arg_taskid, s_saletaskmx s_mx[], s_saletaskmx_outrep s_mx_rep[], ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long i FOR i = 1 To UpperBound(s_mx) UPDATE u_saletaskmx SET gbrate = :s_mx[i].gbrate, gbotheramt = :s_mx[i].gbotheramt WHERE scid = :arg_scid AND taskid = :arg_taskid And printid = :s_mx[i].printid; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新订单明细失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF NEXT //删除原有明细 DELETE FROM u_SaleTaskMx_outrep Where taskid = :arg_taskid And scid = :arg_scid ; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除旧有提成明细操作失败"+"~n"+sqlca.SQLErrText GOTO ext END IF FOR i = 1 To UpperBound(s_mx_rep) INSERT INTO u_SaleTaskMx_outrep (scid, taskid, outrepname, rate, amt) VALUES (:arg_scid, :arg_taskid, :s_mx_rep[i].outrepname, :s_mx_rep[i].rate,:s_mx_rep[i].amt); IF sqlca.SQLCode <> 0 THEN arg_msg = '插入订单提成明细失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer audit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);//audit Int rslt = 1,cnt = 0 Long ll_i 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 sys_option_saletask_use_priceflag = 1 THEN //系统选项284，启动确认流程 ，请先确认 IF priceflag = 0 THEN rslt = 0 arg_msg = '系统启动确认流程 ，请先确认，系统选项284' GOTO ext END IF END IF IF Status <> 0 THEN rslt = 0 arg_msg = "订单已经审核,操作取消" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :arg_emp Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消!" GOTO ext END IF //sys_option_saletask_chk_wkd //销售订单审核时，使用物料清单计算库存 系统选项291 IF sys_option_saletask_chk_wkd = 1 THEN IF uf_chk_assemble_qty(scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF Decimal lde_lmsaleprice //检查客户定价 IF sys_option_saletask_dft_lmsaleprice = 1 THEN FOR ll_i = 1 To it_mxbt IF saletaskmx[ll_i].dftsaleprice = 0 THEN rslt = 0 arg_msg = "系统选项[074]限制,行:"+String(ll_i)+",产品编号: "+String(saletaskmx[ll_i].mtrlcode)+", 需先设定客户定价" GOTO ext END IF NEXT END IF /*MEI:生成领料单操作 20160511*/ IF auditing_chk(arg_msg) = 0 THEN rslt = 0 GOTO ext END IF UPDATE u_SaleTask SET auditEmp = :arg_emp , auditdate = getdate(), Status = 4 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 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 audit_cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 DateTime nulldate 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 Status <> 4 THEN rslt = 0 ARG_MSG = "订单只有在待二审状态才可以执行撤消审核，请核对" GOTO ext END IF UPDATE u_SaleTask SET Status = 0, auditEmp = '', auditdate = :nulldate 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 IF uf_destroy_scll(scid, taskid, arg_msg, False) = 0 THEN rslt = 0 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 acceptmx_item (s_saletask_itemmx arg_item, ref string arg_msg);Int rslt = 1 Long cnt cnt = 0 IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF IF IsNull(arg_item.scid) THEN arg_item.scid = 0 IF IsNull(arg_item.saletaskid) THEN arg_item.saletaskid = 0 IF IsNull(arg_item.printid) THEN arg_item.printid = 0 IF IsNull(arg_item.itemid) THEN arg_item.itemid = 0 IF IsNull(arg_item.amt) THEN arg_item.amt = 0 IF IsNull(arg_item.amtyfh) THEN arg_item.amtyfh = 0 IF IsNull(arg_item.mxdscrp) THEN arg_item.mxdscrp = '' IF IsNull(arg_item.itype) THEN arg_item.itype =1//默认方向类型为增项 IF arg_item.itemid = 0 Or arg_item.amt = 0 THEN rslt = 1 GOTO ext END IF SELECT count(*) INTO :cnt FROM u_itemdef Where itemid = :arg_item.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_item.printid)+'行,收支项目不存在,请检查' GOTO ext END IF it_mxbt_item++ saletask_itemmx[it_mxbt_item] = arg_item ext: IF rslt = 0 THEN p_clearmx() RETURN rslt end function public function integer save_end (ref string arg_msg, boolean arg_ifcommit);Long rslt = 1 Long i DELETE FROM u_saletask_itemmx WHERE u_saletask_itemmx.saletaskid = :taskid And u_saletask_itemmx.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_item INSERT INTO u_saletask_itemmx (scid, saletaskid, printid, itemid, amt, amtyfh, mxdscrp, itype ) VALUES (:scid, :taskid, :saletask_itemmx[i].printid, :saletask_itemmx[i].itemid, :saletask_itemmx[i].amt, :saletask_itemmx[i].amtyfh, :saletask_itemmx[i].mxdscrp, :saletask_itemmx[i].itype ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN IF it_newbegin THEN taskid = 0 //还原outwareid rslt = 0 arg_msg = "因网络或其它原因导致插入费用明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; p_clearmx() it_mxbt_item = 0 ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; it_mxbt_item = 0 END IF 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,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 <> 3 THEN rslt = 0 ARG_MSG = "订单只有在终止状态才可以执行取消终止，请核对" GOTO ext END IF UPDATE u_SaleTask SET Status = 1, accomplishdate = null , 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 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_chk (s_saletaskmx s_mx, ref string arg_msg);int rslt = 1 //检查物料id Int li_statusflag,li_woodcodeflag,li_pcodeflag Int li_status_check,li_woodcode_check,li_pcode_check Decimal ld_capacity,ld_capacity_zj s_mtrlcfg_expr s_pz[] String ls_status_zj Long ll_i //检查物料id SELECT statusflag, woodcodeflag, pcodeflag, status_check, woodcode_check, pcode_check INTO :li_statusflag, :li_woodcodeflag, :li_pcodeflag, :li_status_check, :li_woodcode_check, :li_pcode_check FROM u_mtrldef Where u_mtrldef.mtrlid = :s_mx.mtrlid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "第" + String(s_mx.printid) + "行,查询操作失败,编码:"+s_mx.mtrlcode GOTO ext END IF IF li_statusflag = 2 THEN IF s_mx.status = '' THEN arg_msg = '行:'+String(s_mx.printid)+',物料'+sys_option_change_status + '字段使用组合配置,请输入' rslt = 0 GOTO ext END IF ELSEIF li_statusflag = 4 And li_status_check = 1 THEN IF s_mx.status = '' THEN arg_msg = '行:'+String(s_mx.printid)+',物料'+sys_option_change_woodcode + '字段使用部件选配,请输入' rslt = 0 GOTO ext END IF ELSEIF li_statusflag = 1 Or li_statusflag = 0 THEN IF f_check_status(1,s_mx.status) = 0 THEN rslt = 0 arg_msg = '行:'+String(s_mx.printid)+",查询操作失败,可能"+sys_option_change_status+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.status GOTO ext END IF END IF IF li_woodcodeflag = 4 And li_woodcode_check = 1 THEN IF s_mx.woodcode = '' THEN arg_msg = '行:'+String(s_mx.printid)+',物料'+sys_option_change_woodcode + '字段使用部件选配,请输入' rslt = 0 GOTO ext END IF ELSEIF li_woodcodeflag = 1 Or li_woodcodeflag = 0 THEN IF f_check_status(2,s_mx.woodcode) = 0 THEN rslt = 0 arg_msg = '行:'+String(s_mx.printid)+",查询操作失败,可能"+sys_option_change_woodcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.woodcode GOTO ext END IF END IF IF li_pcodeflag = 4 And li_pcode_check = 1 THEN IF s_mx.pcode = '' THEN arg_msg = '行:'+String(s_mx.printid)+',物料'+sys_option_change_pcode + '字段使用部件选配,请输入' rslt = 0 GOTO ext END IF ELSEIF li_pcodeflag = 1 Or li_pcodeflag = 0 THEN IF f_check_status(3,s_mx.pcode) = 0 THEN rslt = 0 arg_msg = '行:'+String(s_mx.printid)+",查询操作失败,可能"+sys_option_change_pcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.pcode GOTO ext END IF END IF ext: return rslt end function public function integer auditing_chk (ref string arg_msg);Long rslt = 1 Long i //IF sys_option_hide_ware = 0 THEN // IF billtype <> 9 THEN // IF uof_check_warepdb_audit(storageid,arg_msg) = 0 THEN // rslt = 0 // GOTO ext // END IF // ELSE // IF Not sysautobuild THEN // IF dscrp = '盘点表审核自动生成盘盈单' THEN // arg_msg = '系统自动生成的单据不能手动审核' // rslt = 0 // GOTO ext // END IF // END IF // END IF //END IF //// //建立自动反扣领料单 IF uf_create_scll(scid,taskid,taskcode,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //IF uf_update_inware_cost ( arg_msg, False) <> 1 THEN // rslt = 0 // GOTO ext //END IF ext: RETURN rslt end function public function integer uf_create_scll (long arg_scid, long arg_billid, string arg_billcode, ref string arg_msg);//uf_create_scll(arg_scid,arg_billid,arg_billcode,arg_storageid,arg_storageid_arr,arg_mtrlid_arr,arg_qty_arr,arg_msg) Long rslt = 1 Long i, j,k,l,pid, ll_cnt, ll_cnt_2 String ls_mtrlcode,ls_storagename,ls_unit Long ll_rqmtrlid Long ll_taskid, ll_printid, ll_ifrel Long ll_outwareid Long ll_storageid_arr[], ll_wrkgrpid_arr[], ll_mtrlid_arr[],ll_rqmtrlid_arr[],ll_storageid_bill[], ll_wrkgrpid_bill[] Decimal lde_qty_arr[], lde_add_DstrQty, lde_trueRqqty, lde_DstrQty uo_outware_scll uo_ware uo_ware = Create uo_outware_scll uo_ware.commit_transaction = commit_transaction s_mtrlware_fk s_fk, s_fk_null s_inware_cp_fkmx s_fpmx,s_null FOR i = 1 To it_mxbt //// //获取产品反扣物料资料 s_fpmx = s_null //mei IF uf_get_pfmtrlmx(saletaskmx[i].mtrlid,saletaskmx[i].saleqty,s_fpmx,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //汇总需领料的物料 FOR j = 1 To UpperBound(s_fpmx.storageid) ll_rqmtrlid = 0 IF saletaskmx[i].taskid > 0 THEN SELECT rqmtrlid INTO :ll_rqmtrlid FROM u_saleRqMtrl_scll WHERE taskID = :saletaskmx[i].taskid AND printid = :saletaskmx[i].printid And mtrlid = :s_fpmx.mtrlid[j]; IF sqlca.SQLCode <> 0 THEN ll_rqmtrlid = 0 END IF END IF //统计物料 FOR k = 1 To UpperBound(ll_storageid_arr) IF ll_storageid_arr[k] = s_fpmx.storageid[j] And & ll_mtrlid_arr[k] = s_fpmx.mtrlid[j] And & ll_wrkgrpid_arr[k] = s_fpmx.wrkgrpid[j] And & ll_rqmtrlid_arr[k] = ll_rqmtrlid THEN lde_qty_arr[k] = lde_qty_arr[k] + s_fpmx.qty[j] GOTO nxt END IF NEXT ll_cnt++ ll_storageid_arr[ll_cnt] = s_fpmx.storageid[j] ll_wrkgrpid_arr[ll_cnt] = s_fpmx.wrkgrpid[j] ll_mtrlid_arr[ll_cnt] = s_fpmx.mtrlid[j] ll_rqmtrlid_arr[ll_cnt] = ll_rqmtrlid lde_qty_arr[ll_cnt] = s_fpmx.qty[j] nxt: //统计仓库 FOR k = 1 To UpperBound(ll_storageid_bill) IF ll_storageid_bill[k] = s_fpmx.storageid[j] And ll_wrkgrpid_bill[k] = s_fpmx.wrkgrpid[j] THEN GOTO nxt2 END IF NEXT ll_cnt_2++ ll_storageid_bill[ll_cnt_2] = s_fpmx.storageid[j] ll_wrkgrpid_bill[ll_cnt_2] = s_fpmx.wrkgrpid[j] nxt2: NEXT NEXT //按仓库, 工作中心 生成领料单 FOR i = 1 To UpperBound(ll_storageid_bill) pid = 0 IF uo_ware.newbegin(arg_scid,3,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_ware.outdate = DateTime(Today(),Now()) uo_ware.outrep = publ_operator uo_ware.dscrp = '销售订单自动生成领料' uo_ware.storageid = ll_storageid_bill[i] uo_ware.relid = ll_wrkgrpid_bill[i] /// //领料组、工作中心ID uo_ware.relint_1 = arg_billid uo_ware.part = arg_billcode SELECT storagename INTO :ls_storagename FROM u_storage WHERE storageid = :ll_storageid_bill[i] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询仓库资料失败' GOTO ext END IF FOR j = 1 To UpperBound(ll_storageid_arr) IF ll_storageid_arr[j] = ll_storageid_bill[i] And ll_wrkgrpid_arr[j] = ll_wrkgrpid_bill[i] THEN s_fk = s_fk_null ll_rqmtrlid = 0 ll_taskid = 0 ll_printid = 0 ll_ifrel = 0 IF ll_rqmtrlid_arr[j] > 0 THEN SELECT taskID, printid,trueRqqty , DstrQty INTO :ll_taskid, :ll_printid, :lde_trueRqqty, :lde_DstrQty FROM u_saleRqMtrl_scll Where rqmtrlid = :ll_rqmtrlid_arr[j] Using commit_transaction; IF commit_transaction.SQLCode = 0 THEN ll_rqmtrlid = ll_rqmtrlid_arr[j] ll_ifrel = 1 END IF END IF SELECT mtrlcode,unit INTO :ls_mtrlcode,:ls_unit FROM u_mtrldef Where mtrlid = :ll_mtrlid_arr[j] Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料资料失败' GOTO ext END IF lde_add_DstrQty = lde_qty_arr[j] IF ll_ifrel = 1 THEN IF lde_add_DstrQty > lde_trueRqqty - lde_DstrQty THEN lde_add_DstrQty = lde_trueRqqty - lde_DstrQty END IF END IF IF lde_add_DstrQty > 0 THEN //MEI IF uf_get_mtrlware( ll_storageid_bill[i],ll_mtrlid_arr[j],lde_add_DstrQty,ls_mtrlcode,ls_storagename,s_fk,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF FOR k = 1 To UpperBound(s_fk.mtrlwareid) pid++ IF uo_ware.acceptmx(s_fk.mtrlwareid[k],& s_fk.qty[k], s_fk.addqty[k], s_fk.cost[k],1,& '',pid,arg_msg,ll_ifrel,ll_taskid,ll_printid,ll_rqmtrlid,& 0,0,0,& ls_unit,1,'','') = 0 THEN rslt = 0 GOTO ext END IF NEXT END IF END IF NEXT IF uo_ware.Save(False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF sys_option_saletask_autocreatescll = 1 THEN ll_outwareid = uo_ware.outwareid IF uo_ware.getinfo(arg_scid,ll_outwareid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_ware.auditing(False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF NEXT ext: Destroy uo_ware RETURN rslt end function public function integer uf_get_pfmtrlmx (long arg_mtrlid, decimal arg_qty, ref s_inware_cp_fkmx arg_s_fkmx, ref string arg_msg);Long rslt = 1 Long ll_ifautoscll,ll_fklevel,ll_sauditflag String ls_mtrlcode SELECT ifautoscll_saletask,fklevel,mtrlcode,sauditflag INTO :ll_ifautoscll,:ll_fklevel,:ls_mtrlcode,:ll_sauditflag FROM u_mtrldef Where mtrlid = :arg_mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询产品资料失败，产品唯一码错误' GOTO ext END IF IF ll_ifautoscll = 0 THEN rslt = 1 GOTO ext END IF IF ll_sauditflag = 0 THEN rslt = 0 arg_msg = '产品['+ls_mtrlcode+']清单还没审核，请先审核' GOTO ext END IF Dec lde_Sonscale,lde_sonloss,lde_sondecloss Long ll_SonMtrlid,ll_storageid,k,ll_dft,cnt,ll_wrkgrpid String ls_mtrlcode_pf IF ll_fklevel = 0 THEN // //清单反扣直接下级物料 datastore ds_pfmx ds_pfmx = Create datastore ds_pfmx.DataObject = 'ds_mtrl_pfmx' ds_pfmx.SetTransObject(commit_transaction) ds_pfmx.Retrieve(arg_mtrlid) IF ds_pfmx.RowCount() = 0 THEN rslt = 1 GOTO ext END IF FOR k = 1 To ds_pfmx.RowCount() IF ll_SonMtrlid <> ds_pfmx.Object.u_prdpf_sonmtrlid[k] THEN ll_SonMtrlid = ds_pfmx.Object.u_prdpf_sonmtrlid[k] ll_storageid = ds_pfmx.Object.u_mtrl_storage_storageid[k] lde_Sonscale = ds_pfmx.Object.u_prdpf_sonscale[k] lde_sonloss = ds_pfmx.Object.u_prdpf_sonloss[k] lde_sondecloss = ds_pfmx.Object.u_prdpf_sondecloss[k] ls_mtrlcode_pf = ds_pfmx.Object.u_mtrldef_mtrlcode[k] ll_wrkgrpid = ds_pfmx.Object.u_prdpf_wrkgrpid[k] IF ll_wrkgrpid <= 0 THEN rslt = 0 arg_msg = '产品['+ls_mtrlcode+']清单中物料['+ls_mtrlcode_pf+']还没设定领料组，请先设定' GOTO ext END IF IF ds_pfmx.Object.u_mtrl_storage_dft[k] <> 1 THEN rslt = 0 arg_msg = '物料['+ls_mtrlcode_pf+']还没设定默认反扣仓库，请先设定' GOTO ext END IF cnt++ arg_s_fkmx.storageid[cnt] = ll_storageid arg_s_fkmx.mtrlid[cnt] = ll_SonMtrlid arg_s_fkmx.wrkgrpid[cnt] = ll_wrkgrpid arg_s_fkmx.qty[cnt] = arg_qty * lde_Sonscale / (1 - lde_sonloss) + lde_sondecloss END IF NEXT ELSEIF ll_fklevel = 1 THEN // //清单反扣最底层物料 IF uf_cmpl_rqmtrl(arg_mtrlid,arg_qty,0,ll_sauditflag,ls_mtrlcode,arg_s_fkmx,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF ext: RETURN rslt end function public function integer uf_cmpl_rqmtrl (long arg_mtrlid, decimal arg_qty, long arg_lp, long arg_flag, string arg_mtrlcode, s_inware_cp_fkmx arg_s_fkmx, string arg_msg);Long rslt = 1 Long ll_cnt,ll_lp,ll_rft,k,i Dec lde_Sonscale,lde_sonloss,lde_sondecloss,lde_qty Long ll_SonMtrlid,ll_storageid,ll_dft,ll_flag,ll_wrkgrpid String ls_mtrlcode_pf,ls_mtrlcode Long ll_SonMtrlid_arr[],ll_storageid_arr[],ll_flag_arr[],ll_wrkgrpid_arr[] Dec ll_qty_arr[] String ls_mtrlcode_arr[] SELECT count(*) INTO :ll_cnt FROM u_PrdPF Where u_PrdPF.mtrlid = :arg_mtrlid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询产品['+arg_mtrlcode+']清单失败' GOTO ext END IF IF arg_lp = 0 THEN IF ll_cnt = 0 THEN rslt = 0 arg_msg = '产品['+arg_mtrlcode+']还没设定清单，请先设定' GOTO ext END IF IF arg_flag = 0 THEN rslt = 0 arg_msg = '产品['+arg_mtrlcode+']清单还没审核，请先审核' GOTO ext END IF ELSE IF ll_cnt = 0 THEN rslt = 2 GOTO ext ELSEIF ll_cnt > 0 AND arg_flag = 0 THEN rslt = 0 arg_msg = '物料['+arg_mtrlcode+']清单还没审核，请先审核' GOTO ext END IF END IF ll_cnt = 0 DECLARE cur_pf CURSOR FOR SELECT u_PrdPF.Sonscale, u_PrdPF.sonloss, u_PrdPF.sondecloss, u_PrdPF.SonMtrlid, u_mtrldef.mtrlcode, u_mtrldef.sauditflag, u_PrdPF.wrkgrpid FROM u_PrdPF INNER JOIN u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid Where ( u_PrdPF.mtrlid = :arg_mtrlid ) USING commit_transaction; OPEN cur_pf; FETCH cur_pf INTO :lde_Sonscale,:lde_sonloss,:lde_sondecloss,:ll_SonMtrlid,:ls_mtrlcode_pf,:ll_flag,:ll_wrkgrpid; DO WHILE commit_transaction.SQLCode = 0 lde_qty = arg_qty * lde_Sonscale / (1 - lde_sonloss) + lde_sondecloss k++ ll_SonMtrlid_arr[k] = ll_SonMtrlid ll_qty_arr[k] = lde_qty ll_flag_arr[k] = ll_flag ls_mtrlcode_arr[k] = ls_mtrlcode_pf ll_wrkgrpid_arr[k] = ll_wrkgrpid FETCH cur_pf INTO :lde_Sonscale,:lde_sonloss,:lde_sondecloss,:ll_SonMtrlid,:ls_mtrlcode_pf,:ll_flag,:ll_wrkgrpid; LOOP CLOSE cur_pf; FOR i = 1 TO UpperBound(ll_SonMtrlid_arr) ll_lp = arg_lp + 1 IF ll_wrkgrpid_arr[i] <= 0 THEN rslt = 0 arg_msg = '产品['+arg_mtrlcode+']清单中物料['+ls_mtrlcode_arr[i]+']领料组还没设定，请先设定' GOTO ext END IF ll_rft = uf_cmpl_rqmtrl(ll_SonMtrlid_arr[i],ll_qty_arr[i],ll_lp,ll_flag_arr[i],ls_mtrlcode_arr[i],arg_s_fkmx,arg_msg) IF ll_rft = 0 THEN rslt = 0 GOTO ext ELSEIF ll_rft = 1 THEN CONTINUE END IF IF ll_SonMtrlid_arr[i] > 0 THEN SELECT count(*) INTO :ll_cnt FROM u_mtrldef LEFT OUTER JOIN u_mtrl_storage ON u_mtrldef.mtrlid = u_mtrl_storage.mtrlid WHERE u_mtrldef.mtrlid = :ll_SonMtrlid_arr[i] AND IsNull(u_mtrl_storage.dft,0) = 1 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料['+ls_mtrlcode_arr[i]+']默认反扣仓库失败' GOTO ext END IF IF ll_cnt = 0 THEN rslt = 0 arg_msg = '物料['+ls_mtrlcode_arr[i]+']还没设定默认反扣仓库，请先设定' GOTO ext ELSEIF ll_cnt > 1 THEN rslt = 0 arg_msg = '物料['+ls_mtrlcode_arr[i]+']设定了多个默认反扣仓库，只能设置一个' GOTO ext END IF SELECT u_mtrl_storage.storageid INTO :ll_storageid FROM u_mtrldef LEFT OUTER JOIN u_mtrl_storage ON u_mtrldef.mtrlid = u_mtrl_storage.mtrlid WHERE u_mtrldef.mtrlid = :ll_SonMtrlid_arr[i] AND IsNull(u_mtrl_storage.dft,0) = 1 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料['+ls_mtrlcode_arr[i]+']默认反扣仓库失败' GOTO ext END IF END IF it_mxbt_pf++ arg_s_fkmx.storageid[it_mxbt_pf] = ll_storageid arg_s_fkmx.mtrlid[it_mxbt_pf] = ll_SonMtrlid_arr[i] arg_s_fkmx.wrkgrpid[it_mxbt_pf] = ll_wrkgrpid_arr[i] arg_s_fkmx.qty[it_mxbt_pf] = ll_qty_arr[i] NEXT ext: RETURN rslt end function public function integer uf_get_mtrlware (long arg_storageid, long arg_mtrlid, decimal arg_qty, string arg_mtrlcode, string arg_storagename, ref s_mtrlware_fk s_fk, ref string arg_msg);//uf_get_mtrlware(arg_storageid,arg_mtrlid,arg_qty,arg_mtrlcode,arg_storagename,s_fk,arg_msg) Long rslt = 1 Dec ll_sumqty Long plancnt SELECT isnull(sum(noallocqty),0) INTO :ll_sumqty FROM u_mtrlware WHERE ( mtrlid = :arg_mtrlid) AND (storageid = :arg_storageid) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料['+arg_mtrlcode+']库存失败' GOTO ext END IF IF ll_sumqty < arg_qty THEN rslt = 0 arg_msg = '物料['+arg_mtrlcode+']在仓库['+arg_storagename+']库存为:'+String(ll_sumqty,'#,##0.#####')+',少于需领数:'+String(arg_qty,'#,##0.#####') GOTO ext END IF SELECT count(*) INTO :plancnt FROM u_mtrlware WHERE ( u_mtrlware.mtrlid = :arg_mtrlid ) AND ( u_mtrlware.storageid = :arg_storageid ) AND ( u_mtrlware.noallocqty > 0 ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料['+arg_mtrlcode+']库存资料失败' GOTO ext END IF Long ins_mtrlwareid Dec ins_qty,ins_addqty,ins_cost Long count,i Dec sumqty,noallocqty,allocqty,i_qty noallocqty = arg_qty DECLARE pf_cur CURSOR FOR SELECT u_mtrlware.mtrlwareid, u_mtrlware.noallocqty, u_mtrlware.noallocaddqty, u_mtrlware.cost FROM u_mtrlware WHERE ( u_mtrlware.mtrlid = :arg_mtrlid ) AND ( u_mtrlware.storageid = :arg_storageid ) AND ( u_mtrlware.noallocqty > 0 ) Order By u_mtrlware.noallocqty Asc USING commit_transaction; OPEN pf_cur; count = 1 FETCH pf_cur INTO :ins_mtrlwareid, & :ins_qty,:ins_addqty,:ins_cost ; DO WHILE sqlca.SQLCode = 0 AND sumqty < arg_qty count++ sumqty = sumqty+ins_qty IF ins_qty > noallocqty THEN i_qty = noallocqty allocqty = allocqty+i_qty noallocqty = 0 ins_addqty = Int(ins_addqty * noallocqty / ins_qty) ELSEIF ins_qty = noallocqty THEN i_qty = noallocqty allocqty = allocqty+i_qty noallocqty = 0 //noallocqty - ins_qty ELSE IF plancnt > 1 THEN i_qty = sumqty - allocqty allocqty = allocqty+i_qty noallocqty = arg_qty - allocqty ELSE i_qty = arg_qty noallocqty = 0 END IF END IF i++ s_fk.mtrlwareid[i] = ins_mtrlwareid s_fk.addqty[i] = ins_addqty s_fk.qty[i] = i_qty s_fk.cost[i] = ins_cost FETCH pf_cur INTO :ins_mtrlwareid,& :ins_qty,:ins_addqty,:ins_cost ; LOOP count = count - 1 CLOSE pf_cur; ext: RETURN rslt end function public function integer uf_update_inware_cost (ref string arg_msg, boolean arg_ifcommit);//Int rslt = 1 // //long i //Long ll_inprice_mode //Decimal ld_planprice // //Decimal wfjgprice, jgprice,outcost //Decimal ld_outamt //Decimal ld_inamt //Decimal ld_cost_price //Decimal ld_fprice // //FOR i = 1 To it_mxbt // // SELECT inprice_mode, planprice // INTO :ll_inprice_mode, :ld_planprice // FROM u_mtrldef // Where mtrlid = :inwaremx[i].mtrlid // using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询物料生产进仓取价模式失败,' + commit_transaction.SQLErrText // GOTO ext // END IF // // // ll_inprice_mode 进仓成本模式; 0-取计划价; 1-按领用材料最新采购价; 2-按领用材料出仓成本价 // IF ll_inprice_mode = 0 THEN //取计划价 // //不需要修改, 成功,下一条 // CONTINUE // END IF // // SELECT TOP 1 u_mtrlprice_sum.wfjgprice, u_mtrlprice_sum.jgprice, u_mtrlprice_sum.outcost // INTO :wfjgprice,:jgprice,:outcost // FROM u_mtrldef INNER JOIN // u_mtrlprice_sum ON u_mtrldef.mtrlid = u_mtrlprice_sum.mtrlid INNER JOIN // (SELECT MAX(sumdate) AS sumdate, mtrlid, pfcode, status, woodcode, pcode // FROM u_mtrlprice_sum AS u_mtrlprice_sum_1 // GROUP BY mtrlid, pfcode, status, woodcode, pcode) AS v_mtrlid_sumdate ON // u_mtrlprice_sum.status = v_mtrlid_sumdate.status AND // u_mtrlprice_sum.woodcode = v_mtrlid_sumdate.woodcode AND // u_mtrlprice_sum.pcode = v_mtrlid_sumdate.pcode AND // u_mtrlprice_sum.mtrlid = v_mtrlid_sumdate.mtrlid AND // u_mtrlprice_sum.pfcode = v_mtrlid_sumdate.pfcode AND // u_mtrlprice_sum.sumdate = v_mtrlid_sumdate.sumdate // WHERE (u_mtrlprice_sum.mtrlid = :inwaremx[i].mtrlid) // AND (u_mtrlprice_sum.status = :inwaremx[i].status) // AND (u_mtrlprice_sum.woodcode = :inwaremx[i].woodcode) // And (u_mtrlprice_sum.pcode = :inwaremx[i].pcode) // using commit_transaction; // // IF commit_transaction.SQLCode <> 0 THEN //统计成本 // wfjgprice = 0 // jgprice = 0 // outcost = 0 // END IF // // // IF IsNull(wfjgprice) THEN wfjgprice = 0 // IF IsNull(jgprice) THEN jgprice = 0 // IF IsNull(outcost) THEN outcost = 0 // // // IF ll_inprice_mode = 1 THEN //按领用材料最新采购价 // // SELECT ISNULL(SUM(u_outwaremx.qty * v_maxprice_sptprice.price),0) // INTO :ld_outamt // FROM u_outwaremx INNER JOIN // u_outware ON u_outwaremx.scid = u_outware.scid AND u_outwaremx.outwareid = u_outware.outwareid INNER JOIN // v_maxprice_sptprice ON u_outwaremx.mtrlid = v_maxprice_sptprice.mtrlid AND // u_outwaremx.status = v_maxprice_sptprice.status AND // u_outwaremx.woodcode = v_maxprice_sptprice.woodcode AND // u_outwaremx.pcode = v_maxprice_sptprice.pcode // WHERE (u_outware.billtype = 3) // AND (u_outwaremx.scid = :scid) // AND (u_outwaremx.relid = :inwaremx[i].relid) // AND (u_outwaremx.relprintid = :inwaremx[i].relprintid) // using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询生产进仓明细的订单明细的出仓总金额失败,' + commit_transaction.SQLErrText // GOTO ext // END IF // // SELECT ISNULL(SUM(u_inwaremx.cost_price * u_inwaremx.qty),0) // INTO :ld_inamt // FROM u_inwaremx INNER JOIN // u_inware ON u_inwaremx.scid = u_inware.scid AND u_inwaremx.inwareid = u_inware.inwareid // WHERE (u_inware.billtype = 3) // AND (u_inwaremx.scid = :scid) // AND (u_inwaremx.relid = :inwaremx[i].relid) // AND (u_inwaremx.relprintid = :inwaremx[i].relprintid) // AND (u_inwaremx.inwareid <> :inwareid OR u_inwaremx.printid <> :inwaremx[i].printid) // And (u_inware.flag = 1) // using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询生产进仓明细的订单明细的其它明细进仓总金额失败,' + commit_transaction.SQLErrText // GOTO ext // END IF // // ld_cost_price = (ld_outamt - ld_inamt) / inwaremx[i].qty // ld_fprice = ld_cost_price + wfjgprice + jgprice + outcost // // // // ELSEIF ll_inprice_mode = 2 THEN //按领用材料出仓成本价 // SELECT ISNULL(SUM(u_outwaremx.qty * u_outwaremx.fprice),0) // INTO :ld_outamt // FROM u_outwaremx INNER JOIN // u_outware ON u_outwaremx.scid = u_outware.scid AND u_outwaremx.outwareid = u_outware.outwareid // WHERE (u_outware.billtype = 3) // AND (u_outwaremx.scid = :scid) // AND (u_outwaremx.relid = :inwaremx[i].relid) // AND (u_outwaremx.relprintid = :inwaremx[i].relprintid) // using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询生产进仓明细的订单明细的出仓总金额失败,' + commit_transaction.SQLErrText // GOTO ext // END IF // // SELECT ISNULL(SUM(u_inwaremx.cost_price * u_inwaremx.qty),0) // INTO :ld_inamt // FROM u_inwaremx INNER JOIN // u_inware ON u_inwaremx.scid = u_inware.scid AND u_inwaremx.inwareid = u_inware.inwareid // WHERE (u_inware.billtype = 3) // AND (u_inwaremx.scid = :scid) // AND (u_inwaremx.relid = :inwaremx[i].relid) // AND (u_inwaremx.relprintid = :inwaremx[i].relprintid) // AND (u_inwaremx.inwareid <> :inwareid OR u_inwaremx.printid <> :inwaremx[i].printid) // And (u_inware.flag = 1) // using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询生产进仓明细的订单明细的其它明细进仓总金额失败,' + commit_transaction.SQLErrText // GOTO ext // END IF // // ld_cost_price = (ld_outamt - ld_inamt) / inwaremx[i].qty // ld_fprice = ld_cost_price + wfjgprice + jgprice + outcost // // END IF // // inwaremx[i].fprice = ld_fprice // inwaremx[i].cost = ld_fprice // inwaremx[i].costamt = round(inwaremx[i].qty * ld_fprice, 2) // // UPDATE u_inwaremx // SET cost_price = :ld_cost_price, // fprice = :ld_fprice, // cost = :ld_fprice, // costamt = round(qty * :ld_fprice,2) // WHERE scid = :scid // AND inwareid = :inwareid // And printid = :inwaremx[i].printid // using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // IF ll_inprice_mode = 1 THEN // arg_msg = '行:'+String(i)+',按领用材料最新采购价更新生产进仓明细单价失败,' + commit_transaction.SQLErrText // ELSEIF ll_inprice_mode = 2 THEN // arg_msg = '行:'+String(i)+',按领用材料出仓成本价更新生产进仓明细单价失败,' + commit_transaction.SQLErrText // ELSE // arg_msg = '行:'+String(i)+',更新生产进仓明细单价失败,' + commit_transaction.SQLErrText // END IF // GOTO ext // END IF //NEXT // //ext: // //IF rslt = 0 THEN // ROLLBACK Using commit_transaction; //ELSEIF arg_ifcommit THEN // COMMIT Using commit_transaction; //END IF // //RETURN rslt // // return 1 // // // // end function public function integer uf_destroy_scll (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit);Long rslt = 1 Long i,ch Long ll_outwareid_arr[],ll_outwareid Int li_flag_arr[], li_flag String ls_outwarecode_arr[], ls_outwarecode uo_outware_scll uo_ware uo_ware = Create uo_outware_scll uo_ware.commit_transaction = commit_transaction uo_ware.if_getid_ture = False //读取单据 DECLARE getoutware CURSOR FOR SELECT outwareid , flag, outwarecode FROM u_outware WHERE billtype = 3 AND relint_1 = :arg_inwareid AND dscrp = '销售订单自动生成领料' Using commit_transaction; OPEN getoutware; DO WHILE commit_transaction.SQLCode = 0 FETCH getoutware Into :ll_outwareid, :li_flag, :ls_outwarecode; IF commit_transaction.SQLCode <> 0 THEN EXIT ch++ ll_outwareid_arr[ch] = ll_outwareid li_flag_arr[ch] = li_flag ls_outwarecode_arr[ch] = ls_outwarecode LOOP CLOSE getoutware; //检查审核 IF sys_option_saletask_autocreatescll = 0 THEN FOR i = 1 To ch IF li_flag_arr[i] = 1 THEN rslt = 0 arg_msg = "系统选项[082]限制,相关领料单["+ls_outwarecode_arr[i]+"]已审核,请手动撤审后再处理生产进仓单" GOTO ext END IF NEXT END IF //删除单据 String ls_msg FOR i = 1 To ch IF sys_option_saletask_autocreatescll = 1 THEN //自动撤审 IF uo_ware.getinfo(arg_scid,ll_outwareid_arr[i],arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_ware.c_auditing(False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF IF uo_ware.del(arg_scid,ll_outwareid_arr[i],arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF sys_option_saletask_autocreatescll = 1 THEN ls_msg = "销售订单撤审自动撤审、删除相关领料单" ELSE ls_msg = "销售订单撤审自动删除相关领料单" END IF if f_setsysoplog('领料单',ls_msg+',id:'+String(ll_outwareid_arr[i])+',code:'+ls_outwarecode_arr[i],arg_msg,False) = 0 then rslt = 0 goto ext end if NEXT ext: Destroy uo_ware IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSE COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer priceaudit (long arg_scid, long arg_taskid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);//audit Int rslt = 1,cnt = 0 Long ll_i 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 priceflag <> 0 THEN rslt = 0 arg_msg = "订单已经确认,操作取消" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_user Where username = :arg_emp Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员!" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消!" GOTO ext END IF UPDATE u_SaleTask SET priceemp = :arg_emp , pricedate = getdate(), priceflag = 1 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 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_cancel (long arg_scid, long arg_taskid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 DateTime nulldate 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 priceflag = 0 THEN rslt = 0 arg_msg = "订单未确认,操作取消" GOTO ext END IF UPDATE u_SaleTask SET priceflag = 0, priceemp = '', pricedate = :nulldate 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 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 uf_chk_assemble_qty (long arg_scid, ref string arg_msg); Int rslt = 1 Long i,j,k,new_it_mxbt Long li_flag //检查物料是否有清单 s_saletaskmx temp_outwaremx[],new_outwaremx[] ,new_sonmtrl_outwaremx[],null_outwaremx[] //明细结构数组 temp_outwaremx = saletaskmx Long ll_flag1 FOR i = 1 To it_mxbt FOR j = 1 To UpperBound(new_outwaremx) IF temp_outwaremx[i].mtrlid = new_outwaremx[j].mtrlid And temp_outwaremx[i].status = new_outwaremx[j].status And temp_outwaremx[i].woodcode = new_outwaremx[j].woodcode And temp_outwaremx[i].pcode = new_outwaremx[j].pcode THEN new_outwaremx[j].usaleqty = new_outwaremx[j].usaleqty + temp_outwaremx[i].usaleqty GOTO nxt1 END IF NEXT //查mtlwareid Long ll_temp_mtrlwareid ll_temp_mtrlwareid = 0 SELECT Top 1 mtrlwareid Into :ll_temp_mtrlwareid From u_mtrlware Where ( u_mtrlware.scid = :arg_scid ) And ( u_mtrlware.mtrlid = :new_sonmtrl_outwaremx[i].mtrlid ) And ( u_mtrlware.status = :new_sonmtrl_outwaremx[i].status ) And ( u_mtrlware.woodcode = :new_sonmtrl_outwaremx[i].woodcode ) And ( u_mtrlware.pcode = :new_sonmtrl_outwaremx[i].pcode ) Order By u_mtrlware.noallocqty Desc Using commit_transaction; IF IsNull(ll_temp_mtrlwareid) THEN ll_temp_mtrlwareid = 0 new_it_mxbt++ new_outwaremx[new_it_mxbt].mtrlwareid = ll_temp_mtrlwareid new_outwaremx[new_it_mxbt].mtrlid = temp_outwaremx[i].mtrlid new_outwaremx[new_it_mxbt].usaleqty = temp_outwaremx[i].usaleqty new_outwaremx[new_it_mxbt].status = temp_outwaremx[i].status new_outwaremx[new_it_mxbt].woodcode = temp_outwaremx[i].woodcode new_outwaremx[new_it_mxbt].pcode = temp_outwaremx[i].pcode nxt1: NEXT Decimal i_noauditingqty = 0 //已开单未审 Decimal i_noallocqty = 0 //现库存数 FOR i = 1 To UpperBound(new_outwaremx) i_noauditingqty = 0 i_noallocqty = 0 //计算库存数 SELECT IsNull(u_mtrlware.noallocqty,0) Into :i_noallocqty From u_mtrlware Left Outer join uv_mtrlware_noauditingqty On ( u_mtrlware.mtrlwareid = uv_mtrlware_noauditingqty.mtrlwareid) And ( u_mtrlware.scid = uv_mtrlware_noauditingqty.scid) Inner join u_mtrldef On ( u_mtrlware.mtrlid = u_mtrldef.mtrlid ) Where ( u_mtrlware.scid = :arg_scid ) And ( u_mtrlware.mtrlwareid = :new_outwaremx[i].mtrlwareid ) Using commit_transaction; //计算已开单数 SELECT isnull(sum(u_outwaremx.uqty),0) INTO :i_noauditingqty FROM u_outwaremx INNER join u_outware on u_outware.scid = u_outwaremx.scid AND u_outware.outwareid = u_outwaremx.outwareid WHERE u_outwaremx.scid = :arg_scid AND u_outware.flag = 0 AND u_outwaremx.mtrlwareid = :new_outwaremx[i].mtrlwareid Using commit_transaction; NEXT //查下级物料清单 Long cur_mxt_pf Long ll_SonMtrlid[],temp_ll[] String ls_pf_status[],ls_pf_woodcode[],ls_pf_pcode[],temp_str[] Decimal ld_Sonscale[] new_it_mxbt = 0 new_sonmtrl_outwaremx = null_outwaremx //物料清单汇总 FOR i = 1 To UpperBound(new_outwaremx) cur_mxt_pf = 1 ll_SonMtrlid = temp_ll ls_pf_status = temp_str ls_pf_woodcode = temp_str ls_pf_pcode = temp_str DECLARE cur_pf CURSOR FOR SELECT u_PrdPF.SonMtrlid, u_PrdPF.Sonscale, u_PrdPF.status, u_PrdPF.woodcode, u_PrdPF.pcode FROM u_PrdPF Where u_PrdPF.mtrlid = :new_outwaremx[i].mtrlid; OPEN cur_pf; FETCH cur_pf Into :ll_SonMtrlid[cur_mxt_pf],:ld_Sonscale[cur_mxt_pf],:ls_pf_status[cur_mxt_pf],:ls_pf_woodcode[cur_mxt_pf],:ls_pf_pcode[cur_mxt_pf]; DO WHILE sqlca.SQLCode = 0 cur_mxt_pf++ FETCH cur_pf Into :ll_SonMtrlid[cur_mxt_pf],:ld_Sonscale[cur_mxt_pf],:ls_pf_status[cur_mxt_pf],:ls_pf_woodcode[cur_mxt_pf],:ls_pf_pcode[cur_mxt_pf]; LOOP cur_mxt_pf = cur_mxt_pf - 1 CLOSE cur_pf; //物料清单 放到新数组 FOR j = 1 To cur_mxt_pf FOR k = 1 To UpperBound(new_sonmtrl_outwaremx) IF new_sonmtrl_outwaremx[k].mtrlid = ll_SonMtrlid[j] And new_sonmtrl_outwaremx[k].status = ls_pf_status[j] And new_sonmtrl_outwaremx[k].woodcode = ls_pf_woodcode[j] And new_sonmtrl_outwaremx[k].pcode = ls_pf_pcode[j] THEN new_sonmtrl_outwaremx[k].usaleqty = new_sonmtrl_outwaremx[k].usaleqty + ld_Sonscale[j] * new_outwaremx[i].usaleqty GOTO nxt2 END IF NEXT new_it_mxbt++ new_sonmtrl_outwaremx[new_it_mxbt].mtrlid = ll_SonMtrlid[j] new_sonmtrl_outwaremx[new_it_mxbt].usaleqty = ld_Sonscale[j] * new_outwaremx[i].usaleqty new_sonmtrl_outwaremx[new_it_mxbt].status = ls_pf_status[j] new_sonmtrl_outwaremx[new_it_mxbt].woodcode = ls_pf_woodcode[j] new_sonmtrl_outwaremx[new_it_mxbt].pcode = ls_pf_pcode[j] NEXT nxt2: NEXT //检查下级清单够不够库存 String ls_mtrlcode,ls_mtrlname FOR i = 1 To UpperBound(new_sonmtrl_outwaremx) i_noallocqty = 0 ls_mtrlcode = '' ls_mtrlname = '' //计算库存数 SELECT u_mtrldef.mtrlcode, u_mtrldef.mtrlname, IsNull(sum(u_mtrlware.noallocqty),0) Into :ls_mtrlcode, :ls_mtrlname, :i_noallocqty From u_mtrlware Left Outer join uv_mtrlware_noauditingqty On ( u_mtrlware.mtrlwareid = uv_mtrlware_noauditingqty.mtrlwareid) And ( u_mtrlware.scid = uv_mtrlware_noauditingqty.scid) Inner join u_mtrldef On ( u_mtrlware.mtrlid = u_mtrldef.mtrlid ) Where ( u_mtrlware.scid = :arg_scid ) And ( u_mtrlware.mtrlid = :new_sonmtrl_outwaremx[i].mtrlid ) And ( u_mtrlware.status = :new_sonmtrl_outwaremx[i].status ) And ( u_mtrlware.woodcode = :new_sonmtrl_outwaremx[i].woodcode ) And ( u_mtrlware.pcode = :new_sonmtrl_outwaremx[i].pcode ) Group By u_mtrldef.mtrlcode, u_mtrldef.mtrlname Using commit_transaction; IF new_sonmtrl_outwaremx[i].usaleqty > i_noallocqty THEN IF arg_msg = '' THEN arg_msg = '物料编码：' + String(ls_mtrlcode) + ' 物料名称：' + String(ls_mtrlname) + ' 总需求数(本单+其他已开单)：' + String(new_sonmtrl_outwaremx[i].usaleqty,'#,##0.00') + ' 当前库存数：' + String(i_noallocqty,'#,##0.00') + ' 还差：' + String(new_sonmtrl_outwaremx[i].usaleqty - i_noallocqty,'#,##0.00') + '~r~n' ELSE arg_msg = arg_msg + '~r~n' + '物料编码：' + String(ls_mtrlcode) + ' 物料名称：' + String(ls_mtrlname) + ' 总需求数(本单+其他已开单)：' + String(new_sonmtrl_outwaremx[i].usaleqty,'#,##0.00') + ' 当前库存数：' + String(i_noallocqty,'#,##0.00') + ' 还差：' + String(new_sonmtrl_outwaremx[i].usaleqty - i_noallocqty,'#,##0.00') + '~r~n' END IF END IF NEXT IF arg_msg <> '' THEN rslt = 0 END IF RETURN rslt end function public function integer salecheck (long arg_scid, long arg_taskid, long arg_printid, string arg_emp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1,cnt = 0 string ls_emp long ll_scid,ll_taskid,ll_printid 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 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_saletaskmx Set checkemp = :arg_emp , checkdate = getdate(), checkflag = 1 Where scid = :arg_scid And TaskID = :arg_taskid And printid = :arg_printid; 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 Then Commit Using commit_transaction; End If Return (rslt) end function public function integer salecheck_cancel (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 long ll_scid,ll_taskid,ll_printid Datetime nulldate Setnull(nulldate) UPDATE u_saletaskmx SET checkflag = 0, checkemp = '', checkdate = :nulldate WHERE taskid = :arg_taskid AND scid = :arg_scid AND printid = :arg_printid; 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 Then Commit Using commit_transaction; End If Return (rslt) end function public function integer uof_insertwaste (integer arg_wastetype, integer arg_taskid, integer arg_scid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt Long ll_wastenum DateTime server_dt IF arg_scid < 0 THEN arg_msg = '错误的分部' rslt = 0 GOTO ext END IF IF arg_taskid <= 0 THEN arg_msg = '错误销售订单唯一码' rslt = 0 GOTO ext END IF 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 //明细 cnt = 0 SELECT count(*) INTO :cnt FROM u_saletask_waste Where scid = :arg_scid AND taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询操作失败，明细单据'+commit_transaction.SQLErrText GOTO ext ELSE IF cnt = 0 THEN ll_wastenum = 1 ELSE SELECT max(wastenum) INTO :ll_wastenum FROM u_saletask_waste Where scid = :arg_scid AND taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询操作失败，明细单据'+commit_transaction.SQLErrText GOTO ext END IF ll_wastenum++ END IF END IF INSERT INTO u_saletaskmx_waste (wastenum, scid, taskid, mtrlid, enprice_notax, checkdate, cubage, checkflag, priceformula, checkemp, mxdscrp4, mxdscrp3, net_weight, gross_weight, bsamt_tax, bsamt, enamt_tax, enamt, stopqty, stopreason, stopdate, stopemp, stopflag, gbotheramt, gbrate, packqty, tax, requiredate, plancode, wfjgtaskqty, needwfjgqty, mxdscrp2, auditemp, audittime, printnum, auditingdate, auditingrep, flag, sclldate, scllrep, scllflag, formula, ifsc, buytaskqty, needbuyqty, orderqty, ware_price, ware_fprice, ware_enprice, usaleqty, rate, unit, consignedaddqty, addqty, pqty, bqty, outtype, dftsaleprice, ctmint, enprice, mtrlchangecode, mtrlcuscode, woodcode, pcode, printid, status, sys_changetime, mxdscrp, assignqty, consignedqty, rebate, price, fprice, plprice, saleqty) SELECT :ll_wastenum, scid, taskid, mtrlid, enprice_notax, checkdate, cubage, checkflag, priceformula, checkemp, mxdscrp4, mxdscrp3, net_weight, gross_weight, bsamt_tax, bsamt, enamt_tax, enamt, stopqty, stopreason, stopdate, stopemp, stopflag, gbotheramt, gbrate, packqty, tax, requiredate, plancode, wfjgtaskqty, needwfjgqty, mxdscrp2, auditemp, audittime, printnum, auditingdate, auditingrep, flag, sclldate, scllrep, scllflag, formula, ifsc, buytaskqty, needbuyqty, orderqty, ware_price, ware_fprice, ware_enprice, usaleqty, rate, unit, consignedaddqty, addqty, pqty, bqty, outtype, dftsaleprice, ctmint, enprice, mtrlchangecode, mtrlcuscode, woodcode, pcode, printid, status, sys_changetime, mxdscrp, assignqty, consignedqty, rebate, price, fprice, plprice, saleqty FROM u_saletaskmx Where scid = :arg_scid AND taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_saletaskmx_waste') > 0 THEN arg_msg = '插入单据明细资料失败,关键字ID重复' ELSE arg_msg = '插入单据明细资料失败,'+commit_transaction.SQLErrText END IF GOTO ext END IF INSERT INTO u_saletask_waste (wastetype, wastenum, wastedate, wasterep, scid, taskid, taskcode, kind, cusid, taskdate, requiredate, accomplishdate, finishemp, status, opemp, modemp, moddate, assign_emp, permit_emp, permit_date, dscrp, opdate, stopemp, sys_changetime, ctmint, freight, printnum, banktypeid, damt, moneyid, relcode, paytype, dscrp2, freight_tele, cus_address, cus_tele, cus_fax, otheramt, mrate, dscrp3, rel_rep, senduser, sendtime, sendcnt, fiebrelcode, msttakeamt, takeamt, takedamt, cus_tele1, auditemp, auditdate, transcode, carcode, freight_address, pricedate, priceemp, priceflag ) SELECT :arg_wastetype, :ll_wastenum, :server_dt, :publ_operator, scid, taskid, taskcode, kind, cusid, taskdate, requiredate, accomplishdate, finishemp, status, opemp, modemp, moddate, assign_emp, permit_emp, permit_date, dscrp, opdate, stopemp, sys_changetime, ctmint, freight, printnum, banktypeid, damt, moneyid, relcode, paytype, dscrp2, freight_tele, cus_address, cus_tele, cus_fax, otheramt, mrate, dscrp3, rel_rep, senduser, sendtime, sendcnt, fiebrelcode, msttakeamt, takeamt, takedamt, cus_tele1, auditemp, auditdate, transcode, carcode, freight_address, pricedate, priceemp, priceflag FROM u_saletask Where scid = :arg_scid AND taskid = :arg_taskid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_outware_waste') > 0 THEN arg_msg = '插入发货单据资料失败,关键字ID重复' ELSE arg_msg = '插入发货单据资料失败,'+commit_transaction.SQLErrText END IF 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_save_dytitle_saletask (long arg_hang, string arg_name, string arg_dwtitlename, string arg_execltitlename, string arg_filtername, ref string arg_msg);Long rslt = 1, i if isnull(arg_filtername) then arg_filtername='' UPDATE u_dytitle_saletask SET hang = :arg_hang, dwtitlename = :arg_dwtitlename, execltitlename = :arg_execltitlename, filtername=:arg_filtername WHERE name = :arg_name Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新明细标题与execl标题对应关系表操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN INSERT INTO u_dytitle_saletask(hang,name,dwtitlename,execltitlename,filtername) VALUES (:arg_hang,:arg_name,:arg_dwtitlename,:arg_execltitlename,:arg_filtername) Using commit_transaction; END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSE 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