'BillTYPE 单据类型
'lBillID 单据id
'使用单据类型和单据ID显示一个单据
Private Sub viewBill(ByVal BillTYPE As Long, ByVal lBillID As Long)
Dim oBj As Object
Dim oDataSrv As Object
On Error GoTo Catch
Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.DataSrv")
oDataSrv.ClassTypeID = BillTYPE
Set oBj = m_BillInterface.K3Lib.CreateK3Object("K3SingleClassBill.ClassInfoManager")
With oBj
.DataSrv = oDataSrv
.ParentID = 0
.Show lBillID '新增为0
End With
GoTo ExitSub
Catch:
MsgBox (Err.Description)
ExitSub:
Set oBj = Nothing
Set oDataSrv = Nothing
End Sub
金蝶K/3插件 - 单个单据显示
最新推荐文章于 2024-07-06 16:57:36 发布