【正文】 前的商品全部封倉(cāng)，其功能實(shí)現(xiàn)如下： 1）定義變量m_StkStatus和m_Note,為改變商品庫(kù)存狀態(tài)（即將Tbd_StkLoc表中該商品的StkStatus字段值改為8）以及庫(kù)存狀態(tài)說(shuō)明（即將Tbd_StkLoc表中該商品的Note字段值改為“過(guò)保自動(dòng)封倉(cāng)”）作準(zhǔn)備： declare m_StkStatus smallint, /* 封倉(cāng)狀態(tài) */ m_Note varchar (100 )select m_StkStatus = 8 , m_Note = 39。 ) = 0 select m_StkCellNo = rtrim ( m_StkCellNo ) + 39。 else if charindex ( m_StkCellNo , 39。將結(jié)果放入臨時(shí)表＃StkCell中： select m_StorageId = isnull ( m_StorageId , 0 ) , m_ValidDays = isnull ( m_ValidDays , dateadd ( dd , 1 ,getdate ( ) ) ) if m_StkCellNo is NULL select m_StkCellNo = 39。 存儲(chǔ)過(guò)程實(shí)現(xiàn) Spq_Stk_CloseAlarm 此存儲(chǔ)過(guò)程被窗口w_stkloc_autoclose_alarm中的數(shù)據(jù)窗口對(duì)象調(diào)用，實(shí)現(xiàn)了對(duì)有效期在預(yù)警日期之前的存儲(chǔ)倉(cāng)位商品進(jìn)行查詢的功能。 手工封倉(cāng)解封及查詢主要實(shí)現(xiàn) 1．在手工封倉(cāng)中去掉點(diǎn)菜封倉(cāng)的下拉菜單項(xiàng)： 打開(kāi)數(shù)據(jù)窗口控件d_stkloc_list,修改其中下拉列表控件tbd_stkloc_stkstatus的edit屬性中的code table內(nèi)容，去掉“點(diǎn)菜封倉(cāng)”。 ) end if st_3 . visible = false lm_menu . of_disable ( lm_menu . m_edit . m_item_1 ) return 1end if5．其他功能此窗口中的其他功能按鈕亦從系統(tǒng)中的父類繼承，分別實(shí)現(xiàn)了復(fù)位，保存，另存，預(yù)覽，打印，關(guān)閉等功能。 ) ib_firstquery = false this . triggerevent ( 39。 , 39。 ) elseif ll_rowpoint 1 then messagebox ( 39。 , 39。 ) return 1else if ll_rowpoint = 1 then /*解封失敗*/ messagebox ( 39。 ) st_3 . visible = false lm_menu . of_disable ( lm_menu . m_edit . m_item_1 ) ib_firstquery = false this . triggerevent ( 39。 , 39。l 循環(huán)調(diào)用存儲(chǔ)過(guò)程：for ll_row = 1 to ll_maxrow if dw_list . isselected ( ll_row ) then /*調(diào)用存儲(chǔ)過(guò)程具體實(shí)現(xiàn)代碼*/ end if nextl 解封結(jié)果處理：if ll_rowpoint = ii_rowall then /*解封成功*/ messagebox ( 39。l 與存儲(chǔ)過(guò)程Spu_Stkloc_unclose的參數(shù)傳遞：DECLARE fengcang PROCEDURE FOR dbo . Spu_stkloc_unclosem_DeptId = :li_deptid, /*配送中心部門標(biāo)識(shí)*/m_StkLocId = :ll_stklocid, /*配送中心庫(kù)存標(biāo)識(shí)*/ m_StkStatus = :li_stkstatus, /*配送中心庫(kù)存狀態(tài)*/ m_Note = :ls_note, /*配送中心庫(kù)存說(shuō)明*/ m_OptrId = :li_optrid , /*操作員編號(hào)*/ m_error = :li_bak output。 % 39。 % 39。 39。 39。 終止日期不合法 39。 提示信息 39。 1900/01/01 39。 2050/12/31 39。 終止日期不可以比起始日期小 39。 提示信息 39。 起始日期不合法 39。 提示信息 39。1900/01/0139。 yyyy/mm/dd 39。 yyyy/mm/dd 39。l 檢索參數(shù)： li_deptid number 配送中心部門標(biāo)識(shí) li_storgeid number 配送中心倉(cāng)庫(kù)標(biāo)識(shí) ls_stkcellno string 配送中心倉(cāng)位編號(hào) ld_datestart Datetime 解封起始日期 ld_dateend Datetime 解封終止日期l 確定檢索條件（即已被封倉(cāng)，且有效期在規(guī)定的時(shí)間段內(nèi)的商品）：Where ( amp。 過(guò)保質(zhì)期自動(dòng)封倉(cāng)解封窗口主要實(shí)現(xiàn)1．創(chuàng)建窗口主體w_stkloc_autoclose_unclose在PB中創(chuàng)建ObjectWindow w_stkloc_autoclose_unclose,按照設(shè)計(jì)，增各個(gè)控件：dw_storage(dw_u_storage_query), st_1(statictext), sle_stkcell(sy_u_sle), dw_list(sy_u_dw), st_2(statictext), st_3(statictext), em_1(editmask), em_2(editmask), st_4(statictext), st_5(statictext)。 , Question! , yesnocancel! , 3 )5．其他功能此窗口中的其他功能按鈕均從系統(tǒng)中的父類繼承，分別實(shí)現(xiàn)了復(fù)位，保存，另存，預(yù)覽，打印，關(guān)閉等功能。 , 39。 ) 4．關(guān)閉窗口事件（closequery）當(dāng)用戶改變了商品的自動(dòng)封倉(cāng)狀態(tài)后如果沒(méi)有保存就關(guān)閉窗口，則系統(tǒng)回提示用戶進(jìn)行保存：if ( 0 , primary! ) 0 thenll_result = messagebox ( 39。事件在調(diào)用存儲(chǔ)過(guò)程完畢之后，再次調(diào)用查詢函數(shù)，刷新數(shù)據(jù)窗口： ( 39。%39。%39。 2．?dāng)?shù)據(jù)窗口的構(gòu)建 編寫存儲(chǔ)過(guò)程Spq_Stk_CloseAlarm，根據(jù)存儲(chǔ)過(guò)程的設(shè)計(jì)確定傳遞參數(shù)： m_DeptId int, /*配送中心部門標(biāo)識(shí)*/m_StorageId int, /*配送中心倉(cāng)庫(kù)標(biāo)識(shí)*/ m_StkCellNo varchar(20), /* 配送中心倉(cāng)位編碼 */ m_ValidDays datetime /* 預(yù)計(jì)封倉(cāng)日 */ 在實(shí)現(xiàn)查詢功能的事件sy_query中調(diào)用此數(shù)據(jù)窗口控件的retrieve函數(shù)，并確定定此四個(gè)參數(shù)后數(shù)據(jù)窗口即調(diào)用存儲(chǔ)過(guò)程進(jìn)行查詢，并將結(jié)果顯示在數(shù)據(jù)窗口控件dw_1。表Tbd_StkLoc包含的各個(gè)字段：l 表示商品所屬標(biāo)識(shí)的字段：DeptId（配送中心部門標(biāo)識(shí)），StkLocId（配送中心庫(kù)存標(biāo)識(shí)），StkRegId（配送中心進(jìn)貨登記標(biāo)識(shí)），StorageId（配送中心倉(cāng)庫(kù)標(biāo)識(shí)），StkCellId（配送中心倉(cāng)位標(biāo)識(shí)），ProvId（供應(yīng)商標(biāo)識(shí)），ArtiId（基商品標(biāo)識(shí)），ImpArtiId（進(jìn)貨類商品標(biāo)識(shí)）l 表示商品基本信息的字段：ArtiClassCode（商品分類碼），ImpInclQty（進(jìn)貨包裝基商品含量），ImpUnit（進(jìn)貨包裝計(jì)量單位），DistInclQty（配送包裝基商品含量），DistUnit（配送包裝計(jì)量單位）l 表示現(xiàn)存該商品信息的字段：StkQty（配送中心庫(kù)存單品數(shù)量），TolQty（配送中心庫(kù)存單品可配送數(shù)量），TaxPrice（庫(kù)存商品含稅進(jìn)價(jià)），UnTaxPrice（庫(kù)存商品無(wú)稅進(jìn)價(jià)），ITaxRate（商品進(jìn)項(xiàng)稅率），ImpDate（配送中心入庫(kù)日期），ProcDate（配送中心商品生產(chǎn)日期），ValidDate（配送中心商品有效日期），BatchCode（配送中心商品批號(hào)），GiftTypeId（贈(zèng)品類型標(biāo)識(shí)）l 表示庫(kù)內(nèi)該商品狀態(tài)的字段：AutoCloseMark（自動(dòng)封倉(cāng)允許標(biāo)志），CloseDate（封倉(cāng)日期），EmptyDate（倉(cāng)卡結(jié)零日期），StkStatus（配送中心庫(kù)存狀態(tài)），Note（配送中心庫(kù)存說(shuō)明），OptrId（操作員標(biāo)識(shí)）此表中的StkStatus為商品的庫(kù)存狀態(tài)值，其具體含義如下：0正常（可配送）1正在配送（不可出庫(kù)）2手工點(diǎn)菜封倉(cāng)（可配送）4手工配送封倉(cāng)（不可點(diǎn)菜，不可配送）8到有效期自動(dòng)封倉(cāng)（不可點(diǎn)菜，不可配送）16配送中心內(nèi)部返品封倉(cāng)（不可點(diǎn)菜，不可配送）32配送返品封倉(cāng)（不可點(diǎn)菜，不可配送）64保留庫(kù)存封倉(cāng)（不可點(diǎn)菜，不可配送）128退貨封倉(cāng)（不可點(diǎn)菜，不可配送）256與供應(yīng)商調(diào)換封倉(cāng)（不可點(diǎn)菜，不可配送）512配送中心內(nèi)部移庫(kù)過(guò)程封倉(cāng)（中間狀態(tài)）注: 由于現(xiàn)有需求中對(duì)于點(diǎn)菜封倉(cāng)不做要求，所以在用戶操作界面上將與點(diǎn)菜封倉(cāng)有關(guān)的操作取消，但是考慮到由于公司以后業(yè)務(wù)的發(fā)展或者別的需求，點(diǎn)菜封倉(cāng)可能會(huì)在以后有所要求，所以在系統(tǒng)內(nèi)部實(shí)現(xiàn)中保留與點(diǎn)菜封倉(cāng)有關(guān)的字段及屬性，以留作做將來(lái)功能擴(kuò)展之用。2．在“配送中心封倉(cāng)商品查詢”窗口w_stkloc_close_query中去掉“點(diǎn)菜封倉(cāng)”復(fù)選框：主要對(duì)其數(shù)據(jù)窗口d_stkloc_close_query進(jìn)行修改，去掉“點(diǎn)菜封倉(cāng)”一欄。按住Ctrl和Shift鍵可對(duì)此數(shù)據(jù)窗口中的記錄進(jìn)行單選或者多選，點(diǎn)擊解封按鈕可以將選中商品解封。在數(shù)據(jù)窗口中可以對(duì)查詢所得的商品進(jìn)行判斷，通過(guò)checkbox決定是否將此商品自動(dòng)封倉(cāng)（默認(rèn)值為選中），點(diǎn)擊封倉(cāng)按鈕則可將約束條件下的商品進(jìn)行批處理封倉(cāng)。 PowerBuilder窗口設(shè)計(jì) 過(guò)保質(zhì)期自動(dòng)封倉(cāng)窗口設(shè)計(jì)此窗口可以對(duì)預(yù)警天數(shù)進(jìn)行設(shè)定（默認(rèn)值是14天），設(shè)定完畢后可以對(duì)選定倉(cāng)庫(kù)編號(hào)和倉(cāng)位編號(hào)進(jìn)行查詢未被封倉(cāng)的商品。 由于PowerBuilder是完全支持面向?qū)ο蟮拈_(kāi)發(fā)工具，所以此系統(tǒng)的開(kāi)發(fā)運(yùn)用了大量的面向?qū)ο蟮乃枷?。存?chǔ)過(guò)程充分利用了Sybase共享內(nèi)存的能力。相對(duì)于SQL語(yǔ)句而言，其執(zhí)行速度更快。2) 性能存儲(chǔ)過(guò)程只被發(fā)送到數(shù)據(jù)庫(kù)一次，相對(duì)于SQL語(yǔ)句或PL/SQL塊而言，其網(wǎng)絡(luò)通信量更小。存儲(chǔ)過(guò)程的優(yōu)點(diǎn)：1）安全性當(dāng)創(chuàng)建了存儲(chǔ)過(guò)程之后，可以將執(zhí)行該過(guò)程的權(quán)限授予其它用戶，從而使得他可以執(zhí)行特定的數(shù)據(jù)庫(kù)操作，而不能訪問(wèn)其它模式對(duì)象（例如表）。 Sybase數(shù)據(jù)庫(kù)中的存儲(chǔ)過(guò)程 存儲(chǔ)過(guò)程是存儲(chǔ)在數(shù)據(jù)庫(kù)中的一段存儲(chǔ)程序。2) 將數(shù)據(jù)窗口控件連接到某個(gè)特定的數(shù)據(jù)窗口對(duì)象。在窗口中添加放置數(shù)據(jù)窗口控件和添加放置其他控件一樣。數(shù)據(jù)窗口對(duì)象可以在窗口間進(jìn)行共享，可以在需要訪問(wèn)相同表的不同應(yīng)用程序中