【文章內容簡介】 為負庫存、201：庫存數(shù)不足以鎖庫、204：銷售最低限價提示、205：采購最高限價提示 ReturnMsg：返回的信息，為string型 BillInterID：單據內碼,為long型 ReturnBillNo：單據編碼，為string型 CheckItemInfo：超出最高最低安全庫存時存儲相應的物料，l 單據流程一、 新建單據流程新建單據時，首先設置單據的屬性值（包括RemoteCnn、LocalCnn、SetOpt、TheSaleMode、ShowForModeExt、NewBillTransType），然后再調用過程Public Sub Show( ByVal eBillCls As Enu_BillCls, ByVal eShowType As Enu_ShowBillType)，顯示想要新建的某種單據，對于新建單據，參數(shù)eShowType應傳值為０。過程Show通過激發(fā)窗體frmBill的Form_Load()事件，顯示新建的單據樣式。Form_Load()事件主要完成以下操作：1． 調用函數(shù)FillBillTypeCtl(ByVal ctl As Object, Optional ByVal transtype)，從表ICTransactionType中取出新建單據類（可能包括多種單據）的基本屬性值，包括單據名稱、單據模版號、單據對應的數(shù)據庫表名、單據窗體寬高等等。將每種單據的屬性值拼成一個字符串，作為cmbTransType（boBox控件）的一個列表值，依次添加到cmbTransType中。2． 激發(fā)cmbTransType的cmbTransType_Click ()事件，根據當前cmbTransType的列表值，取出該種單據有關屬性值，設置窗體的寬高及固定列，再由該屬性列表值通過調用過程BuildBill(ByVal strTemplateID As String)建立整張單據（包括單據頭及單據分錄）。3． 設置菜單及工具條的Visible以及Enabled屬性。4． 設置套打的本地、遠程的連接屬性，以及套打模版號。過程BuildBill(ByVal strTemplateID As String)是構建單據的關鍵。它完成以下操作：1． 根據傳過來參數(shù)strTemplateID取得單據模版號、單據表頭對應的數(shù)據庫表名、單據分錄對應的數(shù)據庫表名、單據事務類型內部ID。2． 根據單據模版號，從表ICTemplate中取得表頭模版，從表ICTemplateEntry中取得分錄模版。3． 根據分錄模版，調用過程BuildEntryCtls()構造單據的分錄。4． 根據表頭模版，調用過程BuildHeadCtls()構造單據的表頭。過程BuildEntryCtls(rsTmpEntry As )完成單據分錄的構造工作，參數(shù)rsTmpEntry是從ICTemplateEntry取出的一個記錄集，它反映了該單據所有分錄列的屬性值，也就是該單據的分錄模版。該過程主要是將分錄模版信息存儲在分錄屬性數(shù)組TentryCtl中，并根據這些模版信息去設置單據分錄的列數(shù)、列寬、列標題、數(shù)據類型等屬性。過程BuildHeadCtls(Rstmp As )完成單據頭的構造工作，參數(shù)rsTmp是從ICTemplate取出的一個記錄集，它反映了該單據所有表頭的屬性值，也就是該單據的表頭模版。該過程主要是將表頭模版信息存儲在表頭屬性數(shù)組THeadCtl中，并根據這些模版信息去設置單據表頭控件的大小、位置、標題、數(shù)據類型等屬性。二、 查看或修改單據流程：對于由報表或序時薄進入單據，首先設置單據的屬性值（包括RemoteCnn、LocalCnn、SetOpt、TheSaleMode、ShowForModeExt、NewBillTransType，以及ListRecordset、ListRSFieldVect），然后再調用過程Public Sub Show( ByVal eBillCls As Enu_BillCls, ByVal eShowType As Enu_ShowBillType)，顯示想要修改的某種單據。如果是修改單據，參數(shù)eShowType傳值為１；如果是查看單據，參數(shù)eShowType傳值為２。查看或修改單據的主要操作也是在窗體frmBill的Form_Load()事件中完成。流程如下：調用過程MoveBill取得顯示單據的事物類型和單據內碼 設置套打的本地、遠程的連接屬性，以及套打模版號設置菜單及工具條的Visible以及Enabled屬性，設定表頭控件及分錄列的鎖定狀況調用函數(shù)FillBillData，根據事務類型及單據內碼，去數(shù)據庫種取得該張單據的所有相關數(shù)據，并將其值填入到空白單據中。調用函數(shù)FillBillTypeCtl新建一張同種事務類型的空白單據（其過程與新建單據一樣）函數(shù)Public Function FillBillData(ByVal InterID As Long, ByVal transtype As Integer) As Integer完成將某張單據數(shù)據填入空白單據的操作，參數(shù)InterID指該張單據的內碼，參數(shù)transtype指該張單據的事物類型。這兩個參數(shù)可確定唯一一張單據。FillBillData的流程如下：根據單據內碼以及單據表頭對應的數(shù)據庫表名，取得單據表頭信息記錄集。逐個讀取該記錄集，將其數(shù)據填入相應的分錄列中以及分錄控件數(shù)組TEntryCtl中通過單據內碼以及單據分錄對應的數(shù)據庫表名，取得單據分錄信息記錄集。逐個讀取該記錄集，將其數(shù)據填入相應的表頭控件中以及表頭控件數(shù)組THeadCtl中三、 錄單流程：在錄單的過程中，表頭控件及分錄列都設置了一定的屬性，即只能錄入特定的數(shù)據。對于基礎資料和選單，都有兩種錄入方式：按F7或F8選取或手工直接錄入。其它的如數(shù)量、單價、單據號碼等，就只能手工錄入。過程Private Sub LookUp(Optional ByVal bQuickView As Integer = 1)實現(xiàn)了按F7或F8鍵查看并選取某項基礎資料數(shù)據的功能。參數(shù)bQuickView=0表示是查看基礎資料詳細的樹狀圖，對應的是F7鍵；bQuickView=1表示是查看基礎資料編碼列表，對應的是F8鍵。LookUp的主要流程如下：調用函數(shù)FillBillDataExt，將記錄集數(shù)據依次填入到相應的表頭控件及分錄列中。由選單模版以及上述對象，取得一個記錄集，該記錄集包含了選單需要返回的所有表頭和分錄數(shù)據是否退出在序時薄上選中了一條以上的記錄由選單序時薄模版號及過濾條件調用序時薄，顯示選單序時薄根據選單模版及當前控件的過濾條件構造選單序時薄過濾條件取得返回的InterID、Name、Number等信息，并將其值賦與當前活動控件是返回時選中某一條基礎資料否退出設置過濾條件，并根據基礎資料查看類別顯示相應的基礎資料查看窗體基礎資料當前活動控件查看類型按F7或F8查看選單，該對象包含了所選單據的FInterID和FEntryID，由此兩參數(shù)，可唯一確定選擇了那些單據及分錄。函數(shù)Public Sub FillBillDataExt( _ ByVal RsTrans As , _ ByVal BillTemplateID As String, _ ByVal FieldName As String, _ Optional ByVal SelBillData, _ Optional ByVal Action) 完成將選單返回數(shù)據填入到表頭控件及分錄列中。參數(shù)說明如下：RsTrans：選單返回數(shù)據記錄集BillTemplateID：選單模版號FieldName：選單控件名SelBillData：選單返回單據的內碼及分錄號數(shù)據集Action：選單控件需執(zhí)行的某些操作，如是否需要按BOM展開返回的物料，是否需要將物料進行合計?；玖鞒倘缦拢簜魅霐?shù)據需要展開物料需要合計不需要由參數(shù)Action確定是否需要重新定義定義選單返回記錄集按BOM展開返回單據上的所有物料并將其匯總合計。得到一個新的記錄集。將該記錄集賦給rs對返回單據上的所有物料進行匯總合計，得到一個新的記錄集。將該記錄集賦給rs將選單返回數(shù)據記錄集（RsTrans）賦予rs由模版ICSelBills取得選單數(shù)據需回填到那些分錄列里將記錄集rs中有關于分錄的數(shù)據填入到對應分錄列中以及以及分錄控件數(shù)組TEntryCtl中。調用函數(shù)SetRelateCtl，將記錄集rs中有關于表頭的數(shù)據填入到對應表頭控件中以及以及表頭控件數(shù)組THeadCtl中　　對于手工錄入選單號碼進行選單，首先是根據錄入的單據號碼。該對象同由序時薄選單返回的對象性質是一致的，都包含了所選單據的FInterID和FEntryID。余下的過程兩者都一致，即由該對象取得選單返回數(shù)據集，再調用函數(shù)FillBillDataExt，將記錄集數(shù)據依次填入到相應的表頭控件及分錄列中?！　τ诓檎翌愋偷目丶旊x開該控件時，要進行一系列的合法性檢查(表頭控件激發(fā)Validate事件，分錄控件激發(fā)Validate事件和LeaveCell事件)。 這些事件里主要通過函數(shù)Private Function GetData(Cancel As Boolean, _bChanged As Boolean, _Optional ByVal bEntry As Boolean = False, _ Optional ByVal col As Long, _Optional ByVal Row As Long) As Boolean實現(xiàn)數(shù)據合法性檢查。該函數(shù)通過調用存儲過程GetItemDetail返回一個記錄集，如果該記錄集為空記錄集，則控件里的數(shù)據不合法，要求重新輸入數(shù)據或恢復以前合法數(shù)據；如果該記錄集不為空，則記錄集里包含了與當前控件值有關的所有輔助信息。（比如當前控件為物料欄，則該記錄集包含了該物料的所用屬性值，包括計量單位內碼及名稱等等。）。對應于當前控件是表頭控件或分錄列，記錄集里的某些值會填入到相應的表頭控件數(shù)組TheadCtl中或分錄控件數(shù)組TentryCtl中?！　≡赩alidate事件或LeaveCell事件中，還會調用一個重要的過程DoActions。該過程完成的操作就是根據當前控件填入的值，在其它與它相關的控件也填入相應的值。（例如錄入供應商帶出計算方式，錄入物料代碼帶出物料名稱，計量單位等等，錄入單價，數(shù)量后算出金額等等）。DoActions的基本操作是根據填入到THeadCtl數(shù)組和TEntryCtl數(shù)組中的模版信息FrelationID，找出與當前控件相關的所有控件，將這些控件按照FCtlIndex 升序排序，然后按照這個順序依次調用過程DoAction，完成在某個控件中填入適當?shù)臄?shù)操作。過程Private Sub DoAction(ByVal ParentID As Long, ByVal Index As Long, ByRef oriObj As Object, objType As Enu_ObjType)中定義了模版Faction中每種符號的實際操作意義。參數(shù)ParentID指明是哪一個控件激發(fā)了DoAction事件，從而導致其它控件的值變化；Index表示當前是輪到處理哪一個控件；oriObj傳遞表頭控件數(shù)組或分錄控件的引用，objType指明ParentID所指控件是表頭控件還是分錄控件。DoAction定義了以下模版操作符號的意義：“.”：取基礎資料的附屬屬性值。例：FrelationID為“FitemID” ，F(xiàn)action為“.,Fname”，表示由物料代碼帶出物料名稱?！?A”：取基礎資料附帶的其他基礎資料屬性。例：FrelationID為FitemID，F(xiàn)action為“.A,FunitID,t_MeasureUnit”，表示由物料代碼帶出計量單位的內碼、名稱、代碼?！癡=K”：表示某分錄控件的值應大于或等于某表頭控件的值。例：表頭模版ICTemplate中FrelationID為“FDate”，F(xiàn)action為“V=K,Fdate”，表示分錄里的日期應大于等于表頭的日期?！?”：處理是否允許錄入批次。例：FrelationID為“FitemID”，F(xiàn)action為“=,Ftrack,80”，表示物料計價方法為分批認定時(Ftrack=80)，鎖定控件不讓錄入，否則允許錄入?！?”：表示當前控件的值應小于等于某值。例：FrelationID為“FDescount”，F(xiàn)action為“=,100”，表示當前格的值應小于等于100?！?”：取分錄某幾列的值，從左到右依次進行四則運算。運算式中不能包含常量。例：FrelationID為“FAuxQty,FAuxPrice,FQty”，F(xiàn)action為“!,FAuxQty,*,FAuxPrice”，表示當數(shù)量、單價、基本單位數(shù)量任一個發(fā)生改變時，計算數(shù)量x單價的值，填入當前格（金額）。注：“!”完全可被“!1”取代?！?1”、“()”：