update 26.7.22

CryptoEditor/Form1.Designer.vb

@@ -39,10 +39,11 @@ Partial Class Form1
         '
         'MenuStrip1
         '
+        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiiToolStripMenuItem, Me.VerschlpsselteDateiToolStripMenuItem, Me.UnverschlüsselteDateiToolStripMenuItem})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(800, 24)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1067, 30)
         Me.MenuStrip1.TabIndex = 0
         Me.MenuStrip1.Text = "MenuStrip1"
         '
@@ -50,51 +51,51 @@ Partial Class Form1
         '
         Me.DateiiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
         Me.DateiiToolStripMenuItem.Name = "DateiiToolStripMenuItem"
-        Me.DateiiToolStripMenuItem.Size = New System.Drawing.Size(49, 20)
-        Me.DateiiToolStripMenuItem.Text = "&Dateii"
+        Me.DateiiToolStripMenuItem.Size = New System.Drawing.Size(59, 26)
+        Me.DateiiToolStripMenuItem.Text = "&Datei"
         '
         'BeendenToolStripMenuItem
         '
         Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
-        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(150, 26)
         Me.BeendenToolStripMenuItem.Text = "Beenden"
         '
         'VerschlpsselteDateiToolStripMenuItem
         '
         Me.VerschlpsselteDateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LadenToolStripMenuItem, Me.SpeichernToolStripMenuItem})
         Me.VerschlpsselteDateiToolStripMenuItem.Name = "VerschlpsselteDateiToolStripMenuItem"
-        Me.VerschlpsselteDateiToolStripMenuItem.Size = New System.Drawing.Size(122, 20)
-        Me.VerschlpsselteDateiToolStripMenuItem.Text = "Verschlpsselte Datei"
+        Me.VerschlpsselteDateiToolStripMenuItem.Size = New System.Drawing.Size(154, 26)
+        Me.VerschlpsselteDateiToolStripMenuItem.Text = "Verschlüsselte Datei"
         '
         'LadenToolStripMenuItem
         '
         Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
-        Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(224, 26)
         Me.LadenToolStripMenuItem.Text = "Laden"
         '
         'SpeichernToolStripMenuItem
         '
         Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
-        Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(224, 26)
         Me.SpeichernToolStripMenuItem.Text = "Speichern"
         '
         'UnverschlüsselteDateiToolStripMenuItem
         '
         Me.UnverschlüsselteDateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LadenToolStripMenuItem1, Me.SpeichernToolStripMenuItem1})
         Me.UnverschlüsselteDateiToolStripMenuItem.Name = "UnverschlüsselteDateiToolStripMenuItem"
-        Me.UnverschlüsselteDateiToolStripMenuItem.Size = New System.Drawing.Size(137, 20)
+        Me.UnverschlüsselteDateiToolStripMenuItem.Size = New System.Drawing.Size(171, 26)
         Me.UnverschlüsselteDateiToolStripMenuItem.Text = "Unverschlüsselte Datei"
         '
         'LadenToolStripMenuItem1
         '
         Me.LadenToolStripMenuItem1.Name = "LadenToolStripMenuItem1"
-        Me.LadenToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+        Me.LadenToolStripMenuItem1.Size = New System.Drawing.Size(157, 26)
         Me.LadenToolStripMenuItem1.Text = "Laden"
         '
         'SpeichernToolStripMenuItem1
         '
         Me.SpeichernToolStripMenuItem1.Name = "SpeichernToolStripMenuItem1"
-        Me.SpeichernToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+        Me.SpeichernToolStripMenuItem1.Size = New System.Drawing.Size(157, 26)
         Me.SpeichernToolStripMenuItem1.Text = "Speichern"
         '
         'OpenFileDialog1
@@ -105,20 +106,22 @@ Partial Class Form1
         '
         Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBox1.Location = New System.Drawing.Point(0, 24)
+        Me.TextBox1.Location = New System.Drawing.Point(0, 30)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.TextBox1.Multiline = True
         Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(800, 426)
+        Me.TextBox1.Size = New System.Drawing.Size(1067, 524)
         Me.TextBox1.TabIndex = 1
         '
         'Form1
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.ClientSize = New System.Drawing.Size(1067, 554)
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.MenuStrip1)
         Me.MainMenuStrip = Me.MenuStrip1
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Name = "Form1"
         Me.Text = "Form1"
         Me.MenuStrip1.ResumeLayout(False)

CryptoEditor/obj/Debug/_IsIncrementalBuild

@@ -0,0 +1 @@
+obj\Debug\\_IsIncrementalBuild

CryptoTest/obj/CryptoTest.csproj.nuget.dgspec.json

@@ -14,10 +14,12 @@
         "outputPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\obj\\",
         "projectStyle": "PackageReference",
         "fallbackFolders": [
+          "C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages",
           "C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet\\"
         ],
         "configFilePaths": [
           "C:\\Users\\Steafn Hutter lokal\\AppData\\Roaming\\NuGet\\NuGet.Config",
+          "C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.FallbackLocation.config",
           "C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config",
           "C:\\Program Files (x86)\\NuGet\\Config\\Xamarin.Offline.config"
         ],
@@ -28,8 +30,8 @@
           "C:\\Program Files (x86)\\FastReports\\FastReport.Net\\Nugets": {},
           "C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
           "C:\\Program Files\\dotnet\\library-packs": {},
-          "http://nuget.grapecity.com/nuget": {},
-          "https://api.nuget.org/v3/index.json": {}
+          "E:\\Software-Projekte\\_NugetPackages": {},
+          "http://nuget.grapecity.com/nuget": {}
         },
         "frameworks": {
           "netcoreapp3.1": {
@@ -61,7 +63,7 @@
               "privateAssets": "all"
             }
           },
-          "runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\5.0.400\\RuntimeIdentifierGraph.json"
+          "runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\6.0.300\\RuntimeIdentifierGraph.json"
         }
       }
     }

CryptoTest/obj/CryptoTest.csproj.nuget.g.props

@@ -5,15 +5,13 @@
     <RestoreTool Condition=" '$(RestoreTool)' == '' ">NuGet</RestoreTool>
     <ProjectAssetsFile Condition=" '$(ProjectAssetsFile)' == '' ">$(MSBuildThisFileDirectory)project.assets.json</ProjectAssetsFile>
     <NuGetPackageRoot Condition=" '$(NuGetPackageRoot)' == '' ">$(UserProfile)\.nuget\packages\</NuGetPackageRoot>
-    <NuGetPackageFolders Condition=" '$(NuGetPackageFolders)' == '' ">C:\Users\Steafn Hutter lokal\.nuget\packages\;C:\Program Files (x86)\Microsoft\Xamarin\NuGet\</NuGetPackageFolders>
+    <NuGetPackageFolders Condition=" '$(NuGetPackageFolders)' == '' ">C:\Users\Steafn Hutter lokal\.nuget\packages\;C:\Program Files (x86)\Microsoft Visual Studio\Shared\NuGetPackages;C:\Program Files (x86)\Microsoft\Xamarin\NuGet\</NuGetPackageFolders>
     <NuGetProjectStyle Condition=" '$(NuGetProjectStyle)' == '' ">PackageReference</NuGetProjectStyle>
-    <NuGetToolVersion Condition=" '$(NuGetToolVersion)' == '' ">5.11.0</NuGetToolVersion>
+    <NuGetToolVersion Condition=" '$(NuGetToolVersion)' == '' ">6.2.0</NuGetToolVersion>
   </PropertyGroup>
   <ItemGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
     <SourceRoot Include="C:\Users\Steafn Hutter lokal\.nuget\packages\" />
+    <SourceRoot Include="C:\Program Files (x86)\Microsoft Visual Studio\Shared\NuGetPackages\" />
     <SourceRoot Include="C:\Program Files (x86)\Microsoft\Xamarin\NuGet\" />
   </ItemGroup>
-  <PropertyGroup>
-    <MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
-  </PropertyGroup>
 </Project>

CryptoTest/obj/CryptoTest.csproj.nuget.g.targets

@@ -1,6 +1,2 @@
 <?xml version="1.0" encoding="utf-8" standalone="no"?>
-<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <PropertyGroup>
-    <MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
-  </PropertyGroup>
-</Project>
+<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" />

CryptoTest/obj/project.assets.json

@@ -9,6 +9,7 @@
   },
   "packageFolders": {
     "C:\\Users\\Steafn Hutter lokal\\.nuget\\packages\\": {},
+    "C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages": {},
     "C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet\\": {}
   },
   "project": {
@@ -21,10 +22,12 @@
       "outputPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\obj\\",
       "projectStyle": "PackageReference",
       "fallbackFolders": [
+        "C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages",
         "C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet\\"
       ],
       "configFilePaths": [
         "C:\\Users\\Steafn Hutter lokal\\AppData\\Roaming\\NuGet\\NuGet.Config",
+        "C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.FallbackLocation.config",
         "C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config",
         "C:\\Program Files (x86)\\NuGet\\Config\\Xamarin.Offline.config"
       ],
@@ -35,8 +38,8 @@
         "C:\\Program Files (x86)\\FastReports\\FastReport.Net\\Nugets": {},
         "C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
         "C:\\Program Files\\dotnet\\library-packs": {},
-        "http://nuget.grapecity.com/nuget": {},
-        "https://api.nuget.org/v3/index.json": {}
+        "E:\\Software-Projekte\\_NugetPackages": {},
+        "http://nuget.grapecity.com/nuget": {}
       },
       "frameworks": {
         "netcoreapp3.1": {
@@ -68,7 +71,7 @@
             "privateAssets": "all"
           }
         },
-        "runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\5.0.400\\RuntimeIdentifierGraph.json"
+        "runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\6.0.300\\RuntimeIdentifierGraph.json"
       }
     }
   }

CryptoTest/obj/project.nuget.cache

@@ -1,6 +1,6 @@
 {
   "version": 2,
-  "dgSpecHash": "5lKLlOD+6qMd+AiatDvYNY7hRK2l0HpmF7DFerbhpj+Si30ZlxMLXbQWIfwjNrAw7oBHHUlZ/yfQbdMlwcfDNw==",
+  "dgSpecHash": "u1Qm23obG+kXJscuNlrlbRAdA4gkHsaSnS5+8eb9Os4xKyi3s8cSJN1hiBmAlxL2qtTjqoH2AQzR50VbycgTdA==",
   "success": true,
   "projectFilePath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
   "expectedPackageFiles": [],

DPM2016/Behandlung/Behandlung.Designer.vb

@@ -32,7 +32,6 @@ Partial Class Behandlung
         Me.treebehandlungen = New DevComponents.AdvTree.AdvTree()
         Me.ctxmenubehandlung = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.NeueBehandlungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
         Me.BehandlungabschliessenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.AbschlussMitRecallAnzeigeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AbshlussOhneRecallAnzeigeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -41,6 +40,7 @@ Partial Class Behandlung
         Me.AbschlussUndSofortrechungAlsPDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
         Me.BehandlungZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.BehandlungKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
@@ -59,6 +59,10 @@ Partial Class Behandlung
         Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
         Me.RechungKVVorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.RechnungKVEntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ErsteMahnungDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ZweiteMahnungDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.LetzteMahnungDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
         Me.Node2 = New DevComponents.AdvTree.Node()
         Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
@@ -73,17 +77,69 @@ Partial Class Behandlung
         Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
         Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
         Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.Leistungen1 = New DPM2016.Leistungen()
         Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
         Me.tsbtnbehandlungdelete = New System.Windows.Forms.ToolStrip()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ctxMenuAuftragsamanagement = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.tsamnew = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.OfferteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OffertPDF = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PDFPerMailToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VorschauToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EntwurfToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AuftragsbestätigungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PDFPerMailToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DruckenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VorschauToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EntwurfToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.LieferscheinToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PDFToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PDFPerMailToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DruckenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VorschauToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EntwurfToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem15 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem16 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripMenuItem22 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem23 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem24 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem25 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem26 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem27 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem18 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
+        Me.tsamdelete = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripMenuItem29 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem30 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
+        Me.tsamerstemahnung = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsamzweitemahnung = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsamdrittemahnung = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
+        Me.Leistungen1 = New DPM2016.Leistungen()
         Me.tsbtndelete.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -96,6 +152,7 @@ Partial Class Behandlung
         Me.Panel1.SuspendLayout()
         Me.tsbtnbehandlungdelete.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
+        Me.ctxMenuAuftragsamanagement.SuspendLayout()
         Me.SuspendLayout()
         '
         'tsbtndelete
@@ -104,7 +161,7 @@ Partial Class Behandlung
         Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2})
         Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
         Me.tsbtndelete.Name = "tsbtndelete"
-        Me.tsbtndelete.Size = New System.Drawing.Size(1285, 27)
+        Me.tsbtndelete.Size = New System.Drawing.Size(1713, 27)
         Me.tsbtndelete.TabIndex = 1
         Me.tsbtndelete.Text = "ToolStrip1"
         '
@@ -114,7 +171,7 @@ Partial Class Behandlung
         Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image)
         Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung"
-        Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 24)
         Me.tsbtnnewbehandlung.Text = "Neue Behandlung"
         '
         'tsbtndeletebehandlung
@@ -123,7 +180,7 @@ Partial Class Behandlung
         Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image)
         Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung"
-        Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(24, 24)
+        Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 24)
         Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
         '
         'ToolStripButton2
@@ -132,7 +189,7 @@ Partial Class Behandlung
         Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
         Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton2.Name = "ToolStripButton2"
-        Me.ToolStripButton2.Size = New System.Drawing.Size(24, 24)
+        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton2.Text = "Aktualisieren"
         '
         'GroupBox1
@@ -140,8 +197,10 @@ Partial Class Behandlung
         Me.GroupBox1.Controls.Add(Me.treebehandlungen)
         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
         Me.GroupBox1.Location = New System.Drawing.Point(0, 27)
+        Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(220, 811)
+        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
+        Me.GroupBox1.Size = New System.Drawing.Size(273, 1004)
         Me.GroupBox1.TabIndex = 2
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Behandlungen"
@@ -149,7 +208,6 @@ Partial Class Behandlung
         'treebehandlungen
         '
         Me.treebehandlungen.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
-        Me.treebehandlungen.AllowDrop = True
         Me.treebehandlungen.AllowExternalDrop = False
         Me.treebehandlungen.AllowUserToResizeColumns = False
         Me.treebehandlungen.BackColor = System.Drawing.SystemColors.Window
@@ -164,13 +222,14 @@ Partial Class Behandlung
         Me.treebehandlungen.DragDropNodeCopyEnabled = False
         Me.treebehandlungen.ImageList = Me.ImageList1
         Me.treebehandlungen.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
-        Me.treebehandlungen.Location = New System.Drawing.Point(3, 16)
+        Me.treebehandlungen.Location = New System.Drawing.Point(4, 19)
+        Me.treebehandlungen.Margin = New System.Windows.Forms.Padding(4)
         Me.treebehandlungen.Name = "treebehandlungen"
         Me.treebehandlungen.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node2})
         Me.treebehandlungen.NodesConnector = Me.NodeConnector1
         Me.treebehandlungen.NodeStyle = Me.ElementStyle1
         Me.treebehandlungen.PathSeparator = ";"
-        Me.treebehandlungen.Size = New System.Drawing.Size(214, 792)
+        Me.treebehandlungen.Size = New System.Drawing.Size(265, 981)
         Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
         Me.treebehandlungen.TabIndex = 0
         Me.treebehandlungen.Text = "AdvTree1"
@@ -178,175 +237,198 @@ Partial Class Behandlung
         'ctxmenubehandlung
         '
         Me.ctxmenubehandlung.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ctxmenubehandlung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem1, Me.ToolStripMenuItem2, Me.BehandlungabschliessenToolStripMenuItem1, Me.BehandlungZurücksetzenToolStripMenuItem, Me.BehandlungKopierenToolStripMenuItem, Me.ToolStripMenuItem4, Me.SofortRechnungDruckenToolStripMenuItem, Me.KopieErstellenToolStripMenuItem, Me.ToolStripMenuItem3, Me.BehandlungLöschenToolStripMenuItem1, Me.ToolStripMenuItem5, Me.RechungKVVorschauToolStripMenuItem, Me.RechnungKVEntwurfToolStripMenuItem})
+        Me.ctxmenubehandlung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem1, Me.BehandlungabschliessenToolStripMenuItem1, Me.ToolStripMenuItem2, Me.BehandlungZurücksetzenToolStripMenuItem, Me.BehandlungKopierenToolStripMenuItem, Me.ToolStripMenuItem4, Me.SofortRechnungDruckenToolStripMenuItem, Me.KopieErstellenToolStripMenuItem, Me.ToolStripMenuItem3, Me.BehandlungLöschenToolStripMenuItem1, Me.ToolStripMenuItem5, Me.RechungKVVorschauToolStripMenuItem, Me.RechnungKVEntwurfToolStripMenuItem, Me.ToolStripMenuItem8, Me.ErsteMahnungDruckenToolStripMenuItem, Me.ZweiteMahnungDruckenToolStripMenuItem, Me.LetzteMahnungDruckenToolStripMenuItem})
         Me.ctxmenubehandlung.Name = "ContextMenuStrip1"
-        Me.ctxmenubehandlung.Size = New System.Drawing.Size(212, 226)
+        Me.ctxmenubehandlung.Size = New System.Drawing.Size(247, 322)
         '
         'NeueBehandlungToolStripMenuItem1
         '
         Me.NeueBehandlungToolStripMenuItem1.Name = "NeueBehandlungToolStripMenuItem1"
-        Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(211, 22)
+        Me.NeueBehandlungToolStripMenuItem1.Size = New System.Drawing.Size(246, 24)
         Me.NeueBehandlungToolStripMenuItem1.Text = "&Neue Behandlung"
         '
-        'ToolStripMenuItem2
-        '
-        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
-        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(208, 6)
-        '
         'BehandlungabschliessenToolStripMenuItem1
         '
         Me.BehandlungabschliessenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbschlussMitRecallAnzeigeToolStripMenuItem, Me.AbshlussOhneRecallAnzeigeToolStripMenuItem, Me.ToolStripMenuItem7, Me.AbschlussUndSofortrechnungToolStripMenuItem, Me.AbschlussUndSofortrechungAlsPDFToolStripMenuItem, Me.AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem, Me.AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem})
         Me.BehandlungabschliessenToolStripMenuItem1.Name = "BehandlungabschliessenToolStripMenuItem1"
-        Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(211, 22)
+        Me.BehandlungabschliessenToolStripMenuItem1.Size = New System.Drawing.Size(246, 24)
         Me.BehandlungabschliessenToolStripMenuItem1.Text = "Behandlung &abschliessen"
         '
         'AbschlussMitRecallAnzeigeToolStripMenuItem
         '
         Me.AbschlussMitRecallAnzeigeToolStripMenuItem.Name = "AbschlussMitRecallAnzeigeToolStripMenuItem"
-        Me.AbschlussMitRecallAnzeigeToolStripMenuItem.Size = New System.Drawing.Size(328, 22)
+        Me.AbschlussMitRecallAnzeigeToolStripMenuItem.Size = New System.Drawing.Size(405, 26)
         Me.AbschlussMitRecallAnzeigeToolStripMenuItem.Text = "Abschluss mit Recall-Anzeige"
         '
         'AbshlussOhneRecallAnzeigeToolStripMenuItem
         '
         Me.AbshlussOhneRecallAnzeigeToolStripMenuItem.Name = "AbshlussOhneRecallAnzeigeToolStripMenuItem"
-        Me.AbshlussOhneRecallAnzeigeToolStripMenuItem.Size = New System.Drawing.Size(328, 22)
+        Me.AbshlussOhneRecallAnzeigeToolStripMenuItem.Size = New System.Drawing.Size(405, 26)
         Me.AbshlussOhneRecallAnzeigeToolStripMenuItem.Text = "Abschluss ohne Recall-Anzeige"
         '
         'ToolStripMenuItem7
         '
         Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
-        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(325, 6)
+        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(402, 6)
         '
         'AbschlussUndSofortrechnungToolStripMenuItem
         '
         Me.AbschlussUndSofortrechnungToolStripMenuItem.Name = "AbschlussUndSofortrechnungToolStripMenuItem"
-        Me.AbschlussUndSofortrechnungToolStripMenuItem.Size = New System.Drawing.Size(328, 22)
+        Me.AbschlussUndSofortrechnungToolStripMenuItem.Size = New System.Drawing.Size(405, 26)
         Me.AbschlussUndSofortrechnungToolStripMenuItem.Text = "Abschluss und Sofortrechnung "
         '
         'AbschlussUndSofortrechungAlsPDFToolStripMenuItem
         '
         Me.AbschlussUndSofortrechungAlsPDFToolStripMenuItem.Name = "AbschlussUndSofortrechungAlsPDFToolStripMenuItem"
-        Me.AbschlussUndSofortrechungAlsPDFToolStripMenuItem.Size = New System.Drawing.Size(328, 22)
+        Me.AbschlussUndSofortrechungAlsPDFToolStripMenuItem.Size = New System.Drawing.Size(405, 26)
         Me.AbschlussUndSofortrechungAlsPDFToolStripMenuItem.Text = "Abschluss und Sofortrechung als PDF"
         '
         'AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem
         '
         Me.AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem.Name = "AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem"
-        Me.AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem.Size = New System.Drawing.Size(328, 22)
+        Me.AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem.Size = New System.Drawing.Size(405, 26)
         Me.AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem.Text = "Abschluss und Sofortrechnung als Outlook-Mail"
         '
         'AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem
         '
         Me.AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem.Name = "AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem"
-        Me.AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem.Size = New System.Drawing.Size(328, 22)
+        Me.AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem.Size = New System.Drawing.Size(405, 26)
         Me.AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem.Text = "Abschluss und verbuchen, ohne RG/Quittung"
         '
+        'ToolStripMenuItem2
+        '
+        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(243, 6)
+        '
         'BehandlungZurücksetzenToolStripMenuItem
         '
         Me.BehandlungZurücksetzenToolStripMenuItem.Name = "BehandlungZurücksetzenToolStripMenuItem"
-        Me.BehandlungZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
+        Me.BehandlungZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
         Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Behandlung zurücksetzen"
         '
         'BehandlungKopierenToolStripMenuItem
         '
         Me.BehandlungKopierenToolStripMenuItem.Name = "BehandlungKopierenToolStripMenuItem"
-        Me.BehandlungKopierenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
+        Me.BehandlungKopierenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
         Me.BehandlungKopierenToolStripMenuItem.Text = "Behandlung kopieren"
         '
         'ToolStripMenuItem4
         '
         Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
-        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(208, 6)
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(243, 6)
         '
         'SofortRechnungDruckenToolStripMenuItem
         '
         Me.SofortRechnungDruckenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorschauToolStripMenuItem, Me.EntwurfToolStripMenuItem, Me.ToolStripMenuItem6, Me.AlsPdfToolStripMenuItem1, Me.AlsMailToolStripMenuItem})
         Me.SofortRechnungDruckenToolStripMenuItem.Name = "SofortRechnungDruckenToolStripMenuItem"
-        Me.SofortRechnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
+        Me.SofortRechnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
         Me.SofortRechnungDruckenToolStripMenuItem.Text = "Sofort-Rechnung drucken"
         '
         'VorschauToolStripMenuItem
         '
         Me.VorschauToolStripMenuItem.Name = "VorschauToolStripMenuItem"
-        Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(252, 26)
         Me.VorschauToolStripMenuItem.Text = "Vorschau"
         '
         'EntwurfToolStripMenuItem
         '
         Me.EntwurfToolStripMenuItem.Name = "EntwurfToolStripMenuItem"
-        Me.EntwurfToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.EntwurfToolStripMenuItem.Size = New System.Drawing.Size(252, 26)
         Me.EntwurfToolStripMenuItem.Text = "Entwurf"
         '
         'ToolStripMenuItem6
         '
         Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
-        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(249, 6)
         '
         'AlsPdfToolStripMenuItem1
         '
         Me.AlsPdfToolStripMenuItem1.Name = "AlsPdfToolStripMenuItem1"
-        Me.AlsPdfToolStripMenuItem1.Size = New System.Drawing.Size(202, 22)
+        Me.AlsPdfToolStripMenuItem1.Size = New System.Drawing.Size(252, 26)
         Me.AlsPdfToolStripMenuItem1.Text = "als PDF"
         '
         'AlsMailToolStripMenuItem
         '
         Me.AlsMailToolStripMenuItem.Name = "AlsMailToolStripMenuItem"
-        Me.AlsMailToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.AlsMailToolStripMenuItem.Size = New System.Drawing.Size(252, 26)
         Me.AlsMailToolStripMenuItem.Text = "als PDF an Outlook-Mail"
         '
         'KopieErstellenToolStripMenuItem
         '
         Me.KopieErstellenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlsPDFToolStripMenuItem, Me.ÜberDruckerToolStripMenuItem, Me.AlsPDFPerMailToolStripMenuItem})
         Me.KopieErstellenToolStripMenuItem.Name = "KopieErstellenToolStripMenuItem"
-        Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
+        Me.KopieErstellenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
         Me.KopieErstellenToolStripMenuItem.Text = "Rechnungskopie erstellen"
         '
         'AlsPDFToolStripMenuItem
         '
         Me.AlsPDFToolStripMenuItem.Name = "AlsPDFToolStripMenuItem"
-        Me.AlsPDFToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.AlsPDFToolStripMenuItem.Size = New System.Drawing.Size(258, 26)
         Me.AlsPDFToolStripMenuItem.Text = "als PDF"
         '
         'ÜberDruckerToolStripMenuItem
         '
         Me.ÜberDruckerToolStripMenuItem.Name = "ÜberDruckerToolStripMenuItem"
-        Me.ÜberDruckerToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.ÜberDruckerToolStripMenuItem.Size = New System.Drawing.Size(258, 26)
         Me.ÜberDruckerToolStripMenuItem.Text = "über Drucker"
         '
         'AlsPDFPerMailToolStripMenuItem
         '
         Me.AlsPDFPerMailToolStripMenuItem.Name = "AlsPDFPerMailToolStripMenuItem"
-        Me.AlsPDFPerMailToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
+        Me.AlsPDFPerMailToolStripMenuItem.Size = New System.Drawing.Size(258, 26)
         Me.AlsPDFPerMailToolStripMenuItem.Text = "als PDF per Outlook-Mail"
         '
         'ToolStripMenuItem3
         '
         Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
-        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(208, 6)
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(243, 6)
         '
         'BehandlungLöschenToolStripMenuItem1
         '
         Me.BehandlungLöschenToolStripMenuItem1.Name = "BehandlungLöschenToolStripMenuItem1"
-        Me.BehandlungLöschenToolStripMenuItem1.Size = New System.Drawing.Size(211, 22)
+        Me.BehandlungLöschenToolStripMenuItem1.Size = New System.Drawing.Size(246, 24)
         Me.BehandlungLöschenToolStripMenuItem1.Text = "&Behandlung löschen"
         '
         'ToolStripMenuItem5
         '
         Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
-        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(208, 6)
+        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(243, 6)
         '
         'RechungKVVorschauToolStripMenuItem
         '
         Me.RechungKVVorschauToolStripMenuItem.Name = "RechungKVVorschauToolStripMenuItem"
-        Me.RechungKVVorschauToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
+        Me.RechungKVVorschauToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
         Me.RechungKVVorschauToolStripMenuItem.Text = "Rechung/KV Vorschau"
         '
         'RechnungKVEntwurfToolStripMenuItem
         '
         Me.RechnungKVEntwurfToolStripMenuItem.Name = "RechnungKVEntwurfToolStripMenuItem"
-        Me.RechnungKVEntwurfToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
+        Me.RechnungKVEntwurfToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
         Me.RechnungKVEntwurfToolStripMenuItem.Text = "Rechnung/KV Entwurf"
         '
+        'ToolStripMenuItem8
+        '
+        Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
+        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(243, 6)
+        '
+        'ErsteMahnungDruckenToolStripMenuItem
+        '
+        Me.ErsteMahnungDruckenToolStripMenuItem.Name = "ErsteMahnungDruckenToolStripMenuItem"
+        Me.ErsteMahnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
+        Me.ErsteMahnungDruckenToolStripMenuItem.Text = "Erste Mahnung drucken"
+        '
+        'ZweiteMahnungDruckenToolStripMenuItem
+        '
+        Me.ZweiteMahnungDruckenToolStripMenuItem.Name = "ZweiteMahnungDruckenToolStripMenuItem"
+        Me.ZweiteMahnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
+        Me.ZweiteMahnungDruckenToolStripMenuItem.Text = "Zweite Mahnung drucken"
+        '
+        'LetzteMahnungDruckenToolStripMenuItem
+        '
+        Me.LetzteMahnungDruckenToolStripMenuItem.Name = "LetzteMahnungDruckenToolStripMenuItem"
+        Me.LetzteMahnungDruckenToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
+        Me.LetzteMahnungDruckenToolStripMenuItem.Text = "Letzte Mahnung drucken"
+        '
         'ImageList1
         '
         Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
@@ -374,42 +456,42 @@ Partial Class Behandlung
         'NeueBehandlungToolStripMenuItem
         '
         Me.NeueBehandlungToolStripMenuItem.Name = "NeueBehandlungToolStripMenuItem"
-        Me.NeueBehandlungToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
+        Me.NeueBehandlungToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
         Me.NeueBehandlungToolStripMenuItem.Text = "&Neue Behandlung"
         '
         'BehandlungAbschliessenToolStripMenuItem
         '
         Me.BehandlungAbschliessenToolStripMenuItem.Name = "BehandlungAbschliessenToolStripMenuItem"
-        Me.BehandlungAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
+        Me.BehandlungAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
         Me.BehandlungAbschliessenToolStripMenuItem.Text = "&Behandlung abschliessen"
         '
         'BehandlungLöschenToolStripMenuItem
         '
         Me.BehandlungLöschenToolStripMenuItem.Name = "BehandlungLöschenToolStripMenuItem"
-        Me.BehandlungLöschenToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
+        Me.BehandlungLöschenToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
         Me.BehandlungLöschenToolStripMenuItem.Text = "Behandlung &löschen"
         '
         'ToolStripMenuItem1
         '
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(240, 6)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(285, 6)
         '
         'NeuerKostenvoranschlagToolStripMenuItem
         '
         Me.NeuerKostenvoranschlagToolStripMenuItem.Name = "NeuerKostenvoranschlagToolStripMenuItem"
-        Me.NeuerKostenvoranschlagToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
+        Me.NeuerKostenvoranschlagToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
         Me.NeuerKostenvoranschlagToolStripMenuItem.Text = "Neuer &Kostenvoranschlag"
         '
         'KostenvoranschlagAbschliessenToolStripMenuItem
         '
         Me.KostenvoranschlagAbschliessenToolStripMenuItem.Name = "KostenvoranschlagAbschliessenToolStripMenuItem"
-        Me.KostenvoranschlagAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
+        Me.KostenvoranschlagAbschliessenToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
         Me.KostenvoranschlagAbschliessenToolStripMenuItem.Text = "Kostenvoranschlag abschliessen"
         '
         'KostenvoranschlagLöschenToolStripMenuItem
         '
         Me.KostenvoranschlagLöschenToolStripMenuItem.Name = "KostenvoranschlagLöschenToolStripMenuItem"
-        Me.KostenvoranschlagLöschenToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
+        Me.KostenvoranschlagLöschenToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
         Me.KostenvoranschlagLöschenToolStripMenuItem.Text = "Kostenvoranschlag löschen"
         '
         'SuperTabControl1
@@ -431,12 +513,13 @@ Partial Class Behandlung
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
         Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControl1.Location = New System.Drawing.Point(220, 27)
+        Me.SuperTabControl1.Location = New System.Drawing.Point(273, 27)
+        Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControl1.Name = "SuperTabControl1"
         Me.SuperTabControl1.ReorderTabsEnabled = True
         Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
         Me.SuperTabControl1.SelectedTabIndex = 0
-        Me.SuperTabControl1.Size = New System.Drawing.Size(1065, 811)
+        Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1004)
         Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.SuperTabControl1.TabIndex = 9
         Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung})
@@ -446,9 +529,10 @@ Partial Class Behandlung
         '
         Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
         Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
-        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1065, 786)
+        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 976)
         Me.SuperTabControlPanel1.TabIndex = 1
         Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
         '
@@ -456,22 +540,11 @@ Partial Class Behandlung
         '
         Me.Panel2.Controls.Add(Me.Behandungdetail1)
         Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1062, 788)
+        Me.Panel2.Size = New System.Drawing.Size(1416, 970)
         Me.Panel2.TabIndex = 9
         '
-        'Behandungdetail1
-        '
-        Me.Behandungdetail1.Behandlungsnr = 0
-        Me.Behandungdetail1.Behandlungsstatus = 0
-        Me.Behandungdetail1.HasChanges = False
-        Me.Behandungdetail1.Location = New System.Drawing.Point(3, 6)
-        Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(4)
-        Me.Behandungdetail1.Name = "Behandungdetail1"
-        Me.Behandungdetail1.Patientnr = 0
-        Me.Behandungdetail1.Size = New System.Drawing.Size(1059, 779)
-        Me.Behandungdetail1.TabIndex = 0
-        '
         'STBehandlung
         '
         Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
@@ -483,9 +556,10 @@ Partial Class Behandlung
         '
         Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
         Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 23)
+        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel2.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
-        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1065, 790)
+        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1255, 976)
         Me.SuperTabControlPanel2.TabIndex = 0
         Me.SuperTabControlPanel2.TabItem = Me.STLeistung
         '
@@ -494,24 +568,11 @@ Partial Class Behandlung
         Me.Panel1.Controls.Add(Me.Leistungen1)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Margin = New System.Windows.Forms.Padding(4)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(1065, 790)
+        Me.Panel1.Size = New System.Drawing.Size(1255, 976)
         Me.Panel1.TabIndex = 1
         '
-        'Leistungen1
-        '
-        Me.Leistungen1.behandler = 0
-        Me.Leistungen1.Behandlungnr = 0
-        Me.Leistungen1.Behandlungsstatus = 0
-        Me.Leistungen1.Dentotar = False
-        Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Leistungen1.Frankenwert = 0R
-        Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
-        Me.Leistungen1.Margin = New System.Windows.Forms.Padding(4)
-        Me.Leistungen1.Name = "Leistungen1"
-        Me.Leistungen1.Size = New System.Drawing.Size(1065, 790)
-        Me.Leistungen1.TabIndex = 0
-        '
         'STLeistung
         '
         Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
@@ -523,8 +584,9 @@ Partial Class Behandlung
         '
         Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
         Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
+        Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
-        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1065, 811)
+        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1004)
         Me.SuperTabControlPanel3.TabIndex = 0
         '
         'tsbtnnew
@@ -533,7 +595,7 @@ Partial Class Behandlung
         Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
         Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnnew.Name = "tsbtnnew"
-        Me.tsbtnnew.Size = New System.Drawing.Size(24, 22)
+        Me.tsbtnnew.Size = New System.Drawing.Size(29, 22)
         Me.tsbtnnew.Text = "Neue Behandlung"
         '
         'ToolStripButton1
@@ -542,7 +604,7 @@ Partial Class Behandlung
         Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
         Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton1.Name = "ToolStripButton1"
-        Me.ToolStripButton1.Size = New System.Drawing.Size(24, 22)
+        Me.ToolStripButton1.Size = New System.Drawing.Size(29, 22)
         Me.ToolStripButton1.Text = "ToolStripButton1"
         '
         'tsbtnbehandlungdelete
@@ -560,17 +622,358 @@ Partial Class Behandlung
         Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBehandlungToolStripMenuItem, Me.BehandlungAbschliessenToolStripMenuItem, Me.BehandlungLöschenToolStripMenuItem, Me.ToolStripMenuItem1, Me.NeuerKostenvoranschlagToolStripMenuItem, Me.KostenvoranschlagAbschliessenToolStripMenuItem, Me.KostenvoranschlagLöschenToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(244, 142)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(289, 154)
+        '
+        'ctxMenuAuftragsamanagement
+        '
+        Me.ctxMenuAuftragsamanagement.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ctxMenuAuftragsamanagement.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsamnew, Me.ToolStripSeparator1, Me.OfferteToolStripMenuItem, Me.AuftragsbestätigungToolStripMenuItem, Me.LieferscheinToolStripMenuItem, Me.ToolStripMenuItem10, Me.ToolStripSeparator3, Me.ToolStripMenuItem19, Me.ToolStripMenuItem24, Me.ToolStripMenuItem9, Me.ToolStripMenuItem17, Me.ToolStripMenuItem18, Me.ToolStripSeparator5, Me.tsamdelete, Me.ToolStripSeparator6, Me.ToolStripMenuItem29, Me.ToolStripMenuItem30, Me.ToolStripSeparator7, Me.tsamerstemahnung, Me.tsamzweitemahnung, Me.tsamdrittemahnung})
+        Me.ctxMenuAuftragsamanagement.Name = "ContextMenuStrip1"
+        Me.ctxMenuAuftragsamanagement.Size = New System.Drawing.Size(247, 428)
+        '
+        'tsamnew
+        '
+        Me.tsamnew.Name = "tsamnew"
+        Me.tsamnew.Size = New System.Drawing.Size(246, 24)
+        Me.tsamnew.Text = "&Neuer Auftrag"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(243, 6)
+        '
+        'OfferteToolStripMenuItem
+        '
+        Me.OfferteToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OffertPDF, Me.PDFPerMailToolStripMenuItem, Me.DruckenToolStripMenuItem, Me.VorschauToolStripMenuItem1, Me.EntwurfToolStripMenuItem1})
+        Me.OfferteToolStripMenuItem.Name = "OfferteToolStripMenuItem"
+        Me.OfferteToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
+        Me.OfferteToolStripMenuItem.Text = "Offerte"
+        '
+        'OffertPDF
+        '
+        Me.OffertPDF.Name = "OffertPDF"
+        Me.OffertPDF.Size = New System.Drawing.Size(177, 26)
+        Me.OffertPDF.Text = "PDF"
+        '
+        'PDFPerMailToolStripMenuItem
+        '
+        Me.PDFPerMailToolStripMenuItem.Name = "PDFPerMailToolStripMenuItem"
+        Me.PDFPerMailToolStripMenuItem.Size = New System.Drawing.Size(177, 26)
+        Me.PDFPerMailToolStripMenuItem.Text = "PDF per Mail"
+        '
+        'DruckenToolStripMenuItem
+        '
+        Me.DruckenToolStripMenuItem.Name = "DruckenToolStripMenuItem"
+        Me.DruckenToolStripMenuItem.Size = New System.Drawing.Size(177, 26)
+        Me.DruckenToolStripMenuItem.Text = "Drucken"
+        '
+        'VorschauToolStripMenuItem1
+        '
+        Me.VorschauToolStripMenuItem1.Name = "VorschauToolStripMenuItem1"
+        Me.VorschauToolStripMenuItem1.Size = New System.Drawing.Size(177, 26)
+        Me.VorschauToolStripMenuItem1.Text = "Vorschau"
+        '
+        'EntwurfToolStripMenuItem1
+        '
+        Me.EntwurfToolStripMenuItem1.Name = "EntwurfToolStripMenuItem1"
+        Me.EntwurfToolStripMenuItem1.Size = New System.Drawing.Size(177, 26)
+        Me.EntwurfToolStripMenuItem1.Text = "Entwurf"
+        '
+        'AuftragsbestätigungToolStripMenuItem
+        '
+        Me.AuftragsbestätigungToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFToolStripMenuItem, Me.PDFPerMailToolStripMenuItem1, Me.DruckenToolStripMenuItem1, Me.VorschauToolStripMenuItem2, Me.EntwurfToolStripMenuItem2})
+        Me.AuftragsbestätigungToolStripMenuItem.Name = "AuftragsbestätigungToolStripMenuItem"
+        Me.AuftragsbestätigungToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
+        Me.AuftragsbestätigungToolStripMenuItem.Text = "Auftragsbestätigung"
+        '
+        'PDFToolStripMenuItem
+        '
+        Me.PDFToolStripMenuItem.Name = "PDFToolStripMenuItem"
+        Me.PDFToolStripMenuItem.Size = New System.Drawing.Size(177, 26)
+        Me.PDFToolStripMenuItem.Text = "PDF"
+        '
+        'PDFPerMailToolStripMenuItem1
+        '
+        Me.PDFPerMailToolStripMenuItem1.Name = "PDFPerMailToolStripMenuItem1"
+        Me.PDFPerMailToolStripMenuItem1.Size = New System.Drawing.Size(177, 26)
+        Me.PDFPerMailToolStripMenuItem1.Text = "PDF per Mail"
+        '
+        'DruckenToolStripMenuItem1
+        '
+        Me.DruckenToolStripMenuItem1.Name = "DruckenToolStripMenuItem1"
+        Me.DruckenToolStripMenuItem1.Size = New System.Drawing.Size(177, 26)
+        Me.DruckenToolStripMenuItem1.Text = "Drucken"
+        '
+        'VorschauToolStripMenuItem2
+        '
+        Me.VorschauToolStripMenuItem2.Name = "VorschauToolStripMenuItem2"
+        Me.VorschauToolStripMenuItem2.Size = New System.Drawing.Size(177, 26)
+        Me.VorschauToolStripMenuItem2.Text = "Vorschau"
+        '
+        'EntwurfToolStripMenuItem2
+        '
+        Me.EntwurfToolStripMenuItem2.Name = "EntwurfToolStripMenuItem2"
+        Me.EntwurfToolStripMenuItem2.Size = New System.Drawing.Size(177, 26)
+        Me.EntwurfToolStripMenuItem2.Text = "Entwurf"
+        '
+        'LieferscheinToolStripMenuItem
+        '
+        Me.LieferscheinToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFToolStripMenuItem1, Me.PDFPerMailToolStripMenuItem2, Me.DruckenToolStripMenuItem2, Me.VorschauToolStripMenuItem3, Me.EntwurfToolStripMenuItem3})
+        Me.LieferscheinToolStripMenuItem.Name = "LieferscheinToolStripMenuItem"
+        Me.LieferscheinToolStripMenuItem.Size = New System.Drawing.Size(246, 24)
+        Me.LieferscheinToolStripMenuItem.Text = "Lieferschein"
+        '
+        'PDFToolStripMenuItem1
+        '
+        Me.PDFToolStripMenuItem1.Name = "PDFToolStripMenuItem1"
+        Me.PDFToolStripMenuItem1.Size = New System.Drawing.Size(224, 26)
+        Me.PDFToolStripMenuItem1.Text = "PDF"
+        '
+        'PDFPerMailToolStripMenuItem2
+        '
+        Me.PDFPerMailToolStripMenuItem2.Name = "PDFPerMailToolStripMenuItem2"
+        Me.PDFPerMailToolStripMenuItem2.Size = New System.Drawing.Size(224, 26)
+        Me.PDFPerMailToolStripMenuItem2.Text = "PDF per Mail"
+        '
+        'DruckenToolStripMenuItem2
+        '
+        Me.DruckenToolStripMenuItem2.Name = "DruckenToolStripMenuItem2"
+        Me.DruckenToolStripMenuItem2.Size = New System.Drawing.Size(224, 26)
+        Me.DruckenToolStripMenuItem2.Text = "Drucken"
+        '
+        'VorschauToolStripMenuItem3
+        '
+        Me.VorschauToolStripMenuItem3.Name = "VorschauToolStripMenuItem3"
+        Me.VorschauToolStripMenuItem3.Size = New System.Drawing.Size(224, 26)
+        Me.VorschauToolStripMenuItem3.Text = "Vorschau"
+        '
+        'EntwurfToolStripMenuItem3
+        '
+        Me.EntwurfToolStripMenuItem3.Name = "EntwurfToolStripMenuItem3"
+        Me.EntwurfToolStripMenuItem3.Size = New System.Drawing.Size(224, 26)
+        Me.EntwurfToolStripMenuItem3.Text = "Entwurf"
+        '
+        'ToolStripMenuItem10
+        '
+        Me.ToolStripMenuItem10.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem11, Me.ToolStripMenuItem12, Me.ToolStripSeparator2, Me.ToolStripMenuItem13, Me.ToolStripMenuItem14, Me.ToolStripMenuItem15, Me.ToolStripMenuItem16})
+        Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
+        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(246, 24)
+        Me.ToolStripMenuItem10.Text = "Auftrag a&bschliessen"
+        '
+        'ToolStripMenuItem11
+        '
+        Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
+        Me.ToolStripMenuItem11.Size = New System.Drawing.Size(405, 26)
+        Me.ToolStripMenuItem11.Text = "Abschluss mit Recall-Anzeige"
+        Me.ToolStripMenuItem11.Visible = False
+        '
+        'ToolStripMenuItem12
+        '
+        Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
+        Me.ToolStripMenuItem12.Size = New System.Drawing.Size(405, 26)
+        Me.ToolStripMenuItem12.Text = "Abschluss ohne Recall-Anzeige"
+        Me.ToolStripMenuItem12.Visible = False
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(402, 6)
+        Me.ToolStripSeparator2.Visible = False
+        '
+        'ToolStripMenuItem13
+        '
+        Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
+        Me.ToolStripMenuItem13.Size = New System.Drawing.Size(405, 26)
+        Me.ToolStripMenuItem13.Text = "Abschluss und Sofortrechnung "
+        '
+        'ToolStripMenuItem14
+        '
+        Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14"
+        Me.ToolStripMenuItem14.Size = New System.Drawing.Size(405, 26)
+        Me.ToolStripMenuItem14.Text = "Abschluss und Sofortrechung als PDF"
+        '
+        'ToolStripMenuItem15
+        '
+        Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
+        Me.ToolStripMenuItem15.Size = New System.Drawing.Size(405, 26)
+        Me.ToolStripMenuItem15.Text = "Abschluss und Sofortrechnung als Outlook-Mail"
+        '
+        'ToolStripMenuItem16
+        '
+        Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16"
+        Me.ToolStripMenuItem16.Size = New System.Drawing.Size(405, 26)
+        Me.ToolStripMenuItem16.Text = "Abschluss und verbuchen, ohne RG/Quittung"
+        '
+        'ToolStripSeparator3
+        '
+        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(243, 6)
+        '
+        'ToolStripMenuItem19
+        '
+        Me.ToolStripMenuItem19.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem20, Me.ToolStripMenuItem21, Me.ToolStripSeparator4, Me.ToolStripMenuItem22, Me.ToolStripMenuItem23})
+        Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
+        Me.ToolStripMenuItem19.Size = New System.Drawing.Size(246, 24)
+        Me.ToolStripMenuItem19.Text = "Sofort-Rechnung drucken"
+        '
+        'ToolStripMenuItem20
+        '
+        Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20"
+        Me.ToolStripMenuItem20.Size = New System.Drawing.Size(252, 26)
+        Me.ToolStripMenuItem20.Text = "Vorschau"
+        '
+        'ToolStripMenuItem21
+        '
+        Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
+        Me.ToolStripMenuItem21.Size = New System.Drawing.Size(252, 26)
+        Me.ToolStripMenuItem21.Text = "Entwurf"
+        '
+        'ToolStripSeparator4
+        '
+        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(249, 6)
+        '
+        'ToolStripMenuItem22
+        '
+        Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22"
+        Me.ToolStripMenuItem22.Size = New System.Drawing.Size(252, 26)
+        Me.ToolStripMenuItem22.Text = "als PDF"
+        '
+        'ToolStripMenuItem23
+        '
+        Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
+        Me.ToolStripMenuItem23.Size = New System.Drawing.Size(252, 26)
+        Me.ToolStripMenuItem23.Text = "als PDF an Outlook-Mail"
+        '
+        'ToolStripMenuItem24
+        '
+        Me.ToolStripMenuItem24.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem25, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27})
+        Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24"
+        Me.ToolStripMenuItem24.Size = New System.Drawing.Size(246, 24)
+        Me.ToolStripMenuItem24.Text = "Rechnungskopie erstellen"
+        '
+        'ToolStripMenuItem25
+        '
+        Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25"
+        Me.ToolStripMenuItem25.Size = New System.Drawing.Size(258, 26)
+        Me.ToolStripMenuItem25.Text = "als PDF"
+        '
+        'ToolStripMenuItem26
+        '
+        Me.ToolStripMenuItem26.Name = "ToolStripMenuItem26"
+        Me.ToolStripMenuItem26.Size = New System.Drawing.Size(258, 26)
+        Me.ToolStripMenuItem26.Text = "über Drucker"
+        '
+        'ToolStripMenuItem27
+        '
+        Me.ToolStripMenuItem27.Name = "ToolStripMenuItem27"
+        Me.ToolStripMenuItem27.Size = New System.Drawing.Size(258, 26)
+        Me.ToolStripMenuItem27.Text = "als PDF per Outlook-Mail"
+        '
+        'ToolStripMenuItem9
+        '
+        Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
+        Me.ToolStripMenuItem9.Size = New System.Drawing.Size(243, 6)
+        '
+        'ToolStripMenuItem17
+        '
+        Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17"
+        Me.ToolStripMenuItem17.Size = New System.Drawing.Size(246, 24)
+        Me.ToolStripMenuItem17.Text = "Auftrag zurücksetzen"
+        '
+        'ToolStripMenuItem18
+        '
+        Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
+        Me.ToolStripMenuItem18.Size = New System.Drawing.Size(246, 24)
+        Me.ToolStripMenuItem18.Text = "Auftrag kopieren"
+        '
+        'ToolStripSeparator5
+        '
+        Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
+        Me.ToolStripSeparator5.Size = New System.Drawing.Size(243, 6)
+        '
+        'tsamdelete
+        '
+        Me.tsamdelete.Name = "tsamdelete"
+        Me.tsamdelete.Size = New System.Drawing.Size(246, 24)
+        Me.tsamdelete.Text = "&Auftrag löschen"
+        '
+        'ToolStripSeparator6
+        '
+        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(243, 6)
+        '
+        'ToolStripMenuItem29
+        '
+        Me.ToolStripMenuItem29.Name = "ToolStripMenuItem29"
+        Me.ToolStripMenuItem29.Size = New System.Drawing.Size(246, 24)
+        Me.ToolStripMenuItem29.Text = "Rechung Vorschau"
+        '
+        'ToolStripMenuItem30
+        '
+        Me.ToolStripMenuItem30.Name = "ToolStripMenuItem30"
+        Me.ToolStripMenuItem30.Size = New System.Drawing.Size(246, 24)
+        Me.ToolStripMenuItem30.Text = "Rechnung Entwurf"
+        '
+        'ToolStripSeparator7
+        '
+        Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
+        Me.ToolStripSeparator7.Size = New System.Drawing.Size(243, 6)
+        '
+        'tsamerstemahnung
+        '
+        Me.tsamerstemahnung.Name = "tsamerstemahnung"
+        Me.tsamerstemahnung.Size = New System.Drawing.Size(246, 24)
+        Me.tsamerstemahnung.Text = "Erste Mahnung drucken"
+        '
+        'tsamzweitemahnung
+        '
+        Me.tsamzweitemahnung.Name = "tsamzweitemahnung"
+        Me.tsamzweitemahnung.Size = New System.Drawing.Size(246, 24)
+        Me.tsamzweitemahnung.Text = "Zweite Mahnung drucken"
+        '
+        'tsamdrittemahnung
+        '
+        Me.tsamdrittemahnung.Name = "tsamdrittemahnung"
+        Me.tsamdrittemahnung.Size = New System.Drawing.Size(246, 24)
+        Me.tsamdrittemahnung.Text = "Letzte Mahnung drucken"
+        '
+        'Behandungdetail1
+        '
+        Me.Behandungdetail1.Behandlungsnr = 0
+        Me.Behandungdetail1.Behandlungsstatus = 0
+        Me.Behandungdetail1.HasChanges = False
+        Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
+        Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Behandungdetail1.Name = "Behandungdetail1"
+        Me.Behandungdetail1.Patientnr = 0
+        Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
+        Me.Behandungdetail1.TabIndex = 0
+        '
+        'Leistungen1
+        '
+        Me.Leistungen1.behandler = 0
+        Me.Leistungen1.Behandlungnr = 0
+        Me.Leistungen1.Behandlungsstatus = 0
+        Me.Leistungen1.Dentotar = False
+        Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Leistungen1.Frankenwert = 0R
+        Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
+        Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Leistungen1.Name = "Leistungen1"
+        Me.Leistungen1.Size = New System.Drawing.Size(1255, 976)
+        Me.Leistungen1.TabIndex = 0
         '
         'Behandlung
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.SuperTabControl1)
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.tsbtndelete)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "Behandlung"
-        Me.Size = New System.Drawing.Size(1285, 838)
+        Me.Size = New System.Drawing.Size(1713, 1031)
         Me.tsbtndelete.ResumeLayout(False)
         Me.tsbtndelete.PerformLayout()
         Me.GroupBox1.ResumeLayout(False)
@@ -585,6 +988,7 @@ Partial Class Behandlung
         Me.tsbtnbehandlungdelete.ResumeLayout(False)
         Me.tsbtnbehandlungdelete.PerformLayout()
         Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ctxMenuAuftragsamanagement.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -649,4 +1053,60 @@ Partial Class Behandlung
     Friend WithEvents AbschlussUndSofortrechungAlsPDFToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem8 As ToolStripSeparator
+    Friend WithEvents ErsteMahnungDruckenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ZweiteMahnungDruckenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents LetzteMahnungDruckenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ctxMenuAuftragsamanagement As ContextMenuStrip
+    Friend WithEvents tsamnew As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem10 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem11 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem12 As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem13 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem14 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem15 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem16 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem17 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem18 As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem22 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem24 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem26 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem27 As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
+    Friend WithEvents tsamdelete As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
+    Friend WithEvents tsamerstemahnung As ToolStripMenuItem
+    Friend WithEvents tsamzweitemahnung As ToolStripMenuItem
+    Friend WithEvents tsamdrittemahnung As ToolStripMenuItem
+    Friend WithEvents OfferteToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents OffertPDF As ToolStripMenuItem
+    Friend WithEvents DruckenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents VorschauToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents EntwurfToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents AuftragsbestätigungToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PDFToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DruckenToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents VorschauToolStripMenuItem2 As ToolStripMenuItem
+    Friend WithEvents EntwurfToolStripMenuItem2 As ToolStripMenuItem
+    Friend WithEvents LieferscheinToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PDFToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents DruckenToolStripMenuItem2 As ToolStripMenuItem
+    Friend WithEvents VorschauToolStripMenuItem3 As ToolStripMenuItem
+    Friend WithEvents EntwurfToolStripMenuItem3 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem9 As ToolStripSeparator
+    Friend WithEvents PDFPerMailToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PDFPerMailToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents PDFPerMailToolStripMenuItem2 As ToolStripMenuItem
 End Class

DPM2016/Behandlung/Behandlung.resx

@@ -124,7 +124,7 @@
   <data name="tsbtnnewbehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
         Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
         AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
         Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -139,7 +139,7 @@
   <data name="tsbtndeletebehandlung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
         gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
         VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
         mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -155,7 +155,7 @@
   <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAMgAAADICAYAAACtWK6eAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA+oSURBVHhe7Z0J8H5THcYp2cJky5IpCqP8LSnrVBSViBiy
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA+oSURBVHhe7Z0J8H5THcYp2cJky5IpCqP8LSnrVBSViBiy
         VfaQrMkSypYskbQRZQuhKSRbY6eikq1sWcJEEWXLlup5+P/G6/W87+++7znn3nvOfT4zn2nS796cc+/7
         vvee812mMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMKZN54FJwVbgR
         3BHuAw+Ah8Aj4Dfh4VP/2V5wZ7gZXB3yWJ7jddCYLJkWLgY/DQ+FP4U3wafg/yL5PLwdngsPg1vC98A3
@@ -236,7 +236,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
-        DQAAAk1TRnQBSQFMAgEBBQEAAfgBAwH4AQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        DQAAAk1TRnQBSQFMAgEBBQEAATgBBQE4AQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -298,7 +298,7 @@
   <data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
         Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
         AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
         Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -313,7 +313,7 @@
   <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
         gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
         VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
         mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -332,4 +332,7 @@
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>234, 17</value>
   </metadata>
+  <metadata name="ctxMenuAuftragsamanagement.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>391, 17</value>
+  </metadata>
 </root>

DPM2016/Behandlung/Behandlung.vb

@@ -6,6 +6,16 @@ Imports Syncfusion.Pdf.Parsing
 Public Class Behandlung
 
 #Region "Properties"
+    Dim m_auftragsmanagement As String = ""
+    Property Auftragsmanagement As Boolean
+        Get
+            If m_auftragsmanagement = "" Then m_auftragsmanagement = DB.Get_Option(40001)
+            Return m_auftragsmanagement = "True"
+        End Get
+        Set(value As Boolean)
+            '            m_auftragsmanagement = DB.Get_Option(40001)
+        End Set
+    End Property
     Dim m_patientnr As Integer
     Property PatientNr As Integer
         Get
@@ -232,60 +242,94 @@ Public Class Behandlung
         BH.Nodes.Add(BHoffen)
         BH.Nodes.Add(BHabgeshlossen)
         BH.Nodes.Add(BHFakturiert)
-        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
-            kv.Text = "Offerten"
-        Else
-
-            kv.Text = "Kostenvoranschläge"
-        End If
-        '        kv.Text = "Kostenvoranschlag"
-        kv.Tag = -2
-        kv.ImageIndex = 1
-        kvoffen.Text = "Offen"
-        kvoffen.Tag = -22
-        kvoffen.ImageIndex = 1
-        kvabgeschlossen.Text = "Abgeschlossen"
-        kvabgeschlossen.Tag = -23
-        kvabgeschlossen.ImageIndex = 1
         Me.treebehandlungen.Nodes.Add(BH)
-        Me.treebehandlungen.Nodes.Add(kv)
-        kv.Nodes.Add(kvoffen)
-        kv.Nodes.Add(kvabgeschlossen)
+        If Not Auftragsmanagement Then
+
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                kv.Text = "Offerten"
+            Else
+
+                kv.Text = "Kostenvoranschläge"
+            End If
+            '        kv.Text = "Kostenvoranschlag"
+            kv.Tag = -2
+            kv.ImageIndex = 1
+            kvoffen.Text = "Offen"
+            kvoffen.Tag = -22
+            kvoffen.ImageIndex = 1
+            kvabgeschlossen.Text = "Abgeschlossen"
+            kvabgeschlossen.Tag = -23
+            kvabgeschlossen.ImageIndex = 1
+
+            Me.treebehandlungen.Nodes.Add(kv)
+            kv.Nodes.Add(kvoffen)
+            kv.Nodes.Add(kvabgeschlossen)
+        End If
 
         Dim firstnode_tag As Integer = 0
-        For Each r As DataRow In DB.dsDaten.Tables(0).Rows
-            If firstnode_tag = 0 Then firstnode_tag = r("nrbehandlung")
-            Dim tn As New DevComponents.AdvTree.Node
-            tn.Tag = r("nrbehandlung")
-            Dim total As Double = r("Total")
-            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
-                tn.Text = r("behandlungsgrund") + " / " + r("behandlungsbeginn") + " / " + total.ToString("N2")
-            Else
-                tn.Text = r("behandlungsbeginn") + " / " + total.ToString("N2")
-            End If
-            Select Case r("status")
-                Case 1
-                    tn.ImageIndex = 2
-                    BHoffen.Nodes.Add(tn)
-                Case 2
-                    tn.ImageIndex = 3
-                    BHabgeshlossen.Nodes.Add(tn)
-                Case 3
-                    tn.ImageIndex = 4
-                    BHFakturiert.Nodes.Add(tn)
-                Case 4
-                    tn.ImageIndex = 2
-                    kvoffen.Nodes.Add(tn)
-                Case 5
-                    tn.ImageIndex = 3
-                    kvabgeschlossen.Nodes.Add(tn)
-            End Select
-        Next
+        If Auftragsmanagement Then
+            For Each r As DataRow In DB.dsDaten.Tables(0).Rows
+                If firstnode_tag = 0 Then firstnode_tag = r("nrbehandlung")
+                Dim tn As New DevComponents.AdvTree.Node
+                tn.Tag = r("nrbehandlung")
+                Dim total As Double = r("Total")
+                If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                    tn.Text = r("behandlungsgrund") + " / " + r("behandlungsbeginn") + " / " + total.ToString("N2")
+                Else
+                    tn.Text = r("behandlungsbeginn") + " / " + total.ToString("N2")
+                End If
+                Select Case r("status")
+                    Case 1
+                        tn.ImageIndex = 2
+                        BHoffen.Nodes.Add(tn)
+                    Case 2
+                        tn.ImageIndex = 3
+                        BHabgeshlossen.Nodes.Add(tn)
+                    Case 3
+                        tn.ImageIndex = 4
+                        BHFakturiert.Nodes.Add(tn)
+                End Select
+            Next
+
+        Else
+
+            For Each r As DataRow In DB.dsDaten.Tables(0).Rows
+                If firstnode_tag = 0 Then firstnode_tag = r("nrbehandlung")
+                Dim tn As New DevComponents.AdvTree.Node
+                tn.Tag = r("nrbehandlung")
+                Dim total As Double = r("Total")
+                If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                    tn.Text = r("behandlungsgrund") + " / " + r("behandlungsbeginn") + " / " + total.ToString("N2")
+                Else
+                    tn.Text = r("behandlungsbeginn") + " / " + total.ToString("N2")
+                End If
+                Select Case r("status")
+                    Case 1
+                        tn.ImageIndex = 2
+                        BHoffen.Nodes.Add(tn)
+                    Case 2
+                        tn.ImageIndex = 3
+                        BHabgeshlossen.Nodes.Add(tn)
+                    Case 3
+                        tn.ImageIndex = 4
+                        BHFakturiert.Nodes.Add(tn)
+                    Case 4
+                        tn.ImageIndex = 2
+                        kvoffen.Nodes.Add(tn)
+                    Case 5
+                        tn.ImageIndex = 3
+                        kvabgeschlossen.Nodes.Add(tn)
+                End Select
+            Next
+        End If
+
         Me.treebehandlungen.ExpandAll()
-        enable_disable_tabs(False)
+            enable_disable_tabs(False)
         Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, firstnode_tag, firstnode_tag)
         If firstnode_tag <> 0 Then nodeselected()
-
+        If Auftragsmanagement = True Then
+            Me.treebehandlungen.ContextMenuStrip = Me.ctxMenuAuftragsamanagement
+        End If
 
 
     End Sub
@@ -377,10 +421,19 @@ Public Class Behandlung
 
 
     Private Sub tsbtnnewbehandlung_Click(sender As Object, e As EventArgs) Handles tsbtnnewbehandlung.Click
-        If Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag" Then
-            Neue_Behandlung(4)
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            If Me.NeueBehandlungToolStripMenuItem1.Text = "Neue Offerte" Then
+                Neue_Behandlung(4)
+            Else
+                Neue_Behandlung(1)
+            End If
+
         Else
-            Neue_Behandlung(1)
+            If Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag" Then
+                Neue_Behandlung(4)
+            Else
+                Neue_Behandlung(1)
+            End If
         End If
 
     End Sub
@@ -627,8 +680,19 @@ Public Class Behandlung
     End Sub
 
     Private Sub BehandlunKopierenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BehandlungKopierenToolStripMenuItem.Click
+        Dim s As String
+        If Me.Auftragsmanagement = True Then
+            DB.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString.ToString, 1)
+            Exit Sub
+        End If
         If BehandlungKopierenToolStripMenuItem.Text = "Kostenvoranschlag kopieren" Then
-            Dim dl As MsgBoxResult = MsgBox("Als Kostenvoranschlag kopieren (Ja) oder als neue Behandlung kopieren (Nein)?", vbYesNoCancel + vbQuestion)
+
+            If My.Settings.SoftwareType = "PADM" Then
+                s = "Als Kostenvoranschlag kopieren (Ja) oder als neues Projekt kopieren (Nein)?"
+            Else
+                s = "Als Kostenvoranschlag kopieren (Ja) oder als neue Behandlung kopieren (Nein)?"
+            End If
+            Dim dl As MsgBoxResult = MsgBox(s, vbYesNoCancel + vbQuestion)
             If dl = vbYes Then
                 Dim db As New clsDB
                 db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString.ToString, 1)
@@ -638,7 +702,12 @@ Public Class Behandlung
                 db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString, 2)
             End If
         Else
-            Dim dl As MsgBoxResult = MsgBox("Als Behandlung kopieren (Ja) oder als neuer KV kopieren (Nein)?", vbYesNoCancel + vbQuestion)
+            If My.Settings.SoftwareType = "PADM" Then
+                s = "Als Projekt kopieren (Ja) oder als neuer KV kopieren (Nein)?"
+            Else
+                s = "Als Behandlung kopieren (Ja) oder als neuer KV kopieren (Nein)?"
+            End If
+            Dim dl As MsgBoxResult = MsgBox(s, vbYesNoCancel + vbQuestion)
             If dl = vbYes Then
                 Dim db As New clsDB
                 db.Copy_Behandlung(Me.treebehandlungen.SelectedNode.Tag.ToString, 3)
@@ -725,7 +794,7 @@ Public Class Behandlung
                         Me.BehandlungabschliessenToolStripMenuItem1.Text = "Offerte abschliessen"
                         Me.BehandlungabschliessenToolStripMenuItem1.Enabled = False
                         BehandlungabschliessenToolStripMenuItem1.Enabled = False
-                        Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Offerte"
+                        Me.NeueBehandlungToolStripMenuItem1.Text = "Neue Offerte"
                         Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Offerte zurücksetzen"
                         Me.BehandlungZurücksetzenToolStripMenuItem.Enabled = False
                         Me.BehandlungLöschenToolStripMenuItem1.Text = "Offerte löschen"
@@ -735,12 +804,12 @@ Public Class Behandlung
                     Case > -20
                         Me.BehandlungabschliessenToolStripMenuItem1.Text = "Projekt abschliessen"
                         Me.NeueBehandlungToolStripMenuItem1.Text = "Neues Projekt"
-                        Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Projek zurücksetzen"
+                        Me.BehandlungZurücksetzenToolStripMenuItem.Text = "Projekt zurücksetzen"
                         Me.BehandlungZurücksetzenToolStripMenuItem.Visible = True
                         Me.BehandlungLöschenToolStripMenuItem1.Text = "Projekt löschen"
                         Me.BehandlungKopierenToolStripMenuItem.Text = "Projekt kopieren"
                     Case < -20 And
-                Me.BehandlungabschliessenToolStripMenuItem1.Text = "Offerte abschliessen"
+                        Me.BehandlungabschliessenToolStripMenuItem1.Text = "Offerte abschliessen"
                         BehandlungabschliessenToolStripMenuItem1.Enabled = True
                         Me.BehandlungabschliessenToolStripMenuItem1.Text = "Offerte abschliessen"
                         Me.NeueBehandlungToolStripMenuItem1.Text = "Neue Offerte"
@@ -785,7 +854,7 @@ Public Class Behandlung
                         Me.BehandlungLöschenToolStripMenuItem1.Text = "Behandlung löschen"
                         Me.BehandlungKopierenToolStripMenuItem.Text = "Behandlung kopieren"
                     Case < -20 And
-                Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
+                        Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
                         BehandlungabschliessenToolStripMenuItem1.Enabled = True
                         Me.BehandlungabschliessenToolStripMenuItem1.Text = "Kostenvoranschlag abschliessen"
                         Me.NeueBehandlungToolStripMenuItem1.Text = "Neuer Kostenvoranschlag"
@@ -818,11 +887,40 @@ Public Class Behandlung
             s = DB.Get_Option(9106)
             If s <> "" Then Me.AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem.Text = s
 
+            ErsteMahnungDruckenToolStripMenuItem.Visible = False
+            ZweiteMahnungDruckenToolStripMenuItem.Visible = False
+            LetzteMahnungDruckenToolStripMenuItem.Visible = False
+            tsamerstemahnung.Visible = False
+            tsamzweitemahnung.Visible = False
+            tsamdrittemahnung.Visible = False
+            Try
+                If Me.Behandungdetail1.txtrgnummer.Text <> "" Then
+                    DB.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Microsoft.VisualBasic.Left(Me.Behandungdetail1.txtrgnummer.Text, 10), "", False)
+                    If DB.dsDaten.Tables(0).Rows.Count > 0 Then
+                        Select Case DB.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
+                            Case 1
+                                ErsteMahnungDruckenToolStripMenuItem.Visible = True
+                                tsamerstemahnung.Visible = True
+                            Case 2
+                                ZweiteMahnungDruckenToolStripMenuItem.Visible = True
+                                tsamzweitemahnung.Visible = True
+                            Case 3
+                                LetzteMahnungDruckenToolStripMenuItem.Visible = True
+                                tsamdrittemahnung.Visible = True
+                        End Select
+                    Else
+
+                    End If
+                End If
+            Catch
+            End Try
+
+
             If UCase(DB.Get_Option(60020)) = "FALSE" Then Exit Sub
-            Dim sec As New DPMSecurity
-            sec.Set_Form_Security(Me.ParentForm)
-        Catch ex As Exception
-            MsgBox(ex.Message)
+                Dim sec As New DPMSecurity
+                sec.Set_Form_Security(Me.ParentForm)
+            Catch ex As Exception
+                MsgBox(ex.Message)
             Me.ctxmenubehandlung.Enabled = False
         End Try
 
@@ -834,9 +932,10 @@ Public Class Behandlung
         Dim key As Integer = Me.treebehandlungen.SelectedNode.Tag
         db.Get_Tabledata("Behandlu", "where nrbehandlung=" + key.ToString)
         If db.dsDaten.Tables(0).Rows(0).Item("Status") = 2 Or db.dsDaten.Tables(0).Rows(0).Item("Status") = 3 Then
-            Messagetext = "Behandlung "
+            If Globals.Applicationtype = Globals.ApplicationTypes.Projektabrechnung Then Messagetext = "Projekt " Else Messagetext = "Behandlung "
+            'Messagetext = "Behandlung "
         Else
-            Messagetext = "Kostenvoranschlag"
+                Messagetext = "Kostenvoranschlag"
         End If
 
         Dim fakt As New clsFakturierung
@@ -847,17 +946,27 @@ Public Class Behandlung
                     Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString)
                 End If
             Case 1
-                If MsgBox("Rechnung stornieren und Behandlung zurücksetzen?", vbYesNo + vbQuestion) = vbYes Then
+                Dim s As String
+                If Globals.Applicationtype = Applicationtype.Projektabrechnung Then
+                    s = "Rechnung stornieren und Projekt zurücksetzen?"
+                Else
+                    s = "Rechnung stornieren und Behandlung zurücksetzen?"
+                End If
+                If MsgBox(s, vbYesNo + vbQuestion) = vbYes Then
                     fakt.Storno(Me.treebehandlungen.SelectedNode.Tag)
                     Behandlung_Zurücksetzen(Me.treebehandlungen.SelectedNode.Tag.ToString)
                     If Globals.License.DMS = True Then
                         Dim dok As New clsDok
-                        dok.delete_doks(Me.treebehandlungen.SelectedNode.Tag)
+                        dok.Delete_Doks(Me.treebehandlungen.SelectedNode.Tag)
                         dok = Nothing
                     End If
                 End If
             Case 2
-                MsgBox("Behandlung kann nicht zurückgesetzt werden, da bereits Zahlung für die Rechnung eingegangen sind.", vbExclamation)
+                If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                    MsgBox("Projekt kann nicht zurückgesetzt werden, da bereits Zahlung für die Rechnung eingegangen sind.", vbExclamation)
+                Else
+                    MsgBox("Behandlung kann nicht zurückgesetzt werden, da bereits Zahlung für die Rechnung eingegangen sind.", vbExclamation)
+                End If
         End Select
 
     End Sub
@@ -1203,6 +1312,254 @@ Public Class Behandlung
         'evh.Fire_Finanzen_Anzeigen(Me.PatientNr)
     End Sub
 
+    Private Sub ErsteMahnungDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungDruckenToolStripMenuItem.Click, ZweiteMahnungDruckenToolStripMenuItem.Click, LetzteMahnungDruckenToolStripMenuItem.Click
+        Try
+            Select Case sender.name
+                Case "ErsteMahnungDruckenToolStripMenuItem"
+                    Dim s As String = Microsoft.VisualBasic.Left(Me.Behandungdetail1.txtrgnummer.Text, 10)
+                    Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
+                Case "ZweiteMahnungDruckenToolStripMenuItem"
+                    Dim s As String = Microsoft.VisualBasic.Left(Me.Behandungdetail1.txtrgnummer.Text, 10)
+                    Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
+                Case "LetzteMahnungDruckenToolStripMenuItem"
+                    Dim s As String = Microsoft.VisualBasic.Left(Me.Behandungdetail1.txtrgnummer.Text, 10)
+                    Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
+            End Select
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+    Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles tsamnew.Click
+        NeueBehandlungToolStripMenuItem1_Click(sender, e)
+    End Sub
+
+    Private Sub tsamdelete_Click(sender As Object, e As EventArgs) Handles tsamdelete.Click
+        BehandlungLöschenToolStripMenuItem1_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
+        BehandlungabschliessenToolStripMenuItem1_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
+        AbschlussMitRecallAnzeigeToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
+        AbshlussOhneRecallAnzeigeToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
+        AbschlussUndSofortrechnungToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
+        AbschlussUndSofortrechungAlsPDFToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click
+        AbschlussUndSofortrechnungAlsOutlookMailToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
+        AbschlussUndVerbuchenOhneRGQuittungToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click
+        BehandlungZurücksetzenToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
+        BehandlunKopierenToolStripMenuItem1_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
+        VorschauToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
+        EntwurfToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click
+        AlsPdfToolStripMenuItem1_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
+        AlsMailToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click
+        AlsPDFToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click
+        ÜberDruckerToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click
+        AlsPDFPerMailToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click
+        RechungKVVorschauToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click
+        RechnungKVEntwurfToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub tsamerstemahnung_Click(sender As Object, e As EventArgs) Handles tsamerstemahnung.Click, tsamzweitemahnung.Click, tsamdrittemahnung.Click
+        Try
+            Select Case sender.name
+                Case "tsamerstemahnung"
+                    Dim s As String = Microsoft.VisualBasic.Left(Me.Behandungdetail1.txtrgnummer.Text, 10)
+                    Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
+                Case "tsamzweitemahnung"
+                    Dim s As String = Microsoft.VisualBasic.Left(Me.Behandungdetail1.txtrgnummer.Text, 10)
+                    Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
+                Case "tsamdrittemahnung"
+                    Dim s As String = Microsoft.VisualBasic.Left(Me.Behandungdetail1.txtrgnummer.Text, 10)
+                    Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
+            End Select
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+    Private Sub VorschauToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem1.Click
+        Behandungdetail1.Vorschau_Offerte(1)
+    End Sub
+
+    Private Sub OffertPDF_Click(sender As Object, e As EventArgs) Handles OffertPDF.Click
+        Behandungdetail1.Vorschau_Offerte(2)
+    End Sub
+
+    Private Sub PDFPerMailToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFPerMailToolStripMenuItem.Click
+        Behandungdetail1.Vorschau_Offerte(3)
+    End Sub
+
+    Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem.Click
+        Behandungdetail1.Vorschau_Offerte(4)
+    End Sub
+
+    Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
+        Behandungdetail1.Sofortrechung_normal()
+    End Sub
+
+    Private Sub ToolStripMenuItem24_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem24.Click
+        KopieErstellenToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub PDFToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFToolStripMenuItem.Click
+        Behandungdetail1.Vorschau_Offerte(12)
+    End Sub
+
+    Private Sub PDFPerMailToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PDFPerMailToolStripMenuItem1.Click
+        Behandungdetail1.Vorschau_Offerte(13)
+    End Sub
+
+    Private Sub DruckenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem1.Click
+        Behandungdetail1.Vorschau_Offerte(14)
+    End Sub
+
+    Private Sub VorschauToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem2.Click
+        Behandungdetail1.Vorschau_Offerte(11)
+    End Sub
+
+    Private Sub PDFToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PDFToolStripMenuItem1.Click
+        Behandungdetail1.Vorschau_Offerte(22)
+    End Sub
+
+    Private Sub PDFPerMailToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles PDFPerMailToolStripMenuItem2.Click
+        Behandungdetail1.Vorschau_Offerte(23)
+    End Sub
+
+    Private Sub DruckenToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem2.Click
+        Behandungdetail1.Vorschau_Offerte(24)
+    End Sub
+
+    Private Sub VorschauToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem3.Click
+        Behandungdetail1.Vorschau_Offerte(21)
+    End Sub
+
+    Private Sub EntwurfToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EntwurfToolStripMenuItem1.Click
+        Behandungdetail1.Vorschau_Offerte(5)
+    End Sub
+
+    Private Sub EntwurfToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles EntwurfToolStripMenuItem2.Click
+        Behandungdetail1.Vorschau_Offerte(15)
+    End Sub
+
+    Private Sub EntwurfToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles EntwurfToolStripMenuItem3.Click
+        Behandungdetail1.Vorschau_Offerte(25)
+    End Sub
+
+    Private Sub ctxMenuAuftragsamanagement_Opening(sender As Object, e As CancelEventArgs) Handles ctxMenuAuftragsamanagement.Opening
+        Dim i As Integer
+        Try
+            i = Me.treebehandlungen.SelectedNode.Parent.Tag
+        Catch
+            i = Me.treebehandlungen.SelectedNode.Tag
+        End Try
+        ToolStripMenuItem17.Enabled = True
+        ToolStripMenuItem10.Enabled = True
+        ToolStripMenuItem18.Enabled = True
+        ToolStripMenuItem24.Enabled = True
+        ToolStripMenuItem19.Visible = True
+        ToolStripMenuItem10.Enabled = True
+        ToolStripMenuItem10.Visible = True
+        Select Case i
+            Case -11
+                ToolStripMenuItem17.Enabled = False
+                ToolStripMenuItem10.Enabled = True
+                ToolStripMenuItem18.Enabled = True
+                ToolStripMenuItem24.Enabled = False
+                ToolStripMenuItem19.Visible = False
+
+            Case -12
+                ToolStripMenuItem17.Enabled = True
+                ToolStripMenuItem10.Enabled = True
+                ToolStripMenuItem18.Enabled = False
+                ToolStripMenuItem24.Enabled = False
+                ToolStripMenuItem19.Visible = True
+                ToolStripMenuItem10.Visible = False
+
+            Case -13
+                ToolStripMenuItem19.Visible = False
+                ToolStripMenuItem10.Enabled = False
+        End Select
+
+        tsamerstemahnung.Visible = False
+        tsamzweitemahnung.Visible = False
+        tsamdrittemahnung.Visible = False
+        Try
+            If Me.Behandungdetail1.txtrgnummer.Text <> "" Then
+                DB.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Microsoft.VisualBasic.Left(Me.Behandungdetail1.txtrgnummer.Text, 10), "", False)
+                If DB.dsDaten.Tables(0).Rows.Count > 0 Then
+                    Select Case DB.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
+                        Case 1
+                            ErsteMahnungDruckenToolStripMenuItem.Visible = True
+                            tsamerstemahnung.Visible = True
+                        Case 2
+                            ZweiteMahnungDruckenToolStripMenuItem.Visible = True
+                            tsamzweitemahnung.Visible = True
+                        Case 3
+                            LetzteMahnungDruckenToolStripMenuItem.Visible = True
+                            tsamdrittemahnung.Visible = True
+                    End Select
+                Else
+
+                End If
+            End If
+        Catch
+        End Try
+    End Sub
+
+
 
 
 

DPM2016/Behandlung/Benhandungdetail.resx

@@ -124,7 +124,7 @@
   <data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
         dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
         AElFTkSuQmCC
 </value>
@@ -132,7 +132,7 @@
   <data name="ToolStripDropDownButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAETSURBVDhPtZLBSsNAFEXzMcVvEPSj1J3ion5C27TB4D/o
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAETSURBVDhPtZLBSsNAFEXzMcVvEPSj1J3ion5C27TB4D/o
         xqWCLlpw5aZVghYhkE3SkE0ySSC99j1nTKKvwS68cAgz785JCGP9zOnZObrQte2h0rbsJCiKogXlf76A
         Ng37RyORg+MBDk+G3+vmmdYbadifvqH/8CJyMX3njokouFxGcF4DEXe56hKseTicBxg8f4iMFkGHoCp5
         +BewLlFVVS3I8xxRGKJUGW7uZrh9fBK5vp9BpSlWUYgsy2pBkiS82IU4jvnJgnRjpeder4fJxIXv+/A8
@@ -143,7 +143,7 @@
   <data name="tsbtnGarantAnzeigen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -197,6 +197,636 @@
         eI/h9Y/F/wCHNpqPwUK+FtZ1TVNIssX0kPiyLa/YA/4IdeDf2A/2+/jL+2f4A+JPwth8H/En4e/tH/DT
         wz8Cfhl+zLafBmLwf4Z+O37V2lftLeGrTWfGmk/F7xNoPiqH4N6DpGn/AAS8G2mjfC3wHZt4D0fw1FBB
         o9n4es9EcA//2Q==
+</value>
+  </data>
+  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>143, 17</value>
+  </metadata>
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAF8KSURBVHhe7d0HeFvV3QZwQz/6fbS0sZUEx7F0JY/Y2XtP
+        AiEJCXtvKLSlUFYplLbQqljLSQgQEkYYYYSUJCSxZTvOJJsEZ++9FxmMOJORcL57pGNblv+S7tGVbEl+
+        3+f5PfT7CI6sI+n9S/fcqyQEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAE
+        QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEiWb6WZP+R7E36mjOT7nT4kj5g9mZcldGvqFr
+        S2vSL8UfQRAEQRAkUWKxJZstzpQxFqvhW4vLwPyZXb86ZXYaxptdDTqI/wRBEARBkLgNS7pILf5nDVbD
+        91Tx05Lfyx3W8DfiJyAIgiAIEk/hH/ebnSkf0SUfnNlhWK/YG6WJH4UgCILETCYn/SIzP6WBaVjDplm2
+        FJP6vxX+Ma/Z1cDCKbYGGYqrQSb//+W8fFkjs9X8f/zdoPc/RhI+6uPD4jRMoMpdK7PLsAGfBCAIgkQz
+        1qSLsx2XNc5wJLdV37ENVl94H1JfgF9UvWFxpRQoLsMC9Z+r1H+3Pd2VfMTiuuyM7wu1hAvprkvLLa4G
+        h/nPUv/vNerPnSuKYqT6v5+zOBvel5FvuDrDldyG3yYMDXEYtfz58XyfddchZZz4qQiCIEhYUYs0O99g
+        NDsa9rfkpzyivriOVIu+WHElb0uzGn6s+cIbG/jmMPWfa9TbOtniTHGoxfK7zPyU3hmOy1MxHMRgPOUf
+        3sf+gWBjIIIgiMYYRxovVd9VdzM7kx+zOJPft9gNq3W8a49Z6uBywvPphDP5Ff7JQaYjpTU/7izuBqS2
+        Y026WB3SPqDWShf1Z4q/AUEQBKkIL7zMYQ07qy+UT/AXSr55ymI1nK/xIlpvNDinOJPLFKfhbbPL8CDf
+        h4BPCmohnvJXh01yTXSyGr7lP1/8TQiCIPUzncYmXWLON3RXy/559V1+qcl66UnyRRMqme2/OaD+8xN+
+        4ZkMZ6McDAQRjlrO6uD5rv/9HkmZwxo1E38bgiBIPYlaVt7NeYZ/mJ3Jsy3WX5+mXiBBgr3BV4rLMFEd
+        oB7wbDREwo+3/MeS93MEKY6GV4m/EUEQJHHDT5kz56dco77wvWGyGfb5vxhCBFkNP6v/XGp2Gf7JBy18
+        OiAR9b5S77u3qt2fGmXkN2Sd3s0m/x0lw5l8rfhbEQRBEiv8XHnFYXhYcaQUJuKGvXihuAz7LU7Dm6qB
+        2FAYJN7yf8P//tNqSHEvdv2MvuS/o2AAQBAkodLS2vgysyv5brVsStR3oD9RL3xQd/g1D8yulFHq+nTD
+        JwM+Ue8L9X4ZTd1nWlxT1JM9su4ODAAIgtSv8G89y3AlX6eWyqd4px8/1MLbYXamvGQZ1jBXLGX9jLf8
+        R1H3kRaD3T085e8dAPqRf4aCAQBBkLgNP0fd864pwLehxbLMEY1Y9iuNWc6oy1numFTW4s001nJsU9b6
+        vXTW5gMja/uhqcpHftT/X+v3jazVu+nqf5PGmr/ZxPMz+M/iPzNjWEPy74xtKSv5xZT4JzhieetHPB/7
+        p7xK3yehDS7sXln+f1p3JwYABEESN9mjkv5XcSbfY3YYFlMvarGAl3vu6FRPQfPC7vBfM+s8JZN1c2ez
+        nqU5rM/c5qzv5y2iqvfs5qzn9BzWrTCLdfksk3X81MLafaSwVuqQkfN6KsscHptDgjgF8w0+3IklT9x4
+        j/mP9P39ZQzyK38MAAiCJGSynI2zzU7DcLX4j1MvZnWh2auXe961t1NLvtPkDNa9KNtTvFQh15V+n7f0
+        mteSXTGvldCa9Vf1ndWS9SjKZV0mZ7H2H5lZy7easqyXG5O/a10wuwyLzM6Uu/jQJx4GiRPPx/6GEdTv
+        rcWggm4+5S8GgPV3shtmXEH+eQoGAARBYjeeF8mGV1ichlLqBazW5Ktl/9rlrNU7TVmHCWbPu+pYK3pK
+        sPL3mN+GXVmpLbvKox27YnZr1rMgl3WakMlajzWyZq9cTt8vtURxGY7xvQL8rA7xyIjveMt/GPW7ajFw
+        Wley/B9dfxcGAARB4jyTk36hvujfwi8/S71wRRs/n5ofU+cf33edlsX6xEHZ+wuv/FUL2rEBHu09rvbo
+        wPrPact6TM1l7T8ws5xRqeT9Fn2XnVEHgdf41ySLR0r8xXvM30n/fqFdHbD8MQAgCBLH4Rfr4ZeWVV/k
+        +dfaki9a0ZChvsPPHdOEtftYLfwCtfDnxF/hV0eVf6uwy//qhR3YQI+OHoMWdmID5rZnPQuasw4fZrCc
+        12p3IPCc3sm/oyHf0EI8dOIj3vK3U7+TFldP7RK0/LkbMQAgCBJP8X7TXsqz/HKy1AtVNPCNevwj/c6f
+        ZcTFx/kyKsq/n0/5V777V0u/agAIr/wrDF7UudJVs9uzbhObsVZvpns+QaHu84jjVxx0pEzjX9wkHkox
+        Hc8pj9TvocFVUzqrxX+7zwDg3fRX8dE/9xgGAARB4iX8/H2zK/lRi/23h6gXqEjjx/H5KXR8N75/aSaK
+        oOVf7d1/W58BoF21AaCy/FVayv+aRV2ErmzI4q5s8ILOrHdBK9b+fTPLUgctai0izpE8xexo2Fw8tGIu
+        FqfBSt5uDbSUv3cAuBsDAIIgMZ7JSb/g3zWvvgjt9n9RijR+Xjwv/R7FzcjCTCSRKH/vAOAtf++7f2/5
+        +w4AwcrfqxsbKgxZ1I31dbdmbd81R//6BFbDef4Neka7IV080mIi6m37d43bqtGVn3XSXP6eAWAmBgAE
+        QWIx3t3PN1lcDTZRL0iRwj/e5xfK6VaYuO/0/XnKv8Zxf6r8vQNA4PL3/ei/ZvkP8in/wZXl34Us/6GL
+        u7OhS7qzaz16sKELu7HeU1ux1m+ZPPsuqLWLjAbn+C57xdUgRTzy6ixmp+EF+jaG1n+yf/n7HvevWf6P
+        beADQH/yZ1EwACAIUisxuxp0UF90lvi/CEWMWigt3kpjXaZmsr5z6ZJMVLVX/r7v/qvK/5rK8vcdAKqX
+        /3UePb2+6MmGzO/Guk9sznJejeoGwu8szpTn6+o6AvzrponbpEn/yR2ly//PG+7BAIAgSOzE8418TsPb
+        4itiyRciPbJebuQ5XY9fYY8qx0QXXvmrarH8qw0Aavlf/0WvSjd80Zv1L27P2r5jjtrmQc9ZJfkpg8RD
+        slbCBw/qtmhxxaQOQcq/agDwL38MAAiCxET4175mOA2Pqy803/m/8ERC8zeaeHbw17d3+9VR5R/Z0/3k
+        y987AJDlr/Iv/wo3Lu3DhszrzrpNyGXZI6N04SFH8pTauIaAxZXyHPn3a3DFxPDLn7tp5pXkz6VgAEAQ
+        JOJRX2j7mR2G9dSLjh78uDE/da8+bOjToqL8I3K6nyqcHf9y5V81APiXv1dfdpPqxi/6sL7T2rLmo9LI
+        x4E+l50x56f8nZ+BIh6uEY3ZmfIM/feG1u/T9uyPnvL3HQDU8vf76J+f7lcxAPiW/+Mb7sUAgCBI3cRs
+        bZBscSa/T73Y6MF3j7cZZ2Q9Z9TPj/kpQcu/2rv/6J3uF9ny7+Mpf69+7OZlXlcWdWAtx6STjws9TM7k
+        rRkuwwDx0I1IzE7D09TfpUVfjeVf/d1/9fLHAIAgSJ3E4mx4faTP5+e7+dt9rLDes3LJEqyvtJe/77v/
+        6J7uV1X+3gEgEuV/87Ir2C3C1aWdWZu3FfJxooszZQy/EJV4GIcdi9PwJPnzNej733ZhlL/vu39v+XsG
+        gFkYABAEqaXwTX7qi98E6gUmXLz4249XEuCSvJHnKf8ax/3DKX8xAAQofz2n+wUu/6oBQKb8b1nWn936
+        pdc1s7uztm+bycdN2BwNNltcye3EQ1o6Yq8L/bND6EOWv+9xf+3l//jG+9jNGAAQBIl6+HXN81Nu59/U
+        Rr24hIN/1M939CfapXkjpfbKP/wd/77lT+34D1z+fUOW/61fXslu87iKDZrRlbUaYyQfR+Fo7DL8wI/f
+        J1mTLhaPcE1RXA3/TP08LfpMaBvR8n8CAwCCINEOv8CK2WWYTL2ohIOf/sWP8feaiY/6Awmv/FW1WP7V
+        BoAA5V99APApf593/9XKv3IAqCp/7naubAAbUNwpopsFzc7k2aZhDZuKh3rQqAPDn6ifoUXvT9qEKP+q
+        AYAu/6rj/hXl7x0AriL/PgoGAARBpKI4UnqZbIZ91AtKOFqObVpvz+HXjir/+D3dz7/86Y/++3sHgGrl
+        7x0AKsqfu4P/88sBrP+09qzZyIhdVOhri6vhDeIhT8biSvkj8d9p0uuT1pEr/w1V5f/ExvsxACAIEoV4
+        rt9v+Jf6wnHB/4UkHDmjLmfdCrOIsgN/FeWfaKf7aS3/Gu/+fcr/jrKrPe5U3bZsAOsxoUXELijEL2CV
+        OiL11+IZUJkMV8rvqT+vRa/xavmvvV3Tpr9gp/tR5f8kBgAEQSKd7HyDUXEYFlIvIrL4Br+On5rJooOa
+        gpZ/tXf/8X26H33cnyp/3wHAW/6eAWD5QGEQu3F+34htFOSnCyr2Rh3FUyHJ7DI8RP05LXp+3Epz+Vd/
+        90+V/701yt87AAwg/24KBgAEQYKGfxSqvvP/hnoBkZJvYK3fT8cpfRK0l7/vu/9Ine4XeMe/t/y9A0BM
+        lH9ZRfkPZHepA4DXYHZ1UReW84r+wwJpVsOP/Op+nvIP85LW4Zd/8E1/vPyrBoAH2C0YABAE0R3PR/4p
+        DuqFQxb/Hv7uRfXnm/kiwVP+NY77h1P+YgAIUP6xerqf3vK/m1sxmN3x5UDWc0LLqH3PgBY9PmoZoPx9
+        j/uHU/6+7/4fYE9uwgCAIIjOeK/oZyihXjRk8Ev3tvvIxPrU6+v1y6u98g9/x79v+UfzdD9P+XsGAOq4
+        P1X+gyrL/+4V17B7hBvn9WOtx5jIx2k08fL/w5rbol/+qqcwACAIoifmfEMLz7enES8YMnJeT2Xdcc1+
+        aeGVv6oWy7/aABCg/KsPAD7l7/Puv1r5+3z0H+nyv2fFEHaviv/vfp+1Z5nDGpGP2Ujr/mELtfxvDVH+
+        VQMAXf706X5U+T+16UEMAAiChBd+vN9kvfQk9WKhFb+YD7+KX/3+lr5wUeWP0/3ky39wjfK/dyU3lN2n
+        umXBlaz1G9H9NCDi5U/s+K8YACrKHwMAgiDy4Vf1cxn+7f8CIYsf68c39YWvovxxul/FcX+q/FU6yt/r
+        WnbfiqGs76R2Udkb0O2D5t7yj+LpflT5P+0ZAK4mbxMFAwCC1PN0Gpt0ieJK+ZB6gZDR+r10XLtfh6Dl
+        X+3dP0738wq//O/3uI7dv+o6duPn/Vjz15qSj+lwdJUs/+rv/qnyp0/3qyp/7wDAy//pTb/DAIAgiLbk
+        Dmv4G8VpmEm9OGjFz+vv/FkmWWqgjfby9333j9P9vNTiD3LcP1j5P+BxPbunbAjrMi6HfHzL6DouV0f5
+        h9r0V/10P6r8uVtnYwBAECREzMMbN7G4UlZRLwxa5Y5JZb3wHf26eMq/xnH/cMpfDAAByj/RT/cLVP5V
+        A8C1VQOAT/lzD3rcwK4u7Br2BsEuQctfDABhl7/vu3/v6X7VP/r3lv9fNmMAQBAkRDKcjXLUF4Dd/i8I
+        Mtp+aCILDbSrvfIPf8e/b/nHw+l+9Ef/1cvfOwB4y987ANzAHlztdeuCAdKHBLq8n1N75U8c968aAB7C
+        AIAgSOCY8w3d1Sf/1/4vBlrxXf6dP8sgCw20C6/8VbVY/tUGgADlX30A8Cl/n3f/1cq/cgCoy/L3ffdf
+        Vf6/W32jx71l17KO72SRj39/VeUf6lz/qgGALn+50/1qlj8GAARBgsTsaniFxXXZGerFQIvsVxpjl39E
+        UOWP0/3kyz/Upj/58uceWn2T5589x7cinwcVOr/XjD28+pbIlr/Ejn//8udumz2QvK0UDAAIUk+iOBpe
+        ZbH+9iz1QqBF8zea4Dr+EVJR/jjdr+K4P1X+Kl3l7x0Awil/jzU3sYfX3MyumtqJPFWwk2/518HpflT5
+        P7P5YQwACIJUj8VpGGhxNThHvQho0eYDIy7sEyFBy7/au3+c7uels/z9dvx7y79qAAhW/l63sGtLe1fb
+        HNjp3Wzp8q/+7p8qf7nT/WqWPwYABEH8YnamDDZYDd9TLwAh5RtYh//G9lf39pnbnPUszWHd3NmevQkd
+        JphZ249MrM04I2v1TlPW4q00ljumCcsdneq5PHHOqMs9Fyzi+P/m/z9+NgP/hKPF22ms1XvpnoGn3XjF
+        87XFXaZker7IqNdM/Z9+aC9/33f/ON3PSy3+oMf9o1P+vxdunT+ANXs5lXV8J1T5+370T5V/qE1/1U/3
+        C7bj37/8vQPAIPq5TMAAgCAJHMWVPLSxy/AD9eQPxbPZTy0/qsjqAi95XsbtP1E8Fx3ihZ01snau6V6B
+        f7kR3wfBhwo+JHT81MK6FmRpOjTiKf8ax/0jX/6yp/tpK/+qASC88vcOANEs/0DH/cMv/5sry//3a29l
+        f1Ddu3RolMvf992/tvL3DgDe8scAgCCIJ/zJ7f0ec/rJHwy/uA9/R00VWW3gZd9pcoanZPm798zhdfdV
+        rlrxwaDl22me70HoOk0dCmZXXRUxcuUvBoCA5R/+jv/wyz+M0/2qlb/vcX+q/EPt+A9c/t4BwFv+3gGg
+        5nF/reXvxYtfiHb5Bz3uT5f/X7f8HgMAgtT3WFzJfcM95u/Z6V9Suzv9e0xv5jnU0HJs01p/Vx81+d5v
+        RGz7gcnzyUUfdSDQXv6qWiz/agOAT/l7B4AQ5e/z7r9a+ft89F+t/D0DQKTK3zsAhFv+lQOAWv4PRaz8
+        qwYAuvxDne7nHQACl7/vR//Vyx8DAILU85jtDdqnuy4tp57woTQbdXlEjnWHwsuQH15o/X66Z+Cgbkui
+        4YcP+KcZHcabWa/iXB3lXzUARLz8Pe/+a5Z/9QEgdPn7Hvf3lr93AIjF0/38y7/yuP9a3wHgtqoBQHP5
+        Vw0AZPlHYMe/f/lzt2MAQJD6GdPw32alu5KPUE/2UPi71Wie5sd/dseJFs/xc76/gLoN9UnWyMas7TgT
+        6+nO0Vf+qqry17vjX3v5y57r7/3onyp/la7y9w4AES3/au/+fco/Yqf7hdrxH175P7vlDxgAEKQ+RrE3
+        SlOf1GFd3tdT/j7HrCOFfztgp0kWz4Y9/pE49XeDdxho94HCehW3qDYAJNbpfjXL3zMAiPLXfbofWf5V
+        A0CN8q9x3D8y5e8dACo++g9d/r7H/b3l7x0AQp3uR5U/BgAEqYdRXA1SzA7DeupJHkrO6MiXP98Z3+rd
+        piwjDjbvxZqcUams86dZrP/ctpXlH+i4f0Xxc9rL3zsA1G75+w4Awcu/rk/3o4/7h1P+oTb9BS5/7wAg
+        X/7cHXMGk48rCgYABInzZI9K+l+zy7CIeoKHws+Nj1T585/Dz8HPfrV+HNOPNn71udbvGFnv4hZk+cfm
+        6X7RP9c/0HH/SJ7uF7r8fY/7h1P+3gGgovzDOd2PKv/ntvwRAwCC1JuwpIsUV8qH1JM7FH7xG74Zjypz
+        Gfy7Afh5+TiuHz25rzdh3T/LYQMXiAEgQPnjdL/Ax/3DK39VtMs/6HH/4OX/V5/yf1Yt/+e2YgBAkHoT
+        izPlWeqJHQo/5q+3/LsVZnk29FE/P6ZYDT97zoqwN/jKZDPsszgNO03O5K2KK3mbxWbYxf9/RkfKUT1f
+        klRbsl9uzDr/N4sNnN8xrPKvNgDgdD+d5V81ANDlH+p0v1Dl7/vRv7by9w4A15CPHQoGAASJ0/Cr/PFy
+        o57YwfCP6PXs9u8yNdNz6ID62bXsglrgeyyOlM8truT31P/7RbPT8Dtzfso1ZleDDtn5BmPusIa/SbIm
+        XSzuspDpZ036H7O1QTI/m0LJT+lpdhluMruSH1WHBpfqU/U+/9LsMBz3ux21LmtEI9b5E3UQmNcpvPL3
+        vPuvWf7VB4DQ5e/70b+3/L0DQCx9tW+g8o/30/2o8n9u6yMYABAk0WPKT2llsl56knpSB8N3m/eckUMW
+        eyh8Y1+dFb/V8K1avrPUQs5XnMn38GsdmK3m/xN3R60n23FZY4sjuR8fDtSBYKzFlbJKvW0/kbc9ijKH
+        80Egmw1e0Nmv/L0DQCTKH6f7Bd70V5en+1Hl/zcMAAiS2Ml5+bJG6pNX+nQ/fnnfcK7w192d7T2Nj/iZ
+        UeNosFlxGt5WC/Zu/m6c73UQv37Mhg8kFqehm9mV8lez01Ck/h7f1fi9oiTr5cas+6RcNmRRVw3l73vc
+        nyr/yJ/u51v+ON2vovy9A0C4p/tR5Y8BAEESOJ3GJl2iuAwLqCdzMHyDnuy1/XvNyPF8mx718yJN/Z2O
+        qaU5nhd+huPyVPHrxncmJ/1CsTfqaHYZ/ml2GBZbrIbz1O8eSTmvprI+Ba1E+XsHgNotf98BwFv+ngEg
+        UPkH/eifKH+c7leJKv+/bf0Tu3MuBgAEScioZTKMeiIHlW9gXaZp/1Y/fvGedh8rUd/Vr75T3sE/0s/I
+        N3SVOU4fr+HXauCHLyyOlGnhfk+DVq3eMrKrZ3cKUv5VA0DUyx+n+1WWv+xX+/oOANXKv/Ldf/Xyfx4D
+        AIIkZszOlCHUkzgUme/z5xv8onltfvWd/n7PhjpXcrt4+Fg/WmlpbXyZJT/ldnUAKo7WJwP8OgJdxjdj
+        Qxd1lyx/vaf7hSr/UJv+cLpfsPKnP/r3lv/z2/gAMIR8PFAwACBIHITvaFefsF/7P4FD4V+2QxW9P/4F
+        QPyb+KifoV+Dc+rw8pHZ0bB/fXinL5vMEamXm52Gp9VhYAN9/+nT7JVUdkVRW58BQGv543Q/b/lXDQB0
+        +dfN6X6+5e8ZANTyf37boxgAECSRwk9NU5+sS/yfvKHwjXt959KF74t/QQ/fIEj9DH0abFH/+RT/6Fv8
+        KkiwsKSLMhzJffjphmlWw48170992r1nYUMX9CAGAJ/yD3C6X83y9w4AON2v7k73o8qfuwsDAIIkTrwf
+        mdNP4ED4x/ihzvXn7/qjcSEfszN5tiU/ZVB9/ohfb8zDGzexOFMc6v0Z0TMJ+IWErnC3I8tf9nS/wOWv
+        Clr+MfTVvnF8ul/lR/8+5f93zwAwlFx7CgYABInhmJ0pg6knbjCZwxuGPN2vy5TMSL/rv6AOKhM8x/aR
+        iIVfyIgfHrC4fnuQuM/D1vGDTHb94t4hyl+8+xflX/O4f/Dyr6+n+9Usf+8AEOnT/ajy//u2xzAAIEgi
+        hB8b5qfHUU/cYHi5U6XP8R3+/Lr91H8Xpgv89D3LsIa54mYjUQi/xkCG0/C4xdXgMLEGYcl9rQkbNKtL
+        mOXvOwB4y98zAIQo//p6ul/45R/4dD9v+XsHgIryxwCAIIkQlnSRxZE8hXrSBtPmAyNZ/FzP6TksZ9Tl
+        5H8XnpSpZkfD5uIWI7UQ40jjpWaX4S8Wp+Ebek3k8DMFen/WOjLlHzOn+4VT/r7H/cMpf993/7Vzuh9V
+        /v/AAIAg8R+LM+UO6gkbDP9e/0Cb/jp/luE5NED9d7L4RW3MzpQe4qYidRC+sVIdBEY0dhl+oNZIVof3
+        MthNS/r6lb93AAi//ENt+sPpfsHKP9TpflT5/2P7nzEAIEg8h18JT31ySp3yx4/n9yylr/Hf9gMj+d/I
+        Mtt/c4Cfu47NfbETxdYgw+JKKaDWS1bzUWns2nk9cbpfwPKPrdP9fAeAivLn7sYAgCBxGs9H//xKcfQT
+        NhDquH/v2c0jssvfe0paijN1ROqvxa1EYiz8hdzzzYjE+snIGtGYDSzt7FP+3gGgfp3uJ8pfRZZ/jJzu
+        V+3d/3bfAeBacm0pGAAQJIbCr4VPPVGDoY77808Dmr0WgeP9zgbL+DcPipuHxHDSrGm/4qcOmnV+KyHf
+        F9BvalsN5a8KWv443S8y5e8dALSU/z+3P44BAEHiMYq9URr/2lvqiRoI39TXx++4f/ei7Aic4nfZGfWf
+        T/AvtBE3D4mT8K9KVtduTfX1lNftk+beASBE+eN0v4ry9w4A4e/411/+GAAQJE6jPiE/8X+CBsPfqfUo
+        rn6+P//SH71f4qO4kr/MHNaombhZSBympTXpl2Znik1dzwv+6yuj4/uZ7LZl3iGgovw9A0CI8sfpfrLl
+        H+p0P6L8PQNARflXDQD3zL2OXEsKBgAEiYHwb8SjnqDBtBuvVCv/TpMy1KGA/rOa8C+lcRqs/NLD4mYh
+        cR4lP6Wnura7a6y1hLZvm9mtS6/0efdfUf6+H/2rpR/0uD9O9/MfAKqVf+W7f7/y9xkAtJT/C9ufYPd8
+        jgEAQeInfOOfy7DU/8kZTM7r1U/56zDBTP45rcyuX53yXL4XSbhk5qc0MLsMk6l116rVGCO7ZUn/MDf9
+        aSt/7wBQ87g/Xf443Y8q/xd2YABAkLiKOT/lTurJGYjno3+fS/2211n+3svM4hK+CR11yORXEtTzJUMt
+        Xk/3DgFS5e8dAKjy9w4Awcu/cgDw2/Snr/yrBgC6/OPjdL/q5a9Syx8DQAKGqU/eydbGlxVYzckQH+Zb
+        zf8nli9o+JXdTDbDPurJGUh7n4/+23+ikH9GK8VlWMe/aljcHCTBY843dLfYf3uIeixo0eL1puzWJVdG
+        qPx9P/rXXv443a/6pj/PACDK/8UdT2IASIRMtWZeXmRXnlMtVJ1SMYgz1vQj7jzTtCKH+e7J1pa/FEtb
+        LWan4QXqiRmI56P/SJW/0zAz22r4rbgpSD2J55sGJQ85+aoYAqrKH6f7Rab8vQNAuOWPASABUjoq+3+L
+        bKa8IqtyliwViFf7i/OUW8Uye2Ia1rCpxfrr09QTMxB+ih8vf37hH+rfa2V2GN7tNDbpEnFTkHoW/uVC
+        ni9xIh4bWrQcbWS3Lx2gofy9A0DQ8hcDQI3yr3HcX5S/ZwAIv/yrvfsPq/y9A0D4O/6jV/7eAeB6cs0o
+        GABiKCVWc5MCu7KcKA9IHG9OFufWW1wp46gnZSCt3mnqKX/+pT56rutvzk/5Oy7ni/DHgNmV8h/qMaJF
+        mzcVdueXg4gBgCh/nO5XSbr8PQNA4E1/vuX/4o6n2L0YAOIvM61GQ0GecQtRGJB4Pswc1rCzxWr4mXpS
+        Uvi5/b1m5Hq+zjfcK/zxL44xO1PuEg85BPHE7DI85DkFlHjMhNJ+bIbnUECg8vd991+75e973D+c8vd9
+        9x+bp/vVLP8n2b/4ADAPA0BcxWpNuthtN00nigISkFvV3mbYRT0hA2n3scnz7r/l2Kbkvw/Javg2w5Hc
+        RzzkEKRaLM6G1xushu/Jx04IXT7IqSz/QMf9fcvfOwB4y993AKDLP9SO/1oo/6DH/b3l7x0Agpd/pE/3
+        o8r/XzsxAMRd3Dblb1RRQGLKc8iVeNbIxp53/mGf7seHjWENc8XDDUHImF0Nr5Ddk1Kh98Q2AcvfOwAE
+        L//KAcBv01/w8lcFLf+qAYAu/7o/3c+3/H0HAC2n+1Hl/6+dT2MAiKe4HUqvIqtynioKSDxTVZ1cctfp
+        7zQ5g3UtyGKWMK7y57ms74jUy8XDDUGCxuxM6ZHuurSceiyFMrCoa4Dy9/3oX3v519fT/bzl7zsAeMvf
+        MwAELf+n2L8xAMRPiqxpjdx25QBVFJCYnnI0IZ+IgeSMTmW9ZuSwrJfD+HIfR8o0/g1x4uGGIJpicRq6
+        mayXniQfU0FkDmvEbpjbr3bKX+Omv9Cn+9VF+Yt3/4E2/Uns+Oeb/nzL3zsA3ECuDwUDQB0Fx/3rH/7u
+        v7VLbvd+t8IslqsOAdS/C8qR8jmu6Y+EG893CIRxOCBnZCq744tBdPmLAaBG+dc47i/K3zMAhF/+1d79
+        k+Uf36f7+ZY//+gfA0AcBcf965+/O9LIJ2EgLd9pylq/n07+u2DM9t8cwMf+iN4oroZX8jNHqMdYMPz0
+        wPtXXOtT/lXv/sMrf+8AEH75h9r0F5+n+/ke968o/3/v/Au7DwNAbCec4/4zX2nN9q4ayfZBzNu+xEqu
+        4RCn9tP3+Gl/7T6Wv9Iff8Hm3ywoHmoIoitml+Em9XEl/ZXCPT9pVUvl73vcP5zy9333L3+6X8Dyr3z3
+        71f+PgNA+OVffdOfb/lbPQPAjeSaUDAA1HLCO+5vZiePzmXswjGIE7u+tFdbQ37qXwuJj/9bvJkW5vf6
+        p/xRPNQQJCKx5Kc8Qj/Wgrtmeo/K8vcdAOjyT5zT/arK33cAqJ3yt+7CABCzCfe4/54Vw8iSgdj18/mv
+        2LIJN1Su4RQV9QSk8G/7yxwRxqY/Z/L7uMIfEo1YnCljyMdcENkjGnv2A5Dv/v02/QUvf1XQ8q8aAOjy
+        T8zT/ajyt+56ht2PASA2E85x/7KJN6tlcoQsGYhtP53dxmaMbOlZx4l2E/kEjJyUlfz67uKhhiARTUtr
+        0i/NDsNi+rEXWLu3M0KWf8RP9wtU/jF5up+3/L0DgLf8PQNA0PKv2vHvX/7/wQAQmwnnuP+sV9qwn85t
+        J8sF4sOJr2Z61rJQlUM8ASPCafjG7GpgEQ81BIlKvN8i+NuD5GMwiAEFXcIvf42b/urj6X5U+WMAiMHg
+        uH/9VrEfoL+rMfkk1IV/n4DTMFA81BAkquHXCJA9MyBreCN25+LBxHF/Uf6eASD88q/+7p8q/8Q83a9q
+        AHjGZwD4KwaAWEr4x/2Hk2UC8adiP8DTkqcBamF2Gf4pHmoIUivhjznqsRhMu7cs7HfqABC8/L0DQPjl
+        H2rTX2Kd7keVPwaAGEt4x/1vwXH/BMP3A0wZ2ZzlEk/CcCmOlMIkdcAUDzUEiXoyXMltjI6Uo9TjMZQB
+        0zrrKH/f4/7hlL/vu//EON2PKv+X+AAw/yby/qdgAIhicNwffPH9AH91RuZTALMzZXtmfkoD8VBDkKjH
+        8xXWTsM31OMxFH6Z4Otm9vEMAHVe/kGP+3vL3zsA1DzuT5e/7wBQW+XvHQD8y/+l3c9iAIiFhH/c/3Oy
+        PCAxbP8yjw2VuCAQhX9ZS6YjpbV4qCFI1KM4UnqF+yVBmcMbsRtn99NQ/qqg5V81ANDlX79O96PKn3sA
+        A0DdBsf9IRC+H2DBJ9exq53hbgi87Ax/MRYPNQSJevglgfnjjn48Bpc1vDG7eW7/6h/943S/qgEgaPmH
+        2vFfs/zzPAPAzeRaUDAARCHhHPf//I2O7NTxCezMt59Bgju2exRz52ewB5xyX/KTZW/wFcofqc2Y81Ou
+        sbganKMej6Fkj7ic3Tr/Km3lj9P9BK3l7x0A/Ms/b/dzGADqMuEc95+en8W+2vYSKz86BuqJbYse8az9
+        Gw4jG+RszDKIJ2cFvnHwPnVY+Nievn+m1WgQDzUEiWrMDsPNaVbDj9RjMpRmL6ey2xdeXb38PQNA+OVf
+        /d0/Vf7163Q/T/mLAaCi/LkHMQDUTcL9fv/tSx4lSwISW9mkayofAx/bTexvjjR2ryOVXa8OBDc4L/d8
+        QvAvR1M2Sf13Po8XN8PlfpEox+xKvttiNZynSiOUnJFN2B2LBgUpf+8AEH75h9r0Vz9O96v+7t9b/hgA
+        6ijhHvdf/tlQshwg8X176FU2d0wH8nERVJ7pL+JhhyARj+IwPOy5wBRRGKHkvprG7loyWEf5+x73D6f8
+        fd/9J/bpfv4f/XO23X9jDy7AAFDrUcv/efLFOgh+3P+7Q6+R5QD1w+Gt/2El+Znk4yOQD+zKT4UvpXcT
+        Dz0EiVgynIbHqaLQosVrTdndS4eI8sfpfpEpf+8AoLX8bXswANR6imym3jjuD+Gq2A8go9Bu3Iv9AEgk
+        Y3Gk/I0qCS1avp7O7lk2VGP5q4KWf9UAQJc/TvcLVP7eAeAWco0oGAB0hh/3n2ZVDlIv0sHguD/48t0P
+        IAH7ARD9UR9DZlfKf6iC0KLVaBO7t+zayvLH6X4VA4C3/D0DQNDyD+90v6ryV4nyt+95HgNAbYUf9y/M
+        M5USL8xB4bg/+MN+AKROwsvfaRhOlYMWbd5Q2H3Lr9Ne/jjdT9Ba/t4BIGj5i3f/vPwxANRicNwfIgn7
+        AZBajfoGxuJMGUMVgxb8C37uX0GUv2cACL/8q7/7p8ofp/sFKn8MALUUHPeHaMB+AKRWMjnpFxZXyjiq
+        FLToMDaTPbDy+hDl7x0Awi//UJv+6vfpflXljwGgVoPj/hBN2A+ARDOdxiZdYnEaPqUKQYtO72azB1fd
+        oLP8fY/7h1P+vu/+6+fpfr7H/TEA1FJw3B+iDfsBkGgle1TS/6rv/AuoMtCiy7gc9rvVN/qUP073i0z5
+        ewcAveWPASDKwXF/qA3YD4BEOsaRxkvVF/0Z/iWgVbcPm3vK/yHN5a8KWv5VAwBd/jjdT7b8OQwAUQqO
+        +0Ntwn4AJFJpaW18mfrOfx5VAlr0+LilWvw3VSt/nO5XMQB4y98zAAQt/8ie7hcIBoAoJPzj/n9SX8xf
+        BwhL2aTB5OMqBOwHQCpjtjZIVl/sl/q/+GvVe0Ib+fLH6X6C1vL3DgBBy5/Y8U/BABDhhH/cf4j6Ij4K
+        IGzfHnqZzR3Tnnx8BYX9AIiaps7fNFTf+a+iXvy16DexHXtoNS//m2qWv2cACL/8q7/7p8ofp/vJlj+H
+        ASDCCe+4fwf23aER6ov4qwC6HN76IvYDINIxD2/cxOwybKBe+LXo/1lHjeXvHQDCL/9Qm/5wup+3/DEA
+        1HrCPe5/ZNuL7OTRVwAiYtuih8nHWjDYD1B/k51vMCqu5G3Ui74WA6Z2jlD5+x73D6f8fd/943Q/LTAA
+        RCjhHvffseT37OSRlwEiqmziQPLxFgL2A9SzKLYGGeqL+27/F3stMvINbGBhN6L8cbpfZMrfOwBEq/w5
+        DAARSLjH/VdMHqy+WI8AiLjvDjrZ3DHtyMddUNgPUG9iGdYw1+L67UHqxT6UjPyGbHBx98ryx+l+wcq/
+        6rh/LJU/hwEgAgnvuH97duKgQ32xHgYQFV9teR77ARAyGa7kNkZHylHqhT4UXv5Dp/ciyx+n+1UMAN7y
+        9wwAQcu/dk73CwQDgM6Efdx/6/Pqi3Q+QFRtW/QA+RgMZprNtM9tMz1aZDf9CRLPPxxNnZnWX5+mXuRD
+        yRzWiF03s0945Y/T/QSt5e8dAIKWv8SOfwoGAB0J/7j/g+qLsxOgVpRNHEA+DqH+GeVIZ81dDckX+FCy
+        hjdiN8zu6y3/Gsf9Rfl7BoDwy7/6u3+q/HG6X6TKn8MAEGbCP+4/kJ064gCoNScOvsTmjmlLPh6h/hhp
+        T2e5xAu7FlkjGrOb5l4hUf7eASD88g+16Q+n+3nLHwNAnSS84/7tWPlBq/qibAOoVUe2PCO9HwASxzD1
+        nX8z4kVdi+wRl7Nb5l0ZwfL3Pe4fTvn7vvvH6X56YAAII+Ed989kR7c+o74Y5wHUie2L7iUfm5DYbI6m
+        LDPMj/2bjUxlty0YEKD8cbpfZMrfOwDUdvlzGAAkUzgs9zfqk2q//5MslB2L72WnvvoPQJ1aPvFK8vEJ
+        icnqKX/6BT2UnFeasNsXDfR+q58of5zuF6z8q477x0P5cxgAJOO2mf5DPdGCWTH5KvXF1wpQ504ceIHN
+        HdOGfJxCYvmnI41lEC/kWuS+msbuXDIoYPmH3PEfqfLH6X6i/FURLn8OA4BEJltb/nKKXTlOPdkC+fyN
+        tqz84D/VF99/AcSEI5ufYCWuDPLxConhWWca+SKuRYvXmrK7vhgcfvnjdD9Ba/l7B4Cg5R+BHf8UDAAS
+        KbQpA6gnWyCe4/5bnmCnv3oRIKbsWHgn+ZiF+PeUown5Aq5Fy9eN7O5lQ6rKv8Zxf1H+ngEg/PKv/u6f
+        Kn+c7hft8ucwAEikyKa8SD3hAtm5+E71xfafADFp+cQryMctxCe36lEd5d96jInd++VQyfL3DgDhl3+o
+        TX843c9b/hgA6jxum+ld6olHWTG5v/oi+w+AmFV+4Dk2d0xr8vEL8YWX/8PO8Mu/zRtmdl/ZtREuf9/j
+        /uGUv++7f5zuFw0YACSiPtE+9H/iBfLd3r+oL7LPA8S0b3Y+wQ6sehDi2L6VD7BnJnQiX7S1aPeWhd23
+        /Log5Y/T/SJT/t4BIFbKn8MAIBG12DUPAOUH+ADwHABA1JQffpb9dWp38gVbiw7vZLL7V1zvKf/KAcBv
+        01/w8lcFLf+qAYAuf5zuV1flz2EAkIha7NoHgH1Ps9PqkxMAIBpOHHyG/XliF/LFWotO72WzB1YGL3+c
+        7lcxAHjL3zMABC3/2DzdLxAMABIpsikfUGVPKd/3pPokfQYAIOLKDz7N/vBpR/KFWosu43LYg6tu0Ff+
+        ON1P0Fr+3gEgaPlHccc/BQOARGQGgJP7nmBnDv8FACDi/lPUh3yR1qLbR83V8vcWf2X51zjuL8rfMwCE
+        X/7V3/1T5Y/T/eqq/DkMABJx25VxVNlTyvf9WX2iPgUAEFGL1txJvkBr0WN8y8rilyt/7wAQfvmH2vSH
+        0/285Y8BIGZTZDO9T5U9pXzfY+qT9UkAgIi6+f1c8gU6lN7/bROl8vc97h9O+fu++8fpfrUJA4BEpAaA
+        vY+oT9bHAQAiZv3m+8gX51D6TmrHHlztd8y/RvnjdL/IlL93AIj18ucwAEikyG56jyp7SvneP6pPWH4Y
+        AAAgMt6cO4B8cQ6m/2cdqpV/5QDgt+kvePmrgpZ/1QBAlz9O94u18ucwAEhEbgD4vfqEfRQAIGKe/kzu
+        gj8DCjprKn+c7lcxAHjL3zMABC3/+DrdLxAMABKRuRTwyT0Ps7OH/gQAEDEPfNyafHGm8Hf+95QNYfeW
+        Da3EL/d733LuOnZ/pevZA9wK7gb2oMeNHr/zuMnjIY+bPR5ecYvXSnVgWHmrj9s8/rDq9kp/rKQOD6sr
+        qMNDJXV4WMPd7fGYxz0ef17L3evx+Nr7Kj2x7v5KT657QFCHh/UV1OGhkjo8bOAeruGZjdzvPf668Q+V
+        nt30x0rPbXpEUAeJzV7Pb1YHCY/H2N+5LZw6RFRShwhu6xMeL3g86fGix1Me/6pj9865nnzsUDAASAwA
+        5Xt+pz5h/wgAEDEPT9A+AABElNMwUFRh/YzbbnqHKntK+Z4H1SfsHwAAIuaFgvCv/AegR6YjpbWowvoZ
+        qQFg9/3qE5YfBgAAiIyJiwaSL84AUWX99elOY5MuEVVYP1NkM46lyp5Svvs+9Qn7EABAxBzefQ/LGtaI
+        fpEGiBKzK/kzUYP1N3IDwD3qE5YfBgAAiJwnJrUlX6QBosXsaNhf1GD9jduuvE2VPeXk7rvZuUMPAABE
+        1Latt7GcYY3JF2qAKJguKrB+R2oA2HWn+mS9DwAg4t6b15d6oQaIqHRX8hHTsIZNRQXW77htyltU2VPK
+        d97Bzh28FwAg4s6qXirqTL5oA0SE0/CNYm/UUdQfohb7m/5FH0j5ztvUJ+rdAABRcVb13tzeLAebAiHi
+        UlZlORtni+pDeNRilxgAblGfpHcCAETVti03sCcntWLNMAiATmZXyg61/P/Yz5r0P6L2kIoU2pQ3qLKn
+        lO+8WX1y8sMAAADRd2zPLaxk2ZXsldIu7IVp7djzU9pCAvn962Z2jyM1pLusl59XnIa3tVKLf6Tiavhn
+        s6tBhySWdJGoO8Q/MgPAyR03su8P3gYAAKBb2fj2ZNf4K7A3OCcqC4lk3HbTGOoOp5zccYO6aLcCAADo
+        hgGgjiMzAJTvuE5dtJsBAAB0KxvfjuwafxgAopQim2k0dYdTyndcqy7aTQAAALphAKjjyA0AQ9RF44cB
+        AAAA9Ckb35bsGn8YAKKUIrvpdeoOp5Rvv4Z9f+B6AAAA3TAA1HGkBoBtg9RFuxYAAEC3svFtyK7xhwEg
+        SnHnGUdRdzjl5LaB7IcDQwEAAHTDAFDHkRkAyrcNUBftGgAAAN3Kxrcmu8YfBoAoRb1zX/O/swPxDgCD
+        AQAAdMMAUMdR71yJAeBKddH4YQAAAAB9ysa3IrvGHwaAKKUoT3mVusMp5Vv7q4t2NQAAgG4YAOo4brvy
+        CnWHU8q39lMX7SoAAADdysa3JLvGHwaAKEVmADi5pS/7cf+VAAAAumEAqOOoA8BI6g6nnNzSW120KwAA
+        AHQrG9+C7Bp/GACiFJkBoHxLL3XR+gEAAOiGAaCOU2QzvUzd4ZTyLT3UResDAACgW9n45mTX+MMAEKVI
+        DQCbu6uLxg8DAAAA6IMBoI5TaDeNoO5wSvnmruqi9QQAANCtbHwu2TX+MABEKTIDwMnNXdhP+7sDAADo
+        tnx8Dtk1/jAARClum2k4dYdTTm7urC5at7j3w95u7MyOLuzMdgAAqCtfftiM7Bp/462G74usaY1i2TRn
+        04Zjx3a6RFRrfERmACjf1JH9tK9LXDq2oj1bMymXzR2VQf5uAAAAeoyzKj+785Rt6v9+s9hu7CpqNnZT
+        ZDcN8/8lAinf1EEt085x5cT6DmzJu1nk7wMAABAthXmm0hKXkinqNvYiNQBsbKeWKv8UID4cWNSaTXeZ
+        yd8FAAAg2qba08uL7cZBonJjK0U2JZ+60ZTyjW3VYuWfAsS+A4u1fckEAABAVFnTfixyKFeJ2o2duO2K
+        i7zBhPKNbdRy5Z8CxLbyDeo7/3y88wcAgBhhVb6ealfSRPXGRuQGgNbs/L62MW/pOBzzBwCA2OK2mz4R
+        1RsbKbIpTuqGUso3tlQLlg8Bsevb1dquLQ0AAFCbPGcJ2JQMUb91H6kBYEMLtWRbxbQN07LJ2w4AAFD3
+        TC+I+q37qDfIUfMG0srX57Lze9UhIIbNf8NC3nYAAIA6Z1Nmi/qt+6g3SGIAyFFLtnnM+nFXc1bsxOY/
+        AACITdNspn2ifus+bptip24kpXx9M7Vo+RAQm75Zpf3j/1VT72K7v/wnAACAbrNf03rqeep3on7rPnID
+        QDa7sLdZzNo7J5O83ZRTR+ewn3/YCgAAoMuF79ezWa9o+2ZD1SFRv3Uft91kI24gqXx9plq0WTFr3WRt
+        x/9L8rPZj6c3kAsJAAAg44eTc8muIdmMS0T91n2kBoB1GWrR8iEgNi1+m77d/ha8c5U6sW0mFxIAAEDG
+        if3jyK6hqJ07RtRv3afIZsqjbiSlfJ1FLdrYdH6PhU130bfb37qSx8hFBAAAkLV/9Ytk11DcNuVhUb91
+        H7kBwKyWbWw6od426jZTDqx9XV20LQAAALqtLb6V7BpKYZ65g6jfuo/bbnqJupGU8rUmdmFPbDowj77N
+        lPJDJeQiAgAAyLjww0Y2d3RrsmtqsKb9ONna8peifus+cgOAkf28JzZtmmoib7O/YkcG++HUWnIhAQAA
+        ZPx4agHZNRR3nmmNqN7YiNtm+g91Qynla9LVsm0ak5a+q20A+PzNPuz8Ob4BkF5MAAAArU5+9QnZNRS3
+        XRknqjc2ot4oq/+NDKR8TZpatk1i0ozh9G32t2raQ+QiAgAAyDq8wUZ2DUUdAB4X1RsbUW+UxADAyzY1
+        5pze2IS8vZS9y4eTiwgAACBr08x7yK6huB1KL1G9sZEim/Jv6oZSYnUAOLSwKXl7KZvn3MHOHXcAAADo
+        Nv/tdmTX+ONfBTzZ2vgyUb2xEZkB4ESMDgBbCrUPALsW38jOHH4cAABAl1MHHtP8BXTuPGWbqN3Yiduu
+        /Iu6sZRYHQDKPjCSt5dybNP96sL9GQAAQJev1mv/+F99s/2pqN3YidQAsDo2B4DZr2g7A6DElcFOH3qM
+        XEgAAAAZ2+dfR3YNxW1T/iZqN3aiTiUvUjeWEosDwLkt2jcALhjbjlxEAAAAWaun9CW7huJ2mK4WtRs7
+        ifcB4MgXaeRtpaya0kddNP4JAAAAgD4L39G2AdDDmtZI1G7spMhueoG8sYRYHAC2lWjfALh9/rXkIgIA
+        AMg4fehRz2FlqmsI+0XlxlZkBoDvYnAAWPmx9g2AX62/m1xIAAAAGcc230f2TABuUbmxFbfN9E/ixpJi
+        cQD4fJTG7wBwmtmpA4+oC/coAACALrsWX092DYVfcl9UbmxFagBYFVsDwA/btW8AnPdGK3IRAQAAZK0t
+        vILsGorbbrpBVG5sRb1h/6BuMCXWBoDjZdoHgBUTe7Czh/8EAACg2+L3O5BdQymwNTWJyo2txPMAsHOG
+        9g2AW+cMZmcPqQsHAACg04zhWWTX1GBVvmYs6SJRubGVIpvp7+SNJny7MrYGgNUT0snbSTm06nZyEQEA
+        AGR8s+0BsmdoxjmibmMvbrvpefpG1xRrA8CCMdo2AHIn9z6sLtwjAAAAuuxdeiPZMxS3zTRc1G3sJV4H
+        gPM7U1mxg76d/uaMak4uIgAAgKwNxf3JrqEUOox3irqNvfDrE1M3mhJLAwC/LdRtpJR90pVcRAAAAFlL
+        P+pEdg2lMM+SK+o29hKvA8CeOdo3AG6eMUBdtD8CAADoNuuVZmTX+JtqVU5brUkXi7qNvag38jn/Gx1I
+        LA0A6yZp3wB4YPnN5CICAADIOLHzQbJnaMYvRNXGZtQbqX0AWJFGlnFdWPy29g2AfMGohQQAAJDB31BS
+        PUOymUaLqo3NFNmUZ8kbToiVAeDC7lRW4qJvoz/+Uc3ZQ38AAADQbfOMq8iuoRTazQ+Jqo3NyAwA38TI
+        AFC+RvsGQL5Zg1pEAAAAWXxTOdU1lMI8cwdRtbEZt8P8V+qGU2JlANg/X/sGwA3FV6iL9nsAAADd+Gnl
+        VNfUYE37cbK15S9F1cZm4nEA2DhV+wbAvUuvJxcRAABAxsm9UhsAV4uajd0U2UzP0De+plgZAL5410je
+        Pso32+4hFxIAAEDGoVW3kD1DspneFzUbu5EaAJbHxgAwY7i2MwD4lzWcPcQvAQwAAKDP1jlXk11DcduV
+        x0XNxm6K8kx/oW485esYGABOb9C+AXDx++3JRQQAAJC1YmI3smsobofSS9Rs7MZtNz1N3XhKLAwAhxZq
+        3wC4rrAPuYgAAACy5r3Rkuwaf+Osys+TrY0vEzUbu4m3AWBLofYNgLsXDVEX7SEAAABdTu9/kBU7zWTX
+        1GTaKio2tlOYZ3qK/gVqioUB4MsPtG8APL7pDnIhAQAAZBxZdyvZMySb8qmo2NiO1ABQVvcDwOyR2jYA
+        Ts/PYGcO8ksA/w4AAECXHfMGkl1D4V+yJyo2tqPe2Cf9b3wgdT0AnNusfQPgwrFtyEUEAACQtXpKD7Jr
+        KIU2ZYCo2NiOemPjZgA48kUaebsoq6f0JBcRAABA1sKxrcmuoUxzNm0oKja247YpT1C/AKWuB4BtxdrP
+        ANgxf6C6aPwQAAAAQPjOHHyAlbgsZNcQ9ot6jf3IDADH63gAWPGx9jMAjqy/hVxIAAAAGcc33Ub2TABu
+        Ua+xH361IuIXINX1ADD3NW0bAPmpGqf3308uJAAAgIxdiwaTXROAVdRr7EdqAPiy7gaAH7Zr3wDIL9Zw
+        9tADAAAAuq0t6EV2DaUwz3S9qNfYT5FN+TP1S1DqcgA4XqZ9AFg5sSs7py4aAACAXkveb0d2DaXA1tQk
+        6jX2Ey8DwM5S7RsAt825Ul20+wEAAHQrHZ5Jdo2/KXblOGNJF4l6jf0U2Y2PUb8I5diyuhsAVk/QvgHw
+        8OobyEUEAACQ8e3W28meIdmU2aJa4yPxMgDMH61tAyB3au895EICAADI2Lf0GrJnaKZholrjI26b6VH6
+        F6mprgaAn3amsmIHfZv8zX09V120+wAAAHTbWNyH7BpKocN4p6jW+Ig6sfyJ+kUodTUAfLtS+wbAsgmd
+        yEUEAACQtfTD9mTXUKY7m+aIao2PxMMAsGe29g2AW2b0IxcRAABA1qxXssmuIZyyWpMuFtUaHymymR4h
+        fhFSXQ0A6yZp3wB4cPlQddHuBQAA0KV8p8wGQOMSUavxE5kB4OjSuhkAFr2lfQNg+a47yIUEAACQcXD5
+        ELJnSDbTaFGr8RO3Xfkj+csQ6mIAuLA7lZW46Nvjj39Uc+7gPQAAALptLu1Ldg3JZvydqNX4SawPAOVr
+        tW8AXPZRe3IRAQAAZJV90pHsGkqJ3dxe1Gr8pNim/IH6ZSh1MQDsn6d9A+DG4t7kIgIAAMiaMyqH7Joa
+        rGk/Tra2/KWo1fhJrA8AG6do3wC4b+kgddHuBgAA0OXUbokNgHbjalGp8RX1xv++5i9Dq4sB4It3tG8A
+        /G7rLeRCAgAAyDi8cijZMzTTe6JS4yvqjdc+AHxR+wPAjGHaBoAZIzLJRQQAAJC1bfYVZNeQbMqfRaXG
+        V9w25WHyFyLU9gBweoP2DYBL3m+rLtpdAAAAuq34tDPZNZQCm9JTVGp8RWYAOFLLA8ChhWnk7aCsK+xB
+        LiIAAICseW80J7vG3zir8vNka+PLRKXGVwrt5oeoX4pS2wPAlkLtGwD3LBqgLtqdAAAAupzZdzsrdprJ
+        rvFXkGfcIuo0/sIvXkD9UpTaHgC+HGckbwfl6003kAsJAAAg4+jaa8meCeC/ok7jL1IDwJLaHQBmjdS2
+        AXB6voWdPUAvJAAAgIwd8/qTXRPAc6JO4y9uu+lB4hci1eYAcHaz9g2AC8e2UhftDgAAAN1Wf9aF7BpK
+        oU0ZIOo0/iIzAHxViwMAHzao20BZM6UruYgAAACyFr7dkuwayjRn04aiTuMvbpvpAeqXotTmALCtWPsl
+        gHfO608uIgAAgIyzB25nJS4L2TX+ptlM+0SVxmdidQBY8bH2MwCOrhuqLtztAAAAuhzfeB3ZM6Q8pVBU
+        aXym2G66n/zFCLU5AMx9TdsGQH6qxpn9t5ELCQAAIGP3wivJrgnAKqo0PiM1ACyunQHgh23aNwDOf7M5
+        uYgAAACy1hV0I7uGZrpOVGl8psim3Ef/YjXV1gBw/EvtGwBXTerEvj94GwAAgG5L3mtNdg2l1JpuFFUa
+        n5EZAA7X0gCws1T7BsDtc/qQiwgAACCrdHgG2TX+ptiV44wlXSSqND7jdij3Ur8cpbYGgNWfaN8AeGTV
+        IHXRbgUAANDluy0SGwBtymxRo/EbqQFgUe0MAPPHaNsAyJ3ecxO5kAAAADL2fSGxAdCm5Isajd8U25R7
+        yF+OUBsDwE87Ulmxg/77/c19PYdcRAAAAFkbi7qTXUOyme4QNRq/ibUB4JsV2s8AWD6hvbpotwAAAOi2
+        9MM2ZNdQpjub5ogajd8UOcx3U78cpTYGgD2ztW8A3DKjJ7mIAAAAsmaNzCK7hnDKak26WNRo/MZtM95F
+        /HKk2hgA1k3UvgHw0PIB5CICAADIKN9xPdkzlEK7slhUaHxHZgA4tDD6A8CiN7VvADy583p14W4GAADQ
+        5WDZVWTP0EyviwqN7xQ6jHfSv2BN0R4Azu9uwkqc9N/tb/ar2eQiAgAAyNpS2oPsGpLN+DtRofGdWBoA
+        TqzRvgFw2Udt1EXjpwACAADoUza+Hdk1lBK7ub2o0PgOP5WB+gUp0R4A9s/TvgFwU0k3chEBAABkzRnV
+        jOyamhr/MNna8peiQuM7sTQAbJyifQPg/qX9yUUEAACQcXq39g2ABXnGVaI+4z9uh+l26pekRHsA+OId
+        7RsAT2wboi7cjQAAALocXim1AfA9UZ/xH5kB4OCC6A0AF3anstJh2gaAGSMyyUUEAACQtW1WT7JraMbH
+        RH3Gf9x25Tb6l6wpmgPAqfXaNwB+Ma4VuYgAAACyVn7anuwaktPcQ9Rn/CdWBoCDC9PIv5OyvrAz+/7A
+        DQAAALrNG5NDdo2/cVbl51kjUn8t6jP+U5yn3Er9opRoDgBbCrRvANy7qC+5iAAAADLO7r2OFTvMZNf4
+        K8gzbhHVmRiJlQHgy3FG8u+kfLNxkLpw1wMAAOhydM0AsmcobptpgqjOxIj6S93i/0sGcmB+9AaAWS9r
+        2wA4Pd/Czu2nFxIAAEDGzs97kV1DsinPiupMjLjzzDeTvyghWgPA2U3aNwAueqcFuYgAAACyVk/uQHYN
+        yaFcJaozMRILA8BXS7RvAFwzpaO6aNcBAADotvDt5mTXUGZajQZRnYmRYrv5JuoXpURrANhWrH0D4K55
+        vchFBAAAkHFu/7WsxKVtA2Ch3bhX1GbiJBYGgOUfaR8Ajq8bQC4kAACAjK83XE32DKXQrhSI2kycFOUZ
+        b6R+WUq0BoC5r2rbAFjsNLOz+4aqC3ctAACALrsXSG0A/LeozcSJ1AAwrylZ4Hr8sC2V/Lso89/MJRcR
+        AABA1rppHcmuoZmuE7WZOHHbTTfQv2xN0RgAjn2pfQPgqknt2Q/qogEAAOi15N0WZNdQiu3GdFGbiROZ
+        AYB/Xz9V4nrsKNV+/H/HnO7qog0FAADQrXR4Btk1/gqtyjHGki4StZk4KcwzXU/9wpRoDACrJmgfAI6u
+        6k8uIgAAgIwTm6U2AM4SlZlYkRoAPo/8ADB/tMYNgA6Fnd0zWF24IQAAALrsX9Kb7BqSTckXlZlY4Rsb
+        yF+YEOkB4KcdqZ5ip/4uf5+PbkYuIgAAgKyN7k5k11DcDtPtojITK3U5AHyzQvsGwOUT2pCLCAAAIGvp
+        B63IrqEU56U3E5WZWHHnKddSvzAl0gPA7llNyb+HsnVGF3XRrgEAANBt5shMsmtqsJpOWq1JF4vKTKzI
+        DAD7IjwArJ2ofQPg4eV9yUUEAACQcXK71AbAxaIuEy/qLzeU+qUp++ZGdgBY+Ja2DYDc6Z1XqwvHNwEC
+        AACE7+Ay7RsA3XnGUaIuEy/FeeYh1C9NieQAcH53E1bipP8ef7NfzSIXEQAAQNaW6Z3JrqG47aYHRV0m
+        XupqADixpgn5d1C+/KgVuYgAAACyysa3JruGUpxnaSfqMvFSZDdfQ/3SlEgOAPs+134GwOaSTuqiDQIA
+        ANBtzmtZZNfU1PiHsWM7XSLqMvEiMwDsjeAAsOEz7RsADyztSS4iAACAjDO7BpA9Q3HblZWiKhMzbptx
+        MPWLUyI5ACwZq30DYPnWK8mFBAAAkPHVij5kz1DcNtO7oioTM1IDwJzIDAAXdqey0nxtA8DMERnqog0E
+        AADQbdss7RsAi+zGx0RVJmaK7cZB9C9eU6QGgFPrtW8A/GJcC3IRAQAAZK38r/YNgEVOcw9RlYmZuhgA
+        Di7UvgFwQ2EHchEBAABkzRvTjOwawoVZI1J/LaoyMVNkMw0kfnFSpAaAzQXaNwDuXdRdXTR+ESAAAIDw
+        nd07QPMX0Lnt6ZtFTSZu6mIAWPa+kfz5lG839SMXEgAAQMaxNVIbACeImkzcuB2mq6lfnhKpAWDmCPrn
+        +5ueb1EXbQAAAIBuO+d2IbuGZFOeFTWZuJEZAPbM1j8AnN2kfQPgondyyUUEAACQtXpyG7JrKG6bcqWo
+        ycRNoU0ZQP3ylEgMAF8t0b4BcO2UtuQiAgAAyFr4dg7ZNZSZVqNB1GTipsihXEX98pRIDABbi7VvANw9
+        v4u6aFcBAADo8v3+K1mJy0x2jb9Cu3GvqMjETm0PAMs/0r4B8Ot1vcmFBAAAkPH1eu1fAVxoVwpERSZ2
+        +HEO6g6gRGIAmPOqtisAljjN7Pu9/dkP6tQGAACgx5752jcAuu3Kv0RFJnZkBoDds/QNAD9sTSV/LmXB
+        m83Yj+qiAQAA6LV+aluyayjuPOVaUZGJnUKHuT91B1D0DgDHlmnfALh6YmtyEQEAAGQteTeX7BpKsd2Y
+        LioysVObA8COUu0bAHfO6aguWn8AAADdSodZyK7xV2hVjjGWdJGoyMROsc18BXUnUPQOAKs+0T4AHFvV
+        g1xEAAAAGSc2ad8A6LYpM0U9Jn6kBoCZ+gaAeaO1bQDk12o+t7sfuZAAAAAy9i+W2gDoEvWY+ClyGPtR
+        dwJFzwDw0w7tGwA/H52lLtoVAAAAum10S2wAdJhuF/WY+KmtAeCbFdo3AK6Y0JJcRAAAAFlLP2hOdg3F
+        7TRmi3pM/BTajH2pO4GiZwDYPUv7ALBtRntyEQEAAGTNfDmD7JoarKaTVmvSxaIeEz8yA8AuHQPA2k+1
+        bwD8qqyrumh8DwAAAED4Tm2T2gC4SFRj/Uixw9SHuiMoegaAhW9q2wDIndnRh1xIAAAAGYeWSmwAzDOO
+        EtVYPyI1AMwIbwA4v7sJK3HSP9Pf7Fcz1UXrCwAAoNuWEokNgDbTA6Ia60eKbKbe1B1BCXcAOLFa+/H/
+        so+ak4sIAAAgq+xjiQ2AjvS2ohrrR9wOpRd1R1DCHQD2zdU+AGxWpzVqEQEAAGTNeS2T7Bp/462G78eO
+        7XSJqMb6EZkBYGeYA8CGz7RvADy4tLO6aHwPAAAAQPjO7OxF9gzFbVdWilqsPymwKT2pO4MS7gCwZKyR
+        /HmUk1t7kgsJAAAg48hymSsAmt4RtVh/IjUAlMoPABd2p7LSfPrn+ePnalKLCAAAIGv7zHZk11DcNtOj
+        ohbrT4qc5h7UnUEJZwA4tb4J+bMoS8flqIvWGwAAQLeV/21Bdg3FbTd3F7VYfxLtAeDgAu0bADcWtiYX
+        EQAAQNa80Vlk1xAuFFnTfiVqsf6ETz3EnUEKZwDYPE37BsD9izqSiwgAACDj3J5enm+Wpbqmhrz0TaIS
+        61dkBoAdYQwAy97XvgHwxMZu6sL1AgAA0OXYaqkNgJ+ISqxfKXwpvRt1h1DCGQBmjqB/lr/SYWZyEQEA
+        AGTtnCOxAdBh/quoxPoVqQFgutwAcHZTKvlzKIvfaaYuGj8FEAAAQJ81kyQ2ANqUK0Ul1q8U241dqTuE
+        IjsAfLVE+wbAdVNbkosIAAAga+Fb2WTXUEpcSoqoxPqVaA4AW4u0bwDcM78duYgAAAAyftjXUy11M9k1
+        NdjS94g6rH8pesnYhbxTCLIDwPIPtW8A/GYdvwRwDwAAAF14n1A9Q3HnmaaJOqx/ieYAMOcVE/lz/JU4
+        zeyHvd3JhQQAAJDBP1Gmuobitiv/EnVY/1JoN3Wm7hTK9hLtA8D3W7VvAFz4Vhb7aX93AAAA3dZP1b4B
+        sNCuDBV1WP9Skqd0ou4UiswAcHSZ9g2AayY1JxcRAABA1pJ3tW8ALLSamoo6rH+J1gDArxlA/QzKrjlt
+        yEUEAACQxa8rQ3VNTcajjCVdJOqw/kW9EzrWvFNoMgPAqk+0bwA8vqqjumjdAAAAdCnf1InsGYrbpswU
+        VVg/o94J2geAYu0DwLzXtW0A5Ndq/n53V3IhAQAAZBxYrH0DYJFNcYoqrJ8pzDN3IO8YgtYB4Mcd2jcA
+        zhudSS4iAACArE3ulmTXUNx25TZRhfUzMgPANo0DwNfLtW8AXDkhh/20rysAAIBuS8c1I7uG4nYas0UV
+        1s+U2M3tqTuGonUA2D1T+wbA7TNakYsIAAAga+bLFrJrarCaTlqtSReLKqyficYAsHai9ksAHylrTy4i
+        AACAjNNbtV8BULVQ1GD9TXGepR1xx5C0DgAL39R+BsDZHZ3UhesCAACgy+GlbcmeCeA1UYP1N1IDQFHo
+        AeD8rlRW4tB2BsCcVzPIRQQAAJC1pVhiA6DN9ICowfobtyO9LXXnULQMACdWa98AWPZxM3XROgMAAOjG
+        O4XqGgrvPlGD9TcyA8BWDQPA3rnaNwBuKW5BLiIAAICsOa9lkF3jb7zV8P3YsZ0uETVYf1OQZ2xD3UEU
+        LQPAhsnaNwAe+qINuYgAAAAy+H4yqmdILykrRAXW7xQ7jK3JO4igZQBYMlb7BsDTWzuoC8c3AQIAAITv
+        SJn2DYBuu+kdUYH1O1IDgDudLP0KF3ansun59H/rj5+rSS0iAACArO0zpDYAPioqsH7HnWdqRd1BlFAD
+        wMl1Tcj/jrJ0XLa6aB0BAAB0WzlB+wbAwpfSu4kKrN+J5ABwYIH2MwA2FuaSiwgAACBr3mhtGwBVF4qs
+        ab8SFVi/U+hQWhJ3ECnUALB5mvYNgAcW8UsA0wsJAACg1fe7Oni+WZbqmhry0jeJ+kNkBoAtIQaAZe9p
+        3wBYvrGtunB8EyAAAED4jq9qQ/YMxW03fSLqDynJM7eg7iRKqAFg5gj6v/NXOsxMLiIAAICsXXNakF1D
+        spmeEfWHSA0AhYEHgDObUsn/hrL4nSxyEQEAAGStmSixAdBh7i/qDylymJtTdxIl2ABweLH2DYDrp+So
+        i8a/BRAAAECfhW9lkl1DKXEpKaL+kEgNAFvd2i8BvHcevwQwvZAAAABa/bi3PS91smtqSt8tqg/hKcyz
+        5NJ3VE3BBoDlH2rfAPjtWn4JYHoxAQAAtOJ9QvUMzTRVVB/CIzMAbA4yAMx5hf5v/PFJ7ce97dSFAwAA
+        0Id/okx1DcmmvCiqD+GZ7myaQ95RhM0F9ADw/VbtGwAXvpXBzquLBgAAoNf6KRIbAO3KUFF9CE8kBoCj
+        y7RvAFwzKVtdtLYAAAC6LXlH+wbAqXYlTVQfwlOcl96MuqMogQaA7dO1bwDcPSeXXEQAAABZ/LoyVNfU
+        YE0/ImoPqYjbacwm7yxCoAFg1XjtGwC/XtWKXEQAAAAZ5Rtbkz0TwAxRe0hFZAaATdPoAWDe6ybyz/vj
+        12r+YXdrdeHaAAAA6HJgUXOya0g2xSlqD6nINJspi7yzCNQA8OMO7RsA5422kIsIAAAga1Oh9g2AxXnK
+        raL2kIroHQC+Xq59A+Cq/2aRiwgAACBr2TjtGwB514naQypS4lIyqTuLQg0Au2Zp3wC4Y0aOumj8EAAA
+        AIA+M1/WtgFwqj293GpNuljUHlIRvQPAmk+1bwA8WtacXEQAAAAZp7e0InsmgIWi8hDfuG1KBnFnkagB
+        YMEb2geAczv4GQD0YgIAAGh1+AuJDYB5yqui8hDfSA0AU6sPAOd3pbISh7YzAOa+xjcA8gEAAABAn63F
+        EhsA7ab7ReUhvilwmS3UHUbxHwC+W6V9A+DyjzPJRQQAAJBV9pH2DYAFecY2ovIQ38gMABv9BoC9c7Rv
+        ANxawi8B3BIAAEC3Oa9q2wA43mr4fuzYTpeIykN8U2KzmKk7jeI/AKz/LJ38c5TDS/kZAPRCAgAAaHVu
+        u/ZvACywK8tF3SH+0TMALBmrfQPgmS0t2Pm96uIBAADocPTLXLJnSDbjWFF3iH+K8jMV8k4jbJxSNQBc
+        2J3KpufTf87frJfN6qLxAQAAAECf7aXZZNfQTH8SdYf4p8DW1ETfaTX5DgAn1zUh/wyl7IMMdm5TCwAA
+        AF3ObmrOVn6ifQNg4Uvp3UTdIf6RGQA2+AwAB+ZrPwNgy+Rs9u2yXAAAAF3KV+Z6vleG6poarMr5SSON
+        l4q6Q/xTak03knccwXcA4KcEUn+Gsnd6M3IhAQAAZJSvzvV8syzVNYSNouoQKuEOAEvf07YBcLrTzI7M
+        zyEXEgAAQMaRJTlk15BspvGi6hAqxXZjOnnHEXwHgBkj6D/jb85Ii7pofAAAAADQZ9esLLJrSDbTM6Lq
+        ECpSA8Bn3gHgzCbtGwC/fC+DXEQAAAAZ3y3LZWsnat8AWGwzXyGqDqFSaDU1pe44SsUAcHix9g2AGydm
+        kQsJAAAgo3xFDlv4psYNgKoCqzlZVB1CRWYA4Ff+4wPAVrf2SwDvLuZnANCLCQAAoNWp1TmsxEl3TU3p
+        u0XNIYEy1a6k0XdeTRUDQNkH2jYA8oU6/Dk/A4BeTAAAAK2OLdP+DYBFdtNUUXNIoIQzAMx+hf73/mYN
+        N7Nvl9ILCQAAIGPPbIkNgHbTC6LmkEApsZqb0HdeTXwA+H5rKvnvKMvGWth36sQGAACg1/rPMsiuoRTn
+        mYeImkMCRWoAmJzOji7VvgFwx5zr2I/77wcAANDlp/13sCXvaN8AyD/dFjWHBIrbkZFK3XkUPgBsn659
+        A+DxDY+zn79+FgAAQJ8j97HSYXTX1GBNPyIqDgkW2QFg5XiNVwAclsNO7yUWEQAAQNKZHdeRXUMpzDOV
+        iopDgmWqNfNy6g6krJuUzj4fZSL/nb+5o7uy88fohQQAAJDxVVkfsmsCcIiKQ4Kl1NGkMXHnkdZ8qu3d
+        P7dy4iByEQEAAGRtKW5Jdg2lOE+5VVQcEiwyA8DyD7UPADvm3UEuIgAAgJTjT7Fl75vJrqFMs5myRMUh
+        wVJkTWtE3YGUJWO1DwBH1jxCLyQAAICMIw+wmS/TXVODNe0EY0kXiYpDgkVmAJj3urbj/yWuLHZy91/V
+        hQMAANDn3O4byK6hFNqUBaLekFCZ5mzakLoTKTNHaBsAZr/Wkf10hF5IAAAAGcdW9SW7hpSnvCrqDQkV
+        mQGgyEH8/whffnIVuYgAAACydsxsS3YNyabcJ+oNCZWZVqOBvBN12Dx9KLtw9FEAAAB9jjzCln+k/QqA
+        xQ5ja1FvSKhEYwDYVsK/AyALAABAt4WjtZ0BUGBvcG6+Nel/RL0hoVLiUlKoO1KPwwv5AJAJAACgy9eL
+        M1mpS+sAoCwX1YZoSTQGgBMrM8iFBAAAkHFgZgYr1rj/zG1X3hbVhmhJgdWcTN2R4Zo1UmGnVmMAAAAA
+        /XYUaP8K4CKb6RFRbYiWRHoAWDZOYSfK+AAAAACgz9rxEhsA7cauotoQLZmcn9mAuiPDtblAIRcRAABA
+        1pI3NF4C2KqcnzTSeKmoNkRLSq3ZvyXvzDAdnG8mFxEAAEDGN0sy2Mx8bQNAYZ6yQdQaojWRHgC+XY4B
+        AAAA9Ds0O4OVODQOAHbjx6LWEK0pHJb7G+rODEfpMIWdWctPAaQXEwAAQKudhRIbAPNMfxG1hmhNJAeA
+        L95VWPlyPgAAAADos/6/EhsAbeYrRK0hWjPZ2vgy6s4Mx7aZvdm57QPY2W0AAAA6bOnFlrytcQOgip/R
+        JmoN0ZrIDQBm9s3mJ9jPx58GAADQ5cKhm1mJk+qamgptTXeJSkNkMmtE6q+pO1TWjJdbsbP76YUEAACQ
+        cXLzlWTXUArzTFNEpSEyidQAMP/tXuzCMXohAQAAZBxY1InsGprpBVFpiEyKrGm/ou9QOWumDiEXEQAA
+        QNaGqZlk19DM14hKQ2QSqQFgz6K71UV7CgAAQJ9jv2dLxprIrqGUWM1NRKUhMuGXTqTuUFlfb3iMXkgA
+        AAAZh29lpfl01/grsDf9StQZIptIDAClw5uzM3v5wj0JAACgy5ntV5NdQynMM5WKOkNkM99q/j/qTpXx
+        +Zhu7MJReiEBAABkfLWsM9k1FLdNsYs6Q2QTiQFg5aRB5CICAADI2uJuRnZNALeIOkNkUzoq+3+JO1TK
+        zvm3k4sIAAAg5dgjbNn7EhsAXUqmqDNENpOtLX9J3akydpe2ZqfWtAUAANDl3IbmbOYIumtqsKadYCzp
+        IlFniGz0DgDFDoUdnKWw75aaAAAAdDmx3Eh2DcVtN80XVYaEk7FjO11C3bFalbrM7JvF9EICAADIODQv
+        newaituuvCKqDAknegeAhaPN5CICAADI2lqkfQAosin3iSpDwsl8a9L/kHesRms+wgAAAAD6nVhmZMs/
+        1H4IoNhhbC2qDAknegeA7VNx/B8AAPQ7tdLI5ryq7QyAAnuDc7y/RJUh4WTy5KRfUHeuFsUOMztQigEA
+        AAD0O7lC4vj/S0qZqDEk3OgZAEpdCju+kF5IAAAAGV8tlNoA+LaoMSTcWK1JF1N3rhbzX8O7fwAAiIwd
+        xTIbAE2PiBpDwo2eAWDlhxgAAAAgApaZ2KoJ2jcAFr1k7CJqDAk3/CpK5J2rwbZpWax8RXMAAABdTq/J
+        YfNep7umBqtynn+PjagxJNzoGQC+Xnsd+/n4EwAAALpcOPKoZ2M51TX+CvOUDaLCEL2h7mAtvt93L7mQ
+        AAAAMk7tuIfsGUqh3fixqC9Eb6g7OJSZI8zqoj1WYxEBAABkHS67luwaittuelrUF6I31B0cStlHrchF
+        BAAAkLWlpA/ZNSSHsZ+oL0RvxlmVn8k7OYgds3qRiwgAACBr6bi2ZNdQJudnNhD1hehNOAPA0ZVDyEUE
+        AACQceHo42y6K4PsGn+Ftqa7RHUhkYh6p17wv5NDObP7LnIhAQAAZJzefT/ZMxS33fiZqC4kEuHnVFJ3
+        dCDTXQr7+difyIUEAACQcXTlDWTXUNw20z9FdSGRSJHVdJK6owNZ+n4uuYgAAACyts/qR3YNzXyNqC4k
+        Eim0m9bSdzRtS0k3chEBAABkLR/fnuwaituRkSqqC4lECm3KG9QdHciayR3YwS8GAQAA6FY6PJPsmhqs
+        aYdFbSGRSrHD1Ie8swEAAGKE226aLmoLiVS83wdgXE3d4QAAALFAHQBsoraQSKbIaexSZKPvdAAAgLrm
+        dpiuFpWFRDrqADCbutMBAADqlDX9yNixnS4RdYVEOsV2Y/oHdtNP5J0PAABQR9x20/OiqpBohd/J1J0P
+        AABQF9z29M3zreb/EzWFRCuTJyf9Qr3D3f4LAAAAUOusaSfceaZWoqKQaIdPWoV2pYBcDAAAgFpQaFWO
+        Fb1k7CKqCamtWK1JFxflmf6iLsIp/0UBAACIMjfflyYqCamLlDqaNC6ym14oylPWEQsEAAAQEVPsynG3
+        TfmoyGnuISoIiZUUDsv9TUGesY3bbu4OAAAQCYV2U+dSa7qRX5RO1A2CIAiCIAiCIAiCIAiCIAiCIAiC
+        IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
+        IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
+        IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
+        IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCxHSSkv4fvcRd
+        0VhU1mQAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACQAAAAjCAYAAAD8BaggAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA6OSURBVFhHhZgJWFbVuse/nCIEFQScxfSUlZ201DRzwinN
+        0DrladAGvbfufSpPWdZB7SQ5owYGIqKCgAwyzzKjiMzDh/CJxiQgU4jM8DH/zrs/pOO9nfvcl2ex9t7f
+        Wnv91/8d11b1Ab3SBqUfBoae9NLW0cxAf7c87oGhx3JLlzTt4H2f8rPyXKbqxnTLv85O6Qd09/3SKcM7
+        HjZluraji77mVpkvE+X3R0X1sKe/v1/324C8ube/S97XJde9uqas3N/XQ1tTM91t8lpl4YdN6QTu4D76
+        BFWP3GkFUJfAUPYnjxvatTpQSlOGDYKXf0r7A6D2wYmKtGg7Hk7sp7W3k7buDoHSywNtEw3dzULK4HVS
+        6lUuujrjcMYOq2M/8sUP3/Dlrs/Z9/3XOJ08QrS/F4XqDOprK3XrKSCUvvFBG50tQq2yXqf0/5YhrcL7
+        4E2XbLNTRivaUIC19HQIxb3SeiitLcPV25kDR6y46HKK3KRoyjXp9HbU0tdeC22/wYNKGguzyQjzw83e
+        BhvrPQQH+JCVmS4gZGVl8Yfs1NfJ+CEmHhGV6EpU0agbrNtFezsNHa06XXfLhJKKYgL8vTlvf4L0qGC0
+        dwvoLc6jKjGUkgA3MmysyT68H/Xxw2gcbSn2dKE2LoyeO2poqiMnMYpTNgeJi42kpa2ZdmF9iLHe/odM
+        PCIqxUa6utvlclCfnaJvRRSLSklJxt3ZifzEBLoL8tHeSOJBwGWqzjuSfWAPsZ+8x50dn3B761YyP3iP
+        hPffJXTbu4R8+gnxVt+RYnuCqphw+u7+SnygN2ccTlJUcltW7Kelo/13YI+KqkUUpKhFB0grihq0YW5n
+        5+Hu4EB1ejYNcVfp8Qun28GVyp3fkfHGm2Ru2kTNRx/x25r11Fuso+S1DeRbbiJl82YSLaVt3sLVdz/i
+        ytZP0Nieoin5GpW5abhfOENsfJSA6adnYNCRHhWVYrZd0trbxQ11XtJPQWIyEc6uNGfl0xR7nboL3hTt
+        /om8v/4HRZvep+bNrVRZ/oWK1WtoWbuWhpUrdddF6zdQsHEz2essyVy1ibTVbxK9fAORb7yNi4Ct8Pel
+        KT8Xf7cLpGWk6kziD4D6BMzQn6K++spyPE/Y0Zd7hzrfCO47+5Czcx83PviMnPe2k7xyPaWyQIXFRqoE
+        QPHmVeSsf4WM5YsoefMtci02kLzQAs36LUTOWULWije4Mu9VEmS83XMv8cDbj051HqftTvKgs0UHqLm5
+        WRd2dIDoVTTZS3N/uwSuLsIjgiiMT6A5KJomBw/KvzvKldffJ3brdtK/3Ak+npR+8QWZy9aSv2Y1ocvn
+        kLVtPWnrVpL86gpSl71G4AuvkLT5XXA4y/VNb3Ft1ToSX1qG5i/b8F29CW1MIgnBAVwWb/zfhq2iTTCK
+        mhrFltKrC7B3PUV3eTEVtmep/eYQuZt3cPWtbUR/9xUUpsp2ykC8LOPTTwm3WEnCtg34r1tA6po1xC9Y
+        ju/zS8j4/BsaIoPou3UDitKxWTSHsJfmEz93EZ7PzMf/rx+KC7dz6MRB8jU3H0IRAx8YEEDNciU+3iIs
+        2QY5E3Y1kKabaRR9b03Jls9Qr3qb7A92gMQc+qpkcI0QWgd5uSTv/BKnFfMJ37SGpFUb8Hp6Eakff01r
+        aBRFuYnUNeZTmh8GWeGot23BbawJEXMW4m3xGjeD/IiLC8XDw+13MD0S5VU0KQzB3eYa9tr9QM29PDRe
+        51F/8hm3xChzl6xH8+F2KM0TR6yROFIp0x9IYmqDnDxi/nM77q8sweP5pcRa7qDTN05eVs3VvESii2Ko
+        uC+sNqkJWvcKATNn4Dv9KTwXvorN22/RU1uBrc0R6upkgyKKHUnqEB2KPcWkxOHibk9HWR7J1lYkb7RE
+        Ix6iXmxB2gZLkqx20V+SIyw1yNROtFXCVKuECU0BflveI+CdHbT6xKFNL6K6sJSi+rsUNWhkaBGHNy/E
+        euxj+E+dyCXjCewb9gRO8n6tWo2XkxNZWVk6QIqoZJ+6VOEuEfamRNX6yEASP91OksUqbi5dyZ3l6wh9
+        Zi4h4lHRfxM7qqoWIFp6fmtDWynhv7KMtuw0SmMTqc0rknRSTua1LO7mCpjaGmyWL+b4FBO8jcfhNXIk
+        7nqGOBiacMh8NnecXMiNjsXPz08HRhGVJA0qhf6zLk7UqdMpdnQg8c3NqJdbULDwZfKWvELaymWES3NZ
+        tpyA7Z9BfpGA6qahtFzSVxkVRRpuFWi4qdaQdj2DvroWKLmH4+ubOGQyntMjhhM5bgwXVCoCDI1wNZrE
+        z5NmEve33dTniSPZ29Pd3U1fX58SGCUvStv5kxVdjVWk7P071y3WUr14OaVz5lC4ZhERS54idN1LuC39
+        M27LFuO95R2ar8Vzv6iAnIKb5JeXcz01g4LMHBpv3REwpTi+s4mdRqM4YqDCy2gkCWaG+Asg/9GjcR1r
+        xDEx8HOvW4qP1LJ//346OhQkwlCP2LSS2f/7h2/paq4m7uudxC5cTMW8lymd/TSpCwTMgunEb3gZtxdm
+        Ya2vx9HZz2D3wTv8diePW2WlxGRkkF/4q6gqSaemC1/8F18/Zc6haSY4merhM3YEvgJGaUEG+lzUN8De
+        WJhb+irU17Nnzx6p6aSGUgD1PSxJdu6WoCcMXfnqC/wWLOCmgCoQhtRL5hP13Cw8TUxwHT8Zp/FPYvPU
+        ixT6+ZMvyVaTmUHqtWuEBAeiTkshLzGRVNeLOG1+my+H63HOaCIhRmb4PzaCkFGPEzzaAK/RhlwyMcPx
+        hbnisA18+62QoRR0CqABpc4QRHu+/4qB2rskWe/Fa9kS0peuIP35ucTMmEnQhKk4Dx9D4Ix5nJ0+n55L
+        EVTfyKJSoyEvIpymgjzu5mSRnhBHhLc3xYnXqQ2KwtnCEhuDybjrTyLMYCLRhmb4DdcnaJwRl2WDAatX
+        ispqsLKyklqtd9CG6BafF5p+OWJNY0Emt12duLR+LTGLlxLx5LN46BnjbjiJX/QnYm/+Alq3UEi/TUZE
+        ApqkFLhTCOpMUlzOkx4UyG1RX3pMPJrIBNriUjm/zBJbQ3PchpsRNXoKAY8JoNFjOK//OIVffU57fh4n
+        T558JDD2CiBBF+rtRlaYP/djwzm3YS2XnpuLh/FU3PRMCZ41j8NTZ1Ht4k6rlCNlKRkUpuTQWyJBsqIM
+        2xVL+HbuC5QFBFIQE4s6OZnau6Xcy8jmQdAVoiy34qQaT4yBOVFPmOIpqrQ31KP9vAM3w0MJDAzUqUth
+        SaUrOeTYkJ+VgqfDCSnEMjklgM5Mn42LwSQ8DadySFhqDQ+guTSX6OQwYlOi6KqUeHRHytr1r3Fw2hSs
+        p5iz7+k/cz8qBrVUh5n5ydxvkrynlUAaGoSP2SwSDJ8kwWAqXgZG+K9cDCmx+J7+BbUESEUGI7Wu1u2n
+        6l4Zx63/LkGpiGMb12Nr/jRuJk9ybpQZAYskU3s5kp8vu80PpaZV4tC9Cs6s3YiV2MNJE1NOC5snJ8zg
+        yIsL6Eq7RseDQmrvSdqol+RZV0L8sy8SozeZcL2J+M6YTd7BfeKRxfx84EeqqpQc+TC5Ksl/sJTsxcvt
+        HIXJ8WScdRDXnsNZs5lcGjsNx4lT+XzuNIoyfam+n0LXb9k4rrPgqMkknCZN49xYM9xHmXBhlDE/jx2P
+        q+y+3NsW2iVa34oiYt1CIk0nEKs/gcSZ8zg+yZza2AhyhKGIkEBaW6U4FFE8TaU4W4PUt8p5rPhOARfk
+        tEDpbXy2fsgBcXMb1ePYG4zn2Lw/8eWCKdRcdWPPitkcn2DMudFjOS1e421gRuL4WcSPm47nSH3cTMeR
+        8s4q+uytKNrxOsEzjQgYNozECeacEyYvCLO0NfLjsf0U3MrXgVFEZ9RKed8qVPWJ2vq7O7kitqKOj6Qm
+        MpRza9biMeM5zj9hgrOxGfseU/Gj8UhOzxjPGQlykZIo/fSN8VSNxls1gjDVE8SPGEPCKH2iRw3jykgV
+        ITIuVvq0CZPInL+YY9NmQUYOmSnX8QgLlrPf4KFCESV96ADpQpISHQd6aW1p4IzdYe6lSlHu5Ym18RR8
+        zZ/HTjWK0KkzcTEah+PIEVzW08dDFgt4YgxhkizjJMYk6ptyXQClDh9N3sjR3JJEWjV1OnkTJ5I4fQa2
+        xiZ0+/vTU1jIP/b/SJPOUAZFUZdWqx1UWWun5BGlphVva217gEaTTYCHMw0ZKfQGh3N48p84bWSOs+Fk
+        DgoIlzEmBJpN45KeAS5y76M3khBDAaaAG2ZA7LAxpOubkWc6gzhRd+jEKfjMnUev9yXIzeT0T/+guKSM
+        5h4JhrK+4u4KmEG3F4zdXcKT8sWgX87v7Y2Cu0dqlGRCLp6lLU0qRYk7HhvfxmHOAo5ONOeggTEHVHpc
+        koUCJxvjYzRcXHkUfuPGEWY6lRDxTj9jczxMp3N5zov4rloN8TFim79yZu/3ugpB29GpA6OIAuRfRX6P
+        JLV+4alL+Rqh6FP5dDB4OIuODMHx5FFSrkh0rquiMDyY6APWurLiwJPPSQkxmdPjVeJlKtyMRwjA8Zw1
+        nYzt5Fk4LF6B+7aPUV900Z1gNQmROB+zprxAirxe5ZOJ2KxywBBTGQKjiERqASPHWwZ6hKAO3eeXnh5F
+        n3ItnteqbcMnyIcT9se5cSOezqpymjMyqfENofjnn4n92BLPlc9ydt4sAjasIXPXt5SeOUdT0g36q6vJ
+        uB7PiZOH8PFzp6W1XpaUDYuttjcqx3cBIoCUHDYkqsGHCsJH279EsfVuAa0pLMDT04NTJ47h5eyMOi5B
+        iisJetXlEvzuSdaW6lFKj5aCArLDr+DleIYTBw4SFhrMrVsFug3q3q37bqP0Sqf8+5/y+/eh/0uG6hRF
+        FF1XVlaSmprK5cuXOXXqFLt372bXrl26tnfvXuzs7AgODiY3N5eKigoahQklAg+J8o6h+0dVNST/L6D2
+        9nbdS/6dKHFDEWUB5eXKuCEDfRTEkCiBb2iOIn8cA/8Ep+AkpjP366oAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACQAAAAjCAYAAAD8BaggAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA6OSURBVFhHhZgJWFbVuse/nCIEFQScxfSUlZ201DRzwinN
+        0DrladAGvbfufSpPWdZB7SQ5owYGIqKCgAwyzzKjiMzDh/CJxiQgU4jM8DH/zrs/pOO9nfvcl2ex9t7f
+        Wnv91/8d11b1Ab3SBqUfBoae9NLW0cxAf7c87oGhx3JLlzTt4H2f8rPyXKbqxnTLv85O6Qd09/3SKcM7
+        HjZluraji77mVpkvE+X3R0X1sKe/v1/324C8ube/S97XJde9uqas3N/XQ1tTM91t8lpl4YdN6QTu4D76
+        BFWP3GkFUJfAUPYnjxvatTpQSlOGDYKXf0r7A6D2wYmKtGg7Hk7sp7W3k7buDoHSywNtEw3dzULK4HVS
+        6lUuujrjcMYOq2M/8sUP3/Dlrs/Z9/3XOJ08QrS/F4XqDOprK3XrKSCUvvFBG50tQq2yXqf0/5YhrcL7
+        4E2XbLNTRivaUIC19HQIxb3SeiitLcPV25kDR6y46HKK3KRoyjXp9HbU0tdeC22/wYNKGguzyQjzw83e
+        BhvrPQQH+JCVmS4gZGVl8Yfs1NfJ+CEmHhGV6EpU0agbrNtFezsNHa06XXfLhJKKYgL8vTlvf4L0qGC0
+        dwvoLc6jKjGUkgA3MmysyT68H/Xxw2gcbSn2dKE2LoyeO2poqiMnMYpTNgeJi42kpa2ZdmF9iLHe/odM
+        PCIqxUa6utvlclCfnaJvRRSLSklJxt3ZifzEBLoL8tHeSOJBwGWqzjuSfWAPsZ+8x50dn3B761YyP3iP
+        hPffJXTbu4R8+gnxVt+RYnuCqphw+u7+SnygN2ccTlJUcltW7Kelo/13YI+KqkUUpKhFB0grihq0YW5n
+        5+Hu4EB1ejYNcVfp8Qun28GVyp3fkfHGm2Ru2kTNRx/x25r11Fuso+S1DeRbbiJl82YSLaVt3sLVdz/i
+        ytZP0Nieoin5GpW5abhfOENsfJSA6adnYNCRHhWVYrZd0trbxQ11XtJPQWIyEc6uNGfl0xR7nboL3hTt
+        /om8v/4HRZvep+bNrVRZ/oWK1WtoWbuWhpUrdddF6zdQsHEz2essyVy1ibTVbxK9fAORb7yNi4Ct8Pel
+        KT8Xf7cLpGWk6kziD4D6BMzQn6K++spyPE/Y0Zd7hzrfCO47+5Czcx83PviMnPe2k7xyPaWyQIXFRqoE
+        QPHmVeSsf4WM5YsoefMtci02kLzQAs36LUTOWULWije4Mu9VEmS83XMv8cDbj051HqftTvKgs0UHqLm5
+        WRd2dIDoVTTZS3N/uwSuLsIjgiiMT6A5KJomBw/KvzvKldffJ3brdtK/3Ak+npR+8QWZy9aSv2Y1ocvn
+        kLVtPWnrVpL86gpSl71G4AuvkLT5XXA4y/VNb3Ft1ToSX1qG5i/b8F29CW1MIgnBAVwWb/zfhq2iTTCK
+        mhrFltKrC7B3PUV3eTEVtmep/eYQuZt3cPWtbUR/9xUUpsp2ykC8LOPTTwm3WEnCtg34r1tA6po1xC9Y
+        ju/zS8j4/BsaIoPou3UDitKxWTSHsJfmEz93EZ7PzMf/rx+KC7dz6MRB8jU3H0IRAx8YEEDNciU+3iIs
+        2QY5E3Y1kKabaRR9b03Jls9Qr3qb7A92gMQc+qpkcI0QWgd5uSTv/BKnFfMJ37SGpFUb8Hp6Eakff01r
+        aBRFuYnUNeZTmh8GWeGot23BbawJEXMW4m3xGjeD/IiLC8XDw+13MD0S5VU0KQzB3eYa9tr9QM29PDRe
+        51F/8hm3xChzl6xH8+F2KM0TR6yROFIp0x9IYmqDnDxi/nM77q8sweP5pcRa7qDTN05eVs3VvESii2Ko
+        uC+sNqkJWvcKATNn4Dv9KTwXvorN22/RU1uBrc0R6upkgyKKHUnqEB2KPcWkxOHibk9HWR7J1lYkb7RE
+        Ix6iXmxB2gZLkqx20V+SIyw1yNROtFXCVKuECU0BflveI+CdHbT6xKFNL6K6sJSi+rsUNWhkaBGHNy/E
+        euxj+E+dyCXjCewb9gRO8n6tWo2XkxNZWVk6QIqoZJ+6VOEuEfamRNX6yEASP91OksUqbi5dyZ3l6wh9
+        Zi4h4lHRfxM7qqoWIFp6fmtDWynhv7KMtuw0SmMTqc0rknRSTua1LO7mCpjaGmyWL+b4FBO8jcfhNXIk
+        7nqGOBiacMh8NnecXMiNjsXPz08HRhGVJA0qhf6zLk7UqdMpdnQg8c3NqJdbULDwZfKWvELaymWES3NZ
+        tpyA7Z9BfpGA6qahtFzSVxkVRRpuFWi4qdaQdj2DvroWKLmH4+ubOGQyntMjhhM5bgwXVCoCDI1wNZrE
+        z5NmEve33dTniSPZ29Pd3U1fX58SGCUvStv5kxVdjVWk7P071y3WUr14OaVz5lC4ZhERS54idN1LuC39
+        M27LFuO95R2ar8Vzv6iAnIKb5JeXcz01g4LMHBpv3REwpTi+s4mdRqM4YqDCy2gkCWaG+Asg/9GjcR1r
+        xDEx8HOvW4qP1LJ//346OhQkwlCP2LSS2f/7h2/paq4m7uudxC5cTMW8lymd/TSpCwTMgunEb3gZtxdm
+        Ya2vx9HZz2D3wTv8diePW2WlxGRkkF/4q6gqSaemC1/8F18/Zc6haSY4merhM3YEvgJGaUEG+lzUN8De
+        WJhb+irU17Nnzx6p6aSGUgD1PSxJdu6WoCcMXfnqC/wWLOCmgCoQhtRL5hP13Cw8TUxwHT8Zp/FPYvPU
+        ixT6+ZMvyVaTmUHqtWuEBAeiTkshLzGRVNeLOG1+my+H63HOaCIhRmb4PzaCkFGPEzzaAK/RhlwyMcPx
+        hbnisA18+62QoRR0CqABpc4QRHu+/4qB2rskWe/Fa9kS0peuIP35ucTMmEnQhKk4Dx9D4Ix5nJ0+n55L
+        EVTfyKJSoyEvIpymgjzu5mSRnhBHhLc3xYnXqQ2KwtnCEhuDybjrTyLMYCLRhmb4DdcnaJwRl2WDAatX
+        ispqsLKyklqtd9CG6BafF5p+OWJNY0Emt12duLR+LTGLlxLx5LN46BnjbjiJX/QnYm/+Alq3UEi/TUZE
+        ApqkFLhTCOpMUlzOkx4UyG1RX3pMPJrIBNriUjm/zBJbQ3PchpsRNXoKAY8JoNFjOK//OIVffU57fh4n
+        T558JDD2CiBBF+rtRlaYP/djwzm3YS2XnpuLh/FU3PRMCZ41j8NTZ1Ht4k6rlCNlKRkUpuTQWyJBsqIM
+        2xVL+HbuC5QFBFIQE4s6OZnau6Xcy8jmQdAVoiy34qQaT4yBOVFPmOIpqrQ31KP9vAM3w0MJDAzUqUth
+        SaUrOeTYkJ+VgqfDCSnEMjklgM5Mn42LwSQ8DadySFhqDQ+guTSX6OQwYlOi6KqUeHRHytr1r3Fw2hSs
+        p5iz7+k/cz8qBrVUh5n5ydxvkrynlUAaGoSP2SwSDJ8kwWAqXgZG+K9cDCmx+J7+BbUESEUGI7Wu1u2n
+        6l4Zx63/LkGpiGMb12Nr/jRuJk9ybpQZAYskU3s5kp8vu80PpaZV4tC9Cs6s3YiV2MNJE1NOC5snJ8zg
+        yIsL6Eq7RseDQmrvSdqol+RZV0L8sy8SozeZcL2J+M6YTd7BfeKRxfx84EeqqpQc+TC5Ksl/sJTsxcvt
+        HIXJ8WScdRDXnsNZs5lcGjsNx4lT+XzuNIoyfam+n0LXb9k4rrPgqMkknCZN49xYM9xHmXBhlDE/jx2P
+        q+y+3NsW2iVa34oiYt1CIk0nEKs/gcSZ8zg+yZza2AhyhKGIkEBaW6U4FFE8TaU4W4PUt8p5rPhOARfk
+        tEDpbXy2fsgBcXMb1ePYG4zn2Lw/8eWCKdRcdWPPitkcn2DMudFjOS1e421gRuL4WcSPm47nSH3cTMeR
+        8s4q+uytKNrxOsEzjQgYNozECeacEyYvCLO0NfLjsf0U3MrXgVFEZ9RKed8qVPWJ2vq7O7kitqKOj6Qm
+        MpRza9biMeM5zj9hgrOxGfseU/Gj8UhOzxjPGQlykZIo/fSN8VSNxls1gjDVE8SPGEPCKH2iRw3jykgV
+        ITIuVvq0CZPInL+YY9NmQUYOmSnX8QgLlrPf4KFCESV96ADpQpISHQd6aW1p4IzdYe6lSlHu5Ym18RR8
+        zZ/HTjWK0KkzcTEah+PIEVzW08dDFgt4YgxhkizjJMYk6ptyXQClDh9N3sjR3JJEWjV1OnkTJ5I4fQa2
+        xiZ0+/vTU1jIP/b/SJPOUAZFUZdWqx1UWWun5BGlphVva217gEaTTYCHMw0ZKfQGh3N48p84bWSOs+Fk
+        DgoIlzEmBJpN45KeAS5y76M3khBDAaaAG2ZA7LAxpOubkWc6gzhRd+jEKfjMnUev9yXIzeT0T/+guKSM
+        5h4JhrK+4u4KmEG3F4zdXcKT8sWgX87v7Y2Cu0dqlGRCLp6lLU0qRYk7HhvfxmHOAo5ONOeggTEHVHpc
+        koUCJxvjYzRcXHkUfuPGEWY6lRDxTj9jczxMp3N5zov4rloN8TFim79yZu/3ugpB29GpA6OIAuRfRX6P
+        JLV+4alL+Rqh6FP5dDB4OIuODMHx5FFSrkh0rquiMDyY6APWurLiwJPPSQkxmdPjVeJlKtyMRwjA8Zw1
+        nYzt5Fk4LF6B+7aPUV900Z1gNQmROB+zprxAirxe5ZOJ2KxywBBTGQKjiERqASPHWwZ6hKAO3eeXnh5F
+        n3ItnteqbcMnyIcT9se5cSOezqpymjMyqfENofjnn4n92BLPlc9ydt4sAjasIXPXt5SeOUdT0g36q6vJ
+        uB7PiZOH8PFzp6W1XpaUDYuttjcqx3cBIoCUHDYkqsGHCsJH279EsfVuAa0pLMDT04NTJ47h5eyMOi5B
+        iisJetXlEvzuSdaW6lFKj5aCArLDr+DleIYTBw4SFhrMrVsFug3q3q37bqP0Sqf8+5/y+/eh/0uG6hRF
+        FF1XVlaSmprK5cuXOXXqFLt372bXrl26tnfvXuzs7AgODiY3N5eKigoahQklAg+J8o6h+0dVNST/L6D2
+        9nbdS/6dKHFDEWUB5eXKuCEDfRTEkCiBb2iOIn8cA/8Ep+AkpjP366oAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAABEeSURBVGhDrVl3fFZF1r4JpBtAkLKACygIi4sQEH6IIAqW
+        XRU+1lURRBBEemRZqYp0CKEHEoGIQCjSq/SErPQWcIFQkpBIDSWFtLeXZ88zc98k6+/7a8O8OXfunTtz
+        znlmzplz5sZABYvXd3Hp2iGVGx55lgaHkNcFu/ys8tIi7+xmd9XfHOOS/oVyLYIThbY8eDyFwkR6u6UD
+        WTh1V6mkSSR4hYtbao8TTw6A6Kz0lkoBcJsgBACfCcxmkof9qY3q7JXKhXRLNmL3r8K8bYuwMnEFki8d
+        xK3HWcizFquxJdLPLbVGJC0uYSCMKgSAepCpAmEC4DNnVD14PfJHLaWWq6+/umEzSSYztzgXsw7EoWFk
+        W9Qc0RT1v34Jbae8g55xgxC1LxaHM0/gt9wMFFkeCScbHLIkWg4qDoBMlFI+nc1nklc1yB2BcEX40le4
+        DHwW+iXtOF6Z2w1BE59HwPQG8J9SH5UnNELYqKaoNaIF2o1+AxOXjsbxC/tQ5MzTuIWtXW4qDIDLS1LF
+        VIhVKTA+UHcne2mULmXHNC0nruRnYMSWiQiL+hMCVzZF8MpGCF7xHAKWNIFfdBMYk+Q5sgEafdIIkbMG
+        4UzqSTicwpTMxYqeAADatzYRn7Ks9QpIIRICkJWgtXtFqttjk9qOXORj0fkENFvyFp7aEAFj9wswtjVA
+        0LYmCFj/IiqtaA5jfmPUmN4CtT+og5Gzh+Darauw24Q7/0qeGAC6ITWXoie5DIxDbqSmI7OXV7mxVdQv
+        QWLOCby9qz/C1rVGUGIbGEdbwO9IC1RObomQ3W0QnNAS4XERCBxSD236tMKWPQmwecUHnMLNpflWEACV
+        0oqxVjZPpTn9PuJuI212cTy7Mjab9C1BuvsOxp+JQd1tXVHj13dgnG6DoPTXEZDaEX4n2yP0cCdUWdce
+        daZHoEHfplj801w8enQTNkeJYutRV1fFAJANldamQc1NAD7ygRCHpcXT5r1eK4rlt/p2Mjrv/weeOfs3
+        GGlvovLdbgi41x2VM/+CgEsCKOk11F7fFfU+bogZC8biRtq/ZTKswoycXLKGnBBPxQFo8hm6VL8nBUT3
+        o/1bXIVIdd9G/zPL8MLpMah2awD8c3vByO2NygWfIfDexwi50gM1jwiw0U3w2Tef4srpo6K8LKXbCZfb
+        Kuuo15JBseIAZIvkjiLhs1RpVhRAWKoQgJBXWnMl3i7LSkKrk1GonjkdIfkTYDweilCMRUDxUAQ96oca
+        F3vi6ZgOeHF0Z2w+sgNuu3BT27AAkLm3KDOUJhFUMQBKYWFM5eVPPUuh1XB2SFRb96FoG07YstD79HI8
+        lxWLkILFMApnwc86FUGeKQizjkX47YGosbc7qg1qigV7v8edklzFz2UR5/dwuyAXO5zEI/QEAPyOpJQH
+        4PAoJ5AcxoZsET4pfS/apy5FrcJV8Hf9iEDbcoQ6lyLQGY2Q+2PRKPUrVP6uFb6MG4m0+9fFW3T6ofmL
+        r4kPebgVyyOpgiYkxVS6nP6q5hLTjLh92txM51xIKsrA+5dWo8nDBDzlXg/DuwaVXGsR7lmDKvY41P5t
+        Mqov74bWE9/DkavH4HRxu5U8yOTJi8ehHdl8fAIApPhmnAorrkqa3qFYl3jseCDzOPnSHkTcWosqtnUI
+        9P4kwoU86xCOTajycCEan/kOz47ojLVJG5CT90DxISvlsCJEseVFrSqBFMsklAqSol6WIzWCpXyjsurS
+        wnvORxkA6WM6NN/R7ZgqHyi4jL+fiUP9h/Go7EmA4V4DPwHgjw0IscbjhVuLETztr4hcPgUZN65pUcLY
+        Q82lOOSZGQSLSkvElOApgiFxTf1UYOAgBh5qYwYgHyevzKJH8nC9o2sQzMfInsGWteLPvZq2Krc6ffYi
+        EwUYeS0eHbNm44/WOPjZxHmxSmilUCxqFSxEk23D0ebbj5B49RRK7BwlUqkDGSs9yL9sVfVZQQKZQ80R
+        46j0VNoIEQCJU6u04g250XnYW/Iar3qhhqiZUSSMJdTrfpoF7ffngl/RLX0uGj+cgpr2+Qhwx4jiS+Hn
+        jUWwNQqNM6eg9vgumL4lBg8s+Yqf2mVkrBJNZkpDHcQUCOKQdwajIxvVnHIEX5QnAlJ7sG7g4FIjYuUb
+        Q0E0HVGbOTvFEECOXGde3IK2N+agRlEUghzRYjrzBcA8MZ05aHhnOoJj38ObUX1x+rfzogtliVhRWknR
+        YuVepyy0FVNb1cFQpxslXQ/gxBIwW9Qkmwx83FQf3vLCqfK955QpALKisgrc6kqES3L+dXwmUbfJ/RgE
+        OxbAcEbJrM2En2cGqudOwh/3D0bVyPZYdXKT5PqPzVTb1IEXJZBydcalk0etH8lQIdpF4boz7domxKWn
+        n3MmFBO+F45O6ctH/WwSG2iTjMjS4JWAQyDZ4r7fpe1Gh6tLUacwXkxnCSq75yDQNU1M5xvUvBqJsHGv
+        YPiKiUh/kKbGKK2FH1kqOaYw7Xva2H1iKcXQ7i3EQUK+l9oBy7sCmejBxKQACJVlEPQReWsKpDInLBn4
+        a+oPaPBgGcKLl6OSc7GkDHNQzTkVVe+NQPVdH6JJZGccPJcIh11CljJVjhdOkifoW/LSWhEEn9lOHUiy
+        AvqOD7Re7c56AE2BmePtkmxkFmdLHmORn15CuwhjLwLkM8M7/UkxEgkFLgtiMg6h2V3ZNiXahtjjEeaM
+        Rahjmuw641HraB/Uin4No1dNxW+3M2SMKEoAerhSU28UZQAU+dIWksgyfALpyoyWjJk2MaBczyOk27Ow
+        +uIuTD28HDOTV2L/nbPilMXSSyxcxpClAiNkEYNzEYCJ4brtMT4/k4B6xasl2CxFCOJRHUsQWDgedW6N
+        RMOE/0PjYe2xPyVRestk8AuGFGIwcUjhTTnlFUi5JZkLLtuovqd5OEX1PG8OLhRfwpJL69H34BREbB2K
+        F4XarR2GXgkTcOHeZckOLZq3gCAvRgcCZ5rLdvpP/I0LePfyBtR0rBOnXYwAxCHEG42gwrGonfIlwj9v
+        hgUbF6LAVqBOWOXUJFvz8jsAfGaTD4CQwdnjvV1OOvct2Vh6ch16bx6DDlsHo/6m3nh6b1/USByIOtsH
+        onn85/h203zczb8nyytclBDy9MLqLRa+wkkEpNkcGHJhH9rf2Y6qjjWyzHFCs/EUZiEwY7Ac2t9El7Ef
+        4NSZ46XKcyJJ3ETURcUUaqpt32f/SiZBmJgkldCFs7r+xHb8eUkf1N3+OcJ2fIIqif0QntQP1Y4MgiFA
+        au0eiuZRvTEveS2y3Y8lAgt8MhByebV3UO6+OzfQ5cIGNMrdLABWS8Bi4JqGwIIxqH6kD/xHNEfUxjgU
+        FVjUcKpJ5amTUo5ERnJDy2Bs0KT7sFZFBhvs7JK90umwYM3pHWgW10d2h/4wDvaF/4kvEXx2mJxXh8Av
+        dRyCzo3B8wfGo3XcYGxIS8IDew6c/MSnhDlh9ViQ77Fi1rl9aJm+FtUKExDOlNk5F5UckxBw5QvUXvY2
+        Isa8jWPXL+pPRjLyvxRjA9mpSxmA8kBpNbxnmwLAwtP++bzrGLI1Cs/H9kGdY2NgXBgt51U5MT2cDSN7
+        ljqAVLk9H386Pwvv//hPJGdJ3sKkSgmQ46LQqeIb+DBxERrf/QFh9hUIdcXKKsxB8K2v8PS+nqg95CXM
+        3RSDuyWFShEqQfzKdFiU3uVnXvfhhTXHcHvXK8YzsZnicQe658rHwbTjGLBxFlrum4TGN79HUJ7kLG45
+        fEBs2boUod6VeC5/KdocGId+mycjJSdDMaLAPGE7O20nOp6JwrO5sQiwLkSgNRrhORNR/dwXqLbwdbw6
+        /C2kXD2nFKESSitR2pdb6cCijyxM6dSqsPBGXnEM47xOKfhVQsY5ndw6Gaa1ZySJgI/WRqPj2XjULdgs
+        O8gO6bhJpb9Bsp/XsixD47wY1N8xBN8d+gHpD28rhhfsd9Ht1By8dHsunsmZBePBtzByxsH/4peou+1D
+        1PoqAtPWzEHe41ylt7qYAHRR0y8/t2zK+mu2AsBmai57BLv7YhVXXQHgd0vfLLqKilWnPWkX8e7GBYjI
+        3CK2vEVA7DQPH+tlVpdIIjYPje7OxovL+iM+ZQfu2nOx+2EK2pycjAYPZyI44x8IyIqE//UhCE7qhdrR
+        b6DF4NeQ9O/jSgunRTTS+gpRIksZAJ+p/B4Ax2qf0JNd6sRkwRceOf7xZa6tGBtlJTpsmI3W1zeilnWn
+        gNgKQ5zS3yvnWNdi/KEgGo1SvkKLhN5YkfITph37Ac3PfYeqmePxlMx6yImeCDnUA9VW/gXVB7bByKWT
+        cedxXtms+/KQ/6dQcZJ67etv9tWVYiAApFfZbuCBVVIA355721KImHOH8fquJWh5dxtq2LYikMdA/KgS
+        s9CiGQi/GYkaBz9CxMIe6LjyC9Q7I44vgcovsQdCd72DsDVvIHRSW7wc+S52nkhCifldk/x10kdF/vei
+        dyFzIgiAEZU/fQ/clEP0zGMSlPYswkvZmxHOyMrTlHMRQt3zEC6pwdPpQ2DEdkD4po9Q5exwGMk9YWzs
+        grD1XREa1xF+Axtj+OJxyCnI1foqDHRUp8itKADRnBsArYpMdcoqOb0cnJmTENgVcboxyXIoOSRHv7x1
+        CHGuEFOKldVYhADbRAQ/GAHj6MeofKQ3jEN/k6D3PoyVryLs+054ZkYH1B/UFtuO74bHoSM1ibIoifwr
+        UtRXCTLh9xuHi3OunUM1kkQmV/yyzN6wvSvR7sRCNMtfJY4s6YFHTlbOiRInhiLgaj8YR7rD2NUJxvbO
+        MH58FVXndEDNAX/GgOgRyLyfBbeZttP0NRJTTgWK4Ztlkof/DvJ9JiR/ErU3zfbk/Rvo9fMivHI+BvVy
+        lyFIzMhPImylolHwT/8Mxon3YBzuAuOndgiM74iak15Bww9aYFvydjwWf1JFBHl5BqFg8/BSkWL4Dg6a
+        TznG5ncMtlvMAyqPiPuzUtB7zwK0S/se9fJjEFo8BcHFX6NSVh8Yv3YTU+oKY93LqLqwI/4wrDV6TeiP
+        DMn3fVuDmhQGTyXnCawAx7sl8nnUugq5RVkCoDR5aRcH4V7hK/ywuuHav9Bx60REXJuLhsXzJFp/jcDs
+        ATBSe6jP4uE7u6LhojdR99NWWPHzWuTlFyh2VpqQsFYPlKPQVKyUfZkjEjUbJhDzmWIIgDWbuHc8cBcg
+        4cYv6Lx9gkTdaNQumQbjjiSAmZ/A+OUtVNnUFfWndkKnMT1wKvOi/p8W2dLFlM6yw8kZ2pyjChW1AuWZ
+        cFvzbW1spxCnrJDuo8Fxp8osvIdlV/ag1c+j0OzmFFTLl+Qv41NUOtod9TZ3R/3hL2OGRPKbhTl6LGeA
+        ANStxBvF5QkA0FsnqWyWfYqrleaz3mflQXqKo2uALtyy3kf0EdmZNg3B89lTECRBLfTYp3h2RTe06d8R
+        KZdO/hdf8mPOpE7PpZNSsWIwB9KkBbGQMc2GE6ba2ECnE1L/6icA8RmmHY8s9zA5MQ4tEkehaeq3eCF5
+        OEJGyeyvjkL+w3tqLFMdjvIBYKb5ZNQvB8CnPHUjbwrTUUFEMdfgtyMS5ZYSgThwIy8TY/fF4N01/8Tb
+        qyPR5psPcODyLzKSkVaGyU5HhfWVGZnmo06MFSzKhHw2T6bqVmry1qtiAnDKE1eBfXyFfZlVSs/U7HTM
+        2bYc34jdxx/fjkt30syxWm3eqxSY+Q+Bl5NVkSK7ELkIUWNzRliV8qUwea8zF+14fK92XbMTK4sEwFsF
+        OTh/Mx13ivK03/CfWMrWXeq8of+zJcTBPnmlgv63ogGQocmb/HirCh8486IEDzsWIZqVSsFM4aysLn1y
+        ItmFFYf4+CnHlxFFMrJEmY80Ms7wuz8HVAgA8B8tIxj3WWjK0gAAAABJRU5ErkJggg==
 </value>
   </data>
 </root>

DPM2016/Behandlung/Benhandungdetail.vb

@@ -32,13 +32,18 @@
                 If Globals.Applicationtype = ApplicationTypes.Projektabrechnung And Me.lblProjekt.Visible = False And GrpPatient.Height < 100 Then
                     GrpGaramt.Visible = False
                     grpglndiagnose.Visible = False
+                    GrpDateien.Visible = True
+
                     grpBehandlungsdaten.Text = "Projektdaten"
+                    lblRGStellung.Text = "Anfrage vom"
                     Label2.Text = "Offert-Betrag"
                     lblBehandlungstotal.Text = "Leistungstotal"
                     Label7.Text = "Verantw."
                     grpEmpfaenger.Left = GrpGaramt.Left
                     GrpRechnungstext.Left = grpEmpfaenger.Left
                     GrpRechnungstext.Top = grpEmpfaenger.Top + grpEmpfaenger.Height
+
+
                     GrpPatient.Text = "Verantwortung / Rechnungsart"
                     Me.grpZusammenfassugn.Top = grpZusammenfassugn.Top + 20
                     Me.GrpRaten.Top = GrpRaten.Top + 20
@@ -50,6 +55,44 @@
                     Me.cbboxNRESTyp.Top = Me.cbboxNRESTyp.Top + 20
                     Me.lblProjekt.Visible = True
                     Me.txtProjekt.Visible = True
+                    Me.lblTaxpunkte.Visible = False
+                    Me.cbboxNrtaxpunkt.Visible = False
+                    Me.chkAndrucken_Taxpunkte.Text = "Betrag andrucken"
+                    Me.grpEmpfaenger.Visible = False
+                    Me.GrpRechnungstext.Top = Me.grpEmpfaenger.Top
+                    GrpDateien.Top = GrpRechnungstext.Top + GrpRechnungstext.Height
+                    GrpDateien.Left = GrpRechnungstext.Left
+                    GrpDateien.Width = GrpRechnungstext.Width
+                    Me.txtAnsprechpartner.Visible = True
+                    Me.lblansprechperson.Visible = True
+                    Me.lblunserereferenz.Visible = True
+                    Me.txtunserereferenz.Visible = True
+
+                    If db.Get_Option(8000) = "True" Then
+                        Me.GrpGaramt.Visible = False
+                    End If
+                    lblRechnungstyp.Visible = False
+                    lblAbrechnungstyp.Visible = False
+                    lblAnsatz.Visible = False
+                    lblFrankenwert.Visible = False
+                    lblTaxpunkte.Visible = False
+                    cbboxNRRGtyp.Visible = False
+                    cbboxNrAbrechnungstyp.Visible = False
+                    cbboxNrAnsatz.Visible = False
+                    mtxtTaxpunktwert.Visible = False
+                    cbboxNrtaxpunkt.Visible = False
+                    lblRabattwert.Top = lblRechnungstyp.Top
+                    chkRabattGesamt.Top = lblRechnungstyp.Top
+                    mtxtRabatt.Top = lblRechnungstyp.Top
+                    chkRabattGesamt.Top = lblAbrechnungstyp.Top
+                    chkMitdatum.Top = lblAnsatz.Top
+                    chkAndrucken_Taxpunkte.Top = chkRabattGesamt.Top
+                    grpAbrechnung.Height = GrpPatient.Height
+                    grpAbrechnung.Width = GrpRechnungstext.Width
+                    GrpRechnungstext.Top = grpBehandlungsdaten.Top
+                    GrpRechnungstext.Height = GrpRechnungstext.Height * 2
+                    chkOhneMwst.Visible = True
+                    chkOhneMwst.Top = chkMitdatum.Top
                 End If
 
             End If
@@ -255,6 +298,7 @@
         End Try
 
 
+
         Get_Data_Controls(Me, r)
         Update_cbboxnrtaxpunkt()
         Try
@@ -290,7 +334,18 @@
             If r("nrgarant") > 0 Then check_mailversand(r("nrgarant")) Else check_mailversand(r("nrpatient"))
         Catch
         End Try
-
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            Try
+                Me.txtAnsprechpartner.Text = Me.txtGLN_Liste.Text
+                Me.txtunserereferenz.Text = Me.txtFallnummer.Text
+                Me.chkOhneMwst.Checked = Me.txtDiagnose.Text.ToString = "True"
+            Catch ex As Exception
+                Me.txtAnsprechpartner.Text = ""
+                Me.txtunserereferenz.Text = ""
+                Me.chkOhneMwst.Checked = False
+            End Try
+        End If
+        chk_dateien()
         AddChanges(Me)
         Me.HasChanges = False
     End Sub
@@ -305,6 +360,7 @@
             db.Get_Tabledata("privat", " where nrprivat=" + key.ToString)
         End If
         If db.dsDaten.Tables(0).Rows(0).Item("Mail_Kommunikation") = True Then Me.lblMailKommunikaton.Visible = True
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then Me.lblMailKommunikaton.Visible = False
     End Sub
     Sub Get_Data_Controls(ByVal ictl As Control, ByRef R As DataRow)
         For Each ctl As Control In ictl.Controls
@@ -463,6 +519,9 @@
         If Globals.OnLoad = True Then Exit Sub
         If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
             Me.txtBehandlungsgrund.Text = Me.txtProjekt.Text
+            Me.txtGLN_Liste.Text = Me.txtAnsprechpartner.Text
+            Me.txtFallnummer.Text = Me.txtunserereferenz.Text
+            Me.txtDiagnose.Text = Me.chkOhneMwst.Checked
         End If
 
         If Me.Behandlungsstatus <> 1 And Me.Behandlungsstatus <> 4 Then Exit Sub
@@ -480,6 +539,7 @@
 
         db.Update_Data()
 
+
         Me.HasChanges = False
 
     End Sub
@@ -532,7 +592,17 @@
     End Sub
 #End Region
 
+    Public Sub chk_dateien()
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            Dim db As New clsDB
+            Me.lstdateien.Items.Clear()
 
+            db.Get_Tabledata("Dateien", "", "Select * from Behandlungsdateien where nrbehandlung=" & Me.Behandlungsnr.ToString, "")
+            For Each r In db.dsDaten.Tables(0).Rows
+                Me.lstdateien.Items.Add(r("dateiverweis"))
+            Next
+        End If
+    End Sub
     Public Sub Get_Stammdaten()
         'Me.OnLoad = True
 
@@ -631,15 +701,29 @@
         Dim ssototal As Double
 
         Dim ldb As New clsDB
-        ldb.Get_Tabledata("Leistung", "where nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            ldb.Get_Tabledata("View_Leistungen", "where nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+
+        Else
+            ldb.Get_Tabledata("Leistung", "where nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+
+        End If
         Dim total As Double
         For Each r As DataRow In ldb.dsDaten.Tables(0).Rows
-            If r("aktiv") = True Then
-                If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then ssototal = ssototal + r("total")
-                If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then ssototal = ssototal + r("total")
-                'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                If r("rabatt") = True Then
+                    ssototal = ssototal + r("total")
+                End If
                 total = total + r("Total")
+            Else
+                If r("aktiv") = True Then
+                    If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then ssototal = ssototal + r("total")
+                    If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then ssototal = ssototal + r("total")
+                    'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
+                    total = total + r("Total")
+                End If
             End If
+
         Next
         Me.txtcBehandlungstotal.Text = total.ToString("N2")
         total = 0
@@ -666,13 +750,24 @@
                     total = stotal - (ssototal / 100 * Me.mtxtRabatt.Text)
                 Else
                     Dim xldb As New clsDB
-                    xldb.Get_Tabledata("Leistung", "where absolut=0 and nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+                    If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                        xldb.Get_Tabledata("View_Leistungen", "where nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+                    Else
+                        xldb.Get_Tabledata("Leistung", "where absolut=0 and nrbehandlung=" + Me.Behandlungsnr.ToString + " And aktiv=1")
+                    End If
 
                     For Each r As DataRow In xldb.dsDaten.Tables(0).Rows
-                        If r("aktiv") = True Then
-                            If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then xxtotal = xxtotal + r("total")
-                            If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then xxtotal = xxtotal + r("total")
-                            'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
+                        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                            If r("rabatt") = True Then
+                                xxtotal = xxtotal + r("total")
+                            End If
+                        Else
+                            If r("aktiv") = True Then
+                                If r("SSO_Nummer").ToString.Substring(0, 1) = "4" Then xxtotal = xxtotal + r("total")
+                                If r("SSO_Nummer").ToString.Substring(0, 1) = "9" Then xxtotal = xxtotal + r("total")
+                                'If r("sso_Nummer") > 3999 And r("sso_nummer") < 5000 Then ssototal = ssototal + r("total")
+                            End If
+
                         End If
                     Next
                     xldb.Dispose()
@@ -680,7 +775,7 @@
                 total = stotal - (xxtotal / 100 * Me.mtxtRabatt.Text)
 
             End If
-                Me.txtcRabatt.Text = ((stotal - total) * -1).ToString
+            Me.txtcRabatt.Text = ((stotal - total) * -1).ToString
             Me.txtcRabatt.Text = Globals.Round5(Me.txtcRabatt.Text)
         Catch ex As Exception
             total = 0
@@ -1066,9 +1161,29 @@
                 evh.Refresh_Behandlungen(Me.Behandlungsnr, Me.Patientnr)
                 Exit Sub
             End If
+
+            Dim pdfitem As clspdfcollectionitem = Globals.pdfCollection.Item(1)
+            Dim xdb As New clsDB
+            xdb.Get_Tabledata("Dateien", "", "Select * from behandlungsdateien where nrbehandlung=" + Me.Behandlungsnr.ToString)
+            If xdb.dsDaten.Tables(0).Rows.Count > 0 Then
+
+                Dim tmpcollection As New Collection
+                For i = 1 To Globals.pdfCollection.Count
+                    tmpcollection.Add(Globals.pdfCollection(i))
+                Next
+                Globals.pdfCollection.Clear()
+                For Each r As DataRow In xdb.dsDaten.Tables(0).Rows
+                    Globals.pdfCollection.Add(New clspdfcollectionitem(pdfitem.fakturanr, r("Dateiverweis")))
+                Next
+                For i = 1 To tmpcollection.Count
+                    Globals.pdfCollection.Add(tmpcollection.Item(i))
+                Next
+            End If
+
+
             Dim pdfh As New clspdfhelper
             If result = 5 Then
-                pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromLastFaktura, "", "Kostenvoranschlag:")
+                pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromOfferte, "", "Kostenvoranschlag:", Me.Behandlungsnr)
             Else
                 pdfh.Create_Archivdoc(clspdfhelper.GetEmpfaengerType.FromLastFaktura, "", "Sofortrechnung:")
 
@@ -1163,8 +1278,11 @@
     Private Sub cbboxnrbehandler_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxnrbehandler.SelectedIndexChanged
         Dim db1 As New clsDB
         Try
-            db1.Get_Tabledata("GLN", "", "Select gln from privat where nrprivat=" + Me.cbboxnrbehandler.SelectedValue)
-            Me.txtGLN_Liste.Text = "1/" + db1.dsDaten.Tables(0).Rows(0).Item(0)
+            If Globals.Applicationtype <> ApplicationTypes.Projektabrechnung Then
+                db1.Get_Tabledata("GLN", "", "Select gln from privat where nrprivat=" + Me.cbboxnrbehandler.SelectedValue)
+                Me.txtGLN_Liste.Text = "1/" + db1.dsDaten.Tables(0).Rows(0).Item(0)
+            End If
+
         Catch
         Finally
             db1.Dispose()
@@ -1458,4 +1576,85 @@
     'Private Sub mtxtTaxpunktwert_TextChanged(sender As Object, e As EventArgs) Handles mtxtTaxpunktwert.TextChanged
     '    mtxtTaxpunktwert_Leave(sender, e)
     'End Sub
+
+    Public Function Vorschau_Offerte(ByVal typ As Integer)
+        Me.Save_Data()
+        Select Case typ
+            Case 1
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 1, 0, False, Nothing)
+            Case 2
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 1, 1, True, clspdfhelper.GetEmpfaengerType.FromOfferte)
+                Dim pdfh As New clspdfhelper
+            Case 3
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 1, 2, True, clspdfhelper.GetEmpfaengerType.FromOfferte)
+
+            Case 4
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 1, 3, True, clspdfhelper.GetEmpfaengerType.FromOfferte)
+            Case 5
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 1, 4, True, clspdfhelper.GetEmpfaengerType.FromOfferte)
+            Case 11
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 2, 0, False, Nothing)
+            Case 12
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 2, 1, True, clspdfhelper.GetEmpfaengerType.FromAuftragsbestaegigung)
+            Case 13
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 2, 2, True, clspdfhelper.GetEmpfaengerType.FromAuftragsbestaegigung)
+            Case 14
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 2, 3, True, clspdfhelper.GetEmpfaengerType.FromAuftragsbestaegigung)
+            Case 15
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 2, 4, True, clspdfhelper.GetEmpfaengerType.FromOfferte)
+
+            Case 21
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 3, 0, False, Nothing)
+            Case 22
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 3, 1, True, clspdfhelper.GetEmpfaengerType.FromLieferschein)
+            Case 23
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 3, 2, True, clspdfhelper.GetEmpfaengerType.FromLieferschein)
+            Case 24
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 3, 3, True, clspdfhelper.GetEmpfaengerType.FromLieferschein)
+            Case 25
+                Globals.Rg_Funktionen.Offerte_Auftragsbestaegitigung_Lieferschein(Me.Behandlungsnr, 3, 4, True, clspdfhelper.GetEmpfaengerType.FromOfferte)
+
+        End Select
+
+
+
+    End Function
+
+    Private Sub ToolStripButton1_Click_2(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Dim f As New OpenFileDialog
+        If f.ShowDialog = DialogResult.OK Then
+            If System.IO.File.Exists(f.FileName) Then
+                Me.lstdateien.Items.Add(f.FileName)
+                Dim sql As String
+                sql = "Insert behandlungsdateien (nrbehandlung,dateiverweis,mutierer) values(" + Me.Behandlungsnr.ToString + ",'" + f.FileName + "'," + Globals.ActUser.ToString + ")"
+
+                Dim dbdatei As New clsDB
+                dbdatei.Exec_SQL(sql)
+            Else
+                MsgBox("Die Datei " + f.FileName + " ist nicht vorhanden.", vbExclamation)
+            End If
+        End If
+    End Sub
+
+
+
+
+    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
+        Try
+            Dim dbdatei As New clsDB
+            dbdatei.Exec_SQL("Delete from Behandlungsdateien where nrbehandlung=" + Me.Behandlungsnr.ToString + " and dateiverweis='" + Me.lstdateien.SelectedItem + "'")
+            Me.lstdateien.Items.Remove(Me.lstdateien.SelectedItem)
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        For Each i As String In Me.lstdateien.Items
+            If System.IO.File.Exists(i) Then
+            Else
+                MsgBox("Die Datei " + i + " ist nicht vorhanden!")
+            End If
+        Next
+    End Sub
 End Class

DPM2016/Behandlung/Leistungen.Designer.vb

@@ -37,6 +37,8 @@ Partial Class Leistungen
         Me.tsUp = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
         Me.txtfilter = New System.Windows.Forms.ToolStripTextBox()
+        Me.lblLagerbewtand = New System.Windows.Forms.ToolStripLabel()
+        Me.lblLageranzahl = New System.Windows.Forms.ToolStripLabel()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.TreeTarifGruppen = New DevComponents.AdvTree.AdvTree()
         Me.Node1 = New DevComponents.AdvTree.Node()
@@ -105,14 +107,14 @@ Partial Class Leistungen
         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslabelbhtotal})
         Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(1079, 25)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1439, 25)
         Me.ToolStrip1.TabIndex = 0
         Me.ToolStrip1.Text = "ToolStrip1"
         '
         'tslabelbhtotal
         '
         Me.tslabelbhtotal.Name = "tslabelbhtotal"
-        Me.tslabelbhtotal.Size = New System.Drawing.Size(87, 22)
+        Me.tslabelbhtotal.Size = New System.Drawing.Size(113, 22)
         Me.tslabelbhtotal.Text = "ToolStripLabel1"
         '
         'GrpTarif
@@ -120,8 +122,10 @@ Partial Class Leistungen
         Me.GrpTarif.Controls.Add(Me.TabTarife)
         Me.GrpTarif.Dock = System.Windows.Forms.DockStyle.Left
         Me.GrpTarif.Location = New System.Drawing.Point(0, 0)
+        Me.GrpTarif.Margin = New System.Windows.Forms.Padding(4)
         Me.GrpTarif.Name = "GrpTarif"
-        Me.GrpTarif.Size = New System.Drawing.Size(729, 284)
+        Me.GrpTarif.Padding = New System.Windows.Forms.Padding(4)
+        Me.GrpTarif.Size = New System.Drawing.Size(972, 350)
         Me.GrpTarif.TabIndex = 1
         Me.GrpTarif.TabStop = False
         Me.GrpTarif.Text = "Tarife"
@@ -131,10 +135,11 @@ Partial Class Leistungen
         Me.TabTarife.Controls.Add(Me.TabPage1)
         Me.TabTarife.Controls.Add(Me.TabPage2)
         Me.TabTarife.Dock = System.Windows.Forms.DockStyle.Left
-        Me.TabTarife.Location = New System.Drawing.Point(3, 16)
+        Me.TabTarife.Location = New System.Drawing.Point(4, 19)
+        Me.TabTarife.Margin = New System.Windows.Forms.Padding(4)
         Me.TabTarife.Name = "TabTarife"
         Me.TabTarife.SelectedIndex = 0
-        Me.TabTarife.Size = New System.Drawing.Size(720, 265)
+        Me.TabTarife.Size = New System.Drawing.Size(960, 327)
         Me.TabTarife.TabIndex = 0
         '
         'TabPage1
@@ -143,10 +148,11 @@ Partial Class Leistungen
         Me.TabPage1.Controls.Add(Me.ToolStrip2)
         Me.TabPage1.Controls.Add(Me.Panel4)
         Me.TabPage1.Controls.Add(Me.TreeTarifGruppen)
-        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage1.Margin = New System.Windows.Forms.Padding(4)
         Me.TabPage1.Name = "TabPage1"
-        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(712, 239)
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(4)
+        Me.TabPage1.Size = New System.Drawing.Size(952, 298)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Tarif"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -163,9 +169,10 @@ Partial Class Leistungen
         Me.lbtarif1.ContextMenuStrip = Me.ContextMenuStrip1
         Me.lbtarif1.DragDropSupport = True
         Me.lbtarif1.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
-        Me.lbtarif1.Location = New System.Drawing.Point(196, 28)
+        Me.lbtarif1.Location = New System.Drawing.Point(261, 34)
+        Me.lbtarif1.Margin = New System.Windows.Forms.Padding(4)
         Me.lbtarif1.Name = "lbtarif1"
-        Me.lbtarif1.Size = New System.Drawing.Size(513, 208)
+        Me.lbtarif1.Size = New System.Drawing.Size(684, 256)
         Me.lbtarif1.TabIndex = 5
         Me.lbtarif1.Text = "ListBoxAdv1"
         '
@@ -174,21 +181,21 @@ Partial Class Leistungen
         Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifdetailsToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(131, 26)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(151, 28)
         '
         'TarifdetailsToolStripMenuItem
         '
         Me.TarifdetailsToolStripMenuItem.Name = "TarifdetailsToolStripMenuItem"
-        Me.TarifdetailsToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
+        Me.TarifdetailsToolStripMenuItem.Size = New System.Drawing.Size(150, 24)
         Me.TarifdetailsToolStripMenuItem.Text = "Tarifdetails"
         '
         'ToolStrip2
         '
         Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsDown, Me.tsUp, Me.ToolStripLabel1, Me.txtfilter})
-        Me.ToolStrip2.Location = New System.Drawing.Point(196, 3)
+        Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsDown, Me.tsUp, Me.ToolStripLabel1, Me.txtfilter, Me.lblLagerbewtand, Me.lblLageranzahl})
+        Me.ToolStrip2.Location = New System.Drawing.Point(261, 4)
         Me.ToolStrip2.Name = "ToolStrip2"
-        Me.ToolStrip2.Size = New System.Drawing.Size(513, 25)
+        Me.ToolStrip2.Size = New System.Drawing.Size(687, 27)
         Me.ToolStrip2.TabIndex = 6
         Me.ToolStrip2.Text = "ToolStrip2"
         '
@@ -198,7 +205,7 @@ Partial Class Leistungen
         Me.tsDown.Image = CType(resources.GetObject("tsDown.Image"), System.Drawing.Image)
         Me.tsDown.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsDown.Name = "tsDown"
-        Me.tsDown.Size = New System.Drawing.Size(24, 24)
+        Me.tsDown.Size = New System.Drawing.Size(29, 24)
         Me.tsDown.Text = "ToolStripButton2"
         Me.tsDown.Visible = False
         '
@@ -208,34 +215,46 @@ Partial Class Leistungen
         Me.tsUp.Image = CType(resources.GetObject("tsUp.Image"), System.Drawing.Image)
         Me.tsUp.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsUp.Name = "tsUp"
-        Me.tsUp.Size = New System.Drawing.Size(24, 24)
+        Me.tsUp.Size = New System.Drawing.Size(29, 24)
         Me.tsUp.Text = "ToolStripButton1"
         Me.tsUp.Visible = False
         '
         'ToolStripLabel1
         '
         Me.ToolStripLabel1.Name = "ToolStripLabel1"
-        Me.ToolStripLabel1.Size = New System.Drawing.Size(46, 22)
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(56, 24)
         Me.ToolStripLabel1.Text = "Suchen"
         '
         'txtfilter
         '
         Me.txtfilter.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.txtfilter.Name = "txtfilter"
-        Me.txtfilter.Size = New System.Drawing.Size(100, 25)
+        Me.txtfilter.Size = New System.Drawing.Size(132, 27)
+        '
+        'lblLagerbewtand
+        '
+        Me.lblLagerbewtand.Name = "lblLagerbewtand"
+        Me.lblLagerbewtand.Size = New System.Drawing.Size(102, 24)
+        Me.lblLagerbewtand.Text = "Lagerbestand:"
+        '
+        'lblLageranzahl
+        '
+        Me.lblLageranzahl.Name = "lblLageranzahl"
+        Me.lblLageranzahl.Size = New System.Drawing.Size(17, 24)
+        Me.lblLageranzahl.Text = "0"
         '
         'Panel4
         '
         Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left
-        Me.Panel4.Location = New System.Drawing.Point(181, 3)
+        Me.Panel4.Location = New System.Drawing.Point(241, 4)
+        Me.Panel4.Margin = New System.Windows.Forms.Padding(4)
         Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(15, 233)
+        Me.Panel4.Size = New System.Drawing.Size(20, 290)
         Me.Panel4.TabIndex = 5
         '
         'TreeTarifGruppen
         '
         Me.TreeTarifGruppen.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
-        Me.TreeTarifGruppen.AllowDrop = True
         Me.TreeTarifGruppen.BackColor = System.Drawing.SystemColors.Window
         '
         '
@@ -244,13 +263,14 @@ Partial Class Leistungen
         Me.TreeTarifGruppen.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.TreeTarifGruppen.Dock = System.Windows.Forms.DockStyle.Left
         Me.TreeTarifGruppen.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
-        Me.TreeTarifGruppen.Location = New System.Drawing.Point(3, 3)
+        Me.TreeTarifGruppen.Location = New System.Drawing.Point(4, 4)
+        Me.TreeTarifGruppen.Margin = New System.Windows.Forms.Padding(4)
         Me.TreeTarifGruppen.Name = "TreeTarifGruppen"
         Me.TreeTarifGruppen.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
         Me.TreeTarifGruppen.NodesConnector = Me.NodeConnector1
         Me.TreeTarifGruppen.NodeStyle = Me.ElementStyle1
         Me.TreeTarifGruppen.PathSeparator = ";"
-        Me.TreeTarifGruppen.Size = New System.Drawing.Size(178, 233)
+        Me.TreeTarifGruppen.Size = New System.Drawing.Size(237, 290)
         Me.TreeTarifGruppen.Styles.Add(Me.ElementStyle1)
         Me.TreeTarifGruppen.TabIndex = 7
         Me.TreeTarifGruppen.Text = "AdvTree1"
@@ -275,10 +295,11 @@ Partial Class Leistungen
         '
         Me.TabPage2.Controls.Add(Me.lbPakete)
         Me.TabPage2.Controls.Add(Me.Panel1)
-        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 25)
+        Me.TabPage2.Margin = New System.Windows.Forms.Padding(4)
         Me.TabPage2.Name = "TabPage2"
-        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(712, 239)
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(4)
+        Me.TabPage2.Size = New System.Drawing.Size(952, 298)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Leistungspaket"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -291,14 +312,14 @@ Partial Class Leistungen
         '
         Me.lbPakete.BackgroundStyle.Class = "ListBoxAdv"
         Me.lbPakete.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.lbPakete.CheckStateMember = Nothing
         Me.lbPakete.ContainerControlProcessDialogKey = True
         Me.lbPakete.Dock = System.Windows.Forms.DockStyle.Fill
         Me.lbPakete.DragDropSupport = True
         Me.lbPakete.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
-        Me.lbPakete.Location = New System.Drawing.Point(3, 33)
+        Me.lbPakete.Location = New System.Drawing.Point(4, 41)
+        Me.lbPakete.Margin = New System.Windows.Forms.Padding(4)
         Me.lbPakete.Name = "lbPakete"
-        Me.lbPakete.Size = New System.Drawing.Size(706, 203)
+        Me.lbPakete.Size = New System.Drawing.Size(944, 253)
         Me.lbPakete.TabIndex = 2
         Me.lbPakete.Text = "ListBoxAdv1"
         '
@@ -308,16 +329,18 @@ Partial Class Leistungen
         Me.Panel1.Controls.Add(Me.intAnzahl)
         Me.Panel1.Controls.Add(Me.lblAnzahl)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Location = New System.Drawing.Point(3, 3)
+        Me.Panel1.Location = New System.Drawing.Point(4, 4)
+        Me.Panel1.Margin = New System.Windows.Forms.Padding(4)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(706, 30)
+        Me.Panel1.Size = New System.Drawing.Size(944, 37)
         Me.Panel1.TabIndex = 1
         '
         'btnPaketeinfuegen
         '
-        Me.btnPaketeinfuegen.Location = New System.Drawing.Point(197, 3)
+        Me.btnPaketeinfuegen.Location = New System.Drawing.Point(263, 4)
+        Me.btnPaketeinfuegen.Margin = New System.Windows.Forms.Padding(4)
         Me.btnPaketeinfuegen.Name = "btnPaketeinfuegen"
-        Me.btnPaketeinfuegen.Size = New System.Drawing.Size(75, 23)
+        Me.btnPaketeinfuegen.Size = New System.Drawing.Size(100, 28)
         Me.btnPaketeinfuegen.TabIndex = 1
         Me.btnPaketeinfuegen.Text = "Einfügen"
         Me.btnPaketeinfuegen.UseVisualStyleBackColor = True
@@ -330,19 +353,21 @@ Partial Class Leistungen
         Me.intAnzahl.BackgroundStyle.Class = "DateTimeInputBackground"
         Me.intAnzahl.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.intAnzahl.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
-        Me.intAnzahl.Location = New System.Drawing.Point(49, 5)
+        Me.intAnzahl.Location = New System.Drawing.Point(65, 6)
+        Me.intAnzahl.Margin = New System.Windows.Forms.Padding(4)
         Me.intAnzahl.Name = "intAnzahl"
         Me.intAnzahl.ShowUpDown = True
-        Me.intAnzahl.Size = New System.Drawing.Size(142, 20)
+        Me.intAnzahl.Size = New System.Drawing.Size(189, 22)
         Me.intAnzahl.TabIndex = 0
         Me.intAnzahl.Value = 1
         '
         'lblAnzahl
         '
         Me.lblAnzahl.AutoSize = True
-        Me.lblAnzahl.Location = New System.Drawing.Point(4, 8)
+        Me.lblAnzahl.Location = New System.Drawing.Point(5, 10)
+        Me.lblAnzahl.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblAnzahl.Name = "lblAnzahl"
-        Me.lblAnzahl.Size = New System.Drawing.Size(39, 13)
+        Me.lblAnzahl.Size = New System.Drawing.Size(47, 16)
         Me.lblAnzahl.TabIndex = 0
         Me.lblAnzahl.Text = "Anzahl"
         '
@@ -367,44 +392,50 @@ Partial Class Leistungen
         Me.grpLeistungsdetails.Controls.Add(Me.lblPosition)
         Me.grpLeistungsdetails.Controls.Add(Me.lbldatum)
         Me.grpLeistungsdetails.Controls.Add(Me.dtdatum)
-        Me.grpLeistungsdetails.Location = New System.Drawing.Point(735, 3)
+        Me.grpLeistungsdetails.Location = New System.Drawing.Point(980, 4)
+        Me.grpLeistungsdetails.Margin = New System.Windows.Forms.Padding(4)
         Me.grpLeistungsdetails.Name = "grpLeistungsdetails"
-        Me.grpLeistungsdetails.Size = New System.Drawing.Size(341, 275)
+        Me.grpLeistungsdetails.Padding = New System.Windows.Forms.Padding(4)
+        Me.grpLeistungsdetails.Size = New System.Drawing.Size(455, 338)
         Me.grpLeistungsdetails.TabIndex = 2
         Me.grpLeistungsdetails.TabStop = False
         Me.grpLeistungsdetails.Text = "Leistungsdetails"
         '
         'txtErgänzung
         '
-        Me.txtErgänzung.Location = New System.Drawing.Point(85, 166)
+        Me.txtErgänzung.Location = New System.Drawing.Point(113, 204)
+        Me.txtErgänzung.Margin = New System.Windows.Forms.Padding(4)
         Me.txtErgänzung.Multiline = True
         Me.txtErgänzung.Name = "txtErgänzung"
-        Me.txtErgänzung.Size = New System.Drawing.Size(177, 18)
+        Me.txtErgänzung.Size = New System.Drawing.Size(235, 21)
         Me.txtErgänzung.TabIndex = 4
         '
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(11, 169)
+        Me.Label2.Location = New System.Drawing.Point(15, 208)
+        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(58, 13)
+        Me.Label2.Size = New System.Drawing.Size(71, 16)
         Me.Label2.TabIndex = 24
         Me.Label2.Text = "Ergänzung"
         '
         'txtBezD
         '
-        Me.txtBezD.Location = New System.Drawing.Point(85, 115)
+        Me.txtBezD.Location = New System.Drawing.Point(113, 142)
+        Me.txtBezD.Margin = New System.Windows.Forms.Padding(4)
         Me.txtBezD.Multiline = True
         Me.txtBezD.Name = "txtBezD"
-        Me.txtBezD.Size = New System.Drawing.Size(177, 45)
+        Me.txtBezD.Size = New System.Drawing.Size(235, 54)
         Me.txtBezD.TabIndex = 3
         '
         'lblBeschreibung
         '
         Me.lblBeschreibung.AutoSize = True
-        Me.lblBeschreibung.Location = New System.Drawing.Point(11, 118)
+        Me.lblBeschreibung.Location = New System.Drawing.Point(15, 145)
+        Me.lblBeschreibung.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblBeschreibung.Name = "lblBeschreibung"
-        Me.lblBeschreibung.Size = New System.Drawing.Size(72, 13)
+        Me.lblBeschreibung.Size = New System.Drawing.Size(90, 16)
         Me.lblBeschreibung.TabIndex = 22
         Me.lblBeschreibung.Text = "Beschreibung"
         '
@@ -412,9 +443,10 @@ Partial Class Leistungen
         '
         Me.cbboxnrbehandler.Dataselection = Nothing
         Me.cbboxnrbehandler.Displaymember = Nothing
-        Me.cbboxnrbehandler.Location = New System.Drawing.Point(85, 61)
+        Me.cbboxnrbehandler.Location = New System.Drawing.Point(113, 75)
+        Me.cbboxnrbehandler.Margin = New System.Windows.Forms.Padding(4)
         Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
-        Me.cbboxnrbehandler.Size = New System.Drawing.Size(177, 21)
+        Me.cbboxnrbehandler.Size = New System.Drawing.Size(235, 24)
         Me.cbboxnrbehandler.TabIndex = 1
         Me.cbboxnrbehandler.Table = Nothing
         Me.cbboxnrbehandler.TableAlias = ""
@@ -423,17 +455,19 @@ Partial Class Leistungen
         'lblbehandler
         '
         Me.lblbehandler.AutoSize = True
-        Me.lblbehandler.Location = New System.Drawing.Point(11, 63)
+        Me.lblbehandler.Location = New System.Drawing.Point(15, 78)
+        Me.lblbehandler.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblbehandler.Name = "lblbehandler"
-        Me.lblbehandler.Size = New System.Drawing.Size(55, 13)
+        Me.lblbehandler.Size = New System.Drawing.Size(69, 16)
         Me.lblbehandler.TabIndex = 14
         Me.lblbehandler.Text = "Behandler"
         '
         'BtnInsertLeistung
         '
-        Me.BtnInsertLeistung.Location = New System.Drawing.Point(194, 246)
+        Me.BtnInsertLeistung.Location = New System.Drawing.Point(259, 303)
+        Me.BtnInsertLeistung.Margin = New System.Windows.Forms.Padding(4)
         Me.BtnInsertLeistung.Name = "BtnInsertLeistung"
-        Me.BtnInsertLeistung.Size = New System.Drawing.Size(120, 23)
+        Me.BtnInsertLeistung.Size = New System.Drawing.Size(160, 28)
         Me.BtnInsertLeistung.TabIndex = 8
         Me.BtnInsertLeistung.Text = "Leistung einfügen"
         Me.BtnInsertLeistung.UseVisualStyleBackColor = True
@@ -441,10 +475,11 @@ Partial Class Leistungen
         'txtTotal
         '
         Me.txtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtTotal.Location = New System.Drawing.Point(49, 246)
+        Me.txtTotal.Location = New System.Drawing.Point(65, 303)
+        Me.txtTotal.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.txtTotal.Name = "txtTotal"
         Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.txtTotal.Size = New System.Drawing.Size(92, 13)
+        Me.txtTotal.Size = New System.Drawing.Size(123, 16)
         Me.txtTotal.TabIndex = 12
         Me.txtTotal.Text = "0.00www"
         Me.txtTotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -453,18 +488,20 @@ Partial Class Leistungen
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(11, 246)
+        Me.Label1.Location = New System.Drawing.Point(15, 303)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(36, 13)
+        Me.Label1.Size = New System.Drawing.Size(45, 17)
         Me.Label1.TabIndex = 10
         Me.Label1.Text = "Total"
         '
         'lblWert
         '
         Me.lblWert.AutoSize = True
-        Me.lblWert.Location = New System.Drawing.Point(11, 220)
+        Me.lblWert.Location = New System.Drawing.Point(15, 271)
+        Me.lblWert.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblWert.Name = "lblWert"
-        Me.lblWert.Size = New System.Drawing.Size(30, 13)
+        Me.lblWert.Size = New System.Drawing.Size(35, 16)
         Me.lblWert.TabIndex = 9
         Me.lblWert.Text = "Wert"
         '
@@ -477,18 +514,20 @@ Partial Class Leistungen
         Me.diwert.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.diwert.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
         Me.diwert.Increment = 1.0R
-        Me.diwert.Location = New System.Drawing.Point(85, 216)
+        Me.diwert.Location = New System.Drawing.Point(113, 266)
+        Me.diwert.Margin = New System.Windows.Forms.Padding(4)
         Me.diwert.Name = "diwert"
         Me.diwert.ShowUpDown = True
-        Me.diwert.Size = New System.Drawing.Size(68, 20)
+        Me.diwert.Size = New System.Drawing.Size(91, 22)
         Me.diwert.TabIndex = 7
         '
         'lblMenge
         '
         Me.lblMenge.AutoSize = True
-        Me.lblMenge.Location = New System.Drawing.Point(11, 193)
+        Me.lblMenge.Location = New System.Drawing.Point(15, 238)
+        Me.lblMenge.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblMenge.Name = "lblMenge"
-        Me.lblMenge.Size = New System.Drawing.Size(40, 13)
+        Me.lblMenge.Size = New System.Drawing.Size(49, 16)
         Me.lblMenge.TabIndex = 7
         Me.lblMenge.Text = "Menge"
         '
@@ -501,18 +540,20 @@ Partial Class Leistungen
         Me.DIMenge.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.DIMenge.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
         Me.DIMenge.Increment = 1.0R
-        Me.DIMenge.Location = New System.Drawing.Point(85, 190)
+        Me.DIMenge.Location = New System.Drawing.Point(113, 234)
+        Me.DIMenge.Margin = New System.Windows.Forms.Padding(4)
         Me.DIMenge.Name = "DIMenge"
         Me.DIMenge.ShowUpDown = True
-        Me.DIMenge.Size = New System.Drawing.Size(68, 20)
+        Me.DIMenge.Size = New System.Drawing.Size(91, 22)
         Me.DIMenge.TabIndex = 5
         '
         'lblTaxpunkte
         '
         Me.lblTaxpunkte.AutoSize = True
-        Me.lblTaxpunkte.Location = New System.Drawing.Point(159, 193)
+        Me.lblTaxpunkte.Location = New System.Drawing.Point(212, 238)
+        Me.lblTaxpunkte.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblTaxpunkte.Name = "lblTaxpunkte"
-        Me.lblTaxpunkte.Size = New System.Drawing.Size(41, 13)
+        Me.lblTaxpunkte.Size = New System.Drawing.Size(48, 16)
         Me.lblTaxpunkte.TabIndex = 5
         Me.lblTaxpunkte.Text = "Punkte"
         '
@@ -524,34 +565,38 @@ Partial Class Leistungen
         Me.DIPunkte.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.DIPunkte.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
         Me.DIPunkte.Increment = 1.0R
-        Me.DIPunkte.Location = New System.Drawing.Point(206, 190)
+        Me.DIPunkte.Location = New System.Drawing.Point(275, 234)
+        Me.DIPunkte.Margin = New System.Windows.Forms.Padding(4)
         Me.DIPunkte.Name = "DIPunkte"
         Me.DIPunkte.ShowUpDown = True
-        Me.DIPunkte.Size = New System.Drawing.Size(56, 20)
+        Me.DIPunkte.Size = New System.Drawing.Size(75, 22)
         Me.DIPunkte.TabIndex = 6
         '
         'txtPosition
         '
-        Me.txtPosition.Location = New System.Drawing.Point(85, 89)
+        Me.txtPosition.Location = New System.Drawing.Point(113, 110)
+        Me.txtPosition.Margin = New System.Windows.Forms.Padding(4)
         Me.txtPosition.Name = "txtPosition"
-        Me.txtPosition.Size = New System.Drawing.Size(56, 20)
+        Me.txtPosition.Size = New System.Drawing.Size(73, 22)
         Me.txtPosition.TabIndex = 2
         '
         'lblPosition
         '
         Me.lblPosition.AutoSize = True
-        Me.lblPosition.Location = New System.Drawing.Point(11, 92)
+        Me.lblPosition.Location = New System.Drawing.Point(15, 113)
+        Me.lblPosition.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblPosition.Name = "lblPosition"
-        Me.lblPosition.Size = New System.Drawing.Size(44, 13)
+        Me.lblPosition.Size = New System.Drawing.Size(55, 16)
         Me.lblPosition.TabIndex = 2
         Me.lblPosition.Text = "Position"
         '
         'lbldatum
         '
         Me.lbldatum.AutoSize = True
-        Me.lbldatum.Location = New System.Drawing.Point(11, 38)
+        Me.lbldatum.Location = New System.Drawing.Point(15, 47)
+        Me.lbldatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lbldatum.Name = "lbldatum"
-        Me.lbldatum.Size = New System.Drawing.Size(38, 13)
+        Me.lbldatum.Size = New System.Drawing.Size(46, 16)
         Me.lbldatum.TabIndex = 1
         Me.lbldatum.Text = "Datum"
         '
@@ -565,7 +610,8 @@ Partial Class Leistungen
         Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
         Me.dtdatum.ButtonDropDown.Visible = True
         Me.dtdatum.IsPopupCalendarOpen = False
-        Me.dtdatum.Location = New System.Drawing.Point(85, 35)
+        Me.dtdatum.Location = New System.Drawing.Point(113, 43)
+        Me.dtdatum.Margin = New System.Windows.Forms.Padding(4)
         '
         '
         '
@@ -596,7 +642,7 @@ Partial Class Leistungen
         Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.dtdatum.MonthCalendar.TodayButtonVisible = True
         Me.dtdatum.Name = "dtdatum"
-        Me.dtdatum.Size = New System.Drawing.Size(177, 20)
+        Me.dtdatum.Size = New System.Drawing.Size(236, 22)
         Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
         Me.dtdatum.TabIndex = 0
         '
@@ -605,8 +651,10 @@ Partial Class Leistungen
         Me.GrpLeistungen.Controls.Add(Me.C1Leistungen)
         Me.GrpLeistungen.Dock = System.Windows.Forms.DockStyle.Fill
         Me.GrpLeistungen.Location = New System.Drawing.Point(0, 0)
+        Me.GrpLeistungen.Margin = New System.Windows.Forms.Padding(4)
         Me.GrpLeistungen.Name = "GrpLeistungen"
-        Me.GrpLeistungen.Size = New System.Drawing.Size(1079, 158)
+        Me.GrpLeistungen.Padding = New System.Windows.Forms.Padding(4)
+        Me.GrpLeistungen.Size = New System.Drawing.Size(1439, 200)
         Me.GrpLeistungen.TabIndex = 3
         Me.GrpLeistungen.TabStop = False
         Me.GrpLeistungen.Text = "Leistungen"
@@ -619,13 +667,14 @@ Partial Class Leistungen
         Me.C1Leistungen.FilterBar = True
         Me.C1Leistungen.GroupByCaption = "Drag a column header here to group by that column"
         Me.C1Leistungen.Images.Add(CType(resources.GetObject("C1Leistungen.Images"), System.Drawing.Image))
-        Me.C1Leistungen.Location = New System.Drawing.Point(3, 16)
+        Me.C1Leistungen.Location = New System.Drawing.Point(4, 19)
+        Me.C1Leistungen.Margin = New System.Windows.Forms.Padding(4)
         Me.C1Leistungen.Name = "C1Leistungen"
         Me.C1Leistungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.C1Leistungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.C1Leistungen.PreviewInfo.ZoomFactor = 75.0R
         Me.C1Leistungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Leistungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.C1Leistungen.Size = New System.Drawing.Size(1073, 139)
+        Me.C1Leistungen.Size = New System.Drawing.Size(1431, 177)
         Me.C1Leistungen.TabIndex = 2
         Me.C1Leistungen.Text = "C1TrueDBGrid1"
         Me.C1Leistungen.PropBag = resources.GetString("C1Leistungen.PropBag")
@@ -635,30 +684,30 @@ Partial Class Leistungen
         Me.ctxMenuLeistung.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ctxMenuLeistung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnzeigenToolStripMenuItem, Me.LeistungsdatumÄndernToolStripMenuItem})
         Me.ctxMenuLeistung.Name = "ctxMenuLeistung"
-        Me.ctxMenuLeistung.Size = New System.Drawing.Size(200, 92)
+        Me.ctxMenuLeistung.Size = New System.Drawing.Size(233, 100)
         '
         'BearbeitenToolStripMenuItem
         '
         Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
-        Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
+        Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(232, 24)
         Me.BearbeitenToolStripMenuItem.Text = "&Bearbeiten"
         '
         'LöschenToolStripMenuItem
         '
         Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
-        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
+        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(232, 24)
         Me.LöschenToolStripMenuItem.Text = "&Löschen"
         '
         'AnzeigenToolStripMenuItem
         '
         Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
-        Me.AnzeigenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
+        Me.AnzeigenToolStripMenuItem.Size = New System.Drawing.Size(232, 24)
         Me.AnzeigenToolStripMenuItem.Text = "Anzeigen"
         '
         'LeistungsdatumÄndernToolStripMenuItem
         '
         Me.LeistungsdatumÄndernToolStripMenuItem.Name = "LeistungsdatumÄndernToolStripMenuItem"
-        Me.LeistungsdatumÄndernToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
+        Me.LeistungsdatumÄndernToolStripMenuItem.Size = New System.Drawing.Size(232, 24)
         Me.LeistungsdatumÄndernToolStripMenuItem.Text = "Leistungsdatum ändern"
         '
         'Panel2
@@ -667,28 +716,31 @@ Partial Class Leistungen
         Me.Panel2.Controls.Add(Me.grpLeistungsdetails)
         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel2.Location = New System.Drawing.Point(0, 25)
+        Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1079, 284)
+        Me.Panel2.Size = New System.Drawing.Size(1439, 350)
         Me.Panel2.TabIndex = 4
         '
         'Panel3
         '
         Me.Panel3.Controls.Add(Me.GrpLeistungen)
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel3.Location = New System.Drawing.Point(0, 309)
+        Me.Panel3.Location = New System.Drawing.Point(0, 375)
+        Me.Panel3.Margin = New System.Windows.Forms.Padding(4)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(1079, 158)
+        Me.Panel3.Size = New System.Drawing.Size(1439, 200)
         Me.Panel3.TabIndex = 5
         '
         'Leistungen
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.Panel3)
         Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.ToolStrip1)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "Leistungen"
-        Me.Size = New System.Drawing.Size(1079, 467)
+        Me.Size = New System.Drawing.Size(1439, 575)
         Me.ToolStrip1.ResumeLayout(False)
         Me.ToolStrip1.PerformLayout()
         Me.GrpTarif.ResumeLayout(False)
@@ -771,4 +823,6 @@ Partial Class Leistungen
     Friend WithEvents txtErgänzung As TextBox
     Friend WithEvents Label2 As Label
     Friend WithEvents LeistungsdatumÄndernToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblLagerbewtand As ToolStripLabel
+    Friend WithEvents lblLageranzahl As ToolStripLabel
 End Class

DPM2016/Behandlung/Leistungen.resx

@@ -130,7 +130,7 @@
   <data name="tsDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -145,7 +145,7 @@
   <data name="tsUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -163,7 +163,7 @@
   <data name="C1Leistungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -197,6 +197,6 @@
 </value>
   </data>
   <data name="C1Leistungen.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1071, 137&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1071, 137&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}Style15{}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style6{}Normal{}Style7{}Editor{}Style4{}Style14{}Style16{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1429, 169&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1429, 169&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
 </root>

DPM2016/Behandlung/Leistungen.vb

@@ -46,6 +46,10 @@ Public Class Leistungen
                     Me.BearbeitenToolStripMenuItem.Enabled = False
                     Me.LöschenToolStripMenuItem.Enabled = False
             End Select
+            If Globals.Applicationtype = Applicationtype.Projektabrechnung Then
+                Me.TabPage1.Text = "Artikel"
+                Me.GrpTarif.Text = "Artikel"
+            End If
         End Set
     End Property
 
@@ -586,8 +590,27 @@ Public Class Leistungen
 
     End Sub
 
+    Sub update_lagerbesatnd()
+        If Globals.User_Lagerbestand Then
+            Me.lblLagerbewtand.Visible = True
+            Me.lblLageranzahl.Visible = True
+            Dim db As New clsDB
+            Try
+                db.Get_Tabledata("Lager", "", "Select isnull(lagerbestand,0) as lagerbestand from tarif where sso_nummer='" + Me.txtPosition.Text.ToString + "'")
+                Me.lblLageranzahl.Text = db.dsDaten.Tables(0).Rows(0).Item(0)
+            Catch
+            Finally
+                db.Dispose()
+            End Try
+
+        Else
+            Me.lblLagerbewtand.Visible = False
+            Me.lblLageranzahl.Visible = False
+        End If
+    End Sub
     Dim interror As Integer = 0
     Private Sub txtPosition_TextChanged(sender As Object, e As EventArgs) Handles txtPosition.Leave
+
         If Me.dtdatum.Value = "00:00:00" Then Me.dtdatum.Value = Now
         Try
             If cbboxnrbehandler.SelectedValue < 1 Then Me.cbboxnrbehandler.SelectedValue = Me.behandler
@@ -651,6 +674,8 @@ Public Class Leistungen
 
         End If
 
+
+        update_lagerbesatnd()
         Dim dv As New DataView(IntTables.Inttables.Tables("Tarif"), "sso_nummer='" + Me.txtPosition.Text.ToString + "'", "", DataViewRowState.CurrentRows)
         If dv.Count > 0 Then
             For Each drv As DataRowView In dv
@@ -945,7 +970,7 @@ Public Class Leistungen
 
     End Sub
 
-    Sub Leistung_Einfuegen(Optional ssonummer As String = "", Optional anzahl As Integer = 1)
+    Sub Leistung_Einfuegen(Optional ssonummer As String = "", Optional anzahl As Integer = 1, Optional VonPaket As Boolean = False)
         ' If ssonummer = "" Then Exit Sub
         'If ssonummer = "7006" Then
         '    MsgBox("Hallo")
@@ -998,7 +1023,12 @@ Public Class Leistungen
         Else
             r.Item("bezd") = drv("bezd") + " " + Me.txtErgänzung.Text
         End If
+        Try
+            If My.Settings.SoftwareType = "PADM" Then r.Item("bezf") = drv("bezf")
 
+        Catch ex As Exception
+
+        End Try
         If ssonummer = "" Then
             r.Item("taxpunkte") = Me.DIPunkte.Value
         Else
@@ -1027,12 +1057,17 @@ Public Class Leistungen
         End If
 
         Dim leistungsbetrag As Double
-        If ssonummer = "" Then
-            r.Item("frankenprotaxpunkt") = Me.diwert.Value
-            leistungsbetrag = Me.diwert.Value
+        If VonPaket = True Then
+            r.Item("frankenprotaxpunkt") = drv.Item("frankenbetrag")
         Else
-            r.Item("frankenprotaxpunkt") = Frankenwert
-            leistungsbetrag = Frankenwert
+
+            If ssonummer = "" Then
+                r.Item("frankenprotaxpunkt") = Me.diwert.Value
+                leistungsbetrag = Me.diwert.Value
+            Else
+                r.Item("frankenprotaxpunkt") = Frankenwert
+                leistungsbetrag = Frankenwert
+            End If
         End If
 
         If ssonummer = "" Then
@@ -1053,6 +1088,16 @@ Public Class Leistungen
         r.Item("nrbehandler") = Me.cbboxnrbehandler.SelectedValue
         db.dsDaten.Tables(0).Rows.Add(r)
         db.Update_Data()
+
+
+        If db.Get_Option(70010) = "True" Then
+            Try
+                db.Update_Lager(Me.Behandlungnr, drv("Nrtarif"), anzahl, 1)
+            Catch
+            End Try
+
+        End If
+
         db.Dispose()
         refresh_leistungen()
 
@@ -1080,6 +1125,7 @@ Public Class Leistungen
                 If Me.C1Leistungen.SelectedRows.Count < 2 Then
                     ldb.delete_leistung(Me.C1Leistungen.Columns("nrleistung").Value)
                     refresh_leistungen()
+                    update_lagerbesatnd()
                     Exit Sub
                 End If
                 If Me.C1Leistungen.SelectedRows.Count > 1 Then
@@ -1095,6 +1141,7 @@ Public Class Leistungen
                         ldb.delete_leistung(cl(i))
                     Next
                     refresh_leistungen()
+                    update_lagerbesatnd()
                 End If
             End If
         Catch ex As Exception
@@ -1106,6 +1153,7 @@ Public Class Leistungen
 
     Private Sub TreeTarifGruppen_NodeClick(sender As Object, e As DevComponents.AdvTree.TreeNodeMouseEventArgs) Handles TreeTarifGruppen.NodeClick
         Load_Tarif()
+        update_lagerbesatnd()
     End Sub
 
     Private Sub btnPaketeinfuegen_Click(sender As Object, e As EventArgs) Handles btnPaketeinfuegen.Click
@@ -1147,7 +1195,7 @@ Public Class Leistungen
                 If drv.Item("Dentotar") = False Then
                     dvt = New DataView(IntTables.Inttables.Tables("Tarif"), "nrtarif=" + drv.Item("nrtarif").ToString, "", DataViewRowState.CurrentRows)
                     For Each dvtr As DataRowView In dvt
-                        Leistung_Einfuegen(dvtr("SSO_Nummer").ToString, Me.intAnzahl.Value)
+                        Leistung_Einfuegen(dvtr("SSO_Nummer").ToString, Me.intAnzahl.Value, True)
                     Next
                 End If
 
@@ -1192,6 +1240,20 @@ Public Class Leistungen
 
     Private Sub C1Leistungen_DoubleClick(sender As Object, e As EventArgs) Handles C1Leistungen.DoubleClick
         Try
+            If My.Settings.SoftwareType = "PADM" Then
+                Dim f1 As New frmLeistungDetailPADM
+                f1.cbboxnrbehandler.Dataselection = db.Get_SQL(2)
+                f1.cbboxnrbehandler.TableAlias = "Behandler_BH"
+                f1.cbboxnrbehandler.Table = "Behandler"
+                f1.cbboxnrbehandler.Displaymember = "Name"
+                f1.cbboxnrbehandler.Valuemember = "nrprivat"
+                f1.Leistungsnummer = C1Leistungen.Columns(0).Value.ToString
+                If Me.grpLeistungsdetails.Enabled = False Then f1.IsReadonly = True Else f1.IsReadonly = False
+                f1.ShowDialog()
+                Me.refresh_leistungen()
+                update_lagerbesatnd()
+                Exit Sub
+            End If
             Dim f As New frmLeistungDetail
             f.cbboxnrbehandler.Dataselection = db.Get_SQL(2)
             f.cbboxnrbehandler.TableAlias = "Behandler_BH"
@@ -1202,6 +1264,7 @@ Public Class Leistungen
             If Me.grpLeistungsdetails.Enabled = False Then f.IsReadonly = True Else f.IsReadonly = False
             f.ShowDialog()
             Me.refresh_leistungen()
+            update_lagerbesatnd()
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
@@ -1290,6 +1353,7 @@ Public Class Leistungen
             db.Update_Data()
             Me.C1Leistungen.Columns("datum").Value = f.MaskedTextBox1.Text
             db.Dispose()
+            update_lagerbesatnd()
         End If
     End Sub
 
@@ -1301,6 +1365,7 @@ Public Class Leistungen
         'ldb.dsDaten.AcceptChanges()
         Me.C1Leistungen.UpdateData()
         ldb.Update_Data()
+        update_lagerbesatnd()
         'ldb.Update_Tabeldata()
     End Sub
 

DPM2016/Behandlung/clsFakturaFunktionen.vb

@@ -14,6 +14,7 @@
         Dim Separater_Druckjob As Boolean
         Dim doloop As Boolean = True
         db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
+
         Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
         Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
 
@@ -148,7 +149,7 @@
 
     End Sub
 
-    Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False)
+    Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False, Optional asPDF As Boolean = False, Optional perMail As Boolean = False)
         Globals.pdfCollection.Clear()
         Dim db As New clsDB
         Dim db1 As New clsDB
@@ -233,4 +234,86 @@
 
     End Sub
 
+    Public Sub Offerte_Auftragsbestaegitigung_Lieferschein(ByVal nrbehandlung As String, ByVal typ As Integer, ByVal PDFHandling As Integer, ByVal archivdoc As Boolean, ByVal fromtype As clspdfhelper.GetEmpfaengerType)
+        Dim pdfh As New clspdfhelper
+
+        Dim db As New clsDB
+        Dim db1 As New clsDB
+        Dim anzahlraten As Integer = 0
+        'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
+        db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
+        db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
+        anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
+        If anzahlraten = 0 Then anzahlraten = 1
+        Dim reportnr As Integer
+        Dim Doktype As String
+        Dim MAILTEXTNR As Integer
+        Select Case typ
+            Case 1
+                Doktype = "Offerte"
+                MAILTEXTNR = 3
+                reportnr = db.Get_ReportNr("Offerte")
+            Case 2
+                Doktype = "Auftragsbestätigung"
+                MAILTEXTNR = 4
+                reportnr = db.Get_ReportNr("Offerte")
+            Case 3
+                MAILTEXTNR = 5
+                Doktype = "Lieferschein"
+
+                reportnr = db.Get_ReportNr("Offerte")
+
+        End Select
+
+        Dim Folgeauswertung As Integer
+        Dim Separater_Druckjob As Boolean
+        Dim doloop As Boolean = True
+        db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
+
+        Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
+        Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
+        Select Case PDFHandling
+            Case 0
+                Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
+                f.Show()
+                f.Print_Rechnung(True, False, 1, 0, 0, Doktype)
+            Case 1
+                Dim f As New frmReportView(reportnr, False, "PDF ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
+                f.Visible = False
+                f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
+
+                pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
+
+            Case 2
+                Dim f As New frmReportView(reportnr, False, "PDF/Mail ", " where nrbehandlung = " + nrbehandlung, nrbehandlung, True)
+                f.Visible = False
+                f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
+                pdfh.Create_Archivdoc(fromtype, "", "Auftragsbestätigung:", nrbehandlung)
+            Case 3
+                Dim f As New frmReportView(reportnr, False, "Druck ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
+                f.Visible = False
+                f.Show()
+                f.Print_Rechnung(False, False, 1, 0, 0, Doktype)
+                f.Close()
+                pdfh.Create_Archivdoc(fromtype, "", "Lieferschein:", nrbehandlung)
+            Case 4
+                Dim f As New frmReportView(reportnr, False, "Vorschau ", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
+                f.Show()
+                f.Print_Rechnung(False, True, 1, 0, 0, Doktype)
+                f.Close()
+        End Select
+
+
+        Dim asPDF As Boolean = False
+        Dim PerMail As Boolean = False
+        Select Case PDFHandling
+            Case 1
+                pdfh.HandlePDF(True, False, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
+            Case 2
+
+                pdfh.HandlePDF(True, True, MAILTEXTNR, clsMailClient.EmpfangerFrom.Behandlung, nrbehandlung)
+        End Select
+
+    End Sub
+
 End Class

DPM2016/Behandlung/frmLeistungDetail.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmLeistungDetail
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmLeistungDetail
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLeistungDetail))
         Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
@@ -29,7 +29,6 @@ Partial Class frmLeistungDetail
         Me.lblTarifnr = New System.Windows.Forms.Label()
         Me.lblLeistungsbeschreibung = New System.Windows.Forms.Label()
         Me.txtBezD = New System.Windows.Forms.TextBox()
-        Me.cbboxnrbehandler = New DPM2016.MyCombobox()
         Me.lblbehandler = New System.Windows.Forms.Label()
         Me.btnSave = New System.Windows.Forms.Button()
         Me.txtTotal = New System.Windows.Forms.Label()
@@ -42,6 +41,7 @@ Partial Class frmLeistungDetail
         Me.DIPunkte = New DevComponents.Editors.DoubleInput()
         Me.lbldatum = New System.Windows.Forms.Label()
         Me.dtdatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
+        Me.cbboxnrbehandler = New DPM2016.MyCombobox()
         Me.grpLeistungsdetails.SuspendLayout()
         CType(Me.diwert, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DIMenge, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -51,9 +51,10 @@ Partial Class frmLeistungDetail
         '
         'ToolStrip1
         '
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(388, 25)
+        Me.ToolStrip1.Size = New System.Drawing.Size(517, 31)
         Me.ToolStrip1.TabIndex = 1
         Me.ToolStrip1.Text = "ToolStrip1"
         Me.ToolStrip1.Visible = False
@@ -79,8 +80,10 @@ Partial Class frmLeistungDetail
         Me.grpLeistungsdetails.Controls.Add(Me.dtdatum)
         Me.grpLeistungsdetails.Dock = System.Windows.Forms.DockStyle.Fill
         Me.grpLeistungsdetails.Location = New System.Drawing.Point(0, 0)
+        Me.grpLeistungsdetails.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.grpLeistungsdetails.Name = "grpLeistungsdetails"
-        Me.grpLeistungsdetails.Size = New System.Drawing.Size(388, 389)
+        Me.grpLeistungsdetails.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.grpLeistungsdetails.Size = New System.Drawing.Size(517, 479)
         Me.grpLeistungsdetails.TabIndex = 3
         Me.grpLeistungsdetails.TabStop = False
         Me.grpLeistungsdetails.Text = "Leistungsdetails"
@@ -88,64 +91,58 @@ Partial Class frmLeistungDetail
         'lblSSONummer
         '
         Me.lblSSONummer.AutoSize = True
-        Me.lblSSONummer.Location = New System.Drawing.Point(77, 25)
+        Me.lblSSONummer.Location = New System.Drawing.Point(103, 31)
+        Me.lblSSONummer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblSSONummer.Name = "lblSSONummer"
-        Me.lblSSONummer.Size = New System.Drawing.Size(31, 13)
+        Me.lblSSONummer.Size = New System.Drawing.Size(35, 16)
         Me.lblSSONummer.TabIndex = 0
         Me.lblSSONummer.Text = "0000"
         '
         'lblTarifnr
         '
         Me.lblTarifnr.AutoSize = True
-        Me.lblTarifnr.Location = New System.Drawing.Point(6, 25)
+        Me.lblTarifnr.Location = New System.Drawing.Point(8, 31)
+        Me.lblTarifnr.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblTarifnr.Name = "lblTarifnr"
-        Me.lblTarifnr.Size = New System.Drawing.Size(42, 13)
+        Me.lblTarifnr.Size = New System.Drawing.Size(51, 16)
         Me.lblTarifnr.TabIndex = 25
         Me.lblTarifnr.Text = "TarifNr."
         '
         'lblLeistungsbeschreibung
         '
         Me.lblLeistungsbeschreibung.AutoSize = True
-        Me.lblLeistungsbeschreibung.Location = New System.Drawing.Point(6, 53)
+        Me.lblLeistungsbeschreibung.Location = New System.Drawing.Point(8, 65)
+        Me.lblLeistungsbeschreibung.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblLeistungsbeschreibung.Name = "lblLeistungsbeschreibung"
-        Me.lblLeistungsbeschreibung.Size = New System.Drawing.Size(72, 13)
+        Me.lblLeistungsbeschreibung.Size = New System.Drawing.Size(90, 16)
         Me.lblLeistungsbeschreibung.TabIndex = 23
         Me.lblLeistungsbeschreibung.Text = "Beschreibung"
         '
         'txtBezD
         '
-        Me.txtBezD.Location = New System.Drawing.Point(80, 52)
+        Me.txtBezD.Location = New System.Drawing.Point(107, 64)
+        Me.txtBezD.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.txtBezD.Multiline = True
         Me.txtBezD.Name = "txtBezD"
-        Me.txtBezD.Size = New System.Drawing.Size(281, 120)
+        Me.txtBezD.Size = New System.Drawing.Size(373, 147)
         Me.txtBezD.TabIndex = 1
         '
-        'cbboxnrbehandler
-        '
-        Me.cbboxnrbehandler.Dataselection = Nothing
-        Me.cbboxnrbehandler.Displaymember = Nothing
-        Me.cbboxnrbehandler.Location = New System.Drawing.Point(80, 204)
-        Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
-        Me.cbboxnrbehandler.Size = New System.Drawing.Size(281, 21)
-        Me.cbboxnrbehandler.TabIndex = 3
-        Me.cbboxnrbehandler.Table = Nothing
-        Me.cbboxnrbehandler.TableAlias = ""
-        Me.cbboxnrbehandler.Valuemember = Nothing
-        '
         'lblbehandler
         '
         Me.lblbehandler.AutoSize = True
-        Me.lblbehandler.Location = New System.Drawing.Point(6, 206)
+        Me.lblbehandler.Location = New System.Drawing.Point(8, 254)
+        Me.lblbehandler.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblbehandler.Name = "lblbehandler"
-        Me.lblbehandler.Size = New System.Drawing.Size(55, 13)
+        Me.lblbehandler.Size = New System.Drawing.Size(69, 16)
         Me.lblbehandler.TabIndex = 14
         Me.lblbehandler.Text = "Behandler"
         '
         'btnSave
         '
-        Me.btnSave.Location = New System.Drawing.Point(137, 329)
+        Me.btnSave.Location = New System.Drawing.Point(183, 405)
+        Me.btnSave.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.btnSave.Name = "btnSave"
-        Me.btnSave.Size = New System.Drawing.Size(120, 23)
+        Me.btnSave.Size = New System.Drawing.Size(160, 28)
         Me.btnSave.TabIndex = 8
         Me.btnSave.Text = "Speichern"
         Me.btnSave.UseVisualStyleBackColor = True
@@ -153,10 +150,11 @@ Partial Class frmLeistungDetail
         'txtTotal
         '
         Me.txtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtTotal.Location = New System.Drawing.Point(44, 291)
+        Me.txtTotal.Location = New System.Drawing.Point(59, 358)
+        Me.txtTotal.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.txtTotal.Name = "txtTotal"
         Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.txtTotal.Size = New System.Drawing.Size(92, 13)
+        Me.txtTotal.Size = New System.Drawing.Size(123, 16)
         Me.txtTotal.TabIndex = 7
         Me.txtTotal.Text = "0.00www"
         Me.txtTotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -165,18 +163,20 @@ Partial Class frmLeistungDetail
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(6, 291)
+        Me.Label1.Location = New System.Drawing.Point(8, 358)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(36, 13)
+        Me.Label1.Size = New System.Drawing.Size(45, 17)
         Me.Label1.TabIndex = 10
         Me.Label1.Text = "Total"
         '
         'lblWert
         '
         Me.lblWert.AutoSize = True
-        Me.lblWert.Location = New System.Drawing.Point(6, 266)
+        Me.lblWert.Location = New System.Drawing.Point(8, 327)
+        Me.lblWert.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblWert.Name = "lblWert"
-        Me.lblWert.Size = New System.Drawing.Size(30, 13)
+        Me.lblWert.Size = New System.Drawing.Size(35, 16)
         Me.lblWert.TabIndex = 9
         Me.lblWert.Text = "Wert"
         '
@@ -189,18 +189,20 @@ Partial Class frmLeistungDetail
         Me.diwert.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.diwert.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
         Me.diwert.Increment = 1.0R
-        Me.diwert.Location = New System.Drawing.Point(80, 262)
+        Me.diwert.Location = New System.Drawing.Point(107, 322)
+        Me.diwert.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.diwert.Name = "diwert"
         Me.diwert.ShowUpDown = True
-        Me.diwert.Size = New System.Drawing.Size(56, 20)
+        Me.diwert.Size = New System.Drawing.Size(75, 22)
         Me.diwert.TabIndex = 6
         '
         'lblMenge
         '
         Me.lblMenge.AutoSize = True
-        Me.lblMenge.Location = New System.Drawing.Point(6, 239)
+        Me.lblMenge.Location = New System.Drawing.Point(8, 294)
+        Me.lblMenge.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblMenge.Name = "lblMenge"
-        Me.lblMenge.Size = New System.Drawing.Size(40, 13)
+        Me.lblMenge.Size = New System.Drawing.Size(49, 16)
         Me.lblMenge.TabIndex = 7
         Me.lblMenge.Text = "Menge"
         '
@@ -213,18 +215,20 @@ Partial Class frmLeistungDetail
         Me.DIMenge.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.DIMenge.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
         Me.DIMenge.Increment = 1.0R
-        Me.DIMenge.Location = New System.Drawing.Point(80, 236)
+        Me.DIMenge.Location = New System.Drawing.Point(107, 290)
+        Me.DIMenge.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.DIMenge.Name = "DIMenge"
         Me.DIMenge.ShowUpDown = True
-        Me.DIMenge.Size = New System.Drawing.Size(56, 20)
+        Me.DIMenge.Size = New System.Drawing.Size(75, 22)
         Me.DIMenge.TabIndex = 4
         '
         'lblTaxpunkte
         '
         Me.lblTaxpunkte.AutoSize = True
-        Me.lblTaxpunkte.Location = New System.Drawing.Point(154, 239)
+        Me.lblTaxpunkte.Location = New System.Drawing.Point(205, 294)
+        Me.lblTaxpunkte.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblTaxpunkte.Name = "lblTaxpunkte"
-        Me.lblTaxpunkte.Size = New System.Drawing.Size(41, 13)
+        Me.lblTaxpunkte.Size = New System.Drawing.Size(48, 16)
         Me.lblTaxpunkte.TabIndex = 5
         Me.lblTaxpunkte.Text = "Punkte"
         '
@@ -236,18 +240,20 @@ Partial Class frmLeistungDetail
         Me.DIPunkte.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.DIPunkte.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
         Me.DIPunkte.Increment = 1.0R
-        Me.DIPunkte.Location = New System.Drawing.Point(201, 236)
+        Me.DIPunkte.Location = New System.Drawing.Point(268, 290)
+        Me.DIPunkte.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.DIPunkte.Name = "DIPunkte"
         Me.DIPunkte.ShowUpDown = True
-        Me.DIPunkte.Size = New System.Drawing.Size(56, 20)
+        Me.DIPunkte.Size = New System.Drawing.Size(75, 22)
         Me.DIPunkte.TabIndex = 5
         '
         'lbldatum
         '
         Me.lbldatum.AutoSize = True
-        Me.lbldatum.Location = New System.Drawing.Point(6, 181)
+        Me.lbldatum.Location = New System.Drawing.Point(8, 223)
+        Me.lbldatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lbldatum.Name = "lbldatum"
-        Me.lbldatum.Size = New System.Drawing.Size(38, 13)
+        Me.lbldatum.Size = New System.Drawing.Size(46, 16)
         Me.lbldatum.TabIndex = 1
         Me.lbldatum.Text = "Datum"
         '
@@ -261,7 +267,8 @@ Partial Class frmLeistungDetail
         Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
         Me.dtdatum.ButtonDropDown.Visible = True
         Me.dtdatum.IsPopupCalendarOpen = False
-        Me.dtdatum.Location = New System.Drawing.Point(80, 178)
+        Me.dtdatum.Location = New System.Drawing.Point(107, 219)
+        Me.dtdatum.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         '
         '
         '
@@ -292,18 +299,32 @@ Partial Class frmLeistungDetail
         Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.dtdatum.MonthCalendar.TodayButtonVisible = True
         Me.dtdatum.Name = "dtdatum"
-        Me.dtdatum.Size = New System.Drawing.Size(281, 20)
+        Me.dtdatum.Size = New System.Drawing.Size(375, 22)
         Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
         Me.dtdatum.TabIndex = 2
         '
+        'cbboxnrbehandler
+        '
+        Me.cbboxnrbehandler.Dataselection = Nothing
+        Me.cbboxnrbehandler.Displaymember = Nothing
+        Me.cbboxnrbehandler.Location = New System.Drawing.Point(107, 251)
+        Me.cbboxnrbehandler.Margin = New System.Windows.Forms.Padding(4)
+        Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
+        Me.cbboxnrbehandler.Size = New System.Drawing.Size(373, 24)
+        Me.cbboxnrbehandler.TabIndex = 3
+        Me.cbboxnrbehandler.Table = Nothing
+        Me.cbboxnrbehandler.TableAlias = ""
+        Me.cbboxnrbehandler.Valuemember = Nothing
+        '
         'frmLeistungDetail
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(388, 389)
+        Me.ClientSize = New System.Drawing.Size(517, 479)
         Me.Controls.Add(Me.grpLeistungsdetails)
         Me.Controls.Add(Me.ToolStrip1)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Name = "frmLeistungDetail"
         Me.Text = "Leistungsdetail"
         Me.grpLeistungsdetails.ResumeLayout(False)

DPM2016/Behandlung/frmLeistungDetailPADM.Designer.vb

@@ -0,0 +1,400 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmLeistungDetailPADM
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.grpLeistungsdetails = New System.Windows.Forms.GroupBox()
+        Me.richTextBoxExtended1 = New RichTextBoxExtended.RichTextBoxExtended()
+        Me.lblSSONummer = New System.Windows.Forms.Label()
+        Me.lblTarifnr = New System.Windows.Forms.Label()
+        Me.lblLeistungsbeschreibung = New System.Windows.Forms.Label()
+        Me.txtBezD = New System.Windows.Forms.TextBox()
+        Me.cbboxnrbehandler = New DPM2016.MyCombobox()
+        Me.lblbehandler = New System.Windows.Forms.Label()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.txtTotal = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblWert = New System.Windows.Forms.Label()
+        Me.diwert = New DevComponents.Editors.DoubleInput()
+        Me.lblMenge = New System.Windows.Forms.Label()
+        Me.DIMenge = New DevComponents.Editors.DoubleInput()
+        Me.lblTaxpunkte = New System.Windows.Forms.Label()
+        Me.DIPunkte = New DevComponents.Editors.DoubleInput()
+        Me.lbldatum = New System.Windows.Forms.Label()
+        Me.dtdatum = New DevComponents.Editors.DateTimeAdv.DateTimeInput()
+        Me.grpLeistungsdetails.SuspendLayout()
+        CType(Me.diwert, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DIMenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DIPunkte, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'grpLeistungsdetails
+        '
+        Me.grpLeistungsdetails.Controls.Add(Me.richTextBoxExtended1)
+        Me.grpLeistungsdetails.Controls.Add(Me.lblSSONummer)
+        Me.grpLeistungsdetails.Controls.Add(Me.lblTarifnr)
+        Me.grpLeistungsdetails.Controls.Add(Me.lblLeistungsbeschreibung)
+        Me.grpLeistungsdetails.Controls.Add(Me.txtBezD)
+        Me.grpLeistungsdetails.Controls.Add(Me.cbboxnrbehandler)
+        Me.grpLeistungsdetails.Controls.Add(Me.lblbehandler)
+        Me.grpLeistungsdetails.Controls.Add(Me.btnSave)
+        Me.grpLeistungsdetails.Controls.Add(Me.txtTotal)
+        Me.grpLeistungsdetails.Controls.Add(Me.Label1)
+        Me.grpLeistungsdetails.Controls.Add(Me.lblWert)
+        Me.grpLeistungsdetails.Controls.Add(Me.diwert)
+        Me.grpLeistungsdetails.Controls.Add(Me.lblMenge)
+        Me.grpLeistungsdetails.Controls.Add(Me.DIMenge)
+        Me.grpLeistungsdetails.Controls.Add(Me.lblTaxpunkte)
+        Me.grpLeistungsdetails.Controls.Add(Me.DIPunkte)
+        Me.grpLeistungsdetails.Controls.Add(Me.lbldatum)
+        Me.grpLeistungsdetails.Controls.Add(Me.dtdatum)
+        Me.grpLeistungsdetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.grpLeistungsdetails.Location = New System.Drawing.Point(0, 0)
+        Me.grpLeistungsdetails.Margin = New System.Windows.Forms.Padding(4)
+        Me.grpLeistungsdetails.Name = "grpLeistungsdetails"
+        Me.grpLeistungsdetails.Padding = New System.Windows.Forms.Padding(4)
+        Me.grpLeistungsdetails.Size = New System.Drawing.Size(630, 664)
+        Me.grpLeistungsdetails.TabIndex = 4
+        Me.grpLeistungsdetails.TabStop = False
+        Me.grpLeistungsdetails.Text = "Leistungsdetails"
+        '
+        'richTextBoxExtended1
+        '
+        Me.richTextBoxExtended1.AcceptsTab = True
+        Me.richTextBoxExtended1.AutoWordSelection = True
+        Me.richTextBoxExtended1.DetectURLs = True
+        Me.richTextBoxExtended1.Location = New System.Drawing.Point(106, 184)
+        Me.richTextBoxExtended1.Name = "richTextBoxExtended1"
+        Me.richTextBoxExtended1.ReadOnly = False
+        '
+        '
+        '
+        Me.richTextBoxExtended1.RichTextBox.AcceptsTab = True
+        Me.richTextBoxExtended1.RichTextBox.AutoWordSelection = True
+        Me.richTextBoxExtended1.RichTextBox.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.richTextBoxExtended1.RichTextBox.Location = New System.Drawing.Point(0, 70)
+        Me.richTextBoxExtended1.RichTextBox.Name = "rtb1"
+        Me.richTextBoxExtended1.RichTextBox.Size = New System.Drawing.Size(489, 139)
+        Me.richTextBoxExtended1.RichTextBox.TabIndex = 1
+        Me.richTextBoxExtended1.ShowBold = True
+        Me.richTextBoxExtended1.ShowCenterJustify = True
+        Me.richTextBoxExtended1.ShowColors = True
+        Me.richTextBoxExtended1.ShowCopy = True
+        Me.richTextBoxExtended1.ShowCut = True
+        Me.richTextBoxExtended1.ShowFont = True
+        Me.richTextBoxExtended1.ShowFontSize = True
+        Me.richTextBoxExtended1.ShowItalic = True
+        Me.richTextBoxExtended1.ShowLeftJustify = True
+        Me.richTextBoxExtended1.ShowOpen = True
+        Me.richTextBoxExtended1.ShowPaste = True
+        Me.richTextBoxExtended1.ShowRedo = True
+        Me.richTextBoxExtended1.ShowRightJustify = True
+        Me.richTextBoxExtended1.ShowSave = True
+        Me.richTextBoxExtended1.ShowStamp = True
+        Me.richTextBoxExtended1.ShowStrikeout = True
+        Me.richTextBoxExtended1.ShowToolBarText = False
+        Me.richTextBoxExtended1.ShowUnderline = True
+        Me.richTextBoxExtended1.ShowUndo = True
+        Me.richTextBoxExtended1.Size = New System.Drawing.Size(489, 209)
+        Me.richTextBoxExtended1.StampAction = RichTextBoxExtended.StampActions.EditedBy
+        Me.richTextBoxExtended1.StampColor = System.Drawing.Color.Blue
+        Me.richTextBoxExtended1.TabIndex = 54
+        '
+        '
+        '
+        Me.richTextBoxExtended1.Toolbar.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
+        Me.richTextBoxExtended1.Toolbar.ButtonSize = New System.Drawing.Size(16, 16)
+        Me.richTextBoxExtended1.Toolbar.Divider = False
+        Me.richTextBoxExtended1.Toolbar.DropDownArrows = True
+        Me.richTextBoxExtended1.Toolbar.Location = New System.Drawing.Point(0, 0)
+        Me.richTextBoxExtended1.Toolbar.Name = "tb1"
+        Me.richTextBoxExtended1.Toolbar.ShowToolTips = True
+        Me.richTextBoxExtended1.Toolbar.Size = New System.Drawing.Size(489, 70)
+        Me.richTextBoxExtended1.Toolbar.TabIndex = 0
+        '
+        'lblSSONummer
+        '
+        Me.lblSSONummer.AutoSize = True
+        Me.lblSSONummer.Location = New System.Drawing.Point(103, 31)
+        Me.lblSSONummer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblSSONummer.Name = "lblSSONummer"
+        Me.lblSSONummer.Size = New System.Drawing.Size(35, 16)
+        Me.lblSSONummer.TabIndex = 0
+        Me.lblSSONummer.Text = "0000"
+        '
+        'lblTarifnr
+        '
+        Me.lblTarifnr.AutoSize = True
+        Me.lblTarifnr.Location = New System.Drawing.Point(8, 31)
+        Me.lblTarifnr.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblTarifnr.Name = "lblTarifnr"
+        Me.lblTarifnr.Size = New System.Drawing.Size(51, 16)
+        Me.lblTarifnr.TabIndex = 25
+        Me.lblTarifnr.Text = "TarifNr."
+        '
+        'lblLeistungsbeschreibung
+        '
+        Me.lblLeistungsbeschreibung.AutoSize = True
+        Me.lblLeistungsbeschreibung.Location = New System.Drawing.Point(8, 65)
+        Me.lblLeistungsbeschreibung.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblLeistungsbeschreibung.Name = "lblLeistungsbeschreibung"
+        Me.lblLeistungsbeschreibung.Size = New System.Drawing.Size(90, 16)
+        Me.lblLeistungsbeschreibung.TabIndex = 23
+        Me.lblLeistungsbeschreibung.Text = "Beschreibung"
+        '
+        'txtBezD
+        '
+        Me.txtBezD.Location = New System.Drawing.Point(107, 64)
+        Me.txtBezD.Margin = New System.Windows.Forms.Padding(4)
+        Me.txtBezD.Multiline = True
+        Me.txtBezD.Name = "txtBezD"
+        Me.txtBezD.Size = New System.Drawing.Size(488, 97)
+        Me.txtBezD.TabIndex = 1
+        '
+        'cbboxnrbehandler
+        '
+        Me.cbboxnrbehandler.Dataselection = Nothing
+        Me.cbboxnrbehandler.Displaymember = Nothing
+        Me.cbboxnrbehandler.Location = New System.Drawing.Point(107, 459)
+        Me.cbboxnrbehandler.Margin = New System.Windows.Forms.Padding(4)
+        Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
+        Me.cbboxnrbehandler.Size = New System.Drawing.Size(373, 24)
+        Me.cbboxnrbehandler.TabIndex = 3
+        Me.cbboxnrbehandler.Table = Nothing
+        Me.cbboxnrbehandler.TableAlias = ""
+        Me.cbboxnrbehandler.Valuemember = Nothing
+        '
+        'lblbehandler
+        '
+        Me.lblbehandler.AutoSize = True
+        Me.lblbehandler.Location = New System.Drawing.Point(8, 462)
+        Me.lblbehandler.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblbehandler.Name = "lblbehandler"
+        Me.lblbehandler.Size = New System.Drawing.Size(69, 16)
+        Me.lblbehandler.TabIndex = 14
+        Me.lblbehandler.Text = "Behandler"
+        '
+        'btnSave
+        '
+        Me.btnSave.Location = New System.Drawing.Point(208, 613)
+        Me.btnSave.Margin = New System.Windows.Forms.Padding(4)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(160, 28)
+        Me.btnSave.TabIndex = 8
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'txtTotal
+        '
+        Me.txtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtTotal.Location = New System.Drawing.Point(59, 566)
+        Me.txtTotal.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.txtTotal.Name = "txtTotal"
+        Me.txtTotal.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.txtTotal.Size = New System.Drawing.Size(123, 16)
+        Me.txtTotal.TabIndex = 7
+        Me.txtTotal.Text = "0.00www"
+        Me.txtTotal.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(8, 566)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(45, 17)
+        Me.Label1.TabIndex = 10
+        Me.Label1.Text = "Total"
+        '
+        'lblWert
+        '
+        Me.lblWert.AutoSize = True
+        Me.lblWert.Location = New System.Drawing.Point(8, 535)
+        Me.lblWert.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblWert.Name = "lblWert"
+        Me.lblWert.Size = New System.Drawing.Size(35, 16)
+        Me.lblWert.TabIndex = 9
+        Me.lblWert.Text = "Wert"
+        '
+        'diwert
+        '
+        '
+        '
+        '
+        Me.diwert.BackgroundStyle.Class = "DateTimeInputBackground"
+        Me.diwert.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.diwert.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
+        Me.diwert.Increment = 1.0R
+        Me.diwert.Location = New System.Drawing.Point(107, 530)
+        Me.diwert.Margin = New System.Windows.Forms.Padding(4)
+        Me.diwert.Name = "diwert"
+        Me.diwert.ShowUpDown = True
+        Me.diwert.Size = New System.Drawing.Size(152, 22)
+        Me.diwert.TabIndex = 6
+        '
+        'lblMenge
+        '
+        Me.lblMenge.AutoSize = True
+        Me.lblMenge.Location = New System.Drawing.Point(8, 502)
+        Me.lblMenge.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblMenge.Name = "lblMenge"
+        Me.lblMenge.Size = New System.Drawing.Size(49, 16)
+        Me.lblMenge.TabIndex = 7
+        Me.lblMenge.Text = "Menge"
+        '
+        'DIMenge
+        '
+        '
+        '
+        '
+        Me.DIMenge.BackgroundStyle.Class = "DateTimeInputBackground"
+        Me.DIMenge.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.DIMenge.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
+        Me.DIMenge.Increment = 1.0R
+        Me.DIMenge.Location = New System.Drawing.Point(107, 498)
+        Me.DIMenge.Margin = New System.Windows.Forms.Padding(4)
+        Me.DIMenge.Name = "DIMenge"
+        Me.DIMenge.ShowUpDown = True
+        Me.DIMenge.Size = New System.Drawing.Size(152, 22)
+        Me.DIMenge.TabIndex = 4
+        '
+        'lblTaxpunkte
+        '
+        Me.lblTaxpunkte.AutoSize = True
+        Me.lblTaxpunkte.Location = New System.Drawing.Point(344, 502)
+        Me.lblTaxpunkte.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblTaxpunkte.Name = "lblTaxpunkte"
+        Me.lblTaxpunkte.Size = New System.Drawing.Size(48, 16)
+        Me.lblTaxpunkte.TabIndex = 5
+        Me.lblTaxpunkte.Text = "Punkte"
+        '
+        'DIPunkte
+        '
+        '
+        '
+        '
+        Me.DIPunkte.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.DIPunkte.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
+        Me.DIPunkte.Increment = 1.0R
+        Me.DIPunkte.Location = New System.Drawing.Point(407, 498)
+        Me.DIPunkte.Margin = New System.Windows.Forms.Padding(4)
+        Me.DIPunkte.Name = "DIPunkte"
+        Me.DIPunkte.ShowUpDown = True
+        Me.DIPunkte.Size = New System.Drawing.Size(75, 22)
+        Me.DIPunkte.TabIndex = 5
+        '
+        'lbldatum
+        '
+        Me.lbldatum.AutoSize = True
+        Me.lbldatum.Location = New System.Drawing.Point(8, 431)
+        Me.lbldatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lbldatum.Name = "lbldatum"
+        Me.lbldatum.Size = New System.Drawing.Size(46, 16)
+        Me.lbldatum.TabIndex = 1
+        Me.lbldatum.Text = "Datum"
+        '
+        'dtdatum
+        '
+        '
+        '
+        '
+        Me.dtdatum.BackgroundStyle.Class = "DateTimeInputBackground"
+        Me.dtdatum.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
+        Me.dtdatum.ButtonDropDown.Visible = True
+        Me.dtdatum.IsPopupCalendarOpen = False
+        Me.dtdatum.Location = New System.Drawing.Point(107, 427)
+        Me.dtdatum.Margin = New System.Windows.Forms.Padding(4)
+        '
+        '
+        '
+        '
+        '
+        '
+        Me.dtdatum.MonthCalendar.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.dtdatum.MonthCalendar.CalendarDimensions = New System.Drawing.Size(1, 1)
+        Me.dtdatum.MonthCalendar.ClearButtonVisible = True
+        '
+        '
+        '
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground2
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorGradientAngle = 90
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarBackground
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.BarDockedBorder
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.BorderTopWidth = 1
+        Me.dtdatum.MonthCalendar.CommandsBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.dtdatum.MonthCalendar.DisplayMonth = New Date(2015, 6, 1, 0, 0, 0, 0)
+        Me.dtdatum.MonthCalendar.FirstDayOfWeek = System.DayOfWeek.Monday
+        '
+        '
+        '
+        Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColor2SchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground2
+        Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorGradientAngle = 90
+        Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.BackColorSchemePart = DevComponents.DotNetBar.eColorSchemePart.PanelBackground
+        Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.dtdatum.MonthCalendar.TodayButtonVisible = True
+        Me.dtdatum.Name = "dtdatum"
+        Me.dtdatum.Size = New System.Drawing.Size(375, 22)
+        Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.dtdatum.TabIndex = 2
+        '
+        'frmLeistungDetailPADM
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(630, 664)
+        Me.Controls.Add(Me.grpLeistungsdetails)
+        Me.Name = "frmLeistungDetailPADM"
+        Me.Text = "frmLeistungDetailPADM"
+        Me.grpLeistungsdetails.ResumeLayout(False)
+        Me.grpLeistungsdetails.PerformLayout()
+        CType(Me.diwert, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DIMenge, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DIPunkte, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dtdatum, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents grpLeistungsdetails As GroupBox
+    Friend WithEvents lblSSONummer As Label
+    Friend WithEvents lblTarifnr As Label
+    Friend WithEvents lblLeistungsbeschreibung As Label
+    Friend WithEvents txtBezD As TextBox
+    Friend WithEvents cbboxnrbehandler As MyCombobox
+    Friend WithEvents lblbehandler As Label
+    Friend WithEvents btnSave As Button
+    Friend WithEvents txtTotal As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents lblWert As Label
+    Friend WithEvents diwert As DevComponents.Editors.DoubleInput
+    Friend WithEvents lblMenge As Label
+    Friend WithEvents DIMenge As DevComponents.Editors.DoubleInput
+    Friend WithEvents lblTaxpunkte As Label
+    Friend WithEvents DIPunkte As DevComponents.Editors.DoubleInput
+    Friend WithEvents lbldatum As Label
+    Friend WithEvents dtdatum As DevComponents.Editors.DateTimeAdv.DateTimeInput
+    Private WithEvents richTextBoxExtended1 As RichTextBoxExtended.RichTextBoxExtended
+End Class

DPM2016/Behandlung/frmLeistungDetailPADM.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

DPM2016/Behandlung/frmLeistungDetailPADM.vb

@@ -0,0 +1,104 @@
+Public Class frmLeistungDetailPADM
+    Dim m_leistungsnummer As Integer
+    Property Leistungsnummer As Integer
+        Get
+            Return m_leistungsnummer
+        End Get
+        Set(value As Integer)
+            m_leistungsnummer = value
+            Update_data()
+        End Set
+    End Property
+
+    Dim m_IsReadOnly As Boolean
+    Property IsReadonly As Boolean
+        Get
+            Return m_IsReadOnly
+        End Get
+        Set(value As Boolean)
+            m_IsReadOnly = value
+            If value = True Then grpLeistungsdetails.Enabled = False Else grpLeistungsdetails.Enabled = True
+        End Set
+    End Property
+
+    Private Sub frmLeistungDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            Me.lblbehandler.Text = "Erbringer"
+        End If
+    End Sub
+
+    Dim db As New clsDB
+    Sub Update_data()
+
+        db.Get_Leistung(Me.Leistungsnummer)
+        Me.lblSSONummer.Text = db.dsDaten.Tables(0).Rows(0).Item("sso_nummer")
+        Me.txtBezD.Text = db.dsDaten.Tables(0).Rows(0).Item("bezd")
+        Me.dtdatum.Value = db.dsDaten.Tables(0).Rows(0).Item("datum")
+        Me.DIMenge.Value = db.dsDaten.Tables(0).Rows(0).Item("menge")
+        Me.DIPunkte.Value = db.dsDaten.Tables(0).Rows(0).Item("taxpunkte")
+        Me.diwert.Value = db.dsDaten.Tables(0).Rows(0).Item("frankenprotaxpunkt")
+        Me.cbboxnrbehandler.SelectedValue = db.dsDaten.Tables(0).Rows(0).Item("nrbehandler")
+        Me.richTextBoxExtended1.RichTextBox.Rtf = db.dsDaten.Tables(0).Rows(0).Item("bezf").ToString
+        If DIPunkte.Value = 0 Then DIPunkte.Enabled = False Else DIPunkte.Enabled = True
+        Dim t As Double
+        t = db.dsDaten.Tables(0).Rows(0).Item("total")
+        Me.txtTotal.Text = t.ToString("N2")
+
+    End Sub
+
+    Private Sub DIPunkte_ValueChanged(sender As Object, e As EventArgs) Handles DIPunkte.ValueChanged, DIMenge.ValueChanged, diwert.ValueChanged
+        Try
+            Dim total As Double
+            If DIPunkte.Value > 0 Then
+                total = DIPunkte.Value * DIMenge.Value * diwert.Value
+                Me.txtTotal.Text = total.ToString("N2")
+            Else
+                total = DIMenge.Value * diwert.Value
+                Me.txtTotal.Text = total.ToString("N2")
+            End If
+
+        Catch
+        End Try
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        Me.lblSSONummer.Text = db.dsDaten.Tables(0).Rows(0).Item("sso_nummer")
+        db.dsDaten.Tables(0).Rows(0).Item("bezd") = Me.txtBezD.Text
+        db.dsDaten.Tables(0).Rows(0).Item("datum") = Me.dtdatum.Value
+        db.dsDaten.Tables(0).Rows(0).Item("menge") = Me.DIMenge.Value
+        db.dsDaten.Tables(0).Rows(0).Item("taxpunkte") = Me.DIPunkte.Value
+        db.dsDaten.Tables(0).Rows(0).Item("frankenprotaxpunkt") = Me.diwert.Value
+        db.dsDaten.Tables(0).Rows(0).Item("nrbehandler") = Me.cbboxnrbehandler.SelectedValue
+        db.dsDaten.Tables(0).Rows(0).Item("total") = Me.txtTotal.Text
+        db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
+        db.dsDaten.Tables(0).Rows(0).Item("bezf") = Me.richTextBoxExtended1.RichTextBox.Rtf
+        db.Update_Data()
+        Me.Close()
+    End Sub
+
+    Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
+
+    End Sub
+
+    Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
+        If e.KeyCode = Keys.Escape Then delete_date(sender)
+        If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
+        If e.KeyCode = 190 Then SendKeys.SendWait("{TAB}")
+
+    End Sub
+    Sub delete_date(sender)
+        sender.value = Nothing
+    End Sub
+
+    Private Sub txtTotal_Click(sender As Object, e As EventArgs) Handles txtTotal.Click
+
+    End Sub
+
+    Private Sub txtTotal_TextChanged(sender As Object, e As EventArgs) Handles txtTotal.TextChanged
+        Try
+            Me.txtTotal.Text = Globals.SwissCommercialRound(txtTotal.Text).ToString("N2")
+        Catch
+        End Try
+
+    End Sub
+End Class

DPM2016/DPM2016.vbproj

@@ -14,7 +14,7 @@
     <TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
     <IsWebBootstrapper>false</IsWebBootstrapper>
     <TargetFrameworkProfile />
-    <PublishUrl>E:\Software-Projekte\DPM\DPM2016\DPM2016\Publish\</PublishUrl>
+    <PublishUrl>E:\Software-Projekte\DPM\DPM2016\DPM2016\Publish\20220630\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Disk</InstallFrom>
     <UpdateEnabled>false</UpdateEnabled>
@@ -24,7 +24,7 @@
     <UpdatePeriodically>false</UpdatePeriodically>
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
-    <ApplicationRevision>1</ApplicationRevision>
+    <ApplicationRevision>2</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
@@ -65,7 +65,7 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>DPMNeu.ico</ApplicationIcon>
+    <ApplicationIcon>PADM.ico</ApplicationIcon>
   </PropertyGroup>
   <PropertyGroup>
     <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
@@ -172,6 +172,9 @@
     <Reference Include="QRCoder">
       <HintPath>..\..\QR-Rechnung\QRCoder-master\QRCoder\bin\Debug\QRCoder.dll</HintPath>
     </Reference>
+    <Reference Include="RichTextBoxExtended">
+      <HintPath>..\..\..\_Demos\RichTextBoxExtended\bin\Debug\RichTextBoxExtended.dll</HintPath>
+    </Reference>
     <Reference Include="RtfPipe">
       <HintPath>..\..\ThirtPartyKlassen\MsgViewer\bin\Debug\RtfPipe.dll</HintPath>
     </Reference>
@@ -311,6 +314,12 @@
     <Compile Include="Behandlung\frmLeistungDetail.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Behandlung\frmLeistungDetailPADM.Designer.vb">
+      <DependentUpon>frmLeistungDetailPADM.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Behandlung\frmLeistungDetailPADM.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Behandlung\frmPosition.Designer.vb">
       <DependentUpon>frmPosition.vb</DependentUpon>
     </Compile>
@@ -394,6 +403,12 @@
     <Compile Include="Dokumente\DokumentDetail.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Dokumente\frmDokumentList.Designer.vb">
+      <DependentUpon>frmDokumentList.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Dokumente\frmDokumentList.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Dokumente\frmdokumentvorlagen.Designer.vb">
       <DependentUpon>frmdokumentvorlagen.vb</DependentUpon>
     </Compile>
@@ -503,6 +518,12 @@
     <Compile Include="Patient\PatientDetails.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="Patient\subclasses\PatientDetailsFirma.Designer.vb">
+      <DependentUpon>PatientDetailsFirma.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Patient\subclasses\PatientDetailsFirma.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="Program.vb" />
     <Compile Include="Recall\Recall.Designer.vb">
       <DependentUpon>Recall.vb</DependentUpon>
@@ -591,6 +612,12 @@
     <Compile Include="Sysadmin\frmTexteditor.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Sysadmin\TarifDetail_PADM.Designer.vb">
+      <DependentUpon>TarifDetail_PADM.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Sysadmin\TarifDetail_PADM.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Utils\clsLog.vb" />
     <Compile Include="Mobile\clsMobile.vb" />
     <Compile Include="Utils\Crypto.vb" />
@@ -636,6 +663,18 @@
     <Compile Include="Utils\frmLogin.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Utils\frmRichText.Designer.vb">
+      <DependentUpon>frmRichText.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Utils\frmRichText.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Utils\frmrtf.Designer.vb">
+      <DependentUpon>frmrtf.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Utils\frmrtf.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Utils\frmSplash.Designer.vb">
       <DependentUpon>frmSplash.vb</DependentUpon>
     </Compile>
@@ -698,6 +737,9 @@
     <EmbeddedResource Include="Behandlung\frmLeistungDetail.resx">
       <DependentUpon>frmLeistungDetail.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Behandlung\frmLeistungDetailPADM.resx">
+      <DependentUpon>frmLeistungDetailPADM.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Behandlung\frmPosition.resx">
       <DependentUpon>frmPosition.vb</DependentUpon>
     </EmbeddedResource>
@@ -738,6 +780,10 @@
     </EmbeddedResource>
     <EmbeddedResource Include="Dokumente\DokumentDetail.resx">
       <DependentUpon>DokumentDetail.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Dokumente\frmDokumentList.resx">
+      <DependentUpon>frmDokumentList.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="Dokumente\frmdokumentvorlagen.resx">
       <DependentUpon>frmdokumentvorlagen.vb</DependentUpon>
@@ -789,6 +835,9 @@
     <EmbeddedResource Include="Patient\PatientDetails.resx">
       <DependentUpon>PatientDetails.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Patient\subclasses\PatientDetailsFirma.resx">
+      <DependentUpon>PatientDetailsFirma.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Recall\Recall.resx">
       <DependentUpon>Recall.vb</DependentUpon>
     </EmbeddedResource>
@@ -816,6 +865,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="Klassen\clsStammdaten_flat.resx">
       <DependentUpon>clsStammdaten_flat.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
@@ -831,6 +881,9 @@
     <EmbeddedResource Include="Sysadmin\frmTexteditor.resx">
       <DependentUpon>frmTexteditor.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Sysadmin\TarifDetail_PADM.resx">
+      <DependentUpon>TarifDetail_PADM.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Utils\frmcalendar.resx">
       <DependentUpon>frmcalendar.vb</DependentUpon>
     </EmbeddedResource>
@@ -852,6 +905,12 @@
     <EmbeddedResource Include="Utils\frmLogin.resx">
       <DependentUpon>frmLogin.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Utils\frmRichText.resx">
+      <DependentUpon>frmRichText.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Utils\frmrtf.resx">
+      <DependentUpon>frmrtf.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Utils\frmSplash.resx">
       <DependentUpon>frmSplash.vb</DependentUpon>
     </EmbeddedResource>
@@ -895,6 +954,7 @@
       <DependentUpon>Database1.mdf</DependentUpon>
     </Content>
     <Content Include="DPMNeu.ico" />
+    <Content Include="PADM.ico" />
     <Content Include="Zahlung\TextFile1.txt" />
   </ItemGroup>
   <ItemGroup>

DPM2016/DPM2016.vbproj.user

@@ -14,6 +14,7 @@
     <EnableSecurityDebugging>false</EnableSecurityDebugging>
   </PropertyGroup>
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
-    <StartArguments>PADM</StartArguments>
+    <StartArguments>
+    </StartArguments>
   </PropertyGroup>
 </Project>

DPM2016/Database/clsDB.vb

@@ -461,7 +461,7 @@ Public Class clsDB
     Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer
         Select Case Type
             Case "Patient"
-
+                Searchstring = Searchstring.Replace("'", "''")
                 If IsNumeric(Searchstring) Then
                     Get_Tabledata("privat", " where nrprivat=" + Searchstring + " order by name, vorname, ort")
                     If dsDaten.Tables(0).Rows.Count = 0 Then
@@ -649,7 +649,7 @@ Public Class clsDB
         Next
 
         If Not found Then
-            Me.Get_Tabledata("Tarifgrp", "order by tarifvon")
+            Me.Get_Tabledata("Tarifgrp", "where aktiv=1 order by tarifvon")
             IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
         End If
 
@@ -660,7 +660,7 @@ Public Class clsDB
             End If
         Next
         If Not found Then
-            Me.Get_Tabledata("Tarpaket", "order by paketbezeichnung")
+            Me.Get_Tabledata("Tarpaket", "where aktiv=1 order by paketbezeichnung")
             IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
         End If
         If Not found Then
@@ -744,6 +744,31 @@ Public Class clsDB
         End Try
     End Sub
 
+    Public Sub Update_Lager(ByVal nrbehandlung As Integer, ByVal tarifnr As String, ByVal anzahl As Integer, ByVal Typ As String)
+        If Globals.OnLoad Then Exit Sub
+
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+
+        scmCmdToExecute.CommandText = "dbo.[sp_update_lagerbestand]"
+        Dim conn As New SqlConnection(My.Settings.ConnectionString)
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        scmCmdToExecute.Connection = conn
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@nrbehandlung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, nrbehandlung))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@tarifnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, tarifnr))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@anzahl", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, anzahl))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Typ))
+
+            scmCmdToExecute.Connection.Open()
+            scmCmdToExecute.ExecuteNonQuery()
+            Return
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            scmCmdToExecute.Connection.Close()
+        End Try
+    End Sub
+
 
 
 #End Region

DPM2016/Diverses/frmDemoMode.Designer.vb

@@ -37,7 +37,9 @@ Partial Class frmDemoMode
         Me.Label6 = New System.Windows.Forms.Label()
         Me.lblkey = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'PictureBox1
@@ -45,9 +47,10 @@ Partial Class frmDemoMode
         Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
         Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
         Me.PictureBox1.InitialImage = CType(resources.GetObject("PictureBox1.InitialImage"), System.Drawing.Image)
-        Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
+        Me.PictureBox1.Location = New System.Drawing.Point(13, 13)
+        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(287, 160)
+        Me.PictureBox1.Size = New System.Drawing.Size(383, 197)
         Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
         Me.PictureBox1.TabIndex = 0
         Me.PictureBox1.TabStop = False
@@ -55,125 +58,152 @@ Partial Class frmDemoMode
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(9, 192)
+        Me.Label1.Location = New System.Drawing.Point(12, 236)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(47, 13)
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
         Me.Label1.TabIndex = 1
         Me.Label1.Text = "Produkt:"
         '
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(9, 215)
+        Me.Label2.Location = New System.Drawing.Point(12, 265)
+        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(45, 13)
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
         Me.Label2.TabIndex = 2
         Me.Label2.Text = "Version:"
         '
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(9, 239)
+        Me.Label3.Location = New System.Drawing.Point(12, 294)
+        Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(41, 13)
+        Me.Label3.Size = New System.Drawing.Size(49, 16)
         Me.Label3.TabIndex = 3
         Me.Label3.Text = "Datum:"
         '
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(9, 265)
+        Me.Label4.Location = New System.Drawing.Point(12, 326)
+        Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(25, 13)
+        Me.Label4.Size = New System.Drawing.Size(29, 16)
         Me.Label4.TabIndex = 4
         Me.Label4.Text = "SN:"
         '
         'lblprodukt
         '
         Me.lblprodukt.AutoSize = True
-        Me.lblprodukt.Location = New System.Drawing.Point(90, 192)
+        Me.lblprodukt.Location = New System.Drawing.Point(120, 236)
+        Me.lblprodukt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblprodukt.Name = "lblprodukt"
-        Me.lblprodukt.Size = New System.Drawing.Size(39, 13)
+        Me.lblprodukt.Size = New System.Drawing.Size(48, 16)
         Me.lblprodukt.TabIndex = 5
         Me.lblprodukt.Text = "Label5"
         '
         'lblVersion
         '
         Me.lblVersion.AutoSize = True
-        Me.lblVersion.Location = New System.Drawing.Point(90, 216)
+        Me.lblVersion.Location = New System.Drawing.Point(120, 266)
+        Me.lblVersion.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblVersion.Name = "lblVersion"
-        Me.lblVersion.Size = New System.Drawing.Size(41, 13)
+        Me.lblVersion.Size = New System.Drawing.Size(49, 16)
         Me.lblVersion.TabIndex = 6
         Me.lblVersion.Text = "Datum:"
         '
         'lblDatum
         '
         Me.lblDatum.AutoSize = True
-        Me.lblDatum.Location = New System.Drawing.Point(90, 240)
+        Me.lblDatum.Location = New System.Drawing.Point(120, 295)
+        Me.lblDatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblDatum.Name = "lblDatum"
-        Me.lblDatum.Size = New System.Drawing.Size(41, 13)
+        Me.lblDatum.Size = New System.Drawing.Size(49, 16)
         Me.lblDatum.TabIndex = 7
         Me.lblDatum.Text = "Datum:"
         '
         'lblSN
         '
         Me.lblSN.AutoSize = True
-        Me.lblSN.Location = New System.Drawing.Point(90, 266)
+        Me.lblSN.Location = New System.Drawing.Point(120, 327)
+        Me.lblSN.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblSN.Name = "lblSN"
-        Me.lblSN.Size = New System.Drawing.Size(41, 13)
+        Me.lblSN.Size = New System.Drawing.Size(49, 16)
         Me.lblSN.TabIndex = 8
         Me.lblSN.Text = "Datum:"
         '
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(9, 294)
+        Me.Label5.Location = New System.Drawing.Point(12, 362)
+        Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(75, 13)
+        Me.Label5.Size = New System.Drawing.Size(92, 16)
         Me.Label5.TabIndex = 9
         Me.Label5.Text = "Lizenznehmer:"
         '
         'lblLizenznehmer
         '
         Me.lblLizenznehmer.AutoSize = True
-        Me.lblLizenznehmer.Location = New System.Drawing.Point(90, 295)
+        Me.lblLizenznehmer.Location = New System.Drawing.Point(120, 363)
+        Me.lblLizenznehmer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblLizenznehmer.Name = "lblLizenznehmer"
-        Me.lblLizenznehmer.Size = New System.Drawing.Size(75, 13)
+        Me.lblLizenznehmer.Size = New System.Drawing.Size(92, 16)
         Me.lblLizenznehmer.TabIndex = 10
         Me.lblLizenznehmer.Text = "Lizenznehmer:"
         '
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(9, 320)
+        Me.Label6.Location = New System.Drawing.Point(12, 394)
+        Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(83, 13)
+        Me.Label6.Size = New System.Drawing.Size(103, 16)
         Me.Label6.TabIndex = 11
         Me.Label6.Text = "Lizenzschlüssel:"
         '
         'lblkey
         '
         Me.lblkey.AutoSize = True
-        Me.lblkey.Location = New System.Drawing.Point(90, 320)
+        Me.lblkey.Location = New System.Drawing.Point(120, 394)
+        Me.lblkey.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.lblkey.Name = "lblkey"
-        Me.lblkey.Size = New System.Drawing.Size(35, 13)
+        Me.lblkey.Size = New System.Drawing.Size(44, 16)
         Me.lblkey.TabIndex = 12
         Me.lblkey.Text = "lblKey"
         '
         'Button1
         '
-        Me.Button1.Location = New System.Drawing.Point(112, 360)
+        Me.Button1.Location = New System.Drawing.Point(149, 443)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.Size = New System.Drawing.Size(100, 28)
         Me.Button1.TabIndex = 13
         Me.Button1.Text = "OK"
         Me.Button1.UseVisualStyleBackColor = True
         '
+        'PictureBox2
+        '
+        Me.PictureBox2.ErrorImage = CType(resources.GetObject("PictureBox2.ErrorImage"), System.Drawing.Image)
+        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
+        Me.PictureBox2.InitialImage = CType(resources.GetObject("PictureBox2.InitialImage"), System.Drawing.Image)
+        Me.PictureBox2.Location = New System.Drawing.Point(13, 13)
+        Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(383, 197)
+        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.PictureBox2.TabIndex = 14
+        Me.PictureBox2.TabStop = False
+        '
         'frmDemoMode
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(312, 398)
+        Me.ClientSize = New System.Drawing.Size(416, 490)
+        Me.Controls.Add(Me.PictureBox2)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.lblkey)
         Me.Controls.Add(Me.Label6)
@@ -188,9 +218,11 @@ Partial Class frmDemoMode
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.PictureBox1)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Name = "frmDemoMode"
         Me.Text = "frmDemoMode"
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -210,4 +242,5 @@ Partial Class frmDemoMode
     Friend WithEvents Label6 As Label
     Friend WithEvents lblkey As Label
     Friend WithEvents Button1 As Button
+    Friend WithEvents PictureBox2 As PictureBox
 End Class

DPM2016/Diverses/frmDemoMode.vb

@@ -25,6 +25,11 @@
             Me.lblkey.Text = Globals.License.KeyCode
 
         End If
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            Me.PictureBox2.Visible = True
+        Else
+            Me.PictureBox2.Visible = False
+        End If
 
     End Sub
 

DPM2016/Diverses/frmProgrammeinstellungen.vb

@@ -21,7 +21,7 @@ Public Class frmProgrammeinstellungen
         Me.ClsStammdaten_flat3.Tablename = "Konto"
         Me.ClsStammdaten_flat3.ToolStripButton5.Visible = False
         Me.ClsStammdaten_flat3.get_data()
-
+        If My.Settings.SoftwareType = "PADM" Then Me.TabControl1.TabPages(0).Text = "Artikel"
         'Properties.ShowCustomProperties = True
         'Properties.Item.Clear()
         'Properties.Item.Add("Datum", New Date(Today.Ticks), False, "Parameter", "Datum", True)
@@ -714,6 +714,18 @@ DescriptionAttribute("Rabatt gesamt")>
             db.Save_Standard(8, Value)
         End Set
     End Property
+    <CategoryAttribute("Lager"),
+TypeConverter(GetType(TrueFalseList)),
+DefaultValueAttribute("False"),
+DescriptionAttribute("Lagerbestand")>
+    Public Property Lagerbestand As String
+        Get
+            Return db.Get_Option(70010)
+        End Get
+        Set(ByVal Value As String)
+            db.Save_Option(70010, Value)
+        End Set
+    End Property
 End Class
 
 

DPM2016/Dokumente/clsDok.vb

@@ -223,7 +223,14 @@ Public Class clsDok
 #Region "Tree"
     Public Function LoadTree(ByRef Tree As DevComponents.AdvTree.AdvTree)
         Dim db As New clsDB
-        db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
+        Try
+            db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1 order by sort, bezeichnung ")
+            If db.dsDaten.Tables(0).Rows.Count = 0 Then db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
+        Catch
+            db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
+
+        End Try
+
         Load_Treeview(db.dsDaten, Tree)
         db.Dispose()
         Tree.ExpandAll()

DPM2016/Dokumente/frmDokumentList.Designer.vb

@@ -0,0 +1,68 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmDokumentList
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentList))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(1118, 27)
+        Me.ToolStrip1.TabIndex = 0
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(29, 24)
+        Me.ToolStripButton1.Text = "ToolStripButton1"
+        '
+        'frmDokumentList
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1118, 659)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmDokumentList"
+        Me.Text = "frmDokumentList"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents ToolStripButton1 As ToolStripButton
+End Class

DPM2016/Dokumente/frmDokumentList.resx

@@ -0,0 +1,156 @@
+<?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>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
+        0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
+        bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
+        VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
+        c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
+        Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
+        mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
+        kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
+        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
+        AAD///8AAAAAAP8AAAAAAAAAAAAAAAAAAAiIiIj/8AAAAAAAAAAAAAD4d3d3eIiIj/8AAAAAAAAAj//4
+        iHd3d3eIjwAAAAAAAIj//////4iHd3gAAAAAAACI93d3//////94AAAAAAAAj///////////eAAAAAAA
+        AIj3d3f//////3gAAAAAAACP//////////94AAAAAAAAiP//////////eAAAAAAAAI///////////3gA
+        AAAAAACPiI////////94AAAAAAAAj/h3d3d3iP//eAAAAAAAAI//////+Ih//3gAAAAAAACP93d3d4j/
+        //94AAAAAAAAj/////iId3j/eAAAAAAAAI/3d3eIj////3gAAAAAAACP////iId3f/94AAAAAAAAj///
+        ////////eAAAAAAAAI///////////3gAAAAAAACP+Ij///////94AAAAAAAAj/iHd4//////eAAAAAAA
+        AI/4/////////3gAAAAAAACP93d3//////94AAAAAAAAj///////////eAAAAAAAAI94+I/4/////3gA
+        AAAAAACIc4c4h3939394AAAAAAAAh3N3d3c4g4h4fwAAAAAAAAO7e7d3N4N3d48AAAAAAAAPj/iPi4i4
+        gzjwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/P////gB///wAAP/8AAA//AAAP/wA
+        AD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD/8AAA//AAAP/wA
+        AD/8AAA//AAAP/wAAD/8AAA//AAAP/wAAD/8AAA//gAAP/4AAH///////////w==
+</value>
+  </data>
+</root>

DPM2016/Dokumente/frmDokumentList.vb

@@ -0,0 +1,5 @@
+Public Class frmDokumentList
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Me.Close()
+    End Sub
+End Class

DPM2016/Finanzaen/Finanzen.Designer.vb

@@ -48,6 +48,9 @@ Partial Class Finanzen
         Me.C1OffeneRechnungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ZahlungBuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ErsteMahnungMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ZweiteMahnungMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.LetzteMahnungMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.btnzurücksetzen3 = New System.Windows.Forms.Button()
         Me.btnzurücksetzen2 = New System.Windows.Forms.Button()
@@ -85,7 +88,7 @@ Partial Class Finanzen
         Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(1320, 31)
+        Me.ToolStrip1.Size = New System.Drawing.Size(990, 25)
         Me.ToolStrip1.TabIndex = 0
         Me.ToolStrip1.Text = "ToolStrip1"
         '
@@ -104,30 +107,26 @@ Partial Class Finanzen
         Me.GrpZahlung.Controls.Add(Me.txtRGNummer)
         Me.GrpZahlung.Controls.Add(Me.lblRechnungsnummer)
         Me.GrpZahlung.Dock = System.Windows.Forms.DockStyle.Left
-        Me.GrpZahlung.Location = New System.Drawing.Point(0, 31)
-        Me.GrpZahlung.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.GrpZahlung.Location = New System.Drawing.Point(0, 25)
         Me.GrpZahlung.Name = "GrpZahlung"
-        Me.GrpZahlung.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.GrpZahlung.Size = New System.Drawing.Size(575, 691)
+        Me.GrpZahlung.Size = New System.Drawing.Size(431, 562)
         Me.GrpZahlung.TabIndex = 1
         Me.GrpZahlung.TabStop = False
         Me.GrpZahlung.Text = "Zahlung"
         '
         'Button1
         '
-        Me.Button1.Location = New System.Drawing.Point(412, 37)
-        Me.Button1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Button1.Location = New System.Drawing.Point(309, 30)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(20, 28)
+        Me.Button1.Size = New System.Drawing.Size(15, 23)
         Me.Button1.TabIndex = 20
         Me.Button1.UseVisualStyleBackColor = True
         '
         'btnBuchen
         '
-        Me.btnBuchen.Location = New System.Drawing.Point(29, 203)
-        Me.btnBuchen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.btnBuchen.Location = New System.Drawing.Point(22, 165)
         Me.btnBuchen.Name = "btnBuchen"
-        Me.btnBuchen.Size = New System.Drawing.Size(100, 28)
+        Me.btnBuchen.Size = New System.Drawing.Size(75, 23)
         Me.btnBuchen.TabIndex = 19
         Me.btnBuchen.Text = "Buchen"
         Me.btnBuchen.UseVisualStyleBackColor = True
@@ -135,8 +134,7 @@ Partial Class Finanzen
         'chkVorauszahlung
         '
         Me.chkVorauszahlung.AutoSize = True
-        Me.chkVorauszahlung.Location = New System.Drawing.Point(196, 171)
-        Me.chkVorauszahlung.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.chkVorauszahlung.Location = New System.Drawing.Point(147, 139)
         Me.chkVorauszahlung.Name = "chkVorauszahlung"
         Me.chkVorauszahlung.Size = New System.Drawing.Size(15, 14)
         Me.chkVorauszahlung.TabIndex = 18
@@ -145,10 +143,9 @@ Partial Class Finanzen
         'lblVorauszahlung
         '
         Me.lblVorauszahlung.AutoSize = True
-        Me.lblVorauszahlung.Location = New System.Drawing.Point(27, 171)
-        Me.lblVorauszahlung.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblVorauszahlung.Location = New System.Drawing.Point(20, 139)
         Me.lblVorauszahlung.Name = "lblVorauszahlung"
-        Me.lblVorauszahlung.Size = New System.Drawing.Size(103, 17)
+        Me.lblVorauszahlung.Size = New System.Drawing.Size(77, 13)
         Me.lblVorauszahlung.TabIndex = 17
         Me.lblVorauszahlung.Text = "Vorauszahlung"
         '
@@ -156,10 +153,9 @@ Partial Class Finanzen
         '
         Me.cbboxKonto.Dataselection = Nothing
         Me.cbboxKonto.Displaymember = Nothing
-        Me.cbboxKonto.Location = New System.Drawing.Point(196, 134)
-        Me.cbboxKonto.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.cbboxKonto.Location = New System.Drawing.Point(147, 109)
         Me.cbboxKonto.Name = "cbboxKonto"
-        Me.cbboxKonto.Size = New System.Drawing.Size(235, 24)
+        Me.cbboxKonto.Size = New System.Drawing.Size(177, 21)
         Me.cbboxKonto.TabIndex = 15
         Me.cbboxKonto.Table = Nothing
         Me.cbboxKonto.TableAlias = ""
@@ -168,20 +164,18 @@ Partial Class Finanzen
         'lblKonto
         '
         Me.lblKonto.AutoSize = True
-        Me.lblKonto.Location = New System.Drawing.Point(27, 138)
-        Me.lblKonto.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblKonto.Location = New System.Drawing.Point(20, 112)
         Me.lblKonto.Name = "lblKonto"
-        Me.lblKonto.Size = New System.Drawing.Size(86, 17)
+        Me.lblKonto.Size = New System.Drawing.Size(66, 13)
         Me.lblKonto.TabIndex = 16
         Me.lblKonto.Text = "Gegenkonto"
         '
         'lblBetrag
         '
         Me.lblBetrag.AutoSize = True
-        Me.lblBetrag.Location = New System.Drawing.Point(27, 107)
-        Me.lblBetrag.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblBetrag.Location = New System.Drawing.Point(20, 87)
         Me.lblBetrag.Name = "lblBetrag"
-        Me.lblBetrag.Size = New System.Drawing.Size(50, 17)
+        Me.lblBetrag.Size = New System.Drawing.Size(38, 13)
         Me.lblBetrag.TabIndex = 11
         Me.lblBetrag.Text = "Betrag"
         '
@@ -194,20 +188,18 @@ Partial Class Finanzen
         Me.diBetrag.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.diBetrag.ButtonFreeText.Shortcut = DevComponents.DotNetBar.eShortcut.F2
         Me.diBetrag.Increment = 1.0R
-        Me.diBetrag.Location = New System.Drawing.Point(196, 100)
-        Me.diBetrag.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.diBetrag.Location = New System.Drawing.Point(147, 81)
         Me.diBetrag.Name = "diBetrag"
         Me.diBetrag.ShowUpDown = True
-        Me.diBetrag.Size = New System.Drawing.Size(115, 22)
+        Me.diBetrag.Size = New System.Drawing.Size(86, 20)
         Me.diBetrag.TabIndex = 10
         '
         'lbldatum
         '
         Me.lbldatum.AutoSize = True
-        Me.lbldatum.Location = New System.Drawing.Point(27, 76)
-        Me.lbldatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lbldatum.Location = New System.Drawing.Point(20, 62)
         Me.lbldatum.Name = "lbldatum"
-        Me.lbldatum.Size = New System.Drawing.Size(49, 17)
+        Me.lbldatum.Size = New System.Drawing.Size(38, 13)
         Me.lbldatum.TabIndex = 3
         Me.lbldatum.Text = "Datum"
         '
@@ -221,8 +213,7 @@ Partial Class Finanzen
         Me.dtdatum.ButtonDropDown.Shortcut = DevComponents.DotNetBar.eShortcut.AltDown
         Me.dtdatum.ButtonDropDown.Visible = True
         Me.dtdatum.IsPopupCalendarOpen = False
-        Me.dtdatum.Location = New System.Drawing.Point(196, 68)
-        Me.dtdatum.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.dtdatum.Location = New System.Drawing.Point(147, 55)
         '
         '
         '
@@ -253,25 +244,23 @@ Partial Class Finanzen
         Me.dtdatum.MonthCalendar.NavigationBackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.dtdatum.MonthCalendar.TodayButtonVisible = True
         Me.dtdatum.Name = "dtdatum"
-        Me.dtdatum.Size = New System.Drawing.Size(236, 22)
+        Me.dtdatum.Size = New System.Drawing.Size(177, 20)
         Me.dtdatum.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
         Me.dtdatum.TabIndex = 2
         '
         'txtRGNummer
         '
-        Me.txtRGNummer.Location = New System.Drawing.Point(196, 39)
-        Me.txtRGNummer.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.txtRGNummer.Location = New System.Drawing.Point(147, 32)
         Me.txtRGNummer.Name = "txtRGNummer"
-        Me.txtRGNummer.Size = New System.Drawing.Size(213, 22)
+        Me.txtRGNummer.Size = New System.Drawing.Size(161, 20)
         Me.txtRGNummer.TabIndex = 1
         '
         'lblRechnungsnummer
         '
         Me.lblRechnungsnummer.AutoSize = True
-        Me.lblRechnungsnummer.Location = New System.Drawing.Point(27, 43)
-        Me.lblRechnungsnummer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblRechnungsnummer.Location = New System.Drawing.Point(20, 35)
         Me.lblRechnungsnummer.Name = "lblRechnungsnummer"
-        Me.lblRechnungsnummer.Size = New System.Drawing.Size(131, 17)
+        Me.lblRechnungsnummer.Size = New System.Drawing.Size(99, 13)
         Me.lblRechnungsnummer.TabIndex = 0
         Me.lblRechnungsnummer.Text = "Rechnungsnummer"
         '
@@ -279,11 +268,9 @@ Partial Class Finanzen
         '
         Me.GrpZahlungen.Controls.Add(Me.C1Zahlungen)
         Me.GrpZahlungen.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GrpZahlungen.Location = New System.Drawing.Point(575, 31)
-        Me.GrpZahlungen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.GrpZahlungen.Location = New System.Drawing.Point(431, 25)
         Me.GrpZahlungen.Name = "GrpZahlungen"
-        Me.GrpZahlungen.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.GrpZahlungen.Size = New System.Drawing.Size(745, 465)
+        Me.GrpZahlungen.Size = New System.Drawing.Size(559, 247)
         Me.GrpZahlungen.TabIndex = 2
         Me.GrpZahlungen.TabStop = False
         Me.GrpZahlungen.Text = "Verbuchte Zahlungen"
@@ -296,14 +283,13 @@ Partial Class Finanzen
         Me.C1Zahlungen.FilterBar = True
         Me.C1Zahlungen.GroupByCaption = "Drag a column header here to group by that column"
         Me.C1Zahlungen.Images.Add(CType(resources.GetObject("C1Zahlungen.Images"), System.Drawing.Image))
-        Me.C1Zahlungen.Location = New System.Drawing.Point(4, 19)
-        Me.C1Zahlungen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.C1Zahlungen.Location = New System.Drawing.Point(3, 16)
         Me.C1Zahlungen.Name = "C1Zahlungen"
         Me.C1Zahlungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.C1Zahlungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.C1Zahlungen.PreviewInfo.ZoomFactor = 75.0R
         Me.C1Zahlungen.PrintInfo.PageSettings = CType(resources.GetObject("C1Zahlungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.C1Zahlungen.Size = New System.Drawing.Size(737, 442)
+        Me.C1Zahlungen.Size = New System.Drawing.Size(553, 228)
         Me.C1Zahlungen.TabIndex = 3
         Me.C1Zahlungen.Text = "C1TrueDBGrid1"
         Me.C1Zahlungen.PropBag = resources.GetString("C1Zahlungen.PropBag")
@@ -313,35 +299,33 @@ Partial Class Finanzen
         Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZahlungStornierenToolStripMenuItem, Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem, Me.VorauszahlungVonBehandlungLösenToolStripMenuItem})
         Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(342, 76)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(286, 70)
         '
         'ZahlungStornierenToolStripMenuItem
         '
         Me.ZahlungStornierenToolStripMenuItem.Name = "ZahlungStornierenToolStripMenuItem"
-        Me.ZahlungStornierenToolStripMenuItem.Size = New System.Drawing.Size(341, 24)
+        Me.ZahlungStornierenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
         Me.ZahlungStornierenToolStripMenuItem.Text = "&Zahlung stornieren"
         '
         'VorauszahlungAnBehandlungZuweisenToolStripMenuItem
         '
         Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Name = "VorauszahlungAnBehandlungZuweisenToolStripMenuItem"
-        Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Size = New System.Drawing.Size(341, 24)
+        Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
         Me.VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Text = "Vorauszahlung an Behandlung zuweisen"
         '
         'VorauszahlungVonBehandlungLösenToolStripMenuItem
         '
         Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Name = "VorauszahlungVonBehandlungLösenToolStripMenuItem"
-        Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Size = New System.Drawing.Size(341, 24)
+        Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
         Me.VorauszahlungVonBehandlungLösenToolStripMenuItem.Text = "Vorauszahlung von Behandlung lösen"
         '
         'GrpBehandlungen
         '
         Me.GrpBehandlungen.Controls.Add(Me.C1OffeneRechnungen)
         Me.GrpBehandlungen.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GrpBehandlungen.Location = New System.Drawing.Point(575, 496)
-        Me.GrpBehandlungen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.GrpBehandlungen.Location = New System.Drawing.Point(431, 272)
         Me.GrpBehandlungen.Name = "GrpBehandlungen"
-        Me.GrpBehandlungen.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.GrpBehandlungen.Size = New System.Drawing.Size(745, 214)
+        Me.GrpBehandlungen.Size = New System.Drawing.Size(559, 174)
         Me.GrpBehandlungen.TabIndex = 3
         Me.GrpBehandlungen.TabStop = False
         Me.GrpBehandlungen.Text = "Offene Rechnungen"
@@ -354,14 +338,13 @@ Partial Class Finanzen
         Me.C1OffeneRechnungen.FilterBar = True
         Me.C1OffeneRechnungen.GroupByCaption = "Drag a column header here to group by that column"
         Me.C1OffeneRechnungen.Images.Add(CType(resources.GetObject("C1OffeneRechnungen.Images"), System.Drawing.Image))
-        Me.C1OffeneRechnungen.Location = New System.Drawing.Point(4, 19)
-        Me.C1OffeneRechnungen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.C1OffeneRechnungen.Location = New System.Drawing.Point(3, 16)
         Me.C1OffeneRechnungen.Name = "C1OffeneRechnungen"
         Me.C1OffeneRechnungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.C1OffeneRechnungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.C1OffeneRechnungen.PreviewInfo.ZoomFactor = 75.0R
         Me.C1OffeneRechnungen.PrintInfo.PageSettings = CType(resources.GetObject("C1OffeneRechnungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.C1OffeneRechnungen.Size = New System.Drawing.Size(737, 191)
+        Me.C1OffeneRechnungen.Size = New System.Drawing.Size(553, 155)
         Me.C1OffeneRechnungen.TabIndex = 4
         Me.C1OffeneRechnungen.Text = "C1OffeneRechnungen"
         Me.C1OffeneRechnungen.PropBag = resources.GetString("C1OffeneRechnungen.PropBag")
@@ -369,16 +352,34 @@ Partial Class Finanzen
         'ContextMenuStrip1
         '
         Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZahlungBuchenToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZahlungBuchenToolStripMenuItem, Me.ErsteMahnungMenuItem, Me.ZweiteMahnungMenuItem, Me.LetzteMahnungMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(185, 28)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(201, 92)
         '
         'ZahlungBuchenToolStripMenuItem
         '
         Me.ZahlungBuchenToolStripMenuItem.Name = "ZahlungBuchenToolStripMenuItem"
-        Me.ZahlungBuchenToolStripMenuItem.Size = New System.Drawing.Size(184, 24)
+        Me.ZahlungBuchenToolStripMenuItem.Size = New System.Drawing.Size(200, 22)
         Me.ZahlungBuchenToolStripMenuItem.Text = "&Zahlung buchen"
         '
+        'ErsteMahnungMenuItem
+        '
+        Me.ErsteMahnungMenuItem.Name = "ErsteMahnungMenuItem"
+        Me.ErsteMahnungMenuItem.Size = New System.Drawing.Size(200, 22)
+        Me.ErsteMahnungMenuItem.Text = "Erste Mahnung drucken"
+        '
+        'ZweiteMahnungMenuItem
+        '
+        Me.ZweiteMahnungMenuItem.Name = "ZweiteMahnungMenuItem"
+        Me.ZweiteMahnungMenuItem.Size = New System.Drawing.Size(200, 22)
+        Me.ZweiteMahnungMenuItem.Text = "Zweite Mahnung"
+        '
+        'LetzteMahnungMenuItem
+        '
+        Me.LetzteMahnungMenuItem.Name = "LetzteMahnungMenuItem"
+        Me.LetzteMahnungMenuItem.Size = New System.Drawing.Size(200, 22)
+        Me.LetzteMahnungMenuItem.Text = "Letzte Mahnung"
+        '
         'GroupBox1
         '
         Me.GroupBox1.Controls.Add(Me.btnzurücksetzen3)
@@ -401,41 +402,36 @@ Partial Class Finanzen
         Me.GroupBox1.Controls.Add(Me.Label2)
         Me.GroupBox1.Controls.Add(Me.Label1)
         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GroupBox1.Location = New System.Drawing.Point(575, 710)
-        Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.GroupBox1.Location = New System.Drawing.Point(431, 446)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.GroupBox1.Size = New System.Drawing.Size(745, 12)
+        Me.GroupBox1.Size = New System.Drawing.Size(559, 141)
         Me.GroupBox1.TabIndex = 4
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Mahnungen"
         '
         'btnzurücksetzen3
         '
-        Me.btnzurücksetzen3.Location = New System.Drawing.Point(505, 105)
-        Me.btnzurücksetzen3.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.btnzurücksetzen3.Location = New System.Drawing.Point(379, 85)
         Me.btnzurücksetzen3.Name = "btnzurücksetzen3"
-        Me.btnzurücksetzen3.Size = New System.Drawing.Size(131, 28)
+        Me.btnzurücksetzen3.Size = New System.Drawing.Size(98, 23)
         Me.btnzurücksetzen3.TabIndex = 18
         Me.btnzurücksetzen3.Text = "Zurücksetzen"
         Me.btnzurücksetzen3.UseVisualStyleBackColor = True
         '
         'btnzurücksetzen2
         '
-        Me.btnzurücksetzen2.Location = New System.Drawing.Point(505, 76)
-        Me.btnzurücksetzen2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.btnzurücksetzen2.Location = New System.Drawing.Point(379, 62)
         Me.btnzurücksetzen2.Name = "btnzurücksetzen2"
-        Me.btnzurücksetzen2.Size = New System.Drawing.Size(131, 28)
+        Me.btnzurücksetzen2.Size = New System.Drawing.Size(98, 23)
         Me.btnzurücksetzen2.TabIndex = 17
         Me.btnzurücksetzen2.Text = "Zurücksetzen"
         Me.btnzurücksetzen2.UseVisualStyleBackColor = True
         '
         'btnZurücksetzen1
         '
-        Me.btnZurücksetzen1.Location = New System.Drawing.Point(505, 48)
-        Me.btnZurücksetzen1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.btnZurücksetzen1.Location = New System.Drawing.Point(379, 39)
         Me.btnZurücksetzen1.Name = "btnZurücksetzen1"
-        Me.btnZurücksetzen1.Size = New System.Drawing.Size(131, 28)
+        Me.btnZurücksetzen1.Size = New System.Drawing.Size(98, 23)
         Me.btnZurücksetzen1.TabIndex = 16
         Me.btnZurücksetzen1.Text = "Zurücksetzen"
         Me.btnZurücksetzen1.UseVisualStyleBackColor = True
@@ -443,120 +439,108 @@ Partial Class Finanzen
         'Label10
         '
         Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(9, 111)
-        Me.Label10.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label10.Location = New System.Drawing.Point(7, 90)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(16, 17)
+        Me.Label10.Size = New System.Drawing.Size(13, 13)
         Me.Label10.TabIndex = 15
         Me.Label10.Text = "3"
         '
         'Mahngebühr3
         '
         Me.Mahngebühr3.AutoSize = True
-        Me.Mahngebühr3.Location = New System.Drawing.Point(389, 111)
-        Me.Mahngebühr3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Mahngebühr3.Location = New System.Drawing.Point(292, 90)
         Me.Mahngebühr3.Name = "Mahngebühr3"
-        Me.Mahngebühr3.Size = New System.Drawing.Size(51, 17)
+        Me.Mahngebühr3.Size = New System.Drawing.Size(39, 13)
         Me.Mahngebühr3.TabIndex = 14
         Me.Mahngebühr3.Text = "Label8"
         '
         'Mahnfaelligkeit3
         '
         Me.Mahnfaelligkeit3.AutoSize = True
-        Me.Mahnfaelligkeit3.Location = New System.Drawing.Point(233, 110)
-        Me.Mahnfaelligkeit3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Mahnfaelligkeit3.Location = New System.Drawing.Point(175, 89)
         Me.Mahnfaelligkeit3.Name = "Mahnfaelligkeit3"
-        Me.Mahnfaelligkeit3.Size = New System.Drawing.Size(59, 17)
+        Me.Mahnfaelligkeit3.Size = New System.Drawing.Size(45, 13)
         Me.Mahnfaelligkeit3.TabIndex = 13
         Me.Mahnfaelligkeit3.Text = "Label12"
         '
         'Mahndatum3
         '
         Me.Mahndatum3.AutoSize = True
-        Me.Mahndatum3.Location = New System.Drawing.Point(103, 110)
-        Me.Mahndatum3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Mahndatum3.Location = New System.Drawing.Point(77, 89)
         Me.Mahndatum3.Name = "Mahndatum3"
-        Me.Mahndatum3.Size = New System.Drawing.Size(51, 17)
+        Me.Mahndatum3.Size = New System.Drawing.Size(39, 13)
         Me.Mahndatum3.TabIndex = 12
         Me.Mahndatum3.Text = "Label5"
         '
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(9, 82)
-        Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label9.Location = New System.Drawing.Point(7, 67)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(16, 17)
+        Me.Label9.Size = New System.Drawing.Size(13, 13)
         Me.Label9.TabIndex = 11
         Me.Label9.Text = "2"
         '
         'Mahngebühr2
         '
         Me.Mahngebühr2.AutoSize = True
-        Me.Mahngebühr2.Location = New System.Drawing.Point(389, 82)
-        Me.Mahngebühr2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Mahngebühr2.Location = New System.Drawing.Point(292, 67)
         Me.Mahngebühr2.Name = "Mahngebühr2"
-        Me.Mahngebühr2.Size = New System.Drawing.Size(51, 17)
+        Me.Mahngebühr2.Size = New System.Drawing.Size(39, 13)
         Me.Mahngebühr2.TabIndex = 10
         Me.Mahngebühr2.Text = "Label8"
         '
         'Mahnfaelligkeit2
         '
         Me.Mahnfaelligkeit2.AutoSize = True
-        Me.Mahnfaelligkeit2.Location = New System.Drawing.Point(233, 81)
-        Me.Mahnfaelligkeit2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Mahnfaelligkeit2.Location = New System.Drawing.Point(175, 66)
         Me.Mahnfaelligkeit2.Name = "Mahnfaelligkeit2"
-        Me.Mahnfaelligkeit2.Size = New System.Drawing.Size(51, 17)
+        Me.Mahnfaelligkeit2.Size = New System.Drawing.Size(39, 13)
         Me.Mahnfaelligkeit2.TabIndex = 9
         Me.Mahnfaelligkeit2.Text = "Label7"
         '
         'Mahndatum2
         '
         Me.Mahndatum2.AutoSize = True
-        Me.Mahndatum2.Location = New System.Drawing.Point(103, 81)
-        Me.Mahndatum2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Mahndatum2.Location = New System.Drawing.Point(77, 66)
         Me.Mahndatum2.Name = "Mahndatum2"
-        Me.Mahndatum2.Size = New System.Drawing.Size(51, 17)
+        Me.Mahndatum2.Size = New System.Drawing.Size(39, 13)
         Me.Mahndatum2.TabIndex = 8
         Me.Mahndatum2.Text = "Label5"
         '
         'Mahngebühr1
         '
         Me.Mahngebühr1.AutoSize = True
-        Me.Mahngebühr1.Location = New System.Drawing.Point(389, 54)
-        Me.Mahngebühr1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Mahngebühr1.Location = New System.Drawing.Point(292, 44)
         Me.Mahngebühr1.Name = "Mahngebühr1"
-        Me.Mahngebühr1.Size = New System.Drawing.Size(51, 17)
+        Me.Mahngebühr1.Size = New System.Drawing.Size(39, 13)
         Me.Mahngebühr1.TabIndex = 7
         Me.Mahngebühr1.Text = "Label8"
         '
         'Mahnfaelligkeit1
         '
         Me.Mahnfaelligkeit1.AutoSize = True
-        Me.Mahnfaelligkeit1.Location = New System.Drawing.Point(233, 54)
-        Me.Mahnfaelligkeit1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Mahnfaelligkeit1.Location = New System.Drawing.Point(175, 44)
         Me.Mahnfaelligkeit1.Name = "Mahnfaelligkeit1"
-        Me.Mahnfaelligkeit1.Size = New System.Drawing.Size(51, 17)
+        Me.Mahnfaelligkeit1.Size = New System.Drawing.Size(39, 13)
         Me.Mahnfaelligkeit1.TabIndex = 6
         Me.Mahnfaelligkeit1.Text = "Label7"
         '
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(9, 54)
-        Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label6.Location = New System.Drawing.Point(7, 44)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(16, 17)
+        Me.Label6.Size = New System.Drawing.Size(13, 13)
         Me.Label6.TabIndex = 5
         Me.Label6.Text = "1"
         '
         'Mahndatum1
         '
         Me.Mahndatum1.AutoSize = True
-        Me.Mahndatum1.Location = New System.Drawing.Point(103, 54)
-        Me.Mahndatum1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Mahndatum1.Location = New System.Drawing.Point(77, 44)
         Me.Mahndatum1.Name = "Mahndatum1"
-        Me.Mahndatum1.Size = New System.Drawing.Size(51, 17)
+        Me.Mahndatum1.Size = New System.Drawing.Size(39, 13)
         Me.Mahndatum1.TabIndex = 4
         Me.Mahndatum1.Text = "Label5"
         '
@@ -564,10 +548,9 @@ Partial Class Finanzen
         '
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(9, 20)
-        Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label4.Location = New System.Drawing.Point(7, 16)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(46, 17)
+        Me.Label4.Size = New System.Drawing.Size(37, 13)
         Me.Label4.TabIndex = 3
         Me.Label4.Text = "Stufe"
         '
@@ -575,10 +558,9 @@ Partial Class Finanzen
         '
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(389, 20)
-        Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label3.Location = New System.Drawing.Point(292, 16)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(98, 17)
+        Me.Label3.Size = New System.Drawing.Size(77, 13)
         Me.Label3.TabIndex = 2
         Me.Label3.Text = "Mahngebühr"
         '
@@ -586,10 +568,9 @@ Partial Class Finanzen
         '
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(233, 20)
-        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label2.Location = New System.Drawing.Point(175, 16)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(108, 17)
+        Me.Label2.Size = New System.Drawing.Size(86, 13)
         Me.Label2.TabIndex = 1
         Me.Label2.Text = "Mahnfälligkeit"
         '
@@ -597,25 +578,23 @@ Partial Class Finanzen
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(103, 20)
-        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label1.Location = New System.Drawing.Point(77, 16)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(91, 17)
+        Me.Label1.Size = New System.Drawing.Size(72, 13)
         Me.Label1.TabIndex = 0
         Me.Label1.Text = "Mahndatum"
         '
         'Finanzen
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.GrpBehandlungen)
         Me.Controls.Add(Me.GrpZahlungen)
         Me.Controls.Add(Me.GrpZahlung)
         Me.Controls.Add(Me.ToolStrip1)
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Name = "Finanzen"
-        Me.Size = New System.Drawing.Size(1320, 722)
+        Me.Size = New System.Drawing.Size(990, 587)
         Me.GrpZahlung.ResumeLayout(False)
         Me.GrpZahlung.PerformLayout()
         CType(Me.diBetrag, System.ComponentModel.ISupportInitialize).EndInit()
@@ -676,4 +655,7 @@ Partial Class Finanzen
     Friend WithEvents btnZurücksetzen1 As Button
     Friend WithEvents btnzurücksetzen3 As Button
     Friend WithEvents btnzurücksetzen2 As Button
+    Friend WithEvents ErsteMahnungMenuItem As ToolStripMenuItem
+    Friend WithEvents ZweiteMahnungMenuItem As ToolStripMenuItem
+    Friend WithEvents LetzteMahnungMenuItem As ToolStripMenuItem
 End Class

DPM2016/Finanzaen/Finanzen.resx

@@ -127,7 +127,7 @@
   <data name="C1Zahlungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -161,7 +161,7 @@
 </value>
   </data>
   <data name="C1Zahlungen.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 735, 440&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 735, 440&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}Style14{}Style4{}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style6{}Style7{}Editor{}Style15{}Normal{}Style16{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 551, 226&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 551, 226&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>124, 17</value>
@@ -169,7 +169,7 @@
   <data name="C1OffeneRechnungen.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -203,6 +203,6 @@
 </value>
   </data>
   <data name="C1OffeneRechnungen.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 735, 189&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 735, 189&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}Style14{}Style4{}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style6{}Style7{}Editor{}Style15{}Normal{}Style16{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 551, 153&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 551, 153&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
 </root>

DPM2016/Finanzaen/Finanzen.vb

@@ -323,4 +323,49 @@ Public Class Finanzen
     Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
         Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
     End Sub
+
+    Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
+        Me.ErsteMahnungMenuItem.Visible = False
+        Me.ZweiteMahnungMenuItem.Visible = False
+        Me.LetzteMahnungMenuItem.Visible = False
+        Dim db As New clsDB
+        Try
+            db.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString, "", False)
+            If DB.dsDaten.Tables(0).Rows.Count > 0 Then
+                Select Case DB.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
+                    Case 1
+                        ErsteMahnungMenuItem.Visible = True
+                    Case 2
+                        ZweiteMahnungMenuItem.Visible = True
+                    Case 3
+                        LetzteMahnungMenuItem.Visible = True
+                End Select
+            Else
+
+            End If
+        Catch
+        End Try
+    End Sub
+
+    Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
+        Try
+            Select Case sender.name
+                Case "ErsteMahnungMenuItem"
+                    Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
+                    Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
+                    Refresh_Data()
+                Case "ZweiteMahnungMenuItem"
+                    Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
+                    Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
+                    Refresh_Data()
+                Case "LetzteMahnungMenuItem"
+                    Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
+                    Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
+                    Refresh_Data()
+            End Select
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
 End Class

DPM2016/Finanzaen/frmMahnungen.Designer.vb

@@ -56,6 +56,9 @@ Partial Class Mahnungen
         Me.MahnstopEntfernenToolStrip2MenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator()
         Me.MahnstufeZurücksetzen2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator()
+        Me.PatientAnzeigenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DebitorAnzeigenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStrip3 = New System.Windows.Forms.ToolStrip()
         Me.tsbtnMahnlauf2 = New System.Windows.Forms.ToolStripButton()
         Me.grpOffeneRechnungen = New System.Windows.Forms.GroupBox()
@@ -71,6 +74,9 @@ Partial Class Mahnungen
         Me.MahnstopEntfernenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
         Me.MahnstufeZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator()
+        Me.PatientAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DebitorAnzeigenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
         Me.tsbtnMahnlauf1 = New System.Windows.Forms.ToolStripButton()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
@@ -86,6 +92,9 @@ Partial Class Mahnungen
         Me.MahnstopEntfernenToolStrip3MenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
         Me.MahnstufeZurücksetzen3ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripSeparator()
+        Me.PatientAnzeigenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DebitorAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStrip4 = New System.Windows.Forms.ToolStrip()
         Me.tsbtnMahnlauf3 = New System.Windows.Forms.ToolStripButton()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
@@ -114,10 +123,11 @@ Partial Class Mahnungen
         'ToolStrip1
         '
         Me.ToolStrip1.AllowDrop = True
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.ToolStripButton5, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripButton1, Me.ToolStripButton6})
-        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 28)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(800, 25)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1067, 27)
         Me.ToolStrip1.TabIndex = 23
         Me.ToolStrip1.Text = "ToolStrip1"
         '
@@ -127,7 +137,7 @@ Partial Class Mahnungen
         Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
         Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnquit.Name = "tsbtnquit"
-        Me.tsbtnquit.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnquit.Size = New System.Drawing.Size(29, 24)
         Me.tsbtnquit.Text = "Schliessen"
         '
         'tsbtnSave
@@ -136,7 +146,7 @@ Partial Class Mahnungen
         Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
         Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnSave.Name = "tsbtnSave"
-        Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnSave.Size = New System.Drawing.Size(29, 24)
         Me.tsbtnSave.Text = "Speichern"
         Me.tsbtnSave.Visible = False
         '
@@ -146,7 +156,7 @@ Partial Class Mahnungen
         Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
         Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton5.Name = "ToolStripButton5"
-        Me.ToolStripButton5.Size = New System.Drawing.Size(118, 22)
+        Me.ToolStripButton5.Size = New System.Drawing.Size(143, 24)
         Me.ToolStripButton5.Text = "Mahnlauf ausführen"
         Me.ToolStripButton5.Visible = False
         '
@@ -156,7 +166,7 @@ Partial Class Mahnungen
         Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
         Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnnew.Name = "tsbtnnew"
-        Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnnew.Size = New System.Drawing.Size(29, 24)
         Me.tsbtnnew.Text = "Neuer Datensatz"
         Me.tsbtnnew.Visible = False
         '
@@ -166,7 +176,7 @@ Partial Class Mahnungen
         Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
         Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton4.Name = "ToolStripButton4"
-        Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton4.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
         Me.ToolStripButton4.Visible = False
         '
@@ -176,7 +186,7 @@ Partial Class Mahnungen
         Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
         Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton2.Name = "ToolStripButton2"
-        Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton2.Text = "Dokument löschen"
         Me.ToolStripButton2.Visible = False
         '
@@ -186,14 +196,14 @@ Partial Class Mahnungen
         Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
         Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton3.Name = "ToolStripButton3"
-        Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton3.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton3.Text = "Dokument anzeigen"
         Me.ToolStripButton3.Visible = False
         '
         'ToolStripLabel1
         '
         Me.ToolStripLabel1.Name = "ToolStripLabel1"
-        Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22)
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(48, 24)
         Me.ToolStripLabel1.Text = "Suche"
         Me.ToolStripLabel1.Visible = False
         '
@@ -201,7 +211,7 @@ Partial Class Mahnungen
         '
         Me.tstxtsuche.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.tstxtsuche.Name = "tstxtsuche"
-        Me.tstxtsuche.Size = New System.Drawing.Size(100, 25)
+        Me.tstxtsuche.Size = New System.Drawing.Size(132, 27)
         Me.tstxtsuche.Visible = False
         '
         'tsbtnfirst
@@ -210,7 +220,7 @@ Partial Class Mahnungen
         Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
         Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnfirst.Name = "tsbtnfirst"
-        Me.tsbtnfirst.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnfirst.Size = New System.Drawing.Size(29, 24)
         Me.tsbtnfirst.Text = "Erster Datensatz"
         Me.tsbtnfirst.Visible = False
         '
@@ -220,7 +230,7 @@ Partial Class Mahnungen
         Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
         Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtprev.Name = "tsbtprev"
-        Me.tsbtprev.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtprev.Size = New System.Drawing.Size(29, 24)
         Me.tsbtprev.Text = "Vorheriger Datensatz"
         Me.tsbtprev.Visible = False
         '
@@ -230,7 +240,7 @@ Partial Class Mahnungen
         Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
         Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnnext.Name = "tsbtnnext"
-        Me.tsbtnnext.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnnext.Size = New System.Drawing.Size(29, 24)
         Me.tsbtnnext.Text = "nächster Datensatz"
         Me.tsbtnnext.Visible = False
         '
@@ -240,7 +250,7 @@ Partial Class Mahnungen
         Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
         Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnlast.Name = "tsbtnlast"
-        Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnlast.Size = New System.Drawing.Size(29, 24)
         Me.tsbtnlast.Text = "Letzter Datensatz"
         Me.tsbtnlast.Visible = False
         '
@@ -249,7 +259,7 @@ Partial Class Mahnungen
         Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
         Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton1.Name = "ToolStripButton1"
-        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton1.Text = "ToolStripButton1"
         '
         'ToolStripButton6
@@ -258,16 +268,17 @@ Partial Class Mahnungen
         Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
         Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton6.Name = "ToolStripButton6"
-        Me.ToolStripButton6.Size = New System.Drawing.Size(52, 22)
+        Me.ToolStripButton6.Size = New System.Drawing.Size(64, 24)
         Me.ToolStripButton6.Text = "Drucker"
         '
         'MenuStrip1
         '
         Me.MenuStrip1.AllowMerge = False
+        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(800, 24)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1067, 28)
         Me.MenuStrip1.TabIndex = 22
         Me.MenuStrip1.Text = "MenuStrip1"
         '
@@ -275,13 +286,13 @@ Partial Class Mahnungen
         '
         Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
         Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
-        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(59, 24)
         Me.DateiToolStripMenuItem.Text = "&Datei"
         '
         'BeendenToolStripMenuItem
         '
         Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
-        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(150, 26)
         Me.BeendenToolStripMenuItem.Text = "&Beenden"
         '
         'GrpAusgeschlosseneRechnungen
@@ -289,9 +300,11 @@ Partial Class Mahnungen
         Me.GrpAusgeschlosseneRechnungen.Controls.Add(Me.C1Mahnungen2)
         Me.GrpAusgeschlosseneRechnungen.Controls.Add(Me.ToolStrip3)
         Me.GrpAusgeschlosseneRechnungen.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GrpAusgeschlosseneRechnungen.Location = New System.Drawing.Point(0, 263)
+        Me.GrpAusgeschlosseneRechnungen.Location = New System.Drawing.Point(0, 318)
+        Me.GrpAusgeschlosseneRechnungen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.GrpAusgeschlosseneRechnungen.Name = "GrpAusgeschlosseneRechnungen"
-        Me.GrpAusgeschlosseneRechnungen.Size = New System.Drawing.Size(800, 169)
+        Me.GrpAusgeschlosseneRechnungen.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.GrpAusgeschlosseneRechnungen.Size = New System.Drawing.Size(1067, 208)
         Me.GrpAusgeschlosseneRechnungen.TabIndex = 25
         Me.GrpAusgeschlosseneRechnungen.TabStop = False
         Me.GrpAusgeschlosseneRechnungen.Text = "Zweite Mahnung fällig"
@@ -306,86 +319,106 @@ Partial Class Mahnungen
         Me.C1Mahnungen2.FilterBar = True
         Me.C1Mahnungen2.GroupByCaption = "Drag a column header here to group by that column"
         Me.C1Mahnungen2.Images.Add(CType(resources.GetObject("C1Mahnungen2.Images"), System.Drawing.Image))
-        Me.C1Mahnungen2.Location = New System.Drawing.Point(3, 41)
+        Me.C1Mahnungen2.Location = New System.Drawing.Point(4, 46)
+        Me.C1Mahnungen2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.C1Mahnungen2.Name = "C1Mahnungen2"
         Me.C1Mahnungen2.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.C1Mahnungen2.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.C1Mahnungen2.PreviewInfo.ZoomFactor = 75.0R
         Me.C1Mahnungen2.PrintInfo.PageSettings = CType(resources.GetObject("C1Mahnungen2.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.C1Mahnungen2.Size = New System.Drawing.Size(794, 125)
+        Me.C1Mahnungen2.Size = New System.Drawing.Size(1059, 158)
         Me.C1Mahnungen2.TabIndex = 3
         Me.C1Mahnungen2.Text = "C1TrueDBGrid1"
         Me.C1Mahnungen2.PropBag = resources.GetString("C1Mahnungen2.PropBag")
         '
         'ContextMenuMahnung2
         '
-        Me.ContextMenuMahnung2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DruckenToolStrip2MenuItem, Me.VorschauToolStrip2MenuItem, Me.DesignToolStrip2MenuItem, Me.ToolStripSeparator1, Me.AusListeLöschenToolStrip2MenuItem, Me.ToolStripSeparator2, Me.MahnstopSetzenToolStrip2MenuItem, Me.MahnstopEntfernenToolStrip2MenuItem, Me.ToolStripMenuItem4, Me.MahnstufeZurücksetzen2ToolStripMenuItem})
+        Me.ContextMenuMahnung2.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ContextMenuMahnung2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DruckenToolStrip2MenuItem, Me.VorschauToolStrip2MenuItem, Me.DesignToolStrip2MenuItem, Me.ToolStripSeparator1, Me.AusListeLöschenToolStrip2MenuItem, Me.ToolStripSeparator2, Me.MahnstopSetzenToolStrip2MenuItem, Me.MahnstopEntfernenToolStrip2MenuItem, Me.ToolStripMenuItem4, Me.MahnstufeZurücksetzen2ToolStripMenuItem, Me.ToolStripMenuItem7, Me.PatientAnzeigenToolStripMenuItem1, Me.DebitorAnzeigenToolStripMenuItem1})
         Me.ContextMenuMahnung2.Name = "ContextMenuStrip1"
-        Me.ContextMenuMahnung2.Size = New System.Drawing.Size(203, 176)
+        Me.ContextMenuMahnung2.Size = New System.Drawing.Size(236, 244)
         '
         'DruckenToolStrip2MenuItem
         '
         Me.DruckenToolStrip2MenuItem.Name = "DruckenToolStrip2MenuItem"
-        Me.DruckenToolStrip2MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.DruckenToolStrip2MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.DruckenToolStrip2MenuItem.Text = "&Drucken"
         '
         'VorschauToolStrip2MenuItem
         '
         Me.VorschauToolStrip2MenuItem.Name = "VorschauToolStrip2MenuItem"
-        Me.VorschauToolStrip2MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.VorschauToolStrip2MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.VorschauToolStrip2MenuItem.Text = "&Vorschau"
         '
         'DesignToolStrip2MenuItem
         '
         Me.DesignToolStrip2MenuItem.Name = "DesignToolStrip2MenuItem"
-        Me.DesignToolStrip2MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.DesignToolStrip2MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.DesignToolStrip2MenuItem.Text = "Design"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(232, 6)
         '
         'AusListeLöschenToolStrip2MenuItem
         '
         Me.AusListeLöschenToolStrip2MenuItem.Name = "AusListeLöschenToolStrip2MenuItem"
-        Me.AusListeLöschenToolStrip2MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.AusListeLöschenToolStrip2MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.AusListeLöschenToolStrip2MenuItem.Text = "Aus Liste löschen"
         '
         'ToolStripSeparator2
         '
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(232, 6)
         '
         'MahnstopSetzenToolStrip2MenuItem
         '
         Me.MahnstopSetzenToolStrip2MenuItem.Name = "MahnstopSetzenToolStrip2MenuItem"
-        Me.MahnstopSetzenToolStrip2MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstopSetzenToolStrip2MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstopSetzenToolStrip2MenuItem.Text = "Mahnstop setzen"
         '
         'MahnstopEntfernenToolStrip2MenuItem
         '
         Me.MahnstopEntfernenToolStrip2MenuItem.Name = "MahnstopEntfernenToolStrip2MenuItem"
-        Me.MahnstopEntfernenToolStrip2MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstopEntfernenToolStrip2MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstopEntfernenToolStrip2MenuItem.Text = "Mahnstop entfernen"
         '
         'ToolStripMenuItem4
         '
         Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
-        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(232, 6)
         '
         'MahnstufeZurücksetzen2ToolStripMenuItem
         '
         Me.MahnstufeZurücksetzen2ToolStripMenuItem.Name = "MahnstufeZurücksetzen2ToolStripMenuItem"
-        Me.MahnstufeZurücksetzen2ToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstufeZurücksetzen2ToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstufeZurücksetzen2ToolStripMenuItem.Text = "Mahnstufe zurücksetzen"
         '
+        'ToolStripMenuItem7
+        '
+        Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
+        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(232, 6)
+        '
+        'PatientAnzeigenToolStripMenuItem1
+        '
+        Me.PatientAnzeigenToolStripMenuItem1.Name = "PatientAnzeigenToolStripMenuItem1"
+        Me.PatientAnzeigenToolStripMenuItem1.Size = New System.Drawing.Size(235, 24)
+        Me.PatientAnzeigenToolStripMenuItem1.Text = "Patient anzeigen"
+        '
+        'DebitorAnzeigenToolStripMenuItem1
+        '
+        Me.DebitorAnzeigenToolStripMenuItem1.Name = "DebitorAnzeigenToolStripMenuItem1"
+        Me.DebitorAnzeigenToolStripMenuItem1.Size = New System.Drawing.Size(235, 24)
+        Me.DebitorAnzeigenToolStripMenuItem1.Text = "Debitor anzeigen"
+        '
         'ToolStrip3
         '
+        Me.ToolStrip3.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnMahnlauf2})
-        Me.ToolStrip3.Location = New System.Drawing.Point(3, 16)
+        Me.ToolStrip3.Location = New System.Drawing.Point(4, 19)
         Me.ToolStrip3.Name = "ToolStrip3"
-        Me.ToolStrip3.Size = New System.Drawing.Size(794, 25)
+        Me.ToolStrip3.Size = New System.Drawing.Size(1059, 27)
         Me.ToolStrip3.TabIndex = 5
         Me.ToolStrip3.Text = "ToolStrip3"
         '
@@ -395,7 +428,7 @@ Partial Class Mahnungen
         Me.tsbtnMahnlauf2.Image = CType(resources.GetObject("tsbtnMahnlauf2.Image"), System.Drawing.Image)
         Me.tsbtnMahnlauf2.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnMahnlauf2.Name = "tsbtnMahnlauf2"
-        Me.tsbtnMahnlauf2.Size = New System.Drawing.Size(118, 22)
+        Me.tsbtnMahnlauf2.Size = New System.Drawing.Size(143, 24)
         Me.tsbtnMahnlauf2.Text = "Mahnlauf ausführen"
         '
         'grpOffeneRechnungen
@@ -403,9 +436,11 @@ Partial Class Mahnungen
         Me.grpOffeneRechnungen.Controls.Add(Me.C1Mahnungen1)
         Me.grpOffeneRechnungen.Controls.Add(Me.ToolStrip2)
         Me.grpOffeneRechnungen.Dock = System.Windows.Forms.DockStyle.Top
-        Me.grpOffeneRechnungen.Location = New System.Drawing.Point(0, 49)
+        Me.grpOffeneRechnungen.Location = New System.Drawing.Point(0, 55)
+        Me.grpOffeneRechnungen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.grpOffeneRechnungen.Name = "grpOffeneRechnungen"
-        Me.grpOffeneRechnungen.Size = New System.Drawing.Size(800, 214)
+        Me.grpOffeneRechnungen.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.grpOffeneRechnungen.Size = New System.Drawing.Size(1067, 263)
         Me.grpOffeneRechnungen.TabIndex = 24
         Me.grpOffeneRechnungen.TabStop = False
         Me.grpOffeneRechnungen.Text = "Erste Mahnung fällig"
@@ -420,88 +455,108 @@ Partial Class Mahnungen
         Me.C1Mahnungen1.FilterBar = True
         Me.C1Mahnungen1.GroupByCaption = "Drag a column header here to group by that column"
         Me.C1Mahnungen1.Images.Add(CType(resources.GetObject("C1Mahnungen1.Images"), System.Drawing.Image))
-        Me.C1Mahnungen1.Location = New System.Drawing.Point(3, 41)
+        Me.C1Mahnungen1.Location = New System.Drawing.Point(4, 46)
+        Me.C1Mahnungen1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.C1Mahnungen1.Name = "C1Mahnungen1"
         Me.C1Mahnungen1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.C1Mahnungen1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.C1Mahnungen1.PreviewInfo.ZoomFactor = 75.0R
         Me.C1Mahnungen1.PrintInfo.PageSettings = CType(resources.GetObject("C1Mahnungen1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.C1Mahnungen1.Size = New System.Drawing.Size(794, 170)
+        Me.C1Mahnungen1.Size = New System.Drawing.Size(1059, 213)
         Me.C1Mahnungen1.TabIndex = 3
         Me.C1Mahnungen1.Text = "C1TrueDBGrid1"
         Me.C1Mahnungen1.PropBag = resources.GetString("C1Mahnungen1.PropBag")
         '
         'ContextMenuMahnungen1
         '
-        Me.ContextMenuMahnungen1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DruckenToolStripMenuItem, Me.VorschauToolStripMenuItem, Me.DesignToolStripMenuItem, Me.ToolStripMenuItem2, Me.AusListeLöschenToolStripMenuItem, Me.ToolStripMenuItem1, Me.MahnstopSetzenToolStripMenuItem, Me.MahnstopEntfernenToolStripMenuItem, Me.ToolStripMenuItem3, Me.MahnstufeZurücksetzenToolStripMenuItem})
+        Me.ContextMenuMahnungen1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ContextMenuMahnungen1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DruckenToolStripMenuItem, Me.VorschauToolStripMenuItem, Me.DesignToolStripMenuItem, Me.ToolStripMenuItem2, Me.AusListeLöschenToolStripMenuItem, Me.ToolStripMenuItem1, Me.MahnstopSetzenToolStripMenuItem, Me.MahnstopEntfernenToolStripMenuItem, Me.ToolStripMenuItem3, Me.MahnstufeZurücksetzenToolStripMenuItem, Me.ToolStripMenuItem6, Me.PatientAnzeigenToolStripMenuItem, Me.DebitorAnzeigenToolStripMenuItem2})
         Me.ContextMenuMahnungen1.Name = "ContextMenuStrip1"
-        Me.ContextMenuMahnungen1.Size = New System.Drawing.Size(203, 176)
+        Me.ContextMenuMahnungen1.Size = New System.Drawing.Size(236, 244)
         '
         'DruckenToolStripMenuItem
         '
         Me.DruckenToolStripMenuItem.Name = "DruckenToolStripMenuItem"
-        Me.DruckenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.DruckenToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.DruckenToolStripMenuItem.Text = "&Drucken"
         '
         'VorschauToolStripMenuItem
         '
         Me.VorschauToolStripMenuItem.Name = "VorschauToolStripMenuItem"
-        Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.VorschauToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.VorschauToolStripMenuItem.Text = "&Vorschau"
         '
         'DesignToolStripMenuItem
         '
         Me.DesignToolStripMenuItem.Name = "DesignToolStripMenuItem"
-        Me.DesignToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.DesignToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.DesignToolStripMenuItem.Text = "Design"
         '
         'ToolStripMenuItem2
         '
         Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
-        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(232, 6)
         '
         'AusListeLöschenToolStripMenuItem
         '
         Me.AusListeLöschenToolStripMenuItem.Name = "AusListeLöschenToolStripMenuItem"
-        Me.AusListeLöschenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.AusListeLöschenToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.AusListeLöschenToolStripMenuItem.Text = "Aus Liste löschen"
         '
         'ToolStripMenuItem1
         '
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(232, 6)
         '
         'MahnstopSetzenToolStripMenuItem
         '
         Me.MahnstopSetzenToolStripMenuItem.Name = "MahnstopSetzenToolStripMenuItem"
-        Me.MahnstopSetzenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstopSetzenToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstopSetzenToolStripMenuItem.Text = "Mahnstop setzen"
         '
         'MahnstopEntfernenToolStripMenuItem
         '
         Me.MahnstopEntfernenToolStripMenuItem.Name = "MahnstopEntfernenToolStripMenuItem"
-        Me.MahnstopEntfernenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstopEntfernenToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstopEntfernenToolStripMenuItem.Text = "Mahnstop entfernen"
         '
         'ToolStripMenuItem3
         '
         Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
-        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(232, 6)
         Me.ToolStripMenuItem3.Visible = False
         '
         'MahnstufeZurücksetzenToolStripMenuItem
         '
         Me.MahnstufeZurücksetzenToolStripMenuItem.Name = "MahnstufeZurücksetzenToolStripMenuItem"
-        Me.MahnstufeZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstufeZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstufeZurücksetzenToolStripMenuItem.Text = "Mahnstufe zurücksetzen"
         Me.MahnstufeZurücksetzenToolStripMenuItem.Visible = False
         '
+        'ToolStripMenuItem6
+        '
+        Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
+        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(232, 6)
+        '
+        'PatientAnzeigenToolStripMenuItem
+        '
+        Me.PatientAnzeigenToolStripMenuItem.Name = "PatientAnzeigenToolStripMenuItem"
+        Me.PatientAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
+        Me.PatientAnzeigenToolStripMenuItem.Text = "Patient anzeigen"
+        '
+        'DebitorAnzeigenToolStripMenuItem2
+        '
+        Me.DebitorAnzeigenToolStripMenuItem2.Name = "DebitorAnzeigenToolStripMenuItem2"
+        Me.DebitorAnzeigenToolStripMenuItem2.Size = New System.Drawing.Size(235, 24)
+        Me.DebitorAnzeigenToolStripMenuItem2.Text = "Debitor anzeigen"
+        '
         'ToolStrip2
         '
+        Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnMahnlauf1})
-        Me.ToolStrip2.Location = New System.Drawing.Point(3, 16)
+        Me.ToolStrip2.Location = New System.Drawing.Point(4, 19)
         Me.ToolStrip2.Name = "ToolStrip2"
-        Me.ToolStrip2.Size = New System.Drawing.Size(794, 25)
+        Me.ToolStrip2.Size = New System.Drawing.Size(1059, 27)
         Me.ToolStrip2.TabIndex = 4
         Me.ToolStrip2.Text = "ToolStrip2"
         '
@@ -511,7 +566,7 @@ Partial Class Mahnungen
         Me.tsbtnMahnlauf1.Image = CType(resources.GetObject("tsbtnMahnlauf1.Image"), System.Drawing.Image)
         Me.tsbtnMahnlauf1.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnMahnlauf1.Name = "tsbtnMahnlauf1"
-        Me.tsbtnMahnlauf1.Size = New System.Drawing.Size(118, 22)
+        Me.tsbtnMahnlauf1.Size = New System.Drawing.Size(143, 24)
         Me.tsbtnMahnlauf1.Text = "Mahnlauf ausführen"
         '
         'GroupBox1
@@ -519,9 +574,11 @@ Partial Class Mahnungen
         Me.GroupBox1.Controls.Add(Me.C1Mahnungen3)
         Me.GroupBox1.Controls.Add(Me.ToolStrip4)
         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GroupBox1.Location = New System.Drawing.Point(0, 432)
+        Me.GroupBox1.Location = New System.Drawing.Point(0, 526)
+        Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(800, 169)
+        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.GroupBox1.Size = New System.Drawing.Size(1067, 208)
         Me.GroupBox1.TabIndex = 26
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Dritte Mahnung fällig"
@@ -536,86 +593,106 @@ Partial Class Mahnungen
         Me.C1Mahnungen3.FilterBar = True
         Me.C1Mahnungen3.GroupByCaption = "Drag a column header here to group by that column"
         Me.C1Mahnungen3.Images.Add(CType(resources.GetObject("C1Mahnungen3.Images"), System.Drawing.Image))
-        Me.C1Mahnungen3.Location = New System.Drawing.Point(3, 41)
+        Me.C1Mahnungen3.Location = New System.Drawing.Point(4, 46)
+        Me.C1Mahnungen3.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.C1Mahnungen3.Name = "C1Mahnungen3"
         Me.C1Mahnungen3.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.C1Mahnungen3.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.C1Mahnungen3.PreviewInfo.ZoomFactor = 75.0R
         Me.C1Mahnungen3.PrintInfo.PageSettings = CType(resources.GetObject("C1Mahnungen3.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.C1Mahnungen3.Size = New System.Drawing.Size(794, 125)
+        Me.C1Mahnungen3.Size = New System.Drawing.Size(1059, 158)
         Me.C1Mahnungen3.TabIndex = 3
         Me.C1Mahnungen3.Text = "C1TrueDBGrid1"
         Me.C1Mahnungen3.PropBag = resources.GetString("C1Mahnungen3.PropBag")
         '
         'ContextMenuMahnung3
         '
-        Me.ContextMenuMahnung3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DruckenToolStrip3MenuItem, Me.VorschauToolStrip3MenuItem, Me.DesignToolStrip3MenuItem, Me.ToolStripSeparator3, Me.AusListeLöschenToolStrip3MenuItem, Me.ToolStripSeparator4, Me.MahnstopSetzenToolStrip3MenuItem, Me.MahnstopEntfernenToolStrip3MenuItem, Me.ToolStripMenuItem5, Me.MahnstufeZurücksetzen3ToolStripMenuItem})
+        Me.ContextMenuMahnung3.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ContextMenuMahnung3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DruckenToolStrip3MenuItem, Me.VorschauToolStrip3MenuItem, Me.DesignToolStrip3MenuItem, Me.ToolStripSeparator3, Me.AusListeLöschenToolStrip3MenuItem, Me.ToolStripSeparator4, Me.MahnstopSetzenToolStrip3MenuItem, Me.MahnstopEntfernenToolStrip3MenuItem, Me.ToolStripMenuItem5, Me.MahnstufeZurücksetzen3ToolStripMenuItem, Me.ToolStripMenuItem8, Me.PatientAnzeigenToolStripMenuItem2, Me.DebitorAnzeigenToolStripMenuItem})
         Me.ContextMenuMahnung3.Name = "ContextMenuStrip1"
-        Me.ContextMenuMahnung3.Size = New System.Drawing.Size(203, 176)
+        Me.ContextMenuMahnung3.Size = New System.Drawing.Size(236, 244)
         '
         'DruckenToolStrip3MenuItem
         '
         Me.DruckenToolStrip3MenuItem.Name = "DruckenToolStrip3MenuItem"
-        Me.DruckenToolStrip3MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.DruckenToolStrip3MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.DruckenToolStrip3MenuItem.Text = "&Drucken"
         '
         'VorschauToolStrip3MenuItem
         '
         Me.VorschauToolStrip3MenuItem.Name = "VorschauToolStrip3MenuItem"
-        Me.VorschauToolStrip3MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.VorschauToolStrip3MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.VorschauToolStrip3MenuItem.Text = "&Vorschau"
         '
         'DesignToolStrip3MenuItem
         '
         Me.DesignToolStrip3MenuItem.Name = "DesignToolStrip3MenuItem"
-        Me.DesignToolStrip3MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.DesignToolStrip3MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.DesignToolStrip3MenuItem.Text = "Design"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(232, 6)
         '
         'AusListeLöschenToolStrip3MenuItem
         '
         Me.AusListeLöschenToolStrip3MenuItem.Name = "AusListeLöschenToolStrip3MenuItem"
-        Me.AusListeLöschenToolStrip3MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.AusListeLöschenToolStrip3MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.AusListeLöschenToolStrip3MenuItem.Text = "Aus Liste löschen"
         '
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(232, 6)
         '
         'MahnstopSetzenToolStrip3MenuItem
         '
         Me.MahnstopSetzenToolStrip3MenuItem.Name = "MahnstopSetzenToolStrip3MenuItem"
-        Me.MahnstopSetzenToolStrip3MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstopSetzenToolStrip3MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstopSetzenToolStrip3MenuItem.Text = "Mahnstop setzen"
         '
         'MahnstopEntfernenToolStrip3MenuItem
         '
         Me.MahnstopEntfernenToolStrip3MenuItem.Name = "MahnstopEntfernenToolStrip3MenuItem"
-        Me.MahnstopEntfernenToolStrip3MenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstopEntfernenToolStrip3MenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstopEntfernenToolStrip3MenuItem.Text = "Mahnstop entfernen"
         '
         'ToolStripMenuItem5
         '
         Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
-        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(199, 6)
+        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(232, 6)
         '
         'MahnstufeZurücksetzen3ToolStripMenuItem
         '
         Me.MahnstufeZurücksetzen3ToolStripMenuItem.Name = "MahnstufeZurücksetzen3ToolStripMenuItem"
-        Me.MahnstufeZurücksetzen3ToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstufeZurücksetzen3ToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstufeZurücksetzen3ToolStripMenuItem.Text = "Mahnstufe zurücksetzen"
         '
+        'ToolStripMenuItem8
+        '
+        Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
+        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(232, 6)
+        '
+        'PatientAnzeigenToolStripMenuItem2
+        '
+        Me.PatientAnzeigenToolStripMenuItem2.Name = "PatientAnzeigenToolStripMenuItem2"
+        Me.PatientAnzeigenToolStripMenuItem2.Size = New System.Drawing.Size(235, 24)
+        Me.PatientAnzeigenToolStripMenuItem2.Text = "Patient anzeigen"
+        '
+        'DebitorAnzeigenToolStripMenuItem
+        '
+        Me.DebitorAnzeigenToolStripMenuItem.Name = "DebitorAnzeigenToolStripMenuItem"
+        Me.DebitorAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
+        Me.DebitorAnzeigenToolStripMenuItem.Text = "Debitor Anzeigen"
+        '
         'ToolStrip4
         '
+        Me.ToolStrip4.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnMahnlauf3})
-        Me.ToolStrip4.Location = New System.Drawing.Point(3, 16)
+        Me.ToolStrip4.Location = New System.Drawing.Point(4, 19)
         Me.ToolStrip4.Name = "ToolStrip4"
-        Me.ToolStrip4.Size = New System.Drawing.Size(794, 25)
+        Me.ToolStrip4.Size = New System.Drawing.Size(1059, 27)
         Me.ToolStrip4.TabIndex = 5
         Me.ToolStrip4.Text = "ToolStrip4"
         '
@@ -625,16 +702,18 @@ Partial Class Mahnungen
         Me.tsbtnMahnlauf3.Image = CType(resources.GetObject("tsbtnMahnlauf3.Image"), System.Drawing.Image)
         Me.tsbtnMahnlauf3.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnMahnlauf3.Name = "tsbtnMahnlauf3"
-        Me.tsbtnMahnlauf3.Size = New System.Drawing.Size(118, 22)
+        Me.tsbtnMahnlauf3.Size = New System.Drawing.Size(143, 24)
         Me.tsbtnMahnlauf3.Text = "Mahnlauf ausführen"
         '
         'GroupBox2
         '
         Me.GroupBox2.Controls.Add(Me.C1Mahnungen4)
         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GroupBox2.Location = New System.Drawing.Point(0, 601)
+        Me.GroupBox2.Location = New System.Drawing.Point(0, 734)
+        Me.GroupBox2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.Size = New System.Drawing.Size(800, 159)
+        Me.GroupBox2.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.GroupBox2.Size = New System.Drawing.Size(1067, 201)
         Me.GroupBox2.TabIndex = 27
         Me.GroupBox2.TabStop = False
         Me.GroupBox2.Text = "Dritte Mahnung vorhanden"
@@ -649,40 +728,43 @@ Partial Class Mahnungen
         Me.C1Mahnungen4.FilterBar = True
         Me.C1Mahnungen4.GroupByCaption = "Drag a column header here to group by that column"
         Me.C1Mahnungen4.Images.Add(CType(resources.GetObject("C1Mahnungen4.Images"), System.Drawing.Image))
-        Me.C1Mahnungen4.Location = New System.Drawing.Point(3, 16)
+        Me.C1Mahnungen4.Location = New System.Drawing.Point(4, 19)
+        Me.C1Mahnungen4.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.C1Mahnungen4.Name = "C1Mahnungen4"
         Me.C1Mahnungen4.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.C1Mahnungen4.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.C1Mahnungen4.PreviewInfo.ZoomFactor = 75.0R
         Me.C1Mahnungen4.PrintInfo.PageSettings = CType(resources.GetObject("C1Mahnungen4.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.C1Mahnungen4.Size = New System.Drawing.Size(794, 140)
+        Me.C1Mahnungen4.Size = New System.Drawing.Size(1059, 178)
         Me.C1Mahnungen4.TabIndex = 3
         Me.C1Mahnungen4.Text = "C1TrueDBGrid1"
         Me.C1Mahnungen4.PropBag = resources.GetString("C1Mahnungen4.PropBag")
         '
         'ContextMenuMahnungen4
         '
+        Me.ContextMenuMahnungen4.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ContextMenuMahnungen4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MahnstufeZurücksetzen4ToolStripMenuItem})
         Me.ContextMenuMahnungen4.Name = "ContextMenuMahnungen4"
-        Me.ContextMenuMahnungen4.Size = New System.Drawing.Size(203, 26)
+        Me.ContextMenuMahnungen4.Size = New System.Drawing.Size(236, 28)
         '
         'MahnstufeZurücksetzen4ToolStripMenuItem
         '
         Me.MahnstufeZurücksetzen4ToolStripMenuItem.Name = "MahnstufeZurücksetzen4ToolStripMenuItem"
-        Me.MahnstufeZurücksetzen4ToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.MahnstufeZurücksetzen4ToolStripMenuItem.Size = New System.Drawing.Size(235, 24)
         Me.MahnstufeZurücksetzen4ToolStripMenuItem.Text = "Mahnstufe zurücksetzen"
         '
         'Mahnungen
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 760)
+        Me.ClientSize = New System.Drawing.Size(1067, 935)
         Me.Controls.Add(Me.GroupBox2)
         Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.GrpAusgeschlosseneRechnungen)
         Me.Controls.Add(Me.grpOffeneRechnungen)
         Me.Controls.Add(Me.ToolStrip1)
         Me.Controls.Add(Me.MenuStrip1)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Name = "Mahnungen"
         Me.Text = "Mahnungen"
         Me.ToolStrip1.ResumeLayout(False)
@@ -783,4 +865,13 @@ Partial Class Mahnungen
     Friend WithEvents DesignToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents DesignToolStrip2MenuItem As ToolStripMenuItem
     Friend WithEvents DesignToolStrip3MenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem6 As ToolStripSeparator
+    Friend WithEvents PatientAnzeigenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem7 As ToolStripSeparator
+    Friend WithEvents PatientAnzeigenToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem8 As ToolStripSeparator
+    Friend WithEvents PatientAnzeigenToolStripMenuItem2 As ToolStripMenuItem
+    Friend WithEvents DebitorAnzeigenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DebitorAnzeigenToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents DebitorAnzeigenToolStripMenuItem2 As ToolStripMenuItem
 End Class

DPM2016/Finanzaen/frmMahnungen.resx

@@ -124,7 +124,7 @@
   <data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
         PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
         PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
         ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
@@ -142,7 +142,7 @@
   <data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
         dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
         AElFTkSuQmCC
 </value>
@@ -150,7 +150,7 @@
   <data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAMgAAADICAYAAACtWK6eAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAiwSURBVHhe7d2tjhRNFIfxFWgUigSFWkmCW0PCDWC4ATRI
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAiwSURBVHhe7d2tjhRNFIfxFWgUigSFWkmCW0PCDWC4ATRI
         FIYL4AKQOAxuFZYEjSdIEuQ6FEnzPsv0yzCpOdvz1V116vklJyGw7PRs93+2vrr6bJC0lQGRAgZEChgQ
         KWBApIABkQIGRAoYEClgQKSAAZECBkQKGBApYECkgAGRAgZEChgQKWBApIABkQIGRAoYEClgQKSAAZEC
         BkQKGBApYECkgAGRAgZEChgQKWBApIABkQIGRAoYEClgQKSAAZECBkQKGBApYECkgAGRAgZEChgQKWBA
@@ -193,7 +193,7 @@
   <data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
         Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
         AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
         Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -208,7 +208,7 @@
   <data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
         +sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
         /eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
         ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
@@ -223,7 +223,7 @@
   <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
         gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
         VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
         mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -239,7 +239,7 @@
   <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
         dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
         vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
         809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
@@ -255,7 +255,7 @@
   <data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
         ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
         mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
         y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
@@ -291,7 +291,7 @@
   <data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
         dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
         JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
         /+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
@@ -318,7 +318,7 @@
   <data name="tsbtnnext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
         CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
         8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
         mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
@@ -346,7 +346,7 @@
   <data name="tsbtnlast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
         KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
         oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
         txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
@@ -382,7 +382,7 @@
   <data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -403,7 +403,7 @@
   <data name="C1Mahnungen2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -437,7 +437,7 @@
 </value>
   </data>
   <data name="C1Mahnungen2.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 792, 123&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 792, 123&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}Style15{}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style6{}Normal{}Style7{}Editor{}Style4{}Style14{}Style16{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1057, 156&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1057, 156&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>560, 17</value>
@@ -445,7 +445,7 @@
   <data name="tsbtnMahnlauf2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -463,7 +463,7 @@
   <data name="C1Mahnungen1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -497,7 +497,7 @@
 </value>
   </data>
   <data name="C1Mahnungen1.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 792, 168&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 792, 168&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}Style15{}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style6{}Normal{}Style7{}Editor{}Style4{}Style14{}Style16{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1057, 211&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1057, 211&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>453, 17</value>
@@ -505,7 +505,7 @@
   <data name="tsbtnMahnlauf1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -523,7 +523,7 @@
   <data name="C1Mahnungen3.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -557,7 +557,7 @@
 </value>
   </data>
   <data name="C1Mahnungen3.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 792, 123&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 792, 123&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}Style15{}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style6{}Normal{}Style7{}Editor{}Style4{}Style14{}Style16{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1057, 156&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1057, 156&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>667, 17</value>
@@ -565,7 +565,7 @@
   <data name="tsbtnMahnlauf3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -583,7 +583,7 @@
   <data name="C1Mahnungen4.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -617,7 +617,7 @@
 </value>
   </data>
   <data name="C1Mahnungen4.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 792, 138&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 792, 138&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style11{}Style10{}Style13{}Style12{}Footer{}Style2{}Style3{}FilterBar{BackColor:Info;}RecordSelector{AlignImage:Center;}Style15{}OddRow{BackColor:ControlLight;}Caption{AlignHorz:Center;}EvenRow{BackColor:White;}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style9{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style5{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style8{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style6{}Normal{}Style7{}Editor{}Style4{}Style14{}Style16{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1057, 176&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1057, 176&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>108</value>

DPM2016/Finanzaen/frmMahnungen.vb

@@ -358,4 +358,73 @@ Public Class Mahnungen
     Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
         Me.Close()
     End Sub
+
+    Private Sub PatientAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PatientAnzeigenToolStripMenuItem.Click, PatientAnzeigenToolStripMenuItem1.Click, PatientAnzeigenToolStripMenuItem2.Click
+        Dim key As Integer
+        Try
+            Select Case sender.name
+                Case "PatientAnzeigenToolStripMenuItem"
+                    key = Me.C1Mahnungen1.Columns(7).Value
+                Case "PatientAnzeigenToolStripMenuItem1"
+                    key = Me.C1Mahnungen2.Columns(7).Value
+                Case "PatientAnzeigenToolStripMenuItem2"
+                    key = Me.C1Mahnungen3.Columns(7).Value
+
+            End Select
+            'key = Me.C1Mahnungen1.Columns(7).Value
+            If key < 49999 Then
+                Cursor = Cursors.WaitCursor
+                Dim f As New Patient
+                f.MdiParent = Me.MdiParent
+                f.PatientNr = key
+                f.Show()
+
+                Cursor = Cursors.Default
+            Else
+                Cursor = Cursors.WaitCursor
+                Dim f As New frmFirma
+                f.MdiParent = Me.MdiParent
+                f.Show()
+                f.Firmanr = key
+                Cursor = Cursors.Default
+            End If
+        Catch
+        End Try
+    End Sub
+
+
+
+    Private Sub DebitorAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DebitorAnzeigenToolStripMenuItem.Click, DebitorAnzeigenToolStripMenuItem1.Click, DebitorAnzeigenToolStripMenuItem2.Click
+        Dim key As Integer
+        Try
+            Select Case sender.name
+                Case "DebitorAnzeigenToolStripMenuItem2"
+                    key = Me.C1Mahnungen1.Columns(9).Value
+                Case "DebitorAnzeigenToolStripMenuItem1"
+                    key = Me.C1Mahnungen2.Columns(9).Value
+                Case "DebitorAnzeigenToolStripMenuItem2"
+                    key = Me.C1Mahnungen3.Columns(9).Value
+
+            End Select
+            'key = Me.C1Mahnungen1.Columns(7).Value
+            If key < 49999 Then
+                Cursor = Cursors.WaitCursor
+                Dim f As New Patient
+                f.MdiParent = Me.MdiParent
+                f.PatientNr = key
+                f.Show()
+
+                Cursor = Cursors.Default
+            Else
+                Cursor = Cursors.WaitCursor
+                Dim f As New frmFirma
+                f.MdiParent = Me.MdiParent
+                f.Show()
+                f.Firmanr = key
+                Cursor = Cursors.Default
+            End If
+        Catch
+        End Try
+    End Sub
+
 End Class

DPM2016/Klassen/clsStammdaten_Bez.vb

@@ -52,6 +52,7 @@
             m_tablename_bottom = value
             get_data_bottom()
             Me.GroupBox3.Text = value
+            Refresh_Bottom()
         End Set
     End Property
 
@@ -144,6 +145,7 @@
             Me.C1DropDownRight.ValueTranslate = True
             Me.C1DropDownRight.DisplayColumns(0).Width = 0
             Me.c1DatenBottom.Columns(Me.KeyField_right).ValueItems.Translate = True
+
         Catch ex As Exception
 
         End Try
@@ -175,15 +177,17 @@
     End Sub
 
     Sub Refresh_Bottom()
-        Dim s As String
-        If Me.Focus_Left Then
-            s = " where " + Me.KeyField_left + "=" + Me.c1Datenleft.Columns(KeyField_left).Value.ToString
-        Else
-            s = " where " + Me.KeyField_right + "=" + Me.c1DatenRight.Columns(KeyField_right).Value.ToString
-
-        End If
-        Me.get_data_bottom(s)
+        Try
+            Dim s As String
+            If Me.Focus_Left Then
+                s = " where " + Me.KeyField_left + "=" + Me.c1Datenleft.Columns(KeyField_left).Value.ToString
+            Else
+                s = " where " + Me.KeyField_right + "=" + Me.c1DatenRight.Columns(KeyField_right).Value.ToString
 
+            End If
+            Me.get_data_bottom(s)
+        Catch
+        End Try
     End Sub
 
     Private Sub c1Datenleft_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles c1Datenleft.RowColChange, c1DatenRight.RowColChange

DPM2016/Klassen/clsStammdaten_flat.Designer.vb

@@ -88,13 +88,14 @@ Partial Class clsStammdaten_flat
         Me.c1daten.FilterBar = True
         Me.c1daten.GroupByCaption = "Drag a column header here to group by that column"
         Me.c1daten.Images.Add(CType(resources.GetObject("c1daten.Images"), System.Drawing.Image))
-        Me.c1daten.Location = New System.Drawing.Point(0, 25)
+        Me.c1daten.Location = New System.Drawing.Point(0, 31)
+        Me.c1daten.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.c1daten.Name = "c1daten"
         Me.c1daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
         Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
         Me.c1daten.PreviewInfo.ZoomFactor = 75.0R
         Me.c1daten.PrintInfo.PageSettings = CType(resources.GetObject("c1daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.c1daten.Size = New System.Drawing.Size(758, 376)
+        Me.c1daten.Size = New System.Drawing.Size(1011, 463)
         Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
         Me.c1daten.TabIndex = 0
         Me.c1daten.Text = "C1TrueDBGrid1"
@@ -103,10 +104,11 @@ Partial Class clsStammdaten_flat
         'ToolStrip1
         '
         Me.ToolStrip1.AllowDrop = True
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton1, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton6, Me.ToolStripButton7, Me.tsnewdentotar})
         Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(758, 25)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1011, 31)
         Me.ToolStrip1.TabIndex = 13
         Me.ToolStrip1.Text = "ToolStrip1"
         '
@@ -116,7 +118,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
         Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton5.Name = "ToolStripButton5"
-        Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton5.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton5.Text = "ToolStripButton5"
         '
         'ToolStripButton1
@@ -125,7 +127,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
         Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton1.Name = "ToolStripButton1"
-        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton1.Text = "Neues Dokument"
         Me.ToolStripButton1.Visible = False
         '
@@ -135,7 +137,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
         Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton4.Name = "ToolStripButton4"
-        Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton4.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
         Me.ToolStripButton4.Visible = False
         '
@@ -145,7 +147,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
         Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton2.Name = "ToolStripButton2"
-        Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton2.Text = "Dokument löschen"
         Me.ToolStripButton2.Visible = False
         '
@@ -155,7 +157,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
         Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton3.Name = "ToolStripButton3"
-        Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton3.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton3.Text = "Dokument anzeigen"
         Me.ToolStripButton3.Visible = False
         '
@@ -165,8 +167,8 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
         Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton6.Name = "ToolStripButton6"
-        Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
-        Me.ToolStripButton6.Text = "ToolStripButton6"
+        Me.ToolStripButton6.Size = New System.Drawing.Size(29, 28)
+        Me.ToolStripButton6.Text = "Daten speichern"
         '
         'ToolStripButton7
         '
@@ -174,7 +176,7 @@ Partial Class clsStammdaten_flat
         Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image)
         Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton7.Name = "ToolStripButton7"
-        Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton7.Size = New System.Drawing.Size(29, 28)
         Me.ToolStripButton7.Text = "ToolStripButton7"
         Me.ToolStripButton7.Visible = False
         '
@@ -184,7 +186,7 @@ Partial Class clsStammdaten_flat
         Me.tsnewdentotar.Image = CType(resources.GetObject("tsnewdentotar.Image"), System.Drawing.Image)
         Me.tsnewdentotar.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsnewdentotar.Name = "tsnewdentotar"
-        Me.tsnewdentotar.Size = New System.Drawing.Size(23, 22)
+        Me.tsnewdentotar.Size = New System.Drawing.Size(29, 28)
         Me.tsnewdentotar.Text = "Neuer Dentotar-Eintrag"
         Me.tsnewdentotar.Visible = False
         '
@@ -203,7 +205,8 @@ Partial Class clsStammdaten_flat
         Me.C1TrueDBDropdown1.HeadingStyle = Style4
         Me.C1TrueDBDropdown1.HighLightRowStyle = Style5
         Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("C1TrueDBDropdown1.Images"), System.Drawing.Image))
-        Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(16, 70)
+        Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(21, 86)
+        Me.C1TrueDBDropdown1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
         Me.C1TrueDBDropdown1.OddRowStyle = Style6
         Me.C1TrueDBDropdown1.RecordSelectorStyle = Style7
@@ -211,7 +214,7 @@ Partial Class clsStammdaten_flat
         Me.C1TrueDBDropdown1.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
         Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray
         Me.C1TrueDBDropdown1.ScrollTips = False
-        Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(215, 150)
+        Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(286, 184)
         Me.C1TrueDBDropdown1.Style = Style8
         Me.C1TrueDBDropdown1.TabIndex = 14
         Me.C1TrueDBDropdown1.Visible = False
@@ -232,7 +235,8 @@ Partial Class clsStammdaten_flat
         Me.C1TrueDBDropdown2.HeadingStyle = Style12
         Me.C1TrueDBDropdown2.HighLightRowStyle = Style13
         Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("C1TrueDBDropdown2.Images"), System.Drawing.Image))
-        Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(189, 153)
+        Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(252, 188)
+        Me.C1TrueDBDropdown2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
         Me.C1TrueDBDropdown2.OddRowStyle = Style14
         Me.C1TrueDBDropdown2.RecordSelectorStyle = Style15
@@ -240,7 +244,7 @@ Partial Class clsStammdaten_flat
         Me.C1TrueDBDropdown2.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
         Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray
         Me.C1TrueDBDropdown2.ScrollTips = False
-        Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(233, 150)
+        Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(310, 184)
         Me.C1TrueDBDropdown2.Style = Style16
         Me.C1TrueDBDropdown2.TabIndex = 15
         Me.C1TrueDBDropdown2.Visible = False
@@ -248,97 +252,104 @@ Partial Class clsStammdaten_flat
         '
         'ContextMenuStrip1
         '
+        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerBenutzerEröffnenToolStripMenuItem, Me.PasswortÄndernToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(204, 48)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(241, 52)
         '
         'NeuerBenutzerEröffnenToolStripMenuItem
         '
         Me.NeuerBenutzerEröffnenToolStripMenuItem.Name = "NeuerBenutzerEröffnenToolStripMenuItem"
-        Me.NeuerBenutzerEröffnenToolStripMenuItem.Size = New System.Drawing.Size(203, 22)
+        Me.NeuerBenutzerEröffnenToolStripMenuItem.Size = New System.Drawing.Size(240, 24)
         Me.NeuerBenutzerEröffnenToolStripMenuItem.Text = "Neuer Benutzer eröffnen"
         '
         'PasswortÄndernToolStripMenuItem
         '
         Me.PasswortÄndernToolStripMenuItem.Name = "PasswortÄndernToolStripMenuItem"
-        Me.PasswortÄndernToolStripMenuItem.Size = New System.Drawing.Size(203, 22)
+        Me.PasswortÄndernToolStripMenuItem.Size = New System.Drawing.Size(240, 24)
         Me.PasswortÄndernToolStripMenuItem.Text = "Passwort ändern"
         '
         'ctxMenuTarif
         '
+        Me.ctxMenuTarif.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ctxMenuTarif.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifBearbeitenToolStripMenuItem, Me.NeuerTarifeintragErstellenToolStripMenuItem})
         Me.ctxMenuTarif.Name = "ctxMenuTarif"
-        Me.ctxMenuTarif.Size = New System.Drawing.Size(216, 48)
+        Me.ctxMenuTarif.Size = New System.Drawing.Size(258, 52)
         '
         'TarifBearbeitenToolStripMenuItem
         '
         Me.TarifBearbeitenToolStripMenuItem.Name = "TarifBearbeitenToolStripMenuItem"
-        Me.TarifBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
+        Me.TarifBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(257, 24)
         Me.TarifBearbeitenToolStripMenuItem.Text = "Tarif bearbeiten"
         '
         'NeuerTarifeintragErstellenToolStripMenuItem
         '
         Me.NeuerTarifeintragErstellenToolStripMenuItem.Name = "NeuerTarifeintragErstellenToolStripMenuItem"
-        Me.NeuerTarifeintragErstellenToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
+        Me.NeuerTarifeintragErstellenToolStripMenuItem.Size = New System.Drawing.Size(257, 24)
         Me.NeuerTarifeintragErstellenToolStripMenuItem.Text = "Neuer Tarifeintrag erstellen"
         '
         'ctxmenuDentotar
         '
+        Me.ctxmenuDentotar.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ctxmenuDentotar.Name = "ctxmenuDentotar"
         Me.ctxmenuDentotar.Size = New System.Drawing.Size(61, 4)
         '
         'ContextMenuStrip2
         '
+        Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifBearbeitenToolStripMenuItem1})
         Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(156, 26)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(183, 28)
         '
         'TarifBearbeitenToolStripMenuItem1
         '
         Me.TarifBearbeitenToolStripMenuItem1.Name = "TarifBearbeitenToolStripMenuItem1"
-        Me.TarifBearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(155, 22)
+        Me.TarifBearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(182, 24)
         Me.TarifBearbeitenToolStripMenuItem1.Text = "Tarif bearbeiten"
         '
         'ctxMenuMailtext
         '
+        Me.ctxMenuMailtext.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ctxMenuMailtext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MailTexteBearbeitenToolStripMenuItem})
         Me.ctxMenuMailtext.Name = "ctxMenuMailtext"
-        Me.ctxMenuMailtext.Size = New System.Drawing.Size(189, 26)
+        Me.ctxMenuMailtext.Size = New System.Drawing.Size(225, 28)
         '
         'MailTexteBearbeitenToolStripMenuItem
         '
         Me.MailTexteBearbeitenToolStripMenuItem.Name = "MailTexteBearbeitenToolStripMenuItem"
-        Me.MailTexteBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
+        Me.MailTexteBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(224, 24)
         Me.MailTexteBearbeitenToolStripMenuItem.Text = "Mail-Texte bearbeiten"
         '
         'ctxmenureporting
         '
+        Me.ctxmenureporting.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ctxmenureporting.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SQLBearbeitenToolStripMenuItem, Me.ReportBearbeitenToolStripMenuItem})
         Me.ctxmenureporting.Name = "ctxmenureporting"
-        Me.ctxmenureporting.Size = New System.Drawing.Size(169, 48)
+        Me.ctxmenureporting.Size = New System.Drawing.Size(200, 52)
         '
         'SQLBearbeitenToolStripMenuItem
         '
         Me.SQLBearbeitenToolStripMenuItem.Name = "SQLBearbeitenToolStripMenuItem"
-        Me.SQLBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(168, 22)
+        Me.SQLBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(199, 24)
         Me.SQLBearbeitenToolStripMenuItem.Text = "SQL bearbeiten"
         '
         'ReportBearbeitenToolStripMenuItem
         '
         Me.ReportBearbeitenToolStripMenuItem.Name = "ReportBearbeitenToolStripMenuItem"
-        Me.ReportBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(168, 22)
+        Me.ReportBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(199, 24)
         Me.ReportBearbeitenToolStripMenuItem.Text = "Report bearbeiten"
         '
         'clsStammdaten_flat
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.C1TrueDBDropdown2)
         Me.Controls.Add(Me.C1TrueDBDropdown1)
         Me.Controls.Add(Me.c1daten)
         Me.Controls.Add(Me.ToolStrip1)
+        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
         Me.Name = "clsStammdaten_flat"
-        Me.Size = New System.Drawing.Size(758, 401)
+        Me.Size = New System.Drawing.Size(1011, 494)
         CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ToolStrip1.ResumeLayout(False)
         Me.ToolStrip1.PerformLayout()

DPM2016/Klassen/clsStammdaten_flat.resx

@@ -121,7 +121,7 @@
   <data name="c1daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
@@ -155,7 +155,7 @@
 </value>
   </data>
   <data name="c1daten.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 756, 374&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 756, 374&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1009, 461&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1009, 461&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>163, 17</value>
@@ -163,25 +163,25 @@
   <data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYW/UDc5jaP
-        Z2durrbOOdtOunJmVJQFWdkPS9P8GVqRw1QqikqtjLKsVDQylLKQcolFhBdJFEF0UfDpqLHYpT3wgfd5
-        4f3wfp/3Ff9TXyYGgh/fj/5q25fO3635ulqa3dVxLJuuslmkJJ3HJa4dtvMkvpuZ8R4+j93h+7t+Lh+w
-        pgo6S2VWrbGzep2NNRv+kbbOykrLen4kekh0HWGkyc/XRB9XDzlSBR0lMulWJza7hN3hSmLNdJK23sbb
-        tggjF3SGzwaZeX2fG0ezUgWOeoFUsYgsuw/JpSBluZEkGZdLZoNVYrzVYPh8iKeNQaZHOuei/j0qhO2U
-        IDHdjtOUZGdouJ0BFMmPInuR3R4yHG5excMMNen012/m/eAV7pYr8wJbhWDsQzOt/YL0coG9RuA8I5BL
-        luJVgnhy/GRm+xi9oNHfoPPj3nLe9LZwv9KLcFUJnk2VEx8SNA+a68l8nk9FePEpPCfZ6AmTmxtE8gR4
-        flblcZ3Gz54VvL7bRG+Nf17wKFFMfFQQHxG0vBK0jgtefovgaBAEc/PZFAjhztUYagzQWxukudjJi85T
-        9NUH5iJY7GaE7jdbaU8IMmYjnBY46gQ5h5ehq1FU3cAXNBio9/OgeiM3jyk8u1LKYKOaHKIls1LQNenD
-        WSswAnswtCKMcAGGESVi5BEIRXlc4+VelY/uCi8DF/cyfC6U8owWp3llpWoxUWMn0fxC8qMFc+SZaFti
-        PKzy0F2ew60THnqaYow2R1IEoq1oLdsKiyiM7aJw+44kMZO8gp08qJS5fVKho8zN7eoQYy15CF3X0bUQ
-        mhZGVWcx16pm9moS1ew3bdbZHwtwqVQxf6DM9eM5jLdvnR/iQinR0w7UHUz7PXEplhphAbXEZJUQwvIH
-        SUTCca7PpSkAAAAASUVORK5CYII=
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAK2SURBVDhPnZLfS1NhGMdfCPoDuummi+i6K0cW/UDc5jaP
+        Z2duTrfOOdtOunJmVPQLsrKy0rQ0DbXIYSolRqVWhllmKRoZSllItaIfEF0UUQTSRcGno8Zil/XAB97n
+        hffD+33eV/xPfXk5Enz/dvJn++4M/mzNV1d5Tm/34Rx6j8wiJempkLh0wM69+HY+Tw/waeoG318Nc3Gv
+        NVXQUy6TtsrOyjU2Vq37S/oaK8sta5lJDJDoPchEk5+vift07XekCrrLZDKsTmx2CbvDlcSa5SR9rY0X
+        7REmzumMNwf5/OwWVw5lpwoc9QKpagHZdh+SS0HKdiNJMi6XzDqrxHSbwfjZEA8ag3yc6JmL+ueoELbj
+        gsTHDpymJCdTw+0MoEh+FNmL7PaQ6XDzNB5mrElnuH49b0c7uVmpzAtsVYKpdy20DQsyKgX2WoHztEAu
+        W4xXCeLJ9ZOV42PynMZwg85M/1KeD7Zyq9qLcNUIHr6pJD4maBk116+LePQmwuMP4TlJvidMXl4QyRPg
+        UbPK0CmNHwPLeHazicFa/7zgbmIX8UlBfELQ+lTQNi148i2Co0EQzCuiIBDCnacx1hhgsC5Iyy4nj3uO
+        c78+MBfBYjcj9D3fSEdCkDkb4YTAcUqQe2AJuhpF1Q18QYORej+3T+Zz9bDCw85yRhvV5BAtWdWC3tc+
+        nHUCI7ADQyvFCBdjGFEiRiGBUJShWi/9NT76qryMnN/J+JlQyjNanOaVlZqFRI2tRItKKIoWz1Foom2I
+        cafGQ19lLteOehhoijHZEkkRiPbS1WwqKaUkto2SzVuSxEwKi7dyu1rm+jGF7iNurp8MMdVaiNB1HV0L
+        oWlhVHUWc61qZq8mUc2+YL3OnliAC+WK+QNlLlfkMt2xcX6I/0qZnr63bt+KXy8vxFIj/EMtMkkTQlh+
+        A0Tdwm7N1lqbAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
         Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
         AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
         Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -196,22 +196,22 @@
   <data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pdyuFRWVeJF1Z
-        0AeGKckIIpBGdzaU8KIomKNFF3YR9AF2MWrfbdb2vltzutW2YnUTghaSb2uE09rbZm5zF23k/j2D57Jt
-        9oM/53nO+Z9znofZCH6W5d62tV2n1/9juqfnwT2Ggb6uDgGZ7OMbubyelqpTnH/UORcT4L55G3fJkHGJ
-        BM8bGzHDst3UUpnfs9eS6ckOJITHiC6IGN/N4n5NDXip9Aa1lGc9qjP88p9GgmvFkpnBsv8EhB9JvFQP
-        faOW8hRjulPpkBIJt4IMkGFpQoqktx3f7ZsQm33WSm3/RvCqN4vBy3mRbE5NHUPcsQ0rU11kkBx//BI1
-        tZVnfW44IHoUWJk+SV6wn2zuQNJ3FFnvjgi1lKcoXFWlvJ346TmE1aASIvnC6us+BO/sK36y19dSW3kK
-        8w/joqcdufdXkJw8gkzoAlJkezG09xy1VCb/+QnSCy6kZ24h86qXbD+LQujwBC1XZmzsogSiC9kvL7C2
-        GEQuHkAu0r1Gy9Vpbt6pON/XhcxXN/JiBChE7dnlD9tpuTpNLS1ntmytxa6GBj61+K6JpjdGOBzeo9Fo
-        RrVarc5gNiv1+qcDFotl0Ol0jpTkcrkGiVREl3ie7+c47rjP55PTdoZxOBwHrFZrL2kaMBqNQyaTaYTE
-        URI1JdFzKTdMpDIYDP02m+0gwzDMXzlsJDwlht2TAAAAAElFTkSuQmCC
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+        +sAwJRlBBNLozoYSXhQFc7S6sYugD7CLUftus/bu3ZrTLbclq5sQtJBca4TT3OtmbnMXbeT77xk8l22z
+        H/w5z3PO/5zzPMxW8EkkzumWltv0+n9MdnU9ecQw0NXUwC+Vfn4vk9XSUmWE+Wftc7EIXHfv4yEZMioS
+        4XV9PWYkkk5qKc/v2VvJ9HgbEpHniC7wGN0vweOqKnBi8R1qKc1mVKv/5TuPhLMZSyYGy74ziKwk8VY1
+        8INaSiPEtOfSQQUSLjkZIMXSmBhJTyt+2rYhNvuqmdr+TcSj2s4Hrud5sjk1cQpx+y6sTXSQQTL88YlU
+        1FaazblBP++WY23yLHnBYbK5DUnvSWQ9e8LUUhohclOZ8rRj1X0M6wEFePKF9akeTD04JHyx1VZTW2kK
+        80/jvLsVuY83kBw/gUzwClJkuxA8eIlaypP/+gLpBRbpmXvIvOsm2y+iEDw+RsvlGRm5KgLPIvvtDTYW
+        A8jF/ciFOzdouTKNjXvll3s6kPnuQp4PA4WoLbv8aTctV6ahqenCjp3V2FdXx6UWPzTQ9NYIhUIH1Gr1
+        sEaj0epNJoVO97LPbDb3OxyOoaJYlu0nUhJd4ziu1+l0nvZ6vTLazjB2u/2IxWLpJk19BoNhwGg0DpE4
+        TKK6KHou5gaJlHq9vtdqtR5lGIb5CzWnJDp5jKIWAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
         gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
         VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
         mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -227,7 +227,7 @@
   <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
         dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
         vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
         809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
@@ -243,197 +243,197 @@
   <data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACsTSURBVHhe7Z0HnBRV1vZX3V19P/d79zWRJDMMGQZmgCEO
-        mQFJIohIjpIzDCBZAfPqmnZd1zWLgQwiSBJBVHZ9BSWjIlGCgAhK9H7nuVWn+tTt2zPVARf2m/vjT/d0
-        V9+uPs9zzw1V1f2b3JJbcktuyS25JbfkltySW3JLbsktuSW35BZZOnTo0OWOtnfs7dmz5y+DBw9WQ4cO
-        VcOGDVPDhw9XI0aMUCNHjlSjRo1SY0aPVlljxqisrCw1duxYNY4YNXKU6t+vn3rtjTfVK7PeUa+9OVu9
-        8fY8NXfeIjVv/rtq/sIlauHipWrxu8vUu0uWqyVLV6j33l+lli3/QL2/Yo1avupDzYpVa/2sXqtWrl6n
-        WfWB5CO1ag2zXq0GH65XH6z9WK1Z+0mIdZ+qDz+SbFBr129w7q/DNh/Ta5zXrqa6VlLdeM8Vq2l/Vq6h
-        fcP+rVZL31+pWbJsBe37cvXue++rxUuW0edZqhYtfk8tXLRELVhIn3PBYvq8C9VcYs68BWrO3Plq9py5
-        6p3Zc9Tb78xWr896S73y2iz10quvqxdfeln17dNHx3gMxXM0xRXxHUVxRqxHUswRd8R/OG0zjPSAJkOH
-        DFFDhgz5ZfjAgQd6dOvR15UvvjKw38BuQ0j0xYsXq5dpx0aToEEZM2q0euShh1Xrlq3U7n2H1Cebdnhs
-        3bmH+NbHlh2xYdbj1L1HbWN27Q3x1V613WOfZsfXfnYy3+z32MXs3q++knwLDmi+Fnwj2L0nxLdgr8G+
-        A2rj1q/U5wRu9393RLVu1Uo9MGOmNa7ZMXnSZLVl8xa1csVKNX7s+EGujLGXgf0H7Ltv6jS1bds29eas
-        N1X/e/pFxdgxWaphg4bq0PHTase+Yx5Hjv+sDpscY34KgLutpZ4jx8+oIyf8HP3hrI/vwUk/x06ec/jR
-        4bjk1Dl1QvADOH1ec5L5yeFHwamfwQXNaXDG4Sfm7AX1M/HtoR/UHnD4B3q/n1Wjho3UiOEjrDHNifFj
-        x6lRI0aq55577qArY+xlQL/+F/r1vUcxfXr1Vh3a3+mjS6fO3vMmjgEakDB+A5iCHD1xNky0oOC1YfW5
-        2IR2xM5BcEIKbopuCh8uejDhfz57UQPhGc8Aw4ZbYxqUx//0+EWS8CpHyRjLPX36+iqtVrWaSklJUalV
-        UlVaairdVlHlypZVd93ZwbcdkzV6jGOAE6fVzv3HPGyieLBwOWF7rYFPaCF2EMFzEj3q1m4R/sw5B2mA
-        E9oADeM2wMMPPqRIwvgNIKlSuYrKqFtXNW7USDVt0kSLC1O0adXatx0DAzSoH24ATwgpTiLgel1MkT0M
-        oXMUHBiCh0QP2tod4c8I4cFZYYC9MMApMgB1mxjg2WIalAcfeAAGiK+YlVZNS9N9equWLdXtbdqoZpmZ
-        qkZ6DdWmdRvfdgxmBjDAETLALmEAqygJxiawxBTbJnjMotuEN0TXnL+ozhEQXnPEMQBiPHxofAZ4YOYl
-        MEB69erU8puquzrcpbp06ULCt1Z1atfWZjC3BaYBGJsgiUYLDFxxTYKIHVHwoKLbhCfBWXjNhV+08Ezi
-        DDAzfgP07d1HSerWqasGDxqs5/iTJkykOelI1bVrV3U7ZQBzWzCapoIN6tUnA/ykvjpwXLOLYBE2fX34
-        kvFFNHzj8OU3RwKxmdltZ4uFrd9KjmrOk/ggzADUaIYNGWqNaVBmzpiReAPUy6inOtOof+jgIVpcOK19
-        u3Y5G+CHkAEAt7jPdn53yfjfnNjFHPLxeQA22vgqMpsYMpsE4l+4GDLAvkQaYHoCDIBpnwSDwLZt22rh
-        B/Tvr3r26KkHhegKzG0BFifqk2lMA3B6tQqTCDxxGb/IQYVmohUcRBIdcOaB+BcJCO9wkrqtM9Rt1teN
-        zBbToMy4f3riDZBSsZK6rXlz1enuTqpr5y6qI40F0qun61mAuS1gAxwlA3xNwjPcn9qEiRebgNEQi9jA
-        ExwIsU3RJRd/IQMQEJ754XRiDDA9EQbo3bOXktSuVVvP+yunVKZsUFmlVEpRZcuUUXff1dG3HYMVKXQb
-        2gAHSXwXHjSd/OlcQvkxO34OcSqM0GDvtI0z52l/LZw9T4M9IAd/F2jA5+csc97hnOaiIu01+46eVPsJ
-        JwP8rOpTtwkD2GIalOn33Z94A4Ce3Xv46EXdgG074BggQxvgGxKe4UBh1JxIpAh+nIUXxhydS+QUTeKN
-        2oE7eDNBSpcgvWvcls6Ca5RTcD/UBThjABgAx2BsMQ3K/ffdd2kMEA1sgO9PkgG+O+HhC7ohTixkJ6gN
-        T2TgCmwVGpCwsQpOd32ia8Fd0X/Rzzvbm7OAhBhgWgIMgNYdDyOHj6BBYrgBfAK42IQKgq0uDYlnI0xg
-        hgSNJDQwxQ4iOP3TBbcQXIoequdiuAGo28R02xbToOAgnitj7MVWcTRIA+wm4RmrAAKbcBLba7KFBMxJ
-        YEYKLPHEBq6Q9M+Po7e1lYdEv0jvE+IcwSuBWA7GwaBEGGBaIgxg9vfRggMaGXXqhhnAFvhfC1NYiU9k
-        wAIS9C8MLs7f/hYOnHovqgtCcC26NmZoUMjHAtgA9ajRDB44yBrToEydMuUyM8AhEt/FDPyvhU9chkXT
-        +AX2YKGBfkyIDeiFofexCG6KLmYIZ86dV99STJhjl5MBenTrruJhuGuAYz/+5PuQHLRLghTGB4sXAUdj
-        XXDfedwQGlBFPrEtKd1s4UAK7kwdHTCV5LigcSBWMMCgAQOtMQ3KlMmXgwGGDlN169TRrpYGoDj+eriC
-        cuG/Q9vYRfYL7YgthfaLbQhutHBTcGcd4Zw67SK7x2OULbG6GrcBJk2O3wDdu3ZT8aANUBsG8GcADjr9
-        C0eKFAn6zw7XG8InLHDFtQlsS9+e0MDSsv1iBxP8tG8R6izNjI57oLuEAQYOGGCNaVAmT5z07zcADmjU
-        IQPkNAaQosSCWZ+fyMJKTJGjFdovdvaC//hTiJMEL5BhlRSxwlHXgf3jM8Cky84AIs3ZBEg0nqDAS9PA
-        Ii4gUcNFtgvtF1sIbRHbJvjJ0+CMXvcHcpn8aKIMMGFi/Abo1qWrigesZ+OEEXwomeY46Dv3fX/J2ZEt
-        Rx32+tmeHXtCbBNs3XPEwXfc32GLj8Nqy+7DajOBKR8Wfr4+cMwDy+YYNw3o198a06BMvHfCZWSAsGMB
-        53XL2vTVd2pjGPajbeHYXkvsypnPo8R/aPmgw04/n0Vix0H1rwggM2KA/BUJzxz54fTlYwAc8o0HrGfj
-        COJR+lBfHySHu3A/GYsYicYvrhA4GpEZi8hhbAcH1D8JNAyYYBcJz8AA6DZxjr8tpkG5d/y9l4EBBoUM
-        IF3OfSQLYIoSDeEC2nAFjSAsYxXVxCZqJLTYB7XYNnCuJATftf97zU4CjyXGAOPjNwAu+ogHrGbVrllL
-        fyhpAB4QoQ9MNEipx07mDFqeB1qiC1qlDQilBXPBqe4exx0OHT/l59gp9Z3g4LEf1cHvQ/DrITyjDUCN
-        Buf222IalHvHXQYGwGIGG0CmOR79/iqcCnEiImQeYJjJMxTwzCOMIwzkN4zTsq2GMY1CxpCD0sP0GAzQ
-        t09fa0yDgkvEXBljL7aKowFTGRjAdDmCjaD7sQmTE+H1RBLSxBMWiMwQSWBbdjBFNoWGmKbYtowA4be7
-        YDttgN59rDENSkIM0PnuTioeMJKtVbMmBeSUzwD+gBOmINFi1qehEbZLmKASi7AhSNTsRAYBhP4OQhvp
-        /wA46iCnmXht7Vq1VO9evawxDcrYrLH/fgNgIKMNQEGR829bsLmVRYutruxxRbUIGyYuiNS/E36RsxHa
-        E9s594/hE0FZ/G0E6tEG6BmvAbLiN0CnjnereMBApmaNmjpYSG+88GILfKIJE5JxBbW2XEmYuEw2IgOL
-        0FJsRp8BdNhBLijhPWpRt9mzRw9rTIOC6zJdGWMvtoqjAdcPaAPQh/KlOVvALzU+EW24whriRiPyfkNk
-        U2g+68fj0A/64JhcRcT7wwA9une3xjQoCTEATveOBwxkataooQOM9MbgQyLgIWyCRINTjycg44oXCZ+o
-        wO2TreICi8CeyAGElshjI3K5GPuFbrN7t+7WmAYF39Diyhh7sVUcDbhAoWY6DPCjL815gTYFiAdPPBOL
-        kCYWUSU2gYOIbAoN9PEQsSyOA0DyWIE2AGXNbl27WWMaFFyU48oYe8GVP/GAgQwuH4cBvDRH2IIMIERQ
-        bK8PiieoRdQwYRn3a1yCiBxJaA99iVxoYWzzt87BIQADoNvs2qWrNaZBuSwMgGsHa6Sn63QMd/PRMVvQ
-        E41VRIkraCRRGZu4wDu66QpsE9kUGujFMHGpPL4v4UsSnjnw/UndbXbp3Nka06DgmgxXxtiLreJowMmJ
-        IQMc9rAF+tfAJqSJJ6whbpjAIILIWmghMgut10FoGmwepv5SX5oODukuSxug02VgAHz3TzzgxARcPApX
-        6zTnwgHesH1/GP8MgO114NNY2BaZTyRbc+bjrfvsbHFYb8Bz/y9IeAZjEnSbGMnbYhqUEcOHX2YGcPs4
-        oFsOtaB1m/cmni/DWZsAPtTscfgie9bY2BQOT/2++BpXFDtgjAID3N2xozWmQcEp+a6MsRfzK+GipVvn
-        LvprZeDqUJo77KVFW6B/LXyCBhBVYhUYWERes+lbHx8I8M0h+EaRTV9/54ELRNFtIo3bYhoUnJDryhh7
-        sVUcDRjIsAE4xaGf437QFtx/F1ZBJVZxQWSBs2M1wQ1CntHEBkArtsU0KIkxQLv2Kh663N1JpVfzGwDw
-        iqDsFhIOBZZxAu2YLxJy/3xQWpYp2mQjiHCa2udgl+3kFecEFK5Xb+eCGUwN6ja1kJaYBgUn5Loyxl7u
-        pIriAQOZ6mQA9GsyaFv34CTKcORiURBsdcj1Bh9iGsrIBRgboS9+EsZy8aZunsEc+AuncjKPNMzn4mwl
-        GADjJls8owHnY7oyxl5sFUdDJAPYgp1wPPEii2gSSVS/sK64gQT2ZwWvpYdlhZABsEYBA7S/o501pkFJ
-        iAGwE/GAgUz1qtV0vyYD4QVWBj1euM4AWMUUgkYSlck25QMhcJjIlPrN8w/xON/fc/iE7jbbtW1rjWlQ
-        cD6mK2PsxVZxNGAgAwNgydULDoEgymAnElOsIIQEDRfVJyywipu9wMy/gD5h9IDHPwm5zZ5DjgHuuD0+
-        AwweNCgBBmh7h4qHu2ggUz2tKvVrJyhYBz1sQb7U+EQEQkSTkKjBhGVCZwT7BfZwzwbe4OEsYMntsWKZ
-        To2mbZs21pgGZfCAgfEboB1VFA93Ul9UjQyAtOYFUmMG2Y9NFIntNeHI93MhkSQ2EU1CrTaYuH6BQyJv
-        cFcXw1Ybt+731YNrJ5E18eWbZjyjASfkujLGXtpRGooHpKJqaWnaAJ8JIWyBvhRo8YBPQBASUSKF0LiC
-        ZitsNuKC0FLxPg9ziVjWvfu742SAqqpNq1bWmAZlUP8B8RsA/VA8wIn4hnGkNSmMDqgt4IkAdeeAX0jG
-        L2h2ogL/8YGQuDaBw48D7FXrN+9VH7nI98ZBp2pkAPzUji2mQRnYv38CDNDmdhUPbSmNVU1NUwuXrqbA
-        O30dROIgcqAThRQoGuwHfCKIyrjCWsU1BGasxy4I1A/xP922Ty1atlp3my2a32aNaVBwRrYrY+zFVnE0
-        wACVK1XSX37ctHGTXALQiGKFr+Rt3aKlNaZBGXBPv/gN0JYqihd8WzhSGo5x46rX+vXqqcYNG6nMJk31
-        9w4j1WE7fOv4XR06ON9D3KWLPiu2T+8+qh99kIE0oBk6ZKj+yTTn5+my9FfW4/q3iRMmqEkTJ+pfzJoy
-        ZYqaNnWquu+++9T999+vZkyfrmbOnKl/PeOhBx9UDz/0kHrk4YfVo488oh579FH12GOPObcEHsNz2Abb
-        PkCvwVeuT6d68K2b902bpqZS3VMmT6b3mqQm0ntOuPdeNW7cOH0OPn4yb9SoUfrn3HBR7ADqg+/pe48+
-        v797t276uAiO8HW4807dNWKQ17JFC9W8WTPVhITHbwTgSzURK3yvkhnHaEHcXBljL2jBvyY2J+eEbQD0
-        a2Lbp5ywffZEg1PyXRljL3BpLlcmOCXflTH2cnur1iqXK5N7qPt0ZYy94HcAcrkywTUZroyxlzY0QMvl
-        ygTXZLgyxl5sFedyZdCnZ6/4DYApWi5XJrgox5Ux9oLFiFyuTHr16BG/AVpRRblcmfTqnggD3NZC5XJl
-        0rNb91wD/P8MvjHclTH20rL5bSqXKxNcleXKGHuxVZzLlUH3Ll3jN0CLZs3V5Qx/WKQ8Hv16c+FWrZxl
-        0dahAyTmQRnbwR0b5uu4Pr3urlfenPfkfeA0zPtn2/dLTbcuXa4cA7CICCICiiDjxEZc4dKxQwfVuePd
-        qmunzjqtYXSLRQ6sdeNbyHDq05CBg9SwIUP05VAjhw/Xl0bjCxKyRo1WY0ePUeOysvT35uHbMyeMv1d/
-        kfKkCRPU5AkT9Q8rTJkEJhtM0s/ha9exLV6D16IO1IU6UTfeA++F9xw5bLjeh2GDh+hvScX3JPa/5x69
-        r9jnnt2765aJz9KpY0fV8c4O+rxJmEwbij5765YtE2Karp07/+dngFwiA5O5MsZebstspi4lTRs11q1q
-        w4YNateuXX527lQ7JTt2aHZItm9X2022bVPbJFu3arYyW7Zothhs3rxZbXHBfcmXX37p44svvghj06ZN
-        mo0bN6pXXnlFNWrYUFUoV15Tvly5EGVD4HeYy5Upq39/uWzpMqp0qVKqdHIpValCRR0bW8yCgusyXRlj
-        L82bZqpLCVLksWPH1N69e9Xu3bv/Yzhw4IBavXo1iV+OxKygT4tLTansUSUlxaGSA36EG6eBVSxfXhui
-        VMlkbQJbzIKCbtOVMfZiqzhRNGvSVP/E+bp16/4jQSaoWL4CCV1ZX+iBb0vTVE/3wFXANapV11cC4VRw
-        nEBbmcyA7FAqOVnHyBa7IGCM4coYe8EOXCoyGzfR5+/ZgvefAAwA8XGRB74wG+f5haijf02NwZdDY5ua
-        6en6OgpkDHQJiJEtdkG4u8Nd8RsAO5Bo0D/xtG3mjJnq448/VuvXr1cfffSRDw7khx9+6LFmzZqIfPDB
-        B/oW261du9YH1yUfM99PwvtkA8998sknejtZH78H8/nnn6u01FTdyiF4w3r1VYN69RwyQtTPyFD1yBSg
-        Tq1aOiOkVq6ixwsYB9hiGATMMFwZYy/YgUSC1MTzaMydcdYuC4agIagy2J9++qkHBop8HyKYyNexkFJo
-        3GcTsVn4lo3DsIgsLu8fv15uC/h5CQyA1lyL0n79uhn6dG8Gp8nDEIw2Am1Tt3ZtvX1VMk4FGg/YYhgU
-        XJfpyhh7adKwkUokmJ7IRZQHZj7gBQwi4VYKJQWIBLY1XyfB4/I9+H3kfRN+zmYq829sz+/B+wA+++yz
-        yAYQ4ksDIFPgW0IxFsDg0RbDoGANxZUx9tKkQUOVSJABYAJ0Ay2aNdPn7nPAGBYO96V4ZmtnASR43MwG
-        gOtg+H3ke8j6swPpX4L68d6oA3Uiq2AGgIxVjYQMMwAJDrT4JDzQBsDYgMYDtckAMA4M0NgSw6DceUe7
-        +A2AHUgkGJzwQgXMgIssIAAjRQK4WAMratkzUA0aMED179fPvQiju+rWtSt1LzPCDGKKyF0K7uNxiIlb
-        bMvC2m55O95PGImFX7VqlVq5cqWu05YBZPrHRTPeWEB3AU4GwOtSKlbU29viGASspLoyxl481yYYDgCu
-        6uGWCKT4oA6NjBHA7NDTKRo4Va2SqtIIzKXLly2rF2C4XsAGg4g28Jzc1oasj4HwLP6KFSs0y5cv1yZB
-        BsDIHgM8+bm1+K7wLH69unUdA9BnwutgAGxnxi4ouEDUlTH2Inc4ESD145RlPmjDrZRblxQfIHg5UaO6
-        M4dOq1JFpRIQHytrWFWDQDYhTfBetn3AY7jFNqhLpni0dIj9/vvvq6VLl6ply5bp+7gFeB2ujMY+QtyG
-        9SkGRAPgzgZwmRxmAQDTw7o0HYQBqqZV1QaAOWxxDALGWa6MsRfp0kSAwQkvVKAbwDV3CHIkA+iFkpzA
-        IgoFrApNnbCIUqlCRb2qVokCyOYy34Mf566AkV0Cnse2Unw2gPk3QNqHEd577z21ZMkS/RxSORZ/kAGQ
-        +nXKd6lP8dDo1s8GqKUzGmeABvS4LY5BwIElV8bYC3YukSA18Si1EfVT+IVriMGCSPEBVsiCgMupMXfG
-        t2ulohugARQWUmTrlvB7MmYLl8h+nVM8p3lu/Sw6ePfdd9XixYv16zCahwHwc/Ce8LrVO0B4Fh8DQCwI
-        sQGwGGSLYVCQYV0ZYy8YmSYSOBPi34YsQAPCqVOmeCKY4gMsoeYEVtr0Eiq1evT7SP0lSySpJAKiQTwA
-        QQBEhdAQnOHWzAbg1zBScBZdir1w4ULNokWLNLiP12C/8K2fEFgbwG2dLJI2AD3nGKC2HvN4BqDPg+ds
-        cQwCullXxthLPXJlItHi42iV2w3AADbhmXRq2TmB9I8BYAql/rKlS2vxSxQrpooXLeYJzfVxRuAWL8WH
-        WSAyQB/OLVu2bvk3bmEAaYIFCxao+fPna2AULOhAULRuPd0jwYE2AIkEgTk26P+xHMwDWnRjeJ2MXzRg
-        tdWVMfaCHUgkmJ5A+MwmznIlrumXorBQDMTNCbSWNEr/mDeX10fSSmoT4GCKrAv1s/Dc0pERZGqXrZxN
-        YDMDiw7YBGj58+bNU3PnzlVz5szR22JWgnEKxPW1fFd8Tv1Az3hoCojvVmYD4HUyftGAk0pcGWMv2IFE
-        gh3TDq3j3I4bO85rgbKlMhA3RyhYOMRaqXwF59h72XKqTKnSejYgxebUz306AwOwCWS/LtM8p3ZO79zK
-        IbgUHcyePVu988472hwwJsYoGNz5hHdFyhCxwQIQZgDYHsbRBiBTyPhFAwbZroyxF7jyUjJ2TJYnEG5N
-        A6Al5AgFGcfUYQAcY8dBlDI0DkhOKukbA7DALDK3bNmiZRqHsLjF3zK1S3gbGACiv/3225q33npL1wVj
-        Ikvhs3qiEyySFwsSvzaJX4vGCxjTwDgwgPe8hcxGjcXRvyZ6/V8+j27WlTH2gh1LJJifyiNWWAnElItX
-        6MIMQIHICQSrCgULC0DICAgcZwIWXaZ4aQCG0ztMwK1cii7vQ2y0crR2bvn4G8K/+eabatasWRpsC2PC
-        AEjtXmsncYAWyo2LI76zqIXtnS6toi92JhhL6QM/7qwKgsvn0dW6MsZesGOJBAGQA5VxWWN1mub+2TRA
-        WuXKOYJWVpnmzDj7JoWmTk7rT1IlCZneObXLvpxvOQPING+agNO9TPmmAd544w31+uuvq9dee00/jqkc
-        BoJo2TjUW6cmiUPUBjUoJgSEx/MQP71aNXdK63RpthgyaPl62ddd+cPf8nk0MFfG2Est2qlEgn5QrwPQ
-        jqMvxO/bIvWzCUwD8ClU2YG0jxkAWnwVChy6AKwBJNNgkFs9xJdpXwovxWfhpRHYBFJspHuAVM+tHuJD
-        +FdffVWfEwhDYDHHGQhW13287uc90XGGkCO8Iz5WNMkAZBju0mwxZNAF8IEkAMHl88gOroyxF965RIH+
-        zzv6RWbA6dVyMcY0AM6oyRF39Q+iY+CXXDJZJRUvoUoUL+4THELL1i5bvC31y5bOouOWWzvEZ+HR6ln4
-        l19+Wb300kvaGBBRL1CRuI7gIeRqJp7XaxrU+tGtYUWzInVjthgySP16VuEOLPG3fB4NzZUx9oI5aSJh
-        5/Pfo0aO9I3SITpP1QACkSO6/6+gyiQ7Z9SWpMEfWj/gls6Cs9BSfG71ZrqH+LZWz8iWz2n/xRdf1Pzj
-        H//Qj+GkDhgUad0TnD63Fhy4C1kaiE/ZIo1Mja4D4xiOkw2kfzmTwN/m866MsZcatGOJBIMTXgwBnAF4
-        eVZO2zBdg7g5gfSP1lKWpn4wBFYC0fqLFC7iE1u2bFNgKTJaN4NWzrDgEFaKzqD1v/DCC+rvf/+7ev75
-        5/Xf6Jawj1gRNFcvITjDU9qqVWhASwbQn4lea4shg3MKeMCHPh9/m8+7MsZebCtv8QC3YsCiBy60g7jK
-        hls7hOflWp6fV6ZA5EQKtf4KmPtT69ergWWo/6csABOw+LKVSyNAeDYCDGAzgtnSWXhO+TLtQ/i//e1v
-        6rnnntN/l6d9SalQQad1fP7qJLIEaxgMxNdjGmr96NKwqGXGD3Dfj9TP/X1NavEYVOMxjK+wHbZxZYy9
-        mDscL9hZpCvsKKaE+HZNTv+2VTn0oR7Uyk3Q8kE5XFRBfT/OqS9ZooQqXqyYKla0mCe+7M+lyGbrhsh8
-        y0BwiM0ic4qXrR2is/B//etf1V/+8hf9PParEnUDENYvtrN+IaeySP3oLpAx8JlgAFsM0YgwhXRSvZtV
-        SHBkEnSvmGJiO2RYV8bYi9zpRIAdxIAFgxcMBDEG4KmabY5egYJQnoKIQDqUdqB0zyD1Q3wM/GAA7v+x
-        HIzWDuEjtWgWmFu02aojiQ2hITLElqI/++yz6plnntFgO6xIIjtBVC0ypq4kNPBmMiQ6cMSvqJe0uUuz
-        xRCgAenug4Tm1VCA2Mr7royxF9+KWwJA69cnLOhZQF1tADlVM6dpZZKTdTpHqy5JAoOkYsU9SgBq6cWK
-        FFFFChXS2+IoIB4vVrSorx+H8AyLDpHNls3wgI4fN8WH2ODpp5/WPPXUU97tk08+qbeBMdGS0TWZYnu4
-        Yxk9niEDYECL18AAthgCpHyM9OVjGAcgK/DfGCC6MsZeHNcmDjhTpj2cz8dTNJ6myalaEvXjRQsXVoUL
-        FlSFbr1VU7BAAc2tIH9+VSBfPpU/b16VjyhMJriVtslHj+W55RZr685OdIDWzqDVm2me7+PWzAoQ/s9/
-        /rN64okndBbAgSlkLJyfgJG9BwkNILgHWj7GM276x5jGjJ8EqV7+ja5B/o3G5soYe+F0lSh0F0DOZHAp
-        tZynm9OzojSSvzV/ARI4n8qXJ6/KmyePykvC5rn5FnXLzTerW266Wd18003qphtv0reFyCgwQAEyRn4y
-        Aad9ZAC+5SxgDuy4n4cpYA42A4vMQGyZ7tHiGQj/+OOPqz/96U/aDFiRLEMGgKjIAia+MQ7Ep+4C4qNr
-        Q/azxZBBY8KYCvfR+nWjEs9jduDKGHshly7jtJUIsKN6EYj6J/RRw4cO9dI9DGDOx9Hy0bK14Cy2K/hN
-        N96obrrhRnXjDTeoG/7HAa0ewuM1uIWwsq9noWU2gNgQGuJyemeQ0iEyp3vc5zQP0Nq5xUN4/fXzxKOP
-        Pqr/xrgEaxMQFgLzoFWC5xgtPo11ytJrSlF3ZouhRBrAfA6PkYRXCaIuV1WsWPH6yuUqvo9+KhGgj+JZ
-        AIwwjAwgW765CNOvXz9KnzQlokCVowCV1Sd8Oid9lqFAlabWhXl/KUBB088TOB+wb58+XmvmdM8p30zx
-        8m+Z0rm1M2wG3EpgCrT4Rx55RD2M3xzAbxKQCTBOgZAQ1Sc0Q5+FwQBWDmrxOlsMTTCWsj0Oc2RkZPyW
-        dLwGWroELvyCa5KSkv67Urlyy21z8GjBdAV9l17CJJABYAAAA5jTNAwQ5elifNBIrh0wPJ3kKSWyiezj
-        WWSZyjF6t7VubtXcshmkdm7hEBvI+w899JB68MEHNTABBqjJNCiFqJjNmOiZDT3nzWhgYsIxQJI1hkHB
-        QJH0uy41NfV30JG42tU0UMGGeAFefN3111+fp3yZMqts/Vg0oJ/CvBUHRZAFhgwa5KV8CC+na3J+Lvtr
-        DOrkQowc1Mm0DvE5rUNonrIx/BhaNpuAkaN5meZlHy+NALGl+GyA4kWK6plLGaxRsMjZQeLrJW1q/Rg/
-        2GIYFMSZtPtv4v8QvyeiygS69RN44fXETddee21SmaRSa7HyFiuYt2IRA2fIIBPg1y2530fqj0V02crN
-        vzmty5TO9xk2gC2t8y2MwOLjlg1hGkEaAIYoVqgwdQPFtKDcurMDRuHWj8xhi2FQsE5AuuUl/kj8F4HG
-        HDgLYCP0H9cRcBEqKvHb3/62RskSSf+0rcoFAYMTXtIEfXv31umeW3wsorPIuMXz/Jhs/RCYB24Aoprp
-        XrZs3DIssEz1wNwGSAOAojQtRTdQisSEuDkBowAYAAtZthgGBWsBpFkxIo+r4bUENI3aAP9DFCDKEDWv
-        ueaadiWLFduMgxXRgsUOHKhA/4RbXMtnm55JA9iMwCZgodGqZd/OrVumfjYChIfoaNUMDMCwEVhYFlym
-        +RkzZugfo5LgMdMARQoW0t1AMmYDrrjZAeG59aPrsMUwCDAAGhvpVZYoRNxIoCvgLJBjYQMgdcAABYly
-        RF2i/dVXX51VomCx3ViqjQZMWXgNGwbAjxpwv2+mfzMLMNIAZiZg8blvN0funM5ln84is8AsMn41zASP
-        YzsGr0Nm4CwhxQdFaBpbvEgREhOzAUfcnID4ye7Kpy2GQcBYi4zwC2mVShQnbiH+QKBLD9QNYAOMAZAB
-        0IdwBqhNtCNGXXXVVc8XLlz4sG0HIoHRKa8Egs6dOmnhAESUgvKUDILKvtsU1+yvTZFtgzYpMrdeFhiY
-        rZthI/B9mAD1ct3Tp0/3gXUMLFNHawBe+rbFMCd4Gli8ePFTpFN1IplAF/5/CTkYzLawAdBv4IWoIImo
-        RrQgBhFPkwneK5Y373Hbjtjg9MS0atlSBwoCyMDhb4Yfw28BTpvm/Haf/v2+KVPU5MmT1ST+Db8JE9S9
-        7u/46d/yGztWZWVlqTFjxqiRI0fq3/MbNmyYhu8PpWkowN9g9OjR2YLfBURdJvz4iBEjfBQvilmAIz4G
-        d0HBGgCwxTA7kPbRyHC/ZMmSO0ijuAzA00D0HehDChMViHpEJ2IK8TKZYEnBggUP0Sj2DE1hzuS7Jc9Z
-        G3iOuoAz1apV82jSsOG5trfffp5pUK/+hfr16mnqZWR4txl1616oXbu2R62aNTU1a9S4UCM9XZORkXEx
-        EVSvVu1C1bQ0D/wNaH8dqlbV8OPNMpudb5aZeT6zSdPzDRs0JBpoGtSvf7583nxny+XJezY/fX6OT04x
-        yg7UYaN86TI/ly1T9qdyRYr8SNsdTiqRtImm7mikMXcBKDIL8EwAlVUmGhNdiDHEDOIx4kniaeIZ4lkB
-        /ka2eCpv3rx/qVix4t8aNWr0fMeOHV8ZMGDAW9Ry5lJLnT9+/PiF1IoXUYt+l1r0EmIptfDl1OpXUutf
-        TayhjLCO0vd6Sr2fEBsoxf+LUv3/Ehsp1W+i1P8FsZnYSmyj7mA7Pb6dRvs7aNud9PdO3Kftd+Bx6g62
-        UereSnVtoXq/pNS+kVL759QNfEb3/0Xvt4H+/pjuf0TPr6PbNcRqehz7hH1bRtloCbGY9n0BZZG3Bw0a
-        9GafPn1mdejQ4XUy1KvJyckv/PGPf3zmd7/7HeLzZwK3TyEm2YDnsZ0JXi95gniceJhAg4ToHYlmRA0C
-        g0CM36IeBKLILMCDwXwETFCJqEPcRrQnOhPdiZ5EL6K3AH/3pIFjjzx58vRNTU0d3KJFi1F9+/adTGl6
-        Jon8EAX8UepHnyCeJKGeJp6lPp66/Of+Tn3/P4iXaDzwCo0LXqPxwevELBoMvkUDxdk0bZxDzCcW0OBx
-        Ed2CxTSgfJf+XkK3SwE99p4Ez7nPL6Z6FtL9hfT4AhqMLqDH5tHtXHpsDg1C3ybeovfDe75GA1GajLxC
-        d19+kQajNHx54Xnar+dooPkMfY4HyRz4TDPI2NM6deo0vk6dOsNorNTnuuuu60ZxAIhTD8QkG/B8UFAf
-        GmMHohXRkEgnyhNFCUwDkf6jmgZy4SyA1AEHwQTIBEWIUkRFIo2A2zBAxCwhwwCPwSy1y5cv3/iOO+5o
-        Ta2kA7X47tQK+9GgbgAJOpAGgIMo0ENJjGEkxAgSYCQJMXr27NlZ8+fPH0eMX7Bgwb10O3HRokWTFy5c
-        OAXQ31Pp8Wlz586dSjOKSbQ9Hrtv3rx503Afj7lMZqjeKTTzmErPgylgzpw5k6kOvHYKvXaSqH8i/T2B
-        nhtP97Ef42jbsVTPGOwf9hP7TGYYQJmlK2WTLuSDTpTJOvbv379t8+bNM5OSkjL+8Ic/1KIYAMQJ8UBc
-        EgHqQr3QAFqgcUIbaATxY1oI4oKNpQlQEdyElIJsgPQCl2GAWJLAG5c2wGMYiJQsVKhQuZo1a6Z07ty5
-        Og3CalHqzKAUXJ9afH1Kz/Wp1TckQzSiVtUYUCvTUItrQuZoSoHOpFbZnMRrRiJoSHx9SyJmkihN8RzA
-        diTQbQy9vjm13ma4TwZrAch0zUi4pmTATHofDe5jW0DbYPtMUXcTqrcR7UcDQNvWo9lHHcpctairqEnC
-        p91///1p1H2l0qCxCn3OSjRmKVugQIHk3//+94gPQCxscYoVji80wMIP5v35iZuJmJeCZZEmgIuQSlAp
-        jICMADPgzTDQgOMigedvzp8//80pKSm3NG7cOA8FKE+vXr3y9uvXLw+lTA2N4PNSCtW37v18DAU3P6BA
-        F7BBZro1Hmx1An5fuS+8fwzvPz4LPhM+Gz4jtf5b8uXLpz+7GwMzLsiosSLrQd03ETcQEB5L+JjGQzNo
-        F3XrNwtejEpQGfoSuApvgKwAQwC8aST0NjRj+K/09HRNt27drsvMzLx28ODBPijA111JmPuPz0UDwOv4
-        c+Iz8+d3Y3EpQN14H2iCRgrhoVPMLT9S4crYDGyIoFzTvn37ayhwVwP6W9fHf1/pmJ8FnxWfmTDjAIES
-        hayX38+LLWEpv/nN/wMIOoDDIeHLYQAAAABJRU5ErkJggg==
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAACsUSURBVHhe7Z0HnBRV1vZX3V19P/d79zUQJTMMDGEYmAGG
+        OGQGJIkoIjlKzjCAJJGgGFbXtOu6rjmTQQQBEVFUdn0FJaMiSUEERFCi9zvPrTrVp27fnqkOuLDf3B9/
+        uqe7+nb1eZ57bqiq7t/kl/ySX/JLfskv+SW/5Jf8kl/yS37JL/klv8jSqVOnbjd3uHlv7969fxk6dKga
+        Pny4GjFihBo5cqQaNWqUGj16tBozZowaN3asyhk3TuXk5Kjx48erCcSY0WPUwAED1Isvv6qef+UN9eKr
+        c9XLry9Q8xcsUQsWvqkWLl6mFi9drpa+uUK9uWylWrZ8lXrr7XfUipXvqrdXrVUr33lPs+qddX7WrFOr
+        17yveeddyQfqnbXMerUGvLdevbvuQ7V23Uch3v9YvfeBZINat36Dc/99bPMhvcZ57RqqazXVjfdctYb2
+        Z/Va2jfs3xq1/O3VmmUrVtG+r1RvvvW2WrpsBX2e5WrJ0rfU4iXL1KLF9DkXLaXPu1jNJ+YtWKTmzV+o
+        5s6br96YO0+9/sZc9dIrr6nnX3xFPfvCS+qZZ59T/fv10zEeR/EcS3FFfMdQnBHr0RRzxB3xH0nbjCA9
+        oMnwYcPUsGHDfhk5ePCBXj169Xfli68MHjC4xzASfenSpeo52rGxJGhQxo0Zq+6fc59q16at2r3voPpo
+        0w6PrTv3EF/72LIjNsx6nLr3qG3Mrr0hvtirtnvs0+z40s9O5qv9HruY3fvVF5KvwQHNl4KvBLv3hPga
+        7DXYd0Bt3PqF+pTA7f5vv1Pt2rZV98yabY1rbkydMlVt2bxFrV61Wk0cP3GIK2PsZfDAQfvuvmu62rZt
+        m3r1lVfVwDsGRMX4cTmqSeMm6uDRk2rHviMe3x39WR0yOcL8FAB3W0s93x09pb475ufwD6d9fA+O+zly
+        /IzDjw5HJSfOqGOCH8DJs5rjzE8OPwpO/AzOaU6CUw4/MafPqZ+Jrw/+oPaAQz/Q+/2smjZpqkaNHGWN
+        aV5MHD9BjRk1Wj355JPfuDLGXgYNGHhuQP87FNOvT1/V6ZZbfXTr0tV73sQxQGMSxm8AU5DDx06HiRYU
+        vDasPheb0I7YeQhOSMFN0U3hw0UPJvzPp89rIDzjGWDESGtMg/LQnx46TxJe5igZY7mjX39fpTVr1FRp
+        aWkqvXq6ykhPp9vqqlLFiuq2Wzv5tmNyxo5zDHDspNq5/4iHTRQPFi4vbK818AktxA4ieF6iR93aLcKf
+        OuMgDXBMG6BJ3Aa47945iiSM3wCS6tWqq6wGDVSzpk1Vi+bNtbgwRfu27XzbMTBA40bhBvCEkOIkAq7X
+        xRTZwxA6T8GBIXhI9KCt3RH+lBAenBYG2AsDnCADULeJAZ4tpkG59557YID4illpjYwM3ae3bdNG3dS+
+        vWqZna1qZ9ZW7du1923HYGYAA3xHBtglDGAVJcHYBJaYYtsEj1l0m/CG6Jqz59UZAsJrvnMMgBiPHB6f
+        Ae6ZfQEMkFmrFrX8Fuq2Trepbt26kfDtVP169bQZzG2BaQDGJkii0QIDV1yTIGJHFDyo6DbhSXAWXnPu
+        Fy08kzgDzI7fAP379lOSBvUbqKFDhuo5/pRJk2lOOlp1795d3UQZwNwWjKWpYOOGjcgAP6kvDhzV7CJY
+        hE1fHrpgfBYNXzl8/tV3gdjM7LazxcLWryWHNWdJfBBmAGo0I4YNt8Y0KLNnzUq8ARpmNVRdadQ/fOgw
+        LS6cdkvHjnkb4IeQAQC3uE92fnvB+N+82MUc9PFpADba+CIymxgymwTinzsfMsC+RBpgZgIMgGmfBIPA
+        Dh06aOEHDRyoevfqrQeF6ArMbQEWJxqRaUwDcHq1CpMIPHEZv8hBhWaiFRxEEh1w5oH45wkI73Ccuq1T
+        1G020o3MFtOgzJoxM/EGSEutqm5s1Up1ub2L6t61m+pMY4HMWpl6FmBuC9gAh8kAX5LwDPenNmHixSZg
+        NMQiNvAEB0JsU3TJ+V/IAASEZ344mRgDzEyEAfr27qMk9erW0/P+amnVKBtUU2lV01TFlBR1+22dfdsx
+        WJFCt6EN8A2J78KDpuM/nUkoP+bGzyFOhBEa7J20ceos7a+F02dpsAfk4O8cDfj8nGbOOpzRnFekvWbf
+        4eNqP+FkgJ9VI+o2YQBbTIMy8+4ZiTcA6N2zl48+1A3YtgOOAbK0Ab4i4RkOFEbNiUSK4MdZeGHM0blE
+        TtEk3qgduIM3E6R0CdK7xm3pLLhGOQX3Q12AMwaAAXAMxhbToMy4++4LY4BoYAN8f5wM8O0xD1/QDXFi
+        ITdBbXgiA1dgq9CAhI1VcLrrE10L7or+i37e2d6cBSTEANMTYAC07ngYPXIUDRLDDeATwMUmVBBsdWlI
+        PBthAjMkaCShgSl2EMHpny64heBS9FA958MNQN0mptu2mAYFB/FcGWMvtoqjQRpgNwnPWAUQ2IST2F6T
+        KyRgXgIzUmCJJzZwhaR/fhy9ra08JPp5ep8QZwheCcRyMA4GJcIA0xNhALO/jxYc0Miq3yDMALbA/1qY
+        wkp8IgMWkKB/YXBx/va3cODUe16dE4Jr0bUxQ4NCPhbABmhIjWbo4CHWmAblrmnTLjIDHCTxXczA/1r4
+        xGVYNI1fYA8WGujHhNiAXhh6H4vgpuhihnDqzFn1NcWEOXIxGaBXj54qHka6Bjjy40++D8lBuyBIYXyw
+        eBFwNNYF953HDaEBVeQT25LSzRYOpODO1NEBU0mOCxoHYgUDDBk02BrToEybejEYYPgI1aB+fe1qaQCK
+        46+HKygX/ju0jV1kv9CO2FJov9iG4EYLNwV31hHOqJMusns8QtkSq6txG2DK1PgN0LN7DxUP2gD1YAB/
+        BuCg079wpEiRoP/scL0hfMICV1ybwLb07QkNLC3bL3YwwU/6FqFO08zoqAe6Sxhg8KBB1pgGZerkKf9+
+        A+CARn0yQF5jAClKLJj1+YksrMQUOVqh/WLnLviPP4U4TvACGVZJESscdR08MD4DTLnoDCDSnE2AROMJ
+        Crw0DSziAhI1XGS70H6xhdAWsW2CHz8JTul1fyCXyQ8nygCTJsdvgB7duqt4wHo2ThjBh5JpjoO+c9/3
+        F5wduXLYYa+f7bmxJ8Q2wdY93zn4jvs7bPFxSG3ZfUhtJjDlw8LPlweOeGDZHOOmQQMGWmMalMl3TrqI
+        DBB2LOCsblmbvvhWbQzDfrQtHNtriV1582mU+A8tf+Ow088nkdjxjfpXBJAZMUD+goRnvvvh5MVjABzy
+        jQesZ+MI4mH6UF9+Qw534X4yFjESjV9cIXA0IjMWkcPYDg6ofxJoGDDBLhKegQHQbeIcf1tMg3LnxDsv
+        AgMMCRlAupz7SBbAFCUawgW04QoaQVjGKqqJTdRIaLG/0WLbwLmSEHzX/u81Owk8lhgDTIzfALjoIx6w
+        mlWvTl39oaQBeECEPjDRIKUeOZ43aHkeaIkuaJU2IJQWzAWnunscdTh49ISfIyfUt4Jvjvyovvk+BL8e
+        wjPaANRocG6/LaZBuXPCRWAALGawAWSa49Hvr8KJEMciQuYBhpk8QwHPPMI4wkB+wzgt22oY0yhkDDko
+        PUSPwQD9+/W3xjQouETMlTH2Yqs4GjCVgQFMlyPYCLofmzB5EV5PJCFNPGGByAyRBLZlB1NkU2iIaYpt
+        ywgQfrsLttMG6NvPGtOgJMQAXW/vouIBI9m6depQQE74DOAPOGEKEi1mfRoaYbuECSqxCBuCRM1NZBBA
+        6G8htJH+D4DDDnKaidfWq1tX9e3TxxrToIzPGf/vNwAGMtoAFBQ5/7YFm1tZtNjqyh1XVIuwYeKCSP07
+        4Rc5F6E9sZ1z/xg+EZTF30agHm2A3vEaICd+A3TpfLuKBwxk6tSuo4OF9MYLL7bAJ5owIRlXUGvLlYSJ
+        y+QiMrAILcVm9BlAhxzkghLeoy51m7179bLGNCi4LtOVMfZiqzgacP2ANgB9KF+aswX8QuMT0YYrrCFu
+        NCLvN0Q2heazfjwO/qAPjslVRLw/DNCrZ09rTIOSEAPgdO94wECmTu3aOsBIbww+JAIewiZINDj1eAIy
+        rniR8IkK3D7ZKi6wCOyJHEBoiTw2IpeLsV/oNnv26GmNaVDwDS2ujLEXW8XRgAsU6mTCAD/60pwXaFOA
+        ePDEM7EIaWIRVWITOIjIptBAHw8Ry+I4ACSPFWgDUNbs0b2HNaZBwUU5royxF1z5Ew8YyODycRjAS3OE
+        LcgAQgTF9vqgeIJaRA0TlnG/xiWIyJGE9tCXyIUWxjZ/7RwcAjAAus3u3bpbYxqUi8IAuHawdmamTsdw
+        Nx8dswU90VhFlLiCRhKVsYkLvKObrsA2kU2hgV4ME5fK4/sSPifhmQPfH9fdZreuXa0xDQquyXBljL3Y
+        Ko4GnJwYMsAhD1ugfw1sQpp4whrihgkMIoishRYis9B6HYSmweZh6s/1pengoO6ytAG6XAQGwHf/xANO
+        TMDFo3C1TnMuHOAN2/eH8c8A2F4HPo6FbZH5SLI1bz7cus/OFof1Bjz3/4yEZzAmQbeJkbwtpkEZNXLk
+        RWYAt48DuuVQC3p/897E83k46xLAe5o9Dp/lzlobm8Lhqd9nX+KKYgeMUWCA2zt3tsY0KDgl35Ux9mJ+
+        JVy09OjaTX+tDFwdSnOHvLRoC/SvhU/QAKJKrAIDi8hrN33t410BvjkE3yiy6ctvPXCBKLpNpHFbTIOC
+        E3JdGWMvtoqjAQMZNgCnOPRz3A/agvvvwiqoxCouiCxwbqwhuEHIM5rYAGjFtpgGJTEG6HiLiodut3dR
+        mTX9BgC8Iii7hYRDgWWcQDvmi4TcPx+UlmWKNtkIIpym9inYZTt5xTkBhevV27lgBlObuk0tpCWmQcEJ
+        ua6MsZdbqaJ4wECmFhkA/ZoM2tY9OIkyHLlYFARbHXK9wYeYhjJyAcZG6IufhLFcvKmbZzAH/sKpvMwj
+        DfOpOFsJBsC4yRbPaMD5mK6MsRdbxdEQyQC2YCccT7zIIppEEtUvrCtuIIH9WcFr6WFZIWQArFHAALfc
+        3NEa06AkxADYiXjAQKZWjZq6X5OB8AIrgx4vXGcArGIKQSOJyuSa8oEQOExkSv3m+Yd4nO/vOXRMd5sd
+        O3SwxjQoOB/TlTH2Yqs4GjCQgQGw5OoFh0AQZbATiSlWEEKChovqExZYxc1dYOZfQJ8wesDjn4TcZs9B
+        xwA33xSfAYYOGZIAA3S4WcXDbTSQqZVRg/q1YxSsbzxsQb7Q+EQEQkSTkKjBhGVCZwT7BfZwzwbe4OEs
+        YMntsWKZSY2mQ/v21pgGZeigwfEboCNVFA+3Ul9UkwyAtOYFUmMG2Y9NFIntNeHI93MhkSQ2EU1CrTaY
+        uH6BQyJvcFcXw1Ybt+731YNrJ5E18eWbZjyjASfkujLGXjpSGooHpKKaGRnaAJ8IIWyBvhBo8YBPQBAS
+        USKF0LiC5ipsLuKC0FLxPg9ziVjWvfvbo2SAGqp927bWmAZlyMBB8RsA/VA8wIn4hnGkNSmMDqgt4IkA
+        deeBX0jGL2huogL/8YGQuDaBw48D7FXrN+9VH7jI98ZBp5pkAPzUji2mQRk8cGACDND+JhUPHSiN1UjP
+        UIuXr6HAO30dROIgcqAThRQoGuwHfCKIyrjCWsU1BGasxy4I1A/xP962Ty1ZsUZ3m61b3WiNaVBwRrYr
+        Y+zFVnE0wADVqlbVX37colnzfALQlGKFr+Rt17qNNaZBGXTHgPgN0IEqihd8WzhSGo5x46rXRg0bqmZN
+        mqrs5i309w4j1WE7fOv4bZ06Od9D3K2bPiu2X99+agB9kME0oBk+bLj+yTTn5+ly9FfW4/q3yZMmqSmT
+        J+tfzJo2bZqaftdd6u6771YzZsxQs2bOVLNnz9a/njHn3nvVfXPmqPvvu089cP/96sEHHlAPPvigc0vg
+        MTyHbbDtPfQafOX6TKoH37p59/Tp6i6qe9rUqfReU9Rkes9Jd96pJkyYoM/Bx0/mjRkzRv+cGy6KHUR9
+        8B3979Dn9/fs0UMfF8ERvk633qq7Rgzy2rRurVq1bKmak/D4jQB8qSZihe9VMuMYLYibK2PsBS3418Tm
+        5LywDYB+TWz7lBe2z55ocEq+K2PsBS7N59IEp+S7MsZebmrbTuVzaXIHdZ+ujLEX/A5APpcmuCbDlTH2
+        0p4GaPlcmuCaDFfG2Iut4nwuDfr17hO/ATBFy+fSBBfluDLGXrAYkc+lSZ9eveI3QFuqKJ9Lkz49E2GA
+        G1urfC5NevfomW+A/5/BN4a7MsZe2rS6UeVzaYKrslwZYy+2ivO5NOjZrXv8BmjdspW6mOEPi5THo19v
+        Lty2rbMs2i50gMQ8KGM7uGPDfB3Xp9fd9cqb8568D5yGef9s+36h6dGt26VjABYRQURAEWSc2IgrXDp3
+        6qS6dr5dde/SVac1jG6xyIG1bnwLGU59GjZ4iBoxbJi+HGr0yJH60mh8QULOmLFq/NhxakJOjv7ePHx7
+        5qSJd+ovUp4yaZKaOmmy/mGFaVPAVIMp+jl87Tq2xWvwWtSBulAn6sZ74L3wnqNHjNT7MGLoMP0tqfie
+        xIF33KH3Ffvcu2dP3TLxWbp07qw639pJnzcJk2lD0Wdv16ZNQkzTvWvX//wMkE9kYDJXxtjLjdkt1YWk
+        RdNmulVt2LBB7dq1y8/OnWqnZMcOzQ7J9u1qu8m2bWqbZOtWzVZmyxbNFoPNmzerLS64L/n88899fPbZ
+        Z2Fs2rRJs3HjRvX888+rpk2aqCqVKmsqV6oUomII/A5zpZSK+veXK1ZIURXKl1cVksurqlVSdWxsMQsK
+        rst0ZYy9tGqRrS4kSJFHjhxRe/fuVbt37/6P4cCBA2rNmjUkfiUSs4o+LS49rZpH9bQ0h6oO+BFunAaW
+        WrmyNkT5csnaBLaYBQXdpitj7MVWcaJo2byF/onz999//z8SZILUylVI6Gr6Qg98W5qmVqYHrgKuXbOW
+        vhIIp4LjBNpqZAZkh/LJyTpGttgFAWMMV8bYC3bgQpHdrLk+f88WvP8EYACIj4s88IXZOM8vRH39a2oM
+        vhwa29TJzNTXUSBjoEtAjGyxC8LtnW6L3wDYgUSD/omnbbNnzVYffvihWr9+vfrggw98cCDfe+89j7Vr
+        10bk3Xff1bfYbt26dT64LvmY+X4S3icbeO6jjz7S28n6+D2YTz/9VGWkp+tWDsGbNGykGjds6JAVolFW
+        lmpIpgD169bVGSG9WnU9XsA4wBbDIGCG4coYe8EOJBKkJp5HY+6Ms3ZZMAQNQZXB/vjjjz0wUOT7EMFE
+        vo6FlELjPpuIzcK3bByGRWRxef/49XJbwM9LYAC05rqU9hs1yNKnezM4TR6GYLQRaJsG9erp7WuQcarQ
+        eMAWw6DgukxXxthL8yZNVSLB9EQuotwz+x4vYBAJt1IoKUAksK35Ogkel+/B7yPvm/BzNlOZf2N7fg/e
+        B/DJJ59ENoAQXxoAmQLfEoqxAAaPthgGBWsoroyxl+aNm6hEggwAE6AbaN2ypT53nwPGsHC4L8UzWzsL
+        IMHjZjYAXAfD7yPfQ9afG0j/EtSP90YdqBNZBTMAZKyaJGSYAUhwoMUn4YE2AMYGNB6oRwaAcWCAZpYY
+        BuXWmzvGbwDsQCLB4IQXKmAGXGQBARgpEsDFGlhRy53BasigQWrggAHuRRg9VY/u3al7mRVmEFNE7lJw
+        H49DTNxiWxbWdsvb8X7CSCz8O++8o1avXq3rtGUAmf5x0Yw3FtBdgJMB8Lq01FS9vS2OQcBKqitj7MVz
+        bYLhAOCqHm6JQIoP6tPIGAHMDT2dooFTjerpKoPAXLpyxYp6AYbrBWwwiGgDz8ltbcj6GAjP4q9atUqz
+        cuVKbRJkAIzsMcCTn1uL7wrP4jds0MAxAH0mvA4GwHZm7IKCC0RdGWMvcocTAVI/TlnmgzbcSrl1SfEB
+        gpcXtWs5c+iM6tVVOgHxsbKGVTUIZBPSBO9l2wc8hltsg7pkikdLh9hvv/22Wr58uVqxYoW+j1uA1+HK
+        aOwjxG3SiGJANAbubACXyWEWADA9bEDTQRigRkYNbQCYwxbHIGCc5coYe5EuTQQYnPBCBboBXHOHIEcy
+        gF4oyQssolDAqtPUCYsoVauk6lW1qhRANpf5Hvw4dwWM7BLwPLaV4rMBzL8B0j6M8NZbb6lly5bp55DK
+        sfiDDIDUr1O+SyOKh0a3fjZAXZ3ROAM0psdtcQwCDiy5MsZesHOJBKmJR6lNqZ/CL1xDDBZEig+wQhYE
+        XE6NuTO+XSsd3QANoLCQIlu3hN+TMVu4RPbrnOI5zXPrZ9HBm2++qZYuXapfh9E8DICfg/eE163eAcKz
+        +BgAYkGIDYDFIFsMg4IM68oYe8HINJHAmRD/RmQBGhDeNW2aJ4IpPsASal5gpU0voVKrR7+P1F+ubJJK
+        IiAaxAMQBEBUCA3BGW7NbAB+DSMFZ9Gl2IsXL9YsWbJEg/t4DfYL3/oJgbUB3NbJImkD0HOOAerpMY9n
+        APo8eM4WxyCgm3VljL00JFcmEi0+jla53QAMYBOeyaSWnRdI/xgAplHqr1ihgha/bOnSqkyp0p7QXB9n
+        BG7xUnyYBSID9OHcsmXrln/jFgaQJli0aJFauHChBkbBgg4ERevW0z0SHGgDkEgQmGOD/h/LwTygRTeG
+        18n4RQNWW10ZYy/YgUSC6QmEz27uLFfimn4pCgvFQNy8QGvJoPSPeXNlfSStnDYBDqbIulA/C88tHRlB
+        pnbZytkENjOw6IBNgJa/YMECNX/+fDVv3jy9LWYlGKdAXF/Ld8Xn1A/0jIemgPhuZTYAXifjFw04qcSV
+        MfaCHUgk2DHt0PrO7YTxE7wWKFsqA3HzhIKFQ6xVK1dxjr1XrKRSylfQswEpNqd+7tMZGIBNIPt1meY5
+        tXN651YOwaXoYO7cueqNN97Q5oAxMUbB4M4nvCtSlogNFoAwA8D2MI42AJlCxi8aMMh2ZYy9wJUXkvHj
+        cjyBcGsaAC0hTyjIOKYOA+AYOw6ipNA4IDmpnG8MwAKzyNyyZYuWaRzC4hZ/y9Qu4W1gAIj++uuva157
+        7TVdF4yJLIXP6olOsEheLEj8eiR+XRovYEwD48AA3vMWsps2E0f/muv1f/k8ullXxtgLdiyRYH4qj1hh
+        JRBTLl6hCzMABSIvEKzqFCwsACEjIHCcCVh0meKlARhO7zABt3IpurwPsdHK0dq55eNvCP/qq6+qV155
+        RYNtYUwYAKnda+0kDtBCuXFxxHcWtbC906Wl+mJngrGUPvDjzqoguHweXa0rY+wFO5ZIEAA5UJmQM16n
+        ae6fTQNkVKuWJ2hl1WjOjLNv0mjq5LT+JFWOkOmdU7vsy/mWM4BM86YJON3LlG8a4OWXX1YvvfSSevHF
+        F/XjmMphIIiWjUO99euQOEQ9UJtiQkB4PA/xM2vWdKe0TpdmiyGDlq+Xfd2VP/wtn0cDc2WMvdSlnUok
+        6Af1OgDtOPpC/L4tUj+bwDQAn0KVG0j7mAGgxVenwKELwBpAMg0GudVDfJn2pfBSfBZeGoFNIMVGugdI
+        9dzqIT6Ef+GFF/Q5gTAEFnOcgWAt3cfrft4THWcIOcI74mNFkwxAhuEuzRZDBl0AH0gCEFw+j+zgyhh7
+        4Z1LFOj/vKNfZAacXi0XY0wD4IyaPHFX/yA6Bn7J5ZJVUpmyqmyZMj7BIbRs7bLF21K/bOksOm65tUN8
+        Fh6tnoV/7rnn1LPPPquNARH1AhWJ6wgeQq5m4nm9pkGtH90aVjRTqRuzxZBB6tezCndgib/l82horoyx
+        F8xJEwk7n/8eM3q0b5QO0XmqBhCIPNH9fxWVkuycUVuOBn9o/YBbOgvOQkvxudWb6R7i21o9I1s+p/1n
+        nnlG849//EM/hpM6YFCkdU9w+txacOAuZGkgPmWLDDI1ug6MYzhONpD+5UwCf5vPuzLGXmrTjiUSDE54
+        MQRwBuDlWTltw3QN4uYF0j9aS0Wa+sEQWAlE6y9ZoqRPbNmyTYGlyGjdDFo5w4JDWCk6g9b/9NNPq7//
+        /e/qqaee0n+jW8I+YkXQXL2E4AxPaWtUpwEtGUB/JnqtLYYMzingAR/6fPxtPu/KGHuxrbzFA9yKAYse
+        uNAO4iobbu0QnpdreX5ejQKRF2nU+qtg7k+tX68GplD/T1kAJmDxZSuXRoDwbAQYwGYEs6Wz8JzyZdqH
+        8H/729/Uk08+qf+uTPuSVqWKTuv4/LVIZAnWMBiIr8c01PrRpWFRy4wf4L4fqZ/7+zrU4jGoxmMYX2E7
+        bOPKGHsxdzhesLNIV9hRTAnx7Zqc/m2rcuhDPaiVm6Dlg0q4qIL6fpxTX65sWVWmdGlVulRpT3zZn0uR
+        zdYNkfmWgeAQm0XmFC9bO0Rn4f/617+qv/zlL/p57FdV6gYgrF9sZ/1CTmWR+tFdIGPgM8EAthiiEWEK
+        6aR6N6uQ4Mgk6F4xxcR2yLCujLEXudOJADuIAQsGLxgIYgzAUzXbHL0KBaEyBRGBdKjgQOmeQeqH+Bj4
+        wQDc/2M5GK0dwkdq0Swwt2izVUcSG0JDZIgtRX/iiSfU448/rsF2WJFEdoKoWmRMXUlo4M1kSHTgiJ+q
+        l7S5S7PFEKAB6e6DhObVUIDYyvuujLEX34pbAkDr1ycs6FlAA20AOVUzp2kpyck6naNVlyOBQVLpMh5l
+        AbX00iVLqpLFi+ttcRQQj5cuVcrXj0N4hkWHyGbLZnhAx4+b4kNs8Nhjj2keffRR7/aRRx7R28CYaMno
+        mkyxPdyxjB7PkAEwoMVrYABbDAFSPkb68jGMA5AV+G8MEF0ZYy+OaxMHnCnTHs7n4ykaT9PkVC2J+vFS
+        JUqoEsWKqeI33KApVrSo5gZQpIgqWriwKlKokCpMlCAT3EDbFKbHChYoYG3duYkO0NoZtHozzfN93JpZ
+        AcL/+c9/Vg8//LDOAjgwhYyF8xMwsvcgoQEE90DLx3jGTf8Y05jxkyDVy7/RNci/0dhcGWMvnK4She4C
+        yJkMLqWW83RzelaKRvI3FClKAhdWhQsWUoUKFlSFSNiC1xdQBa6/XhW47np1/XXXqeuuvU7fFiejwABF
+        yRhFyASc9pEB+JazgDmw434epoA52AwsMgOxZbpHi2cg/EMPPaT+9Kc/aTNgRTKFDABRkQVMfGMciE/d
+        BcRH14bsZ4shg8aEMRXuo/XrRiWex+zAlTH2Qi5dwWkrEWBH9SIQ9U/oo0YOH+6lexjAnI+j5aNla8FZ
+        bFfw6669Vl13zbXq2muuUdf8jwNaPYTHa3ALYWVfz0LLbACxITTE5fTOIKVDZE73uM9pHqC1c4uH8Prr
+        54kHHnhA/41xCdYmICwE5kGrBM8xWnwa61Sk15Sn7swWQ4k0gPkcHiMJLxNEXS5LTU29ulql1LfRTyUC
+        9FE8C4ARRpABZMs3F2EGDBhA6ZOmRBSoShSgivqET+ekzxQKVAVqXZj3lwcUNP08gfMB+/fr57VmTvec
+        8s0UL/+WKZ1bO8NmwK0EpkCLv//++9V9+M0B/CYBmQDjFAgJUX1CM/RZGAxg5aAWr7PF0ARjKdvjMEdW
+        VtZvSccroKVL4MIvuCIpKem/q1aqtNI2B48WTFfQd+klTAIZAAYAMIA5TcMAUZ4uxgeN5NoBw9NJnlIi
+        m8g+nkWWqRyjd1vr5lbNLZtBaucWDrGBvD9nzhx17733amACDFCTaVAKUTGbMdEzG3rOm9HAxIRjgCRr
+        DIOCgSLpd1V6evrvoCNxuatpoIIN8QK8+Kqrr766YOWUlHds/Vg0oJ/CvBUHRZAFhg0Z4qV8CC+na3J+
+        LvtrDOrkQowc1Mm0DvE5rUNonrIx/BhaNpuAkaN5meZlHy+NALGl+GyAMiVL6ZlLCtYoWOTcIPH1kja1
+        fowfbDEMCuJM2v038X+I3xNRZQLd+gm88GriuiuvvDIpJan8Oqy8xQrmrVjEwBkyyAT4dUvu95H6YxFd
+        tnLzb07rMqXzfYYNYEvrfAsjsPi4ZUOYRpAGgCFKFy9B3UBpLSi37tyAUbj1I3PYYhgUrBOQboWIPxL/
+        RaAxB84C2Aj9x1UEXISKyv72t7+tXa5s0j9tq3JBwOCElzRB/759dbrnFh+L6CwybvE8PyZbPwTmgRuA
+        qGa6ly0btwwLLFM9MLcB0gCgFE1L0Q2UJzEhbl7AKAAGwEKWLYZBwVoAaVaaKOhqeCUBTaM2wP8QRYkU
+        os4VV1zRsVzp0ptxsCJasNiBAxXon3CLa/ls0zNpAJsR2AQsNFq17Nu5dcvUz0aA8BAdrZqBARg2AgvL
+        gss0P2vWLP1jVBI8ZhqgZLHiuhtIxmzAFTc3IDy3fnQdthgGAQZAYyO9KhLFiWsJdAWcBfIsbACkDhig
+        GFGJaEDccvnll+eULVZ6N5ZqowFTFl7DhgHwowbc75vp38wCjDSAmQlYfO7bzZE7p3PZp7PILDCLjF8N
+        M8Hj2I7B65AZOEtI8UFJmsaWKVmSxMRswBE3LyB+srvyaYthEDDWIiP8QlqlE2WIAsQfCHTpgboBbIAx
+        ADIA+hDOAPWIjsSYyy677KkSJUocsu1AJDA65ZVA0LVLFy0cgIhSUJ6SQVDZd5vimv21KbJt0CZF5tbL
+        AgOzdTNsBL4PE6BernvmzJk+sI6BZepoDcBL37YY5gVPA8uUKXOCdKpFJBPowv8vIQeDuRY2APoNvBAV
+        JBE1idbEEOIxMsFbpQsVOmrbERucnpi2bdroQEEAGTj8zfBj+C3A6dOd3+7Tv983bZqaOnWqmsK/4Tdp
+        krrT/R0//Vt+48ernJwcNW7cODV69Gj9e34jRozQ8P3hNA0F+BuMHTs2V/C7gKjLhB8fNWqUjzKlMAtw
+        xMfgLihYAwC2GOYG0j4aGe6XK1duB2kUlwF4Goi+A31ICaIK0ZDoQkwjniMTLCtWrNhBGsWeoinMqUIF
+        Cpy2geeoCzhVs2ZNj+ZNmpzpcNNNZ5lGWQ3PNczK0mQ1aODdNqhf/1zdunU96tSuramdmXkus1YtTVZW
+        1vlEULNGjXMZ6eke+BvUYDIyNPx4y+yWZ1tmZ5/Nbt7ibJPGTYjGmsaNGp2tXLDQ6UoFCp4uTJ+f45NX
+        jHIDddioXCHl54opFX+qVLLkj7TdoaSySZto6o5GGnMXgCKzAM8EUFk1ohnRjRhHzCIeJB4hHiMeJ54Q
+        4G9ki0cLFSr0l9TU1L81bdr0qc6dOz8/aNCg16jlzKeWunDixImLqRUvoRb9JrXoZcRyauErqdWvpta/
+        hlhLGeF9St/rKfV+RGygFP8vSvX/S2ykVL+JUv9nxGZiK7GNuoPt9Ph2Gu3voG130t87cZ+234HHqTvY
+        Rql7K9W1her9nFL7Rkrtn1I38And/xe93wb6+0O6/wE9/z7driXW0OPYJ+zbCspGy4iltO+LKIu8PmTI
+        kFf79ev3SqdOnV4iQ72QnJz89B//+MfHf/e73yE+fyZw+yhikgt4HtuZ4PWSh4mHiPsINEiI3ploSdQm
+        MAjE+C3qQSCKzAI8GCxMwARVifrEjcQtRFeiJ9Gb6EP0FeDv3jRw7FWwYMH+6enpQ1u3bj2mf//+UylN
+        zyaR51DAH6B+9GHiERLqMeIJ6uOpy3/y79T3/4N4lsYDz9O44EUaH7xEvEKDwddooDiXpo3ziIXEIho8
+        LqFbsJQGlG/S38vodjmgx96S4Dn3+aVUz2K6v5geX0SD0UX02AK6nU+PzaNB6OvEa/R+eM8XaSBKk5Hn
+        6e5zz9BglIYvTz9F+/UkDTQfp89xL5kDn2kWGXt6ly5dJtavX38EjZX6XXXVVT0oDgBx6oWY5AKeDwrq
+        Q2PsRLQlmhCZRGWiFIFpINJ/VNNALpwFkDrgIJgAmaAkUZ5IJTIIuA0DRMwSsgzwGMxSr3Llys1uvvnm
+        dtRKOlGL70mtcAAN6gaRoINpADiEAj2cxBhBQowiAUaTEGPnzp2bs3DhwgnExEWLFt1Jt5OXLFkydfHi
+        xdMA/X0XPT59/vz5d9GMYgptj8fuXrBgwXTcx2MuUxmqdxrNPO6i58E0MG/evKlUB147jV47RdQ/mf6e
+        RM9NpPvYjwm07XiqZxz2D/uJfSYzDKLM0p2ySTfyQRfKZJ0HDhzYoVWrVtlJSUlZf/jDH+pSDADihHgg
+        LokAdaFeaAAt0DihDTSC+DEtBHHBxtIEqAhuQkpBNkB6gcswQCxH4I0rGOAxDETKFS9evFKdOnXSunbt
+        WosGYXUpdWZRCm5ELb4RpedG1OqbkCGaUqtqBqiVaajFNSdztKBAZ1OrbEXitSQRNCS+viURs0mUFngO
+        YDsS6EaGXt+KWm9L3CeDtQZkupYkXAsyYDa9jwb3sS2gbbB9tqi7OdXblPajMaBtG9Lsoz5lrrrUVdQh
+        4TNmzJiRQd1XOg0aq9PnrFqvXr2KRYsWTf7973+P+ADEwhanWOH4QgMs/GDeX4S4noh5KVgWaQK4CKkE
+        lcIIyAgwA94MAw04LhJ4/voiRYpcn5aWVqBZs2YFKUAF+/TpU2jAgAEFKWVqaARfiFKovnXvF2YouEUA
+        BbqoDTLTDfFgqxPw+8p94f1jeP/xWfCZ8NnwGan1FyhcuLD+7G4MzLggo8aKrAd1X0dcQ0B4LOFjGg/N
+        oF3Urd8seDEqQWXoS+AqvAGyAgwB8KaR0NvQjOG/MjMzNT169LgqOzv7yqFDh/qgAF91KWHuPz4XDQCv
+        4s+Jz8yf343FhQB1432gCRophIdOMbf8SIUrYzOwIYJyxS233HIFBe5yQH/r+vjvSx3zs+Cz4jMTZhwg
+        UKKQ9fL7ebElLOU3v/l/fDWAVAlwM2UAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -448,7 +448,7 @@
   <data name="tsnewdentotar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
         Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
         AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
         Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -463,22 +463,22 @@
   <data name="C1TrueDBDropdown1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="C1TrueDBDropdown1.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 213, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 213, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 284, 182&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 284, 182&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
   </data>
   <data name="C1TrueDBDropdown2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
         vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="C1TrueDBDropdown2.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 231, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 231, 148&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style14{}Footer{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 308, 182&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 308, 182&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>270, 17</value>

DPM2016/Klassen/clsStammdaten_flat.vb

@@ -1,5 +1,4 @@
 Imports C1.Win.C1TrueDBGrid
-
 Public Class clsStammdaten_flat
 
     Dim m_connectionstring As String
@@ -25,6 +24,17 @@ Public Class clsStammdaten_flat
             End Try
         End Set
     End Property
+    Dim m_SQL As String = ""
+    Property SQL As String
+        Get
+            Return m_SQL
+        End Get
+        Set(value As String)
+            m_SQL = value
+        End Set
+    End Property
+
+
 
     Dim db As clsDB
     Dim c1d As New C1.Win.C1TrueDBGrid.C1TrueDBGrid
@@ -37,6 +47,10 @@ Public Class clsStammdaten_flat
         InitializeComponent()
         Me.Connectionstring = My.Settings.ConnectionString
         Me.c1d = Me.c1daten
+        If My.Settings.SoftwareType = "PADM" Then
+            Me.NeuerTarifeintragErstellenToolStripMenuItem.Text = "Neuer Artikel"
+            Me.TarifBearbeitenToolStripMenuItem.Text = "Artikel bearbeiten"
+        End If
     End Sub
 
     Public Sub get_data()
@@ -55,8 +69,12 @@ Public Class clsStammdaten_flat
             Me.c1daten.DataMember = Nothing
             Me.c1daten.Splits(0).DisplayColumns.Clear()
             db.dsDaten.Tables.Clear()
+            If Me.SQL <> "" Then
+                db.Get_Tabledata(Me.Tablename, "", Me.SQL, "", False)
+            Else
+                db.Get_Tabledata(Me.Tablename)
 
-            db.Get_Tabledata(Me.Tablename)
+            End If
 
 
             Me.c1daten.DataSource = db.dsDaten
@@ -140,7 +158,7 @@ Public Class clsStammdaten_flat
         Catch ex As Exception
 
         End Try
-        MsgBox("Daten wurden gespeichert")
+        'MsgBox("Daten wurden gespeichert")
     End Sub
 
 
@@ -221,6 +239,48 @@ Public Class clsStammdaten_flat
                 End Try
 
             Case "Tarif"
+
+                If My.Settings.SoftwareType = "PADM" Then
+                    Dim f1 As New TarifDetail_PADM
+                    f1.txtnrtarif.Text = Me.c1daten.Columns("nrtarif").Value
+                    f1.cbboxTarifgruppe.SelectedValue = Me.c1daten.Columns("Nrtarifgruppe").Value
+                    f1.txtNummer.Text = Me.c1daten.Columns("sso_nummer").Value
+                    f1.txtBezd.Text = Me.c1daten.Columns("bezd").Value
+                    'f1.txtBezF.Text = Me.c1daten.Columns("bezf").Value
+                    f1.Handle_RTF(1, Me.c1daten.Columns("bezf").Value)
+                    f1.txtBezi.Text = Me.c1daten.Columns("bezi").Value
+                    f1.txtprivat.Text = Me.c1daten.Columns("privattarif").Value
+                    f1.txtsuva.Text = Me.c1daten.Columns("suvatarif").Value
+                    f1.txtmin.Text = Me.c1daten.Columns("minimaltarif").Value
+                    f1.txtmax.Text = Me.c1daten.Columns("maximaltarif").Value
+                    If Me.c1daten.Columns("MitLabor").Value = 1 Then f1.cbboxmitlabor.Checked = True Else f1.cbboxmitlabor.Checked = False
+                    f1.txtfrankenwert.Text = Me.c1daten.Columns("Frankenbetrag").Value
+                    f1.ShowDialog()
+                    If f1.DialogResult = DialogResult.OK Then
+                        Me.c1daten.Columns("nrtarif").Value = f1.txtnrtarif.Text
+                        Me.c1daten.Columns("Nrtarifgruppe").Value = f1.cbboxTarifgruppe.SelectedValue
+                        Me.c1daten.Columns("sso_nummer").Value = f1.txtNummer.Text
+                        Me.c1daten.Columns("bezd").Value = f1.txtBezd.Text
+                        Me.c1daten.Columns("bezf").Value = f1.Handle_RTF(2, "")
+                        'Me.c1daten.Columns("bezf").Value = f1.txtBezf.Text
+                        Me.c1daten.Columns("bezi").Value = f1.txtBezi.Text
+                        Me.c1daten.Columns("privattarif").Value = f1.txtprivat.Text
+                        Me.c1daten.Columns("suvatarif").Value = f1.txtsuva.Text
+                        Me.c1daten.Columns("minimaltarif").Value = f1.txtmin.Text
+                        Me.c1daten.Columns("maximaltarif").Value = f1.txtmax.Text
+                        If f1.cbboxmitlabor.Checked Then
+                            Me.c1daten.Columns("MitLabor").Value = 1
+                        Else
+                            Me.c1daten.Columns("MitLabor").Value = 0
+                        End If
+                        Me.c1daten.Columns("Frankenbetrag").Value = f1.txtfrankenwert.Text
+                        Me.c1daten.Bookmark = Me.c1daten.Bookmark - 1
+                        ToolStripButton6_Click(sender, e)
+                        Me.c1daten.Bookmark = Me.c1daten.Bookmark + 1
+                    End If
+
+                    Exit Sub
+                End If
                 Dim f As New frmTarifDetail
                 f.txtnrtarif.Text = Me.c1daten.Columns("nrtarif").Value
                 f.cbboxTarifgruppe.SelectedValue = Me.c1daten.Columns("Nrtarifgruppe").Value
@@ -268,6 +328,24 @@ Public Class clsStammdaten_flat
     End Sub
 
     Private Sub NeuerTarifeintragErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerTarifeintragErstellenToolStripMenuItem.Click
+        If My.Settings.SoftwareType = "PADM" Then
+            Dim f1 As New TarifDetail_PADM
+            Dim newkey1 As Integer = f1.New_Tarif
+            f1.Dispose()
+            get_data()
+            Dim d1 As DataSet = c1daten.DataSource
+            Dim i1 As Integer = 0
+            For Each r As DataRow In d1.Tables(0).Rows
+                i1 = i1 + 1
+                If newkey1 = r.Item(0) Then
+                    c1daten.Bookmark = i1
+                End If
+            Next
+            c1daten_DoubleClick(sender, e)
+
+            Exit Sub
+
+        End If
         Dim f As New frmTarifDetail
         Dim newkey As Integer = f.New_Tarif
         f.Dispose()

DPM2016/Klassen/clspdfhelper.vb

@@ -2,11 +2,15 @@
 Imports Syncfusion.Pdf
 Public Class clspdfhelper
 
+
     Public Enum GetEmpfaengerType
         FromFaktura
         FromLastFaktura
         Andere
         FromCollection
+        FromOfferte
+        FromLieferschein
+        FromAuftragsbestaegigung
     End Enum
     Public Function ConCatPDF(Optional DeleteSource As Boolean = True) As String
         Dim document As New PdfDocument
@@ -40,7 +44,7 @@ Public Class clspdfhelper
             For i = 1 To Globals.pdfCollection.Count
                 pdfitem = Globals.pdfCollection.Item(i)
                 '                System.IO.File.Delete(Globals.pdfCollection.Item(i))
-                System.IO.File.Delete(pdfitem.Path)
+                If pdfitem.Path.IndexOf(My.Settings.DocArchivPath) > -1 Then System.IO.File.Delete(pdfitem.Path)
             Next
         End If
 
@@ -72,7 +76,7 @@ Public Class clspdfhelper
         End If
     End Sub
 
-    Public Sub Create_Archivdoc(ByVal From As GetEmpfaengerType, Optional keyvalue As String = "", Optional Bezeichnung As String = "")
+    Public Sub Create_Archivdoc(ByVal From As GetEmpfaengerType, Optional keyvalue As String = "", Optional Bezeichnung As String = "", Optional nrbehandlung As Integer = 0)
         If Globals.License.DMS = False Then Exit Sub
 
         Dim s As String
@@ -94,7 +98,7 @@ Public Class clspdfhelper
                 If tmpcolitem.fakturanr <> fakturanralt Then
                     fakturanralt = tmpcolitem.fakturanr
                     s = ConCatPDF(False)
-                    save_doc_to_db(s, Bezeichnung, 0, 0, From)
+                    save_doc_to_db(s, Bezeichnung, 0, 0, From, nrbehandlung)
                     Globals.pdfCollection.Clear()
                     Globals.pdfCollection.Add(tmpcollection.Item(i))
                 Else
@@ -104,7 +108,7 @@ Public Class clspdfhelper
         End If
         If Globals.pdfCollection.Count > 0 Then
             s = ConCatPDF(False)
-            save_doc_to_db(s, Bezeichnung, 0, 0, From)
+            save_doc_to_db(s, Bezeichnung, 0, 0, From, nrbehandlung)
         End If
 
 
@@ -114,13 +118,16 @@ Public Class clspdfhelper
         Next
 
     End Sub
-    Private Sub save_doc_to_db(ByVal ifilename As String, ByVal bezeichnung As String, ByVal patient As Integer, ByVal debitor As Integer, ByVal From As GetEmpfaengerType)
+    Private Sub save_doc_to_db(ByVal ifilename As String, ByVal bezeichnung As String, ByVal patient As Integer, ByVal debitor As Integer, ByVal From As GetEmpfaengerType, ByVal nrbehandlung As Integer)
         Dim s As String
         Dim db As New clsDB
         Dim Fakturadb As New clsDB
 
         Dim StrukturEintrag_Patient As Integer
         Dim StrukturEintrag_Garant As Integer
+        Dim StrukturEintrag_Offerte As Integer
+        Dim StrukturEintrag_Lieferschein As Integer
+        Dim Struktureintrag_Auftragsbestaetigung As Integer
         Dim CopyDocToGarant As String
         Dim nrfaktura As Integer
         Dim Patientname As String
@@ -136,6 +143,10 @@ Public Class clspdfhelper
             Fakturadb.Get_Tabledata("Faktura", "", "Select top 1 * from faktura WHeRE NRFAKTURA=" + pcolitem.fakturanr.ToString + " order by nrfaktura desc")
             Fakturanr = pcolitem.fakturanr
         End If
+        If From = GetEmpfaengerType.FromOfferte Or From = GetEmpfaengerType.FromAuftragsbestaegigung Or From = GetEmpfaengerType.FromLieferschein Then
+            Fakturadb.Get_Tabledata("Faktura", "", "Select nrpatient,0 as nrdebitor,behandlungsgrund from behandlu where nrbehandlung=" + nrbehandlung.ToString)
+            Fakturanr = 0
+        End If
 
         patient = Fakturadb.dsDaten.Tables(0).Rows(0).Item("nrpatient")
         debitor = Fakturadb.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
@@ -152,6 +163,34 @@ Public Class clspdfhelper
 
             db.Get_Tabledata("DMS", "", "Select wert from dms_settings where nreintrag=10")
             CopyDocToGarant = db.dsDaten.Tables(0).Rows(0).Item(0)
+            Try
+                db.Get_Tabledata("DMS", "", "Select wert from dms_settings where nreintrag=12")
+                StrukturEintrag_Offerte = db.dsDaten.Tables(0).Rows(0).Item(0)
+                db.Get_Tabledata("DMS", "", "Select wert from dms_settings where nreintrag=14")
+                StrukturEintrag_Lieferschein = db.dsDaten.Tables(0).Rows(0).Item(0)
+                db.Get_Tabledata("DMS", "", "Select wert from dms_settings where nreintrag=13")
+                Struktureintrag_Auftragsbestaetigung = db.dsDaten.Tables(0).Rows(0).Item(0)
+
+                If From = GetEmpfaengerType.FromOfferte Then
+                    StrukturEintrag_Patient = StrukturEintrag_Offerte
+                    debitor = patient
+                    db.Get_Tabledata("Behandlung", "", "Select behandlungsgrund from behandlu where nrbehandlung=" + nrbehandlung.ToString)
+                    bezeichnung = "Offerte " + db.dsDaten.Tables(0).Rows(0).Item(0).ToString
+                End If
+                If From = GetEmpfaengerType.FromLieferschein Then
+                    StrukturEintrag_Patient = StrukturEintrag_Lieferschein
+                    debitor = patient
+                    db.Get_Tabledata("Behandlung", "", "Select behandlungsgrund from behandlu where nrbehandlung=" + nrbehandlung.ToString)
+                    bezeichnung = "Lieferschein " + db.dsDaten.Tables(0).Rows(0).Item(0).ToString
+                End If
+                If From = GetEmpfaengerType.FromAuftragsbestaegigung Then
+                    StrukturEintrag_Patient = Struktureintrag_Auftragsbestaetigung
+                    debitor = patient
+                    db.Get_Tabledata("Behandlung", "", "Select behandlungsgrund from behandlu where nrbehandlung=" + nrbehandlung.ToString)
+                    bezeichnung = "Auftragsbestätigung " + db.dsDaten.Tables(0).Rows(0).Item(0).ToString
+                End If
+            Catch
+            End Try
 
             'Patienten-Dokumente
             Dim dok As New clsDok

DPM2016/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", "16.10.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.1.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -90,18 +90,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("PADM")>  _
-        Public Property SoftwareType() As String
-            Get
-                Return CType(Me("SoftwareType"),String)
-            End Get
-            Set
-                Me("SoftwareType") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstati"& _ 
@@ -175,6 +163,18 @@ Namespace My
                 Me("WebAPI") = value
             End Set
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("PADM")>  _
+        Public Property SoftwareType() As String
+            Get
+                Return CType(Me("SoftwareType"),String)
+            End Get
+            Set
+                Me("SoftwareType") = value
+            End Set
+        End Property
     End Class
 End Namespace
 

DPM2016/My Project/Settings.settings

@@ -11,9 +11,6 @@
     <Setting Name="DocArchivPath" Type="System.String" Scope="User">
       <Value Profile="(Default)">h:\dpm\docarchiv</Value>
     </Setting>
-    <Setting Name="SoftwareType" Type="System.String" Scope="User">
-      <Value Profile="(Default)">PADM</Value>
-    </Setting>
     <Setting Name="ConnectionString" Type="System.String" Scope="User">
       <Value Profile="(Default)">data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
     </Setting>
@@ -32,5 +29,8 @@
     <Setting Name="WebAPI" Type="System.String" Scope="User">
       <Value Profile="(Default)">http://192.168.111.67</Value>
     </Setting>
+    <Setting Name="SoftwareType" Type="System.String" Scope="User">
+      <Value Profile="(Default)">PADM</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

DPM2016/My Project/licenses.licx

@@ -1,6 +1,3 @@
-C1.Win.C1Input.C1Button, C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a
-C1.Win.C1Command.C1CommandHolder, C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8
-C1.Win.C1Command.C1DockingTab, C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8
 C1.Win.C1Input.C1PictureBox, C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a
-C1.Win.C1Command.C1ContextMenu, C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8
+C1.Win.C1Command.C1DockingTab, C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8
 C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

DPM2016/Patient/Firma/PatientDetailFirma.Designer.vb

@@ -0,0 +1,863 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class PatientDetails
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.txtnrprivat = New System.Windows.Forms.TextBox()
+        Me.lblNr = New System.Windows.Forms.Label()
+        Me.lblAnrede = New System.Windows.Forms.Label()
+        Me.lblTitel = New System.Windows.Forms.Label()
+        Me.txtMutierer = New System.Windows.Forms.TextBox()
+        Me.txtMutiert_am = New System.Windows.Forms.TextBox()
+        Me.txtErstellt_am = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.chklbAdresstyp = New System.Windows.Forms.CheckedListBox()
+        Me.txtBemerkung = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtFaxG = New System.Windows.Forms.TextBox()
+        Me.txtName = New System.Windows.Forms.TextBox()
+        Me.lbltelg = New System.Windows.Forms.Label()
+        Me.lblName = New System.Windows.Forms.Label()
+        Me.txtTelg = New System.Windows.Forms.TextBox()
+        Me.txtVorname = New System.Windows.Forms.TextBox()
+        Me.lblahv = New System.Windows.Forms.Label()
+        Me.txtahvnr = New System.Windows.Forms.TextBox()
+        Me.lblVorname = New System.Windows.Forms.Label()
+        Me.lblBeruf = New System.Windows.Forms.Label()
+        Me.txtBeruf = New System.Windows.Forms.TextBox()
+        Me.txtCOAdresse = New System.Windows.Forms.TextBox()
+        Me.lblArbeitgeber = New System.Windows.Forms.Label()
+        Me.lblCO = New System.Windows.Forms.Label()
+        Me.txtStrasse = New System.Windows.Forms.TextBox()
+        Me.lblSprache = New System.Windows.Forms.Label()
+        Me.lblStrasse = New System.Windows.Forms.Label()
+        Me.txtPLZ = New System.Windows.Forms.TextBox()
+        Me.lblStatus = New System.Windows.Forms.Label()
+        Me.lblPLZOrt = New System.Windows.Forms.Label()
+        Me.lblBriefanrede = New System.Windows.Forms.Label()
+        Me.txtOrt = New System.Windows.Forms.TextBox()
+        Me.txtBriefanrede = New System.Windows.Forms.TextBox()
+        Me.lblGebDat = New System.Windows.Forms.Label()
+        Me.lblGeschlecht = New System.Windows.Forms.Label()
+        Me.txttelp = New System.Windows.Forms.TextBox()
+        Me.lblInternet = New System.Windows.Forms.Label()
+        Me.lblTelefon = New System.Windows.Forms.Label()
+        Me.txtWeb = New System.Windows.Forms.TextBox()
+        Me.txtFaxp = New System.Windows.Forms.TextBox()
+        Me.lblemail = New System.Windows.Forms.Label()
+        Me.lblFaxP = New System.Windows.Forms.Label()
+        Me.txtE_Mail = New System.Windows.Forms.TextBox()
+        Me.txtNatel = New System.Windows.Forms.TextBox()
+        Me.lblMobile = New System.Windows.Forms.Label()
+        Me.dtgebdat = New System.Windows.Forms.DateTimePicker()
+        Me.dtGueltigab = New System.Windows.Forms.DateTimePicker()
+        Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cbtxtboxKanton = New System.Windows.Forms.ComboBox()
+        Me.lblGLN = New System.Windows.Forms.Label()
+        Me.txtGLN = New System.Windows.Forms.TextBox()
+        Me.txtZSR = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.chkMail_Kommunikation = New System.Windows.Forms.CheckBox()
+        Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox()
+        Me.cbboxGeschlecht = New DPM2016.MyCombobox()
+        Me.cbboxSprache = New DPM2016.MyCombobox()
+        Me.cbboxStatus = New DPM2016.MyCombobox()
+        Me.cbboxNRTitel = New DPM2016.MyCombobox()
+        Me.cbboxNrAnrede = New DPM2016.MyCombobox()
+        Me.SuspendLayout()
+        '
+        'txtnrprivat
+        '
+        Me.txtnrprivat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtnrprivat.Location = New System.Drawing.Point(74, 14)
+        Me.txtnrprivat.Name = "txtnrprivat"
+        Me.txtnrprivat.ReadOnly = True
+        Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.txtnrprivat.Size = New System.Drawing.Size(48, 20)
+        Me.txtnrprivat.TabIndex = 0
+        '
+        'lblNr
+        '
+        Me.lblNr.AutoSize = True
+        Me.lblNr.BackColor = System.Drawing.Color.Transparent
+        Me.lblNr.Location = New System.Drawing.Point(4, 16)
+        Me.lblNr.Name = "lblNr"
+        Me.lblNr.Size = New System.Drawing.Size(21, 13)
+        Me.lblNr.TabIndex = 103
+        Me.lblNr.Text = "Nr."
+        '
+        'lblAnrede
+        '
+        Me.lblAnrede.AutoSize = True
+        Me.lblAnrede.BackColor = System.Drawing.Color.Transparent
+        Me.lblAnrede.Location = New System.Drawing.Point(4, 41)
+        Me.lblAnrede.Name = "lblAnrede"
+        Me.lblAnrede.Size = New System.Drawing.Size(41, 13)
+        Me.lblAnrede.TabIndex = 104
+        Me.lblAnrede.Text = "Anrede"
+        '
+        'lblTitel
+        '
+        Me.lblTitel.AutoSize = True
+        Me.lblTitel.BackColor = System.Drawing.Color.Transparent
+        Me.lblTitel.Location = New System.Drawing.Point(4, 68)
+        Me.lblTitel.Name = "lblTitel"
+        Me.lblTitel.Size = New System.Drawing.Size(27, 13)
+        Me.lblTitel.TabIndex = 105
+        Me.lblTitel.Text = "Titel"
+        '
+        'txtMutierer
+        '
+        Me.txtMutierer.Location = New System.Drawing.Point(586, 257)
+        Me.txtMutierer.Name = "txtMutierer"
+        Me.txtMutierer.ReadOnly = True
+        Me.txtMutierer.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.txtMutierer.Size = New System.Drawing.Size(135, 20)
+        Me.txtMutierer.TabIndex = 207
+        '
+        'txtMutiert_am
+        '
+        Me.txtMutiert_am.Location = New System.Drawing.Point(586, 234)
+        Me.txtMutiert_am.Name = "txtMutiert_am"
+        Me.txtMutiert_am.ReadOnly = True
+        Me.txtMutiert_am.Size = New System.Drawing.Size(135, 20)
+        Me.txtMutiert_am.TabIndex = 206
+        '
+        'txtErstellt_am
+        '
+        Me.txtErstellt_am.Location = New System.Drawing.Point(586, 212)
+        Me.txtErstellt_am.Name = "txtErstellt_am"
+        Me.txtErstellt_am.ReadOnly = True
+        Me.txtErstellt_am.Size = New System.Drawing.Size(135, 20)
+        Me.txtErstellt_am.TabIndex = 205
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.BackColor = System.Drawing.Color.Transparent
+        Me.Label18.Location = New System.Drawing.Point(527, 260)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(45, 13)
+        Me.Label18.TabIndex = 204
+        Me.Label18.Text = "Mutierer"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.BackColor = System.Drawing.Color.Transparent
+        Me.Label17.Location = New System.Drawing.Point(527, 237)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(56, 13)
+        Me.Label17.TabIndex = 203
+        Me.Label17.Text = "Mutiert am"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.BackColor = System.Drawing.Color.Transparent
+        Me.Label16.Location = New System.Drawing.Point(528, 215)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(55, 13)
+        Me.Label16.TabIndex = 202
+        Me.Label16.Text = "Erstellt am"
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.BackColor = System.Drawing.Color.Transparent
+        Me.Label15.Location = New System.Drawing.Point(272, 280)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(50, 13)
+        Me.Label15.TabIndex = 201
+        Me.Label15.Text = "Gültig bis"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.BackColor = System.Drawing.Color.Transparent
+        Me.Label14.Location = New System.Drawing.Point(272, 256)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(49, 13)
+        Me.Label14.TabIndex = 200
+        Me.Label14.Text = "Gültig ab"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.BackColor = System.Drawing.Color.Transparent
+        Me.Label13.Location = New System.Drawing.Point(527, 42)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(53, 13)
+        Me.Label13.TabIndex = 199
+        Me.Label13.Text = "Adresstyp"
+        '
+        'chklbAdresstyp
+        '
+        Me.chklbAdresstyp.FormattingEnabled = True
+        Me.chklbAdresstyp.Items.AddRange(New Object() {"Patient", "Garant", "Zahnarzt", "Ges. Vertreter", "Hausarzt", "Behandler", "DH-Patient", "Nicht annehmen", "Nicht aufbieten", "Betreibung vorhanden"})
+        Me.chklbAdresstyp.Location = New System.Drawing.Point(586, 39)
+        Me.chklbAdresstyp.Name = "chklbAdresstyp"
+        Me.chklbAdresstyp.Size = New System.Drawing.Size(137, 154)
+        Me.chklbAdresstyp.TabIndex = 30
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.Location = New System.Drawing.Point(275, 327)
+        Me.txtBemerkung.Multiline = True
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Size = New System.Drawing.Size(446, 101)
+        Me.txtBemerkung.TabIndex = 29
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.BackColor = System.Drawing.Color.Transparent
+        Me.Label2.Location = New System.Drawing.Point(272, 307)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(61, 13)
+        Me.Label2.TabIndex = 198
+        Me.Label2.Text = "Bemerkung"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Location = New System.Drawing.Point(272, 226)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(38, 13)
+        Me.Label1.TabIndex = 197
+        Me.Label1.Text = "Fax G."
+        '
+        'txtFaxG
+        '
+        Me.txtFaxG.Location = New System.Drawing.Point(342, 223)
+        Me.txtFaxG.Name = "txtFaxG"
+        Me.txtFaxG.Size = New System.Drawing.Size(162, 20)
+        Me.txtFaxG.TabIndex = 26
+        '
+        'txtName
+        '
+        Me.txtName.Location = New System.Drawing.Point(74, 93)
+        Me.txtName.Name = "txtName"
+        Me.txtName.Size = New System.Drawing.Size(162, 20)
+        Me.txtName.TabIndex = 3
+        '
+        'lbltelg
+        '
+        Me.lbltelg.AutoSize = True
+        Me.lbltelg.BackColor = System.Drawing.Color.Transparent
+        Me.lbltelg.Location = New System.Drawing.Point(272, 200)
+        Me.lbltelg.Name = "lbltelg"
+        Me.lbltelg.Size = New System.Drawing.Size(57, 13)
+        Me.lbltelg.TabIndex = 196
+        Me.lbltelg.Text = "Telefon G."
+        '
+        'lblName
+        '
+        Me.lblName.AutoSize = True
+        Me.lblName.BackColor = System.Drawing.Color.Transparent
+        Me.lblName.Location = New System.Drawing.Point(4, 96)
+        Me.lblName.Name = "lblName"
+        Me.lblName.Size = New System.Drawing.Size(35, 13)
+        Me.lblName.TabIndex = 178
+        Me.lblName.Text = "Name"
+        '
+        'txtTelg
+        '
+        Me.txtTelg.Location = New System.Drawing.Point(342, 197)
+        Me.txtTelg.Name = "txtTelg"
+        Me.txtTelg.Size = New System.Drawing.Size(162, 20)
+        Me.txtTelg.TabIndex = 25
+        '
+        'txtVorname
+        '
+        Me.txtVorname.Location = New System.Drawing.Point(74, 119)
+        Me.txtVorname.Name = "txtVorname"
+        Me.txtVorname.Size = New System.Drawing.Size(162, 20)
+        Me.txtVorname.TabIndex = 4
+        '
+        'lblahv
+        '
+        Me.lblahv.AutoSize = True
+        Me.lblahv.BackColor = System.Drawing.Color.Transparent
+        Me.lblahv.Location = New System.Drawing.Point(272, 148)
+        Me.lblahv.Name = "lblahv"
+        Me.lblahv.Size = New System.Drawing.Size(43, 13)
+        Me.lblahv.TabIndex = 195
+        Me.lblahv.Text = "AHV-Nr"
+        '
+        'txtahvnr
+        '
+        Me.txtahvnr.Location = New System.Drawing.Point(342, 145)
+        Me.txtahvnr.Name = "txtahvnr"
+        Me.txtahvnr.Size = New System.Drawing.Size(162, 20)
+        Me.txtahvnr.TabIndex = 22
+        '
+        'lblVorname
+        '
+        Me.lblVorname.AutoSize = True
+        Me.lblVorname.BackColor = System.Drawing.Color.Transparent
+        Me.lblVorname.Location = New System.Drawing.Point(4, 122)
+        Me.lblVorname.Name = "lblVorname"
+        Me.lblVorname.Size = New System.Drawing.Size(49, 13)
+        Me.lblVorname.TabIndex = 179
+        Me.lblVorname.Text = "Vorname"
+        '
+        'lblBeruf
+        '
+        Me.lblBeruf.AutoSize = True
+        Me.lblBeruf.BackColor = System.Drawing.Color.Transparent
+        Me.lblBeruf.Location = New System.Drawing.Point(272, 122)
+        Me.lblBeruf.Name = "lblBeruf"
+        Me.lblBeruf.Size = New System.Drawing.Size(32, 13)
+        Me.lblBeruf.TabIndex = 194
+        Me.lblBeruf.Text = "Beruf"
+        '
+        'txtBeruf
+        '
+        Me.txtBeruf.Location = New System.Drawing.Point(342, 119)
+        Me.txtBeruf.Name = "txtBeruf"
+        Me.txtBeruf.Size = New System.Drawing.Size(162, 20)
+        Me.txtBeruf.TabIndex = 21
+        '
+        'txtCOAdresse
+        '
+        Me.txtCOAdresse.Location = New System.Drawing.Point(74, 145)
+        Me.txtCOAdresse.Name = "txtCOAdresse"
+        Me.txtCOAdresse.Size = New System.Drawing.Size(162, 20)
+        Me.txtCOAdresse.TabIndex = 5
+        '
+        'lblArbeitgeber
+        '
+        Me.lblArbeitgeber.AutoSize = True
+        Me.lblArbeitgeber.BackColor = System.Drawing.Color.Transparent
+        Me.lblArbeitgeber.Location = New System.Drawing.Point(272, 96)
+        Me.lblArbeitgeber.Name = "lblArbeitgeber"
+        Me.lblArbeitgeber.Size = New System.Drawing.Size(61, 13)
+        Me.lblArbeitgeber.TabIndex = 193
+        Me.lblArbeitgeber.Text = "Arbeitgeber"
+        '
+        'lblCO
+        '
+        Me.lblCO.AutoSize = True
+        Me.lblCO.BackColor = System.Drawing.Color.Transparent
+        Me.lblCO.Location = New System.Drawing.Point(4, 148)
+        Me.lblCO.Name = "lblCO"
+        Me.lblCO.Size = New System.Drawing.Size(27, 13)
+        Me.lblCO.TabIndex = 180
+        Me.lblCO.Text = "C/O"
+        '
+        'txtStrasse
+        '
+        Me.txtStrasse.Location = New System.Drawing.Point(74, 171)
+        Me.txtStrasse.Name = "txtStrasse"
+        Me.txtStrasse.Size = New System.Drawing.Size(162, 20)
+        Me.txtStrasse.TabIndex = 6
+        '
+        'lblSprache
+        '
+        Me.lblSprache.AutoSize = True
+        Me.lblSprache.BackColor = System.Drawing.Color.Transparent
+        Me.lblSprache.Location = New System.Drawing.Point(272, 69)
+        Me.lblSprache.Name = "lblSprache"
+        Me.lblSprache.Size = New System.Drawing.Size(47, 13)
+        Me.lblSprache.TabIndex = 192
+        Me.lblSprache.Text = "Sprache"
+        '
+        'lblStrasse
+        '
+        Me.lblStrasse.AutoSize = True
+        Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
+        Me.lblStrasse.Location = New System.Drawing.Point(4, 174)
+        Me.lblStrasse.Name = "lblStrasse"
+        Me.lblStrasse.Size = New System.Drawing.Size(42, 13)
+        Me.lblStrasse.TabIndex = 181
+        Me.lblStrasse.Text = "Strasse"
+        '
+        'txtPLZ
+        '
+        Me.txtPLZ.Location = New System.Drawing.Point(74, 197)
+        Me.txtPLZ.Name = "txtPLZ"
+        Me.txtPLZ.Size = New System.Drawing.Size(48, 20)
+        Me.txtPLZ.TabIndex = 7
+        '
+        'lblStatus
+        '
+        Me.lblStatus.AutoSize = True
+        Me.lblStatus.BackColor = System.Drawing.Color.Transparent
+        Me.lblStatus.Location = New System.Drawing.Point(272, 42)
+        Me.lblStatus.Name = "lblStatus"
+        Me.lblStatus.Size = New System.Drawing.Size(37, 13)
+        Me.lblStatus.TabIndex = 191
+        Me.lblStatus.Text = "Status"
+        '
+        'lblPLZOrt
+        '
+        Me.lblPLZOrt.AutoSize = True
+        Me.lblPLZOrt.BackColor = System.Drawing.Color.Transparent
+        Me.lblPLZOrt.Location = New System.Drawing.Point(4, 200)
+        Me.lblPLZOrt.Name = "lblPLZOrt"
+        Me.lblPLZOrt.Size = New System.Drawing.Size(46, 13)
+        Me.lblPLZOrt.TabIndex = 182
+        Me.lblPLZOrt.Text = "PLZ/Ort"
+        '
+        'lblBriefanrede
+        '
+        Me.lblBriefanrede.AutoSize = True
+        Me.lblBriefanrede.BackColor = System.Drawing.Color.Transparent
+        Me.lblBriefanrede.Location = New System.Drawing.Point(4, 435)
+        Me.lblBriefanrede.Name = "lblBriefanrede"
+        Me.lblBriefanrede.Size = New System.Drawing.Size(65, 13)
+        Me.lblBriefanrede.TabIndex = 190
+        Me.lblBriefanrede.Text = "Brief-Anrede"
+        '
+        'txtOrt
+        '
+        Me.txtOrt.Location = New System.Drawing.Point(128, 197)
+        Me.txtOrt.Name = "txtOrt"
+        Me.txtOrt.Size = New System.Drawing.Size(108, 20)
+        Me.txtOrt.TabIndex = 8
+        '
+        'txtBriefanrede
+        '
+        Me.txtBriefanrede.Location = New System.Drawing.Point(74, 432)
+        Me.txtBriefanrede.Name = "txtBriefanrede"
+        Me.txtBriefanrede.Size = New System.Drawing.Size(647, 20)
+        Me.txtBriefanrede.TabIndex = 17
+        '
+        'lblGebDat
+        '
+        Me.lblGebDat.AutoSize = True
+        Me.lblGebDat.BackColor = System.Drawing.Color.Transparent
+        Me.lblGebDat.Location = New System.Drawing.Point(4, 253)
+        Me.lblGebDat.Name = "lblGebDat"
+        Me.lblGebDat.Size = New System.Drawing.Size(44, 13)
+        Me.lblGebDat.TabIndex = 183
+        Me.lblGebDat.Text = "GebDat"
+        '
+        'lblGeschlecht
+        '
+        Me.lblGeschlecht.AutoSize = True
+        Me.lblGeschlecht.BackColor = System.Drawing.Color.Transparent
+        Me.lblGeschlecht.Location = New System.Drawing.Point(4, 408)
+        Me.lblGeschlecht.Name = "lblGeschlecht"
+        Me.lblGeschlecht.Size = New System.Drawing.Size(61, 13)
+        Me.lblGeschlecht.TabIndex = 189
+        Me.lblGeschlecht.Text = "Geschlecht"
+        '
+        'txttelp
+        '
+        Me.txttelp.Location = New System.Drawing.Point(74, 275)
+        Me.txttelp.Name = "txttelp"
+        Me.txttelp.Size = New System.Drawing.Size(162, 20)
+        Me.txttelp.TabIndex = 11
+        '
+        'lblInternet
+        '
+        Me.lblInternet.AutoSize = True
+        Me.lblInternet.BackColor = System.Drawing.Color.Transparent
+        Me.lblInternet.Location = New System.Drawing.Point(4, 382)
+        Me.lblInternet.Name = "lblInternet"
+        Me.lblInternet.Size = New System.Drawing.Size(43, 13)
+        Me.lblInternet.TabIndex = 188
+        Me.lblInternet.Text = "Internet"
+        '
+        'lblTelefon
+        '
+        Me.lblTelefon.AutoSize = True
+        Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
+        Me.lblTelefon.Location = New System.Drawing.Point(4, 278)
+        Me.lblTelefon.Name = "lblTelefon"
+        Me.lblTelefon.Size = New System.Drawing.Size(55, 13)
+        Me.lblTelefon.TabIndex = 184
+        Me.lblTelefon.Text = "Telefon p."
+        '
+        'txtWeb
+        '
+        Me.txtWeb.Location = New System.Drawing.Point(74, 379)
+        Me.txtWeb.Name = "txtWeb"
+        Me.txtWeb.Size = New System.Drawing.Size(162, 20)
+        Me.txtWeb.TabIndex = 15
+        '
+        'txtFaxp
+        '
+        Me.txtFaxp.Location = New System.Drawing.Point(74, 301)
+        Me.txtFaxp.Name = "txtFaxp"
+        Me.txtFaxp.Size = New System.Drawing.Size(162, 20)
+        Me.txtFaxp.TabIndex = 12
+        '
+        'lblemail
+        '
+        Me.lblemail.AutoSize = True
+        Me.lblemail.BackColor = System.Drawing.Color.Transparent
+        Me.lblemail.Location = New System.Drawing.Point(4, 356)
+        Me.lblemail.Name = "lblemail"
+        Me.lblemail.Size = New System.Drawing.Size(36, 13)
+        Me.lblemail.TabIndex = 187
+        Me.lblemail.Text = "E-Mail"
+        '
+        'lblFaxP
+        '
+        Me.lblFaxP.AutoSize = True
+        Me.lblFaxP.BackColor = System.Drawing.Color.Transparent
+        Me.lblFaxP.Location = New System.Drawing.Point(4, 304)
+        Me.lblFaxP.Name = "lblFaxP"
+        Me.lblFaxP.Size = New System.Drawing.Size(36, 13)
+        Me.lblFaxP.TabIndex = 185
+        Me.lblFaxP.Text = "Fax p."
+        '
+        'txtE_Mail
+        '
+        Me.txtE_Mail.Location = New System.Drawing.Point(74, 353)
+        Me.txtE_Mail.Name = "txtE_Mail"
+        Me.txtE_Mail.Size = New System.Drawing.Size(162, 20)
+        Me.txtE_Mail.TabIndex = 14
+        '
+        'txtNatel
+        '
+        Me.txtNatel.Location = New System.Drawing.Point(74, 327)
+        Me.txtNatel.Name = "txtNatel"
+        Me.txtNatel.Size = New System.Drawing.Size(162, 20)
+        Me.txtNatel.TabIndex = 13
+        '
+        'lblMobile
+        '
+        Me.lblMobile.AutoSize = True
+        Me.lblMobile.BackColor = System.Drawing.Color.Transparent
+        Me.lblMobile.Location = New System.Drawing.Point(4, 330)
+        Me.lblMobile.Name = "lblMobile"
+        Me.lblMobile.Size = New System.Drawing.Size(38, 13)
+        Me.lblMobile.TabIndex = 186
+        Me.lblMobile.Text = "Mobile"
+        '
+        'dtgebdat
+        '
+        Me.dtgebdat.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtgebdat.Location = New System.Drawing.Point(74, 247)
+        Me.dtgebdat.Name = "dtgebdat"
+        Me.dtgebdat.Size = New System.Drawing.Size(162, 20)
+        Me.dtgebdat.TabIndex = 10
+        '
+        'dtGueltigab
+        '
+        Me.dtGueltigab.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtGueltigab.Location = New System.Drawing.Point(342, 251)
+        Me.dtGueltigab.Name = "dtGueltigab"
+        Me.dtGueltigab.Size = New System.Drawing.Size(162, 20)
+        Me.dtGueltigab.TabIndex = 27
+        '
+        'dtgueltigbis
+        '
+        Me.dtgueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtgueltigbis.Location = New System.Drawing.Point(342, 277)
+        Me.dtgueltigbis.Name = "dtgueltigbis"
+        Me.dtgueltigbis.Size = New System.Drawing.Size(162, 20)
+        Me.dtgueltigbis.TabIndex = 28
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.Color.Transparent
+        Me.Label3.Location = New System.Drawing.Point(3, 225)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(41, 13)
+        Me.Label3.TabIndex = 208
+        Me.Label3.Text = "Kanton"
+        '
+        'cbtxtboxKanton
+        '
+        Me.cbtxtboxKanton.FormattingEnabled = True
+        Me.cbtxtboxKanton.Items.AddRange(New Object() {"AG", "AR", "AI", "BL", "BS", "BE", "FR", "GE", "GL", "GR", "JU", "LU", "NE", "NW", "OW", "SG", "SH", "SZ", "SO", "TG", "TI", "UR", "VD", "VS", "ZG", "ZH"})
+        Me.cbtxtboxKanton.Location = New System.Drawing.Point(74, 221)
+        Me.cbtxtboxKanton.Name = "cbtxtboxKanton"
+        Me.cbtxtboxKanton.Size = New System.Drawing.Size(162, 21)
+        Me.cbtxtboxKanton.TabIndex = 9
+        '
+        'lblGLN
+        '
+        Me.lblGLN.AutoSize = True
+        Me.lblGLN.BackColor = System.Drawing.Color.Transparent
+        Me.lblGLN.Location = New System.Drawing.Point(272, 174)
+        Me.lblGLN.Name = "lblGLN"
+        Me.lblGLN.Size = New System.Drawing.Size(56, 13)
+        Me.lblGLN.TabIndex = 210
+        Me.lblGLN.Text = "GLN/ZSR"
+        '
+        'txtGLN
+        '
+        Me.txtGLN.Location = New System.Drawing.Point(342, 171)
+        Me.txtGLN.Name = "txtGLN"
+        Me.txtGLN.Size = New System.Drawing.Size(107, 20)
+        Me.txtGLN.TabIndex = 23
+        '
+        'txtZSR
+        '
+        Me.txtZSR.Location = New System.Drawing.Point(455, 171)
+        Me.txtZSR.Name = "txtZSR"
+        Me.txtZSR.Size = New System.Drawing.Size(49, 20)
+        Me.txtZSR.TabIndex = 24
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.BackColor = System.Drawing.Color.Transparent
+        Me.Label4.Location = New System.Drawing.Point(528, 308)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(101, 13)
+        Me.Label4.TabIndex = 211
+        Me.Label4.Text = "Mail-Kommunikation"
+        '
+        'chkMail_Kommunikation
+        '
+        Me.chkMail_Kommunikation.AutoSize = True
+        Me.chkMail_Kommunikation.Location = New System.Drawing.Point(706, 308)
+        Me.chkMail_Kommunikation.Name = "chkMail_Kommunikation"
+        Me.chkMail_Kommunikation.Size = New System.Drawing.Size(15, 14)
+        Me.chkMail_Kommunikation.TabIndex = 212
+        Me.chkMail_Kommunikation.UseVisualStyleBackColor = True
+        '
+        'cbboxNRArbeitgeber
+        '
+        Me.cbboxNRArbeitgeber.Dataselection = Nothing
+        Me.cbboxNRArbeitgeber.Displaymember = Nothing
+        Me.cbboxNRArbeitgeber.Location = New System.Drawing.Point(342, 91)
+        Me.cbboxNRArbeitgeber.Name = "cbboxNRArbeitgeber"
+        Me.cbboxNRArbeitgeber.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNRArbeitgeber.TabIndex = 20
+        Me.cbboxNRArbeitgeber.Table = Nothing
+        Me.cbboxNRArbeitgeber.TableAlias = ""
+        Me.cbboxNRArbeitgeber.Valuemember = Nothing
+        '
+        'cbboxGeschlecht
+        '
+        Me.cbboxGeschlecht.Dataselection = Nothing
+        Me.cbboxGeschlecht.Displaymember = Nothing
+        Me.cbboxGeschlecht.Location = New System.Drawing.Point(74, 405)
+        Me.cbboxGeschlecht.Name = "cbboxGeschlecht"
+        Me.cbboxGeschlecht.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxGeschlecht.TabIndex = 16
+        Me.cbboxGeschlecht.Table = Nothing
+        Me.cbboxGeschlecht.TableAlias = ""
+        Me.cbboxGeschlecht.Valuemember = Nothing
+        '
+        'cbboxSprache
+        '
+        Me.cbboxSprache.Dataselection = Nothing
+        Me.cbboxSprache.Displaymember = Nothing
+        Me.cbboxSprache.Location = New System.Drawing.Point(342, 65)
+        Me.cbboxSprache.Name = "cbboxSprache"
+        Me.cbboxSprache.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxSprache.TabIndex = 19
+        Me.cbboxSprache.Table = Nothing
+        Me.cbboxSprache.TableAlias = ""
+        Me.cbboxSprache.Valuemember = Nothing
+        '
+        'cbboxStatus
+        '
+        Me.cbboxStatus.Dataselection = Nothing
+        Me.cbboxStatus.Displaymember = Nothing
+        Me.cbboxStatus.Location = New System.Drawing.Point(342, 38)
+        Me.cbboxStatus.Name = "cbboxStatus"
+        Me.cbboxStatus.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxStatus.TabIndex = 18
+        Me.cbboxStatus.Table = Nothing
+        Me.cbboxStatus.TableAlias = ""
+        Me.cbboxStatus.Valuemember = Nothing
+        '
+        'cbboxNRTitel
+        '
+        Me.cbboxNRTitel.Dataselection = Nothing
+        Me.cbboxNRTitel.Displaymember = Nothing
+        Me.cbboxNRTitel.Location = New System.Drawing.Point(74, 65)
+        Me.cbboxNRTitel.Name = "cbboxNRTitel"
+        Me.cbboxNRTitel.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNRTitel.TabIndex = 2
+        Me.cbboxNRTitel.Table = Nothing
+        Me.cbboxNRTitel.TableAlias = ""
+        Me.cbboxNRTitel.Valuemember = Nothing
+        '
+        'cbboxNrAnrede
+        '
+        Me.cbboxNrAnrede.Dataselection = Nothing
+        Me.cbboxNrAnrede.Displaymember = Nothing
+        Me.cbboxNrAnrede.Location = New System.Drawing.Point(74, 38)
+        Me.cbboxNrAnrede.Name = "cbboxNrAnrede"
+        Me.cbboxNrAnrede.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNrAnrede.TabIndex = 1
+        Me.cbboxNrAnrede.Table = Nothing
+        Me.cbboxNrAnrede.TableAlias = ""
+        Me.cbboxNrAnrede.Valuemember = Nothing
+        '
+        'PatientDetails
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.chkMail_Kommunikation)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.txtZSR)
+        Me.Controls.Add(Me.txtGLN)
+        Me.Controls.Add(Me.lblGLN)
+        Me.Controls.Add(Me.cbtxtboxKanton)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.cbboxNRArbeitgeber)
+        Me.Controls.Add(Me.cbboxGeschlecht)
+        Me.Controls.Add(Me.cbboxSprache)
+        Me.Controls.Add(Me.cbboxStatus)
+        Me.Controls.Add(Me.cbboxNRTitel)
+        Me.Controls.Add(Me.cbboxNrAnrede)
+        Me.Controls.Add(Me.dtgueltigbis)
+        Me.Controls.Add(Me.dtGueltigab)
+        Me.Controls.Add(Me.dtgebdat)
+        Me.Controls.Add(Me.txtMutierer)
+        Me.Controls.Add(Me.txtMutiert_am)
+        Me.Controls.Add(Me.txtErstellt_am)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.chklbAdresstyp)
+        Me.Controls.Add(Me.txtBemerkung)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtFaxG)
+        Me.Controls.Add(Me.txtName)
+        Me.Controls.Add(Me.lbltelg)
+        Me.Controls.Add(Me.lblName)
+        Me.Controls.Add(Me.txtTelg)
+        Me.Controls.Add(Me.txtVorname)
+        Me.Controls.Add(Me.lblahv)
+        Me.Controls.Add(Me.txtahvnr)
+        Me.Controls.Add(Me.lblVorname)
+        Me.Controls.Add(Me.lblBeruf)
+        Me.Controls.Add(Me.txtBeruf)
+        Me.Controls.Add(Me.txtCOAdresse)
+        Me.Controls.Add(Me.lblArbeitgeber)
+        Me.Controls.Add(Me.lblCO)
+        Me.Controls.Add(Me.txtStrasse)
+        Me.Controls.Add(Me.lblSprache)
+        Me.Controls.Add(Me.lblStrasse)
+        Me.Controls.Add(Me.txtPLZ)
+        Me.Controls.Add(Me.lblStatus)
+        Me.Controls.Add(Me.lblPLZOrt)
+        Me.Controls.Add(Me.lblBriefanrede)
+        Me.Controls.Add(Me.txtOrt)
+        Me.Controls.Add(Me.txtBriefanrede)
+        Me.Controls.Add(Me.lblGebDat)
+        Me.Controls.Add(Me.lblGeschlecht)
+        Me.Controls.Add(Me.txttelp)
+        Me.Controls.Add(Me.lblInternet)
+        Me.Controls.Add(Me.lblTelefon)
+        Me.Controls.Add(Me.txtWeb)
+        Me.Controls.Add(Me.txtFaxp)
+        Me.Controls.Add(Me.lblemail)
+        Me.Controls.Add(Me.lblFaxP)
+        Me.Controls.Add(Me.txtE_Mail)
+        Me.Controls.Add(Me.txtNatel)
+        Me.Controls.Add(Me.lblMobile)
+        Me.Controls.Add(Me.txtnrprivat)
+        Me.Controls.Add(Me.lblNr)
+        Me.Controls.Add(Me.lblAnrede)
+        Me.Controls.Add(Me.lblTitel)
+        Me.Name = "PatientDetailFirma"
+        Me.Size = New System.Drawing.Size(737, 461)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtnrprivat As System.Windows.Forms.TextBox
+    Friend WithEvents lblNr As System.Windows.Forms.Label
+    Friend WithEvents lblAnrede As System.Windows.Forms.Label
+    Friend WithEvents lblTitel As System.Windows.Forms.Label
+    Friend WithEvents txtMutierer As System.Windows.Forms.TextBox
+    Friend WithEvents txtMutiert_am As System.Windows.Forms.TextBox
+    Friend WithEvents txtErstellt_am As System.Windows.Forms.TextBox
+    Friend WithEvents Label18 As System.Windows.Forms.Label
+    Friend WithEvents Label17 As System.Windows.Forms.Label
+    Friend WithEvents Label16 As System.Windows.Forms.Label
+    Friend WithEvents Label15 As System.Windows.Forms.Label
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents Label13 As System.Windows.Forms.Label
+    Friend WithEvents chklbAdresstyp As System.Windows.Forms.CheckedListBox
+    Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtFaxG As System.Windows.Forms.TextBox
+    Friend WithEvents txtName As System.Windows.Forms.TextBox
+    Friend WithEvents lbltelg As System.Windows.Forms.Label
+    Friend WithEvents lblName As System.Windows.Forms.Label
+    Friend WithEvents txtTelg As System.Windows.Forms.TextBox
+    Friend WithEvents txtVorname As System.Windows.Forms.TextBox
+    Friend WithEvents lblahv As System.Windows.Forms.Label
+    Friend WithEvents txtahvnr As System.Windows.Forms.TextBox
+    Friend WithEvents lblVorname As System.Windows.Forms.Label
+    Friend WithEvents lblBeruf As System.Windows.Forms.Label
+    Friend WithEvents txtBeruf As System.Windows.Forms.TextBox
+    Friend WithEvents txtCOAdresse As System.Windows.Forms.TextBox
+    Friend WithEvents lblArbeitgeber As System.Windows.Forms.Label
+    Friend WithEvents lblCO As System.Windows.Forms.Label
+    Friend WithEvents txtStrasse As System.Windows.Forms.TextBox
+    Friend WithEvents lblSprache As System.Windows.Forms.Label
+    Friend WithEvents lblStrasse As System.Windows.Forms.Label
+    Friend WithEvents txtPLZ As System.Windows.Forms.TextBox
+    Friend WithEvents lblStatus As System.Windows.Forms.Label
+    Friend WithEvents lblPLZOrt As System.Windows.Forms.Label
+    Friend WithEvents lblBriefanrede As System.Windows.Forms.Label
+    Friend WithEvents txtOrt As System.Windows.Forms.TextBox
+    Friend WithEvents txtBriefanrede As System.Windows.Forms.TextBox
+    Friend WithEvents lblGebDat As System.Windows.Forms.Label
+    Friend WithEvents lblGeschlecht As System.Windows.Forms.Label
+    Friend WithEvents txttelp As System.Windows.Forms.TextBox
+    Friend WithEvents lblInternet As System.Windows.Forms.Label
+    Friend WithEvents lblTelefon As System.Windows.Forms.Label
+    Friend WithEvents txtWeb As System.Windows.Forms.TextBox
+    Friend WithEvents txtFaxp As System.Windows.Forms.TextBox
+    Friend WithEvents lblemail As System.Windows.Forms.Label
+    Friend WithEvents lblFaxP As System.Windows.Forms.Label
+    Friend WithEvents txtE_Mail As System.Windows.Forms.TextBox
+    Friend WithEvents txtNatel As System.Windows.Forms.TextBox
+    Friend WithEvents lblMobile As System.Windows.Forms.Label
+    Friend WithEvents dtgebdat As System.Windows.Forms.DateTimePicker
+    Friend WithEvents dtGueltigab As System.Windows.Forms.DateTimePicker
+    Friend WithEvents dtgueltigbis As System.Windows.Forms.DateTimePicker
+    Friend WithEvents cbboxNrAnrede As DPM2016.MyCombobox
+    Friend WithEvents cbboxNRTitel As DPM2016.MyCombobox
+    Friend WithEvents cbboxStatus As DPM2016.MyCombobox
+    Friend WithEvents cbboxSprache As DPM2016.MyCombobox
+    Friend WithEvents cbboxGeschlecht As DPM2016.MyCombobox
+    Friend WithEvents cbboxNRArbeitgeber As DPM2016.MyCombobox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents cbtxtboxKanton As ComboBox
+    Friend WithEvents lblGLN As Label
+    Friend WithEvents txtGLN As TextBox
+    Friend WithEvents txtZSR As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents chkMail_Kommunikation As CheckBox
+End Class

DPM2016/Patient/Firma/PatientDetailFirma.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

DPM2016/Patient/Firma/PatientDetailFirma.vb

@@ -0,0 +1,551 @@
+Imports DPM2016.MyCombobox
+Public Class PatientDetailFirma
+
+#Region "Properties"
+    Dim m_patientnr As Integer
+
+    Property PatientNr As Integer
+        Get
+            Return m_patientnr
+        End Get
+        Set(value As Integer)
+            Try
+                m_patientnr = value
+                Fill_Stammdaten()
+                log.Writelog("Partnerdetails: Get_Data Start", clsLog.Logtype.Information)
+                Get_Data()
+                log.Writelog("Partnerdetails: Get_Data Ende", clsLog.Logtype.Information)
+                AddChanges(Me)
+                Me.cbboxNrAnrede.Select()
+                Me.HasChanges = False
+                Globals.EVH.Fire_PatName_Changed(Me.Patientname, Me.PatientNr)
+
+            Catch ex As Exception
+                log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
+            End Try
+        End Set
+    End Property
+
+    Dim m_patname As String
+    Property Patientname As String
+        Get
+            Return Me.txtnrprivat.Text + " " + Me.txtName.Text + " " + Me.txtVorname.Text + " " + Me.txtOrt.Text
+        End Get
+        Set(value As String)
+
+        End Set
+    End Property
+
+    Dim m_haschanges As Boolean
+    Property HasChanges As Boolean
+        Get
+            Return m_haschanges
+        End Get
+        Set(value As Boolean)
+            m_haschanges = value
+        End Set
+    End Property
+
+#End Region
+
+#Region "Deklarationen"
+    Dim DB As New clsDB
+    Dim FormReadonly As Boolean = False
+    Dim log As New clsLog
+    Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
+
+#End Region
+
+#Region "Closing / Check_Changes"
+
+    ''' <summary>
+    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
+    ''' </summary>
+    ''' <remarks></remarks>
+    Private Function Check_Changes() As Boolean
+        If Me.FormReadonly Then
+            Return True
+            Exit Function
+        End If
+        Dim msgres As MsgBoxResult
+        If Me.HasChanges Then
+            msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
+            Select Case msgres
+                Case MsgBoxResult.Yes
+                    Save_Data()
+                    Return True
+                Case MsgBoxResult.Cancel
+                    Return False
+                Case MsgBoxResult.No
+                    Me.HasChanges = False
+                    Return True
+            End Select
+        Else
+            Return True
+        End If
+    End Function
+
+#End Region
+
+#Region "Eventhandler ChangeEreignisse"
+    ''' <summary>
+    ''' Allg Eventhandler für Chanage-Ereignise festlegen
+    ''' </summary>
+    ''' <param name="Container"></param>
+    ''' <remarks></remarks>
+    Private Sub AddChanges(ByVal Container As Control)
+        Dim l As New List(Of Control)
+        Me.GetControl(Me, "*", l)
+        Dim evh As EventHandler = AddressOf ChangesMade
+        For Each c As Control In l
+            If TypeOf c Is TextBox Then
+                Dim ctl As TextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is MaskedTextBox Then
+                Dim ctl As MaskedTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is ComboBox Then
+                Dim ctl As ComboBox = c
+                AddHandler ctl.SelectedValueChanged, evh
+            End If
+            If TypeOf c Is RichTextBox Then
+                Dim ctl As RichTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is CheckBox Then
+                If c.Name <> "cboxNurAktive" Then
+                    Dim ctl As CheckBox = c
+                    AddHandler ctl.CheckedChanged, evh
+                End If
+            End If
+            If TypeOf c Is DateTimePicker Then
+                Dim ctl As DateTimePicker = c
+                AddHandler ctl.ValueChanged, evh
+            End If
+            If TypeOf c Is CheckedListBox Then
+                Dim ctl As CheckedListBox = c
+                AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
+            End If
+        Next
+    End Sub
+    ''' <summary>
+    ''' Envent-Handler für Change-Ereignisse
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    ''' <remarks></remarks>
+    Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
+        Me.HasChanges = True
+        Dim objtype As System.Type = sender.GetType
+        If objtype.Name = "MaskedTextBox" Then
+            Dim o As MaskedTextBox = sender
+            If o.Text = "01.01.1900" Then o.Text = "  .  .    "
+        End If
+    End Sub
+
+    Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
+        Me.HasChanges = True
+    End Sub
+
+
+    ''' <summary>
+    ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
+    ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
+    ''' </summary>
+    ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
+    ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
+    ''' <param name="L">Liste der gefundenen Objekte</param>
+    ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+    ''' </returns>
+    ''' <remarks></remarks>
+    Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
+        If L Is Nothing Then L = New List(Of Control)
+        Dim Gut As Boolean
+        Dim ReturnFlag As Boolean = False
+        If Key IsNot Nothing Then Key = Key.ToLower
+
+        If BaseControl.HasChildren = True Then
+            For Each ctl As Control In BaseControl.Controls
+                Gut = False
+                If Key Is Nothing Then
+                    Gut = True
+                Else
+                    If ctl.Name.Length >= Key.Length Then
+                        Key = Key.ToLower
+                        If Key.StartsWith("*") Then
+                            If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
+                        ElseIf Key.EndsWith("*") Then
+                            If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
+                        Else
+                            If Key = ctl.Name.ToLower Then Gut = True
+                        End If
+                    End If
+                End If
+
+                If Gut = True Then
+                    L.Add(ctl)
+                    If ReturnAtFirstElement = True Then ReturnFlag = True
+                End If
+                If ReturnFlag = False Then
+                    Call GetControl(ctl, Key, L)
+                End If
+            Next
+        End If
+
+        If L.Count - 1 > -1 Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+#End Region
+
+#Region "Daten_Laden"
+
+    Public Sub Fill_Stammdaten()
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            chklbAdresstyp.Items.Clear()
+            chklbAdresstyp.Items.Add("Leistungserbringer")
+
+        End If
+        log.Writelog("PartnerDetails: Fill_Stammdaten", clsLog.Logtype.Information)
+        Me.cbboxNrAnrede.Table = "Anrede"
+        Me.cbboxNrAnrede.Displaymember = "Anrede_D"
+        Me.cbboxNrAnrede.Valuemember = "NRANREDE"
+
+        Me.cbboxNRTitel.Table = "Titel"
+        Me.cbboxNRTitel.Displaymember = "Titel_D"
+        Me.cbboxNRTitel.Valuemember = "NRTITEL"
+
+        Me.cbboxSprache.Table = "Sprache"
+        Me.cbboxSprache.Displaymember = "Sprachbezeichnung"
+        Me.cbboxSprache.Valuemember = "Sprachcode"
+
+        Me.cbboxStatus.Table = "Status"
+        Me.cbboxStatus.Displaymember = "Status"
+        Me.cbboxStatus.Valuemember = "nrstatus"
+
+        Me.cbboxGeschlecht.Table = "Geschlecht"
+        Me.cbboxGeschlecht.Displaymember = "Geschlecht"
+        Me.cbboxGeschlecht.Valuemember = "NrGeschlecht"
+
+        Me.cbboxNRArbeitgeber.Dataselection = DB.Get_SQL(1)
+        Me.cbboxNRArbeitgeber.Table = "Arbeitgeber"
+        Me.cbboxNRArbeitgeber.Displaymember = "Firmenname"
+        Me.cbboxNRArbeitgeber.Valuemember = "nrfirma"
+
+        log.Writelog("PartnerDetails: Fill_Stammdaten Ende", clsLog.Logtype.Information)
+
+    End Sub
+
+    Sub Get_Data()
+        Dim ctlname As String
+        Dim colname As String
+        Try
+            If Globals.Hide_Gueltig_bis Then
+                Me.Label15.Visible = False
+                Me.dtgueltigbis.Visible = False
+            End If
+
+            DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+            Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+            For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+
+                colname = c.ColumnName
+                Debug.Print(colname)
+                For Each Ctl As Control In Me.Controls
+                    'Dim objtype As System.Type = Ctl.GetType
+                    'If objtype.Name = "Label" Then
+                    '    Exit For
+                    'End If
+                    ctlname = Ctl.Name
+                    log.Writelog("Partnerdtails: Get_Data: " + Ctl.Name, clsLog.Logtype.Information)
+                    If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Ctl.Text = r(c.ColumnName).ToString
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim ct As MyCombobox
+                        Dim o As Object = Ctl
+                        Try
+                            o.SelectedValue = r(c.ColumnName)
+                        Catch
+                            o.SelectedValue = -1
+                        End Try
+
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim ct As ComboBox
+                        Dim o As Object = Ctl
+                        Try
+                            o.text = r(c.ColumnName)
+                        Catch
+                            o.Text = ""
+                        End Try
+
+                        Exit For
+                    End If
+
+                    If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim dt As DateTimePicker
+                        dt = Ctl
+                        'Try
+                        '    dt.Value = r(c.ColumnName)
+                        'Catch
+                        '    dt.Value = "  .  .    "
+                        'End Try
+
+                        Try
+                            dt.Value = r(c.ColumnName)
+                            dt.Format = DateTimePickerFormat.Short
+                        Catch
+
+                            dt.CustomFormat = " "  'An empty SPACE
+                            dt.Format = DateTimePickerFormat.Custom
+
+                        End Try
+
+
+                        Exit For
+                    End If
+                    'If UCase(Ctl.Name) = "CHKMAIL_KOMMUNIKATION" Then
+                    '    MsgBox("Hallo")
+                    'End If
+                    'If UCase(r(c.ColumnName)) = "MAIL_KOMMUNIKATION" Then
+                    '    MsgBox("Bello")
+                    'End If
+                    If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                        Dim cb As CheckBox
+                        cb = Ctl
+
+                        Try
+                            cb.Checked = r(c.ColumnName)
+                        Catch ex As Exception
+
+                        End Try
+                        Exit For
+                    End If
+                Next
+                If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                    If LCase(c.ColumnName) = "behandler" Then
+                        Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                    End If
+                Else
+
+                    Select Case LCase(c.ColumnName)
+                        Case "patient"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "garant"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "gesvertreter"
+                            Set_Adresstype("Ges. Vertreter", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "hausarzt"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "zahnarzt"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "behandler"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "dhpat"
+                            Set_Adresstype("DH-Patient", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "nichtaufbieten"
+                            Set_Adresstype("Nicht Aufbieten", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "nichtannehmen"
+                            Set_Adresstype("Nicht annehmen", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "betreibung"
+                            Set_Adresstype("Betreibung vorhanden", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    End Select
+                End If
+
+            Next
+        Catch ex As Exception
+            log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
+        End Try
+    End Sub
+
+    Private Sub Set_Adresstype(ByVal feldname, value)
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            If value <> False Then chklbAdresstyp.SetItemCheckState(0, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(0, CheckState.Unchecked)
+
+        End If
+        Dim i As Integer
+        For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+            If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                Try
+                    If value <> False Then chklbAdresstyp.SetItemCheckState(i, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                Catch ex As Exception
+                    chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                End Try
+            End If
+        Next
+    End Sub
+
+#End Region
+
+#Region "Daten speichern"
+
+    Public Sub Save_Data()
+        DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+        Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+
+        For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+            For Each Ctl As Control In Me.Controls
+                If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                    If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then
+                        r(c.ColumnName) = Ctl.Text
+                        Exit For
+                    End If
+                End If
+                If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = Ctl
+                    Try
+                        r(c.ColumnName) = o.selectedvalue
+                    Catch ex As Exception
+                        r(c.ColumnName) = 0
+                    End Try
+                    Exit For
+                End If
+                If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = Ctl
+                    Try
+                        r(c.ColumnName) = o.text
+                    Catch ex As Exception
+                        r(c.ColumnName) = ""
+                    End Try
+                    Exit For
+                End If
+                If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                    Dim dt As DateTimePicker
+                    dt = Ctl
+                    r(c.ColumnName) = dt.Value
+                    Exit For
+                End If
+
+                If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                    Dim cb As CheckBox
+                    cb = Ctl
+                    r(c.ColumnName) = cb.Checked
+                    Exit For
+                End If
+            Next
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                Select Case LCase(c.ColumnName)
+                    Case "behandler"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                End Select
+            Else
+                Select Case LCase(c.ColumnName)
+                    Case "patient"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "garant"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "gesvertreter"
+                        r(c.ColumnName) = Get_Adresstype("Ges. Vertreter", r(c.ColumnName))
+                    Case "hausarzt"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "zahnarzt"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "behandler"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "dhpat"
+                        r(c.ColumnName) = Get_Adresstype("DH-Patient", r(c.ColumnName))
+                    Case "nichtaufbieten"
+                        r(c.ColumnName) = Get_Adresstype("nicht aufbieten", r(c.ColumnName))
+                    Case "nichtannehmen"
+                        r(c.ColumnName) = Get_Adresstype("nicht annehmen", r(c.ColumnName))
+                    Case "betreibung"
+                        r(c.ColumnName) = Get_Adresstype("Betreibung vorhanden", r(c.ColumnName))
+                End Select
+            End If
+
+        Next
+        r("Mutiert_am") = Now
+        r("mutierer") = Globals.ActUser
+        DB.Update_Data()
+        Me.HasChanges = False
+
+    End Sub
+
+    Private Function Get_Adresstype(ByVal feldname, value) As Integer
+        Try
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                If UCase(feldname) = "BEHANDLER" Then Return chklbAdresstyp.GetItemChecked(0)
+            Else
+                Dim i As Integer
+                For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+                    If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                        Return chklbAdresstyp.GetItemChecked(i)
+                    End If
+                Next
+            End If
+        Catch
+            Return -1
+        End Try
+
+    End Function
+
+
+
+#End Region
+
+    Public Function Create_new()
+
+    End Function
+
+
+    Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
+        If Nr = Me.PatientNr Then
+            Me.Save_Data()
+        End If
+    End Sub
+
+    Private Sub cbboxNrAnrede_Leave(sender As Object, e As EventArgs) Handles txtVorname.Leave, txtName.Leave, cbboxNrAnrede.Leave, cbboxNRTitel.Leave
+        Dim alt As String = Me.txtBriefanrede.Text
+        Dim neu As String
+        If Me.cbboxNrAnrede.Text = "Frau" Then
+            neu = "Sehr geehrte Frau "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        Else
+            neu = "Sehr geehrter Herr "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        End If
+        If alt <> neu Then Me.txtBriefanrede.Text = neu
+    End Sub
+
+
+    Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPLZ.Leave
+        If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPLZ.Text, Me.txtOrt, Me.cbtxtboxKanton)
+    End Sub
+
+    Private Sub PatientDetailFirma_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub cbboxNrAnrede_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnrede.SelectedIndexChanged
+        If Me.cbboxNrAnrede.Text = "Herr" Then Me.cbboxGeschlecht.SelectedValue = 2 Else Me.cbboxGeschlecht.SelectedValue = 1
+    End Sub
+
+
+End Class

DPM2016/Patient/Patient.Designer.vb

@@ -41,30 +41,33 @@ Partial Class Patient
         Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
         Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
         Me.btnVTX = New System.Windows.Forms.Button()
-        Me.PatientDetails1 = New DPM2016.PatientDetails()
         Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
         Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel7 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.ClsDokumente1 = New DPM2016.clsDokumente()
         Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Recall1 = New DPM2016.Recall()
         Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Behandlung1 = New DPM2016.Behandlung()
         Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
         Me.Abrechnung = New DevComponents.DotNetBar.SuperTabItem()
         Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Finanzen1 = New DPM2016.Finanzen()
         Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
         Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
         Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.Stammdaten_Firma = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel8 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.PatientDetails1 = New DPM2016.PatientDetails()
+        Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
+        Me.ClsDokumente1 = New DPM2016.clsDokumente()
+        Me.Recall1 = New DPM2016.Recall()
+        Me.Finanzen1 = New DPM2016.Finanzen()
+        Me.Behandlung1 = New DPM2016.Behandlung()
+        Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
+        Me.PatientDetailsFirma1 = New DPM2016.PatientDetailsFirma()
         Me.ToolStrip1.SuspendLayout()
         CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuperTabControl1.SuspendLayout()
@@ -76,15 +79,17 @@ Partial Class Patient
         Me.SuperTabControlPanel2.SuspendLayout()
         Me.SuperTabControlPanel5.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
+        Me.SuperTabControlPanel8.SuspendLayout()
         Me.SuspendLayout()
         '
         'ToolStrip1
         '
         Me.ToolStrip1.AllowDrop = True
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnnew, Me.tsbtnSave, Me.ToolStripButton4, Me.tstxtsuche, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1, Me.tsbtnVTX})
-        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 30)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(1278, 25)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1704, 31)
         Me.ToolStrip1.TabIndex = 15
         Me.ToolStrip1.Text = "ToolStrip1"
         '
@@ -94,7 +99,7 @@ Partial Class Patient
         Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
         Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnquit.Name = "tsbtnquit"
-        Me.tsbtnquit.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnquit.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnquit.Text = "Schliessen"
         '
         'tsbtnnew
@@ -103,7 +108,7 @@ Partial Class Patient
         Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
         Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnnew.Name = "tsbtnnew"
-        Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnnew.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnnew.Text = "Neuer Datensatz"
         '
         'tsbtnSave
@@ -112,7 +117,7 @@ Partial Class Patient
         Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
         Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnSave.Name = "tsbtnSave"
-        Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnSave.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnSave.Text = "Speichern"
         '
         'ToolStripButton4
@@ -121,7 +126,7 @@ Partial Class Patient
         Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
         Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton4.Name = "ToolStripButton4"
-        Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton4.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
         Me.ToolStripButton4.Visible = False
         '
@@ -129,7 +134,7 @@ Partial Class Patient
         '
         Me.tstxtsuche.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.tstxtsuche.Name = "tstxtsuche"
-        Me.tstxtsuche.Size = New System.Drawing.Size(100, 25)
+        Me.tstxtsuche.Size = New System.Drawing.Size(132, 31)
         '
         'ToolStripButton2
         '
@@ -137,7 +142,7 @@ Partial Class Patient
         Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
         Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton2.Name = "ToolStripButton2"
-        Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton2.Text = "Dokument löschen"
         Me.ToolStripButton2.Visible = False
         '
@@ -147,14 +152,14 @@ Partial Class Patient
         Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
         Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ToolStripButton3.Name = "ToolStripButton3"
-        Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton3.Size = New System.Drawing.Size(29, 24)
         Me.ToolStripButton3.Text = "Dokument anzeigen"
         Me.ToolStripButton3.Visible = False
         '
         'ToolStripLabel1
         '
         Me.ToolStripLabel1.Name = "ToolStripLabel1"
-        Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22)
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(48, 28)
         Me.ToolStripLabel1.Text = "Suche"
         '
         'tsbtnfirst
@@ -163,7 +168,7 @@ Partial Class Patient
         Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
         Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnfirst.Name = "tsbtnfirst"
-        Me.tsbtnfirst.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnfirst.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnfirst.Text = "Erster Datensatz"
         '
         'tsbtprev
@@ -172,7 +177,7 @@ Partial Class Patient
         Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
         Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtprev.Name = "tsbtprev"
-        Me.tsbtprev.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtprev.Size = New System.Drawing.Size(29, 28)
         Me.tsbtprev.Text = "Vorheriger Datensatz"
         '
         'tsbtnnext
@@ -181,7 +186,7 @@ Partial Class Patient
         Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
         Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnnext.Name = "tsbtnnext"
-        Me.tsbtnnext.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnnext.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnnext.Text = "nächster Datensatz"
         '
         'tsbtnlast
@@ -190,13 +195,13 @@ Partial Class Patient
         Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
         Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnlast.Name = "tsbtnlast"
-        Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnlast.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnlast.Text = "Letzter Datensatz"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 31)
         '
         'tsbtnVTX
         '
@@ -204,7 +209,7 @@ Partial Class Patient
         Me.tsbtnVTX.Image = CType(resources.GetObject("tsbtnVTX.Image"), System.Drawing.Image)
         Me.tsbtnVTX.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbtnVTX.Name = "tsbtnVTX"
-        Me.tsbtnVTX.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnVTX.Size = New System.Drawing.Size(29, 28)
         Me.tsbtnVTX.Text = "ToolStripButton1"
         '
         'SuperTabControl1
@@ -222,23 +227,25 @@ Partial Class Patient
         Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
         Me.SuperTabControl1.ControlBox.Name = ""
         Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel8)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel7)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
         Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
         Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
+        Me.SuperTabControl1.Location = New System.Drawing.Point(0, 61)
+        Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControl1.Name = "SuperTabControl1"
         Me.SuperTabControl1.ReorderTabsEnabled = True
         Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
         Me.SuperTabControl1.SelectedTabIndex = 0
-        Me.SuperTabControl1.Size = New System.Drawing.Size(1278, 637)
+        Me.SuperTabControl1.Size = New System.Drawing.Size(1704, 783)
         Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.SuperTabControl1.TabIndex = 18
-        Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Dokumente, Me.Krankengeschichte})
+        Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Stammdaten_Firma, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Dokumente, Me.Krankengeschichte})
         Me.SuperTabControl1.Text = "SuperTabControl1"
         '
         'SuperTabControlPanel1
@@ -246,32 +253,23 @@ Partial Class Patient
         Me.SuperTabControlPanel1.Controls.Add(Me.btnVTX)
         Me.SuperTabControlPanel1.Controls.Add(Me.PatientDetails1)
         Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
-        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel1.TabIndex = 1
         Me.SuperTabControlPanel1.TabItem = Me.Stammdaten
         '
         'btnVTX
         '
         Me.btnVTX.Image = CType(resources.GetObject("btnVTX.Image"), System.Drawing.Image)
-        Me.btnVTX.Location = New System.Drawing.Point(739, 38)
+        Me.btnVTX.Location = New System.Drawing.Point(985, 47)
+        Me.btnVTX.Margin = New System.Windows.Forms.Padding(4)
         Me.btnVTX.Name = "btnVTX"
-        Me.btnVTX.Size = New System.Drawing.Size(75, 41)
+        Me.btnVTX.Size = New System.Drawing.Size(100, 50)
         Me.btnVTX.TabIndex = 18
         Me.btnVTX.UseVisualStyleBackColor = True
         '
-        'PatientDetails1
-        '
-        Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.PatientDetails1.HasChanges = False
-        Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
-        Me.PatientDetails1.Name = "PatientDetails1"
-        Me.PatientDetails1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
-        Me.PatientDetails1.PatientNr = 0
-        Me.PatientDetails1.Size = New System.Drawing.Size(1278, 612)
-        Me.PatientDetails1.TabIndex = 17
-        '
         'Stammdaten
         '
         Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1
@@ -283,21 +281,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
         Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel4.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
-        Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel4.TabIndex = 0
         Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
         '
-        'Krankengeschichte1
-        '
-        Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
-        Me.Krankengeschichte1.Name = "Krankengeschichte1"
-        Me.Krankengeschichte1.Patientnr = 0
-        Me.Krankengeschichte1.Size = New System.Drawing.Size(1278, 612)
-        Me.Krankengeschichte1.TabIndex = 0
-        '
         'Krankengeschichte
         '
         Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
@@ -309,21 +299,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel7.Controls.Add(Me.ClsDokumente1)
         Me.SuperTabControlPanel7.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel7.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel7.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel7.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel7.Name = "SuperTabControlPanel7"
-        Me.SuperTabControlPanel7.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel7.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel7.TabIndex = 0
         Me.SuperTabControlPanel7.TabItem = Me.Dokumente
         '
-        'ClsDokumente1
-        '
-        Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
-        Me.ClsDokumente1.Name = "ClsDokumente1"
-        Me.ClsDokumente1.Patientnr = 0
-        Me.ClsDokumente1.Size = New System.Drawing.Size(1278, 612)
-        Me.ClsDokumente1.TabIndex = 0
-        '
         'Dokumente
         '
         Me.Dokumente.AttachedControl = Me.SuperTabControlPanel7
@@ -335,21 +317,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel6.Controls.Add(Me.Recall1)
         Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel6.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
-        Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel6.TabIndex = 0
         Me.SuperTabControlPanel6.TabItem = Me.Recall
         '
-        'Recall1
-        '
-        Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Recall1.Location = New System.Drawing.Point(0, 0)
-        Me.Recall1.Name = "Recall1"
-        Me.Recall1.Patientnr = 0
-        Me.Recall1.Size = New System.Drawing.Size(1278, 612)
-        Me.Recall1.TabIndex = 0
-        '
         'Recall
         '
         Me.Recall.AttachedControl = Me.SuperTabControlPanel6
@@ -361,22 +335,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
         Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
-        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel3.TabIndex = 0
         Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
         '
-        'Behandlung1
-        '
-        Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Behandlung1.HasChanges = False
-        Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
-        Me.Behandlung1.Name = "Behandlung1"
-        Me.Behandlung1.PatientNr = 0
-        Me.Behandlung1.Size = New System.Drawing.Size(1278, 612)
-        Me.Behandlung1.TabIndex = 0
-        '
         'Behandlungen
         '
         Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
@@ -388,22 +353,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel2.Controls.Add(Me.PatientAbrechnung1)
         Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel2.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
-        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel2.TabIndex = 0
         Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
         '
-        'PatientAbrechnung1
-        '
-        Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.PatientAbrechnung1.HasChanges = False
-        Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
-        Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
-        Me.PatientAbrechnung1.PatientNr = 0
-        Me.PatientAbrechnung1.Size = New System.Drawing.Size(1278, 612)
-        Me.PatientAbrechnung1.TabIndex = 0
-        '
         'Abrechnung
         '
         Me.Abrechnung.AttachedControl = Me.SuperTabControlPanel2
@@ -415,21 +371,13 @@ Partial Class Patient
         '
         Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
         Me.SuperTabControlPanel5.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel5.Margin = New System.Windows.Forms.Padding(4)
         Me.SuperTabControlPanel5.Name = "SuperTabControlPanel5"
-        Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1278, 612)
+        Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1704, 755)
         Me.SuperTabControlPanel5.TabIndex = 0
         Me.SuperTabControlPanel5.TabItem = Me.Finanzen
         '
-        'Finanzen1
-        '
-        Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
-        Me.Finanzen1.Name = "Finanzen1"
-        Me.Finanzen1.Patientnr = 0
-        Me.Finanzen1.Size = New System.Drawing.Size(1278, 612)
-        Me.Finanzen1.TabIndex = 0
-        '
         'Finanzen
         '
         Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
@@ -440,10 +388,12 @@ Partial Class Patient
         'MenuStrip1
         '
         Me.MenuStrip1.AllowMerge = False
+        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(1278, 24)
+        Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1704, 30)
         Me.MenuStrip1.TabIndex = 19
         Me.MenuStrip1.Text = "MenuStrip1"
         '
@@ -451,37 +401,142 @@ Partial Class Patient
         '
         Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
         Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
-        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(59, 26)
         Me.DateiToolStripMenuItem.Text = "&Datei"
         '
         'BeendenToolStripMenuItem
         '
         Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
-        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(150, 26)
         Me.BeendenToolStripMenuItem.Text = "&Beenden"
         '
         'Label1
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(928, 0)
+        Me.Label1.Location = New System.Drawing.Point(1237, 0)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(63, 20)
+        Me.Label1.Size = New System.Drawing.Size(77, 25)
         Me.Label1.TabIndex = 20
         Me.Label1.Text = "Label1"
         Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
+        'Stammdaten_Firma
+        '
+        Me.Stammdaten_Firma.AttachedControl = Me.SuperTabControlPanel8
+        Me.Stammdaten_Firma.GlobalItem = False
+        Me.Stammdaten_Firma.Name = "Stammdaten_Firma"
+        Me.Stammdaten_Firma.Text = "Stammdaten"
+        '
+        'SuperTabControlPanel8
+        '
+        Me.SuperTabControlPanel8.Controls.Add(Me.PatientDetailsFirma1)
+        Me.SuperTabControlPanel8.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel8.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel8.Name = "SuperTabControlPanel8"
+        Me.SuperTabControlPanel8.Size = New System.Drawing.Size(1704, 755)
+        Me.SuperTabControlPanel8.TabIndex = 0
+        Me.SuperTabControlPanel8.TabItem = Me.Stammdaten_Firma
+        '
+        'PatientDetails1
+        '
+        Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientDetails1.HasChanges = False
+        Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientDetails1.Margin = New System.Windows.Forms.Padding(5)
+        Me.PatientDetails1.Name = "PatientDetails1"
+        Me.PatientDetails1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
+        Me.PatientDetails1.PatientNr = 0
+        Me.PatientDetails1.Size = New System.Drawing.Size(1704, 755)
+        Me.PatientDetails1.TabIndex = 17
+        '
+        'Krankengeschichte1
+        '
+        Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
+        Me.Krankengeschichte1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Krankengeschichte1.Name = "Krankengeschichte1"
+        Me.Krankengeschichte1.Patientnr = 0
+        Me.Krankengeschichte1.Size = New System.Drawing.Size(1704, 755)
+        Me.Krankengeschichte1.TabIndex = 0
+        '
+        'ClsDokumente1
+        '
+        Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
+        Me.ClsDokumente1.Margin = New System.Windows.Forms.Padding(5)
+        Me.ClsDokumente1.Name = "ClsDokumente1"
+        Me.ClsDokumente1.Patientnr = 0
+        Me.ClsDokumente1.Size = New System.Drawing.Size(1704, 755)
+        Me.ClsDokumente1.TabIndex = 0
+        '
+        'Recall1
+        '
+        Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Recall1.Location = New System.Drawing.Point(0, 0)
+        Me.Recall1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Recall1.Name = "Recall1"
+        Me.Recall1.Patientnr = 0
+        Me.Recall1.Size = New System.Drawing.Size(1704, 755)
+        Me.Recall1.TabIndex = 0
+        '
+        'Finanzen1
+        '
+        Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
+        Me.Finanzen1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Finanzen1.Name = "Finanzen1"
+        Me.Finanzen1.Patientnr = 0
+        Me.Finanzen1.Size = New System.Drawing.Size(1704, 755)
+        Me.Finanzen1.TabIndex = 0
+        '
+        'Behandlung1
+        '
+        Me.Behandlung1.Auftragsmanagement = False
+        Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Behandlung1.HasChanges = False
+        Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
+        Me.Behandlung1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Behandlung1.Name = "Behandlung1"
+        Me.Behandlung1.PatientNr = 0
+        Me.Behandlung1.Size = New System.Drawing.Size(1704, 755)
+        Me.Behandlung1.TabIndex = 0
+        '
+        'PatientAbrechnung1
+        '
+        Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientAbrechnung1.HasChanges = False
+        Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientAbrechnung1.Margin = New System.Windows.Forms.Padding(5)
+        Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
+        Me.PatientAbrechnung1.PatientNr = 0
+        Me.PatientAbrechnung1.Size = New System.Drawing.Size(1704, 755)
+        Me.PatientAbrechnung1.TabIndex = 0
+        '
+        'PatientDetailsFirma1
+        '
+        Me.PatientDetailsFirma1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientDetailsFirma1.HasChanges = False
+        Me.PatientDetailsFirma1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientDetailsFirma1.Name = "PatientDetailsFirma1"
+        Me.PatientDetailsFirma1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
+        Me.PatientDetailsFirma1.PatientNr = 0
+        Me.PatientDetailsFirma1.Size = New System.Drawing.Size(1704, 755)
+        Me.PatientDetailsFirma1.TabIndex = 0
+        '
         'Patient
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1278, 686)
+        Me.ClientSize = New System.Drawing.Size(1704, 844)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.SuperTabControl1)
         Me.Controls.Add(Me.ToolStrip1)
         Me.Controls.Add(Me.MenuStrip1)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.MainMenuStrip = Me.MenuStrip1
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "Patient"
         Me.ShowInTaskbar = False
         Me.Text = "Patient"
@@ -498,6 +553,7 @@ Partial Class Patient
         Me.SuperTabControlPanel5.ResumeLayout(False)
         Me.MenuStrip1.ResumeLayout(False)
         Me.MenuStrip1.PerformLayout()
+        Me.SuperTabControlPanel8.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -544,4 +600,7 @@ Partial Class Patient
     Friend WithEvents SuperTabControlPanel7 As DevComponents.DotNetBar.SuperTabControlPanel
     Friend WithEvents Dokumente As DevComponents.DotNetBar.SuperTabItem
     Friend WithEvents ClsDokumente1 As clsDokumente
+    Friend WithEvents SuperTabControlPanel8 As DevComponents.DotNetBar.SuperTabControlPanel
+    Friend WithEvents Stammdaten_Firma As DevComponents.DotNetBar.SuperTabItem
+    Friend WithEvents PatientDetailsFirma1 As PatientDetailsFirma
 End Class

DPM2016/Patient/Patient.resx

@@ -124,7 +124,7 @@
   <data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
         PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
         PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
         ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
@@ -142,7 +142,7 @@
   <data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
         Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
         AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
         Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
@@ -157,7 +157,7 @@
   <data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
         dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
         AElFTkSuQmCC
 </value>
@@ -165,7 +165,7 @@
   <data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
         +sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
         /eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
         ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
@@ -180,7 +180,7 @@
   <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
         gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
         VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
         mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
@@ -196,7 +196,7 @@
   <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
         dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
         vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
         809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
@@ -212,7 +212,7 @@
   <data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
         ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
         mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
         y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
@@ -248,7 +248,7 @@
   <data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
         dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
         JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
         /+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
@@ -275,7 +275,7 @@
   <data name="tsbtnnext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
         CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
         8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
         mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
@@ -303,7 +303,7 @@
   <data name="tsbtnlast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
         KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
         oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
         txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
@@ -339,7 +339,7 @@
   <data name="tsbtnVTX.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACMAAAAhCAYAAABTERJSAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA1NSURBVFhHbVf3W1RnGt2/YXef/LCrERBmYAYYerMmKhbq
+        YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA1NSURBVFhHbVf3W1RnGt2/YXef/LCrERBmYAYYerMmKhbq
         MH2GoWliYrK6pmgSNeGJaBCDNEFAivTepIOgEhuKYRyCGluwoBEFE6xY9uy5V58Vk/3hZYZ7v7nfue93
         3vOe9y9/j6vDzNgW2Kmb4WXqgzy4FW7aTjhoqiFbVY+3zfsgWVkKe30RXM11mB1aC9fIXtjqD0Ji7oOD
         thmOmkY4aushZcgMTZBFNkNqbIW9bj+kho6XYWxj8LqpAdLIakjNZfA07cIJ6yX8ZDkuxl/eiqnBzKh6
@@ -402,7 +402,7 @@
   <data name="btnVTX.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACEAAAAhCAYAAABX5MJvAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAADF1JREFUWEftV/lXk2ca7d8wM6c/zEgFhAQSSMK+iEurgrKH7Alh09bWdnSsrbZ1
+        wAAADsABataJCQAADF1JREFUWEftV/lXk2ca7d8wM6c/zEgFhAQSSMK+iEurgrKH7Alh09bWdnSsrbZ1
         4yhYBNlllbDvEBbZUdyqraitjB6XutUNrFSwUjdc5s79Ek7P/BGTc14Svu/9vve+z3Of+9z3nb+lWOGQ
         3AtndQ98TScgjeyDQjsEV00rJGs68J65GqLV9XDR10BmtmJBdDtk8UfgpD8KkfkEXLU9cNN0wU3bATGH
         xNANSXwPxMY+uOgOQmwYtA9jPwevmzohjm+F2NwAH1MO3hE+7ya1wSGhA/MiGuClG4Qitgd+hiE+2AFH

DPM2016/Patient/Patient.vb

@@ -9,7 +9,13 @@
             Cursor = Cursors.WaitCursor
             Globals.OnLoad = True
             m_nrpatient = value
-            Me.PatientDetails1.PatientNr = value
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                Me.PatientDetailsFirma1.PatientNr = value
+            Else
+                Me.PatientDetails1.PatientNr = value
+            End If
+
+
             Me.PatientAbrechnung1.PatientNr = value
             Me.Behandlung1.PatientNr = value
             Me.Finanzen1.Patientnr = value
@@ -37,6 +43,7 @@
     Function detail_has_changes()
         Dim res As Boolean = False
         If Me.PatientDetails1.HasChanges Then res = True
+        If Me.PatientDetailsFirma1.HasChanges Then res = True
         If PatientAbrechnung1.HasChanges Then res = True
         If res = True Then
             Dim qres As MsgBoxResult
@@ -78,11 +85,18 @@
         Dim db1 As New clsDB
         If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
             'Me.PatientDetails1.chklbAdresstyp.Visible = False
+            Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
+            Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = True
             Me.PatientDetails1.Label13.Visible = False
+            Me.PatientDetailsFirma1.Label13.Visible = False
             Me.SuperTabControl1.Tabs("Behandlungen").Text = "Projekte"
             Me.SuperTabControl1.Tabs("Recall").Visible = False
             Me.SuperTabControl1.Tabs("Abrechnung").Visible = False
             Me.PatientDetails1.lblName.Text = "Name/Firma"
+        Else
+            Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
+            Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
+
         End If
         If UCase(db1.Get_Option("60020")) = "FALSE" Then Exit Sub
         Try
@@ -118,8 +132,13 @@
     End Sub
 
     Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
+
         If nr = Me.PatientNr Then Me.Text = name
-        Me.Label1.Text = PatientDetails1.Patientname
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            Me.Label1.Text = PatientDetailsFirma1.Patientname
+        Else
+            Me.Label1.Text = PatientDetails1.Patientname
+        End If
         Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
     End Sub
 
@@ -133,8 +152,13 @@
 
     Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
         If Me.PatientNr = Nr Then
-            Me.Text = PatientDetails1.Patientname
-            Me.Label1.Text = PatientDetails1.Patientname
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                Me.Text = PatientDetailsFirma1.Patientname
+                Me.Label1.Text = PatientDetailsFirma1.Patientname
+            Else
+                Me.Text = PatientDetails1.Patientname
+                Me.Label1.Text = PatientDetails1.Patientname
+            End If
         End If
 
     End Sub

DPM2016/Patient/subclasses/PatientDetailsFirma.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

DPM2016/Patient/subclasses/PatientDetailsFirma.vb

@@ -0,0 +1,563 @@
+Imports DPM2016.MyCombobox
+Public Class PatientDetailsFirma
+#Region "Properties"
+    Dim m_patientnr As Integer
+
+    Property PatientNr As Integer
+        Get
+            Return m_patientnr
+        End Get
+        Set(value As Integer)
+            Try
+                m_patientnr = value
+                Fill_Stammdaten()
+                log.Writelog("Partnerdetails: Get_Data Start", clsLog.Logtype.Information)
+                Get_Data()
+                log.Writelog("Partnerdetails: Get_Data Ende", clsLog.Logtype.Information)
+                AddChanges(Me)
+                Me.cbboxNrAnrede.Select()
+                Me.HasChanges = False
+                Globals.EVH.Fire_PatName_Changed(Me.Patientname, Me.PatientNr)
+
+            Catch ex As Exception
+                log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
+            End Try
+        End Set
+    End Property
+
+    Dim m_patname As String
+    Property Patientname As String
+        Get
+            Return Me.txtnrprivat.Text + " " + Me.txtName.Text + " " + Me.txtVorname.Text + " " + Me.txtOrt.Text
+        End Get
+        Set(value As String)
+
+        End Set
+    End Property
+
+    Dim m_haschanges As Boolean
+    Property HasChanges As Boolean
+        Get
+            Return m_haschanges
+        End Get
+        Set(value As Boolean)
+            m_haschanges = value
+        End Set
+    End Property
+
+#End Region
+
+#Region "Deklarationen"
+    Dim DB As New clsDB
+    Dim FormReadonly As Boolean = False
+    Dim log As New clsLog
+    Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
+
+#End Region
+
+#Region "Closing / Check_Changes"
+
+    ''' <summary>
+    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
+    ''' </summary>
+    ''' <remarks></remarks>
+    Private Function Check_Changes() As Boolean
+        If Me.FormReadonly Then
+            Return True
+            Exit Function
+        End If
+        Dim msgres As MsgBoxResult
+        If Me.HasChanges Then
+            msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
+            Select Case msgres
+                Case MsgBoxResult.Yes
+                    Save_Data()
+                    Return True
+                Case MsgBoxResult.Cancel
+                    Return False
+                Case MsgBoxResult.No
+                    Me.HasChanges = False
+                    Return True
+            End Select
+        Else
+            Return True
+        End If
+    End Function
+
+#End Region
+
+#Region "Eventhandler ChangeEreignisse"
+    ''' <summary>
+    ''' Allg Eventhandler für Chanage-Ereignise festlegen
+    ''' </summary>
+    ''' <param name="Container"></param>
+    ''' <remarks></remarks>
+    Private Sub AddChanges(ByVal Container As Control)
+        Dim l As New List(Of Control)
+        Me.GetControl(Me, "*", l)
+        Dim evh As EventHandler = AddressOf ChangesMade
+        For Each c As Control In l
+            If TypeOf c Is TextBox Then
+                Dim ctl As TextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is MaskedTextBox Then
+                Dim ctl As MaskedTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is ComboBox Then
+                Dim ctl As ComboBox = c
+                AddHandler ctl.SelectedValueChanged, evh
+            End If
+            If TypeOf c Is RichTextBox Then
+                Dim ctl As RichTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is CheckBox Then
+                If c.Name <> "cboxNurAktive" Then
+                    Dim ctl As CheckBox = c
+                    AddHandler ctl.CheckedChanged, evh
+                End If
+            End If
+            If TypeOf c Is DateTimePicker Then
+                Dim ctl As DateTimePicker = c
+                AddHandler ctl.ValueChanged, evh
+            End If
+            If TypeOf c Is CheckedListBox Then
+                Dim ctl As CheckedListBox = c
+                AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
+            End If
+        Next
+    End Sub
+    ''' <summary>
+    ''' Envent-Handler für Change-Ereignisse
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    ''' <remarks></remarks>
+    Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
+        Me.HasChanges = True
+        Dim objtype As System.Type = sender.GetType
+        If objtype.Name = "MaskedTextBox" Then
+            Dim o As MaskedTextBox = sender
+            If o.Text = "01.01.1900" Then o.Text = "  .  .    "
+        End If
+    End Sub
+
+    Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
+        Me.HasChanges = True
+    End Sub
+
+
+    ''' <summary>
+    ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
+    ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
+    ''' </summary>
+    ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
+    ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
+    ''' <param name="L">Liste der gefundenen Objekte</param>
+    ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+    ''' </returns>
+    ''' <remarks></remarks>
+    Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
+        If L Is Nothing Then L = New List(Of Control)
+        Dim Gut As Boolean
+        Dim ReturnFlag As Boolean = False
+        If Key IsNot Nothing Then Key = Key.ToLower
+
+        If BaseControl.HasChildren = True Then
+            For Each ctl As Control In BaseControl.Controls
+                Gut = False
+                If Key Is Nothing Then
+                    Gut = True
+                Else
+                    If ctl.Name.Length >= Key.Length Then
+                        Key = Key.ToLower
+                        If Key.StartsWith("*") Then
+                            If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
+                        ElseIf Key.EndsWith("*") Then
+                            If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
+                        Else
+                            If Key = ctl.Name.ToLower Then Gut = True
+                        End If
+                    End If
+                End If
+
+                If Gut = True Then
+                    L.Add(ctl)
+                    If ReturnAtFirstElement = True Then ReturnFlag = True
+                End If
+                If ReturnFlag = False Then
+                    Call GetControl(ctl, Key, L)
+                End If
+            Next
+        End If
+
+        If L.Count - 1 > -1 Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+#End Region
+
+#Region "Daten_Laden"
+
+    Public Sub Fill_Stammdaten()
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            chklbAdresstyp.Items.Clear()
+            chklbAdresstyp.Items.Add("Leistungserbringer")
+
+        End If
+        log.Writelog("PartnerDetails: Fill_Stammdaten", clsLog.Logtype.Information)
+        Me.cbboxNrAnrede.Table = "Anrede"
+        Me.cbboxNrAnrede.Displaymember = "Anrede_D"
+        Me.cbboxNrAnrede.Valuemember = "NRANREDE"
+
+        Me.cbboxNRTitel.Table = "Titel"
+        Me.cbboxNRTitel.Displaymember = "Titel_D"
+        Me.cbboxNRTitel.Valuemember = "NRTITEL"
+
+        Me.cbboxSprache.Table = "Sprache"
+        Me.cbboxSprache.Displaymember = "Sprachbezeichnung"
+        Me.cbboxSprache.Valuemember = "Sprachcode"
+
+        Me.cbboxStatus.Table = "Status"
+        Me.cbboxStatus.Displaymember = "Status"
+        Me.cbboxStatus.Valuemember = "nrstatus"
+
+        Me.cbboxGeschlecht.Table = "Geschlecht"
+        Me.cbboxGeschlecht.Displaymember = "Geschlecht"
+        Me.cbboxGeschlecht.Valuemember = "NrGeschlecht"
+
+        Me.cbboxNRArbeitgeber.Dataselection = DB.Get_SQL(1)
+        Me.cbboxNRArbeitgeber.Table = "Arbeitgeber"
+        Me.cbboxNRArbeitgeber.Displaymember = "Firmenname"
+        Me.cbboxNRArbeitgeber.Valuemember = "nrfirma"
+        Try
+            Me.ClsStammdaten_flat1.Tablename = "PADM_Ansprechpartner"
+            Me.ClsStammdaten_flat1.SQL = "Select * from padm_ansprechpartner where aktiv=1 and nrprivat=" + Me.PatientNr.ToString
+            Me.ClsStammdaten_flat1.get_data()
+            Me.ClsStammdaten_flat1.ToolStripButton5.Visible = False
+        Catch
+        End Try
+
+        log.Writelog("PartnerDetails: Fill_Stammdaten Ende", clsLog.Logtype.Information)
+
+    End Sub
+
+    Sub Get_Data()
+        Dim ctlname As String
+        Dim colname As String
+        Try
+            If Globals.Hide_Gueltig_bis Then
+                Me.Label15.Visible = False
+                Me.dtgueltigbis.Visible = False
+            End If
+
+            DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+            Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+            For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+
+                colname = c.ColumnName
+                Debug.Print(colname)
+                For Each Ctl As Control In Me.Controls
+                    'Dim objtype As System.Type = Ctl.GetType
+                    'If objtype.Name = "Label" Then
+                    '    Exit For
+                    'End If
+                    ctlname = Ctl.Name
+                    log.Writelog("Partnerdtails: Get_Data: " + Ctl.Name, clsLog.Logtype.Information)
+                    If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Ctl.Text = r(c.ColumnName).ToString
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim ct As MyCombobox
+                        Dim o As Object = Ctl
+                        Try
+                            o.SelectedValue = r(c.ColumnName)
+                        Catch
+                            o.SelectedValue = -1
+                        End Try
+
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim ct As ComboBox
+                        Dim o As Object = Ctl
+                        Try
+                            o.text = r(c.ColumnName)
+                        Catch
+                            o.Text = ""
+                        End Try
+
+                        Exit For
+                    End If
+
+                    If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim dt As DateTimePicker
+                        dt = Ctl
+                        'Try
+                        '    dt.Value = r(c.ColumnName)
+                        'Catch
+                        '    dt.Value = "  .  .    "
+                        'End Try
+
+                        Try
+                            dt.Value = r(c.ColumnName)
+                            dt.Format = DateTimePickerFormat.Short
+                        Catch
+
+                            dt.CustomFormat = " "  'An empty SPACE
+                            dt.Format = DateTimePickerFormat.Custom
+
+                        End Try
+
+
+                        Exit For
+                    End If
+                    'If UCase(Ctl.Name) = "CHKMAIL_KOMMUNIKATION" Then
+                    '    MsgBox("Hallo")
+                    'End If
+                    'If UCase(r(c.ColumnName)) = "MAIL_KOMMUNIKATION" Then
+                    '    MsgBox("Bello")
+                    'End If
+                    If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                        Dim cb As CheckBox
+                        cb = Ctl
+
+                        Try
+                            cb.Checked = r(c.ColumnName)
+                        Catch ex As Exception
+
+                        End Try
+                        Exit For
+                    End If
+                Next
+                If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                    If LCase(c.ColumnName) = "behandler" Then
+                        Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                    End If
+                Else
+
+                    Select Case LCase(c.ColumnName)
+                        Case "patient"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "garant"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "gesvertreter"
+                            Set_Adresstype("Ges. Vertreter", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "hausarzt"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "zahnarzt"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "behandler"
+                            Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "dhpat"
+                            Set_Adresstype("DH-Patient", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "nichtaufbieten"
+                            Set_Adresstype("Nicht Aufbieten", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "nichtannehmen"
+                            Set_Adresstype("Nicht annehmen", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                        Case "betreibung"
+                            Set_Adresstype("Betreibung vorhanden", r(c.ColumnName).ToString)
+                            log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    End Select
+                End If
+
+            Next
+        Catch ex As Exception
+            log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
+        End Try
+    End Sub
+
+    Private Sub Set_Adresstype(ByVal feldname, value)
+        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+            If value <> False Then chklbAdresstyp.SetItemCheckState(0, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(0, CheckState.Unchecked)
+
+        End If
+        Dim i As Integer
+        For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+            If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                Try
+                    If value <> False Then chklbAdresstyp.SetItemCheckState(i, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                Catch ex As Exception
+                    chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                End Try
+            End If
+        Next
+    End Sub
+
+#End Region
+
+#Region "Daten speichern"
+
+    Public Sub Save_Data()
+        DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+        Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+
+        For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+            For Each Ctl As Control In Me.Controls
+                If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                    If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then
+                        r(c.ColumnName) = Ctl.Text
+                        Exit For
+                    End If
+                End If
+                If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = Ctl
+                    Try
+                        r(c.ColumnName) = o.selectedvalue
+                    Catch ex As Exception
+                        r(c.ColumnName) = 0
+                    End Try
+                    Exit For
+                End If
+                If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = Ctl
+                    Try
+                        r(c.ColumnName) = o.text
+                    Catch ex As Exception
+                        r(c.ColumnName) = ""
+                    End Try
+                    Exit For
+                End If
+                If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                    Dim dt As DateTimePicker
+                    dt = Ctl
+                    r(c.ColumnName) = dt.Value
+                    Exit For
+                End If
+
+                If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                    Dim cb As CheckBox
+                    cb = Ctl
+                    r(c.ColumnName) = cb.Checked
+                    Exit For
+                End If
+            Next
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                Select Case LCase(c.ColumnName)
+                    Case "behandler"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                End Select
+            Else
+                Select Case LCase(c.ColumnName)
+                    Case "patient"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "garant"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "gesvertreter"
+                        r(c.ColumnName) = Get_Adresstype("Ges. Vertreter", r(c.ColumnName))
+                    Case "hausarzt"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "zahnarzt"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "behandler"
+                        r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                    Case "dhpat"
+                        r(c.ColumnName) = Get_Adresstype("DH-Patient", r(c.ColumnName))
+                    Case "nichtaufbieten"
+                        r(c.ColumnName) = Get_Adresstype("nicht aufbieten", r(c.ColumnName))
+                    Case "nichtannehmen"
+                        r(c.ColumnName) = Get_Adresstype("nicht annehmen", r(c.ColumnName))
+                    Case "betreibung"
+                        r(c.ColumnName) = Get_Adresstype("Betreibung vorhanden", r(c.ColumnName))
+                End Select
+            End If
+
+        Next
+        r("Mutiert_am") = Now
+        r("mutierer") = Globals.ActUser
+        DB.Update_Data()
+        Me.HasChanges = False
+
+    End Sub
+
+    Private Function Get_Adresstype(ByVal feldname, value) As Integer
+        Try
+            If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
+                If UCase(feldname) = "BEHANDLER" Then Return chklbAdresstyp.GetItemChecked(0)
+            Else
+                Dim i As Integer
+                For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+                    If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                        Return chklbAdresstyp.GetItemChecked(i)
+                    End If
+                Next
+            End If
+        Catch
+            Return -1
+        End Try
+
+    End Function
+
+
+
+#End Region
+
+    Public Function Create_new()
+
+    End Function
+
+
+    Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
+        If Nr = Me.PatientNr Then
+            Me.Save_Data()
+        End If
+    End Sub
+
+    Private Sub cbboxNrAnrede_Leave(sender As Object, e As EventArgs) Handles txtVorname.Leave, txtName.Leave, cbboxNrAnrede.Leave, cbboxNRTitel.Leave
+        Dim alt As String = Me.txtBriefanrede.Text
+        Dim neu As String
+        If Me.cbboxNrAnrede.Text = "Frau" Then
+            neu = "Sehr geehrte Frau "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        Else
+            neu = "Sehr geehrter Herr "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        End If
+        If alt <> neu Then Me.txtBriefanrede.Text = neu
+    End Sub
+
+
+    Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPLZ.Leave
+        If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPLZ.Text, Me.txtOrt, Me.cbtxtboxKanton)
+    End Sub
+
+    Private Sub PatientDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub cbboxNrAnrede_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnrede.SelectedIndexChanged
+        If Me.cbboxNrAnrede.Text = "Herr" Then Me.cbboxGeschlecht.SelectedValue = 2 Else Me.cbboxGeschlecht.SelectedValue = 1
+    End Sub
+
+    Private Sub lblName_Click(sender As Object, e As EventArgs) Handles lblName.Click
+
+    End Sub
+
+    Private Sub txtName_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged
+
+    End Sub
+End Class

DPM2016/Program.vb

@@ -19,7 +19,7 @@ Module Program
                                                            Application.Run(splashForm)
                                                        End Sub))
         splashThread.SetApartmentState(ApartmentState.STA)
-        splashThread.Start()
+        'splashThread.Start()
 
         Application.Run(mainForm)
         mainForm.BringToFront()

DPM2016/Publish/20220630/Application Files/DPM2018_1_0_0_1/DPM2018.application

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="utf-8"?>
+<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
+  <assemblyIdentity name="DPM2018.application" version="1.0.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
+  <description asmv2:publisher="DPM2018" asmv2:product="DPM2018" xmlns="urn:schemas-microsoft-com:asm.v1" />
+  <deployment install="true" mapFileExtensions="true" />
+  <compatibleFrameworks xmlns="urn:schemas-microsoft-com:clickonce.v2">
+    <framework targetVersion="4.6" profile="Full" supportedRuntime="4.0.30319" />
+  </compatibleFrameworks>
+  <dependency>
+    <dependentAssembly dependencyType="install" codebase="Application Files\DPM2018_1_0_0_1\DPM2018.exe.manifest" size="41443">
+      <assemblyIdentity name="DPM2018.exe" version="1.0.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>26d09hJ7QRJOLw+mE0ynDZjJmy65z5gU60xT5lqve2Q=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+</asmv1:assembly>

DPM2016/Publish/20220630/Application Files/DPM2018_1_0_0_1/DPM2018.exe.config.deploy

@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+            <section name="DPM2016.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog" />
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information" />
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" /></startup>
+    <userSettings>
+        <DPM2016.My.MySettings>
+            <setting name="LogLevel" serializeAs="String">
+                <value>2</value>
+            </setting>
+            <setting name="TempPath" serializeAs="String">
+                <value>h:\dpm\dmp1\dmp2</value>
+            </setting>
+            <setting name="DocArchivPath" serializeAs="String">
+                <value>h:\dpm\docarchiv</value>
+            </setting>
+            <setting name="ConnectionString" serializeAs="String">
+                <value>data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+            <setting name="ConnectionStringMobie" serializeAs="String">
+                <value>data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+            </setting>
+            <setting name="APIKey" serializeAs="String">
+                <value>BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n</value>
+            </setting>
+            <setting name="IV" serializeAs="String">
+                <value>Q.6qYq0_C+mGmymX</value>
+            </setting>
+            <setting name="SecretKey" serializeAs="String">
+                <value>3hba8fOumOPrMG0.G?-mkF-scGOkPwyW</value>
+            </setting>
+            <setting name="WebAPI" serializeAs="String">
+                <value>http://192.168.111.67</value>
+            </setting>
+            <setting name="SoftwareType" serializeAs="String">
+                <value>PADM</value>
+            </setting>
+        </DPM2016.My.MySettings>
+    </userSettings>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="DevComponents.DotNetBar2" publicKeyToken="7eb7c3a35b91de04" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-12.9.0.0" newVersion="12.9.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Syncfusion.Shared.Base" publicKeyToken="3d67ed1f87d44c89" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-16.2350.0.41" newVersion="16.2350.0.41" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+</configuration>

DPM2016/Publish/20220630/Application Files/DPM2018_1_0_0_1/DPM2018.exe.manifest

@@ -0,0 +1,731 @@
+<?xml version="1.0" encoding="utf-8"?>
+<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
+  <asmv1:assemblyIdentity name="DPM2018.exe" version="1.0.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
+  <description asmv2:iconFile="DPMNeu.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
+  <application />
+  <entryPoint>
+    <assemblyIdentity name="DPM2018" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
+    <commandLine file="DPM2018.exe" parameters="" />
+  </entryPoint>
+  <trustInfo>
+    <security>
+      <applicationRequestMinimum>
+        <PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
+        <defaultAssemblyRequest permissionSetReference="Custom" />
+      </applicationRequestMinimum>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <!-- UAC-Manifestoptionen
+             Wenn Sie die Ebene der Benutzerkontensteuerung für Windows ändern möchten, ersetzen Sie den 
+             Knoten "requestedExecutionLevel" wie folgt.
+
+        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
+        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
+        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
+
+            Durch Angabe des Elements "requestedExecutionLevel" wird die Datei- und Registrierungsvirtualisierung deaktiviert. 
+            Entfernen Sie dieses Element, wenn diese Virtualisierung aus Gründen der Abwärtskompatibilität
+            für die Anwendung erforderlich ist.
+        -->
+        <requestedExecutionLevel level="asInvoker" uiAccess="false" />
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+  <dependency>
+    <dependentOS>
+      <osVersionInfo>
+        <os majorVersion="5" minorVersion="1" buildNumber="2600" servicePackMajor="0" />
+      </osVersionInfo>
+    </dependentOS>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
+      <assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="4.0.30319.0" />
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Aga.Controls.dll" size="86016">
+      <assemblyIdentity name="Aga.Controls" version="1.0.0.0" publicKeyToken="FCC90FBF924463A3" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>JU/E0O9QUSU4z52mw1MfM8HW/P2cCG36y8RuNBQE9/E=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="C1.Data.2.dll" size="783720">
+      <assemblyIdentity name="C1.Data.2" version="2.0.20141.273" publicKeyToken="900B028620CD3A1B" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>KoP4MFPtIPpuYdi596ZhFG36UQfpLRmBzWf4wgIl0FY=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="C1.Win.C1Command.2.dll" size="2574304">
+      <assemblyIdentity name="C1.Win.C1Command.2" version="2.0.20153.110" publicKeyToken="E808566F358766D8" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>ipHfUYlM1WpL1wZzUlQZRBYQxdVKC7ww96Hu5HGoByY=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="C1.Win.C1Command.4.dll" size="2328544">
+      <assemblyIdentity name="C1.Win.C1Command.4" version="4.0.20153.110" publicKeyToken="E808566F358766D8" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>LZCXuAA4KWfd6d5himjivInUTiseJEISMLPZ1q7R/vQ=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="C1.Win.C1Input.4.dll" size="2160608">
+      <assemblyIdentity name="C1.Win.C1Input.4" version="4.0.20153.110" publicKeyToken="7E7FF60F0C214F9A" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>YXpnMK5jsATYiliytt/7VHMqiJBOOgvjx8NFwBngHi0=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="C1.Win.C1TrueDBGrid.2.dll" size="1972200">
+      <assemblyIdentity name="C1.Win.C1TrueDBGrid.2" version="2.0.20153.110" publicKeyToken="75AE3FB0E2B1E0DA" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>Icd1jj+Kvlb94cEgv3chdv6Wf27hZh+KIA0ZRg1pZ9s=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DevComponents.DotNetBar.Charts.dll" size="722944">
+      <assemblyIdentity name="DevComponents.DotNetBar.Charts" version="12.7.0.8" publicKeyToken="7EB7C3A35B91DE04" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>d5BU2IT2VV5V9H1eeFwMVqrHI2LCfyLEXhU4/aygU38=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DevComponents.DotNetBar.Schedule.dll" size="508416">
+      <assemblyIdentity name="DevComponents.DotNetBar.Schedule" version="12.9.0.0" publicKeyToken="7EB7C3A35B91DE04" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>O03kOGdfM9+NUl7BNo8sDuitSJQR17FZXMmxhiHeV44=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DevComponents.DotNetBar2.dll" size="5582848">
+      <assemblyIdentity name="DevComponents.DotNetBar2" version="12.9.0.0" publicKeyToken="7EB7C3A35B91DE04" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>Y22jqxqpi6u/od9UVk8h8Vr6REdRb3abcHXkbpwQD1Q=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DevComponents.TreeGX.dll" size="438272">
+      <assemblyIdentity name="DevComponents.TreeGX" version="12.7.0.8" publicKeyToken="055DB68F670CFEAB" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>Yh4JxnvP4BbsBuooDtLBea9dtDt4ghlNAsLFoITgif8=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="DPM2018.exe" size="6913536">
+      <assemblyIdentity name="DPM2018" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>QEJjG6e3rAnN1I6NdBdAnG+zc7d097oS0hshQTk7dxE=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.dll" size="6450184">
+      <assemblyIdentity name="FastReport" version="2022.2.0.0" publicKeyToken="DB7E5CE63278458C" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>+KmTMgJ/7vAfJM58Rzphh5TMi+dQmWtD1AfJrQUQrwk=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.Bars.dll" size="5239304">
+      <assemblyIdentity name="FastReport.Bars" version="2022.2.0.0" publicKeyToken="DB7E5CE63278458C" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>mnFAGHy0lVY5oAYgj7IlI2ef+uE36gghkaUDHqFkpf4=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.Compat.dll" size="29704">
+      <assemblyIdentity name="FastReport.Compat" version="2021.3.0.0" publicKeyToken="406E1F4C3C8EF97E" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>QNXNoBzim2V49+JB3kivjEStQrsikqd8lls5wQOGv6U=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.DataVisualization.dll" size="1621512">
+      <assemblyIdentity name="FastReport.DataVisualization" version="2021.3.0.0" publicKeyToken="5CEB240DF42BF6E8" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>0Vk1z0jmkXsS/ys1jNrze4DbeJyXw0qXtk60nkVngJM=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FastReport.Editor.dll" size="992776">
+      <assemblyIdentity name="FastReport.Editor" version="2022.2.0.0" publicKeyToken="DB7E5CE63278458C" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>raRaOvtc1f8JQLU7Hz4G8a8NSdrr/Uq5sS4WxHiNQ/c=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="FlexCel.dll" size="2363392">
+      <assemblyIdentity name="FlexCel" version="5.5.1.0" publicKeyToken="CB8F6080E6D5A4D6" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>Meir6IabPaye3GDIkfHQ2S58OFF1BkHDeV7aSpaQMpM=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.Core.dll" size="110592">
+      <assemblyIdentity name="Gnostice.Core" version="18.1.0.0" publicKeyToken="FC8CB3AB6A24DF63" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>VE7SaKOV+jNNS3Ni2H/rcTAIpaAXokUgU2HDgHPvgK0=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.Free.Documents.dll" size="7866368">
+      <assemblyIdentity name="Gnostice.Free.Documents" version="18.1.0.0" publicKeyToken="FC8CB3AB6A24DF63" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>Umg1wnzY1tccuofSRUUTKlIWU4wmWm8kthCUJ10aob0=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.Free.Documents.Controls.WinForms.dll" size="176640">
+      <assemblyIdentity name="Gnostice.Free.Documents.Controls.WinForms" version="18.1.0.0" publicKeyToken="FC8CB3AB6A24DF63" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>D72abgLC1I9PUZrhr3hJG+64Dwcl84cmJcLSCay6R6w=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.XtremeFontEngine.4.0.dll" size="712192">
+      <assemblyIdentity name="Gnostice.XtremeFontEngine.4.0" version="1.0.2021.425" publicKeyToken="461DE9DA64BE3A84" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>6THuietrNIZBNBm2qkeLLqYZ35NLxe2l7Yfpuu4midY=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Gnostice.XtremeImageEngine.dll" size="594944">
+      <assemblyIdentity name="Gnostice.XtremeImageEngine" version="12.0.1696.132" publicKeyToken="67E9A3A7C22F1690" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>pNGJXV07g2oW2mw+nBq3OvOrARJybpbNxPebMJcYaOc=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Ionic.Zlib.dll" size="102400">
+      <assemblyIdentity name="Ionic.Zlib" version="1.9.1.8" publicKeyToken="EDBE51AD942A3F5C" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>841UdnZdwdshJzKABmmiJ5TarjvTh90GA2azhNNnjbE=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="KP-ImageViewerV2.dll" size="67584">
+      <assemblyIdentity name="KP-ImageViewerV2" version="1.5.1.0" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>pf9qMBQB56NW1zW2eG5hdw2GVZvrRblrK1LdbmNU0zM=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MsgReader.dll" size="378368">
+      <assemblyIdentity name="MsgReader" version="3.6.1.0" publicKeyToken="3BA01CF3434959FA" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>70vYni89hl8KEmP5ZGGnL4VHtavroZmHcWsmE7P5qCI=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="de\MsgReader.resources.dll" size="13824">
+      <assemblyIdentity name="MsgReader.resources" version="3.6.1.0" publicKeyToken="3BA01CF3434959FA" language="de" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>Uv+ZAtv89LSuYAVmpIjK+G5Z2mbRqXF/l8WYJhaveoQ=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="es\MsgReader.resources.dll" size="13824">
+      <assemblyIdentity name="MsgReader.resources" version="3.6.1.0" publicKeyToken="3BA01CF3434959FA" language="es" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>az2ZzaDPDmQsLyAOI2gQf+1JyjuhvQr0RLEN7NwKA/c=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="fr\MsgReader.resources.dll" size="13824">
+      <assemblyIdentity name="MsgReader.resources" version="3.6.1.0" publicKeyToken="3BA01CF3434959FA" language="fr" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>7X56fvOHJrUmIfy6vUPlmFiqboysSBDNBPyqQgkaesA=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="nl\MsgReader.resources.dll" size="13824">
+      <assemblyIdentity name="MsgReader.resources" version="3.6.1.0" publicKeyToken="3BA01CF3434959FA" language="nl" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>OS0StxZPf9WpfactpCk1R9QvfEZ91sd/c3D5XZUqSyY=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="pt\MsgReader.resources.dll" size="13824">
+      <assemblyIdentity name="MsgReader.resources" version="3.6.1.0" publicKeyToken="3BA01CF3434959FA" language="pt" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>qOeonQf/zIy44t0zdulKEQFv6wbNfwtf+2veMnHs2yQ=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="zh-CN\MsgReader.resources.dll" size="13824">
+      <assemblyIdentity name="MsgReader.resources" version="3.6.1.0" publicKeyToken="3BA01CF3434959FA" language="zh-CN" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>8/Z5ezUxuoo3x4BDdK5YD296JUs5ni25jlIgWCJYWWA=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="zh-TW\MsgReader.resources.dll" size="13824">
+      <assemblyIdentity name="MsgReader.resources" version="3.6.1.0" publicKeyToken="3BA01CF3434959FA" language="zh-TW" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>YroZpkn+ylpTTzd8/wU4IqvB7svEKuD2K2vqPgvVqgY=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="MySql.Data.dll" size="698368">
+      <assemblyIdentity name="MySql.Data" version="8.0.12.0" publicKeyToken="C5687FC88969C44D" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>o1A1TiMHyyY2HLODhWlzi01juSSiEk3jKsgc9fnbhpo=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Newtonsoft.Json.dll" size="701992">
+      <assemblyIdentity name="Newtonsoft.Json" version="13.0.0.0" publicKeyToken="30AD4FE6B2A6AEED" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>tiSUnfiw46YVP9+3MKfG9JkLZZLuDZIuF4hDPSdmEPM=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="OpenMcdf.dll" size="60928">
+      <assemblyIdentity name="OpenMcdf" version="2.2.1.2" publicKeyToken="FDBB1629D7C00800" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>updVzBVQHuepY38OPgyOorWRbE8dlOAxLUGhDi153cg=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PropertyGridEx.dll" size="48128">
+      <assemblyIdentity name="PropertyGridEx" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>g+nWXc4h/DaKewOmkCJQA0uOR5aVfJrS29T7d3pRR8E=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="QRCoder.dll" size="152064">
+      <assemblyIdentity name="QRCoder" version="1.4.3.0" publicKeyToken="C4ED5B9AE8358A28" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>rTScIXrogbOz7SM+UgQ1dvvQqTOLMjxIn4/LQ1s5KsQ=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="RichTextBoxExtended.dll" size="90112">
+      <assemblyIdentity name="RichTextBoxExtended" version="1.1.8206.13696" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>2vTj+elWCk7aePclBr33rGIiYF9kBy31PiL7Xj8uBUc=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="RtfPipe.dll" size="140288">
+      <assemblyIdentity name="RtfPipe" version="1.0.0.0" publicKeyToken="317A45EC926873FC" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>PqGSYEmfTjtZh0kCZwaAteRDsA4e6nEuTd25X/JYt40=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="SHUKeyGen.dll" size="27136">
+      <assemblyIdentity name="SHUKeyGen" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>l/Nagf6Kd6t7vLe3r/8GI7RJR8CsScqbh/YCjOqgJwk=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Compression.Base.dll" size="77824">
+      <assemblyIdentity name="Syncfusion.Compression.Base" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>BJkS9SCFwYbOp+mx/pNwOAu5hVt2Y8jSB7wa4AcZVc0=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Core.WinForms.dll" size="471040">
+      <assemblyIdentity name="Syncfusion.Core.WinForms" version="16.3460.0.21" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>oDS7jOw2/Hhg6r7hjrGpfVjjnKNycAdiCEysPK2qkyI=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.DataSource.WinForms.dll" size="137728">
+      <assemblyIdentity name="Syncfusion.DataSource.WinForms" version="16.3460.0.21" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>Mlq1id846jRCoxPlPf7b+0UCKJLqUB+HfVnKOQK2GPM=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Grid.Base.dll" size="16384">
+      <assemblyIdentity name="Syncfusion.Grid.Base" version="18.3460.0.35" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>sBsA3Tp0iqFEM2+0Ld6gU6s71Z8A43UTRmI4sXA1CRY=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.GridCommon.WinForms.dll" size="129536">
+      <assemblyIdentity name="Syncfusion.GridCommon.WinForms" version="16.3460.0.21" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>PppMWyeOax1Ka2D6CWhkJEwjFUL47ebcFT+MRznNyBY=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Pdf.Base.dll" size="6098944">
+      <assemblyIdentity name="Syncfusion.Pdf.Base" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>t4Xi0ShrYKcpu4E7U6yQXNb4S5EFRusJOBeff9U4R3s=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.PdfViewer.Windows.dll" size="1893888">
+      <assemblyIdentity name="Syncfusion.PdfViewer.Windows" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>IIBVzhy6EYdd8gXI9sVU/NqxevRGxCADg9ULapTktOs=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.SfListView.WinForms.dll" size="205824">
+      <assemblyIdentity name="Syncfusion.SfListView.WinForms" version="16.3460.0.21" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>MnnC7vCAZEdgNV0TyQIuxUPCZnkMrhx+8M3UZwdn9fw=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Base.dll" size="4308992">
+      <assemblyIdentity name="Syncfusion.Shared.Base" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>THgqsOP8jM1MWtCbJSY8B94/YKQ4l8cDzNSu+SP7HdU=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Syncfusion.Shared.Windows.dll" size="36864">
+      <assemblyIdentity name="Syncfusion.Shared.Windows" version="16.2350.0.41" publicKeyToken="3D67ED1F87D44C89" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>Brwtr52FiQEEmKQX3ygNODbMfR2HklOGYyA+bmRkdAo=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="System.Net.Http.Formatting.DLL" size="168616">
+      <assemblyIdentity name="System.Net.Http.Formatting" version="4.0.0.0" publicKeyToken="31BF3856AD364E35" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>9oqTr6cUBmyNk9aw6JajAn4cQJGCdQVibVZpUSWBhJs=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <dependency>
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="XLSLib.dll" size="20992">
+      <assemblyIdentity name="XLSLib" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
+      <hash>
+        <dsig:Transforms>
+          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+        </dsig:Transforms>
+        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+        <dsig:DigestValue>w8XSYPGEVjxA37eFSMqRfvZGn7IX98GZz6D0rhAQ0OA=</dsig:DigestValue>
+      </hash>
+    </dependentAssembly>
+  </dependency>
+  <file name="Database1.mdf" size="3211264" writeableType="applicationData">
+    <hash>
+      <dsig:Transforms>
+        <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+      </dsig:Transforms>
+      <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+      <dsig:DigestValue>fqNYdpv05Nzre/YSFSiXZTjp6jtD8U4DfipoKXcs3Nw=</dsig:DigestValue>
+    </hash>
+  </file>
+  <file name="Database1_log.ldf" size="802816" writeableType="applicationData">
+    <hash>
+      <dsig:Transforms>
+        <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+      </dsig:Transforms>
+      <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+      <dsig:DigestValue>T92PpISzKuFvoRCaXDKcSaiMyMOICRIrhQVQN101KX8=</dsig:DigestValue>
+    </hash>
+  </file>
+  <file name="DPM2018.exe.config" size="4516">
+    <hash>
+      <dsig:Transforms>
+        <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+      </dsig:Transforms>
+      <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+      <dsig:DigestValue>IaVDJykS3T+/E78HSobZb/PRwAUull+7KpQZYT2d52E=</dsig:DigestValue>
+    </hash>
+  </file>
+  <file name="DPMNeu.ico" size="156974">
+    <hash>
+      <dsig:Transforms>
+        <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+      </dsig:Transforms>
+      <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+      <dsig:DigestValue>NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=</dsig:DigestValue>
+    </hash>
+  </file>
+  <file name="Zahlung\TextFile1.txt" size="70098">
+    <hash>
+      <dsig:Transforms>
+        <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
+      </dsig:Transforms>
+      <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
+      <dsig:DigestValue>/P0NdEUz8clHUcJM9ImDfBMA4l2BnekLEPsHffEA1UU=</dsig:DigestValue>
+    </hash>
+  </file>
+  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+    <application>
+      <!-- Eine Liste der Windows-Versionen, unter denen diese Anwendung getestet
+           und für die sie entwickelt wurde. Wenn Sie die Auskommentierung der entsprechenden Elemente aufheben, 
+           wird von Windows automatisch die kompatibelste Umgebung ausgewählt. -->
+      <!-- Windows Vista -->
+      <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
+      <!-- Windows 7 -->
+      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
+      <!-- Windows 8 -->
+      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
+      <!-- Windows 8.1 -->
+      <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
+      <!-- Windows 10 -->
+      <!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
+    </application>
+  </compatibility>
+</asmv1:assembly>