二、K3 WISE 開發插件《 工業單據老單客戶端插件事件、屬性、方法》


=====================

目錄:

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 單據繼續保存事務處理。
參數:SdsnMMTS.PropsString
         SaveVect:二次開發外部數據存取接口。
         ReturnMsg:失敗時返回的錯誤信息。


中間層 EndSave
Public Function EndSave(ByVal Sdsn As String, ByRef SaveVect As
KFO.Vector, ByRef ReturnMsg As String) As Boolean
在單據保存的事務處理中,在單據數據保存到數據庫之后,調用該函數。
返回值:
FALSE 保存事務終止,返回錯誤。 TRUE 單據繼續保存事務處理。
參數:SdsnMMTS.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 = ""])

 添加一個用戶自定義菜單項,系統一共預設了五個菜單項供二次開發使用
參數:
Caption:菜單名稱

         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:設置的值。


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM