金蝶K/3插件 - 单个单据显示

'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