pubfunc.bas

金蝶 K3 外挂主控台方案＋源代码 VB开发

Attribute VB_Name = "PubFunc"
Option Explicit

Public Const CLASS_DATASRV = "K3ClassTpl.DataSrv"
Public Const CLASS_BASEBILL = "K3SingleClassBill.ClassInfoManager"
Public Const CLASS_BASELOOKUP = "K3ClassLookUp.SingleBillLookUp"
Public Const CLASS_BILLLOOKUP = "K3ClassLookUp.BillLookUp"
'指定具体分组单表
Public Sub ShowBaseData(ByVal ClassTypeID As Long)
    Dim objlookup As Object
    Set objlookup = CreateObject(CLASS_BASELOOKUP)
    With objlookup
        .ClassTypeID = ClassTypeID '单据类型ID
        .ShowType = 1 'Enu_ShowType.Enu_Explore
        .Show
    End With
    Set objlookup = Nothing
End Sub

'指定多种分组单表
Public Sub ShowBase(ByVal sFilter As String)
    Dim objlookup As Object
    Set objlookup = CreateObject(CLASS_BASELOOKUP)
    With objlookup
        .classTypeFilter = " FBillTypeID=1 AND " & sFilter 'FID>0 "  '单据类型过虑条件
        .ShowType = 1 'Enu_ShowType.Enu_Explore
        .Show
    End With
    Set objlookup = Nothing
End Sub

'单据序事簿调用方式：
Public Sub ShowList(ByVal ClassTypeID As Long)
    Dim objlookup As Object
    Dim oDataSrv As Object
    Set oDataSrv = CreateObject(CLASS_DATASRV)
    oDataSrv.ClassTypeID = ClassTypeID  '单据类型ID
    If oDataSrv.showfilter Then
        Set objlookup = CreateObject(CLASS_BILLLOOKUP)
        objlookup.ClassTypeID = oDataSrv.ClassTypeID
        Set objlookup.dataSrv = oDataSrv
        objlookup.Show
    End If
End Sub

'单据新增调用方式
Public Sub ShowBill(ByVal ClassTypeID As Long)
    Dim obj As Object
    Dim dataSrv As Object

    Set dataSrv = CreateObject(CLASS_DATASRV)
    dataSrv.ClassTypeID = ClassTypeID   '单据类型ID
    Set obj = CreateObject(CLASS_BASEBILL)
    With obj
        .dataSrv = dataSrv
        .ParentID = 0
        .Show
    End With
    Set obj = Nothing
    Set dataSrv = Nothing
End Sub