76 lines
3.8 KiB
VB.net
76 lines
3.8 KiB
VB.net
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 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 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
|
|
End Class |