K3WISE老单序时簿开发示例：增加功能性按钮

最新推荐文章于 2025-01-16 16:06:27 发布

wmlongshort

最新推荐文章于 2025-01-16 16:06:27 发布

阅读量3k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/wmlongshort/article/details/96478493

该示例展示了如何在K3WISE老单序时簿中添加功能性按钮，主要代码集中在`MainFunction`子程序中，用于更新任务回报单的工时功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

–以下代码为更新任务回报单的工时功能，以下插件代码：
Public Sub MainFunction(ByVal sKey As String, oList As Object, ByRef bCancel As Boolean)

Dim sqlCode As String
Dim FInterID As Long
Dim FEntryID As Long

Set OBJ = CreateObject("K3Connection.AppConnection")   '老单据数据库处理过程
If sKey = "HMPrint" Then
    oList.MultiSelect = 2
    '获取选择单据的单据内码及行号
    Dim selInterID As KFO.Vector
    Dim selEntryID As KFO.Vector
    Set selInterID = oList.GetSelData("FInterID")
    Set selEntryID = oList.GetSelData("FEntryID")
    
    If selInterID.UBound > 0 Then
        Dim hrwt As String
        Dim hrWTime As Double
        hrwt = InputBox("请输工时数值", "请输工时数值", "0")
        If IsNumeric(hrwt) Then
            hrWTime = Round(CDbl(hrwt), 2)

            For i = selInterID.LBound To selInterID.UBound
                FInterID = selInterID(i).GetValue("FInterID")
                FEntryID = selEntryID(i).GetValue("FEntryID")
                
                sqlCode = "UPDATE ICMORptEntry SET FTimeHrWork=" &am