MSBuildProblem_PM

.vs/ProjectSettings.json

@@ -0,0 +1,3 @@
+{
+  "CurrentProjectSetting": null
+}

.vs/VSWorkspaceState.json

@@ -0,0 +1,6 @@
+{
+  "ExpandedNodes": [
+    ""
+  ],
+  "PreviewInSolutionExplorer": false
+}

DD_PM_WINDREAM.sln

@@ -0,0 +1,43 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 2013
+VisualStudioVersion = 12.0.21005.1
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_PM_WINDREAM", "DD_PM_WINDREAM\DD_PM_WINDREAM.vbproj", "{6ACA1432-09A2-47EF-A704-C0AA73905756}"
+EndProject
+Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "Setup", "Setup\Setup.wixproj", "{A28B0175-3407-4831-86DA-22AF0D121FFD}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		CD_ROM|x86 = CD_ROM|x86
+		Debug|x86 = Debug|x86
+		DVD-5|x86 = DVD-5|x86
+		Release|x86 = Release|x86
+		SingleImage|x86 = SingleImage|x86
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|x86.ActiveCfg = Release|x86
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.CD_ROM|x86.Build.0 = Release|x86
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|x86.ActiveCfg = Debug|x86
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.Debug|x86.Build.0 = Debug|x86
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|x86.ActiveCfg = Debug|x86
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.DVD-5|x86.Build.0 = Debug|x86
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|x86.ActiveCfg = Release|x86
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.Release|x86.Build.0 = Release|x86
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|x86.ActiveCfg = Release|x86
+		{6ACA1432-09A2-47EF-A704-C0AA73905756}.SingleImage|x86.Build.0 = Release|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.CD_ROM|x86.ActiveCfg = Release|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.CD_ROM|x86.Build.0 = Release|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.Debug|x86.ActiveCfg = Debug|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.Debug|x86.Build.0 = Debug|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.DVD-5|x86.ActiveCfg = Debug|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.DVD-5|x86.Build.0 = Debug|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.Release|x86.ActiveCfg = Release|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.Release|x86.Build.0 = Release|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.SingleImage|x86.ActiveCfg = Release|x86
+		{A28B0175-3407-4831-86DA-22AF0D121FFD}.SingleImage|x86.Build.0 = Release|x86
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

DD_PM_WINDREAM/App.config

@@ -0,0 +1,49 @@
+<?xml version="1.0"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+            <section name="DD_PM_WINDREAM.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
+        </sectionGroup>
+    </configSections>
+    <connectionStrings>
+        <add name="DD_PM_WINDREAM.My.MySettings.ConnectionString" connectionString="Data Source=172.24.12.41\Tests;Initial Catalog=DD_DMS;Persist Security Info=True;User ID=sa;Password=dd"
+            providerName="System.Data.SqlClient" />
+    </connectionStrings>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+    </startup>
+    <userSettings>
+        <DD_PM_WINDREAM.My.MySettings>
+            <setting name="errormessage" serializeAs="String">
+                <value />
+            </setting>
+            <setting name="frmTableColumns_Position" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
+            <setting name="frmValidator_Splitter" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
+            <setting name="frmValidation_Size_PDFViewer" serializeAs="String">
+                <value>890, 790</value>
+            </setting>
+            <setting name="frmValidation_Size_Email" serializeAs="String">
+                <value>890, 790</value>
+            </setting>
+            <setting name="IntervallReminder" serializeAs="String">
+                <value>5</value>
+            </setting>
+            <setting name="frmMainSize" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
+            <setting name="frmMainPosition" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
+            <setting name="frmValidatorSize" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
+            <setting name="frmValidatorPosition" serializeAs="String">
+                <value>0, 0</value>
+            </setting>
+        </DD_PM_WINDREAM.My.MySettings>
+    </userSettings>
+</configuration>

DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb

@@ -0,0 +1,303 @@
+Imports System.Data.SqlClient
+Imports System.Data.OracleClient
+Imports System.IO
+Imports WINDREAMLib
+
+Public Class ClassAllgemeineFunktionen
+    Public Function Insert_LogEntry(PROFIL_ID As String, ERR_MSG As String, USR As String)
+        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
+                    ClassLogger.Add("Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True)
+                End If
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("Error in Insert_LogEntry: " & ex.Message)
+        End Try
+      
+
+    End Function
+    Public Function ExecuteonMSSQL(ByVal sqlcommand As String, ConString As String)
+        Try
+            ' die nötigen Variablen definieren
+            Dim Connection As SqlConnection
+
+            Dim Command As SqlCommand = Nothing
+            Dim DataAdapter As SqlDataAdapter = Nothing
+
+            ' ConnectionString aufbauen (aus Settings auslesen)
+            Connection = New SqlConnection(ConString)
+
+
+            ' Verbindung zur Datenbank aufbauen
+            Try
+                Connection.Open()
+            Catch ex As Exception
+                ' DB-Connection schliessen
+                Me.CloseMssqlDb(Connection)
+                ClassLogger.Add("ExecuteonMSSQL.Connection definieren - Error: " & ex.Message, True)
+                Return "ExecuteonMSSQL.Connection definieren - Error: " & ex.Message
+            End Try
+
+
+            ' SQL-Abfrage definieren
+            Try
+                Command = New SqlCommand(sqlcommand, Connection)
+            Catch ex As Exception
+                ClassLogger.Add("ExecuteonMSSQL.sqlcommand definieren - Error: " & ex.Message, True)
+                ' DB-Connection schliessen
+                Me.CloseMssqlDb(Connection)
+                Return "ExecuteonMSSQL.sqlcommand definieren - Error: " & ex.Message
+            End Try
+
+            ' *** Ausführen des Command ***
+            If Command IsNot Nothing Then
+
+                Try
+                    Command.ExecuteNonQuery()
+                    ' DB-Connection schliessen
+                    Me.CloseMssqlDb(Connection)
+                    Return ""
+                Catch ex As Exception
+                    'bei einem Fehler einen Eintrag in der Logdatei erzeugen
+                    ClassLogger.Add("ExecuteonMSSQL.Execute Command - Error: " & ex.Message, True)
+                    ClassLogger.Add("Command-Befehl: " & Command.CommandText, True)
+                    ' DB-Connection schliessen
+                    Me.CloseMssqlDb(Connection)
+                    Return "ExecuteonMSSQL.Execute Command - Error: " & ex.Message
+
+                End Try
+            Else
+                ' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
+                ' Eintrag in Logdatei machen
+                ClassLogger.Add("ExecuteonMSSQL.SQL-Command ist ungültig. Command-Objekt konnte nicht erstellt werden")
+                Return "ExecuteonMSSQL.SQL-Command ist ungültig. Command-Objekt konnte nicht erstellt werden"
+            End If
+        Catch ex As Exception
+            ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
+            ClassLogger.Add("ExecuteonMSSQL.Ein unbekannter Fehler in ExecuteonMSSQL - Error: " & ex.Message, True)
+            Return "ExecuteonMSSQL.Ein unbekannter Fehler in ExecuteonMSSQL - Error: " & ex.Message
+        End Try
+
+    End Function
+    Private Sub CloseMssqlDb(ByRef Connection As SqlConnection)
+        ' wenn eine Datenbank-Connection aufgebaut ist
+        If Connection IsNot Nothing Then
+            ' diese schliessen
+            Connection.Close()
+            Connection = Nothing
+        End If
+
+    End Sub
+    Public Function Delete_xffres(originFile As String)
+        Try
+            Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(originFile)
+            Dim Path As String = System.IO.Path.GetDirectoryName(originFile)
+            Dim xffres As String = Path & "\" & Stammname & ".xffres"
+            If file_exists(xffres, False) = True Then
+                System.IO.File.Delete(xffres)
+                ClassLogger.Add(">> Datei " & xffres & " erfolgreich gelöscht", False)
+                Return True
+            Else
+                Return Nothing
+            End If
+        Catch ex As Exception
+            ClassLogger.Add(" Fehler bei Delete_xffres", True)
+            ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False)
+        End Try
+    End Function
+    Public Function func_check_file_use(ByVal filename) As Boolean
+        Dim fs As Integer = FreeFile()
+        Dim inuse As Boolean = False
+        If File.Exists(filename) Then
+            Try
+                FileOpen(fs, filename, OpenMode.Binary, _
+                OpenAccess.ReadWrite, OpenShare.LockReadWrite)
+            Catch
+                inuse = True
+            Finally
+                FileClose(fs)
+            End Try
+        End If
+        Return inuse
+    End Function
+    Public Function Delete_File(originFile As String)
+        Try
+
+            If file_exists(originFile, False) = True Then
+                System.IO.File.Delete(originFile)
+                ClassLogger.Add(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
+                Return True
+            Else
+                MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation)
+                Return False
+            End If
+        Catch ex As Exception
+            ClassLogger.Add(" Fehler bei Delete_File", True)
+            ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False)
+        End Try
+    End Function
+
+    Public Function Move2Folder(ByVal vMove_File As String, ByVal vZiel_Pfad As String, Profile_ID As Integer)
+        Try
+            If vpdfviewer <> "internal" And vMove_File.EndsWith("pdf") Then
+                Do While func_check_file_use(vMove_File) = True
+                    ClassLogger.Add(">> MoveRename: Datei noch geöffnet - Warten", False)
+                    System.Threading.Thread.Sleep(500)
+                Loop
+            End If
+
+
+            Dim extension As String = IO.Path.GetExtension(vMove_File)
+            Dim Filename As String = IO.Path.GetFileName(vMove_File)
+            Dim path As String = IO.Path.GetDirectoryName(vMove_File)
+            Dim _Ziel As String
+            _Ziel = vZiel_Pfad & "\" & Filename
+            Dim version As Integer = 1
+            If vZiel_Pfad <> path Then
+                Dim Stammname As String = IO.Path.GetFileNameWithoutExtension(vMove_File)
+                Do While file_exists(_Ziel, False) = True
+                    Dim neuername As String = Stammname & "~" & version & extension
+                    _Ziel = neuername
+                    version = version + 1
+                Loop
+                My.Computer.FileSystem.MoveFile(vMove_File, _Ziel)
+                ClassLogger.Add(">> Datei erfolgreich verschoben - Ziel: " & _Ziel, False)
+            Else
+                ClassLogger.Add(">> Ziel und Quellpfad sind identisch!", False)
+            End If
+
+            Return ""
+        Catch ex As Exception
+            ClassLogger.Add(" Fehler bei Move2Folder", True)
+            ClassLogger.Add(">> Fehlermeldung", False)
+            ClassLogger.Add(">>" & ex.Message, False)
+            Insert_LogEntry(Profile_ID, "Fehler bei Move2Folder: " & ex.Message, Environment.UserName)
+            Return ex.Message
+        End Try
+    End Function
+    Public Function file_exists(ByVal _file As String, ByVal suche As Boolean)
+        Try
+            If System.IO.File.Exists(_file) Then
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("Fehler in Funktion file_exists - Fehler: ", ex.Message)
+            Return False
+        End Try
+    End Function
+    Public Function checkValue_Exists(sqlbefehl As String, Replace_value As String, Check_value As String, Typ As String, connString As String, profilid As Integer)
+        Try
+            Dim sql As String
+            Dim CONNTYPE As String
+            If connString <> "" Then
+                If connString.StartsWith("%MS") Then
+                    CONNTYPE = "MS-SQL"
+                    connString = connString.Replace("%MS", "")
+                ElseIf connString.StartsWith("%OR") Then
+                    CONNTYPE = "ORACLE"
+                    connString = connString.Replace("%OR", "")
+                End If
+
+                Dim sqlscalar = sqlbefehl
+                Select Case Typ
+                    Case "INTEGER"
+                        '@manValue
+                        sqlscalar = sqlscalar.ToString.Replace(Replace_value, Check_value)
+                    Case Else
+                        sqlscalar = sqlscalar.ToString.Replace(Replace_value, "'" & Check_value & "'")
+                End Select
+
+                sql = sqlscalar
+                Dim ergebnis As Integer
+                If CONNTYPE = "ORACLE" Then
+                    ergebnis = Execute_Scalar_Oracle(sql, connString, True, profilid)
+                Else
+                    ergebnis = Execute_Scalar_SQLServer(sql, connString, True, profilid)
+                End If
+
+                Select Case ergebnis
+                    Case 1
+                        Return True
+                    Case Else
+                        Return False
+                End Select
+            End If
+        Catch ex As Exception
+            MsgBox("Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei checkValue_Exists:")
+            ClassLogger.Add(" - Unvorhergesehener Fehler bei checkValue_Exists - Fehler: " & vbNewLine & ex.Message)
+            Return False
+        End Try
+    End Function
+
+    Function Execute_Scalar_SQLServer(vsql_statement As String, vconnectionString As String, check As Boolean, profil_id As Integer)
+        Try
+            Dim cnn As SqlConnection
+            cnn = New SqlConnection(vconnectionString)
+            Dim cmd As SqlCommand
+            cnn.Open()
+            cmd = New SqlCommand(vsql_statement, cnn)
+            If check = True Then
+                'ERgebnis muss immer 1 oder mehr ergeben
+                Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar())
+                If count = 1 Then
+                    cmd.Dispose()
+                    cnn.Close()
+                    Return 1
+                Else
+                    cmd.Dispose()
+                    cnn.Close()
+                    Return 2
+                End If
+            Else
+                'Ergebnis 
+                Dim ergebnis As String = cmd.ExecuteScalar()
+                Return ergebnis
+            End If
+
+        Catch ex As Exception
+            MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
+            Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, Environment.UserName)
+            ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
+            ClassLogger.Add(" - SQL: " & vsql_statement, False)
+            ClassLogger.Add(" - Connection: " & vconnectionString, False)
+            Return 99
+        End Try
+    End Function
+    Function Execute_Scalar_Oracle(vsql_statement As String, vconnectionString As String, check As Boolean, profil_id As Integer)
+        Try
+            Dim cnn As System.Data.OleDb.OleDbConnection
+            cnn = New System.Data.OleDb.OleDbConnection(vconnectionString)
+            Dim cmd As System.Data.OleDb.OleDbCommand
+            cnn.Open()
+            cmd = New System.Data.OleDb.OleDbCommand(vsql_statement, cnn)
+
+            If check = True Then
+                'Ergebnis muss immer 1 oder mehr ergeben
+                Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar())
+                If count = 1 Then
+                    Return 1
+                Else
+                    Return 2
+                End If
+            Else
+                'Ergebnis 
+                Dim ergebnis As String = cmd.ExecuteScalar()
+                Return ergebnis
+            End If
+
+            cmd.Dispose()
+            cnn.Close()
+        Catch ex As Exception
+            MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
+            Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, Environment.UserName)
+            ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
+            ClassLogger.Add(" - SQL: " & vsql_statement, False)
+            ClassLogger.Add(" - Connection: " & vconnectionString, False)
+            Return 99
+        End Try
+    End Function
+End Class

DD_PM_WINDREAM/ClassControl_Properties.vb

@@ -0,0 +1,58 @@
+Imports System.ComponentModel
+'''
+<DefaultPropertyAttribute("Controlangaben")> _
+Public Class ClassControl_Properties
+    '''
+    Private _Bez As String
+    Private _Show As Boolean
+    Private _Number As Short
+    '''
+    <CategoryAttribute("Controlangaben"), _
+       Browsable(True), _
+       [ReadOnly](False), _
+       BindableAttribute(False), _
+       DefaultValueAttribute(""), _
+       DesignOnly(False), _
+       DescriptionAttribute("Enter Title for the application")> _
+    Public Property CtrlName() As String
+        Get
+            Return _Bez
+        End Get
+        Set(ByVal Value As String)
+            _Bez = Value
+        End Set
+    End Property
+    '''
+    <CategoryAttribute("Application"), _
+       Browsable(True), _
+       [ReadOnly](False), _
+       BindableAttribute(False), _
+       DefaultValueAttribute("True"), _
+       DesignOnly(False), _
+       DescriptionAttribute("Show option")> _
+    Public Property Show() As Boolean
+        Get
+            Return _Show
+        End Get
+        Set(ByVal Value As Boolean)
+            _Show = Value
+        End Set
+    End Property
+    '''
+    <CategoryAttribute("Application"), _
+       Browsable(True), _
+       [ReadOnly](False), _
+       BindableAttribute(False), _
+       DefaultValueAttribute("0"), _
+       DesignOnly(False), _
+       DescriptionAttribute("Enter a number")> _
+    Public Property Number() As Short
+        Get
+            Return _Number
+        End Get
+        Set(ByVal Value As Short)
+            _Number = Value
+        End Set
+    End Property
+    '''
+End Class

DD_PM_WINDREAM/ClassDatabase.vb

@@ -0,0 +1,218 @@
+Imports Oracle.ManagedDataAccess.Client
+Public Class ClassDatabase
+    Private Shared SQLSERVERConnectionString As String
+    Private Shared OracleConnectionString As String
+    Public Shared Function Get_ConnectionString(id As Integer)
+        Dim connectionString As String = ""
+        Try
+            'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
+            Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_CONNECTION WHERE GUID = " & id)
+            If DTConnection.Rows.Count = 1 Then
+                Select Case DTConnection.Rows(0).Item("SQL_PROVIDER")
+                    Case "MS-SQL"
+                        If DTConnection.Rows(0).Item("USERNAME") = "WINAUTH" Then
+                            connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
+                        Else
+                            connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
+                        End If
+                        ' connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
+                    Case "Oracle"
+                        If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then
+                            connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
+                               DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
+                        Else
+                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True"
+                        End If
+                        'Case "ODBC"
+                        '    Dim conn As New OdbcConnection("dsn=" & DTConnection.Rows(0).Item("SERVER") & ";uid=" & DTConnection.Rows(0).Item("USERNAME") & ";pwd=" + DTConnection.Rows(0).Item("PASSWORD"))
+                        '    connectionString = conn.ConnectionString
+                    Case Else
+                        ClassLogger.Add(" - ConnectionType nicht integriert", False)
+                        MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
+                End Select
+            Else
+                ClassLogger.Add(" No entry for Connection-ID: " & id.ToString, True)
+            End If
+
+        Catch ex As Exception
+            ClassLogger.Add(" - Error in bei Get ConnectionString - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Get ConnectionString:")
+        End Try
+        Return connectionString
+    End Function
+    Public Shared Function Init()
+        Try
+            SQLSERVERConnectionString = MyConnectionString
+            Dim SQLconnect As New SqlClient.SqlConnection
+            SQLconnect.ConnectionString = SQLSERVERConnectionString
+            SQLconnect.Open()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            ClassLogger.Add("Fehler bei Database-Init: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = SQLSERVERConnectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+            End If
+            ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & Select_anweisung, False)
+            Return Nothing
+        End Try
+    End Function
+    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)
+
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+            End If
+            ClassLogger.Add("Fehler bei Return_Datatable_CS: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & Select_anweisung, False)
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = SQLSERVERConnectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            End If
+            ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & ExecuteCMD, False)
+         
+            Return False
+        End Try
+    End Function
+    Public Shared Function Execute_Scalar(cmdscalar As String, ConString As String, Optional userInput As Boolean = False)
+        Dim result
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = ConString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return result
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
+            End If
+            ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & cmdscalar, False)
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
+        Dim result
+        Try
+            Dim SQLconnect As New OracleConnection
+            Dim SQLcommand As New OracleCommand
+            SQLconnect.ConnectionString = OracleConnection
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return result
+        Catch ex As Exception
+            ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & cmdscalar, False)
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New OracleConnection
+            Dim SQLcommand As OracleCommand
+            SQLconnect.ConnectionString = OracleConnection
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            End If
+            ClassLogger.Add("Fehler bei OracleExecute_non_Query: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & ExecuteCMD, False)
+
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New OracleConnection
+            Dim SQLcommand As OracleCommand
+            SQLconnect.ConnectionString = OracleConnection
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As OracleDataAdapter = New OracleDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+            End If
+            ClassLogger.Add("Fehler bei Oracle_Return_Datatable: " & ex.Message, True)
+            ClassLogger.Add("#SQL: " & Select_anweisung, False)
+            Return Nothing
+        End Try
+    End Function
+End Class

DD_PM_WINDREAM/ClassEmail.vb

@@ -0,0 +1,65 @@
+Imports System.Net.Mail
+Public Class ClassEmail
+    Public Function Send_Log_Mail(ByVal vBody As String, ByVal vBetreff As String, ByVal emailfrom As String, ByVal emailsmtp As String, ByVal emailuser As String, ByVal emailpw As String, ByVal email_empf As String, Optional test As Boolean = False, Optional Log As Boolean = False)
+        '#### E-MAIL NACHRICHT VERSENDEN
+        Try
+            Dim empfaenger As String()
+            If email_empf.Contains(";") Then
+                empfaenger = email_empf.Split(";")
+            Else
+                ReDim Preserve empfaenger(0)
+                empfaenger(0) = email_empf
+            End If
+            'Für jeden Empfänger eine Neue Mail erzeugen
+            For Each _mailempfaenger As String In empfaenger
+                ' Neue Nachricht erzeugen: 
+                Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName, _
+                                               "<font face=""Arial"">" & vBody & "<br>>> Version: " & My.Application.Info.Version.ToString & "<br>>> Maschine: " & Environment.MachineName & "<br>" & "<br>>> Domain-Name: " & Environment.UserDomainName & "<br>" & _
+                                               "<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _
+                                               My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
+                If test = False Then
+                    If Log = True Then
+                        ' create and add the attachment(s) */
+                        Dim logfile As String = ClassLogger.logDateiname
+                        If logfile.Contains("\\") Then
+                            logfile = logfile.Replace("\\", "\")
+                        End If
+                        If IO.File.Exists(logfile) Then
+                            Dim Attachment As Attachment = New Attachment(logfile)
+                            message.Attachments.Add(Attachment)
+                        End If
+                    End If
+                End If
+
+                With message
+                    .IsBodyHtml = True
+                    .Priority = MailPriority.High
+                End With
+
+                'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
+                Dim emailClient As New SmtpClient(emailsmtp)
+                'Email mit Authentifizierung
+                Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw) ', My.Settings.vDomain)
+                emailClient.UseDefaultCredentials = False
+                emailClient.Credentials = SMTPUserInfo
+                emailClient.Port = 25
+
+                '*Send the message */
+                emailClient.Send(message)
+                If test = True Then
+                    MsgBox("Die Test-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
+                End If
+                If Log = True Then
+                    MsgBox("Die Support-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
+                End If
+                'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
+            Next
+            Return True
+        Catch ex As Exception
+            ClassLogger.Add("### Fehler im Mailversand: " & ex.Message)
+            Return False
+        End Try
+    End Function
+    
+End Class
+

DD_PM_WINDREAM/ClassEncryption.vb

@@ -0,0 +1,68 @@
+Imports System.Security.Cryptography
+Public Class ClassEncryption
+    Private TripleDes As New TripleDESCryptoServiceProvider
+    Sub New(ByVal key As String)
+        ' Initialize the crypto provider.
+        TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8)
+        TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8)
+    End Sub
+
+    Private Function TruncateHash(
+    ByVal key As String,
+    ByVal length As Integer) As Byte()
+
+        Dim sha1 As New SHA1CryptoServiceProvider
+
+        ' Hash the key.
+        Dim keyBytes() As Byte =
+            System.Text.Encoding.Unicode.GetBytes(key)
+        Dim hash() As Byte = sha1.ComputeHash(keyBytes)
+
+        ' Truncate or pad the hash.
+        ReDim Preserve hash(length - 1)
+        Return hash
+    End Function
+    Public Function EncryptData(
+    ByVal plaintext As String) As String
+
+        ' Convert the plaintext string to a byte array.
+        Dim plaintextBytes() As Byte =
+            System.Text.Encoding.Unicode.GetBytes("!Didalog35452Heuchelheim=" & plaintext)
+
+        ' Create the stream.
+        Dim ms As New System.IO.MemoryStream
+        ' Create the encoder to write to the stream.
+        Dim encStream As New CryptoStream(ms,
+            TripleDes.CreateEncryptor(),
+            System.Security.Cryptography.CryptoStreamMode.Write)
+
+        ' Use the crypto stream to write the byte array to the stream.
+        encStream.Write(plaintextBytes, 0, plaintextBytes.Length)
+        encStream.FlushFinalBlock()
+
+        ' Convert the encrypted stream to a printable string.
+        Return Convert.ToBase64String(ms.ToArray)
+    End Function
+    'Entschlüsselt die Zeichenfolge
+    Public Function DecryptData(
+    ByVal encryptedtext As String) As String
+
+        ' Convert the encrypted text string to a byte array.
+        Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext)
+
+        ' Create the stream.
+        Dim ms As New System.IO.MemoryStream
+        ' Create the decoder to write to the stream.
+        Dim decStream As New CryptoStream(ms,
+            TripleDes.CreateDecryptor(),
+            System.Security.Cryptography.CryptoStreamMode.Write)
+
+        ' Use the crypto stream to write the byte array to the stream.
+        decStream.Write(encryptedBytes, 0, encryptedBytes.Length)
+        decStream.FlushFinalBlock()
+        Dim result = System.Text.Encoding.Unicode.GetString(ms.ToArray)
+        result = result.Replace("!Didalog35452Heuchelheim=", "")
+        ' Convert the plaintext stream to a string.
+        Return result
+    End Function
+End Class

DD_PM_WINDREAM/ClassInit.vb

@@ -0,0 +1,137 @@
+Imports System.ComponentModel
+Imports DLLLicenseManager
+
+Public Class ClassInit
+    Private _windreamPM As ClassPMWindream
+    Public _lizenzManager As ClassLicenseManager
+    Public Sub New()
+    End Sub
+
+    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
+        'Throw New Exception("Dummy Fehler!")
+    End Sub
+    Public Sub InitUserConfig()
+        Settings_Load()
+    End Sub
+
+    Public Function InitDatabase()
+        Dim dbResult As Boolean
+
+        If MyConnectionString <> 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)
+            ERROR_STATE = "NO DB-CONNECTION"
+            frmKonfig.ShowDialog()
+            dbResult = ClassDatabase.Init()
+        End If
+
+        If dbResult = False Then
+            ERROR_STATE = "FAILED DBCONNECTION"
+            MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
+            Return False
+        Else
+            Return True
+        End If
+    End Function
+    Public Function InitWindream()
+        Try
+            ' Windream instanziieren
+            _windreamPM = New ClassPMWindream()
+            'Windream initialisieren (Connection, Session, ... aufbauen)
+            _windreamPM.Init()
+            Return True
+        Catch ex As Exception
+            MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
+            Return False
+        End Try
+    End Function
+    Sub Refresh_Licence()
+        Try
+            Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
+            Dim lic As String = ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString)
+            Dim licString = Me._lizenzManager.DecodeLicenseKey(lic)
+            Dim split() = licString.ToString.Split("#")
+
+            If lic <> "" Then
+                LICENSE_COUNT = split(0)
+            Else
+                LICENSE_COUNT = 0
+            End If
+            If CDate(split(1)) <= CDate(Now.ToShortDateString) Then
+                MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & split(1) & vbNewLine & "Die Lizenzanzahl wird auf 0 gesetzt" & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
+                LICENSE_EXPIRED = True
+                LICENSE_COUNT = 0
+            End If
+
+
+            LICENSE_PROFILES = split(2)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:")
+        End Try
+    End Sub
+    Public Sub InitUserLogin()
+        Try
+            Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_USER WHERE LOWER(USERNAME) = LOWER('{0}')", Environment.UserName)
+            ClassLogger.Add(">> Username: " & Environment.UserName, False)
+
+            CURRENT_USERID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+            If IsDBNull(CURRENT_USERID) Then
+                ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True)
+                'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                'Me.Close()
+                ERROR_STATE = "NO USER"
+                Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
+            Else
+                If IsNothing(CURRENT_USERID) Then
+                    ClassLogger.Add(" - User: " & Environment.UserName & " ' not configured in Useradministration! (nothing)", False)
+                    ERROR_STATE = "NO USER"
+                    Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
+                Else
+                    'Am System anmelden
+                    Refresh_Licence()
+                    Dim sql1 = "SELECT COUNT(GUID) FROM TBPM_PROFILE"
+                    Dim anz = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
+                    If anz > LICENSE_PROFILES Then
+                        MsgBox("Your amount of configurable profiles is limited to " & LICENSE_PROFILES.ToString & " profiles. You can not add more profiles!" & vbNewLine & "Please contact Digital Data for further licensedetails", MsgBoxStyle.Information)
+                    End If
+
+                    sql = String.Format("UPDATE TBPM_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, CURRENT_USERID)
+                    ClassDatabase.Execute_non_Query(sql)
+
+                    sql = String.Format("SELECT ADMIN FROM TBPM_USER WHERE GUID = {0}", CURRENT_USERID)
+                    USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+
+                    sql = "SELECT COUNT(*) AS Expr1 FROM TBPM_USER WHERE LOGGED_IN = 1"
+                    USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & 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)
+                        If USER_IS_ADMIN = False Then
+                            'Anmeldung wieder herausnehmen
+                            sql = String.Format("UPDATE TBPM_USER SET LOGGED_IN = 0, LOGGED_WHERE = '' WHERE GUID = {0}", CURRENT_USERID)
+                            ClassDatabase.Execute_non_Query(sql, True)
+                            ClassLogger.Add(" - Wieder abgemeldet", False)
+                            ERROR_STATE = "START INCOMPLETE"
+                        End If
+                    End If
+                    'Alles OK bis hierhin...nun die FolderwatchKonfig laden
+
+                End If
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
+            ERROR_STATE = "START INCOMPLETE"
+        End Try
+
+    End Sub
+
+End Class

DD_PM_WINDREAM/ClassLogger.vb

@@ -0,0 +1,215 @@
+Imports System.IO
+Public Class ClassLogger
+    Public Shared DateiSpeicherort As String = Nothing
+    Public Shared DateiPrefix As String = ""
+    Public Shared Datei As IO.File = Nothing
+    Public Shared logDateiname As String = ""
+    Private Shared StreamWriter As IO.StreamWriter = Nothing
+    Private Shared HasInformedAboutError As Boolean = False
+    ' eine Art Konstruktor
+    Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True)
+        ' initialisiert den Speicherort
+        ClassLogger.SetSpeicherort(speicherort)
+        ' wenn ein Prfix gesetzt wurde
+        If Not prefix = "" Then
+            ' initialisiert das Prefix
+            ClassLogger.SetPrefix(prefix)
+        End If
+        Dim str As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
+        Dim anz As Integer = 1
+        Do While File.Exists(str)
+            Dim info As New FileInfo(str)
+            Dim length As Long = info.Length
+            If length > 5000000 Then
+                str = IO.Path.GetDirectoryName(str)
+                str = str & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
+                anz = anz + 1
+            Else
+                Exit Do
+            End If
+        Loop
+        ClassLogger.logDateiname = str
+        If Not appendFile Then
+            ' der Versuch die Datei zu löschen
+            'Try
+            '    My.Computer.FileSystem.DeleteFile(ClassNILogger.Dateiname, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
+            'Catch ex As Exception
+            '    ' bei Fehler besteht kein Schreibrecht auf die Datei oder Datei existiert nicht
+            '    ' ALSO: alles Okay soweit
+            'End Try
+            My.Computer.FileSystem.WriteAllText(ClassLogger.logDateiname, String.Empty, False)
+        End If
+        ' testen ob sich die Datei öffnen und beschreiben lässt
+        'ClassNILogger.CheckIsLogWritable()
+    End Sub
+
+    ' legt den Speicherort fest
+    Public Shared Sub SetSpeicherort(ByVal speicherort As String)
+        Dim f As New IO.DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\Process Manager\Log"))
+
+        If speicherort = "" Then
+            If f.Exists = False Then
+                IO.Directory.CreateDirectory(f.ToString())
+            End If
+            ClassLogger.DateiSpeicherort = f.ToString()
+        Else
+            ClassLogger.DateiSpeicherort = speicherort
+        End If
+
+        'Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
+        'If speicherort = "" Then
+        '    If f.Exists = False Then
+        '        IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log")
+        '    End If
+        '    ClassLogger.DateiSpeicherort = My.Application.Info.DirectoryPath & "\Log\"
+        'Else
+        '    ClassLogger.DateiSpeicherort = speicherort
+        'End If
+    End Sub
+
+    ' legt das Prefix für den Dateinamen fest
+    Public Shared Sub SetPrefix(ByVal prefix As String)
+        ClassLogger.DateiPrefix = prefix
+    End Sub
+
+    Public Shared Sub Add(ByVal information As String, Optional ByVal ACHTUNG As Boolean = True)
+        If ClassLogger.OpenFile Then
+            Try
+                If ACHTUNG Then
+                    ClassLogger.StreamWriter.WriteLine("#ACHTUNG# (" & System.DateTime.Now & "): " & information)
+                Else
+                    ClassLogger.StreamWriter.WriteLine(information)
+                End If
+                ClassLogger.CloseFile()
+            Catch e As Exception
+                ClassLogger.ShowErrorMessage()
+            End Try
+        Else
+            ClassLogger.ShowErrorMessage()
+        End If
+    End Sub
+    Public Shared Sub Add(ByVal ex As Exception)
+        If ClassLogger.OpenFile Then
+            Try
+                ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")")
+                ClassLogger.StreamWriter.WriteLine("##### Fehler: " & ex.Message & " Source [" & ex.Source & "]")
+                ClassLogger.CloseFile()
+            Catch e As Exception
+                ClassLogger.ShowErrorMessage()
+            End Try
+        Else
+            ClassLogger.ShowErrorMessage()
+        End If
+    End Sub
+    ' öffnet eine Datei zum Schreiben
+    Private Shared Function OpenFile()
+        Try
+            ' wenn ein Speicherort festgelegt wurde
+            If Not ClassLogger.DateiSpeicherort = Nothing Then
+                ' den Dateienamen definieren
+                Dim dateiname As String = ClassLogger.logDateiname
+                ' Datei anlegen wenn noch nicht vorhanden
+                My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
+                ' die Datei zum Schreiben öffnen
+                ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
+            End If
+            ' wenn die Datei erfolgreich geöffnet wurde
+            If ClassLogger.StreamWriter IsNot Nothing Then
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            Return False
+        End Try
+
+    End Function
+
+    ' öffnet eine Datei zum Schreiben
+    Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String)
+
+        Try
+
+            ' wenn ein Speicherort festgelegt wurde
+            If Not DateiSpeicherort = Nothing And ClassLogger.CheckIsLogWritable() Then
+
+                ' den Dateienamen definieren
+                Dim dateiname As String = ClassLogger.logDateiname
+                ' Datei anlegen wenn noch nicht vorhanden
+                My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
+
+                ' die Datei zum Schreiben öffnen
+                ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
+            End If
+
+            ' wenn die Datei erfolgreich geöffnet wurde
+            If ClassLogger.StreamWriter IsNot Nothing Then
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            Return False
+        End Try
+
+    End Function
+
+
+    ' schliesst die geöffnete Datei
+    Private Shared Sub CloseFile()
+
+        ' wenn eine Datei geöffnet ist
+        If ClassLogger.StreamWriter IsNot Nothing Then
+            ' die Datei schliessen
+            ClassLogger.StreamWriter.Close()
+            ClassLogger.StreamWriter = Nothing
+        End If
+    End Sub
+
+
+    Public Shared Function CheckIsLogWritable()
+
+        If ClassLogger.OpenFile Then
+            Try
+                ClassLogger.CloseFile()
+            Catch e As Exception
+                ClassLogger.ShowErrorMessage()
+                Return False
+            End Try
+        Else
+            ClassLogger.ShowErrorMessage()
+            Return False
+        End If
+
+        Return True
+    End Function
+
+
+    Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String)
+
+        If ClassLogger.OpenFile(vDateiSpeicherort, vDateiPrefix) Then
+            Try
+                ClassLogger.CloseFile()
+            Catch e As Exception
+                ClassLogger.ShowErrorMessage()
+                Return False
+            End Try
+        Else
+            ClassLogger.ShowErrorMessage()
+            Return False
+        End If
+
+        Return True
+    End Function
+
+
+    Private Shared Sub ShowErrorMessage()
+        If Not ClassLogger.HasInformedAboutError Then
+            MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & _
+                   vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf von " & My.Application.Info.ProductName & " nicht zu stören.", _
+                   MsgBoxStyle.Information, "Fehler beim Öffnen der Logdatei")
+            ClassLogger.HasInformedAboutError = True
+        End If
+    End Sub
+End Class

DD_PM_WINDREAM/ClassPMWindream.vb

@@ -0,0 +1,595 @@
+Imports WINDREAMLib
+Imports WMOSRCHLib
+Public Class ClassPMWindream
+    Inherits ClassWindream_allgemein
+    'Private email As New ClassNIEmail
+    Private allgFunk As New ClassAllgemeineFunktionen
+#Region "+++++ Konstanten +++++"
+    Protected Const WMObjectEditModeObject = &H1F
+    Protected Const WMObjectStreamOpenModeReadWrite = 2
+    Protected Const WMEntityObjectType = 10
+    Protected Const WMEntityDocument = 1
+
+    Const WMObjectVariableValueTypeUndefined = 0
+    Const WMObjectVariableValueTypeString = 1
+    Const WMObjectVariableValueTypeInteger = 2
+    Const WMObjectVariableValueTypeFloat = 3
+    Const WMObjectVariableValueTypeBoolean = 4
+    Const WMObjectVariableValueTypeDate = 5
+    Const WMObjectVariableValueTypeFixedPoint = 6
+    Const WMObjectVariableValueTypeTimeStamp = 7
+    Const WMObjectVariableValueTypeCurrency = 8
+    Const WMObjectVariableValueTypeTime = 9
+    Const WMObjectVariableValueTypeVariant = 10
+    Const WMObjectVariableValueTypeMask = &HFFF
+    Const WMObjectVariableValueFlagMask = &HFFFFF000
+    Const WMObjectVariableValueTypeVector = &H1000
+    Const WMObjectVariableValueTypeFulltext = &H2000
+    Const WMObjectVariableValueTypeDefaultValue = &H4000
+#End Region
+
+#Region "+++++ Variablen +++++"
+    Private oController As New WMOSearchController
+#End Region
+
+#Region "+++++ Allgemeine Methoden und Funktionen +++++"
+    Sub New()
+        MyBase.New()
+    End Sub
+    Private Function IsNotEmpty(ByVal aValue As Object)
+
+        If aValue IsNot Nothing Then
+            Dim itsType As Type = aValue.GetType
+            If itsType Is GetType(String) Then
+
+                If Not aValue = "" Then
+                    Return True
+                End If
+
+                Return False
+            Else
+                Return True
+            End If
+        Else
+            Return False
+        End If
+
+    End Function
+    Private Function return_type(ByVal _wert As Object)
+        Return _wert.GetType
+    End Function
+    Public Function GetValuesfromAuswahlliste(ByVal listname As String)
+        Try
+            Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, listname)
+            Dim vType = oAttribute.getVariableValue("vItems")
+            Return vType
+            'Dim oChoiceList = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityChoiceList, listname)
+            'If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
+            '    Dim Values = oChoiceList
+            '    Values = oChoiceList.GetVariableValue("vItems")
+            '    Dim anz As Integer = 0
+
+            '    For Each CLItem In Values
+            '        If oChoiceList.aName IsNot Nothing Then
+            '            anz += 1
+            '        End If
+            '    Next
+            '    Dim strListe(anz - 1)
+            '    Dim zahl As Integer = 0
+            '    For Each CLItem In Values
+            '        If oChoiceList.aName IsNot Nothing Then
+            '            strListe(zahl) = CLItem
+            '            zahl += 1
+            '        End If
+            '    Next
+            '    Return strListe
+            'Else
+            '    MsgBox("Auswahlliste: " & listname & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
+            '    Return Nothing
+            'End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")
+            Return Nothing
+        End Try
+    End Function
+    Public Function Return_Type(Indexname As String)
+        Try
+            ' das entsprechende Attribut aus windream auslesen
+            Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indexname)
+            ' den Variablentyp (String, Integer, ...) auslesen 
+            Dim vType = oAttribute.getVariableValue("dwAttrType")
+            Return vType.ToString
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Return_Type:")
+            Return ""
+        End Try
+    End Function
+
+    Public Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object)
+        Dim vType
+        Try
+            If Indizes IsNot Nothing And aValues IsNot Nothing Then
+                If Not oDocument.aLocked Then
+                    oDocument.lock()
+                    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)
+                    End If
+                    'Jetzt jeden Indexwert durchlaufen
+                    For Each aName As String In Indizes
+                        indexname = aName
+                        ' das entsprechende Attribut aus windream auslesen
+                        Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
+                        ' den Variablentyp (String, Integer, ...) auslesen 
+                        vType = oAttribute.getVariableValue("dwAttrType")
+                        ' wenn in aValues an Position i ein Wert steht
+                        If Me.IsNotEmpty(aValues(i)) Then
+                            Dim _int As Boolean = False
+                            Dim _date As Boolean = False
+                            Dim _dbl As Boolean = False
+                            Dim _bool As Boolean = False
+                            '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)
+                            'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
+                            Dim value = aValues(i)
+                            Dim convertValue
+                            Dim vektor As Boolean = False
+                            'Den Typ des Index-Feldes auslesen
+                            'MsgBox(value.GetType.ToString)
+                            Select Case vType
+                                'Case WMObjectVariableValueTypeUndefined
+                                Case WMObjectVariableValueTypeString
+                                    If LogErrorsOnly = 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 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)
+                                        oDocument.Save()
+                                        oDocument.unlock()
+                                        Return False
+                                    End If
+                                    convertValue = CInt(value)
+                                    _int = True
+                                Case WMObjectVariableValueTypeFloat
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
+                                    Try
+                                        convertValue = CDbl(value)
+                                    Catch ex As Exception
+                                        frmValidator.idxerr_message = "Could't convert value '" & value & "' to double!"
+                                        oDocument.Save()
+                                        oDocument.unlock()
+                                        Return False
+                                    End Try
+
+                                Case WMObjectVariableValueTypeFixedPoint
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False)
+                                    Try
+                                        convertValue = CDbl(value)
+                                    Catch ex As Exception
+                                        frmValidator.idxerr_message = "Could't convert value '" & value & "' to double!"
+                                        oDocument.Save()
+                                        oDocument.unlock()
+                                        Return False
+                                    End Try
+
+                                    _dbl = True
+                                Case WMObjectVariableValueTypeBoolean
+                                    If LogErrorsOnly = 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)
+                                    _date = True
+                                    'Dim _date As Date = value
+                                    convertValue = value
+                                Case WMObjectVariableValueTypeTimeStamp
+                                    If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False)
+                                    convertValue = CInt(value)
+                                Case WMObjectVariableValueTypeCurrency
+                                    ClassLogger.Add(" >> Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False)
+                                    'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
+                                    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 ((value)) Then
+                                    '    convertValue = CDate(value)
+                                    'Else
+                                    '    convertValue = ""
+                                    'End If
+                                    'Dim _date As Date = value
+                                    convertValue = convertValue '*_date.ToShortTimeString
+                                Case WMObjectVariableValueTypeFloat
+                                    If LogErrorsOnly = 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)
+                                    convertValue = CStr(value)
+                                Case WMObjectVariableValueTypeFulltext
+                                    If LogErrorsOnly = 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)
+                                    vektor = True
+                                Case 4101
+                                    If LogErrorsOnly = 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)
+                                    vektor = True
+                                Case 4097
+                                    If LogErrorsOnly = 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)
+                                    vektor = True
+                                Case 4099
+                                    If LogErrorsOnly = 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)
+                                    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)
+                                    '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)
+                                End If
+                            End If
+                            '############################################################################################
+                            '####################### Der eigentliche Indexierungsvorgang ################################
+                            '############################################################################################
+                            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)
+                                    Catch ex As Exception
+                                        ClassLogger.Add(" >> Unexpected Error in Logging SetVariableValue for " & aName & ": " & ex.Message, False)
+                                    End Try
+
+                                    'Dim ArrValues()
+                                    'ReDim ArrValues(0)
+                                    'ArrValues(0) = convertValue
+                                    'Dim ArrName()
+                                    'ReDim ArrName(0)
+                                    'ArrName(0) = "Tournr"
+                                    'oDocument.SetValues(ArrName, ArrValues)
+                                    If _int = True Then
+                                        oDocument.SetVariableValue(aName, CInt(convertValue))
+                                    ElseIf _date = True Then
+                                        oDocument.SetVariableValue(aName, CDate(convertValue))
+                                    ElseIf _bool Then
+                                        oDocument.SetVariableValue(aName, CBool(convertValue))
+                                    ElseIf _dbl Then
+                                        oDocument.SetVariableValue(aName, CDbl(convertValue))
+                                    Else
+                                        oDocument.SetVariableValue(aName, convertValue)
+                                    End If
+                                    If LogErrorsOnly = 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)
+                                Dim myArray()
+                                'Dim anz As Integer = 0
+                                'For Each obj In aValues
+                                'ReDim Preserve myArray(anz)
+                                Select Case vType
+                                    Case 4100
+                                        'Vektortyp Boolean
+                                        'Umwandeln in Boolean
+                                        'Die Größe des Arrays festlegen
+                                        ReDim myArray(aValues.Length - 1)
+                                        Dim i1 As Integer = 0
+                                        'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                        For Each obj In aValues
+                                            Select Case obj.ToString.ToLower
+                                                Case "falsch"
+                                                    obj = False
+                                                Case "wahr"
+                                                    obj = True
+                                                Case "nein"
+                                                    obj = False
+                                                Case "ja"
+                                                    obj = True
+                                            End Select
+                                            myArray(i1) = CBool(obj)
+                                            i1 = i1 + 1
+                                        Next
+                                    Case 4101
+                                        'Vektortyp Date
+                                        'Umwandeln in String
+                                        'Die Größe des Arrays festlegen
+                                        ReDim myArray(aValues.Length - 1)
+                                        Dim i1 As Integer = 0
+                                        'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                        For Each obj In aValues
+                                            myArray(i1) = CDate(obj)
+                                            i1 = i1 + 1
+                                        Next
+                                    Case 4104
+                                        'Vektortyp Currency
+                                        'Die Größe des Arrays festlegen
+                                        ReDim myArray(aValues.Length - 1)
+                                        Dim i1 As Integer = 0
+                                        'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                        For Each obj In aValues
+                                            Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(obj))
+                                            myArray(i1) = aValueWrapper
+                                            i1 = i1 + 1
+                                        Next
+                                    Case 4097
+                                        'Vektortyp ALPHANUMERISCH
+                                        'Umwandeln in String
+                                        'Die Größe des Arrays festlegen
+                                        ReDim myArray(aValues.Length - 1)
+                                        Dim i1 As Integer = 0
+                                        'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                        For Each obj In aValues
+                                            myArray(i1) = CStr(obj)
+                                            i1 = i1 + 1
+                                        Next
+
+                                    Case 4098
+                                        'Umwandeln in Integer
+                                        'Die Größe des Arrays festlegen
+                                        ReDim myArray(aValues.Length - 1)
+                                        Dim i1 As Integer = 0
+                                        'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                        For Each obj In aValues
+                                            myArray(i1) = CInt(obj)
+                                            i1 = i1 + 1
+                                        Next
+                                    Case 4099
+                                        'Umwandeln in Double
+                                        'Die Größe des Arrays festlegen
+                                        ReDim myArray(aValues.Length - 1)
+                                        Dim i1 As Integer = 0
+                                        'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                        For Each obj In aValues
+                                            Dim Str As String = obj
+                                            myArray(i1) = CDbl(Str.Replace(".", ","))
+                                            i1 = i1 + 1
+                                        Next
+
+                                    Case 36865
+                                        'Umwandeln in String
+                                        'Die Größe des Arrays festlegen
+                                        ReDim myArray(aValues.Length - 1)
+                                        Dim i1 As Integer = 0
+                                        'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                        For Each obj In aValues
+                                            myArray(i1) = CStr(obj)
+                                            i1 = i1 + 1
+                                        Next
+                                    Case Else
+                                        'Umwandeln in String
+                                        'Die Größe des Arrays festlegen
+                                        ReDim myArray(aValues.Length - 1)
+                                        Dim i1 As Integer = 0
+                                        'Das Array durchlaufen und Werte für den Index in Array schreiben
+                                        For Each obj In aValues
+                                            myArray(i1) = CStr(obj)
+                                            i1 = i1 + 1
+                                        Next
+                                End Select
+
+                                'Jetzt die Nachindexierung für Vektor-Felder
+                                oDocument.SetVariableValue(aName, myArray)
+                                If LogErrorsOnly = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR erfolgreich", False)
+                            End If
+                        End If
+                        i += 1
+
+                    Next
+
+                    ' oDocument.LockRights()
+
+                    'SetRights(WMObject, User)
+                    oDocument.Save()
+                    oDocument.unlock()
+                    If LogErrorsOnly = 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)
+                    frmValidator.idxerr_message = "Dokument " & oDocument.aName & " ist gesperrt, Indexierung nicht möglich"
+                    Return False
+                End If
+            End If
+        Catch ex As Exception
+            ClassLogger.Add("ClassSearchResult.RunIndexing - " & ex.Message, True)
+            frmValidator.idxerr_message = "Unvorhergesehener Fehler in Indexing: " & ex.Message & vbNewLine & "vType: " & vType.tostring
+            allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler beim Indexieren der Datei: " & oDocument.aName & " - ERROR: " & ex.Message, Environment.UserName)
+            oDocument.Save()
+            oDocument.unlock()
+            Return False
+        End Try
+    End Function
+
+    Public Sub SetfinalIndex(ByVal oDocument As WMObject, ByVal Indexname As String, ByVal _state As Boolean)
+        Try
+            If Indexname IsNot Nothing Then
+                If Not oDocument.aLocked Then
+                    oDocument.lock()
+                    Dim i As Integer = 0
+
+                    ' das entsprechende Attribut aus windream auslesen
+                    Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indexname)
+                    ' den Variablentyp (String, Integer, ...) auslesen 
+                    Dim vType = oAttribute.getVariableValue("dwAttrType")
+                    'MsgBox("Typ: " & vType.ToString, MsgBoxStyle.Critical, "_state: " & _state.ToString)
+                    ' wenn in aValues an Position i ein Wert steht
+                    If Me.IsNotEmpty(Indexname) Then
+                        'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
+                        Dim value = _state
+                        Dim convertValue
+                        'Den Typ des Index-Feldes auslesen
+                        If LogErrorsOnly = False Then ClassLogger.Add(">> Typ des windream-Indexes: " & vType.ToString)
+                        Select Case (vType)
+                            Case WMObjectVariableValueTypeBoolean
+                                convertValue = CBool(value)
+                            Case Else
+                                ClassLogger.Add(">> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:")
+                        End Select
+                        '############################################################################################
+                        '####################### Der eigentliche Indexierungsvorgang ################################
+
+                        oDocument.SetVariableValue(Indexname, convertValue)
+                        If LogErrorsOnly = False Then ClassLogger.Add(">> Index '" & Indexname & "' wurde gesetzt")
+                        oDocument.Save()
+                        oDocument.unlock()
+                        ClassLogger.Add(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet")
+                    End If
+                Else
+                    ClassLogger.Add(">> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
+                End If
+            End If
+
+
+        Catch ex As Exception
+            ClassLogger.Add("ClassSearchResult.SetfinalIndex - " & ex.Message, True)
+            'If My.Settings.vNIMailsenden = True Then
+            '    email.Send_EMail("Fehler bei SetfinalIndex - Datei: " & oDocument.aName.ToString & " - Fehler: " & ex.Message)
+            'End If
+            oDocument.Save()
+            oDocument.unlock()
+        End Try
+    End Sub
+#End Region
+
+
+#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
+
+    Public Function Get_No_Documents(Profil As String, WD_Search As String)
+        Try
+
+            If System.IO.File.Exists(WD_Search) = False Then
+                ClassLogger.Add(">> Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden! Die Datei '" & WD_Search & "' existiert nicht!", False)
+                MsgBox("Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden!" & vbNewLine & "Die Datei '" & WD_Search & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
+                'wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
+                'If My.Settings.vNIMailsenden = True Then
+                '    email.Send_EMail("Fehler bei Nachindexierung: <br> >> Profil: " & Me.aktivesProfil.Profilname & "<br> >> die windream-Suche : " & Me.aktivesProfil.WindreamSuche & " konnte nicht gefunden werden!" & _
+                '                     "<br> >> Mögliche Fehlerursache: Das W-Laufwerk ist nicht verfügbar!")
+                'End If
+                Return 0
+            Else
+                ' windream-Suche für Profil starten
+                Dim windreamSucheErgebnisse As WMObjects = Me.GetSearchDocuments(WD_Search)
+
+                If windreamSucheErgebnisse.Count > 0 Then
+                    ' neue Anzahl von Dateien
+                    Return windreamSucheErgebnisse.Count
+                Else
+                    ' keine Dateien zum Importieren
+                    Return 0
+                End If
+            End If
+        Catch ex As Exception
+            ClassLogger.Add(ex.Message)
+            Return 0
+        End Try
+
+    End Function
+
+    Public Function GetSearchDocuments(ByVal wdfLocation As String)
+
+        If System.IO.File.Exists(wdfLocation) Then
+
+            Try
+                Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
+                Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
+
+                Me.oController.CheckSearchProfile(wdfLocation.ToLower)
+                Dim suchTyp = Me.oController.SearchProfileTargetProgID
+                Dim ExSettings As Object
+                Dim oSearch As Object
+                ExSettings = Me.oController.SearchProfileExSettings
+                If ExSettings = 0 Then ExSettings = 7
+
+                Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
+                Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
+                Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
+
+                Select Case suchTyp.ToString.ToUpper
+                    Case "WMOSRCH.WMQUICKSEARCH"
+                        srchQuick.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
+
+                        Me.oConnect.LoginSession(srchQuick.WMSession)
+
+                        srchQuick.ClearSearch()
+                        srchQuick.SearchProfilePath = ProfilePath
+                        srchQuick.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchQuick.GetSearch()
+
+                    Case "WMOSRCH.WMINDEXSEARCH"
+                        srchIndex.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
+
+                        Me.oConnect.LoginSession(srchIndex.WMSession)
+
+                        srchIndex.ClearSearch()
+                        srchIndex.SearchProfilePath = ProfilePath
+                        srchIndex.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchIndex.GetSearch()
+
+                    Case "WMOSRCH.WMOBJECTTYPESEARCH"
+                        srchObjectType.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
+
+                        Me.oConnect.LoginSession(srchObjectType.WMSession)
+
+                        srchObjectType.ClearSearch()
+                        srchObjectType.SearchProfilePath = ProfilePath
+                        srchObjectType.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchObjectType.GetSearch()
+
+                    Case Else
+                        ClassLogger.Add("KEIN GÜLTIGER WINDREAM-SUCHTYP")
+                        Return Nothing
+                End Select
+                Dim WMObjects As Object
+                WMObjects = oSearch.Execute
+                Return oSearch.execute
+
+            Catch ex As Exception
+                ' bei einem Fehler einen Eintrag in der Logdatei machen
+                ClassLogger.Add("Fehler in GetSearchDocuments - " & ex.Message, True)
+                Return Nothing
+            End Try
+
+        End If
+
+        Return Nothing
+
+    End Function
+    ''' Liefert den Wert eines Indexes als String
+    ''' _indexname = Name des zu überprüfenden Indexfeldes
+    Public Function GetValueforIndex(ByVal _fullfilepath As String, _indexname As String)
+        Try
+            Const WMEntityDocument = 1
+            Dim IndexwertAusWindream As Object = Nothing
+            Dim _dok As WINDREAMLib.WMObject
+            _dok = Nothing
+            _dok = oSession.GetWMObjectByPath(WMEntityDocument, _fullfilepath) 'WINDREAMLib.WMEntity.WMEntityDocument
+            IndexwertAusWindream = _dok.GetVariableValue(_indexname)
+            Return IndexwertAusWindream.ToString
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+            Return Nothing
+        End Try
+    End Function
+#End Region
+End Class

DD_PM_WINDREAM/ClassWindream_allgemein.vb

@@ -0,0 +1,397 @@
+Imports WINDREAMLib
+Imports WINDREAMLib.WMCOMEvent
+Imports WINDREAMLib.WMEntity
+Imports WINDREAMLib.WMObjectEditMode
+Imports WINDREAMLib.WMSearchOperator
+Imports WINDREAMLib.WMSearchRelation
+Imports WMOBRWSLib
+
+Public Class ClassWindream_allgemein
+
+#Region "+++++ Konstanten +++++"
+    Const DEBUG = AUS
+    Const AUS = 0
+    Const WINDREAM = 1
+    Const VARIABLEN = 2
+#End Region
+
+#Region "+++++ Variablen +++++"
+    Public oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public oBrowser As New WMOBRWSLib.ServerBrowser
+    Public oDokumentTypen As WINDREAMLib.WMObjects
+#End Region
+
+
+#Region "+++++ Allgemeine Methoden und Funktionen +++++"
+
+    ''' <summary>
+    ''' Konstruktor für die windream-Klasse
+    ''' </summary>
+    ''' <remarks></remarks>
+    Sub New()
+        ' wenn ein Fehler bei der Initialisierung auftrat
+        If Not Me.Init() Then
+            ' Nachricht ausgeben
+            MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung")
+
+            ' das Programm "abschießen"
+            Process.GetCurrentProcess.Kill()
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Initialisiert die statische Klasse (Login, Session starten, usw.)
+    ''' </summary>
+    ''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
+    ''' <remarks></remarks>
+    Public Function Init() As Boolean
+        Try
+            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)
+                ' Connection-Objekt instanziieren
+                Me.oConnect = CreateObject("Windream.WMConnect")
+                'MsgBox("windrem init 'ed")
+            Catch ex As Exception
+                Return False
+            End Try
+
+
+            ' wenn windream nicht angemeldet ist
+            If Not Me.IsLoggedIn Then
+
+                ' Art der Anmeldung an windream festlegen
+                '   0x0L (also 0)                   = Standard windream Benutzer
+                '   WM_MODULE_ID_DOCTYPEEDITOR_LIC  = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.)
+                '   WM_MODULE_ID_INDEXSERVICE       = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen
+                Me.oConnect.ModuleID = 0
+
+                ' setzt die minimal erwartete windream-Version 
+                Me.oConnect.MinReqVersion = "3"
+
+                ' -- Impersonifizierung nur möglich mit registry-eintrag --
+                ' oConnect.UserName "\schulung\windream"
+                ' oConnect.Password "windream"
+
+                ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
+                Me.oConnect.LoginSession(Me.oSession)
+                If Me.oSession.aLoggedin = False Then
+                    MsgBox("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", MsgBoxStyle.Exclamation, "Verbindung konnte nicht hergestellt werden")
+                    Return False
+                End If
+
+                If LogErrorsOnly = False Then
+                    ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
+                End If
+
+                ' AUSGABE VON SYSTEMINFORMATIONEN
+                ' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX) 
+                ' oder Business-Edition (BE) aus
+                'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _
+                '       vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName"))
+
+                'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData
+                'WMCtrl = New AISCONTROLDATACOMLib.AISControlData
+
+                '' liefert die Versionsnummer des Clients
+
+                'MsgBox(WMCtrl.WMWorkstationBuildNo)
+                'MsgBox(WMCtrl.W
+                '' liefert den Servernamen des angemeldeten windreams
+                'MsgBox(WMCtrl.WMServerName)
+
+                Try
+                    Me.oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
+                    ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine 
+                    ' Ordnertypen ausgelesen werden
+                    Me.oDokumentTypen = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+                Catch ex As Exception
+                    Return False
+                End Try
+
+            End If
+
+            Return True
+
+        Catch ex As Exception
+            If Err.Number = -2147220985 Then
+                MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _
+                       "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
+            Else
+                MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream")
+            End If
+            Return False
+        End Try
+
+    End Function
+
+#End Region
+
+
+
+#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++"
+
+    ''' <summary>
+    ''' Liefert alle Objekttypen des aktuellen Servers als windream-Objekte.
+    ''' </summary>
+    ''' <returns>Alle Objekttypen als WMObjects-Objekt</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypesAsObjects() As WMObjects
+        Try
+
+            Return Me.oDokumentTypen
+
+        Catch ex As Exception
+            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen")
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings.
+    ''' </summary>
+    ''' <returns>Array mit allen Objekttypen als Strings</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypesAsStrings() As String()
+
+        Try
+            Dim objektTypenStr(Me.oDokumentTypen.Count) As String
+
+            For i As Integer = 0 To Me.oDokumentTypen.Count
+                objektTypenStr(i) = Me.oDokumentTypen.Item(i).aName
+            Next
+
+            Return objektTypenStr
+
+        Catch ex As Exception
+            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen als String")
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
+        Try
+            Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            Dim vType = oAttribute.getVariableValue("dwAttrType")
+            Return vType
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+    ''' <summary>
+    ''' Liefert alle Indexe eines Objekttypen.
+    ''' </summary>
+    ''' <param name="name">Name des Objekttyps</param>
+    ''' <returns>Array mit allen Objekttyp zugeordneten Indexen als String</returns>
+    ''' <remarks></remarks>
+    Public Function GetIndicesByObjecttype(ByVal Objecttype_name As String) As String()
+        Try
+            Dim oObjectType As WMObject
+            Dim oIndexAttributes As WMObjectRelation
+            Dim oIndexAttribute As WMObject
+            Dim oIndex As WMObject
+            Dim oRelProperties As WMObjectRelationClass
+
+            ' den Objekttyp laden
+            oObjectType = Me.oSession.GetWMObjectByName(WMEntityObjectType, Objecttype_name)
+
+            ' Beziehung zu Indizes des Objekttyp auslesen
+            oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
+
+            ' Array für Indizes vorbereiten
+            Dim aIndexNames(oIndexAttributes.Count - 1) As String
+
+            ' alle Indizes durchlaufen
+            For j As Integer = 0 To oIndexAttributes.Count - 1
+
+                ' aktuellen Index auslesen
+                oIndexAttribute = oIndexAttributes.Item(j)
+
+                ' Eigenschaften des Index auslesen
+                oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute")
+
+                ' Index aus den Eigenschaften auslesen
+                oIndex = oRelProperties.Item(0)
+
+                ' Indexname speichern
+                aIndexNames(j) = oIndex.aName
+            Next
+            ' Indexarray sortiert zurückgeben
+            Array.Sort(aIndexNames)
+            ' Indexarray zurückgeben
+            Return aIndexNames
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe")
+            Return Nothing
+        End Try
+    End Function
+    ''' <summary>
+    ''' Liefert einen Objekttyp als WMObject an Hand dessen Name.
+    ''' </summary>
+    ''' <param name="objekttypName">Name des Objekttyps</param>
+    ''' <returns>Objekttyp als WMObject</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
+        Try
+            ' alle Objekttypen auslesen
+            Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+
+            ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
+            For Each oObjectType As WMObject In oObjectTypes
+                If oObjectType.aName = objekttypName Then
+                    Return oObjectType
+                End If
+            Next
+
+            Return Nothing
+
+        Catch ex As Exception
+            MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden")
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Überprüft ob der angegebene Index im Objekttyp existiert
+    ''' </summary>
+    ''' <param name="objekttyp">Name des zu durchsuchenden Objekttyps</param>
+    ''' <param name="indexname">Name des zu suchenden Indexes</param>
+    ''' <returns>Liefert True wenn der Index im Objekttyp existiert, sonst False</returns>
+    ''' <remarks></remarks>
+    Public Function ExistIndexInObjekttyp(ByVal objekttyp As String, ByVal indexname As String) As Boolean
+        Try
+            Dim indexnamen() As String = Me.GetIndicesByObjecttype(objekttyp)
+
+            If indexnamen Is Nothing Then Return False
+
+            For Each index As String In indexnamen
+                If index = indexname Then Return True
+            Next
+
+        Catch ex As Exception
+            MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp")
+        End Try
+
+        Return False
+
+    End Function
+
+#End Region
+
+
+
+#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
+
+    ''' <summary>
+    ''' Liefert True wenn die windream-Session angemeldet ist und False für den Fall, dass die Session nicht eingeloggt ist.
+    ''' </summary>
+    ''' <returns>Anmeldestatus als Boolean</returns>
+    ''' <remarks></remarks>
+    Public Function IsLoggedIn() As Boolean
+        Try
+            Return Me.oSession.aLoggedin
+        Catch ex As Exception
+            MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung")
+        End Try
+
+        Return False
+    End Function
+
+    ''' <summary>
+    ''' Liefert den Servernamen an dem windream aktuell angemeldet ist.
+    ''' </summary>
+    ''' <returns>Servername als String</returns>
+    ''' <remarks></remarks>
+    Public Function GetCurrentServer() As String
+        Try
+            Return Me.oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
+        Catch ex As Exception
+            MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
+        End Try
+
+        Return ""
+    End Function
+
+    'Public Function GetSharedCurrentServer() As String
+    '    Try
+    '        Return ClassWindream.oBrowser.GetCurrentServer
+    '    Catch ex As Exception
+    '        MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
+    '    End Try
+
+    '    Return ""
+    'End Function
+
+
+    ''' <summary>
+    ''' Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:')
+    ''' </summary>
+    ''' <returns>Laufwerksbuchstabe mit Doppelpunkt als String</returns>
+    ''' <remarks></remarks>
+    'Public Function GetWindreamDriveLetter() As String
+
+    '    Try
+    '        Dim oControl As AISCONTROLDATACOMLib.AISControlData
+    '        Dim sDrive As String = ""
+
+    '        oControl = New AISCONTROLDATACOMLib.AISControlData
+
+    '        sDrive = oControl.GetStringValue(&H10040003)
+
+    '        Return sDrive & ":"
+
+    '    Catch ex As Exception
+    '        MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks")
+    '    End Try
+
+    '    Return ""
+    'End Function
+
+    ''' <summary>
+    ''' Liefert den Typen eines Indexes als Integer.
+    ''' </summary>
+    ''' <param name="indexname">Name des zu überprüfenden Indexfeldes</param>
+    ''' <returns>Liefert eine Zahl, die einen Typen beschreibt</returns>
+    ''' <remarks></remarks>
+
+    Public Function GetValuesfromAuswahlliste(ByVal _auswahlliste As String) As Object
+        Try
+            'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            'Dim vType = oAttribute.getVariableValue("vItems")
+            'Return vType
+            Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, _auswahlliste)
+            If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
+                Dim Values = oChoiceList
+                Values = oChoiceList.GetVariableValue("vItems")
+                Dim anz As Integer = 0
+
+                For Each CLItem In Values
+                    If oChoiceList.aName IsNot Nothing Then
+                        anz += 1
+                    End If
+                Next
+                Dim strListe(anz - 1)
+                Dim zahl As Integer = 0
+                For Each CLItem In Values
+                    If oChoiceList.aName IsNot Nothing Then
+                        strListe(zahl) = CLItem
+                        zahl += 1
+                    End If
+                Next
+                Return strListe
+            Else
+                MsgBox("Auswahlliste: " & _auswahlliste & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")
+            Return Nothing
+        End Try
+    End Function
+#End Region
+End Class

DD_PM_WINDREAM/DD_DMSLiteDataSet.vb

@@ -0,0 +1,21 @@
+
+
+Partial Public Class DD_DMSLiteDataSet
+    Partial Class TBPM_PROFILE_CONTROLSDataTable
+
+        Private Sub TBPM_PROFILE_CONTROLSDataTable_ColumnChanging(sender As Object, e As DataColumnChangeEventArgs) Handles Me.ColumnChanging
+            If (e.Column.ColumnName = Me.ADDED_WHENColumn.ColumnName) Then
+                'Benutzercode hier einfügen
+            End If
+
+        End Sub
+
+    End Class
+
+End Class
+
+Namespace DD_DMSLiteDataSetTableAdapters
+
+    Partial Public Class TBPM_PROFILE_INDEXETableAdapter
+    End Class
+End Namespace

DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc

@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--<autogenerated>
+     This code was generated by a tool.
+     Changes to this file may cause incorrect behavior and will be lost if
+     the code is regenerated.
+</autogenerated>-->
+<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+  <TableUISettings>
+    <TableUISetting Name="VWPM_PROFILE_USER">
+      <ColumnUISettings>
+        <ColumnUISetting Name="DESCRIPTION">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="Label" Type="System.Windows.Forms.Label" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+      </ColumnUISettings>
+    </TableUISetting>
+    <TableUISetting Name="TBPM_KONFIGURATION">
+      <ColumnUISettings>
+        <ColumnUISetting Name="INTERVALL_CKECK_NO_OF_FILES">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+        <ColumnUISetting Name="GEAENDERTWANN">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+      </ColumnUISettings>
+    </TableUISetting>
+    <TableUISetting Name="TBPM_USER">
+      <ColumnUISettings>
+        <ColumnUISetting Name="ADDED_WHEN">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+        <ColumnUISetting Name="CHANGED_WHEN">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+      </ColumnUISettings>
+    </TableUISetting>
+    <TableUISetting Name="TBPM_CONNECTION">
+      <ColumnUISettings>
+        <ColumnUISetting Name="ERSTELLTWANN">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+        <ColumnUISetting Name="GEAENDERTWANN">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+      </ColumnUISettings>
+    </TableUISetting>
+    <TableUISetting Name="TBPROFILE_USER">
+      <ColumnUISettings>
+        <ColumnUISetting Name="ADDED_WHEN">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+      </ColumnUISettings>
+    </TableUISetting>
+    <TableUISetting Name="TBPM_PROFILE">
+      <ColumnUISettings>
+        <ColumnUISetting Name="PM_VEKTOR_INDEX">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+      </ColumnUISettings>
+    </TableUISetting>
+    <TableUISetting Name="TBPM_CONTROL_TABLE">
+      <ColumnUISettings>
+        <ColumnUISetting Name="ADDED_WHEN">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+        <ColumnUISetting Name="CHANGED_WHEN">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting></ControlSettings>
+        </ColumnUISetting>
+      </ColumnUISettings>
+    </TableUISetting>
+  </TableUISettings>
+</DataSetUISetting>

DD_PM_WINDREAM/DD_DMSLiteDataSet.xss

@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--<autogenerated>
+     This code was generated by a tool to store the dataset designer's layout information.
+     Changes to this file may cause incorrect behavior and will be lost if
+     the code is regenerated.
+</autogenerated>-->
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="393" ViewPortY="-104" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+  <Shapes>
+    <Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="1" X="1578" Y="-67" Height="383" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
+    <Shape ID="DesignTable:VWPM_PROFILE_USER" ZOrder="17" X="1467" Y="331" Height="325" Width="254" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="18" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
+    <Shape ID="DesignTable:TBPM_USER" ZOrder="20" X="209" Y="-94" Height="146" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBPM_TYPE" ZOrder="21" X="146" Y="114" Height="203" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBPM_ERROR_LOG" ZOrder="6" X="421" Y="-88" Height="111" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="21" />
+    <Shape ID="DesignTable:VWPM_CONTROL_INDEX" ZOrder="3" X="1013" Y="256" Height="440" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="334" />
+    <Shape ID="DesignTable:TBPM_CONNECTION" ZOrder="12" X="408" Y="176" Height="149" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
+    <Shape ID="DesignTable:TBPROFILE_USER" ZOrder="19" X="530" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="4" X="1212" Y="-64" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
+    <Shape ID="DesignTable:TBPM_FILES_USER_NOT_INDEXED" ZOrder="16" X="851" Y="-3" Height="153" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
+    <Shape ID="DesignTable:TBPM_PROFILE" ZOrder="15" X="256" Y="387" Height="381" Width="283" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="10" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
+    <Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="8" X="595" Y="421" Height="476" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="2" X="940" Y="517" Height="324" Width="284" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBWH_CONNECTION" ZOrder="11" X="625" Y="114" Height="276" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="272" />
+  </Shapes>
+  <Connectors>
+    <Connector ID="DesignRelation:FK_TBPM_ERROR_LOG_PROFILE1" ZOrder="14" LineWidth="11">
+      <RoutePoints>
+        <Point>
+          <X>480</X>
+          <Y>387</Y>
+        </Point>
+        <Point>
+          <X>480</X>
+          <Y>23</Y>
+        </Point>
+      </RoutePoints>
+    </Connector>
+    <Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="13" LineWidth="11">
+      <RoutePoints>
+        <Point>
+          <X>280</X>
+          <Y>317</Y>
+        </Point>
+        <Point>
+          <X>280</X>
+          <Y>387</Y>
+        </Point>
+      </RoutePoints>
+    </Connector>
+    <Connector ID="DesignRelation:FK_TBPM_PROFILE_CONTROLS_PROFILE1" ZOrder="9" LineWidth="11">
+      <RoutePoints>
+        <Point>
+          <X>539</X>
+          <Y>413</Y>
+        </Point>
+        <Point>
+          <X>808</X>
+          <Y>413</Y>
+        </Point>
+        <Point>
+          <X>808</X>
+          <Y>421</Y>
+        </Point>
+      </RoutePoints>
+    </Connector>
+    <Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL1" ZOrder="7" LineWidth="11">
+      <RoutePoints>
+        <Point>
+          <X>895</X>
+          <Y>565</Y>
+        </Point>
+        <Point>
+          <X>940</X>
+          <Y>565</Y>
+        </Point>
+      </RoutePoints>
+    </Connector>
+    <Connector ID="DesignRelation:FK_TBPM_CONTROL_TABLE_CONTROL" ZOrder="5" LineWidth="11">
+      <RoutePoints>
+        <Point>
+          <X>118</X>
+          <Y>0</Y>
+        </Point>
+        <Point>
+          <X>118</X>
+          <Y>-30</Y>
+        </Point>
+        <Point>
+          <X>118</X>
+          <Y>-30</Y>
+        </Point>
+        <Point>
+          <X>118</X>
+          <Y>0</Y>
+        </Point>
+      </RoutePoints>
+    </Connector>
+  </Connectors>
+</DiagramLayout>

DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj

@@ -0,0 +1,557 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
+    <ProductVersion>
+    </ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{6ACA1432-09A2-47EF-A704-C0AA73905756}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>DD_PM_WINDREAM.My.MyApplication</StartupObject>
+    <RootNamespace>DD_PM_WINDREAM</RootNamespace>
+    <AssemblyName>DD_PM_WINDREAM</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkProfile>
+    </TargetFrameworkProfile>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>DD_PM_WINDREAM.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>DD_PM_WINDREAM.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>PM_ohne_slogan_128px.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="DevExpress.Data.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Pdf.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Pdf.v15.2.Drawing, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraPdfViewer.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DLLLicenseManager">
+      <HintPath>..\..\..\LizenzManager\LizenzManager\bin\Debug\DLLLicenseManager.dll</HintPath>
+    </Reference>
+    <Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.VisualBasic.PowerPacks.Vs, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
+    <Reference Include="Oracle.ManagedDataAccess">
+      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <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.Management" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="ClassInit.vb" />
+    <Compile Include="ClassLogger.vb" />
+    <Compile Include="frmAbout.designer.vb">
+      <DependentUpon>frmAbout.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAbout.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="ClassAllgemeineFunktionen.vb" />
+    <Compile Include="ClassControl_Properties.vb" />
+    <Compile Include="ClassDatabase.vb" />
+    <Compile Include="ClassEmail.vb" />
+    <Compile Include="ClassEncryption.vb" />
+    <Compile Include="ClassPMWindream.vb" />
+    <Compile Include="ClassWindream_allgemein.vb" />
+    <Compile Include="clsDragInfo.vb" />
+    <Compile Include="DD_DMSLiteDataSet.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>DD_DMSLiteDataSet.xsd</DependentUpon>
+    </Compile>
+    <Compile Include="DD_DMSLiteDataSet.vb">
+      <DependentUpon>DD_DMSLiteDataSet.xsd</DependentUpon>
+    </Compile>
+    <Compile Include="frmAdminPasswort.Designer.vb">
+      <DependentUpon>frmAdminPasswort.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAdminPasswort.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmConnection.Designer.vb">
+      <DependentUpon>frmConnection.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmConnection.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmControl_Detail.Designer.vb">
+      <DependentUpon>frmControl_Detail.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmControl_Detail.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmError.Designer.vb">
+      <DependentUpon>frmError.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmError.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmFormDesigner.Designer.vb">
+      <DependentUpon>frmFormDesigner.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmFormDesigner.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmLicense.Designer.vb">
+      <DependentUpon>frmLicense.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmLicense.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmLoginAdmin.Designer.vb">
+      <DependentUpon>frmLoginAdmin.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmLoginAdmin.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmProfileDesigner.Designer.vb">
+      <DependentUpon>frmProfileDesigner.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmProfileDesigner.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmKonfig.Designer.vb">
+      <DependentUpon>frmKonfig.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmKonfig.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmSplash.designer.vb">
+      <DependentUpon>frmSplash.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSplash.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmSQL_Admin.Designer.vb">
+      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSQL_Admin.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmMain.Designer.vb">
+      <DependentUpon>frmMain.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmMain.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmSQL_DESIGNER.Designer.vb">
+      <DependentUpon>frmSQL_DESIGNER.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSQL_DESIGNER.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmUserKonfig_AddUsers.designer.vb">
+      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmUserKonfig_AddUsers.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmValidator.Designer.vb">
+      <DependentUpon>frmValidator.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmValidator.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="ModuleMySettings.vb" />
+    <Compile Include="ModuleRuntimeVariables.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+      <DependentUpon>Settings.settings</DependentUpon>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="frmAbout.resx">
+      <DependentUpon>frmAbout.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmAdminPasswort.resx">
+      <DependentUpon>frmAdminPasswort.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmConnection.resx">
+      <DependentUpon>frmConnection.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmControl_Detail.resx">
+      <DependentUpon>frmControl_Detail.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmError.resx">
+      <DependentUpon>frmError.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmFormDesigner.resx">
+      <DependentUpon>frmFormDesigner.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmLicense.resx">
+      <DependentUpon>frmLicense.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmLoginAdmin.resx">
+      <DependentUpon>frmLoginAdmin.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmProfileDesigner.resx">
+      <DependentUpon>frmProfileDesigner.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmKonfig.resx">
+      <DependentUpon>frmKonfig.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmSplash.resx">
+      <DependentUpon>frmSplash.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmSQL_Admin.resx">
+      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmMain.resx">
+      <DependentUpon>frmMain.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmSQL_DESIGNER.resx">
+      <DependentUpon>frmSQL_DESIGNER.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmUserKonfig_AddUsers.resx">
+      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmValidator.resx">
+      <DependentUpon>frmValidator.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="App.config" />
+    <None Include="DD_DMSLiteDataSet.xsc">
+      <DependentUpon>DD_DMSLiteDataSet.xsd</DependentUpon>
+    </None>
+    <None Include="DD_DMSLiteDataSet.xsd">
+      <Generator>MSDataSetGenerator</Generator>
+      <SubType>Designer</SubType>
+      <LastGenOutput>DD_DMSLiteDataSet.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="DD_DMSLiteDataSet.xss">
+      <DependentUpon>DD_DMSLiteDataSet.xsd</DependentUpon>
+    </None>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\20110505_Logo_syncreon_slogan_inverse.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\syncreon.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <COMReference Include="WINDREAMLib">
+      <Guid>{18E0EEE0-42A3-11D3-B322-00104B066E1A}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>False</EmbedInteropTypes>
+    </COMReference>
+    <COMReference Include="WMOBRWSLib">
+      <Guid>{25B51999-6DCA-11D4-B815-00104BB52DEA}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
+    <COMReference Include="WMOSRCHLib">
+      <Guid>{BE4F1D13-88A8-11D4-B3FA-0001021F035F}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
+    <COMReference Include="WMOTOOLLib">
+      <Guid>{A704B4C1-E1C1-11D2-B2A9-00104B066E1A}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_green.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_orange.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_pink.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_purple.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_red.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\user.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\resultset_first.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\resultset_last.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\resultset_next.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\resultset_previous.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Einstellungen6.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\computer_edit.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\add.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\asterisk_yellow.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\application_form_edit.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\cmb.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\dtp.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\lbl.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\txt.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\key_go.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\A_1.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\save.bmp" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\logo_bilder.jpg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\puzzle2.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\world_link.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\key.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\key1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\group_key.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\arrow_refresh.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\page_copy.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\zoom_in.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\zoom_out.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\table_add.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_link.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_refresh.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_save.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_go.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\email_go.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_go1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Checkbox.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\book_open.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\information.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\page_red.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\magifier_zoom_out.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\magifier_zoom_out1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\zoom_out1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\user_red.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\checkbox_16xLG.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\TextBox_708.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Label_684.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\DateOrTimePicker_675.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\ComboBox_16xLG.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\refresh_16xLG.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\refresh_16xMD.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Files_7954.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\GoToDeclaration_5576.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Nextrequest_10302.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\delete_12x12.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\PM_mit_slogan.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\PM_mit_slogan.JPG" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="PM_ohne_slogan_128px.ico" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj.bak

@@ -0,0 +1,551 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
+    <ProductVersion>
+    </ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{6ACA1432-09A2-47EF-A704-C0AA73905756}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>DD_PM_WINDREAM.My.MyApplication</StartupObject>
+    <RootNamespace>DD_PM_WINDREAM</RootNamespace>
+    <AssemblyName>DD_PM_WINDREAM</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkProfile>
+    </TargetFrameworkProfile>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>DD_PM_WINDREAM.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>DD_PM_WINDREAM.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>PM_ohne_slogan_128px.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="DevExpress.Data.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Pdf.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Pdf.v15.1.Drawing, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Printing.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraLayout.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraPrinting.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DLLLicenseManager">
+      <HintPath>..\..\..\LizenzManager\LizenzManager\bin\Debug\DLLLicenseManager.dll</HintPath>
+    </Reference>
+    <Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath>
+    </Reference>
+    <Reference Include="Interop.Scripting">
+      <HintPath>..\..\..\..\..\DLL\Interop.Scripting.dll</HintPath>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="Microsoft.VisualBasic.PowerPacks.Vs, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
+    <Reference Include="Oracle.ManagedDataAccess, Version=4.121.1.0, Culture=neutral, PublicKeyToken=89b483f429c47342, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\Programme\DB\Oracle\ora12.1\Client\ODP.NET\managed\common\Oracle.ManagedDataAccess.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <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.Management" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="ClassInit.vb" />
+    <Compile Include="ClassLogger.vb" />
+    <Compile Include="frmAbout.designer.vb">
+      <DependentUpon>frmAbout.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAbout.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="ClassAllgemeineFunktionen.vb" />
+    <Compile Include="ClassControl_Properties.vb" />
+    <Compile Include="ClassDatabase.vb" />
+    <Compile Include="ClassEmail.vb" />
+    <Compile Include="ClassEncryption.vb" />
+    <Compile Include="ClassPMWindream.vb" />
+    <Compile Include="ClassWindream_allgemein.vb" />
+    <Compile Include="clsDragInfo.vb" />
+    <Compile Include="DD_DMSLiteDataSet.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>DD_DMSLiteDataSet.xsd</DependentUpon>
+    </Compile>
+    <Compile Include="DD_DMSLiteDataSet.vb">
+      <DependentUpon>DD_DMSLiteDataSet.xsd</DependentUpon>
+    </Compile>
+    <Compile Include="frmAdminPasswort.Designer.vb">
+      <DependentUpon>frmAdminPasswort.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAdminPasswort.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmConnection.Designer.vb">
+      <DependentUpon>frmConnection.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmConnection.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmControl_Detail.Designer.vb">
+      <DependentUpon>frmControl_Detail.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmControl_Detail.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmError.Designer.vb">
+      <DependentUpon>frmError.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmError.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmFormDesigner.Designer.vb">
+      <DependentUpon>frmFormDesigner.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmFormDesigner.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmLicense.Designer.vb">
+      <DependentUpon>frmLicense.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmLicense.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmLoginAdmin.Designer.vb">
+      <DependentUpon>frmLoginAdmin.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmLoginAdmin.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmProfileDesigner.Designer.vb">
+      <DependentUpon>frmProfileDesigner.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmProfileDesigner.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmKonfig.Designer.vb">
+      <DependentUpon>frmKonfig.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmKonfig.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmSplash.designer.vb">
+      <DependentUpon>frmSplash.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSplash.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmSQL_Admin.Designer.vb">
+      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSQL_Admin.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmProfiles.Designer.vb">
+      <DependentUpon>frmProfiles.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmProfiles.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmUserKonfig_AddUsers.designer.vb">
+      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmUserKonfig_AddUsers.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmValidator.Designer.vb">
+      <DependentUpon>frmValidator.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmValidator.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="ModuleMySettings.vb" />
+    <Compile Include="ModuleRuntimeVariables.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+      <DependentUpon>Settings.settings</DependentUpon>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="frmAbout.resx">
+      <DependentUpon>frmAbout.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmAdminPasswort.resx">
+      <DependentUpon>frmAdminPasswort.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmConnection.resx">
+      <DependentUpon>frmConnection.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmControl_Detail.resx">
+      <DependentUpon>frmControl_Detail.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmError.resx">
+      <DependentUpon>frmError.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmFormDesigner.resx">
+      <DependentUpon>frmFormDesigner.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmLicense.resx">
+      <DependentUpon>frmLicense.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmLoginAdmin.resx">
+      <DependentUpon>frmLoginAdmin.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmProfileDesigner.resx">
+      <DependentUpon>frmProfileDesigner.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmKonfig.resx">
+      <DependentUpon>frmKonfig.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmSplash.resx">
+      <DependentUpon>frmSplash.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmSQL_Admin.resx">
+      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmProfiles.resx">
+      <DependentUpon>frmProfiles.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmUserKonfig_AddUsers.resx">
+      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmValidator.resx">
+      <DependentUpon>frmValidator.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="App.config" />
+    <None Include="DD_DMSLiteDataSet.xsc">
+      <DependentUpon>DD_DMSLiteDataSet.xsd</DependentUpon>
+    </None>
+    <None Include="DD_DMSLiteDataSet.xsd">
+      <Generator>MSDataSetGenerator</Generator>
+      <SubType>Designer</SubType>
+      <LastGenOutput>DD_DMSLiteDataSet.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="DD_DMSLiteDataSet.xss">
+      <DependentUpon>DD_DMSLiteDataSet.xsd</DependentUpon>
+    </None>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\20110505_Logo_syncreon_slogan_inverse.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\syncreon.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <COMReference Include="WINDREAMLib">
+      <Guid>{18E0EEE0-42A3-11D3-B322-00104B066E1A}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>False</EmbedInteropTypes>
+    </COMReference>
+    <COMReference Include="WMOBRWSLib">
+      <Guid>{25B51999-6DCA-11D4-B815-00104BB52DEA}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
+    <COMReference Include="WMOSRCHLib">
+      <Guid>{BE4F1D13-88A8-11D4-B3FA-0001021F035F}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
+    <COMReference Include="WMOTOOLLib">
+      <Guid>{A704B4C1-E1C1-11D2-B2A9-00104B066E1A}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_green.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_orange.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_pink.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_purple.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_red.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\user.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\resultset_first.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\resultset_last.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\resultset_next.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\resultset_previous.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Einstellungen6.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\computer_edit.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\add.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\asterisk_yellow.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\application_form_edit.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\cmb.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\dtp.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\lbl.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\txt.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\key_go.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\A_1.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\save.bmp" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\logo_bilder.jpg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\puzzle2.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\world_link.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\key.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\key1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\group_key.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\arrow_refresh.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\page_copy.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\zoom_in.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\zoom_out.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\table_add.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_link.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_refresh.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_save.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_go.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\email_go.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\database_go1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Checkbox.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\book_open.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\information.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\page_red.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\magifier_zoom_out.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\magifier_zoom_out1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\zoom_out1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\user_red.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\checkbox_16xLG.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\TextBox_708.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Label_684.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\DateOrTimePicker_675.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\ComboBox_16xLG.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\refresh_16xLG.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\refresh_16xMD.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Files_7954.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\GoToDeclaration_5576.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Nextrequest_10302.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\delete_12x12.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\PM_mit_slogan.PNG" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\PM_mit_slogan.JPG" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="PM_ohne_slogan_128px.ico" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj.user

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectView>ShowAllFiles</ProjectView>
+  </PropertyGroup>
+</Project>

DD_PM_WINDREAM/ModuleMySettings.vb

@@ -0,0 +1,202 @@
+Imports System.IO
+Imports System.Xml
+
+Module ModuleMySettings
+    Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.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 CURRENT_FILE As String = ""
+
+    Public vWLaufwerk As String = "W"
+    Public vVERSION_DELIMITER As String = "~"
+    Public vFILE_DELIMITER As String = "_"
+
+    Public Function Settings_Load()
+        Try
+            Dim DT As DataTable
+            'if file doesn't exist, create the file with its default xml table
+            If Not File.Exists(ConfigPath) Then
+                DT = CreateConfigTable()
+                DT.WriteXml(ConfigPath)
+            End If
+            DT = GetTablefromXML()
+            For Each Row As DataRow In DT.Rows
+                Select Case Row.Item("ConfigName")
+                    Case "MyConnectionString"
+                        Dim connstring As String
+                        'Den ConnectonString mit verschlüsseltem PW laden
+                        Dim csb As New SqlClient.SqlConnectionStringBuilder
+                        csb.ConnectionString = Row.Item("Value")
+                        If Not csb.ConnectionString = "" Then
+                            If csb.ConnectionString.Contains("Password=") Then
+                                'sa-
+                                'Jetzt das Passwort entschlüsseln
+                                Dim PWplainText As String
+                                Dim wrapper As New ClassEncryption("!35452didalog=")
+                                ' DecryptData throws if the wrong password is used.
+                                Try
+                                    PWplainText = wrapper.DecryptData(csb.Password)
+                                Catch ex As Exception
+                                    ClassLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False)
+                                    PWplainText = csb.Password
+                                End Try
+                                connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
+                            Else
+                                'Windows-Auth
+                                connstring = Row.Item("Value").ToString
+                            End If
+
+                            MyConnectionString = connstring
+                            ClassDatabase.Init()
+                        Else
+                            MyConnectionString = ""
+                        End If
+                    Case "LogErrorsOnly"
+                        LogErrorsOnly = CBool(Row.Item("Value"))
+                    Case "UniversalViewer"
+                        UniversalViewer = Row.Item("Value")
+                    Case "PDFXChangeViewer"
+                        PDFXChangeViewer = Row.Item("Value")
+                    Case "PDFViewer_ZoomMode"
+                        PDFViewer_ZoomMode = Row.Item("Value")
+                    Case "vpdfviewer"
+                        vpdfviewer = Row.Item("Value")
+                    Case "Viewer"
+                        Viewer = Row.Item("Value")
+                    Case "SumatraViewer"
+                        SumatraViewer = Row.Item("Value")
+                    Case "IDX_DMS_ERSTELLT"
+                        IDX_DMS_ERSTELLT = Row.Item("Value")
+                    Case "IDX_DMS_ERSTELLT_ZEIT"
+                        IDX_DMS_ERSTELLT_ZEIT = Row.Item("Value")
+                End Select
+            Next
+        Catch ex As Exception
+            MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+        Return True
+
+    End Function
+    Private Function GetTablefromXML()
+        Try
+            Dim DS As New DataSet
+            DS.ReadXml(ConfigPath)
+            Return DS.Tables(0)
+        Catch ex As Exception
+            MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return Nothing
+        End Try
+
+    End Function
+    Private Function CreateConfigTable() As DataTable
+        Try
+            ' Create sample Customers table, in order
+            ' to demonstrate the behavior of the DataTableReader.
+            Dim table As New DataTable
+            table.TableName = "MyConfig"
+
+            ' Create two columns, ID and Name.
+            Dim idColumn As DataColumn = table.Columns.Add("ID", _
+                GetType(System.Int32))
+
+            idColumn.AutoIncrement = True
+            idColumn.AutoIncrementSeed = 0
+            idColumn.AutoIncrementStep = 1
+            table.Columns.Add("ConfigName", GetType(System.String))
+            table.Columns.Add("Value", GetType(System.String))
+            'Set the ID column as the primary key column.
+            table.PrimaryKey = New DataColumn() {idColumn}
+            Dim newRow As DataRow = table.NewRow()
+            newRow("ConfigName") = "MyConnectionString"
+            newRow("Value") = ""
+            table.Rows.Add(newRow)
+            Dim newRow1 As DataRow = table.NewRow()
+            newRow1("ConfigName") = "LogErrorsOnly"
+            newRow1("Value") = "True"
+            table.Rows.Add(newRow1)
+            Dim newRow2 As DataRow = table.NewRow()
+            newRow2("ConfigName") = "UniversalViewer"
+            newRow2("Value") = ""
+            table.Rows.Add(newRow2)
+            Dim newRow3 As DataRow = table.NewRow()
+            newRow3("ConfigName") = "PDFXChangeViewer"
+            newRow3("Value") = ""
+            table.Rows.Add(newRow3)
+            Dim newRow7 As DataRow = table.NewRow()
+            newRow7("ConfigName") = "SumatraViewer"
+            newRow7("Value") = ""
+            table.Rows.Add(newRow7)
+            Dim newRow4 As DataRow = table.NewRow()
+            newRow4("ConfigName") = "PDFViewer_ZoomMode"
+            newRow4("Value") = "3"
+            table.Rows.Add(newRow4)
+            Dim newRow5 As DataRow = table.NewRow()
+            newRow5("ConfigName") = "vpdfviewer"
+            newRow5("Value") = "internal"
+            table.Rows.Add(newRow5)
+            Dim newRow6 As DataRow = table.NewRow()
+            newRow6("ConfigName") = "Viewer"
+            newRow6("Value") = "docview"
+            table.Rows.Add(newRow6)
+            Dim newRow8 As DataRow = table.NewRow()
+            newRow8("ConfigName") = "IDX_DMS_ERSTELLT"
+            newRow8("Value") = "DMS erstellt"
+            table.Rows.Add(newRow8)
+            Dim newRow9 As DataRow = table.NewRow()
+            newRow9("ConfigName") = "IDX_DMS_ERSTELLT_ZEIT"
+            newRow9("Value") = "DMS erstellt (Zeit)"
+            table.Rows.Add(newRow9)
+
+            table.AcceptChanges()
+            Return table
+        Catch ex As Exception
+            MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return Nothing
+        End Try
+    End Function
+    Public Function SaveMySettingsValue(name As String, value As String)
+        Try
+            Dim DT As DataTable
+            DT = GetTablefromXML()
+
+            For Each Row As DataRow In DT.Rows
+                If Row.Item("ConfigName") = name Then
+                    Row.Item("Value") = value
+                End If
+            Next
+            DT.AcceptChanges()
+            DT.WriteXml(ConfigPath)
+        Catch ex As Exception
+            MsgBox("Error in SaveConfigValue" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+        Return True
+
+    End Function
+    Public Function Settings_LoadBasicConfig()
+        Try
+            Dim sql As String = "select * from tbdd_Modules where NAME = 'Record-Organizer'"
+            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")
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Settings_LoadBasicConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+        Return True
+    End Function
+End Module

DD_PM_WINDREAM/ModuleRuntimeVariables.vb

@@ -0,0 +1,22 @@
+Module ModuleRuntimeVariables
+
+    ' Diese Werte müssen später zur Laufzeit geladen werden
+    Public CURRENT_ProfilGUID As Integer
+    Public CURRENT_ProfilName As String
+    Public CURRENT_HTML_DOC As String
+    Public CURRENT_DOC_ID As Integer
+    Public ERROR_STATE = ""
+    Public USER_IS_ADMIN As Boolean = False
+    Public CURRENT_USERID
+    Public LICENSE_COUNT As Integer = 0
+    Public LICENSE_EXPIRED As Boolean = False
+    Public LICENSE_PROFILES As Integer = 0
+    Public USERCOUNT_LOGGED_IN As Integer = 0
+    Public CURRENT_INDEX_ID As Integer
+    Public CURRENT_OBJECTTYPE As String
+    Public CURRENT_DESIGN_TYPE As String
+    Public CURRENT_SQL_CON As Integer
+    Public CURRENT_SQL_COMAMND As String
+    Public CURRENT_DT_SQL_CONFIG_TABLE As DataTable
+
+End Module

DD_PM_WINDREAM/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34014
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
+    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.DD_PM_WINDREAM.frmMain
+        End Sub
+    End Class
+End Namespace

DD_PM_WINDREAM/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-16"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>frmMain</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

DD_PM_WINDREAM/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden 
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die mit einer Assembly verknüpft sind.
+
+' Die Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("Process Manager")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("Digital Data")> 
+<Assembly: AssemblyProduct("Process Manager")> 
+<Assembly: AssemblyCopyright("Copyright © Digital Data 2016")> 
+<Assembly: AssemblyTrademark("")> 
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
+<Assembly: Guid("158d9c39-8ba7-48ec-b2e8-39bc1031be67")> 
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion 
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.9.3.3")> 
+<Assembly: AssemblyFileVersion("1.0.0.0")> 

DD_PM_WINDREAM/My Project/Resources.Designer.vb

@@ -0,0 +1,683 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34209
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_PM_WINDREAM.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property _20110505_Logo_syncreon_slogan_inverse() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("20110505_Logo_syncreon_slogan_inverse", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property A_1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("A_1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property add() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("add", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property application_form_edit() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("application_form_edit", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property arrow_refresh() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("arrow_refresh", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property asterisk_yellow() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("asterisk_yellow", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property book_open() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("book_open", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Checkbox() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Checkbox", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property checkbox_16xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("checkbox_16xLG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property cmb() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("cmb", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property ComboBox_16xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ComboBox_16xLG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property computer_edit() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("computer_edit", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property database_go() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("database_go", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property database_go1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("database_go1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property database_link() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("database_link", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property database_refresh() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("database_refresh", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property database_save() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("database_save", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property DateOrTimePicker_675() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("DateOrTimePicker_675", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property delete_12x12() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("delete_12x12", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property dtp() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("dtp", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Einstellungen6() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Einstellungen6", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property email_go() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("email_go", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Files_7954() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Files_7954", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_green() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_green", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_orange() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_orange", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_pink() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_pink", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_purple() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_purple", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_red() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_red", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property GoToDeclaration_5576() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("GoToDeclaration_5576", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property group_key() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("group_key", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property information() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("information", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property key() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("key", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property key_go() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("key_go", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property key1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("key1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Label_684() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Label_684", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property lbl() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("lbl", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property logo_bilder() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("logo_bilder", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property magifier_zoom_out() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("magifier_zoom_out", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property magifier_zoom_out1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("magifier_zoom_out1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Nextrequest_10302() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Nextrequest_10302", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property page_copy() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("page_copy", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property page_red() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("page_red", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property PM_mit_slogan() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("PM_mit_slogan", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property PM_mit_slogan1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("PM_mit_slogan1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property puzzle2() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("puzzle2", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property refresh_16xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("refresh_16xLG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property refresh_16xMD() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("refresh_16xMD", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property resultset_first() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("resultset_first", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property resultset_last() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("resultset_last", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property resultset_next() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("resultset_next", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property resultset_previous() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("resultset_previous", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property save() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("save", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property syncreon() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("syncreon", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property table_add() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("table_add", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property TextBox_708() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("TextBox_708", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property txt() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("txt", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property user() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("user", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property user_red() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("user_red", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property world_link() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("world_link", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property zoom_in() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("zoom_in", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property zoom_out() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("zoom_out", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property zoom_out1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("zoom_out1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+    End Module
+End Namespace

DD_PM_WINDREAM/My Project/Resources.resx

@@ -0,0 +1,307 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="page_copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="syncreon" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\syncreon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="A_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="PM_mit_slogan" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\PM_mit_slogan.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="magifier_zoom_out1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\magifier_zoom_out1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ComboBox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="checkbox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="20110505_Logo_syncreon_slogan_inverse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\20110505_Logo_syncreon_slogan_inverse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="group_key" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\group_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="puzzle2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\puzzle2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_pink" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_pink.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="world_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\world_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="user" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="resultset_next" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\resultset_next.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="resultset_previous" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\resultset_previous.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="asterisk_yellow" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\asterisk_yellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="application_form_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="cmb" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\cmb.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="book_open" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Nextrequest_10302" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Nextrequest_10302.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="key1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_purple" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_purple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="zoom_in" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="magifier_zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="GoToDeclaration_5576" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\GoToDeclaration_5576.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="resultset_first" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\resultset_first.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="zoom_out1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\zoom_out1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Label_684" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Label_684.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="lbl" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="logo_bilder" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\logo_bilder.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Files_7954" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="computer_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\computer_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="dtp" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\dtp.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Checkbox" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="TextBox_708" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\TextBox_708.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="table_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="user_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="information" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\information.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="resultset_last" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\resultset_last.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="PM_mit_slogan1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\PM_mit_slogan.JPG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+</root>

DD_PM_WINDREAM/My Project/Settings.Designer.vb

@@ -0,0 +1,213 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34209
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Funktion zum automatischen Speichern von My.Settings"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute(""),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property errormessage() As String
+            Get
+                Return CType(Me("errormessage"),String)
+            End Get
+            Set
+                Me("errormessage") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\Tests;Initial Catalog=DD_DMS;Persist Security Info=True;"& _ 
+            "User ID=sa;Password=dd")>  _
+        Public ReadOnly Property ConnectionString() As String
+            Get
+                Return CType(Me("ConnectionString"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0"),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property frmTableColumns_Position() As Global.System.Drawing.Point
+            Get
+                Return CType(Me("frmTableColumns_Position"),Global.System.Drawing.Point)
+            End Get
+            Set
+                Me("frmTableColumns_Position") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0"),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property frmValidator_Splitter() As Global.System.Drawing.Point
+            Get
+                Return CType(Me("frmValidator_Splitter"),Global.System.Drawing.Point)
+            End Get
+            Set
+                Me("frmValidator_Splitter") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("890, 790"),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property frmValidation_Size_PDFViewer() As Global.System.Drawing.Size
+            Get
+                Return CType(Me("frmValidation_Size_PDFViewer"),Global.System.Drawing.Size)
+            End Get
+            Set
+                Me("frmValidation_Size_PDFViewer") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("890, 790"),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property frmValidation_Size_Email() As Global.System.Drawing.Size
+            Get
+                Return CType(Me("frmValidation_Size_Email"),Global.System.Drawing.Size)
+            End Get
+            Set
+                Me("frmValidation_Size_Email") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("5")>  _
+        Public Property IntervallReminder() As String
+            Get
+                Return CType(Me("IntervallReminder"),String)
+            End Get
+            Set
+                Me("IntervallReminder") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0"),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property frmMainSize() As Global.System.Drawing.Size
+            Get
+                Return CType(Me("frmMainSize"),Global.System.Drawing.Size)
+            End Get
+            Set
+                Me("frmMainSize") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0"),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property frmMainPosition() As Global.System.Drawing.Point
+            Get
+                Return CType(Me("frmMainPosition"),Global.System.Drawing.Point)
+            End Get
+            Set
+                Me("frmMainPosition") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0"),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property frmValidatorSize() As Global.System.Drawing.Size
+            Get
+                Return CType(Me("frmValidatorSize"),Global.System.Drawing.Size)
+            End Get
+            Set
+                Me("frmValidatorSize") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(), _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.Configuration.DefaultSettingValueAttribute("0, 0"), _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
+        Public Property frmValidatorPosition() As Global.System.Drawing.Point
+            Get
+                Return CType(Me("frmValidatorPosition"), Global.System.Drawing.Point)
+            End Get
+            Set(value As Global.System.Drawing.Point)
+                Me("frmValidatorPosition") = value
+            End Set
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.DD_PM_WINDREAM.My.MySettings
+            Get
+                Return Global.DD_PM_WINDREAM.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

DD_PM_WINDREAM/My Project/Settings.settings

@@ -0,0 +1,44 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="errormessage" Roaming="true" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
+    <Setting Name="ConnectionString" Type="(Connection string)" Scope="Application">
+      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
+&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
+  &lt;ConnectionString&gt;Data Source=172.24.12.41\Tests;Initial Catalog=DD_DMS;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+  &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
+&lt;/SerializableConnectionString&gt;</DesignTimeValue>
+      <Value Profile="(Default)">Data Source=172.24.12.41\Tests;Initial Catalog=DD_DMS;Persist Security Info=True;User ID=sa;Password=dd</Value>
+    </Setting>
+    <Setting Name="frmTableColumns_Position" Roaming="true" Type="System.Drawing.Point" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
+    <Setting Name="frmValidator_Splitter" Roaming="true" Type="System.Drawing.Point" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
+    <Setting Name="frmValidation_Size_PDFViewer" Roaming="true" Type="System.Drawing.Size" Scope="User">
+      <Value Profile="(Default)">890, 790</Value>
+    </Setting>
+    <Setting Name="frmValidation_Size_Email" Roaming="true" Type="System.Drawing.Size" Scope="User">
+      <Value Profile="(Default)">890, 790</Value>
+    </Setting>
+    <Setting Name="IntervallReminder" Type="System.String" Scope="User">
+      <Value Profile="(Default)">5</Value>
+    </Setting>
+    <Setting Name="frmMainSize" Roaming="true" Type="System.Drawing.Size" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
+    <Setting Name="frmMainPosition" Roaming="true" Type="System.Drawing.Point" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
+    <Setting Name="frmValidatorSize" Roaming="true" Type="System.Drawing.Size" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
+    <Setting Name="frmValidatorPosition" Roaming="true" Type="System.Drawing.Point" Scope="User">
+      <Value Profile="(Default)">0, 0</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>

DD_PM_WINDREAM/My Project/licenses.licx

@@ -0,0 +1,4 @@
+DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

DD_PM_WINDREAM/My Project/licenses.licx.bak

@@ -0,0 +1,4 @@
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

DD_PM_WINDREAM/bin/Debug/1~1.docx

@@ -0,0 +1,29 @@
+                                  
+
+
+Musterfirma | Musterweg 1 | 12345 Musterstadt
+Herr 
+Max Mustermann
+Musterstrasse 1
+
+ 51234 Beispielstadt	
+                                  Rechnungsdatum:   07.03.2014
+                    Liefer- bzw. Leistungsdatum:   12.10.2013
+                                                Ust-IdNr.:   DE123456789
+                  
+                  
+Rechnung Nr. 12345
+
+Wir bedanken uns für die gute Zusammenarbeit und stellen Ihnen vereinbarungsgemäß folgende Lieferungen und Leistungen in Rechnung: 
+
+Nr.	Bezeichnung	Menge	Einzel/Euro	Gesamt/Euro
+1	Künstlerauftritt Beispielsendung 2013	pauschal 	1.000,00	1.000,00
+2	Reisekosten nach Beleg	Pauschal	850,00	85000
+
+			Summe netto	1.850,00
+			Umsatzsteuer 19%	351,50
+			Rechnungsbetrag	2.201,50
+
+Die Rechnung ist sofort fällig.
+
+Bitte überweisen Sie den Rechnungsbetrag ohne Abzüge auf unser Bankkonto.