Name angepasst, akutelle VeragProgAllgemein eingefügt.

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" />

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(),  _

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" />

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>
+    <StartupObject>DOKU.My.MyApplication</StartupObject>
-    <RootNamespace>Dokumentation</RootNamespace>
+    <RootNamespace>DOKU</RootNamespace>
-    <AssemblyName>Dokumentation</AssemblyName>
+    <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>

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"

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"

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)

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)
+        Try
-        VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = ds.Tables(0).Rows(0).Item("mit_id")
+            Dim ds As New DataSet
-        VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
+            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
+            main.picAVISOMessenger.Enabled = MessageActivated
-            If right.Standort = "DokuAdmin" And right.Zugriff = "Y" Then
+            main.Show()
-                Class1.LoggedOnUserisAdmin = True
+        Catch ex As Exception
-                main.BenutzerToolStripMenuItem.Enabled = True
+            MsgBox("Login.vb Showmain: " & ex.Message)
-                main.NetzwerkeToolStripMenuItem.Enabled = True
+        End Try
-                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()
 
     End Function
 

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"

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

Dokumentation/My 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()>  _

Dokumentation/My 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: AssemblyProduct("DOKU")>
-<Assembly: AssemblyCopyright("Copyright ©  2021")>
+<Assembly: AssemblyCopyright("Copyright ©  2026")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>

Dokumentation/My 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

Dokumentation/My 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>

Dokumentation/My 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

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)

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"

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)

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)

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()

Dokumentation_Updater/My Project/Settings.Designer.vb

@@ -63,7 +63,7 @@ Namespace My
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
     Friend Module MySettingsProperty
 
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>
         Friend ReadOnly Property Settings() As Global.Dokumentation_Updater.My.MySettings
             Get
                 Return Global.Dokumentation_Updater.My.MySettings.Default