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