AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First pass of new config

Browse Source
This commit is contained in:
Jonathan Jenne
2019-04-16 12:39:48 +02:00
parent 93bd7d0733
commit 4c86bd4c5c
28 changed files with 984 additions and 1127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@@ -16,7 +16,7 @@ Public Class ClassAllgemeineFunktionen
Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Process-Manager')" Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Process-Manager')"
End If End If
If ClassDatabase.Execute_non_Query(Sql, True) = True Then If ClassDatabase.Execute_non_Query(Sql, True) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> User logged in....", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> User logged in....", False)
Else Else
ClassLogger.Add(" >> User could not be logged in/out....", False) ClassLogger.Add(" >> User could not be logged in/out....", False)
End If End If
@@ -29,7 +29,7 @@ Public Class ClassAllgemeineFunktionen
Try Try
If IsNumeric(PROFIL_ID) Then If IsNumeric(PROFIL_ID) Then
Dim insert As String = "INSERT INTO TBPM_ERROR_LOG (PROFIL_ID, ERROR_MSG, ADDED_WHO) VALUES (" & PROFIL_ID & ", '" & ERR_MSG & "', '" & USR & "')" Dim insert As String = "INSERT INTO TBPM_ERROR_LOG (PROFIL_ID, ERROR_MSG, ADDED_WHO) VALUES (" & PROFIL_ID & ", '" & ERR_MSG & "', '" & USR & "')"
If ExecuteonMSSQL(insert, MyConnectionString) <> "" Then If ExecuteonMSSQL(insert, CONNECTION_STRING) <> "" Then
ClassLogger.Add("Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True) ClassLogger.Add("Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True)
End If End If
End If End If
@@ -147,7 +147,7 @@ Public Class ClassAllgemeineFunktionen
Public Function Move2Folder(ByVal vMove_File As String, ByVal vZiel_Pfad As String, Profile_ID As Integer, clsWD As ClassWindream_allgemein) Public Function Move2Folder(ByVal vMove_File As String, ByVal vZiel_Pfad As String, Profile_ID As Integer, clsWD As ClassWindream_allgemein)
Try Try
If vpdfviewer <> "internal" And vMove_File.EndsWith("pdf") Then If VIEWER_PDF <> "internal" And vMove_File.EndsWith("pdf") Then
Do While clsWD.CheckFileExists(vMove_File) = True 'func_check_file_use(vMove_File) Do While clsWD.CheckFileExists(vMove_File) = True 'func_check_file_use(vMove_File)
ClassLogger.Add(">> MoveRename: Datei noch geöffnet - Warten", False) ClassLogger.Add(">> MoveRename: Datei noch geöffnet - Warten", False)
System.Threading.Thread.Sleep(500) System.Threading.Thread.Sleep(500)

33
app/DD_PM_WINDREAM/ClassConfig.vb Normal file
View File

@@ -0,0 +1,33 @@
Imports DigitalData.Modules.Config.ConfigAttributes
Public Class ClassConfig
' Global Settings (from computerconfig, overridable by userconfig)
<ConnectionString>
Public Property ConnectionString As String = ""
<ConnectionStringTest>
Public Property ConnectionStringTest As String = ""
' PDF Viewer Settings
Public Property UniversalViewerPath As String = ""
Public Property XChangeViewerPath As String = ""
Public Property SumatraViewerPath As String = ""
Public Property PDFViewerZoomLevel As Integer = 3
Public Property PDFViewer As String = "internal"
Public Property DefaultViewer As String = "docview"
' Windream Settings
Public Property IndexDmsErstellt As String = "DMS erstellt"
Public Property IndexDmsErstelltZeit As String = "DMS erstellt (Zeit)"
' Digital Data Settings
Public Property UserManagerPath As String = ""
' File Settings
Public Property VersionDelimiter As String = "~"
Public Property FileDelimiter As String = "_"
' Misc Settings
Public Property LogErrorsOnly As Boolean = True
Public Property WindreamSessionStartStopOnStartup As Boolean = False
End Class

16
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@@ -43,7 +43,7 @@ Public Class ClassDatabase
End Function End Function
Public Shared Function Init() Public Shared Function Init()
Try Try
SQLSERVERConnectionString = MyConnectionString SQLSERVERConnectionString = CONNECTION_STRING
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open() SQLconnect.Open()
@@ -59,12 +59,12 @@ Public Class ClassDatabase
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
If LogErrorsOnly = False Then ClassLogger.Add(">>> ReturnDatatable: " & Select_anweisung, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> ReturnDatatable: " & Select_anweisung, False)
SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung SQLcommand.CommandText = Select_anweisung
If LogErrorsOnly = False Then ClassLogger.Add(">>> Execute ReturnDatatable: " & Select_anweisung, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> Execute ReturnDatatable: " & Select_anweisung, False)
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable() Dim dt As DataTable = New DataTable()
adapter1.Fill(dt) adapter1.Fill(dt)
@@ -83,7 +83,7 @@ Public Class ClassDatabase
Public Shared Function Return_Datatable_CS(Select_anweisung As String, Conn_ID As Integer, Optional userInput As Boolean = False) Public Shared Function Return_Datatable_CS(Select_anweisung As String, Conn_ID As Integer, Optional userInput As Boolean = False)
Try Try
Dim ConString As String = Get_ConnectionString(Conn_ID) Dim ConString As String = Get_ConnectionString(Conn_ID)
If LogErrorsOnly = False Then ClassLogger.Add(">>> ReturnDatatable: " & Select_anweisung, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> ReturnDatatable: " & Select_anweisung, False)
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString SQLconnect.ConnectionString = ConString
@@ -110,12 +110,12 @@ Public Class ClassDatabase
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.ConnectionString = SQLSERVERConnectionString
If LogErrorsOnly = False Then ClassLogger.Add(">>> Execute_non_Query: " & ExecuteCMD, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> Execute_non_Query: " & ExecuteCMD, False)
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD SQLcommand.CommandText = ExecuteCMD
If LogErrorsOnly = False Then ClassLogger.Add(">>> Execute NonQuery: " & ExecuteCMD, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> Execute NonQuery: " & ExecuteCMD, False)
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
@@ -137,12 +137,12 @@ Public Class ClassDatabase
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString SQLconnect.ConnectionString = ConString
If LogErrorsOnly = False Then ClassLogger.Add(">>> Execute_non_Query: " & cmdscalar, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> Execute_non_Query: " & cmdscalar, False)
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar SQLcommand.CommandText = cmdscalar
If LogErrorsOnly = False Then ClassLogger.Add(">>> Execute Scalar: " & cmdscalar, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> Execute Scalar: " & cmdscalar, False)
result = SQLcommand.ExecuteScalar() result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()

22
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@@ -8,12 +8,12 @@
If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then
'Jetzt finale Indexe setzen 'Jetzt finale Indexe setzen
If LogErrorsOnly = False Then ClassLogger.Add(" >> working final indices for doc: " & WMObject.aName, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> working final indices for doc: " & WMObject.aName, False)
For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows
Dim value As String = dr.Item("VALUE").ToString Dim value As String = dr.Item("VALUE").ToString
Dim INDEXNAME = dr.Item("INDEXNAME").ToString Dim INDEXNAME = dr.Item("INDEXNAME").ToString
If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
If LogErrorsOnly = False Then ClassLogger.Add(" >> indexing with dynamic sql...", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> indexing with dynamic sql...", False)
'Dim SQL_COMMAND = dr.Item("SQL_COMMAND") 'Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
'' Regulären Ausdruck zum Auslesen der Indexe definieren '' Regulären Ausdruck zum Auslesen der Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@@ -41,8 +41,8 @@
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement) sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject) sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject)
If LogErrorsOnly = False Then ClassLogger.Add(">>> sql after ReplaceAllValues: " & sql_Statement, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> sql after ReplaceAllValues: " & sql_Statement, False)
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, MyConnectionString, True) Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, True)
If Not IsNothing(dynamic_value) Then If Not IsNothing(dynamic_value) Then
value = dynamic_value value = dynamic_value
Else Else
@@ -66,11 +66,11 @@
result(0) = value result(0) = value
Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME) Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME)
If LogErrorsOnly = False Then ClassLogger.Add($" >> oIndexType {oIndexType.ToString}", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> oIndexType {oIndexType.ToString}", False)
If oIndexType > 4000 And oIndexType < 5000 Then If oIndexType > 4000 And oIndexType < 5000 Then
'Hier muss nun separat als Vektorfeld indexiert werden 'Hier muss nun separat als Vektorfeld indexiert werden
If Indexiere_VektorfeldPM(value, INDEXNAME, WMObject) = False Then If Indexiere_VektorfeldPM(value, INDEXNAME, WMObject) = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT", False)
Else Else
MsgBox("Unexpected error in finalindexing vektorvalue - check the log", MsgBoxStyle.Critical) MsgBox("Unexpected error in finalindexing vektorvalue - check the log", MsgBoxStyle.Critical)
@@ -78,10 +78,10 @@
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> now indexing..", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> now indexing..", False)
If Indexiere_File(INDEXNAME, result, WMObject) = True Then If Indexiere_File(INDEXNAME, result, WMObject) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT", False)
If LogErrorsOnly = False Then ClassLogger.Add("") If LOG_ERRORS_ONLY = False Then ClassLogger.Add("")
'Nun das Logging 'Nun das Logging
If CURRENT_PROFILE_VEKTOR_LOG <> "" Then If CURRENT_PROFILE_VEKTOR_LOG <> "" Then
Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME) Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME)
@@ -126,7 +126,7 @@
'Das Array der Idnexwerte überprüfen 'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False Then If idxvalue Is Nothing = False Then
If idxvalue.Length() > 1 Then If idxvalue.Length() > 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
Dim anzahl As Integer = 0 Dim anzahl As Integer = 0
For Each indexvalue As String In idxvalue For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl) ReDim Preserve arrValue(anzahl)
@@ -134,7 +134,7 @@
anzahl += 1 anzahl += 1
Next Next
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
ReDim Preserve arrValue(0) ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString arrValue(0) = idxvalue(0).ToString
End If End If

101
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -1,6 +1,8 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports System.Globalization Imports System.Globalization
Imports DLLLicenseManager Imports DLLLicenseManager
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Config
Public Class ClassInit Public Class ClassInit
@@ -11,24 +13,77 @@ Public Class ClassInit
<STAThread()> <STAThread()>
Public Sub InitLogger() Public Sub InitLogger()
ClassLogger.Init("", Environment.UserName) LOGCONFIG = New LogConfig(LogConfig.PathType.AppData)
ClassLogger.Add("## ProcessManager für Windream gestartet - " & Now, False) LOGGER = LOGCONFIG.GetLogger("ProcessManager")
If LogErrorsOnly = False Then
'Setzt DetailLog zurück LOGGER.Info("## ProcessManager für Windream gestartet - {0}", Now)
LogErrorsOnly = False = False
My.Settings.Save() 'ClassLogger.Init("", Environment.UserName)
End If 'ClassLogger.Add("## ProcessManager für Windream gestartet - " & Now, False)
'If LogErrorsOnly = False Then
' 'Setzt DetailLog zurück
' LogErrorsOnly = False = False
' My.Settings.Save()
'End If
'Throw New Exception("Dummy Fehler!") 'Throw New Exception("Dummy Fehler!")
End Sub End Sub
<STAThread()> <STAThread()>
Public Sub InitUserConfig() Public Sub InitUserConfig()
Settings_Load() CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath)
LOGGER.Info("Config loaded")
If CONFIG.Config.ConnectionStringTest <> String.Empty Then
LOGGER.Debug("Test Connection String loaded")
CONNECTION_STRING = DecryptConnectionString(CONFIG.Config.ConnectionStringTest)
Else
LOGGER.Debug("Connection String loaded")
CONNECTION_STRING = DecryptConnectionString(CONFIG.Config.ConnectionString)
End If
VIEWER_UNIVERSAL = CONFIG.Config.UniversalViewerPath
VIEWER_XCHANGE = CONFIG.Config.XChangeViewerPath
VIEWER_SUMATRA = CONFIG.Config.SumatraViewerPath
VIEWER_ZOOM_LEVEL = CONFIG.Config.PDFViewerZoomLevel
VIEWER_PDF = CONFIG.Config.PDFViewer
VIEWER_ALL = CONFIG.Config.DefaultViewer
INDEX_DMS_ERSTELLT = CONFIG.Config.IndexDmsErstellt
INDEX_DMS_ERSTELLT_ZEIT = CONFIG.Config.IndexDmsErstelltZeit
USER_MANAGER_PATH = CONFIG.Config.UserManagerPath
LOGCONFIG.Debug = Not LOG_ERRORS_ONLY
'Settings_Load()
End Sub End Sub
Private Function DecryptConnectionString(EncryptedConnectionString As String) As String
Dim oBuilder As New SqlClient.SqlConnectionStringBuilder With {
.ConnectionString = EncryptedConnectionString
}
If oBuilder.ConnectionString.Contains("Password=") Then
Dim oPlaintextPassword As String
Dim oDecryptor As New ClassEncryption("!35452didalog=")
Try
oPlaintextPassword = oDecryptor.DecryptData(oBuilder.Password)
Catch ex As Exception
LOGGER.Debug("Password {0} could not be decrypted. Assuming plaintext password.")
oPlaintextPassword = oBuilder.Password
End Try
Return EncryptedConnectionString.Replace(oBuilder.Password, oPlaintextPassword)
Else
Return EncryptedConnectionString
End If
End Function
<STAThread()> <STAThread()>
Public Function InitDatabase() Public Function InitDatabase()
Dim dbResult As Boolean Dim dbResult As Boolean
If MyConnectionString <> String.Empty Then If CONNECTION_STRING <> String.Empty Then
dbResult = ClassDatabase.Init() dbResult = ClassDatabase.Init()
Else Else
MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information) MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
@@ -45,18 +100,7 @@ Public Class ClassInit
Return True Return True
End If End If
End Function End Function
'Public Function InitWindream()
' Try
' ' Windream instanziieren
' _windreamPM = New ClassPMWindream()
' 'Windream initialisieren (Connection, Session, ... aufbauen)
' Return _windreamPM.Init()
' Catch ex As Exception
' MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
' Return False
' End Try
'End Function
<STAThread()> <STAThread()>
Sub Refresh_Licence() Sub Refresh_Licence()
Try Try
@@ -76,7 +120,7 @@ Public Class ClassInit
LICENSE_EXPIRED = True LICENSE_EXPIRED = True
LICENSE_COUNT = 0 LICENSE_COUNT = 0
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> license initialized....", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> license initialized....", False)
LICENSE_PROFILES = split(2) LICENSE_PROFILES = split(2)
Catch ex As Exception Catch ex As Exception
@@ -143,7 +187,7 @@ Public Class ClassInit
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN") USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
If LogErrorsOnly = False Then ClassLogger.Add(" >> User exists....", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> User exists....", False)
'Am System anmelden 'Am System anmelden
Refresh_Licence() Refresh_Licence()
'Check_User_Exists_in_PMGroups() 'Check_User_Exists_in_PMGroups()
@@ -154,7 +198,7 @@ Public Class ClassInit
' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) ' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'"
ClassDatabase.Execute_non_Query(sql, True) ClassDatabase.Execute_non_Query(sql, True)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!", False) ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!", False)
@@ -165,7 +209,7 @@ Public Class ClassInit
End If End If
End If End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden 'Alles OK bis hierhin...nun die FolderwatchKonfig laden
If LogErrorsOnly = False Then ClassLogger.Add(" >> Init Userlogin successfull completed....", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Init Userlogin successfull completed....", False)
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True) ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
@@ -193,17 +237,14 @@ Public Class ClassInit
Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'" Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
vWLaufwerk = DT.Rows(0).Item("STRING1")
vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")
vFILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER")
LICENSE_VALID = DT.Rows(0).Item("LICENSE_VALID")
Try Try
VERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")
FILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER")
LICENSE_VALID = DT.Rows(0).Item("LICENSE_VALID")
WMSESSION_STARTSTOP_STARTUP = DT.Rows(0).Item("WMSESSION_STARTSTOP_STARTUP") WMSESSION_STARTSTOP_STARTUP = DT.Rows(0).Item("WMSESSION_STARTSTOP_STARTUP")
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in Settings_LoadBasicConfig: " & ex.Message, True) ClassLogger.Add("Unexpected Error in Settings_LoadBasicConfig: " & ex.Message, True)
WMSESSION_STARTSTOP_STARTUP = False
End Try End Try
Else Else
Return False Return False
End If End If

62
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@@ -124,7 +124,7 @@ Public Class ClassPMWindream
Dim i As Integer = 0 Dim i As Integer = 0
Dim indexname As String Dim indexname As String
If aValues.Length = 1 And aValues(0) = "" Then If aValues.Length = 1 And aValues(0) = "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert ist leer/Nothing - Keine Indexierung", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert ist leer/Nothing - Keine Indexierung", False)
End If End If
'Jetzt jeden Indexwert durchlaufen 'Jetzt jeden Indexwert durchlaufen
For Each aName As String In Indizes For Each aName As String In Indizes
@@ -143,7 +143,7 @@ Public Class ClassPMWindream
'If indexname = "Tournr" Then 'If indexname = "Tournr" Then
' MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString) ' MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString)
'End If 'End If
If LogErrorsOnly = False Then ClassLogger.Add(" ### Indexierung von Index: " & indexname & " ####", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" ### Indexierung von Index: " & indexname & " ####", False)
'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87") 'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
Dim value = aValues(i) Dim value = aValues(i)
Dim convertValue Dim convertValue
@@ -153,13 +153,13 @@ Public Class ClassPMWindream
Select Case vType Select Case vType
'Case WMObjectVariableValueTypeUndefined 'Case WMObjectVariableValueTypeUndefined
Case WMObjectVariableValueTypeString Case WMObjectVariableValueTypeString
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeString", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeString", False)
convertValue = CStr(value) convertValue = CStr(value)
Case WMObjectVariableValueTypeInteger Case WMObjectVariableValueTypeInteger
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False)
If IsNumeric(value) = False Then If IsNumeric(value) = False Then
frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value
If LogErrorsOnly = False Then ClassLogger.Add(" >> Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!", False)
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
Return False Return False
@@ -167,7 +167,7 @@ Public Class ClassPMWindream
convertValue = CInt(value) convertValue = CInt(value)
_int = True _int = True
Case WMObjectVariableValueTypeFloat Case WMObjectVariableValueTypeFloat
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
Try Try
convertValue = CDbl(value) convertValue = CDbl(value)
Catch ex As Exception Catch ex As Exception
@@ -178,7 +178,7 @@ Public Class ClassPMWindream
End Try End Try
Case WMObjectVariableValueTypeFixedPoint Case WMObjectVariableValueTypeFixedPoint
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False)
Try Try
convertValue = CDbl(value) convertValue = CDbl(value)
Catch ex As Exception Catch ex As Exception
@@ -190,16 +190,16 @@ Public Class ClassPMWindream
_dbl = True _dbl = True
Case WMObjectVariableValueTypeBoolean Case WMObjectVariableValueTypeBoolean
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False)
convertValue = CBool(value) convertValue = CBool(value)
_bool = True _bool = True
Case WMObjectVariableValueTypeDate Case WMObjectVariableValueTypeDate
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeDate", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeDate", False)
_date = True _date = True
'Dim _date As Date = value 'Dim _date As Date = value
convertValue = value convertValue = value
Case WMObjectVariableValueTypeTimeStamp Case WMObjectVariableValueTypeTimeStamp
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False)
convertValue = CInt(value) convertValue = CInt(value)
Case WMObjectVariableValueTypeCurrency Case WMObjectVariableValueTypeCurrency
ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False) ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False)
@@ -207,7 +207,7 @@ Public Class ClassPMWindream
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value)) Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
convertValue = aValueWrapper convertValue = aValueWrapper
Case WMObjectVariableValueTypeTime Case WMObjectVariableValueTypeTime
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTime", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTime", False)
'If ((value)) Then 'If ((value)) Then
' convertValue = CDate(value) ' convertValue = CDate(value)
'Else 'Else
@@ -216,44 +216,44 @@ Public Class ClassPMWindream
'Dim _date As Date = value 'Dim _date As Date = value
convertValue = convertValue '*_date.ToShortTimeString convertValue = convertValue '*_date.ToShortTimeString
Case WMObjectVariableValueTypeFloat Case WMObjectVariableValueTypeFloat
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
convertValue = CStr(value) convertValue = CStr(value)
Case WMObjectVariableValueTypeVariant Case WMObjectVariableValueTypeVariant
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False)
convertValue = CStr(value) convertValue = CStr(value)
Case WMObjectVariableValueTypeFulltext Case WMObjectVariableValueTypeFulltext
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False)
convertValue = CStr(value) convertValue = CStr(value)
Case 4100 Case 4100
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4100 Vektor Boolean", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4100 Vektor Boolean", False)
vektor = True vektor = True
Case 4101 Case 4101
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4101 Vektor Date", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4101 Vektor Date", False)
vektor = True vektor = True
Case 4104 Case 4104
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4104 Vektor Currency", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4104 Vektor Currency", False)
vektor = True vektor = True
Case 4097 Case 4097
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4097 Vektor alphanumerisch", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
vektor = True vektor = True
Case 4098 Case 4098
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4098 Vektor Numerisch", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4098 Vektor Numerisch", False)
vektor = True vektor = True
Case 4099 Case 4099
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4099 Vektor Kommazahl", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
vektor = True vektor = True
Case 36865 Case 36865
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 36865 Vektor alphanumerisch", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
vektor = True vektor = True
Case Else Case Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes konnte nicht bestimmt werden!", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Typ des windream-Indexes konnte nicht bestimmt werden!", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch des Auslesens (vType): " & vType) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch des Auslesens (vType): " & vType)
'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else") 'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
convertValue = "" convertValue = ""
End Select End Select
If vektor = False Then If vektor = False Then
If convertValue.ToString Is Nothing = False Then If convertValue.ToString Is Nothing = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert: '" & convertValue.ToString & "'", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Konvertierter Wert: '" & convertValue.ToString & "'", False)
End If End If
End If End If
'############################################################################################ '############################################################################################
@@ -262,7 +262,7 @@ Public Class ClassPMWindream
If vektor = False Then If vektor = False Then
If convertValue.ToString Is Nothing = False Then If convertValue.ToString Is Nothing = False Then
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> Jetzt indexieren: oDocument.SetVariableValue(" & aName & ", " & convertValue.ToString & ")", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Jetzt indexieren: oDocument.SetVariableValue(" & aName & ", " & convertValue.ToString & ")", False)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" >> Unexpected Error in Logging SetVariableValue for " & aName & ": " & ex.Message, False) ClassLogger.Add(" >> Unexpected Error in Logging SetVariableValue for " & aName & ": " & ex.Message, False)
End Try End Try
@@ -285,13 +285,13 @@ Public Class ClassPMWindream
Else Else
oDocument.SetVariableValue(aName, convertValue) oDocument.SetVariableValue(aName, convertValue)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Index '" & aName & "' wurde geschrieben", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Index '" & aName & "' wurde geschrieben", False)
Else Else
ClassLogger.Add(" >> Kein Indexwert vorhanden", False) ClassLogger.Add(" >> Kein Indexwert vorhanden", False)
End If End If
Else Else
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST 'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
If LogErrorsOnly = False Then ClassLogger.Add(" >> VEKTORFELD: Vorbereiten des Arrays", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> VEKTORFELD: Vorbereiten des Arrays", False)
Dim myArray() Dim myArray()
'Dim anz As Integer = 0 'Dim anz As Integer = 0
'For Each obj In aValues 'For Each obj In aValues
@@ -398,7 +398,7 @@ Public Class ClassPMWindream
'Jetzt die Nachindexierung für Vektor-Felder 'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(aName, myArray) oDocument.SetVariableValue(aName, myArray)
If LogErrorsOnly = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR erfolgreich", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR erfolgreich", False)
End If End If
End If End If
i += 1 i += 1
@@ -410,7 +410,7 @@ Public Class ClassPMWindream
'SetRights(WMObject, User) 'SetRights(WMObject, User)
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
If LogErrorsOnly = False Then ClassLogger.Add(" ### Indexierung erfolgreich beendet (Save und Unlock durchgeführt) ###", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" ### Indexierung erfolgreich beendet (Save und Unlock durchgeführt) ###", False)
Return True Return True
Else Else
ClassLogger.Add(" ### Dokument ist gesperrt, Indexierung nicht möglich! ###", False) ClassLogger.Add(" ### Dokument ist gesperrt, Indexierung nicht möglich! ###", False)
@@ -445,7 +445,7 @@ Public Class ClassPMWindream
Dim value = _state Dim value = _state
Dim convertValue Dim convertValue
'Den Typ des Index-Feldes auslesen 'Den Typ des Index-Feldes auslesen
If LogErrorsOnly = False Then ClassLogger.Add(">> Typ des windream-Indexes: " & vType.ToString) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">> Typ des windream-Indexes: " & vType.ToString)
Select Case (vType) Select Case (vType)
Case WMObjectVariableValueTypeBoolean Case WMObjectVariableValueTypeBoolean
convertValue = CBool(value) convertValue = CBool(value)
@@ -456,7 +456,7 @@ Public Class ClassPMWindream
'####################### Der eigentliche Indexierungsvorgang ################################ '####################### Der eigentliche Indexierungsvorgang ################################
oDocument.SetVariableValue(Indexname, convertValue) oDocument.SetVariableValue(Indexname, convertValue)
If LogErrorsOnly = False Then ClassLogger.Add(">> Index '" & Indexname & "' wurde gesetzt") If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">> Index '" & Indexname & "' wurde gesetzt")
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
ClassLogger.Add(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet") ClassLogger.Add(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet")

2
app/DD_PM_WINDREAM/ClassUser.vb
View File

@@ -5,7 +5,7 @@
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel) Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
If Not IsNothing(DT) Then If Not IsNothing(DT) Then
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in UM_ADMINS-Group....", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> User is in UM_ADMINS-Group....", False)
Return True Return True
Else Else
Return False Return False

12
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@@ -51,12 +51,12 @@ Public Class ClassWindream_allgemein
Try Try
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
Me.oSession = CreateObject("Windream.WMSession", Me.GetCurrentServer) Me.oSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
If LogErrorsOnly = False Then ClassLogger.Add(" >> windream-Server: '" & Me.GetCurrentServer & "'", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> windream-Server: '" & Me.GetCurrentServer & "'", False)
' Connection-Objekt instanziieren ' Connection-Objekt instanziieren
Me.oConnect = CreateObject("Windream.WMConnect") Me.oConnect = CreateObject("Windream.WMConnect")
'MsgBox("windrem init 'ed") 'MsgBox("windrem init 'ed")
Catch ex As Exception Catch ex As Exception
If LogErrorsOnly = False Then ClassLogger.Add($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}", False)
Return False Return False
End Try End Try
@@ -84,7 +84,7 @@ Public Class ClassWindream_allgemein
Return False Return False
End If End If
If LogErrorsOnly = False Then If LOG_ERRORS_ONLY = False Then
ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False) ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
End If End If
@@ -115,7 +115,7 @@ Public Class ClassWindream_allgemein
End If End If
If LogErrorsOnly = False Then ClassLogger.Add($" >> windream login successful", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> windream login successful", False)
Return True Return True
Catch ex As Exception Catch ex As Exception
@@ -135,7 +135,7 @@ Public Class ClassWindream_allgemein
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T
INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID
WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString) Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING)
If WMSESSION_STARTSTOP_STARTUP = True Then If WMSESSION_STARTSTOP_STARTUP = True Then
'And userExistsInServerUserGroup Is Nothing 'And userExistsInServerUserGroup Is Nothing
@@ -159,7 +159,7 @@ Public Class ClassWindream_allgemein
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T
INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID
WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString) Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING)
If WMSESSION_STARTSTOP_STARTUP = True Then 'And userExistsInServerUserGroup Is Nothing If WMSESSION_STARTSTOP_STARTUP = True Then 'And userExistsInServerUserGroup Is Nothing
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter") Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")

18
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@@ -137,6 +137,13 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>P:\Visual Studio Projekte\Bibliotheken\DigitalData.Controls.LookupGrid.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\DigitalData.Controls.LookupGrid.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.Modules.Config, Version=0.0.3.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DLLLicenseManager"> <Reference Include="DLLLicenseManager">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
</Reference> </Reference>
@@ -147,6 +154,10 @@
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess"> <Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath> <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference> </Reference>
@@ -154,13 +165,18 @@
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\PdfSharp-gdi.dll</HintPath> <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\PdfSharp-gdi.dll</HintPath>
</Reference> </Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.Data.OracleClient" /> <Reference Include="System.Data.OracleClient" />
<Reference Include="System.Deployment" /> <Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" /> <Reference Include="System.DirectoryServices" />
<Reference Include="System.DirectoryServices.AccountManagement" /> <Reference Include="System.DirectoryServices.AccountManagement" />
<Reference Include="System.Drawing" /> <Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.Management" /> <Reference Include="System.Management" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Transactions" />
<Reference Include="System.Windows.Forms" /> <Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" /> <Reference Include="System.Xml" />
<Reference Include="System.Core" /> <Reference Include="System.Core" />
@@ -181,6 +197,7 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Compile Include="ClassAnnotation.vb" /> <Compile Include="ClassAnnotation.vb" />
<Compile Include="ClassConfig.vb" />
<Compile Include="ClassControlCreator.vb" /> <Compile Include="ClassControlCreator.vb" />
<Compile Include="ClassDragDrop.vb" /> <Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassFinalIndex.vb" /> <Compile Include="ClassFinalIndex.vb" />
@@ -462,6 +479,7 @@
</None> </None>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="packages.config" />
<None Include="Resources\20110505_Logo_syncreon_slogan_inverse.png" /> <None Include="Resources\20110505_Logo_syncreon_slogan_inverse.png" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>

55
app/DD_PM_WINDREAM/ModuleMySettings.vb
View File

@@ -2,28 +2,27 @@
Imports System.Xml Imports System.Xml
Module ModuleMySettings Module ModuleMySettings
'Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
Public Const USER_CONFIG_FILE = "UserConfig.xml" Public Const USER_CONFIG_FILE = "UserConfig.xml"
Public Const COMPUTER_CONFIG_FILE = "ComputerConfig.xml" Public Const COMPUTER_CONFIG_FILE = "ComputerConfig.xml"
Public MyConnectionString As String = "" Public LOG_ERRORS_ONLY As Boolean = True
Public UniversalViewer As String = "" Public CONNECTION_STRING As String = ""
Public PDFXChangeViewer As String = ""
Public SumatraViewer As String = ""
Public LogErrorsOnly As Boolean = True
Public PDFViewer_ZoomMode As Integer = 3
Public vpdfviewer As String = "internal"
Public Viewer As String = "docview"
Public IDX_DMS_ERSTELLT = "DMS erstellt"
Public IDX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
Public USRMNGRPATH = ""
Public CURRENT_FILE As String = "" ' Viewer Settings
Public VIEWER_UNIVERSAL As String = ""
Public VIEWER_XCHANGE As String = ""
Public VIEWER_SUMATRA As String = ""
Public VIEWER_ZOOM_LEVEL As Integer = 3
Public VIEWER_PDF As String = "internal"
Public VIEWER_ALL As String = "docview"
Public INDEX_DMS_ERSTELLT = "DMS erstellt"
Public INDEX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
Public USER_MANAGER_PATH = ""
Public vWLaufwerk As String = "W" ' These settings are loaded from the database
Public vVERSION_DELIMITER As String = "~" Public VERSION_DELIMITER As String = "~"
Public vFILE_DELIMITER As String = "_" Public FILE_DELIMITER As String = "_"
Public WMSESSION_STARTSTOP_STARTUP As Boolean = False Public WMSESSION_STARTSTOP_STARTUP As Boolean = False
Public Function GetUserConfigPath() As String Public Function GetUserConfigPath() As String
@@ -83,31 +82,31 @@ Module ModuleMySettings
oConnectionString = oRow.Item("Value").ToString oConnectionString = oRow.Item("Value").ToString
End If End If
MyConnectionString = oConnectionString CONNECTION_STRING = oConnectionString
ClassDatabase.Init() ClassDatabase.Init()
Else Else
MyConnectionString = "" CONNECTION_STRING = ""
End If End If
Case "LogErrorsOnly" Case "LogErrorsOnly"
LogErrorsOnly = CBool(oRow.Item("Value")) LOG_ERRORS_ONLY = CBool(oRow.Item("Value"))
Case "UniversalViewer" Case "UniversalViewer"
UniversalViewer = oRow.Item("Value") VIEWER_UNIVERSAL = oRow.Item("Value")
Case "PDFXChangeViewer" Case "PDFXChangeViewer"
PDFXChangeViewer = oRow.Item("Value") VIEWER_XCHANGE = oRow.Item("Value")
Case "PDFViewer_ZoomMode" Case "PDFViewer_ZoomMode"
PDFViewer_ZoomMode = oRow.Item("Value") VIEWER_ZOOM_LEVEL = oRow.Item("Value")
Case "vpdfviewer" Case "vpdfviewer"
vpdfviewer = oRow.Item("Value") VIEWER_PDF = oRow.Item("Value")
Case "Viewer" Case "Viewer"
Viewer = oRow.Item("Value") VIEWER_ALL = oRow.Item("Value")
Case "SumatraViewer" Case "SumatraViewer"
SumatraViewer = oRow.Item("Value") VIEWER_SUMATRA = oRow.Item("Value")
Case "IDX_DMS_ERSTELLT" Case "IDX_DMS_ERSTELLT"
IDX_DMS_ERSTELLT = oRow.Item("Value") INDEX_DMS_ERSTELLT = oRow.Item("Value")
Case "IDX_DMS_ERSTELLT_ZEIT" Case "IDX_DMS_ERSTELLT_ZEIT"
IDX_DMS_ERSTELLT_ZEIT = oRow.Item("Value") INDEX_DMS_ERSTELLT_ZEIT = oRow.Item("Value")
Case "USRMNGRPATH" Case "USRMNGRPATH"
USRMNGRPATH = oRow.Item("Value") USER_MANAGER_PATH = oRow.Item("Value")
End Select End Select
Next Next
Return True Return True

6
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@@ -1,4 +1,7 @@
Imports WINDREAMLib Imports WINDREAMLib
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging
Module ModuleRuntimeVariables Module ModuleRuntimeVariables
' Diese Werte müssen später zur Laufzeit geladen werden ' Diese Werte müssen später zur Laufzeit geladen werden
@@ -71,4 +74,7 @@ Module ModuleRuntimeVariables
Public errormessage As String Public errormessage As String
Public WINDREAM As ClassPMWindream Public WINDREAM As ClassPMWindream
Public LOGCONFIG As LogConfig
Public LOGGER As Logger
Public CONFIG As ConfigManager(Of ClassConfig)
End Module End Module

2
app/DD_PM_WINDREAM/frmAdminPasswort.vb
View File

@@ -5,7 +5,7 @@ Public Class frmAdminPasswort
Private Sub frmAdminPasswort_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmAdminPasswort_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
akt_pw = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminPW akt_pw = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminPW
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler bei Form Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Fehler bei Form Load:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

42
app/DD_PM_WINDREAM/frmAdministration.Designer.vb generated
View File

@@ -393,7 +393,6 @@ Partial Class frmAdministration
Me.gridAssignedUsers.AllowDrop = True Me.gridAssignedUsers.AllowDrop = True
Me.gridAssignedUsers.DataSource = Me.TBPROFILE_USERBindingSource Me.gridAssignedUsers.DataSource = Me.TBPROFILE_USERBindingSource
resources.ApplyResources(Me.gridAssignedUsers, "gridAssignedUsers") resources.ApplyResources(Me.gridAssignedUsers, "gridAssignedUsers")
Me.gridAssignedUsers.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAssignedUsers.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAssignedUsers.MainView = Me.viewAssignedUsers Me.gridAssignedUsers.MainView = Me.viewAssignedUsers
Me.gridAssignedUsers.Name = "gridAssignedUsers" Me.gridAssignedUsers.Name = "gridAssignedUsers"
Me.gridAssignedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedUsers}) Me.gridAssignedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedUsers})
@@ -411,6 +410,7 @@ Partial Class frmAdministration
'viewAssignedUsers 'viewAssignedUsers
' '
Me.viewAssignedUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME1, Me.colNAME3, Me.colUSERNAME1, Me.colEMAIL1, Me.GridColumn1, Me.GridColumn2}) Me.viewAssignedUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME1, Me.colNAME3, Me.colUSERNAME1, Me.colEMAIL1, Me.GridColumn1, Me.GridColumn2})
Me.viewAssignedUsers.DetailHeight = 295
Me.viewAssignedUsers.GridControl = Me.gridAssignedUsers Me.viewAssignedUsers.GridControl = Me.gridAssignedUsers
Me.viewAssignedUsers.Name = "viewAssignedUsers" Me.viewAssignedUsers.Name = "viewAssignedUsers"
Me.viewAssignedUsers.OptionsBehavior.Editable = False Me.viewAssignedUsers.OptionsBehavior.Editable = False
@@ -422,36 +422,42 @@ Partial Class frmAdministration
' '
resources.ApplyResources(Me.colPRENAME1, "colPRENAME1") resources.ApplyResources(Me.colPRENAME1, "colPRENAME1")
Me.colPRENAME1.FieldName = "PRENAME" Me.colPRENAME1.FieldName = "PRENAME"
Me.colPRENAME1.MinWidth = 16
Me.colPRENAME1.Name = "colPRENAME1" Me.colPRENAME1.Name = "colPRENAME1"
' '
'colNAME3 'colNAME3
' '
resources.ApplyResources(Me.colNAME3, "colNAME3") resources.ApplyResources(Me.colNAME3, "colNAME3")
Me.colNAME3.FieldName = "NAME" Me.colNAME3.FieldName = "NAME"
Me.colNAME3.MinWidth = 16
Me.colNAME3.Name = "colNAME3" Me.colNAME3.Name = "colNAME3"
' '
'colUSERNAME1 'colUSERNAME1
' '
resources.ApplyResources(Me.colUSERNAME1, "colUSERNAME1") resources.ApplyResources(Me.colUSERNAME1, "colUSERNAME1")
Me.colUSERNAME1.FieldName = "USERNAME" Me.colUSERNAME1.FieldName = "USERNAME"
Me.colUSERNAME1.MinWidth = 16
Me.colUSERNAME1.Name = "colUSERNAME1" Me.colUSERNAME1.Name = "colUSERNAME1"
' '
'colEMAIL1 'colEMAIL1
' '
resources.ApplyResources(Me.colEMAIL1, "colEMAIL1") resources.ApplyResources(Me.colEMAIL1, "colEMAIL1")
Me.colEMAIL1.FieldName = "EMAIL" Me.colEMAIL1.FieldName = "EMAIL"
Me.colEMAIL1.MinWidth = 16
Me.colEMAIL1.Name = "colEMAIL1" Me.colEMAIL1.Name = "colEMAIL1"
' '
'GridColumn1 'GridColumn1
' '
resources.ApplyResources(Me.GridColumn1, "GridColumn1") resources.ApplyResources(Me.GridColumn1, "GridColumn1")
Me.GridColumn1.FieldName = "COMMENT" Me.GridColumn1.FieldName = "COMMENT"
Me.GridColumn1.MinWidth = 16
Me.GridColumn1.Name = "GridColumn1" Me.GridColumn1.Name = "GridColumn1"
' '
'GridColumn2 'GridColumn2
' '
resources.ApplyResources(Me.GridColumn2, "GridColumn2") resources.ApplyResources(Me.GridColumn2, "GridColumn2")
Me.GridColumn2.FieldName = "SHORTNAME" Me.GridColumn2.FieldName = "SHORTNAME"
Me.GridColumn2.MinWidth = 16
Me.GridColumn2.Name = "GridColumn2" Me.GridColumn2.Name = "GridColumn2"
' '
'Panel1 'Panel1
@@ -470,7 +476,6 @@ Partial Class frmAdministration
Me.gridAvailableUsers.AllowDrop = True Me.gridAvailableUsers.AllowDrop = True
Me.gridAvailableUsers.DataSource = Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource Me.gridAvailableUsers.DataSource = Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource
resources.ApplyResources(Me.gridAvailableUsers, "gridAvailableUsers") resources.ApplyResources(Me.gridAvailableUsers, "gridAvailableUsers")
Me.gridAvailableUsers.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAvailableUsers.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAvailableUsers.MainView = Me.viewAvailableUsers Me.gridAvailableUsers.MainView = Me.viewAvailableUsers
Me.gridAvailableUsers.Name = "gridAvailableUsers" Me.gridAvailableUsers.Name = "gridAvailableUsers"
Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers}) Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers})
@@ -483,6 +488,7 @@ Partial Class frmAdministration
'viewAvailableUsers 'viewAvailableUsers
' '
Me.viewAvailableUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME, Me.colNAME2, Me.colUSERNAME, Me.colEMAIL, Me.GridColumn3, Me.GridColumn4}) Me.viewAvailableUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME, Me.colNAME2, Me.colUSERNAME, Me.colEMAIL, Me.GridColumn3, Me.GridColumn4})
Me.viewAvailableUsers.DetailHeight = 295
Me.viewAvailableUsers.GridControl = Me.gridAvailableUsers Me.viewAvailableUsers.GridControl = Me.gridAvailableUsers
Me.viewAvailableUsers.Name = "viewAvailableUsers" Me.viewAvailableUsers.Name = "viewAvailableUsers"
Me.viewAvailableUsers.OptionsBehavior.Editable = False Me.viewAvailableUsers.OptionsBehavior.Editable = False
@@ -494,36 +500,42 @@ Partial Class frmAdministration
' '
resources.ApplyResources(Me.colPRENAME, "colPRENAME") resources.ApplyResources(Me.colPRENAME, "colPRENAME")
Me.colPRENAME.FieldName = "USER_PRENAME" Me.colPRENAME.FieldName = "USER_PRENAME"
Me.colPRENAME.MinWidth = 16
Me.colPRENAME.Name = "colPRENAME" Me.colPRENAME.Name = "colPRENAME"
' '
'colNAME2 'colNAME2
' '
resources.ApplyResources(Me.colNAME2, "colNAME2") resources.ApplyResources(Me.colNAME2, "colNAME2")
Me.colNAME2.FieldName = "USER_SURNAME" Me.colNAME2.FieldName = "USER_SURNAME"
Me.colNAME2.MinWidth = 16
Me.colNAME2.Name = "colNAME2" Me.colNAME2.Name = "colNAME2"
' '
'colUSERNAME 'colUSERNAME
' '
resources.ApplyResources(Me.colUSERNAME, "colUSERNAME") resources.ApplyResources(Me.colUSERNAME, "colUSERNAME")
Me.colUSERNAME.FieldName = "USER_NAME" Me.colUSERNAME.FieldName = "USER_NAME"
Me.colUSERNAME.MinWidth = 16
Me.colUSERNAME.Name = "colUSERNAME" Me.colUSERNAME.Name = "colUSERNAME"
' '
'colEMAIL 'colEMAIL
' '
resources.ApplyResources(Me.colEMAIL, "colEMAIL") resources.ApplyResources(Me.colEMAIL, "colEMAIL")
Me.colEMAIL.FieldName = "USER_EMAIL" Me.colEMAIL.FieldName = "USER_EMAIL"
Me.colEMAIL.MinWidth = 16
Me.colEMAIL.Name = "colEMAIL" Me.colEMAIL.Name = "colEMAIL"
' '
'GridColumn3 'GridColumn3
' '
resources.ApplyResources(Me.GridColumn3, "GridColumn3") resources.ApplyResources(Me.GridColumn3, "GridColumn3")
Me.GridColumn3.FieldName = "USER_COMMENT" Me.GridColumn3.FieldName = "USER_COMMENT"
Me.GridColumn3.MinWidth = 16
Me.GridColumn3.Name = "GridColumn3" Me.GridColumn3.Name = "GridColumn3"
' '
'GridColumn4 'GridColumn4
' '
resources.ApplyResources(Me.GridColumn4, "GridColumn4") resources.ApplyResources(Me.GridColumn4, "GridColumn4")
Me.GridColumn4.FieldName = "USER_SHORTNAME" Me.GridColumn4.FieldName = "USER_SHORTNAME"
Me.GridColumn4.MinWidth = 16
Me.GridColumn4.Name = "GridColumn4" Me.GridColumn4.Name = "GridColumn4"
' '
'Panel2 'Panel2
@@ -559,7 +571,6 @@ Partial Class frmAdministration
Me.gridAssignedGroups.AllowDrop = True Me.gridAssignedGroups.AllowDrop = True
Me.gridAssignedGroups.DataSource = Me.TBPROFILE_GROUPBindingSource Me.gridAssignedGroups.DataSource = Me.TBPROFILE_GROUPBindingSource
resources.ApplyResources(Me.gridAssignedGroups, "gridAssignedGroups") resources.ApplyResources(Me.gridAssignedGroups, "gridAssignedGroups")
Me.gridAssignedGroups.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAssignedGroups.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAssignedGroups.MainView = Me.viewAssignedGroups Me.gridAssignedGroups.MainView = Me.viewAssignedGroups
Me.gridAssignedGroups.Name = "gridAssignedGroups" Me.gridAssignedGroups.Name = "gridAssignedGroups"
Me.gridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedGroups}) Me.gridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedGroups})
@@ -572,6 +583,7 @@ Partial Class frmAdministration
'viewAssignedGroups 'viewAssignedGroups
' '
Me.viewAssignedGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME5, Me.colCOMMENT1}) Me.viewAssignedGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME5, Me.colCOMMENT1})
Me.viewAssignedGroups.DetailHeight = 295
Me.viewAssignedGroups.GridControl = Me.gridAssignedGroups Me.viewAssignedGroups.GridControl = Me.gridAssignedGroups
Me.viewAssignedGroups.Name = "viewAssignedGroups" Me.viewAssignedGroups.Name = "viewAssignedGroups"
Me.viewAssignedGroups.OptionsBehavior.Editable = False Me.viewAssignedGroups.OptionsBehavior.Editable = False
@@ -583,12 +595,14 @@ Partial Class frmAdministration
' '
resources.ApplyResources(Me.colNAME5, "colNAME5") resources.ApplyResources(Me.colNAME5, "colNAME5")
Me.colNAME5.FieldName = "NAME" Me.colNAME5.FieldName = "NAME"
Me.colNAME5.MinWidth = 16
Me.colNAME5.Name = "colNAME5" Me.colNAME5.Name = "colNAME5"
' '
'colCOMMENT1 'colCOMMENT1
' '
resources.ApplyResources(Me.colCOMMENT1, "colCOMMENT1") resources.ApplyResources(Me.colCOMMENT1, "colCOMMENT1")
Me.colCOMMENT1.FieldName = "COMMENT" Me.colCOMMENT1.FieldName = "COMMENT"
Me.colCOMMENT1.MinWidth = 16
Me.colCOMMENT1.Name = "colCOMMENT1" Me.colCOMMENT1.Name = "colCOMMENT1"
' '
'Panel3 'Panel3
@@ -607,7 +621,6 @@ Partial Class frmAdministration
Me.gridAvailableGroups.AllowDrop = True Me.gridAvailableGroups.AllowDrop = True
Me.gridAvailableGroups.DataSource = Me.TBDD_GROUPSBindingSource Me.gridAvailableGroups.DataSource = Me.TBDD_GROUPSBindingSource
resources.ApplyResources(Me.gridAvailableGroups, "gridAvailableGroups") resources.ApplyResources(Me.gridAvailableGroups, "gridAvailableGroups")
Me.gridAvailableGroups.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAvailableGroups.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAvailableGroups.MainView = Me.viewAvailableGroups Me.gridAvailableGroups.MainView = Me.viewAvailableGroups
Me.gridAvailableGroups.Name = "gridAvailableGroups" Me.gridAvailableGroups.Name = "gridAvailableGroups"
Me.gridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableGroups}) Me.gridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableGroups})
@@ -620,6 +633,7 @@ Partial Class frmAdministration
'viewAvailableGroups 'viewAvailableGroups
' '
Me.viewAvailableGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME4, Me.colCOMMENT}) Me.viewAvailableGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME4, Me.colCOMMENT})
Me.viewAvailableGroups.DetailHeight = 295
Me.viewAvailableGroups.GridControl = Me.gridAvailableGroups Me.viewAvailableGroups.GridControl = Me.gridAvailableGroups
Me.viewAvailableGroups.Name = "viewAvailableGroups" Me.viewAvailableGroups.Name = "viewAvailableGroups"
Me.viewAvailableGroups.OptionsBehavior.Editable = False Me.viewAvailableGroups.OptionsBehavior.Editable = False
@@ -631,12 +645,14 @@ Partial Class frmAdministration
' '
resources.ApplyResources(Me.colNAME4, "colNAME4") resources.ApplyResources(Me.colNAME4, "colNAME4")
Me.colNAME4.FieldName = "NAME" Me.colNAME4.FieldName = "NAME"
Me.colNAME4.MinWidth = 16
Me.colNAME4.Name = "colNAME4" Me.colNAME4.Name = "colNAME4"
' '
'colCOMMENT 'colCOMMENT
' '
resources.ApplyResources(Me.colCOMMENT, "colCOMMENT") resources.ApplyResources(Me.colCOMMENT, "colCOMMENT")
Me.colCOMMENT.FieldName = "COMMENT" Me.colCOMMENT.FieldName = "COMMENT"
Me.colCOMMENT.MinWidth = 16
Me.colCOMMENT.Name = "colCOMMENT" Me.colCOMMENT.Name = "colCOMMENT"
' '
'Panel4 'Panel4
@@ -1180,7 +1196,6 @@ Partial Class frmAdministration
'GridControl1 'GridControl1
' '
Me.GridControl1.DataSource = Me.TBPM_PROFILEBindingSource Me.GridControl1.DataSource = Me.TBPM_PROFILEBindingSource
Me.GridControl1.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
resources.ApplyResources(Me.GridControl1, "GridControl1") resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
@@ -1193,6 +1208,7 @@ Partial Class frmAdministration
Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color) Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME, Me.colTITLE}) Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME, Me.colTITLE})
Me.GridView1.DetailHeight = 295
Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1" Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
@@ -1210,12 +1226,14 @@ Partial Class frmAdministration
' '
resources.ApplyResources(Me.colNAME, "colNAME") resources.ApplyResources(Me.colNAME, "colNAME")
Me.colNAME.FieldName = "NAME" Me.colNAME.FieldName = "NAME"
Me.colNAME.MinWidth = 16
Me.colNAME.Name = "colNAME" Me.colNAME.Name = "colNAME"
' '
'colTITLE 'colTITLE
' '
resources.ApplyResources(Me.colTITLE, "colTITLE") resources.ApplyResources(Me.colTITLE, "colTITLE")
Me.colTITLE.FieldName = "TITLE" Me.colTITLE.FieldName = "TITLE"
Me.colTITLE.MinWidth = 16
Me.colTITLE.Name = "colTITLE" Me.colTITLE.Name = "colTITLE"
' '
'cmbLOGIndex 'cmbLOGIndex
@@ -1277,7 +1295,6 @@ Partial Class frmAdministration
' '
Me.gridFinalIndex.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource Me.gridFinalIndex.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource
resources.ApplyResources(Me.gridFinalIndex, "gridFinalIndex") resources.ApplyResources(Me.gridFinalIndex, "gridFinalIndex")
Me.gridFinalIndex.EmbeddedNavigator.Margin = CType(resources.GetObject("gridFinalIndex.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridFinalIndex.MainView = Me.viewFinalIndex Me.gridFinalIndex.MainView = Me.viewFinalIndex
Me.gridFinalIndex.Name = "gridFinalIndex" Me.gridFinalIndex.Name = "gridFinalIndex"
Me.gridFinalIndex.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewFinalIndex}) Me.gridFinalIndex.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewFinalIndex})
@@ -1290,6 +1307,7 @@ Partial Class frmAdministration
'viewFinalIndex 'viewFinalIndex
' '
Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN}) Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN})
Me.viewFinalIndex.DetailHeight = 295
Me.viewFinalIndex.GridControl = Me.gridFinalIndex Me.viewFinalIndex.GridControl = Me.gridFinalIndex
Me.viewFinalIndex.Name = "viewFinalIndex" Me.viewFinalIndex.Name = "viewFinalIndex"
Me.viewFinalIndex.OptionsBehavior.Editable = False Me.viewFinalIndex.OptionsBehavior.Editable = False
@@ -1300,48 +1318,56 @@ Partial Class frmAdministration
' '
resources.ApplyResources(Me.colGUID, "colGUID") resources.ApplyResources(Me.colGUID, "colGUID")
Me.colGUID.FieldName = "GUID" Me.colGUID.FieldName = "GUID"
Me.colGUID.MinWidth = 16
Me.colGUID.Name = "colGUID" Me.colGUID.Name = "colGUID"
' '
'colINDEXNAME 'colINDEXNAME
' '
resources.ApplyResources(Me.colINDEXNAME, "colINDEXNAME") resources.ApplyResources(Me.colINDEXNAME, "colINDEXNAME")
Me.colINDEXNAME.FieldName = "INDEXNAME" Me.colINDEXNAME.FieldName = "INDEXNAME"
Me.colINDEXNAME.MinWidth = 16
Me.colINDEXNAME.Name = "colINDEXNAME" Me.colINDEXNAME.Name = "colINDEXNAME"
' '
'colVALUE 'colVALUE
' '
resources.ApplyResources(Me.colVALUE, "colVALUE") resources.ApplyResources(Me.colVALUE, "colVALUE")
Me.colVALUE.FieldName = "VALUE" Me.colVALUE.FieldName = "VALUE"
Me.colVALUE.MinWidth = 16
Me.colVALUE.Name = "colVALUE" Me.colVALUE.Name = "colVALUE"
' '
'colSQL_COMMAND 'colSQL_COMMAND
' '
resources.ApplyResources(Me.colSQL_COMMAND, "colSQL_COMMAND") resources.ApplyResources(Me.colSQL_COMMAND, "colSQL_COMMAND")
Me.colSQL_COMMAND.FieldName = "SQL_COMMAND" Me.colSQL_COMMAND.FieldName = "SQL_COMMAND"
Me.colSQL_COMMAND.MinWidth = 16
Me.colSQL_COMMAND.Name = "colSQL_COMMAND" Me.colSQL_COMMAND.Name = "colSQL_COMMAND"
' '
'colADDED_WHO 'colADDED_WHO
' '
resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO") resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO")
Me.colADDED_WHO.FieldName = "ADDED_WHO" Me.colADDED_WHO.FieldName = "ADDED_WHO"
Me.colADDED_WHO.MinWidth = 16
Me.colADDED_WHO.Name = "colADDED_WHO" Me.colADDED_WHO.Name = "colADDED_WHO"
' '
'colADDED_WHEN 'colADDED_WHEN
' '
resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN") resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN")
Me.colADDED_WHEN.FieldName = "ADDED_WHEN" Me.colADDED_WHEN.FieldName = "ADDED_WHEN"
Me.colADDED_WHEN.MinWidth = 16
Me.colADDED_WHEN.Name = "colADDED_WHEN" Me.colADDED_WHEN.Name = "colADDED_WHEN"
' '
'colCHANGED_WHO 'colCHANGED_WHO
' '
resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO") resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO")
Me.colCHANGED_WHO.FieldName = "CHANGED_WHO" Me.colCHANGED_WHO.FieldName = "CHANGED_WHO"
Me.colCHANGED_WHO.MinWidth = 16
Me.colCHANGED_WHO.Name = "colCHANGED_WHO" Me.colCHANGED_WHO.Name = "colCHANGED_WHO"
' '
'colCHANGED_WHEN 'colCHANGED_WHEN
' '
resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN") resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN")
Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN" Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN"
Me.colCHANGED_WHEN.MinWidth = 16
Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN" Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN"
' '
'PropertyGrid1 'PropertyGrid1
@@ -1522,7 +1548,6 @@ Partial Class frmAdministration
' '
Me.gridAvailableProfiles.DataSource = Me.TBPM_PROFILEBindingSource Me.gridAvailableProfiles.DataSource = Me.TBPM_PROFILEBindingSource
resources.ApplyResources(Me.gridAvailableProfiles, "gridAvailableProfiles") resources.ApplyResources(Me.gridAvailableProfiles, "gridAvailableProfiles")
Me.gridAvailableProfiles.EmbeddedNavigator.Margin = CType(resources.GetObject("gridAvailableProfiles.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
Me.gridAvailableProfiles.MainView = Me.viewAvailableProfiles Me.gridAvailableProfiles.MainView = Me.viewAvailableProfiles
Me.gridAvailableProfiles.Name = "gridAvailableProfiles" Me.gridAvailableProfiles.Name = "gridAvailableProfiles"
Me.gridAvailableProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableProfiles}) Me.gridAvailableProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableProfiles})
@@ -1530,6 +1555,7 @@ Partial Class frmAdministration
'viewAvailableProfiles 'viewAvailableProfiles
' '
Me.viewAvailableProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME1, Me.colDESCRIPTION}) Me.viewAvailableProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME1, Me.colDESCRIPTION})
Me.viewAvailableProfiles.DetailHeight = 295
Me.viewAvailableProfiles.GridControl = Me.gridAvailableProfiles Me.viewAvailableProfiles.GridControl = Me.gridAvailableProfiles
Me.viewAvailableProfiles.Name = "viewAvailableProfiles" Me.viewAvailableProfiles.Name = "viewAvailableProfiles"
Me.viewAvailableProfiles.OptionsBehavior.Editable = False Me.viewAvailableProfiles.OptionsBehavior.Editable = False
@@ -1542,12 +1568,14 @@ Partial Class frmAdministration
' '
resources.ApplyResources(Me.colNAME1, "colNAME1") resources.ApplyResources(Me.colNAME1, "colNAME1")
Me.colNAME1.FieldName = "NAME" Me.colNAME1.FieldName = "NAME"
Me.colNAME1.MinWidth = 16
Me.colNAME1.Name = "colNAME1" Me.colNAME1.Name = "colNAME1"
' '
'colDESCRIPTION 'colDESCRIPTION
' '
resources.ApplyResources(Me.colDESCRIPTION, "colDESCRIPTION") resources.ApplyResources(Me.colDESCRIPTION, "colDESCRIPTION")
Me.colDESCRIPTION.FieldName = "DESCRIPTION" Me.colDESCRIPTION.FieldName = "DESCRIPTION"
Me.colDESCRIPTION.MinWidth = 16
Me.colDESCRIPTION.Name = "colDESCRIPTION" Me.colDESCRIPTION.Name = "colDESCRIPTION"
' '
'Label21 'Label21

1098
app/DD_PM_WINDREAM/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

40
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@@ -18,19 +18,19 @@ Public Class frmAdministration
Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
formloaded = False formloaded = False
Try Try
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_TYPETableAdapter.Connection.ConnectionString = MyConnectionString TBPM_TYPETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString TBDD_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString TBDD_GROUPSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPROFILE_USERTableAdapter.Connection.ConnectionString = MyConnectionString TBPROFILE_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_ERROR_LOGTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_ERROR_LOGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Refresh_Profildaten() Refresh_Profildaten()
@@ -632,7 +632,7 @@ Public Class frmAdministration
End Sub End Sub
Private Function Execute_SQL(SQL As String) Private Function Execute_SQL(SQL As String)
Try Try
Dim SQLconnection As New SqlClient.SqlConnection(MyConnectionString) Dim SQLconnection As New SqlClient.SqlConnection(CONNECTION_STRING)
Dim SQLcommand As New SqlCommand(SQL, SQLconnection) Dim SQLcommand As New SqlCommand(SQL, SQLconnection)
SQLconnection.Open() SQLconnection.Open()
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
@@ -884,7 +884,7 @@ Public Class frmAdministration
' End If ' End If
'End If 'End If
If USRMNGRPATH = "" Then If USER_MANAGER_PATH = "" Then
With OpenFileDialog1 With OpenFileDialog1
' Do ' Do
.Filter = "DDUserManager.Exe|*.exe" .Filter = "DDUserManager.Exe|*.exe"
@@ -892,13 +892,15 @@ Public Class frmAdministration
.Title = "search DDUserManager.exe:" .Title = "search DDUserManager.exe:"
If .ShowDialog() = DialogResult.OK Then If .ShowDialog() = DialogResult.OK Then
USRMNGRPATH = .FileName USER_MANAGER_PATH = .FileName
SaveMySettingsValue("USRMNGRPATH", .FileName) CONFIG.Config.UserManagerPath = USER_MANAGER_PATH
CONFIG.Save()
'SaveMySettingsValue("USRMNGRPATH", .FileName)
End If End If
End With End With
End If End If
If File.Exists(USRMNGRPATH) Then If File.Exists(USER_MANAGER_PATH) Then
Process.Start(USRMNGRPATH) Process.Start(USER_MANAGER_PATH)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical) MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical)

2
app/DD_PM_WINDREAM/frmConnection.vb
View File

@@ -164,7 +164,7 @@ Public Class frmConnection
End Sub End Sub
Sub load_connections() Sub load_connections()
Try Try
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_CONNECTION) Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_CONNECTION)
TBDD_CONNECTIONDataGridView.AutoResizeColumns() TBDD_CONNECTIONDataGridView.AutoResizeColumns()
Catch ex As Exception Catch ex As Exception

2
app/DD_PM_WINDREAM/frmControl_Detail.vb
View File

@@ -47,7 +47,7 @@ Public Class frmControl_Detail
Me.Location = My.Settings.frmTableColumns_Position Me.Location = My.Settings.frmTableColumns_Position
End If End If
End If End If
Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Formulardaten:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Formulardaten:")
End Try End Try

10
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@@ -57,10 +57,10 @@ Public Class frmFormDesigner
End Try End Try
Try Try
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
@@ -361,7 +361,7 @@ Public Class frmFormDesigner
Private Function GetLastID() Private Function GetLastID()
Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", ProfileId) Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", ProfileId)
Return ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) Return ClassDatabase.Execute_Scalar(sql, CONNECTION_STRING, True)
End Function End Function
Sub SetActiveControlColor() Sub SetActiveControlColor()

131
app/DD_PM_WINDREAM/frmKonfig.vb
View File

@@ -11,37 +11,39 @@ Public Class frmKonfig
.Title = "Pfad zu Universal Viewer.exe:" .Title = "Pfad zu Universal Viewer.exe:"
If .ShowDialog() = DialogResult.OK Then If .ShowDialog() = DialogResult.OK Then
Me.txtUniversalViewer.Text = .FileName Me.txtUniversalViewer.Text = .FileName
SaveMySettingsValue("UniversalViewer", txtUniversalViewer.Text) CONFIG.Config.UniversalViewerPath = txtUniversalViewer.Text
CONFIG.Save()
'SaveMySettingsValue("UniversalViewer", txtUniversalViewer.Text)
End If End If
End With End With
End Sub End Sub
Private Sub frmKonfig_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmKonfig_Load(sender As Object, e As System.EventArgs) Handles Me.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBPM_KONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen.
Try Try
If Viewer = "uviewer" Then If VIEWER_ALL = "uviewer" Then
rbuviewer.Checked = True rbuviewer.Checked = True
Else Else
rbwddocview.Checked = True rbwddocview.Checked = True
End If End If
If MyConnectionString = String.Empty Then If CONNECTION_STRING = String.Empty Then
Me.TabControl1.SelectedIndex = 1 Me.TabControl1.SelectedIndex = 1
Load_ConString("") Load_ConString("")
Else Else
Load_ConString(MyConnectionString) Load_ConString(CONNECTION_STRING)
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION) Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
End If End If
If UniversalViewer = String.Empty Then If VIEWER_UNIVERSAL = String.Empty Then
UniversalViewer = Application.StartupPath & "\programs\Universal Viewer\Viewer.exe" VIEWER_UNIVERSAL = Application.StartupPath & "\programs\Universal Viewer\Viewer.exe"
SaveMySettingsValue("UniversalViewer", UniversalViewer) CONFIG.Config.UniversalViewerPath = VIEWER_UNIVERSAL
CONFIG.Save()
'SaveMySettingsValue("UniversalViewer", VIEWER_UNIVERSAL)
End If End If
txtUniversalViewer.Text = UniversalViewer txtUniversalViewer.Text = VIEWER_UNIVERSAL
txtUniversalViewer.Text = UniversalViewer txtUniversalViewer.Text = VIEWER_UNIVERSAL
txtpdfxchange.Text = PDFXChangeViewer txtpdfxchange.Text = VIEWER_XCHANGE
txtSumatra.Text = SumatraViewer txtSumatra.Text = VIEWER_SUMATRA
chkLogErrorsOnly.Checked = CBool(LogErrorsOnly) chkLogErrorsOnly.Checked = CBool(LOG_ERRORS_ONLY)
Me.txtpdfxchange.Text = PDFXChangeViewer Me.txtpdfxchange.Text = VIEWER_XCHANGE
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Formload Grundkonfig:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Formload Grundkonfig:")
@@ -50,16 +52,19 @@ Public Class frmKonfig
Private Sub rbuviewer_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbuviewer.CheckedChanged Private Sub rbuviewer_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbuviewer.CheckedChanged
If rbuviewer.Checked Then If rbuviewer.Checked Then
Viewer = "uviewer" VIEWER_ALL = "uviewer"
txtUniversalViewer.Text = UniversalViewer txtUniversalViewer.Text = VIEWER_UNIVERSAL
GroupBox1.Visible = False GroupBox1.Visible = False
rbSumatra.Checked = False rbSumatra.Checked = False
rbPDFX_Change.Checked = False rbPDFX_Change.Checked = False
Else Else
Viewer = "docview" VIEWER_ALL = "docview"
GroupBox1.Visible = True GroupBox1.Visible = True
End If End If
SaveMySettingsValue("Viewer", Viewer)
CONFIG.Config.DefaultViewer = VIEWER_ALL
CONFIG.Save()
'SaveMySettingsValue("Viewer", VIEWER_ALL)
End Sub End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnpdfxchange.Click Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnpdfxchange.Click
@@ -70,8 +75,10 @@ Public Class frmKonfig
.Title = "Pfad zu PDF XChange Viewer.exe:" .Title = "Pfad zu PDF XChange Viewer.exe:"
If .ShowDialog() = DialogResult.OK Then If .ShowDialog() = DialogResult.OK Then
Me.txtpdfxchange.Text = .FileName Me.txtpdfxchange.Text = .FileName
PDFXChangeViewer = .FileName VIEWER_XCHANGE = .FileName
SaveMySettingsValue("PDFXChangeViewer", txtpdfxchange.Text) CONFIG.Config.XChangeViewerPath = txtpdfxchange.Text
CONFIG.Save()
'SaveMySettingsValue("PDFXChangeViewer", txtpdfxchange.Text)
End If End If
End With End With
End Sub End Sub
@@ -92,8 +99,9 @@ Public Class frmKonfig
End If End If
Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString) Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString)
connection.Open() connection.Open()
Dim cmd As New SqlClient.SqlCommand("sp_databases", connection) Dim cmd As New SqlClient.SqlCommand("sp_databases", connection) With {
cmd.CommandType = CommandType.StoredProcedure .CommandType = CommandType.StoredProcedure
}
' Ausführen und Ergebnis in einer ListBox anzeigen ' Ausführen und Ergebnis in einer ListBox anzeigen
Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
If dr.HasRows Then If dr.HasRows Then
@@ -128,7 +136,7 @@ Public Class frmKonfig
result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
'ConnectionString in Anwendung speichern 'ConnectionString in Anwendung speichern
MyConnectionString = con CONNECTION_STRING = con
ClassDatabase.Init() ClassDatabase.Init()
'Das Passwort verschlüsseln 'Das Passwort verschlüsseln
If chkbxUserAut.Checked = False Then If chkbxUserAut.Checked = False Then
@@ -137,10 +145,16 @@ Public Class frmKonfig
Dim pw As String = cipherText Dim pw As String = cipherText
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";" con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
End If End If
SaveMySettingsValue("MyConnectionString", con)
My.Settings.Save() 'SaveMySettingsValue("MyConnectionString", con)
Load_ConString(MyConnectionString) 'My.Settings.Save()
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
CONNECTION_STRING = con
CONFIG.Config.ConnectionString = con
CONFIG.Save()
Load_ConString(CONNECTION_STRING)
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION) Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
End If End If
Catch ex As Exception Catch ex As Exception
@@ -157,13 +171,16 @@ Public Class frmKonfig
.Title = "Pfad zu SumatraPDF.exe:" .Title = "Pfad zu SumatraPDF.exe:"
If .ShowDialog() = DialogResult.OK Then If .ShowDialog() = DialogResult.OK Then
Me.txtSumatra.Text = .FileName Me.txtSumatra.Text = .FileName
SaveMySettingsValue("SumatraViewer", txtSumatra.Text)
CONFIG.Config.SumatraViewerPath = txtSumatra.Text
VIEWER_SUMATRA = txtSumatra.Text
'SaveMySettingsValue("SumatraViewer", txtSumatra.Text)
End If End If
End With End With
End Sub End Sub
Private Sub frmKonfig_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown Private Sub frmKonfig_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
formshown = True formshown = True
Select Case vpdfviewer Select Case VIEWER_PDF
Case "internal" Case "internal"
rbPDF_internal.Checked = True rbPDF_internal.Checked = True
Case "none" Case "none"
@@ -175,9 +192,9 @@ Public Class frmKonfig
Case "sumatra" Case "sumatra"
rbPDFX_Change.Checked = False rbPDFX_Change.Checked = False
rbSumatra.Checked = True rbSumatra.Checked = True
If SumatraViewer = String.Empty Then If VIEWER_SUMATRA = String.Empty Then
SumatraViewer = Application.StartupPath & "\programs\SumatraPDF\SumatraPDF.exe" VIEWER_SUMATRA = Application.StartupPath & "\programs\SumatraPDF\SumatraPDF.exe"
txtSumatra.Text = SumatraViewer txtSumatra.Text = VIEWER_SUMATRA
End If End If
Case "system" Case "system"
rbSystem.Checked = True rbSystem.Checked = True
@@ -187,19 +204,27 @@ Public Class frmKonfig
Private Sub rbPDFX_Change_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbPDFX_Change.CheckedChanged Private Sub rbPDFX_Change_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbPDFX_Change.CheckedChanged
If rbPDFX_Change.Checked And formshown = True Then If rbPDFX_Change.Checked And formshown = True Then
If PDFXChangeViewer = String.Empty Then If VIEWER_XCHANGE = String.Empty Then
MsgBox("Bitte geben Sie den Installationspfad von PDF XChange-Viewer an!", MsgBoxStyle.Exclamation) MsgBox("Bitte geben Sie den Installationspfad von PDF XChange-Viewer an!", MsgBoxStyle.Exclamation)
End If End If
vpdfviewer = "pdfxchange"
SaveMySettingsValue("vpdfviewer", vpdfviewer) VIEWER_PDF = "pdfxchange"
CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
End If End If
End Sub End Sub
Private Sub rbSumatra_CheckedChanged(sender As Object, e As System.EventArgs) Handles rbSumatra.CheckedChanged Private Sub rbSumatra_CheckedChanged(sender As Object, e As System.EventArgs) Handles rbSumatra.CheckedChanged
If rbSumatra.Checked And formshown = True Then If rbSumatra.Checked And formshown = True Then
vpdfviewer = "sumatra" VIEWER_PDF = "sumatra"
SaveMySettingsValue("vpdfviewer", vpdfviewer) CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'VIEWER_PDF = "sumatra"
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
' lblSumatra.Visible = True ' lblSumatra.Visible = True
' txtSumatra.Visible = True ' txtSumatra.Visible = True
' btnSumatra.Visible = True ' btnSumatra.Visible = True
@@ -208,11 +233,12 @@ Public Class frmKonfig
' txtSumatra.Visible = False ' txtSumatra.Visible = False
' btnSumatra.Visible = False ' btnSumatra.Visible = False
End If End If
End Sub End Sub
Private Sub btnno_pdf_viewer_Click(sender As System.Object, e As System.EventArgs) Handles btnno_pdf_viewer.Click Private Sub btnno_pdf_viewer_Click(sender As System.Object, e As System.EventArgs) Handles btnno_pdf_viewer.Click
vpdfviewer = "none" VIEWER_PDF = "none"
SaveMySettingsValue("vpdfviewer", vpdfviewer) CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
rbPDF_internal.Checked = False rbPDF_internal.Checked = False
rbPDFX_Change.Checked = False rbPDFX_Change.Checked = False
@@ -251,8 +277,10 @@ Public Class frmKonfig
Private Sub rbSystem_CheckedChanged(sender As Object, e As EventArgs) Handles rbSystem.CheckedChanged Private Sub rbSystem_CheckedChanged(sender As Object, e As EventArgs) Handles rbSystem.CheckedChanged
If rbSystem.Checked And formshown = True Then If rbSystem.Checked And formshown = True Then
vpdfviewer = "system" VIEWER_PDF = "system"
SaveMySettingsValue("vpdfviewer", vpdfviewer) CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
End If End If
End Sub End Sub
@@ -277,19 +305,21 @@ Public Class frmKonfig
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbPDF_internal.CheckedChanged Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbPDF_internal.CheckedChanged
If rbPDF_internal.Checked And formshown = True Then If rbPDF_internal.Checked And formshown = True Then
vpdfviewer = "internal" VIEWER_PDF = "internal"
rbPDFX_Change.Checked = False rbPDFX_Change.Checked = False
txtpdfxchange.Text = "" txtpdfxchange.Text = ""
rbSumatra.Checked = False rbSumatra.Checked = False
txtSumatra.Text = "" txtSumatra.Text = ""
rbSystem.Checked = False rbSystem.Checked = False
SaveMySettingsValue("vpdfviewer", vpdfviewer) CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
End If End If
End Sub End Sub
Sub Load_ConString(constr As String) Sub Load_ConString(constr As String)
If constr <> "" And constr.Contains("Password") Then If constr <> "" And constr.Contains("Password") Then
Dim csb As New SqlClient.SqlConnectionStringBuilder Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString csb.ConnectionString = CONNECTION_STRING
constr = constr.Replace(csb.Password, "XXXXX") constr = constr.Replace(csb.Password, "XXXXX")
End If End If
@@ -312,11 +342,14 @@ Public Class frmKonfig
End Sub End Sub
Private Sub txtIntervall_TextChanged(sender As Object, e As EventArgs) Handles txtIntervall.TextChanged Private Sub txtIntervall_TextChanged(sender As Object, e As EventArgs) Handles txtIntervall.TextChanged
' TODO: This is not used anywhere?
My.Settings.Save() My.Settings.Save()
End Sub End Sub
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
LogErrorsOnly = chkLogErrorsOnly.Checked LOG_ERRORS_ONLY = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", chkLogErrorsOnly.Checked) CONFIG.Config.LogErrorsOnly = LOG_ERRORS_ONLY
CONFIG.Save()
'SaveMySettingsValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
End Sub End Sub
End Class End Class

2
app/DD_PM_WINDREAM/frmLicense.vb
View File

@@ -81,7 +81,7 @@ Public Class frmLicense
Private Sub frmLicense_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmLicense_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try Try
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:")
End Try End Try

2
app/DD_PM_WINDREAM/frmLoginAdmin.vb
View File

@@ -4,7 +4,7 @@ Public Class frmLoginAdmin
Dim akt_pw As String Dim akt_pw As String
Private Sub frmLoginAdmin_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmLoginAdmin_Load(sender As Object, e As EventArgs) Handles Me.Load
Try Try
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
akt_pw = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminPW akt_pw = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminPW
Me.txtPW.Focus() Me.txtPW.Focus()
Me.txtPW.Text = "" Me.txtPW.Text = ""

28
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -60,7 +60,7 @@ Public Class frmMain
End Sub End Sub
Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If LogErrorsOnly = False Then ClassLogger.Add(" >> Initializing MainForm....", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Initializing MainForm....", False)
Try Try
UserLookAndFeel.Default.SetSkinStyle("VS2010") UserLookAndFeel.Default.SetSkinStyle("VS2010")
Catch ex As Exception Catch ex As Exception
@@ -75,8 +75,8 @@ Public Class frmMain
Try Try
If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then
ClassLogger.Add("## CurrentUICulture.Name: " & CultureInfo.CurrentUICulture.Name, False) ClassLogger.Add("## CurrentUICulture.Name: " & CultureInfo.CurrentUICulture.Name, False)
IDX_DMS_ERSTELLT = "DMS Created" INDEX_DMS_ERSTELLT = "DMS Created"
IDX_DMS_ERSTELLT_ZEIT = "DMS Created Time" INDEX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
My.Settings.Save() My.Settings.Save()
End If End If
Catch ex As Exception Catch ex As Exception
@@ -85,7 +85,7 @@ Public Class frmMain
If Refresh_ConnectionString() = True Then If Refresh_ConnectionString() = True Then
Try Try
tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT
If LogErrorsOnly = False Then ClassLogger.Add(" >> Initializing MainForm....", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Initializing MainForm....", False)
If ERROR_STATE = "NO USER" Then If ERROR_STATE = "NO USER" Then
MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close() Me.Close()
@@ -125,7 +125,7 @@ Public Class frmMain
End Try End Try
Try Try
If UniversalViewer = "" And Viewer = "uviewer" Then If VIEWER_UNIVERSAL = "" And VIEWER_ALL = "uviewer" Then
MsgBox("Definieren Sie wo UniversalViewer abgelegt wurde!", MsgBoxStyle.Critical, "Fehlende Konfiguration") MsgBox("Definieren Sie wo UniversalViewer abgelegt wurde!", MsgBoxStyle.Critical, "Fehlende Konfiguration")
frmKonfig.ShowDialog() frmKonfig.ShowDialog()
End If End If
@@ -154,7 +154,7 @@ Public Class frmMain
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> MainForm initialized!", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> MainForm initialized!", False)
End If End If
End Sub End Sub
@@ -193,10 +193,10 @@ Public Class frmMain
End Sub End Sub
Function Refresh_ConnectionString() Function Refresh_ConnectionString()
Try Try
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_USERTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Return True Return True
Catch ex As Exception Catch ex As Exception
@@ -822,7 +822,7 @@ Public Class frmMain
Try Try
Me.Visible = False Me.Visible = False
CURRENT_ProfilGUID = ID CURRENT_ProfilGUID = ID
CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, MyConnectionString) CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_RT = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND ACTIVE = 1", CURRENT_ProfilGUID)) CURRENT_DT_PROFILE_SEARCHES_RT = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND ACTIVE = 1", CURRENT_ProfilGUID))
My.Settings.Save() My.Settings.Save()
@@ -954,7 +954,7 @@ Public Class frmMain
WINDREAM = New ClassPMWindream() WINDREAM = New ClassPMWindream()
WINDREAM.Create_Session() WINDREAM.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add(" >> windream initialized", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> windream initialized", False)
Return True Return True
Catch ex As Exception Catch ex As Exception
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@@ -1150,7 +1150,7 @@ Public Class frmMain
Dim oindex As Integer = 0 Dim oindex As Integer = 0
If Not IsNothing(DTGRID_GROUPS) Then If Not IsNothing(DTGRID_GROUPS) Then
For Each oGridGroup As DataRow In DTGRID_GROUPS.Rows For Each oGridGroup As DataRow In DTGRID_GROUPS.Rows
If LogErrorsOnly = False Then ClassLogger.Add($" >> Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
GridView_Docs.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex GridView_Docs.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex
oindex += 1 oindex += 1
Next Next
@@ -1164,7 +1164,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For index = 0 To GridView_Docs.GroupCount - 1 For index = 0 To GridView_Docs.GroupCount - 1
Dim v = GridView_Docs.GroupedColumns(index).ToString Dim v = GridView_Docs.GroupedColumns(index).ToString
If LogErrorsOnly = False Then ClassLogger.Add($" >> Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID") GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
Next Next

58
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@@ -35,7 +35,7 @@ Public Class frmMassValidator
'_windreamPM.Create_Session() '_windreamPM.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add("windream initialized frmMassValidator", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add("windream initialized frmMassValidator", False)
Catch ex As Exception Catch ex As Exception
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@@ -53,7 +53,7 @@ Public Class frmMassValidator
End If End If
Try Try
DT_PROFILE_CONTROLS = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE CTRL_TYPE <> 'TABLE' AND SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = " & CURRENT_ProfilGUID) DT_PROFILE_CONTROLS = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE CTRL_TYPE <> 'TABLE' AND SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = " & CURRENT_ProfilGUID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Profile Data geladen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Profile Data geladen", False)
Catch ex As Exception Catch ex As Exception
MsgBox("Error LOADING profile-data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Error LOADING profile-data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
ClassLogger.Add(">> Fehler in LOADING profile-data: " & ex.Message, True) ClassLogger.Add(">> Fehler in LOADING profile-data: " & ex.Message, True)
@@ -94,7 +94,7 @@ Public Class frmMassValidator
tslblCountDocs.Text = "#Documents for MassChange: " & CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count tslblCountDocs.Text = "#Documents for MassChange: " & CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count
Next Next
If LogErrorsOnly = False Then If LOG_ERRORS_ONLY = False Then
ClassLogger.Add(" >> Profildaten gespeichert", False) ClassLogger.Add(" >> Profildaten gespeichert", False)
ClassLogger.Add(" >> WD_Search: " & WM_SEARCH, False) ClassLogger.Add(" >> WD_Search: " & WM_SEARCH, False)
ClassLogger.Add(" >> finalProfile: " & FINAL_PROFILE, False) ClassLogger.Add(" >> finalProfile: " & FINAL_PROFILE, False)
@@ -133,7 +133,7 @@ Public Class frmMassValidator
Select Case dr.Item("CTRL_TYPE").ToString.ToUpper Select Case dr.Item("CTRL_TYPE").ToString.ToUpper
Case "TXT" Case "TXT"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch TXT zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch TXT zu laden", False)
Dim txt As TextBox = ClassControlCreator.CreateExistingTextbox(dr, False) Dim txt As TextBox = ClassControlCreator.CreateExistingTextbox(dr, False)
AddHandler txt.GotFocus, AddressOf OnTextBoxFocus AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
@@ -142,10 +142,10 @@ Public Class frmMassValidator
ctrl = txt ctrl = txt
Case "LBL" Case "LBL"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch LBL zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch LBL zu laden", False)
ctrl = ClassControlCreator.CreateExistingLabel(dr, False) ctrl = ClassControlCreator.CreateExistingLabel(dr, False)
Case "CMB" Case "CMB"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch CMB zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch CMB zu laden", False)
Dim cmb = ClassControlCreator.CreateExistingCombobox(dr, False) Dim cmb = ClassControlCreator.CreateExistingCombobox(dr, False)
@@ -160,7 +160,7 @@ Public Class frmMassValidator
If CURR_CON_ID > 0 Then If CURR_CON_ID > 0 Then
Dim commandsql = CURR_SELECT_CONTROL Dim commandsql = CURR_SELECT_CONTROL
If commandsql <> "" Then If commandsql <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConID > 0 And commandsql <> ''", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> ConID > 0 And commandsql <> ''", False)
Dim connectionString As String Dim connectionString As String
Dim ConRow As DataRow() = ClassControlCreator.GET_CONNECTION_INFO(CURR_CON_ID) Dim ConRow As DataRow() = ClassControlCreator.GET_CONNECTION_INFO(CURR_CON_ID)
@@ -178,7 +178,7 @@ Public Class frmMassValidator
Else Else
connectionString = "Data Source=" & row("SERVER") & ";Initial Catalog= " & row("DATENBANK") & ";User Id=" & row("USERNAME") & ";Password=" & row("PASSWORD") & ";" connectionString = "Data Source=" & row("SERVER") & ";Initial Catalog= " & row("DATENBANK") & ";User Id=" & row("USERNAME") & ";Password=" & row("PASSWORD") & ";"
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnString Sql-Server: " & connectionString) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> ConnString Sql-Server: " & connectionString)
Case "oracle" Case "oracle"
CURR_SQL_PROVIDER = "oracle" CURR_SQL_PROVIDER = "oracle"
Dim conn As New OracleConnectionStringBuilder Dim conn As New OracleConnectionStringBuilder
@@ -240,11 +240,11 @@ Public Class frmMassValidator
End Try End Try
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Else Row 571", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Else Row 571", False)
End If End If
Else Else
If CURR_CHOICE_LIST <> "" Then If CURR_CHOICE_LIST <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & CURR_CHOICE_LIST, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & CURR_CHOICE_LIST, False)
Dim liste = WINDREAM.GetValuesfromAuswahlliste(CURR_CHOICE_LIST) Dim liste = WINDREAM.GetValuesfromAuswahlliste(CURR_CHOICE_LIST)
If liste IsNot Nothing Then If liste IsNot Nothing Then
cmb.Items.Add("") cmb.Items.Add("")
@@ -274,17 +274,17 @@ Public Class frmMassValidator
ctrl = cmb ctrl = cmb
Case "DTP" Case "DTP"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch DTP zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch DTP zu laden", False)
ctrl = ClassControlCreator.CreateExistingDatepicker(dr, False) ctrl = ClassControlCreator.CreateExistingDatepicker(dr, False)
Case "DGV" Case "DGV"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch DGV zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch DGV zu laden", False)
Dim dgv = ClassControlCreator.CreateExistingDataGridView(dr, False) Dim dgv = ClassControlCreator.CreateExistingDataGridView(dr, False)
AddHandler dgv.RowValidating, AddressOf onDGVRowValidating AddHandler dgv.RowValidating, AddressOf onDGVRowValidating
ctrl = dgv ctrl = dgv
Case "CHK" Case "CHK"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch Checkbox zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch Checkbox zu laden", False)
ctrl = ClassControlCreator.CreateExisingCheckbox(dr, False) ctrl = ClassControlCreator.CreateExisingCheckbox(dr, False)
'Case "TABLE" 'Case "TABLE"
@@ -301,7 +301,7 @@ Public Class frmMassValidator
' ctrl = ClassControlCreator.CreateExistingTable(dr, columns, False) ' ctrl = ClassControlCreator.CreateExistingTable(dr, columns, False)
Case "LINE" Case "LINE"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch Linie zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch Linie zu laden", False)
ctrl = ClassControlCreator.CreateExistingLine(dr, False) ctrl = ClassControlCreator.CreateExistingLine(dr, False)
End Select End Select
@@ -317,7 +317,7 @@ Public Class frmMassValidator
LoadSimpleData(ctrl, dr.Item("GUID")) LoadSimpleData(ctrl, dr.Item("GUID"))
Next Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Controls geladen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Controls geladen", False)
ClassLogger.Add("", False) ClassLogger.Add("", False)
CTRLS_Loaded = True CTRLS_Loaded = True
FillIndexValues() FillIndexValues()
@@ -354,7 +354,7 @@ Public Class frmMassValidator
Dim defaultValue As String = NotNull(controlRow.Item("DEFAULT_VALUE"), String.Empty) Dim defaultValue As String = NotNull(controlRow.Item("DEFAULT_VALUE"), String.Empty)
indexname = idxname indexname = idxname
Dim LoadIDX As Boolean = controlRow.Item("LOAD_IDX_VALUE") Dim LoadIDX As Boolean = controlRow.Item("LOAD_IDX_VALUE")
If LogErrorsOnly = False Then ClassLogger.Add(" >> INDEX: " & idxname & " - CONTROLNAME: " & inctrl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> INDEX: " & idxname & " - CONTROLNAME: " & inctrl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString, False)
Dim wertWD Dim wertWD
Select Case Type Select Case Type
Case "System.Windows.Forms.TextBox" Case "System.Windows.Forms.TextBox"
@@ -368,7 +368,7 @@ Public Class frmMassValidator
If LoadIDX = False Or idxname = "DD PM-ONLY FOR DISPLAY" Then If LoadIDX = False Or idxname = "DD PM-ONLY FOR DISPLAY" Then
' Wenn kein Index exisitiert, defaultValue laden ' Wenn kein Index exisitiert, defaultValue laden
inctrl.Text = defaultValue inctrl.Text = defaultValue
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select Exit Select
End If End If
@@ -404,7 +404,7 @@ Public Class frmMassValidator
Else Else
cmb.Text = defaultValue cmb.Text = defaultValue
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select Exit Select
End If End If
wertWD = GetWM_Value_Multiple_Docs(idxname) wertWD = GetWM_Value_Multiple_Docs(idxname)
@@ -428,7 +428,7 @@ Public Class frmMassValidator
End If End If
If idxname Is Nothing = False Then If idxname Is Nothing = False Then
If LoadIDX = False Then If LoadIDX = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select Exit Select
End If End If
@@ -501,7 +501,7 @@ Public Class frmMassValidator
Dim chk As CheckBox = inctrl Dim chk As CheckBox = inctrl
If LoadIDX = False Then If LoadIDX = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
If defaultValue <> String.Empty Then If defaultValue <> String.Empty Then
Dim result Dim result
@@ -531,7 +531,7 @@ Public Class frmMassValidator
Else Else
Dim _value Dim _value
If wertWD.ToString = "System.Object[]" Then If wertWD.ToString = "System.Object[]" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> CheckBoxValue with VektorField: " & idxname, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> CheckBoxValue with VektorField: " & idxname, False)
If wertWD.length = 1 Then If wertWD.length = 1 Then
_value = wertWD(0) _value = wertWD(0)
Else ' Else '
@@ -599,7 +599,7 @@ Public Class frmMassValidator
tempIndexValue = WMDOC.GetVariableValue(idxname) tempIndexValue = WMDOC.GetVariableValue(idxname)
If IsNothing(tempIndexValue) Then tempIndexValue = "" If IsNothing(tempIndexValue) Then tempIndexValue = ""
If tempIndexValue.ToString = "System.Object[]" Then If tempIndexValue.ToString = "System.Object[]" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> TextBox with VektorField: " & idxname, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> TextBox with VektorField: " & idxname, False)
If tempIndexValue.Length = 1 Then If tempIndexValue.Length = 1 Then
tempIndexValue = tempIndexValue(0) tempIndexValue = tempIndexValue(0)
Else ' Else '
@@ -956,7 +956,7 @@ Public Class frmMassValidator
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente For Each element As System.Text.RegularExpressions.Match In elemente
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX WORK_HISTORY_ENTRY: " & element.Value, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> element in RegeX WORK_HISTORY_ENTRY: " & element.Value, False)
Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3) Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3)
CTRL_ID = CTRL_ID.Replace("CTRLID", "") CTRL_ID = CTRL_ID.Replace("CTRLID", "")
Dim value_from_control Dim value_from_control
@@ -1119,7 +1119,7 @@ Public Class frmMassValidator
Dim ctrl = dr.Item("NAME") Dim ctrl = dr.Item("NAME")
'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist
If dr.Item("NAME") = inctrl.Name And (_READ_ONLY = False Or dr.Item("SQL_UEBERPRUEFUNG") <> "") And _IDXName <> "DD PM-ONLY FOR DISPLAY" Then If dr.Item("NAME") = inctrl.Name And (_READ_ONLY = False Or dr.Item("SQL_UEBERPRUEFUNG") <> "") And _IDXName <> "DD PM-ONLY FOR DISPLAY" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung für Control (" & CONTROL_ID & ") '" & ctrl & "' gestartet. Indexname '" & _IDXName & "'", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexierung für Control (" & CONTROL_ID & ") '" & ctrl & "' gestartet. Indexname '" & _IDXName & "'", False)
If _IDXName = "" Then If _IDXName = "" Then
ClassLogger.Add(" >> Indexname is unexpected empty.", False) ClassLogger.Add(" >> Indexname is unexpected empty.", False)
Continue For Continue For
@@ -1247,7 +1247,7 @@ Public Class frmMassValidator
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> DateValue is 01.01.0001 00:00:00", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> DateValue is 01.01.0001 00:00:00", False)
End If End If
Case "System.Windows.Forms.CheckBox" Case "System.Windows.Forms.CheckBox"
Dim chk As CheckBox = inctrl Dim chk As CheckBox = inctrl
@@ -1404,7 +1404,7 @@ Public Class frmMassValidator
'Das Array der Idnexwerte überprüfen 'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False Then If idxvalue Is Nothing = False Then
If idxvalue.Length() > 1 Then If idxvalue.Length() > 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
Dim anzahl As Integer = 0 Dim anzahl As Integer = 0
For Each indexvalue As String In idxvalue For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl) ReDim Preserve arrValue(anzahl)
@@ -1412,7 +1412,7 @@ Public Class frmMassValidator
anzahl += 1 anzahl += 1
Next Next
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
ReDim Preserve arrValue(0) ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString arrValue(0) = idxvalue(0).ToString
End If End If
@@ -1498,7 +1498,7 @@ Public Class frmMassValidator
'Das Array der Idnexwerte überprüfen 'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False Then If idxvalue Is Nothing = False Then
If idxvalue.Length() > 1 Then If idxvalue.Length() > 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
Dim anzahl As Integer = 0 Dim anzahl As Integer = 0
For Each indexvalue As String In idxvalue For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl) ReDim Preserve arrValue(anzahl)
@@ -1506,7 +1506,7 @@ Public Class frmMassValidator
anzahl += 1 anzahl += 1
Next Next
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
ReDim Preserve arrValue(0) ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString arrValue(0) = idxvalue(0).ToString
End If End If

6
app/DD_PM_WINDREAM/frmSQL_Admin.vb
View File

@@ -19,7 +19,7 @@ Public Class frmSQL_Admin
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim connection As New SqlClient.SqlConnection(MyConnectionString) 'csb.ConnectionString) Dim connection As New SqlClient.SqlConnection(CONNECTION_STRING) 'csb.ConnectionString)
connection.Open() connection.Open()
Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection) Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection)
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
@@ -38,7 +38,7 @@ Public Class frmSQL_Admin
End Sub End Sub
Sub Load_ConString(constr As String) Sub Load_ConString(constr As String)
Dim csb As New SqlClient.SqlConnectionStringBuilder Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString csb.ConnectionString = CONNECTION_STRING
If csb.Password.Length > 0 Then If csb.Password.Length > 0 Then
constr = constr.Replace(csb.Password, "XXXXX") constr = constr.Replace(csb.Password, "XXXXX")
End If End If
@@ -66,7 +66,7 @@ Public Class frmSQL_Admin
End Sub End Sub
Private Sub frmSQL_Admin_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmSQL_Admin_Load(sender As Object, e As EventArgs) Handles Me.Load
Load_ConString(MyConnectionString) Load_ConString(CONNECTION_STRING)
End Sub End Sub
Private Sub txtSQL_KeyPress_1(sender As Object, e As KeyPressEventArgs) Handles txtSQL.KeyPress Private Sub txtSQL_KeyPress_1(sender As Object, e As KeyPressEventArgs) Handles txtSQL.KeyPress

6
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@@ -35,9 +35,9 @@ Public Class frmSQL_DESIGNER
Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
lblSaveFinalIndex.Visible = False lblSaveFinalIndex.Visible = False
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), True) CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), True)
@@ -183,7 +183,7 @@ Public Class frmSQL_DESIGNER
Return dataset Return dataset
Else Else
If LogErrorsOnly = True Then ClassLogger.Add(" >> It's an Oracle-Connection (ExecuteWithConnection)", False) If LOG_ERRORS_ONLY = True Then ClassLogger.Add(" >> It's an Oracle-Connection (ExecuteWithConnection)", False)
Dim sqlConnection As OracleConnection Dim sqlConnection As OracleConnection
Dim sqlCommand As OracleCommand Dim sqlCommand As OracleCommand
Dim sqlAdapter As New OracleDataAdapter Dim sqlAdapter As New OracleDataAdapter

4
app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb
View File

@@ -163,7 +163,7 @@ Public Class frmUserKonfig_AddUsers
If Not UserExists(USERNAME) Then If Not UserExists(USERNAME) Then
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "','" & USER_USERNAME & "')" SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "','" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(SQL, False) = True Then If ClassDatabase.Execute_non_Query(SQL, False) = True Then
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", MyConnectionString) Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", CONNECTION_STRING)
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME) Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME)
ClassLogger.Add(msg, False) ClassLogger.Add(msg, False)
SQL = String.Format("INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES ({0},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'PM'))", ID) SQL = String.Format("INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES ({0},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'PM'))", ID)
@@ -198,7 +198,7 @@ Public Class frmUserKonfig_AddUsers
Private Function UserExists(username As String) As Boolean Private Function UserExists(username As String) As Boolean
Try Try
Dim SQL = "SELECT GUID FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')" Dim SQL = "SELECT GUID FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')"
If ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) = Nothing Then If ClassDatabase.Execute_Scalar(SQL, CONNECTION_STRING, True) = Nothing Then
Return False Return False
Else Else
Return True Return True

341
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -100,7 +100,7 @@ Public Class frmValidator
End Try End Try
Select Case Path.GetExtension(Windream_Document_Path).ToLower Select Case Path.GetExtension(Windream_Document_Path).ToLower
Case ".pdf" Case ".pdf"
Select Case vpdfviewer Select Case VIEWER_PDF
Case "internal" Case "internal"
My.Settings.frmValidation_Size_PDFViewer = Me.Size My.Settings.frmValidation_Size_PDFViewer = Me.Size
Case "pdfxchange" Case "pdfxchange"
@@ -133,11 +133,11 @@ Public Class frmValidator
End Try End Try
End If End If
If Viewer = "docview" Then If VIEWER_ALL = "docview" Then
CloseWDDocview() CloseWDDocview()
End If End If
If vpdfviewer = "system" Then If VIEWER_PDF = "system" Then
Kill_PDFAcrobat() Kill_PDFAcrobat()
Else Else
If pdfxchange = True Or sumatra = True Then If pdfxchange = True Or sumatra = True Then
@@ -227,9 +227,9 @@ Public Class frmValidator
'End Function 'End Function
Sub Close_PDF_Viewer(vorherigefile As String) Sub Close_PDF_Viewer(vorherigefile As String)
Try Try
If vpdfviewer = "pdfxchange" Then If VIEWER_PDF = "pdfxchange" Then
Dim Proc As New System.Diagnostics.Process Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(PDFXChangeViewer, "/Close:save """ & vorherigefile & """") Dim psi As New ProcessStartInfo(VIEWER_XCHANGE, "/Close:save """ & vorherigefile & """")
psi.WindowStyle = ProcessWindowStyle.Minimized psi.WindowStyle = ProcessWindowStyle.Minimized
psi.UseShellExecute = True psi.UseShellExecute = True
Proc.StartInfo = psi Proc.StartInfo = psi
@@ -248,7 +248,7 @@ Public Class frmValidator
' End If ' End If
'Loop 'Loop
End If End If
If vpdfviewer = "sumatra" Then If VIEWER_PDF = "sumatra" Then
Try Try
Dim Proc As New System.Diagnostics.Process Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo("taskkill.exe", "/im SumatraPDF.exe") Dim psi As New ProcessStartInfo("taskkill.exe", "/im SumatraPDF.exe")
@@ -262,7 +262,7 @@ Public Class frmValidator
End Try End Try
End If End If
If vpdfviewer = "system" Then If VIEWER_PDF = "system" Then
Kill_PDFAcrobat() Kill_PDFAcrobat()
pdfxchange = False pdfxchange = False
sumatra = False sumatra = False
@@ -280,7 +280,7 @@ Public Class frmValidator
'_windreamPM.Create_Session() '_windreamPM.Create_Session()
'_windream = New ClassWindream_allgemein '_windream = New ClassWindream_allgemein
'_windream.Create_Session() '_windream.Create_Session()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream initiiert", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Windream initiiert", False)
Return True Return True
Catch ex As Exception Catch ex As Exception
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@@ -312,15 +312,15 @@ Public Class frmValidator
Dim _step = 0 Dim _step = 0
Try Try
_step = 1 _step = 1
TBPM_FILES_USER_NOT_INDEXEDTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_FILES_USER_NOT_INDEXEDTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
VWPM_CONTROL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString VWPM_CONTROL_INDEXTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
_step = 2 _step = 2
VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName) VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName)
_step = 3 _step = 3
@@ -328,7 +328,7 @@ Public Class frmValidator
_step = 4 _step = 4
TBPM_CONTROL_TABLETableAdapter.FillAll(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE) TBPM_CONTROL_TABLETableAdapter.FillAll(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Profile Data geladen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Profile Data geladen", False)
Catch ex As Exception Catch ex As Exception
MsgBox("Error LOADING profile-data(" & _step.ToString & "):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Error LOADING profile-data(" & _step.ToString & "):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING profile-data: " & ex.Message, Environment.UserName) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error LOADING profile-data: " & ex.Message, Environment.UserName)
@@ -378,7 +378,7 @@ Public Class frmValidator
Else Else
btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)" btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)"
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Final profile Text geladen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Final profile Text geladen", False)
Catch ex As Exception Catch ex As Exception
MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error loading final profile text: " & ex.Message, Environment.UserName) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error loading final profile text: " & ex.Message, Environment.UserName)
@@ -394,7 +394,7 @@ Public Class frmValidator
End If End If
Next Next
If LogErrorsOnly = False Then If LOG_ERRORS_ONLY = False Then
ClassLogger.Add(" >> Profildaten gespeichert", False) ClassLogger.Add(" >> Profildaten gespeichert", False)
ClassLogger.Add(" >> WD_Search: " & WD_Search, False) ClassLogger.Add(" >> WD_Search: " & WD_Search, False)
ClassLogger.Add(" >> finalProfile: " & finalProfile, False) ClassLogger.Add(" >> finalProfile: " & finalProfile, False)
@@ -403,7 +403,7 @@ Public Class frmValidator
End If End If
PROFIL_sortbynewest = CURRENT_DT_PROFILE.Rows(0).Item("SORT_BY_LATEST") PROFIL_sortbynewest = CURRENT_DT_PROFILE.Rows(0).Item("SORT_BY_LATEST")
If LogErrorsOnly = False Then ClassLogger.Add(" >> PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString, False)
'Delete Button anzeigen ja/nein 'Delete Button anzeigen ja/nein
If USER_RIGHT_FILE_DELETE = True Then If USER_RIGHT_FILE_DELETE = True Then
ToolStripButtonDeleteFile.Enabled = True ToolStripButtonDeleteFile.Enabled = True
@@ -411,7 +411,7 @@ Public Class frmValidator
ToolStripButtonDeleteFile.Enabled = False ToolStripButtonDeleteFile.Enabled = False
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString, False)
Load_Controls() Load_Controls()
@@ -461,7 +461,7 @@ Public Class frmValidator
sql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) sql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
sql = clsPatterns.ReplaceInternalValues(sql) sql = clsPatterns.ReplaceInternalValues(sql)
If LogErrorsOnly = False Then ClassLogger.Add(">>> sql after ReplaceInternalValues: " & sql, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> sql after ReplaceInternalValues: " & sql, False)
'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement)
dt = ClassDatabase.Return_Datatable(sql) dt = ClassDatabase.Return_Datatable(sql)
@@ -532,9 +532,9 @@ Public Class frmValidator
Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper
Case "TXT" Case "TXT"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch TXT zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch TXT zu laden", False)
Dim txt As TextBox = ClassControlCreator.CreateExistingTextbox(oControlRow, False) Dim txt As TextBox = ClassControlCreator.CreateExistingTextbox(oControlRow, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> TXT wurde geladen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> TXT wurde geladen", False)
AddHandler txt.GotFocus, AddressOf OnTextBoxFocus AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus
@@ -542,10 +542,10 @@ Public Class frmValidator
ctrl = txt ctrl = txt
Case "LBL" Case "LBL"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch LBL zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch LBL zu laden", False)
ctrl = ClassControlCreator.CreateExistingLabel(oControlRow, False) ctrl = ClassControlCreator.CreateExistingLabel(oControlRow, False)
Case "CMB" Case "CMB"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch CMB zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch CMB zu laden", False)
Dim cmb = ClassControlCreator.CreateExistingCombobox(oControlRow, False) Dim cmb = ClassControlCreator.CreateExistingCombobox(oControlRow, False)
@@ -554,15 +554,15 @@ Public Class frmValidator
#Region "CONTROL LIST" #Region "CONTROL LIST"
Dim ControlID = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(CURRENT_ProfilGUID, cmb.Name) Dim ControlID = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetGUID(CURRENT_ProfilGUID, cmb.Name)
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - GUID: " & ControlID, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> In add_ComboBox - GUID: " & ControlID, False)
If ControlID > 0 Then If ControlID > 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >>ControlID > 0", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >>ControlID > 0", False)
Dim ConID = Me.TBPM_PROFILE_CONTROLSTableAdapter.cmdgetConnectionID(ControlID) Dim ConID = Me.TBPM_PROFILE_CONTROLSTableAdapter.cmdgetConnectionID(ControlID)
If ConID Is Nothing = False Then If ConID Is Nothing = False Then
Dim commandsql = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID) Dim commandsql = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConID Is Nothing = False", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> ConID Is Nothing = False", False)
If ConID > 0 And commandsql <> "" Then If ConID > 0 And commandsql <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> CConID > 0 And TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID)", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> CConID > 0 And TBPM_PROFILE_CONTROLSTableAdapter.cmdGetSQL(ControlID)", False)
Dim connectionString As String Dim connectionString As String
TBDD_CONNECTIONTableAdapter.FillByID(DD_DMSLiteDataSet.TBDD_CONNECTION, ConID) TBDD_CONNECTIONTableAdapter.FillByID(DD_DMSLiteDataSet.TBDD_CONNECTION, ConID)
Dim DTConnection As DataTable = DD_DMSLiteDataSet.TBDD_CONNECTION Dim DTConnection As DataTable = DD_DMSLiteDataSet.TBDD_CONNECTION
@@ -575,7 +575,7 @@ Public Class frmValidator
Else Else
connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";" connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnString Sql-Server: " & connectionString, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> ConnString Sql-Server: " & connectionString, False)
Case "oracle" Case "oracle"
Dim conn As New OracleConnectionStringBuilder Dim conn As New OracleConnectionStringBuilder
Dim connstr As String Dim connstr As String
@@ -615,7 +615,7 @@ Public Class frmValidator
If clsPatterns.HasOnlySimplePatterns(sql) Then If clsPatterns.HasOnlySimplePatterns(sql) Then
sql = clsPatterns.ReplaceInternalValues(sql) sql = clsPatterns.ReplaceInternalValues(sql)
sql = clsPatterns.ReplaceControlValues(sql, pnldesigner) sql = clsPatterns.ReplaceControlValues(sql, pnldesigner)
If LogErrorsOnly = False Then ClassLogger.Add(">>> sql after HasOnlySimplePatterns: " & sql, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> sql after HasOnlySimplePatterns: " & sql, False)
sqlCnn = New SqlClient.SqlConnection(connectionString) sqlCnn = New SqlClient.SqlConnection(connectionString)
' Try ' Try
sqlCnn.Open() sqlCnn.Open()
@@ -636,12 +636,12 @@ Public Class frmValidator
End Try End Try
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Else Row 571", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Else Row 571", False)
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> AListe Handling", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> AListe Handling", False)
Dim AListe As String = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetChoiceListName(ControlID) Dim AListe As String = TBPM_PROFILE_CONTROLSTableAdapter.cmdGetChoiceListName(ControlID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & AListe, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> In add_ComboBox - AListe: " & AListe, False)
If AListe Is Nothing = False Then If AListe Is Nothing = False Then
'Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe) 'Dim liste = _windreamPM.GetValuesfromAuswahlliste(AListe)
Dim liste = WINDREAM.GetValuesfromAuswahlliste(AListe) Dim liste = WINDREAM.GetValuesfromAuswahlliste(AListe)
@@ -679,12 +679,12 @@ Public Class frmValidator
'add_ComboBox(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"), 'add_ComboBox(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"),
Case "DTP" Case "DTP"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch DTP zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch DTP zu laden", False)
ctrl = ClassControlCreator.CreateExistingDatepicker(oControlRow, False) ctrl = ClassControlCreator.CreateExistingDatepicker(oControlRow, False)
'add_DTP(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"), 'add_DTP(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"),
Case "DGV" Case "DGV"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch DGV zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch DGV zu laden", False)
Dim dgv = ClassControlCreator.CreateExistingDataGridView(oControlRow, False) Dim dgv = ClassControlCreator.CreateExistingDataGridView(oControlRow, False)
AddHandler dgv.RowValidating, AddressOf onDGVRowValidating AddHandler dgv.RowValidating, AddressOf onDGVRowValidating
@@ -692,7 +692,7 @@ Public Class frmValidator
ctrl = dgv ctrl = dgv
Case "LOOKUP" Case "LOOKUP"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch LOOKUP zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch LOOKUP zu laden", False)
Dim lookup As LookupControl = ClassControlCreator.CreateExistingLookupControl(oControlRow, False) Dim lookup As LookupControl = ClassControlCreator.CreateExistingLookupControl(oControlRow, False)
lookup.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES") lookup.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
@@ -707,12 +707,12 @@ Public Class frmValidator
'add_DGV(dr.Item("GUID"), dr.Item("CTRL_NAME"), dr.Item("HEIGHT"), dr.Item("WIDTH"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"), 'add_DGV(dr.Item("GUID"), dr.Item("CTRL_NAME"), dr.Item("HEIGHT"), dr.Item("WIDTH"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"),
Case "CHK" Case "CHK"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch Checkbox zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch Checkbox zu laden", False)
ctrl = ClassControlCreator.CreateExisingCheckbox(oControlRow, False) ctrl = ClassControlCreator.CreateExisingCheckbox(oControlRow, False)
'add_Checkbox(dr.Item("GUID"), dr.Item("CTRL_NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'add_Checkbox(dr.Item("GUID"), dr.Item("CTRL_NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE"))
Case "TABLE" Case "TABLE"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch Tabelle zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch Tabelle zu laden", False)
Dim columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow) = (From r As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In DD_DMSLiteDataSet.TBPM_CONTROL_TABLE Dim columns As List(Of DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow) = (From r As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In DD_DMSLiteDataSet.TBPM_CONTROL_TABLE
Where r.CONTROL_ID = oControlRow.Item("GUID") Where r.CONTROL_ID = oControlRow.Item("GUID")
@@ -721,7 +721,7 @@ Public Class frmValidator
ctrl = ClassControlCreator.CreateExistingTable(oControlRow, columns, False) ctrl = ClassControlCreator.CreateExistingTable(oControlRow, columns, False)
'add_TABLE(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("WIDTH"), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY")) 'add_TABLE(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("WIDTH"), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"))
Case "LINE" Case "LINE"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch Linie zu laden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch Linie zu laden", False)
ctrl = ClassControlCreator.CreateExistingLine(oControlRow, False) ctrl = ClassControlCreator.CreateExistingLine(oControlRow, False)
End Select End Select
@@ -737,11 +737,11 @@ Public Class frmValidator
LoadSimpleData(ctrl, oControlRow.Item("GUID")) LoadSimpleData(ctrl, oControlRow.Item("GUID"))
Next Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Controls geladen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Controls geladen", False)
ClassLogger.Add("", False) ClassLogger.Add("", False)
Catch ex As Exception Catch ex As Exception
If LogErrorsOnly = False Then MsgBox("Error Load_Controls: " & ex.Message, MsgBoxStyle.Critical, "Attention error:") If LOG_ERRORS_ONLY = False Then MsgBox("Error Load_Controls: " & ex.Message, MsgBoxStyle.Critical, "Attention error:")
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error Load_Controls: " & ex.Message, Environment.UserName) allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error Load_Controls: " & ex.Message, Environment.UserName)
ClassLogger.Add("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message) ClassLogger.Add("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message)
ClassLogger.Add("", False) ClassLogger.Add("", False)
@@ -803,7 +803,7 @@ Public Class frmValidator
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
If LogErrorsOnly = False Then ClassLogger.Add(">>> sql after ReplaceAllValues: " & sql, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> sql after ReplaceAllValues: " & sql, False)
'' Regulären Ausdruck zum Auslesen der Indexe definieren '' Regulären Ausdruck zum Auslesen der Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden '' einen Regulären Ausdruck laden
@@ -929,7 +929,7 @@ Public Class frmValidator
sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
_Step = 3 _Step = 3
If LogErrorsOnly = False Then ClassLogger.Add(">>> sql after ReplaceAllValues: " & sql, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> sql after ReplaceAllValues: " & sql, False)
'' Regulären Ausdruck zum Auslesen der Indexe definieren '' Regulären Ausdruck zum Auslesen der Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden '' einen Regulären Ausdruck laden
@@ -1040,7 +1040,7 @@ Public Class frmValidator
If dr.Item("PROFIL_ID") = CURRENT_ProfilGUID And dr.Item("CTRL_NAME") = control.Name Then If dr.Item("PROFIL_ID") = CURRENT_ProfilGUID And dr.Item("CTRL_NAME") = control.Name Then
Dim check = dr.Item("SQL_UEBERPRUEFUNG") Dim check = dr.Item("SQL_UEBERPRUEFUNG")
If IsDBNull(check) Then If IsDBNull(check) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL Check is not configured!", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> SQL Check is not configured!", False)
Return True Return True
End If End If
If check.ToString.Length > 0 And dr.Item("INDEX_NAME") <> "DD PM-ONLY FOR DISPLAY" Then If check.ToString.Length > 0 And dr.Item("INDEX_NAME") <> "DD PM-ONLY FOR DISPLAY" Then
@@ -1066,7 +1066,7 @@ Public Class frmValidator
Try Try
KillU_Viewer() KillU_Viewer()
Dim Proc As New System.Diagnostics.Process Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(UniversalViewer, """" & AktuelleIndexfile & """") Dim psi As New ProcessStartInfo(VIEWER_UNIVERSAL, """" & AktuelleIndexfile & """")
psi.WindowStyle = ProcessWindowStyle.Minimized psi.WindowStyle = ProcessWindowStyle.Minimized
Proc.EnableRaisingEvents = True Proc.EnableRaisingEvents = True
Proc.StartInfo = psi Proc.StartInfo = psi
@@ -1092,14 +1092,14 @@ Public Class frmValidator
Sub Open_PDFXCHANGE(AktuelleIndexfile As String) Sub Open_PDFXCHANGE(AktuelleIndexfile As String)
Try Try
Dim Proc As New Process Dim Proc As New Process
Dim psi As New ProcessStartInfo(PDFXChangeViewer, """" & AktuelleIndexfile & """") Dim psi As New ProcessStartInfo(VIEWER_XCHANGE, """" & AktuelleIndexfile & """")
psi.WindowStyle = ProcessWindowStyle.Minimized psi.WindowStyle = ProcessWindowStyle.Minimized
Proc.EnableRaisingEvents = True Proc.EnableRaisingEvents = True
psi.UseShellExecute = False psi.UseShellExecute = False
Proc.StartInfo = psi Proc.StartInfo = psi
Proc.Start() Proc.Start()
Do While process_User_exists(PDFXChangeViewer, "START") = False Do While process_User_exists(VIEWER_XCHANGE, "START") = False
'Warten bis PDF geladen ist 'Warten bis PDF geladen ist
Thread.Sleep(500) Thread.Sleep(500)
Loop Loop
@@ -1112,7 +1112,7 @@ Public Class frmValidator
Sub Open_Sumatra(AktuelleIndexfile As String) Sub Open_Sumatra(AktuelleIndexfile As String)
Try Try
Dim Proc As New System.Diagnostics.Process Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo(SumatraViewer, """" & AktuelleIndexfile & """") Dim psi As New ProcessStartInfo(VIEWER_SUMATRA, """" & AktuelleIndexfile & """")
psi.WindowStyle = ProcessWindowStyle.Minimized psi.WindowStyle = ProcessWindowStyle.Minimized
Proc.EnableRaisingEvents = True Proc.EnableRaisingEvents = True
psi.UseShellExecute = False psi.UseShellExecute = False
@@ -1156,13 +1156,13 @@ Public Class frmValidator
{IIf(OrderByNewest, " ORDER BY DMS_ERSTELLT_DATE DESC", "")} {IIf(OrderByNewest, " ORDER BY DMS_ERSTELLT_DATE DESC", "")}
" "
Return ClassDatabase.Execute_Scalar(oSQL, MyConnectionString, True) Return ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, True)
End Function End Function
Function Get_Next_GUID() As Integer Function Get_Next_GUID() As Integer
Try Try
Dim newGUID As Integer Dim newGUID As Integer
If LogErrorsOnly = False Then ClassLogger.Add(" >> Old Document_Path: " & OLD_Document_Path, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Old Document_Path: " & OLD_Document_Path, False)
'If PROFIL_sortbynewest = True Then 'If PROFIL_sortbynewest = True Then
' newGUID = TBPM_PROFILE_FILESTableAdapter.cmdgetNextFile_GUID_Newest(CURRENT_ProfilGUID, OLD_Document_Path, Environment.UserName) ' newGUID = TBPM_PROFILE_FILESTableAdapter.cmdgetNextFile_GUID_Newest(CURRENT_ProfilGUID, OLD_Document_Path, Environment.UserName)
'Else 'Else
@@ -1174,7 +1174,7 @@ Public Class frmValidator
Windream_Document_Path = "" Windream_Document_Path = ""
CURRENT_DOC_PATH = "" CURRENT_DOC_PATH = ""
If newGUID > 0 Then If newGUID > 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> newGUID: " & newGUID.ToString, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> newGUID: " & newGUID.ToString, False)
Windream_Document_Path = TBPM_PROFILE_FILESTableAdapter.CmdGetFilePath_2_GUID(newGUID) Windream_Document_Path = TBPM_PROFILE_FILESTableAdapter.CmdGetFilePath_2_GUID(newGUID)
Windream_Document_Path = Windream_Document_Path.Replace("W:", "\\windream\objects") Windream_Document_Path = Windream_Document_Path.Replace("W:", "\\windream\objects")
Windream_Document_Path = Windream_Document_Path.Replace("K:", "\\windream\objects") Windream_Document_Path = Windream_Document_Path.Replace("K:", "\\windream\objects")
@@ -1182,9 +1182,9 @@ Public Class frmValidator
Filesystem_Document_Path = GetFilesystemDocumentPath(Windream_Document_Path) Filesystem_Document_Path = GetFilesystemDocumentPath(Windream_Document_Path)
CURRENT_DOC_PATH = Windream_Document_Path CURRENT_DOC_PATH = Windream_Document_Path
If LogErrorsOnly = False Then ClassLogger.Add(" >> Document_Path: " & Windream_Document_Path, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Document_Path: " & Windream_Document_Path, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Überprüfen ob File existiert?", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Überprüfen ob File existiert?", False)
Dim i As Integer = 0 Dim i As Integer = 0
Do While allgFunk.file_exists(Windream_Document_Path, _windream) = False And newGUID <> 0 Do While allgFunk.file_exists(Windream_Document_Path, _windream) = False And newGUID <> 0
i = i + 1 i = i + 1
@@ -1251,7 +1251,7 @@ Public Class frmValidator
File.Delete(CURRENT_HTML_DOC) File.Delete(CURRENT_HTML_DOC)
End If End If
End If End If
If pdfxchange = True Or sumatra = True Or vpdfviewer = "system" Then If pdfxchange = True Or sumatra = True Or VIEWER_PDF = "system" Then
Close_PDF_Viewer(Windream_Document_Path) Close_PDF_Viewer(Windream_Document_Path)
End If End If
If aktivesDokument Is Nothing = False Then If aktivesDokument Is Nothing = False Then
@@ -1280,7 +1280,7 @@ Public Class frmValidator
Sub Load_Next_Document(first As Boolean) Sub Load_Next_Document(first As Boolean)
aktivesDokument = Nothing aktivesDokument = Nothing
If LogErrorsOnly = False Then ClassLogger.Add(" >> aktivesDokument nothing gesetzt", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> aktivesDokument nothing gesetzt", False)
activate_controls(False) activate_controls(False)
errmessage = "" errmessage = ""
Windream_Document_Path = "" Windream_Document_Path = ""
@@ -1290,13 +1290,13 @@ Public Class frmValidator
'Me.lblerror.Visible = False 'Me.lblerror.Visible = False
_Indexe_Loaded = False _Indexe_Loaded = False
If LogErrorsOnly = False Then ClassLogger.Add(" >> In Load_Next_Document", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> In Load_Next_Document", False)
Try Try
If first = True Then If first = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> First Document", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> First Document", False)
aktivesDokument = Nothing aktivesDokument = Nothing
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Following Document ", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Following Document ", False)
docCounter += 1 docCounter += 1
End If End If
@@ -1318,7 +1318,7 @@ Public Class frmValidator
Filesystem_Document_Path = GetFilesystemDocumentPath(Windream_Document_Path) Filesystem_Document_Path = GetFilesystemDocumentPath(Windream_Document_Path)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'", False)
If CURRENT_DOC_GUID > 0 Then If CURRENT_DOC_GUID > 0 Then
'Beschriftung des Navigators 'Beschriftung des Navigators
'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files" 'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files"
@@ -1359,10 +1359,10 @@ Public Class frmValidator
End Try End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream-Dokument geladen und gelockt", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Windream-Dokument geladen und gelockt", False)
errmessage = Windream_get_Doc_info() errmessage = Windream_get_Doc_info()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream-Dok Info geholt", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Windream-Dok Info geholt", False)
If errmessage = "" Then If errmessage = "" Then
Me.grpbxMailBody.Visible = False Me.grpbxMailBody.Visible = False
Me.grpBetreff.Visible = False Me.grpBetreff.Visible = False
@@ -1375,13 +1375,13 @@ Public Class frmValidator
ToolStripButtonAnnotation.Visible = False ToolStripButtonAnnotation.Visible = False
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Viewer geladen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Viewer geladen", False)
FillIndexValues() FillIndexValues()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexmaske geladen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexmaske geladen", False)
If LogErrorsOnly = False Then ClassLogger.Add("", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add("", False)
'Nun im Vektoprindex loggen das das Profil geladen wurde 'Nun im Vektoprindex loggen das das Profil geladen wurde
'If PROFIL_VEKTORINDEX <> "" Then 'If PROFIL_VEKTORINDEX <> "" Then
@@ -1399,7 +1399,7 @@ Public Class frmValidator
If PROFIL_LOGINDEX <> "" Then If PROFIL_LOGINDEX <> "" Then
Dim Profilstring = "DD-PMlog" & Delimiter & "In Profil: '" & CURRENT_ProfilName & "' geladen" & Delimiter & Environment.UserName & Delimiter & Now.ToString Dim Profilstring = "DD-PMlog" & Delimiter & "In Profil: '" & CURRENT_ProfilName & "' geladen" & Delimiter & Environment.UserName & Delimiter & Now.ToString
If Indexiere_VektorfeldPM(Profilstring, PROFIL_LOGINDEX) = False Then If Indexiere_VektorfeldPM(Profilstring, PROFIL_LOGINDEX) = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Profilname erfolgreich in Vektorfeld LOG geschrieben", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Profilname erfolgreich in Vektorfeld LOG geschrieben", False)
'Else 'Else
' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' My.Settings.Save() ' My.Settings.Save()
@@ -1438,7 +1438,7 @@ Public Class frmValidator
End Try End Try
End Sub End Sub
Sub load_viewer() Sub load_viewer()
If Viewer = "uviewer" Then If VIEWER_ALL = "uviewer" Then
pdfxchange = False pdfxchange = False
sumatra = False sumatra = False
If Filesystem_Document_Path.ToLower.EndsWith(".msg") Then If Filesystem_Document_Path.ToLower.EndsWith(".msg") Then
@@ -1446,14 +1446,14 @@ Public Class frmValidator
Else Else
ShowFile_UniversalViewer(Filesystem_Document_Path) ShowFile_UniversalViewer(Filesystem_Document_Path)
End If End If
ElseIf Viewer = "docview" Then ElseIf VIEWER_ALL = "docview" Then
PdfControls_visible(False) PdfControls_visible(False)
If Filesystem_Document_Path.ToLower.EndsWith(".pdf") And vpdfviewer <> "none" Then If Filesystem_Document_Path.ToLower.EndsWith(".pdf") And VIEWER_PDF <> "none" Then
Select Case vpdfviewer Select Case VIEWER_PDF
Case "internal" Case "internal"
SplitContainer1.Panel2Collapsed = False SplitContainer1.Panel2Collapsed = False
PdfViewer1.LoadDocument(Filesystem_Document_Path) PdfViewer1.LoadDocument(Filesystem_Document_Path)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Internal Viewer Path: " & Filesystem_Document_Path, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Internal Viewer Path: " & Filesystem_Document_Path, False)
PdfControls_visible(True) PdfControls_visible(True)
Me.Size = My.Settings.frmValidation_Size_PDFViewer Me.Size = My.Settings.frmValidation_Size_PDFViewer
'PdfViewer1.ZoomFactor = PDFViewer_ZoomMode 'PdfViewer1.ZoomFactor = PDFViewer_ZoomMode
@@ -1571,55 +1571,74 @@ Public Class frmValidator
'End If 'End If
Try Try
CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT) CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT)
Catch ex As Exception Catch ex As Exception
If ex.Message.Contains("Variable: " & IDX_DMS_ERSTELLT & " not found!") Then If ex.Message.Contains("Variable: " & INDEX_DMS_ERSTELLT & " not found!") Then
ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & IDX_DMS_ERSTELLT & " not found", True) ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT & " not found", True)
ClassLogger.Add("1. Ausnahme-Fehler: " & ex.Message, False) ClassLogger.Add("1. Ausnahme-Fehler: " & ex.Message, False)
If IDX_DMS_ERSTELLT = "DMS Created" Then If INDEX_DMS_ERSTELLT = "DMS Created" Then
SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS erstellt")
IDX_DMS_ERSTELLT = "DMS erstellt" INDEX_DMS_ERSTELLT = "DMS erstellt"
IDX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)" INDEX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt (Zeit)") CONFIG.Config.IndexDmsErstellt = INDEX_DMS_ERSTELLT
CONFIG.Config.IndexDmsErstelltZeit = INDEX_DMS_ERSTELLT_ZEIT
CONFIG.Save()
'SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt (Zeit)")
'SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS erstellt")
Else Else
IDX_DMS_ERSTELLT = "DMS Created" INDEX_DMS_ERSTELLT = "DMS Created"
SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS Created") INDEX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
IDX_DMS_ERSTELLT_ZEIT = "DMS Created Time" CONFIG.Config.IndexDmsErstellt = INDEX_DMS_ERSTELLT
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt Time") CONFIG.Config.IndexDmsErstelltZeit = INDEX_DMS_ERSTELLT_ZEIT
'SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS Created")
'SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt Time")
End If End If
CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT) CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT)
Else Else
ClassLogger.Add("Fehler in Windream_get_Doc_info 1: " & ex.Message) ClassLogger.Add("Fehler in Windream_get_Doc_info 1: " & ex.Message)
Return "Fehler in Windream_get_Doc_info 1: " & ex.Message Return "Fehler in Windream_get_Doc_info 1: " & ex.Message
End If End If
End Try End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> DMS-Erstellt aus WD: " & CURRENT_DOC_CREATION_DATE, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> DMS-Erstellt aus WD: " & CURRENT_DOC_CREATION_DATE, False)
Try Try
CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT_ZEIT) CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT)
Catch ex As Exception Catch ex As Exception
If ex.Message.Contains("Variable: " & IDX_DMS_ERSTELLT_ZEIT & " not found!") Then If ex.Message.Contains("Variable: " & INDEX_DMS_ERSTELLT_ZEIT & " not found!") Then
ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & IDX_DMS_ERSTELLT_ZEIT & " not found", True) ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT_ZEIT & " not found", True)
If IDX_DMS_ERSTELLT = "DMS Created" Then If INDEX_DMS_ERSTELLT = "DMS Created" Then
IDX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt (Zeit)") INDEX_DMS_ERSTELLT = "DMS erstellt"
INDEX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
CONFIG.Config.IndexDmsErstellt = INDEX_DMS_ERSTELLT
CONFIG.Config.IndexDmsErstelltZeit = INDEX_DMS_ERSTELLT_ZEIT
CONFIG.Save()
'SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt (Zeit)")
Else Else
IDX_DMS_ERSTELLT = "DMS Created" INDEX_DMS_ERSTELLT = "DMS Created"
SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS Created") INDEX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
IDX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS Created Time") CONFIG.Config.IndexDmsErstellt = INDEX_DMS_ERSTELLT
CONFIG.Config.IndexDmsErstelltZeit = INDEX_DMS_ERSTELLT_ZEIT
CONFIG.Save()
'SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS Created")
'SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS Created Time")
End If End If
CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT_ZEIT) CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT)
Else Else
ClassLogger.Add("Fehler in Windream_get_Doc_info 3: " & ex.Message) ClassLogger.Add("Fehler in Windream_get_Doc_info 3: " & ex.Message)
Return "Fehler in Windream_get_Doc_info 3: " & ex.Message Return "Fehler in Windream_get_Doc_info 3: " & ex.Message
End If End If
End Try End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> DMSErstelltZeit aus WD: " & CURRENT_DOC_CREATION_TIME, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> DMSErstelltZeit aus WD: " & CURRENT_DOC_CREATION_TIME, False)
If CURRENT_DOC_CREATION_TIME.Length > 11 Then If CURRENT_DOC_CREATION_TIME.Length > 11 Then
CURRENT_DOC_CREATION_DATE = CURRENT_DOC_CREATION_DATE & " " & CURRENT_DOC_CREATION_TIME.Substring(10) CURRENT_DOC_CREATION_DATE = CURRENT_DOC_CREATION_DATE & " " & CURRENT_DOC_CREATION_TIME.Substring(10)
@@ -1835,7 +1854,7 @@ Public Class frmValidator
oIndexName = oWMIndexName oIndexName = oWMIndexName
Dim oLoadIndex As Boolean = oControlRow.Item("LOAD_IDX_VALUE") Dim oLoadIndex As Boolean = oControlRow.Item("LOAD_IDX_VALUE")
If LogErrorsOnly = False Then ClassLogger.Add(" >> INDEX: " & oWMIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> INDEX: " & oWMIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString, False)
_CURRENT_INDEX_ARRAY(oCount, 0) = oWMIndexName _CURRENT_INDEX_ARRAY(oCount, 0) = oWMIndexName
Select Case oType Select Case oType
@@ -1851,7 +1870,7 @@ Public Class frmValidator
' Wenn kein Index exisitiert, defaultValue laden ' Wenn kein Index exisitiert, defaultValue laden
oControl.Text = oDefaultValue oControl.Text = oDefaultValue
_CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select Exit Select
End If End If
Dim wertWD Dim wertWD
@@ -1864,7 +1883,7 @@ Public Class frmValidator
wertWD = "" wertWD = ""
Else Else
If wertWD.ToString = "System.Object[]" Then If wertWD.ToString = "System.Object[]" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> TextBox with VektorField: " & oWMIndexName, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> TextBox with VektorField: " & oWMIndexName, False)
If wertWD.length = 1 Then If wertWD.length = 1 Then
wertWD = wertWD(0) wertWD = wertWD(0)
_CURRENT_INDEX_ARRAY(oCount, 1) = wertWD(0) _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD(0)
@@ -1908,7 +1927,7 @@ Public Class frmValidator
cmb.Text = oDefaultValue cmb.Text = oDefaultValue
_CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select Exit Select
End If End If
Dim wertWD Dim wertWD
@@ -1919,22 +1938,22 @@ Public Class frmValidator
End If End If
If wertWD Is Nothing Then If wertWD Is Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert aus index {oWMIndexName}: Nothing", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Indexwert aus index {oWMIndexName}: Nothing", False)
If oDefaultValue = String.Empty Then If oDefaultValue = String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert-defaultValue wurde nicht gefunden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Indexwert-defaultValue wurde nicht gefunden", False)
cmb.SelectedIndex = -1 cmb.SelectedIndex = -1
Else Else
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert-defaultValue wird geladen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Indexwert-defaultValue wird geladen", False)
cmb.Text = oDefaultValue cmb.Text = oDefaultValue
_CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue _CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue
'cmb.SelectedIndex = cmb.FindStringExact(defaultValue) 'cmb.SelectedIndex = cmb.FindStringExact(defaultValue)
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add($" >> Indexwert aus index {oWMIndexName}: {wertWD}", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Indexwert aus index {oWMIndexName}: {wertWD}", False)
If LogErrorsOnly = False Then ClassLogger.Add($" >> Items in Combobox: {cmb.Items.Count}", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Items in Combobox: {cmb.Items.Count}", False)
If LogErrorsOnly = False Then ClassLogger.Add($" >> Index Wert wurde gesetzt", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Index Wert wurde gesetzt", False)
cmb.Text = wertWD cmb.Text = wertWD
_CURRENT_INDEX_ARRAY(oCount, 1) = wertWD _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD
'If cmb.Items.Count = 0 Then 'If cmb.Items.Count = 0 Then
@@ -1965,10 +1984,10 @@ Public Class frmValidator
End If End If
If oWMIndexName Is Nothing = False Then If oWMIndexName Is Nothing = False Then
If oLoadIndex = False Then If oLoadIndex = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select Exit Select
End If End If
If LogErrorsOnly = False Then ClassLogger.Add($" >> getting wmValue for Index {oWMIndexName}...", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> getting wmValue for Index {oWMIndexName}...", False)
Dim wertWD = aktivesDokument.GetVariableValue(oWMIndexName) Dim wertWD = aktivesDokument.GetVariableValue(oWMIndexName)
If wertWD Is Nothing = False Then If wertWD Is Nothing = False Then
@@ -1979,10 +1998,10 @@ Public Class frmValidator
Case "TABLE" Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId)
Dim SpaltenWerte As String() Dim SpaltenWerte As String()
If LogErrorsOnly = False Then ClassLogger.Add($" >> {dt.Rows.Count} Columns configured for control {oControlId}.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> {dt.Rows.Count} Columns configured for control {oControlId}.", False)
If dt.Rows.Count > 1 Then If dt.Rows.Count > 1 Then
For Each Zeile As Object In wertWD For Each Zeile As Object In wertWD
If LogErrorsOnly = False Then ClassLogger.Add($" >> vektorrow Value {Zeile.ToString}...", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> vektorrow Value {Zeile.ToString}...", False)
SpaltenWerte = Split(Zeile, Delimiter) SpaltenWerte = Split(Zeile, Delimiter)
Select Case dt.Rows.Count Select Case dt.Rows.Count
Case 1 Case 1
@@ -2040,10 +2059,10 @@ Public Class frmValidator
End If End If
If oWMIndexName Is Nothing = False Then If oWMIndexName Is Nothing = False Then
If oLoadIndex = False Then If oLoadIndex = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
Exit Select Exit Select
End If End If
If LogErrorsOnly = False Then ClassLogger.Add($" >> getting wmValue for Index {oWMIndexName}...", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> getting wmValue for Index {oWMIndexName}...", False)
Dim wertWD = aktivesDokument.GetVariableValue(oWMIndexName) Dim wertWD = aktivesDokument.GetVariableValue(oWMIndexName)
If wertWD Is Nothing = False Then If wertWD Is Nothing = False Then
@@ -2054,10 +2073,10 @@ Public Class frmValidator
Case "TABLE" Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId) Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId)
Dim SpaltenWerte As String() Dim SpaltenWerte As String()
If LogErrorsOnly = False Then ClassLogger.Add($" >> {dt.Rows.Count} Columns configured for control {oControlId}.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> {dt.Rows.Count} Columns configured for control {oControlId}.", False)
If dt.Rows.Count > 1 Then If dt.Rows.Count > 1 Then
For Each Zeile As Object In wertWD For Each Zeile As Object In wertWD
If LogErrorsOnly = False Then ClassLogger.Add($" >> vektorrow Value {Zeile.ToString}...", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> vektorrow Value {Zeile.ToString}...", False)
SpaltenWerte = Split(Zeile, Delimiter) SpaltenWerte = Split(Zeile, Delimiter)
Dim oDataSource As DataTable = dgv.DataSource Dim oDataSource As DataTable = dgv.DataSource
@@ -2121,7 +2140,7 @@ Public Class frmValidator
End If End If
End If End If
Case "System.Windows.Forms.CheckBox" Case "System.Windows.Forms.CheckBox"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Loading checkbox.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Loading checkbox.", False)
oControlType = "CheckBox" oControlType = "CheckBox"
If oWMIndexName = "" Then If oWMIndexName = "" Then
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
@@ -2132,7 +2151,7 @@ Public Class frmValidator
Dim chk As CheckBox = oControl Dim chk As CheckBox = oControl
If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then If oLoadIndex = False Or oWMIndexName = "DD PM-ONLY FOR DISPLAY" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexwert soll nicht geladen werden.", False)
If oDefaultValue <> String.Empty Then If oDefaultValue <> String.Empty Then
Dim result = False Dim result = False
@@ -2147,7 +2166,7 @@ Public Class frmValidator
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Loading Index value from Windream.", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Loading Index value from Windream.", False)
Dim wertWD Dim wertWD
If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then
wertWD = ReturnVektor_IndexValue(oWMIndexName) wertWD = ReturnVektor_IndexValue(oWMIndexName)
@@ -2160,7 +2179,7 @@ Public Class frmValidator
ClassLogger.Add(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Check defaultvalue", False) ClassLogger.Add(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Check defaultvalue", False)
chk.Checked = False chk.Checked = False
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Index value loaded: " & wertWD.ToString, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Index value loaded: " & wertWD.ToString, False)
_CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString _CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString
If wertWD.ToString = "" Then If wertWD.ToString = "" Then
ClassLogger.Add(">> Versuch, default Value zu laden", False) ClassLogger.Add(">> Versuch, default Value zu laden", False)
@@ -2179,7 +2198,7 @@ Public Class frmValidator
Else Else
Dim _value Dim _value
If wertWD.ToString = "System.Object[]" Then If wertWD.ToString = "System.Object[]" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> CheckBoxValue with VektorField: " & oWMIndexName, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> CheckBoxValue with VektorField: " & oWMIndexName, False)
If wertWD.length = 1 Then If wertWD.length = 1 Then
_value = wertWD(0) _value = wertWD(0)
Else ' Else '
@@ -2240,7 +2259,7 @@ Public Class frmValidator
Dim wertWD Dim wertWD
Try Try
If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> DATE über PM-Vektor holen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> DATE über PM-Vektor holen", False)
wertWD = ReturnVektor_IndexValue(oWMIndexName) wertWD = ReturnVektor_IndexValue(oWMIndexName)
ClassLogger.Add(">> DTP is """, False) ClassLogger.Add(">> DTP is """, False)
Else Else
@@ -2252,14 +2271,14 @@ Public Class frmValidator
If wertWD.ToString.Length > 0 Then If wertWD.ToString.Length > 0 Then
Try Try
tempdate = CDate(wertWD) tempdate = CDate(wertWD)
If LogErrorsOnly = False Then ClassLogger.Add(" >> DATE konnte umgewandelt werden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> DATE konnte umgewandelt werden", False)
Catch ex As Exception Catch ex As Exception
ValueDTP = tempdate ValueDTP = tempdate
If LogErrorsOnly = False Then ClassLogger.Add(" >> DATE wurde auf heute gesetzt", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> DATE wurde auf heute gesetzt", False)
End Try End Try
DTP.Text = tempdate DTP.Text = tempdate
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> DATE ist leer", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> DATE ist leer", False)
ValueDTP = tempdate ValueDTP = tempdate
DTP.Text = tempdate DTP.Text = tempdate
End If End If
@@ -2317,8 +2336,8 @@ Public Class frmValidator
End Sub End Sub
Sub CloseWDDocview() Sub CloseWDDocview()
Try Try
If Viewer = "docview" Then If VIEWER_ALL = "docview" Then
If aktivesDokument.aPath.EndsWith("pdf") = False Or vpdfviewer = "none" Then If aktivesDokument.aPath.EndsWith("pdf") = False Or VIEWER_PDF = "none" Then
If DocView Is Nothing = False Then If DocView Is Nothing = False Then
DocView.CloseView(aktivesDokument.aPath, 0) DocView.CloseView(aktivesDokument.aPath, 0)
End If End If
@@ -2336,7 +2355,7 @@ Public Class frmValidator
End Sub End Sub
Sub Abschluss() Sub Abschluss()
btnSave.Enabled = False btnSave.Enabled = False
If LogErrorsOnly = False Then ClassLogger.Add(" >> Abschluss für Dok: " & aktivesDokument.aName & " gestartet", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Abschluss für Dok: " & aktivesDokument.aName & " gestartet", False)
'Eingaben auf Form überprüfen 'Eingaben auf Form überprüfen
If Check_UpdateIndexe() = False Then If Check_UpdateIndexe() = False Then
'lblerror.Visible = False 'lblerror.Visible = False
@@ -2349,21 +2368,21 @@ Public Class frmValidator
Dim dtfinal As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING Dim dtfinal As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING
If dtfinal.Rows.Count > 0 Then If dtfinal.Rows.Count > 0 Then
'Jetzt finale Indexe setzen 'Jetzt finale Indexe setzen
If LogErrorsOnly = False Then ClassLogger.Add(" >> Finale(r) Index(e) für Dok: " & aktivesDokument.aName & " soll gesetzt werden", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Finale(r) Index(e) für Dok: " & aktivesDokument.aName & " soll gesetzt werden", False)
For Each dr As DataRow In dtfinal.Rows For Each dr As DataRow In dtfinal.Rows
Dim value As String = dr.Item("VALUE").ToString Dim value As String = dr.Item("VALUE").ToString
If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit dynamischem SQL!", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexierung mit dynamischem SQL!", False)
Dim SQL_COMMAND = dr.Item("SQL_COMMAND") Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_COMMAND before ReplaceAllValues: " & SQL_COMMAND, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> SQL_COMMAND before ReplaceAllValues: " & SQL_COMMAND, False)
SQL_COMMAND = clsPatterns.ReplaceAllValues(SQL_COMMAND, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL) SQL_COMMAND = clsPatterns.ReplaceAllValues(SQL_COMMAND, pnldesigner, aktivesDokument, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_COMMAND after ReplaceAllValues: " & SQL_COMMAND, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> SQL_COMMAND after ReplaceAllValues: " & SQL_COMMAND, False)
Dim dynamic_value = ClassDatabase.Execute_Scalar(SQL_COMMAND, MyConnectionString, True) Dim dynamic_value = ClassDatabase.Execute_Scalar(SQL_COMMAND, CONNECTION_STRING, True)
If Not IsNothing(dynamic_value) Then If Not IsNothing(dynamic_value) Then
If LogErrorsOnly = False Then ClassLogger.Add("DYNAMIC VALUE IS: " & dynamic_value.ToString, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add("DYNAMIC VALUE IS: " & dynamic_value.ToString, False)
value = dynamic_value value = dynamic_value
Else Else
ClassLogger.Add("ATTENTION: DYNAMIC VALUE IS NOTHING!") ClassLogger.Add("ATTENTION: DYNAMIC VALUE IS NOTHING!")
@@ -2386,13 +2405,13 @@ Public Class frmValidator
result(0) = value result(0) = value
Dim oIndexType = WINDREAM.GetTypeOfIndex(dr.Item("INDEXNAME")) Dim oIndexType = WINDREAM.GetTypeOfIndex(dr.Item("INDEXNAME"))
If LogErrorsOnly = False Then ClassLogger.Add($" >> oIndexType {oIndexType.ToString}", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> oIndexType {oIndexType.ToString}", False)
If oIndexType > 4000 And oIndexType < 5000 Then If oIndexType > 4000 And oIndexType < 5000 Then
'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then 'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then
' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME"))
'Hier muss nun separat als Vektorfeld indexiert werden 'Hier muss nun separat als Vektorfeld indexiert werden
If Indexiere_VektorfeldPM(value, dr.Item("INDEXNAME")) = False Then If Indexiere_VektorfeldPM(value, dr.Item("INDEXNAME")) = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & dr.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> FINALER INDEX '" & dr.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT", False)
Else Else
errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
My.Settings.Save() My.Settings.Save()
@@ -2400,10 +2419,10 @@ Public Class frmValidator
_error = True _error = True
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Jetzt das indexieren", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Jetzt das indexieren", False)
If Indexiere_File(aktivesDokument, dr.Item("INDEXNAME"), result) = True Then If Indexiere_File(aktivesDokument, dr.Item("INDEXNAME"), result) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & dr.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> FINALER INDEX '" & dr.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT", False)
If LogErrorsOnly = False Then ClassLogger.Add("") If LOG_ERRORS_ONLY = False Then ClassLogger.Add("")
'Nun das Logging 'Nun das Logging
If PROFIL_LOGINDEX <> "" Then If PROFIL_LOGINDEX <> "" Then
Dim logstr = Return_LOGString(value, "DDFINALINDEX", dr.Item("INDEXNAME")) Dim logstr = Return_LOGString(value, "DDFINALINDEX", dr.Item("INDEXNAME"))
@@ -2425,7 +2444,7 @@ Public Class frmValidator
''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde ''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
If _error = False Then If _error = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Tabelle updaten und co", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Tabelle updaten und co", False)
'Das Dokument freigeben und als editiert markieren 'Das Dokument freigeben und als editiert markieren
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID) Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID)
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql)
@@ -2455,7 +2474,7 @@ Public Class frmValidator
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente For Each element As System.Text.RegularExpressions.Match In elemente
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX WORK_HISTORY_ENTRY: " & element.Value, False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> element in RegeX WORK_HISTORY_ENTRY: " & element.Value, False)
Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3) Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3)
CTRL_ID = CTRL_ID.Replace("CTRLID", "") CTRL_ID = CTRL_ID.Replace("CTRLID", "")
Dim value_from_control Dim value_from_control
@@ -2562,12 +2581,12 @@ Public Class frmValidator
End If End If
'Validierungsfile löschen wenn vorhanden 'Validierungsfile löschen wenn vorhanden
allgFunk.Delete_xffres(Windream_Document_Path, _windream) allgFunk.Delete_xffres(Windream_Document_Path, _windream)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Delete_xffres ausgeführt", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Delete_xffres ausgeführt", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> All Input clear", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> All Input clear", False)
Anzahl_validierte_Dok += 1 Anzahl_validierte_Dok += 1
'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID) 'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl hochgesetzt", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Anzahl hochgesetzt", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Validierung erfolgreich abgeschlossen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Validierung erfolgreich abgeschlossen", False)
ClassLogger.Add("", False) ClassLogger.Add("", False)
If CURRENT_JUMP_DOC_GUID <> 0 Then If CURRENT_JUMP_DOC_GUID <> 0 Then
Me.Close() Me.Close()
@@ -2697,7 +2716,7 @@ Public Class frmValidator
Dim ctrl = dr.Item("CTRL_NAME") Dim ctrl = dr.Item("CTRL_NAME")
'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist
If dr.Item("CTRL_NAME") = inctrl.Name And (_READ_ONLY = False Or _SQL <> "") And _IDXName <> "DD PM-ONLY FOR DISPLAY" Then If dr.Item("CTRL_NAME") = inctrl.Name And (_READ_ONLY = False Or _SQL <> "") And _IDXName <> "DD PM-ONLY FOR DISPLAY" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung für Control (" & CONTROL_ID & ") '" & ctrl & "' gestartet. Indexname '" & _IDXName & "'", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexierung für Control (" & CONTROL_ID & ") '" & ctrl & "' gestartet. Indexname '" & _IDXName & "'", False)
If _IDXName = "" Then If _IDXName = "" Then
ClassLogger.Add(" >> Indexname is unexpected empty.", False) ClassLogger.Add(" >> Indexname is unexpected empty.", False)
Continue For Continue For
@@ -2970,11 +2989,11 @@ Public Class frmValidator
End If End If
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value WD ('" & wertWD.ToString & "') = Input-value ('" & input.ToString & "')", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Value WD ('" & wertWD.ToString & "') = Input-value ('" & input.ToString & "')", False)
End If End If
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> DateValue is 01.01.0001 00:00:00", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> DateValue is 01.01.0001 00:00:00", False)
End If End If
Case "System.Windows.Forms.CheckBox" Case "System.Windows.Forms.CheckBox"
Dim chk As CheckBox = inctrl Dim chk As CheckBox = inctrl
@@ -3199,7 +3218,7 @@ Public Class frmValidator
'Das Array der Idnexwerte überprüfen 'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False Then If idxvalue Is Nothing = False Then
If idxvalue.Length() > 1 Then If idxvalue.Length() > 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
Dim anzahl As Integer = 0 Dim anzahl As Integer = 0
For Each indexvalue As String In idxvalue For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl) ReDim Preserve arrValue(anzahl)
@@ -3207,7 +3226,7 @@ Public Class frmValidator
anzahl += 1 anzahl += 1
Next Next
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
ReDim Preserve arrValue(0) ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString arrValue(0) = idxvalue(0).ToString
End If End If
@@ -3307,9 +3326,9 @@ Public Class frmValidator
End Sub End Sub
Sub Datei_ueberspringen() Sub Datei_ueberspringen()
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokument überspringen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Dokument überspringen", False)
Close_document_viewer() Close_document_viewer()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc Viewer geschlossen", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Doc Viewer geschlossen", False)
'Das Dokument freigeben 'Das Dokument freigeben
TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", CURRENT_DOC_GUID) TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", CURRENT_DOC_GUID)
@@ -3317,7 +3336,7 @@ Public Class frmValidator
TBPM_FILES_USER_NOT_INDEXEDTableAdapter.cmdInsert(Environment.UserName, CURRENT_ProfilGUID, Windream_Document_Path) TBPM_FILES_USER_NOT_INDEXEDTableAdapter.cmdInsert(Environment.UserName, CURRENT_ProfilGUID, Windream_Document_Path)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokument freigegeben", False) If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Dokument freigegeben", False)
ClassLogger.Add("", False) ClassLogger.Add("", False)
Load_Next_Document(False) Load_Next_Document(False)
Catch ex As Exception Catch ex As Exception
@@ -3417,7 +3436,7 @@ Public Class frmValidator
If Windream_Document_Path Is Nothing = False Then If Windream_Document_Path Is Nothing = False Then
Select Case Path.GetExtension(Windream_Document_Path).ToLower Select Case Path.GetExtension(Windream_Document_Path).ToLower
Case ".pdf" Case ".pdf"
Select Case vpdfviewer Select Case VIEWER_PDF
Case "internal" Case "internal"
My.Settings.frmValidation_Size_PDFViewer = Me.Size My.Settings.frmValidation_Size_PDFViewer = Me.Size
Case "pdfxchange" Case "pdfxchange"
@@ -3457,13 +3476,11 @@ Public Class frmValidator
PdfViewer1.ZoomFactor = 20 PdfViewer1.ZoomFactor = 20
End Sub End Sub
Private Sub PdfViewer1_ZoomChanged_1(sender As Object, e As DevExpress.XtraPdfViewer.PdfZoomChangedEventArgs) Handles PdfViewer1.ZoomChanged Private Sub PdfViewer1_ZoomChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfZoomChangedEventArgs) Handles PdfViewer1.ZoomChanged
If Not PdfViewer1.ZoomMode = DevExpress.XtraPdfViewer.PdfZoomMode.Custom Then 'SaveMySettingsValue("PDFViewer_ZoomMode", PdfViewer1.ZoomFactor)
VIEWER_ZOOM_LEVEL = PdfViewer1.ZoomFactor
End If CONFIG.Config.PDFViewerZoomLevel = VIEWER_ZOOM_LEVEL
Dim sdds = PdfViewer1.ZoomFactor CONFIG.Save()
SaveMySettingsValue("PDFViewer_ZoomMode", PdfViewer1.ZoomFactor)
PDFViewer_ZoomMode = PdfViewer1.ZoomFactor
End Sub End Sub
Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click

4
app/DD_PM_WINDREAM/packages.config Normal file
View File

@@ -0,0 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="NLog" version="4.5.11" targetFramework="net461" />
</packages>