Attribute VB_Name = "global"
   'Firma
Public Firma As String
Public FIL As String
Public DefaultStandort As String
Public Standort As String
Public StandortText As String
Public WJ As String
Public DRDEV As String
'   Personaldaten
Public Personal As String
Public ACCESS As String
Public PNAME As String
Public PNR As String
Public PABT As String
Public PABTNR As String
Public PHABTNR As String
Public TelDW As String
Public TelFax As String
Public Mail As String
Public lpers As String
Public lpass As String
Public lpersAbt As String
'   Server
Public SERVERIP As String
Public SERVERID As String
Public Server As String 'msm
Public PORT As String
Public NAMESPACE As String
Public LockNumber As Long
Public ArchivLockNumber As Long
Public Const MaxJobs As Byte = 24
'   Programm
Public PasswortErforderlich As Boolean
Public WWS_Server As CacheObject.Factory
Public Archiv_Server As CacheObject.Factory
Public ConnString As String
Public ArchivConnString As String
Public PasswortFalsch As Boolean
Public CommandParameter As String
Public SysUser As Boolean
Public Bearbeiten As Boolean
Public isDebuggerMode As Boolean
Public Enum Verlauf
   Anzeigen = 0
   Schreiben = 1
End Enum
Public LogEin As Boolean 'Verlauf EinAus für Start
Public MaxLogLevel As Byte
Public Enum LL
'LL = Loglevel für die Statustext übergabe an das File Falls eingeschalten
  InJedemFall = 0
  SehrWichtig = 10
  Wichtig = 20
  WenigerWichtig = 30
  Unwichtig = 40
  Info = 50
  Test = 254
  NA = 255
End Enum

'Allgemein
Public Const tr As String = "`"
Public Const afz As String = """"
Public Const Pi As Variant = 3.14159265358979
Public Const TwipsPerCm As Integer = 567
Public Const UserSys = "SYS"
Public Const UserAnmeldung = "ZZZ"
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)




