$PBExportHeader$uo_reissue.sru forward global type uo_reissue from nonvisualobject end type end forward global type uo_reissue from nonvisualobject end type global uo_reissue uo_reissue type variables PUBLIC PROTECTEDWRITE Long scid PUBLIC PROTECTEDWRITE Long reissueid PUBLIC PROTECTEDWRITE String reissuecode PUBLIC PROTECTEDWRITE DateTime opdate PUBLIC PROTECTEDWRITE String opemp PUBLIC PROTECTEDWRITE DateTime moddate PUBLIC PROTECTEDWRITE String modemp PUBLIC PROTECTEDWRITE Int flag PUBLIC PROTECTEDWRITE DateTime auditingdate PUBLIC PROTECTEDWRITE String auditingrep PUBLIC PROTECTEDWRITE Decimal sumamt = 0 Long relid String relcode DateTime reissuedate String dscrp Long cusid String cuscode String reissueemp String cusname Long r_type Long relint_3 Long moneyid Decimal mrate long itemid Int cwauditingflag = 0 //总账审核标记 DateTime cwauditingdate //总账审核时间 String cwauditingrep //总账审核操作员 Transaction commit_transaction Boolean if_getid_ture = TRUE s_reissuemx reissuemx[] Long it_mxbt Boolean it_newbegin = FALSE Boolean it_updatebegin = FALSE end variables forward prototypes public function integer p_clearmx () public function integer p_reset () public function integer p_getinfo (long arg_scid, long arg_reissueid, ref string arg_msg) public function integer getinfo (long arg_scid, long arg_reissueid, ref string arg_msg) public function integer newbegin (long arg_scid, ref string arg_msg) public function integer updatebegin (long arg_scid, long arg_reissueid, ref string arg_msg) public function integer add_dscrp (long arg_scid, long arg_reissueid, string arg_newdescppart, ref string arg_msg) public function integer save (boolean arg_ifcommit, ref string arg_msg) public function integer del (long arg_scid, long arg_reissueid, ref string arg_msg, boolean arg_ifcommit) public function integer auditing (boolean arg_ifcommit, ref string arg_msg) public function integer c_auditing (boolean arg_ifcommit, ref string arg_msg) public function integer acceptmx (decimal arg_qty, double arg_price, decimal arg_amt, string arg_mxdscrp, long arg_printid, ref string arg_msg, long arg_mtrlid, string arg_mtrlname) public function integer audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg) public function integer c_audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg) end prototypes public function integer p_clearmx ();//int p_clearmx() //清除明细 it_mxbt=0 sumamt = 0 return 1 end function public function integer p_reset ();//int p_reset() //清除对象及其明细 scid = 0 reissueid = 0 reissuecode = '' opemp = '' modemp = '' auditingrep = '' flag = 0 relid = 0 relcode = '' dscrp = '' cusid = 0 moneyid = 0 cuscode = '' cusname = '' it_newbegin = FALSE it_updatebegin = FALSE //清除明细 p_clearmx() RETURN 1 end function public function integer p_getinfo (long arg_scid, long arg_reissueid, ref string arg_msg);//p_getinfo(arg_scid,arg_outwareid,arg_msg) //0 失败 1成功 Int rslt = 1 IF arg_reissueid <= 0 THEN rslt = 0 arG_MSG = "非法补件单唯一码" GOTO ext END IF SELECT u_reissue.reissuecode, u_reissue.cusid, u_reissue.cuscode, u_reissue.cusname, u_reissue.reissuedate, u_reissue.relid, u_reissue.relcode, u_reissue.dscrp, u_reissue.flag, u_reissue.reissueemp, u_reissue.type, u_reissue.moneyid, u_reissue.mrate, u_reissue.relint_3, u_reissue.itemid, u_reissue.cwauditingflag, u_reissue.cwauditingrep, u_reissue.cwauditingdate INTO :reissuecode, :cusid, :cuscode, :cusname, :reissuedate, :relid, :relcode, :dscrp, :flag, :reissueemp, :r_type, :moneyid, :mrate, :relint_3, :itemid, :cwauditingflag, :cwauditingrep, :cwauditingdate FROM u_reissue WHERE u_reissue.reissueid = :arg_reissueid AND scid = :arg_scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "查询操作失败(错误补件单唯一码),补件单"+commit_transaction.SQLErrText GOTO ext END IF reissueid = arg_reissueid scid = arg_scid ext: IF rslt = 0 THEN p_reset() RETURN rslt end function public function integer getinfo (long arg_scid, long arg_reissueid, ref string arg_msg);//getinfo(arg_scid,arg_reissueid,arg_msg) //0 失败 1成功 Int rslt = 1,i = 1,no_mxcheck = 0 IF arg_reissueid <= 0 THEN rslt = 0 arg_msg = "非法补件单唯一码" GOTO ext END IF sumamt = 0 rslt = p_getinfo(arg_scid,arg_reissueid,arg_msg) IF rslt = 0 THEN GOTO ext //用游标读取明细 IF r_type = 0 THEN DECLARE cur_inwaermx_0 CURSOR FOR SELECT u_reissuemx.printid, u_reissuemx.mtrlid, u_mtrldef.mtrlcode, u_mtrldef.mtrlname, u_reissuemx.qty, u_reissuemx.price, u_reissuemx.dscrp, u_reissuemx.amt, u_reissuemx.relid FROM u_reissuemx left OUTER join u_mtrldef on u_reissuemx.mtrlid = u_mtrldef.mtrlid WHERE u_reissuemx.reissueid = :arg_reissueid AND u_reissuemx.scid = :arg_scid USING commit_transaction; OPEN cur_inwaermx_0; FETCH cur_inwaermx_0 INTO :reissuemx[i].printid, :reissuemx[i].mtrlid,:reissuemx[i].mtrlcode, :reissuemx[i].mtrlname,:reissuemx[i].qty, :reissuemx[i].price, :reissuemx[i].mxdscrp, :reissuemx[i].amt, :reissuemx[i].relid; DO WHILE commit_transaction.SQLCode = 0 sumamt += reissuemx[i].amt i++ FETCH cur_inwaermx_0 INTO :reissuemx[i].printid, :reissuemx[i].mtrlid,:reissuemx[i].mtrlcode, :reissuemx[i].mtrlname,:reissuemx[i].qty, :reissuemx[i].price, :reissuemx[i].mxdscrp, :reissuemx[i].amt, :reissuemx[i].relid; LOOP CLOSE cur_inwaermx_0; ELSEIF r_type = 1 THEN DECLARE cur_inwaermx_1 CURSOR FOR SELECT u_reissuemx.printid, u_reissuemx.mtrlid, U_Expenses.Expensescode, U_Expenses.Expensesname, u_reissuemx.qty, u_reissuemx.price, u_reissuemx.dscrp, u_reissuemx.amt, u_reissuemx.relid FROM u_reissuemx left OUTER join U_Expenses on u_reissuemx.mtrlid = U_Expenses.Expensesid WHERE u_reissuemx.reissueid = :arg_reissueid AND u_reissuemx.scid = :arg_scid USING commit_transaction; OPEN cur_inwaermx_1; FETCH cur_inwaermx_1 INTO :reissuemx[i].printid, :reissuemx[i].mtrlid,:reissuemx[i].mtrlcode, :reissuemx[i].mtrlname,:reissuemx[i].qty, :reissuemx[i].price, :reissuemx[i].mxdscrp, :reissuemx[i].amt, :reissuemx[i].relid; DO WHILE commit_transaction.SQLCode = 0 sumamt += reissuemx[i].amt i++ FETCH cur_inwaermx_1 INTO :reissuemx[i].printid, :reissuemx[i].mtrlid,:reissuemx[i].mtrlcode, :reissuemx[i].mtrlname,:reissuemx[i].qty, :reissuemx[i].price, :reissuemx[i].mxdscrp, :reissuemx[i].amt, :reissuemx[i].relid; LOOP CLOSE cur_inwaermx_1; ELSEIF r_type = 2 THEN DECLARE cur_inwaermx_2 CURSOR FOR SELECT u_reissuemx.printid, u_reissuemx.mtrlid, U_Expenses.Expensescode, u_reissuemx.mtrlname, u_reissuemx.qty, u_reissuemx.price, u_reissuemx.dscrp, u_reissuemx.amt, u_reissuemx.relid FROM u_reissuemx left OUTER join U_Expenses on u_reissuemx.mtrlid = U_Expenses.Expensesid WHERE u_reissuemx.reissueid = :arg_reissueid AND u_reissuemx.scid = :arg_scid USING commit_transaction; OPEN cur_inwaermx_2; FETCH cur_inwaermx_2 INTO :reissuemx[i].printid, :reissuemx[i].mtrlid,:reissuemx[i].mtrlcode, :reissuemx[i].mtrlname,:reissuemx[i].qty, :reissuemx[i].price, :reissuemx[i].mxdscrp, :reissuemx[i].amt, :reissuemx[i].relid; DO WHILE commit_transaction.SQLCode = 0 sumamt += reissuemx[i].amt i++ FETCH cur_inwaermx_2 INTO :reissuemx[i].printid, :reissuemx[i].mtrlid,:reissuemx[i].mtrlcode, :reissuemx[i].mtrlname,:reissuemx[i].qty, :reissuemx[i].price, :reissuemx[i].mxdscrp, :reissuemx[i].amt, :reissuemx[i].relid; LOOP CLOSE cur_inwaermx_2; END IF //检验明细是否读入完整 SELECT count(*) INTO :no_mxcheck FROM u_reissuemx WHERE u_reissuemx.reissueid = :arg_reissueid 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 reissueid = arg_reissueid 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 newbegin (long arg_scid, ref string arg_msg);//==================================================================== // Function: newbegin(long arg_scid,int arg_billtype,ref string arg_msg) //-------------------------------------------------------------------- // Description: 从置对象,设定业务类型,准备建立新进仓单 //-------------------------------------------------------------------- // Arguments: // value long arg_scid // value integer arg_billtype // reference string arg_msg //-------------------------------------------------------------------- // Returns: integer //-------------------------------------------------------------------- // Author: yyx Date: 2003.11.12 //-------------------------------------------------------------------- // Modify History: // //==================================================================== int rslt=1 if arg_scid < 0 then arg_msg = '请选择分部' rslt = 0 goto ext end if 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_reissueid, ref string arg_msg);//==================================================================== // Function: updatebegin(arg_scid,arg_inwareid,arg_billtype,arg_msg) //-------------------------------------------------------------------- // Description: 从置对象,设定业务类型与关联ID,准备更新进仓单 //-------------------------------------------------------------------- // Arguments: // value long arg_scid // value long arg_inwareid // value integer arg_billtype // reference string arg_msg //-------------------------------------------------------------------- // Returns: integer //-------------------------------------------------------------------- // Author: yyx Date: 2003.11.12 //-------------------------------------------------------------------- // Modify History: // //==================================================================== long rslt=1 if arg_scid < 0 then arg_msg = '请选择分部' rslt = 0 goto ext end if if arg_reissueid<=0 then rslt=0 goto ext end if rslt=p_getinfo(arg_scid,arg_reissueid,arg_msg) if rslt=0 then goto ext if flag=1 then rslt=0 arg_msg='单据已经审核,不可以修改' goto ext end if reissueid=arg_reissueid 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 add_dscrp (long arg_scid, long arg_reissueid, string arg_newdescppart, ref string arg_msg);//add_dscrp(string arg_newdescppart) //0 fail 1 success int rslt=1 arg_newdescppart=trim(arg_newdescppart) if it_updatebegin or it_newbegin then rslt=0 arg_msg="编辑状态下不可用" goto ext end if if arg_newdescppart='' then rslt=0 arg_msg="要添加内容为空,操作取消" goto ext end if rslt=p_getinfo(arg_scid,arg_reissueid,arg_msg) if rslt=0 then goto ext if flag=0 then rslt=0 arg_msg="非审核状态下不可用" goto ext end if update u_reissue set dscrp = dscrp+' '+:arg_newdescppart where u_reissue.reissueid = :reissueid and scid=:scid using commit_transaction; if commit_transaction.sqlcode<>0 then rollback ; 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 save (boolean arg_ifcommit, ref string arg_msg);Integer rslt = 1,cnt = 0,i DateTime server_dt Long ls_newid String ls_sccode IF IsNull(relid) THEN relid = 0 IF IsNull(cusid) THEN cusid = 0 IF IsNull(moneyid) THEN moneyid = 0 IF IsNull(relcode) THEN relcode = '' IF IsNull(reissueemp) THEN reissueemp = '' IF IsNull(dscrp) THEN dscrp = '' IF IsNull(itemid) THEN itemid = 0 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 IF r_type = 2 THEN IF cusid = 0 THEN arg_msg = '请选择供应商' rslt = 0 GOTO ext END IF SELECT count(*) INTO :cnt FROM u_spt WHERE sptid = :cusid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询供应商资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '错误的供应商资料' GOTO ext END IF ELSE IF cusid = 0 THEN arg_msg = '请选择客户' rslt = 0 GOTO ext END IF SELECT count(*) INTO :cnt FROM u_cust WHERE cusid = :cusid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询客户资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '错误的客户资料' GOTO ext END IF END IF IF it_mxbt = 0 THEN //如果输入物料资料错则已经清空 rslt = 0 arg_msg = "没有正确进仓内容" GOTO ext END IF IF itemid = 0 THEN rslt = 0 arg_msg = '请选择项目' GOTO ext END IF SELECT count(*) INTO :cnt FROM u_itemdef WHERE itemid = :itemid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询项目资料失败,'+sqlca.SQLErrText rslt = 0 GOTO ext END IF IF cnt = 0 THEN rslt = 0 arg_msg = '错误的项目资料' GOTO ext END IF IF f_check_inoutdate(0,reissuedate,true,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF ////////////////////////////////////////////// //开始区分:新建/更新 处理 IF reissueid = 0 THEN //新建 ls_newid = f_sys_scidentity(scid,"u_reissue","reissueid",arg_msg,if_getid_ture,commit_transaction) IF ls_newid <= 0 THEN rslt = 0 GOTO ext END IF //取分部代号 IF f_get_sccode(scid,commit_transaction,ls_sccode,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF //取得新单据编号 IF r_type = 0 THEN reissuecode = getid(scid,ls_sccode + 'FJ',Date(server_dt),if_getid_ture,commit_transaction) ELSEIF r_type = 1 THEN reissuecode = getid(scid,ls_sccode + 'FY',Date(server_dt),if_getid_ture,commit_transaction) ELSE reissuecode = getid(scid,ls_sccode + 'FS',Date(server_dt),if_getid_ture,commit_transaction) END IF IF reissuecode = "err" THEN reissuecode = '' rslt = 0 arg_msg = "无法获取单据编号"+"~n"+commit_transaction.SQLErrText GOTO ext END IF INSERT INTO u_reissue ( scid, reissueid, reissuecode, cusid, reissuedate, relid, relcode, dscrp, opdate, opemp, flag, reissueemp, type, moneyid, mrate, itemid) VALUES ( :scid, :ls_newid, :reissuecode, :cusid, :reissuedate, :relid, :relcode, :dscrp, :server_dt, :publ_operator, :flag, :reissueemp, :r_type, :moneyid, :mrate, :itemid) USING commit_transaction ; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_reissue') > 0 THEN arg_msg = '插入操作失败,关键字单据ID重复' ELSEIF Pos(Lower(commit_transaction.SQLErrText),'IX_u_reissue') > 0 THEN arg_msg = '插入操作失败,关键字单据编号重复' ELSE arg_msg = "因网络或其它原因导致插入操作失败"+"~n"+commit_transaction.SQLErrText END IF GOTO ext END IF //读取新reissueid reissueid = ls_newid FOR i = 1 TO it_mxbt INSERT INTO u_reissuemx (scid, reissueid, mtrlid, printid, qty, price, amt, dscrp, mtrlname) VALUES ( :scid, :ls_newid, :reissuemx[i].mtrlid, :reissuemx[i].printid, :reissuemx[i].qty, :reissuemx[i].price, :reissuemx[i].amt, :reissuemx[i].mxdscrp, :reissuemx[i].mtrlname) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN reissueid = 0 //还原reissueid rslt = 0 IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_reissuemx') > 0 THEN arg_msg = '插入明细操作失败,关键字单据ID,序号重复' ELSE arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText END IF GOTO ext END IF NEXT ELSE //////////////////////////////////////////////// //更新 UPDATE u_reissue SET cusid = :cusid, reissuedate = :reissuedate, relid = :relid, relcode = :relcode, dscrp = :dscrp, moddate = : server_dt, modemp = :publ_operator, reissueemp = :reissueemp, type = :r_type, moneyid = :moneyid, mrate = :mrate, itemid = :itemid WHERE u_reissue.reissueid = :reissueid AND u_reissue.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_reissuemx WHERE u_reissuemx.reissueid = :reissueid AND u_reissuemx.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_reissuemx (scid, reissueid, mtrlid, printid, qty, price, amt, dscrp, mtrlname) VALUES ( :scid, :reissueid, :reissuemx[i].mtrlid, :reissuemx[i].printid, :reissuemx[i].qty, :reissuemx[i].price, :reissuemx[i].amt, :reissuemx[i].mxdscrp, :reissuemx[i].mtrlname) USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 IF Pos(Lower(commit_transaction.SQLErrText),'PK_u_reissuemx') > 0 THEN arg_msg = '插入明细操作失败,关键字单据ID,序号重复' ELSE arg_msg = "因网络或其它原因导致插入明细操作失败"+"~n"+commit_transaction.SQLErrText END IF 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 del (long arg_scid, long arg_reissueid, ref string arg_msg, boolean arg_ifcommit);//如果单据还没有审核删除单据极其明细 //0 FAIL, 1 SUCCESS Int rslt = 1 IF arg_reissueid <= 0 THEN rslt = 0 arG_MSG = "没有删除对象,操作取消" GOTO ext END IF IF p_getinfo(arg_scid,arg_reissueid,arG_MSG) = 0 THEN rslt = 0 GOTO ext END IF IF flag = 1 THEN rslt = 0 arG_MSG = "单据已经审核,不可以删除" GOTO ext END IF DELETE FROM u_reissue WHERE u_reissue.reissueid = :arg_reissueid AND u_reissue.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_reissuemx WHERE u_reissuemx.reissueid = :arg_reissueid AND u_reissuemx.scid = :arg_scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arG_MSG = "删除补件单明细操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF it_newbegin = FALSE it_updatebegin = FALSE ext: IF rslt = 0 THEN ROLLBACK USING commit_transaction; p_reset() ELSEIF rslt = 1 AND arg_ifcommit THEN COMMIT USING commit_transaction; END IF RETURN (rslt) end function public function integer auditing (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,cnt = 0,ll_i //DateTime ld_viewdate //SetNull(ld_viewdate) uo_musttake uo_take uo_mustpay uo_pay uo_take = CREATE uo_musttake uo_pay = CREATE uo_mustpay String ls_about,ls_dscrp Decimal ld_takeamt = 0,ld_msttakeamt = 0 Decimal ld_payamt = 0,ld_mstpayamt = 0 long ll_moneyid_native,ll_moneyid Decimal ld_mrate IF reissueid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF it_newbegin OR it_updatebegin THEN rslt = 0 arg_msg = "编辑状态下不可以执行审核" GOTO ext END IF IF flag = 1 THEN rslt = 0 arg_msg = "单据已经审核" GOTO ext END IF Int li_btype Long ll_accountsid SELECT btype,accountsid INTO :li_btype,:ll_accountsid FROM cw_banktype Where banktypeid = :relid 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 sqlca.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 u_reissue SET auditingrep = :publ_operator, auditingdate = getdate(), flag = 1 WHERE u_reissue.reissueid = :reissueid 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 r_type = 0 THEN //补件单 IF sumamt <> 0 THEN ls_about = reissuecode + "补件款" ls_dscrp = ls_about ld_msttakeamt = sumamt IF li_btype = 1 THEN ld_takeamt = ld_msttakeamt ELSE ld_takeamt = 0 END IF s_bmsttake s_take s_take.scid = scid s_take.cusid = cusid s_take.takedate = reissuedate s_take.inrep = reissueemp s_take.oriamt = ld_msttakeamt s_take.msttakeamt = ld_msttakeamt s_take.takeamt = ld_takeamt s_take.dscrp = ls_dscrp s_take.billcode = reissuecode s_take.banktypeid = relid s_take.opemp = publ_operator s_take.buildtype = 1 s_take.outwareid = reissueid s_take.accountsid = ll_accountsid s_take.itemid = itemid s_take.moneyid = moneyid s_take.viewdate = reissuedate s_take.relcode = relcode IF uo_take.add_takerec (s_take,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF // IF uo_take.add_takerec(scid,cusid,reissuedate,reissueemp,ld_msttakeamt,Round(ld_msttakeamt,sys_saleamt_round),Round(ld_takeamt,sys_saleamt_round),ls_dscrp,& // reissuecode,relid,1,publ_operator,reissueid,0,arg_msg,FALSE,reissuedate,ll_accountsid,itemid,moneyid,relcode) = 0 THEN // rslt = 0 // GOTO ext // END IF UPDATE u_reissue SET relint_3 = :uo_take.ref_takeid WHERE u_reissue.reissueid = :reissueid 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 ELSEIF r_type = 1 THEN //费用单 FOR ll_i = 1 TO it_mxbt IF reissuemx[ll_i].amt <> 0 THEN IF Trim(reissuemx[ll_i].mxdscrp) = '' THEN ls_about = reissuecode + ',' + reissuemx[ll_i].mtrlname ELSE ls_about = reissuecode + ',' + reissuemx[ll_i].mtrlname + ',' + reissuemx[ll_i].mxdscrp END IF ls_dscrp = ls_about ld_msttakeamt = 0 - reissuemx[ll_i].amt IF li_btype = 1 THEN ld_takeamt = ld_msttakeamt ELSE ld_takeamt = 0 END IF IF sys_option_mst_multimoney = 0 THEN ld_msttakeamt = ld_msttakeamt * mrate ld_takeamt = ld_takeamt * mrate ld_mrate = 1 ll_moneyid = ll_moneyid_native ELSE ld_msttakeamt = ld_msttakeamt ld_takeamt = ld_takeamt ld_mrate = mrate ll_moneyid = moneyid END IF s_bmsttake s_take2 s_take2.scid = scid s_take2.cusid = cusid s_take2.takedate = reissuedate s_take2.inrep = reissueemp s_take2.oriamt = ld_msttakeamt s_take2.msttakeamt = ld_msttakeamt s_take2.takeamt = ld_takeamt s_take2.takeamt_cn = ld_takeamt s_take2.dscrp = ls_dscrp s_take2.billcode = reissuecode s_take2.banktypeid = relid s_take2.opemp = publ_operator s_take2.buildtype = 1 s_take2.outwareid = reissueid s_take2.accountsid = ll_accountsid s_take2.itemid = itemid s_take2.moneyid = ll_moneyid s_take2.viewdate = reissuedate s_take2.relcode = relcode IF uo_take.add_takerec (s_take2,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF // IF uo_take.add_takerec(scid,cusid,reissuedate,reissueemp,ld_msttakeamt,Round(ld_msttakeamt,sys_saleamt_round),Round(ld_takeamt,sys_saleamt_round),ls_dscrp,& // reissuecode,relid,1,publ_operator,reissueid,0,arg_msg,FALSE,reissuedate,ll_accountsid,itemid,moneyid,relcode) = 0 THEN // rslt = 0 // GOTO ext // END IF UPDATE u_reissuemx SET relid = :uo_take.ref_takeid FROM u_reissuemx,u_reissue WHERE u_reissuemx.reissueid = :reissueid AND u_reissuemx.printid = :reissuemx[ll_i].printid AND u_reissuemx.scid = :scid AND u_reissuemx.scid = u_reissue.scid AND u_reissuemx.reissueid = u_reissue.reissueid AND u_reissue.flag = 1 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新费用单相关应收帐ID失败' rslt = 0 GOTO ext END IF END IF NEXT ELSEIF r_type = 2 THEN //? FOR ll_i = 1 TO it_mxbt IF Trim(reissuemx[ll_i].mxdscrp) = '' THEN ls_about = reissuecode + ',' + reissuemx[ll_i].mtrlname ELSE ls_about = reissuecode + ',' + reissuemx[ll_i].mtrlname + ',' + reissuemx[ll_i].mxdscrp END IF ls_dscrp = ls_about ld_mstpayamt = reissuemx[ll_i].amt IF li_btype = 1 THEN ld_payamt = ld_mstpayamt ELSE ld_payamt = 0 END IF IF sys_option_msp_multimoney = 0 THEN ld_mstpayamt = ld_mstpayamt * mrate ld_payamt = ld_payamt * mrate ld_mrate = 1 ll_moneyid = ll_moneyid_native ELSE ld_mstpayamt = ld_mstpayamt ld_payamt = ld_payamt ld_mrate = mrate ll_moneyid = moneyid END IF DateTime plandate SetNull(plandate) s_bmstpay s_pay s_pay.scid = scid s_pay.sptid = cusid s_pay.paydate = reissuedate s_pay.inrep = reissueemp s_pay.oriamt = ld_mstpayamt s_pay.mstpayamt = ld_mstpayamt s_pay.payamt = ld_payamt s_pay.dscrp = ls_dscrp s_pay.billcode = reissuecode s_pay.banktypeid = relid s_pay.opemp = publ_operator s_pay.buildtype = 1 s_pay.inwareid = reissueid s_pay.accountsid = ll_accountsid s_pay.itemid = itemid s_pay.moneyid = ll_moneyid s_pay.viewdate = plandate s_pay.relcode = relcode IF uo_pay.add_payrec (s_pay,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF // IF uo_pay.add_payrec (scid,cusid,reissuedate,reissueemp,ld_mstpayamt,ld_mstpayamt,ld_payamt,ls_dscrp,& // reissuecode,relid,1,publ_operator,reissueid,0,arg_msg,FALSE,plandate,ll_accountsid,itemid,moneyid ,relcode) = 0 THEN // rslt = 0 // GOTO ext // END IF UPDATE u_reissuemx SET relid = :uo_pay.ref_payid FROM u_reissuemx,u_reissue WHERE u_reissuemx.reissueid = :reissueid AND u_reissuemx.printid = :reissuemx[ll_i].printid AND u_reissuemx.scid = :scid AND u_reissuemx.scid = u_reissue.scid AND u_reissuemx.reissueid = u_reissue.reissueid AND u_reissue.flag = 1 USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '更新相关应收帐ID失败' rslt = 0 GOTO ext END IF NEXT END IF flag = 1 ext: DESTROY uo_take DESTROY uo_pay 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_auditing (boolean arg_ifcommit, ref string arg_msg);Long rslt = 1,cnt = 0,ll_i uo_musttake uo_take uo_mustpay uo_pay uo_take = CREATE uo_musttake uo_pay = create uo_mustpay Long ll_takeid DateTime null_dt SetNull(null_dt) IF reissueid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF it_newbegin OR it_updatebegin THEN rslt = 0 arg_msg = "编辑状态下不可以执行审核" GOTO ext END IF IF cwauditingflag = 1 THEN rslt = 0 arG_MSG = "该单据已经总账审核,不能进行财务撤审" GOTO ext END IF IF flag = 0 THEN rslt = 0 arg_msg = "单据还未审核" GOTO ext END IF 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 u_reissue SET Auditingrep = '', Auditingdate = :null_dt, flag = 0, relint_3 = 0 WHERE u_reissue.reissueid = :reissueid 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 r_type = 0 THEN IF sumamt <> 0 THEN IF uo_take.del_takerec(scid,1,relint_3,cusid,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF END IF ELSEIF r_type = 1 THEN FOR ll_i = 1 TO it_mxbt IF reissuemx[ll_i].amt <> 0 THEN IF uo_take.del_takerec(scid,1,reissuemx[ll_i].relid,cusid,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF UPDATE u_reissuemx SET relid = 0 WHERE u_reissuemx.reissueid = :reissueid AND u_reissuemx.printid = :reissuemx[ll_i].printid AND u_reissuemx.scid = :scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致审核单据操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF NEXT ELSEIF r_type = 2 THEN FOR ll_i = 1 TO it_mxbt IF reissuemx[ll_i].amt <> 0 THEN IF uo_pay.del_payrec(scid,1,reissuemx[ll_i].relid,cusid,arg_msg,FALSE) = 0 THEN rslt = 0 GOTO ext END IF UPDATE u_reissuemx SET relid = 0 WHERE u_reissuemx.reissueid = :reissueid AND u_reissuemx.printid = :reissuemx[ll_i].printid AND u_reissuemx.scid = :scid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致审核单据操作失败"+"~n"+commit_transaction.SQLErrText GOTO ext END IF END IF NEXT END IF flag = 0 ext: DESTROY uo_take DESTROY uo_pay 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 (decimal arg_qty, double arg_price, decimal arg_amt, string arg_mxdscrp, long arg_printid, ref string arg_msg, long arg_mtrlid, string arg_mtrlname);Int rslt = 1 Long cnt = 0 IF it_newbegin = FALSE AND it_updatebegin = FALSE THEN rslt = 0 arg_msg = "非编辑状态不可以使用,操作取消" GOTO ext END IF //清除空值 IF IsNull(arg_qty) THEN arg_qty = 0 IF IsNull(arg_price) THEN arg_price = 0 IF IsNull(arg_printid) THEN arg_printid = 0 IF IsNull(arg_amt) THEN arg_amt = 0 IF IsNull(arg_mxdscrp) THEN arg_mxdscrp = '' IF IsNull(arg_mtrlid) THEN arg_mtrlid = 0 IF IsNull(arg_mtrlname) THEN arg_mtrlname = '' // 如果出仓数量为 0，或物料编号为空，则不作任何处理 IF r_type = 0 THEN SELECT count(*) INTO :cnt FROM u_mtrldef Where mtrlid = :arg_mtrlid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = "查询物料资料失败,"+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_mtrlid = 0 THEN rslt = 1 GOTO ext END IF ELSEIF r_type = 1 THEN SELECT count(*) INTO :cnt FROM U_Expenses Where Expensesid = :arg_mtrlid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询项目资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF IF arg_mtrlid = 0 THEN rslt = 1 GOTO ext END IF ELSEIF r_type = 2 AND arg_mtrlid > 0 THEN SELECT count(*) INTO :cnt FROM U_Expenses Where Expensesid = :arg_mtrlid USING commit_transaction; IF commit_transaction.SQLCode <> 0 THEN arg_msg = '查询项目资料失败,'+commit_transaction.SQLErrText rslt = 0 GOTO ext END IF END IF IF arg_qty = 0 THEN rslt = 1 GOTO ext END IF //写入内容 it_mxbt++ reissuemx[it_mxbt].mtrlid = arg_mtrlid reissuemx[it_mxbt].qty = arg_qty reissuemx[it_mxbt].amt = Round(arg_amt,2) reissuemx[it_mxbt].price = arg_price reissuemx[it_mxbt].mxdscrp = arg_mxdscrp reissuemx[it_mxbt].printid = arg_printid reissuemx[it_mxbt].mtrlname = arg_mtrlname ext: IF rslt = 0 THEN p_clearmx() arg_msg = "第" + String(arg_printid) + "行," + arg_msg END IF RETURN rslt end function public function integer audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg); Int rslt = 1,cnt = 0 IF arg_billid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF flag = 0 THEN rslt = 0 arg_msg = "单据没有审核" GOTO ext END IF IF cwauditingflag = 1 THEN rslt = 0 arg_msg = "单据已经总账审核" GOTO ext END IF UPDATE u_reissue SET cwauditingflag = 1, cwauditingdate = getdate(), cwauditingrep = :publ_operator WHERE ( u_reissue.reissueid = :arg_billid ) AND ( u_reissue.scid = :arg_scid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致总账审核操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF ext: IF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Return (rslt) end function public function integer c_audit_subject (long arg_scid, long arg_billid, boolean arg_ifcommit, ref string arg_msg); Int rslt = 1,cnt = 0 IF arg_billid = 0 THEN rslt = 0 arg_msg = "没有审核对象" GOTO ext END IF IF p_getinfo(arg_scid,arg_billid,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF IF cwauditingflag = 0 THEN rslt = 0 arg_msg = "单据没有总账审核" GOTO ext END IF UPDATE u_reissue SET cwauditingflag = 0, cwauditingdate =null, cwauditingrep = '' WHERE ( u_reissue.reissueid = :arg_billid ) AND ( u_reissue.scid = :arg_scid) Using commit_transaction; IF commit_transaction.SQLCode <> 0 THEN rslt = 0 arg_msg = "因网络或其它原因导致总账撤审操作失败"+"~n"+commit_transaction.SQLErrText ROLLBACK Using commit_transaction; GOTO ext END IF ext: IF arg_ifcommit And rslt = 1 THEN COMMIT Using commit_transaction; END IF Return (rslt) end function on uo_reissue.create call super::create TriggerEvent( this, "constructor" ) end on on uo_reissue.destroy TriggerEvent( this, "destructor" ) call super::destroy end on