'调用K3组件删除库存单据

Public Function DeleteK3Bill(ByVal lTranType As Long, ByVal lInterID As Long) As Boolean
On Error GoTo Err
    DeleteK3Bill = True
    Dim obj As Object, bIsSuccess As Boolean, strMsg As String, strErrInfo As String, BaseInfo As String
    Dim m_ListID As Long, BillClsID As Long, lTemplateID As Long
    Set obj = CreateObject("K3ListServer.clsListUpdate")
    Select Case lTranType
        Case 24
            '生产领料单
            m_ListID = 11'select * from ICTransactionType
            BillClsID = 201
            lTemplateID = 77'select * from ICListTemplate
    End Select
    Dim str As Variant
    str = Split(sPropsString, "};")
    BaseInfo = Mid(str(0), 16, 1000) & "|16394|administrator"
    bIsSuccess = obj.DeleteBill("", sPropsString, m_ListID, BaseInfo, lInterID, lTranType, BillClsID, lTemplateID, strErrInfo)

    If bIsSuccess Then
        'Msg "删除成功!"
    Else
        DeleteK3Bill = False
        Msg strErrInfo
    End If
    Exit Function
Err:
    DeleteK3Bill = False
    Msg Err.Description
End Function