调用K3组件删除库存单据

最新推荐文章于 2021-06-23 10:56:19 发布

wmlongshort

最新推荐文章于 2021-06-23 10:56:19 发布

阅读量982

点赞数

博客展示了一个名为DeleteK3Bill的公共函数代码。该函数接收交易类型和内部ID作为参数，用于删除K3单据。函数中创建对象，根据交易类型设置相关ID，调用DeleteBill方法执行删除操作，并根据操作结果返回布尔值。

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

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