调用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