Name angepasst, akutelle VeragProgAllgemein eingefügt.

2026-01-12 12:04:23 +01:00
parent e1f30cdb68
commit 2be0c784f7
21 changed files with 85 additions and 74 deletions
--- a/Dokumentation/App.config
+++ b/Dokumentation/App.config
@@ -5,7 +5,8 @@
    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
  </configSections>
  <connectionStrings>
-    <add name="Dokumentation.My.MySettings.DokuConnectionString" connectionString="Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True" providerName="System.Data.SqlClient" />
+    <add name="DOKU.My.MySettings.DokuConnectionString" connectionString="Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True"
+      providerName="System.Data.SqlClient" />
  </connectionStrings>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
--- a/Dokumentation/DokuDataSet.Designer.vb
+++ b/Dokumentation/DokuDataSet.Designer.vb
@@ -730,7 +730,7 @@ Namespace DokuDataSetTableAdapters
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
        Private Sub InitConnection()
            Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = Global.Dokumentation.My.MySettings.Default.DokuConnectionString
+            Me._connection.ConnectionString = Global.DOKU.My.MySettings.Default.DokuConnectionString
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
--- a/Dokumentation/DokuDataSet.xsd
+++ b/Dokumentation/DokuDataSet.xsd
@@ -4,7 +4,7 @@
    <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
      <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
        <Connections>
-          <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="DokuConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DokuConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.Dokumentation.My.MySettings.GlobalReference.Default.DokuConnectionString" Provider="System.Data.SqlClient" />
+          <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="DokuConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DokuConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DOKU.My.MySettings.GlobalReference.Default.DokuConnectionString" Provider="System.Data.SqlClient" />
        </Connections>
        <Tables>
          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TbL_NotfallKontakteTableAdapter" GeneratorDataComponentClassName="TbL_NotfallKontakteTableAdapter" Name="TbL_NotfallKontakte" UserDataComponentName="TbL_NotfallKontakteTableAdapter">
@@ -28,13 +28,13 @@
      </DataSource>
    </xs:appinfo>
  </xs:annotation>
-  <xs:element name="DokuDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_UserDSName="DokuDataSet" msprop:Generator_DataSetName="DokuDataSet">
+  <xs:element name="DokuDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:Generator_UserDSName="DokuDataSet" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="DokuDataSet">
    <xs:complexType>
      <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="TbL_NotfallKontakte" msprop:Generator_RowEvHandlerName="TbL_NotfallKontakteRowChangeEventHandler" msprop:Generator_RowDeletedName="TbL_NotfallKontakteRowDeleted" msprop:Generator_RowDeletingName="TbL_NotfallKontakteRowDeleting" msprop:Generator_RowEvArgName="TbL_NotfallKontakteRowChangeEvent" msprop:Generator_TablePropName="TbL_NotfallKontakte" msprop:Generator_RowChangedName="TbL_NotfallKontakteRowChanged" msprop:Generator_RowChangingName="TbL_NotfallKontakteRowChanging" msprop:Generator_TableClassName="TbL_NotfallKontakteDataTable" msprop:Generator_RowClassName="TbL_NotfallKontakteRow" msprop:Generator_TableVarName="tableTbL_NotfallKontakte" msprop:Generator_UserTableName="TbL_NotfallKontakte">
+        <xs:element name="TbL_NotfallKontakte" msprop:Generator_RowClassName="TbL_NotfallKontakteRow" msprop:Generator_RowEvHandlerName="TbL_NotfallKontakteRowChangeEventHandler" msprop:Generator_RowDeletedName="TbL_NotfallKontakteRowDeleted" msprop:Generator_RowDeletingName="TbL_NotfallKontakteRowDeleting" msprop:Generator_RowEvArgName="TbL_NotfallKontakteRowChangeEvent" msprop:Generator_TablePropName="TbL_NotfallKontakte" msprop:Generator_RowChangedName="TbL_NotfallKontakteRowChanged" msprop:Generator_UserTableName="TbL_NotfallKontakte" msprop:Generator_RowChangingName="TbL_NotfallKontakteRowChanging" msprop:Generator_TableClassName="TbL_NotfallKontakteDataTable" msprop:Generator_TableVarName="tableTbL_NotfallKontakte">
          <xs:complexType>
            <xs:sequence>
-              <xs:element name="Name" msprop:Generator_ColumnPropNameInRow="Name" msprop:Generator_ColumnPropNameInTable="NameColumn" msprop:Generator_ColumnVarNameInTable="columnName" msprop:Generator_UserColumnName="Name">
+              <xs:element name="Name" msprop:Generator_UserColumnName="Name" msprop:Generator_ColumnPropNameInTable="NameColumn" msprop:Generator_ColumnPropNameInRow="Name" msprop:Generator_ColumnVarNameInTable="columnName">
                <xs:simpleType>
                  <xs:restriction base="xs:string">
                    <xs:maxLength value="50" />
--- a/Dokumentation/Dokumentation.vbproj
+++ b/Dokumentation/Dokumentation.vbproj
@@ -7,9 +7,9 @@
    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
    <ProjectGuid>{AAC83634-C001-43FC-8E9D-07A263ED0600}</ProjectGuid>
    <OutputType>WinExe</OutputType>
-    <StartupObject>Dokumentation.My.MyApplication</StartupObject>
-    <RootNamespace>Dokumentation</RootNamespace>
-    <AssemblyName>Dokumentation</AssemblyName>
+    <StartupObject>DOKU.My.MyApplication</StartupObject>
+    <RootNamespace>DOKU</RootNamespace>
+    <AssemblyName>DOKU</AssemblyName>
    <FileAlignment>512</FileAlignment>
    <MyType>WindowsForms</MyType>
    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
@@ -17,6 +17,8 @@
    <Deterministic>true</Deterministic>
    <IsWebBootstrapper>false</IsWebBootstrapper>
    <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
    <PublishUrl>\\192.168.0.91\f\Programme\Doku\</PublishUrl>
    <Install>false</Install>
    <InstallFrom>Unc</InstallFrom>
@@ -34,8 +36,6 @@
    <UseApplicationTrust>false</UseApplicationTrust>
    <PublishWizardCompleted>true</PublishWizardCompleted>
    <BootstrapperEnabled>true</BootstrapperEnabled>
-    <NuGetPackageImportStamp>
-    </NuGetPackageImportStamp>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
    <PlatformTarget>x64</PlatformTarget>
@@ -44,7 +44,7 @@
    <DefineDebug>true</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>Dokumentation.xml</DocumentationFile>
+    <DocumentationFile>DOKU.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
    <Prefer32Bit>false</Prefer32Bit>
  </PropertyGroup>
@@ -55,7 +55,7 @@
    <DefineTrace>true</DefineTrace>
    <Optimize>true</Optimize>
    <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>Dokumentation.xml</DocumentationFile>
+    <DocumentationFile>DOKU.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
  </PropertyGroup>
  <PropertyGroup>
@@ -244,7 +244,7 @@
    <Reference Include="System.Net.Http" />
    <Reference Include="VERAG_PROG_ALLGEMEIN, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
+      <HintPath>..\..\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
    </Reference>
    <Reference Include="WindowsBase" />
  </ItemGroup>
--- a/Dokumentation/Drucken/frmColumnsPrint.Designer.vb
+++ b/Dokumentation/Drucken/frmColumnsPrint.Designer.vb
@@ -57,7 +57,7 @@ Partial Class frmColumnsPrint
        Me.CmdPrint.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdPrint.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.CmdPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdPrint.Image = Global.Dokumentation.My.Resources.Resources.Print20x20
+        Me.CmdPrint.Image = Global.DOKU.My.Resources.Resources.Print20x20
        Me.CmdPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.CmdPrint.Location = New System.Drawing.Point(239, 40)
        Me.CmdPrint.Name = "CmdPrint"
@@ -71,7 +71,7 @@ Partial Class frmColumnsPrint
        Me.btnAlleDeaktivieren.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnAlleDeaktivieren.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.btnAlleDeaktivieren.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAlleDeaktivieren.Image = Global.Dokumentation.My.Resources.Resources.del
+        Me.btnAlleDeaktivieren.Image = Global.DOKU.My.Resources.Resources.del
        Me.btnAlleDeaktivieren.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnAlleDeaktivieren.Location = New System.Drawing.Point(12, 6)
        Me.btnAlleDeaktivieren.Name = "btnAlleDeaktivieren"
--- a/Dokumentation/Drucken/frmPrint.Designer.vb
+++ b/Dokumentation/Drucken/frmPrint.Designer.vb
@@ -36,7 +36,7 @@ Partial Class frmPrint
        Me.CmdPrint.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdPrint.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.CmdPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdPrint.Image = Global.Dokumentation.My.Resources.Resources.Print20x20
+        Me.CmdPrint.Image = Global.DOKU.My.Resources.Resources.Print20x20
        Me.CmdPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.CmdPrint.Location = New System.Drawing.Point(193, 69)
        Me.CmdPrint.Name = "CmdPrint"
@@ -92,7 +92,7 @@ Partial Class frmPrint
        Me.btnManuell.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnManuell.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.btnManuell.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnManuell.Image = Global.Dokumentation.My.Resources.Resources.Print20x20
+        Me.btnManuell.Image = Global.DOKU.My.Resources.Resources.Print20x20
        Me.btnManuell.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnManuell.Location = New System.Drawing.Point(12, 69)
        Me.btnManuell.Name = "btnManuell"
--- a/Dokumentation/Drucken/uscntr_Columns.Designer.vb
+++ b/Dokumentation/Drucken/uscntr_Columns.Designer.vb
@@ -41,7 +41,7 @@ Partial Class uscntr_Columns
        '
        Me.btnDelete.BackColor = System.Drawing.Color.White
        Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnDelete.Image = Global.Dokumentation.My.Resources.Resources.del
+        Me.btnDelete.Image = Global.DOKU.My.Resources.Resources.del
        Me.btnDelete.Location = New System.Drawing.Point(260, 14)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.Size = New System.Drawing.Size(48, 23)
@@ -52,7 +52,7 @@ Partial Class uscntr_Columns
        '
        Me.btnOK.BackColor = System.Drawing.Color.White
        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnOK.Image = Global.Dokumentation.My.Resources.Resources.Hakerl20
+        Me.btnOK.Image = Global.DOKU.My.Resources.Resources.Hakerl20
        Me.btnOK.Location = New System.Drawing.Point(314, 14)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(48, 23)
--- a/Dokumentation/Login/Login.vb
+++ b/Dokumentation/Login/Login.vb
@@ -39,10 +39,15 @@ Public Class Login

    Public Function LoadUSRID()
        If Class1.offline Then Exit Function
-        Dim ds As New DataSet
-        cSQL.SQL2DS("select * from [ADMIN].dbo.tblMitarbeiter where mit_aliasad_domain = '" & Environment.UserDomainName & "' AND mit_AliasAD_Username = '" & Environment.UserName & "'", ds)
-        VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = ds.Tables(0).Rows(0).Item("mit_id")
-        VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
+
+        Try
+            Dim ds As New DataSet
+            cSQL.SQL2DS("select * from [ADMIN].dbo.tblMitarbeiter where mit_aliasad_domain = '" & Environment.UserDomainName & "' AND mit_AliasAD_Username = '" & Environment.UserName & "'", ds)
+            VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = ds.Tables(0).Rows(0).Item("mit_id")
+            VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
+        Catch ex As Exception
+            MsgBox("Login.vb, LoadUSRID: " & ex.Message)
+        End Try

        'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
    End Function
@@ -106,7 +111,7 @@ Public Class Login
                If txt = True Then lblInfo.Text = "Benutzer ist nicht berechtigt!"
            End If
        Catch ex As Exception
-            MsgBox("Fehler Abfrage: " & ex.Message & debugtext)
+            MsgBox("Fehler Abfrage Login.vb, Abfrage: " & ex.Message & debugtext)
        End Try


@@ -220,23 +225,27 @@ Public Class Login

    Function ShowMain(Optional ByVal MessageActivated As Boolean = True)
        Dim main As New Main
+        Try
+            For Each right As cBerechtigungen In Class1.LoggedOnUserRights
+                If right.Standort = "DokuAdmin" And right.Zugriff = "Y" Then
+                    Class1.LoggedOnUserisAdmin = True
+                    main.BenutzerToolStripMenuItem.Enabled = True
+                    main.NetzwerkeToolStripMenuItem.Enabled = True
+                    main.AllesSichernCSVToolStripMenuItem.Enabled = True
+                    Exit For
+                Else
+                    main.BenutzerToolStripMenuItem.Enabled = False
+                    main.NetzwerkeToolStripMenuItem.Enabled = False
+                    main.AllesSichernCSVToolStripMenuItem.Enabled = False
+                End If
+            Next

-        For Each right As cBerechtigungen In Class1.LoggedOnUserRights
-            If right.Standort = "DokuAdmin" And right.Zugriff = "Y" Then
-                Class1.LoggedOnUserisAdmin = True
-                main.BenutzerToolStripMenuItem.Enabled = True
-                main.NetzwerkeToolStripMenuItem.Enabled = True
-                main.AllesSichernCSVToolStripMenuItem.Enabled = True
-                Exit For
-            Else
-                main.BenutzerToolStripMenuItem.Enabled = False
-                main.NetzwerkeToolStripMenuItem.Enabled = False
-                main.AllesSichernCSVToolStripMenuItem.Enabled = False
-            End If
-        Next
+            main.picAVISOMessenger.Enabled = MessageActivated
+            main.Show()
+        Catch ex As Exception
+            MsgBox("Login.vb Showmain: " & ex.Message)
+        End Try

-        main.picAVISOMessenger.Enabled = MessageActivated
-        main.Show()

    End Function

--- a/Dokumentation/Main.Designer.vb
+++ b/Dokumentation/Main.Designer.vb
@@ -225,7 +225,7 @@ Partial Class Main
        Me.Button3.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.Button3.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Image = Global.Dokumentation.My.Resources.Resources.mstsc1
+        Me.Button3.Image = Global.DOKU.My.Resources.Resources.mstsc1
        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button3.Location = New System.Drawing.Point(17, 34)
        Me.Button3.Name = "Button3"
@@ -239,7 +239,7 @@ Partial Class Main
        Me.Button2.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.Button2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Image = Global.Dokumentation.My.Resources.Resources.Netzwerk20
+        Me.Button2.Image = Global.DOKU.My.Resources.Resources.Netzwerk20
        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button2.Location = New System.Drawing.Point(17, 67)
        Me.Button2.Name = "Button2"
@@ -265,7 +265,7 @@ Partial Class Main
        'picAVISOMessenger
        '
        Me.picAVISOMessenger.Anchor = System.Windows.Forms.AnchorStyles.Right
-        Me.picAVISOMessenger.BackgroundImage = Global.Dokumentation.My.Resources.Resources.aviso_messenger
+        Me.picAVISOMessenger.BackgroundImage = Global.DOKU.My.Resources.Resources.aviso_messenger
        Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
        Me.picAVISOMessenger.Location = New System.Drawing.Point(427, 40)
@@ -279,7 +279,7 @@ Partial Class Main
        Me.btnTSSitzungen.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnTSSitzungen.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.btnTSSitzungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnTSSitzungen.Image = Global.Dokumentation.My.Resources.Resources.external_content_duckduckgo_com
+        Me.btnTSSitzungen.Image = Global.DOKU.My.Resources.Resources.external_content_duckduckgo_com
        Me.btnTSSitzungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnTSSitzungen.Location = New System.Drawing.Point(139, 68)
        Me.btnTSSitzungen.Name = "btnTSSitzungen"
@@ -324,7 +324,7 @@ Partial Class Main
        Me.btnBenutzerverwaltung.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnBenutzerverwaltung.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnBenutzerverwaltung.Image = Global.Dokumentation.My.Resources.Resources.Admin20
+        Me.btnBenutzerverwaltung.Image = Global.DOKU.My.Resources.Resources.Admin20
        Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(139, 34)
        Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
@@ -505,7 +505,7 @@ Partial Class Main
        Me.Button1.ContextMenuStrip = Me.ContextMenuStrip1
        Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.iconfinder_contat_us_27phone_4211855_115040__Benutzerdefiniert_
+        Me.Button1.Image = Global.DOKU.My.Resources.Resources.iconfinder_contat_us_27phone_4211855_115040__Benutzerdefiniert_
        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button1.Location = New System.Drawing.Point(150, 70)
        Me.Button1.Name = "Button1"
@@ -715,7 +715,7 @@ Partial Class Main
        Me.btnSync.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnSync.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.btnSync.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnSync.Image = Global.Dokumentation.My.Resources.Resources.sign_sync_icon_34357
+        Me.btnSync.Image = Global.DOKU.My.Resources.Resources.sign_sync_icon_34357
        Me.btnSync.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnSync.Location = New System.Drawing.Point(51, 613)
        Me.btnSync.Name = "btnSync"
@@ -739,7 +739,7 @@ Partial Class Main
        Me.btnNeu.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnNeu.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnNeu.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20
+        Me.btnNeu.Image = Global.DOKU.My.Resources.Resources.Bearbeiten20
        Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnNeu.Location = New System.Drawing.Point(25, 476)
        Me.btnNeu.Name = "btnNeu"
@@ -795,7 +795,7 @@ Partial Class Main
        Me.CmdNWDateien.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdNWDateien.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.CmdNWDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdNWDateien.Image = Global.Dokumentation.My.Resources.Resources.Folder20
+        Me.CmdNWDateien.Image = Global.DOKU.My.Resources.Resources.Folder20
        Me.CmdNWDateien.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.CmdNWDateien.Location = New System.Drawing.Point(22, 11)
        Me.CmdNWDateien.Name = "CmdNWDateien"
@@ -809,7 +809,7 @@ Partial Class Main
        Me.CmdNetzwerkbearbeiten.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdNetzwerkbearbeiten.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.CmdNetzwerkbearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdNetzwerkbearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Netzwerk20
+        Me.CmdNetzwerkbearbeiten.Image = Global.DOKU.My.Resources.Resources.Netzwerk20
        Me.CmdNetzwerkbearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.CmdNetzwerkbearbeiten.Location = New System.Drawing.Point(22, 45)
        Me.CmdNetzwerkbearbeiten.Name = "CmdNetzwerkbearbeiten"
@@ -823,7 +823,7 @@ Partial Class Main
        Me.CmDBearbeiten.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmDBearbeiten.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.CmDBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmDBearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20
+        Me.CmDBearbeiten.Image = Global.DOKU.My.Resources.Resources.Bearbeiten20
        Me.CmDBearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.CmDBearbeiten.Location = New System.Drawing.Point(25, 442)
        Me.CmDBearbeiten.Name = "CmDBearbeiten"
@@ -837,7 +837,7 @@ Partial Class Main
        Me.CmdFiles.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdFiles.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.CmdFiles.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdFiles.Image = Global.Dokumentation.My.Resources.Resources.Folder20
+        Me.CmdFiles.Image = Global.DOKU.My.Resources.Resources.Folder20
        Me.CmdFiles.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.CmdFiles.Location = New System.Drawing.Point(25, 408)
        Me.CmdFiles.Name = "CmdFiles"
@@ -860,7 +860,7 @@ Partial Class Main
        Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdLink.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdLink.Image = Global.Dokumentation.My.Resources.Resources.Link20
+        Me.CmdLink.Image = Global.DOKU.My.Resources.Resources.Link20
        Me.CmdLink.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.CmdLink.Location = New System.Drawing.Point(25, 374)
        Me.CmdLink.Name = "CmdLink"
--- a/Dokumentation/Main.vb
+++ b/Dokumentation/Main.vb
@@ -36,6 +36,7 @@ Public Class Main
    Private Version As String = My.Resources.Version

    Public Shared SelectedDGVIndex As Integer
+
    Public Shared FirstDisplayedDGVEntry As Integer

    Public printds As DataSet = Nothing
--- a/Project/Application.Designer.vb
+++ b/Project/Application.Designer.vb
@@ -32,7 +32,7 @@ Namespace My
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.Dokumentation.Login
+            Me.MainForm = Global.DOKU.Login
        End Sub
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -8,11 +8,11 @@ Imports System.Runtime.InteropServices

 ' Werte der Assemblyattribute überprüfen

-<Assembly: AssemblyTitle("Dokumentation")>
+<Assembly: AssemblyTitle("DOKU")>
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Verag AG")>
-<Assembly: AssemblyProduct("Dokumentation")>
-<Assembly: AssemblyCopyright("Copyright ©  2021")>
+<Assembly: AssemblyProduct("DOKU")>
+<Assembly: AssemblyCopyright("Copyright ©  2026")>
 <Assembly: AssemblyTrademark("")>

 <Assembly: ComVisible(False)>
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -39,7 +39,7 @@ Namespace My.Resources
        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("Dokumentation.Resources", GetType(Resources).Assembly)
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DOKU.Resources", GetType(Resources).Assembly)
                    resourceMan = temp
                End If
                Return resourceMan
@@ -290,7 +290,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Dokumentation ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die DOKU ähnelt.
        '''</summary>
        Friend ReadOnly Property Programmname() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -161,7 +161,7 @@
    <value>..\Resources\mstsc1.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="Programmname" xml:space="preserve">
-    <value>Dokumentation</value>
+    <value>DOKU</value>
  </data>
  <data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
    
    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.11.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.14.0.0"),  _
     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
    Partial Friend NotInheritable Class MySettings
        Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -75,9 +75,9 @@ Namespace My
    Friend Module MySettingsProperty
        
        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
-        Friend ReadOnly Property Settings() As Global.Dokumentation.My.MySettings
+        Friend ReadOnly Property Settings() As Global.DOKU.My.MySettings
            Get
-                Return Global.Dokumentation.My.MySettings.Default
+                Return Global.DOKU.My.MySettings.Default
            End Get
        End Property
    End Module
--- a/Dokumentation/frmHostBearbeiten.Designer.vb
+++ b/Dokumentation/frmHostBearbeiten.Designer.vb
@@ -705,7 +705,7 @@ Partial Class frmHostBearbeiten
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button1.ForeColor = System.Drawing.Color.Red
-        Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.mstsc1
+        Me.Button1.Image = Global.DOKU.My.Resources.Resources.mstsc1
        Me.Button1.Location = New System.Drawing.Point(271, 340)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(32, 32)
@@ -734,7 +734,7 @@ Partial Class frmHostBearbeiten
        Me.cmdRDP.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.cmdRDP.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.cmdRDP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.cmdRDP.Image = Global.Dokumentation.My.Resources.Resources.mstsc1
+        Me.cmdRDP.Image = Global.DOKU.My.Resources.Resources.mstsc1
        Me.cmdRDP.Location = New System.Drawing.Point(231, 340)
        Me.cmdRDP.Name = "cmdRDP"
        Me.cmdRDP.Size = New System.Drawing.Size(32, 32)
@@ -746,7 +746,7 @@ Partial Class frmHostBearbeiten
        Me.cmdPutty.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.cmdPutty.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.cmdPutty.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.cmdPutty.Image = Global.Dokumentation.My.Resources.Resources.ico_putty_exe0001
+        Me.cmdPutty.Image = Global.DOKU.My.Resources.Resources.ico_putty_exe0001
        Me.cmdPutty.Location = New System.Drawing.Point(85, 339)
        Me.cmdPutty.Name = "cmdPutty"
        Me.cmdPutty.Size = New System.Drawing.Size(32, 32)
--- a/Dokumentation/uscntr_Benutzer.Designer.vb
+++ b/Dokumentation/uscntr_Benutzer.Designer.vb
@@ -44,7 +44,7 @@ Partial Class uscntr_Benutzer
        Me.btnLoad.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnLoad.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.btnLoad.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnLoad.Image = Global.Dokumentation.My.Resources.Resources.Link20
+        Me.btnLoad.Image = Global.DOKU.My.Resources.Resources.Link20
        Me.btnLoad.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnLoad.Location = New System.Drawing.Point(963, 384)
        Me.btnLoad.Name = "btnLoad"
--- a/Dokumentation/uscntr_MessageUser.Designer.vb
+++ b/Dokumentation/uscntr_MessageUser.Designer.vb
@@ -38,7 +38,7 @@ Partial Class uscntr_MessageUser
        '
        'btnDelete
        '
-        Me.btnDelete.Image = Global.Dokumentation.My.Resources.Resources.del
+        Me.btnDelete.Image = Global.DOKU.My.Resources.Resources.del
        Me.btnDelete.Location = New System.Drawing.Point(192, 1)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.Size = New System.Drawing.Size(38, 23)
--- a/Dokumentation/uscntr_TSSitzungen.Designer.vb
+++ b/Dokumentation/uscntr_TSSitzungen.Designer.vb
@@ -161,7 +161,7 @@ Partial Class uscntr_TSSitzungen
        Me.cmdNachricht.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.cmdNachricht.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.cmdNachricht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.cmdNachricht.Image = Global.Dokumentation.My.Resources.Resources.mail20
+        Me.cmdNachricht.Image = Global.DOKU.My.Resources.Resources.mail20
        Me.cmdNachricht.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.cmdNachricht.Location = New System.Drawing.Point(8, 31)
        Me.cmdNachricht.Margin = New System.Windows.Forms.Padding(8)
@@ -189,7 +189,7 @@ Partial Class uscntr_TSSitzungen
        Me.CmdUpdate.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdUpdate.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.CmdUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdUpdate.Image = Global.Dokumentation.My.Resources.Resources.Update
+        Me.CmdUpdate.Image = Global.DOKU.My.Resources.Resources.Update
        Me.CmdUpdate.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.CmdUpdate.Location = New System.Drawing.Point(206, 31)
        Me.CmdUpdate.Margin = New System.Windows.Forms.Padding(8)
--- a/Dokumentation/uscntr_Telefon.Designer.vb
+++ b/Dokumentation/uscntr_Telefon.Designer.vb
@@ -25,9 +25,9 @@ Partial Class uscntr_Telefon
        Me.components = New System.ComponentModel.Container()
        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.Label2 = New System.Windows.Forms.Label()
-        Me.DokuDataSet = New Dokumentation.DokuDataSet()
+        Me.DokuDataSet = New DOKU.DokuDataSet()
        Me.TbLNotfallKontakteBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.TbL_NotfallKontakteTableAdapter = New Dokumentation.DokuDataSetTableAdapters.TbL_NotfallKontakteTableAdapter()
+        Me.TbL_NotfallKontakteTableAdapter = New DOKU.DokuDataSetTableAdapters.TbL_NotfallKontakteTableAdapter()
        Me.TbLNotfallKontakteBindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
        Me.Label3 = New System.Windows.Forms.Label()