project name record_organizer

app/DD-Record-Organiser/frmDokumentart_NameConvention.vb

@@ -0,0 +1,86 @@
+Public Class frmDokumentart_NameConvention
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click
+        If Not Me.cmbIndex_m.Text = "" Then
+            'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
+            Dim text As String = "[%m" & Me.cmbIndex_m.Text.ToString.ToUpper & "]"
+            Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
+            Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
+            Me.txtnamenKonv.SelectionStart = altePosition + text.Length
+        End If
+    End Sub
+
+    Private Sub btnAddIndexA_Click(sender As Object, e As EventArgs) Handles btnAddIndexA.Click
+        If Not Me.cmbIndex_A.Text = "" Then
+            'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
+            Dim text As String = "[%a" & Me.cmbIndex_A.Text.ToString.ToUpper & "]"
+            Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
+            Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
+            Me.txtnamenKonv.SelectionStart = altePosition + text.Length
+        End If
+    End Sub
+
+    Private Sub frmNamenkonvention_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+
+    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_KONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen.
+
+        Try
+            'Me.TBINDEX_MANTableAdapter.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)
+            Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, frmDokumentart_Konfig.akt_DokartID)
+            'Me.TBINDEX_MANTableAdapter.Fill(Me.DSDokumentart.TBINDEX_MAN, frmAdministration._aktDokID)
+            'Me.TBINDEX_AUTOMTableAdapter.Fill(Me.DSDokumentart.TBINDEX_AUTOM, frmAdministration._aktDokID)
+
+            txtnamenKonv.Text = frmDokumentart_Konfig.akt_Namenkonvention
+        Catch ex As Exception
+            MsgBox("Fehler beim Laden der Grunddaten zur Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
+
+    End Sub
+
+    Private Sub btnVersion_Click(sender As Object, e As EventArgs) Handles btnVersion.Click
+        If txtnamenKonv.Text.Contains("[%Version]") Then
+            MsgBox("Versionstag ist bereits enthalten!", MsgBoxStyle.Exclamation)
+            Exit Sub
+        End If
+        Dim text As String = "[%Version]"
+        Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
+        Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
+        Me.txtnamenKonv.SelectionStart = altePosition + text.Length
+    End Sub
+
+    Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
+        txtnamenKonv.Text = ""
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        frmDokumentart_Konfig.akt_Namenkonvention = txtnamenKonv.Text
+        Me.Close()
+    End Sub
+
+    Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnTrennzeichen_Click(sender As Object, e As EventArgs) Handles btnTrennzeichen.Click
+        Dim text As String = FILE_DELIMITERTextBox.Text
+        Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
+        Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
+        Me.txtnamenKonv.SelectionStart = altePosition + text.Length
+    End Sub
+
+    Private Sub btnVersionTZ_Click(sender As Object, e As EventArgs) Handles btnVersionTZ.Click
+        Dim text As String = VERSION_DELIMITERTextBox.Text
+        Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
+        Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
+        Me.txtnamenKonv.SelectionStart = altePosition + text.Length
+    End Sub
+End Class