九、K3 WISE 开发插件《工业单据老单序时薄插件工具栏按钮开发实例》

时间：2024-02-16 21:30:23

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

目录：

1、添加工具栏按钮

2、查询被添加工具栏按钮的业务单据的FMenuID和FID

3、添加工具栏按钮和业务单据的映射关系

4、工具栏按钮点击激发事件MainFunction

5、工具栏按钮点击激发事件DLL注册

6、测试结果

7、附转载源码

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

本例以销售订单为例，已实际测试可行！

 1、添加工具栏按钮

insert into t_MenuToolBar
 ( FToolID,FName,FCaption,FCaption_CHT,FCaption_EN,
 FImageName,FToolTip,FToolTip_CHT,FToolTip_EN,FControlType,
 FVisible,FEnable,FChecked,FShortCut,FCBList,
 FCBList_CHT,FCBList_EN,FCBStyle,FCBWidth,FIndex,
 FToolCaption,FToolCaption_CHT,FToolCaption_EN) 
values 
(99999,\'NewMenuTest\',\'测试按钮1\',\'测试按钮\',\'测试按钮\',
\'39\',\'测试按钮\',\'测试按钮\',\'测试按钮\',0,
1,1,0,0,\'\',
\'\',\'\',0,0,0,
\'测试按钮\',\'测试按钮\',\'测试按钮\')

 

2、查询被添加工具栏按钮的业务单据的FMenuID和FID

--查询被添加工具栏按钮的业务单据的FmenuID和FID，分别是100，32
select FID,FmenuID,* from iclisttemplate where Fname LIKE \'%销售订单%\'

 

3、添加工具栏按钮和业务单据的映射关系

--t_BandToolMapping.FID 对应 iclisttemplate.FMenuID，
--t_BandToolMapping.FToolID 对应 t_MenuToolBar.FToolID
--t_BandToolMapping.FComName 是按钮激发组件DLL中命名空间.类名
insert into t_BandToolMapping 
(FID,FBandID,FToolID,FSubBandID,FIndex,
FComName,FBeginGroup) 
values 
(100,48,99999,0,999,
\'|BOS_BillEvent_PlugIns.Class3\',0)

 

4、工具栏按钮点击激发事件MainFunction

MainFunction(ByVal sKey As string,oList AsObject,Byref bCancel as Boolean)
sKey ：     菜单的Key值，也就是菜单名
oList ：     K3List控件
bCancel：是否取消后继操作标志

 

代码如下：

Public Function MainFunction(ByVal sKey As String, oList As Object, ByRef bCancel As Boolean)

\'Set InBatch = New InBatch  显示窗体
MsgBox "111"
Dim vectBill As KFO.Vector

--经实际测试K3Connection.AppConnection取不到变量。请使用SQLHelper去连接数据库，代码和使用方法在第一篇插件新手指导里
Set OBJ = CreateObject("K3Connection.AppConnection")   \'老单据里的连接字串
\'菜单响应
Select Case sKey
Case "NewMenuTest" \'和你在数据库里插入的FNAME一样
    \'通过Set vectBill = oList.GetSelected 可以获取当前选中序时薄数据
    
    \'返回记录集方式
    \'Set rs = obj.Execute("select * from t_icitem")
    
    \'执行存储过程方式
    \' obj.Execute3 ("exec KY_PlanQty")




End Select
End Function

 

5、工具栏按钮点击激发事件DLL注册

新建批处理文件：注册.bat

文本内容：regsvr32 "BOS_BillEvent_PlugIns.dll"

双击注册.bat，进行DLL注册

 

6、测试结果

 

7、附转载源码

oList.GetSelected 只获取第一行
oList.GetSelData("FBillNo") 可以获取多行

set vectBill=oList.GetSelected\'可以获取当前选中序时薄数据

FBillID = m_ListInterface.GetCurrentSelRowInfo("FBillID")  \'可以获取当前选中序时薄数据

Public Function MainFunction(ByVal sKey As String, oList As Object, ByRef bCancel As Boolean)
    Dim vectBill As KFO.Vector
    Dim lmul As Long
    Dim rs  As ADODB.Recordset
    Dim InBatch As Form
    Dim J
    Dim I
    Dim Dict As KFO.Dictionary
    Dim DictCheck As KFO.Dictionary
    Dim fiterid As Integer
    Dim fbillno As String
    Dim sqlUpdate As String  
    Dim sqlSelect As String
    Dim strList As String
       
\'Set InBatch = New InBatch  显示窗体
 Set OBJ = CreateObject("K3Connection.AppConnection")   \'老单据里的连接字串
       
Select Case sKey1 
    Case "PlanUpdate"
        \'Set vectBill = New KFO.Vector
:       Set vectBill = oList.GetSelData("FInterID")
        If vectBill.UBound > 0 Then
            frmUpdate.Show 1
            If frmUpdate.dtUpdate = "白班" Then
                 For I = vectBill.LBound To vectBill.UBound  \'辅助资料内码  40025=白班
                         Set DictCheck = vectBill(I)
                         sqlUpdate = "Update ICMO set FHeadSelfJ0176 =40025 where finterid = " & DictCheck.GetValue("FInterID")) 
                          OBJ.Execute3 (sqlUpdate)) 
                Next I
               SendKeys ("{F5}")
               MsgBox "生产任务单班别更新成功", vbOKOnly, "金蝶提示"
           End If
           If frmUpdate.dtUpdate = "夜班" Then
                For I = vectBill.LBound To vectBill.UBound  \'辅助资料内码  40026=夜班
                        Set DictCheck = vectBill(I)
                        sqlUpdate = "Update ICMO set FHeadSelfJ0176 =40026 where finterid = " & DictCheck.GetValue("FInterID")
                        OBJ.Execute3 (sqlUpdate) `
                Next I 
                SendKeys ("{F5}")
                MsgBox "生产任务单班别更新成功", vbOKOnly, "金蝶提示"
           End If
       End If
 Case "PlanUpdate2"
        Set vectBill = oList.GetSelData("FInterID")
        If vectBill.UBound > 0 Then
             strList = ""
             For I = vectBill.LBound To vectBill.UBound  \'辅助资料内码  40025=白班
                   Set DictCheck = vectBill(I)
                   strList = strList & DictCheck.GetValue("FInterID") & ","
             Next I
             strList = Left(strList, Len(Trim(strList)) - 1)
             sqlSelect = "select t2.FNumber,t2.FName,sum(t1.FQty) from ICMO t1 inner join t_icitem t2 on t1.FItemID=t2.FItemID where t1.FInterID in (" & strList & ") group by t2.FNumber,t2.FName"
             Set rs = OBJ.Execute(sqlSelect)
 End Function
--在采购订单序时簿上添加工具栏按钮
INSERT INTO t_BandToolMapping
(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
VALUES
(81,47,1001,0,1001,\'&mnuFileUserAdd1\',1)
INSERT INTO t_MenuToolBar
(FToolID,FName,FCaption,FCaption_CHT,FCaption_EN,FImageName,FToolTip,FToolTip_CHT,FToolTip_EN,FControlType,
 FVisible,FEnable,FChecked,FShortCut,FShortChar,FCBList,FCBList_CHT,FCBList_EN,FCBStyle,FCBWidth,
 FIndex,FToolCaption,FToolCaption_CHT,FToolCaption_EN )
VALUES
(1001,\'UserAdd1\',\'自定义1\',\'自定义1\',\'自定义1\',17,\'由用户自定义的按钮\',\'由用户自定义的按钮\',\'由用户自定义的按钮\',0,
 1,1,0,0,\'\',\'\',\'\',\'\',0,0,0,\'自定义1\',\'自定义1\',\'自定义1\')

 

相关文章