Import Assistent

2025-10-02 09:12:45 +02:00
parent 392771ee1b
commit ff44d7e512
6 changed files with 429 additions and 271 deletions
--- a/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
@@ -26,26 +26,19 @@ Partial Class frmSendungAnhangImport
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
        Me.lbl = New System.Windows.Forms.Label()
        Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
-        Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
-        Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
        Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
        Me.lblSendungen = New System.Windows.Forms.Label()
        Me.lblImport = New System.Windows.Forms.Label()
        Me.pnlAnfuegen = New System.Windows.Forms.Panel()
        Me.cbxAlternativePDFAnsicht = New System.Windows.Forms.CheckBox()
        Me.Button1 = New System.Windows.Forms.Button()
-        Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.lblBezeichnung = New System.Windows.Forms.Label()
        Me.btnSeitenLoeschen = New System.Windows.Forms.Button()
        Me.btnAnfuegenAll = New System.Windows.Forms.Button()
-        Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.lblDatei = New System.Windows.Forms.Label()
-        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.lblSendung = New System.Windows.Forms.Label()
        Me.lblArt = New System.Windows.Forms.Label()
-        Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.btnAnfuegen = New System.Windows.Forms.Button()
-        Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.lblSeiten = New System.Windows.Forms.Label()
        Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
        Me.btnAdd = New System.Windows.Forms.Button()
@@ -62,7 +55,6 @@ Partial Class frmSendungAnhangImport
        Me.btnSndDel = New System.Windows.Forms.Button()
        Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
        Me.btnAddSnd = New System.Windows.Forms.Button()
-        Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.lblSendungsdetails = New System.Windows.Forms.Label()
        Me.lblWarenbeichnung = New System.Windows.Forms.Label()
        Me.btnSndEdit = New System.Windows.Forms.Button()
@@ -72,6 +64,15 @@ Partial Class frmSendungAnhangImport
        Me.Button17 = New System.Windows.Forms.Button()
        Me.lblRgPreis = New System.Windows.Forms.Label()
        Me.pnlSendung = New System.Windows.Forms.Panel()
+        Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
+        Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
+        Me.Button2 = New System.Windows.Forms.Button()
        Me.flpnlAviso.SuspendLayout()
        Me.pnlAnfuegen.SuspendLayout()
        Me.cntxt.SuspendLayout()
@@ -103,38 +104,6 @@ Partial Class frmSendungAnhangImport
        Me.flpnlAviso.Size = New System.Drawing.Size(253, 825)
        Me.flpnlAviso.TabIndex = 7
        '
-        'UsrCntlSendungAnhangElement1
-        '
-        Me.UsrCntlSendungAnhangElement1.ACTIVE = False
-        Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
-        Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_SIZE = "False"
-        Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
-        Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
-        Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
-        Me.UsrCntlSendungAnhangElement1.TabIndex = 0
-        '
-        'UsrCntlSendungAnhangElement2
-        '
-        Me.UsrCntlSendungAnhangElement2.ACTIVE = False
-        Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
-        Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
-        Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_SIZE = "False"
-        Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
-        Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
-        Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
-        Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
-        Me.UsrCntlSendungAnhangElement2.TabIndex = 1
-        '
        'flpnlSendungen
        '
        Me.flpnlSendungen.AllowDrop = True
@@ -216,31 +185,6 @@ Partial Class frmSendungAnhangImport
        Me.Button1.UseVisualStyleBackColor = False
        Me.Button1.Visible = False
        '
-        'txtBezeichnung
-        '
-        Me.txtBezeichnung._DateTimeOnly = False
-        Me.txtBezeichnung._numbersOnly = False
-        Me.txtBezeichnung._numbersOnlyKommastellen = ""
-        Me.txtBezeichnung._numbersOnlyTrennzeichen = True
-        Me.txtBezeichnung._Prozent = False
-        Me.txtBezeichnung._ShortDateNew = False
-        Me.txtBezeichnung._ShortDateOnly = False
-        Me.txtBezeichnung._TimeOnly = False
-        Me.txtBezeichnung._TimeOnly_Seconds = False
-        Me.txtBezeichnung._value = ""
-        Me.txtBezeichnung._Waehrung = False
-        Me.txtBezeichnung._WaehrungZeichen = True
-        Me.txtBezeichnung.BackColor = System.Drawing.Color.White
-        Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black
-        Me.txtBezeichnung.Location = New System.Drawing.Point(68, 105)
-        Me.txtBezeichnung.MaxLineLength = -1
-        Me.txtBezeichnung.MaxLines_Warning = ""
-        Me.txtBezeichnung.MaxLines_Warning_Label = Nothing
-        Me.txtBezeichnung.Name = "txtBezeichnung"
-        Me.txtBezeichnung.Size = New System.Drawing.Size(453, 26)
-        Me.txtBezeichnung.TabIndex = 7
-        '
        'lblBezeichnung
        '
        Me.lblBezeichnung.AutoSize = True
@@ -272,30 +216,6 @@ Partial Class frmSendungAnhangImport
        Me.btnAnfuegenAll.Text = ">>   Ganzes Dokument anfügen   >>"
        Me.btnAnfuegenAll.UseVisualStyleBackColor = False
        '
-        'txtDateiname
-        '
-        Me.txtDateiname._DateTimeOnly = False
-        Me.txtDateiname._numbersOnly = False
-        Me.txtDateiname._numbersOnlyKommastellen = ""
-        Me.txtDateiname._numbersOnlyTrennzeichen = True
-        Me.txtDateiname._Prozent = False
-        Me.txtDateiname._ShortDateNew = False
-        Me.txtDateiname._ShortDateOnly = False
-        Me.txtDateiname._TimeOnly = False
-        Me.txtDateiname._TimeOnly_Seconds = False
-        Me.txtDateiname._value = ""
-        Me.txtDateiname._Waehrung = False
-        Me.txtDateiname._WaehrungZeichen = True
-        Me.txtDateiname.ForeColor = System.Drawing.Color.Black
-        Me.txtDateiname.Location = New System.Drawing.Point(68, 11)
-        Me.txtDateiname.MaxLineLength = -1
-        Me.txtDateiname.MaxLines_Warning = ""
-        Me.txtDateiname.MaxLines_Warning_Label = Nothing
-        Me.txtDateiname.Name = "txtDateiname"
-        Me.txtDateiname.ReadOnly = True
-        Me.txtDateiname.Size = New System.Drawing.Size(732, 20)
-        Me.txtDateiname.TabIndex = 1
-        '
        'lblDatei
        '
        Me.lblDatei.AutoSize = True
@@ -305,30 +225,6 @@ Partial Class frmSendungAnhangImport
        Me.lblDatei.TabIndex = 0
        Me.lblDatei.Text = "Datei:"
        '
-        'MyTextBox2
-        '
-        Me.MyTextBox2._DateTimeOnly = False
-        Me.MyTextBox2._numbersOnly = False
-        Me.MyTextBox2._numbersOnlyKommastellen = ""
-        Me.MyTextBox2._numbersOnlyTrennzeichen = True
-        Me.MyTextBox2._Prozent = False
-        Me.MyTextBox2._ShortDateNew = False
-        Me.MyTextBox2._ShortDateOnly = False
-        Me.MyTextBox2._TimeOnly = False
-        Me.MyTextBox2._TimeOnly_Seconds = False
-        Me.MyTextBox2._value = ""
-        Me.MyTextBox2._Waehrung = False
-        Me.MyTextBox2._WaehrungZeichen = True
-        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox2.Location = New System.Drawing.Point(68, 137)
-        Me.MyTextBox2.MaxLineLength = -1
-        Me.MyTextBox2.MaxLines_Warning = ""
-        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox2.Name = "MyTextBox2"
-        Me.MyTextBox2.ReadOnly = True
-        Me.MyTextBox2.Size = New System.Drawing.Size(453, 20)
-        Me.MyTextBox2.TabIndex = 13
-        '
        'lblSendung
        '
        Me.lblSendung.AutoSize = True
@@ -347,20 +243,6 @@ Partial Class frmSendungAnhangImport
        Me.lblArt.TabIndex = 5
        Me.lblArt.Text = "Art:"
        '
-        'cboArt
-        '
-        Me.cboArt._allowedValuesFreiText = Nothing
-        Me.cboArt._allowFreiText = False
-        Me.cboArt._value = ""
-        Me.cboArt.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboArt.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboArt.FormattingEnabled = True
-        Me.cboArt.Location = New System.Drawing.Point(68, 75)
-        Me.cboArt.Name = "cboArt"
-        Me.cboArt.Size = New System.Drawing.Size(242, 28)
-        Me.cboArt.TabIndex = 6
-        '
        'btnAnfuegen
        '
        Me.btnAnfuegen.BackColor = System.Drawing.Color.Wheat
@@ -372,31 +254,6 @@ Partial Class frmSendungAnhangImport
        Me.btnAnfuegen.Text = ">>   Anfügen   >>"
        Me.btnAnfuegen.UseVisualStyleBackColor = False
        '
-        'txtSeiten
-        '
-        Me.txtSeiten._DateTimeOnly = False
-        Me.txtSeiten._numbersOnly = False
-        Me.txtSeiten._numbersOnlyKommastellen = ""
-        Me.txtSeiten._numbersOnlyTrennzeichen = True
-        Me.txtSeiten._Prozent = False
-        Me.txtSeiten._ShortDateNew = False
-        Me.txtSeiten._ShortDateOnly = False
-        Me.txtSeiten._TimeOnly = False
-        Me.txtSeiten._TimeOnly_Seconds = False
-        Me.txtSeiten._value = ""
-        Me.txtSeiten._Waehrung = False
-        Me.txtSeiten._WaehrungZeichen = True
-        Me.txtSeiten.BackColor = System.Drawing.Color.White
-        Me.txtSeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSeiten.ForeColor = System.Drawing.Color.Black
-        Me.txtSeiten.Location = New System.Drawing.Point(68, 47)
-        Me.txtSeiten.MaxLineLength = -1
-        Me.txtSeiten.MaxLines_Warning = ""
-        Me.txtSeiten.MaxLines_Warning_Label = Nothing
-        Me.txtSeiten.Name = "txtSeiten"
-        Me.txtSeiten.Size = New System.Drawing.Size(242, 26)
-        Me.txtSeiten.TabIndex = 4
-        '
        'lblSeiten
        '
        Me.lblSeiten.AutoSize = True
@@ -472,6 +329,7 @@ Partial Class frmSendungAnhangImport
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Button2)
        Me.pnl.Controls.Add(Me.Button5)
        Me.pnl.Controls.Add(Me.PdfViewer)
        Me.pnl.Controls.Add(Me.WebBrowser)
@@ -551,20 +409,6 @@ Partial Class frmSendungAnhangImport
        Me.btnAddSnd.Text = "+ NEU"
        Me.btnAddSnd.UseVisualStyleBackColor = True
        '
-        'cboSendungen
-        '
-        Me.cboSendungen._allowedValuesFreiText = Nothing
-        Me.cboSendungen._allowFreiText = False
-        Me.cboSendungen._value = ""
-        Me.cboSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboSendungen.DropDownWidth = 450
-        Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboSendungen.FormattingEnabled = True
-        Me.cboSendungen.Location = New System.Drawing.Point(8, 28)
-        Me.cboSendungen.Name = "cboSendungen"
-        Me.cboSendungen.Size = New System.Drawing.Size(306, 28)
-        Me.cboSendungen.TabIndex = 9
-        '
        'lblSendungsdetails
        '
        Me.lblSendungsdetails.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -674,6 +518,174 @@ Partial Class frmSendungAnhangImport
        Me.pnlSendung.Size = New System.Drawing.Size(321, 860)
        Me.pnlSendung.TabIndex = 0
        '
+        'txtBezeichnung
+        '
+        Me.txtBezeichnung._DateTimeOnly = False
+        Me.txtBezeichnung._numbersOnly = False
+        Me.txtBezeichnung._numbersOnlyKommastellen = ""
+        Me.txtBezeichnung._numbersOnlyTrennzeichen = True
+        Me.txtBezeichnung._Prozent = False
+        Me.txtBezeichnung._ShortDateNew = False
+        Me.txtBezeichnung._ShortDateOnly = False
+        Me.txtBezeichnung._TimeOnly = False
+        Me.txtBezeichnung._TimeOnly_Seconds = False
+        Me.txtBezeichnung._value = ""
+        Me.txtBezeichnung._Waehrung = False
+        Me.txtBezeichnung._WaehrungZeichen = True
+        Me.txtBezeichnung.BackColor = System.Drawing.Color.White
+        Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black
+        Me.txtBezeichnung.Location = New System.Drawing.Point(68, 105)
+        Me.txtBezeichnung.MaxLineLength = -1
+        Me.txtBezeichnung.MaxLines_Warning = ""
+        Me.txtBezeichnung.MaxLines_Warning_Label = Nothing
+        Me.txtBezeichnung.Name = "txtBezeichnung"
+        Me.txtBezeichnung.Size = New System.Drawing.Size(453, 26)
+        Me.txtBezeichnung.TabIndex = 7
+        '
+        'txtDateiname
+        '
+        Me.txtDateiname._DateTimeOnly = False
+        Me.txtDateiname._numbersOnly = False
+        Me.txtDateiname._numbersOnlyKommastellen = ""
+        Me.txtDateiname._numbersOnlyTrennzeichen = True
+        Me.txtDateiname._Prozent = False
+        Me.txtDateiname._ShortDateNew = False
+        Me.txtDateiname._ShortDateOnly = False
+        Me.txtDateiname._TimeOnly = False
+        Me.txtDateiname._TimeOnly_Seconds = False
+        Me.txtDateiname._value = ""
+        Me.txtDateiname._Waehrung = False
+        Me.txtDateiname._WaehrungZeichen = True
+        Me.txtDateiname.ForeColor = System.Drawing.Color.Black
+        Me.txtDateiname.Location = New System.Drawing.Point(68, 11)
+        Me.txtDateiname.MaxLineLength = -1
+        Me.txtDateiname.MaxLines_Warning = ""
+        Me.txtDateiname.MaxLines_Warning_Label = Nothing
+        Me.txtDateiname.Name = "txtDateiname"
+        Me.txtDateiname.ReadOnly = True
+        Me.txtDateiname.Size = New System.Drawing.Size(732, 20)
+        Me.txtDateiname.TabIndex = 1
+        '
+        'MyTextBox2
+        '
+        Me.MyTextBox2._DateTimeOnly = False
+        Me.MyTextBox2._numbersOnly = False
+        Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._numbersOnlyTrennzeichen = True
+        Me.MyTextBox2._Prozent = False
+        Me.MyTextBox2._ShortDateNew = False
+        Me.MyTextBox2._ShortDateOnly = False
+        Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
+        Me.MyTextBox2._value = ""
+        Me.MyTextBox2._Waehrung = False
+        Me.MyTextBox2._WaehrungZeichen = True
+        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox2.Location = New System.Drawing.Point(68, 137)
+        Me.MyTextBox2.MaxLineLength = -1
+        Me.MyTextBox2.MaxLines_Warning = ""
+        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox2.Name = "MyTextBox2"
+        Me.MyTextBox2.ReadOnly = True
+        Me.MyTextBox2.Size = New System.Drawing.Size(453, 20)
+        Me.MyTextBox2.TabIndex = 13
+        '
+        'cboArt
+        '
+        Me.cboArt._allowedValuesFreiText = Nothing
+        Me.cboArt._allowFreiText = False
+        Me.cboArt._value = ""
+        Me.cboArt.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboArt.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboArt.FormattingEnabled = True
+        Me.cboArt.Location = New System.Drawing.Point(68, 75)
+        Me.cboArt.Name = "cboArt"
+        Me.cboArt.Size = New System.Drawing.Size(242, 28)
+        Me.cboArt.TabIndex = 6
+        '
+        'txtSeiten
+        '
+        Me.txtSeiten._DateTimeOnly = False
+        Me.txtSeiten._numbersOnly = False
+        Me.txtSeiten._numbersOnlyKommastellen = ""
+        Me.txtSeiten._numbersOnlyTrennzeichen = True
+        Me.txtSeiten._Prozent = False
+        Me.txtSeiten._ShortDateNew = False
+        Me.txtSeiten._ShortDateOnly = False
+        Me.txtSeiten._TimeOnly = False
+        Me.txtSeiten._TimeOnly_Seconds = False
+        Me.txtSeiten._value = ""
+        Me.txtSeiten._Waehrung = False
+        Me.txtSeiten._WaehrungZeichen = True
+        Me.txtSeiten.BackColor = System.Drawing.Color.White
+        Me.txtSeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSeiten.ForeColor = System.Drawing.Color.Black
+        Me.txtSeiten.Location = New System.Drawing.Point(68, 47)
+        Me.txtSeiten.MaxLineLength = -1
+        Me.txtSeiten.MaxLines_Warning = ""
+        Me.txtSeiten.MaxLines_Warning_Label = Nothing
+        Me.txtSeiten.Name = "txtSeiten"
+        Me.txtSeiten.Size = New System.Drawing.Size(242, 26)
+        Me.txtSeiten.TabIndex = 4
+        '
+        'cboSendungen
+        '
+        Me.cboSendungen._allowedValuesFreiText = Nothing
+        Me.cboSendungen._allowFreiText = False
+        Me.cboSendungen._value = ""
+        Me.cboSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cboSendungen.DropDownWidth = 450
+        Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboSendungen.FormattingEnabled = True
+        Me.cboSendungen.Location = New System.Drawing.Point(8, 28)
+        Me.cboSendungen.Name = "cboSendungen"
+        Me.cboSendungen.Size = New System.Drawing.Size(306, 28)
+        Me.cboSendungen.TabIndex = 9
+        '
+        'UsrCntlSendungAnhangElement1
+        '
+        Me.UsrCntlSendungAnhangElement1.ACTIVE = False
+        Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
+        Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_SIZE = "False"
+        Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
+        Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
+        Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
+        Me.UsrCntlSendungAnhangElement1.TabIndex = 0
+        '
+        'UsrCntlSendungAnhangElement2
+        '
+        Me.UsrCntlSendungAnhangElement2.ACTIVE = False
+        Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
+        Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
+        Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_SIZE = "False"
+        Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
+        Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
+        Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
+        Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
+        Me.UsrCntlSendungAnhangElement2.TabIndex = 1
+        '
+        'Button2
+        '
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button2.Location = New System.Drawing.Point(696, 1)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(100, 34)
+        Me.Button2.TabIndex = 3
+        Me.Button2.Text = "Zu ""Seiten"" hinzu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Strg + Leertaste)"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
        'frmSendungAnhangImport
        '
        Me.AllowDrop = True
@@ -754,4 +766,5 @@ Partial Class frmSendungAnhangImport
    Friend WithEvents cbxAlternativePDFAnsicht As CheckBox
    Friend WithEvents lblRgPreis As Label
    Friend WithEvents pnlSendung As Panel
+    Friend WithEvents Button2 As Button
 End Class
--- a/Aviso/Anhänge/frmSendungAnhangImport.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.vb
@@ -69,11 +69,75 @@ Public Class frmSendungAnhangImport
    End Function

    Sub initElement(USRCNTL As usrCntlSendungAnhangElement)
-        AddHandler USRCNTL.ME_CLICK, Sub(STRG_PRESSED)
+        AddHandler USRCNTL.ME_CLICK, Sub(STRG_PRESSED, SHIFT_PRESSED)
                                         '  If BrowserLoaded Then


-                                         If Not STRG_PRESSED Then
+                                         If SHIFT_PRESSED Then
+                                             'prüfen, ob genau 1 Elemnt markeirt ist, dann kein neues Laden nötig
+                                             If USRCNTL.ACTIVE Then
+                                                 If checkIf1isSelected() Then Exit Sub 'Bereits aktiv, aber nur wenn 1 markiert
+                                             End If
+                                             ' Hier Fehlt Code, der Shift abfängt
+                                             ' --- SHIFT-Bereichsauswahl (nur im gleichen Panel) ---
+                                             ' Anker = das (genau) eine bereits markierte Element suchen
+                                             Dim anchor As usrCntlSendungAnhangElement = Nothing
+
+                                             For Each c As Control In flpnlAviso.Controls
+                                                 Dim u = TryCast(c, usrCntlSendungAnhangElement)
+                                                 If u IsNot Nothing AndAlso u.ACTIVE Then
+                                                     anchor = u
+                                                     Exit For
+                                                 End If
+                                             Next
+                                             If anchor Is Nothing Then
+                                                 For Each c As Control In flpnlSendungen.Controls
+                                                     Dim u = TryCast(c, usrCntlSendungAnhangElement)
+                                                     If u IsNot Nothing AndAlso u.ACTIVE Then
+                                                         anchor = u
+                                                         Exit For
+                                                     End If
+                                                 Next
+                                             End If
+
+                                             If anchor IsNot Nothing Then
+                                                 Dim pAnchor = TryCast(anchor.Parent, FlowLayoutPanel)
+                                                 Dim pClick = TryCast(USRCNTL.Parent, FlowLayoutPanel)
+
+                                                 ' Nur wenn beide im selben FlowLayoutPanel liegen:
+                                                 If pAnchor IsNot Nothing AndAlso pAnchor Is pClick Then
+                                                     Dim i1 As Integer = pAnchor.Controls.IndexOf(anchor)
+                                                     Dim i2 As Integer = pAnchor.Controls.IndexOf(USRCNTL)
+                                                     Dim fromIdx As Integer = Math.Min(i1, i2)
+                                                     Dim toIdx As Integer = Math.Max(i1, i2)
+
+                                                     ' Vorher alles deselektieren (beide Panels)
+                                                     For Each c As Control In flpnlAviso.Controls
+                                                         Dim u = TryCast(c, usrCntlSendungAnhangElement)
+                                                         If u IsNot Nothing Then u.ACTIVE = False
+                                                     Next
+                                                     For Each c As Control In flpnlSendungen.Controls
+                                                         Dim u = TryCast(c, usrCntlSendungAnhangElement)
+                                                         If u IsNot Nothing Then u.ACTIVE = False
+                                                     Next
+
+                                                     ' Bereich [fromIdx..toIdx] markieren (inklusive)
+                                                     For i As Integer = fromIdx To toIdx
+                                                         Dim u = TryCast(pAnchor.Controls(i), usrCntlSendungAnhangElement)
+                                                         If u IsNot Nothing Then u.ACTIVE = True
+                                                     Next
+
+                                                     ' Nichts weiter tun (kein neues Laden/Navigieren)
+                                                     Exit Sub
+                                                 End If
+                                             End If
+                                             ' --- Ende SHIFT-Bereichsauswahl ---
+
+                                         ElseIf STRG_PRESSED Then
+                                             If checkIfSamePanel(USRCNTL) Then
+                                                 USRCNTL.ACTIVE = Not USRCNTL.ACTIVE
+                                             End If
+                                         Else

                                             'prüfen, ob genau 1 Elemnt markeirt ist, dann kein neues Laden nötig
                                             If USRCNTL.ACTIVE Then
@@ -99,10 +163,6 @@ Public Class frmSendungAnhangImport

                                             txtDateiname.Text = USRCNTL.FILE_NAME
                                             txtSeiten.Focus()
-                                         Else
-                                             If checkIfSamePanel(USRCNTL) Then
-                                                 USRCNTL.ACTIVE = Not USRCNTL.ACTIVE
-                                             End If
                                         End If
                                     End Sub

@@ -1286,6 +1346,7 @@ Public Class frmSendungAnhangImport
        If e.KeyCode = Keys.Return Then
            btnAnfuegen.PerformClick()
        End If
+
    End Sub
    Sub initSendungen()
        cboSendungen.Items.Clear()
@@ -1742,6 +1803,12 @@ Public Class frmSendungAnhangImport
                    btnSndEdit.PerformClick()
                    e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
                End If
+                ' Prüfen, ob STRG + " " gedrückt wurde
+                If e.Control AndAlso (e.KeyCode = Keys.Space) Then
+                    AddCurrentPage()
+                    e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht " " im Feld
+                End If
+
            ElseIf e.Modifiers = Keys.Shift Then ' PDFs durchlaufen
                If e.KeyCode = Keys.PageDown Then
                    nextART()
@@ -2182,6 +2249,26 @@ Public Class frmSendungAnhangImport
    Private Sub flpnlSnd_DragEnter(sender As Object, e As DragEventArgs) Handles flpnlSendungen.DragEnter
        e.Effect = DragDropEffects.All
    End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+        AddCurrentPage()
+    End Sub
+
+    Sub AddCurrentPage()
+        Dim CurrentPageNumber = PdfViewer.CurrentPageNumber
+        If CurrentPageNumber > 0 Then
+            If txtSeiten.Text = "" Then
+                txtSeiten.Text = CurrentPageNumber.ToString.Trim
+            Else
+                txtSeiten.Text &= "," & CurrentPageNumber.ToString.Trim
+            End If
+            txtSeiten.Focus()
+            txtSeiten.SelectionStart = txtSeiten.TextLength
+        End If
+    End Sub
+
+
+
    'Private Sub flpnlSendungen_Paint(sender As Object, e As PaintEventArgs) Handles flpnlSendungen.Paint
    '    Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
    '    For Each path In files
--- a/Aviso/Anhänge/usrCntlSendungAnhangElement.vb
+++ b/Aviso/Anhänge/usrCntlSendungAnhangElement.vb
@@ -14,7 +14,7 @@ Public Class usrCntlSendungAnhangElement
    Property FILE_ANHID


-    Public Event ME_CLICK(STRG_PRESSED)
+    Public Event ME_CLICK(STRG_PRESSED, SHIFT_PRESSED)
    Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
    Public Event ME_COMPRESS(FILE_DOCID, FILE_ANHID)

@@ -111,11 +111,11 @@ Public Class usrCntlSendungAnhangElement
    'End Sub
    Private Sub pic_Click(sender As Object, e As MouseEventArgs) Handles pic.MouseClick, lbl.MouseClick, Me.MouseClick, lblSize.MouseClick
        If e.Button = MouseButtons.Left Then
-            RaiseEvent ME_CLICK((My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
+            RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown, My.Computer.Keyboard.ShiftKeyDown)
        End If
    End Sub
    Public Sub CLICK_Me()
-        RaiseEvent ME_CLICK(False) 'My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
+        RaiseEvent ME_CLICK(False, False) 'My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
    End Sub

    Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick, lblSize.DoubleClick
@@ -147,8 +147,14 @@ Public Class usrCntlSendungAnhangElement
            Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
            Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art)
            If f.ShowDialog = DialogResult.OK Then
+                Dim ext As String = IO.Path.GetExtension(originalName)

-                ANH.anh_Name = f.txtBezeichnung.Text
+                Dim name As String = f.txtBezeichnung.Text
+                If String.IsNullOrWhiteSpace(IO.Path.GetExtension(name)) AndAlso ext <> "" Then ' prüfen ob Benutzer schon eine Endung eingegeben hat
+                    name &= ext
+                End If
+
+                ANH.anh_Name = name
                ANH.anh_Art = f.cboArt._value
                ANH.SAVE()
                FILE_NAME = f.txtBezeichnung.Text