【正文】 實現(xiàn)第四章 財務(wù)功能模塊的設(shè)計與實現(xiàn) 入庫部分財務(wù)模塊的設(shè)計與實現(xiàn) 在對津菱公司就采購進貨部分的需求和財務(wù)業(yè)務(wù)流程進行詳細分析后，入庫部分財務(wù)模塊設(shè)計與實現(xiàn)可由下面章節(jié)加以闡述。供應(yīng)商為津菱公司送貨時，必須出據(jù)一張送貨單，發(fā)票可以隨同到達也可以遲于到達。即送貨單號與銷售發(fā)票單號是一一對應(yīng)的，這就要為物流系統(tǒng)的進貨的子模塊中增加判定送貨單號唯一性的功能。只要保證物流系統(tǒng)對數(shù)據(jù)庫表的操作只能訪問的是最新添加的實價入庫的記錄行，不能訪問到估價入庫記錄和紅沖記錄，而財務(wù)功能模塊可以取到上述三條記錄，那么問題就可以加以解決了。但從財務(wù)功能實現(xiàn)的角度考慮，由于入庫單號是津菱公司內(nèi)部產(chǎn)生的編號，很難從入庫單號查出相應(yīng)的供貨方送來的銷售憑證的信息。經(jīng)過仔細考慮后，選定系統(tǒng)暫未使用的送貨單號作為此唯一標識，即送貨單號與倉庫管理的入庫單號一一對應(yīng)關(guān)系。 問題一： 已實現(xiàn)的津菱物流系統(tǒng)入庫部分的對送貨單號的操作為，在登記入庫階段，由操作人員手工錄入。并考慮到由于只是送貨單號出現(xiàn)誤差，而入庫商品，在數(shù)量和價格上，沒有任何變化。 問題二： 送貨單號唯一性的判定。 除了上述兩個問題外，還有一個最重要的，即實價入庫功能的實現(xiàn)的問題。在入庫部分財務(wù)模塊的設(shè)計中，已經(jīng)詳細討論了實現(xiàn)該功能，需要解決的問題。I. 問題一的解決：登記入庫階段，涉及到的數(shù)據(jù)庫的表為Tbh_Order、Tbd_StkReg，送貨單號對應(yīng)于Tbd_StkReg中的ProvSupplyNo的這一列。為實現(xiàn)該功能，在物流系統(tǒng)的登記入庫相應(yīng)界面W_imp_all上，添加一個名為“修改”的按鈕，當操作人員點擊該按鈕時，送貨單號一列為可編輯狀態(tài)，輸入新的送貨單號后，再點擊“入庫”，即完成了對送貨單號的修改。216。當操作人員點擊“修改”按鈕后，即進入狀態(tài)Modifing_ProvSupplyNo；完成修改后，點擊“入庫”按鈕，即進入入庫提交階段。 實現(xiàn)的代碼如下：當操作人員點擊“修改”按鈕后，系統(tǒng)狀態(tài)轉(zhuǎn)變?yōu)镸odifing_ProvSupplyNo。choose case is_state……/*物流系統(tǒng)其他的幾個狀態(tài)*/case Modifing_ProvSupplyNo/*物流系統(tǒng)的狀態(tài)為可修改送貨單號時 */ ls_ProvSupplyNo = [1] update Tbd_StkReg set ProvSupplyNo = :ls_ProvSupplyNo where in (select from Tbh_Order where = :ll_OrdNo )。II. 問題二的解決： 對于送貨單號唯一性的判斷，是在一個自定義函數(shù)of_checkprovsupplyno() returns integer中實現(xiàn)的。 實現(xiàn)的代碼如下：/*return : 2送貨單號在同一張訂單中不唯一；0送貨單號在數(shù)據(jù)庫中已經(jīng)存在；1送貨單號合法*/long ll_aiRow /*用于datawindow dw_artiinfo中行數(shù)的計數(shù)*/string ls_ProvSupplyNo /*送貨單號*/ls_ProvSupplyNo=[1]for ll_aiRow=2 to () if ls_ProvSupplyNo=[ll_aiRow] then continue else goto ProvSupplyNo_not_exclusive end ifnext /*用于判斷dw_artiinfo中ProvSupplyNo的一列是否是一致的，因為在物流系統(tǒng)實現(xiàn)時同一訂單必定對應(yīng)單一的送貨單號。 OPEN cur_ProvSupplyNo。 if ( 0 ) then exit if ls_psnls_ProvSupplyNo then continue else goto ProvSupplyNo_have_existed。 //關(guān)閉游標cur_ProvSupplyNostring ls_impDateList=\ int nDeclare cur_ImpDate Cursor ForSelect ImpDate from Tbd_StkReg where ProvSupplyNo = :ls_ProvSupplyNo。do datetime ld_impDate。 if(0) then exit ls_impDateList=ls_impDateList+string(date(ld_impDate))+ \ loop while trueclose cur_ImpDate。具體的情況將由操作人員自主判斷*/III. 實價入庫功能的實現(xiàn)經(jīng)過對物流系統(tǒng)反復(fù)運行及查閱與無稅價有關(guān)的各表的記錄變化情況，明確了實價入庫功能實現(xiàn)涉及到的數(shù)據(jù)庫表為：Tbd_StkReg和Tbd_StkLoc。為實現(xiàn)該功能，首先為物流系統(tǒng)添加了一個“入庫財務(wù)”的界面，主要的界面元素為：window—w_imp_realin,datawindow—dw_list、dw_listdw_2, dropDownListBoxddlb_owner、ddlb_supplyno等。216。 界面實現(xiàn)的狀態(tài)圖如44所示圖44 實價入庫界面狀態(tài)圖該界面剛調(diào)出時處于Initial狀態(tài)，當操作人員選擇好查詢條件時，即選擇了庫存名義和送貨單號后，便處于Allow_Query狀態(tài)，此時“查詢”按鈕有效。對于財務(wù)憑證的導(dǎo)出，在得到所要送貨單對應(yīng)的記錄后，點擊dw_list2的所要生成財務(wù)憑證的相應(yīng)列，再點擊“導(dǎo)出”按鈕即完成了財務(wù)數(shù)據(jù)的導(dǎo)出。 對于該界面各事件的處理實現(xiàn)：I. 查詢事件(sy_query)的實現(xiàn)(is_supplyno)(is_supplyno)在dw_list與dw_list2取值的唯一不同在于，dw_list顯示所有送貨單號對應(yīng)的記錄包括原始記錄和紅沖記錄， not in ( 14,15 ) 的記錄。II. 修改事件(sy_giveup)的實現(xiàn)if is_state Allow_Modify_Price then return 1(1)(1, true)()(untaxprice)of_SwitchState(Modifing_Price)把焦點設(shè)置到untaxprice一列上，并通過自定義函數(shù)of_SwitchState把狀態(tài)轉(zhuǎn)換到可修改原始價格的狀態(tài)。 = true execute shijiahongchong。提示信息39。 close shijiahongchong。對于實價入庫的存儲過程Spi_imp_realPriceReclaim將在后面部分加以詳細闡述。(ls_PathFile, dBASE3! ,true)及完成了數(shù)據(jù)的導(dǎo)出。V. 此窗口中的關(guān)閉按鈕是從系統(tǒng)中的父類中繼承加以實現(xiàn)。 實價入庫涉及的存儲過程create procedure Spi_imp_realPriceReclaimm_ArtiId integer, //商品外部編碼m_UnTaxPrice decimal(16,4), //商品無稅價格m_TaxRate smallint, //稅率m_ProvSupplyNo varchar(18), //送貨單號m_ReclaimId int output //輸出信息asdeclare m_stkRegId int, //倉位登記號m_stkRegId_Old int, //原有的倉位登記號SysId int, RetVal intbegin transactionsave transaction stk_tran_realin //設(shè)置transaction select m_stkRegId_Old=StkRegId from Tbd_StkReg where (ArtiId = m_ArtiId and ProvSupplyNo = m_ProvSupplyNo and BussEventId not in (14,15))if rowcount 1begin rollback transaction stk_tran_realin mit transaction raiserror 90004 查詢原始StkRegId出錯！ select m_ReclaimId = rowcount return 1end/*取出原始價格已經(jīng)更改的商品所對應(yīng)的原始記錄的倉位登記號，因為表Tbd_StkReg與表Tbd_StkLoc之間是通過StkRegId這個外鍵聯(lián)系起來的，所以在更改Tbd_StkReg表的記錄時，會為實價和紅沖記錄分別分配一個新的StkRegId，如果不級聯(lián)地更新Tbd_StkLoc中的記錄，將會導(dǎo)致Tbd_StkReg中的實價記錄與Tbd_StkLoc中的倉位信息不能聯(lián)接上。對于盤點部分的基本財務(wù)運作流程可由圖45表示。盤點啟動倉儲核查YN盤點結(jié)束是否有損益生成財務(wù)憑證圖45 盤點部分基本財務(wù)操作流程 盤點部分功能的實現(xiàn)物流系統(tǒng)在進行盤點時，會將損益信息寫入盤點損益表中，盤點損益表的結(jié)構(gòu)如表41所示：列名說明DeptId配送中心部門標識StkPLId配送中心庫存損溢標識StkPLShtNo配送中心損溢單號StkLocId配送中心庫存標識StorageId配送中心倉庫標識StkCellId配送中心倉位標識ProvId供應(yīng)商標識ArtiClassCode商品分類碼ArtiId基商品標識DistInclQty配送包裝基商品含量DistUnit配送包裝計量單位TaxPrice庫存商品含稅進價UnTaxPrice庫存商品無稅進價CostPrice商品結(jié)算成本價RetailPrice商品零售價ITaxRate商品進項稅率STaxRate商品銷項稅率ArtiQty配送中心損溢單品數(shù)量StkQty配送中心庫存單品數(shù)量ValuQty損溢商品計價數(shù)量CostAmt損溢商品成本金額AppDate配送中心商品損溢填報時間CheckDate配送中心商品損溢復(fù)核日期BussEventId業(yè)務(wù)事件標識BussStatus配送中心損溢狀態(tài)TranStatus配送中心損溢數(shù)據(jù)傳輸狀態(tài)OptrId損溢錄入人員標識CheckId損溢復(fù)核人員標識Note備注ValidDate配送中心商品有效日期ProcDate配送中心商品生產(chǎn)日期BatchCode配送中心商品批號PLSettId配送中心損溢入帳標識表41 盤點損益表對于盤點部分的財務(wù)功能的實現(xiàn)，只需將盤點損益表中的數(shù)據(jù)如實價入庫階段的處理一樣，這里不再累述。 平時用慣了Java、C++、C等開發(fā)語言，第一次的pb接觸，真的有點不適應(yīng)。其中真的是有苦有甜、苦樂參半。隨著項目的進行，對于pb的認識與感悟也日益加深，它對數(shù)據(jù)庫的操作：簡便的查詢、及時的更新、方便的可視化數(shù)據(jù)庫操作等等，使我有時真的佩服pb的對數(shù)據(jù)庫支持的強大。剛接觸系統(tǒng)時，一頭霧水，隨著對系統(tǒng)的慢慢了解，才真正體會到了原開發(fā)者漂亮的設(shè)計模式思想以及對于物流流程的經(jīng)典認識。 在整個項目開發(fā)過程中，從開始階段腦袋都大地去讀一個幾百行的存儲過程，到后來自己嘗試著寫幾百行的存儲過程，雖然算不上什么大的突破，但從中也嘗到了一些成功的喜悅。 畢設(shè)已經(jīng)接近尾聲了，項目由于時間的緊迫不能夠同時結(jié)束。由于項目開始時，經(jīng)驗不足，造成了項目協(xié)調(diào)進行的困難。 項目僅僅實現(xiàn)了一小部分財務(wù)需求的功能，完全地實現(xiàn)財務(wù)功能還需要更明確的需求分析。致謝致 謝首先要感謝我的導(dǎo)師張波副教授，在整個畢設(shè)過程中，給了我許多有益的啟發(fā)和熱情的幫助。同時，還要感謝張老師給我了一次真正接觸物流行業(yè)的機會，使我更好地完成了雙學(xué)位的論文題目。最讓我感謝是同作財務(wù)模塊的劉劉，在我時間緊張的情況下，給了我許多真情的幫助。感謝我的家人一直以來在學(xué)業(yè)和精神上的無私支