四、K3 WISE 开发插件《工业单据老单插件开发新手指导》

最新推荐文章于 2024-04-17 14:07:51 发布

原创

最新推荐文章于 2024-04-17 14:07:51 发布 · 312 阅读

2 ·

CC 4.0 BY-SA版权

--zhuguoqing

文章标签：

#java #前端 #服务器 #数据库 #linux

本教程详细介绍了如何在K/3 Wise 13.0环境下，使用Visual Basic 6.0和K/3 Bos开发平台开发工业单据老单插件。内容包括二次开发插件编程、代码演示、配置与测试插件，以及解决配置后未生效的问题。提供SqlHelper源码和K3自带的数据库连接写法。

开发环境：K/3 Wise 13.0、K/3 Bos开发平台、Visual Basic 6.0

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

一、二次开发插件编程 二、代码演示 三、配置插件 四、测试插件

五、插件配置后未生效 六、附SQLHelper

七、K3自带连接数据库的写法

八、源码下载

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

一、二次开发插件编程

　　打开Visual Basic 6.0，新建工程ActiveX DLL:

命名为FirstPlugin.class:

引用类库如下：

已安装K/3 Wise，在VB 6.0菜单栏上会多出一个金蝶开发插件：

打开金蝶开发向导，创建工业单据客户端插件(工业单据俗称“老单”)：

点击“确定”，选择类“FirstPlugin”:

点击“下一步”，这里我们自定义一个菜单项“插件工具”：

点击“下一步”，选择事件“UserMenuClick”：

完成向导。

二、代码演示

　　代码编写如下：

'配置路径：供应链-外购入库单
'函数功能：插件工具--根据“长、宽、厚”自动计算批号
'定义插件对象接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillTransfer   As K3BillTransfer.Bill
Dim F55 As Long, F55Text As String  '长
Dim F56 As Long, F56Text As String  '宽
Dim F57 As Long, F57Text As String  '高
Dim FDate As Long, FDateText As String  '日期
Dim FBatchNo As String  '批号
Dim FItemID