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')"
End If
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
ClassLogger.Add(" >> User could not be logged in/out....", False)
End If
@@ -29,7 +29,7 @@ Public Class ClassAllgemeineFunktionen
Try
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 & "')"
If ExecuteonMSSQL(insert, MyConnectionString) <> "" Then
If ExecuteonMSSQL(insert, CONNECTION_STRING) <> "" Then
ClassLogger.Add("Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True)
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)
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)
ClassLogger.Add(">> MoveRename: Datei noch geöffnet - Warten", False)
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
Public Shared Function Init()
Try
SQLSERVERConnectionString = MyConnectionString
SQLSERVERConnectionString = CONNECTION_STRING
Dim SQLconnect As New SqlClient.SqlConnection
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
@@ -59,12 +59,12 @@ Public Class ClassDatabase
Try
Dim SQLconnect As New SqlClient.SqlConnection
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.Open()
SQLcommand = SQLconnect.CreateCommand
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 dt As DataTable = New DataTable()
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)
Try
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 SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString
@@ -110,12 +110,12 @@ Public Class ClassDatabase
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
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()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
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.Dispose()
SQLconnect.Close()
@@ -137,12 +137,12 @@ Public Class ClassDatabase
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
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()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
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()
SQLcommand.Dispose()
SQLconnect.Close()

22
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@@ -8,12 +8,12 @@
If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then
'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
Dim value As String = dr.Item("VALUE").ToString
Dim INDEXNAME = dr.Item("INDEXNAME").ToString
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")
'' Regulären Ausdruck zum Auslesen der Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@@ -41,8 +41,8 @@
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject)
If LogErrorsOnly = False Then ClassLogger.Add(">>> sql after ReplaceAllValues: " & sql_Statement, False)
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, MyConnectionString, True)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(">>> sql after ReplaceAllValues: " & sql_Statement, False)
Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, True)
If Not IsNothing(dynamic_value) Then
value = dynamic_value
Else
@@ -66,11 +66,11 @@
result(0) = value
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
'Hier muss nun separat als Vektorfeld indexiert werden
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
MsgBox("Unexpected error in finalindexing vektorvalue - check the log", MsgBoxStyle.Critical)
@@ -78,10 +78,10 @@
End If
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 LogErrorsOnly = 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(" >> FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add("")
'Nun das Logging
If CURRENT_PROFILE_VEKTOR_LOG <> "" Then
Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME)
@@ -126,7 +126,7 @@
'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False 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
For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl)
@@ -134,7 +134,7 @@
anzahl += 1
Next
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)
arrValue(0) = idxvalue(0).ToString
End If

101
app/DD_PM_WINDREAM/ClassInit.vb
View File

@@ -1,6 +1,8 @@
Imports System.ComponentModel
Imports System.Globalization
Imports DLLLicenseManager
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Config
Public Class ClassInit
@@ -11,24 +13,77 @@ Public Class ClassInit
<STAThread()>
Public Sub InitLogger()
ClassLogger.Init("", Environment.UserName)
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
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData)
LOGGER = LOGCONFIG.GetLogger("ProcessManager")
LOGGER.Info("## ProcessManager für Windream gestartet - {0}", Now)
'ClassLogger.Init("", Environment.UserName)
'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!")
End Sub
<STAThread()>
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
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()>
Public Function InitDatabase()
Dim dbResult As Boolean
If MyConnectionString <> String.Empty Then
If CONNECTION_STRING <> String.Empty Then
dbResult = ClassDatabase.Init()
Else
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
End If
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()>
Sub Refresh_Licence()
Try
@@ -76,7 +120,7 @@ Public Class ClassInit
LICENSE_EXPIRED = True
LICENSE_COUNT = 0
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)
Catch ex As Exception
@@ -143,7 +187,7 @@ Public Class ClassInit
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
Refresh_Licence()
'Check_User_Exists_in_PMGroups()
@@ -154,7 +198,7 @@ Public Class ClassInit
' 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'"
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
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)
@@ -165,7 +209,7 @@ Public Class ClassInit
End If
End If
'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
Catch ex As Exception
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 DT As DataTable = ClassDatabase.Return_Datatable(sql)
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
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")
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Settings_LoadBasicConfig: " & ex.Message, True)
WMSESSION_STARTSTOP_STARTUP = False
End Try
Else
Return False
End If

62
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@@ -124,7 +124,7 @@ Public Class ClassPMWindream
Dim i As Integer = 0
Dim indexname As String
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
'Jetzt jeden Indexwert durchlaufen
For Each aName As String In Indizes
@@ -143,7 +143,7 @@ Public Class ClassPMWindream
'If indexname = "Tournr" Then
' MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString)
'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")
Dim value = aValues(i)
Dim convertValue
@@ -153,13 +153,13 @@ Public Class ClassPMWindream
Select Case vType
'Case WMObjectVariableValueTypeUndefined
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)
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
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.unlock()
Return False
@@ -167,7 +167,7 @@ Public Class ClassPMWindream
convertValue = CInt(value)
_int = True
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
convertValue = CDbl(value)
Catch ex As Exception
@@ -178,7 +178,7 @@ Public Class ClassPMWindream
End Try
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
convertValue = CDbl(value)
Catch ex As Exception
@@ -190,16 +190,16 @@ Public Class ClassPMWindream
_dbl = True
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)
_bool = True
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
'Dim _date As Date = value
convertValue = value
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)
Case WMObjectVariableValueTypeCurrency
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))
convertValue = aValueWrapper
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
' convertValue = CDate(value)
'Else
@@ -216,44 +216,44 @@ Public Class ClassPMWindream
'Dim _date As Date = value
convertValue = convertValue '*_date.ToShortTimeString
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)
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)
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)
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
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
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
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
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
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
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
Case Else
If LogErrorsOnly = 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(" >> Typ des windream-Indexes konnte nicht bestimmt werden!", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Versuch des Auslesens (vType): " & vType)
'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
convertValue = ""
End Select
If vektor = 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
'############################################################################################
@@ -262,7 +262,7 @@ Public Class ClassPMWindream
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
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
ClassLogger.Add(" >> Unexpected Error in Logging SetVariableValue for " & aName & ": " & ex.Message, False)
End Try
@@ -285,13 +285,13 @@ Public Class ClassPMWindream
Else
oDocument.SetVariableValue(aName, convertValue)
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
ClassLogger.Add(" >> Kein Indexwert vorhanden", False)
End If
Else
'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 anz As Integer = 0
'For Each obj In aValues
@@ -398,7 +398,7 @@ Public Class ClassPMWindream
'Jetzt die Nachindexierung für Vektor-Felder
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
i += 1
@@ -410,7 +410,7 @@ Public Class ClassPMWindream
'SetRights(WMObject, User)
oDocument.Save()
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
Else
ClassLogger.Add(" ### Dokument ist gesperrt, Indexierung nicht möglich! ###", False)
@@ -445,7 +445,7 @@ Public Class ClassPMWindream
Dim value = _state
Dim convertValue
'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)
Case WMObjectVariableValueTypeBoolean
convertValue = CBool(value)
@@ -456,7 +456,7 @@ Public Class ClassPMWindream
'####################### Der eigentliche Indexierungsvorgang ################################
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.unlock()
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)
If Not IsNothing(DT) 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
Else
Return False

12
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@@ -51,12 +51,12 @@ Public Class ClassWindream_allgemein
Try
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
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
Me.oConnect = CreateObject("Windream.WMConnect")
'MsgBox("windrem init 'ed")
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
End Try
@@ -84,7 +84,7 @@ Public Class ClassWindream_allgemein
Return False
End If
If LogErrorsOnly = False Then
If LOG_ERRORS_ONLY = False Then
ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
End If
@@ -115,7 +115,7 @@ Public Class ClassWindream_allgemein
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
Catch ex As Exception
@@ -135,7 +135,7 @@ Public Class ClassWindream_allgemein
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T
INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_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
@@ -159,7 +159,7 @@ Public Class ClassWindream_allgemein
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T
INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_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
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")

18
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@@ -137,6 +137,13 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>P:\Visual Studio Projekte\Bibliotheken\DigitalData.Controls.LookupGrid.dll</HintPath>
</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">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
</Reference>
@@ -147,6 +154,10 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath>
</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">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
@@ -154,13 +165,18 @@
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\PdfSharp-gdi.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Data.OracleClient" />
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
<Reference Include="System.DirectoryServices.AccountManagement" />
<Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression" />
<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.Xml" />
<Reference Include="System.Core" />
@@ -181,6 +197,7 @@
</ItemGroup>
<ItemGroup>
<Compile Include="ClassAnnotation.vb" />
<Compile Include="ClassConfig.vb" />
<Compile Include="ClassControlCreator.vb" />
<Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassFinalIndex.vb" />
@@ -462,6 +479,7 @@
</None>
</ItemGroup>
<ItemGroup>
<None Include="packages.config" />
<None Include="Resources\20110505_Logo_syncreon_slogan_inverse.png" />
</ItemGroup>
<ItemGroup>

55
app/DD_PM_WINDREAM/ModuleMySettings.vb
View File

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

6
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@@ -1,4 +1,7 @@
Imports WINDREAMLib
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging
Module ModuleRuntimeVariables
' Diese Werte müssen später zur Laufzeit geladen werden
@@ -71,4 +74,7 @@ Module ModuleRuntimeVariables
Public errormessage As String
Public WINDREAM As ClassPMWindream
Public LOGCONFIG As LogConfig
Public LOGGER As Logger
Public CONFIG As ConfigManager(Of ClassConfig)
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
Try
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
akt_pw = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminPW
Catch ex As Exception
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.DataSource = Me.TBPROFILE_USERBindingSource
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.Name = "gridAssignedUsers"
Me.gridAssignedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedUsers})
@@ -411,6 +410,7 @@ Partial Class frmAdministration
'viewAssignedUsers
'
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.Name = "viewAssignedUsers"
Me.viewAssignedUsers.OptionsBehavior.Editable = False
@@ -422,36 +422,42 @@ Partial Class frmAdministration
'
resources.ApplyResources(Me.colPRENAME1, "colPRENAME1")
Me.colPRENAME1.FieldName = "PRENAME"
Me.colPRENAME1.MinWidth = 16
Me.colPRENAME1.Name = "colPRENAME1"
'
'colNAME3
'
resources.ApplyResources(Me.colNAME3, "colNAME3")
Me.colNAME3.FieldName = "NAME"
Me.colNAME3.MinWidth = 16
Me.colNAME3.Name = "colNAME3"
'
'colUSERNAME1
'
resources.ApplyResources(Me.colUSERNAME1, "colUSERNAME1")
Me.colUSERNAME1.FieldName = "USERNAME"
Me.colUSERNAME1.MinWidth = 16
Me.colUSERNAME1.Name = "colUSERNAME1"
'
'colEMAIL1
'
resources.ApplyResources(Me.colEMAIL1, "colEMAIL1")
Me.colEMAIL1.FieldName = "EMAIL"
Me.colEMAIL1.MinWidth = 16
Me.colEMAIL1.Name = "colEMAIL1"
'
'GridColumn1
'
resources.ApplyResources(Me.GridColumn1, "GridColumn1")
Me.GridColumn1.FieldName = "COMMENT"
Me.GridColumn1.MinWidth = 16
Me.GridColumn1.Name = "GridColumn1"
'
'GridColumn2
'
resources.ApplyResources(Me.GridColumn2, "GridColumn2")
Me.GridColumn2.FieldName = "SHORTNAME"
Me.GridColumn2.MinWidth = 16
Me.GridColumn2.Name = "GridColumn2"
'
'Panel1
@@ -470,7 +476,6 @@ Partial Class frmAdministration
Me.gridAvailableUsers.AllowDrop = True
Me.gridAvailableUsers.DataSource = Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource
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.Name = "gridAvailableUsers"
Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers})
@@ -483,6 +488,7 @@ Partial Class frmAdministration
'viewAvailableUsers
'
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.Name = "viewAvailableUsers"
Me.viewAvailableUsers.OptionsBehavior.Editable = False
@@ -494,36 +500,42 @@ Partial Class frmAdministration
'
resources.ApplyResources(Me.colPRENAME, "colPRENAME")
Me.colPRENAME.FieldName = "USER_PRENAME"
Me.colPRENAME.MinWidth = 16
Me.colPRENAME.Name = "colPRENAME"
'
'colNAME2
'
resources.ApplyResources(Me.colNAME2, "colNAME2")
Me.colNAME2.FieldName = "USER_SURNAME"
Me.colNAME2.MinWidth = 16
Me.colNAME2.Name = "colNAME2"
'
'colUSERNAME
'
resources.ApplyResources(Me.colUSERNAME, "colUSERNAME")
Me.colUSERNAME.FieldName = "USER_NAME"
Me.colUSERNAME.MinWidth = 16
Me.colUSERNAME.Name = "colUSERNAME"
'
'colEMAIL
'
resources.ApplyResources(Me.colEMAIL, "colEMAIL")
Me.colEMAIL.FieldName = "USER_EMAIL"
Me.colEMAIL.MinWidth = 16
Me.colEMAIL.Name = "colEMAIL"
'
'GridColumn3
'
resources.ApplyResources(Me.GridColumn3, "GridColumn3")
Me.GridColumn3.FieldName = "USER_COMMENT"
Me.GridColumn3.MinWidth = 16
Me.GridColumn3.Name = "GridColumn3"
'
'GridColumn4
'
resources.ApplyResources(Me.GridColumn4, "GridColumn4")
Me.GridColumn4.FieldName = "USER_SHORTNAME"
Me.GridColumn4.MinWidth = 16
Me.GridColumn4.Name = "GridColumn4"
'
'Panel2
@@ -559,7 +571,6 @@ Partial Class frmAdministration
Me.gridAssignedGroups.AllowDrop = True
Me.gridAssignedGroups.DataSource = Me.TBPROFILE_GROUPBindingSource
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.Name = "gridAssignedGroups"
Me.gridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedGroups})
@@ -572,6 +583,7 @@ Partial Class frmAdministration
'viewAssignedGroups
'
Me.viewAssignedGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME5, Me.colCOMMENT1})
Me.viewAssignedGroups.DetailHeight = 295
Me.viewAssignedGroups.GridControl = Me.gridAssignedGroups
Me.viewAssignedGroups.Name = "viewAssignedGroups"
Me.viewAssignedGroups.OptionsBehavior.Editable = False
@@ -583,12 +595,14 @@ Partial Class frmAdministration
'
resources.ApplyResources(Me.colNAME5, "colNAME5")
Me.colNAME5.FieldName = "NAME"
Me.colNAME5.MinWidth = 16
Me.colNAME5.Name = "colNAME5"
'
'colCOMMENT1
'
resources.ApplyResources(Me.colCOMMENT1, "colCOMMENT1")
Me.colCOMMENT1.FieldName = "COMMENT"
Me.colCOMMENT1.MinWidth = 16
Me.colCOMMENT1.Name = "colCOMMENT1"
'
'Panel3
@@ -607,7 +621,6 @@ Partial Class frmAdministration
Me.gridAvailableGroups.AllowDrop = True
Me.gridAvailableGroups.DataSource = Me.TBDD_GROUPSBindingSource
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.Name = "gridAvailableGroups"
Me.gridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableGroups})
@@ -620,6 +633,7 @@ Partial Class frmAdministration
'viewAvailableGroups
'
Me.viewAvailableGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME4, Me.colCOMMENT})
Me.viewAvailableGroups.DetailHeight = 295
Me.viewAvailableGroups.GridControl = Me.gridAvailableGroups
Me.viewAvailableGroups.Name = "viewAvailableGroups"
Me.viewAvailableGroups.OptionsBehavior.Editable = False
@@ -631,12 +645,14 @@ Partial Class frmAdministration
'
resources.ApplyResources(Me.colNAME4, "colNAME4")
Me.colNAME4.FieldName = "NAME"
Me.colNAME4.MinWidth = 16
Me.colNAME4.Name = "colNAME4"
'
'colCOMMENT
'
resources.ApplyResources(Me.colCOMMENT, "colCOMMENT")
Me.colCOMMENT.FieldName = "COMMENT"
Me.colCOMMENT.MinWidth = 16
Me.colCOMMENT.Name = "colCOMMENT"
'
'Panel4
@@ -1180,7 +1196,6 @@ Partial Class frmAdministration
'GridControl1
'
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")
Me.GridControl1.MainView = Me.GridView1
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.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME, Me.colTITLE})
Me.GridView1.DetailHeight = 295
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
@@ -1210,12 +1226,14 @@ Partial Class frmAdministration
'
resources.ApplyResources(Me.colNAME, "colNAME")
Me.colNAME.FieldName = "NAME"
Me.colNAME.MinWidth = 16
Me.colNAME.Name = "colNAME"
'
'colTITLE
'
resources.ApplyResources(Me.colTITLE, "colTITLE")
Me.colTITLE.FieldName = "TITLE"
Me.colTITLE.MinWidth = 16
Me.colTITLE.Name = "colTITLE"
'
'cmbLOGIndex
@@ -1277,7 +1295,6 @@ Partial Class frmAdministration
'
Me.gridFinalIndex.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource
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.Name = "gridFinalIndex"
Me.gridFinalIndex.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewFinalIndex})
@@ -1290,6 +1307,7 @@ Partial Class frmAdministration
'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.DetailHeight = 295
Me.viewFinalIndex.GridControl = Me.gridFinalIndex
Me.viewFinalIndex.Name = "viewFinalIndex"
Me.viewFinalIndex.OptionsBehavior.Editable = False
@@ -1300,48 +1318,56 @@ Partial Class frmAdministration
'
resources.ApplyResources(Me.colGUID, "colGUID")
Me.colGUID.FieldName = "GUID"
Me.colGUID.MinWidth = 16
Me.colGUID.Name = "colGUID"
'
'colINDEXNAME
'
resources.ApplyResources(Me.colINDEXNAME, "colINDEXNAME")
Me.colINDEXNAME.FieldName = "INDEXNAME"
Me.colINDEXNAME.MinWidth = 16
Me.colINDEXNAME.Name = "colINDEXNAME"
'
'colVALUE
'
resources.ApplyResources(Me.colVALUE, "colVALUE")
Me.colVALUE.FieldName = "VALUE"
Me.colVALUE.MinWidth = 16
Me.colVALUE.Name = "colVALUE"
'
'colSQL_COMMAND
'
resources.ApplyResources(Me.colSQL_COMMAND, "colSQL_COMMAND")
Me.colSQL_COMMAND.FieldName = "SQL_COMMAND"
Me.colSQL_COMMAND.MinWidth = 16
Me.colSQL_COMMAND.Name = "colSQL_COMMAND"
'
'colADDED_WHO
'
resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO")
Me.colADDED_WHO.FieldName = "ADDED_WHO"
Me.colADDED_WHO.MinWidth = 16
Me.colADDED_WHO.Name = "colADDED_WHO"
'
'colADDED_WHEN
'
resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN")
Me.colADDED_WHEN.FieldName = "ADDED_WHEN"
Me.colADDED_WHEN.MinWidth = 16
Me.colADDED_WHEN.Name = "colADDED_WHEN"
'
'colCHANGED_WHO
'
resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO")
Me.colCHANGED_WHO.FieldName = "CHANGED_WHO"
Me.colCHANGED_WHO.MinWidth = 16
Me.colCHANGED_WHO.Name = "colCHANGED_WHO"
'
'colCHANGED_WHEN
'
resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN")
Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN"
Me.colCHANGED_WHEN.MinWidth = 16
Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN"
'
'PropertyGrid1
@@ -1522,7 +1548,6 @@ Partial Class frmAdministration
'
Me.gridAvailableProfiles.DataSource = Me.TBPM_PROFILEBindingSource
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.Name = "gridAvailableProfiles"
Me.gridAvailableProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableProfiles})
@@ -1530,6 +1555,7 @@ Partial Class frmAdministration
'viewAvailableProfiles
'
Me.viewAvailableProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME1, Me.colDESCRIPTION})
Me.viewAvailableProfiles.DetailHeight = 295
Me.viewAvailableProfiles.GridControl = Me.gridAvailableProfiles
Me.viewAvailableProfiles.Name = "viewAvailableProfiles"
Me.viewAvailableProfiles.OptionsBehavior.Editable = False
@@ -1542,12 +1568,14 @@ Partial Class frmAdministration
'
resources.ApplyResources(Me.colNAME1, "colNAME1")
Me.colNAME1.FieldName = "NAME"
Me.colNAME1.MinWidth = 16
Me.colNAME1.Name = "colNAME1"
'
'colDESCRIPTION
'
resources.ApplyResources(Me.colDESCRIPTION, "colDESCRIPTION")
Me.colDESCRIPTION.FieldName = "DESCRIPTION"
Me.colDESCRIPTION.MinWidth = 16
Me.colDESCRIPTION.Name = "colDESCRIPTION"
'
'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
formloaded = False
Try
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_TYPETableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
TBPROFILE_USERTableAdapter.Connection.ConnectionString = MyConnectionString
TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_ERROR_LOGTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_TYPETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_GROUPSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPROFILE_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_ERROR_LOGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Refresh_Profildaten()
@@ -632,7 +632,7 @@ Public Class frmAdministration
End Sub
Private Function Execute_SQL(SQL As String)
Try
Dim SQLconnection As New SqlClient.SqlConnection(MyConnectionString)
Dim SQLconnection As New SqlClient.SqlConnection(CONNECTION_STRING)
Dim SQLcommand As New SqlCommand(SQL, SQLconnection)
SQLconnection.Open()
SQLcommand.ExecuteNonQuery()
@@ -884,7 +884,7 @@ Public Class frmAdministration
' End If
'End If
If USRMNGRPATH = "" Then
If USER_MANAGER_PATH = "" Then
With OpenFileDialog1
' Do
.Filter = "DDUserManager.Exe|*.exe"
@@ -892,13 +892,15 @@ Public Class frmAdministration
.Title = "search DDUserManager.exe:"
If .ShowDialog() = DialogResult.OK Then
USRMNGRPATH = .FileName
SaveMySettingsValue("USRMNGRPATH", .FileName)
USER_MANAGER_PATH = .FileName
CONFIG.Config.UserManagerPath = USER_MANAGER_PATH
CONFIG.Save()
'SaveMySettingsValue("USRMNGRPATH", .FileName)
End If
End With
End If
If File.Exists(USRMNGRPATH) Then
Process.Start(USRMNGRPATH)
If File.Exists(USER_MANAGER_PATH) Then
Process.Start(USER_MANAGER_PATH)
End If
Catch ex As Exception
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
Sub load_connections()
Try
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_CONNECTION)
TBDD_CONNECTIONDataGridView.AutoResizeColumns()
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
End If
End If
Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Formulardaten:")
End Try

10
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@@ -57,10 +57,10 @@ Public Class frmFormDesigner
End Try
Try
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
Catch ex As Exception
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()
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
Sub SetActiveControlColor()

131
app/DD_PM_WINDREAM/frmKonfig.vb
View File

@@ -11,37 +11,39 @@ Public Class frmKonfig
.Title = "Pfad zu Universal Viewer.exe:"
If .ShowDialog() = DialogResult.OK Then
Me.txtUniversalViewer.Text = .FileName
SaveMySettingsValue("UniversalViewer", txtUniversalViewer.Text)
CONFIG.Config.UniversalViewerPath = txtUniversalViewer.Text
CONFIG.Save()
'SaveMySettingsValue("UniversalViewer", txtUniversalViewer.Text)
End If
End With
End Sub
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
If Viewer = "uviewer" Then
If VIEWER_ALL = "uviewer" Then
rbuviewer.Checked = True
Else
rbwddocview.Checked = True
End If
If MyConnectionString = String.Empty Then
If CONNECTION_STRING = String.Empty Then
Me.TabControl1.SelectedIndex = 1
Load_ConString("")
Else
Load_ConString(MyConnectionString)
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
Load_ConString(CONNECTION_STRING)
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
End If
If UniversalViewer = String.Empty Then
UniversalViewer = Application.StartupPath & "\programs\Universal Viewer\Viewer.exe"
SaveMySettingsValue("UniversalViewer", UniversalViewer)
If VIEWER_UNIVERSAL = String.Empty Then
VIEWER_UNIVERSAL = Application.StartupPath & "\programs\Universal Viewer\Viewer.exe"
CONFIG.Config.UniversalViewerPath = VIEWER_UNIVERSAL
CONFIG.Save()
'SaveMySettingsValue("UniversalViewer", VIEWER_UNIVERSAL)
End If
txtUniversalViewer.Text = UniversalViewer
txtUniversalViewer.Text = UniversalViewer
txtpdfxchange.Text = PDFXChangeViewer
txtSumatra.Text = SumatraViewer
chkLogErrorsOnly.Checked = CBool(LogErrorsOnly)
Me.txtpdfxchange.Text = PDFXChangeViewer
txtUniversalViewer.Text = VIEWER_UNIVERSAL
txtUniversalViewer.Text = VIEWER_UNIVERSAL
txtpdfxchange.Text = VIEWER_XCHANGE
txtSumatra.Text = VIEWER_SUMATRA
chkLogErrorsOnly.Checked = CBool(LOG_ERRORS_ONLY)
Me.txtpdfxchange.Text = VIEWER_XCHANGE
Catch ex As Exception
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
If rbuviewer.Checked Then
Viewer = "uviewer"
txtUniversalViewer.Text = UniversalViewer
VIEWER_ALL = "uviewer"
txtUniversalViewer.Text = VIEWER_UNIVERSAL
GroupBox1.Visible = False
rbSumatra.Checked = False
rbPDFX_Change.Checked = False
Else
Viewer = "docview"
VIEWER_ALL = "docview"
GroupBox1.Visible = True
End If
SaveMySettingsValue("Viewer", Viewer)
CONFIG.Config.DefaultViewer = VIEWER_ALL
CONFIG.Save()
'SaveMySettingsValue("Viewer", VIEWER_ALL)
End Sub
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:"
If .ShowDialog() = DialogResult.OK Then
Me.txtpdfxchange.Text = .FileName
PDFXChangeViewer = .FileName
SaveMySettingsValue("PDFXChangeViewer", txtpdfxchange.Text)
VIEWER_XCHANGE = .FileName
CONFIG.Config.XChangeViewerPath = txtpdfxchange.Text
CONFIG.Save()
'SaveMySettingsValue("PDFXChangeViewer", txtpdfxchange.Text)
End If
End With
End Sub
@@ -92,8 +99,9 @@ Public Class frmKonfig
End If
Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString)
connection.Open()
Dim cmd As New SqlClient.SqlCommand("sp_databases", connection)
cmd.CommandType = CommandType.StoredProcedure
Dim cmd As New SqlClient.SqlCommand("sp_databases", connection) With {
.CommandType = CommandType.StoredProcedure
}
' Ausführen und Ergebnis in einer ListBox anzeigen
Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
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)
If result = MsgBoxResult.Yes Then
'ConnectionString in Anwendung speichern
MyConnectionString = con
CONNECTION_STRING = con
ClassDatabase.Init()
'Das Passwort verschlüsseln
If chkbxUserAut.Checked = False Then
@@ -137,10 +145,16 @@ Public Class frmKonfig
Dim pw As String = cipherText
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
End If
SaveMySettingsValue("MyConnectionString", con)
My.Settings.Save()
Load_ConString(MyConnectionString)
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
'SaveMySettingsValue("MyConnectionString", con)
'My.Settings.Save()
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)
End If
Catch ex As Exception
@@ -157,13 +171,16 @@ Public Class frmKonfig
.Title = "Pfad zu SumatraPDF.exe:"
If .ShowDialog() = DialogResult.OK Then
Me.txtSumatra.Text = .FileName
SaveMySettingsValue("SumatraViewer", txtSumatra.Text)
CONFIG.Config.SumatraViewerPath = txtSumatra.Text
VIEWER_SUMATRA = txtSumatra.Text
'SaveMySettingsValue("SumatraViewer", txtSumatra.Text)
End If
End With
End Sub
Private Sub frmKonfig_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
formshown = True
Select Case vpdfviewer
Select Case VIEWER_PDF
Case "internal"
rbPDF_internal.Checked = True
Case "none"
@@ -175,9 +192,9 @@ Public Class frmKonfig
Case "sumatra"
rbPDFX_Change.Checked = False
rbSumatra.Checked = True
If SumatraViewer = String.Empty Then
SumatraViewer = Application.StartupPath & "\programs\SumatraPDF\SumatraPDF.exe"
txtSumatra.Text = SumatraViewer
If VIEWER_SUMATRA = String.Empty Then
VIEWER_SUMATRA = Application.StartupPath & "\programs\SumatraPDF\SumatraPDF.exe"
txtSumatra.Text = VIEWER_SUMATRA
End If
Case "system"
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
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)
End If
vpdfviewer = "pdfxchange"
SaveMySettingsValue("vpdfviewer", vpdfviewer)
VIEWER_PDF = "pdfxchange"
CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
End If
End Sub
Private Sub rbSumatra_CheckedChanged(sender As Object, e As System.EventArgs) Handles rbSumatra.CheckedChanged
If rbSumatra.Checked And formshown = True Then
vpdfviewer = "sumatra"
SaveMySettingsValue("vpdfviewer", vpdfviewer)
VIEWER_PDF = "sumatra"
CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'VIEWER_PDF = "sumatra"
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
' lblSumatra.Visible = True
' txtSumatra.Visible = True
' btnSumatra.Visible = True
@@ -208,11 +233,12 @@ Public Class frmKonfig
' txtSumatra.Visible = False
' btnSumatra.Visible = False
End If
End Sub
Private Sub btnno_pdf_viewer_Click(sender As System.Object, e As System.EventArgs) Handles btnno_pdf_viewer.Click
vpdfviewer = "none"
SaveMySettingsValue("vpdfviewer", vpdfviewer)
VIEWER_PDF = "none"
CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
rbPDF_internal.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
If rbSystem.Checked And formshown = True Then
vpdfviewer = "system"
SaveMySettingsValue("vpdfviewer", vpdfviewer)
VIEWER_PDF = "system"
CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
End If
End Sub
@@ -277,19 +305,21 @@ Public Class frmKonfig
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbPDF_internal.CheckedChanged
If rbPDF_internal.Checked And formshown = True Then
vpdfviewer = "internal"
VIEWER_PDF = "internal"
rbPDFX_Change.Checked = False
txtpdfxchange.Text = ""
rbSumatra.Checked = False
txtSumatra.Text = ""
rbSystem.Checked = False
SaveMySettingsValue("vpdfviewer", vpdfviewer)
CONFIG.Config.PDFViewer = VIEWER_PDF
CONFIG.Save()
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
End If
End Sub
Sub Load_ConString(constr As String)
If constr <> "" And constr.Contains("Password") Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = CONNECTION_STRING
constr = constr.Replace(csb.Password, "XXXXX")
End If
@@ -312,11 +342,14 @@ Public Class frmKonfig
End Sub
Private Sub txtIntervall_TextChanged(sender As Object, e As EventArgs) Handles txtIntervall.TextChanged
' TODO: This is not used anywhere?
My.Settings.Save()
End Sub
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
LogErrorsOnly = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
LOG_ERRORS_ONLY = chkLogErrorsOnly.Checked
CONFIG.Config.LogErrorsOnly = LOG_ERRORS_ONLY
CONFIG.Save()
'SaveMySettingsValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
End Sub
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
Try
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:")
End Try

2
app/DD_PM_WINDREAM/frmLoginAdmin.vb
View File

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

28
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -60,7 +60,7 @@ Public Class frmMain
End Sub
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
UserLookAndFeel.Default.SetSkinStyle("VS2010")
Catch ex As Exception
@@ -75,8 +75,8 @@ Public Class frmMain
Try
If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then
ClassLogger.Add("## CurrentUICulture.Name: " & CultureInfo.CurrentUICulture.Name, False)
IDX_DMS_ERSTELLT = "DMS Created"
IDX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
INDEX_DMS_ERSTELLT = "DMS Created"
INDEX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
My.Settings.Save()
End If
Catch ex As Exception
@@ -85,7 +85,7 @@ Public Class frmMain
If Refresh_ConnectionString() = True Then
Try
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
MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close()
@@ -125,7 +125,7 @@ Public Class frmMain
End 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")
frmKonfig.ShowDialog()
End If
@@ -154,7 +154,7 @@ Public Class frmMain
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
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 Sub
@@ -193,10 +193,10 @@ Public Class frmMain
End Sub
Function Refresh_ConnectionString()
Try
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_USERTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
Return True
Catch ex As Exception
@@ -822,7 +822,7 @@ Public Class frmMain
Try
Me.Visible = False
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_SEARCHES_RT = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND ACTIVE = 1", CURRENT_ProfilGUID))
My.Settings.Save()
@@ -954,7 +954,7 @@ Public Class frmMain
WINDREAM = New ClassPMWindream()
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
Catch ex As Exception
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@@ -1150,7 +1150,7 @@ Public Class frmMain
Dim oindex As Integer = 0
If Not IsNothing(DTGRID_GROUPS) Then
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
oindex += 1
Next
@@ -1164,7 +1164,7 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For index = 0 To GridView_Docs.GroupCount - 1
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")
Next

58
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@@ -35,7 +35,7 @@ Public Class frmMassValidator
'_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
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@@ -53,7 +53,7 @@ Public Class frmMassValidator
End If
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)
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
MsgBox("Error LOADING profile-data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
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
Next
If LogErrorsOnly = False Then
If LOG_ERRORS_ONLY = False Then
ClassLogger.Add(" >> Profildaten gespeichert", False)
ClassLogger.Add(" >> WD_Search: " & WM_SEARCH, False)
ClassLogger.Add(" >> finalProfile: " & FINAL_PROFILE, False)
@@ -133,7 +133,7 @@ Public Class frmMassValidator
Select Case dr.Item("CTRL_TYPE").ToString.ToUpper
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)
AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
@@ -142,10 +142,10 @@ Public Class frmMassValidator
ctrl = txt
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)
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)
@@ -160,7 +160,7 @@ Public Class frmMassValidator
If CURR_CON_ID > 0 Then
Dim commandsql = CURR_SELECT_CONTROL
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 ConRow As DataRow() = ClassControlCreator.GET_CONNECTION_INFO(CURR_CON_ID)
@@ -178,7 +178,7 @@ Public Class frmMassValidator
Else
connectionString = "Data Source=" & row("SERVER") & ";Initial Catalog= " & row("DATENBANK") & ";User Id=" & row("USERNAME") & ";Password=" & row("PASSWORD") & ";"
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"
CURR_SQL_PROVIDER = "oracle"
Dim conn As New OracleConnectionStringBuilder
@@ -240,11 +240,11 @@ Public Class frmMassValidator
End Try
End If
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
Else
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)
If liste IsNot Nothing Then
cmb.Items.Add("")
@@ -274,17 +274,17 @@ Public Class frmMassValidator
ctrl = cmb
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)
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)
AddHandler dgv.RowValidating, AddressOf onDGVRowValidating
ctrl = dgv
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)
'Case "TABLE"
@@ -301,7 +301,7 @@ Public Class frmMassValidator
' ctrl = ClassControlCreator.CreateExistingTable(dr, columns, False)
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)
End Select
@@ -317,7 +317,7 @@ Public Class frmMassValidator
LoadSimpleData(ctrl, dr.Item("GUID"))
Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Controls geladen", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Controls geladen", False)
ClassLogger.Add("", False)
CTRLS_Loaded = True
FillIndexValues()
@@ -354,7 +354,7 @@ Public Class frmMassValidator
Dim defaultValue As String = NotNull(controlRow.Item("DEFAULT_VALUE"), String.Empty)
indexname = idxname
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
Select Case Type
Case "System.Windows.Forms.TextBox"
@@ -368,7 +368,7 @@ Public Class frmMassValidator
If LoadIDX = False Or idxname = "DD PM-ONLY FOR DISPLAY" Then
' Wenn kein Index exisitiert, defaultValue laden
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
End If
@@ -404,7 +404,7 @@ Public Class frmMassValidator
Else
cmb.Text = defaultValue
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
End If
wertWD = GetWM_Value_Multiple_Docs(idxname)
@@ -428,7 +428,7 @@ Public Class frmMassValidator
End If
If idxname Is Nothing = 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
End If
@@ -501,7 +501,7 @@ Public Class frmMassValidator
Dim chk As CheckBox = inctrl
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
Dim result
@@ -531,7 +531,7 @@ Public Class frmMassValidator
Else
Dim _value
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
_value = wertWD(0)
Else '
@@ -599,7 +599,7 @@ Public Class frmMassValidator
tempIndexValue = WMDOC.GetVariableValue(idxname)
If IsNothing(tempIndexValue) Then tempIndexValue = ""
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
tempIndexValue = tempIndexValue(0)
Else '
@@ -956,7 +956,7 @@ Public Class frmMassValidator
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
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)
CTRL_ID = CTRL_ID.Replace("CTRLID", "")
Dim value_from_control
@@ -1119,7 +1119,7 @@ Public Class frmMassValidator
Dim ctrl = dr.Item("NAME")
'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 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
ClassLogger.Add(" >> Indexname is unexpected empty.", False)
Continue For
@@ -1247,7 +1247,7 @@ Public Class frmMassValidator
End If
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
Case "System.Windows.Forms.CheckBox"
Dim chk As CheckBox = inctrl
@@ -1404,7 +1404,7 @@ Public Class frmMassValidator
'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False 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
For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl)
@@ -1412,7 +1412,7 @@ Public Class frmMassValidator
anzahl += 1
Next
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)
arrValue(0) = idxvalue(0).ToString
End If
@@ -1498,7 +1498,7 @@ Public Class frmMassValidator
'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False 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
For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl)
@@ -1506,7 +1506,7 @@ Public Class frmMassValidator
anzahl += 1
Next
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)
arrValue(0) = idxvalue(0).ToString
End If

6
app/DD_PM_WINDREAM/frmSQL_Admin.vb
View File

@@ -19,7 +19,7 @@ Public Class frmSQL_Admin
Try
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()
Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection)
cmd.ExecuteNonQuery()
@@ -38,7 +38,7 @@ Public Class frmSQL_Admin
End Sub
Sub Load_ConString(constr As String)
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = CONNECTION_STRING
If csb.Password.Length > 0 Then
constr = constr.Replace(csb.Password, "XXXXX")
End If
@@ -66,7 +66,7 @@ Public Class frmSQL_Admin
End Sub
Private Sub frmSQL_Admin_Load(sender As Object, e As EventArgs) Handles Me.Load
Load_ConString(MyConnectionString)
Load_ConString(CONNECTION_STRING)
End Sub
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
Try
lblSaveFinalIndex.Visible = False
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
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)
@@ -183,7 +183,7 @@ Public Class frmSQL_DESIGNER
Return dataset
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 sqlCommand As OracleCommand
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
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
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)
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)
@@ -198,7 +198,7 @@ Public Class frmUserKonfig_AddUsers
Private Function UserExists(username As String) As Boolean
Try
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
Else
Return True

341
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -100,7 +100,7 @@ Public Class frmValidator
End Try
Select Case Path.GetExtension(Windream_Document_Path).ToLower
Case ".pdf"
Select Case vpdfviewer
Select Case VIEWER_PDF
Case "internal"
My.Settings.frmValidation_Size_PDFViewer = Me.Size
Case "pdfxchange"
@@ -133,11 +133,11 @@ Public Class frmValidator
End Try
End If
If Viewer = "docview" Then
If VIEWER_ALL = "docview" Then
CloseWDDocview()
End If
If vpdfviewer = "system" Then
If VIEWER_PDF = "system" Then
Kill_PDFAcrobat()
Else
If pdfxchange = True Or sumatra = True Then
@@ -227,9 +227,9 @@ Public Class frmValidator
'End Function
Sub Close_PDF_Viewer(vorherigefile As String)
Try
If vpdfviewer = "pdfxchange" Then
If VIEWER_PDF = "pdfxchange" Then
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.UseShellExecute = True
Proc.StartInfo = psi
@@ -248,7 +248,7 @@ Public Class frmValidator
' End If
'Loop
End If
If vpdfviewer = "sumatra" Then
If VIEWER_PDF = "sumatra" Then
Try
Dim Proc As New System.Diagnostics.Process
Dim psi As New ProcessStartInfo("taskkill.exe", "/im SumatraPDF.exe")
@@ -262,7 +262,7 @@ Public Class frmValidator
End Try
End If
If vpdfviewer = "system" Then
If VIEWER_PDF = "system" Then
Kill_PDFAcrobat()
pdfxchange = False
sumatra = False
@@ -280,7 +280,7 @@ Public Class frmValidator
'_windreamPM.Create_Session()
'_windream = New ClassWindream_allgemein
'_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
Catch ex As Exception
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@@ -312,15 +312,15 @@ Public Class frmValidator
Dim _step = 0
Try
_step = 1
TBPM_FILES_USER_NOT_INDEXEDTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
VWPM_CONTROL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString
TBPM_FILES_USER_NOT_INDEXEDTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
VWPM_CONTROL_INDEXTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING
_step = 2
VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName)
_step = 3
@@ -328,7 +328,7 @@ Public Class frmValidator
_step = 4
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
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)
@@ -378,7 +378,7 @@ Public Class frmValidator
Else
btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)"
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
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)
@@ -394,7 +394,7 @@ Public Class frmValidator
End If
Next
If LogErrorsOnly = False Then
If LOG_ERRORS_ONLY = False Then
ClassLogger.Add(" >> Profildaten gespeichert", False)
ClassLogger.Add(" >> WD_Search: " & WD_Search, False)
ClassLogger.Add(" >> finalProfile: " & finalProfile, False)
@@ -403,7 +403,7 @@ Public Class frmValidator
End If
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
If USER_RIGHT_FILE_DELETE = True Then
ToolStripButtonDeleteFile.Enabled = True
@@ -411,7 +411,7 @@ Public Class frmValidator
ToolStripButtonDeleteFile.Enabled = False
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()
@@ -461,7 +461,7 @@ Public Class frmValidator
sql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
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)
dt = ClassDatabase.Return_Datatable(sql)
@@ -532,9 +532,9 @@ Public Class frmValidator
Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper
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)
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.LostFocus, AddressOf OnTextBoxLostFocus
@@ -542,10 +542,10 @@ Public Class frmValidator
ctrl = txt
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)
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)
@@ -554,15 +554,15 @@ Public Class frmValidator
#Region "CONTROL LIST"
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 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)
If ConID Is Nothing = False Then
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 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
TBDD_CONNECTIONTableAdapter.FillByID(DD_DMSLiteDataSet.TBDD_CONNECTION, ConID)
Dim DTConnection As DataTable = DD_DMSLiteDataSet.TBDD_CONNECTION
@@ -575,7 +575,7 @@ Public Class frmValidator
Else
connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
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"
Dim conn As New OracleConnectionStringBuilder
Dim connstr As String
@@ -615,7 +615,7 @@ Public Class frmValidator
If clsPatterns.HasOnlySimplePatterns(sql) Then
sql = clsPatterns.ReplaceInternalValues(sql)
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)
' Try
sqlCnn.Open()
@@ -636,12 +636,12 @@ Public Class frmValidator
End Try
End If
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
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)
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
'Dim liste = _windreamPM.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"),
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)
'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"
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)
AddHandler dgv.RowValidating, AddressOf onDGVRowValidating
@@ -692,7 +692,7 @@ Public Class frmValidator
ctrl = dgv
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)
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"),
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)
'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"
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
Where r.CONTROL_ID = oControlRow.Item("GUID")
@@ -721,7 +721,7 @@ Public Class frmValidator
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"))
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)
End Select
@@ -737,11 +737,11 @@ Public Class frmValidator
LoadSimpleData(ctrl, oControlRow.Item("GUID"))
Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Controls geladen", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Controls geladen", False)
ClassLogger.Add("", False)
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)
ClassLogger.Add("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message)
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)
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
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' 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)
_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
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' 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
Dim check = dr.Item("SQL_UEBERPRUEFUNG")
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
End If
If check.ToString.Length > 0 And dr.Item("INDEX_NAME") <> "DD PM-ONLY FOR DISPLAY" Then
@@ -1066,7 +1066,7 @@ Public Class frmValidator
Try
KillU_Viewer()
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
Proc.EnableRaisingEvents = True
Proc.StartInfo = psi
@@ -1092,14 +1092,14 @@ Public Class frmValidator
Sub Open_PDFXCHANGE(AktuelleIndexfile As String)
Try
Dim Proc As New Process
Dim psi As New ProcessStartInfo(PDFXChangeViewer, """" & AktuelleIndexfile & """")
Dim psi As New ProcessStartInfo(VIEWER_XCHANGE, """" & AktuelleIndexfile & """")
psi.WindowStyle = ProcessWindowStyle.Minimized
Proc.EnableRaisingEvents = True
psi.UseShellExecute = False
Proc.StartInfo = psi
Proc.Start()
Do While process_User_exists(PDFXChangeViewer, "START") = False
Do While process_User_exists(VIEWER_XCHANGE, "START") = False
'Warten bis PDF geladen ist
Thread.Sleep(500)
Loop
@@ -1112,7 +1112,7 @@ Public Class frmValidator
Sub Open_Sumatra(AktuelleIndexfile As String)
Try
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
Proc.EnableRaisingEvents = True
psi.UseShellExecute = False
@@ -1156,13 +1156,13 @@ Public Class frmValidator
{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
Function Get_Next_GUID() As Integer
Try
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
' newGUID = TBPM_PROFILE_FILESTableAdapter.cmdgetNextFile_GUID_Newest(CURRENT_ProfilGUID, OLD_Document_Path, Environment.UserName)
'Else
@@ -1174,7 +1174,7 @@ Public Class frmValidator
Windream_Document_Path = ""
CURRENT_DOC_PATH = ""
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 = Windream_Document_Path.Replace("W:", "\\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)
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
Do While allgFunk.file_exists(Windream_Document_Path, _windream) = False And newGUID <> 0
i = i + 1
@@ -1251,7 +1251,7 @@ Public Class frmValidator
File.Delete(CURRENT_HTML_DOC)
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)
End If
If aktivesDokument Is Nothing = False Then
@@ -1280,7 +1280,7 @@ Public Class frmValidator
Sub Load_Next_Document(first As Boolean)
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)
errmessage = ""
Windream_Document_Path = ""
@@ -1290,13 +1290,13 @@ Public Class frmValidator
'Me.lblerror.Visible = 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
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
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Following Document ", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Following Document ", False)
docCounter += 1
End If
@@ -1318,7 +1318,7 @@ Public Class frmValidator
Filesystem_Document_Path = GetFilesystemDocumentPath(Windream_Document_Path)
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
'Beschriftung des Navigators
'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files"
@@ -1359,10 +1359,10 @@ Public Class frmValidator
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()
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
Me.grpbxMailBody.Visible = False
Me.grpBetreff.Visible = False
@@ -1375,13 +1375,13 @@ Public Class frmValidator
ToolStripButtonAnnotation.Visible = False
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Viewer geladen", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Viewer geladen", False)
FillIndexValues()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexmaske geladen", False)
If LogErrorsOnly = False Then ClassLogger.Add("", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Indexmaske geladen", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add("", False)
'Nun im Vektoprindex loggen das das Profil geladen wurde
'If PROFIL_VEKTORINDEX <> "" Then
@@ -1399,7 +1399,7 @@ Public Class frmValidator
If PROFIL_LOGINDEX <> "" Then
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 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
' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' My.Settings.Save()
@@ -1438,7 +1438,7 @@ Public Class frmValidator
End Try
End Sub
Sub load_viewer()
If Viewer = "uviewer" Then
If VIEWER_ALL = "uviewer" Then
pdfxchange = False
sumatra = False
If Filesystem_Document_Path.ToLower.EndsWith(".msg") Then
@@ -1446,14 +1446,14 @@ Public Class frmValidator
Else
ShowFile_UniversalViewer(Filesystem_Document_Path)
End If
ElseIf Viewer = "docview" Then
ElseIf VIEWER_ALL = "docview" Then
PdfControls_visible(False)
If Filesystem_Document_Path.ToLower.EndsWith(".pdf") And vpdfviewer <> "none" Then
Select Case vpdfviewer
If Filesystem_Document_Path.ToLower.EndsWith(".pdf") And VIEWER_PDF <> "none" Then
Select Case VIEWER_PDF
Case "internal"
SplitContainer1.Panel2Collapsed = False
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)
Me.Size = My.Settings.frmValidation_Size_PDFViewer
'PdfViewer1.ZoomFactor = PDFViewer_ZoomMode
@@ -1571,55 +1571,74 @@ Public Class frmValidator
'End If
Try
CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT)
CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT)
Catch ex As Exception
If ex.Message.Contains("Variable: " & IDX_DMS_ERSTELLT & " not found!") Then
ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & IDX_DMS_ERSTELLT & " not found", True)
If ex.Message.Contains("Variable: " & INDEX_DMS_ERSTELLT & " not found!") Then
ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT & " not found", True)
ClassLogger.Add("1. Ausnahme-Fehler: " & ex.Message, False)
If IDX_DMS_ERSTELLT = "DMS Created" Then
SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS erstellt")
IDX_DMS_ERSTELLT = "DMS erstellt"
IDX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt (Zeit)")
If INDEX_DMS_ERSTELLT = "DMS Created" Then
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)")
'SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS erstellt")
Else
IDX_DMS_ERSTELLT = "DMS Created"
SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS Created")
IDX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt Time")
INDEX_DMS_ERSTELLT = "DMS Created"
INDEX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
CONFIG.Config.IndexDmsErstellt = INDEX_DMS_ERSTELLT
CONFIG.Config.IndexDmsErstelltZeit = INDEX_DMS_ERSTELLT_ZEIT
'SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS Created")
'SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt Time")
End If
CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT)
CURRENT_DOC_CREATION_DATE = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT)
Else
ClassLogger.Add("Fehler in Windream_get_Doc_info 1: " & ex.Message)
Return "Fehler in Windream_get_Doc_info 1: " & ex.Message
End If
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
CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT_ZEIT)
CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT)
Catch ex As Exception
If ex.Message.Contains("Variable: " & IDX_DMS_ERSTELLT_ZEIT & " not found!") Then
ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & IDX_DMS_ERSTELLT_ZEIT & " not found", True)
If IDX_DMS_ERSTELLT = "DMS Created" Then
IDX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS erstellt (Zeit)")
If ex.Message.Contains("Variable: " & INDEX_DMS_ERSTELLT_ZEIT & " not found!") Then
ClassLogger.Add("1. Ausnahme in Windream_get_Doc_info: Variable: " & INDEX_DMS_ERSTELLT_ZEIT & " not found", True)
If INDEX_DMS_ERSTELLT = "DMS Created" Then
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
IDX_DMS_ERSTELLT = "DMS Created"
SaveMySettingsValue("IDX_DMS_ERSTELLT", "DMS Created")
IDX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
SaveMySettingsValue("IDX_DMS_ERSTELLT_ZEIT", "DMS Created Time")
INDEX_DMS_ERSTELLT = "DMS Created"
INDEX_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
CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(IDX_DMS_ERSTELLT_ZEIT)
CURRENT_DOC_CREATION_TIME = aktivesDokument.GetVariableValue(INDEX_DMS_ERSTELLT_ZEIT)
Else
ClassLogger.Add("Fehler in Windream_get_Doc_info 3: " & ex.Message)
Return "Fehler in Windream_get_Doc_info 3: " & ex.Message
End If
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
CURRENT_DOC_CREATION_DATE = CURRENT_DOC_CREATION_DATE & " " & CURRENT_DOC_CREATION_TIME.Substring(10)
@@ -1835,7 +1854,7 @@ Public Class frmValidator
oIndexName = oWMIndexName
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
Select Case oType
@@ -1851,7 +1870,7 @@ Public Class frmValidator
' Wenn kein Index exisitiert, defaultValue laden
oControl.Text = 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
End If
Dim wertWD
@@ -1864,7 +1883,7 @@ Public Class frmValidator
wertWD = ""
Else
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
wertWD = wertWD(0)
_CURRENT_INDEX_ARRAY(oCount, 1) = wertWD(0)
@@ -1908,7 +1927,7 @@ Public Class frmValidator
cmb.Text = oDefaultValue
_CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue
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
End If
Dim wertWD
@@ -1919,22 +1938,22 @@ Public Class frmValidator
End If
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 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
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
_CURRENT_INDEX_ARRAY(oCount, 1) = oDefaultValue
'cmb.SelectedIndex = cmb.FindStringExact(defaultValue)
End If
Else
If LogErrorsOnly = 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($" >> Indexwert aus index {oWMIndexName}: {wertWD}", 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
_CURRENT_INDEX_ARRAY(oCount, 1) = wertWD
'If cmb.Items.Count = 0 Then
@@ -1965,10 +1984,10 @@ Public Class frmValidator
End If
If oWMIndexName Is Nothing = 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
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)
If wertWD Is Nothing = False Then
@@ -1979,10 +1998,10 @@ Public Class frmValidator
Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId)
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
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)
Select Case dt.Rows.Count
Case 1
@@ -2040,10 +2059,10 @@ Public Class frmValidator
End If
If oWMIndexName Is Nothing = 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
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)
If wertWD Is Nothing = False Then
@@ -2054,10 +2073,10 @@ Public Class frmValidator
Case "TABLE"
Dim dt As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = " & oControlId)
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
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)
Dim oDataSource As DataTable = dgv.DataSource
@@ -2121,7 +2140,7 @@ Public Class frmValidator
End If
End If
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"
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)
@@ -2132,7 +2151,7 @@ Public Class frmValidator
Dim chk As CheckBox = oControl
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
Dim result = False
@@ -2147,7 +2166,7 @@ Public Class frmValidator
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
If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then
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)
chk.Checked = False
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
If wertWD.ToString = "" Then
ClassLogger.Add(">> Versuch, default Value zu laden", False)
@@ -2179,7 +2198,7 @@ Public Class frmValidator
Else
Dim _value
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
_value = wertWD(0)
Else '
@@ -2240,7 +2259,7 @@ Public Class frmValidator
Dim wertWD
Try
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)
ClassLogger.Add(">> DTP is """, False)
Else
@@ -2252,14 +2271,14 @@ Public Class frmValidator
If wertWD.ToString.Length > 0 Then
Try
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
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
DTP.Text = tempdate
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
DTP.Text = tempdate
End If
@@ -2317,8 +2336,8 @@ Public Class frmValidator
End Sub
Sub CloseWDDocview()
Try
If Viewer = "docview" Then
If aktivesDokument.aPath.EndsWith("pdf") = False Or vpdfviewer = "none" Then
If VIEWER_ALL = "docview" Then
If aktivesDokument.aPath.EndsWith("pdf") = False Or VIEWER_PDF = "none" Then
If DocView Is Nothing = False Then
DocView.CloseView(aktivesDokument.aPath, 0)
End If
@@ -2336,7 +2355,7 @@ Public Class frmValidator
End Sub
Sub Abschluss()
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
If Check_UpdateIndexe() = False Then
'lblerror.Visible = False
@@ -2349,21 +2368,21 @@ Public Class frmValidator
Dim dtfinal As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING
If dtfinal.Rows.Count > 0 Then
'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
Dim value As String = dr.Item("VALUE").ToString
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")
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)
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 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
Else
ClassLogger.Add("ATTENTION: DYNAMIC VALUE IS NOTHING!")
@@ -2386,13 +2405,13 @@ Public Class frmValidator
result(0) = value
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 dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then
' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME"))
'Hier muss nun separat als Vektorfeld indexiert werden
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
errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
My.Settings.Save()
@@ -2400,10 +2419,10 @@ Public Class frmValidator
_error = True
End If
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 LogErrorsOnly = 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(" >> FINALER INDEX '" & dr.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add("")
'Nun das Logging
If PROFIL_LOGINDEX <> "" Then
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
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
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)
@@ -2455,7 +2474,7 @@ Public Class frmValidator
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
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)
CTRL_ID = CTRL_ID.Replace("CTRLID", "")
Dim value_from_control
@@ -2562,12 +2581,12 @@ Public Class frmValidator
End If
'Validierungsfile löschen wenn vorhanden
allgFunk.Delete_xffres(Windream_Document_Path, _windream)
If LogErrorsOnly = 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(" >> Delete_xffres ausgeführt", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> All Input clear", False)
Anzahl_validierte_Dok += 1
'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID)
If LogErrorsOnly = 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(" >> Anzahl hochgesetzt", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Validierung erfolgreich abgeschlossen", False)
ClassLogger.Add("", False)
If CURRENT_JUMP_DOC_GUID <> 0 Then
Me.Close()
@@ -2697,7 +2716,7 @@ Public Class frmValidator
Dim ctrl = dr.Item("CTRL_NAME")
'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 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
ClassLogger.Add(" >> Indexname is unexpected empty.", False)
Continue For
@@ -2970,11 +2989,11 @@ Public Class frmValidator
End If
End If
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
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
Case "System.Windows.Forms.CheckBox"
Dim chk As CheckBox = inctrl
@@ -3199,7 +3218,7 @@ Public Class frmValidator
'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False 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
For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl)
@@ -3207,7 +3226,7 @@ Public Class frmValidator
anzahl += 1
Next
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)
arrValue(0) = idxvalue(0).ToString
End If
@@ -3307,9 +3326,9 @@ Public Class frmValidator
End Sub
Sub Datei_ueberspringen()
Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokument überspringen", False)
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Dokument überspringen", False)
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
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)
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)
Load_Next_Document(False)
Catch ex As Exception
@@ -3417,7 +3436,7 @@ Public Class frmValidator
If Windream_Document_Path Is Nothing = False Then
Select Case Path.GetExtension(Windream_Document_Path).ToLower
Case ".pdf"
Select Case vpdfviewer
Select Case VIEWER_PDF
Case "internal"
My.Settings.frmValidation_Size_PDFViewer = Me.Size
Case "pdfxchange"
@@ -3457,13 +3476,11 @@ Public Class frmValidator
PdfViewer1.ZoomFactor = 20
End Sub
Private Sub PdfViewer1_ZoomChanged_1(sender As Object, e As DevExpress.XtraPdfViewer.PdfZoomChangedEventArgs) Handles PdfViewer1.ZoomChanged
If Not PdfViewer1.ZoomMode = DevExpress.XtraPdfViewer.PdfZoomMode.Custom Then
End If
Dim sdds = PdfViewer1.ZoomFactor
SaveMySettingsValue("PDFViewer_ZoomMode", PdfViewer1.ZoomFactor)
PDFViewer_ZoomMode = PdfViewer1.ZoomFactor
Private Sub PdfViewer1_ZoomChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfZoomChangedEventArgs) Handles PdfViewer1.ZoomChanged
'SaveMySettingsValue("PDFViewer_ZoomMode", PdfViewer1.ZoomFactor)
VIEWER_ZOOM_LEVEL = PdfViewer1.ZoomFactor
CONFIG.Config.PDFViewerZoomLevel = VIEWER_ZOOM_LEVEL
CONFIG.Save()
End Sub
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>