$PBExportHeader$uo_inware_wfjg.sru forward global type uo_inware_wfjg from nonvisualobject end type end forward global type uo_inware_wfjg from nonvisualobject end type global uo_inware_wfjg uo_inware_wfjg type variables Public ProtectedWrite Long scid Public ProtectedWrite Long inwareid Public ProtectedWrite String inwarecode Public ProtectedWrite Int billtype Public ProtectedWrite DateTime opdate Public ProtectedWrite String opemp Public ProtectedWrite DateTime moddate Public ProtectedWrite String modemp Public ProtectedWrite Int flag Public ProtectedWrite Int balcflag Public ProtectedWrite DateTime auditingdate Public ProtectedWrite String auditingrep Public ProtectedWrite Decimal jgsum_amt Public ProtectedWrite Decimal tax_amt Public ProtectedWrite Int secflag Public ProtectedWrite DateTime secauditingdate Public ProtectedWrite String secauditingrep Public ProtectedWrite Long ctmint Long relid Long storageid DateTime indate DateTime plandate String inrep String part String dscrp Long sptid String sptname Int dxflag Int thflag Decimal otheramt Long relint_1 Long relint_2 Long relint_3 String relstr_1 String relstr_2 String relstr_3 decimal dec_round = 10 //计算发出明细保留小数位, 取自外协订单界面 Boolean if_getid_ture = True Transaction commit_transaction //数据commit事务 s_wfjgmx_in_aft inwaremx[] //明细结构数组 s_wfjgmx_in_bef inwaremx_bef[] //明细结构数组 Long it_mxbt = 0 //明细结构数组末指针 Long it_mxbt_bef = 0 //明细结构数组末指针 Boolean it_newbegin = False //新建标志 Boolean it_updatebegin = False //修改标志 Int uo_option_wfjg_outmx,uo_option_wfjg_sptprice_sec Int uo_option_check_wfjgin,uo_option_wfjg_zero Int uo_option_2unit String uo_option_change_status,uo_option_change_woodcode,uo_option_change_pcode Int uo_option_ifovertask Int uo_option_wfjg_th_ifnotorder int uo_option_cost_notax end variables forward prototypes public function integer save (boolean arg_ifcommit, ref string arg_msg) public function integer getinfo (long arg_scid, long arg_inwareid, ref string arg_msg) public function integer auditing (boolean arg_ifcommit, ref string arg_msg) public function integer del (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit) public function integer add_dscrp (long arg_scid, long arg_inwareid, 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_inwareid, ref string arg_msg) public function integer p_reset () public function integer p_create_inware (boolean arg_ifcommit, ref string arg_msg) public function integer p_destroy_inware (boolean arg_ifcommit, ref string arg_msg) public function integer secauditing (boolean arg_ifcommit, ref string arg_msg) public function integer c_secauditing (boolean arg_ifcommit, ref string arg_msg) public function integer newbegin (long arg_scid, integer arg_billtype, ref string arg_msg) public function integer updatebegin (long arg_scid, long arg_inwareid, integer arg_billtype, ref string arg_msg) public function integer p_update_cost (long arg_mtrlwareid, string arg_mtrlcode, long arg_printid, ref decimal arg_ref_cost, ref string arg_msg, boolean arg_ifcommit) public function integer acceptmx (long arg_printid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_uqty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, ref string arg_msg, decimal arg_jgprice, long arg_relid, integer arg_ifrel, string arg_woodcode, string arg_pcode, long arg_cusid_sptid, string arg_unit, decimal arg_rate, decimal arg_qty, long arg_storageid, string arg_jgdscrp, long arg_relprintid, integer arg_mxtype, decimal arg_checkqty, string arg_result, long arg_relbillid, long arg_relbillprintid, string arg_mtrlcuscode, string arg_location, decimal arg_taxrate) public function integer acceptmx_bef (long arg_mtrlwareid, decimal arg_qty, string arg_mxdscrp, long arg_printid, string arg_unit, decimal arg_uqty, decimal arg_rate, long arg_relprintid, ref string arg_msg) public function integer acceptmx (s_wfjgmx_in_aft s_mx, ref string arg_msg) public function integer acceptmx_bef (s_wfjgmx_in_bef s_mx, ref string arg_msg) public function integer p_create_wfjgorder (string arg_opemp, boolean arg_ifcommit, ref string arg_msg) public function integer p_destroy_wfjgorder (boolean arg_ifcommit, ref string arg_msg) public function integer uof_check_sptpdb_audit (long arg_sptid, ref string arg_msg) public function integer mod_price (long arg_scid, long arg_inwareid, long arg_printid, decimal arg_fprice, decimal arg_jgprice, decimal arg_taxrate, decimal arg_rebate, ref string arg_msg, boolean arg_ifcommit) end prototypes public function integer save (boolean arg_ifcommit, ref string arg_msg);Integer rslt = 1,cnt = 0,i, j DateTime server_dt Long ls_newid String ls_sccode IF uo_option_wfjg_outmx = -1000 THEN rslt = 0 arg_msg = '选项:[086]外协订单,收货单必须有外协商库存明细,读取初始默认值失败,操作取消!' GOTO ext END IF IF IsNull(relid) THEN relid = 0 IF IsNull(storageid) THEN storageid = 0 IF IsNull(inrep) THEN inrep = '' IF IsNull(dscrp) THEN dscrp = '' IF IsNull(part) THEN part = '' IF IsNull(sptid) THEN sptid = 0 IF IsNull(sptname) THEN sptname = '' IF IsNull(dxflag) THEN dxflag = 0 IF IsNull(thflag) THEN thflag = 0 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(relstr_1) THEN relstr_1 = '' IF IsNull(relstr_2) THEN relstr_2 = '' IF IsNull(relstr_3) THEN relstr_3 = '' IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以提交" GOTO ext END IF SELECT Top 1 getdate() Into :server_dt From u_user Using commit_transaction ; //取得系统时间,借用操作员表 IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF CHOOSE CASE billtype CASE 4,5,6 IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空 rslt = 0 IF billtype = 4 Or billtype = 5 THEN arg_msg = "没有正确进仓内容" ELSE arg_msg = "没有正确计费内容" END IF GOTO ext END IF IF billtype = 4 Or billtype = 5 THEN IF uo_option_wfjg_outmx = 1 THEN //检查收货, 必须有对应外协商库存 FOR i = 1 To it_mxbt FOR j = 1 To it_mxbt_bef IF inwaremx[i].printid = inwaremx_bef[j].relprintid THEN GOTO _next_check END IF NEXT rslt = 0 arg_msg = '收货明细第'+String(inwaremx[i].printid)+'行,没有对应的外协商库存明细,请检查' GOTO ext _next_check: NEXT //检查外协商库存, 必须有收货对应 FOR j = 1 To it_mxbt_bef FOR i = 1 To it_mxbt IF inwaremx[i].printid = inwaremx_bef[j].relprintid THEN GOTO _next_check2 END IF NEXT rslt = 0 arg_msg = '外协商库存明细第'+String(inwaremx_bef[j].printid)+'行,没有对应的收货明细,请检查' GOTO ext _next_check2: NEXT //必须使用有发出明细的选项 sys_option_wfjg_outmx = 1 //必须选物料清单或计划 而且 比较清单数量也必须相应; 2013-09-13 IF sys_option_wfjg_out_cmp = 1 THEN Long ll_mtrlid_in, ll_mtrlid_out Decimal lde_qty_in, lde_qty_out, lde_qty_out_pf String ls_pfcode Decimal lde_truerqqty_in_pf, lde_rqqty_out_pf Boolean lb_find = False decimal lde_sonscale //检查收货, 必须有对应外协商库存 FOR i = 1 To it_mxbt //收货 ll_mtrlid_in = inwaremx[i].mtrlid lde_qty_in = abs(inwaremx[i].qty) ls_pfcode = "[常规]" //inwaremx[i].pfcode lb_find = False FOR j = 1 To it_mxbt_bef //外协商库存 IF inwaremx[i].printid = inwaremx_bef[j].relprintid THEN ll_mtrlid_out = inwaremx_bef[j].mtrlid lde_qty_out = abs(inwaremx_bef[j].qty) lde_qty_out_pf = 0 lb_find = True IF ll_mtrlid_in = ll_mtrlid_out THEN lde_qty_out_pf = lde_qty_in //返工类型, 发出物料和收货物料为同一种的,只检查数量关系 lde_sonscale = 1 ELSE IF inwaremx[i].relid > 0 THEN //查主计划 SELECT top 1 u_order_wfjgMx.qty INTO :lde_truerqqty_in_pf FROM u_order_wfjgMx WHERE ( scid = :scid) AND ( wfjgID = :inwaremx[i].relid) AND ( printid = :inwaremx[i].relprintid) AND ( mtrlid = :ll_mtrlid_in ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细行:'+String(inwaremx[i].printid)+',查询对应的外协订单收货结果资料失败,'+commit_transaction.SQLErrText GOTO ext END IF SELECT top 1 qty INTO :lde_rqqty_out_pf FROM u_order_wfjgmx_out_mx WHERE ( scid = :scid) AND ( wfjgid = :inwaremx[i].relid) AND ( relprintid = :inwaremx[i].relprintid ) And ( mtrlid = :ll_mtrlid_out ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细行:'+String(inwaremx[i].printid)+',对应发出明细行:'+String(inwaremx_bef[j].printid)+',查询对应的外协订单资料失败,'+commit_transaction.SQLErrText GOTO ext END IF lde_qty_out_pf = Round(lde_qty_in * ( lde_rqqty_out_pf / lde_truerqqty_in_pf), dec_round) lde_sonscale = lde_rqqty_out_pf / lde_truerqqty_in_pf ELSE //查BOM SELECT :lde_qty_in * u_prdpf.Sonscale / (1 - u_PrdPF.sonloss) + u_PrdPF.SonDECLoss, u_prdpf.Sonscale INTO :lde_qty_out_pf, :lde_sonscale FROM u_PrdPF WHERE ( u_PrdPF.mtrlid = :ll_mtrlid_in ) AND ( u_PrdPF.sonmtrlid = :ll_mtrlid_out ) And ( u_prdpf.pfcode = :ls_pfcode ) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '收货明细行:'+String(inwaremx[i].printid)+',对应发出明细行:'+String(inwaremx_bef[j].printid)+',查询对应的物料清单资料失败,'+commit_transaction.SQLErrText GOTO ext END IF lde_qty_out_pf = Round(lde_qty_out_pf, dec_round) END IF END IF IF lde_qty_out <> lde_qty_out_pf THEN Decimal lde_tmprate if lde_sonscale = 1 then lde_tmprate = 0 else //临时,比例在99%以上的算正确 IF lde_qty_out > lde_qty_out_pf THEN lde_tmprate = lde_qty_out_pf / lde_qty_out ELSE lde_tmprate = lde_qty_out / lde_qty_out_pf END IF end if IF lde_tmprate < 0.99 THEN rslt = 0 arg_msg = '系统选项[086,253]限制收货明细与供应商库存明细必须跟物料清单或主计划运算对应~r~n收货明细行'+String(inwaremx[i].printid)+',对应发出明细行:'+String(inwaremx_bef[j].printid)+',数量比例与限制不相等,请检查' GOTO ext END IF END IF // IF lde_qty_out <> lde_qty_out_pf THEN // rslt = 0 // arg_msg = '系统选项[086,253]限制收货明细与供应商库存明细必须跟物料清单或主计划运算对应~r~n收货明细行'+String(inwaremx[i].printid)+',对应发出明细行:'+String(inwaremx_bef[j].printid)+',数量比例与限制不相等,请检查' // GOTO ext // END IF END IF NEXT IF Not lb_find THEN rslt = 0 arg_msg = '系统选项[086,253]限制收货明细与供应商库存明细必须跟物料清单或主计划运算对应~r~n收货明细行'+String(inwaremx[i].printid)+',找不到对应的发出明细或供应商库存ID不存在,请检查' GOTO ext END IF NEXT END IF END IF END IF //billtype CASE 9 IF it_mxbt_bef = 0 THEN //如果输入物料资料错则已经清空 rslt = 0 arg_msg = "没有正确进仓内容" GOTO ext END IF END CHOOSE IF f_check_inoutdate(0,indate,False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF billtype <> 6 THEN IF f_check_inoutdate_wfjg(scid,sptid,indate,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF plandate = f_findspt_paydate(sptid,indate) SELECT name INTO :sptname FROM u_spt Where sptid = :sptid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,供应商资料" GOTO ext END IF String ls_msg_loca Long ll_cnt_loca Int li_mustloca IF billtype = 4 And thflag = 0 THEN ll_cnt_loca = 0 FOR i = 1 To it_mxbt SELECT mustloca INTO :li_mustloca FROM u_storage WHERE storageid = :inwaremx[i].storageid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "第"+String(i)+"行,查询仓库操作失败,"+commit_transaction.SQLErrText GOTO ext END IF IF li_mustloca = 1 THEN IF Trim(inwaremx[i].Location) = '' THEN ll_cnt_loca++ IF ll_cnt_loca <= 10 THEN IF Trim(ls_msg_loca) = '' THEN ls_msg_loca = ls_msg_loca + String(i) ELSE ls_msg_loca = ls_msg_loca + ','+String(i) END IF END IF END IF END IF NEXT IF ll_cnt_loca > 0 THEN rslt = 0 IF ll_cnt_loca <= 10 THEN arg_msg = '仓库属性已设为仓位必填'+'~r~n'+'明细中第'+ls_msg_loca+'行没有填仓位,请检查' ELSE arg_msg = '仓库属性已设为仓位必填'+'~r~n'+'其中第'+ls_msg_loca+'等'+String(ll_cnt_loca)+'行明细没有填仓位,请详细检查' END IF GOTO ext END IF END IF ////////////////////////////////////////////// //开始区分:新建/更新 处理 IF inwareid = 0 THEN //新建 ls_newid = f_sys_scidentity(scid,"ow_wfjg_in","inwareid",arg_msg,True,id_sqlca) 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 //取得新单据编号 IF thflag = 0 THEN IF billtype = 4 THEN inwarecode = getid(scid,ls_sccode + 'WI',Date(server_dt),if_getid_ture,commit_transaction) ELSEIF billtype = 5 THEN inwarecode = getid(scid,ls_sccode + 'SI',Date(server_dt),if_getid_ture,commit_transaction) ELSEIF billtype = 6 THEN inwarecode = getid(scid,ls_sccode + 'MF',Date(server_dt),if_getid_ture,commit_transaction) ELSEIF billtype = 9 THEN inwarecode = getid(scid,ls_sccode + 'WK',Date(server_dt),if_getid_ture,commit_transaction) END IF ELSE IF billtype = 4 THEN inwarecode = getid(scid,ls_sccode + 'WT',Date(server_dt),if_getid_ture,commit_transaction) ELSE inwarecode = getid(scid,ls_sccode + 'ST',Date(server_dt),if_getid_ture,commit_transaction) END IF END IF IF inwarecode = "err" THEN inwarecode = '' rslt = 0 arg_msg = "无法获取进仓单编号"+"~n"+commit_transaction.SQLErrText GOTO ext END IF INSERT INTO ow_wfjg_in ( scid, inwareid, inwarecode, billtype, relid, storageid, indate, plandate, inrep, part, dscrp, sptid, sptname, thflag, dxflag, otheramt, opdate, opemp, relint_1, relint_2, relint_3, relstr_1, relstr_2, relstr_3) VALUES ( :scid, :ls_newid, :inwarecode, :billtype, :relid, :storageid, :indate, :plandate, :inrep, :part, :dscrp, :sptid, :sptname, :thflag, :dxflag, :otheramt, :server_dt, :publ_operator, :relint_1, :relint_2, :relint_3, :relstr_1, :relstr_2, :relstr_3) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //读取新inwareid inwareid = ls_newid FOR i = 1 To it_mxbt INSERT INTO ow_wfjgmx_in_aft (scid, inwareid, printid, mtrlid, plancode, status, qty, fprice, rebate, price, planprice, mxdscrp, jgprice, relid, ifrel, woodcode, relcode, pcode, sptid_cusid, cost, sptmtrlname, unit, rate, uprice, uqty, bootqty, noauditqty, storageid, jgdscrp, relprintid, mxtype, checkqty, result, relbillid, relbillprintid, relbillcode, mtrlcuscode, location, taxrate) VALUES (:scid, :ls_newid, :inwaremx[i].printid, :inwaremx[i].mtrlid, :inwaremx[i].plancode, :inwaremx[i].status, :inwaremx[i].qty, :inwaremx[i].fprice, :inwaremx[i].rebate, :inwaremx[i].price, :inwaremx[i].planprice, :inwaremx[i].mxdscrp, :inwaremx[i].jgprice, :inwaremx[i].relid, :inwaremx[i].ifrel, :inwaremx[i].woodcode, :inwaremx[i].relcode, :inwaremx[i].pcode, :inwaremx[i].sptid, :inwaremx[i].cost, :inwaremx[i].sptmtrlname, :inwaremx[i].unit, :inwaremx[i].rate, :inwaremx[i].uprice, :inwaremx[i].uqty, :inwaremx[i].bootqty, :inwaremx[i].noauditqty, :inwaremx[i].storageid, :inwaremx[i].jgdscrp, :inwaremx[i].relprintid, :inwaremx[i].mxtype, :inwaremx[i].checkqty, :inwaremx[i].result, :inwaremx[i].relbillid, :inwaremx[i].relbillprintid, :inwaremx[i].relbillcode, :inwaremx[i].mtrlcuscode, :inwaremx[i].Location, :inwaremx[i].taxrate) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN inwareid = 0 //还原inwareid rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT FOR i = 1 To it_mxbt_bef INSERT INTO ow_wfjgmx_in_bef (scid, inwareid, mtrlwareid, mtrlid, status, woodcode, pcode, plancode, qty, fprice, printid, mxdscrp, unit, uqty, rate, relprintid) VALUES ( :scid, :ls_newid, :inwaremx_bef[i].mtrlwareid, :inwaremx_bef[i].mtrlid, :inwaremx_bef[i].status, :inwaremx_bef[i].woodcode, :inwaremx_bef[i].pcode, :inwaremx_bef[i].plancode, :inwaremx_bef[i].qty, :inwaremx_bef[i].fprice, :inwaremx_bef[i].printid, :inwaremx_bef[i].mxdscrp, :inwaremx_bef[i].unit, :inwaremx_bef[i].uqty, :inwaremx_bef[i].rate, :inwaremx_bef[i].relprintid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN inwareid = 0 //还原inwareid rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT ELSE //////////////////////////////////////////////// //更新 UPDATE ow_wfjg_in SET billtype = :billtype, relid = :relid, storageid = :storageid, indate = :indate, plandate = :plandate, inrep = :inrep, part = :part, dscrp = :dscrp, sptid = :sptid, sptname = :sptname, thflag = :thflag, dxflag = :dxflag, otheramt = :otheramt, moddate = :server_dt, modemp = :publ_operator, relint_1 = :relint_1, relint_2 = :relint_2, relint_3 = :relint_3, relstr_1 = :relstr_1, relstr_2 = :relstr_2, relstr_3 = :relstr_3 WHERE ow_wfjg_in.inwareid = :inwareid AND ow_wfjg_in.scid = :scid And flag = 0 Using commit_transaction; IF commit_transaction.SQLCode <> 0 Or commit_transaction.SQLNRows <= 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致更新单据操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //删除原有明细 DELETE FROM ow_wfjgmx_in_aft WHERE ow_wfjgmx_in_aft.inwareid = :inwareid And ow_wfjgmx_in_aft.scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除旧有明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF FOR i = 1 To it_mxbt INSERT INTO ow_wfjgmx_in_aft (scid, inwareid, printid, mtrlid, plancode, status, qty, fprice, rebate, price, planprice, mxdscrp, jgprice, relid, ifrel, woodcode, relcode, pcode, sptid_cusid, cost, sptmtrlname, unit, rate, uprice, uqty, bootqty, noauditqty, storageid, jgdscrp, relprintid, mxtype, checkqty, result, relbillid, relbillprintid, relbillcode, mtrlcuscode, location, taxrate) VALUES (:scid, :inwareid, :inwaremx[i].printid, :inwaremx[i].mtrlid, :inwaremx[i].plancode, :inwaremx[i].status, :inwaremx[i].qty, :inwaremx[i].fprice, :inwaremx[i].rebate, :inwaremx[i].price, :inwaremx[i].planprice, :inwaremx[i].mxdscrp, :inwaremx[i].jgprice, :inwaremx[i].relid, :inwaremx[i].ifrel, :inwaremx[i].woodcode, :inwaremx[i].relcode, :inwaremx[i].pcode, :inwaremx[i].sptid, :inwaremx[i].cost, :inwaremx[i].sptmtrlname, :inwaremx[i].unit, :inwaremx[i].rate, :inwaremx[i].uprice, :inwaremx[i].uqty, :inwaremx[i].bootqty, :inwaremx[i].noauditqty, :inwaremx[i].storageid, :inwaremx[i].jgdscrp, :inwaremx[i].relprintid, :inwaremx[i].mxtype, :inwaremx[i].checkqty, :inwaremx[i].result, :inwaremx[i].relbillid, :inwaremx[i].relbillprintid, :inwaremx[i].relbillcode, :inwaremx[i].mtrlcuscode, :inwaremx[i].Location, :inwaremx[i].taxrate) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT //删除原有明细 DELETE FROM ow_wfjgmx_in_bef WHERE ow_wfjgmx_in_bef.inwareid = :inwareid And ow_wfjgmx_in_bef.scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除旧有明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF FOR i = 1 To it_mxbt_bef INSERT INTO ow_wfjgmx_in_bef (scid, inwareid, mtrlwareid, mtrlid, status, woodcode, pcode, plancode, qty, fprice, printid, mxdscrp, unit, uqty, rate, relprintid) VALUES ( :scid, :inwareid, :inwaremx_bef[i].mtrlwareid, :inwaremx_bef[i].mtrlid, :inwaremx_bef[i].status, :inwaremx_bef[i].woodcode, :inwaremx_bef[i].pcode, :inwaremx_bef[i].plancode, :inwaremx_bef[i].qty, :inwaremx_bef[i].fprice, :inwaremx_bef[i].printid, :inwaremx_bef[i].mxdscrp, :inwaremx_bef[i].unit, :inwaremx_bef[i].uqty, :inwaremx_bef[i].rate, :inwaremx_bef[i].relprintid ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF NEXT END IF it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; p_clearmx() ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer getinfo (long arg_scid, long arg_inwareid, ref string arg_msg);//getinfo(arg_scid,arg_inwareid,arg_msg) //0 失败 1成功 Int rslt = 1,i = 1,no_mxcheck = 0,j = 1,no_mxcheck_bef = 0 jgsum_amt = 0 tax_amt = 0 IF arg_inwareid <= 0 THEN rslt = 0 arg_msg = "非法进仓单唯一码" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_inwareid,arg_msg) IF rslt = 0 THEN GOTO ext //用游标读取明细 DECLARE cur_inwaermx CURSOR FOR SELECT ow_wfjgmx_in_aft.printid, ow_wfjgmx_in_aft.mtrlid, ow_wfjgmx_in_aft.plancode, ow_wfjgmx_in_aft.status, ow_wfjgmx_in_aft.qty, ow_wfjgmx_in_aft.fprice, ow_wfjgmx_in_aft.rebate, ow_wfjgmx_in_aft.price, ow_wfjgmx_in_aft.planprice, ow_wfjgmx_in_aft.mxdscrp, u_mtrldef.mtrlcode, ow_wfjgmx_in_aft.jgprice, ow_wfjgmx_in_aft.relid, ow_wfjgmx_in_aft.ifrel, ow_wfjgmx_in_aft.woodcode, ow_wfjgmx_in_aft.pcode, ow_wfjgmx_in_aft.plancode, ow_wfjgmx_in_aft.sptid_cusid, ow_wfjgmx_in_aft.cost, ow_wfjgmx_in_aft.sptmtrlname, ow_wfjgmx_in_aft.unit, ow_wfjgmx_in_aft.uqty, ow_wfjgmx_in_aft.uprice, ow_wfjgmx_in_aft.rate, ow_wfjgmx_in_aft.bootqty, ow_wfjgmx_in_aft.noauditqty, ow_wfjgmx_in_aft.storageid, ow_wfjgmx_in_aft.jgdscrp , ow_wfjgmx_in_aft.relprintid , ow_wfjgmx_in_aft.mxtype, ow_wfjgmx_in_aft.checkqty, ow_wfjgmx_in_aft.result, ow_wfjgmx_in_aft.relbillid, ow_wfjgmx_in_aft.relbillprintid, ow_wfjgmx_in_aft.relbillcode, ow_wfjgmx_in_aft.mtrlcuscode, ow_wfjgmx_in_aft.location, ow_wfjgmx_in_aft.taxrate FROM ow_wfjgmx_in_aft,u_mtrldef,ow_wfjg_in WHERE ow_wfjg_in.inwareid = :arg_inwareid AND ow_wfjgmx_in_aft.mtrlid = u_mtrldef.mtrlid AND ow_wfjg_in.scid = :arg_scid AND ow_wfjg_in.inwareid = ow_wfjgmx_in_aft.inwareid AND ow_wfjg_in.scid = ow_wfjgmx_in_aft.scid USING commit_transaction; OPEN cur_inwaermx; FETCH cur_inwaermx INTO :inwaremx[i].printid,:inwaremx[i].mtrlid,:inwaremx[i].plancode, :inwaremx[i].status,:inwaremx[i].qty,:inwaremx[i].fprice, :inwaremx[i].rebate,:inwaremx[i].price,:inwaremx[i].planprice, :inwaremx[i].mxdscrp,:inwaremx[i].mtrlcode,:inwaremx[i].jgprice, :inwaremx[i].relid,:inwaremx[i].ifrel,:inwaremx[i].woodcode, :inwaremx[i].pcode,:inwaremx[i].plancode,:inwaremx[i].sptid, :inwaremx[i].cost,:inwaremx[i].sptmtrlname,:inwaremx[i].unit, :inwaremx[i].uqty,:inwaremx[i].uprice,:inwaremx[i].rate, :inwaremx[i].bootqty,:inwaremx[i].noauditqty, :inwaremx[i].storageid,:inwaremx[i].jgdscrp, :inwaremx[i].relprintid,:inwaremx[i].mxtype, :inwaremx[i].checkqty,:inwaremx[i].result, :inwaremx[i].relbillid,:inwaremx[i].relbillprintid, :inwaremx[i].relbillcode,:inwaremx[i].mtrlcuscode, :inwaremx[i].location,:inwaremx[i].taxrate; inwaremx[i].dxflag = dxflag DO WHILE commit_transaction.SQLCode = 0 jgsum_amt = jgsum_amt + round((inwaremx[i].uqty * inwaremx[i].jgprice * inwaremx[i].rebate) / (1 + inwaremx[i].taxrate),2) //计算单据总金额 tax_amt = tax_amt + round((inwaremx[i].uqty * inwaremx[i].jgprice * inwaremx[i].rebate) / (1 + inwaremx[i].taxrate) * inwaremx[i].taxrate,2) i++ FETCH cur_inwaermx INTO :inwaremx[i].printid,:inwaremx[i].mtrlid,:inwaremx[i].plancode, :inwaremx[i].status,:inwaremx[i].qty,:inwaremx[i].fprice, :inwaremx[i].rebate,:inwaremx[i].price,:inwaremx[i].planprice, :inwaremx[i].mxdscrp,:inwaremx[i].mtrlcode,:inwaremx[i].jgprice, :inwaremx[i].relid,:inwaremx[i].ifrel,:inwaremx[i].woodcode, :inwaremx[i].pcode,:inwaremx[i].plancode,:inwaremx[i].sptid, :inwaremx[i].cost,:inwaremx[i].sptmtrlname,:inwaremx[i].unit, :inwaremx[i].uqty,:inwaremx[i].uprice,:inwaremx[i].rate, :inwaremx[i].bootqty,:inwaremx[i].noauditqty, :inwaremx[i].storageid,:inwaremx[i].jgdscrp, :inwaremx[i].relprintid,:inwaremx[i].mxtype, :inwaremx[i].checkqty,:inwaremx[i].result, :inwaremx[i].relbillid,:inwaremx[i].relbillprintid, :inwaremx[i].relbillcode,:inwaremx[i].mtrlcuscode, :inwaremx[i].location,:inwaremx[i].taxrate; inwaremx[i].dxflag = dxflag LOOP CLOSE cur_inwaermx; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM ow_wfjgmx_in_aft WHERE ow_wfjgmx_in_aft.inwareid = :arg_inwareid AND scid = :arg_scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,外协收货单明细数量"+commit_transaction.SQLErrText GOTO ext END IF IF i <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,外协收货单明细" GOTO ext END IF //用游标读取明细 DECLARE cur_inwaermx_bef CURSOR FOR SELECT ow_wfjgmx_in_bef.mtrlwareid, ow_wfjgmx_in_bef.printid, ow_wfjgmx_in_bef.mtrlid, ow_wfjgmx_in_bef.plancode, ow_wfjgmx_in_bef.status, ow_wfjgmx_in_bef.qty, ow_wfjgmx_in_bef.fprice, ow_wfjgmx_in_bef.mxdscrp, u_mtrldef.mtrlcode, ow_wfjgmx_in_bef.woodcode, ow_wfjgmx_in_bef.pcode, ow_wfjgmx_in_bef.plancode, ow_wfjgmx_in_bef.unit, ow_wfjgmx_in_bef.uqty, ow_wfjgmx_in_bef.rate, ow_wfjgmx_in_bef.relprintid FROM ow_wfjgmx_in_bef,u_mtrldef,ow_wfjg_in WHERE ow_wfjg_in.inwareid = :arg_inwareid AND ow_wfjgmx_in_bef.mtrlid = u_mtrldef.mtrlid AND ow_wfjg_in.scid = :arg_scid AND ow_wfjg_in.inwareid = ow_wfjgmx_in_bef.inwareid AND ow_wfjg_in.scid = ow_wfjgmx_in_bef.scid USING commit_transaction; OPEN cur_inwaermx_bef; FETCH cur_inwaermx_bef INTO :inwaremx_bef[j].mtrlwareid, :inwaremx_bef[j].printid, :inwaremx_bef[j].mtrlid,:inwaremx_bef[j].plancode, :inwaremx_bef[j].status,:inwaremx_bef[j].qty,:inwaremx_bef[j].fprice, :inwaremx_bef[j].mxdscrp, :inwaremx_bef[j].mtrlcode,:inwaremx_bef[j].woodcode, :inwaremx_bef[j].pcode,:inwaremx_bef[j].plancode, :inwaremx_bef[j].unit,:inwaremx_bef[j].uqty,:inwaremx_bef[j].rate, :inwaremx_bef[i].relprintid; DO WHILE commit_transaction.SQLCode = 0 j++ FETCH cur_inwaermx_bef INTO :inwaremx_bef[j].mtrlwareid, :inwaremx_bef[j].printid, :inwaremx_bef[j].mtrlid,:inwaremx_bef[j].plancode, :inwaremx_bef[j].status,:inwaremx_bef[j].qty,:inwaremx_bef[j].fprice, :inwaremx_bef[j].mxdscrp, :inwaremx_bef[j].mtrlcode,:inwaremx_bef[j].woodcode, :inwaremx_bef[j].pcode,:inwaremx_bef[j].plancode, :inwaremx_bef[j].unit,:inwaremx_bef[j].uqty,:inwaremx_bef[j].rate, :inwaremx_bef[i].relprintid; LOOP CLOSE cur_inwaermx_bef; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck_bef FROM ow_wfjgmx_in_bef WHERE ow_wfjgmx_in_bef.inwareid = :arg_inwareid AND scid = :arg_scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,外协收货单相关发外明细数量"+commit_transaction.SQLErrText GOTO ext END IF IF j <> (no_mxcheck_bef+1) THEN rslt = 0 arg_msg = "查询操作失败,外协收货单相关发外明细" GOTO ext END IF inwareid = arg_inwareid scid = arg_scid it_mxbt = i - 1 it_mxbt_bef = j - 1 it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer auditing (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1 Long cnt = 0,i Long ll_moneyid_native Decimal ld_jgprice_notax IF f_aps_mrp_cklock(scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_wfjg_sptprice_sec = -1000 THEN rslt = 0 arg_msg = '选项:[169]外协收货单财审更新供应商最新价,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_check_wfjgin = -1000 THEN rslt = 0 arg_msg = '选项:[131]外协选质检后进仓,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_wfjg_th_ifnotorder = -1000 THEN rslt = 0 arg_msg = '选项:[322]外协返工单限制不能选外协订单,读取初始默认值失败,操作取消!' GOTO ext END IF uo_order_wfjg uo_wfjg uo_wfjg = Create uo_order_wfjg uo_wfjg.commit_transaction = commit_transaction uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price uo_sptcheck uo_sptch uo_sptch = Create uo_sptcheck IF inwareid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF flag = 1 THEN rslt = 0 arg_msg = "单据已经审核" GOTO ext END IF //检查外协商盘点表是否未审 IF uof_check_sptpdb_audit(sptid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF SELECT moneyid INTO :ll_moneyid_native FROM cw_currency Where native = 1; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询本位币资料失败' rslt = 0 GOTO ext END IF UPDATE ow_wfjg_in SET auditingrep = :publ_operator, auditingdate = getdate(), flag = 1 WHERE ow_wfjg_in.inwareid = :inwareid And flag = 0 And scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致审核单据操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF billtype = 4 THEN IF thflag = 0 THEN IF Not sys_power_issuper and f_power_ind(4135,sys_msg_pow)THEN FOR i = 1 To it_mxbt IF inwaremx[i].fprice = 0 THEN arg_msg = '用户权限限制,行'+string(i)+',材料成本价为0,不能审核' rslt = 0 GOTO ext END IF NEXT END IF ELSE IF Not sys_power_issuper and f_power_ind(4136,sys_msg_pow) THEN FOR i = 1 To it_mxbt IF inwaremx[i].fprice = 0 THEN arg_msg = '用户权限限制,行'+string(i)+',材料成本价为0,不能审核' rslt = 0 GOTO ext END IF NEXT END IF END IF IF p_create_inware( False, arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_wfjg_th_ifnotorder = 1 And thflag = 1 THEN IF p_create_wfjgorder(publ_operator,False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF billtype <> 6 THEN FOR i = 1 To it_mxbt_bef Decimal ld_ref_cost IF p_update_cost(inwaremx_bef[i].mtrlwareid,inwaremx_bef[i].mtrlcode,& inwaremx_bef[i].printid,ld_ref_cost,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF f_update_mtrlware_spt_in(billtype,& thflag,& scid,& inwaremx_bef[i].mtrlwareid,& inwaremx_bef[i].mtrlid,& inwaremx_bef[i].mtrlcode,& inwaremx_bef[i].plancode,& inwaremx_bef[i].status,& inwaremx_bef[i].qty,& ld_ref_cost,& sptid,& inwaremx_bef[i].woodcode,& inwaremx_bef[i].pcode,& arg_msg,False,commit_transaction) = 0 THEN rslt = 0 GOTO ext END IF NEXT FOR i = 1 To it_mxbt IF uo_option_wfjg_sptprice_sec = 0 THEN IF inwaremx[i].mxtype = 0 THEN //正常收货的才更新供应商单价 ld_jgprice_notax = inwaremx[i].jgprice / ( 1 + inwaremx[i].taxrate) IF uo_sptprice.uof_update_sptprice(thflag,sptid,inwaremx[i].mtrlid,inwaremx[i].unit,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].jgdscrp,inwareid,inwaremx[i].jgprice,inwaremx[i].rebate,inwaremx[i].rate,inwaremx[i].jgprice/inwaremx[i].rate,ld_jgprice_notax/inwaremx[i].rate ,indate,inwarecode,0,inwaremx[i].mxdscrp,inwaremx[i].printid,1,ll_moneyid_native,indate,DateTime(9999-01-01),False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF inwaremx[i].relid > 0 THEN IF billtype = 9 THEN //盘亏单, 终止外协订单对应的收货明细 IF uo_wfjg.StopAddQty(scid,inwaremx[i].relid,inwaremx[i].relprintid,inwaremx[i].mtrlcode,inwaremx[i].qty, 0, '盘亏自动终止',arg_msg,False) <> 1 THEN rslt = 0 GOTO ext END IF ELSE IF uo_wfjg.addmxcmpl(scid,inwaremx[i].relid,inwaremx[i].relprintid,inwaremx[i].qty,arg_msg,False) <> 1 THEN rslt = 0 GOTO ext END IF IF rslt = 1 And Trim(arg_msg) <> '' THEN f_setsysoplog('外协收货单','外协收货单审核,id:'+String(inwareid)+',单号:'+inwarecode,arg_msg,False) END IF END IF IF uo_wfjg.trycmplbuytask(scid,inwaremx[i].relid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF //更新质检已进仓数 IF uo_option_check_wfjgin = 1 And inwaremx[i].relbillid > 0 THEN IF uo_sptch.uof_add_inqty(inwaremx[i].relbillid,inwaremx[i].relbillprintid,inwaremx[i].uqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF NEXT END IF flag = 1 ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF Destroy uo_wfjg Destroy uo_sptch Destroy uo_sptprice RETURN rslt end function public function integer del (long arg_scid, long arg_inwareid, ref string arg_msg, boolean arg_ifcommit);//del(arg_scid,arg_inwareid,arg_msg) //如果单据还没有审核删除单据极其明细 //0 fail, 1 success Int rslt = 1 IF arg_inwareid = 0 THEN rslt = 0 arg_msg = "没有删除对象,操作取消" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_inwareid,arg_msg) IF rslt = 0 THEN GOTO ext IF flag = 1 THEN rslt = 0 arg_msg = "单据已经审核,不可以删除" GOTO ext END IF DELETE FROM ow_wfjgmx_in_aft WHERE ow_wfjgmx_in_aft.inwareid = :arg_inwareid And ow_wfjgmx_in_aft.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 ow_wfjgmx_in_bef WHERE ow_wfjgmx_in_bef.inwareid = :arg_inwareid And ow_wfjgmx_in_bef.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 ow_wfjg_in WHERE ow_wfjg_in.inwareid = :arg_inwareid And scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "删除进仓单操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF it_newbegin = False it_updatebegin = False ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF p_reset() RETURN rslt end function public function integer add_dscrp (long arg_scid, long arg_inwareid, 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 arg_newdescppart = '' THEN rslt = 0 arg_msg = "要添加内容为空,操作取消" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_inwareid,arg_msg) IF rslt = 0 THEN GOTO ext IF flag = 0 THEN rslt = 0 arg_msg = "非审核状态下不可用" GOTO ext END IF UPDATE ow_wfjg_in SET dscrp = dscrp+' '+:arg_newdescppart WHERE ow_wfjg_in.inwareid = :inwareid And scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN ROLLBACK Using commit_transaction; rslt = 0 arg_msg = "因网络或其它原因导致添加单据备注操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF COMMIT Using commit_transaction; dscrp = dscrp+' '+arg_newdescppart ext: Return (rslt) end function public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,cnt = 0,i Long ll_moneyid_native DateTime null_dt SetNull(null_dt) IF f_aps_mrp_cklock(scid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_wfjg_sptprice_sec = -1000 THEN rslt = 0 arg_msg = '选项:[169]外协收货单财审更新供应商最新价,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_check_wfjgin = -1000 THEN rslt = 0 arg_msg = '选项:[131]外协选质检后进仓,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_wfjg_th_ifnotorder = -1000 THEN rslt = 0 arg_msg = '选项:[322]外协返工单限制不能选外协订单,读取初始默认值失败,操作取消!' GOTO ext END IF uo_order_wfjg uo_wfjg uo_wfjg = Create uo_order_wfjg uo_wfjg.commit_transaction = commit_transaction uo_sptcheck uo_sptch uo_sptch = Create uo_sptcheck uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price IF inwareid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF ctmint > 0 THEN arg_msg = '单据已截数,不能操作' rslt = 0 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 uof_check_sptpdb_audit(sptid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF SELECT moneyid INTO :ll_moneyid_native FROM cw_currency Where native = 1; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询本位币资料失败' rslt = 0 GOTO ext END IF UPDATE ow_wfjg_in SET auditingrep = '', auditingdate = :null_dt, flag = 0 WHERE ow_wfjg_in.inwareid = :inwareid And flag = 1 And scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致审核单据操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF IF billtype = 4 THEN IF p_destroy_inware( False, arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF IF uo_option_wfjg_th_ifnotorder = 1 And thflag = 1 THEN IF p_destroy_wfjgorder( False, arg_msg ) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF billtype <> 6 THEN FOR i = 1 To it_mxbt_bef IF f_update_mtrlware_spt_in(billtype,& thflag,& scid,& inwaremx_bef[i].mtrlwareid,& inwaremx_bef[i].mtrlid,& inwaremx_bef[i].mtrlcode,& inwaremx_bef[i].plancode,& inwaremx_bef[i].status,& 0 - inwaremx_bef[i].qty,& inwaremx_bef[i].fprice,& sptid,& inwaremx_bef[i].woodcode,& inwaremx_bef[i].pcode,& arg_msg,False,commit_transaction) = 0 THEN rslt = 0 GOTO ext END IF NEXT FOR i = 1 To it_mxbt //更新合同完成数量 IF inwaremx[i].relid > 0 THEN IF billtype = 9 THEN //盘亏单, 终止外协订单对应的收货明细 IF uo_wfjg.StopAddQty(scid,inwaremx[i].relid,inwaremx[i].relprintid,inwaremx[i].mtrlcode, 0 - inwaremx[i].qty, 0, '盘亏自动终止',arg_msg,False) <> 1 THEN rslt = 0 GOTO ext END IF ELSE IF uo_wfjg.addmxcmpl(scid,inwaremx[i].relid,inwaremx[i].relprintid,0 - inwaremx[i].qty,arg_msg,False) <> 1 THEN rslt = 0 GOTO ext END IF END IF IF uo_wfjg.trycmplbuytask(scid,inwaremx[i].relid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF //更新质检已进仓数 IF uo_option_check_wfjgin = 1 And inwaremx[i].relbillid > 0 THEN IF uo_sptch.uof_add_inqty(inwaremx[i].relbillid,inwaremx[i].relbillprintid,0 - inwaremx[i].uqty,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF IF uo_option_wfjg_sptprice_sec = 0 THEN IF thflag = 0 And inwaremx[i].mxtype = 0 THEN IF uo_sptprice.uof_del_sptprice_auto(sptid,inwareid,inwaremx[i].printid,inwaremx[i].mtrlid,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].jgdscrp,inwaremx[i].unit,ll_moneyid_native,False,arg_msg) = 0 THEN arg_msg = '更新行:'+String(i)+','+arg_msg rslt = 0 GOTO ext END IF END IF END IF NEXT END IF flag = 0 ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF Destroy uo_sptch Destroy uo_wfjg Destroy uo_sptprice RETURN rslt end function public function integer p_clearmx ();//int p_clearmx() //清除明细 it_mxbt=0 it_mxbt_bef=0 return 1 end function public function integer p_getinfo (long arg_scid, long arg_inwareid, ref string arg_msg);//p_getinfo(arg_scid,arg_inwareid,arg_msg) //0 失败 1成功 Int rslt = 1 IF arg_inwareid <= 0 THEN rslt = 0 arG_MSG = "非法进仓单唯一码" GOTO ext END IF SELECT ow_wfjg_in.inwarecode, ow_wfjg_in.billtype, ow_wfjg_in.relid, ow_wfjg_in.storageid, ow_wfjg_in.indate, ow_wfjg_in.plandate, ow_wfjg_in.inrep, ow_wfjg_in.part, ow_wfjg_in.sptid, ow_wfjg_in.sptname, ow_wfjg_in.dscrp, ow_wfjg_in.thflag, ow_wfjg_in.secflag, ow_wfjg_in.dxflag, ow_wfjg_in.flag, ow_wfjg_in.balcflag, ow_wfjg_in.otheramt, ow_wfjg_in.relint_1, ow_wfjg_in.relint_2, ow_wfjg_in.relint_3, ow_wfjg_in.relstr_1, ow_wfjg_in.relstr_2, ow_wfjg_in.relstr_3, ow_wfjg_in.ctmint INTO :inwarecode, :billtype, :relid, :storageid, :indate, :plandate, :inrep, :part, :sptid, :sptname, :dscrp, :thflag, :secflag, :dxflag, :flag, :balcflag, :otheramt, :relint_1, :relint_2, :relint_3, :relstr_1, :relstr_2, :relstr_3, :ctmint FROM ow_wfjg_in WHERE ow_wfjg_in.inwareid = :arg_inwareid AND scid = :arg_scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "查询操作失败(错误进仓单唯一码),进仓单"+commit_transaction.SQLErrText GOTO ext END IF inwareid = arg_inwareid scid = arg_scid ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer p_reset ();//int p_reset() //清除对象及其明细 scid=0 inwareid=0 inwarecode='' billtype=0 opemp='' modemp='' auditingrep='' secauditingrep = '' secflag = 0 flag=0 relid=0 storageid=0 inrep='' part='' dscrp='' sptid=0 sptname='' Dxflag=0 thflag=0 otheramt=0 relint_1=0 relint_2=0 relint_3=0 relstr_1='' relstr_2='' relstr_3='' jgsum_amt = 0 tax_amt = 0 it_newbegin=false it_updatebegin=false //清除明细 p_clearmx() return 1 end function public function integer p_create_inware (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1,i Long rst_inwareid,o_scid Decimal ld_inprice datastore ds_wfjginware_mx ds_wfjginware_mx = Create datastore ds_wfjginware_mx.DataObject = "dw_wfjgmx_in_aft_edit" ds_wfjginware_mx.SetTransObject(sqlca) ds_wfjginware_mx.Retrieve(scid,inwareid,0) ds_wfjginware_mx.SetSort("ow_wfjgmx_in_aft_storageid A") ds_wfjginware_mx.Sort() IF uo_option_cost_notax = -1000 THEN rslt = 0 arg_msg = '选项:[362]采购外协使用不含税价进仓,读取初始默认值失败,操作取消!' GOTO ext END IF Long ls_rowcount,ll_storageid ls_rowcount = ds_wfjginware_mx.RowCount() IF ls_rowcount <> it_mxbt THEN rslt = 0 arg_msg = "单据明细数量错误" GOTO ext END IF FOR i = 1 To it_mxbt uo_inware uo_in uo_in = Create uo_inware uo_in.commit_transaction = commit_transaction uo_in.if_getid_ture = False //2.原事务生成进仓单 ll_storageid = ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_storageid[i] SELECT scid INTO :o_scid FROM u_storage Where storageid = :ll_storageid Using commit_transaction; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询进仓库所属分部资料失败' rslt = 0 GOTO ext END IF IF uo_in.newbegin(scid,4,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_in.relid = inwareid uo_in.relint_2 = relint_2 uo_in.relint_1 = relint_1 uo_in.sptid = sptid uo_in.inrep = inrep uo_in.indate = indate uo_in.part = inwarecode uo_in.dscrp = dscrp uo_in.storageid = ll_storageid uo_in.mrate = 1 uo_in.thflag = thflag ld_inprice = 0 DO While (ll_storageid = ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_storageid[i]) IF ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_mxtype[i] = 2 THEN //维修 ld_inprice = ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_fprice[i] * ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_rate[i] ELSE IF uo_option_cost_notax = 0 THEN ld_inprice = ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_fprice[i] * ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_rate[i] + ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_jgprice[i] * ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_rebate[i] ELSE ld_inprice = ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_fprice[i] * ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_rate[i] + ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_jgprice[i] / ( 1 + ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_taxrate[i]) * ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_rebate[i] END IF END IF //ds_wfjginware_mx.Object.printid[i] //u_inwaremx.printid 约定为等于外协单的ow_wfjgmx_in_aft.printid, 后面有函数这样默认调用 IF uo_in.acceptmx(ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_printid[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_mtrlid[i],& ds_wfjginware_mx.Object.u_mtrldef_mtrlcode[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_plancode[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_status[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_uqty[i],& ld_inprice,& 1,& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_mxdscrp[i],& arg_msg,& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_uprice[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_relid[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_ifrel[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_woodcode[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_pcode[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_sptid_cusid[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_unit[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_rate[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_qty[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_relprintid[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_checkqty[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_result[i],'',0,0,& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_mtrlcuscode[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_location[i],& ds_wfjginware_mx.Object.ow_wfjgmx_in_aft_uqty[i],& 0) = 0 THEN rslt = 0 GOTO ext END IF i++ IF i > it_mxbt THEN EXIT LOOP IF uo_in.Save(False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF rst_inwareid = uo_in.inwareid //4.原事务审核进仓单 IF uo_in.getinfo(o_scid,rst_inwareid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_in.auditing(False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF Destroy uo_in i = i - 1 NEXT ext: Destroy ds_wfjginware_mx IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF RETURN rslt end function public function integer p_destroy_inware (boolean arg_ifcommit, ref string arg_msg); Long cnt = 0,i Int rslt = 1 Long chc Long in_out //Long rst_outwareid[],out_i = 1 //出仓出仓id Long rst_inwareid[],in_i = 1 //出仓出仓id Long s_scid Long o_scid Long lay_storageid[],ll_storageid DateTime null_dt SetNull(null_dt) uo_inware uo_in uo_in = Create uo_inware uo_in.commit_transaction = sqlca uo_in.if_getid_ture = False IF inwareid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF Boolean lb_f = False Long j,k,ch //统计仓库数量，确定出或出仓单数 FOR i = 1 To it_mxbt FOR j = 1 To UpperBound(lay_storageid) IF lay_storageid[j] = inwaremx[i].storageid THEN lb_f = True NEXT IF lb_f = False THEN ch++ lay_storageid[ch] = inwaremx[i].storageid END IF lb_f = False NEXT IF UpperBound(lay_storageid) = 0 THEN rslt = 0 arg_msg = '查询相关进仓单据失败' GOTO ext END IF //2.查询出仓单相关的入仓单,撤审,删除 FOR k = 1 To UpperBound(lay_storageid) ll_storageid = lay_storageid[k] SELECT scid INTO :o_scid FROM u_storage Where storageid = :ll_storageid Using commit_transaction; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询仓库所属分部资料失败' rslt = 0 GOTO ext END IF DECLARE cur_in_2 CURSOR FOR SELECT inwareid FROM u_inware WHERE scid = :o_scid AND relid = :inwareid AND storageid = :ll_storageid And billtype = 4 Using commit_transaction; OPEN cur_in_2; FETCH cur_in_2 Into :rst_inwareid[in_i]; DO WHILE sqlca.SQLCode = 0 in_i++ FETCH cur_in_2 Into :rst_inwareid[in_i]; LOOP in_i = in_i - 1 CLOSE cur_in_2; IF in_i = 0 THEN arg_msg = '查询该外协单相关进仓单失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF FOR in_out = 1 To in_i //撤审出仓单,再删除 IF uo_in.getinfo(o_scid,rst_inwareid[in_out],arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_in.c_auditing(False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF uo_in.del(o_scid,rst_inwareid[in_out],arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF NEXT NEXT ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Destroy uo_in RETURN rslt end function public function integer secauditing (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,cnt = 0,i String ls_about,ls_dscrp IF uo_option_wfjg_sptprice_sec = -1000 THEN rslt = 0 arg_msg = '选项:[169]外协收货单财审更新供应商最新价,读取初始默认值失败,操作取消!' GOTO ext END IF uo_mustpay uo_pay uo_pay = Create uo_mustpay uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price Decimal ld_payamt = 0,ld_mstpayamt = 0,ld_taxamt = 0 IF inwareid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF flag = 0 THEN rslt = 0 arg_msg = "单据还没有经过仓库审核" GOTO ext END IF IF secflag = 1 THEN rslt = 0 arg_msg = "单据已经过财务审核" GOTO ext END IF Int li_btype Long ll_accountsid Long ll_moneyid_native Long ll_dft_itemid,ll_dft_itemid_tax decimal ld_jgprice_notax SELECT btype,accountsid INTO :li_btype,:ll_accountsid FROM cw_banktype Where banktypeid = :relint_1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询结算方式类型失败,'+ commit_transaction.SQLErrText GOTO ext END IF SELECT moneyid INTO :ll_moneyid_native FROM cw_currency Where native = 1; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询本位币资料失败' rslt = 0 GOTO ext END IF SELECT count(*) INTO :cnt FROM u_user Where username = :publ_operator Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,操作员" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "操作员姓名未登记或已取消" GOTO ext END IF UPDATE ow_wfjg_in SET secauditingrep = :publ_operator, secauditingdate = getdate(), secflag = 1 WHERE ow_wfjg_in.inwareid = :inwareid And flag = 1 And secflag = 0 And scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致财务审核单据操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在财务审核,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF FOR i = 1 To it_mxbt IF uo_option_wfjg_sptprice_sec = 1 THEN IF inwaremx[i].mxtype = 0 THEN //正常收货的才更新供应商单价 ld_jgprice_notax = inwaremx[i].jgprice / ( 1 + inwaremx[i].taxrate) IF uo_sptprice.uof_update_sptprice(thflag,sptid,inwaremx[i].mtrlid,inwaremx[i].unit,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].jgdscrp,inwareid,inwaremx[i].jgprice,inwaremx[i].rebate,inwaremx[i].rate,inwaremx[i].jgprice/inwaremx[i].rate,ld_jgprice_notax / inwaremx[i].rate ,indate,inwarecode,0,inwaremx[i].mxdscrp,inwaremx[i].printid,1,ll_moneyid_native,indate,datetime(9999-01-01),False,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF NEXT IF jgsum_amt <> 0 THEN ld_mstpayamt = jgsum_amt - otheramt ld_taxamt = tax_amt IF li_btype = 1 THEN ld_payamt = ld_mstpayamt ELSE ld_payamt = 0 END IF IF thflag = 1 THEN ls_about = inwarecode + "退货款,相关号:"+part SELECT itemid INTO :ll_dft_itemid FROM u_itemdef Where dfttype = 5 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询默认采购外协付款项目资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSE ls_about = inwarecode + "应付款,相关号:"+part SELECT itemid INTO :ll_dft_itemid FROM u_itemdef Where dfttype = 2 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询默认采购外协退货项目资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF ls_dscrp = ls_about s_bmstpay s_pay s_pay.scid = scid s_pay.sptid = sptid s_pay.paydate = indate s_pay.inrep = inrep s_pay.oriamt = ld_mstpayamt s_pay.mstpayamt = ld_mstpayamt s_pay.payamt = ld_payamt s_pay.payamt_cn = ld_payamt s_pay.dscrp = ls_about s_pay.billcode = inwarecode s_pay.relcode = part s_pay.banktypeid = relint_1 s_pay.viewdate = plandate s_pay.opemp = publ_operator s_pay.buildtype = 1 s_pay.inwareid = inwareid s_pay.accountsid = ll_accountsid s_pay.itemid = ll_dft_itemid s_pay.moneyid = ll_moneyid_native s_pay.moneyid_cn = ll_moneyid_native IF uo_pay.add_payrec (s_pay,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF ld_taxamt <> 0 THEN ls_about = inwarecode + "税金,相关号:"+part SELECT itemid INTO :ll_dft_itemid_tax FROM u_itemdef Where dfttype = 13 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询默认采购外协税金项目资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF s_bmstpaymx s_paymx_tax s_paymx_tax.scid = scid s_paymx_tax.payid = uo_pay.ref_payid s_paymx_tax.sptid = sptid s_paymx_tax.paydate = indate s_paymx_tax.inrep = inrep s_paymx_tax.mstpayamt = ld_taxamt s_paymx_tax.payamt = 0 s_paymx_tax.dscrp = ls_about s_paymx_tax.billcode = inwarecode s_paymx_tax.relcode = part s_paymx_tax.banktypeid = relint_1 s_paymx_tax.opemp = publ_operator s_paymx_tax.buildtype = 3 s_paymx_tax.inwareid = inwareid s_paymx_tax.itemid = ll_dft_itemid_tax s_paymx_tax.moneyid = ll_moneyid_native IF uo_pay.add_payrecmx (s_paymx_tax,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF UPDATE ow_wfjg_in SET relint_2 = :uo_pay.ref_payid WHERE ow_wfjg_in.inwareid = :inwareid AND scid = :scid And flag = 1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新外协单相关应付帐ID失败' rslt = 0 GOTO ext END IF END IF secflag = 1 ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF Destroy uo_pay Destroy uo_sptprice RETURN rslt end function public function integer c_secauditing (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,cnt = 0,i DateTime null_dt Long ll_moneyid_native IF uo_option_wfjg_sptprice_sec = -1000 THEN rslt = 0 arg_msg = '选项:[169]外协收货单财审更新供应商最新价,读取初始默认值失败,操作取消!' GOTO ext END IF uo_mustpay uo_pay uo_pay = Create uo_mustpay uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price String ls_mtrlname SetNull(null_dt) IF inwareid = 0 THEN rslt = 0 arg_msg = "没有撤审对象" GOTO ext END IF IF ctmint > 0 THEN arg_msg = '单据已截数,不能操作' rslt = 0 GOTO ext END IF IF secflag = 0 THEN rslt = 0 arg_msg = "该单据财务未审,不能进行财务撤审" GOTO ext END IF SELECT moneyid INTO :ll_moneyid_native FROM cw_currency Where native = 1; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询本位币资料失败' rslt = 0 GOTO ext END IF UPDATE ow_wfjg_in SET secauditingrep = '', secauditingdate = :null_dt, secflag = 0,relint_3 = 0 WHERE ow_wfjg_in.inwareid = :inwareid And secflag = 1 And scid = :scid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致财务撤审单据操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在财务撤审,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF FOR i = 1 To it_mxbt IF uo_option_wfjg_sptprice_sec = 1 THEN IF thflag = 0 And inwaremx[i].mxtype = 0 THEN IF uo_sptprice.uof_del_sptprice_auto(sptid,inwareid,inwaremx[i].printid,inwaremx[i].mtrlid,inwaremx[i].status,inwaremx[i].woodcode,inwaremx[i].pcode,inwaremx[i].jgdscrp,inwaremx[i].unit,ll_moneyid_native,False,arg_msg) = 0 THEN arg_msg = '更新行:'+String(i)+','+arg_msg rslt = 0 GOTO ext END IF END IF END IF NEXT IF jgsum_amt <> 0 THEN IF uo_pay.del_payrec(scid,1,relint_2,sptid,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF END IF secflag = 0 ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF rslt = 1 And arg_ifcommit THEN COMMIT Using commit_transaction; END IF Destroy uo_pay Destroy uo_sptprice RETURN rslt end function public function integer newbegin (long arg_scid, integer arg_billtype, ref string arg_msg);Int rslt = 1 IF arg_scid < 0 THEN arg_msg = '请选择分部' rslt = 0 GOTO ext END IF IF Not (arg_billtype = 4 OR & arg_billtype = 5 OR & arg_billtype = 6 OR & arg_billtype = 9) THEN rslt = 0 arg_msg = '此单据类型必须为:' arg_msg = arg_msg+'4-仓库外协收货单,' arg_msg = arg_msg+'5-车间外协收货单,' arg_msg = arg_msg+'6-加工计费单,' arg_msg = arg_msg+'9-外协商盘亏单' GOTO ext END IF p_reset() scid = arg_scid billtype = arg_billtype it_newbegin = TRUE it_updatebegin = FALSE ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer updatebegin (long arg_scid, long arg_inwareid, integer arg_billtype, ref string arg_msg);Long rslt = 1 IF arg_scid < 0 THEN arg_msg = '请选择分部' rslt = 0 GOTO ext END IF IF arg_inwareid <= 0 THEN rslt = 0 GOTO ext END IF IF Not (arg_billtype = 4 OR & arg_billtype = 5 OR & arg_billtype = 6 OR & arg_billtype = 9) THEN rslt = 0 arg_msg = '此单据类型必须为:' arg_msg = arg_msg+'4-仓库外协收货单,' arg_msg = arg_msg+'5-车间外协收货单,' arg_msg = arg_msg+'6-加工计费单,' arg_msg = arg_msg+'9-外协商盘亏单' GOTO ext END IF rslt = p_getinfo(arg_scid,arg_inwareid,arg_msg) IF rslt = 0 THEN GOTO ext IF flag = 1 THEN rslt = 0 arg_msg = '单据已经审核,不可以修改' GOTO ext END IF inwareid = arg_inwareid scid = arg_scid billtype = arg_billtype it_newbegin = FALSE it_updatebegin = TRUE p_clearmx() //清除明细 ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer p_update_cost (long arg_mtrlwareid, string arg_mtrlcode, long arg_printid, ref decimal arg_ref_cost, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_cost SELECT cost INTO :ld_cost FROM ow_wfjgware WHERE sptid = :sptid AND mtrlwareid = :arg_mtrlwareid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询'+arg_mtrlcode+'库存成本价失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF UPDATE ow_wfjgmx_in_bef SET fprice = :ld_cost WHERE scid = :scid AND inwareid = :inwareid AND printid = :arg_printid; IF sqlca.SQLCode <> 0 THEN arg_msg = '更新'+arg_mtrlcode+'成本价失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF arg_ref_cost = ld_cost ext: IF rslt = 0 THEN ROLLBACK; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT; END IF RETURN rslt end function public function integer acceptmx (long arg_printid, long arg_mtrlid, string arg_mtrlcode, string arg_plancode, string arg_status, decimal arg_uqty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, ref string arg_msg, decimal arg_jgprice, long arg_relid, integer arg_ifrel, string arg_woodcode, string arg_pcode, long arg_cusid_sptid, string arg_unit, decimal arg_rate, decimal arg_qty, long arg_storageid, string arg_jgdscrp, long arg_relprintid, integer arg_mxtype, decimal arg_checkqty, string arg_result, long arg_relbillid, long arg_relbillprintid, string arg_mtrlcuscode, string arg_location, decimal arg_taxrate);s_wfjgmx_in_aft s_mx s_mx.printid = arg_printid s_mx.mtrlid = arg_mtrlid s_mx.mtrlcode = arg_mtrlcode s_mx.plancode = arg_plancode s_mx.status = arg_status s_mx.uqty = arg_uqty s_mx.fprice = arg_fprice s_mx.rebate = arg_rebate s_mx.mxdscrp = arg_mxdscrp s_mx.jgprice = arg_jgprice s_mx.relid = arg_relid s_mx.ifrel = arg_ifrel s_mx.woodcode = arg_woodcode s_mx.pcode = arg_pcode s_mx.sptid = arg_cusid_sptid s_mx.unit = arg_unit s_mx.rate = arg_rate s_mx.qty = arg_qty s_mx.storageid = arg_storageid s_mx.jgdscrp = arg_jgdscrp s_mx.relprintid = arg_relprintid s_mx.mxtype = arg_mxtype s_mx.checkqty = arg_checkqty s_mx.result = arg_result s_mx.relbillid = arg_relbillid s_mx.relbillprintid = arg_relbillprintid s_mx.mtrlcuscode = arg_mtrlcuscode s_mx.location = arg_location s_mx.taxrate = arg_taxrate return acceptmx(s_mx, arg_msg) /* Long rslt = 1,cnt = 0,ls_i Decimal ld_planprice,ld_cost Decimal ld_noauditqty,ld_bootqty String ls_relcode Decimal lde_mx_qty Decimal lde_orderqty Long ll_moneyid_native string ls_unit IF uo_option_wfjg_zero = -1000 THEN rslt = 0 arg_msg = '选项:[184]外协收货单允许保存零数量,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_2unit = -1000 THEN rslt = 0 arg_msg = '选项:[067]外协双单位核算,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_change_status = '-1000' THEN rslt = 0 arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_change_woodcode = '-1000' THEN rslt = 0 arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_change_pcode = '-1000' THEN rslt = 0 arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_ifovertask = -1000 THEN rslt = 0 arg_msg = '选项:[010]超采购,外协订单收货,读取初始默认值失败,操作取消!' GOTO ext END IF uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF //清除空值 IF IsNull(arg_printid) THEN arg_printid = 0 IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0 IF IsNull(arg_mtrlcode) THEN arg_mtrlcode = '' IF IsNull(arg_plancode) THEN arg_plancode = '' IF IsNull(arg_status) THEN arg_status = '' IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = '' IF IsNull(arg_relid) THEN arg_relid = 0 IF IsNull(arg_ifrel) THEN arg_ifrel = 0 IF IsNull(arg_mxdscrp) THEN arg_woodcode = '' IF IsNull(arg_pcode) THEN arg_pcode = '' IF IsNull(arg_cusid_sptid) THEN arg_cusid_sptid = 0 IF IsNull(arg_storageid) THEN arg_storageid = 0 IF IsNull(arg_relprintid) THEN arg_relprintid = 0 IF IsNull(arg_jgdscrp) THEN arg_jgdscrp = '' IF IsNull(arg_unit) THEN arg_unit = '' IF IsNull(arg_jgprice) THEN arg_jgprice = 0 IF IsNull(arg_uqty) THEN arg_uqty = 0 IF IsNull(arg_qty) THEN arg_qty = 0 IF IsNull(arg_rebate) THEN arg_rebate = 0 IF IsNull(arg_fprice) THEN arg_fprice = 0 IF IsNull(arg_mxtype) THEN arg_mxtype = 0 IF IsNull(arg_checkqty) THEN arg_checkqty = 0 IF IsNull(arg_result) THEN arg_result = '' IF IsNull(arg_rate) THEN arg_rate = 1 IF arg_rate = 0 THEN arg_rate = 1 IF IsNull(arg_mtrlcuscode) THEN arg_mtrlcuscode = '' IF IsNull(arg_location) THEN arg_location = '' IF IsNull(arg_relbillid) THEN arg_relbillid = 0 IF IsNull(arg_relbillprintid) THEN arg_relbillprintid = 0 IF IsNull(arg_taxrate) THEN arg_taxrate = 0 IF arg_mtrlid = 0 THEN rslt = 1 GOTO ext END IF IF uo_option_wfjg_zero = 0 THEN If ( arg_uqty = 0 And arg_qty = 0 ) THEN rslt = 1 GOTO ext END IF IF arg_checkqty = 0 THEN arg_checkqty = arg_uqty IF arg_qty = 0 THEN arg_msg = '行:'+String(arg_printid)+ ',请输入数量' rslt = 0 GOTO ext END IF IF uo_option_2unit = 1 THEN IF arg_uqty = 0 THEN arg_msg = '行:'+String(arg_printid)+ ',请输入计价数量' rslt = 0 GOTO ext END IF IF Trim(arg_unit) = '' THEN arg_msg = '行:'+String(arg_printid)+ ',请输入计价单位' rslt = 0 GOTO ext END IF END IF END IF IF arg_rebate <= 0 THEN arg_msg = '折扣错误,请检查' rslt = 0 GOTO ext END IF if arg_taxrate < 0 then arg_msg = '税率错误,请检查' rslt = 0 GOTO ext END IF IF billtype = 4 THEN cnt = 0 //检查仓库 SELECT count(*) INTO :cnt FROM u_storage Where u_storage.storageid = :arg_storageid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,仓库" GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = "错误的仓库编号: "+String(arg_storageid) GOTO ext END IF String ls_storagename SELECT storagename INTO :ls_storagename FROM u_storage Where storageid = :arg_storageid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,仓库" GOTO ext END IF //检查是否有该仓库的建立权限 IF sys_user_storagestr_new <> '0' THEN IF Pos(sys_user_storagestr_new,','+String(arg_storageid)+',') <= 0 THEN rslt = 0 arg_msg = '没有仓库: '+ls_storagename+' 的建立权限,不允许建立该仓库的单据' GOTO ext END IF END IF // END IF IF f_check_status(1,arg_status) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_status GOTO ext END IF IF f_check_status(2,arg_woodcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_woodcode GOTO ext END IF IF f_check_status(3,arg_pcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+arg_mtrlcode+",内容:"+arg_pcode GOTO ext END IF //检查物料id SELECT planprice INTO :ld_planprice FROM u_mtrldef Where u_mtrldef.mtrlid = :arg_mtrlid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,物料或产品编号:"+arg_mtrlcode GOTO ext END IF Int li_iflimitprice SELECT iflimitprice,unit INTO :li_iflimitprice,:ls_unit FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+arg_mtrlcode+'限价属性失败 '+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ls_unit = trim(ls_unit) SELECT moneyid INTO :ll_moneyid_native FROM cw_currency Where native = 1; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询本位币资料失败' rslt = 0 GOTO ext END IF //查询采购限价并检查进仓价 IF billtype = 5 Or billtype = 4 THEN IF li_iflimitprice = 1 THEN IF uo_sptprice.uof_check_price(thflag,sptid,arg_mtrlid,arg_mtrlcode,arg_unit,arg_status,arg_woodcode,arg_pcode,arg_jgdscrp,ll_moneyid_native,arg_jgprice,indate,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF arg_ifrel > 0 THEN IF arg_relid = 0 THEN arg_msg = '请先择相应的加工计划' rslt = 0 GOTO ext END IF SELECT u_order_wfjg.taskcode ,sum(u_order_wfjgmx.qty - u_order_wfjgmx.consignedqty),sum(u_order_wfjgmx.qty) INTO :ls_relcode,:ld_bootqty,:lde_orderqty FROM u_order_wfjgmx,u_order_wfjg WHERE u_order_wfjgmx.wfjgid = :arg_relid AND u_order_wfjgmx.scid = :scid AND u_order_wfjgmx.printid = :arg_relprintid AND u_order_wfjgmx.wfjgid = u_order_wfjg.wfjgid AND u_order_wfjgmx.scid = u_order_wfjg.scid GROUP BY u_order_wfjg.taskcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询外协计划是否有加工产品:'+arg_mtrlcode+'失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF lde_mx_qty = 0 FOR ls_i = 1 To it_mxbt IF arg_mtrlid = inwaremx[ls_i].mtrlid And & arg_relid = inwaremx[ls_i].relid And & arg_relprintid = inwaremx[ls_i].relprintid THEN lde_mx_qty = lde_mx_qty + inwaremx[ls_i].qty END IF NEXT lde_mx_qty = lde_mx_qty + arg_qty SELECT isnull(sum(ow_wfjgmx_in_aft.qty),0) INTO :ld_noauditqty FROM ow_wfjgmx_in_aft,ow_wfjg_in WHERE ow_wfjgmx_in_aft.relid = :arg_relid AND ow_wfjgmx_in_aft.scid = :scid AND ow_wfjgmx_in_aft.relprintid = :arg_relprintid AND ow_wfjgmx_in_aft.inwareid = ow_wfjg_in.inwareid AND ow_wfjgmx_in_aft.scid = ow_wfjg_in.scid AND ow_wfjg_in.inwareid <> :inwareid AND ow_wfjg_in.flag = 0 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询物料:'+arg_mtrlcode+'相关外协订单已开单数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF Decimal ld_uprate,ld_upqty IF uo_option_ifovertask = 1 THEN //不允许超收 IF lde_mx_qty + ld_noauditqty > ld_bootqty THEN arg_msg = '物料:'+arg_mtrlcode+'未完成数:'+String(ld_bootqty,'#,##0.0###')+ls_unit+',已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+ls_unit+',不能收货:'+String(lde_mx_qty,'#,##0.0###')+ls_unit rslt = 0 GOTO ext END IF ELSEIF uo_option_ifovertask = 3 THEN //允许超收但按比例限制 SELECT uprate , upqty INTO :ld_uprate,:ld_upqty FROM u_mtrldef Where mtrlid = :arg_mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+Trim(arg_mtrlcode)+'超收货比例失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF lde_mx_qty + ld_noauditqty > ld_bootqty + lde_orderqty * ld_uprate + ld_upqty THEN arg_msg = '物料:'+arg_mtrlcode+'未完成数:'+String(ld_bootqty,'#,##0.0###')+ls_unit+',已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+ls_unit+',允许超收数量:'+String(lde_orderqty * ld_uprate + ld_upqty,'#,##0.0###')+ls_unit+',不能收货:'+String(lde_mx_qty,'#,##0.0###')+ls_unit rslt = 0 GOTO ext END IF END IF END IF IF arg_fprice * arg_rebate < 0 THEN //检查进仓价 rslt = 0 arg_msg = "物料或产品:" + String(arg_mtrlcode)+",进仓成本价错误" GOTO ext END IF String ls_relbillcode ls_relbillcode = '' IF arg_relbillid > 0 THEN SELECT billcode INTO :ls_relbillcode FROM u_sptcheck Where billid = :arg_relbillid; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询质检单号失败'+commit_transaction.SQLErrText GOTO ext END IF END IF //写入内容 it_mxbt++ inwaremx[it_mxbt].noauditqty = ld_noauditqty inwaremx[it_mxbt].printid = arg_printid inwaremx[it_mxbt].mtrlid = arg_mtrlid inwaremx[it_mxbt].mtrlcode = arg_mtrlcode inwaremx[it_mxbt].storageid = arg_storageid inwaremx[it_mxbt].jgdscrp = arg_jgdscrp inwaremx[it_mxbt].plancode = arg_plancode inwaremx[it_mxbt].bootqty = ld_bootqty inwaremx[it_mxbt].status = arg_status inwaremx[it_mxbt].planprice = ld_planprice inwaremx[it_mxbt].mxdscrp = arg_mxdscrp inwaremx[it_mxbt].dxflag = dxflag inwaremx[it_mxbt].relid = arg_relid inwaremx[it_mxbt].ifrel = arg_ifrel inwaremx[it_mxbt].woodcode = arg_woodcode inwaremx[it_mxbt].pcode = arg_pcode inwaremx[it_mxbt].mtrlcuscode = arg_mtrlcuscode inwaremx[it_mxbt].Location = arg_location inwaremx[it_mxbt].relcode = ls_relcode inwaremx[it_mxbt].relprintid = arg_relprintid inwaremx[it_mxbt].checkqty = arg_checkqty inwaremx[it_mxbt].result = arg_result inwaremx[it_mxbt].relbillid = arg_relbillid inwaremx[it_mxbt].relbillprintid = arg_relbillprintid inwaremx[it_mxbt].relbillcode = ls_relbillcode IF dxflag = 0 THEN inwaremx[it_mxbt].sptid = arg_cusid_sptid ELSE inwaremx[it_mxbt].sptid = sptid END IF inwaremx[it_mxbt].unit = arg_unit IF uo_option_2unit = 0 THEN arg_uqty = arg_qty END IF inwaremx[it_mxbt].uqty = arg_uqty inwaremx[it_mxbt].jgprice = arg_jgprice inwaremx[it_mxbt].rebate = arg_rebate IF arg_qty <> 0 THEN inwaremx[it_mxbt].uprice = Round(arg_jgprice * arg_uqty/arg_qty,5) ELSE inwaremx[it_mxbt].uprice = 0 END IF IF arg_uqty <> 0 THEN inwaremx[it_mxbt].rate = arg_qty/arg_uqty ELSE inwaremx[it_mxbt].rate = 0 END IF inwaremx[it_mxbt].qty = arg_qty inwaremx[it_mxbt].fprice = arg_fprice inwaremx[it_mxbt].price = inwaremx[it_mxbt].uprice * arg_rebate + arg_fprice inwaremx[it_mxbt].mxtype = arg_mxtype inwaremx[it_mxbt].taxrate = arg_taxrate IF billtype = 1 THEN String ls_sptmtrlname uo_spt_price uo_price uo_price = Create uo_spt_price IF uo_price.uof_getmtrlname(sptid,arg_mtrlid,ls_sptmtrlname,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF Destroy uo_price inwaremx[it_mxbt].sptmtrlname = ls_sptmtrlname END IF IF thflag = 1 THEN SELECT cost INTO :ld_cost FROM u_mtrlware WHERE scid = :scid AND mtrlid = :arg_mtrlid AND status = :arg_status AND plancode = :arg_plancode AND woodcode = :arg_woodcode AND pcode = :arg_pcode AND mtrlcuscode = :arg_mtrlcuscode AND location = :arg_location AND storageid = :arg_storageid AND dxflag = :dxflag And sptid = 0; IF sqlca.SQLCode <> 0 Or IsNull(ld_cost) THEN ld_cost = 0 inwaremx[it_mxbt].cost = ld_cost ELSE inwaremx[it_mxbt].cost = (inwaremx[it_mxbt].uprice * arg_rebate) + inwaremx[it_mxbt].fprice END IF ext: Destroy uo_sptprice IF rslt = 0 THEN p_clearmx() Return(rslt) */ end function public function integer acceptmx_bef (long arg_mtrlwareid, decimal arg_qty, string arg_mxdscrp, long arg_printid, string arg_unit, decimal arg_uqty, decimal arg_rate, long arg_relprintid, ref string arg_msg);s_wfjgmx_in_bef s_mx s_mx.mtrlwareid = arg_mtrlwareid s_mx.qty = arg_qty s_mx.mxdscrp = arg_mxdscrp s_mx.printid = arg_printid s_mx.unit = arg_unit s_mx.uqty = arg_uqty s_mx.rate = arg_rate s_mx.relprintid = arg_relprintid return acceptmx_bef(s_mx, arg_msg) /* Long rslt = 1,cnt = 0,LS_i Long i_mtrlid,i_sptid String i_plancode,i_mtrlcode,i_status,i_woodcode,i_pcode Double i_cost,i_newprice Decimal i_allouseqty String ls_relcode Decimal ld_rate = 1 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_mxdscrp) THEN arg_mxdscrp = '' IF IsNull(arg_unit) THEN arg_unit = '' IF IsNull(arg_uqty) THEN arg_uqty = 0 IF IsNull(arg_rate) THEN arg_rate = 0 IF IsNull(arg_relprintid) THEN arg_relprintid = 0 IF arg_mtrlwareid = 0 OR arg_qty = 0 THEN rslt = 1 GOTO ext END IF SELECT ow_wfjgware.mtrlid, ow_wfjgware.sptid, ow_wfjgware.plancode, ow_wfjgware.status, ow_wfjgware.cost, u_mtrldef.mtrlcode, ow_wfjgware.woodcode, ow_wfjgware.pcode, ow_wfjgware.noallocqty INTO :i_mtrlid, :i_sptid, :i_plancode, :i_status, :i_cost, :i_mtrlcode, :i_woodcode, :i_pcode, :i_allouseqty FROM ow_wfjgware ,u_mtrldef WHERE ( ow_wfjgware.mtrlwareid = :arg_mtrlwareid ) AND ( ow_wfjgware.mtrlid = u_mtrldef.mtrlid ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,库存编号错误" GOTO ext END IF 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_sptid) THEN i_sptid = 0 IF IsNull(i_woodcode) THEN i_woodcode = '' IF IsNull(i_pcode) THEN i_pcode = '' IF sptid <> i_sptid THEN arg_msg = "物料:" + String(i_mtrlcode) + '所属加工商资料不对应' rslt = 0 GOTO ext END IF IF i_cost < 0 THEN //检查进仓价 rslt = 0 arg_msg = "物料:" + String(i_mtrlcode)+" 单价错误" GOTO ext END IF //写入内容 it_mxbt_bef++ inwaremx_bef[it_mxbt_bef].mtrlwareid = arg_mtrlwareid inwaremx_bef[it_mxbt_bef].mtrlid = i_mtrlid inwaremx_bef[it_mxbt_bef].status = i_status inwaremx_bef[it_mxbt_bef].qty = arg_qty inwaremx_bef[it_mxbt_bef].sptid = i_sptid inwaremx_bef[it_mxbt_bef].plancode = i_plancode inwaremx_bef[it_mxbt_bef].mtrlcode = i_mtrlcode inwaremx_bef[it_mxbt_bef].mxdscrp = arg_mxdscrp inwaremx_bef[it_mxbt_bef].printid = arg_printid inwaremx_bef[it_mxbt_bef].fprice = i_cost inwaremx_bef[it_mxbt_bef].woodcode = i_woodcode inwaremx_bef[it_mxbt_bef].pcode = i_pcode inwaremx_bef[it_mxbt_bef].unit = arg_unit inwaremx_bef[it_mxbt_bef].uqty = arg_uqty inwaremx_bef[it_mxbt_bef].relprintid = arg_relprintid IF arg_uqty <> 0 THEN inwaremx_bef[it_mxbt_bef].rate = arg_qty / arg_uqty ELSE inwaremx_bef[it_mxbt_bef].rate = 0 END IF ext: IF rslt = 0 THEN p_clearmx() RETURN rslt */ end function public function integer acceptmx (s_wfjgmx_in_aft s_mx, ref string arg_msg); Long rslt = 1,cnt = 0,ls_i Decimal ld_planprice,ld_cost Decimal ld_noauditqty,ld_bootqty String ls_relcode Decimal lde_mx_qty Decimal lde_orderqty Long ll_moneyid_native String ls_unit IF uo_option_wfjg_zero = -1000 THEN rslt = 0 arg_msg = '选项:[184]外协收货单允许保存零数量,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_2unit = -1000 THEN rslt = 0 arg_msg = '选项:[067]外协双单位核算,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_change_status = '-1000' THEN rslt = 0 arg_msg = '选项:[029]配置标题文本,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_change_woodcode = '-1000' THEN rslt = 0 arg_msg = '选项:[027]配置1标题文本,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_change_pcode = '-1000' THEN rslt = 0 arg_msg = '选项:[028]配置2标题文本,读取初始默认值失败,操作取消!' GOTO ext END IF IF uo_option_ifovertask = -1000 THEN rslt = 0 arg_msg = '选项:[010]超采购,外协订单收货,读取初始默认值失败,操作取消!' GOTO ext END IF uo_spt_price uo_sptprice uo_sptprice = Create uo_spt_price IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF //清除空值 IF IsNull(s_mx.printid) THEN s_mx.printid = 0 IF IsNull(s_mx.mtrlid) THEN s_mx.mtrlid = 0 IF IsNull(s_mx.mtrlcode) THEN s_mx.mtrlcode = '' IF IsNull(s_mx.plancode) THEN s_mx.plancode = '' IF IsNull(s_mx.status) THEN s_mx.status = '' IF IsNull(s_mx.mxdscrp) THEN s_mx.mxdscrp = '' IF IsNull(s_mx.relid) THEN s_mx.relid = 0 IF IsNull(s_mx.ifrel) THEN s_mx.ifrel = 0 IF IsNull(s_mx.mxdscrp) THEN s_mx.woodcode = '' IF IsNull(s_mx.pcode) THEN s_mx.pcode = '' IF IsNull(s_mx.sptid) THEN s_mx.sptid = 0 IF IsNull(s_mx.storageid) THEN s_mx.storageid = 0 IF IsNull(s_mx.relprintid) THEN s_mx.relprintid = 0 IF IsNull(s_mx.jgdscrp) THEN s_mx.jgdscrp = '' IF IsNull(s_mx.unit) THEN s_mx.unit = '' IF IsNull(s_mx.jgprice) THEN s_mx.jgprice = 0 IF IsNull(s_mx.uqty) THEN s_mx.uqty = 0 IF IsNull(s_mx.qty) THEN s_mx.qty = 0 IF IsNull(s_mx.rebate) THEN s_mx.rebate = 1 IF IsNull(s_mx.fprice) THEN s_mx.fprice = 0 IF IsNull(s_mx.mxtype) THEN s_mx.mxtype = 0 IF IsNull(s_mx.checkqty) THEN s_mx.checkqty = 0 IF IsNull(s_mx.result) THEN s_mx.result = '' IF IsNull(s_mx.rate) THEN s_mx.rate = 1 IF s_mx.rate = 0 THEN s_mx.rate = 1 IF IsNull(s_mx.mtrlcuscode) THEN s_mx.mtrlcuscode = '' IF IsNull(s_mx.Location) THEN s_mx.Location = '' IF IsNull(s_mx.relbillid) THEN s_mx.relbillid = 0 IF IsNull(s_mx.relbillprintid) THEN s_mx.relbillprintid = 0 IF IsNull(s_mx.taxrate) THEN s_mx.taxrate = 0 IF s_mx.mtrlid = 0 THEN rslt = 1 GOTO ext END IF IF uo_option_wfjg_zero = 0 THEN If ( s_mx.uqty = 0 And s_mx.qty = 0 ) THEN rslt = 1 GOTO ext END IF IF s_mx.checkqty = 0 THEN s_mx.checkqty = s_mx.uqty IF s_mx.qty = 0 THEN arg_msg = '行:'+String(s_mx.printid)+ ',请输入数量' rslt = 0 GOTO ext END IF IF uo_option_2unit = 1 THEN IF s_mx.uqty = 0 THEN arg_msg = '行:'+String(s_mx.printid)+ ',请输入计价数量' rslt = 0 GOTO ext END IF IF Trim(s_mx.unit) = '' THEN arg_msg = '行:'+String(s_mx.printid)+ ',请输入计价单位' rslt = 0 GOTO ext END IF END IF END IF IF s_mx.rebate <= 0 Or s_mx.rebate > 1 THEN arg_msg = '行:'+String(s_mx.printid)+',折扣错误,只能取范围(0, 1]' rslt = 0 GOTO ext END IF IF s_mx.taxrate < 0 THEN arg_msg = '税率错误,请检查' rslt = 0 GOTO ext END IF IF billtype = 4 THEN // cnt = 0 // //检查仓库 // SELECT count(*) // INTO :cnt // FROM u_storage // WHERE u_storage.storageid = :s_mx.storageid // Using commit_transaction ; // IF commit_transaction.SQLCode <> 0 THEN // rslt = 0 // arg_msg = "查询操作失败,仓库" // GOTO ext // END IF // IF cnt = 0 THEN // rslt = 0 // arg_msg = "错误的仓库编号: "+String(s_mx.storageid) // GOTO ext // END IF String ls_storagename Int li_if_cus_mtrlware SELECT storagename,noallocflag INTO :ls_storagename,:li_if_cus_mtrlware FROM u_storage Where storageid = :s_mx.storageid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,仓库编号: "+String(s_mx.storageid) GOTO ext END IF //检查是否有该仓库的建立权限 IF sys_user_storagestr_new <> '0' THEN IF Pos(sys_user_storagestr_new,','+String(s_mx.storageid)+',') <= 0 THEN rslt = 0 arg_msg = '没有仓库: '+ls_storagename+' 的建立权限,不允许建立该仓库的单据' GOTO ext END IF END IF // //检查库存数是否足够 Decimal lde_noallocqty IF li_if_cus_mtrlware = 1 THEN If thflag = 1 THEN SELECT sum(noallocqty) INTO :lde_noallocqty FROM u_mtrlware WHERE scid = :scid AND mtrlid = :s_mx.mtrlid AND storageid = :s_mx.storageid AND plancode = :s_mx.plancode AND status = :s_mx.status AND woodcode = :s_mx.woodcode AND pcode = :s_mx.pcode AND dxflag = 0 AND sptid = :s_mx.sptid AND mtrlcuscode = :s_mx.mtrlcuscode And Location = :s_mx.Location Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,仓库" GOTO ext END IF If (Abs(s_mx.qty) > lde_noallocqty ) THEN rslt = 0 arg_msg = '行:'+String(s_mx.printid)+"物料:" + s_mx.mtrlcode+' 库存数量:'+String(lde_noallocqty,'#,##0.##########')+'少于本次返工数量:'+String(Abs(s_mx.qty),'#,##0.##########') GOTO ext END IF END IF END IF END IF IF f_check_status(1,s_mx.status) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_status+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.status GOTO ext END IF IF f_check_status(2,s_mx.woodcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_woodcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.woodcode GOTO ext END IF IF f_check_status(3,s_mx.pcode) = 0 THEN rslt = 0 arg_msg = "查询操作失败,可能"+uo_option_change_pcode+"未定义,物料:"+s_mx.mtrlcode+",内容:"+s_mx.pcode GOTO ext END IF //检查物料id SELECT planprice INTO :ld_planprice FROM u_mtrldef Where u_mtrldef.mtrlid = :s_mx.mtrlid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,物料或产品编号:"+s_mx.mtrlcode GOTO ext END IF Int li_iflimitprice SELECT iflimitprice,unit INTO :li_iflimitprice,:ls_unit FROM u_mtrldef Where mtrlid = :s_mx.mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+s_mx.mtrlcode+'限价属性失败 '+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ls_unit = Trim(ls_unit) SELECT moneyid INTO :ll_moneyid_native FROM cw_currency Where native = 1; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询本位币资料失败' rslt = 0 GOTO ext END IF //查询采购限价并检查进仓价 IF billtype = 5 Or billtype = 4 THEN IF li_iflimitprice = 1 THEN IF uo_sptprice.uof_check_price(thflag,sptid,s_mx.mtrlid,s_mx.mtrlcode,s_mx.unit,s_mx.status,s_mx.woodcode,s_mx.pcode,s_mx.jgdscrp,ll_moneyid_native,s_mx.jgprice,indate,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF END IF END IF IF s_mx.ifrel > 0 THEN IF s_mx.relid = 0 THEN arg_msg = '行:'+String(s_mx.printid)+ ',请先择相应的外协订单' rslt = 0 GOTO ext END IF SELECT u_order_wfjg.taskcode ,sum(u_order_wfjgmx.qty - u_order_wfjgmx.consignedqty),sum(u_order_wfjgmx.qty) INTO :ls_relcode,:ld_bootqty,:lde_orderqty FROM u_order_wfjgmx,u_order_wfjg WHERE u_order_wfjgmx.wfjgid = :s_mx.relid AND u_order_wfjgmx.scid = :scid AND u_order_wfjgmx.printid = :s_mx.relprintid AND u_order_wfjgmx.wfjgid = u_order_wfjg.wfjgid AND u_order_wfjgmx.scid = u_order_wfjg.scid GROUP BY u_order_wfjg.taskcode Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询外协订单是否有加工产品:'+s_mx.mtrlcode+'失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF lde_mx_qty = 0 FOR ls_i = 1 To it_mxbt IF s_mx.mtrlid = inwaremx[ls_i].mtrlid And & s_mx.relid = inwaremx[ls_i].relid And & s_mx.relprintid = inwaremx[ls_i].relprintid THEN lde_mx_qty = lde_mx_qty + inwaremx[ls_i].qty END IF NEXT lde_mx_qty = lde_mx_qty + s_mx.qty SELECT isnull(sum(ow_wfjgmx_in_aft.qty),0) INTO :ld_noauditqty FROM ow_wfjgmx_in_aft,ow_wfjg_in WHERE ow_wfjgmx_in_aft.relid = :s_mx.relid AND ow_wfjgmx_in_aft.scid = :scid AND ow_wfjgmx_in_aft.relprintid = :s_mx.relprintid AND ow_wfjgmx_in_aft.inwareid = ow_wfjg_in.inwareid AND ow_wfjgmx_in_aft.scid = ow_wfjg_in.scid AND ow_wfjg_in.inwareid <> :inwareid AND ow_wfjg_in.flag = 0 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询物料:'+s_mx.mtrlcode+'相关外协订单已开单数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF Decimal ld_uprate,ld_upqty IF uo_option_ifovertask = 1 THEN //不允许超收 IF lde_mx_qty + ld_noauditqty > ld_bootqty THEN arg_msg = '物料:'+s_mx.mtrlcode+'未完成数:'+String(ld_bootqty,'#,##0.0###')+ls_unit+',已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+ls_unit+',不能收货:'+String(lde_mx_qty,'#,##0.0###')+ls_unit rslt = 0 GOTO ext END IF ELSEIF uo_option_ifovertask = 3 THEN //允许超收但按比例限制 SELECT uprate , upqty INTO :ld_uprate,:ld_upqty FROM u_mtrldef Where mtrlid = :s_mx.mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料:'+Trim(s_mx.mtrlcode)+'超收货比例失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF lde_mx_qty + ld_noauditqty > ld_bootqty + lde_orderqty * ld_uprate + ld_upqty THEN arg_msg = '物料:'+s_mx.mtrlcode+'未完成数:'+String(ld_bootqty,'#,##0.0###')+ls_unit+',已开单未审核数:'+String(ld_noauditqty,'#,##0.0###')+ls_unit+',允许超收数量:'+String(lde_orderqty * ld_uprate + ld_upqty,'#,##0.0###')+ls_unit+',不能收货:'+String(lde_mx_qty,'#,##0.0###')+ls_unit rslt = 0 GOTO ext END IF END IF END IF IF s_mx.fprice * s_mx.rebate < 0 THEN //检查进仓价 rslt = 0 arg_msg = "物料或产品:" + String(s_mx.mtrlcode)+",进仓成本价错误" GOTO ext END IF String ls_relbillcode ls_relbillcode = '' IF s_mx.relbillid > 0 THEN SELECT billcode INTO :ls_relbillcode FROM u_sptcheck Where billid = :s_mx.relbillid; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询质检单号失败'+commit_transaction.SQLErrText GOTO ext END IF END IF //写入内容 it_mxbt++ inwaremx[it_mxbt].printid = s_mx.printid inwaremx[it_mxbt].noauditqty = ld_noauditqty inwaremx[it_mxbt].mtrlid = s_mx.mtrlid inwaremx[it_mxbt].mtrlcode = s_mx.mtrlcode inwaremx[it_mxbt].jgdscrp = s_mx.jgdscrp inwaremx[it_mxbt].status = s_mx.status inwaremx[it_mxbt].woodcode = s_mx.woodcode inwaremx[it_mxbt].pcode = s_mx.pcode inwaremx[it_mxbt].storageid = s_mx.storageid inwaremx[it_mxbt].dxflag = dxflag inwaremx[it_mxbt].mtrlcuscode = s_mx.mtrlcuscode inwaremx[it_mxbt].Location = s_mx.Location inwaremx[it_mxbt].plancode = s_mx.plancode IF dxflag = 0 THEN inwaremx[it_mxbt].sptid = s_mx.sptid ELSE inwaremx[it_mxbt].sptid = sptid END IF inwaremx[it_mxbt].bootqty = ld_bootqty inwaremx[it_mxbt].planprice = ld_planprice inwaremx[it_mxbt].mxdscrp = s_mx.mxdscrp inwaremx[it_mxbt].ifrel = s_mx.ifrel inwaremx[it_mxbt].relid = s_mx.relid inwaremx[it_mxbt].relprintid = s_mx.relprintid inwaremx[it_mxbt].relcode = ls_relcode inwaremx[it_mxbt].checkqty = s_mx.checkqty inwaremx[it_mxbt].result = s_mx.result inwaremx[it_mxbt].relbillid = s_mx.relbillid inwaremx[it_mxbt].relbillprintid = s_mx.relbillprintid inwaremx[it_mxbt].relbillcode = ls_relbillcode inwaremx[it_mxbt].unit = s_mx.unit IF uo_option_2unit = 0 THEN s_mx.uqty = s_mx.qty END IF inwaremx[it_mxbt].uqty = s_mx.uqty IF s_mx.uqty <> 0 THEN inwaremx[it_mxbt].rate = s_mx.qty/s_mx.uqty ELSE inwaremx[it_mxbt].rate = 0 END IF inwaremx[it_mxbt].qty = s_mx.qty inwaremx[it_mxbt].jgprice = s_mx.jgprice //加工价, 本位币, 外协单位 inwaremx[it_mxbt].rebate = s_mx.rebate inwaremx[it_mxbt].taxrate = s_mx.taxrate IF s_mx.qty <> 0 THEN inwaremx[it_mxbt].uprice = Round(s_mx.jgprice * s_mx.uqty/s_mx.qty,5) //加工价, 本位币, 库存单位 ELSE inwaremx[it_mxbt].uprice = 0 END IF inwaremx[it_mxbt].fprice = s_mx.fprice //材料成本价, 本位币, 库存单位 inwaremx[it_mxbt].price = inwaremx[it_mxbt].uprice * s_mx.rebate + s_mx.fprice //材料实价,本位币,库存单位(进仓成本价) inwaremx[it_mxbt].mxtype = s_mx.mxtype IF billtype = 1 THEN String ls_sptmtrlname uo_spt_price uo_price uo_price = Create uo_spt_price IF uo_price.uof_getmtrlname(sptid,s_mx.mtrlid,ls_sptmtrlname,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF Destroy uo_price inwaremx[it_mxbt].sptmtrlname = ls_sptmtrlname END IF IF thflag = 1 THEN SELECT cost INTO :ld_cost FROM u_mtrlware WHERE scid = :scid AND mtrlid = :s_mx.mtrlid AND status = :s_mx.status AND plancode = :s_mx.plancode AND woodcode = :s_mx.woodcode AND pcode = :s_mx.pcode AND mtrlcuscode = :s_mx.mtrlcuscode AND location = :s_mx.location AND storageid = :s_mx.storageid AND dxflag = :dxflag And sptid = 0; IF sqlca.SQLCode <> 0 Or IsNull(ld_cost) THEN ld_cost = 0 inwaremx[it_mxbt].cost = ld_cost ELSE inwaremx[it_mxbt].cost = (inwaremx[it_mxbt].uprice * s_mx.rebate) + inwaremx[it_mxbt].fprice //进仓成本价,本位币,库存单位 END IF ext: Destroy uo_sptprice IF rslt = 0 THEN p_clearmx() Return(rslt) end function public function integer acceptmx_bef (s_wfjgmx_in_bef s_mx, ref string arg_msg); Long rslt = 1,cnt = 0,LS_i Long i_mtrlid,i_sptid String i_plancode,i_mtrlcode,i_status,i_woodcode,i_pcode Double i_cost,i_newprice Decimal i_allouseqty String ls_relcode Decimal ld_rate = 1 IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF IF IsNull(s_mx.mtrlwareid) THEN s_mx.mtrlwareid = 0 IF IsNull(s_mx.printid) THEN s_mx.printid = 0 IF IsNull(s_mx.qty) THEN s_mx.qty = 0 IF IsNull(s_mx.mxdscrp) THEN s_mx.mxdscrp = '' IF IsNull(s_mx.unit) THEN s_mx.unit = '' IF IsNull(s_mx.uqty) THEN s_mx.uqty = 0 IF IsNull(s_mx.rate) THEN s_mx.rate = 0 IF IsNull(s_mx.relprintid) THEN s_mx.relprintid = 0 IF s_mx.mtrlwareid = 0 Or s_mx.qty = 0 THEN rslt = 1 GOTO ext END IF SELECT ow_wfjgware.mtrlid, ow_wfjgware.sptid, ow_wfjgware.plancode, ow_wfjgware.status, ow_wfjgware.cost, u_mtrldef.mtrlcode, ow_wfjgware.woodcode, ow_wfjgware.pcode, ow_wfjgware.noallocqty INTO :i_mtrlid, :i_sptid, :i_plancode, :i_status, :i_cost, :i_mtrlcode, :i_woodcode, :i_pcode, :i_allouseqty FROM ow_wfjgware ,u_mtrldef WHERE ( ow_wfjgware.mtrlwareid = :s_mx.mtrlwareid ) AND ( ow_wfjgware.mtrlid = u_mtrldef.mtrlid ) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,库存编号错误" GOTO ext END IF 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_sptid) THEN i_sptid = 0 IF IsNull(i_woodcode) THEN i_woodcode = '' IF IsNull(i_pcode) THEN i_pcode = '' IF sptid <> i_sptid THEN arg_msg = "物料:" + String(i_mtrlcode) + '所属加工商资料不对应' rslt = 0 GOTO ext END IF IF i_cost < 0 THEN //检查进仓价 rslt = 0 arg_msg = "物料:" + String(i_mtrlcode)+" 单价错误" GOTO ext END IF //外协收货,检查供应商库存是否足够; //外协返工,检查仓库是否足够; IF sys_option_wfjg_in_chksptware = 1 THEN IF s_mx.qty > 0 THEN // IF i_allouseqty < s_mx.qty THEN //检查库存数 rslt = 0 arg_msg = "物料:" + String(i_mtrlcode)+' 外协商库存数量:'+String(i_allouseqty,'#,##0.##########')+'少于本次扣减数量:'+String(s_mx.qty,'#,##0.##########') GOTO ext END IF END IF END IF //写入内容 it_mxbt_bef++ inwaremx_bef[it_mxbt_bef].mtrlwareid = s_mx.mtrlwareid inwaremx_bef[it_mxbt_bef].mtrlid = i_mtrlid inwaremx_bef[it_mxbt_bef].status = i_status inwaremx_bef[it_mxbt_bef].qty = s_mx.qty inwaremx_bef[it_mxbt_bef].sptid = i_sptid inwaremx_bef[it_mxbt_bef].plancode = i_plancode inwaremx_bef[it_mxbt_bef].mtrlcode = i_mtrlcode inwaremx_bef[it_mxbt_bef].mxdscrp = s_mx.mxdscrp inwaremx_bef[it_mxbt_bef].printid = s_mx.printid inwaremx_bef[it_mxbt_bef].fprice = i_cost inwaremx_bef[it_mxbt_bef].woodcode = i_woodcode inwaremx_bef[it_mxbt_bef].pcode = i_pcode inwaremx_bef[it_mxbt_bef].unit = s_mx.unit inwaremx_bef[it_mxbt_bef].uqty = s_mx.uqty inwaremx_bef[it_mxbt_bef].relprintid = s_mx.relprintid IF s_mx.uqty <> 0 THEN inwaremx_bef[it_mxbt_bef].rate = s_mx.qty / s_mx.uqty ELSE inwaremx_bef[it_mxbt_bef].rate = 0 END IF ext: IF rslt = 0 THEN p_clearmx() RETURN rslt end function public function integer p_create_wfjgorder (string arg_opemp, boolean arg_ifcommit, ref string arg_msg);Int rslt = 1,i Long rst_wfjgid uo_order_wfjg uo_wforder uo_wforder = Create uo_order_wfjg uo_wforder.commit_transaction = commit_transaction IF uo_wforder.newbegin(scid,arg_msg) = 0 THEN // rslt = 0 GOTO ext END IF uo_wforder.Requiredate = indate uo_wforder.Assign_emp = inrep uo_wforder.sptID = sptID uo_wforder.dscrp = '返工单审核自动生成的外协订单' uo_wforder.billtype = 4 uo_wforder.reason = '' uo_wforder.relcode = inwarecode FOR i = 1 To it_mxbt IF uo_wforder.acceptmx(0,& 0,& '',& inwaremx[i].mtrlid,& abs(inwaremx[i].qty),& inwaremx[i].jgprice,& inwaremx[i].mxdscrp,& inwaremx[i].mtrlcode,& arg_msg,& i,& indate,& 0,& inwaremx[i].jgdscrp,& inwaremx[i].status,& inwaremx[i].woodcode,& inwaremx[i].pcode,& 0,& 0,& 0,& '[常规]',& inwaremx[i].unit,& abs(inwaremx[i].uqty),& inwaremx[i].rate,& 0,& inwaremx[i].plancode,& 0,0) = 0 THEN rslt = 0 GOTO ext END IF NEXT FOR i = 1 To it_mxbt IF uo_wforder.acceptmx_out(0,& 0,& '',& inwaremx_bef[i].mtrlid,& abs(inwaremx_bef[i].qty),& inwaremx_bef[i].fprice,& inwaremx_bef[i].mxdscrp,& inwaremx_bef[i].mtrlcode,& arg_msg,& i,& 0,& inwaremx_bef[i].status,& inwaremx_bef[i].woodcode,& inwaremx_bef[i].pcode,& inwaremx_bef[i].unit,& abs(inwaremx_bef[i].uqty),& inwaremx_bef[i].rate,& i,& 0) = 0 THEN rslt = 0 GOTO ext END IF NEXT IF uo_wforder.savesubmit(arg_opemp,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF rst_wfjgid = uo_wforder.wfjgid IF uo_wforder.firstpermit(scid,rst_wfjgid,arg_opemp,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF UPDATE ow_wfjg_in SET relint_3 = :rst_wfjgid WHERE scid = :scid And inwareid = :inwareid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '记录相关返工外协订单id失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Destroy uo_wforder RETURN rslt end function public function integer p_destroy_wfjgorder (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1 uo_order_wfjg uo_wforder uo_wforder = Create uo_order_wfjg uo_wforder.commit_transaction = commit_transaction uo_wforder.caudit_checkauto = 1 IF inwareid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF relint_3 = 0 THEN rslt = 1 GOTO ext END IF IF uo_wforder.cancelpermit(scid,relint_3,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF IF uo_wforder.Cancel(scid,relint_3,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF UPDATE ow_wfjg_in SET relint_3 = 0 WHERE scid = :scid And inwareid = :inwareid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '清除相关返工外协订单id失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK Using commit_transaction; ELSEIF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Destroy uo_wforder RETURN rslt end function public function integer uof_check_sptpdb_audit (long arg_sptid, ref string arg_msg);Int rslt = 1 Long cnt if billtype = 9 then goto ext //盘点单不算 SELECT count(*) INTO :cnt FROM ow_wfjg_sptpdb WHERE sptid = :arg_sptid 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 mod_price (long arg_scid, long arg_inwareid, long arg_printid, decimal arg_fprice, decimal arg_jgprice, decimal arg_taxrate, decimal arg_rebate, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 uo_inware uo_in uo_in = Create uo_inware uo_in.commit_transaction = sqlca IF p_getinfo(arg_scid,arg_inwareid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF flag = 0 THEN rslt = 0 arg_msg = '进仓单待审核状态下不能执行修改单价功能' GOTO ext END IF Decimal ld_jgprice,ld_fprice,ld_uqty,ld_rate,ld_qty,ld_rebate,ld_taxrate Long ll_mtrlid String ls_status,ls_woodcode,ls_pcode Long ll_storageid SELECT jgprice, fprice, uqty, qty, rebate, mtrlid, status, woodcode, pcode, storageid, rate, taxrate INTO :ld_jgprice, :ld_fprice, :ld_uqty, :ld_qty, :ld_rebate, :ll_mtrlid, :ls_status, :ls_woodcode, :ls_pcode, :ll_storageid, :ld_rate, :ld_taxrate FROM ow_wfjgmx_in_aft WHERE scid = :arg_scid AND inwareid = :arg_inwareid AND printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询单据明细内容失败'+commit_transaction.SQLErrText GOTO ext END IF IF arg_taxrate = -1 THEN arg_taxrate = ld_taxrate IF arg_rebate = -1 THEN arg_rebate = ld_rebate IF secflag = 1 THEN IF arg_jgprice <> ld_jgprice Or arg_taxrate <> ld_taxrate or arg_rebate = ld_rebate THEN //可以修改材料成本价 rslt = 0 arg_msg = '进仓单已财审,不能执行修改加工价、折扣、税率' GOTO ext END IF END IF IF arg_jgprice = ld_jgprice And arg_fprice = ld_fprice And arg_taxrate = ld_taxrate and arg_rebate = ld_rebate THEN //没有修改,成功返回 rslt = 1 //arg_msg = '单价或税率没有任何修改,不能保存' GOTO ext END IF Long ll_inwareid, ll_balcdateint, ll_cnt Int li_balcflag Int li_StoreBalcType Int li_storagetype IF billtype = 4 THEN //仓库外协需更新仓库进仓单, 车间外协不需要 SELECT storagetype, StoreBalcType INTO :li_storagetype, :li_StoreBalcType FROM u_storage Where storageid = :ll_storageid Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,仓库属性" GOTO ext END IF SELECT inwareid,balcflag,balcdateint INTO :ll_inwareid,:li_balcflag,:ll_balcdateint FROM u_inware WHERE scid = :arg_scid AND relid = :arg_inwareid AND storageid = :ll_storageid And billtype = 4 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询相关进仓单失败'+commit_transaction.SQLErrText GOTO ext END IF IF li_StoreBalcType = 0 THEN IF li_balcflag = 1 THEN rslt = 0 arg_msg = '外协收货单相关进仓单已结存,期间['+string(ll_balcdateint)+'],不能修改' GOTO ext END IF ELSE SELECT count(*) INTO :ll_cnt FROM u_warebalc WHERE storageid = :ll_storageid AND balcdateint = :ll_balcdateint AND AmtAuditFlag = 1 Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,仓库属性" GOTO ext END IF IF ll_cnt > 0 THEN rslt = 0 arg_msg = '外协收货单相关进仓仓库已金额结存,期间['+string(ll_balcdateint)+'],不能修改' GOTO ext END IF END IF END IF Decimal ld_uprice_new,ld_price_new,ld_cost_new IF ld_qty <> 0 THEN ld_uprice_new = Round(arg_jgprice * ld_uqty/ld_qty,5) ELSE ld_uprice_new = 0 END IF ld_cost_new = ld_uprice_new * arg_rebate + arg_fprice ld_price_new = ld_uprice_new * arg_rebate + arg_fprice UPDATE ow_wfjgmx_in_aft SET jgprice = :arg_jgprice, fprice = :arg_fprice, uprice = :ld_uprice_new, price = :ld_price_new, cost = :ld_cost_new, taxrate = :arg_taxrate, rebate = :arg_rebate WHERE scid = :arg_scid AND inwareid = :arg_inwareid And printid = :arg_printid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新单据明细失败'+commit_transaction.SQLErrText GOTO ext END IF IF billtype = 4 THEN IF uo_in.mod_price(arg_scid,ll_inwareid,arg_printid,arg_jgprice * arg_rebate + arg_fprice * ld_rate,arg_jgprice,0,1,arg_msg,arg_ifcommit) = 0 THEN rslt = 0 GOTO ext END IF END IF ext: Destroy uo_in 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 on uo_inware_wfjg.create call super::create TriggerEvent( this, "constructor" ) end on on uo_inware_wfjg.destroy TriggerEvent( this, "destructor" ) call super::destroy end on event constructor;String str_optionvalue,arg_msg f_get_sys_option_value('086',str_optionvalue,arg_msg) uo_option_wfjg_outmx = Long(str_optionvalue) f_get_sys_option_value('169',str_optionvalue,arg_msg) uo_option_wfjg_sptprice_sec = Long(str_optionvalue) f_get_sys_option_value('131',str_optionvalue,arg_msg) uo_option_check_wfjgin = Long(str_optionvalue) f_get_sys_option_value('184',str_optionvalue,arg_msg) uo_option_wfjg_zero = Long(str_optionvalue) f_get_sys_option_value('067',str_optionvalue,arg_msg) uo_option_2unit = Long(str_optionvalue) f_get_sys_option_value('029',str_optionvalue,arg_msg) uo_option_change_status = str_optionvalue f_get_sys_option_value('027',str_optionvalue,arg_msg) uo_option_change_woodcode = str_optionvalue f_get_sys_option_value('028',str_optionvalue,arg_msg) uo_option_change_pcode = str_optionvalue f_get_sys_option_value('010',str_optionvalue,arg_msg) uo_option_ifovertask = Long(str_optionvalue) f_get_sys_option_value('322',str_optionvalue,arg_msg) uo_option_wfjg_th_ifnotorder = Long(str_optionvalue) f_get_sys_option_value('362',str_optionvalue,arg_msg) uo_option_cost_notax = long(str_optionvalue) end event