neu

2020-03-26 22:22:21 +01:00
parent afaac3c2a4
commit 2d28680ad0
15 changed files with 225 additions and 83 deletions
--- a/Aviso/Anhänge/frmSendungAnhangImport.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.vb
@@ -160,6 +160,7 @@ Public Class frmSendungAnhangImport
    Function getPDFSplitName(FILE_NAME)
        getPDFSplitName = FILE_NAME
        If txtBezeichnung.Text <> "" Then
+            txtBezeichnung.Text = txtBezeichnung.Text.Replace("/", "-").Replace("\", "-").Replace(":", "-").Replace("*", "-").Replace("?", "-").Replace("|", "-").Replace("<", "-").Replace(">", "-")
            getPDFSplitName = txtBezeichnung.Text
        End If

@@ -168,6 +169,7 @@ Public Class frmSendungAnhangImport
        End If

    End Function
+
    Dim tmpPageMove = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAnfuegen.Click
        If txtSeiten.Text = "" Then Exit Sub