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