MS_21.10.2015

app/DD-Record-Organiser/frmDokumentart_Konfig.vb

@@ -2,7 +2,6 @@
     Private Shared _Instance As frmDokumentart_Konfig = Nothing
     Private insert As Boolean = False
     Public Shared akt_DokartID As Integer
-    Public Shared akt_Namenkonvention As String
     Private IsInsert As Boolean = False
     Public Shared Function Instance() As frmDokumentart_Konfig
         If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
@@ -37,7 +36,6 @@
                 Refresh_DokartModule(GUIDTextBox.Text)
                 Refresh_Indexe_Auto(GUIDTextBox.Text)
                 akt_DokartID = GUIDTextBox.Text
-                akt_Namenkonvention = Me.NAMENKONVENTIONTextBox.Text
                 Refresh_DokartModule(GUIDTextBox.Text)
             End If
 
@@ -160,7 +158,6 @@
         If ListBox1.SelectedIndex <> -1 Then
             Refresh_Indexe_Auto(GUIDTextBox.Text)
             akt_DokartID = GUIDTextBox.Text
-            akt_Namenkonvention = Me.NAMENKONVENTIONTextBox.Text
             Refresh_DokID_FORM_VIEW()
             Refresh_DokartModule(GUIDTextBox.Text)
         End If
@@ -219,14 +216,14 @@
     Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click
         Save_Dokart()
         Dim _temp As String
-        _temp = Me.NAMENKONVENTIONTextBox.Text
-        akt_Namenkonvention = _temp
+        '_temp = Me.NAMENKONVENTIONTextBox.Text
+        'akt_Namenkonvention = _temp
         akt_DokartID = GUIDTextBox.Text
         frmDokumentart_NameConvention.ShowDialog()
-        Me.NAMENKONVENTIONTextBox.Text = akt_Namenkonvention
-        If _temp <> NAMENKONVENTIONTextBox.Text Then
-            Save_Dokart()
-        End If
+        'Me.NAMENKONVENTIONTextBox.Text = akt_Namenkonvention
+        'If _temp <> NAMENKONVENTIONTextBox.Text Then
+        '    Save_Dokart()
+        'End If
     End Sub
 
     Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click