42 lines
2.2 KiB
VB.net
42 lines
2.2 KiB
VB.net
Public Class Class1
|
|
Public sAppPath As String = Application.StartupPath
|
|
'Public Shared DBConString As String = "Server=NBMIESENBECK\SPIELWIESE;Initial Catalog=Doku;User ID=sa;Password=verag#3;Connection Timeout=5;"
|
|
|
|
Public Shared DBConstringDev As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
|
|
Public Shared DBADMINBuchhaltung As String = "Data Source=SQLGuide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
|
|
Public Shared DBAdmin As String = "[SQLGuide01.verag.ost.dmn].ADMIN"
|
|
Public Shared DBDoku As String = "Server=SQLGuide01.verag.ost.dmn\Verag;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
|
|
'Public Shared DBDoku As String = "Server=dokusql.verag.ost.dmn\sqlexpress;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
|
|
Public Shared DBDokuTest As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
|
|
'Public Shared FilePath As String = "\\192.168.0.253\backup\temp_Sebastian\Spielwiese\Doku"
|
|
Public Shared FilePath As String ' = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
|
|
Public Shared Absender As String = "Absender Standard"
|
|
'Public Shared sAppPath As String = Application.StartupPath
|
|
|
|
Public Shared DBConString As String = DBDoku
|
|
|
|
Public Shared Standorte As New List(Of String)
|
|
Public Shared AlleStandorte As New List(Of String)
|
|
Public Shared LoggedOnUser As New cBenutzer
|
|
|
|
Public Shared LoggedOnUserisAdmin As Boolean = False
|
|
Public Shared DebugMode As Boolean = False
|
|
Public Shared DebugText As String = ""
|
|
Public Shared GroupUsers As List(Of cBenutzer)
|
|
Public Shared dtSuchergebnis As DataTable
|
|
Public Shared TeamviewerToken As String = "6920997-rtea7sZy35Ujw2Erm3OP"
|
|
|
|
Public Shared HostList As New List(Of String)
|
|
Public Shared TerminalServerList As New List(Of String)
|
|
|
|
Public Shared Function DBNull2emptyString(totest As Object)
|
|
|
|
If IsDBNull(totest) Then
|
|
Return ""
|
|
Else
|
|
Return totest
|
|
End If
|
|
|
|
End Function
|
|
End Class
|