二、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 单据继续保存事务处理。 |
中间层 | 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:设置的值。 |
二、K3 WISE 开发插件《 工业单据老单客户端插件事件、属性、方法》的更多相关文章
- 十二、K3 WISE 开发插件《工业单据老单与自己添加的窗体 - 互相传值传参》
===================================== 目录: 1.演示效果--[销售订单]传值给[自定义窗体] 2.演示效果--[自定义窗体]传值给[销售订单] 3.附源码 4. ...
- 四、K3 WISE 开发插件《工业单据老单插件开发新手指导》
开发环境:K/3 Wise 13.0.K/3 Bos开发平台.Visual Basic 6.0 =============================================== 目录 一 ...
- 八、K3 WISE 开发插件《工业单据老单插件中获取登陆用户名》
备注:如果是BOS新单,都有获取用户名的方法.在单据有m_BillInterface.K3Lib.User.UserId,在序时薄有m_ListInterface.K3Lib.User.UserID ...
- 九、K3 WISE 开发插件《工业单据老单序时薄插件工具栏按钮开发实例》
=============================== 目录: 1.添加工具栏按钮 2.查询被添加工具栏按钮的业务单据的FMenuID和FID 3.添加工具栏按钮和业务单据的映射关系 4.工具 ...
- 十、K3 WISE 开发插件《SQL Profiler跟踪单据操作时产生的SQL语句》
=================================== 目录: 1.查询帐套的数据库DBID 2.配置需要跟踪数据库的DBID 3.配置跟踪参数 4.跟踪进行 5.分析跟踪语句 === ...
- K3 WISE 开发插件《K3 WISE常用数据表整理》
在后台数据库ICClassType表中,字段FID<0的是老单,FID>0的是新单. ----------------系统设置------------------------ FStatu ...
- 一、K3 WISE 开发插件《K3 WISE常用数据表整理》
在后台数据库ICClassType表中,字段FID<0的是老单,FID>0的是新单. ----------------系统设置------------------------FStatus ...
- 三、K3 WISE 开发插件《K3 WISE开发手册》
1.VB插件工程的命名.命名空间和生成的DLL命名要一致,否则导致注册不成功! 2.主控台的查询分析工具,添加sql直接报表,代码用到临时表,提示“在对应所需名称或序数的集合中未找到项目” 解决:在代 ...
- js调用activeX插件 报异常:TypeError:对象不支持 属性方法
部署之后的js网页如果调用没有签名的 ocx/dll 插件的话会报异常:TypeError:对象不支持 “init” 属性方法 (init为插件公开的方法) 但是如果写一个htm本地文件去调用插件,和 ...
随机推荐
- (转)BT1120接口及协议
因为项目上用到的是 海思3536的bt1120接口对接 FPGA.项目上用到的是 1920 x 1080,60Hz.逐隔. 上图看到, BT1120的接口 有 16根 数据线 和 一根 时钟线. 下面 ...
- MongoDB 3.X JAVA基本操作
对Collection的操作 import java.util.ArrayList; import java.util.Iterator; import java.util.List; import ...
- PLSQL导入Excel文件预览不到数据行问题
今天,从Excel导入Oracle一些数据,在导入的过程中,遇到一个问题,Excel里面有好几万条数据,但是通过PLSQL导入向导导入Excel文件之后,在PLSQL里却预览不到数据行,只能看见标题行 ...
- zabbix 服务器设置邮件报警
实验条件: Zabbix监控服务器.客户端都已经部署完成,被监控主机已添加完成,Zabbix监控运行正常. 实现目的: Zabbix监控服务器设置邮件报警,当被监控主机宕机或达到触发器预设值进,会自动 ...
- Jedis客户端操作redis缓存命令详解
1.对value操作的命令 exists(key):确认一个key是否存在 del(key):删除一个key type(key):返回值的类型 keys(pattern):返回满足给定pattern的 ...
- EJB的魅惑来源
有人发帖子问学习EJB有个屁用啊?看完下面一个简单的介绍,也许你对EJB很感兴趣,它的优点极具魅惑力. 一.EJB是基于组件的开发. 利用Enterprise JavaBean,你就能像搭积木一样 ...
- electron demo项目npm install安装失败解决办法
electron官网提供的demo项目,在npm install 的时候总是报错显示安装失败, 解决办法:FQ即可成功安装.
- python 读取csv文件
python中有一个读写csv文件的包,直接import csv即可 新建test.csv 1.写 import csv with open("test.csv","w& ...
- JavaWeb跨域访问问题
转载: http://blog.csdn.net/zjq_1314520/article/details/65449279 最后的解决方案如下: 在 tomcat 的 conf目录下找到 web.xm ...
- oracle sqlplus常用命令大全
show和set命令是两条用于维护SQL*Plus系统变量的命令 SQL> show all --查看所有68个系统变量值 SQL> show user --显示当前连接用户 SQL> ...