MS_Initial

Global_Indexer/frmNamenkonvention.vb

@@ -0,0 +1,107 @@
+Public Class frmNamenkonvention
+    Dim FILE_DELIMITER As String
+    Dim VERSION_DELIMITER As String
+    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
+        Try
+            Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1"
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
+            For Each row As DataRow In DT.Rows
+                FILE_DELIMITER = row.Item("FILE_DELIMITER")
+                VERSION_DELIMITER = row.Item("VERSION_DELIMITER")
+            Next
+            TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, frmAdministration._aktDokart_Id)
+            Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, frmAdministration._aktDokart_Id)
+            txtnamenKonv.Text = frmAdministration._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
+        frmAdministration._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 altePosition As Integer = Me.txtnamenKonv.SelectionStart()
+        Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, FILE_DELIMITER)
+        Me.txtnamenKonv.SelectionStart = altePosition + FILE_DELIMITER.Length
+    End Sub
+
+    Private Sub btnVersionTZ_Click(sender As Object, e As EventArgs) Handles btnVersionTZ.Click
+
+        Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
+        Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, VERSION_DELIMITER)
+        Me.txtnamenKonv.SelectionStart = altePosition + VERSION_DELIMITER.Length
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        If Not Me.cmbDate.Text = "" Then
+            'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
+            Dim text As String = "[%v" & Me.cmbDate.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 Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If Not txtnamenKonv.Text.Contains("[%vOFilename]") Then
+            Dim text As String = "[%vOFilename]"
+            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
+End Class