AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS30.09

Browse Source
This commit is contained in:
SchreiberM
2015-09-30 17:05:36 +02:00
parent 3f25fc766f
commit 95fd5804d2
29 changed files with 2541 additions and 7481 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
app/DD-Record-Organiser/frmDokumentart_NameConvention.vb
View File

@@ -45,18 +45,6 @@
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
@@ -76,11 +64,13 @@
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
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