app.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "app"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Function loadAPPfunc(Optional ByVal ParaDict As Object = Nothing)
On Error GoTo Err_Handler
'    oDict数据字典包结构如下
'    oDict("LoginType")                 调用方式
'    oDict("AcctID")                    帐套号
'    oDict("UserName")                  用户名
'    oDict("ClassObject")
'    oDict("FUNCID")
'    oDict("OTHERPARAM")
'    oDict("FFuncName")
'    oDict("FClassParam")
'    oDict("FClassName")

'    oDict("CurrentFrameWnd")

    MMTS.LoginType = ParaDict("LoginType")
    MMTS.LoginAcctID = ParaDict("AcctID")
    If CheckMts(True) Then
        Select Case ParaDict("FUNCID")
        Case 8000101
            ShowBase "FID = 1003001"
        Case 8000201
            ShowBill 1003301
        Case 8000202
            ShowList 1003301
        Case 8000301
            ShowBill 1003401
        Case 8000302
            ShowList 1003401
        Case 8000303
            ShowBill 1003402
        Case 8000304
            ShowList 1003402
            
        End Select
    End If
    Exit Function
Err_Handler:
    MsgBox Err.Description, vbExclamation, "金蝶提示"
End Function