$PBExportHeader$uo_cusprice.sru forward global type uo_cusprice from nonvisualobject end type end forward global type uo_cusprice from nonvisualobject end type global uo_cusprice uo_cusprice type variables Int uo_option_checkprice_native Int uo_option_price_rmb Int uo_option_saleprice_list_rebate Long cur_poid datastore ds_pzmx boolean if_chk_mxlist = false //报价时用，true时，使用客户价格表， false时，自己选择价格表 //boolean if_cmpl_mtrl_chg_auto = True boolean if_cmpl_zhpz_pf = false //string cmpl_zhpz_cfgname = '' s_mtrlcfg_expr s_zhpz[] end variables forward prototypes Public Function Integer uof_autodel_cuspricemx (DateTime arg_begindate, Boolean arg_ifcommit, Ref String arg_msg) Public Function Integer uof_del_cusprice (Long arg_cusid, Long arg_mtrlid, DateTime arg_opdate, Long arg_printid, Long arg_moneyid, Boolean arg_ifcommit, Ref String arg_msg) public function integer uof_pricestr_cmp (string arg_pricestr, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price) Public Function Integer uof_update_custprice (Integer arg_ifth, Long arg_scid, Long arg_cusid, Long arg_mtrlid, String arg_mtrlcode, String arg_status, String arg_woodcode, String arg_pcode, Long arg_outwareid, String arg_outwarecode, DateTime arg_outdate, Decimal arg_fprice, Decimal arg_zqrate, Decimal arg_cost, Long arg_flag, String arg_dscrp, Long arg_printid, Integer arg_buildtype, Long arg_moneyid, Decimal arg_qty, Decimal arg_qty1, Boolean arg_ifcommit, Ref String arg_msg) public function integer uof_check_price_saletask (long arg_typeid, long arg_cusid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, long arg_moneyid, long arg_scid, long arg_quoteid, long arg_quoteprintid, decimal arg_price, decimal arg_qty, ref string arg_msg) public function integer uof_check_price (long arg_cusid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_pcode, string arg_woodcode, long arg_moneyid, decimal arg_price, decimal arg_qty, ref string arg_msg) public function integer uof_getmtrlcusprice (long arg_moneyid, long arg_mtrlid, long arg_cusid, ref decimal arg_price, ref decimal arg_zqrate, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, ref string arg_msg) public function integer uof_getprice_saletask (long arg_moneyid, long arg_cusid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_scid, long arg_quoteid, long arg_quoteprintid, integer arg_typeid, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg) public function integer uof_get_pricelistid (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_moneyid, ref long arg_pricelistid, ref string arg_msg) Public Function Integer uof_chk_pricelistid (Long arg_moneyid, Ref Long arg_pricelistid, Ref String arg_msg) Public Function Integer uof_del_cusprice_auto (Long arg_cusid, Long arg_outwareid, Long arg_printid, Long arg_mtrlid, String arg_status, String arg_woodcode, String arg_pcode, Integer arg_buildtype, Long arg_moneyid, Decimal arg_qty, Decimal arg_qty1, Boolean arg_ifcommit, Ref String arg_msg) public function integer uf_cmpl_price_zhpz (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_pricelistid, long arg_moneyid, decimal arg_rebate_cus, ref decimal rtn_price, ref decimal rtn_zqrate, ref string arg_msg) public function integer uf_cmpl_price (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_pricelistid, long arg_moneyid, decimal arg_rebate_cus, integer arg_price_ifpz, ref decimal rtn_price, ref decimal rtn_zqrate, ref string arg_msg) public function integer uof_get_pricelistinfo (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, string arg_status_ori, string arg_woodcode_ori, string arg_pcode_ori, decimal arg_qty, long arg_pricelistid, ref decimal arg_lmsaleprice, ref integer arg_flag, ref string arg_listname, ref decimal arg_rebate, ref string arg_msg) public function integer uof_get_pricelist_price (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, string arg_status_ori, string arg_woodcode_ori, string arg_pcode_ori, decimal arg_qty, long arg_pricelistid, long arg_moneyid, ref decimal arg_lmsaleprice, ref integer arg_flag, ref string arg_listname, ref decimal arg_rebate, ref string arg_msg) public function integer uf_cmpl_price_pack (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_pricelistid, long arg_moneyid, decimal arg_rebate_cus, integer arg_price_ifpz, ref decimal rtn_price, ref decimal rtn_zqrate, ref string arg_msg) public function integer uof_get_mtrl_bjpz (ref datastore ds, long arg_pztype, long arg_type, string arg_col_value_dft, string arg_col_value, integer arg_mtrlpztype, ref string arg_msg) public function integer uof_get_mtrl_ygpz (ref datastore ds, long arg_pztype, long arg_type, string arg_col_value_dft, string arg_col_value, ref string arg_msg) public function integer uof_get_mtrl_3pz_difprice (long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_difprice, ref string arg_msg) public function integer uof_getprice_quote (long arg_moneyid, long arg_pricelistid, long arg_cusid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_scid, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg) end prototypes Public Function Integer uof_autodel_cuspricemx (DateTime arg_begindate, Boolean arg_ifcommit, Ref String arg_msg); //uf_autodel_cuspricemx(arg_begindate,arg_ifcommit,arg_msg) //自动删除客户销售价格明细?指定时间以前的 Long rslt = 1 Long cnt = 0 //参数检查 IF arg_begindate < DateTime(Date('1900-01-01'),Time(0)) THEN MessageBox('提示','日期太早了') IF Trim(arg_msg) = '' THEN arg_msg = '' //删除时间范围内的记录 IF MessageBox(' 重要提示','删除指定时间以前所有商品采购历史价格记录(不能恢复),确认吗？',Exclamation!,OKCancel!) = 1 THEN DELETE FROM u_spt_price_mx Where u_spt_price_mx.opdate <= :arg_begindate; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络或其他原因删除失败'+sqlca.SQLErrText GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt END Function Public Function Integer uof_del_cusprice (Long arg_cusid, Long arg_mtrlid, DateTime arg_opdate, Long arg_printid, Long arg_moneyid, Boolean arg_ifcommit, Ref String arg_msg); Int rslt = 1 Long cnt = 0 SELECT count(*) INTO :cnt FROM u_cust Where u_cust.cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络和其他原因查询客户资料失败'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '客户不存在' GOTO ext END IF SELECT count(*) INTO :cnt FROM u_mtrldef Where u_mtrldef.mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络和其他原因查询物料资料失败'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '物料不存在' GOTO ext END IF DELETE FROM u_cus_price_mx WHERE u_cus_price_mx.cusid = :arg_cusid AND u_cus_price_mx.mtrlid = :arg_mtrlid AND u_cus_price_mx.opdate = :arg_opdate AND u_cus_price_mx.printid = :arg_printid And u_cus_price_mx.moneyid = :arg_moneyid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询失败'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt END Function public function integer uof_pricestr_cmp (string arg_pricestr, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price); Int rslt = 1 String s_rtn datastore ds_pricestr ds_pricestr = Create datastore ds_pricestr.DataObject = 'ds_pricestr_cmpl' ds_pricestr.SetTransObject(sqlca) ds_pricestr.Retrieve() IF Trim(arg_pricestr) = '' THEN rslt = 2 GOTO ext END IF SELECT Top 1 Replace( :arg_pricestr,'不包含',' not like ') Into :arg_pricestr From u_user; SELECT Top 1 Replace( :arg_pricestr,'不等于','<>') Into :arg_pricestr From u_user; SELECT Top 1 Replace( :arg_pricestr,'包含',' like ') Into :arg_pricestr From u_user; SELECT Top 1 Replace( :arg_pricestr,'等于',' = ') Into :arg_pricestr From u_user; //'配置'需放在最后一行, 因为配置1, 配置2 没替换的话,有可能导致替换剩下个1 或2 SELECT Top 1 Replace( :arg_pricestr,'配置1',"'"+:arg_woodcode+"'") Into :arg_pricestr From u_user; SELECT Top 1 Replace( :arg_pricestr,'配置2',"'"+:arg_pcode+"'") Into :arg_pricestr From u_user; SELECT Top 1 Replace( :arg_pricestr,'配置',"'"+:arg_status+"'") Into :arg_pricestr From u_user; ds_pricestr.Modify('cmpl.expression= "'+arg_pricestr+'"') s_rtn = String(ds_pricestr.Object.cmpl[1]) IF s_rtn = 'false' THEN rslt = 0 arg_price = 0 ELSE arg_price = Round(Dec(s_rtn),5) END IF ext: Destroy ds_pricestr RETURN rslt end function Public Function Integer uof_update_custprice (Integer arg_ifth, Long arg_scid, Long arg_cusid, Long arg_mtrlid, String arg_mtrlcode, String arg_status, String arg_woodcode, String arg_pcode, Long arg_outwareid, String arg_outwarecode, DateTime arg_outdate, Decimal arg_fprice, Decimal arg_zqrate, Decimal arg_cost, Long arg_flag, String arg_dscrp, Long arg_printid, Integer arg_buildtype, Long arg_moneyid, Decimal arg_qty, Decimal arg_qty1, Boolean arg_ifcommit, Ref String arg_msg); Long rslt = 1 Long cnt = 0 DateTime server_dt IF arg_ifth = 1 THEN rslt = 1 GOTO ext END IF //检查参数 IF IsNull(arg_cusid) THEN arg_cusid = 0 IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0 IF IsNull(arg_status) THEN arg_status = '' IF IsNull(arg_woodcode) THEN arg_woodcode = '' IF IsNull(arg_pcode) THEN arg_pcode = '' IF IsNull(arg_moneyid) THEN arg_moneyid = 0 IF IsNull(arg_qty) THEN arg_qty = 0 IF IsNull(arg_qty1) THEN arg_qty1 = 0 IF arg_outdate <= DateTime(Date('1900-01-01'),Time(0)) THEN rslt = 0 arg_msg = '错误的发生时间' GOTO ext END IF arg_outwarecode = Trim(arg_outwarecode) //获得服务器时间 SELECT Top 1 getdate() Into :server_dt From u_user; //检查客户存在否 SELECT count(*) INTO :cnt FROM u_cust Where u_cust.cusid = :arg_cusid; 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 cnt = 0 SELECT count(*) INTO :cnt FROM cw_currency Where moneyid = :arg_moneyid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询币种失败' rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '币种资料不存在' rslt = 0 GOTO ext END IF //检查商品存在否 SELECT count(*) INTO :cnt FROM u_mtrldef Where u_mtrldef.mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络和其他原因查询物料:'+arg_mtrlcode+'失败'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '物料不存在:'+arg_mtrlcode GOTO ext END IF // //检查数量范围内是否有重复? //SELECT count(*) // INTO :cnt // FROM u_cus_price // WHERE u_cus_price.cusid = :arg_cusid AND // u_cus_price.mtrlid = :arg_mtrlid AND // u_cus_price.status = :arg_status AND // u_cus_price.woodcode = :arg_woodcode AND // u_cus_price.pcode = :arg_pcode and // ( ( u_cus_price.qty > :arg_qty) AND (u_cus_price.qty < :arg_qty1) or // ( u_cus_price.qty1 > :arg_qty) AND (u_cus_price.qty1 < :arg_qty1) ) and // u_cus_price.moneyid = :arg_moneyid // u_cus_price.ifcancel = 0 ; //IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '因网络和其他原因查询客户产品:'+arg_mtrlcode+'最新价格失败'+sqlca.SQLErrText // GOTO ext //END IF // //IF cnt > 0 THEN // rslt = 0 // arg_msg = '物料:'+arg_mtrlcode+"数量范围:"+string(arg_qty,'#,##0.#####')+'到'+string(arg_qty1,'#,##0.#####') +'有重叠' // GOTO ext //END IF //1.更新客户销售价表 SELECT count(*) INTO :cnt FROM u_cus_price WHERE u_cus_price.cusid = :arg_cusid AND u_cus_price.mtrlid = :arg_mtrlid AND u_cus_price.status = :arg_status AND u_cus_price.woodcode = :arg_woodcode AND u_cus_price.pcode = :arg_pcode AND ( u_cus_price.qty = :arg_qty) AND (u_cus_price.qty1 = :arg_qty1) AND u_cus_price.moneyid = :arg_moneyid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络和其他原因查询客户产品:'+arg_mtrlcode+'最新价格失败'+sqlca.SQLErrText GOTO ext END IF IF cnt > 0 THEN IF arg_buildtype = 0 THEN UPDATE u_cus_price SET u_cus_price.cusid = :arg_cusid, u_cus_price.mtrlid = :arg_mtrlid, u_cus_price.price = :arg_fprice * :arg_zqrate, u_cus_price.fprice = :arg_fprice, u_cus_price.zqrate = :arg_zqrate, u_cus_price.sys_changetime = getdate(), u_cus_price.ifcancel = 0 WHERE u_cus_price.cusid = :arg_cusid AND u_cus_price.mtrlid = :arg_mtrlid AND u_cus_price.status = :arg_status AND u_cus_price.woodcode = :arg_woodcode AND u_cus_price.pcode = :arg_pcode AND ( u_cus_price.qty = :arg_qty) AND (u_cus_price.qty1 = :arg_qty1) AND u_cus_price.moneyid = :arg_moneyid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络和其它原因，客户销售价表更新'+arg_mtrlcode+'失败'+sqlca.SQLErrText GOTO ext END IF ELSEIF arg_buildtype = 2 THEN UPDATE u_cus_price SET u_cus_price.cusid = :arg_cusid, u_cus_price.mtrlid = :arg_mtrlid, u_cus_price.price_bj = :arg_fprice * :arg_zqrate, u_cus_price.fprice_bj = :arg_fprice, u_cus_price.zqrate_bj = :arg_zqrate, u_cus_price.sys_changetime = getdate(), u_cus_price.ifcancel = 0 WHERE u_cus_price.cusid = :arg_cusid AND u_cus_price.mtrlid = :arg_mtrlid AND u_cus_price.status = :arg_status AND u_cus_price.woodcode = :arg_woodcode AND u_cus_price.pcode = :arg_pcode AND ( u_cus_price.qty = :arg_qty) AND (u_cus_price.qty1 = :arg_qty1) AND u_cus_price.moneyid = :arg_moneyid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络和其它原因，客户销售价表更新'+arg_mtrlcode+'失败'+sqlca.SQLErrText GOTO ext END IF END IF ELSEIF cnt = 0 THEN IF arg_buildtype = 0 THEN INSERT INTO u_cus_price (cusid, mtrlid, price, fprice, zqrate, dscrp, status, woodcode, pcode, moneyid, sys_changetime, qty, qty1) VALUES (:arg_cusid, :arg_mtrlid, :arg_fprice * :arg_zqrate, :arg_fprice, :arg_zqrate, :arg_dscrp, :arg_status, :arg_woodcode, :arg_pcode, :arg_moneyid, getdate(), :arg_qty, :arg_qty1); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络或其他原因，新增客户销售'+arg_mtrlcode+'价格失败,'+sqlca.SQLErrText GOTO ext END IF ELSEIF arg_buildtype = 2 THEN INSERT INTO u_cus_price (cusid, mtrlid, price_bj, fprice_bj, zqrate_bj, dscrp, status, woodcode, pcode, moneyid, sys_changetime, qty, qty1) VALUES (:arg_cusid, :arg_mtrlid, :arg_fprice * :arg_zqrate, :arg_fprice, :arg_zqrate, :arg_dscrp, :arg_status, :arg_woodcode, :arg_pcode, :arg_moneyid, getdate(), :arg_qty, :arg_qty1); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络或其他原因，新增客户销售'+arg_mtrlcode+'价格失败,'+sqlca.SQLErrText GOTO ext END IF END IF END IF //2.插入客户销售变动明细价表 INSERT INTO u_cus_price_mx ( u_cus_price_mx.cusid, u_cus_price_mx.mtrlid, u_cus_price_mx.opdate, u_cus_price_mx.opemp, u_cus_price_mx.outwareid, u_cus_price_mx.outwarecode, u_cus_price_mx.outdate, u_cus_price_mx.price, u_cus_price_mx.fprice, u_cus_price_mx.zqrate, u_cus_price_mx.cost, u_cus_price_mx.status, u_cus_price_mx.woodcode, u_cus_price_mx.pcode, u_cus_price_mx.dscrp, u_cus_price_mx.buildtype, u_cus_price_mx.printid, u_cus_price_mx.moneyid, u_cus_price_mx.qty, u_cus_price_mx.qty1 ) VALUES ( :arg_cusid, :arg_mtrlid, getdate(), :publ_operator, :arg_outwareid, :arg_outwarecode, :arg_outdate, :arg_fprice* :arg_zqrate, :arg_fprice, :arg_zqrate, :arg_cost, :arg_status, :arg_woodcode, :arg_pcode, :arg_dscrp, :arg_flag, :arg_printid, :arg_moneyid, :arg_qty, :arg_qty1 ); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络或其他原因,登记在客户,'+arg_mtrlcode+'售价变动明细表失败,'+sqlca.SQLErrText GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT; END IF RETURN rslt END Function public function integer uof_check_price_saletask (long arg_typeid, long arg_cusid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, long arg_moneyid, long arg_scid, long arg_quoteid, long arg_quoteprintid, decimal arg_price, decimal arg_qty, ref string arg_msg); Decimal ld_lmsaleprice,ld_rebate String ls_cusname,ls_listname Long ll_pricelistid Int rslt = 1 //,li_flag Long cnt = 0 Long ll_moneyid,ll_moneyid_pricelist s_mtrlcfg_expr s_pz[] Long ll_statusflag Long ll_i String ls_status_zj Decimal ld_price_zj,ld_rebate_zj,obj_price Long ll_row String ls_poexpr,ls_rtn,ls_mtrlcode String ls_price String ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode Int li_selecttype,li_price_ifpz uo_price_order uo_po uo_po = Create uo_price_order IF Not f_power_ind(492,sys_msg_pow) Or sys_power_issuper THEN rslt = 1 GOTO ext END IF IF uo_option_checkprice_native = -1000 THEN rslt = 0 arg_msg = '选项:[056]销售价按本位币限价,读取初始默认值失败,操作取消!' GOTO ext END IF //IF uo_option_price_if_status = -1000 THEN // rslt = 0 // arg_msg = '选项:[021]销售价按颜色约束,读取初始默认值失败,操作取消!' // GOTO ext //END IF String ls_status_ori,ls_woodcode_ori,ls_pcode_ori ls_status_ori = arg_status ls_woodcode_ori = arg_woodcode ls_pcode_ori = arg_pcode SELECT selecttype INTO :li_selecttype FROM u_saletype Where typeid = :arg_typeid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询销售订单分类信息失败,'+sqlca.SQLErrText GOTO ext END IF SELECT statusflag,mtrlcode,mtrlsectype,zxmtrlmode,usermtrlmode,price_ifpz INTO :ll_statusflag,:ls_mtrlcode,:ls_mtrlsectype,:ls_zxmtrlmode,:ls_usermtrlmode,:li_price_ifpz FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 GOTO ext END IF IF uo_option_checkprice_native = 1 THEN SELECT moneyid INTO :ll_moneyid FROM cw_currency Where native = 1; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询本位币资料失败,可能本位币资料不存在,请检查' rslt = 0 GOTO ext END IF ELSE ll_moneyid = arg_moneyid END IF Dec ld_rebate_cus SELECT name,pricelistid,rebate INTO :ls_cusname,:ll_pricelistid,:ld_rebate_cus FROM u_cust Where cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询客户资料失败,请检查' rslt = 0 GOTO ext END IF /////// //检查价格指令 datastore ds_price ds_price = uo_po.uof_getorderprice(arg_cusid, arg_mtrlid, arg_status, arg_woodcode, arg_pcode,arg_qty, arg_msg) ll_row = ds_price.RowCount() //////////////////// // IF ll_row = 0 THEN SELECT name,pricelistid INTO :ls_cusname,:ll_pricelistid FROM u_cust Where cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,客户资料" GOTO ext END IF IF li_selecttype = 2 And ll_pricelistid = 0 THEN rslt = 0 arg_msg = '销售订单分类设为"只能选客户价格表",但当前客户没有指定价格表,请检查' GOTO ext END IF IF arg_quoteid = 0 THEN IF li_selecttype = 1 THEN //只能选择报价历史 SELECT top 1 u_cus_price.fprice_bj,u_cus_price.zqrate_bj INTO :ld_lmsaleprice,:ld_rebate FROM u_cus_price WHERE ( u_cus_price.cusid = :arg_cusid ) AND ( u_cus_price.mtrlid = :arg_mtrlid ) AND ( u_cus_price.status = :arg_status ) AND ( u_cus_price.pcode = :arg_pcode ) AND ( u_cus_price.woodcode = :arg_woodcode ) AND ( (u_cus_price.qty = 0 OR u_cus_price.qty <= :arg_qty) AND (u_cus_price.qty1 = 0 OR u_cus_price.qty1 >= :arg_qty)) AND ( u_cus_price.moneyid = :arg_moneyid) Order By sys_changetime Desc; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询产品:"+arg_mtrlcode+" 最新报价失败 " +sqlca.SQLErrText GOTO ext END IF IF arg_price < ld_lmsaleprice THEN rslt = 0 arg_msg = '客户:'+ls_cusname+',产品:'+arg_mtrlcode+'销售单价{'+String(arg_price,'#,##0.00##')+'} 低于销售限价{'+String(ld_lmsaleprice,'#,##0.00##')+'}' GOTO ext END IF ELSE IF ll_statusflag = 2 And arg_status <> '' THEN //组合配置 ,计算价格 IF uf_cmpl_price_zhpz(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF arg_price < obj_price THEN rslt = 0 arg_msg = '客户:'+ls_cusname+',产品:'+arg_mtrlcode+'销售单价{'+String(arg_price * ld_rebate,'#,##0.00##')+'} 低于销售限价{'+String(obj_price,'#,##0.00##')+'}' GOTO ext END IF ELSE //非组合配置, 查询价格 IF uf_cmpl_price(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, li_price_ifpz, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF arg_price < obj_price * ld_rebate THEN rslt = 0 arg_msg = '客户:'+ls_cusname+',产品:'+arg_mtrlcode+'销售单价{'+String(arg_price * ld_rebate,'#,##0.00##')+'} 低于销售限价{'+String(obj_price,'#,##0.00##')+'}' GOTO ext END IF END IF END IF ELSE SELECT u_quotemx.sumprice_1 INTO :ld_lmsaleprice FROM u_quotemx WHERE scid = :arg_scid AND quoteid = :arg_quoteid And printid = :arg_quoteprintid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询产品:'+arg_mtrlcode+'报价单报价失败,'+sqlca.SQLErrText GOTO ext END IF IF arg_price < ld_lmsaleprice THEN rslt = 0 arg_msg = '客户:'+ls_cusname+',产品:'+arg_mtrlcode+'销售单价{'+String(arg_price,'#,##0.00##')+'} 低于报价单报价{'+String(ld_lmsaleprice,'#,##0.00##')+'}' GOTO ext END IF END IF ELSE ls_poexpr = ds_price.Object.poexpr[1] ls_price = String(arg_price,'###0.##########') SELECT Top 1 Replace( :ls_poexpr,'目标价',:ls_price) Into :ls_poexpr From u_user; IF Pos(ls_poexpr,'{') > 0 And Pos(ls_poexpr,'}') > 0 THEN ll_pricelistid = Long(Mid(ls_poexpr,Pos(ls_poexpr,'[') + 1,Pos(ls_poexpr,']') - Pos(ls_poexpr,'[') - 1)) IF ll_statusflag = 2 And arg_status <> '' THEN //组合配置 ,计算价格 IF uf_cmpl_price_zhpz(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ELSE //非组合配置, 查询价格 IF uf_cmpl_price(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, li_price_ifpz, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF obj_price = obj_price * ld_rebate END IF ls_poexpr = Replace(ls_poexpr,Pos(ls_poexpr,'{'),Pos(ls_poexpr,'}') - Pos(ls_poexpr,'{') + 1,String(obj_price,'###0.00########')) END IF datastore dw_price_check dw_price_check = Create datastore dw_price_check.DataObject = 'dw_compute_priceorder' dw_price_check.InsertRow(0) dw_price_check.Modify("compute.expression='"+ls_poexpr+"'") ls_rtn = String(dw_price_check.Object.compute[ll_row]) IF ls_rtn = 'false' THEN rslt = 0 arg_msg = '产品:'+ls_mtrlcode+'销售价格受到价格指令限制,不能通过{'+ls_poexpr+'}' GOTO ext END IF END IF ext: Destroy uo_po RETURN rslt end function public function integer uof_check_price (long arg_cusid, long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_pcode, string arg_woodcode, long arg_moneyid, decimal arg_price, decimal arg_qty, ref string arg_msg); Decimal ld_lmsaleprice,ld_rebate String ls_cusname,ls_listname Long ll_pricelistid Int rslt = 1//,li_flag Long cnt = 0 Long ll_moneyid,ll_moneyid_pricelist s_mtrlcfg_expr s_pz[] Long ll_statusflag Long ll_i String ls_status_zj Decimal ld_price_zj,ld_rebate_zj,obj_price Long ll_row String ls_poexpr,ls_rtn,ls_mtrlcode String ls_price String ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode Int li_price_ifpz uo_price_order uo_po uo_po = Create uo_price_order IF Not f_power_ind(492,sys_msg_pow) Or sys_power_issuper THEN rslt = 1 GOTO ext END IF IF uo_option_checkprice_native = -1000 THEN rslt = 0 arg_msg = '选项:[056]销售价按本位币限价,读取初始默认值失败,操作取消!' GOTO ext END IF //IF uo_option_price_if_status = -1000 THEN // rslt = 0 // arg_msg = '选项:[021]销售价按颜色约束,读取初始默认值失败,操作取消!' // GOTO ext //END IF String ls_status_ori,ls_woodcode_ori,ls_pcode_ori ls_status_ori = arg_status ls_woodcode_ori = arg_woodcode ls_pcode_ori = arg_pcode SELECT statusflag,mtrlcode,mtrlsectype,zxmtrlmode,usermtrlmode ,price_ifpz INTO :ll_statusflag,:ls_mtrlcode,:ls_mtrlsectype,:ls_zxmtrlmode,:ls_usermtrlmode ,:li_price_ifpz FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 GOTO ext END IF IF uo_option_checkprice_native = 1 THEN SELECT moneyid INTO :ll_moneyid FROM cw_currency Where native = 1; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询本位币资料失败,可能本位币资料不存在,请检查' rslt = 0 GOTO ext END IF ELSE ll_moneyid = arg_moneyid END IF decimal ld_rebate_cus SELECT name,pricelistid,rebate INTO :ls_cusname,:ll_pricelistid,:ld_rebate_cus FROM u_cust Where cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询客户资料失败,请检查' rslt = 0 GOTO ext END IF /////// //检查价格指令 datastore ds_price ds_price = uo_po.uof_getorderprice(arg_cusid, arg_mtrlid, arg_status, arg_woodcode, arg_pcode,arg_qty, arg_msg) ll_row = ds_price.RowCount() //////////////////// // IF ll_row = 0 THEN //没有价格指令 , 按价格表检查 SELECT name,pricelistid INTO :ls_cusname,:ll_pricelistid FROM u_cust Where cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,客户资料" GOTO ext END IF IF ll_statusflag = 2 And arg_status <> '' THEN //组合配置 ,计算价格 IF uf_cmpl_price_zhpz(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF arg_price < obj_price THEN rslt = 0 arg_msg = '客户:'+ls_cusname+',产品:'+arg_mtrlcode+'销售单价{'+String(arg_price * ld_rebate,'#,##0.00##')+'} 低于销售限价{'+String(obj_price,'#,##0.00##')+'}' GOTO ext END IF // f_checkpz(arg_status,s_pz[]) // arg_pcode = '' // arg_woodcode = '' // obj_price = 0 // FOR ll_i = 1 To UpperBound(s_pz) // ls_status_zj = s_pz[ll_i].cfgname // ld_price_zj = 0 // ld_rebate_zj = 0 // // //取价格表 内容 // IF uof_get_pricelist_price(arg_mtrlid, arg_mtrlcode, ls_status_zj, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_lmsaleprice, li_flag, ls_listname, ld_rebate, arg_msg) = 0 THEN // rslt = 0 // GOTO ext // END IF // // // obj_price = obj_price + ld_lmsaleprice * ld_rebate * Dec(s_pz[ll_i].qty) // NEXT // IF arg_price < obj_price THEN // rslt = 0 // arg_msg = '客户:'+ls_cusname+',产品:'+arg_mtrlcode+'销售单价{'+String(arg_price * ld_rebate,'#,##0.00##')+'} 低于销售限价{'+String(obj_price,'#,##0.00##')+'}' // GOTO ext // END IF ELSE //非组合配置, 查询价格 IF uf_cmpl_price(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, li_price_ifpz, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF arg_price < obj_price * ld_rebate THEN rslt = 0 arg_msg = '客户:'+ls_cusname+',产品:'+arg_mtrlcode+'销售单价{'+String(arg_price * ld_rebate,'#,##0.00##')+'} 低于销售限价{'+String(obj_price,'#,##0.00##')+'}' GOTO ext END IF // CHOOSE CASE li_price_ifpz // CASE 0 // arg_status = '' // arg_woodcode = '' // arg_pcode = '' // CASE 1 // arg_pcode = '' // arg_woodcode = '' // CASE 2 // arg_status = '' // arg_pcode = '' // CASE 3 // arg_status = '' // arg_woodcode = '' // CASE 4 // arg_pcode = '' // CASE 5 // arg_status = '' // CASE 6 // arg_woodcode = '' // END CHOOSE // // //取价格表 内容 // IF uof_get_pricelist_price(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_lmsaleprice, li_flag, ls_listname, ld_rebate, arg_msg) = 0 THEN // rslt = 0 // GOTO ext // END IF // // IF arg_price < ld_lmsaleprice * ld_rebate THEN // rslt = 0 // arg_msg = '客户:'+ls_cusname+',产品:'+arg_mtrlcode+'销售单价{'+String(arg_price * ld_rebate,'#,##0.00##')+'} 低于销售限价{'+String(ld_lmsaleprice,'#,##0.00##')+'}' // GOTO ext // END IF END IF ELSE //有价格指令, 按指令检测 ls_poexpr = ds_price.Object.poexpr[1] ls_price = String(arg_price,'###0.##########') SELECT Top 1 Replace( :ls_poexpr,'目标价',:ls_price) Into :ls_poexpr From u_user; IF Pos(ls_poexpr,'{') > 0 And Pos(ls_poexpr,'}') > 0 THEN ll_pricelistid = Long(Mid(ls_poexpr,Pos(ls_poexpr,'[') + 1,Pos(ls_poexpr,']') - Pos(ls_poexpr,'[') - 1)) IF ll_statusflag = 2 And arg_status <> '' THEN //组合配置 ,计算价格 IF uf_cmpl_price_zhpz(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF // f_checkpz(arg_status,s_pz[]) // arg_pcode = '' // arg_woodcode = '' // obj_price = 0 // FOR ll_i = 1 To UpperBound(s_pz) // ls_status_zj = s_pz[ll_i].cfgname // ld_price_zj = 0 // ld_rebate_zj = 0 // // //取价格表 内容 // IF uof_get_pricelist_price(arg_mtrlid, arg_mtrlcode, ls_status_zj, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_lmsaleprice, li_flag, ls_listname, ld_rebate, arg_msg) = 0 THEN // rslt = 0 // GOTO ext // END IF // // obj_price = obj_price + ld_lmsaleprice * ld_rebate * Dec(s_pz[ll_i].qty) // NEXT ELSE //非组合配置, 查询价格 IF uf_cmpl_price(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, li_price_ifpz, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF obj_price = obj_price * ld_rebate // CHOOSE CASE li_price_ifpz // CASE 0 // arg_status = '' // arg_woodcode = '' // arg_pcode = '' // CASE 1 // arg_pcode = '' // arg_woodcode = '' // CASE 2 // arg_status = '' // arg_pcode = '' // CASE 3 // arg_status = '' // arg_woodcode = '' // CASE 4 // arg_pcode = '' // CASE 5 // arg_status = '' // CASE 6 // arg_woodcode = '' // END CHOOSE // // //取价格表 内容 // IF uof_get_pricelist_price(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_lmsaleprice, li_flag, ls_listname, ld_rebate, arg_msg) = 0 THEN // rslt = 0 // GOTO ext // END IF // // obj_price = ld_lmsaleprice * ld_rebate END IF ls_poexpr = Replace(ls_poexpr,Pos(ls_poexpr,'{'),Pos(ls_poexpr,'}') - Pos(ls_poexpr,'{') + 1,String(obj_price,'###0.00########')) END IF datastore dw_price_check dw_price_check = Create datastore dw_price_check.DataObject = 'dw_compute_priceorder' dw_price_check.InsertRow(0) dw_price_check.Modify("compute.expression='"+ls_poexpr+"'") ls_rtn = String(dw_price_check.Object.compute[ll_row]) IF ls_rtn = 'false' THEN rslt = 0 arg_msg = '产品:'+ls_mtrlcode+'销售价格受到价格指令限制,不能通过{'+ls_poexpr+'}' GOTO ext END IF END IF ext: Destroy uo_po RETURN rslt end function public function integer uof_getmtrlcusprice (long arg_moneyid, long arg_mtrlid, long arg_cusid, ref decimal arg_price, ref decimal arg_zqrate, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, ref string arg_msg); Int rslt = 1 Long cnt = 0 Long count = 1 Decimal rtn_price,rtn_zqrate s_mtrlcfg_expr s_pz[] DateTime server_time String ls_cusname,ls_listname Long ll_moneyid,ll_moneyid_pricelist Long ll_pricelistid Decimal ld_lmsaleprice,ld_rebate //Int li_flag Long ll_i String ls_status_zj Decimal ld_price_zj,ld_rebate_zj Decimal obj_price Long ll_row String ls_poexpr,ls_rtn,ls_mtrlcode String ls_price,ls_objprice String ls_mtrlsectype,ls_zxmtrlmode,ls_usermtrlmode Long ll_kind String ls_pricestr Int li_rslt_cmp Decimal ld_rebate_cus Decimal ld_price_cmp uo_price_order uo_po uo_po = Create uo_price_order IF uo_option_checkprice_native = -1000 THEN rslt = 0 arg_msg = '选项:[056]销售价按本位币限价,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_saleprice_list_rebate = -1000 THEN rslt = 0 arg_msg = '选项:[237]客户价格表折扣按客户设定,读取初始默认值失败,操作取消!' GOTO ext END IF String ls_status_ori,ls_woodcode_ori,ls_pcode_ori ls_status_ori = arg_status ls_woodcode_ori = arg_woodcode ls_pcode_ori = arg_pcode Long ll_statusflag Int li_price_ifpz SELECT statusflag,mtrlsectype,zxmtrlmode,usermtrlmode,mtrlcode,price_ifpz INTO :ll_statusflag,:ls_mtrlsectype,:ls_zxmtrlmode,:ls_usermtrlmode,:ls_mtrlcode,:li_price_ifpz FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 GOTO ext END IF IF uo_option_checkprice_native = 1 THEN SELECT moneyid INTO :ll_moneyid FROM cw_currency Where native = 1; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询本位币资料失败,可能本位币资料不存在,请检查' rslt = 0 GOTO ext END IF ELSE ll_moneyid = arg_moneyid END IF //价格指令的在单据上再检查,这里不考虑 SELECT name,pricelistid,rebate INTO :ls_cusname,:ll_pricelistid,:ld_rebate_cus FROM u_cust Where cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN rslt = 2 rtn_price = 0.00 rtn_zqrate = 1 GOTO ext END IF IF ll_statusflag = 2 And arg_status <> '' THEN //组合配置 ,计算价格 IF uf_cmpl_price_zhpz(arg_mtrlid, ls_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 2 rtn_price = 0.00 rtn_zqrate = 1 GOTO ext END IF rtn_price = obj_price rtn_zqrate = ld_rebate ELSE //非组合配置 ,计算价格 IF uf_cmpl_price(arg_mtrlid, ls_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid, ll_moneyid, ld_rebate_cus, li_price_ifpz, obj_price, ld_rebate, arg_msg) = 0 THEN rslt = 2 rtn_price = 0.00 rtn_zqrate = 1 GOTO ext END IF rtn_price = obj_price rtn_zqrate = ld_rebate END IF ext: arg_price = rtn_price arg_zqrate = rtn_zqrate Destroy uo_po RETURN rslt end function public function integer uof_getprice_saletask (long arg_moneyid, long arg_cusid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_scid, long arg_quoteid, long arg_quoteprintid, integer arg_typeid, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg); //产品价格表公式与产品价格策略的限制 //1.产品价格策略已设置限制的配置不能应用于价格表公式; //例如:产品价格策略 选择为 不使用 ; 则价格表公式可以用 配置 配置1, 配置2 设置公式; // 产品价格策略 选择为 配置 ; 则价格表公式不能是用 配置 , 但可以用 配置1, 配置2 设置公式; // 产品价格策略 选择为 配置 + 配置1; 则价格表公式不能是用 配置 或 配置1 , 但可以用 配置2 设置公式; // 产品价格策略 选择为 配置 + 配置1 + 配置3; 则价格表公式不能使用; Int rslt = 1 Long ll_statusflag,li_price_ifpz String ls_mtrlcode String ls_cusname Long ll_pricelistid,ll_pricelistid_arr[],ll_mxbt = 0,ll_pricelistid_tmp Decimal ld_lmsaleprice,ld_rebate,obj_price,ld_rebate_arr[],ld_rebate_tmp Long ll_i String ls_status_zj //Int li_flag String ls_listname Decimal ld_rebate_cus Decimal rtn_price,rtn_zqrate Int li_selecttype, li_hispriceflag Int li_suc = 0 Int li_ifpackpro,li_ifpricepack Long ll_moneyid_native Decimal lde_difprice s_mtrlcfg_expr s_pz[] IF uo_option_saleprice_list_rebate = -1000 THEN rslt = 0 arg_msg = '选项:[237]客户价格表折扣按客户设定,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_price_rmb = -1000 THEN rslt = 0 arg_msg = '选项:[238]销售单价按人民币单价折算,读取初始默认值失败,操作取消!' GOTO ext END IF String ls_status_ori,ls_woodcode_ori,ls_pcode_ori ls_status_ori = arg_status ls_woodcode_ori = arg_woodcode ls_pcode_ori = arg_pcode //yyx2012-12-11 IF uo_option_price_rmb = 1 THEN SELECT moneyid INTO :ll_moneyid_native From cw_currency Where native = 1; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询本位币种失败,请检查币种是否设置了本位币' rslt = 0 GOTO ext END IF arg_moneyid = ll_moneyid_native END IF // IF f_get_selecttype(arg_typeid,arg_cusid,li_selecttype,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF SELECT hispriceflag INTO :li_hispriceflag FROM u_saletype Where typeid = :arg_typeid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询销售订单分类选择限制属性失败,'+sqlca.SQLErrText GOTO ext END IF SELECT statusflag,mtrlcode,price_ifpz,ifpackpro,ifpricepack INTO :ll_statusflag,:ls_mtrlcode,:li_price_ifpz,:li_ifpackpro,:li_ifpricepack FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 GOTO ext END IF SELECT name,pricelistid,rebate INTO :ls_cusname,:ll_pricelistid,:ld_rebate_cus FROM u_cust Where cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,客户资料" GOTO ext END IF ll_mxbt = 1 ll_pricelistid_arr[ll_mxbt] = ll_pricelistid ld_rebate_arr[ll_mxbt] = ld_rebate_cus DECLARE cur_listmx CURSOR FOR SELECT pricelistid,rebate FROM u_cus_pricelist_mx WHERE cusid = :arg_cusid Order By printid; OPEN cur_listmx; FETCH cur_listmx Into :ll_pricelistid_tmp,:ld_rebate_tmp; DO WHILE sqlca.SQLCode = 0 ll_mxbt++ ll_pricelistid_arr[ll_mxbt] = ll_pricelistid_tmp ld_rebate_arr[ll_mxbt] = ld_rebate_tmp FETCH cur_listmx Into :ll_pricelistid_tmp,:ld_rebate_tmp; LOOP CLOSE cur_listmx; IF li_selecttype = 2 And ll_pricelistid = 0 THEN rslt = 0 arg_msg = '选择限制为"只能选客户价格表",但当前客户没有指定价格表,请检查' GOTO ext END IF IF arg_quoteid > 0 THEN //选择报价单 SELECT u_quotemx.sumprice_1, u_quotemx.rebate INTO :ld_lmsaleprice, :ld_rebate FROM u_quotemx WHERE scid = :arg_scid AND quoteid = :arg_quoteid And printid = :arg_quoteprintid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询产品:'+ls_mtrlcode+'报价单报价失败,'+sqlca.SQLErrText GOTO ext END IF rtn_price = ld_lmsaleprice rtn_zqrate = ld_rebate ELSE IF li_selecttype = 1 THEN //只能选择报价历史 SELECT top 1 u_cus_price.fprice_bj,u_cus_price.zqrate_bj INTO :ld_lmsaleprice,:ld_rebate FROM u_cus_price WHERE ( u_cus_price.cusid = :arg_cusid ) AND ( u_cus_price.mtrlid = :arg_mtrlid ) AND ( u_cus_price.status = :arg_status ) AND ( u_cus_price.pcode = :arg_pcode ) AND ( u_cus_price.woodcode = :arg_woodcode ) AND ( (u_cus_price.qty = 0 OR u_cus_price.qty <= :arg_qty) AND (u_cus_price.qty1 = 0 OR u_cus_price.qty1 >= :arg_qty)) AND ( u_cus_price.moneyid = :arg_moneyid) AND ( u_cus_price.ifcancel = 0 ) Order By sys_changetime Desc; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询产品:"+ls_mtrlcode+" 最新报价失败 " +sqlca.SQLErrText GOTO ext END IF rtn_price = ld_lmsaleprice rtn_zqrate = ld_rebate ELSE If (li_selecttype = 0 Or li_selecttype = 2) And li_hispriceflag = 1 THEN //取客户最新销售价 SELECT top 1 u_cus_price.fprice,u_cus_price.zqrate INTO :ld_lmsaleprice,:ld_rebate FROM u_cus_price WHERE ( u_cus_price.cusid = :arg_cusid ) AND ( u_cus_price.mtrlid = :arg_mtrlid ) AND ( u_cus_price.status = :arg_status ) AND ( u_cus_price.pcode = :arg_pcode ) AND ( u_cus_price.woodcode = :arg_woodcode ) AND ( (u_cus_price.qty = 0 OR u_cus_price.qty <= :arg_qty) AND (u_cus_price.qty1 = 0 OR u_cus_price.qty1 >= :arg_qty)) AND ( u_cus_price.moneyid = :arg_moneyid) Order By sys_changetime Desc; IF sqlca.SQLCode <> 0 THEN ld_lmsaleprice = 0 ld_rebate = 0 END IF rtn_price = ld_lmsaleprice rtn_zqrate = ld_rebate ELSE //选价格表: 1.组合配置产品按组合计算; 2.包件产品按子件计算; 3.其他常规产品直接取价 FOR ll_i = 1 To ll_mxbt //循环所有该客户有效价格表 IF ll_statusflag = 2 And arg_status <> '' And li_ifpricepack = 0 THEN //组合配置且非整套计算 //组合配置 ,计算价格 //如果不按整套,分开子件查价格 //如果价格按整套,则用整个配置信息查价格 IF uf_cmpl_price_zhpz(arg_mtrlid, ls_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid_arr[ll_i], arg_moneyid, ld_rebate_arr[ll_i], obj_price, ld_rebate, arg_msg) = 0 THEN CONTINUE ELSE rtn_price = obj_price rtn_zqrate = ld_rebate li_suc = 1 EXIT END IF ELSEIF li_ifpackpro <> 0 And li_ifpricepack = 0 THEN //包件产品且非整套计算 //2.包件产品,按清单拆分, 取子件价格汇总作为包件价格 IF uf_cmpl_price_pack(arg_mtrlid, ls_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid_arr[ll_i], arg_moneyid, ld_rebate_arr[ll_i], li_price_ifpz, obj_price, ld_rebate, arg_msg) = 0 THEN CONTINUE ELSE rtn_price = obj_price rtn_zqrate = ld_rebate li_suc = 1 EXIT END IF ELSE //整套计算 or 其他常规取价 //1.整套计算单价的 //2.非组合配置的 //3.非包件产品的 IF uf_cmpl_price(arg_mtrlid, ls_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid_arr[ll_i], arg_moneyid, ld_rebate_arr[ll_i], li_price_ifpz, obj_price, ld_rebate, arg_msg) = 0 THEN CONTINUE ELSE rtn_price = obj_price rtn_zqrate = ld_rebate li_suc = 1 EXIT END IF END IF NEXT //if li_suc = 1 取价成功, 统计部件选配自动换料计算差价 IF li_suc = 1 THEN IF uof_get_mtrl_3pz_difprice(arg_mtrlid, arg_status, arg_woodcode, arg_pcode, lde_difprice, arg_msg) = 0 THEN lde_difprice = 0 END IF rtn_price = rtn_price + lde_difprice // rtn_zqrate = ld_rebate // li_suc = 1 END IF IF li_suc = 0 THEN rslt = 0 GOTO ext END IF END IF END IF END IF ext: arg_price = rtn_price arg_rebate = rtn_zqrate RETURN rslt end function public function integer uof_get_pricelistid (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_moneyid, ref long arg_pricelistid, ref string arg_msg); //取可用价格表,或检查价格表币种 Int rslt = 1 Long ll_moneyid_pricelist IF arg_pricelistid = 0 THEN SELECT u_sale_price_list.pricelistid INTO :arg_pricelistid FROM u_sale_price_list,u_sale_price_mx WHERE u_sale_price_mx.pricelistid = u_sale_price_list.pricelistid AND u_sale_price_mx.mtrlid = :arg_mtrlid AND u_sale_price_mx.status = :arg_status AND u_sale_price_mx.pcode = :arg_pcode AND u_sale_price_mx.woodcode = :arg_woodcode AND ( (u_sale_price_mx.saleqty = 0 OR u_sale_price_mx.saleqty <= :arg_qty) AND (u_sale_price_mx.saleqty1 = 0 OR u_sale_price_mx.saleqty1 >= :arg_qty)) AND u_sale_price_list.moneyid = :arg_moneyid And u_sale_price_list.dftflag = 1; IF sqlca.SQLCode = 0 THEN IF sqlca.SQLNRows = 0 THEN rslt = 0 arg_msg = "产品:"+arg_mtrlcode+",配置:"+arg_status+",标准价格表未设定" GOTO ext ELSEIF sqlca.SQLNRows > 1 THEN rslt = 0 arg_msg = "产品:"+arg_mtrlcode+",配置:"+arg_status+",有多于两个标准价格表" GOTO ext END IF ELSE rslt = 0 arg_msg = "查询产品:"+arg_mtrlcode+",配置:"+arg_status+",标准价格表操作失败" GOTO ext END IF ELSE //检查价格表和对应币种 IF uof_chk_pricelistid(arg_moneyid, arg_pricelistid, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF ext: RETURN rslt end function Public Function Integer uof_chk_pricelistid (Long arg_moneyid, Ref Long arg_pricelistid, Ref String arg_msg); //检查价格表和币种是否对应 Int rslt = 1 Long ll_moneyid_pricelist IF arg_pricelistid > 0 THEN SELECT moneyid INTO :ll_moneyid_pricelist FROM u_sale_price_list Where u_sale_price_list.pricelistid = :arg_pricelistid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询客户价格表对应币种失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF ll_moneyid_pricelist <> arg_moneyid THEN arg_msg = '客户价格表对应币种与检查币种不相符,请检查' rslt = 0 GOTO ext END IF END IF ext: RETURN rslt END Function Public Function Integer uof_del_cusprice_auto (Long arg_cusid, Long arg_outwareid, Long arg_printid, Long arg_mtrlid, String arg_status, String arg_woodcode, String arg_pcode, Integer arg_buildtype, Long arg_moneyid, Decimal arg_qty, Decimal arg_qty1, Boolean arg_ifcommit, Ref String arg_msg); Int rslt = 1 Long cnt = 0,ll_cnt = 0 DateTime ld_opdate //检查客户存在否 SELECT count(*) INTO :cnt FROM u_cust Where u_cust.cusid = :arg_cusid; 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 cnt = 0 SELECT count(*) INTO :cnt FROM cw_currency Where moneyid = :arg_moneyid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询币种失败' rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '币种资料不存在' rslt = 0 GOTO ext END IF //检查商品存在否 SELECT count(*) INTO :cnt FROM u_mtrldef Where u_mtrldef.mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '因网络和其他原因查询失败'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '物料不存在' GOTO ext END IF SELECT count(*) INTO :cnt FROM u_cus_price_MX WHERE u_cus_price_MX.cusid = :arg_cusid AND u_cus_price_MX.mtrlid = :arg_mtrlid AND u_cus_price_MX.outwareid = :arg_outwareid AND u_cus_price_MX.printid = :arg_printid AND u_cus_price_MX.status = :arg_status AND u_cus_price_MX.woodcode = :arg_woodcode AND u_cus_price_MX.pcode = :arg_pcode AND u_cus_price_MX.buildtype = :arg_buildtype AND u_cus_price_MX.moneyid = :arg_moneyid AND u_cus_price_MX.qty = :arg_qty And u_cus_price_mx.qty1 = :arg_qty1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询失败'+sqlca.SQLErrText GOTO ext END IF IF cnt = 0 THEN rslt = 1 GOTO ext END IF SELECT top 1 Opdate INTO :ld_opdate FROM u_cus_price_MX WHERE u_cus_price_MX.cusid = :arg_cusid AND u_cus_price_MX.mtrlid = :arg_mtrlid AND u_cus_price_MX.outwareid = :arg_outwareid AND u_cus_price_MX.printid = :arg_printid AND u_cus_price_MX.status = :arg_status AND u_cus_price_MX.woodcode = :arg_woodcode AND u_cus_price_MX.pcode = :arg_pcode AND u_cus_price_mx.buildtype = :arg_buildtype AND u_cus_price_mx.moneyid = :arg_moneyid AND u_cus_price_MX.qty = :arg_qty AND u_cus_price_MX.qty1 = :arg_qty1 Order By opdate Desc; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询失败'+sqlca.SQLErrText GOTO ext END IF SELECT count(*) INTO :cnt FROM u_cus_price_MX WHERE u_cus_price_MX.cusid = :arg_cusid AND u_cus_price_MX.mtrlid = :arg_mtrlid AND u_cus_price_MX.status = :arg_status AND u_cus_price_MX.woodcode = :arg_woodcode AND u_cus_price_MX.pcode = :arg_pcode AND u_cus_price_MX.buildtype = :arg_buildtype AND u_cus_price_mx.moneyid = :arg_moneyid AND u_cus_price_MX.Opdate > :ld_opdate AND u_cus_price_MX.qty = :arg_qty And u_cus_price_mx.qty1 = :arg_qty1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询失败'+sqlca.SQLErrText GOTO ext END IF Decimal ld_fprice,ld_zqrate,ld_price DateTime ld_sys_changetime,ld_nulldt SetNull(ld_nulldt) IF cnt = 0 THEN //如果被删明细是最新,用次新明细更新最新价 SELECT count(*) INTO :ll_cnt FROM u_cus_price_MX WHERE u_cus_price_MX.cusid = :arg_cusid AND u_cus_price_MX.mtrlid = :arg_mtrlid AND u_cus_price_MX.status = :arg_status AND u_cus_price_MX.woodcode = :arg_woodcode AND u_cus_price_MX.pcode = :arg_pcode AND u_cus_price_MX.buildtype = :arg_buildtype AND u_cus_price_mx.moneyid = :arg_moneyid AND u_cus_price_MX.Opdate < :ld_opdate AND u_cus_price_MX.qty = :arg_qty And u_cus_price_mx.qty1 = :arg_qty1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询失败'+sqlca.SQLErrText GOTO ext END IF IF ll_cnt = 0 THEN ld_fprice = 0 ld_zqrate = 1 ld_price = 0 ld_sys_changetime = DateTime(Today(),Now()) ELSE SELECT top 1 fprice,zqrate,price,sys_changetime INTO :ld_fprice,:ld_zqrate,:ld_price,:ld_sys_changetime FROM u_cus_price_MX WHERE u_cus_price_MX.cusid = :arg_cusid AND u_cus_price_MX.mtrlid = :arg_mtrlid AND u_cus_price_MX.status = :arg_status AND u_cus_price_MX.woodcode = :arg_woodcode AND u_cus_price_MX.pcode = :arg_pcode AND u_cus_price_MX.buildtype = :arg_buildtype AND u_cus_price_mx.moneyid = :arg_moneyid AND u_cus_price_MX.Opdate < :ld_opdate AND u_cus_price_MX.qty = :arg_qty AND u_cus_price_MX.qty1 = :arg_qty1 Order By u_cus_price_mx.opdate Desc; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询失败'+sqlca.SQLErrText GOTO ext END IF END IF IF arg_buildtype = 0 THEN UPDATE u_cus_price SET fprice = :ld_fprice , zqrate = :ld_zqrate, price = :ld_price, sys_changetime = :ld_sys_changetime WHERE u_cus_price.cusid = :arg_cusid AND u_cus_price.mtrlid = :arg_mtrlid AND u_cus_price.status = :arg_status AND u_cus_price.woodcode = :arg_woodcode AND u_cus_price.pcode = :arg_pcode AND u_cus_price.moneyid = :arg_moneyid AND u_cus_price.qty = :arg_qty And u_cus_price.qty1 = :arg_qty1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新最新销售价失败'+sqlca.SQLErrText GOTO ext END IF ELSEIF arg_buildtype = 2 THEN UPDATE u_cus_price SET fprice_bj = :ld_fprice , zqrate_bj = :ld_zqrate, price_bj = :ld_price, sys_changetime = :ld_sys_changetime WHERE u_cus_price.cusid = :arg_cusid AND u_cus_price.mtrlid = :arg_mtrlid AND u_cus_price.status = :arg_status AND u_cus_price.woodcode = :arg_woodcode AND u_cus_price.pcode = :arg_pcode AND u_cus_price.moneyid = :arg_moneyid AND u_cus_price.qty = :arg_qty And u_cus_price.qty1 = :arg_qty1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新最新报价失败'+sqlca.SQLErrText GOTO ext END IF END IF END IF //删除手动添加价格 DELETE FROM u_cus_price_MX WHERE u_cus_price_MX.cusid = :arg_cusid AND u_cus_price_MX.mtrlid = :arg_mtrlid AND u_cus_price_MX.outwareid = :arg_outwareid AND u_cus_price_MX.printid = :arg_printid AND u_cus_price_MX.buildtype = :arg_buildtype AND u_cus_price_MX.status = :arg_status AND u_cus_price_MX.woodcode = :arg_woodcode AND u_cus_price_MX.pcode = :arg_pcode AND u_cus_price_MX.moneyid = :arg_moneyid AND u_cus_price_MX.qty = :arg_qty And u_cus_price_mx.qty1 = :arg_qty1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询失败'+sqlca.SQLErrText GOTO ext END IF SELECT count(*) INTO :ll_cnt FROM u_cus_price_MX WHERE u_cus_price_MX.cusid = :arg_cusid AND u_cus_price_MX.mtrlid = :arg_mtrlid AND u_cus_price_MX.status = :arg_status AND u_cus_price_MX.woodcode = :arg_woodcode AND u_cus_price_MX.pcode = :arg_pcode AND u_cus_price_mx.moneyid = :arg_moneyid AND u_cus_price_MX.Opdate < :ld_opdate AND u_cus_price_MX.qty = :arg_qty And u_cus_price_mx.qty1 = :arg_qty1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询失败'+sqlca.SQLErrText GOTO ext END IF IF ll_cnt = 0 THEN DELETE FROM u_cus_price WHERE u_cus_price.cusid = :arg_cusid AND u_cus_price.mtrlid = :arg_mtrlid AND u_cus_price.status = :arg_status AND u_cus_price.woodcode = :arg_woodcode AND u_cus_price.pcode = :arg_pcode AND u_cus_price.moneyid = :arg_moneyid AND u_cus_price.qty = :arg_qty And u_cus_price.qty1 = :arg_qty1; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询失败'+sqlca.SQLErrText GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT; END IF RETURN rslt END Function public function integer uf_cmpl_price_zhpz (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_pricelistid, long arg_moneyid, decimal arg_rebate_cus, ref decimal rtn_price, ref decimal rtn_zqrate, ref string arg_msg);//计算组合配置产品的价格 //按status 拆分组合, 按各个组件的价格总和得出组合产品的价格 //取价格表对应产品价格 Int rslt = 1 long ll_i dec obj_price string ls_status_zj, ls_listname dec lde_lmsaleprice, lde_rebate int li_flag s_mtrlcfg_expr s_pz[] String ls_status_ori,ls_woodcode_ori,ls_pcode_ori ls_status_ori = arg_status ls_woodcode_ori = arg_woodcode ls_pcode_ori = arg_pcode int li_price_ifpz = 1 //类似于 price_ifpz = 1 f_checkpz(arg_status,s_pz[]) arg_pcode = '' arg_woodcode = '' //全局用,判断是否在计算组合配置单价 if_cmpl_zhpz_pf = true s_zhpz = s_pz obj_price = 0 FOR ll_i = 1 To UpperBound(s_pz) ls_status_zj = s_pz[ll_i].cfgname //取价格表 价格, 有公式的按公式计算价格 IF uof_get_pricelist_price(arg_mtrlid, arg_mtrlcode, ls_status_zj, arg_woodcode, arg_pcode, ls_status_ori, ls_woodcode_ori, ls_pcode_ori, arg_qty * Dec(s_pz[ll_i].qty), arg_pricelistid, arg_moneyid, lde_lmsaleprice, li_flag, ls_listname, lde_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_saleprice_list_rebate = 1 THEN lde_rebate = arg_rebate_cus END IF obj_price = obj_price + lde_lmsaleprice * lde_rebate * Dec(s_pz[ll_i].qty) NEXT rtn_price = obj_price rtn_zqrate = 1 ext: RETURN rslt end function public function integer uf_cmpl_price (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_pricelistid, long arg_moneyid, decimal arg_rebate_cus, integer arg_price_ifpz, ref decimal rtn_price, ref decimal rtn_zqrate, ref string arg_msg);//计算非组合配置 或 组合配置但没有设置组合的 产品的价格 //根据单价限制策略, 按设置的配置查找价格 //取价格表对应产品价格 Int rslt = 1 Dec obj_price String ls_status_zj, ls_listname Dec lde_lmsaleprice, lde_rebate Int li_flag String ls_status_ori,ls_woodcode_ori,ls_pcode_ori ls_status_ori = arg_status ls_woodcode_ori = arg_woodcode ls_pcode_ori = arg_pcode CHOOSE CASE arg_price_ifpz CASE 0 arg_status = '' arg_woodcode = '' arg_pcode = '' CASE 1 arg_pcode = '' arg_woodcode = '' CASE 2 arg_status = '' arg_pcode = '' CASE 3 arg_status = '' arg_woodcode = '' CASE 4 arg_pcode = '' CASE 5 arg_status = '' CASE 6 arg_woodcode = '' END CHOOSE //取价格表 公式内容 IF uof_get_pricelist_price(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, ls_status_ori, ls_woodcode_ori, ls_pcode_ori, arg_qty, arg_pricelistid, arg_moneyid, lde_lmsaleprice, li_flag, ls_listname, lde_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_saleprice_list_rebate = 1 THEN lde_rebate = arg_rebate_cus END IF rtn_price = lde_lmsaleprice rtn_zqrate = lde_rebate ext: RETURN rslt end function public function integer uof_get_pricelistinfo (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, string arg_status_ori, string arg_woodcode_ori, string arg_pcode_ori, decimal arg_qty, long arg_pricelistid, ref decimal arg_lmsaleprice, ref integer arg_flag, ref string arg_listname, ref decimal arg_rebate, ref string arg_msg); //取价格表对应产品价格 //产品价格表公式与产品价格策略的限制 Int rslt = 1 Long ll_moneyid_pricelist String ls_pricestr,ls_rebatestr Int li_rslt_cmp Decimal ld_price_cmp,ld_rebate_cmp Int li_price_ifpz String ls_status_ori,ls_woodcode_ori,ls_pcode_ori ls_status_ori = arg_status ls_woodcode_ori = arg_woodcode ls_pcode_ori = arg_pcode li_price_ifpz = 0 SELECT u_sale_price_list.listname INTO :arg_listname FROM u_sale_price_list Where pricelistid = :arg_pricelistid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询价格表信息失败,"+sqlca.SQLErrText GOTO ext END IF SELECT u_sale_price_mx.price, u_sale_price_mx.flag, u_sale_price_mx.rebate, u_sale_price_mx.pricestr, u_sale_price_mx.rebatestr INTO :arg_lmsaleprice, :arg_flag, :arg_rebate, :ls_pricestr, :ls_rebatestr FROM u_sale_price_list,u_sale_price_mx WHERE u_sale_price_mx.pricelistid = u_sale_price_list.pricelistid AND u_sale_price_mx.mtrlid = :arg_mtrlid AND u_sale_price_mx.status = :arg_status AND u_sale_price_mx.woodcode = :arg_woodcode AND u_sale_price_mx.pcode = :arg_pcode AND ( (u_sale_price_mx.saleqty = 0 OR u_sale_price_mx.saleqty <= :arg_qty) AND (u_sale_price_mx.saleqty1 = 0 OR u_sale_price_mx.saleqty1 >= :arg_qty)) And u_sale_price_mx.pricelistid = :arg_pricelistid; IF sqlca.SQLCode <> 0 THEN rslt = 0 //arg_msg = '查询产品:'+arg_mtrlcode+',配置:'+arg_status+',配置1:'+arg_woodcode+',配置2:'+arg_pcode+',销售限价失败,可能该客户的销售限价还没有设定,请检查' if if_chk_mxlist then arg_msg = '客户价格表未找到' else arg_msg = '价格表['+arg_listname+']未找到' end if arg_msg += '产品:'+arg_mtrlcode IF arg_status <> "" THEN arg_msg += ',配置:'+arg_status END IF IF arg_woodcode <> "" THEN arg_msg += ',配置1:'+arg_woodcode END IF IF arg_pcode <> "" THEN arg_msg += ',配置2:'+arg_pcode END IF arg_msg += '的相关信息' GOTO ext END IF IF arg_flag = 0 THEN rslt = 0 if if_chk_mxlist then arg_msg = '客户价格表对应' else arg_msg = '价格表['+arg_listname+']对应' end if arg_msg += '产品:'+arg_mtrlcode IF arg_status <> "" THEN arg_msg += ',配置:'+arg_status END IF IF arg_woodcode <> "" THEN arg_msg += ',配置1:'+arg_woodcode END IF IF arg_pcode <> "" THEN arg_msg += ',配置2:'+arg_pcode END IF arg_msg += '未审核' GOTO ext END IF IF Trim(ls_pricestr) <> '' THEN //li_rslt_cmp = uof_pricestr_cmp(ls_pricestr,arg_status,arg_woodcode,arg_pcode,ld_price_cmp) li_rslt_cmp = uof_pricestr_cmp(ls_pricestr, arg_status_ori, arg_woodcode_ori, arg_pcode_ori,ld_price_cmp) IF li_rslt_cmp = 1 THEN arg_lmsaleprice = ld_price_cmp ELSEIF li_rslt_cmp = 0 THEN arg_lmsaleprice = 0 END IF END IF IF Trim(ls_rebatestr) <> '' THEN // li_rslt_cmp = uof_pricestr_cmp(ls_pricestr,arg_status,arg_woodcode,arg_pcode,ld_rebate_cmp) li_rslt_cmp = uof_pricestr_cmp(ls_pricestr,arg_status_ori, arg_woodcode_ori, arg_pcode_ori , ld_rebate_cmp) IF li_rslt_cmp = 1 THEN arg_rebate = ld_rebate_cmp ELSEIF li_rslt_cmp = 0 THEN arg_rebate = 1 END IF END IF ext: RETURN rslt end function public function integer uof_get_pricelist_price (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, string arg_status_ori, string arg_woodcode_ori, string arg_pcode_ori, decimal arg_qty, long arg_pricelistid, long arg_moneyid, ref decimal arg_lmsaleprice, ref integer arg_flag, ref string arg_listname, ref decimal arg_rebate, ref string arg_msg);//要求传人的3个配置是 原配置 //取价格表对应产品价格 Int rslt = 1 //取价格表 IF arg_pricelistid > 0 THEN IF uof_chk_pricelistid( arg_moneyid, arg_pricelistid, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ELSE IF uof_get_pricelistid(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, arg_moneyid, arg_pricelistid, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF //取价格表 公式内容 IF uof_get_pricelistinfo(arg_mtrlid, arg_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_status_ori, arg_woodcode_ori, arg_pcode_ori, arg_qty, arg_pricelistid, arg_lmsaleprice, arg_flag, arg_listname, arg_rebate, arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ext: RETURN rslt end function public function integer uf_cmpl_price_pack (long arg_mtrlid, string arg_mtrlcode, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_pricelistid, long arg_moneyid, decimal arg_rebate_cus, integer arg_price_ifpz, ref decimal rtn_price, ref decimal rtn_zqrate, ref string arg_msg);//计算包件产品的价格 Int rslt = 1 String ls_pf_status[],ls_pf_woodcode[],ls_pf_pcode[] Int li_ifover[],li_dipztype[] Decimal ld_Sonscale[] Long ll_SonMtrlid[] string ls_mtrlcode[] Long it_mxt = 1,ll_j String ls_status_find,ls_woodcode_find,ls_pcode_find String ls_status_zj, ls_listname Decimal lde_lmsaleprice, lde_rebate,obj_price Int li_flag String ls_status_ori,ls_woodcode_ori,ls_pcode_ori ls_status_ori = arg_status ls_woodcode_ori = arg_woodcode ls_pcode_ori = arg_pcode Declare cur_pf Cursor For Select u_PrdPF.SonMtrlid, u_PrdPF.status, u_PrdPF.woodcode, u_PrdPF.pcode, u_PrdPF.ifover, u_prdpf.dipztype, u_prdpf.Sonscale, u_mtrldef.mtrlcode FROM u_PrdPF INNER JOIN u_mtrl_pf ON u_PrdPF.mtrlid = u_mtrl_pf.Mtrlid AND u_PrdPF.pfcode = u_mtrl_pf.pfcode INNER JOIN u_mtrldef ON u_PrdPF.SonMtrlid = u_mtrldef.mtrlid where ( u_PrdPF.mtrlid = :arg_mtrlid ) And ( u_mtrl_pf.ifdft = 1 ); Open cur_pf; Fetch cur_pf Into :ll_SonMtrlid[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:li_ifover[it_mxt], :li_dipztype[it_mxt],:ld_Sonscale[it_mxt],:ls_mtrlcode[it_mxt]; Do While sqlca.SQLCode = 0 it_mxt++ Fetch cur_pf Into :ll_SonMtrlid[it_mxt],:ls_pf_status[it_mxt], :ls_pf_woodcode[it_mxt],:ls_pf_pcode[it_mxt],:li_ifover[it_mxt], :li_dipztype[it_mxt],:ld_Sonscale[it_mxt],:ls_mtrlcode[it_mxt]; Loop it_mxt = it_mxt - 1 Close cur_pf; For ll_j = 1 To it_mxt If li_ifover[ll_j] = 1 Then Choose Case li_dipztype[ll_j] Case 0 ls_status_find = arg_status ls_woodcode_find = '' ls_pcode_find = '' Case 1 ls_status_find = '' ls_woodcode_find = arg_woodcode ls_pcode_find = '' Case 2 ls_status_find = '' ls_woodcode_find = '' ls_pcode_find = arg_pcode Case 3 ls_status_find = arg_status ls_woodcode_find = arg_woodcode ls_pcode_find = '' Case 4 ls_status_find = '' ls_woodcode_find = arg_woodcode ls_pcode_find = arg_pcode Case 5 ls_status_find = arg_status ls_woodcode_find = '' ls_pcode_find = arg_pcode Case 6 ls_status_find = arg_status ls_woodcode_find = arg_woodcode ls_pcode_find = arg_pcode End Choose Else ls_status_find = ls_pf_status[ll_j] ls_woodcode_find = ls_pf_woodcode[ll_j] ls_pcode_find = ls_pf_pcode[ll_j] End If ls_status_find = Trim(ls_status_find) ls_woodcode_find = Trim(ls_woodcode_find) ls_pcode_find = Trim(ls_pcode_find) If uof_get_pricelist_price(ll_SonMtrlid[ll_j] ,ls_mtrlcode[ll_j], ls_status_find, ls_woodcode_find, ls_pcode_find, ls_status_ori, ls_woodcode_ori, ls_pcode_ori, arg_qty * Dec(ld_Sonscale[ll_j]), arg_pricelistid, arg_moneyid, lde_lmsaleprice, li_flag, ls_listname, lde_rebate, arg_msg) = 0 Then rslt = 0 Goto ext End If IF uo_option_saleprice_list_rebate = 1 THEN lde_rebate = arg_rebate_cus END IF obj_price = obj_price + lde_lmsaleprice * lde_rebate * ld_Sonscale[ll_j] Next rtn_price = obj_price rtn_zqrate = 1 ext: Return rslt end function public function integer uof_get_mtrl_bjpz (ref datastore ds, long arg_pztype, long arg_type, string arg_col_value_dft, string arg_col_value, integer arg_mtrlpztype, ref string arg_msg);//arg_pztype 属于哪个配置 0 - 配置status; 1- 配置1 woodcode; 2-配置2 pcode //arg_type 配置类型,哪个部件配置类型 Int rslt = 1 Long ll_row String ls_pzcode, ls_pzname Int li_inputtype Long ll_pzid Int li_usechflag, li_secflag String ls_contfigtypename Decimal lde_price //检查分类是否启用换料,是否财审 SELECT usechflag, secflag, contfigtypename INTO :li_usechflag, :li_secflag, :ls_contfigtypename FROM u_configure_type Where contfigtypeid = :arg_type; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询部件选配分类信息失败,"+sqlca.SQLErrText GOTO ext END IF IF li_usechflag = 0 THEN RETURN 1 IF li_secflag = 0 THEN //要换但未审 rslt = 0 arg_msg = "部件选配分类:"+ls_contfigtypename+" 还未财审" GOTO ext END IF DECLARE cur_pz CURSOR FOR SELECT u_configure_code.pzid, u_configure_code.pzcode, u_configure_code.name, inputtype FROM u_configure_code Where u_configure_code.typeid = :arg_type; OPEN cur_pz; FETCH cur_pz Into :ll_pzid,:ls_pzcode,:ls_pzname, :li_inputtype; DO WHILE sqlca.SQLCode = 0 IF li_inputtype = 0 And ll_pzid > 0 THEN //只有选择类才能自动换 ll_row = ds.InsertRow(0) ds.Object.pzid[ll_row] = ll_pzid ds.Object.pzcode[ll_row] = ls_pzcode ds.Object.Name[ll_row] = ls_pzname ds.Object.inputtype[ll_row] = li_inputtype ds.Object.pztype[ll_row] = arg_pztype END IF FETCH cur_pz Into :ll_pzid,:ls_pzcode,:ls_pzname, :li_inputtype; LOOP CLOSE cur_pz; Long i, ll_start, ll_i, ll_j String ls_name[], ls_namemx[] Long ll_printid //arg_col_value IF Right(arg_col_value,1) <> "|" THEN arg_col_value += "|" END IF i = 0 ll_start = Pos(arg_col_value, "|") DO WHILE ll_start > 0 And arg_col_value <> "|" i++ ls_name[i] = Left(arg_col_value, Pos(arg_col_value,":") - 1) ls_namemx[i] = Left(arg_col_value, ll_start - 1) ls_namemx[i] = Mid(ls_namemx[i],Pos(ls_namemx[i],':') + 1) arg_col_value = Mid(arg_col_value, ll_start + 1) ll_start = Pos(arg_col_value, "|") LOOP FOR ll_i = 1 To ds.RowCount() ll_pzid = ds.Object.pzid[ll_i] IF UpperBound(ls_namemx) < i THEN EXIT FOR ll_j = 1 To i IF ds.Object.Name[ll_i] = ls_name[ll_j] THEN ll_pzid = ds.Object.pzid[ll_i] SELECT printid, price INTO :ll_printid, :lde_price FROM u_configure_codemx WHERE namemx = :ls_namemx[ll_j] And pzid = :ll_pzid; IF sqlca.SQLCode <> 0 THEN ll_printid = 0 lde_price = 0 END IF ds.Object.namemx[ll_i] = ls_namemx[ll_j] ds.Object.printid[ll_i] = ll_printid ds.Object.price[ll_i] = lde_price GOTO _next END IF NEXT _next: NEXT //arg_col_value_dft IF Right(arg_col_value_dft,1) <> "|" THEN arg_col_value_dft += "|" END IF i = 0 ll_start = Pos(arg_col_value_dft, "|") DO WHILE ll_start > 0 And arg_col_value_dft <> "|" i++ ls_name[i] = Left(arg_col_value_dft, Pos(arg_col_value_dft,":") - 1) ls_namemx[i] = Left(arg_col_value_dft, ll_start - 1) ls_namemx[i] = Mid(ls_namemx[i],Pos(ls_namemx[i],':') + 1) arg_col_value_dft = Mid(arg_col_value_dft, ll_start + 1) ll_start = Pos(arg_col_value_dft, "|") LOOP FOR ll_i = 1 To ds.RowCount() ll_pzid = ds.Object.pzid[ll_i] IF UpperBound(ls_namemx) < i THEN EXIT FOR ll_j = 1 To i IF ds.Object.Name[ll_i] = ls_name[ll_j] THEN ll_pzid = ds.Object.pzid[ll_i] SELECT printid, price INTO :ll_printid, :lde_price FROM u_configure_codemx WHERE namemx = :ls_namemx[ll_j] And pzid = :ll_pzid; IF sqlca.SQLCode <> 0 THEN ll_printid = 0 lde_price = 0 END IF ds.Object.namemx_ori[ll_i] = ls_namemx[ll_j] ds.Object.printid_ori[ll_i] = ll_printid ds.Object.price_ori[ll_i] = lde_price GOTO _next1 END IF NEXT _next1: NEXT //筛选一遍, 将相同的删除; 确定自动换料类型kind; 0 - 换料; 1 - 减料; 2 - 增料 String ls_namemx_ori, ls_namemx_new ll_row = ds.RowCount() FOR ll_i = ll_row To 1 Step -1 IF ds.Object.pzid[ll_i] = 0 THEN ds.DeleteRow(ll_i) CONTINUE END IF IF ds.Object.pztype[ll_i] = arg_pztype THEN ls_namemx_ori = ds.Object.namemx_ori[ll_i] ls_namemx_new = ds.Object.namemx[ll_i] IF arg_mtrlpztype = 4 THEN IF ds.Object.namemx_ori[ll_i] = ds.Object.namemx[ll_i] THEN ds.DeleteRow(ll_i) CONTINUE END IF ELSEIF arg_mtrlpztype = 5 THEN IF ds.Object.namemx_ori[ll_i] = ds.Object.namemx[ll_i] Or ds.Object.namemx[ll_i] = '' THEN ds.DeleteRow(ll_i) CONTINUE END IF END IF //以下的就是namemx_ori <> namemxi IF ds.Object.namemx_ori[ll_i] = "" And ds.Object.namemx[ll_i] <> "" THEN //增料 ds.Object.Kind[ll_i] = 2 ELSEIF ds.Object.namemx_ori[ll_i] <> "" And ds.Object.namemx[ll_i] <> "" THEN //替换 ds.Object.Kind[ll_i] = 0 ELSEIF ds.Object.namemx_ori[ll_i] <> "" And ds.Object.namemx[ll_i] = "" THEN //减料 ds.Object.Kind[ll_i] = 1 END IF END IF NEXT //如果系组合配置的, 重新刷一次差价 IF if_cmpl_zhpz_pf THEN Decimal lde_addprice, lde_price_ori Long ll_printid_ori String ls_mxpzname //ll_row = ds.RowCount() FOR ll_i = 1 To ds.RowCount() IF ds.Object.pztype[ll_i] = arg_pztype THEN ll_pzid = ds.Object.pzid[ll_i] ll_printid = ds.Object.printid[ll_i] ll_printid_ori = ds.Object.printid_ori[ll_i] lde_price = 0 lde_price_ori = 0 FOR ll_j = 1 To UpperBound(s_zhpz) ls_mxpzname = s_zhpz[ll_j].cfgname SELECT price INTO :lde_addprice FROM u_configure_codemx_pz WHERE pzid = :ll_pzid AND printid = :ll_printid And Name = :ls_mxpzname; IF sqlca.SQLCode <> 0 THEN lde_addprice = 0 END IF IF IsNull(lde_addprice) THEN lde_addprice = 0 lde_price += lde_addprice * Dec(s_zhpz[ll_j].qty) SELECT price INTO :lde_addprice FROM u_configure_codemx_pz WHERE pzid = :ll_pzid AND printid = :ll_printid_ori And Name = :ls_mxpzname; IF sqlca.SQLCode <> 0 THEN lde_addprice = 0 END IF IF IsNull(lde_addprice) THEN lde_addprice = 0 lde_price_ori += lde_addprice * Dec(s_zhpz[ll_j].qty) NEXT ds.Object.price[ll_i] = lde_price ds.Object.price_ori[ll_i] = lde_price_ori END IF NEXT END IF ext: RETURN rslt end function public function integer uof_get_mtrl_ygpz (ref datastore ds, long arg_pztype, long arg_type, string arg_col_value_dft, string arg_col_value, ref string arg_msg);IF arg_col_value = arg_col_value_dft THEN RETURN 1 //不需要换的跳过 Int rslt = 1 Long ll_row String ls_pzcode, ls_pzname Int li_inputtype Int li_usechflag, li_flag String ls_typename decimal lde_price, lde_price_ori ls_pzcode = "[严格选择]" //检查分类是否启用换料,是否技审 SELECT usechflag, flag, typename INTO :li_usechflag, :li_flag, :ls_typename FROM u_pztype_def Where typeid = :arg_type; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询严格选择配置分类信息失败,"+sqlca.SQLErrText GOTO ext END IF IF li_usechflag = 0 THEN RETURN 1 IF li_flag = 0 THEN //要换但未审 rslt = 0 arg_msg = "严格选择配置分类:"+ls_typename+" 还未审核" GOTO ext END IF SELECT price into :lde_price FROM u_pztype_mx where (typeid = :arg_type) and (dscrp = :arg_col_value); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询严格选择配置分类信息新差价失败,"+sqlca.SQLErrText GOTO ext END IF SELECT price into :lde_price_ori FROM u_pztype_mx where (typeid = :arg_type) and (dscrp = :arg_col_value_dft); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询严格选择配置分类信息原差价失败,"+sqlca.SQLErrText GOTO ext END IF ll_row = ds.InsertRow(0) ds.Object.pzid[ll_row] = arg_type ds.Object.pzcode[ll_row] = ls_pzcode ds.Object.Name[ll_row] = ls_typename ds.Object.namemx[ll_row] = arg_col_value ds.Object.namemx_ori[ll_row] = arg_col_value_dft ds.Object.inputtype[ll_row] = li_inputtype ds.Object.pztype[ll_row] = arg_pztype ds.Object.price[ll_row] = lde_price ds.Object.price_ori[ll_row] = lde_price_ori //以下的就是namemx_ori <> namemxi IF ds.Object.namemx_ori[ll_row] = "" And ds.Object.namemx[ll_row] <> "" THEN //增料 ds.Object.Kind[ll_row] = 2 ELSEIF ds.Object.namemx_ori[ll_row] <> "" And ds.Object.namemx[ll_row] <> "" THEN //替换 ds.Object.Kind[ll_row] = 0 ELSEIF ds.Object.namemx_ori[ll_row] <> "" And ds.Object.namemx[ll_row] = "" THEN //减料 ds.Object.Kind[ll_row] = 1 END IF ext: RETURN rslt end function public function integer uof_get_mtrl_3pz_difprice (long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_difprice, ref string arg_msg);//1.只查询支持换料的行, 计算换料差价, sum(原配置价 - 新配置价) //datastore ds_pzmx ds_pzmx = Create datastore ds_pzmx.DataObject = 'dw_configure_pz_compare' Int rslt = 1 Long ll_row Int li_statusflag,li_woodcodeflag,li_pcodeflag Long ll_statustype, ll_woodcodetype, ll_pcodetype String ls_status_config, ls_woodcode_config, ls_pcode_config SELECT statusflag, statustype, woodcodeflag, woodcodetype, pcodeflag, pcodetype, status_config, woodcode_config, pcode_config INTO :li_statusflag,:ll_statustype,:li_woodcodeflag,:ll_woodcodetype,:li_pcodeflag,:ll_pcodetype, :ls_status_config, :ls_woodcode_config, :ls_pcode_config FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询物料资料失败,'+sqlca.SQLErrText GOTO ext END IF //status IF li_statusflag = 1 THEN IF uof_get_mtrl_ygpz(ds_pzmx, 0, ll_statustype, ls_status_config, arg_status, arg_msg) = 0 THEN rslt = 0 arg_msg = "生成严格选择配置换料列表失败,"+arg_msg GOTO ext END IF END IF IF li_statusflag = 4 Or li_statusflag = 5 THEN IF uof_get_mtrl_bjpz(ds_pzmx, 0, ll_statustype, ls_status_config, arg_status, li_statusflag, arg_msg) = 0 THEN rslt = 0 arg_msg = "生成部件选配配置换料列表失败,"+arg_msg GOTO ext END IF END IF //woodcode IF li_woodcodeflag = 1 THEN IF uof_get_mtrl_ygpz(ds_pzmx, 1, ll_woodcodetype, ls_woodcode_config, arg_woodcode, arg_msg) = 0 THEN rslt = 0 arg_msg = "生成严格选择配置1换料列表失败,"+arg_msg GOTO ext END IF END IF IF li_woodcodeflag = 4 Or li_woodcodeflag = 5 THEN IF uof_get_mtrl_bjpz(ds_pzmx, 1, ll_woodcodetype, ls_woodcode_config, arg_woodcode, li_woodcodeflag, arg_msg) = 0 THEN rslt = 0 arg_msg = "生成部件选配配置1换料列表失败,"+arg_msg GOTO ext END IF END IF //pcode IF li_pcodeflag = 1 THEN IF uof_get_mtrl_ygpz(ds_pzmx, 2, ll_pcodetype, ls_pcode_config, arg_pcode, arg_msg) = 0 THEN rslt = 0 arg_msg = "生成严格选择配置2换料列表失败,"+arg_msg GOTO ext END IF END IF IF li_pcodeflag = 4 Or li_pcodeflag = 5 THEN IF uof_get_mtrl_bjpz(ds_pzmx, 2, ll_pcodetype, ls_pcode_config, arg_pcode, li_pcodeflag, arg_msg) = 0 THEN rslt = 0 arg_msg = "生成部件选配配置2换料列表失败,"+arg_msg GOTO ext END IF END IF arg_difprice = 0 FOR ll_row = 1 To ds_pzmx.RowCount() arg_difprice += ds_pzmx.Object.price[ll_row] - ds_pzmx.Object.price_ori[ll_row] NEXT ext: destroy ds_pzmx IF rslt = 0 THEN arg_difprice = 0 END IF RETURN rslt end function public function integer uof_getprice_quote (long arg_moneyid, long arg_pricelistid, long arg_cusid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, decimal arg_qty, long arg_scid, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg); //产品价格表公式与产品价格策略的限制 //1.产品价格策略已设置限制的配置不能应用于价格表公式; //例如:产品价格策略 选择为 不使用 ; 则价格表公式可以用 配置 配置1, 配置2 设置公式; // 产品价格策略 选择为 配置 ; 则价格表公式不能是用 配置 , 但可以用 配置1, 配置2 设置公式; // 产品价格策略 选择为 配置 + 配置1; 则价格表公式不能是用 配置 或 配置1 , 但可以用 配置2 设置公式; // 产品价格策略 选择为 配置 + 配置1 + 配置3; 则价格表公式不能使用; Int rslt = 1 Long ll_statusflag,li_price_ifpz String ls_mtrlcode String ls_cusname Long ll_pricelistid,ll_pricelistid_arr[],ll_mxbt = 0,ll_pricelistid_tmp Decimal ld_lmsaleprice,ld_rebate,obj_price,ld_rebate_arr[],ld_rebate_tmp Long ll_i String ls_status_zj //Int li_flag String ls_listname Decimal ld_rebate_cus Decimal rtn_price,rtn_zqrate //Int li_selecttype Int li_suc = 0 Int li_ifpackpro,li_ifpricepack Long ll_moneyid_native Decimal lde_difprice s_mtrlcfg_expr s_pz[] IF uo_option_saleprice_list_rebate = -1000 THEN rslt = 0 arg_msg = '选项:[237]客户价格表折扣按客户设定,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_price_rmb = -1000 THEN rslt = 0 arg_msg = '选项:[238]销售单价按人民币单价折算,读取初始默认值失败,操作取消!' GOTO ext END IF String ls_status_ori,ls_woodcode_ori,ls_pcode_ori ls_status_ori = arg_status ls_woodcode_ori = arg_woodcode ls_pcode_ori = arg_pcode //yyx2012-12-11 IF uo_option_price_rmb = 1 THEN SELECT moneyid INTO :ll_moneyid_native From cw_currency Where native = 1; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询本位币种失败,请检查币种是否设置了本位币' rslt = 0 GOTO ext END IF arg_moneyid = ll_moneyid_native END IF //IF f_get_selecttype(arg_typeid,arg_cusid,li_selecttype,arg_msg) = 0 THEN // rslt = 0 // GOTO ext //END IF SELECT statusflag,mtrlcode,price_ifpz,ifpackpro,ifpricepack INTO :ll_statusflag,:ls_mtrlcode,:li_price_ifpz,:li_ifpackpro,:li_ifpricepack FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN rslt = 0 GOTO ext END IF SELECT name,pricelistid,rebate INTO :ls_cusname,:ll_pricelistid,:ld_rebate_cus FROM u_cust Where cusid = :arg_cusid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,客户资料" GOTO ext END IF IF arg_pricelistid > 0 THEN ll_mxbt = 1 ll_pricelistid_arr[ll_mxbt] = arg_pricelistid ld_rebate_arr[ll_mxbt] = ld_rebate_cus END IF IF if_chk_mxlist THEN //查客户价格表的，读默认的 DECLARE cur_listmx CURSOR FOR SELECT pricelistid,rebate FROM u_cus_pricelist_mx WHERE cusid = :arg_cusid Order By printid; OPEN cur_listmx; FETCH cur_listmx Into :ll_pricelistid_tmp,:ld_rebate_tmp; DO WHILE sqlca.SQLCode = 0 ll_mxbt++ ll_pricelistid_arr[ll_mxbt] = ll_pricelistid_tmp ld_rebate_arr[ll_mxbt] = ld_rebate_tmp FETCH cur_listmx Into :ll_pricelistid_tmp,:ld_rebate_tmp; LOOP CLOSE cur_listmx; // IF ll_pricelistid = 0 THEN // rslt = 0 // arg_msg = '选择限制为"只能选客户价格表",但当前客户没有指定价格表,请检查' // GOTO ext // END IF END IF //选价格表: 1.组合配置产品按组合计算; 2.包件产品按子件计算; 3.其他常规产品直接取价 FOR ll_i = 1 To ll_mxbt //循环所有该客户有效价格表 IF ll_statusflag = 2 And arg_status <> '' And li_ifpricepack = 0 THEN //组合配置且非整套计算 //组合配置 ,计算价格 //如果不按整套,分开子件查价格 //如果价格按整套,则用整个配置信息查价格 IF uf_cmpl_price_zhpz(arg_mtrlid, ls_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid_arr[ll_i], arg_moneyid, ld_rebate_arr[ll_i], obj_price, ld_rebate, arg_msg) = 0 THEN CONTINUE ELSE rtn_price = obj_price rtn_zqrate = ld_rebate li_suc = 1 EXIT END IF ELSEIF li_ifpackpro <> 0 And li_ifpricepack = 0 THEN //包件产品且非整套计算 //2.包件产品,按清单拆分, 取子件价格汇总作为包件价格 IF uf_cmpl_price_pack(arg_mtrlid, ls_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid_arr[ll_i], arg_moneyid, ld_rebate_arr[ll_i], li_price_ifpz, obj_price, ld_rebate, arg_msg) = 0 THEN CONTINUE ELSE rtn_price = obj_price rtn_zqrate = ld_rebate li_suc = 1 EXIT END IF ELSE //整套计算 or 其他常规取价 //1.整套计算单价的 //2.非组合配置的 //3.非包件产品的 IF uf_cmpl_price(arg_mtrlid, ls_mtrlcode, arg_status, arg_woodcode, arg_pcode, arg_qty, ll_pricelistid_arr[ll_i], arg_moneyid, ld_rebate_arr[ll_i], li_price_ifpz, obj_price, ld_rebate, arg_msg) = 0 THEN CONTINUE ELSE rtn_price = obj_price rtn_zqrate = ld_rebate li_suc = 1 EXIT END IF END IF NEXT //if li_suc = 1 取价成功, 统计部件选配自动换料计算差价 IF li_suc = 1 THEN IF uof_get_mtrl_3pz_difprice(arg_mtrlid, arg_status, arg_woodcode, arg_pcode, lde_difprice, arg_msg) = 0 THEN lde_difprice = 0 END IF rtn_price = rtn_price + lde_difprice // rtn_zqrate = ld_rebate // li_suc = 1 END IF IF li_suc = 0 THEN rslt = 0 GOTO ext END IF ext: arg_price = rtn_price arg_rebate = rtn_zqrate RETURN rslt end function on uo_cusprice.create call super::create TriggerEvent( this, "constructor" ) end on on uo_cusprice.destroy TriggerEvent( this, "destructor" ) call super::destroy end on event constructor; String str_optionvalue,arg_msg f_get_sys_option_value('056',str_optionvalue,arg_msg) uo_option_checkprice_native = Long(str_optionvalue) f_get_sys_option_value('238',str_optionvalue,arg_msg) uo_option_price_rmb = Long(str_optionvalue) f_get_sys_option_value('237',str_optionvalue,arg_msg) uo_option_saleprice_list_rebate = Long(str_optionvalue) end event