MS_02.06.2016

app/DD-Record-Organiser/frmDokumentart_NameConvention.vb

@@ -32,18 +32,25 @@
     End Sub
 
     Private Sub frmNamenkonvention_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-
+        If Save_Convention() = False Then
+            e.Cancel = True
+        End If
     End Sub
 
     Private Sub frmNamenkonvention_Load(sender As Object, e As EventArgs) Handles Me.Load
+        'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT". Sie können sie bei Bedarf verschieben oder entfernen.
+
         'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_KONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen.
 
         Try
             'Me.TBINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBPMO_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBPMO_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_KONFIGURATION)
 
+
+
             Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID
             Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex, "LOAD AUTOINDEXE")
 
@@ -73,14 +80,17 @@
     End Sub
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+       Save_Convention
+    End Sub
+    Private Function Save_Convention()
         Dim sql = "UPDATE TBPMO_WD_FORMVIEW_DOKTYPES SET NAME_CONVENTION = '" & txtnamenKonv.Text & "', CHANGED_WHO = '" & Environment.UserName & "' WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID
         If ClassDatabase.Execute_non_Query(sql, True) = True Then
-            Me.Close()
+            Return True
         Else
             MsgBox("Unexpected Error in Save NameConvention - Check logfile", MsgBoxStyle.Exclamation)
+            Return False
         End If
-    End Sub
-
+    End Function
     Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
         Me.Close()
     End Sub
@@ -103,6 +113,7 @@
 
     Private Sub cmbEntity_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbEntity.SelectedIndexChanged
         Load_EntityData()
+        Load_Format_Rules()
     End Sub
     Sub Load_EntityData()
         Try
@@ -119,6 +130,13 @@
             MsgBox("Error in cmbEntity.SelectedIndexChanged: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+    Sub Load_Format_Rules()
+        Try
+            Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT, TBPMO_WD_FORMVIEW_DOKTYPES_GUID)
+        Catch ex As Exception
+            MsgBox("Error in load formatrules: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
     Sub Load_Controls()
         If loaded = False Then Exit Sub
         Try
@@ -144,6 +162,28 @@
         If DT_ENTITIES.Rows.Count = 1 Then
             Load_Controls()
             Load_EntityData()
+            Load_Format_Rules()
         End If
     End Sub
+
+    Private Sub TBPMO_WD_NAMECONVENTION_FORMATBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WD_NAMECONVENTION_FORMATBindingSource.AddingNew
+        Try
+            DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHOColumn.DefaultValue = Environment.UserName
+            DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT.IDColumn.DefaultValue = TBPMO_WD_FORMVIEW_DOKTYPES_GUID
+        Catch ex As Exception
+            MsgBox("Error in Adding Format Rules: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub ToolStripButtonSave_Click(sender As Object, e As EventArgs) Handles ToolStripButtonSave.Click
+        Try
+            Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource.EndEdit()
+            If DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT.GetChanges Is Nothing = False Then
+                Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Update(Me.DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT)
+                Load_Format_Rules()
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Save Format Rules: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class