Update 6.12.23

DPM2016/Sysadmin/frmStammdaten.Designer.vb

@@ -1,300 +1,304 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmStammdaten
-    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.components = New System.ComponentModel.Container()
-        Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto")
-        Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Finanzen", New System.Windows.Forms.TreeNode() {TreeNode1})
-        Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Anreden")
-        Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Titel")
-        Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Orte")
-        Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Status")
-        Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Patienten", New System.Windows.Forms.TreeNode() {TreeNode3, TreeNode4, TreeNode5, TreeNode6})
-        Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif")
-        Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarife")
-        Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("TarifGruppe")
-        Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Taxpunkte")
-        Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarifpakete")
-        Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Paketpositionen")
-        Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar")
-        Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar_Parameter")
-        Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Zahntechnik (223)")
-        Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14, TreeNode15, TreeNode16})
-        Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
-        Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
-        Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Formulartyp / Einzahlungsschein")
-        Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
-        Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Standards")
-        Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstexte")
-        Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode18, TreeNode19, TreeNode20, TreeNode21, TreeNode22, TreeNode23})
-        Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Behandlungsart")
-        Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Gesetz")
-        Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse Stammdaten", New System.Windows.Forms.TreeNode() {TreeNode25, TreeNode26})
-        Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
-        Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting")
-        Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung_Statistiken", New System.Windows.Forms.TreeNode() {TreeNode28, TreeNode29})
-        Dim TreeNode31 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einstellungen")
-        Dim TreeNode32 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Struktur")
-        Dim TreeNode33 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("DokumentManagement", New System.Windows.Forms.TreeNode() {TreeNode31, TreeNode32})
-        Dim TreeNode34 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
-        Dim TreeNode35 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
-        Dim TreeNode36 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
-        Dim TreeNode37 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Absender")
-        Dim TreeNode38 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto-Angaben")
-        Dim TreeNode39 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte")
-        Dim TreeNode40 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte_Replacer")
-        Dim TreeNode41 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode34, TreeNode35, TreeNode36, TreeNode37, TreeNode38, TreeNode39, TreeNode40})
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten))
-        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
-        Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.DentotarImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.TreeView1 = New System.Windows.Forms.TreeView()
-        Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
-        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
-        Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
-        Me.MenuStrip1.SuspendLayout()
-        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.SuspendLayout()
-        '
-        'MenuStrip1
-        '
-        Me.MenuStrip1.AllowMerge = False
-        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem, Me.DentotarImportToolStripMenuItem})
-        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
-        Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
-        Me.MenuStrip1.Size = New System.Drawing.Size(1276, 28)
-        Me.MenuStrip1.TabIndex = 0
-        Me.MenuStrip1.Text = "MenuStrip1"
-        '
-        'SchliessenToolStripMenuItem
-        '
-        Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
-        Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(90, 24)
-        Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
-        '
-        'DentotarImportToolStripMenuItem
-        '
-        Me.DentotarImportToolStripMenuItem.Name = "DentotarImportToolStripMenuItem"
-        Me.DentotarImportToolStripMenuItem.Size = New System.Drawing.Size(133, 24)
-        Me.DentotarImportToolStripMenuItem.Text = "Dentotar-Import"
-        '
-        'TreeView1
-        '
-        Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
-        Me.TreeView1.Location = New System.Drawing.Point(0, 28)
-        Me.TreeView1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.TreeView1.Name = "TreeView1"
-        TreeNode1.Name = "Konto"
-        TreeNode1.Text = "Konto"
-        TreeNode2.Name = "Knoten0"
-        TreeNode2.Text = "Finanzen"
-        TreeNode3.Name = "Anrede"
-        TreeNode3.Text = "Anreden"
-        TreeNode4.Name = "Titel"
-        TreeNode4.Text = "Titel"
-        TreeNode5.Name = "Orte"
-        TreeNode5.Tag = "Demo"
-        TreeNode5.Text = "Orte"
-        TreeNode6.Name = "Status"
-        TreeNode6.Text = "Status"
-        TreeNode7.Name = "Knoten7"
-        TreeNode7.Text = "Patienten"
-        TreeNode8.Name = "Tarif"
-        TreeNode8.Tag = "Demo"
-        TreeNode8.Text = "Tarif"
-        TreeNode9.Name = "Tarife"
-        TreeNode9.Text = "Tarife"
-        TreeNode10.Name = "tarifgrp"
-        TreeNode10.Text = "TarifGruppe"
-        TreeNode11.Name = "Taxpunkt"
-        TreeNode11.Text = "Taxpunkte"
-        TreeNode12.Name = "Tarpaket"
-        TreeNode12.Text = "Tarifpakete"
-        TreeNode13.Name = "Paketpositionen"
-        TreeNode13.Tag = "nrpaket;paketbezeichnung;nrtarif;sso_nummer;TarPaket;Tarif;Paketpos"
-        TreeNode13.Text = "Paketpositionen"
-        TreeNode14.Name = "Dentotar"
-        TreeNode14.Tag = "Demo"
-        TreeNode14.Text = "Dentotar"
-        TreeNode15.Name = "Dentotar_Parameter"
-        TreeNode15.Tag = "Demo"
-        TreeNode15.Text = "Dentotar_Parameter"
-        TreeNode16.Name = "Dentotar_223"
-        TreeNode16.Text = "Zahntechnik (223)"
-        TreeNode17.Name = "Knoten8"
-        TreeNode17.Text = "Tarif"
-        TreeNode18.Name = "Ansatz"
-        TreeNode18.Tag = "Demo"
-        TreeNode18.Text = "Ansatz"
-        TreeNode19.Name = "Abrtyp"
-        TreeNode19.Text = "Abrechnungstyp"
-        TreeNode20.Name = "ESTyp"
-        TreeNode20.Text = "Formulartyp / Einzahlungsschein"
-        TreeNode21.Name = "RGTyp"
-        TreeNode21.Text = "Rechnungstyp"
-        TreeNode22.Name = "Standards"
-        TreeNode22.Text = "Standards"
-        TreeNode23.Name = "Rechtext"
-        TreeNode23.Text = "Rechnungstexte"
-        TreeNode24.Name = "Knoten14"
-        TreeNode24.Text = "Abrechnung"
-        TreeNode25.Name = "Behandlungsart"
-        TreeNode25.Text = "Behandlungsart"
-        TreeNode26.Name = "Gesetz"
-        TreeNode26.Tag = "Demo"
-        TreeNode26.Text = "Gesetz"
-        TreeNode27.Name = "Diverse Stammdaten"
-        TreeNode27.Text = "Diverse Stammdaten"
-        TreeNode28.Name = "Auswertung"
-        TreeNode28.Text = "Auswertung"
-        TreeNode29.Name = "Reporting"
-        TreeNode29.Text = "Reporting"
-        TreeNode30.Name = "Auswertung_Statistiken"
-        TreeNode30.Text = "Auswertung_Statistiken"
-        TreeNode31.Name = "dms_settings"
-        TreeNode31.Tag = "DMS"
-        TreeNode31.Text = "Einstellungen"
-        TreeNode32.Name = "DMS_Struktur"
-        TreeNode32.Tag = "DMS"
-        TreeNode32.Text = "Struktur"
-        TreeNode33.Name = "DokumentManagement"
-        TreeNode33.Tag = "DMS"
-        TreeNode33.Text = "DokumentManagement"
-        TreeNode34.Name = "Spalten"
-        TreeNode34.Text = "Spalten"
-        TreeNode35.Name = "Options"
-        TreeNode35.Text = "Options"
-        TreeNode36.Name = "User"
-        TreeNode36.Text = "User"
-        TreeNode37.Name = "Absender"
-        TreeNode37.Text = "Absender"
-        TreeNode38.Name = "vdkonti"
-        TreeNode38.Text = "Konto-Angaben"
-        TreeNode39.Name = "MailTexte"
-        TreeNode39.Text = "MailTexte"
-        TreeNode40.Name = "MailTexte_Replacer"
-        TreeNode40.Text = "MailTexte_Replacer"
-        TreeNode41.Name = "Diverse"
-        TreeNode41.Text = "Diverse"
-        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode17, TreeNode24, TreeNode27, TreeNode30, TreeNode33, TreeNode41})
-        Me.TreeView1.Size = New System.Drawing.Size(271, 525)
-        Me.TreeView1.TabIndex = 1
-        '
-        'C1TrueDBGrid1
-        '
-        Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
-        Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
-        Me.C1TrueDBGrid1.Location = New System.Drawing.Point(271, 28)
-        Me.C1TrueDBGrid1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
-        Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
-        Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
-        Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
-        Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
-        Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.C1TrueDBGrid1.Size = New System.Drawing.Size(1005, 525)
-        Me.C1TrueDBGrid1.TabIndex = 2
-        Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
-        Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
-        '
-        'OpenFileDialog1
-        '
-        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
-        Me.OpenFileDialog1.Filter = "Excel-Dateien|*.xlsx|Alle Dateien|*.*"
-        '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
-        '
-        'ContextMenuStrip2
-        '
-        Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
-        '
-        'ClsStammdaten_Bez1
-        '
-        Me.ClsStammdaten_Bez1.Connectionstring = Nothing
-        Me.ClsStammdaten_Bez1.KeyField_left = Nothing
-        Me.ClsStammdaten_Bez1.KeyField_right = Nothing
-        Me.ClsStammdaten_Bez1.Keyfieldbez_left = Nothing
-        Me.ClsStammdaten_Bez1.Keyfieldbez_right = Nothing
-        Me.ClsStammdaten_Bez1.Location = New System.Drawing.Point(767, 362)
-        Me.ClsStammdaten_Bez1.Margin = New System.Windows.Forms.Padding(5, 5, 5, 5)
-        Me.ClsStammdaten_Bez1.Name = "ClsStammdaten_Bez1"
-        Me.ClsStammdaten_Bez1.Size = New System.Drawing.Size(579, 209)
-        Me.ClsStammdaten_Bez1.TabIndex = 4
-        Me.ClsStammdaten_Bez1.Tablename_bottom = Nothing
-        Me.ClsStammdaten_Bez1.Tablename_left = Nothing
-        Me.ClsStammdaten_Bez1.Tablename_right = Nothing
-        '
-        'ClsStammdaten_flat1
-        '
-        Me.ClsStammdaten_flat1.Connectionstring = Nothing
-        Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(309, 69)
-        Me.ClsStammdaten_flat1.Margin = New System.Windows.Forms.Padding(5, 5, 5, 5)
-        Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
-        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(744, 286)
-        Me.ClsStammdaten_flat1.TabIndex = 3
-        Me.ClsStammdaten_flat1.Tablename = Nothing
-        '
-        'frmStammdaten
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1276, 553)
-        Me.Controls.Add(Me.ClsStammdaten_Bez1)
-        Me.Controls.Add(Me.ClsStammdaten_flat1)
-        Me.Controls.Add(Me.C1TrueDBGrid1)
-        Me.Controls.Add(Me.TreeView1)
-        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, 4, 4, 4)
-        Me.Name = "frmStammdaten"
-        Me.Text = "frmStammdaten"
-        Me.MenuStrip1.ResumeLayout(False)
-        Me.MenuStrip1.PerformLayout()
-        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
-    Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
-    Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
-    Friend WithEvents ClsStammdaten_flat1 As DPM2016.clsStammdaten_flat
-    Friend WithEvents ClsStammdaten_Bez1 As DPM2016.clsStammdaten_Bez
-    Friend WithEvents DentotarImportToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents OpenFileDialog1 As OpenFileDialog
-    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
-    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
-End Class
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmStammdaten
+    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.components = New System.ComponentModel.Container()
+        Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto")
+        Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Finanzen", New System.Windows.Forms.TreeNode() {TreeNode1})
+        Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Anreden")
+        Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Titel")
+        Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Orte")
+        Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Status")
+        Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Patienten", New System.Windows.Forms.TreeNode() {TreeNode3, TreeNode4, TreeNode5, TreeNode6})
+        Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif")
+        Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarife")
+        Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("TarifGruppe")
+        Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Taxpunkte")
+        Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarifpakete")
+        Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Paketpositionen")
+        Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar")
+        Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dentotar_Parameter")
+        Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Zahntechnik (223)")
+        Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Produkt Zusatz")
+        Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Produkt Zusatz Details")
+        Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Tarif", New System.Windows.Forms.TreeNode() {TreeNode8, TreeNode9, TreeNode10, TreeNode11, TreeNode12, TreeNode13, TreeNode14, TreeNode15, TreeNode16, TreeNode17, TreeNode18})
+        Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ansatz")
+        Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnungstyp")
+        Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Formulartyp / Einzahlungsschein")
+        Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstyp")
+        Dim TreeNode24 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Standards")
+        Dim TreeNode25 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Rechnungstexte")
+        Dim TreeNode26 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Abrechnung", New System.Windows.Forms.TreeNode() {TreeNode20, TreeNode21, TreeNode22, TreeNode23, TreeNode24, TreeNode25})
+        Dim TreeNode27 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Behandlungsart")
+        Dim TreeNode28 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Gesetz")
+        Dim TreeNode29 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse Stammdaten", New System.Windows.Forms.TreeNode() {TreeNode27, TreeNode28})
+        Dim TreeNode30 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung")
+        Dim TreeNode31 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Reporting")
+        Dim TreeNode32 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Auswertung_Statistiken", New System.Windows.Forms.TreeNode() {TreeNode30, TreeNode31})
+        Dim TreeNode33 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Einstellungen")
+        Dim TreeNode34 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Struktur")
+        Dim TreeNode35 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("DokumentManagement", New System.Windows.Forms.TreeNode() {TreeNode33, TreeNode34})
+        Dim TreeNode36 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Spalten")
+        Dim TreeNode37 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Options")
+        Dim TreeNode38 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("User")
+        Dim TreeNode39 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Absender")
+        Dim TreeNode40 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Konto-Angaben")
+        Dim TreeNode41 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte")
+        Dim TreeNode42 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("MailTexte_Replacer")
+        Dim TreeNode43 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Diverse", New System.Windows.Forms.TreeNode() {TreeNode36, TreeNode37, TreeNode38, TreeNode39, TreeNode40, TreeNode41, TreeNode42})
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStammdaten))
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DentotarImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TreeView1 = New System.Windows.Forms.TreeView()
+        Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ClsStammdaten_Bez1 = New DPM2016.clsStammdaten_Bez()
+        Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
+        Me.MenuStrip1.SuspendLayout()
+        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.AllowMerge = False
+        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem, Me.DentotarImportToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(4, 2, 0, 2)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1200, 24)
+        Me.MenuStrip1.TabIndex = 0
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'SchliessenToolStripMenuItem
+        '
+        Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
+        Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
+        Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
+        '
+        'DentotarImportToolStripMenuItem
+        '
+        Me.DentotarImportToolStripMenuItem.Name = "DentotarImportToolStripMenuItem"
+        Me.DentotarImportToolStripMenuItem.Size = New System.Drawing.Size(106, 20)
+        Me.DentotarImportToolStripMenuItem.Text = "Dentotar-Import"
+        '
+        'TreeView1
+        '
+        Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
+        Me.TreeView1.Location = New System.Drawing.Point(0, 24)
+        Me.TreeView1.Name = "TreeView1"
+        TreeNode1.Name = "Konto"
+        TreeNode1.Text = "Konto"
+        TreeNode2.Name = "Knoten0"
+        TreeNode2.Text = "Finanzen"
+        TreeNode3.Name = "Anrede"
+        TreeNode3.Text = "Anreden"
+        TreeNode4.Name = "Titel"
+        TreeNode4.Text = "Titel"
+        TreeNode5.Name = "Orte"
+        TreeNode5.Tag = "Demo"
+        TreeNode5.Text = "Orte"
+        TreeNode6.Name = "Status"
+        TreeNode6.Text = "Status"
+        TreeNode7.Name = "Knoten7"
+        TreeNode7.Text = "Patienten"
+        TreeNode8.Name = "Tarif"
+        TreeNode8.Tag = "Demo"
+        TreeNode8.Text = "Tarif"
+        TreeNode9.Name = "Tarife"
+        TreeNode9.Text = "Tarife"
+        TreeNode10.Name = "tarifgrp"
+        TreeNode10.Text = "TarifGruppe"
+        TreeNode11.Name = "Taxpunkt"
+        TreeNode11.Text = "Taxpunkte"
+        TreeNode12.Name = "Tarpaket"
+        TreeNode12.Text = "Tarifpakete"
+        TreeNode13.Name = "Paketpositionen"
+        TreeNode13.Tag = "nrpaket;paketbezeichnung;nrtarif;sso_nummer;TarPaket;Tarif;Paketpos"
+        TreeNode13.Text = "Paketpositionen"
+        TreeNode14.Name = "Dentotar"
+        TreeNode14.Tag = "Demo"
+        TreeNode14.Text = "Dentotar"
+        TreeNode15.Name = "Dentotar_Parameter"
+        TreeNode15.Tag = "Demo"
+        TreeNode15.Text = "Dentotar_Parameter"
+        TreeNode16.Name = "Dentotar_223"
+        TreeNode16.Text = "Zahntechnik (223)"
+        TreeNode17.Name = "ProduktZusatz"
+        TreeNode17.Text = "Produkt Zusatz"
+        TreeNode18.Name = "ProduktZusatzDetail"
+        TreeNode18.Text = "Produkt Zusatz Details"
+        TreeNode19.Name = "Knoten8"
+        TreeNode19.Text = "Tarif"
+        TreeNode20.Name = "Ansatz"
+        TreeNode20.Tag = "Demo"
+        TreeNode20.Text = "Ansatz"
+        TreeNode21.Name = "Abrtyp"
+        TreeNode21.Text = "Abrechnungstyp"
+        TreeNode22.Name = "ESTyp"
+        TreeNode22.Text = "Formulartyp / Einzahlungsschein"
+        TreeNode23.Name = "RGTyp"
+        TreeNode23.Text = "Rechnungstyp"
+        TreeNode24.Name = "Standards"
+        TreeNode24.Text = "Standards"
+        TreeNode25.Name = "Rechtext"
+        TreeNode25.Text = "Rechnungstexte"
+        TreeNode26.Name = "Knoten14"
+        TreeNode26.Text = "Abrechnung"
+        TreeNode27.Name = "Behandlungsart"
+        TreeNode27.Text = "Behandlungsart"
+        TreeNode28.Name = "Gesetz"
+        TreeNode28.Tag = "Demo"
+        TreeNode28.Text = "Gesetz"
+        TreeNode29.Name = "Diverse Stammdaten"
+        TreeNode29.Text = "Diverse Stammdaten"
+        TreeNode30.Name = "Auswertung"
+        TreeNode30.Text = "Auswertung"
+        TreeNode31.Name = "Reporting"
+        TreeNode31.Text = "Reporting"
+        TreeNode32.Name = "Auswertung_Statistiken"
+        TreeNode32.Text = "Auswertung_Statistiken"
+        TreeNode33.Name = "dms_settings"
+        TreeNode33.Tag = "DMS"
+        TreeNode33.Text = "Einstellungen"
+        TreeNode34.Name = "DMS_Struktur"
+        TreeNode34.Tag = "DMS"
+        TreeNode34.Text = "Struktur"
+        TreeNode35.Name = "DokumentManagement"
+        TreeNode35.Tag = "DMS"
+        TreeNode35.Text = "DokumentManagement"
+        TreeNode36.Name = "Spalten"
+        TreeNode36.Text = "Spalten"
+        TreeNode37.Name = "Options"
+        TreeNode37.Text = "Options"
+        TreeNode38.Name = "User"
+        TreeNode38.Text = "User"
+        TreeNode39.Name = "Absender"
+        TreeNode39.Text = "Absender"
+        TreeNode40.Name = "vdkonti"
+        TreeNode40.Text = "Konto-Angaben"
+        TreeNode41.Name = "MailTexte"
+        TreeNode41.Text = "MailTexte"
+        TreeNode42.Name = "MailTexte_Replacer"
+        TreeNode42.Text = "MailTexte_Replacer"
+        TreeNode43.Name = "Diverse"
+        TreeNode43.Text = "Diverse"
+        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode2, TreeNode7, TreeNode19, TreeNode26, TreeNode29, TreeNode32, TreeNode35, TreeNode43})
+        Me.TreeView1.Size = New System.Drawing.Size(204, 425)
+        Me.TreeView1.TabIndex = 1
+        '
+        'C1TrueDBGrid1
+        '
+        Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
+        Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
+        Me.C1TrueDBGrid1.Location = New System.Drawing.Point(204, 24)
+        Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
+        Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
+        Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.C1TrueDBGrid1.Size = New System.Drawing.Size(996, 425)
+        Me.C1TrueDBGrid1.TabIndex = 2
+        Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
+        Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        Me.OpenFileDialog1.Filter = "Excel-Dateien|*.xlsx|Alle Dateien|*.*"
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+        '
+        'ContextMenuStrip2
+        '
+        Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
+        '
+        'ClsStammdaten_Bez1
+        '
+        Me.ClsStammdaten_Bez1.Connectionstring = Nothing
+        Me.ClsStammdaten_Bez1.KeyField_left = Nothing
+        Me.ClsStammdaten_Bez1.KeyField_right = Nothing
+        Me.ClsStammdaten_Bez1.Keyfieldbez_left = Nothing
+        Me.ClsStammdaten_Bez1.Keyfieldbez_right = Nothing
+        Me.ClsStammdaten_Bez1.Location = New System.Drawing.Point(575, 294)
+        Me.ClsStammdaten_Bez1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.ClsStammdaten_Bez1.Name = "ClsStammdaten_Bez1"
+        Me.ClsStammdaten_Bez1.Size = New System.Drawing.Size(434, 170)
+        Me.ClsStammdaten_Bez1.TabIndex = 4
+        Me.ClsStammdaten_Bez1.Tablename_bottom = Nothing
+        Me.ClsStammdaten_Bez1.Tablename_left = Nothing
+        Me.ClsStammdaten_Bez1.Tablename_right = Nothing
+        '
+        'ClsStammdaten_flat1
+        '
+        Me.ClsStammdaten_flat1.Connectionstring = Nothing
+        Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(232, 56)
+        Me.ClsStammdaten_flat1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
+        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(558, 232)
+        Me.ClsStammdaten_flat1.SQL = ""
+        Me.ClsStammdaten_flat1.TabIndex = 3
+        Me.ClsStammdaten_flat1.Tablename = Nothing
+        '
+        'frmStammdaten
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1200, 449)
+        Me.Controls.Add(Me.ClsStammdaten_Bez1)
+        Me.Controls.Add(Me.ClsStammdaten_flat1)
+        Me.Controls.Add(Me.C1TrueDBGrid1)
+        Me.Controls.Add(Me.TreeView1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MainMenuStrip = Me.MenuStrip1
+        Me.Name = "frmStammdaten"
+        Me.Text = "frmStammdaten"
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
+    Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
+    Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents ClsStammdaten_flat1 As DPM2016.clsStammdaten_flat
+    Friend WithEvents ClsStammdaten_Bez1 As DPM2016.clsStammdaten_Bez
+    Friend WithEvents DentotarImportToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
+End Class

DPM2016/Sysadmin/frmStammdaten.vb

@@ -1,254 +1,273 @@
-Imports System.ComponentModel
-Imports FlexCel.Core
-Imports FlexCel.XlsAdapter
-Public Class frmStammdaten
-
-    Dim db As New clsDB
-    Dim spalten As New Tabellenspalte
-    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
-        Me.Close()
-    End Sub
-
-    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
-        Refresh_Details()
-
-    End Sub
-    Sub Refresh_Details()
-        Try
-            Select Case UCase(TreeView1.SelectedNode.Tag)
-                Case "DEMO"
-                    If Globals.License.DemoMode = True Then
-                        Me.ClsStammdaten_Bez1.Visible = False
-                        Me.ClsStammdaten_flat1.Visible = False
-                        MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
-                        Exit Sub
-                    End If
-                Case "DMS"
-                    If Globals.License.DMS = False Then
-                        MsgBox("Für diese Funktion haben Sie keine entsprechende Lizenz.")
-                        Me.ClsStammdaten_Bez1.Visible = False
-                        Me.ClsStammdaten_flat1.Visible = False
-                        'MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
-                        Exit Sub
-                    End If
-                Case "DENTOTAR"
-
-            End Select
-            Me.ClsStammdaten_Bez1.Visible = True
-            Me.ClsStammdaten_flat1.Visible = True
-            Dim t As String = Me.TreeView1.SelectedNode.Tag
-            t = UCase(t)
-            If t <> "" And t <> "DEMO" And t <> "DMS" Then
-                Dim splitter()
-                splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";")
-                If splitter.Length > 1 Then
-                    Dim i As Integer = 0
-
-                    For Each s As String In splitter
-                        i = i + 1
-                        If i = 1 Then ClsStammdaten_Bez1.KeyField_left = s
-                        If i = 2 Then ClsStammdaten_Bez1.Keyfieldbez_left = s
-                        If i = 3 Then ClsStammdaten_Bez1.KeyField_right = s
-                        If i = 4 Then ClsStammdaten_Bez1.Keyfieldbez_right = s
-                        If i = 5 Then ClsStammdaten_Bez1.Tablename_left = s
-                        If i = 6 Then ClsStammdaten_Bez1.Tablename_right = s
-                        If i = 7 Then ClsStammdaten_Bez1.Tablename_bottom = s
-                        Try
-                        Catch ex As Exception
-
-                        End Try
-                    Next
-
-                End If
-
-                Me.ClsStammdaten_flat1.Visible = False
-                Me.ClsStammdaten_Bez1.Visible = True
-                Me.ClsStammdaten_Bez1.Dock = DockStyle.Fill
-                Me.ClsStammdaten_Bez1.Width = Me.ClsStammdaten_Bez1.Width + 1
-                Exit Sub
-            End If
-            Me.ClsStammdaten_flat1.Check_Changes()
-            Me.ClsStammdaten_Bez1.Visible = False
-            Me.ClsStammdaten_flat1.Visible = True
-            Me.ClsStammdaten_flat1.Dock = DockStyle.Fill
-
-            If Me.TreeView1.SelectedNode.Nodes.Count = 0 Then Me.ClsStammdaten_flat1.Visible = True Else Me.ClsStammdaten_flat1.Visible = False
-            Me.ClsStammdaten_flat1.Tablename = Me.TreeView1.SelectedNode.Name
-            'If Globals.License.DemoMode Then
-            '    If Me.TreeView1.SelectedNode.Tag = "Demo" Then
-            '        MsgBox("Im Demo-Modus steht diese Funktion nicht zur Verfügung.")
-            '        Exit Sub
-            '    End If
-            'End If
-            Me.ClsStammdaten_flat1.get_data()
-
-            Try
-
-            Catch
-            End Try
-        Catch
-        End Try
-    End Sub
-
-    Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.TreeView1.ExpandAll()
-        Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
-        If My.Settings.SoftwareType = "PADM" Then
-            Me.DentotarImportToolStripMenuItem.Visible = False
-            For Each n As TreeNode In TreeView1.Nodes
-                For Each nn As TreeNode In n.Nodes
-                    Try
-                        Select Case nn.Text
-                            Case "Tarif"
-                                nn.Text = "Artikel"
-                            Case "Tarife"
-                                nn.Text = "Artikel-Kategorien"
-                            Case "TarifGruppe"
-                                nn.Text = "Artikel-Gruppen"
-                            Case "Tarifpakete"
-                                nn.Text = "Artikel-Pakete"
-                        End Select
-                    Catch
-                    End Try
-
-                Next
-                If n.Text = "Tarif" Then n.Text = "Artikel"
-                If n.Text = "Patienten" Then n.Text = "Allgemein"
-            Next
-
-            For i As Integer = 1 To 10
-                Try
-                    For Each n As TreeNode In TreeView1.Nodes
-                        For Each nn As TreeNode In n.Nodes
-                            If nn.Text = "Dentotar" Then
-                                nn.Remove()
-                            End If
-                            If nn.Text = "Dentotar_Parameter" Then
-                                nn.Remove()
-                            End If
-                            If nn.Text = "Taxpunkte" Then
-                                nn.Remove()
-                            End If
-                            If nn.Text = "Zahntechnik (223)" Then
-                                nn.Remove()
-                            End If
-                            If nn.Text = "Behandlungsart" Then
-                                nn.Remove()
-                            End If
-                            If nn.Text = "Gesetz" Then
-                                nn.Remove()
-                            End If
-
-                        Next
-                    Next
-                Catch
-                End Try
-            Next i
-        End If
-
-    End Sub
-
-
-
-    Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click
-        If MsgBox("Sind Sie sicher, dass Dentotaf neu importier werden soll?", vbYesNo + vbQuestion) = vbYes Then
-            If OpenFileDialog1.ShowDialog = DialogResult.OK Then
-                import_dentotar(OpenFileDialog1.FileName)
-            End If
-
-        End If
-    End Sub
-
-    Private Sub import_dentotar(ByVal Filename As String)
-        Try
-            Dim xls As New XlsFile(Filename)
-            Dim f As New frmprogress(1, xls.RowCount, "Dentotar einlesen")
-            f.Show()
-            Dim db As New clsDB
-            db.Get_Tabledata_for_Update("Dentotar", False, False)
-            db.daten.WriteXml(Globals.ActUser)
-            Dim dt As New DataTable
-            Dim dt_Original As New DataTable
-            dt = db.daten.Tables(0).Copy
-            dt_Original = db.daten.Tables(0).Copy
-            db.Exec_Prod("sp_update_dentotar")
-            dt.Rows.Clear()
-            dt.AcceptChanges()
-            Dim colindex1 As Integer
-            xls.ActiveSheet = 1
-            Dim i As Integer = 0
-            For row As Integer = 2 To xls.RowCount
-                Dim dr As DataRow = dt.NewRow
-                i = row
-                Application.DoEvents()
-                f.ProgressBar1.Value = row
-                For colIndex As Integer = 1 To 18
-
-                    Try
-                        dr.Item(colIndex - 1) = xls.GetCellValue(row, colIndex)
-                    Catch
-                        dr.Item(colIndex - 1) = System.DBNull.Value
-                    End Try
-
-                Next
-                dt.Rows.Add(dr)
-            Next
-
-
-            f.Init_Progressbar(1, i, "Privat-Punkte nachführen")
-            For Each r As DataRow In dt.Rows
-                f.ProgressBar1.Value = f.ProgressBar1.Value + 1
-                Application.DoEvents()
-                If Not IsDBNull(r.Item("Leistungnrneu")) Then
-                    Dim dv As New DataView(dt_Original, "leistungnrneu='" + r.Item("Leistungnrneu") + "'", "", DataViewRowState.CurrentRows)
-                    Dim drv As DataRowView = dv.Item(0)
-                    r.Item("PP_Privat") = drv.Item("PP_Privat")
-                End If
-
-                'For Each rr As DataRow In dt_Original.Rows
-                '    Try
-                '        If r.Item("LeistungNrneu") = rr.Item("Leistungnrneu") Then
-                '            Try
-                '                r.Item("PP_Privat") = rr.Item("PP_Privat")
-                '            Catch
-                '            End Try
-
-                '            Exit For
-                '        End If
-                '    Catch
-                '    End Try
-
-                'Next
-            Next
-            f.Close()
-            db.daten.Tables.Clear()
-            db.daten.Tables.Add(dt.Copy)
-            db.Update_Tabeldata()
-            Try
-                IntTables.Inttables.Tables.Remove("Dentotar")
-            Catch
-            End Try
-
-            MsgBox("Update Dentotar ist abgeschossen.", vbInformation)
-        Catch ex As Exception
-            MsgBox("Update Dentotar: Fehler: " + ex.Message)
-        End Try
-
-    End Sub
-
-    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
-        Me.Close()
-    End Sub
-
-    Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click
-        'Refresh_Details()
-    End Sub
-
-    Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load
-
-    End Sub
-
-    Private Sub frmStammdaten_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
-        IntTables.Inttables.Tables.Clear()
-    End Sub
+Imports System.ComponentModel
+Imports FlexCel.XlsAdapter
+Public Class frmStammdaten
+
+    Dim db As New clsDB
+    Dim spalten As New Tabellenspalte
+    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
+        Refresh_Details()
+
+    End Sub
+    Sub Refresh_Details()
+        Try
+            Select Case UCase(TreeView1.SelectedNode.Tag)
+                Case "DEMO"
+                    If Globals.License.DemoMode = True Then
+                        Me.ClsStammdaten_Bez1.Visible = False
+                        Me.ClsStammdaten_flat1.Visible = False
+                        MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
+                        Exit Sub
+                    End If
+                Case "DMS"
+                    If Globals.License.DMS = False Then
+                        MsgBox("Für diese Funktion haben Sie keine entsprechende Lizenz.")
+                        Me.ClsStammdaten_Bez1.Visible = False
+                        Me.ClsStammdaten_flat1.Visible = False
+                        'MsgBox("Diese Funktion ist im DEMO-Modus nicht verfügbar.")
+                        Exit Sub
+                    End If
+                Case "DENTOTAR"
+
+            End Select
+            Me.ClsStammdaten_Bez1.Visible = True
+            Me.ClsStammdaten_flat1.Visible = True
+            Dim t As String = Me.TreeView1.SelectedNode.Tag
+            t = UCase(t)
+            If t <> "" And t <> "DEMO" And t <> "DMS" Then
+                Dim splitter()
+                splitter = Me.TreeView1.SelectedNode.Tag.ToString.Split(";")
+                If splitter.Length > 1 Then
+                    Dim i As Integer = 0
+
+                    For Each s As String In splitter
+                        i = i + 1
+                        If i = 1 Then ClsStammdaten_Bez1.KeyField_left = s
+                        If i = 2 Then ClsStammdaten_Bez1.Keyfieldbez_left = s
+                        If i = 3 Then ClsStammdaten_Bez1.KeyField_right = s
+                        If i = 4 Then ClsStammdaten_Bez1.Keyfieldbez_right = s
+                        If i = 5 Then ClsStammdaten_Bez1.Tablename_left = s
+                        If i = 6 Then ClsStammdaten_Bez1.Tablename_right = s
+                        If i = 7 Then ClsStammdaten_Bez1.Tablename_bottom = s
+                        Try
+                        Catch ex As Exception
+
+                        End Try
+                    Next
+
+                End If
+
+                Me.ClsStammdaten_flat1.Visible = False
+                Me.ClsStammdaten_Bez1.Visible = True
+                Me.ClsStammdaten_Bez1.Dock = DockStyle.Fill
+                Me.ClsStammdaten_Bez1.Width = Me.ClsStammdaten_Bez1.Width + 1
+                Exit Sub
+            End If
+            Me.ClsStammdaten_flat1.Check_Changes()
+            Me.ClsStammdaten_Bez1.Visible = False
+            Me.ClsStammdaten_flat1.Visible = True
+            Me.ClsStammdaten_flat1.Dock = DockStyle.Fill
+
+            If Me.TreeView1.SelectedNode.Nodes.Count = 0 Then Me.ClsStammdaten_flat1.Visible = True Else Me.ClsStammdaten_flat1.Visible = False
+            Me.ClsStammdaten_flat1.Tablename = Me.TreeView1.SelectedNode.Name
+            'If Globals.License.DemoMode Then
+            '    If Me.TreeView1.SelectedNode.Tag = "Demo" Then
+            '        MsgBox("Im Demo-Modus steht diese Funktion nicht zur Verfügung.")
+            '        Exit Sub
+            '    End If
+            'End If
+            Me.ClsStammdaten_flat1.get_data()
+
+            Try
+
+            Catch
+            End Try
+        Catch
+        End Try
+    End Sub
+
+    Private Sub frmStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.TreeView1.ExpandAll()
+        Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
+        If My.Settings.SoftwareType = "PADM" Or Globals.DruckBranche = True Then
+            Me.DentotarImportToolStripMenuItem.Visible = False
+            For Each n As TreeNode In TreeView1.Nodes
+                For Each nn As TreeNode In n.Nodes
+                    Try
+                        Select Case nn.Text
+                            Case "Tarif"
+                                nn.Text = "Artikel"
+                            Case "Tarife"
+                                nn.Text = "Artikel-Kategorien"
+                            Case "TarifGruppe"
+                                nn.Text = "Artikel-Gruppen"
+                            Case "Tarifpakete"
+                                nn.Text = "Artikel-Pakete"
+                            Case "Produkt Zusatz"
+                            Case "Produkt Zusatz Details"
+                        End Select
+                    Catch
+                    End Try
+
+                Next
+                If n.Text = "Tarif" Then n.Text = "Artikel"
+                If n.Text = "Patienten" Then n.Text = "Allgemein"
+            Next
+
+            For i As Integer = 1 To 10
+                Try
+                    For Each n As TreeNode In TreeView1.Nodes
+                        For Each nn As TreeNode In n.Nodes
+                            If nn.Text = "Dentotar" Then
+                                nn.Remove()
+                            End If
+                            If nn.Text = "Dentotar_Parameter" Then
+                                nn.Remove()
+                            End If
+                            If nn.Text = "Taxpunkte" Then
+                                nn.Remove()
+                            End If
+                            If nn.Text = "Zahntechnik (223)" Then
+                                nn.Remove()
+                            End If
+                            If nn.Text = "Behandlungsart" Then
+                                nn.Remove()
+                            End If
+                            If nn.Text = "Gesetz" Then
+                                nn.Remove()
+                            End If
+
+                        Next
+                    Next
+                Catch
+                End Try
+            Next i
+
+        Else
+            For i As Integer = 1 To 10
+                Try
+                    For Each n As TreeNode In TreeView1.Nodes
+                        For Each nn As TreeNode In n.Nodes
+                            If nn.Text = "Produkt Zusatz" Then
+                                nn.Remove()
+                            End If
+                            If nn.Text = "Produkt Zusatz Details" Then
+                                nn.Remove()
+                            End If
+                        Next
+                    Next
+                Catch
+                End Try
+            Next i
+
+        End If
+
+    End Sub
+
+
+
+    Private Sub DentotarImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DentotarImportToolStripMenuItem.Click
+        If MsgBox("Sind Sie sicher, dass Dentotaf neu importier werden soll?", vbYesNo + vbQuestion) = vbYes Then
+            If OpenFileDialog1.ShowDialog = DialogResult.OK Then
+                import_dentotar(OpenFileDialog1.FileName)
+            End If
+
+        End If
+    End Sub
+
+    Private Sub import_dentotar(ByVal Filename As String)
+        Try
+            Dim xls As New XlsFile(Filename)
+            Dim f As New frmprogress(1, xls.RowCount, "Dentotar einlesen")
+            f.Show()
+            Dim db As New clsDB
+            db.Get_Tabledata_for_Update("Dentotar", False, False)
+            db.daten.WriteXml(Globals.ActUser)
+            Dim dt As New DataTable
+            Dim dt_Original As New DataTable
+            dt = db.daten.Tables(0).Copy
+            dt_Original = db.daten.Tables(0).Copy
+            db.Exec_Prod("sp_update_dentotar")
+            dt.Rows.Clear()
+            dt.AcceptChanges()
+            Dim colindex1 As Integer
+            xls.ActiveSheet = 1
+            Dim i As Integer = 0
+            For row As Integer = 2 To xls.RowCount
+                Dim dr As DataRow = dt.NewRow
+                i = row
+                Application.DoEvents()
+                f.ProgressBar1.Value = row
+                For colIndex As Integer = 1 To 18
+
+                    Try
+                        dr.Item(colIndex - 1) = xls.GetCellValue(row, colIndex)
+                    Catch
+                        dr.Item(colIndex - 1) = System.DBNull.Value
+                    End Try
+
+                Next
+                dt.Rows.Add(dr)
+            Next
+
+
+            f.Init_Progressbar(1, i, "Privat-Punkte nachführen")
+            For Each r As DataRow In dt.Rows
+                f.ProgressBar1.Value = f.ProgressBar1.Value + 1
+                Application.DoEvents()
+                If Not IsDBNull(r.Item("Leistungnrneu")) Then
+                    Dim dv As New DataView(dt_Original, "leistungnrneu='" + r.Item("Leistungnrneu") + "'", "", DataViewRowState.CurrentRows)
+                    Dim drv As DataRowView = dv.Item(0)
+                    r.Item("PP_Privat") = drv.Item("PP_Privat")
+                End If
+
+                'For Each rr As DataRow In dt_Original.Rows
+                '    Try
+                '        If r.Item("LeistungNrneu") = rr.Item("Leistungnrneu") Then
+                '            Try
+                '                r.Item("PP_Privat") = rr.Item("PP_Privat")
+                '            Catch
+                '            End Try
+
+                '            Exit For
+                '        End If
+                '    Catch
+                '    End Try
+
+                'Next
+            Next
+            f.Close()
+            db.daten.Tables.Clear()
+            db.daten.Tables.Add(dt.Copy)
+            db.Update_Tabeldata()
+            Try
+                IntTables.Inttables.Tables.Remove("Dentotar")
+            Catch
+            End Try
+
+            MsgBox("Update Dentotar ist abgeschossen.", vbInformation)
+        Catch ex As Exception
+            MsgBox("Update Dentotar: Fehler: " + ex.Message)
+        End Try
+
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs)
+        Me.Close()
+    End Sub
+
+    Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click
+        'Refresh_Details()
+    End Sub
+
+    Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load
+
+    End Sub
+
+    Private Sub frmStammdaten_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        IntTables.Inttables.Tables.Clear()
+    End Sub
 End Class