$PBExportHeader$uo_mtrlware_trans.sru forward global type uo_mtrlware_trans from nonvisualobject end type end forward global type uo_mtrlware_trans from nonvisualobject end type global uo_mtrlware_trans uo_mtrlware_trans type variables PUBLIC PROTECTEDWRITE Long scid PUBLIC PROTECTEDWRITE Long billid PUBLIC PROTECTEDWRITE String billcode PUBLIC PROTECTEDWRITE DateTime opdate PUBLIC PROTECTEDWRITE String opemp PUBLIC PROTECTEDWRITE DateTime moddate PUBLIC PROTECTEDWRITE String modemp PUBLIC PROTECTEDWRITE Int fflag = 0 PUBLIC PROTECTEDWRITE Int flag = 0 PUBLIC PROTECTEDWRITE DateTime auditingdate PUBLIC PROTECTEDWRITE String auditingrep PUBLIC PROTECTEDWRITE Decimal sum_transqty = 0 PUBLIC PROTECTEDWRITE Decimal sum_transamt = 0 PUBLIC PROTECTEDWRITE Int priceflag = 0 //确认标志 PUBLIC PROTECTEDWRITE DateTime pricedate //确认时间 PUBLIC PROTECTEDWRITE String priceemp //确认操作员 Long mtrlwareid Long storageid Long mtrlid Long relid String plancode String status DateTime billdate String inrep String part String dscrp Decimal transqty Decimal cost String woodcode String pcode string mtrlcuscode string location Int ifunit String uunit,unit Decimal rate string waredscrp Int billtype // 0 - 正常 // 1 - 异常 String transreason int kind // 0 - 一调多 // 1 - 多调一 // 2 - 借货 // 3 - 还货 // 4 - 多产品调一客户 // 5 - 一产品调一客户 Boolean if_getid_ture = TRUE Transaction commit_transaction //数据commit事务 PRIVATE: s_transmx billmx[] //明细结构数组 s_outwaremx_barcode s_mx_barcode[] Long it_mxbt = 0 //明细结构数组末指针 Long it_mxbt_barcode = 0 Boolean it_newbegin = FALSE //新建标志 Boolean it_updatebegin = FALSE //修改标志 end variables forward prototypes public function integer p_reset () public function integer p_clearmx () public function integer newbegin (long arg_scid, ref string arg_msg) public function integer updatebegin (long arg_scid, long arg_billid, ref string arg_msg) public function integer p_getinfo (long arg_scid, long arg_billid, ref string arg_msg) public function integer del (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit) public function integer add_dscrp (long arg_scid, long arg_billid, string arg_newdescppart, ref string arg_msg) public function integer getinfo (long arg_scid, long arg_billid, ref string arg_msg) public function integer save (boolean arg_ifcommit, ref string arg_msg) public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg) public function integer auditing (boolean arg_ifcommit, ref string arg_msg) public function integer uof_add_returnqty (long arg_scid, long arg_relid, long arg_relprintid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit) public function integer uof_finish (integer arg_finishtype, integer arg_fflag, long arg_scid, long arg_billid, string arg_opemp, ref string arg_msg, boolean arg_ifcommit) public function integer uof_trycmpl (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit) public function integer uof_update_waredate (boolean arg_ifcommit, ref string arg_msg) public function integer acceptmx (long arg_printid, long arg_mtrlwareid, long arg_mtrlid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, long arg_rel_cusid_sptid, ref string arg_msg, string arg_woodcode, string arg_pcode, long arg_relid, long arg_relprintid, string arg_mtrlcuscode, string arg_location, string arg_waredscrp, string arg_plancode2, string arg_location2, string arg_mtrlcuscode2) public function integer priceaudit (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg) public function integer c_priceaudit (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg) end prototypes public function integer p_reset ();//int p_reset() //清除对象及其明细 scid = 0 billid = 0 billcode = '' opemp = '' modemp = '' auditingrep = '' flag = 0 inrep = '' part = '' dscrp = '' relid = 0 storageid = 0 mtrlwareid = 0 mtrlid = 0 plancode = '' status = '' transqty = 0 cost = 0 Kind = 0 mtrlcuscode = '' location = '' waredscrp = '' sum_transqty = 0 sum_transamt = 0 it_newbegin = FALSE it_updatebegin = FALSE //清除明细 p_clearmx() RETURN 1 end function public function integer p_clearmx ();//int p_clearmx() //清除明细 it_mxbt = 0 sum_transqty = 0 sum_transamt = 0 RETURN 1 end function public function integer newbegin (long arg_scid, ref string arg_msg);Int rslt = 1 IF arg_scid < 0 THEN arg_msg = '请选择分部' rslt = 0 GOTO ext END IF p_reset() scid = arg_scid 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_billid, ref string arg_msg);Int rslt = 1 IF arg_scid < 0 THEN arg_msg = '请选择分部' rslt = 0 GOTO ext END IF IF arg_billid <= 0 THEN rslt = 0 GOTO ext END IF IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF Kind = 5 AND priceflag = 1 THEN rslt = 0 arg_msg = '单据已经确认,不可以修改' GOTO ext END IF IF flag = 1 THEN rslt = 0 arg_msg = '单据已经审核,不可以修改' GOTO ext END IF billid = arg_billid scid = arg_scid it_newbegin = FALSE it_updatebegin = TRUE p_clearmx() //清除明细 ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer p_getinfo (long arg_scid, long arg_billid, ref string arg_msg);Int rslt = 1 IF arg_billid <= 0 THEN rslt = 0 arG_MSG = "非法单据唯一码" GOTO ext END IF SELECT u_mtrlware_trans.billcode, u_mtrlware_trans.mtrlwareid, u_mtrlware_trans.storageid, u_mtrlware_trans.mtrlid, u_mtrlware_trans.relid, u_mtrlware_trans.plancode, u_mtrlware_trans.status, u_mtrlware_trans.transqty, u_mtrlware_trans.billdate, u_mtrlware_trans.inrep, u_mtrlware_trans.flag, u_mtrlware_trans.fflag, u_mtrlware_trans.dscrp, u_mtrlware_trans.part, u_mtrlware_trans.cost, u_mtrlware_trans.woodcode, u_mtrlware_trans.pcode, u_mtrlware_trans.billtype, u_mtrlware_trans.transreason, u_mtrlware_trans.kind, u_mtrldef.ifunit, u_mtrldef.rate_buy, u_mtrldef.unit_buy, u_mtrldef.unit, u_mtrlware_trans.mtrlcuscode, u_mtrlware_trans.location, u_mtrlware_trans.waredscrp, u_mtrlware_trans.priceflag, u_mtrlware_trans.pricedate, u_mtrlware_trans.priceemp INTO :billcode, :mtrlwareid, :storageid, :mtrlid, :relid, :plancode, :status, :transqty, :billdate, :inrep, :flag, :fflag, :dscrp, :part, :cost, :woodcode, :pcode, :billtype, :transreason, :Kind, :ifunit, :rate, :uunit, :unit, :mtrlcuscode, :location, :waredscrp, :priceflag, :pricedate, :priceemp FROM u_mtrlware_trans,u_mtrldef WHERE u_mtrlware_trans.billid = :arg_billid AND u_mtrlware_trans.scid = :arg_scid and u_mtrlware_trans.mtrlid *= u_mtrldef.mtrlid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "查询操作失败(错误调货单唯一码),调货单"+commit_transaction.SQLErrText GOTO ext END IF billid = arg_billid scid = arg_scid ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer del (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 IF arg_scid < 0 THEN arg_msg = '请选择分部' rslt = 0 GOTO ext END IF IF arg_billid = 0 THEN rslt = 0 arg_msg = "没有删除对象,操作取消" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_billid,arg_msg) IF rslt = 0 THEN GOTO ext IF Kind = 5 AND priceflag = 1 THEN rslt = 0 arg_msg = '单据已经确认,不可以删除' GOTO ext END IF IF flag = 1 THEN rslt = 0 arg_msg = "单据已经审核,不可以删除" GOTO ext END IF DELETE FROM u_mtrlware_transmx WHERE u_mtrlware_transmx.billid = :arg_billid 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 DELETE FROM u_mtrlware_trans WHERE u_mtrlware_trans.billid = :arg_billid 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_billid, string arg_newdescppart, ref string arg_msg);int rslt=1 arg_newdescppart=trim(arg_newdescppart) if it_updatebegin or it_newbegin then rslt=0 arg_msg="编辑状态下不可用" goto ext end if if arg_newdescppart='' then rslt=0 arg_msg="要添加内容为空,操作取消" goto ext end if rslt=p_getinfo(arg_scid,arg_billid,arg_msg) if rslt=0 then goto ext if flag=0 then rslt=0 arg_msg="非审核状态下不可用" goto ext end if update u_mtrlware_trans set dscrp = dscrp+' '+:arg_newdescppart where u_mtrlware_trans.billid = :billid 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 getinfo (long arg_scid, long arg_billid, ref string arg_msg);Int rslt = 1 long i = 1,no_mxcheck = 0,no_mxcheck_barcode = 0,k = 1 Int li_outtype sum_transqty = 0 IF arg_billid <= 0 THEN rslt = 0 arg_msg = "非法单据唯一码" GOTO ext END IF rslt = p_getinfo(arg_scid,arg_billid,arg_msg) IF rslt = 0 THEN GOTO ext SELECT outtype INTO :li_outtype FROM u_storage Where storageid = :storageid; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,仓库出仓类型,"+sqlca.SQLErrText GOTO ext END IF //用游标读取明细 DECLARE cur_transmx CURSOR FOR SELECT u_mtrlware_transmx.printid, u_mtrlware_transmx.mtrlid, u_mtrlware_transmx.plancode, u_mtrlware_transmx.status, u_mtrlware_transmx.qty, u_mtrlware_transmx.fprice, u_mtrlware_transmx.rebate, u_mtrlware_transmx.price, u_mtrlware_transmx.mxdscrp, u_mtrldef.mtrlcode, u_mtrlware_transmx.rel_cusid_sptid, u_mtrlware_transmx.woodcode, u_mtrlware_transmx.pcode, u_mtrlware_transmx.relid, u_mtrlware_transmx.relprintid, u_mtrldef.ifunit, u_mtrldef.rate_buy, u_mtrldef.unit_buy, u_mtrldef.unit, u_mtrlware_transmx.mtrlcuscode, u_mtrlware_transmx.location, u_mtrlware_transmx.waredscrp, u_mtrlware_transmx.mtrlcuscode2, u_mtrlware_transmx.location2, u_mtrlware_transmx.plancode2, u_mtrlware_transmx.mtrlwareid FROM u_mtrlware_transmx,u_mtrldef WHERE u_mtrlware_transmx.billid = :arg_billid AND u_mtrlware_transmx.mtrlid = u_mtrldef.mtrlid AND u_mtrlware_transmx.scid = :arg_scid USING commit_transaction; OPEN cur_transmx; FETCH cur_transmx INTO :billmx[i].printid,:billmx[i].mtrlid,:billmx[i].plancode, :billmx[i].status,:billmx[i].qty,:billmx[i].fprice, :billmx[i].rebate,:billmx[i].price, :billmx[i].mxdscrp,:billmx[i].mtrlcode, :billmx[i].rel_cusid_sptid, :billmx[i].woodcode, :billmx[i].pcode, :billmx[i].relid, :billmx[i].relprintid, :billmx[i].ifunit, :billmx[i].rate, :billmx[i].uunit, :billmx[i].unit, :billmx[i].mtrlcuscode, :billmx[i].location, :billmx[i].waredscrp, :billmx[i].mtrlcuscode2, :billmx[i].location2, :billmx[i].plancode2, :billmx[i].mtrlwareid; DO WHILE commit_transaction.SQLCode = 0 sum_transqty = sum_transqty + billmx[i].qty i++ FETCH cur_transmx INTO :billmx[i].printid,:billmx[i].mtrlid,:billmx[i].plancode, :billmx[i].status,:billmx[i].qty,:billmx[i].fprice, :billmx[i].rebate,:billmx[i].price, :billmx[i].mxdscrp,:billmx[i].mtrlcode, :billmx[i].rel_cusid_sptid, :billmx[i].woodcode, :billmx[i].pcode, :billmx[i].relid, :billmx[i].relprintid, :billmx[i].ifunit, :billmx[i].rate, :billmx[i].uunit, :billmx[i].unit, :billmx[i].mtrlcuscode, :billmx[i].location, :billmx[i].waredscrp, :billmx[i].mtrlcuscode2, :billmx[i].location2, :billmx[i].plancode2, :billmx[i].mtrlwareid; LOOP CLOSE cur_transmx; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_mtrlware_transmx WHERE u_mtrlware_transmx.billid = :arg_billid AND scid = :arg_scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,调货单明细数量" GOTO ext END IF IF i <> (no_mxcheck+1) THEN rslt = 0 arg_msg = "查询操作失败,调货单明细" GOTO ext END IF //用游标读取条码明细 IF li_outtype = 2 or li_outtype = 3 THEN DECLARE cur_outwaremx_barcode CURSOR FOR SELECT u_outwaremx_mx_barcode.barcode, u_outwaremx_mx_barcode.qty, u_mtrlware_mx.packqty FROM u_outwaremx_mx_barcode,u_mtrlware_mx WHERE u_outwaremx_mx_barcode.barcode = u_mtrlware_mx.barcode and u_outwaremx_mx_barcode.outwareid = :arg_billid AND u_outwaremx_mx_barcode.scid = :arg_scid and u_outwaremx_mx_barcode.billtype = 51 Order By u_outwaremx_mx_barcode.barcode; OPEN cur_outwaremx_barcode; FETCH cur_outwaremx_barcode INTO :s_mx_barcode[k].barcode,:s_mx_barcode[k].qty,:s_mx_barcode[k].packqty; DO WHILE sqlca.SQLCode = 0 k++ FETCH cur_outwaremx_barcode INTO :s_mx_barcode[k].barcode,:s_mx_barcode[k].qty,:s_mx_barcode[k].packqty; LOOP CLOSE cur_outwaremx_barcode; //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck_barcode FROM u_outwaremx_mx_barcode WHERE u_outwaremx_mx_barcode.outwareid = :arg_billid AND u_outwaremx_mx_barcode.scid = :arg_scid and u_outwaremx_mx_barcode.billtype = 51; IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,出仓单明细数量" GOTO ext END IF IF k <> (no_mxcheck_barcode+1) THEN rslt = 0 arg_msg = "查询操作失败,出仓单条码明细" GOTO ext END IF it_mxbt_barcode = k - 1 END IF billid = arg_billid scid = arg_scid it_mxbt = i - 1 it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer save (boolean arg_ifcommit, ref string arg_msg);Integer rslt = 1 Long cnt = 0,i DateTime server_dt Long ls_newid String ls_sccode Long i_mtrlid Long i_relid String i_plancode String i_status Long i_storageid String i_woodcode String i_pcode String i_mtrlcuscode String i_location String i_waredscrp Int li_outtype,li_storagetype Int li_noallocflag Decimal ld_noallocqty,ld_notauditqty,ld_allocqty IF IsNull(mtrlwareid) THEN mtrlwareid = 0 IF IsNull(storageid) THEN storageid = 0 IF IsNull(cost) THEN cost = 0 IF IsNull(inrep) THEN inrep = '' IF IsNull(part) THEN part = '' IF IsNull(dscrp) THEN dscrp = '' IF IsNull(transqty) THEN transqty = 0 IF IsNull(billtype) THEN billtype = 0 IF IsNull(transreason) THEN transreason = '' IF IsNull(waredscrp) THEN waredscrp = '' IF it_newbegin = False And it_updatebegin = False THEN rslt = 0 arg_msg = "非编辑状态不可以提交" GOTO ext END IF IF Kind <> 0 And Kind <> 1 And Kind <> 2 And Kind <> 3 And Kind <> 4 And Kind <> 5 THEN arg_msg = '错误的单据类型' rslt = 0 GOTO ext END IF SELECT outtype,noallocflag,storagetype INTO :li_outtype,:li_noallocflag,:li_storagetype FROM u_storage Where storageid = :storageid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询调出仓库所属分部资料,出仓类型失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF Kind = 5 THEN IF li_outtype <> 2 And li_outtype <> 3 THEN arg_msg = '仓库出仓类型不是条码出仓,请使用其它调货单进行操作' rslt = 0 GOTO ext END IF ELSE IF li_outtype = 2 Or li_outtype = 3 THEN arg_msg = '仓库出仓类型为条码出仓,请使用条码调货单进行操作' rslt = 0 GOTO ext END IF END IF IF li_storagetype = 1 And Kind <> 5 THEN arg_msg = '仓库使用库存分配策略,请使用库存分配调货单进行操作' rslt = 0 GOTO ext END IF SELECT Top 1 getdate() Into :server_dt From u_user Using commit_transaction ; //取得系统时间,借用操作员表 IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,日期 " GOTO ext END IF IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空 rslt = 0 arg_msg = "没有正确进仓内容" GOTO ext END IF IF f_check_inoutdate(storageid,billdate,True,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF billtype = 1 THEN IF transreason = '' THEN arg_msg = '请输入调货原因' rslt = 0 GOTO ext END IF END IF IF Kind <> 4 THEN IF transqty <= 0 THEN arg_msg = '请输入正确的转换数量' rslt = 0 GOTO ext END IF IF transqty <> sum_transqty THEN arg_msg = '转换与被转换数量不相等' rslt = 0 GOTO ext END IF END IF IF Kind = 0 Or Kind = 3 Or Kind = 5 THEN //1调n SELECT u_mtrlware.mtrlid, u_mtrlware.sptid, u_mtrlware.storageid, u_mtrlware.plancode, u_mtrlware.status, u_mtrlware.woodcode, u_mtrlware.pcode, u_mtrlware.mtrlcuscode, u_mtrlware.location, u_mtrlware.dscrp, u_mtrlware.noallocqty, u_mtrlware.noauditingqty, u_mtrlware.allocqty INTO :i_mtrlid, :i_relid, :i_storageid, :i_plancode, :i_status, :i_woodcode, :i_pcode, :i_mtrlcuscode, :i_location, :i_waredscrp, :ld_noallocqty, :ld_notauditqty, :ld_allocqty FROM u_mtrlware WHERE u_mtrlware.scid = :scid AND u_mtrlware.mtrlwareid = :mtrlwareid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询相关转换库存失败>>' + commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF IsNull(i_mtrlid) THEN i_mtrlid = 0 IF IsNull(i_relid) THEN i_relid = 0 IF IsNull(i_storageid) THEN i_storageid = 0 IF IsNull(i_plancode) THEN i_plancode = '' IF IsNull(i_status) THEN i_status = '' IF IsNull(i_woodcode) THEN i_woodcode = '' IF IsNull(i_pcode) THEN i_pcode = '' IF IsNull(i_mtrlcuscode) THEN i_mtrlcuscode = '' IF IsNull(i_location) THEN i_location = '' IF IsNull(i_waredscrp) THEN i_waredscrp = '' IF IsNull(ld_notauditqty) THEN ld_notauditqty = 0 IF IsNull(ld_noallocqty) THEN ld_noallocqty = 0 IF i_storageid <> storageid THEN arg_msg = '仓库与库存不符' rslt = 0 GOTO ext END IF IF li_noallocflag = 1 THEN IF ld_noallocqty - ld_notauditqty < transqty THEN arg_msg = '库存未开单数不足,不能调货,请检查' rslt = 0 GOTO ext END IF END IF IF Kind = 5 THEN IF ld_noallocqty - ld_allocqty < transqty THEN arg_msg = '库存未分配数量不足,不能调货,请检查' rslt = 0 GOTO ext END IF END IF mtrlid = i_mtrlid relid = i_relid storageid = i_storageid plancode = i_plancode status = i_status woodcode = i_woodcode pcode = i_pcode mtrlcuscode = i_mtrlcuscode Location = i_location waredscrp = i_waredscrp ELSEIF Kind = 4 THEN //多产品调一客户 IF relid = 0 THEN arg_msg = '请选择客户' rslt = 0 GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_cust Where cusid = :relid Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询客户资料失败,请检查,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN arg_msg = '客户资料不存在,请检查' rslt = 0 GOTO ext END IF IF cnt > 1 THEN arg_msg = '客户资料重复,请检查' rslt = 0 GOTO ext END IF ELSE // n调1 cost = sum_transamt / sum_transqty END IF ////////////////////////////////////////////// //开始区分:新建/更新 处理 IF billid = 0 THEN //新建 ls_newid = f_sys_scidentity(scid,"u_mtrlware_trans","billid",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 CHOOSE CASE Kind CASE 0,1 billcode = getid(scid,ls_sccode + 'MT',Date(server_dt),if_getid_ture,commit_transaction) CASE 2 billcode = getid(scid,ls_sccode + 'ML',Date(server_dt),if_getid_ture,commit_transaction) CASE 3 billcode = getid(scid,ls_sccode + 'MR',Date(server_dt),if_getid_ture,commit_transaction) CASE 4 billcode = getid(scid,ls_sccode + 'MH',Date(server_dt),if_getid_ture,commit_transaction) CASE 5 billcode = getid(scid,ls_sccode + 'MB',Date(server_dt),if_getid_ture,commit_transaction) END CHOOSE IF billcode = "err" THEN billcode = '' rslt = 0 arg_msg = "无法获取单据编号"+"~n"+commit_transaction.SQLErrText GOTO ext END IF INSERT INTO u_mtrlware_trans ( scid, billid, billcode, mtrlwareid, storageid, mtrlid, relid, plancode, status, transqty, billdate, inrep, part, dscrp, cost, opdate, opemp, woodcode, pcode, billtype, transreason, kind, mtrlcuscode, location, waredscrp) VALUES (:scid, :ls_newid, :billcode, :mtrlwareid, :storageid, :mtrlid, :relid, :plancode, :status, :transqty, :billdate, :inrep, :part, :dscrp, :cost, :server_dt, :publ_operator, :woodcode, :pcode, :billtype, :transreason, :Kind, :mtrlcuscode, :Location, :waredscrp) Using commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF //读取新inwareid billid = ls_newid FOR i = 1 To it_mxbt INSERT INTO u_mtrlware_transmx (scid, billid, printid, mtrlid, plancode, plancode2, status, qty, fprice, rebate, price, mxdscrp, rel_cusid_sptid, woodcode, pcode, mtrlwareid, relid, relprintid, mtrlcuscode, location, mtrlcuscode2, location2, waredscrp) VALUES ( :scid, :ls_newid, :billmx[i].printid, :billmx[i].mtrlid, :billmx[i].plancode, :billmx[i].plancode2, :billmx[i].status, :billmx[i].qty, :billmx[i].fprice, :billmx[i].rebate, :billmx[i].price, :billmx[i].mxdscrp, :billmx[i].rel_cusid_sptid, :billmx[i].woodcode, :billmx[i].pcode, :billmx[i].mtrlwareid, :billmx[i].relid, :billmx[i].relprintid, :billmx[i].mtrlcuscode, :billmx[i].Location, :billmx[i].mtrlcuscode2, :billmx[i].Location2, :billmx[i].waredscrp) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN billid = 0 //还原billid rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF NEXT ELSE //////////////////////////////////////////////// //更新 UPDATE u_mtrlware_trans SET mtrlwareid = :mtrlwareid, storageid = :storageid, mtrlid = :mtrlid, relid = :relid, plancode = :plancode, status = :status, transqty = :transqty, billdate = :billdate, inrep = :inrep, part = :part, dscrp = :dscrp, cost = :cost, moddate = :server_dt, modemp = :publ_operator, woodcode = :woodcode, pcode = :pcode, mtrlcuscode = :mtrlcuscode, location = :Location, billtype = :billtype, transreason = :transreason, waredscrp = :waredscrp WHERE u_mtrlware_trans.billid = :billid AND u_mtrlware_trans.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 u_mtrlware_transmx WHERE u_mtrlware_transmx.billid = :billid And u_mtrlware_transmx.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 u_mtrlware_transmx (scid, billid, printid, mtrlid, plancode, plancode2, status, qty, fprice, rebate, price, mxdscrp, rel_cusid_sptid, woodcode, pcode, mtrlwareid, relid, relprintid, mtrlcuscode, location, mtrlcuscode2, location2, waredscrp) VALUES ( :scid, :billid, :billmx[i].printid, :billmx[i].mtrlid, :billmx[i].plancode, :billmx[i].plancode2, :billmx[i].status, :billmx[i].qty, :billmx[i].fprice, :billmx[i].rebate, :billmx[i].price, :billmx[i].mxdscrp, :billmx[i].rel_cusid_sptid, :billmx[i].woodcode, :billmx[i].pcode, :billmx[i].mtrlwareid, :billmx[i].relid, :billmx[i].relprintid, :billmx[i].mtrlcuscode, :billmx[i].Location, :billmx[i].mtrlcuscode2, :billmx[i].Location2, :billmx[i].waredscrp) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext 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 c_auditing (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1 Long cnt = 0,i,j DateTime null_dt String ls_mtrlcode Decimal ls_planprice Long ll_inware_out,ll_inware_in int li_inoutflag SetNull(null_dt) uo_mtrlware_trans uo_trans uo_trans = Create uo_mtrlware_trans uo_trans.commit_transaction = commit_transaction uo_inware uo_in uo_in = Create uo_inware uo_in.commit_transaction = sqlca uo_in.if_getid_ture = False uo_getbar uo_gb uo_gb = Create uo_getbar IF billid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF flag = 0 THEN rslt = 0 arg_msg = "单据还未审核" GOTO ext END IF UPDATE u_mtrlware_trans SET auditingrep = '', auditingdate = :null_dt, flag = 0 WHERE u_mtrlware_trans.billid = :billid 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 Kind = 3 THEN FOR j = 1 To it_mxbt IF uof_add_returnqty(scid,& billmx[j].relid,& billmx[j].relprintid,& 0 - billmx[j].qty,& arg_msg,& False) = 0 THEN arg_msg = '行:'+String(billmx[j].printid)+arg_msg rslt = 0 GOTO ext END IF IF uo_trans.uof_trycmpl(scid,billmx[j].relid,arg_msg,False) = 0 THEN arg_msg = '行:'+String(billmx[j].printid)+arg_msg rslt = 0 GOTO ext END IF NEXT END IF //撤审删除相关进仓单(正) SELECT inwareid INTO :ll_inware_in FROM u_inware WHERE scid = :scid AND relid = :billid AND billtype = 17 And relint_2 = 1; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询相关进仓单(正)失败'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF uo_in.getinfo(scid,ll_inware_in,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(scid,ll_inware_in,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF // //撤审删除相关进仓单(负) SELECT inwareid INTO :ll_inware_out FROM u_inware WHERE scid = :scid AND relid = :billid AND billtype = 17 And relint_2 = 0; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询相关进仓单(负)失败'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF uo_in.getinfo(scid,ll_inware_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(scid,ll_inware_out,arg_msg,False) = 0 THEN rslt = 0 GOTO ext END IF // IF Kind = 5 THEN FOR i = 1 To it_mxbt_barcode select inflag - outflag into :li_inoutflag from u_mtrlware_mx where barcode = :s_mx_barcode[i].barcode; if sqlca.sqlcode <> 0 then arg_msg = '查询条码:'+s_mx_barcode[i].barcode+'进出仓标记失败,'+sqlca.sqlerrtext rslt = 0 GOTO ext END IF if li_inoutflag <> 1 then arg_msg = '条码:'+s_mx_barcode[i].barcode+'不是在未出仓状态,操作取消' rslt = 0 GOTO ext END IF IF uo_gb.uof_barcode_mtrlwareid(s_mx_barcode[i].barcode,& scid,mtrlwareid,False,arg_msg) = 0 THEN rslt = 0 GOTO ext 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_in Destroy uo_trans Destroy uo_gb RETURN rslt end function public function integer auditing (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1 Long cnt = 0,i,j String ls_mtrlcode Decimal ls_planprice,ld_qty_barcode Long ll_inwareid_out,ll_inwareid_in,ll_mx_mtrlwareid Int li_outtype,li_inoutflag,li_outtype_mtrl uo_mtrlware_trans uo_trans uo_trans = CREATE uo_mtrlware_trans uo_trans.commit_transaction = commit_transaction uo_getbar uo_gb uo_gb = CREATE uo_getbar IF billid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF flag = 1 THEN rslt = 0 arg_msg = "单据已经审核" GOTO ext END IF SELECT outtype INTO :li_outtype FROM u_storage Where storageid = :storageid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询调出仓库所属分部资料,出仓类型失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF Kind = 5 THEN IF priceflag = 0 THEN arg_msg = '单据未确认,不能审核' rslt = 0 GOTO ext END IF IF li_outtype <> 2 and li_outtype <> 3 THEN arg_msg = '仓库出仓类型不是条码出仓,请使用其它调货单进行操作' rslt = 0 GOTO ext END IF select outtype into :li_outtype_mtrl from u_mtrldef where mtrlid = :mtrlid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询物料出仓类型失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF if li_outtype_mtrl = 2 then IF it_mxbt_barcode = 0 THEN arg_msg = '未扫描条码,请检查' rslt = 0 GOTO ext END IF FOR i = 1 TO it_mxbt_barcode ld_qty_barcode += s_mx_barcode[i].qty * s_mx_barcode[i].packqty NEXT IF transqty <> ld_qty_barcode THEN arg_msg = '调拨数量与条码对应总数量不相符,请检查' rslt = 0 GOTO ext END IF end if ELSE IF li_outtype = 2 or li_outtype = 3 THEN arg_msg = '仓库出仓类型为条码出仓,请使用条码调货单进行操作' rslt = 0 GOTO ext END IF END IF UPDATE u_mtrlware_trans SET auditingrep = :publ_operator, auditingdate = getdate(), flag = 1 WHERE u_mtrlware_trans.billid = :billid 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 Kind = 3 THEN FOR j = 1 TO it_mxbt IF uof_add_returnqty(scid,& billmx[j].relid,& billmx[j].relprintid,& billmx[j].qty,& arg_msg,& FALSE) = 0 THEN arg_msg = '行:'+String(billmx[j].printid)+arg_msg rslt = 0 GOTO ext END IF IF uo_trans.uof_trycmpl(scid,billmx[j].relid,arg_msg,FALSE) = 0 THEN arg_msg = '行:'+String(billmx[j].printid)+arg_msg rslt = 0 GOTO ext END IF NEXT END IF String ls_uunit Decimal ld_rate,ld_uqty,ld_uprice uo_inware uo_in uo_in = CREATE uo_inware uo_in.commit_transaction = sqlca uo_in.if_getid_ture = FALSE IF Kind = 0 OR Kind = 3 OR Kind = 5 THEN //生成进仓单- 负 IF uo_in.newbegin(scid,17,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_in.relid = billid uo_in.indate = billdate uo_in.inrep = inrep uo_in.part = billcode uo_in.dscrp = dscrp uo_in.relint_2 = 0 // 0 - 负 1 - 正 uo_in.storageid = storageid uo_in.sptname = '客户调货进仓(负)' //转换 ls_uunit = '' ld_rate = 0 ld_uqty = 0 ld_uprice = 0 IF ifunit = 0 THEN ls_uunit = unit ld_rate = 1 ld_uqty = transqty ld_uprice = cost ELSE IF rate = 0 THEN arg_msg = '调货产品资料设为双数量核算,但没有设置默认转换率,请检查' rslt = 0 GOTO ext END IF ls_uunit = uunit ld_rate = rate ld_uqty = transqty /rate ld_uprice = cost * rate END IF IF uo_in.acceptmx(1,& mtrlid,& ls_mtrlcode,& plancode,& status,& 0 - ld_uqty,& ld_uprice,& 1,& '',& arg_msg,& 0,0,0,woodcode,& pcode,& relid,& ls_uunit,ld_rate,0 - transqty,0,0,'',waredscrp,0,0,& mtrlcuscode,Location,& 0 - ld_uqty,& 0) = 0 THEN rslt = 0 GOTO ext END IF IF uo_in.Save(FALSE,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ll_inwareid_out = uo_in.inwareid IF uo_in.getinfo(scid,ll_inwareid_out,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 //生成进仓单-正 IF uo_in.newbegin(scid,17,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_in.relid = billid uo_in.indate = billdate uo_in.inrep = inrep uo_in.part = billcode uo_in.dscrp = dscrp uo_in.relint_2 = 1 // 0 - 负 1 - 正 uo_in.storageid = storageid uo_in.sptname = '客户调货进仓(正)' FOR i = 1 TO it_mxbt //转换 ls_uunit = '' ld_rate = 0 ld_uqty = 0 ld_uprice = 0 IF billmx[i].ifunit = 0 THEN ls_uunit = billmx[i].unit ld_rate = 1 ld_uqty = billmx[i].qty ld_uprice = billmx[i].price ELSE IF billmx[i].rate = 0 THEN arg_msg = '明细行:'+String(i)+',资料设为双数量核算,但没有设置默认转换率,请检查' rslt = 0 GOTO ext END IF ls_uunit = billmx[i].uunit ld_rate = billmx[i].rate ld_uqty = billmx[i].qty/billmx[i].rate ld_uprice = billmx[i].price * billmx[i].rate END IF IF uo_in.acceptmx(i,& billmx[i].mtrlid,& billmx[i].mtrlcode,& billmx[i].plancode,& billmx[i].status,& ld_uqty,& ld_uprice,& 1,& '',& arg_msg,& 0,0,0,billmx[i].woodcode,& billmx[i].pcode,& billmx[i].rel_cusid_sptid,& ls_uunit,ld_rate,billmx[i].qty,0,0,'',billmx[i].waredscrp,0,0,& billmx[i].mtrlcuscode,billmx[i].Location,& ld_uqty,& 0) = 0 THEN rslt = 0 GOTO ext END IF NEXT IF uo_in.Save(FALSE,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ll_inwareid_in = uo_in.inwareid IF uo_in.getinfo(scid,ll_inwareid_in,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 ELSEIF Kind = 1 OR Kind = 2 THEN //生成进仓单- 负 IF uo_in.newbegin(scid,17,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_in.relid = billid uo_in.indate = billdate uo_in.inrep = inrep uo_in.part = billcode uo_in.dscrp = dscrp uo_in.relint_2 = 0 // 0 - 负 1 - 正 uo_in.storageid = storageid uo_in.sptname = '客户调货进仓(负)' FOR i = 1 TO it_mxbt //转换 ls_uunit = '' ld_rate = 0 ld_uqty = 0 ld_uprice = 0 IF billmx[i].ifunit = 0 THEN ls_uunit = billmx[i].unit ld_rate = 1 ld_uqty = billmx[i].qty ld_uprice = billmx[i].price ELSE IF billmx[i].rate = 0 THEN arg_msg = '明细行:'+String(i)+',资料设为双数量核算,但没有设置默认转换率,请检查' rslt = 0 GOTO ext END IF ls_uunit = billmx[i].uunit ld_rate = billmx[i].rate ld_uqty = billmx[i].qty/billmx[i].rate ld_uprice = billmx[i].price * billmx[i].rate END IF IF uo_in.acceptmx(i,& billmx[i].mtrlid,& billmx[i].mtrlcode,& billmx[i].plancode,& billmx[i].status,& 0 - ld_uqty,& ld_uprice,& 1,& '',& arg_msg,& 0,0,0,billmx[i].woodcode,& billmx[i].pcode,& billmx[i].rel_cusid_sptid,& ls_uunit,ld_rate,0 - billmx[i].qty,0,0,'',billmx[i].waredscrp,0,0,& billmx[i].mtrlcuscode,billmx[i].Location,& 0 - ld_uqty,& 0) = 0 THEN rslt = 0 GOTO ext END IF NEXT IF uo_in.Save(FALSE,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ll_inwareid_out = uo_in.inwareid IF uo_in.getinfo(scid,ll_inwareid_out,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 //生成进仓单-正 IF uo_in.newbegin(scid,17,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_in.relid = billid uo_in.indate = billdate uo_in.inrep = inrep uo_in.part = billcode uo_in.dscrp = dscrp uo_in.relint_2 = 1 // 0 - 负 1 - 正 uo_in.storageid = storageid uo_in.sptname = '客户调货进仓(正)' //转换 ls_uunit = '' ld_rate = 0 ld_uqty = 0 ld_uprice = 0 IF ifunit = 0 THEN ls_uunit = unit ld_rate = 1 ld_uqty = transqty ld_uprice = cost ELSE IF rate = 0 THEN arg_msg = '调货产品资料设为双数量核算,但没有设置默认转换率,请检查' rslt = 0 GOTO ext END IF ls_uunit = uunit ld_rate = rate ld_uqty = transqty /rate ld_uprice = cost * rate END IF IF uo_in.acceptmx(1,& mtrlid,& ls_mtrlcode,& plancode,& status,& ld_uqty,& ld_uprice,& 1,& '',& arg_msg,& 0,0,0,woodcode,& pcode,& relid,& ls_uunit,ld_rate,transqty,0,0,'',waredscrp,0,0,& mtrlcuscode,Location,& ld_uqty,& 0) = 0 THEN rslt = 0 GOTO ext END IF IF uo_in.Save(FALSE,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ll_inwareid_in = uo_in.inwareid IF uo_in.getinfo(scid,ll_inwareid_in,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 ELSEIF Kind = 4 THEN //生成进仓单- 负 IF uo_in.newbegin(scid,17,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_in.relid = billid uo_in.indate = billdate uo_in.inrep = inrep uo_in.part = billcode uo_in.dscrp = dscrp uo_in.relint_2 = 0 // 0 - 负 1 - 正 uo_in.storageid = storageid uo_in.sptname = '客户调货进仓(负)' FOR i = 1 TO it_mxbt //转换 ls_uunit = '' ld_rate = 0 ld_uqty = 0 ld_uprice = 0 IF billmx[i].ifunit = 0 THEN ls_uunit = billmx[i].unit ld_rate = 1 ld_uqty = billmx[i].qty ld_uprice = billmx[i].price ELSE IF billmx[i].rate = 0 THEN arg_msg = '明细行:'+String(i)+',资料设为双数量核算,但没有设置默认转换率,请检查' rslt = 0 GOTO ext END IF ls_uunit = billmx[i].uunit ld_rate = billmx[i].rate ld_uqty = billmx[i].qty/billmx[i].rate ld_uprice = billmx[i].price * billmx[i].rate END IF IF uo_in.acceptmx(i,& billmx[i].mtrlid,& billmx[i].mtrlcode,& billmx[i].plancode,& billmx[i].status,& 0 - ld_uqty,& ld_uprice,& 1,& '',& arg_msg,& 0,0,0,billmx[i].woodcode,& billmx[i].pcode,& billmx[i].rel_cusid_sptid,& ls_uunit,ld_rate,0 - billmx[i].qty,0,0,'',billmx[i].waredscrp,0,0,& billmx[i].mtrlcuscode,billmx[i].Location,& 0 - ld_uqty,& 0) = 0 THEN arg_msg = '进仓负单,明细行:'+String(i)+','+arg_msg rslt = 0 GOTO ext END IF NEXT IF uo_in.Save(FALSE,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ll_inwareid_out = uo_in.inwareid IF uo_in.getinfo(scid,ll_inwareid_out,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 //生成进仓单-正 IF uo_in.newbegin(scid,17,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_in.relid = billid uo_in.indate = billdate uo_in.inrep = inrep uo_in.part = billcode uo_in.dscrp = dscrp uo_in.relint_2 = 1 // 0 - 负 1 - 正 uo_in.storageid = storageid uo_in.sptname = '客户调货进仓(正)' FOR i = 1 TO it_mxbt //转换 ls_uunit = '' ld_rate = 0 ld_uqty = 0 ld_uprice = 0 IF billmx[i].ifunit = 0 THEN ls_uunit = billmx[i].unit ld_rate = 1 ld_uqty = billmx[i].qty ld_uprice = billmx[i].price ELSE IF billmx[i].rate = 0 THEN arg_msg = '明细行:'+String(i)+',资料设为双数量核算,但没有设置默认转换率,请检查' rslt = 0 GOTO ext END IF ls_uunit = billmx[i].uunit ld_rate = billmx[i].rate ld_uqty = billmx[i].qty/billmx[i].rate ld_uprice = billmx[i].price * billmx[i].rate END IF IF uo_in.acceptmx(i,& billmx[i].mtrlid,& billmx[i].mtrlcode,& billmx[i].plancode2,& billmx[i].status,& ld_uqty,& ld_uprice,& 1,& '',& arg_msg,& 0,0,0,billmx[i].woodcode,& billmx[i].pcode,& relid,& ls_uunit,ld_rate,billmx[i].qty,0,0,'',billmx[i].waredscrp,0,0,& billmx[i].mtrlcuscode2,billmx[i].Location2,& ld_uqty,& 0) = 0 THEN arg_msg = '进仓正单,明细行:'+String(i)+','+arg_msg rslt = 0 GOTO ext END IF NEXT IF uo_in.Save(FALSE,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ll_inwareid_in = uo_in.inwareid IF uo_in.getinfo(scid,ll_inwareid_in,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 END IF IF uof_update_waredate(FALSE,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF Kind = 5 and li_outtype_mtrl = 2 THEN SELECT mtrlwareid INTO :ll_mx_mtrlwareid FROM u_mtrlware WHERE scid = :scid AND storageid = :storageid AND mtrlid = :billmx[1].mtrlid AND status = :billmx[1].status AND woodcode = :billmx[1].woodcode AND pcode = :billmx[1].pcode AND plancode = :billmx[1].plancode AND mtrlcuscode = :billmx[1].mtrlcuscode AND location = :billmx[1].location AND sptid = :billmx[1].rel_cusid_sptid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询明细对应库存id失败,请检查,'+sqlca.sqlerrtext rslt = 0 GOTO ext END IF FOR i = 1 TO it_mxbt_barcode select inflag - outflag into :li_inoutflag from u_mtrlware_mx where barcode = :s_mx_barcode[i].barcode; if sqlca.sqlcode <> 0 then arg_msg = '查询条码:'+s_mx_barcode[i].barcode+'进出仓标记失败,'+sqlca.sqlerrtext rslt = 0 GOTO ext END IF if li_inoutflag <> 1 then arg_msg = '条码:'+s_mx_barcode[i].barcode+'不是在未出仓状态,操作取消' rslt = 0 GOTO ext END IF IF uo_gb.uof_barcode_mtrlwareid(s_mx_barcode[i].barcode,& scid,ll_mx_mtrlwareid,FALSE,arg_msg) = 0 THEN rslt = 0 GOTO ext 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_in DESTROY uo_trans DESTROY uo_getbar RETURN rslt end function public function integer uof_add_returnqty (long arg_scid, long arg_relid, long arg_relprintid, decimal arg_qty, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Decimal ld_qty,ld_returnqty SELECT qty,returnqty INTO :ld_qty,:ld_returnqty FROM u_mtrlware_transmx WHERE scid = :arg_scid AND billid = :arg_relid AND printid = :arg_relprintid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = ',查询已还货数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF ld_qty - ld_returnqty < arg_qty THEN arg_msg = ',超还货,借货数:'+String(ld_qty,'#0.0#')+',已还货数:'+String(ld_returnqty,'#0.0#') rslt = 0 GOTO ext END IF UPDATE u_mtrlware_transmx SET returnqty = returnqty + :arg_qty WHERE scid = :arg_scid AND billid = :arg_relid AND printid = :arg_relprintid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = ',更新还货数失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; END IF RETURN rslt end function public function integer uof_finish (integer arg_finishtype, integer arg_fflag, long arg_scid, long arg_billid, string arg_opemp, ref string arg_msg, boolean arg_ifcommit);//arg_finishtype 1-自动,2-手动 Int rslt = 1 Long cnt = 0 Int ll_fflag DateTime null_dt SetNull(null_dt) IF arg_billid <= 0 THEN rslt = 0 ARG_MSG = '错误单据唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_billid,ARG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF flag = 0 THEN ARG_MSG = '单据未审核,不能操作' rslt = 0 GOTO ext END IF IF arg_finishtype = 1 THEN IF arg_fflag = 1 THEN IF fflag = 1 OR fflag = 2 THEN ARG_MSG = '单据已完成还货,不能操作' rslt = 0 GOTO ext END IF ll_fflag = 1 ELSE IF fflag <> 1 THEN ARG_MSG = '单据不是自动完成还货,不能操作' rslt = 0 GOTO ext END IF ll_fflag = 0 END IF ELSE IF arg_fflag = 1 THEN IF fflag = 1 OR fflag = 2 THEN ARG_MSG = '单据已完成还货,不能操作' rslt = 0 GOTO ext END IF ll_fflag = 2 ELSE IF fflag <> 2 THEN ARG_MSG = '单据不是手动完成还货,不能操作' rslt = 0 GOTO ext END IF ll_fflag = 0 END IF END IF IF arg_fflag = 1 THEN UPDATE u_mtrlware_trans SET fflag = :ll_fflag, fdate = getdate(), femp = :arg_opemp WHERE ( u_mtrlware_trans.billid = :arg_billid ) AND ( u_mtrlware_trans.scid = :arg_scid) AND ( u_mtrlware_trans.fflag = 0 ) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致完成还货操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN ARG_MSG = '单据正在操作,请稍后重试' rslt = 0 GOTO ext END IF ELSE UPDATE u_mtrlware_trans SET fflag = :ll_fflag, fdate = :null_dt, femp = '' WHERE ( u_mtrlware_trans.billid = :arg_billid ) AND ( u_mtrlware_trans.scid = :arg_scid) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 ARG_MSG = "因网络或其它原因导致取消手动完成操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN ARG_MSG = '单据正在操作,请稍后重试' rslt = 0 GOTO ext END IF END IF ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF arg_ifcommit AND rslt = 1 THEN COMMIT USING commit_transaction; END IF p_reset() RETURN (rslt) end function public function integer uof_trycmpl (long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1 Long cnt = 0 DateTime null_dt SetNull(null_dt) IF arg_billid <= 0 THEN rslt = 0 arg_msg = '错误单据唯一码' GOTO ext END IF IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF Decimal ls_zerook Boolean if_finish if_finish = TRUE DECLARE zero_cur CURSOR FOR SELECT u_mtrlware_transmx.qty - u_mtrlware_transmx.returnqty FROM u_mtrlware_transmx WHERE ( u_mtrlware_transmx.billid = :arg_billid ) AND ( u_mtrlware_transmx.scid = :arg_scid ) USING commit_transaction; OPEN zero_cur; FETCH zero_cur INTO :ls_zerook; DO WHILE commit_transaction.SQLCode = 0 IF if_finish THEN IF ls_zerook > 0 THEN if_finish = FALSE END IF FETCH zero_cur INTO :ls_zerook; LOOP CLOSE zero_cur; IF fflag = 0 AND if_finish THEN IF uof_finish(1,1,arg_scid,arg_billid,publ_operator,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF END IF IF fflag = 1 AND NOT if_finish THEN IF uof_finish(1,0,arg_scid,arg_billid,publ_operator,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF 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 uof_update_waredate (boolean arg_ifcommit, ref string arg_msg);Int rslt = 1 DateTime ld_waredate,ld_auditingdate,ld_waradate_mx String ls_auditdate,ls_waredate Long i Long ll_mtrlid,ll_sptid,ll_mtrlwareid String ls_status,ls_woodcode ,ls_pcode,ls_plancode String ls_mtrlcuscode,ls_location DateTime ld_waredate_max Decimal ld_qty,ld_wareqty SELECT auditingdate INTO :ld_auditingdate FROM u_mtrlware_trans WHERE billid = :billid AND scid = :scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询单据审核时间失败,'+commit_transaction.SQLErrText GOTO ext END IF ls_auditdate = String(ld_auditingdate,'yyyy-mm-dd hh:mm') IF Kind = 0 OR Kind = 3 THEN SELECT waredate INTO :ld_waredate FROM u_mtrlware WHERE mtrlwareid = :mtrlwareid AND scid = :scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询库存最近进仓日期失败,'+commit_transaction.SQLErrText GOTO ext END IF FOR i = 1 TO it_mxbt ll_mtrlid = billmx[i].mtrlid ll_sptid = billmx[i].rel_cusid_sptid ls_status = billmx[i].status ls_woodcode = billmx[i].woodcode ls_pcode = billmx[i].pcode ls_plancode = billmx[i].plancode ls_mtrlcuscode = billmx[i].mtrlcuscode ls_location = billmx[i].Location ld_qty = billmx[i].qty SELECT waredate,noallocqty INTO :ld_waradate_mx,:ld_wareqty FROM u_mtrlware WHERE scid = :scid AND storageid = :storageid AND mtrlid = :ll_mtrlid AND sptid = :ll_sptid AND status = :ls_status AND woodcode = :ls_woodcode AND pcode = :ls_pcode AND plancode = :ls_plancode AND mtrlcuscode = :ls_mtrlcuscode AND Location = :ls_location USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细库存最近进仓日期失败,'+commit_transaction.SQLErrText GOTO ext END IF ls_waredate = String(ld_waradate_mx,'yyyy-mm-dd hh:mm') IF ls_auditdate = ls_waredate OR ld_qty = ld_wareqty OR ld_waradate_mx < ld_waredate THEN UPDATE u_mtrlware SET waredate = :ld_waredate WHERE scid = :scid AND storageid = :storageid AND mtrlid = :ll_mtrlid AND sptid = :ll_sptid AND status = :ls_status AND woodcode = :ls_woodcode AND pcode = :ls_pcode AND plancode = :ls_plancode AND mtrlcuscode = :ls_mtrlcuscode AND Location = :ls_location USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新明细库存最近进仓日期失败,'+commit_transaction.SQLErrText GOTO ext END IF END IF NEXT ELSEIF Kind = 1 OR Kind = 2 THEN SELECT waredate,noallocqty INTO :ld_waredate,:ld_wareqty FROM u_mtrlware WHERE storageid = :storageid AND mtrlid = :mtrlid AND sptid = :relid AND scid = :scid AND status = :status AND woodcode = :woodcode AND pcode = :pcode AND plancode = :plancode AND mtrlcuscode = :mtrlcuscode AND location = :Location USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询库存最近进仓日期失败,'+commit_transaction.SQLErrText GOTO ext END IF ls_waredate = String(ld_waredate,'yyyy-mm-dd hh:mm') FOR i = 1 TO it_mxbt ll_mtrlwareid = billmx[i].mtrlwareid SELECT waredate INTO :ld_waradate_mx FROM u_mtrlware WHERE scid = :scid AND mtrlwareid = :ll_mtrlwareid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细库存最近进仓日期失败,'+commit_transaction.SQLErrText GOTO ext END IF IF i = 1 THEN ld_waredate_max = ld_waradate_mx ELSE IF ld_waradate_mx > ld_waredate_max THEN ld_waredate_max = ld_waradate_mx END IF END IF ld_qty = ld_qty+billmx[i].qty NEXT IF ls_auditdate = ls_waredate OR ld_waredate < ld_waredate_max OR ld_qty = ld_wareqty THEN UPDATE u_mtrlware SET waredate = :ld_waredate_max WHERE storageid = :storageid AND mtrlid = :mtrlid AND sptid = :relid AND scid = :scid AND status = :status AND woodcode = :woodcode AND pcode = :pcode AND plancode = :plancode AND mtrlcuscode = :mtrlcuscode AND location = :Location USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新库存最近进仓日期失败,'+commit_transaction.SQLErrText GOTO ext END IF END IF ELSEIF Kind = 4 THEN FOR i = 1 TO it_mxbt SELECT waredate INTO :ld_waradate_mx FROM u_mtrlware WHERE scid = :scid AND mtrlwareid = :billmx[i].mtrlwareid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细调出库存最近进仓日期失败,'+commit_transaction.SQLErrText GOTO ext END IF SELECT waredate INTO :ld_waredate FROM u_mtrlware WHERE scid = :scid AND storageid = :storageid AND sptid = :relid AND mtrlid = :billmx[i].mtrlid AND status = :billmx[i].status AND woodcode = :billmx[i].woodcode AND pcode = :billmx[i].pcode AND plancode = :billmx[i].plancode2 AND mtrlcuscode = :billmx[i].mtrlcuscode2 AND location = :billmx[i].location2 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '查询明细调入库存最近进仓日期失败,'+commit_transaction.SQLErrText GOTO ext END IF ls_waredate = String(ld_waredate,'yyyy-mm-dd hh:mm') IF ls_auditdate = ls_waredate THEN UPDATE u_mtrlware SET waredate = :ld_waredate_max WHERE storageid = :storageid AND mtrlid = :mtrlid AND sptid = :relid AND scid = :scid AND status = :status AND woodcode = :woodcode AND pcode = :pcode AND plancode = :plancode AND mtrlcuscode = :mtrlcuscode AND location = :Location USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = '更新库存最近进仓日期失败,'+commit_transaction.SQLErrText GOTO ext END IF END IF NEXT END IF ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; END IF RETURN rslt end function public function integer acceptmx (long arg_printid, long arg_mtrlwareid, long arg_mtrlid, string arg_plancode, string arg_status, decimal arg_qty, decimal arg_fprice, decimal arg_rebate, string arg_mxdscrp, long arg_rel_cusid_sptid, ref string arg_msg, string arg_woodcode, string arg_pcode, long arg_relid, long arg_relprintid, string arg_mtrlcuscode, string arg_location, string arg_waredscrp, string arg_plancode2, string arg_location2, string arg_mtrlcuscode2);Int rslt = 1 Long cnt = 0 String i_mtrlcode Int li_noallocflag Decimal ld_noallocqty,ld_notauditqty 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_plancode) THEN arg_plancode = '' IF IsNull(arg_status) THEN arg_status = '' IF IsNull(arg_qty) THEN arg_qty = 0 IF IsNull(arg_fprice) THEN arg_fprice = 0 IF IsNull(arg_rebate) THEN arg_rebate = 0 IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = '' IF IsNull(arg_woodcode) THEN arg_woodcode = '' IF IsNull(arg_pcode) THEN arg_pcode = '' IF IsNull(arg_rel_cusid_sptid) THEN arg_rel_cusid_sptid = 0 IF IsNull(arg_mtrlwareid) THEN arg_mtrlwareid = 0 IF IsNull(arg_relprintid) THEN arg_relprintid = 0 IF IsNull(arg_relid) THEN arg_relid = 0 IF IsNull(arg_mtrlcuscode) THEN arg_mtrlcuscode = '' IF IsNull(arg_location) THEN arg_location = '' IF IsNull(arg_waredscrp) THEN arg_waredscrp = '' IF IsNull(arg_mtrlcuscode2) THEN arg_mtrlcuscode2 = '' IF IsNull(arg_location2) THEN arg_location2 = '' IF IsNull(arg_plancode2) THEN arg_plancode2 = '' // 如果进仓数量为 0，或物料编号为空，则不作任何处理 IF arg_mtrlid = 0 OR arg_qty = 0 THEN rslt = 1 GOTO ext END IF IF (Kind = 1 OR Kind = 2 OR Kind = 4 ) AND arg_mtrlwareid = 0 THEN rslt = 1 GOTO ext END IF //检查物料id SELECT mtrlcode INTO :i_mtrlcode FROM u_mtrldef Where u_mtrldef.mtrlid = :arg_mtrlid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "查询操作失败,物料或产品资料" GOTO ext END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_cust Where cusid = :arg_rel_cusid_sptid USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询客户资料失败' rslt = 0 GOTO ext END IF IF arg_fprice * arg_rebate < 0 THEN //检查进仓价 rslt = 0 arg_msg = "物料或产品：" + String(i_mtrlcode)+" 单价错误" GOTO ext END IF IF Kind = 3 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_mtrlware_transmx WHERE scid = :scid AND billid = :arg_relid AND printid = :arg_relprintid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '明细行:'+String(arg_printid)+',查询相关借货单失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF ELSEIF ( Kind = 1 OR Kind = 2 OR Kind = 4 )THEN SELECT noallocflag INTO :li_noallocflag FROM u_storage Where storageid = :storageid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询仓库使用未开单库存属性失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF li_noallocflag = 1 THEN SELECT u_mtrlware.noallocqty, u_mtrlware.noauditingqty INTO :ld_noallocqty, :ld_notauditqty FROM u_mtrlware WHERE u_mtrlware.scid = :scid AND u_mtrlware.mtrlwareid = :arg_mtrlwareid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询相关转换库存失败>>' + commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF IsNull(ld_notauditqty) THEN ld_notauditqty = 0 IF IsNull(ld_noallocqty) THEN ld_noallocqty = 0 IF ld_noallocqty - ld_notauditqty < arg_qty THEN arg_msg = '行:'+String(arg_printid)+'库存未开单数不足,不能调货,请检查' rslt = 0 GOTO ext END IF END IF END IF //写入内容 it_mxbt++ billmx[it_mxbt].printid = arg_printid billmx[it_mxbt].mtrlid = arg_mtrlid billmx[it_mxbt].mtrlcode = i_mtrlcode billmx[it_mxbt].plancode = arg_plancode billmx[it_mxbt].status = arg_status billmx[it_mxbt].qty = arg_qty billmx[it_mxbt].fprice = arg_fprice billmx[it_mxbt].rebate = arg_rebate billmx[it_mxbt].price = arg_fprice * arg_rebate billmx[it_mxbt].mxdscrp = arg_mxdscrp billmx[it_mxbt].rel_cusid_sptid = arg_rel_cusid_sptid billmx[it_mxbt].woodcode = arg_woodcode billmx[it_mxbt].pcode = arg_pcode billmx[it_mxbt].mtrlwareid = arg_mtrlwareid billmx[it_mxbt].relid = arg_relid billmx[it_mxbt].relprintid = arg_relprintid billmx[it_mxbt].mtrlcuscode = arg_mtrlcuscode billmx[it_mxbt].Location = arg_location billmx[it_mxbt].waredscrp = arg_waredscrp billmx[it_mxbt].mtrlcuscode2 = arg_mtrlcuscode2 billmx[it_mxbt].location2 = arg_location2 billmx[it_mxbt].plancode2 = arg_plancode2 sum_transqty = sum_transqty + arg_qty sum_transamt = sum_transamt + arg_qty * arg_fprice * arg_rebate ext: IF rslt = 0 THEN p_clearmx() RETURN(rslt) end function public function integer priceaudit (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,i if kind <> 5 then rslt = 0 arg_msg = "非一调一单据类型不能使用确认功能" GOTO ext end if IF arg_scid < 0 THEN rslt = 0 arg_msg = "错误的分部ID" GOTO ext END IF IF arg_billid <= 0 THEN rslt = 0 arg_msg = "没有确认对象" GOTO ext END IF IF getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF priceflag = 1 THEN rslt = 0 arg_msg = "单据已经确认" GOTO ext END IF UPDATE u_mtrlware_trans SET priceemp = :publ_operator, pricedate = getdate(), priceflag = 1 WHERE u_mtrlware_trans.billid = :arg_billid AND priceflag = 0 AND scid = :arg_scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致确认单据操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在确认,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF priceflag = 1 ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; END IF RETURN rslt end function public function integer c_priceaudit (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,i DateTime null_dt SetNull(null_dt) IF Kind <> 5 THEN rslt = 0 arg_msg = "非一调一单据类型不能使用确认功能" GOTO ext END IF IF arg_scid < 0 THEN rslt = 0 arg_msg = "错误的分部ID" GOTO ext END IF IF arg_billid <= 0 THEN rslt = 0 arg_msg = "没有反确认对象" GOTO ext END IF IF getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF priceflag = 0 THEN rslt = 0 arg_msg = "单据还未确认,不能反确认" GOTO ext END IF IF flag = 1 THEN rslt = 0 arg_msg = "单据已审核,不能反确认" GOTO ext END IF UPDATE u_mtrlware_trans SET priceemp = '', pricedate = :null_dt, priceflag = 0 WHERE u_mtrlware_trans.billid = :arg_billid AND priceflag = 1 AND scid = :arg_scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致反确认单据操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext ELSEIF commit_transaction.SQLNRows = 0 THEN rslt = 0 arg_msg = "单据正在反确认,请稍后查询。"+"~n"+commit_transaction.SQLErrText GOTO ext END IF priceflag = 0 ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; END IF RETURN rslt end function on uo_mtrlware_trans.create call super::create TriggerEvent( this, "constructor" ) end on on uo_mtrlware_trans.destroy TriggerEvent( this, "destructor" ) call super::destroy end on