=====================
目錄:
1、插件事件說明如下
2、插件屬性說明如下
3、插件方法說明如下
=====================
1、插件事件說明如下:
序號 | 事 件 | 函 數 | 描 述 |
1 | BillInitialize |
Private Sub m_BillTransfer_BillInitialize() |
單據初始化完成時激發該事件 |
2 | BillTerminate | Private Sub m_BillTransfer_BillTerminate() | 單據卸載完成時激發該事件 |
3 | UserMenuClick | Private Sub m_BillTransfer_UserMenuClick(ByVal Index As Long, ByVal Caption As String) | 當點擊用戶自定義的菜單時激發這個事件。 參數:Index:表示第幾個菜單、由添加菜單的先后順序決定, Caption:菜單項的標題 |
4 | LeveCell | Private Sub m_BillTransfer_LeveCell(ByVal Col As Long, ByVal Row As Long, ByVal NewCol As Long, ByVal NewRow As Long, Cancel As Boolean) |
當離開分錄的一個單元格的時候激發這個事件 參數:Col 分錄的要離開列 Row分錄的要離開行 NewCol 新的列 NewRow新的行 Cancel是否取消 |
5 | HeadChange | Private Sub m_BillTransfer_HeadChange(ByVal CtlIndex As Long, ByVal Value As Variant, ByVal bNewBill As Boolean, Cancel As Boolean) | 當表頭的一個項目改變時激發這個事件 參數:ctlIndex 表頭字段索引 Value 當前值 bNewBill是否是新增單據 Cancel是否取消 |
6 | GridChange | Private Sub m_BillTransfer_GridChange(ByVal Col As Long, ByVal Row As Long, ByVal Value As Variant, ByVal bNewBill As Boolean, Cancel As Boolean) | 當表體的一個項目改變時激發這個事件 參數:Col 分錄的當前列 Row分錄的當前行 Value 當前值 bNewBill是否是新增單據 Cancel是否取消 |
7 | BeforGridLookUp | Private Sub m_BillTransfer_BeforGridLookUp(ByVal Row As Long, ByVal Col As Long, ByVal nLookUpClsID As Long, Cancel As Boolean) | 在分錄執行查找功能之前激發這個事件 參數:Col 分錄的當前列 Row分錄的當前行 nLookUpClsID 當前查詢的資料類型, Cancel是否取消 |
8 | EndGridLookUp | Private Sub m_BillTransfer_EndGridLookUp(ByVal Row As Long, ByVal Col As Long, ByVal nLookUpClsID As Long) |
在分錄完成查找功能之后激發這個事件 參數:Col 分錄的當前列 Row分錄的當前行 nLookUpClsID 當前查詢的資料類型 |
9 | BeforHeadLookUp | Private Sub m_BillTransfer_BeforHeadLookUp(ByVal CtlIndex As Long, ByVal nLookUpClsID As Long, Cancel As Boolean) | 在表頭的一個項目執行查找功能之前激發這個事件 參數:ctlIndex表頭字段索引 nLookUpClsID 當前查詢的資料類型 Cancel是否取消 |
10 | EndHeadLookUp | Private Sub m_BillTransfer_EndHeadLookUp(ByVal CtlIndex As Long, ByVal nLookUpClsID As Long) |
在表頭的一個項目完成查找功能之后激發這個事件, 參數:ctlIndex表頭字段索引 nLookUpClsID 當前查詢的資料類型 |
11 | BeforeSave | Private Sub m_BillTransfer_BeforeSave(ByVal bNew As Boolean, ReturnCode As Long) |
在單據執行保存功能的時候激發這個事件 參數:bNew 表示是否是新增單據 ReturnCode 返回參數 -1: 失敗,結束單據保存; 0:成功,繼續單據保存 1:成功返回,結束單據保存 |
12 | EndSave | Private Sub m_BillTransfer_EndSave(ByVal BillNo As String) |
在單據執行完成保存功能的時候激發這個事件 參數:BillNo表示單據的編號 |
13 | LoadBillEnd | Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long) |
在單據裝載完成的時候激發這個事件 參數:ShowType 單據顯示狀態 0.新增 1.修改 2.查看 3.審核 |
14 | NewBillEnd | Private Sub m_BillTransfer_NewBillEnd() | 在單據新增完成的時候激發這個事件 |
15 | SetMenuBarCtlPropEnd | Private Sub m_BillTransfer_SetMenuBarCtlPropEnd(ByVal ShowType As Long, ByVal BillChecked As Boolean)
|
在單據設置菜單、工具條各屬性完成的時候激發這個事件 參數:ShowType 單據顯示狀態 0.新增 1.修改 2.查看 3.審核 BillChecked 單據是否已被審核 |
16 | BeforeFillBillData | Private Sub m_BillTransfer_BeforeFillBillData(ByVal BillTransType As Long, ByVal BillInterID As Long) | 在裝載某張單據之前激發這個事件 參數:BillTransType 單據事務類型 BillInterID單據內碼 |
17 | EndBillFormActive | Private Sub m_BillTransfer_EndBillFormActive() | 在顯示單據之后激發這個事件 |
18 | GridFormat | Private Sub m_BillTransfer_GridFormat(ByVal Dest As Long, ByVal Col As Long, ByVal Row As Long) | 在設置單據體格式后激發這個事件 參數:Dest Col 要設置格式的目標列 Row 要設置格式的目標行 |
19 | RefreshControl | Private Sub m_BillTransfer_RefreshControl() | Public Event RefreshControl() |
20 | BeforeEntrySplit | Private Sub m_BillTransfer_BeforeEntrySplit(ByVal pCurRow As Long, ByVal pSplitCount As Long, ByVal pSplitMethod As Long, pCancel As Boolean) | 在單據的拆分操作之前激發此事件 參數:pCurRow 要拆分的當前分錄行 pSplitCount 拆分的數目 pSplitMethod 拆分分錄位置 0 插入式, 1追加式 pCancel 是否取消拆分 true:取消拆分 false:拆分 |
21 | AfterEntrySplit | Private Sub m_BillTransfer_AfterEntrySplit(ByVal pCurRow As Long, ByVal pSplitCount As Long, ByVal pSplitMethod As Long) | 在單據的拆分操作之后激發此事件 參數:pCurRow 被拆分的分錄行 pSplitCount 被拆分成的數目 pSplitMethod 拆分分錄位置 0: 插入式, 1:追加式 |
22 | OnBeforeDelRow | Private Sub m_BillTransfer_OnBeforeDelRow(ByVal lRow As Long, bCancel As Boolean) | 在單據刪除指定行之前激發此事件 參數:lRow 指定要刪除的行 bCancel 是否取消刪除 true:取消刪除 false:刪除 |
23 | OnAfterDelRow | Private Sub m_BillTransfer_OnAfterDelRow(ByVal lRow As Long, bCancel As Boolean) | 在單據刪除指定行后激發此事件 參數:lRow 被刪除的行 bCancel 備用參數,目前沒用到 |
24 | BeforeSelBills | Private Sub m_BillTransfer_BeforeSelBills(ByVal Para As KFO.IDictionary) | 在單據選單后,加載數據前激發此事件; 或者上游單據下推后,加載數據前激發此事件。 |
中間層 | BeginSave |
Public Function BeginSave(ByVal Sdsn As String, ByRef SaveVect As KFO.Vector, ByRef ReturnMsg As String) As Boolean |
在單據保存的事務處理中,在單據數據保存到數據庫之前,調用該函數。 FALSE 保存事務終止,返回錯誤。 TRUE 單據繼續保存事務處理。 |
中間層 | EndSave |
Public Function EndSave(ByVal Sdsn As String, ByRef SaveVect As KFO.Vector, ByRef ReturnMsg As String) As Boolean |
在單據保存的事務處理中,在單據數據保存到數據庫之后,調用該函數。 返回值: FALSE 保存事務終止,返回錯誤。 TRUE 單據繼續保存事務處理。 參數:Sdsn: MMTS.PropsString SaveVect:二次開發外部數據存取接口。 ReturnMsg:失敗時返回的錯誤信息。 |
2、插件屬性說明如下:
序號 | 屬 性 | 類 型 | 備 注 |
1 | CnnString | Property CnnString as String | 當前數據庫的MMTS.PropsString的連接串 |
2 | SystemName | Property SystemName as String | 當前系統名稱 |
3 | LastInfo | Property LastInfo as String | 最后一次系統返回的各種信息 |
4 | BillForm | Property BillForm as Object | 整個單據窗體對象。可通過該對象訪問單據上的任何一個對象,包括控件、菜單 |
5 | BillFunc | Propert BillFunc as Object | 代表單據對象。目前沒什么用途 |
6 | Head | Propert Head as Object | 單據表頭控件,是一個KDText控件數組 |
7 | Grid | Propert Grid as Object | 單據分錄控件,為FpSpread控件 |
8 | SumGrid | Propert SumGrid as Object | 單據分錄合計控件,為FpSpread控件 |
9 | HeadCtl | Propert HeadCtl as Variant | 對應表頭控件數組,記錄每個表頭項目各屬性的數組 如果要改變HeadCtl中的某個屬性值,需先對HeadCtl做一個備份,然后修改此備份相應屬性值,再將此備份賦值給HeadCtl |
10 | EntryCtl | Propert EntryCtl as Variant | 對應分錄各列,記錄每個分錄列各屬性的數值 如果要改變EntryCtl中的某個屬性值,需先對EntryCtl做一個備份,然后修改此備份的相應屬性值,再將此備份賦值給EntryCtl |
11 | SaveVect | Propert SaveVect as KFO.Vector | 二次開發外部數據存取接口。在錄單過程中,用戶可將某些數據保存在此Vect中,在單據保存時,再通過二次開發中間層組件,將此Vector中的數據保存到指定位置 SaveVect.Item(1)為一個KFO.Dictionary對象 該對象包含以下四個系統數據 SaveVect.Item(1).Value("FInterID") 單據內碼 SaveVect.Item(1).Value("FTransType") 單據事務類型 SaveVect.Item(1).Value("ISRedBill") 是否紅字單據 SaveVect.Item(1).Value("BillChecked") 是否審核 |
3、插件方法說明如下:
序號 | 方法名 | 函 數 | 備 注 |
1 | AddUserMenuItem |
Function AddUserMenuItem(ByVal Caption As String, [ByVal RootMenuCaption As String = ""]) |
添加一個用戶自定義菜單項,系統一共預設了五個菜單項供二次開發使用 RootMenuCaption:根菜單名稱。缺省為“自定義菜單” |
2 | GetGridText |
Function GetGridText(ByVal Row As Long, ByVal Col As Long) As String |
獲取分錄某單元格的值 參數:Row:分錄行 Col:分錄列 |
3 | GetHeadNumber |
Function GetHeadNumber(ByVal CtlIndex As Long) As String |
獲取表頭某項的代碼 參數:CtlIndex:表頭控件索引 |
4 | GetHeadText |
Function GetHeadText(ByVal CtlIndex As Long) As String |
獲取表頭某項的文本 參數:CtlIndex:表頭控件索引 |
5 | GetSumGridText |
Function GetSumGridText(ByVal Row As Long, ByVal Col As Long) As String |
獲取合計行某列的值 參數:Row:行。一般為 1 Col:分錄列 |
6 | SetGridText |
Function SetGridText(ByVal Row As Long, ByVal Col As Long, ByVal Value, [ByVal InterID As Long = 0], [ByVal sName As String = ""]) As Boolean |
設置分錄某單元格的值, 當分錄為查找類型時,會把相應的信息一起攜帶到相應的位置,如當 為物料代碼時,它會攜帶物料的一些基本信息物料名稱等。 參數:Row:分錄行 Col:分錄列 Value:設置的值。如果該單元格是查找類型的, Value 應設置為代碼。 InterID:暫未使用 sName:暫未使用 |
7 | SetHead |
Function SetHead(ByVal Index As Long, ByVal Value, [ByVal InterID As Long = 0], [ByVal sName As String = ""]) As Boolean |
設置表頭某項的值 參數:Index:表頭控件索引 Value:設置的值。如果該表頭項是查找類型的, Value 應設置為代碼。 InterID:暫未使用 sName:暫未使用 |
8 | SetSumGridText |
Function SetSumGridText(ByVal Row As Long, ByVal Col As Long, ByVal Value) As Boolean |
設置分錄合計某列的值 參數:Row:分錄行。一般為 1 Col:分錄列 Value:設置的值。 |