【正文】 axPrice,RetailPrice,CostPrice,ITaxRate,ArtiQty,ValuQty,CostAmt,ImpDate,StkDate,BussEventId,BussStatus,OptrId,ImpId,CheckId,Note,GiftTypeId,RateBuyQty,RateGiftQty,SampQty,FailQty,ChkRepCode,HasBrand,HasDoc,HasAppear,StkLocId,TranStatus,OrigStkRegId)Select ( DeptId,@m_stkRegId,ArtiClassCode,ArtiId,ImpArtiInfoId,OrdId,ProvSupplyNo,ProvId,ImpArtiId,ImpInclQty,ImpUnit,DistInclQty,DistUnit,TaxPrice,UnTaxPrice,RetailPrice,CostPrice,ITaxRate,ArtiQty,ValuQty,CostAmt,ImpDate,StkDate,15,BussStatus,OptrId,ImpId,CheckId,實(shí)價(jià)入庫(kù)紅沖,GiftTypeId,RateBuyQty,RateGiftQty,SampQty,FailQty,ChkRepCode,HasBrand,HasDoc,HasAppear,StkLocId,TranStatus,OrigStkRegId)from Tbd_StkRegwhere StkRegId = @m_stkRegId_Oldif @@error0begin rollback transaction stk_tran_realin mit transaction30 / 44 raiserror 90001 寫(xiě)入估價(jià)負(fù)項(xiàng)失敗 select @m_ReclaimId = 20 return 1end/*在 Tbd_StkReg 表中插入一條實(shí)價(jià)入庫(kù)紅沖的記錄*/ exec @RetVal = Spq_sys_MaxId 182, 0, @SysId output if @RetVal != 1 begin rollback transaction stk_tran_realinmit transaction raiserror 90006 沒(méi)有能夠計(jì)算出一個(gè)進(jìn)貨編碼(插入實(shí)價(jià)項(xiàng))! select @m_ReclaimId = 60return 1end select @m_stkRegId = @SysId //調(diào)用物流系統(tǒng)的存儲(chǔ)過(guò)程，統(tǒng)一地為 StkRegId 分配值insert Tbd_StkReg (DeptId,StkRegId,ArtiClassCode,ArtiId,ImpArtiInfoId,OrdId,ProvSupplyNo,ProvId,ImpArtiId,ImpInclQty,ImpUnit,DistInclQty,DistUnit,TaxPrice,UnTaxPrice,RetailPrice,CostPrice,ITaxRate,ArtiQty,ValuQty,CostAmt,ImpDate,StkDate,BussEventId,BussStatus,OptrId,ImpId,CheckId,Note,GiftTypeId,RateBuyQty,RateGiftQty,SampQty,FailQty,ChkRepCode,HasBrand,HasDoc,HasAppear,StkLocId,TranStatus,OrigStkRegId)select (31 / 44DeptId,@m_stkRegId,ArtiClassCode,ArtiId,ImpArtiInfoId,OrdId,ProvSupplyNo,ProvId,ImpArtiId,ImpInclQty,ImpUnit,DistInclQty,DistUnit,@m_UnTaxPrice*(@m_TaxRate*+1),@m_UnTaxPrice,@m_UnTaxPrice*(@m_TaxRate*+1),CostPrice,ITaxRate,ArtiQty,ValuQty,@m_UnTaxPrice*ValuQty,ImpDate,StkDate,10,BussStatus,OptrId,ImpId,CheckId,訂單進(jìn)貨登記,GiftTypeId,RateBuyQty,RateGiftQty,SampQty,FailQty,ChkRepCode,HasBrand,HasDoc,HasAppear,StkLocId,TranStatus,OrigStkRegId)from Tbd_StkRegwhere StkRegId = @m_stkRegId_Oldif @@rowcount1begin rollback transaction stk_tran_realin mit transaction raiserror 90002 寫(xiě)入實(shí)價(jià)時(shí)失敗(insert Tbd_StkReg) select @m_ReclaimId = 30 return 1end/*在 Tbd_StkReg 表中插入一條實(shí)價(jià)入庫(kù)記錄*/ update Tbd_StkLocset (TaxPrice = @m_UnTaxPrice*(@m_TaxRate*+1), UnTaxPrice = @m_UnTaxPrice, ITaxRate = @m_TaxRate, StkRegId = @m_stkRegId)where StkRegId = @m_stkRegId_Old32 / 44if @@error0beginrollback transaction stk_tran_realinmit transactionraiserror 90003 進(jìn)貨登記數(shù)據(jù)有誤(update Tbd_StkLoc)select @m_ReclaimId = 40return 1end/*更新 Tbd_StkLoc 中的與 Tbd_StkReg 中的原始記錄通過(guò)外鍵StkRegId 相聯(lián)系的記錄的原始進(jìn)價(jià)更新為現(xiàn)在的實(shí)際價(jià)格，并把給記錄原來(lái)與 Tbd_StkReg 中的原始記錄的聯(lián)接，轉(zhuǎn)變?yōu)榕cTbd_StkReg 中實(shí)價(jià)入庫(kù)記錄的聯(lián)接*/ update Tbd_StkReg set BussEventId = 14,Note = 原始估價(jià)入庫(kù) where StkRegId = @m_stkRegId_Oldif @@rowcount 1beginrollback transaction stk_tran_realinmit transactionraiserror 90000 進(jìn)貨登記數(shù)據(jù)有誤(update Tbd_StkReg)select @m_ReclaimId = 10return 1end/*更新 Tbd_StkReg 表的原始記錄為原始估價(jià)入庫(kù)，并設(shè)定其BussEventId = 14,表示這條記錄為原始價(jià)格記錄 */mit transaction33 / 44select @m_ReclaimId = 0return 0 盤(pán)點(diǎn)部分財(cái)務(wù)模塊的設(shè)計(jì)與實(shí)現(xiàn) 盤(pán)點(diǎn)部分需求的分析津菱公司對(duì)于倉(cāng)庫(kù)將定期進(jìn)行盤(pán)點(diǎn)，盤(pán)點(diǎn)產(chǎn)生損益也將生成財(cái)務(wù)憑證。對(duì)于盤(pán)點(diǎn)部分的基本財(cái)務(wù)運(yùn)作流程可由圖 45 表示。由于物流系統(tǒng)在盤(pán)點(diǎn)功能模塊中已經(jīng)實(shí)現(xiàn)了將有損益的商品信息寫(xiě)入數(shù)據(jù)庫(kù)的盤(pán)點(diǎn)損益表中，因此這部分財(cái)務(wù)處理較為簡(jiǎn)單些，只需將盤(pán)點(diǎn)損益表中的相關(guān)信息導(dǎo)出，產(chǎn)給 k3 生成會(huì)計(jì)憑證即可。圖 45 盤(pán)點(diǎn)部分基本財(cái)務(wù)操作流程 盤(pán)點(diǎn)部分功能的實(shí)現(xiàn)物流系統(tǒng)在進(jìn)行盤(pán)點(diǎn)時(shí)，會(huì)將損益信息寫(xiě)入盤(pán)點(diǎn)損益表中，盤(pán)點(diǎn)損益表的結(jié)構(gòu)如表 41 所示：盤(pán)點(diǎn)啟動(dòng)倉(cāng)儲(chǔ)核查YN盤(pán)點(diǎn)結(jié)束是否有損益生成財(cái)務(wù)憑證34 / 44列名 說(shuō)明DeptId 配送中心部門(mén)標(biāo)識(shí)StkPLId 配送中心庫(kù)存損溢標(biāo)識(shí)StkPLShtNo 配送中心損溢單號(hào)StkLocId 配送中心庫(kù)存標(biāo)識(shí)StorageId 配送中心倉(cāng)庫(kù)標(biāo)識(shí)StkCellId 配送中心倉(cāng)位標(biāo)識(shí)ProvId 供應(yīng)商標(biāo)識(shí)ArtiClassCode 商品分類碼ArtiId 基商品標(biāo)識(shí)DistInclQty 配送包裝基商品含量DistUnit 配送包裝計(jì)量單位TaxPrice 庫(kù)存商品含稅進(jìn)價(jià)UnTaxPrice 庫(kù)存商品無(wú)稅進(jìn)價(jià)CostPrice 商品結(jié)算成本價(jià)RetailPrice 商品零售價(jià)ITaxRate 商品進(jìn)項(xiàng)稅率STaxRate 商品銷項(xiàng)稅率ArtiQty 配送中心損溢單品數(shù)量StkQty 配送中心庫(kù)存單品數(shù)量ValuQty 損溢商品計(jì)價(jià)數(shù)量CostAmt 損溢商品成本金額AppDate 配送中心商品損溢填報(bào)時(shí)間CheckDate 配送中心商品損溢復(fù)核日期BussEventId 業(yè)務(wù)事件標(biāo)識(shí)BussStatus 配送中心損溢狀態(tài)TranStatus 配送中心損溢數(shù)據(jù)傳輸狀態(tài)OptrId 損溢錄入人員標(biāo)識(shí)CheckId 損溢復(fù)核人員標(biāo)識(shí)35 / 44Note 備注ValidDate 配送中心商品有效日期ProcDate 配送中心商品生產(chǎn)日期BatchCode 配送中心商品批號(hào)PLSettId 配送中心損溢入帳標(biāo)識(shí)表 41 盤(pán)點(diǎn)損益表對(duì)于盤(pán)點(diǎn)部分的財(cái)務(wù)功能的實(shí)現(xiàn)，只需將盤(pán)點(diǎn)損益表中的數(shù)據(jù)如實(shí)價(jià)入庫(kù)階段的處理一樣，這里不再累述。36 / 44第五章 項(xiàng)目總結(jié)及展望 開(kāi)發(fā)經(jīng)驗(yàn)總結(jié)畢業(yè)設(shè)計(jì)即將結(jié)束了，整個(gè)畢業(yè)設(shè)計(jì)雖然只有短短的幾個(gè)月，但它卻不僅在學(xué)業(yè)上給了我很大的幫助，而且更多是教給了我面對(duì)問(wèn)題與困難的態(tài)度。平時(shí)用慣了 Java、C++、C 等開(kāi)發(fā)語(yǔ)言，第一次的 pb 接觸，真的有點(diǎn)不適應(yīng)。從開(kāi)始的一竅不通，到慢慢地熟悉掌握，以及后來(lái)的熟練運(yùn)用。其中真的是有苦有甜、苦樂(lè)參半。雖然數(shù)據(jù)庫(kù)象 SQL SERVER202ORACLE 也接觸過(guò)一段時(shí)間，但真正的對(duì)數(shù)據(jù)庫(kù)的感悟卻是來(lái)自于 pb 的 datawindow，項(xiàng)目剛開(kāi)始時(shí)，對(duì)于 datawindow 的認(rèn)識(shí)僅僅限于一個(gè)很窄的層面上。隨著項(xiàng)目的進(jìn)行，對(duì)于 pb 的認(rèn)識(shí)與感悟也日益加深，它對(duì)數(shù)據(jù)庫(kù)的操作：簡(jiǎn)便的查詢、及時(shí)的更新、方便的可視化數(shù)據(jù)庫(kù)操作等等，使我有時(shí)真的佩服 pb 的對(duì)數(shù)據(jù)庫(kù)支持的強(qiáng)大。第一次接觸這么大型的軟件，才覺(jué)得以前做過(guò)的東西真的只能算是玩具了。剛接觸系統(tǒng)時(shí)，一頭霧水，隨著對(duì)系統(tǒng)的慢慢了解，才真正體會(huì)到了原開(kāi)發(fā)者漂亮的設(shè)計(jì)模式思想以及對(duì)于物流流程的經(jīng)典認(rèn)識(shí)。整個(gè)項(xiàng)目最讓我感觸的是對(duì)需求分析地重新認(rèn)識(shí)，以前做過(guò)的程序也沒(méi)太多的需求分析要做，現(xiàn)在真正接觸到了這么一個(gè)龐大的系統(tǒng)，才明白如果沒(méi)一個(gè)清晰明確的需求分析是絕對(duì)不可能完成的。在整個(gè)項(xiàng)目開(kāi)發(fā)過(guò)程中，從開(kāi)始階段腦袋都大地去讀一個(gè)幾百行的存儲(chǔ)過(guò)程，到后來(lái)自己嘗試著寫(xiě)幾百行的存儲(chǔ)過(guò)程，雖然算不上什么大的突破，但從中也嘗到了一些成功的喜悅。這也許就是項(xiàng)目真正教給我的生活態(tài)度吧。 項(xiàng)目展望畢設(shè)已經(jīng)接近尾聲了，項(xiàng)目由于時(shí)間的緊迫不能夠同時(shí)結(jié)束。在整個(gè)開(kāi)發(fā)過(guò)程中，也是我認(rèn)識(shí)到了軟件過(guò)程管理對(duì)于開(kāi)發(fā)效率的決定作用。由于項(xiàng)目開(kāi)始時(shí)，經(jīng)驗(yàn)不足，造成了項(xiàng)目協(xié)調(diào)進(jìn)行的困難。因此，行之有效的項(xiàng)目管理是37 / 44項(xiàng)目正常進(jìn)行的保障。 項(xiàng)目?jī)H僅實(shí)現(xiàn)了一小部分財(cái)務(wù)需求的功能，完全地實(shí)現(xiàn)財(cái)務(wù)功能還需要更明確的需求分析。由于項(xiàng)目是在物流系統(tǒng)的基礎(chǔ)上進(jìn)行的二次開(kāi)發(fā)，數(shù)據(jù)庫(kù)的許多表的設(shè)計(jì)對(duì)于財(cái)務(wù)來(lái)講，都很不適用，需要更多的優(yōu)化和重新設(shè)計(jì)。38 / 44致 謝首先要感謝我的導(dǎo)師張波副教授，在整個(gè)畢設(shè)過(guò)程中，給了我許多有益的啟發(fā)和熱情的幫助。他對(duì)于項(xiàng)目一絲不茍的治學(xué)態(tài)度以及對(duì)于項(xiàng)目人員的協(xié)調(diào)與統(tǒng)籌規(guī)劃的能力，讓我深刻體會(huì)到了作為項(xiàng)目主持人所應(yīng)具備素質(zhì)。同時(shí)，還要感謝張老師給我了一次真正接觸物流行業(yè)的機(jī)會(huì)，使我更好地完成了雙學(xué)位的論文題目。感謝和我同組的劉劉、韓曉瑋、樓波和盧子怡同學(xué)，沒(méi)有他們?cè)陧?xiàng)目中的努力與協(xié)調(diào)配合，就不可能有項(xiàng)目的順利完成。最讓我感謝是同作財(cái)務(wù)模塊的劉劉，在我時(shí)間緊張的情況下，給了我許多真情的幫助。感謝軟件學(xué)院對(duì)我們做畢業(yè)設(shè)計(jì)的大力支持，為我們做畢業(yè)設(shè)計(jì)提供了很優(yōu)越的實(shí)驗(yàn)環(huán)境，為我們配備了性能優(yōu)越的計(jì)算機(jī)，保證我們的畢設(shè)順利進(jìn)行。感謝我的家人一直以來(lái)在學(xué)業(yè)和精神上的無(wú)私支持。衷心感謝所有關(guān)心我的人！39 / 44參考文獻(xiàn)[1] CLM：[2] 崔杜武、姚全珠、范艷華、黑新紅：《PowerBuilder 從基礎(chǔ)到應(yīng)用》 ，人民郵電出版社，.[3] 王鵬：《 編程員指南》 ，北京希望電子出版社，2022 年[4] 劉增進(jìn)：《PowerBuilder 數(shù)據(jù)窗口技術(shù)詳解》 ，北京電子工業(yè)出版社，2022 年[5] SYBASE 公司：SYBASE TransactSQL User’s Guide，2022