59 lines
1.3 KiB
OpenEdge ABL
59 lines
1.3 KiB
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
Persistable = 0 'NotPersistable
|
|
DataBindingBehavior = 0 'vbNone
|
|
DataSourceBehavior = 0 'vbNone
|
|
MTSTransactionMode = 0 'NotAnMTSObject
|
|
END
|
|
Attribute VB_Name = "ILogConsumer"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
'==============================================================================
|
|
'
|
|
' File : ILogConsumer.cls
|
|
' Date : 22.02.1999
|
|
' Version: 1.00
|
|
' Author : Andreas Schmidt, lindner&partner
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' *shared*
|
|
'
|
|
' Interface zum protokollieren von Fehlern, Warnungen und Hinweisen.
|
|
'
|
|
' @see CLogger
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' History:
|
|
'
|
|
' Date : 22.02.1999
|
|
' Version: 1.00
|
|
' Author : Andreas Schmidt, lindner&partner
|
|
'
|
|
' Erste dokumentierte Version.
|
|
'
|
|
'==============================================================================
|
|
|
|
Option Explicit
|
|
|
|
Public Sub logStart()
|
|
End Sub
|
|
|
|
' @param nLevel Log-Level
|
|
' 1 = Error
|
|
' 2 = Warning
|
|
' 3 = Info
|
|
' n = weitere Infos
|
|
' @param sText Zu loggender Text
|
|
'
|
|
|
|
Public Sub log(nLevel As Integer, sText As String)
|
|
End Sub
|
|
|
|
Public Sub logClose()
|
|
End Sub
|