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

最新推荐文章于 2022-05-17 10:24:11 发布

橙先森丶

最新推荐文章于 2022-05-17 10:24:11 发布

阅读量1.4k

点赞数

分类专栏：金蝶

原文链接：https://blog.csdn.net/wmlongshort/article/details/96478493

版权

金蝶专栏收录该内容

5 篇文章 0 订阅

订阅专栏

–以下代码为更新任务回报单的工时功能，以下插件代码：
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=" & hrWTime & " WHERE FInterID=" & FInterID & " AND FEntryID=" & FEntryID
                OBJ.Execute3 (sqlCode)
            
            Next i
            
            MsgBox "人工实作工时 批量更新成功！", vbOKOnly, "金蝶提示"
            SendKeys ("{F5}")
        
        Else
            MsgBox "请输入数值！", vbOKOnly, "金蝶提示"
        End If

    End If


End If
End Sub

————————————————
版权声明：本文为CSDN博主「wmlongshort」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/wmlongshort/article/details/96478493