$PBExportHeader$uo_outware.sru forward global type uo_outware from nonvisualobject end type end forward global type uo_outware from nonvisualobject end type global uo_outware uo_outware type variables PUBLIC PROTECTEDWRITE Long scid = 0 //分部id PUBLIC PROTECTEDWRITE Long outwareid //出仓单表自动增量id PUBLIC PROTECTEDWRITE String outwarecode //单据的唯一编号 PUBLIC PROTECTEDWRITE Int billtype = 0 //业务类型 PUBLIC PROTECTEDWRITE DateTime opdate //建立时间,自动 PUBLIC PROTECTEDWRITE String opemp //建立操作员 PUBLIC PROTECTEDWRITE DateTime moddate //修改时间,自动 PUBLIC PROTECTEDWRITE String modemp //修改操作员 PUBLIC PROTECTEDWRITE Int balcflag = 0 //仓库结存标志 PUBLIC PROTECTEDWRITE Int flag = 0 //仓库审核标志 PUBLIC PROTECTEDWRITE DateTime auditingdate //审核时间 PUBLIC PROTECTEDWRITE String auditingrep //审核操作员 PUBLIC PROTECTEDWRITE Int secflag = 0 //财务审核标志 PUBLIC PROTECTEDWRITE DateTime secauditingdate //二审核时间 PUBLIC PROTECTEDWRITE String secauditingrep //二审核操作员 PUBLIC PROTECTEDWRITE Decimal sum_amt = 0 //单据总金额(本位币) PUBLIC PROTECTEDWRITE Decimal sum_amt_en = 0 //单据总金额(原币) PUBLIC PROTECTEDWRITE Decimal sum_enamt = 0 //单据总金额(原币) PUBLIC PROTECTEDWRITE Decimal sum_enamt_tax = 0 //税金(原币) PUBLIC PROTECTEDWRITE Decimal sum_bsamt = 0 //单据总金额(本位币) PUBLIC PROTECTEDWRITE Decimal sum_bsamt_tax = 0 //税金(本位币) PUBLIC PROTECTEDWRITE Int priceflag = 0 //确认标志 PUBLIC PROTECTEDWRITE DateTime pricedate //确认时间 PUBLIC PROTECTEDWRITE String priceemp //确认操作员 PUBLIC PROTECTEDWRITE Int secpflag = 0 //确认标志 PUBLIC PROTECTEDWRITE DateTime secpdate //确认时间 PUBLIC PROTECTEDWRITE String secpemp //确认操作员 //仓库信息 PUBLIC PROTECTEDWRITE int if_cus_mtrlware Long relid = 0 //关联id Long storageid = 0 //出仓仓库 DateTime outdate //出仓发生时间 String outrep = '' //经手人 String part = '' //相关号码 String dscrp = '' //备注 String dscrp2 = '' //备注 String dscrp3 = '' //备注 Long cusid = 0 //客户id String cusname = '' //客户名称(不记帐模式使用) Int thflag = 0 //退货标记 string billname String relstr_1 String relstr_2 String relstr_3 long relint_1 long relint_2 long relint_3 decimal otheramt=0 decimal deposit=0 decimal mrate string rel_address string rel_tele string rel_tele1 string rel_fax string rel_rep dec totalamt = 0 dec getamt = 0 int lsflag = 0 string transcode string carcode string paytype int typeid Long staticid datetime viewdate //预收款时间 Int cwauditingflag = 0 //总账审核标记 DateTime cwauditingdate //总账审核时间 String cwauditingrep //总账审核操作员 Boolean sysautobuild = FALSE //自动操作标记 Boolean if_getid_ture = TRUE Transaction commit_transaction //数据commit事务 s_outwaremx outwaremx[] //明细结构数组 Long it_mxbt = 0 //明细结构数组末指针 Boolean it_newbegin = FALSE //新建标志 Boolean it_updatebegin = FALSE //修改标志 end variables forward prototypes public function integer newbegin (long arg_scid, integer arg_billtype, ref string arg_msg) public function integer save (boolean arg_ifcommit, ref string arg_msg) public function integer auditing (boolean arg_ifcommit, ref string arg_msg) public function integer updatebegin (long arg_scid, long arg_outwareid, integer arg_billtype, ref string arg_msg) public function integer getinfo (long arg_scid, long arg_outwareid, ref string arg_msg) public function integer del (long arg_scid, long arg_outwareid, ref string arg_msg, boolean arg_ifcommit) public function integer add_dscrp (long arg_scid, long arg_outwareid, string arg_newdescppart, ref string arg_msg) public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg) public function integer p_clearmx () public function integer p_getinfo (long arg_scid, long arg_outwareid, ref string arg_msg) public function integer p_reset () public function integer acceptmx (long arg_mtrlwareid, decimal arg_qty, decimal arg_addqty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, long arg_printid, ref string arg_msg, integer arg_ifrel, long arg_relid, long arg_relprintid, long arg_relid2, long arg_olmtrlid, long arg_packqty, integer arg_outtype, string arg_unit, decimal arg_rate, string arg_mtrlcuscode, string arg_formula) public function integer acceptmx (s_outwaremx s_mx, ref string arg_msg) public function integer uf_chk_updatecost (ref string arg_msg) public function integer uof_check_warepdb_audit (long arg_storageid, ref string arg_msg) public function integer auditing_chk (ref string arg_msg) public function integer auditing_end (ref string arg_msg) public function integer c_auditing_chk (ref string arg_msg) public function integer c_auditing_end (ref string arg_msg) public function integer save_end (ref string arg_msg) public function integer save_chk (ref string arg_msg) public subroutine uf_get_billname (integer arg_billtype) public function integer uf_w_cmp_fifo_cb_bill (long ll_scid, long ll_mtrlwareid, boolean arg_ifcommit, ref string arg_msg) public function integer audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg) public function integer c_audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg) public function integer p_update_cost (ref s_outwaremx arg_s_mx, ref decimal arg_ref_costamt, ref decimal arg_ref_costamt_notax, ref string arg_msg, boolean arg_ifcommit) public function integer p_update_cost_fifo (ref s_outwaremx arg_s_mx, ref decimal arg_ref_costamt, ref decimal arg_ref_costamt_notax, ref string arg_msg, boolean arg_ifcommit) public function integer p_update_mtrlware (long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_addqty, decimal arg_costamt, decimal arg_planprice, long arg_sptid, integer arg_dxflag, string arg_woodcode, string arg_pcode, ref string arg_msg, decimal arg_costamt_notax) end prototypes public function integer newbegin (long arg_scid, integer arg_billtype, ref string arg_msg);//==================================================================== // Function: newbegin(long arg_scid,int arg_billtype,ref string arg_msg) //-------------------------------------------------------------------- // Description: 从置对象,设定业务类型,准备建立新出仓单 //-------------------------------------------------------------------- // Arguments: // value long arg_scid // value integer arg_billtype // reference string arg_msg //-------------------------------------------------------------------- // Returns: integer //-------------------------------------------------------------------- // Author: yyx Date: 2003.11.12 //-------------------------------------------------------------------- // Modify History: // //==================================================================== Int rslt = 1 IF arg_scid < 0 THEN arg_msg = '请选择分部' rslt = 0 GOTO ext END IF IF Not(arg_billtype = 1 Or arg_billtype = 2 Or arg_billtype = 3 Or arg_billtype = 4 Or arg_billtype = 8 Or arg_billtype = 9 Or arg_billtype = 10 Or arg_billtype = 12 Or arg_billtype = 15) THEN rslt = 0 arg_msg = '此单据类型必须为:' arg_msg = arg_msg+'1-销售[记帐模式],' arg_msg = arg_msg+'2-销售[不记帐模式],' arg_msg = arg_msg+'3-领料出仓,' arg_msg = arg_msg+'4-外协发出仓,' arg_msg = arg_msg+'8-其他出仓,' arg_msg = arg_msg+'9-盘亏出仓,' arg_msg = arg_msg+'10-工具出仓,' arg_msg = arg_msg+'12-调拨出仓' arg_msg = arg_msg+'15-拆装出仓' GOTO ext END IF uf_get_billname(arg_billtype) //CHOOSE CASE arg_billtype // CASE 1 // billname = '销售单' // CASE 2 // billname = '销售单' // CASE 3 // billname = '领料出仓单' // CASE 4 // billname = '外协发出仓' // CASE 8 // billname = '其他进仓单' // CASE 9 // billname = '盘亏出仓单' // CASE 10 //人事 // billname = '工具出仓单' // CASE 12 // billname = '调拨出仓单' // CASE 15 // billname = '拆装出仓单' //END CHOOSE p_reset() billtype = arg_billtype scid = arg_scid it_newbegin = True it_updatebegin = False ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer save (boolean arg_ifcommit, ref string arg_msg);Integer rslt = 1,cnt = 0,i DateTime server_dt Long ls_newid String ls_sccode,ls_typebillcode Long ll_typeid String ls_outwarecode IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以提交" GOTO ext END IF IF IsNull(relid) THEN relid = 0 IF IsNull(storageid) THEN storageid = 0 IF IsNull(outrep) THEN outrep = '' IF IsNull(dscrp) THEN dscrp = '' IF IsNull(dscrp2) THEN dscrp2 = '' IF IsNull(dscrp3) THEN dscrp3 = '' IF IsNull(part) THEN part = '' IF IsNull(cusid) THEN cusid = 0 IF IsNull(cusname) THEN cusname = '' IF IsNull(thflag) THEN thflag = 0 IF IsNull(otheramt) THEN otheramt = 0 IF IsNull(deposit) THEN deposit = 0 IF IsNull(relstr_1) THEN relstr_1 = '' IF IsNull(relstr_2) THEN relstr_2 = '' IF IsNull(relstr_3) THEN relstr_3 = '' IF IsNull(relint_1) THEN relint_1 = 0 IF IsNull(relint_2) THEN relint_2 = 0 IF IsNull(relint_3) THEN relint_3 = 0 IF IsNull(mrate) THEN mrate = 0 IF IsNull(rel_address) THEN rel_address = '' IF IsNull(rel_tele) THEN rel_tele = '' IF IsNull(rel_tele1) THEN rel_tele1 = '' IF IsNull(rel_fax) THEN rel_fax = '' IF IsNull(rel_rep) THEN rel_rep = '' IF IsNull(totalamt) THEN totalamt = 0 IF IsNull(getamt) THEN getamt = 0 IF IsNull(lsflag) THEN lsflag = 0 IF IsNull(transcode) THEN transcode = '' IF IsNull(carcode) THEN carcode = '' IF IsNull(paytype) THEN paytype = '' IF IsNull(typeid) THEN typeid = 0 //查找出仓原因，记录staticid IF billtype = 8 then select staticid into :staticid from u_static where reason = :cusname and inoutflag = 0; IF ISNULL(staticid) THEN staticid = 0 END IF IF billtype = 1 THEN //and thflag = 0 IF sys_option_outware_type = 1 THEN IF typeid = 0 THEN arg_msg = '请先选择订单分类' rslt = 0 GOTO ext END IF SELECT billcode INTO :ls_typebillcode FROM u_outwaretype Where typeid = :typeid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询销售发货单分类属性失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ls_typebillcode = '' THEN arg_msg = '销售发货单分类未设置对应单据抬头,请检查' rslt = 0 GOTO ext END IF ELSE typeid = 0 END IF END IF // //未注册限制 //IF sys_if_register = 0 THEN // Long ll_bill_count // SELECT count(*) // INTO :ll_bill_count // From u_outware; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "查询操作失败,单据数量 " // GOTO ext // END IF // // IF ll_bill_count > 100 THEN // rslt = 0 // arg_msg = "未注册版本,出仓单只能保存100张! " // GOTO ext // END IF //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 // //IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空 // rslt = 0 // arg_msg = "没有正确出仓内容" // GOTO ext //END IF // //cnt = 0 ////检查仓库 //SELECT balctype INTO :if_cus_mtrlware // FROM u_storage // Where storageid = :storageid Using commit_transaction; //IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '查询仓库是否使用客户库存失败' // rslt = 0 // GOTO ext //END IF // //IF Year(Date(outdate)) < 2000 Or IsNull(outdate) THEN // rslt = 0 // arg_msg = "缺少出仓发生时间或不合理" // GOTO ext //END IF // ////==================================================================== //// Script - save ( boolean arg_ifcommit, ref string arg_msg ) //// Reason: ////-------------------------------------------------------------------- //// Modified By: yyx Date: 2004.01.02 ////-------------------------------------------------------------------- //IF DaysAfter(Date(String(server_dt,'yyyy-mm-dd')),Date(String(outdate,'yyyy-mm-dd'))) > sys_option_input_days THEN // rslt = 0 // arg_msg = '出仓日期错误,日期不能超前系统日期' // GOTO ext //END IF // //IF DaysAfter(Date(String(outdate,'yyyy-mm-dd')),Date(String(server_dt,'yyyy-mm-dd'))) > sys_option_input_days THEN // rslt = 0 // arg_msg = '出仓日期错误,日期不能落后系统日期' // GOTO ext //END IF // //IF f_check_inoutdate(storageid,outdate,True,arg_msg) = 0 THEN // rslt = 0 // GOTO ext //END IF ////==================================================================== // //IF billtype = 1 THEN // SELECT name INTO :cusname // FROM u_cust // Where cusid = :cusid Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "查询操作失败,客户资料" // GOTO ext // END IF // // IF relint_1 = 0 THEN // arg_msg = '请选择结算方式' // rslt = 0 // GOTO ext // END IF // // cnt = 0 // SELECT count(*) INTO :cnt // FROM cw_currency // Where moneyid = :relint_2; // 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 //ELSEIF billtype = 3 THEN // IF relid = 0 THEN // arg_msg = '请选择领料工作中心' // rslt = 0 // GOTO ext // END IF // //ELSEIF billtype = 4 THEN // SELECT name INTO :cusname // FROM u_spt // Where sptid = :cusid Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "查询操作失败,加工商资料" // GOTO ext // END IF //ELSEIF billtype = 8 THEN // IF Trim(cusname) = '' Or IsNull(cusname) THEN // rslt = 0 // arg_msg = "请输入出仓原因!" // GOTO ext // END IF //ELSEIF billtype = 9 THEN // IF Trim(cusname) = '' Or IsNull(cusname) THEN // cusname = "盘亏" // END IF //END IF IF save_chk(arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ////////////////////////////////////////////// //开始区分:新建/更新 处理 IF outwareid = 0 THEN //新建 ls_newid = f_sys_scidentity(scid,"u_outware","outwareid",arg_msg,if_getid_ture,commit_transaction) IF ls_newid <= 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 //取得新单据编号 CHOOSE CASE billtype CASE 1,2 IF thflag = 0 THEN IF sys_option_outware_type = 0 THEN outwarecode = getid(scid,ls_sccode + 'XS',Date(server_dt),if_getid_ture,commit_transaction) ELSE outwarecode = getid_outware(scid,ls_sccode + ls_typebillcode,Date(server_dt),if_getid_ture,commit_transaction) END IF ELSE IF sys_option_outware_type = 0 THEN outwarecode = getid(scid,ls_sccode + 'XT',Date(server_dt),if_getid_ture,commit_transaction) ELSE outwarecode = getid_outware(scid,ls_sccode + ls_typebillcode,Date(server_dt),if_getid_ture,commit_transaction) END IF END IF CASE 3 outwarecode = getid(scid,ls_sccode + 'LL',Date(server_dt),if_getid_ture,commit_transaction) CASE 4 outwarecode = getid(scid,ls_sccode + 'KL',Date(server_dt),if_getid_ture,commit_transaction) CASE 8 outwarecode = getid(scid,ls_sccode + 'CC',Date(server_dt),if_getid_ture,commit_transaction) CASE 9 outwarecode = getid(scid,ls_sccode + 'PQ',Date(server_dt),if_getid_ture,commit_transaction) CASE 10 outwarecode = getid(scid,ls_sccode + 'KF',Date(server_dt),if_getid_ture,commit_transaction) CASE 12 outwarecode = getid(scid,ls_sccode + 'OC',Date(server_dt),if_getid_ture,commit_transaction) CASE 15 outwarecode = getid(scid,ls_sccode + 'DI',Date(server_dt),if_getid_ture,commit_transaction) END CHOOSE IF outwarecode = "err" THEN outwarecode = '' rslt = 0 arg_msg = "无法获取出仓单编号"+"~n"+commit_transaction.SQLErrText GOTO ext END IF INSERT INTO u_outware ( scid, outwareid, outwarecode, billtype, relid, storageid, outdate, outrep, part, dscrp, dscrp2, dscrp3, cusid, cusname, thflag, opdate, opemp, relstr_1, relstr_2, relstr_3, relint_1, relint_2, relint_3, otheramt, rel_address, rel_tele, rel_tele1, rel_fax, rel_rep, mrate, totalamt, getamt, lsflag, deposit, transcode, carcode, paytype, typeid, staticid, viewdate) VALUES ( :scid, :ls_newid, :outwarecode, :billtype, :relid, :storageid, :outdate, :outrep, :part, :dscrp, :dscrp2, :dscrp3, :cusid, :cusname, :thflag, :server_dt, :publ_operator, :relstr_1, :relstr_2, :relstr_3, :relint_1, :relint_2, :relint_3, :otheramt, :rel_address, :rel_tele, :rel_tele1, :rel_fax, :rel_rep, :mrate, :totalamt, :getamt, :lsflag, :deposit, :transcode, :carcode, :paytype, :typeid, :staticid, :viewdate) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '插入单据资料失败,'+commit_transaction.SQLErrText GOTO ext END IF //读取新outwareid outwareid = ls_newid ELSE //////////////////////////////////////////////// //更新 IF billtype = 1 And sys_option_autowaste = 1 THEN uo_outware_waste uo_waste uo_waste = Create uo_outware_waste uo_waste.commit_transaction = commit_transaction IF uo_waste.insertwaste(1,scid,outwareid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF Destroy uo_waste END IF // SELECT typeid,outwarecode INTO :ll_typeid,:ls_outwarecode // FROM u_outware // WHERE outwareid = :outwareid // And scid = :scid Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '查询销售发货单分类属性失败,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext // END IF // IF sys_option_outware_type = 1 THEN // IF ll_typeid <> typeid THEN // SELECT billcode INTO :ls_typebillcode // FROM u_outwaretype // Where typeid = :typeid Using commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '查询销售发货单分类属性失败,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext // END IF // // IF ls_typebillcode = '' THEN // arg_msg = '发货单分类未设置对应单据抬头,请检查' // rslt = 0 // GOTO ext // END IF // // //取分部代号 // IF f_get_sccode(scid,commit_transaction,ls_sccode,arg_msg) = 0 THEN // rslt = 0 // GOTO ext // END IF // // outwarecode = getid_outware(scid,ls_sccode + ls_typebillcode,Date(server_dt),if_getid_ture,commit_transaction) // IF outwarecode = "err" THEN // outwarecode = '' // rslt = 0 // arg_msg = "无法获取销售订单分类编号"+"~n"+sqlca.SQLErrText // GOTO ext // END IF // // ls_outwarecode = outwarecode // END IF // ELSE // outwarecode = getid(scid,ls_sccode + 'XS',Date(server_dt),if_getid_ture,commit_transaction) // IF outwarecode = "err" THEN // outwarecode = '' // rslt = 0 // arg_msg = "无法获取销售订单分类编号"+"~n"+sqlca.SQLErrText // GOTO ext // END IF // ls_outwarecode = outwarecode // END IF IF billtype > 1 Or (billtype = 1 And flag = 0 And priceflag = 0) THEN UPDATE u_outware SET billtype = :billtype, relid = :relid, storageid = :storageid, outdate = :outdate, outrep = :outrep, part = :part, dscrp = :dscrp, dscrp2 = :dscrp2, dscrp3 = :dscrp3, cusid = :cusid, cusname = :cusname, thflag = :thflag, moddate = :server_dt, modemp = :publ_operator, relstr_1 = :relstr_1, relstr_2 = :relstr_2, relstr_3 = :relstr_3, relint_1 = :relint_1, relint_2 = :relint_2, relint_3 = :relint_3, otheramt = :otheramt, rel_address = :rel_address, rel_tele = :rel_tele, rel_tele1 = :rel_tele1, rel_fax = :rel_fax, rel_rep = :rel_rep, mrate = :mrate, totalamt = :totalamt, getamt = :getamt, lsflag = :lsflag, deposit = :deposit, transcode = :transcode, carcode = :carcode, paytype = :paytype, typeid = :typeid, staticid = :staticid, viewdate = :viewdate WHERE u_outware.outwareid = :outwareid AND u_outware.scid = :scid And flag = 0 Using commit_transaction; IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0 THEN rslt = 0 arg_msg = "更新单据信息操作失败(1)"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //删除原有明细 DELETE FROM u_outwaremx WHERE u_outwaremx.outwareid = :outwareid And u_outwaremx.scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除旧有明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ELSEIF billtype > 1 Or (billtype = 1 And flag = 0 And priceflag = 1) THEN //确认后修改 单据信息 UPDATE u_outware SET billtype = :billtype, relid = :relid, storageid = :storageid, outdate = :outdate, outrep = :outrep, part = :part, dscrp = :dscrp, dscrp2 = :dscrp2, dscrp3 = :dscrp3, cusid = :cusid, cusname = :cusname, thflag = :thflag, moddate = :server_dt, modemp = :publ_operator, relstr_1 = :relstr_1, relstr_2 = :relstr_2, relstr_3 = :relstr_3, relint_1 = :relint_1, relint_2 = :relint_2, otheramt = :otheramt, rel_address = :rel_address, rel_tele = :rel_tele, rel_tele1 = :rel_tele1, rel_fax = :rel_fax, rel_rep = :rel_rep, mrate = :mrate, deposit = :deposit, transcode = :transcode, carcode = :carcode, paytype = :paytype, staticid = :staticid WHERE u_outware.outwareid = :outwareid AND u_outware.scid = :scid AND flag = 0 AND secflag = 0 And priceflag = 1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新单据操作失败(2)"+"~n"+commit_transaction.SQLErrText GOTO ext END IF ELSE // 仓审后修改 财务信息 UPDATE u_outware SET billtype = :billtype, relid = :relid, outdate = :outdate, outrep = :outrep, part = :part, dscrp = :dscrp, dscrp2 = :dscrp2, dscrp3 = :dscrp3, cusname = :cusname, thflag = :thflag, moddate = :server_dt, modemp = :publ_operator, relstr_1 = :relstr_1, relstr_2 = :relstr_2, relstr_3 = :relstr_3, relint_1 = :relint_1, relint_2 = :relint_2, otheramt = :otheramt, rel_address = :rel_address, rel_tele = :rel_tele, rel_tele1 = :rel_tele1, rel_fax = :rel_fax, rel_rep = :rel_rep, mrate = :mrate, totalamt = :totalamt, getamt = :getamt, lsflag = :lsflag, deposit = :deposit, transcode = :transcode, carcode = :carcode, paytype = :paytype, staticid = :staticid, viewdate = :viewdate WHERE u_outware.outwareid = :outwareid AND u_outware.scid = :scid AND flag = 1 And secflag = 0 Using commit_transaction; IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0 THEN rslt = 0 arg_msg = "更新单据操作失败(2)"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF END IF //处理明细 IF billtype > 1 Or (billtype = 1 And flag = 0 And priceflag = 0) THEN FOR i = 1 To it_mxbt INSERT INTO u_outwaremx (scid, outwareid, mtrlwareid, printid, mtrlid, plancode, status, qty, addqty, fprice, rebate, price, planprice, mxdscrp, sptid, dxflag, costamt, ifrel, relid, relprintid, relid2, packqty, olmtrlid, woodcode, relcode, pcode, enprice, newpriceamt, outtype, dftsaleprice, cost, unit, rate, uqty, ware_enprice, ware_fprice, ware_price, mtrlcuscode, formula, mxdscrp2, ware_amt, tax, enamt, enamt_tax, bsamt, bsamt_tax, saleqty, net_weight, gross_weight, cubage, mxdscrp3, mxdscrp4, enprice_notax, priceformula, cost_notax, costamt_notax, otherprice) VALUES ( :scid, :outwareid, :outwaremx[i].mtrlwareid, :outwaremx[i].printid, :outwaremx[i].mtrlid, :outwaremx[i].plancode, :outwaremx[i].status, :outwaremx[i].qty, :outwaremx[i].addqty, :outwaremx[i].fprice, :outwaremx[i].rebate, :outwaremx[i].price, :outwaremx[i].planprice, :outwaremx[i].mxdscrp, :outwaremx[i].sptid, :outwaremx[i].dxflag, :outwaremx[i].costamt, :outwaremx[i].ifrel, :outwaremx[i].relid, :outwaremx[i].relprintid, :outwaremx[i].relid2, :outwaremx[i].packqty, :outwaremx[i].olmtrlid, :outwaremx[i].woodcode, :outwaremx[i].relcode, :outwaremx[i].pcode, :outwaremx[i].enprice, :outwaremx[i].newpriceamt, :outwaremx[i].outtype, :outwaremx[i].dftsaleprice, :outwaremx[i].cost, :outwaremx[i].unit, :outwaremx[i].rate, :outwaremx[i].uqty, :outwaremx[i].ware_enprice, :outwaremx[i].ware_fprice, :outwaremx[i].ware_price, :outwaremx[i].mtrlcuscode, :outwaremx[i].formula, :outwaremx[i].mxdscrp2, :outwaremx[i].ware_amt, :outwaremx[i].tax, :outwaremx[i].enamt, :outwaremx[i].enamt_tax, :outwaremx[i].bsamt, :outwaremx[i].bsamt_tax, :outwaremx[i].saleqty, :outwaremx[i].net_weight, :outwaremx[i].gross_weight, :outwaremx[i].cubage, :outwaremx[i].mxdscrp3, :outwaremx[i].mxdscrp4, :outwaremx[i].enprice_notax, :outwaremx[i].priceformula, :outwaremx[i].cost_notax, :outwaremx[i].costamt_notax, :outwaremx[i].otherprice) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN IF it_newbegin THEN outwareid = 0 //重置id rslt = 0 arg_msg = '插入单据明细内容失败,'+commit_transaction.SQLErrText GOTO ext END IF NEXT ELSEIF billtype > 1 Or (billtype = 1 And flag = 0 And priceflag = 1) THEN //确认后修改 FOR i = 1 To it_mxbt UPDATE u_outWAREmx SET mxdscrp = :outwaremx[I].mxdscrp, fprice = :outwaremx[I].fprice, rebate = :outwaremx[I].rebate, enprice = :outwaremx[I].enprice, packqty = :outwaremx[I].packqty, outtype = :outwaremx[I].outtype, qty = :outwaremx[I].qty, uqty = :outwaremx[I].uqty, saleqty = :outwaremx[I].saleqty, price = :outwaremx[i].price, ware_price = :outWAREmx[i].ware_price, ware_fprice = :outWAREmx[i].ware_fprice, ware_enprice = :outWAREmx[i].ware_enprice, formula = :outwaremx[i].formula, mxdscrp2 = :outwaremx[I].mxdscrp2, ware_amt = :outwaremx[i].ware_amt, tax = :outwaremx[i].tax, enamt = :outwaremx[i].enamt, enamt_tax = :outwaremx[i].enamt_tax, bsamt = :outwaremx[i].bsamt, bsamt_tax = :outwaremx[i].bsamt_tax, net_weight = :outwaremx[i].net_weight, gross_weight = :outwaremx[i].gross_weight, cubage = :outwaremx[i].cubage, mxdscrp3 = :outwaremx[i].mxdscrp3, mxdscrp4 = :outwaremx[i].mxdscrp4, enprice_notax = :outwaremx[i].enprice_notax, priceformula = :outwaremx[i].priceformula, otherprice = :outwaremx[i].otherprice WHERE ( scid = :scid AND outWAREid = :outwareid AND printid = :outwaremx[i].printid); IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新明细价格操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT ELSE //仓审后修改, 或销售数量 FOR i = 1 To it_mxbt UPDATE u_outWAREmx SET price = :outWAREmx[i].price, mxdscrp = :outwaremx[I].mxdscrp, mxdscrp2 = :outwaremx[I].mxdscrp2, saleqty = :outwaremx[I].saleqty, fprice = :outwaremx[I].fprice, rebate = :outwaremx[I].rebate, enprice = :outwaremx[I].enprice, ware_price = :outWAREmx[i].ware_price, ware_fprice = :outWAREmx[i].ware_fprice, ware_enprice = :outWAREmx[i].ware_enprice, ware_amt = :outwaremx[i].ware_amt, formula = :outwaremx[i].formula, tax = :outwaremx[i].tax, enamt = :outwaremx[i].enamt, enamt_tax = :outwaremx[i].enamt_tax, bsamt = :outwaremx[i].bsamt, bsamt_tax = :outwaremx[i].bsamt_tax, net_weight = :outwaremx[i].net_weight, gross_weight = :outwaremx[i].gross_weight, cubage = :outwaremx[i].cubage, mxdscrp3 = :outwaremx[i].mxdscrp3, mxdscrp4 = :outwaremx[i].mxdscrp4, enprice_notax = :outwaremx[i].enprice_notax, priceformula = :outwaremx[i].priceformula, otherprice = :outwaremx[i].otherprice WHERE ( scid = :scid AND outWAREid = :outwareid AND printid = :outwaremx[i].printid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "更新单据明细价格失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT END IF IF save_end(arg_msg) = 0 THEN rslt = 0 GOTO ext END IF it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; p_clearmx() arg_msg = billname + ',' + arg_msg ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer auditing (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,cnt = 0,i Dec new_noallocqty = 0 Long ls_newid IF outwareid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF it_newbegin Or it_updatebegin THEN rslt = 0 arg_msg = "编辑状态下不可以执行审核" GOTO ext END IF IF flag = 1 THEN rslt = 0 arg_msg = "单据已经审核" GOTO ext END IF IF auditing_chk(arg_msg) = 0 THEN rslt = 0 GOTO ext END IF UPDATE u_outware SET Auditingrep = :publ_operator, Auditingdate = getdate(), flag = 1 WHERE u_outware.outwareid = :outwareid AND flag = 0 And scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "审核单据操作失败"+"~n" GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n" GOTO ext END IF Long li_if_fifo = 0 SELECT if_fifo INTO :li_if_fifo FROM u_storage Where storageid = :storageid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = "查询仓库存货核算方法错误！" rslt = 0 GOTO ext END IF IF sys_option_hide_ware = 0 THEN FOR i = 1 To it_mxbt Decimal ld_ref_costamt,ld_ref_costamt_notax Long li_mtrlwaremxid = 0 IF li_if_fifo = 0 THEN //移动平均法 IF p_update_cost(outwaremx[i],ld_ref_costamt,ld_ref_costamt_notax,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF ELSE IF p_update_cost_fifo(outwaremx[i],ld_ref_costamt,ld_ref_costamt_notax,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF Decimal dec_fifo_inprice,dec_fifo_inprice_notax //dec_fifo_inprice = outwaremx[i].enprice * outwaremx[i].rebate //负数出仓 取库存cost作为入仓成本单价 dec_fifo_inprice = 0 SELECT cost,cost_notax Into :dec_fifo_inprice,:dec_fifo_inprice_notax From u_mtrlware Where scid = :scid And mtrlwareid = :outwaremx[i].mtrlwareid; IF dec_fifo_inprice > 0 THEN ELSE dec_fifo_inprice = 0 END IF IF dec_fifo_inprice_notax > 0 THEN ELSE dec_fifo_inprice_notax = 0 END IF IF p_update_mtrlware ( outwaremx[i].mtrlwareid, outwaremx[i].mtrlid, & outwaremx[i].mtrlcode, storageid, outwaremx[i].plancode,& outwaremx[i].status, outwaremx[i].qty,outwaremx[i].addqty, ld_ref_costamt,& outwaremx[i].planprice, outwaremx[i].sptid, outwaremx[i].dxflag,& outwaremx[i].woodcode, outwaremx[i].pcode,arg_msg,ld_ref_costamt_notax) = 0 THEN arg_msg = "行:"+String(i)+","+arg_msg rslt = 0 GOTO ext END IF //先进先出法 ，加入进仓批 u_mtrlware_inmx star IF li_if_fifo = 1 And outwaremx[i].qty < 0 THEN //负数 使用先进先出 IF f_add_mtrlware_inmx(scid, outwaremx[i].mtrlwareid,outwareid,outwaremx[i].printid,outwarecode,outdate,outwaremx[i].qty,dec_fifo_inprice,dec_fifo_inprice_notax,1,False,commit_transaction,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF f_trigger_fifo_procedure(scid,outwaremx[i].mtrlwareid,outdate,1,outwareid,li_mtrlwaremxid,False,commit_transaction,arg_msg) = 0 THEN //负数等于进仓 rslt = 0 GOTO ext END IF //重算结存表 IF f_cmp_fifo_warebalc(scid,outwaremx[i].mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF IF li_if_fifo = 1 And outwaremx[i].qty > 0 THEN //正数 IF f_trigger_fifo_procedure(scid,outwaremx[i].mtrlwareid,outdate,2,outwareid,li_mtrlwaremxid,False,commit_transaction,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //重算结存表 IF f_cmp_fifo_warebalc(scid,outwaremx[i].mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF //先进先出法 ，加入进仓批 u_mtrlware_inmx end NEXT //检查是否正确生成进仓批 IF li_if_fifo = 1 THEN FOR i = 1 To it_mxbt IF f_check_mtrlware_inmx(scid, outwaremx[i].mtrlwareid,commit_transaction,arg_msg) = 0 THEN IF uf_w_cmp_fifo_cb_bill(scid,outwaremx[i].mtrlwareid,False,arg_msg) = 0 THEN //尝试修复 rslt = 0 arg_msg = '第' + String(i) + '行 ' + arg_msg GOTO ext ELSE IF f_check_mtrlware_inmx(scid, outwaremx[i].mtrlwareid,commit_transaction,arg_msg) = 0 THEN //再检查一次 rslt = 0 arg_msg = '第' + String(i) + '行 ' + arg_msg GOTO ext END IF END IF END IF NEXT END IF END IF IF auditing_end(arg_msg) = 0 THEN rslt = 0 GOTO ext END IF flag = 1 ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; IF billname <> "" THEN arg_msg = billname + ',' + arg_msg END IF ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer updatebegin (long arg_scid, long arg_outwareid, integer arg_billtype, ref string arg_msg);//==================================================================== // Function: updatebegin(arg_scid,arg_inwareid,arg_billtype,arg_msg) //-------------------------------------------------------------------- // Description: 从置对象,设定业务类型与关联ID,准备更新出仓单 //-------------------------------------------------------------------- // Arguments: // value long arg_scid // value long arg_inwareid // value integer arg_billtype // reference string arg_msg //-------------------------------------------------------------------- // Returns: integer //-------------------------------------------------------------------- // Author: yyx Date: 2003.11.12 //-------------------------------------------------------------------- // Modify History: // //==================================================================== Long rslt = 1 IF arg_scid < 0 THEN arg_msg = '请选择分部' rslt = 0 GOTO ext END IF IF arg_outwareid <= 0 THEN rslt = 0 GOTO ext END IF IF Not(arg_billtype = 1 Or arg_billtype = 2 Or arg_billtype = 3 Or arg_billtype = 4 Or arg_billtype = 8 Or arg_billtype = 9 Or arg_billtype = 10 Or arg_billtype = 12) THEN rslt = 0 arg_msg = '此单据类型必须为:' arg_msg = arg_msg+'1-销售[记帐模式],' arg_msg = arg_msg+'2-销售[不记帐模式],' arg_msg = arg_msg+'3-领料出仓,' arg_msg = arg_msg+'4-外加工出仓,' arg_msg = arg_msg+'8-其他出仓,' arg_msg = arg_msg+'9-盘亏出仓,' arg_msg = arg_msg+'10-工具出仓,' arg_msg = arg_msg+'12-调拨出仓' GOTO ext END IF uf_get_billname(arg_billtype) //CHOOSE CASE arg_billtype // CASE 1 // billname = '销售单' // CASE 2 // billname = '销售单' // CASE 3 // billname = '领料出仓单' // CASE 4 // billname = '外协发出仓' // CASE 8 // billname = '其他进仓单' // CASE 9 // billname = '盘亏出仓单' // CASE 10 // billname = '工具出仓单' // CASE 12 // billname = '调拨出仓单' // CASE 15 // billname = '拆装出仓单' //END CHOOSE IF arg_billtype = 12 THEN rslt = 0 arg_msg = '单据类型:12-调拨出仓>>不能修改' GOTO ext END IF rslt = p_getinfo(arg_scid,arg_outwareid,arg_msg) IF rslt = 0 THEN GOTO ext IF arg_billtype = 1 THEN // IF priceflag = 1 and flag = 0 And secflag = 0 THEN // rslt = 0 // arg_msg = '单据已确认未仓库,不可以修改' // GOTO ext // END IF IF flag = 1 And secflag = 1 THEN rslt = 0 arg_msg = '单据已经过仓库及财务审核,不可以修改' GOTO ext END IF ELSE IF flag = 1 THEN rslt = 0 arg_msg = '单据已经审核,不可以修改' GOTO ext END IF END IF outwareid = arg_outwareid billtype = arg_billtype scid = arg_scid it_newbegin = False it_updatebegin = True p_clearmx() //清除明细 ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer getinfo (long arg_scid, long arg_outwareid, ref string arg_msg);//getinfo(arg_scid,arg_outwareid,arg_msg) //0 失败 1成功 Int rslt = 1,i = 1,no_mxcheck = 0 sum_amt = 0 sum_amt_en = 0 sum_enamt = 0 sum_enamt_tax = 0 sum_bsamt = 0 sum_bsamt_tax = 0 IF arg_outwareid <= 0 THEN rslt = 0 arg_msg = "非法出仓单唯一码" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_outwareid,arg_msg) IF rslt = 0 THEN GOTO ext //用游标读取明细 DECLARE cur_inwaermx CURSOR FOR SELECT u_outwaremx.printid, u_outwaremx.mtrlid, u_outwaremx.plancode, u_outwaremx.status, u_outwaremx.qty, u_outwaremx.addqty, u_outwaremx.fprice, u_outwaremx.rebate, u_outwaremx.price, u_outwaremx.planprice, u_outwaremx.mxdscrp, u_mtrldef.mtrlcode, u_outwaremx.sptid, u_outwaremx.dxflag, u_outwaremx.mtrlwareid, u_outwaremx.storageid, u_outwaremx.costamt, u_outwaremx.ifrel, u_outwaremx.relid, u_outwaremx.relprintid, u_outwaremx.relid2, u_outwaremx.olmtrlid, u_outwaremx.packqty, u_outwaremx.woodcode, u_outwaremx.pcode, u_outwaremx.enprice, u_outwaremx.newpriceamt, u_outwaremx.outtype, u_outwaremx.dftsaleprice, u_outwaremx.cost, u_outwaremx.unit, u_outwaremx.rate, u_outwaremx.uqty, u_outwaremx.ware_enprice, u_outwaremx.ware_fprice, u_outwaremx.ware_price, u_outwaremx.mtrlcuscode, u_outwaremx.mxdscrp2, u_outwaremx.tax, u_outwaremx.enamt, u_outwaremx.enamt_tax, u_outwaremx.bsamt, u_outwaremx.bsamt_tax, u_outwaremx.saleqty, u_outwaremx.enprice_notax, u_outwaremx.costamt_notax, u_outwaremx.otherprice FROM u_outwaremx,u_mtrldef,u_outware WHERE u_outware.outwareid = :arg_outwareid AND u_outwaremx.mtrlid = u_mtrldef.mtrlid AND u_outware.scid = :arg_scid AND u_outware.outwareid = u_outwaremx.outwareid AND u_outware.scid = u_outwaremx.scid USING commit_transaction; OPEN cur_inwaermx; FETCH cur_inwaermx INTO :outwaremx[i].printid,:outwaremx[i].mtrlid,:outwaremx[i].plancode, :outwaremx[i].status,:outwaremx[i].qty,:outwaremx[i].addqty,:outwaremx[i].fprice, :outwaremx[i].rebate,:outwaremx[i].price,:outwaremx[i].planprice, :outwaremx[i].mxdscrp,:outwaremx[i].mtrlcode, :outwaremx[i].sptid,:outwaremx[i].dxflag, :outwaremx[i].mtrlwareid,:outwaremx[i].storageid, :outwaremx[i].costamt,:outwaremx[i].ifrel, :outwaremx[i].relid,:outwaremx[i].relprintid, :outwaremx[i].relid2,:outwaremx[i].olmtrlid,:outwaremx[i].packqty, :outwaremx[i].woodcode,:outwaremx[i].pcode,:outwaremx[i].enprice, :outwaremx[i].newpriceamt,:outwaremx[i].outtype,:outwaremx[i].dftsaleprice, :outwaremx[i].cost,:outwaremx[i].unit,:outwaremx[i].rate, :outwaremx[i].uqty,:outwaremx[i].ware_enprice,:outwaremx[i].ware_fprice, :outwaremx[i].ware_price,:outwaremx[i].mtrlcuscode,:outwaremx[i].mxdscrp2, :outwaremx[i].tax,:outwaremx[i].enamt,:outwaremx[i].enamt_tax,:outwaremx[i].bsamt,:outwaremx[i].bsamt_tax, :outwaremx[i].saleqty,:outwaremx[i].enprice_notax,:outwaremx[i].costamt_notax,:outwaremx[i].otherprice; DO WHILE commit_transaction.SQLCode = 0 // //淘汰 // sum_enamt += round(outwaremx[i].uqty * outwaremx[i].enprice * outwaremx[i].rebate,2)//计算单据原币总金额 // sum_amt = sum_amt + round(outwaremx[i].uqty * outwaremx[i].enprice * outwaremx[i].rebate * mrate,2) //计算单据本位币总金额 //新增的,以此为标准 sum_enamt += outwaremx[i].enamt//计算单据原币总金额 sum_enamt_tax += outwaremx[i].enamt_tax//计算单据原币总税金 sum_bsamt += outwaremx[i].bsamt//计算单据本位币总金额 sum_bsamt_tax += outwaremx[i].bsamt_tax//计算单据本位币总税金 i++ FETCH cur_inwaermx INTO :outwaremx[i].printid,:outwaremx[i].mtrlid,:outwaremx[i].plancode, :outwaremx[i].status,:outwaremx[i].qty,:outwaremx[i].addqty,:outwaremx[i].fprice, :outwaremx[i].rebate,:outwaremx[i].price,:outwaremx[i].planprice, :outwaremx[i].mxdscrp,:outwaremx[i].mtrlcode, :outwaremx[i].sptid,:outwaremx[i].dxflag, :outwaremx[i].mtrlwareid,:outwaremx[i].storageid, :outwaremx[i].costamt,:outwaremx[i].ifrel, :outwaremx[i].relid,:outwaremx[i].relprintid, :outwaremx[i].relid2,:outwaremx[i].olmtrlid,:outwaremx[i].packqty, :outwaremx[i].woodcode,:outwaremx[i].pcode,:outwaremx[i].enprice, :outwaremx[i].newpriceamt,:outwaremx[i].outtype,:outwaremx[i].dftsaleprice, :outwaremx[i].cost,:outwaremx[i].unit,:outwaremx[i].rate, :outwaremx[i].uqty,:outwaremx[i].ware_enprice,:outwaremx[i].ware_fprice, :outwaremx[i].ware_price,:outwaremx[i].mtrlcuscode,:outwaremx[i].mxdscrp2, :outwaremx[i].tax,:outwaremx[i].enamt,:outwaremx[i].enamt_tax,:outwaremx[i].bsamt,:outwaremx[i].bsamt_tax, :outwaremx[i].saleqty,:outwaremx[i].enprice_notax,:outwaremx[i].costamt_notax,:outwaremx[i].otherprice; LOOP CLOSE cur_inwaermx; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_outwaremx WHERE u_outwaremx.outwareid = :arg_outwareid 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 outwareid = arg_outwareid scid = arg_scid it_mxbt = i - 1 it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN p_reset() arg_msg = billname + ',' + arg_msg end if RETURN rslt end function public function integer del (long arg_scid, long arg_outwareid, ref string arg_msg, boolean arg_ifcommit);//如果单据还没有审核删除单据极其明细 //0 FAIL, 1 SUCCESS Int rslt = 1 IF arg_outwareid <= 0 THEN rslt = 0 arG_MSG = "没有删除对象,操作取消" GOTO ext END IF IF p_getinfo(arg_scid,arg_outwareid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF flag = 1 THEN rslt = 0 arG_MSG = "单据已经审核,不可以删除" GOTO ext END IF IF billtype = 1 THEN IF priceflag = 1 THEN rslt = 0 arG_MSG = "单据已经确认,不可以删除" GOTO ext END IF IF sys_option_autowaste = 1 THEN uo_outware_waste uo_waste uo_waste = CREATE uo_outware_waste uo_waste.commit_transaction = commit_transaction IF uo_waste.insertwaste(0,arg_scid,arg_outwareid,arG_MSG,FALSE) = 0 THEN rslt = 0 GOTO ext END IF DESTROY uo_waste END IF END IF DELETE FROM u_outware WHERE u_outware.outwareid = :arg_outwareid 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 DELETE FROM u_outwaremx WHERE u_outwaremx.outwareid = :arg_outwareid AND u_outwaremx.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; p_reset() arG_MSG = billname + ',' + arG_MSG ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; END IF Return (rslt) end function public function integer add_dscrp (long arg_scid, long arg_outwareid, string arg_newdescppart, ref string arg_msg);//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 rslt = p_getinfo(arg_scid,arg_outwareid,arg_msg) IF rslt = 0 THEN GOTO ext IF flag = 0 THEN rslt = 0 arg_msg = "非审核状态下不可用" GOTO ext END IF UPDATE u_outware SET dscrp = dscrp+' '+:arg_newdescppart WHERE u_outware.outwareid = :outwareid AND scid = :scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "添加单据备注操作失败"+"~n" GOTO ext END IF dscrp = dscrp+' '+arg_newdescppart ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; arg_msg = billname + ',' + arg_msg else COMMIT USING commit_transaction; END IF Return (rslt) end function public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg);//==================================================================== // Function: c_auditing(arg_ifcommit,arg_msg) //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: // value boolean arg_ifcommit // reference string arg_msg //-------------------------------------------------------------------- // Returns: integer //-------------------------------------------------------------------- // Author: yyx Date: 2003.11.19 //-------------------------------------------------------------------- // Modify History: // //==================================================================== Long rslt = 1,cnt = 0,i Long ls_newid DateTime null_dt SetNull(null_dt) IF outwareid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF it_newbegin Or it_updatebegin THEN rslt = 0 arg_msg = "编辑状态下不可以执行审核" GOTO ext END IF IF cwauditingflag = 1 THEN rslt = 0 arG_MSG = "该单据已经总账审核,不能进行财务撤审" GOTO ext END IF IF flag = 0 THEN rslt = 0 arg_msg = "单据还未审核" GOTO ext END IF IF balcflag = 1 THEN rslt = 0 arg_msg = "单据已经结存,不能撤审" GOTO ext END IF IF c_auditing_chk(arg_msg) = 0 THEN rslt = 0 GOTO ext END IF UPDATE u_outware SET Auditingrep = '', Auditingdate = :null_dt, flag = 0 WHERE u_outware.outwareid = :outwareid AND flag = 1 And scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "撤审单据操作失败"+"~n" GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在撤审,请稍后查询。"+"~n" GOTO ext END IF Long li_if_fifo = 0 SELECT if_fifo INTO :li_if_fifo FROM u_storage Where storageid = :storageid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = "查询仓库存货核算方法错误！" rslt = 0 GOTO ext END IF IF sys_option_hide_ware = 0 THEN //撤审限制，迟于本出仓单审核时间的成本价调整单审核后本出仓单不能撤审 IF uf_chk_updatecost(arg_msg) = 0 THEN rslt = 0 GOTO ext END IF FOR i = 1 To it_mxbt IF p_update_mtrlware ( outwaremx[i].mtrlwareid, outwaremx[i].mtrlid, & outwaremx[i].mtrlcode, storageid, outwaremx[i].plancode,& outwaremx[i].status, 0 - outwaremx[i].qty,0 - outwaremx[i].addqty,0 - outwaremx[i].costamt,& outwaremx[i].planprice, outwaremx[i].sptid, outwaremx[i].dxflag,& outwaremx[i].woodcode, outwaremx[i].pcode,arg_msg,0 - outwaremx[i].costamt_notax) = 0 THEN arg_msg = "行:"+String(i)+","+arg_msg rslt = 0 GOTO ext END IF //先进先出法 ，删除进仓批 u_mtrlware_inmx star Long li_mtrlwaremxid = 0 IF li_if_fifo = 1 And outwaremx[i].qty < 0 THEN //负数 使用先进先出 li_mtrlwaremxid = 0 SELECT top 1 mtrlwaremxid INTO :li_mtrlwaremxid FROM u_mtrlware_inmx WHERE scid = :scid AND inwareid = :outwareid AND printid = :outwaremx[i].printid AND if_outware = 1 Using commit_transaction; IF f_del_mtrlware_inmx(li_mtrlwaremxid,False,commit_transaction,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF f_trigger_fifo_procedure(scid,outwaremx[i].mtrlwareid,outdate,1,outwareid,li_mtrlwaremxid,False,commit_transaction,arg_msg) = 0 THEN //负数等于进仓 rslt = 0 GOTO ext END IF //重算结存表 IF f_cmp_fifo_warebalc(scid,outwaremx[i].mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF IF li_if_fifo = 1 And outwaremx[i].qty > 0 THEN //正数 li_mtrlwaremxid = 0 IF f_trigger_fifo_procedure(scid,outwaremx[i].mtrlwareid,outdate,2,outwareid,li_mtrlwaremxid,False,commit_transaction,arg_msg) = 0 THEN //正数 rslt = 0 GOTO ext END IF //重算结存表 IF f_cmp_fifo_warebalc(scid,outwaremx[i].mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF //先进先出法 ，删除进仓批 u_mtrlware_inmx end NEXT //检查是否正确生成进仓批 IF li_if_fifo = 1 THEN FOR i = 1 To it_mxbt IF f_check_mtrlware_inmx(scid, outwaremx[i].mtrlwareid,commit_transaction,arg_msg) = 0 THEN IF uf_w_cmp_fifo_cb_bill(scid,outwaremx[i].mtrlwareid,False,arg_msg) = 0 THEN //尝试修复 rslt = 0 arg_msg = '第' + String(i) + '行 ' + arg_msg GOTO ext ELSE IF f_check_mtrlware_inmx(scid, outwaremx[i].mtrlwareid,commit_transaction,arg_msg) = 0 THEN //再检查一次 rslt = 0 arg_msg = '第' + String(i) + '行 ' + arg_msg GOTO ext END IF END IF END IF NEXT END IF END IF IF c_auditing_end(arg_msg) = 0 THEN rslt = 0 GOTO ext END IF flag = 0 ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; IF billname <> "" THEN arg_msg = billname + ',' + arg_msg END IF ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer p_clearmx ();//int p_clearmx() //清除明细 it_mxbt=0 return 1 end function public function integer p_getinfo (long arg_scid, long arg_outwareid, ref string arg_msg);//p_getinfo(arg_scid,arg_outwareid,arg_msg) //0 失败 1成功 Int rslt = 1 IF arg_outwareid <= 0 THEN rslt = 0 arG_MSG = "非法出仓单唯一码" GOTO ext END IF SELECT u_outware.outwarecode, u_outware.billtype, u_outware.relid, u_outware.storageid, u_outware.outdate, u_outware.outrep, u_outware.part, u_outware.cusid, u_outware.cusname, u_outware.dscrp, u_outware.thflag, u_outware.flag, u_outware.secflag, u_outware.balcflag, u_outware.relstr_1, u_outware.relstr_2, u_outware.relstr_3, u_outware.relint_1, u_outware.relint_2, u_outware.relint_3, u_outware.priceflag, u_outware.otheramt, u_outware.rel_address, u_outware.rel_tele, u_outware.rel_fax, u_outware.rel_rep, u_outware.mrate, u_outware.Auditingdate, u_outware.secpflag, u_outware.secpdate, u_outware.secpemp, u_outware.cwauditingflag, u_outware.cwauditingrep, u_outware.cwauditingdate, u_outware.viewdate INTO :outwarecode, :billtype, :relid, :storageid, :outdate, :outrep, :part, :cusid, :cusname, :dscrp, :thflag, :flag, :secflag, :balcflag, :relstr_1, :relstr_2, :relstr_3, :relint_1, :relint_2, :relint_3, :priceflag, :otheramt, :rel_address, :rel_tele, :rel_fax, :rel_rep, :mrate, :Auditingdate, :secpflag, :secpdate, :secpemp, :cwauditingflag, :cwauditingrep, :cwauditingdate, :viewdate FROM u_outware WHERE u_outware.outwareid = :arg_outwareid AND scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "查询操作失败(错误出仓单唯一码),出仓单"+commit_transaction.SQLErrText GOTO ext END IF outwareid = arg_outwareid scid = arg_scid uf_get_billname(billtype) ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer p_reset ();//int p_reset() //清除对象及其明细 scid = 0 outwareid = 0 outwarecode = '' billtype = 0 opemp = '' modemp = '' auditingrep = '' secauditingrep = '' flag = 0 secflag = 0 relid = 0 storageid = 0 outrep = '' part = '' dscrp = '' dscrp2 = '' dscrp3 = '' cusid = 0 cusname = '' thflag = 0 otheramt = 0 rel_address = '' rel_tele = '' rel_tele1 = '' rel_fax = '' rel_rep= '' totalamt = 0 getamt = 0 lsflag = 0 transcode = '' carcode = '' paytype = '' priceflag=0 secpflag=0 it_newbegin = FALSE it_updatebegin = FALSE //清除明细 p_clearmx() RETURN 1 end function public function integer acceptmx (long arg_mtrlwareid, decimal arg_qty, decimal arg_addqty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, long arg_printid, ref string arg_msg, integer arg_ifrel, long arg_relid, long arg_relprintid, long arg_relid2, long arg_olmtrlid, long arg_packqty, integer arg_outtype, string arg_unit, decimal arg_rate, string arg_mtrlcuscode, string arg_formula); s_outwaremx s_mx s_mx.mtrlwareid = arg_mtrlwareid s_mx.qty = arg_qty s_mx.addqty = arg_addqty s_mx.fprice = arg_fprice s_mx.rebate = arg_rebate s_mx.mxdscrp = arg_mxdscrp s_mx.printid = arg_printid s_mx.ifrel = arg_ifrel s_mx.relid = arg_relid s_mx.relprintid = arg_relprintid s_mx.relid2 = arg_relid2 s_mx.olmtrlid = arg_olmtrlid s_mx.packqty = arg_packqty s_mx.outtype = arg_outtype s_mx.unit = arg_unit s_mx.rate = arg_rate s_mx.mtrlcuscode = arg_mtrlcuscode s_mx.formula = arg_formula return acceptmx(s_mx, arg_msg) //Long rslt = 1,cnt = 0,LS_i //Long i_mtrlid,i_storageid,i_sptid //Int i_dxflag,li_mtrlkind //String i_plancode,i_mtrlcode,i_status,i_woodcode,i_pcode,i_mtrlname //Decimal i_planprice,ld_dftsaleprice //Double i_cost,i_newprice //Decimal i_notauditqty,i_allouseqty,i_noallocaddqty //String ls_relcode // // //IF it_newbegin = FALSE AND it_updatebegin = FALSE THEN // rslt = 0 // arg_msg = "非编辑状态不可以使用,操作取消" // GOTO ext //END IF // ////清除空值 //IF IsNull(arg_mtrlwareid) THEN arg_mtrlwareid = 0 //IF IsNull(arg_printid) THEN arg_printid = 0 //IF IsNull(arg_qty) THEN arg_qty = 0 //IF IsNull(arg_addqty) THEN arg_addqty = 0 //IF IsNull(arg_fprice) THEN arg_fprice = 0 //IF IsNull(arg_rebate) THEN arg_rebate = 0 //IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = '' //IF IsNull(arg_ifrel) THEN arg_ifrel = 0 //IF IsNull(arg_relid) THEN arg_relid = 0 //IF IsNull(arg_relprintid) THEN arg_relprintid = 0 //IF IsNull(arg_relid2) THEN arg_relid2 = 0 //IF IsNull(arg_olmtrlid) THEN arg_olmtrlid = 0 //IF IsNull(arg_packqty) THEN arg_packqty = 0 //IF IsNull(arg_outtype) THEN arg_outtype = 0 //IF IsNull(arg_rate) OR arg_rate = 0 THEN arg_rate = 1 //IF IsNull(arg_unit) THEN arg_unit = '' //IF IsNull(arg_mtrlcuscode) THEN arg_mtrlcuscode = '' //IF IsNull(arg_formula) THEN arg_formula = '' // // //arg_qty = Round(arg_qty,5) //arg_addqty = Round(arg_addqty,5) // //// 如果出仓数量为 0，或物料编号为空，则不作任何处理 //IF arg_mtrlwareid = 0 Or (arg_qty = 0 AND arg_addqty = 0) THEN // rslt = 1 // GOTO ext //END IF // ////检查物料库存ID //SELECT u_mtrlware.mtrlid, // u_mtrlware.storageid, // u_mtrlware.plancode, // u_mtrlware.status, // u_mtrlware.cost, // u_mtrldef.planprice, // u_mtrldef.mtrlcode, // u_mtrldef.mtrlname, // u_mtrlware.sptid, // u_mtrlware.dxflag, // u_mtrlware.woodcode, // u_mtrlware.pcode, // isnull(uv_mtrlware_noauditingqty.noauditingqty,0), // u_mtrlware.noallocqty, // u_mtrlware.noallocaddqty // INTO :i_mtrlid, // :i_storageid, // :i_plancode, // :i_status, // :i_cost, // :i_planprice, // :i_mtrlcode, // :i_mtrlname, // :i_sptid, // :i_dxflag, // :i_woodcode, // :i_pcode, // :i_notauditqty, // :i_allouseqty, // :i_noallocaddqty // 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),u_mtrldef // WHERE ( u_mtrlware.mtrlwareid = :arg_mtrlwareid ) // AND ( u_mtrlware.mtrlid = u_mtrldef.mtrlid ) // And ( u_mtrlware.scid = :scid ) USING commit_transaction; // //IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "第" + String(arg_printid) + "行,查询操作失败,库存信息错误" // GOTO ext //END IF // ////检查成本价调整单 //cnt = 0 //SELECT count(*) // INTO :cnt // FROM u_updatecost,u_updatecostmx // WHERE u_updatecost.wareid = u_updatecostmx.wareid AND // u_updatecost.flag = 0 AND // u_updatecostmx.mtrlwareid = :arg_mtrlwareid AND // u_updatecost.scid = :scid USING commit_transaction; //IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "第" + String(arg_printid) + "行,编码["+i_mtrlcode+"]查询成本价调整单操作失败" // GOTO ext //END IF //IF cnt > 0 THEN // rslt = 0 // arg_msg = "第" + String(arg_printid) + "行,编码["+i_mtrlcode+"]已开成本价调整单,请先审核" // GOTO ext //END IF // // //IF IsNull(ld_dftsaleprice) THEN ld_dftsaleprice = 0 //IF IsNull(i_cost) THEN i_cost = 0 //IF IsNull(i_plancode) THEN i_plancode = '' //IF IsNull(i_status) THEN i_status = '' //IF IsNull(i_mtrlid) THEN i_mtrlid = 0 //IF IsNull(i_storageid) THEN i_storageid = 0 //IF IsNull(i_planprice) THEN i_planprice = 0 //IF IsNull(i_sptid) THEN i_sptid = 0 //IF IsNull(i_dxflag) THEN i_dxflag = 0 //IF IsNull(i_woodcode) THEN i_woodcode = '' //IF IsNull(i_pcode) THEN i_pcode = '' // //IF sys_option_addqty = 1 AND i_noallocaddqty <> 0 THEN //辅数限制 // IF arg_addqty = 0 AND billtype <> 9 THEN // rslt = 0 // arg_msg = '第' + String(arg_printid) + '行,['+i_mtrlcode+' '+i_mtrlname+']在库存中使用了辅数，出仓时必须录入辅数。' // GOTO ext // END IF // // If (i_noallocaddqty = arg_addqty) And (i_allouseqty <> arg_qty) THEN // rslt = 0 // arg_msg = '第' + String(arg_printid) + '行,['+i_mtrlcode+' '+i_mtrlname+']在库存中使用了辅数，当库存辅数全部出仓时，库存数量应全部出仓.' // GOTO ext // END IF // // If (i_allouseqty = arg_qty) And (i_noallocaddqty <> arg_addqty) THEN // rslt = 0 // arg_msg = '第' + String(arg_printid) + '行,['+i_mtrlcode+' '+i_mtrlname+']在库存中使用了辅数，当库存数量全部出仓时，库存辅数应全部出仓.' // GOTO ext // END IF //END IF // //IF billtype = 1 THEN // Int li_if_cus_mtrlware // SELECT balctype INTO :li_if_cus_mtrlware // FROM u_storage // Where storageid = :storageid USING commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '查询仓库是否使用客户库存失败' // rslt = 0 // GOTO ext // END IF // // IF li_if_cus_mtrlware = 1 THEN // IF cusid <> i_sptid THEN // rslt = 0 // arg_msg = "查询操作失败,明细纪录对应的库存不是该客户的库存!" // GOTO ext // END IF // END IF //END IF // //IF billtype = 1 THEN // f_get_defsaleprice(cusid,i_mtrlid,arg_unit,i_status,i_pcode,i_woodcode,relint_2,ld_dftsaleprice) //ELSE // ld_dftsaleprice = 0 // mrate = 1 //END IF // //decimal ld_mx_qty ////*****检查大于未开数不可以开单 //IF flag = 0 THEN // Decimal ol_mtrl_qty = 0 // Int ls_noallocflag // // SELECT noallocflag INTO :ls_noallocflag // FROM u_storage // Where storageid = :storageid; // IF sqlca.SQLCode <> 0 THEN // rslt = 0 // arg_msg = '查询仓库允许使用未开单库存属性失败'+sqlca.SQLErrText // GOTO ext // END IF // // IF ls_noallocflag = 1 THEN // // IF it_updatebegin THEN // SELECT sum(u_outwaremx.qty) // INTO :ol_mtrl_qty // FROM u_outwaremx // WHERE u_outwaremx.outwareid = :outwareid // AND u_outwaremx.mtrlwareid = :arg_mtrlwareid // AND scid = :scid; // IF sqlca.SQLCode = -1 THEN // rslt = 0 // arg_msg = '第' + String(arg_printid) + '行,查询原开单数量失败' // GOTO ext // END IF // END IF // // FOR LS_i = 1 TO it_mxbt // IF arg_mtrlwareid = outwaremx[LS_i].mtrlwareid THEN // ld_mx_qty = ld_mx_qty + outwaremx[LS_i].qty // END IF // NEXT // // ld_mx_qty = ld_mx_qty + arg_qty // // //盘亏单不检查 // IF billtype <> 9 THEN // IF ld_mx_qty > ( i_allouseqty - i_notauditqty + ol_mtrl_qty ) THEN // rslt = 0 // arg_msg = '第' + String(arg_printid) + '行,' + String(i_mtrlcode)+"库存未开单数不够,不能开单.未开单数{"+String(i_allouseqty - i_notauditqty + ol_mtrl_qty,'#####,0.00##')+"}" // GOTO ext // END IF // END IF // END IF //END IF // ////*********************************************** // // //IF arg_fprice * arg_rebate < 0 THEN //检查出仓价 // rslt = 0 // arg_msg = '第' + String(arg_printid) + '行,' + String(i_mtrlcode)+" 单价错误" // GOTO ext //END IF // //CHOOSE CASE billtype // CASE 1 // IF arg_ifrel > 0 THEN // IF flag = 0 THEN // Decimal lde_mx_qty,lde_noconqty,lde_notauditqty // // IF arg_relid = 0 THEN // arg_msg = '第' + String(arg_printid) + '行,请先择相应的订单' // rslt = 0 // GOTO ext // END IF // // SELECT top 1 taskcode,saleqty - consignedqty INTO :ls_relcode,:lde_noconqty // FROM u_saletaskmx,u_saletask // WHERE u_saletaskmx.mtrlid = :i_mtrlid // AND u_saletaskmx.taskid = :arg_relid // AND u_saletaskmx.printid = :arg_relprintid // AND u_saletaskmx.scid = :scid // AND u_saletaskmx.scid = u_saletask.scid // AND u_saletaskmx.status = :i_status // AND u_saletaskmx.woodcode = :i_woodcode // AND u_saletaskmx.pcode = :i_pcode // AND u_saletaskmx.unit = :arg_unit // AND u_saletaskmx.mtrlcuscode = :arg_mtrlcuscode // AND u_saletaskmx.taskid = u_saletask.taskid // USING commit_transaction; // // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '第' + String(arg_printid) + '行,查询销售订单是否有订购编码:'+i_mtrlcode+'失败' // rslt = 0 // GOTO ext // END IF // // // lde_mx_qty = 0 // FOR LS_i = 1 TO it_mxbt // IF i_mtrlid = outwaremx[LS_i].mtrlid AND & // arg_relid = outwaremx[LS_i].relid AND & // arg_relprintid = outwaremx[LS_i].relprintid AND & // i_status = outwaremx[LS_i].status AND & // i_woodcode = outwaremx[LS_i].woodcode AND & // i_pcode = outwaremx[LS_i].pcode AND & // i_plancode = outwaremx[LS_i].plancode THEN // lde_mx_qty = lde_mx_qty + outwaremx[LS_i].qty // END IF // NEXT // // lde_mx_qty = lde_mx_qty + arg_qty // //查询相关订单已开发货单未审核数量 // SELECT isnull(sum(qty),0) INTO :lde_notauditqty // FROM u_outwaremx,u_outware // WHERE u_outwaremx.relid = :arg_relid // AND u_outwaremx.relprintid = :arg_relprintid // AND u_outwaremx.mtrlid = :i_mtrlid // AND u_outwaremx.status = :i_status // AND u_outwaremx.woodcode = :i_woodcode // AND u_outwaremx.pcode = :i_pcode // AND u_outware.flag = 0 // AND u_outwaremx.outwareid = u_outware.outwareid // AND u_outwaremx.scid = u_outware.scid // AND u_outware.outwareid <> :outwareid // USING commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '查询销售订单:'+ls_relcode+'产品:'+i_mtrlcode+'已开发货单未审核数量失败' // rslt = 0 // GOTO ext // END IF // // IF lde_notauditqty + lde_mx_qty > lde_noconqty THEN // arg_msg = '订单:'+ls_relcode+' 产品:'+i_mtrlcode+'未发货数:'+String(lde_noconqty,'#,##0.##########')+',已开单未审核数:'+String(lde_notauditqty,'#,##0.##########')+'不能再开单:'+String(lde_mx_qty,'#,##0.##########') // rslt = 0 // GOTO ext // END IF // // END IF // END IF // CASE 3 // IF arg_ifrel = 1 THEN // IF arg_relid = 0 THEN // arg_msg = '第' + String(arg_printid) + '行,请先择相应的订单' // rslt = 0 // GOTO ext // END IF // // SELECT taskcode INTO :ls_relcode // FROM u_saletask Where taskid = :arg_relid // USING commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '第' + String(arg_printid) + '行,查询销售订单号失败!' // rslt = 0 // GOTO ext // END IF // // if arg_relid2 > 0 then //检查订单运算 // SELECT count(*) // INTO :cnt // FROM u_saleRqMtrl_scll // WHERE scid = :scid // and taskid = :arg_relid // and printid = :arg_relprintid // and rqmtrlid = :arg_relid2 // USING commit_transaction; // IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '第' + String(arg_printid) + '行,查询销售订单信息失败!' // rslt = 0 // GOTO ext // END IF // // if cnt <> 1 then // arg_msg = '第' + String(arg_printid) + '行,物料销售订单运算结果不存在或重复!' // rslt = 0 // GOTO ext // end if // END IF // END IF // //END CHOOSE // // ////**取最新价 //SELECT price // INTO :i_newprice // FROM v_maxprice_sptprice // Where mtrlid = :i_mtrlid; //IF sqlca.SQLCode <> 0 OR IsNull(i_newprice) THEN i_newprice = 0 // // ////写入内容 //it_mxbt++ //outwaremx[it_mxbt].dftsaleprice = ld_dftsaleprice // //outwaremx[it_mxbt].mtrlwareid = arg_mtrlwareid //outwaremx[it_mxbt].mtrlid = i_mtrlid //outwaremx[it_mxbt].status = i_status //outwaremx[it_mxbt].uqty = arg_qty //outwaremx[it_mxbt].addqty = arg_addqty //outwaremx[it_mxbt].storageid = i_storageid //outwaremx[it_mxbt].cost = i_cost //outwaremx[it_mxbt].costamt = Round(i_cost * arg_qty,2) //outwaremx[it_mxbt].newpriceamt = Round(i_newprice * arg_qty,2) //outwaremx[it_mxbt].plancode = i_plancode //outwaremx[it_mxbt].planprice = i_planprice //outwaremx[it_mxbt].mtrlcode = i_mtrlcode //outwaremx[it_mxbt].mxdscrp = arg_mxdscrp //outwaremx[it_mxbt].printid = arg_printid //outwaremx[it_mxbt].outtype = arg_outtype //outwaremx[it_mxbt].mtrlcuscode = arg_mtrlcuscode // //outwaremx[it_mxbt].enprice = arg_fprice //outwaremx[it_mxbt].rebate = arg_rebate //outwaremx[it_mxbt].fprice = Round(arg_fprice * mrate,10) //outwaremx[it_mxbt].price = Round(arg_fprice * mrate * arg_rebate,10) // //outwaremx[it_mxbt].sptid = i_sptid //outwaremx[it_mxbt].dxflag = i_dxflag // //outwaremx[it_mxbt].ifrel = arg_ifrel //outwaremx[it_mxbt].relid = arg_relid //outwaremx[it_mxbt].relprintid = arg_relprintid //outwaremx[it_mxbt].relid2 = arg_relid2 // //outwaremx[it_mxbt].olmtrlid = arg_olmtrlid //outwaremx[it_mxbt].packqty = arg_packqty //outwaremx[it_mxbt].woodcode = i_woodcode //outwaremx[it_mxbt].pcode = i_pcode //outwaremx[it_mxbt].relcode = ls_relcode //outwaremx[it_mxbt].formula = arg_formula // //outwaremx[it_mxbt].unit = arg_unit //outwaremx[it_mxbt].rate = arg_rate //outwaremx[it_mxbt].qty = Round(arg_qty * arg_rate,5) // //IF arg_qty <> 0 THEN // outwaremx[it_mxbt].ware_enprice = Round((arg_fprice * arg_qty)/Round(arg_qty * arg_rate ,5),10) // outwaremx[it_mxbt].ware_fprice = Round((arg_fprice * arg_qty)/Round(arg_qty * arg_rate ,5),10) * mrate // outwaremx[it_mxbt].ware_price = Round((arg_fprice * arg_qty)/Round(arg_qty * arg_rate ,5),10) * mrate * arg_rebate //ELSE // outwaremx[it_mxbt].ware_enprice = arg_fprice // outwaremx[it_mxbt].ware_fprice = Round(arg_fprice * mrate,10) // outwaremx[it_mxbt].ware_price = Round(arg_fprice * mrate * arg_rebate,10) //END IF // //ext: //IF rslt = 0 THEN // p_clearmx() // arg_msg = billname + ',' + arg_msg //END IF //RETURN rslt end function public function integer acceptmx (s_outwaremx s_mx, ref string arg_msg);/* s_mx.mtrlwareid = dw_child.Object.u_outwaremx_mtrlwareid[i] s_mx.uqty = dw_child.Object.u_outwaremx_qty[i] s_mx.addqty = dw_child.Object.u_outwaremx_addqty[i] s_mx.enprice = dw_child.Object.u_outwaremx_fprice[i] s_mx.rebate = 1 s_mx.mxdscrp = dw_child.Object.u_outwaremx_mxdscrp[i] s_mx.printid = dw_child.Object.printid[i] s_mx.ifrel = 0 s_mx.relid = 0 s_mx.relprintid = 0 s_mx.relid2 = 0 s_mx.olmtrlid = 0 s_mx.packqty = 0 s_mx.outtype = 0 s_mx.unit = dw_child.Object.u_mtrldef_unit[i] s_mx.rate = 1 s_mx.mtrlcuscode = '' s_mx.formula = dw_child.Object.u_outwaremx_formula[i] */ Long rslt = 1,cnt = 0,ll_i Long i_mtrlid,i_storageid,i_sptid Int i_dxflag,li_mtrlkind String i_plancode,i_mtrlcode,i_status,i_woodcode,i_pcode,i_mtrlname Decimal i_planprice,ld_dftsaleprice, lde_lmsaleprice Double i_cost,i_newprice Decimal i_notauditqty,i_allouseqty,i_noallocaddqty String ls_relcode Decimal lde_packqty Decimal lde_upsalerate Decimal lde_upsaleqty Decimal lde_upscllrate Decimal lde_upscllqty Decimal lde_cost_notax If it_newbegin = False And it_updatebegin = False Then rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" Goto ext End If //清除空值 s_mx.uqty = s_mx.qty //历史原因,数组传入的是s_mx.qty s_mx.enprice = s_mx.fprice //同上 If IsNull(s_mx.mtrlwareid) Then s_mx.mtrlwareid = 0 If IsNull(s_mx.printid) Then s_mx.printid = 0 If IsNull(s_mx.uqty) Then s_mx.uqty = 0 If IsNull(s_mx.saleqty) Then s_mx.saleqty = 0 If IsNull(s_mx.addqty) Then s_mx.addqty = 0 If IsNull(s_mx.enprice) Then s_mx.enprice = 0 If IsNull(s_mx.tax) Then s_mx.tax = 0 If IsNull(s_mx.rebate) Then s_mx.rebate = 0 If IsNull(s_mx.rate) Or s_mx.rate = 0 Then s_mx.rate = 1 If IsNull(s_mx.unit) Then s_mx.unit = '' If IsNull(s_mx.mxdscrp) Then s_mx.mxdscrp = '' If IsNull(s_mx.ifrel) Then s_mx.ifrel = 0 If IsNull(s_mx.relid) Then s_mx.relid = 0 If IsNull(s_mx.relprintid) Then s_mx.relprintid = 0 If IsNull(s_mx.relid2) Then s_mx.relid2 = 0 If IsNull(s_mx.olmtrlid) Then s_mx.olmtrlid = 0 If IsNull(s_mx.packqty) Then s_mx.packqty = 0 If IsNull(s_mx.outtype) Then s_mx.outtype = 0 If IsNull(s_mx.mtrlcuscode) Then s_mx.mtrlcuscode = '' If IsNull(s_mx.formula) Then s_mx.formula = '' If IsNull(s_mx.mxdscrp2) Then s_mx.mxdscrp2 = '' 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.mxdscrp3) Then s_mx.mxdscrp3 = '' If IsNull(s_mx.mxdscrp4) Then s_mx.mxdscrp4 = '' If IsNull(s_mx.priceformula) Then s_mx.priceformula = '' 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 IsNull(s_mx.otherprice) Then s_mx.otherprice = 0 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 s_mx.enprice_notax = 0 Then s_mx.enprice_notax = s_mx.enprice / (1 + s_mx.tax) End If s_mx.uqty = Round(s_mx.uqty,5) s_mx.addqty = Round(s_mx.addqty,5) If sys_option_outware_if_saleqty = 1 And billtype = 1 Then //销售 , 销售数与出仓数分离 Else //不分离 s_mx.saleqty = s_mx.uqty End If // 如果出仓数量为 0，或物料编号为空，则不作任何处理 If s_mx.mtrlwareid = 0 Or (s_mx.addqty = 0 And s_mx.uqty = 0 And s_mx.addqty = 0) Then rslt = 1 Goto ext End If //检查成本价调整单 cnt = 0 Select count(*) Into :cnt From u_updatecost,u_updatecostmx Where u_updatecost.wareid = u_updatecostmx.wareid And u_updatecost.flag = 0 And u_updatecostmx.mtrlwareid = :s_mx.mtrlwareid And u_updatecost.scid = :scid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "第" + String(s_mx.printid) + "行,编码["+i_mtrlcode+"]查询成本价调整单操作失败" Goto ext End If If cnt > 0 Then rslt = 0 arg_msg = "第" + String(s_mx.printid) + "行,编码["+i_mtrlcode+"]已开成本价调整单,请先审核" Goto ext End If //检查物料库存ID Select u_mtrlware.mtrlid, u_mtrlware.storageid, u_mtrlware.plancode, u_mtrlware.status, u_mtrlware.cost, u_mtrldef.planprice, u_mtrldef.lmsaleprice, u_mtrldef.mtrlcode, u_mtrldef.mtrlname, u_mtrldef.packqty, u_mtrlware.sptid, u_mtrlware.dxflag, u_mtrlware.woodcode, u_mtrlware.pcode, isnull(uv_mtrlware_noauditingqty.noauditingqty,0), u_mtrlware.noallocqty, u_mtrlware.noallocaddqty, u_mtrldef.upsalerate, u_mtrldef.upsaleqty, u_mtrldef.upscllrate, u_mtrldef.upscllqty, u_mtrlware.cost_notax Into :i_mtrlid, :i_storageid, :i_plancode, :i_status, :i_cost, :i_planprice, :lde_lmsaleprice, :i_mtrlcode, :i_mtrlname, :lde_packqty, :i_sptid, :i_dxflag, :i_woodcode, :i_pcode, :i_notauditqty, :i_allouseqty, :i_noallocaddqty, :lde_upsalerate, :lde_upsaleqty, :lde_upscllrate, :lde_upscllqty, :lde_cost_notax 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 = :scid ) And ( u_mtrlware.mtrlwareid = :s_mx.mtrlwareid ) Using commit_transaction; If commit_transaction.SQLCode <> 0 Then rslt = 0 arg_msg = "第" + String(s_mx.printid) + "行,查询操作失败,库存信息错误" Goto ext End If //IF IsNull(ld_dftsaleprice) THEN ld_dftsaleprice = 0 If IsNull(i_cost) Then i_cost = 0 If IsNull(i_mtrlid) Then i_mtrlid = 0 If IsNull(i_plancode) Then i_plancode = '' If IsNull(i_status) Then i_status = '' If IsNull(i_woodcode) Then i_woodcode = '' If IsNull(i_pcode) Then i_pcode = '' If IsNull(i_storageid) Then i_storageid = 0 If IsNull(i_planprice) Then i_planprice = 0 If IsNull(i_sptid) Then i_sptid = 0 If IsNull(i_dxflag) Then i_dxflag = 0 If IsNull(lde_cost_notax) Then lde_cost_notax = 0 /////////////////检查辅数//////////////////// // If sys_option_addqty = 1 And i_noallocaddqty <> 0 Then //辅数限制 If s_mx.addqty = 0 And billtype <> 9 Then rslt = 0 arg_msg = '第' + String(s_mx.printid) + '行,['+i_mtrlcode+' '+i_mtrlname+']在库存中使用了辅数，出仓时必须录入辅数。' Goto ext End If If (i_noallocaddqty = s_mx.addqty) And (i_allouseqty <> s_mx.uqty) Then rslt = 0 arg_msg = '第' + String(s_mx.printid) + '行,['+i_mtrlcode+' '+i_mtrlname+']在库存中使用了辅数，当库存辅数全部出仓时，库存数量应全部出仓.' Goto ext End If If (i_allouseqty = s_mx.uqty) And (i_noallocaddqty <> s_mx.addqty) Then rslt = 0 arg_msg = '第' + String(s_mx.printid) + '行,['+i_mtrlcode+' '+i_mtrlname+']在库存中使用了辅数，当库存数量全部出仓时，库存辅数应全部出仓.' Goto ext End If End If If sys_option_hide_ware = 0 Then If billtype = 1 Then Int li_if_cus_mtrlware Select balctype Into :li_if_cus_mtrlware From u_storage Where storageid = :storageid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询仓库是否使用客户库存失败' rslt = 0 Goto ext End If If li_if_cus_mtrlware = 1 Then If thflag = 0 And sys_option_outware_ifpublware = 0 Then //发货时, 系统选项是否可用公共库存, 否则必须是客户库存 If cusid <> i_sptid Then rslt = 0 arg_msg = "明细纪录对应的库存不是该客户的库存!" Goto ext End If Else //退货时,可退会该客户库存,也可以退货非客户库存; 但不能退给其他客户库存 If cusid <> i_sptid And i_sptid <> 0 Then rslt = 0 arg_msg = "明细纪录对应的库存不是该客户或无客户的库存!" Goto ext End If End If End If End If //数量相关的检查 //*****检查大于未开数不可以开单 If billtype <> 9 Then //盘亏单不检查 If flag = 0 Then Decimal ld_mx_qty //本单当前累计数量 Decimal ol_mtrl_qty = 0 //本单保存前开单数量 Int ls_noallocflag If s_mx.uqty > 0 Then Select noallocflag Into :ls_noallocflag From u_storage Where storageid = :storageid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '查询仓库允许使用未开单库存属性失败'+sqlca.SQLErrText Goto ext End If If ls_noallocflag = 1 Then If it_updatebegin Then //修改 Select sum(u_outwaremx.qty) Into :ol_mtrl_qty From u_outwaremx Where u_outwaremx.outwareid = :outwareid And u_outwaremx.mtrlwareid = :s_mx.mtrlwareid And scid = :scid; If sqlca.SQLCode <> 0 Then rslt = 0 arg_msg = '第' + String(s_mx.printid) + '行,查询原开单数量失败' Goto ext End If If IsNull(ol_mtrl_qty) Then ol_mtrl_qty = 0 End If //IF it_updatebegin THEN //修改 For ll_i = 1 To it_mxbt If s_mx.mtrlwareid = outwaremx[ll_i].mtrlwareid Then ld_mx_qty = ld_mx_qty + outwaremx[ll_i].qty End If Next If s_mx.rate = 1 Then ld_mx_qty = ld_mx_qty + s_mx.uqty Else ld_mx_qty = ld_mx_qty + Round(s_mx.uqty * s_mx.rate,sys_option_unit_dec_sale) //s_mx.qty End If If ld_mx_qty > ( i_allouseqty - i_notauditqty + ol_mtrl_qty ) Then // IF ld_mx_qty > ( i_allouseqty + ol_mtrl_qty ) THEN rslt = 0 arg_msg = '第' + String(s_mx.printid) + '行,' + String(i_mtrlcode)+"库存未开单数不够,不能开单.未开单数{"+String(i_allouseqty - i_notauditqty + ol_mtrl_qty,'#####,0.00##')+"}" Goto ext End If End If //IF ls_noallocflag = 1 THEN End If //IF s_mx.uqty > 0 THEN End If End If End If //*********************************************** //检查来源单据 Choose Case billtype Case 1 If s_mx.ifrel > 0 Then If flag = 0 Then Decimal lde_mx_qty,lde_usaleqty, lde_consignedqty,lde_notauditqty, lde_usaleqty_tol If s_mx.relid = 0 Then arg_msg = '第' + String(s_mx.printid) + '行,请先择相应的订单' rslt = 0 Goto ext End If //查询订单 Select top 1 taskcode,usaleqty, consignedqty Into :ls_relcode,:lde_usaleqty, :lde_consignedqty From u_saletaskmx,u_saletask Where u_saletaskmx.taskid = :s_mx.relid And u_saletaskmx.printid = :s_mx.relprintid And u_saletaskmx.scid = :scid And u_saletaskmx.scid = u_saletask.scid And u_saletaskmx.taskid = u_saletask.taskid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '第' + String(s_mx.printid) + '行,查询销售订单是否有订购编码:'+i_mtrlcode+'失败' rslt = 0 Goto ext End If //查询相关订单已开发货单未审核数量 Select isnull(sum(uqty),0) Into :lde_notauditqty From u_outwaremx,u_outware Where u_outwaremx.relid = :s_mx.relid And u_outwaremx.relprintid = :s_mx.relprintid And u_outware.flag = 0 And u_outwaremx.outwareid = u_outware.outwareid And u_outwaremx.scid = u_outware.scid And u_outware.outwareid <> :outwareid And u_outware.billtype = 1 Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '查询销售订单:'+ls_relcode+'产品:'+i_mtrlcode+'已开发货单未审核数量失败' rslt = 0 Goto ext End If lde_mx_qty = 0 For ll_i = 1 To it_mxbt If i_mtrlid = outwaremx[ll_i].mtrlid And & s_mx.relid = outwaremx[ll_i].relid And & s_mx.relprintid = outwaremx[ll_i].relprintid And & i_status = outwaremx[ll_i].status And & i_woodcode = outwaremx[ll_i].woodcode And & i_pcode = outwaremx[ll_i].pcode And & (i_plancode = outwaremx[ll_i].plancode or sys_option_saletask_chuange_plancode = 1 )And & s_mx.mtrlcuscode = outwaremx[ll_i].mtrlcuscode Then lde_mx_qty = lde_mx_qty + outwaremx[ll_i].uqty End If Next lde_mx_qty += s_mx.uqty lde_usaleqty_tol = lde_usaleqty * (1 + lde_upsalerate) + lde_upsaleqty //增加可超比例 If lde_usaleqty_tol < lde_consignedqty + lde_notauditqty + lde_mx_qty Then arg_msg = '订单:'+ls_relcode+' 产品:'+i_mtrlcode+'未发货数:'+String(lde_usaleqty - lde_consignedqty ,'#,##0.##########') If lde_usaleqty_tol - lde_usaleqty <> 0 Then arg_msg += ',可超数:'+String(lde_usaleqty_tol - lde_usaleqty,'#,##0.##########') + ',总可发数:'+String(lde_usaleqty_tol - lde_consignedqty ,'#,##0.##########') End If If lde_notauditqty <> 0 Then arg_msg += ',已开单未审核数:'+String(lde_notauditqty,'#,##0.##########') End If arg_msg += ',不能再开单:'+String(lde_mx_qty,'#,##0.##########') rslt = 0 Goto ext End If End If End If Case 3 If s_mx.ifrel = 1 Then If s_mx.relid = 0 Then arg_msg = '第' + String(s_mx.printid) + '行,请先择相应的订单' rslt = 0 Goto ext End If Select taskcode Into :ls_relcode From u_saletask Where taskid = :s_mx.relid Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '第' + String(s_mx.printid) + '行,查询销售订单号失败!' rslt = 0 Goto ext End If If s_mx.relid2 > 0 Then //检查订单运算 Select count(*) Into :cnt From u_saleRqMtrl_scll Where scid = :scid And taskid = :s_mx.relid And printid = :s_mx.relprintid And rqmtrlid = :s_mx.relid2 Using commit_transaction; If commit_transaction.SQLCode <> 0 Then arg_msg = '第' + String(s_mx.printid) + '行,查询销售订单信息失败!' rslt = 0 Goto ext End If If cnt <> 1 Then arg_msg = '第' + String(s_mx.printid) + '行,物料销售订单运算结果不存在或重复!' rslt = 0 Goto ext End If End If End If End Choose //价格相关的检查 If billtype = 1 Then f_get_defsaleprice(cusid,i_mtrlid,s_mx.unit,i_status,i_pcode,i_woodcode,relint_2,ld_dftsaleprice,s_mx.qty) If Not sys_power_issuper And f_power_ind(1399) Then If ld_dftsaleprice > 0 And ld_dftsaleprice > s_mx.enprice Then rslt = 0 arg_msg = '用户权限限制, 第' + String(s_mx.printid) + '行,' + String(i_mtrlcode)+" 单价不能低于客户价格表单价,请检查" Goto ext End If End If //不能低于设定售价 If Not sys_power_issuper And f_power_ind(1778) Then If lde_lmsaleprice > 0 And lde_lmsaleprice > s_mx.enprice Then rslt = 0 arg_msg = '用户权限限制, 第' + String(s_mx.printid) + '行,' + String(i_mtrlcode)+" 单价不能低于设定售价,请检查" Goto ext End If End If //不能低于库存成本价 If Not sys_power_issuper And f_power_ind(1600) Then If i_cost > 0 And i_cost > s_mx.enprice Then rslt = 0 arg_msg = '用户权限限制, 第' + String(s_mx.printid) + '行,' + String(i_mtrlcode)+" 单价不能低于库存成本价,请检查" Goto ext End If End If Else ld_dftsaleprice = 0 mrate = 1 End If If s_mx.tax < 0 Then rslt = 0 arg_msg = "税率不能为负数" Goto ext End If If s_mx.enprice * s_mx.rebate < 0 Then //检查出仓价 rslt = 0 arg_msg = '第' + String(s_mx.printid) + '行,' + String(i_mtrlcode)+" 单价错误" Goto ext End If //**取最新价 Select price Into :i_newprice From v_maxprice_sptprice Where mtrlid = :i_mtrlid; If sqlca.SQLCode <> 0 Or IsNull(i_newprice) Then i_newprice = 0 s_mx.price = Round(s_mx.enprice * mrate * s_mx.rebate,10) //本位币, 出仓单位, 实价 If s_mx.rate = 1 Then s_mx.qty = s_mx.uqty Else s_mx.qty = Round(s_mx.uqty * s_mx.rate,sys_option_unit_dec_sale) //库存单位,出仓数量 End If //写入内容 it_mxbt++ outwaremx[it_mxbt].printid = s_mx.printid outwaremx[it_mxbt].mtrlwareid = s_mx.mtrlwareid outwaremx[it_mxbt].storageid = i_storageid outwaremx[it_mxbt].mtrlid = i_mtrlid if sys_option_hide_ware = 1 then outwaremx[it_mxbt].status = s_mx.status outwaremx[it_mxbt].woodcode = s_mx.woodcode outwaremx[it_mxbt].pcode = s_mx.pcode else outwaremx[it_mxbt].status = i_status outwaremx[it_mxbt].woodcode = i_woodcode outwaremx[it_mxbt].pcode = i_pcode end if outwaremx[it_mxbt].plancode = i_plancode outwaremx[it_mxbt].sptid = i_sptid outwaremx[it_mxbt].dxflag = i_dxflag outwaremx[it_mxbt].mtrlcode = i_mtrlcode outwaremx[it_mxbt].mtrlcuscode = s_mx.mtrlcuscode outwaremx[it_mxbt].saleqty = s_mx.saleqty //销售数 outwaremx[it_mxbt].uqty = s_mx.uqty //出仓数, 出仓单位 outwaremx[it_mxbt].addqty = s_mx.addqty outwaremx[it_mxbt].unit = s_mx.unit outwaremx[it_mxbt].rate = s_mx.rate outwaremx[it_mxbt].qty = s_mx.qty //库存单位,出仓数量 outwaremx[it_mxbt].enprice = s_mx.enprice //原币, 出仓单位, 单价, 含税 outwaremx[it_mxbt].fprice = Round(s_mx.enprice * mrate,10) //本位币 , 出仓单位, 单价, 含税 outwaremx[it_mxbt].price = s_mx.price //本位币, 出仓单位, 实价, 含税 outwaremx[it_mxbt].rebate = s_mx.rebate //折扣 outwaremx[it_mxbt].tax = s_mx.tax //税率 outwaremx[it_mxbt].enamt = Round(s_mx.saleqty * s_mx.enprice * s_mx.rebate, 2) //原币, 实价含税金额 If s_mx.enamt_tax = 0 Then outwaremx[it_mxbt].enamt_tax = Round((s_mx.saleqty * s_mx.enprice * s_mx.rebate) * s_mx.tax / (1 + s_mx.tax), 2) //原币, 税金 Else outwaremx[it_mxbt].enamt_tax = s_mx.enamt_tax End If outwaremx[it_mxbt].bsamt = Round(s_mx.saleqty * outwaremx[it_mxbt].fprice * s_mx.rebate, 2) //本位币, 实价含税金额 outwaremx[it_mxbt].bsamt_tax = Round((s_mx.saleqty * outwaremx[it_mxbt].fprice * s_mx.rebate) * s_mx.tax / (1 + s_mx.tax), 2) //本位币, 税金 If billtype = 1 Then Choose Case sys_option_outware_sale_amt_round Case 0 //分 outwaremx[it_mxbt].enamt = Round(outwaremx[it_mxbt].enamt, 2) outwaremx[it_mxbt].enamt_tax = Round(outwaremx[it_mxbt].enamt_tax, 2) outwaremx[it_mxbt].bsamt = Round(outwaremx[it_mxbt].bsamt, 2) outwaremx[it_mxbt].bsamt_tax = Round(outwaremx[it_mxbt].bsamt_tax, 2) Case 1 outwaremx[it_mxbt].enamt = Round(outwaremx[it_mxbt].enamt, 1) outwaremx[it_mxbt].enamt_tax = Round(outwaremx[it_mxbt].enamt_tax, 1) outwaremx[it_mxbt].bsamt = Round(outwaremx[it_mxbt].bsamt, 1) outwaremx[it_mxbt].bsamt_tax = Round(outwaremx[it_mxbt].bsamt_tax, 1) Case 2 outwaremx[it_mxbt].enamt = Round(outwaremx[it_mxbt].enamt, 0) outwaremx[it_mxbt].enamt_tax = Round(outwaremx[it_mxbt].enamt_tax, 0) outwaremx[it_mxbt].bsamt = Round(outwaremx[it_mxbt].bsamt, 0) outwaremx[it_mxbt].bsamt_tax = Round(outwaremx[it_mxbt].bsamt_tax, 0) Case 3 outwaremx[it_mxbt].enamt = Round(outwaremx[it_mxbt].enamt / 10, 0) * 10 outwaremx[it_mxbt].enamt_tax = Round(outwaremx[it_mxbt].enamt_tax / 10, 0) * 10 outwaremx[it_mxbt].bsamt = Round(outwaremx[it_mxbt].bsamt / 10, 0) * 10 outwaremx[it_mxbt].bsamt_tax = Round(outwaremx[it_mxbt].bsamt_tax / 10, 0) * 10 Case 4 outwaremx[it_mxbt].enamt = Round(outwaremx[it_mxbt].enamt / 100, 0) * 100 outwaremx[it_mxbt].enamt_tax = Round(outwaremx[it_mxbt].enamt_tax / 100, 0) * 100 outwaremx[it_mxbt].bsamt = Round(outwaremx[it_mxbt].bsamt / 100, 0) * 100 outwaremx[it_mxbt].bsamt_tax = Round(outwaremx[it_mxbt].bsamt_tax / 100, 0) * 100 End Choose End If If s_mx.saleqty <> 0 Then outwaremx[it_mxbt].ware_enprice = Round((s_mx.enprice * s_mx.saleqty)/Round(s_mx.saleqty * s_mx.rate ,5),10) //原币,库存单位,单价 outwaremx[it_mxbt].ware_fprice = Round((s_mx.enprice * s_mx.saleqty)/Round(s_mx.saleqty * s_mx.rate ,5),10) * mrate //本位币,库存单位,单价 outwaremx[it_mxbt].ware_price = Round((s_mx.enprice * s_mx.saleqty)/Round(s_mx.saleqty * s_mx.rate ,5),10) * mrate * s_mx.rebate //本位币,库存单位,实价 Else outwaremx[it_mxbt].ware_enprice = s_mx.enprice outwaremx[it_mxbt].ware_fprice = Round(s_mx.enprice * mrate,10) outwaremx[it_mxbt].ware_price = Round(s_mx.enprice * mrate * s_mx.rebate,10) End If outwaremx[it_mxbt].ware_amt = outwaremx[it_mxbt].bsamt //本位币,实价金额 //无用的 outwaremx[it_mxbt].cost = i_cost outwaremx[it_mxbt].cost_notax = lde_cost_notax outwaremx[it_mxbt].costamt = Round(i_cost * s_mx.qty, 2) outwaremx[it_mxbt].costamt_notax = Round(lde_cost_notax * s_mx.qty, 2) outwaremx[it_mxbt].newpriceamt = Round(i_newprice * s_mx.qty, 2 ) outwaremx[it_mxbt].dftsaleprice = ld_dftsaleprice outwaremx[it_mxbt].planprice = i_planprice outwaremx[it_mxbt].ifrel = s_mx.ifrel outwaremx[it_mxbt].relid = s_mx.relid outwaremx[it_mxbt].relprintid = s_mx.relprintid outwaremx[it_mxbt].relid2 = s_mx.relid2 outwaremx[it_mxbt].relcode = ls_relcode outwaremx[it_mxbt].olmtrlid = s_mx.olmtrlid outwaremx[it_mxbt].packqty = s_mx.packqty outwaremx[it_mxbt].mxdscrp = s_mx.mxdscrp outwaremx[it_mxbt].mxdscrp2 = s_mx.mxdscrp2 outwaremx[it_mxbt].outtype = s_mx.outtype outwaremx[it_mxbt].formula = s_mx.formula outwaremx[it_mxbt].net_weight = s_mx.net_weight outwaremx[it_mxbt].gross_weight = s_mx.gross_weight outwaremx[it_mxbt].cubage = s_mx.cubage outwaremx[it_mxbt].mxdscrp3 = s_mx.mxdscrp3 outwaremx[it_mxbt].mxdscrp4 = s_mx.mxdscrp4 outwaremx[it_mxbt].enprice_notax = s_mx.enprice_notax //不含税单价 outwaremx[it_mxbt].priceformula = s_mx.priceformula outwaremx[it_mxbt].otherprice = s_mx.otherprice ext: If rslt = 0 Then p_clearmx() arg_msg = billname + ',' + arg_msg End If Return rslt end function public function integer uf_chk_updatecost (ref string arg_msg);//撤审限制，迟于本出仓单审核时间的成本价调整单审核后本出仓单不能撤审 //否则单价会出现错误; int rslt = 1 Long i, ll_count FOR i = 1 TO it_mxbt ll_count = 0 SELECT count(*) INTO :ll_count FROM u_updatecostmx, u_updatecost WHERE ( u_updatecostmx.scid = u_updatecost.scid ) AND ( u_updatecost.wareid = u_updatecostmx.wareid) AND ( u_updatecost.flag = 1 ) AND ( u_updatecostmx.mtrlwareid = :outwaremx[i].mtrlwareid) AND ( u_updatecostmx.scid = :scid) and ( u_updatecost.Auditingdate > :Auditingdate ) USING commit_transaction; IF sqlca.SQLCode = 0 THEN IF ll_count > 0 THEN rslt = 0 arg_msg = '第'+ string(i) +'行,' + outwaremx[i].mtrlcode + "已调整成本价,不能撤审,涉及成本价调整单数量:" + string(ll_count) GOTO ext END IF ELSE rslt = 0 arg_msg = '第'+ string(i) +'行,' + outwaremx[i].mtrlcode + "查询成本价调整单失败" GOTO ext END IF NEXT ext: return rslt end function public function integer uof_check_warepdb_audit (long arg_storageid, ref string arg_msg);//如果有盘点表未审核 , 则不能审核通过 Int rslt = 1 Long cnt SELECT count(*) INTO :cnt FROM u_warepdb WHERE storageid = :arg_storageid And flag = 0 Using commit_transaction; 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 = '仓库有盘点表未审核,不能仓审或仓撤单据,请检查' GOTO ext END IF ext: RETURN rslt end function public function integer auditing_chk (ref string arg_msg);//uo_outware_sale 重写 //uo_outware_scll 重写 long rslt = 1 IF sys_option_hide_ware = 0 THEN IF billtype <> 9 And & Not (billtype = 3 And Pos(dscrp,'盘点表审核盘亏自动生成生产领料单') > 0) THEN IF uof_check_warepdb_audit(storageid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ELSE IF Not sysautobuild THEN IF dscrp = '盘点表审核自动生成盘亏单' & or dscrp = '盘点表审核盘亏自动生成生产领料单' THEN arg_msg = '系统自动生成的单据不能手动审核' rslt = 0 GOTO ext END IF END IF END IF END IF ext: return rslt end function public function integer auditing_end (ref string arg_msg);long rslt = 1 return rslt end function public function integer c_auditing_chk (ref string arg_msg);//uo_outware_sale 重写 long rslt = 1 IF sys_option_hide_ware = 0 THEN IF billtype <> 9 And & Not (billtype = 3 And Pos(dscrp,'盘点表审核盘亏自动生成生产领料单') > 0) THEN IF uof_check_warepdb_audit(storageid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ELSE IF Not sysautobuild THEN IF dscrp = '盘点表审核自动生成盘亏单' & or dscrp = '盘点表审核盘亏自动生成生产领料单' THEN arg_msg = '系统自动生成的单据不能手动撤审' rslt = 0 GOTO ext END IF END IF END IF END IF ext: return rslt end function public function integer c_auditing_end (ref string arg_msg);long rslt = 1 return rslt end function public function integer save_end (ref string arg_msg);long rslt = 1 return rslt end function public function integer save_chk (ref string arg_msg); long rslt = 1 long cnt //未注册限制 IF sys_if_register = 0 THEN Long ll_bill_count SELECT count(*) INTO :ll_bill_count From u_outware; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,单据数量 " GOTO ext END IF IF ll_bill_count > 100 THEN //我 rslt = 0 arg_msg = "未注册版本,出仓单只能保存100张! " GOTO ext END IF 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 IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空 rslt = 0 arg_msg = "没有正确出仓内容" GOTO ext END IF //cnt = 0 //检查仓库 SELECT balctype INTO :if_cus_mtrlware FROM u_storage Where storageid = :storageid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询仓库是否使用客户库存失败' rslt = 0 GOTO ext END IF //IF Year(Date(outdate)) < 2000 Or IsNull(outdate) THEN // rslt = 0 // arg_msg = "缺少出仓发生时间或不合理" // GOTO ext //END IF //==================================================================== //// Script - save ( boolean arg_ifcommit, ref string arg_msg ) //// Reason: ////-------------------------------------------------------------------- //// Modified By: yyx Date: 2004.01.02 ////-------------------------------------------------------------------- //IF DaysAfter(Date(String(server_dt,'yyyy-mm-dd')),Date(String(outdate,'yyyy-mm-dd'))) > sys_option_input_days THEN // rslt = 0 // arg_msg = '出仓日期错误,日期不能超前系统日期' // GOTO ext //END IF // //IF DaysAfter(Date(String(outdate,'yyyy-mm-dd')),Date(String(server_dt,'yyyy-mm-dd'))) > sys_option_input_days THEN // rslt = 0 // arg_msg = '出仓日期错误,日期不能落后系统日期' // GOTO ext //END IF IF not (billtype = 1 and flag = 1 and secflag = 0) THEN IF f_check_inoutdate(storageid,outdate,True,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF end if //==================================================================== IF billtype = 1 THEN SELECT name INTO :cusname FROM u_cust Where cusid = :cusid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,客户资料" GOTO ext END IF IF relint_1 = 0 THEN arg_msg = '请选择结算方式' rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM cw_currency Where moneyid = :relint_2; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询币种失败' rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '币种资料不存在' rslt = 0 GOTO ext END IF IF mrate = 0 THEN arg_msg = '币种汇率错误' rslt = 0 GOTO ext END IF IF mrate = 0 THEN arg_msg = '币种汇率错误' rslt = 0 GOTO ext END IF cnt = 0 select COUNT(*) into :cnt //检查未结清的发货单 from u_outware inner join u_cust on u_outware.cusid=u_cust.cusid LEFT OUTER JOIN u_Bmsttake ON u_outware.relint_3=u_Bmsttake.takeid where u_cust.cusid=:cusid and isnull(u_Bmsttake.finishflag,0)=0 and u_outware.outdate 0 and sys_option_sale_outware_bmstday=1 THEN //系统选项 arg_msg = '收款周期前有未结清的销售发货单' rslt = 0 GOTO ext END IF ELSEIF billtype = 3 THEN IF relid = 0 THEN arg_msg = '请选择领料工作中心' rslt = 0 GOTO ext END IF ELSEIF billtype = 4 THEN SELECT name INTO :cusname FROM u_spt Where sptid = :cusid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,加工商资料" GOTO ext END IF ELSEIF billtype = 8 THEN IF Trim(cusname) = '' Or IsNull(cusname) THEN rslt = 0 arg_msg = "请输入出仓原因!" GOTO ext END IF ELSEIF billtype = 9 THEN IF Trim(cusname) = '' Or IsNull(cusname) THEN cusname = "盘亏" END IF END IF ext: return rslt end function public subroutine uf_get_billname (integer arg_billtype);CHOOSE CASE arg_billtype CASE 1 billname = '销售单' CASE 2 billname = '销售单' CASE 3 billname = '领料出仓单' CASE 4 billname = '外协发出仓' CASE 8 billname = '其他进仓单' CASE 9 billname = '盘亏出仓单' CASE 10 //人事 billname = '工具出仓单' CASE 12 billname = '调拨出仓单' CASE 15 billname = '拆装出仓单' END CHOOSE end subroutine public function integer uf_w_cmp_fifo_cb_bill (long ll_scid, long ll_mtrlwareid, boolean arg_ifcommit, ref string arg_msg);// Long rslt = 1 Long contractcnt,i datastore ds //ll_row = dw_1.GetRow() //IF ll_row <= 0 THEN RETURN // // // //ll_scid = dw_1.Object.u_mtrlware_scid[ll_row] //ll_mtrlwareid = dw_1.Object.u_mtrlware_mtrlwareid[ll_row] // //IF ll_mtrlwareid <= 0 THEN RETURN ds = Create datastore ds.DataObject = "ddds_cs_cmp_xjxc" ds.SetTransObject(commit_transaction) contractcnt = ds.Retrieve(ll_scid,ll_mtrlwareid) //MessageBox('',String(contractcnt)) DELETE u_mtrlware_inmx Where scid = :ll_scid And mtrlwareid = :ll_mtrlwareid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除库存进仓批失败" GOTO ext END IF Long ll_inwareid,ll_printid DateTime dt_indate String ls_inwarecode Decimal dec_inqty Decimal dec_inprice,dec_inprice_notax FOR i = 1 To contractcnt ll_inwareid = 0 ll_printid = 0 ls_inwarecode = '' dec_inqty = 0 dec_inprice = 0 ll_inwareid = ds.Object.inwareid[i] ll_printid = ds.Object.printid[i] dt_indate = ds.Object.inwaredate[i] ls_inwarecode = ds.Object.inwarecode[i] dec_inqty = ds.Object.inqty[i] dec_inprice = ds.Object.inprice[i] dec_inprice_notax = ds.Object.inprice_notax[i] IF f_add_mtrlware_inmx(ll_scid,ll_mtrlwareid,ll_inwareid,ll_printid,ls_inwarecode,dt_indate,dec_inqty,dec_inprice,dec_inprice_notax,0,False,commit_transaction,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF NEXT IF f_cmp_fifo_cb_mtrlware(ll_scid,ll_mtrlwareid,False,commit_transaction,arg_msg) = 0 THEN rslt = 0 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 audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg); Int rslt = 1,cnt = 0 IF arg_billid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF billtype = 1 THEN IF secflag = 0 THEN rslt = 0 arg_msg = "单据没有财审" GOTO ext END IF ELSE IF flag = 0 THEN rslt = 0 arg_msg = "单据没有仓审" GOTO ext END IF END IF IF cwauditingflag = 1 THEN rslt = 0 arg_msg = "单据已经总账审核" GOTO ext END IF UPDATE u_outware SET cwauditingflag = 1, cwauditingdate = getdate(), cwauditingrep = :publ_operator WHERE ( u_outware.outwareid = :arg_billid ) AND ( u_outware.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 Return (rslt) end function public function integer c_audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg); Int rslt = 1,cnt = 0 IF arg_billid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF cwauditingflag = 0 THEN rslt = 0 arg_msg = "单据没有总账审核" GOTO ext END IF UPDATE u_outware SET cwauditingflag = 0, cwauditingdate =null, cwauditingrep = '' WHERE ( u_outware.outwareid = :arg_billid ) AND ( u_outware.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 Return (rslt) end function public function integer p_update_cost (ref s_outwaremx arg_s_mx, ref decimal arg_ref_costamt, ref decimal arg_ref_costamt_notax, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_cost, lde_wareamt,lde_noallocqty Int li_mtrlorigin Dec lde_newprice Decimal ld_cost_notax, lde_wareamt_notax SELECT cost, wareamt, noallocqty,cost_notax,wareamt_notax INTO :ld_cost, :lde_wareamt,:lde_noallocqty,:ld_cost_notax,:lde_wareamt_notax FROM u_mtrlware WHERE scid = :scid AND storageid = :storageid AND mtrlwareid = :arg_s_mx.mtrlwareid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询'+arg_s_mx.mtrlcode+'库存成本价失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF arg_ref_costamt = Round(ld_cost * arg_s_mx.qty ,2) arg_ref_costamt_notax = Round(ld_cost_notax * arg_s_mx.qty ,2) IF thflag = 0 THEN //修正全部出仓时库存金额还有小数 //修正部分出仓时库存金额小于本次出仓金额 IF lde_noallocqty = arg_s_mx.qty or arg_ref_costamt > lde_wareamt THEN //IF lde_noallocqty = arg_s_mx.qty THEN arg_ref_costamt = lde_wareamt IF arg_s_mx.qty <> 0 THEN ld_cost = Round(lde_wareamt / arg_s_mx.qty,sys_option_cost_dec) END IF ELSE ld_cost = Round(ld_cost,sys_option_cost_dec) END IF //修正不含税成本价 IF lde_noallocqty = arg_s_mx.qty or arg_ref_costamt_notax > lde_wareamt_notax THEN arg_ref_costamt_notax = lde_wareamt_notax IF arg_s_mx.qty <> 0 THEN ld_cost_notax = Round(lde_wareamt_notax / arg_s_mx.qty,sys_option_cost_dec) END IF ELSE ld_cost_notax = Round(ld_cost_notax,sys_option_cost_dec) END IF END IF //如果系负数出仓(即进仓),成本价为0时,自制/外协取计划价; 采购取最新采购价; //继续为0时,权限判断是否能审 IF arg_s_mx.qty < 0 THEN IF ld_cost = 0 THEN SELECT mtrlorigin INTO :li_mtrlorigin FROM u_mtrldef WHERE mtrlid = :arg_s_mx.mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询'+arg_s_mx.mtrlcode+'信息失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF li_mtrlorigin = 2 THEN SELECT price INTO :lde_newprice FROM v_maxprice_sptprice_dftunit WHERE mtrlid = :arg_s_mx.mtrlid AND status = :arg_s_mx.status AND woodcode = :arg_s_mx.woodcode AND pcode = :arg_s_mx.pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN lde_newprice = 0 END IF IF IsNull(lde_newprice) THEN lde_newprice = 0 ELSE lde_newprice = f_get_planprice(arg_s_mx.mtrlid, arg_s_mx.status,arg_s_mx.woodcode,arg_s_mx.pcode,True) END IF IF lde_newprice > 0 THEN ld_cost = lde_newprice arg_ref_costamt = Round(ld_cost * arg_s_mx.qty ,2) ELSE IF Not sys_power_issuper And f_power_ind(1635) THEN arg_msg = '用户特殊权限[限制出仓单负数开单时成本价为0不能审核]限制,不能操作' rslt = 0 GOTO ext END IF END IF END IF END IF arg_s_mx.costamt = arg_ref_costamt arg_s_mx.cost = ld_cost arg_s_mx.costamt_notax = arg_ref_costamt_notax arg_s_mx.cost_notax = ld_cost_notax IF billtype = 1 Or billtype = 2 THEN UPDATE u_outwaremx SET costamt = :arg_ref_costamt, cost = :ld_cost, costamt_notax = :arg_ref_costamt_notax, cost_notax = :ld_cost_notax WHERE scid = :scid AND outwareid = :outwareid AND printid = :arg_s_mx.printid Using commit_transaction; ELSE arg_s_mx.ware_price = ld_cost arg_s_mx.ware_fprice = ld_cost / arg_s_mx.rebate arg_s_mx.ware_enprice = ld_cost / arg_s_mx.rebate / mrate arg_s_mx.price = arg_s_mx.ware_price * arg_s_mx.rate arg_s_mx.fprice = arg_s_mx.ware_fprice * arg_s_mx.rate arg_s_mx.enprice = arg_s_mx.ware_enprice * arg_s_mx.rate arg_s_mx.enamt = round(arg_s_mx.uqty * arg_s_mx.enprice * (1 + arg_s_mx.tax) * arg_s_mx.rebate, 2) //arg_s_mx.enamt_tax = arg_s_mx.ware_enprice * arg_s_mx.rate //非销售, 0 arg_s_mx.bsamt = round(arg_s_mx.uqty * arg_s_mx.price * (1 + arg_s_mx.tax) * arg_s_mx.rebate, 2) //arg_s_mx.bsamt_tax = arg_s_mx.ware_enprice * arg_s_mx.rate UPDATE u_outwaremx SET costamt = :arg_ref_costamt, cost = :ld_cost, costamt_notax = :arg_ref_costamt_notax, cost_notax = :ld_cost_notax, fprice = :ld_cost, enprice = :ld_cost, price = :ld_cost, ware_fprice = :ld_cost, ware_enprice = :ld_cost, ware_price = :ld_cost, enamt = :arg_s_mx.enamt, bsamt = :arg_s_mx.bsamt WHERE scid = :scid AND outwareid = :outwareid AND printid = :arg_s_mx.printid Using commit_transaction; END IF IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新'+arg_s_mx.mtrlcode+'出仓成本价失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer p_update_cost_fifo (ref s_outwaremx arg_s_mx, ref decimal arg_ref_costamt, ref decimal arg_ref_costamt_notax, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_cost, lde_wareamt,lde_noallocqty Int li_mtrlorigin Dec lde_newprice Decimal ld_cost_notax, lde_wareamt_notax SELECT cost, wareamt, noallocqty,cost_notax,wareamt_notax INTO :ld_cost, :lde_wareamt,:lde_noallocqty,:ld_cost_notax,:lde_wareamt_notax FROM u_mtrlware WHERE scid = :scid AND storageid = :storageid AND mtrlwareid = :arg_s_mx.mtrlwareid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询'+arg_s_mx.mtrlcode+'库存成本价失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF arg_ref_costamt = Round(ld_cost * arg_s_mx.qty ,2) arg_ref_costamt_notax = Round(ld_cost_notax * arg_s_mx.qty ,2) IF thflag = 0 THEN //修正全部出仓时库存金额还有小数 //修正部分出仓时库存金额小于本次出仓金额 IF lde_noallocqty = arg_s_mx.qty or arg_ref_costamt > lde_wareamt THEN //IF lde_noallocqty = arg_s_mx.qty THEN arg_ref_costamt = lde_wareamt IF arg_s_mx.qty <> 0 THEN ld_cost = Round(lde_wareamt / arg_s_mx.qty,sys_option_cost_dec) END IF ELSE ld_cost = Round(ld_cost,sys_option_cost_dec) END IF //修正不含税成本价 IF lde_noallocqty = arg_s_mx.qty or arg_ref_costamt_notax > lde_wareamt_notax THEN arg_ref_costamt_notax = lde_wareamt_notax IF arg_s_mx.qty <> 0 THEN ld_cost_notax = Round(lde_wareamt_notax / arg_s_mx.qty,sys_option_cost_dec) END IF ELSE ld_cost_notax = Round(ld_cost_notax,sys_option_cost_dec) END IF END IF //如果系负数出仓(即进仓),成本价为0时,自制/外协取计划价; 采购取最新采购价; //继续为0时,权限判断是否能审 IF arg_s_mx.qty < 0 THEN IF ld_cost = 0 THEN SELECT mtrlorigin INTO :li_mtrlorigin FROM u_mtrldef WHERE mtrlid = :arg_s_mx.mtrlid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询'+arg_s_mx.mtrlcode+'信息失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF li_mtrlorigin = 2 THEN SELECT price INTO :lde_newprice FROM v_maxprice_sptprice_dftunit WHERE mtrlid = :arg_s_mx.mtrlid AND status = :arg_s_mx.status AND woodcode = :arg_s_mx.woodcode AND pcode = :arg_s_mx.pcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN lde_newprice = 0 END IF IF IsNull(lde_newprice) THEN lde_newprice = 0 ELSE lde_newprice = f_get_planprice(arg_s_mx.mtrlid, arg_s_mx.status,arg_s_mx.woodcode,arg_s_mx.pcode,True) END IF IF lde_newprice > 0 THEN ld_cost = lde_newprice arg_ref_costamt = Round(ld_cost * arg_s_mx.qty ,2) ELSE IF Not sys_power_issuper And f_power_ind(1635) THEN arg_msg = '用户特殊权限[限制出仓单负数开单时成本价为0不能审核]限制,不能操作' rslt = 0 GOTO ext END IF END IF END IF END IF arg_s_mx.costamt = arg_ref_costamt arg_s_mx.cost = ld_cost arg_s_mx.costamt_notax = arg_ref_costamt_notax arg_s_mx.cost_notax = ld_cost_notax IF billtype = 1 Or billtype = 2 THEN // UPDATE u_outwaremx // SET costamt = :arg_ref_costamt, // cost = :ld_cost, // costamt_notax = :arg_ref_costamt_notax, // cost_notax = :ld_cost_notax // WHERE scid = :scid // AND outwareid = :outwareid // AND printid = :arg_s_mx.printid // Using commit_transaction; ELSE arg_s_mx.ware_price = ld_cost arg_s_mx.ware_fprice = ld_cost / arg_s_mx.rebate arg_s_mx.ware_enprice = ld_cost / arg_s_mx.rebate / mrate arg_s_mx.price = arg_s_mx.ware_price * arg_s_mx.rate arg_s_mx.fprice = arg_s_mx.ware_fprice * arg_s_mx.rate arg_s_mx.enprice = arg_s_mx.ware_enprice * arg_s_mx.rate arg_s_mx.enamt = round(arg_s_mx.uqty * arg_s_mx.enprice * (1 + arg_s_mx.tax) * arg_s_mx.rebate, 2) //arg_s_mx.enamt_tax = arg_s_mx.ware_enprice * arg_s_mx.rate //非销售, 0 arg_s_mx.bsamt = round(arg_s_mx.uqty * arg_s_mx.price * (1 + arg_s_mx.tax) * arg_s_mx.rebate, 2) //arg_s_mx.bsamt_tax = arg_s_mx.ware_enprice * arg_s_mx.rate // UPDATE u_outwaremx // SET costamt = :arg_ref_costamt, // cost = :ld_cost, // fprice = :ld_cost, // enprice = :ld_cost, // price = :ld_cost, // ware_fprice = :ld_cost, // ware_enprice = :ld_cost, // ware_price = :ld_cost, // enamt = :arg_s_mx.enamt, // bsamt = :arg_s_mx.bsamt // WHERE scid = :scid // AND outwareid = :outwareid // AND printid = :arg_s_mx.printid // Using commit_transaction; END IF // //IF commit_transaction.SQLCode <> 0 THEN // arg_msg = '更新'+arg_s_mx.mtrlcode+'出仓成本价失败,'+commit_transaction.SQLErrText // rslt = 0 // GOTO ext //END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer p_update_mtrlware (long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, long arg_storageid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_addqty, decimal arg_costamt, decimal arg_planprice, long arg_sptid, integer arg_dxflag, string arg_woodcode, string arg_pcode, ref string arg_msg, decimal arg_costamt_notax);Int rslt = 1 Long ls_newid Decimal ld_cost,ld_cost_notax Decimal arg_qty_temp Decimal arg_addqty_temp Decimal arg_costamt_temp Decimal ld_cost_temp //sys_option_noallocaddqty仓审进出仓辅数 0-考虑辅数 1-不考虑辅数 20190107 IF sys_option_noallocaddqty <>0 then arg_addqty = 0 END IF IF billtype = 12 Or billtype = 15 THEN UPDATE u_mtrlware SET noallocqty = noallocqty - :arg_qty , noallocaddqty = noallocaddqty - :arg_addqty , wareamt = wareamt - :arg_costamt, wareamt_notax = wareamt_notax - :arg_costamt_notax, cost = case noallocqty - :arg_qty when 0 then cost else round((wareamt - :arg_costamt)/(noallocqty - :arg_qty),:sys_option_cost_dec) END, cost_notax = case noallocqty - :arg_qty when 0 then cost_notax else round((wareamt_notax - :arg_costamt_notax)/(noallocqty - :arg_qty),:sys_option_cost_dec) END WHERE ( mtrlwareid = :arg_mtrlwareid ) AND ( scid = :scid ) Using commit_transaction ; ELSE UPDATE u_mtrlware SET noallocqty = noallocqty - :arg_qty , noallocaddqty = noallocaddqty - :arg_addqty , wareamt = wareamt - :arg_costamt, wareamt_notax = wareamt_notax - :arg_costamt_notax, cost = case noallocqty - :arg_qty when 0 then cost else round((wareamt - :arg_costamt)/(noallocqty - :arg_qty),:sys_option_cost_dec) END , cost_notax = case noallocqty - :arg_qty when 0 then cost_notax else round((wareamt_notax - :arg_costamt_notax)/(noallocqty - :arg_qty),:sys_option_cost_dec) END, outdate = getdate() WHERE ( mtrlwareid = :arg_mtrlwareid ) AND ( scid = :scid ) Using commit_transaction ; END IF IF commit_transaction.SQLCode = 0 THEN IF commit_transaction.SQLNRows = 0 THEN Long ll_count SELECT count(*) INTO :ll_count FROM u_mtrlware Where ( mtrlwareid = :arg_mtrlwareid ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "编码["+arg_mtrlcode+"]查询库存信息操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF ll_count = 0 And arg_qty < 0 And arg_mtrlwareid > 0 THEN ls_newid = arg_mtrlwareid arg_qty_temp = Abs(arg_qty) arg_addqty_temp = Abs(arg_addqty) arg_costamt_temp = Abs(arg_costamt) ELSE ls_newid = f_sys_scidentity(scid,"u_mtrlware","mtrlwareid",arg_msg,False,commit_transaction) IF ls_newid <= 0 THEN rslt = 0 GOTO ext END IF arg_qty_temp = arg_qty arg_addqty_temp = arg_addqty arg_costamt_temp = arg_costamt END IF ld_cost = Abs(Round(arg_costamt/arg_qty,sys_option_cost_dec)) ld_cost_notax = Abs(Round(arg_costamt_notax /arg_qty,sys_option_cost_dec)) INSERT INTO u_mtrlware (scid, mtrlwareid, mtrlid, storageid, plancode, status, noallocqty, noallocaddqty, allocqty, wareamt, planprice, sptid, dxflag, woodcode, pcode, cost, cost_notax) VALUES ( :scid, :ls_newid, :arg_mtrlid, :arg_storageid, :arg_plancode, :arg_status, :arg_qty_temp, :arg_addqty_temp, 0, :arg_costamt_temp, :arg_planprice, :arg_sptid, :arg_dxflag, :arg_woodcode, :arg_pcode, :ld_cost, :ld_cost_notax) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "编码["+arg_mtrlcode+"]库存建立操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF ELSE String or_err_part = 'create rule' rslt = 0 IF Pos(Lower(commit_transaction.SQLErrText),"noallocqty") > 0 THEN arg_msg = "编码["+arg_mtrlcode+"]同仓库内同批号没有足够的库存支持冲减" + '需求数 ' + String(Round(arg_qty,2)) ELSEIF Pos(Lower(commit_transaction.SQLErrText),"noallocaddqty") > 0 THEN arg_msg = "编码["+arg_mtrlcode+"]同仓库内同批号没有足够的库存辅数支持冲减" ELSEIF Pos(Lower(commit_transaction.SQLErrText),"cost") > 0 THEN arg_msg = "编码["+arg_mtrlcode+"]库存金额不足够支持冲减" ELSE arg_msg = "编码["+arg_mtrlcode+"]库存更新操作失败"+"~n"+commit_transaction.SQLErrText END IF GOTO ext END IF //Int sys_option_check_mtrware_amt= 0 // 282 限制仓库库存表的库存金额不能为负数 //IF sys_option_check_mtrware_amt = 1 THEN // Decimal dec_wareamt // dec_wareamt = 0 // SELECT wareamt // INTO :dec_wareamt // FROM u_mtrlware // WHERE ( mtrlwareid = :arg_mtrlwareid ) AND // ( scid = :scid ) Using commit_transaction ; // // // IF dec_wareamt < 0 THEN // rslt = 0 // arg_msg = "编码["+arg_mtrlcode+"] 系统选项282限制库存金额不能为负数！"+"~n"+commit_transaction.SQLErrText // GOTO ext // END IF // // //END IF //-----------------------------------更新结存 Decimal ld_pypkqty,ld_pypkaddqty Decimal ld_saleoutqty,ld_saleoutamt,ld_saleoutaddqty Decimal ld_saleoutqty_th,ld_saleoutamt_th,ld_saleoutaddqty_th Decimal ld_cpoutqty,ld_cpoutamt,ld_cpoutaddqty Decimal ld_jgoutqty,ld_jgoutamt,ld_jgoutaddqty Decimal ld_dioutqty,ld_dioutamt,ld_dioutaddqty Decimal ld_mvoutqty,ld_mvoutamt,ld_mvoutaddqty Decimal ld_otoutqty,ld_otoutamt,ld_otoutaddqty Decimal ld_pkoutqty,ld_pkoutamt,ld_pkoutaddqty Decimal ld_saleoutamt_th_notax,ld_saleoutamt_notax Decimal ld_cpoutamt_notax,ld_jgoutamt_notax,ld_otoutamt_notax Decimal ld_pkoutamt_notax,ld_mvoutamt_notax,ld_dioutamt_notax CHOOSE CASE billtype CASE 1 IF thflag = 1 THEN ld_saleoutqty_th = Abs(arg_qty) ld_saleoutaddqty_th = Abs(arg_addqty) ld_saleoutamt_th = Abs(arg_costamt) ld_saleoutamt_th_notax = Abs(arg_costamt_notax) ld_saleoutqty = 0 ld_saleoutaddqty = 0 ld_saleoutamt = 0 ld_saleoutamt_notax = 0 ELSE ld_saleoutqty = arg_qty ld_saleoutaddqty = arg_addqty ld_saleoutamt = arg_costamt ld_saleoutamt_notax = arg_costamt_notax END IF CASE 3 ld_cpoutqty = arg_qty ld_cpoutaddqty = arg_addqty ld_cpoutamt = arg_costamt ld_cpoutamt_notax = arg_costamt_notax CASE 4 ld_jgoutqty = arg_qty ld_jgoutaddqty = arg_addqty ld_jgoutamt = arg_costamt ld_jgoutamt_notax = arg_costamt_notax CASE 8 ld_otoutqty = arg_qty ld_otoutaddqty = arg_addqty ld_otoutamt = arg_costamt ld_otoutamt_notax = arg_costamt_notax CASE 9 ld_pkoutqty = arg_qty ld_pkoutaddqty = arg_addqty ld_pkoutamt = arg_costamt ld_pkoutamt_notax = arg_costamt_notax ld_pypkqty = arg_qty CASE 12 ld_mvoutqty = arg_qty ld_mvoutaddqty = arg_addqty ld_mvoutamt = arg_costamt ld_mvoutamt_notax = arg_costamt_notax CASE 15 ld_dioutqty = arg_qty ld_dioutaddqty = arg_addqty ld_dioutamt = arg_costamt ld_dioutamt_notax = arg_costamt_notax END CHOOSE UPDATE u_warebalc SET desqty = desqty + :arg_qty , desaddqty = desaddqty + :arg_addqty , desamt = desamt + :arg_costamt, desamt_notax = desamt_notax + :arg_costamt_notax, balcqty = balcqty - :arg_qty, balcaddqty = balcaddqty - :arg_addqty, balcamt = balcamt - :arg_costamt, balcamt_notax = balcamt_notax - :arg_costamt_notax, pypk = pypk - :ld_pypkqty, pypkaddqty = pypkaddqty - :ld_pypkaddqty, saleoutqty = saleoutqty + :ld_saleoutqty, saleoutaddqty = saleoutaddqty + :ld_saleoutaddqty, saleoutamt = saleoutamt + :ld_saleoutamt, saleoutamt_notax = saleoutamt_notax + :ld_saleoutamt_notax, saleoutqty_th = saleoutqty_th+:ld_saleoutqty_th, saleoutaddqty_th = saleoutaddqty_th + :ld_saleoutaddqty_th, saleoutamt_th = saleoutamt_th+ :ld_saleoutamt_th, saleoutamt_th_notax = saleoutamt_th_notax + :ld_saleoutamt_th_notax, cpoutqty = cpoutqty + :ld_cpoutqty, cpoutaddqty = cpoutaddqty + :ld_cpoutaddqty, cpoutamt = cpoutamt + :ld_cpoutamt, cpoutamt_notax = cpoutamt_notax + :ld_cpoutamt_notax, jgoutqty = jgoutqty + :ld_jgoutqty, jgoutaddqty = jgoutaddqty + :ld_jgoutaddqty, jgoutamt = jgoutamt + :ld_jgoutamt, jgoutamt_notax = jgoutamt_notax + :ld_jgoutamt_notax, otoutqty = otoutqty + :ld_otoutqty, otoutaddqty = otoutaddqty + :ld_otoutaddqty, otoutamt = otoutamt + :ld_otoutamt, otoutamt_notax = otoutamt_notax + :ld_otoutamt_notax, mvoutqty = mvoutqty + :ld_mvoutqty, mvoutaddqty = mvoutaddqty + :ld_mvoutaddqty, mvoutamt = mvoutamt + :ld_mvoutamt, mvoutamt_notax = mvoutamt_notax + :ld_mvoutamt_notax, dioutqty = dioutqty + :ld_dioutqty, dioutaddqty = dioutaddqty + :ld_dioutaddqty, dioutamt = dioutamt + :ld_dioutamt, dioutamt_notax = dioutamt_notax + :ld_dioutamt_notax, pkoutqty = pkoutqty + :ld_pkoutqty, pkoutaddqty = pkoutaddqty + :ld_pkoutaddqty, pkoutamt = pkoutamt + :ld_pkoutamt, pkoutamt_notax = pkoutamt_notax + :ld_pkoutamt_notax WHERE (scid = :scid) AND ( balcdateint = 0 ) AND ( mtrlid = :arg_mtrlid ) AND ( storageid = :arg_storageid ) AND ( status = :arg_status ) AND ( woodcode = :arg_woodcode) AND ( pcode = :arg_pcode) AND (sptid_cusid = :arg_sptid) Using commit_transaction ; IF commit_transaction.SQLCode = 0 THEN IF commit_transaction.SQLNRows = 0 THEN INSERT INTO u_warebalc ( balcdateint, sptid_cusid, mtrlid, storageid, bgqty, bgamt, incqty, incaddqty, incamt, desqty, desaddqty, desamt, balcqty, balcaddqty, balcamt, pypk, pypkaddqty, status, woodcode, pcode, scid , saleoutqty, saleoutaddqty, saleoutamt, cpoutqty, cpoutaddqty, cpoutamt, jgoutqty, jgoutaddqty, jgoutamt, dioutqty, dioutaddqty, dioutamt, mvoutqty, mvoutaddqty, mvoutamt, otoutqty, otoutaddqty, otoutamt, pkoutqty, pkoutaddqty, pkoutamt, saleoutqty_th, saleoutaddqty_th, saleoutamt_th, desamt_notax, balcamt_notax, saleoutamt_notax, saleoutamt_th_notax, cpoutamt_notax, jgoutamt_notax, otoutamt_notax, mvoutamt_notax, dioutamt_notax, pkoutamt_notax) VALUES ( 0, :arg_sptid, :arg_mtrlid, :arg_storageid, 0, 0, 0, 0, 0, :arg_qty, :arg_addqty, :arg_costamt, 0 - :arg_qty, 0 - :arg_addqty, 0 - :arg_costamt, 0 - :ld_pypkqty, 0 - :ld_pypkaddqty, :arg_status, :arg_woodcode, :arg_pcode, :scid, :ld_saleoutqty, :ld_saleoutaddqty, :ld_saleoutamt, :ld_cpoutqty, :ld_cpoutaddqty, :ld_cpoutamt, :ld_jgoutqty, :ld_jgoutaddqty, :ld_jgoutamt, :ld_dioutqty, :ld_dioutaddqty, :ld_dioutamt, :ld_mvoutqty, :ld_mvoutaddqty, :ld_mvoutamt, :ld_otoutqty, :ld_otoutaddqty, :ld_otoutamt, :ld_pkoutqty, :ld_pkoutaddqty, :ld_pkoutamt, :ld_saleoutqty_th, :ld_saleoutaddqty_th, :ld_saleoutamt_th, :arg_costamt_notax, :arg_costamt_notax, :ld_saleoutamt_notax, :ld_saleoutamt_th_notax, :ld_cpoutamt_notax, :ld_jgoutamt_notax, :ld_otoutamt_notax, :ld_mvoutamt_notax, :ld_dioutamt_notax, :ld_pkoutamt_notax) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "编码["+arg_mtrlcode+"]结存建立操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF ELSE rslt = 0 or_err_part = 'column insert or update conflicts with a rule imposed by a previous create rule statement' IF commit_transaction.SQLCode = 513 Or Pos(Lower(commit_transaction.SQLErrText),or_err_part) > 0 THEN arg_msg = "编码["+arg_mtrlcode+"]同仓库内同批号没有足够的结存支持冲减" ELSE arg_msg = "编码["+arg_mtrlcode+"]结存更新操作失败"+"~n"+commit_transaction.SQLErrText END IF GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK; END IF RETURN rslt end function on uo_outware.create call super::create TriggerEvent( this, "constructor" ) end on on uo_outware.destroy TriggerEvent( this, "destructor" ) call super::destroy end on