neu

Aviso/Anhänge/frmAddSendnung.vb

@@ -19,20 +19,26 @@
     End Sub
 
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Try
 
-        Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
-        Sendung.tblSnd_Abfertigungsart_ID = cboAbfertigungsart._value
-        Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
-        Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
-        Sendung.tblSnd_Colli = txtColli.Text
-        Sendung.tblSnd_Gewicht = txtGewicht.Text
-        Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
+            Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
+            Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
+            Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
+            Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
+            Sendung.tblSnd_Colli = txtColli.Text
+            Sendung.tblSnd_Gewicht = txtGewicht.Text
+            Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
+
+            If Sendung.SAVE Then
+                Me.DialogResult = DialogResult.OK
+            Else
+                Me.DialogResult = DialogResult.None
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
 
-        If Sendung.SAVE Then
-            Me.DialogResult = DialogResult.OK
-        Else
-            Me.DialogResult = DialogResult.None
-        End If
     End Sub
 
 End Class

Aviso/Anhänge/frmSendungAnhangImport.Designer.vb

@@ -26,16 +26,24 @@ 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.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.pnlAnfuegen = New System.Windows.Forms.Panel()
+        Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Button6 = New System.Windows.Forms.Button()
         Me.btnAnfuegenAll = New System.Windows.Forms.Button()
+        Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label7 = New System.Windows.Forms.Label()
+        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.Label5 = 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.Label4 = New System.Windows.Forms.Label()
         Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
         Me.btn = New System.Windows.Forms.Button()
@@ -51,14 +59,8 @@ Partial Class frmSendungAnhangImport
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnAddSnd = New System.Windows.Forms.Button()
         Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        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.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
-        Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
         Me.flpnlAviso.SuspendLayout()
         Me.pnlAnfuegen.SuspendLayout()
         Me.cntxt.SuspendLayout()
@@ -88,6 +90,36 @@ Partial Class frmSendungAnhangImport
         Me.flpnlAviso.Size = New System.Drawing.Size(200, 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_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_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.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -97,16 +129,7 @@ Partial Class frmSendungAnhangImport
         Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 62)
         Me.flpnlSendungen.Name = "flpnlSendungen"
         Me.flpnlSendungen.Size = New System.Drawing.Size(230, 731)
-        Me.flpnlSendungen.TabIndex = 11
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(221, 182)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(55, 13)
-        Me.Label1.TabIndex = 10
-        Me.Label1.Text = "Vorschau:"
+        Me.flpnlSendungen.TabIndex = 10
         '
         'Label2
         '
@@ -133,6 +156,9 @@ Partial Class frmSendungAnhangImport
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pnlAnfuegen.BackColor = System.Drawing.Color.FloralWhite
         Me.pnlAnfuegen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlAnfuegen.Controls.Add(Me.txtBezeichnung)
+        Me.pnlAnfuegen.Controls.Add(Me.Label1)
+        Me.pnlAnfuegen.Controls.Add(Me.Button6)
         Me.pnlAnfuegen.Controls.Add(Me.btnAnfuegenAll)
         Me.pnlAnfuegen.Controls.Add(Me.txtDateiname)
         Me.pnlAnfuegen.Controls.Add(Me.Label7)
@@ -146,20 +172,85 @@ Partial Class frmSendungAnhangImport
         Me.pnlAnfuegen.Controls.Add(Me.cbxDelPDF)
         Me.pnlAnfuegen.Location = New System.Drawing.Point(221, 30)
         Me.pnlAnfuegen.Name = "pnlAnfuegen"
-        Me.pnlAnfuegen.Size = New System.Drawing.Size(846, 142)
+        Me.pnlAnfuegen.Size = New System.Drawing.Size(846, 162)
         Me.pnlAnfuegen.TabIndex = 8
         '
+        'txtBezeichnung
+        '
+        Me.txtBezeichnung._DateTimeOnly = False
+        Me.txtBezeichnung._numbersOnly = False
+        Me.txtBezeichnung._numbersOnlyKommastellen = ""
+        Me.txtBezeichnung._Prozent = False
+        Me.txtBezeichnung._ShortDateNew = False
+        Me.txtBezeichnung._ShortDateOnly = False
+        Me.txtBezeichnung._TimeOnly = 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
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 113)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(63, 13)
+        Me.Label1.TabIndex = 10
+        Me.Label1.Text = "Bezeichng.:"
+        '
+        'Button6
+        '
+        Me.Button6.BackColor = System.Drawing.Color.Wheat
+        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button6.Location = New System.Drawing.Point(523, 105)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(277, 28)
+        Me.Button6.TabIndex = 11
+        Me.Button6.Text = "Seiten löschen"
+        Me.Button6.UseVisualStyleBackColor = False
+        '
         'btnAnfuegenAll
         '
         Me.btnAnfuegenAll.BackColor = System.Drawing.Color.Wheat
         Me.btnAnfuegenAll.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAnfuegenAll.Location = New System.Drawing.Point(527, 47)
+        Me.btnAnfuegenAll.Location = New System.Drawing.Point(523, 47)
         Me.btnAnfuegenAll.Name = "btnAnfuegenAll"
-        Me.btnAnfuegenAll.Size = New System.Drawing.Size(273, 56)
-        Me.btnAnfuegenAll.TabIndex = 8
+        Me.btnAnfuegenAll.Size = New System.Drawing.Size(277, 56)
+        Me.btnAnfuegenAll.TabIndex = 9
         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._Prozent = False
+        Me.txtDateiname._ShortDateNew = False
+        Me.txtDateiname._ShortDateOnly = False
+        Me.txtDateiname._TimeOnly = 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
+        '
         'Label7
         '
         Me.Label7.AutoSize = True
@@ -169,13 +260,35 @@ Partial Class frmSendungAnhangImport
         Me.Label7.TabIndex = 0
         Me.Label7.Text = "Datei:"
         '
+        'MyTextBox2
+        '
+        Me.MyTextBox2._DateTimeOnly = False
+        Me.MyTextBox2._numbersOnly = False
+        Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._Prozent = False
+        Me.MyTextBox2._ShortDateNew = False
+        Me.MyTextBox2._ShortDateOnly = False
+        Me.MyTextBox2._TimeOnly = 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
+        '
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(3, 112)
+        Me.Label6.Location = New System.Drawing.Point(3, 140)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(53, 13)
-        Me.Label6.TabIndex = 9
+        Me.Label6.TabIndex = 12
         Me.Label6.Text = "Sendung:"
         '
         'Label5
@@ -187,6 +300,18 @@ Partial Class frmSendungAnhangImport
         Me.Label5.TabIndex = 5
         Me.Label5.Text = "Art:"
         '
+        'cboArt
+        '
+        Me.cboArt._allowedValuesFreiText = Nothing
+        Me.cboArt._allowFreiText = False
+        Me.cboArt._value = ""
+        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
@@ -194,10 +319,33 @@ Partial Class frmSendungAnhangImport
         Me.btnAnfuegen.Location = New System.Drawing.Point(316, 47)
         Me.btnAnfuegen.Name = "btnAnfuegen"
         Me.btnAnfuegen.Size = New System.Drawing.Size(205, 56)
-        Me.btnAnfuegen.TabIndex = 7
+        Me.btnAnfuegen.TabIndex = 8
         Me.btnAnfuegen.Text = ">>   Anfügen   >>"
         Me.btnAnfuegen.UseVisualStyleBackColor = False
         '
+        'txtSeiten
+        '
+        Me.txtSeiten._DateTimeOnly = False
+        Me.txtSeiten._numbersOnly = False
+        Me.txtSeiten._numbersOnlyKommastellen = ""
+        Me.txtSeiten._Prozent = False
+        Me.txtSeiten._ShortDateNew = False
+        Me.txtSeiten._ShortDateOnly = False
+        Me.txtSeiten._TimeOnly = 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
+        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -279,16 +427,17 @@ Partial Class frmSendungAnhangImport
         Me.pnl.Location = New System.Drawing.Point(221, 198)
         Me.pnl.Name = "pnl"
         Me.pnl.Size = New System.Drawing.Size(846, 657)
-        Me.pnl.TabIndex = 12
+        Me.pnl.TabIndex = 11
         '
         'Button5
         '
-        Me.Button5.Location = New System.Drawing.Point(766, 3)
+        Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button5.Image = Global.AVISO.My.Resources.Resources.refresh
+        Me.Button5.Location = New System.Drawing.Point(793, 1)
         Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(75, 23)
+        Me.Button5.Size = New System.Drawing.Size(48, 34)
         Me.Button5.TabIndex = 2
         Me.Button5.UseVisualStyleBackColor = True
-        Me.Button5.Visible = False
         '
         'PdfViewer
         '
@@ -321,7 +470,7 @@ Partial Class frmSendungAnhangImport
         Me.Button3.Location = New System.Drawing.Point(1073, 799)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(230, 56)
-        Me.Button3.TabIndex = 13
+        Me.Button3.TabIndex = 12
         Me.Button3.Text = "<<   zurück   <<"
         Me.Button3.UseVisualStyleBackColor = False
         '
@@ -336,16 +485,16 @@ Partial Class frmSendungAnhangImport
         Me.Button4.Text = "Löschen"
         Me.Button4.UseVisualStyleBackColor = True
         '
-        'Button1
+        'btnAddSnd
         '
-        Me.Button1.ContextMenuStrip = Me.cntxt
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(1125, 2)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 25)
-        Me.Button1.TabIndex = 1
-        Me.Button1.Text = "Hinzufügen"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.btnAddSnd.ContextMenuStrip = Me.cntxt
+        Me.btnAddSnd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAddSnd.Location = New System.Drawing.Point(1159, 2)
+        Me.btnAddSnd.Name = "btnAddSnd"
+        Me.btnAddSnd.Size = New System.Drawing.Size(75, 25)
+        Me.btnAddSnd.TabIndex = 1
+        Me.btnAddSnd.Text = "+ Sendung"
+        Me.btnAddSnd.UseVisualStyleBackColor = True
         '
         'cboSendungen
         '
@@ -361,122 +510,13 @@ Partial Class frmSendungAnhangImport
         Me.cboSendungen.Size = New System.Drawing.Size(230, 28)
         Me.cboSendungen.TabIndex = 9
         '
-        'txtDateiname
-        '
-        Me.txtDateiname._DateTimeOnly = False
-        Me.txtDateiname._numbersOnly = False
-        Me.txtDateiname._numbersOnlyKommastellen = ""
-        Me.txtDateiname._Prozent = False
-        Me.txtDateiname._ShortDateNew = False
-        Me.txtDateiname._ShortDateOnly = False
-        Me.txtDateiname._TimeOnly = 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(62, 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(738, 20)
-        Me.txtDateiname.TabIndex = 1
-        '
-        'MyTextBox2
-        '
-        Me.MyTextBox2._DateTimeOnly = False
-        Me.MyTextBox2._numbersOnly = False
-        Me.MyTextBox2._numbersOnlyKommastellen = ""
-        Me.MyTextBox2._Prozent = False
-        Me.MyTextBox2._ShortDateNew = False
-        Me.MyTextBox2._ShortDateOnly = False
-        Me.MyTextBox2._TimeOnly = 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(62, 109)
-        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(738, 20)
-        Me.MyTextBox2.TabIndex = 10
-        '
-        'cboArt
-        '
-        Me.cboArt._allowedValuesFreiText = Nothing
-        Me.cboArt._allowFreiText = False
-        Me.cboArt._value = ""
-        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(62, 75)
-        Me.cboArt.Name = "cboArt"
-        Me.cboArt.Size = New System.Drawing.Size(248, 28)
-        Me.cboArt.TabIndex = 6
-        '
-        'txtSeiten
-        '
-        Me.txtSeiten._DateTimeOnly = False
-        Me.txtSeiten._numbersOnly = False
-        Me.txtSeiten._numbersOnlyKommastellen = ""
-        Me.txtSeiten._Prozent = False
-        Me.txtSeiten._ShortDateNew = False
-        Me.txtSeiten._ShortDateOnly = False
-        Me.txtSeiten._TimeOnly = 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(62, 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(248, 26)
-        Me.txtSeiten.TabIndex = 4
-        '
-        '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_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_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
-        '
         'frmSendungAnhangImport
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(1309, 860)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.btnAddSnd)
         Me.Controls.Add(Me.Button4)
         Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.cboSendungen)
@@ -485,7 +525,6 @@ Partial Class frmSendungAnhangImport
         Me.Controls.Add(Me.pnlAnfuegen)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.flpnlSendungen)
         Me.Controls.Add(Me.flpnlAviso)
         Me.Controls.Add(Me.lbl)
@@ -508,7 +547,6 @@ Partial Class frmSendungAnhangImport
     Friend WithEvents lbl As Label
     Friend WithEvents flpnlAviso As FlowLayoutPanel
     Friend WithEvents flpnlSendungen As FlowLayoutPanel
-    Friend WithEvents Label1 As Label
     Friend WithEvents Label2 As Label
     Friend WithEvents Label3 As Label
     Friend WithEvents pnlAnfuegen As Panel
@@ -537,7 +575,10 @@ Partial Class frmSendungAnhangImport
     Friend WithEvents PrintDocument1 As Printing.PrintDocument
     Friend WithEvents PdfViewer As Spire.PdfViewer.Forms.PdfViewer
     Friend WithEvents WebBrowser As WebBrowser
-    Friend WithEvents Button1 As Button
+    Friend WithEvents btnAddSnd As Button
     Friend WithEvents Button5 As Button
     Friend WithEvents AusZwischenablageeinfügenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Button6 As Button
+    Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
 End Class

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -61,7 +61,7 @@ Public Class frmSendungAnhangImport
                                          ' PdfViewer.DocumentLoaded += New EventHandler(AddressOf radPdfViewer1_DocumentLoaded)
 
                                          txtDateiname.Text = USRCNTL.FILE_NAME
-
+                                         txtSeiten.Focus()
                                          '  End If
                                      End Sub
 
@@ -135,6 +135,13 @@ Public Class frmSendungAnhangImport
     '    End Try
     'End Function
 
+    Function getPDFSplitName(FILE_NAME)
+        If txtBezeichnung.Text <> "" Then
+            Return txtBezeichnung.Text
+        End If
+
+        Return FILE_NAME
+    End Function
     Dim tmpPageMove = 0
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAnfuegen.Click
         If txtSeiten.Text = "" Then Exit Sub
@@ -142,8 +149,14 @@ Public Class frmSendungAnhangImport
         If cboSendungen._value = "" Then Exit Sub
         If Not checkSeiten() Then Exit Sub
 
+        Dim CurrentPageNumber = PdfViewer.CurrentPageNumber
+        Dim pages = getPagesFromText()
+        Dim cntl = getAcitveCntl()
+        Dim cntlID = If(cntl IsNot Nothing, getAcitveCntl().FILE_ANHID, -1)
+
         For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
             If u.ACTIVE Then
+                If u.FILE_TYPE <> "PDF" Then Exit Sub
                 Dim fi As New FileInfo(u.FILE_PATH)
                 '------------- 
                 '------------- PDFs extrahieren und auf den Datenserver laden + Eintrag in tblAvisoAnhaenger
@@ -154,12 +167,13 @@ Public Class frmSendungAnhangImport
                 If Not extractPagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText()) Then Exit Sub
 
                 'Hochladen in den Datenserver und anfügen in die Tbl Anhänge mit der SendungsId
-                saveToDS(AvisoId, u.FILE_NAME, TMP_Path_New, cboArt._value, u.FILE_TYPE,,,, SendngsId)
+
+                saveToDS(AvisoId, getPDFSplitName(u.FILE_NAME), TMP_Path_New, cboArt._value, u.FILE_TYPE,,,, SendngsId)
 
                 '------------- 
                 '------------- PDFs aus der original Datei löschen
                 '------------- 
-                '   tryDelete(TMP_Path_New)
+                'tryDelete(TMP_Path_New)
 
                 If cbxDelPDF.Checked Then
                     If cbxDelPDF.Checked Then
@@ -189,33 +203,55 @@ Public Class frmSendungAnhangImport
         clearPnlAnfuegen()
         '   initSendungen()
 
-        Dim CurrentPageNumber = PdfViewer.CurrentPageNumber
-        Dim pages = getPagesFromText()
-        Dim cntl = getAcitveCntl()
         initFlpANH_LIST()
 
         If flpnlAviso.Controls.Count > 0 Then
-            If Not setAvtive(flpnlAviso, CurrentPageNumber, pages, cntl) Then
+            If Not setAvtiveById(flpnlAviso, CurrentPageNumber, pages, cntlID) Then
                 DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
             End If
         End If
     End Sub
 
-    Function setAvtive(pnl, CurrentPageNumber, listDelPages, u) As Boolean
-        For Each p As usrCntlSendungAnhangElement In flpnlAviso.Controls
-            If p Is u Then
-                p.ACTIVE = True
-                Dim newCurrentPageNumber = CurrentPageNumber
-                For Each s In getPagesFromText() ' vorheirge Seiten, die gelöscht wurden werden abgezogen
-                    If s < CurrentPageNumber Then CurrentPageNumber -= 1
-                Next
-                If newCurrentPageNumber > 0 Then PdfViewer.GoToPage(newCurrentPageNumber)
-                Return True
-            End If
-        Next
+    Function setAvtiveById(pnl As FlowLayoutPanel, CurrentPageNumber As Integer, listDelPages As List(Of Integer), anhId As Integer) As Boolean
+        Try
+            For Each p As usrCntlSendungAnhangElement In flpnlAviso.Controls
+                If p.FILE_ANHID = anhId Then
+                    'p.ACTIVE = True
+                    p.CLICK_Me()
+                    Dim newCurrentPageNumber = CurrentPageNumber
+                    For Each s In getPagesFromText() ' vorheirge Seiten, die gelöscht wurden werden abgezogen
+                        If s < CurrentPageNumber Then CurrentPageNumber -= 1
+                    Next
+                    If PdfViewer.IsDocumentLoaded Then
+                        If newCurrentPageNumber > 0 Then PdfViewer.GoToPage(newCurrentPageNumber)
+                    End If
+                    Return True
+                End If
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
         Return False
     End Function
 
+    Function setAvtive(pnl As FlowLayoutPanel, CurrentPageNumber As Integer, listDelPages As List(Of Integer), u As usrCntlSendungAnhangElement) As Boolean
+        Try
+            For Each p As usrCntlSendungAnhangElement In flpnlAviso.Controls
+                If p Is u Then
+                    p.ACTIVE = True
+                    Dim newCurrentPageNumber = CurrentPageNumber
+                    For Each s In getPagesFromText() ' vorheirge Seiten, die gelöscht wurden werden abgezogen
+                        If s < CurrentPageNumber Then CurrentPageNumber -= 1
+                    Next
+                    If newCurrentPageNumber > 0 Then PdfViewer.GoToPage(newCurrentPageNumber)
+                    Return True
+                End If
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        Return False
+    End Function
 
     Private Sub Button1_ClickALL(sender As Object, e As EventArgs) Handles btnAnfuegenAll.Click
         If cboSendungen._value = "" Then Exit Sub
@@ -243,10 +279,11 @@ Public Class frmSendungAnhangImport
                     End If
                 Else
                     ANH.anh_SendungsId = SendngsId
+                    If cboArt._value <> "" Then ANH.anh_Art = cboArt._value
                     ANH.anh_id = -1 'neuer Eintrag
-                    ANH.SAVE()
+                        ANH.SAVE()
+                    End If
                 End If
-            End If
         Next
         clearPnlAnfuegen()
         '   initSendungen()
@@ -257,6 +294,7 @@ Public Class frmSendungAnhangImport
         txtDateiname.Text = ""
         txtSeiten.Text = ""
         cboArt.Text = ""
+        txtBezeichnung.Text = ""
         txtSeiten.Focus()
 
         Dim u As usrCntlSendungAnhangElement = getAcitveCntl()
@@ -400,8 +438,22 @@ Public Class frmSendungAnhangImport
                 '  Dim pageInt = p - 1 ' Nciht SeitenNr. sonder Aufzählung
                 Dim pageInt = p
                 If pageInt >= 0 And pageInt < pdf.Pages.Count Then
-                    page = pdf1.Pages.Add(pdf.Pages(p).Size, New Graphics.PdfMargins(0))
-                    pdf.Pages(p).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
+                    Dim pageOLD As PdfPageBase = pdf.Pages(pageInt)
+                    If pageOLD.Rotation = PdfPageRotateAngle.RotateAngle90 Then
+                        page = pdf1.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Graphics.PdfMargins(0))
+                    ElseIf pageOLD.Rotation = PdfPageRotateAngle.RotateAngle270 Then
+                        page = pdf1.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Graphics.PdfMargins(0))
+                    Else
+                        page = pdf1.Pages.Add(pageOLD.Size, New Graphics.PdfMargins(0))
+                    End If
+                    pdf.Pages(pageInt).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
+
+
+                    'alter Kot:
+                    'page = pdf1.Pages.Add(pdf.Pages(p).Size, New Graphics.PdfMargins(0))
+                    'pdf.Pages(p).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
+
+
                     PagesLeft += 1
                 End If
             Next
@@ -422,6 +474,31 @@ Public Class frmSendungAnhangImport
 
         Try
 
+
+            ''Load the original PDF 
+            'Dim pdf As New PdfDocument()
+            'pdf.LoadFromFile("20191017092932604.pdf")
+            ''Get the first page
+            'Dim page As PdfPageBase = pdf.Pages(0)
+            ''Create a new PDF file
+            'Dim pdf1 As New PdfDocument()
+            'Dim newPage As PdfPageBase
+            ''Judge if the page is rotated and rotate it back 
+            'If page.Rotation = PdfPageRotateAngle.RotateAngle90 Then
+            '    newPage = pdf1.Pages.Add(New SizeF(page.Size.Height, page.Size.Width), New PdfMargins(0))
+            'End If
+            'If page.Rotation = PdfPageRotateAngle.RotateAngle270 Then
+            '    newPage = pdf1.Pages.Add(New SizeF(page.Size.Height, page.Size.Width), New PdfMargins(0))
+            'Else
+            '    newPage = pdf1.Pages.Add(page.Size, New PdfMargins(0))
+            'End If
+            ''Draw template on new page
+            'page.CreateTemplate().Draw(newPage, New PointF(0, 0))
+            ''Save the file
+            'pdf1.SaveToFile("result.pdf", Spire.Pdf.FileFormat.PDF)
+
+
+
             Dim pdf As New PdfDocument()
             pdf.LoadFromFile(sourceFile)
 
@@ -431,8 +508,20 @@ Public Class frmSendungAnhangImport
             For Each p In pagesToExtract
                 Dim pageInt = p - 1 ' Nciht SeitenNr. sonder Aufzählung
                 If pageInt >= 0 And pageInt < pdf.Pages.Count Then
-                    page = pdf1.Pages.Add(pdf.Pages(pageInt).Size, New Graphics.PdfMargins(0))
+                    Dim pageOLD As PdfPageBase = pdf.Pages(pageInt)
+                    If pageOLD.Rotation = PdfPageRotateAngle.RotateAngle90 Then
+                        page = pdf1.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Graphics.PdfMargins(0))
+                    ElseIf pageOLD.Rotation = PdfPageRotateAngle.RotateAngle270 Then
+                        page = pdf1.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Graphics.PdfMargins(0))
+                    Else
+                        page = pdf1.Pages.Add(pageOLD.Size, New Graphics.PdfMargins(0))
+                    End If
                     pdf.Pages(pageInt).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
+
+                    'alter Kot:
+                    '  page = pdf1.Pages.Add(pdf.Pages(pageInt).Size, New Graphics.PdfMargins(0))
+                    'pdf.Pages(pageInt).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
+
                 End If
             Next
             pdf1.SaveToFile(destinationFile)
@@ -610,17 +699,19 @@ Public Class frmSendungAnhangImport
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
         initSendungen()
 
-        cboSendungen.changeItem(-1)
+        '   cboSendungen.changeItem(-1)
+        initFlpANH_LIST(flpnlAviso)
     End Sub
 
     Private Sub frmSendungAnhangImport_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         txtSeiten.Focus()
     End Sub
 
-    Private Sub txtSeiten_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSeiten.KeyDown, cboArt.KeyDown
+    Private Sub txtSeiten_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSeiten.KeyDown, cboArt.KeyDown, txtBezeichnung.KeyDown
         If e.KeyCode = Keys.Return Then
             btnAnfuegen.PerformClick()
         End If
@@ -645,11 +736,11 @@ Public Class frmSendungAnhangImport
         MyTextBox2.Text = cboSendungen.Text
         flpnlSendungen.Controls.Clear()
 
-        initFlpANH_LIST()
+        initFlpANH_LIST(flpnlSendungen)
 
     End Sub
 
-    Sub initFlpANH_LIST()
+    Sub initFlpANH_LIST(Optional pnl As FlowLayoutPanel = Nothing)
         Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
         'If cboSendungen._value > 0 Then
         '    VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, cboSendungen._value) 'LÄDT alle Aviso-Anhänge
@@ -657,8 +748,8 @@ Public Class frmSendungAnhangImport
         '    VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Sendungs-Anhänge
         'End If
         VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge
-        flpnlSendungen.Controls.Clear()
-        flpnlAviso.Controls.Clear()
+        If pnl Is Nothing OrElse pnl Is flpnlSendungen Then flpnlSendungen.Controls.Clear()
+        If pnl Is Nothing OrElse pnl Is flpnlAviso Then flpnlAviso.Controls.Clear()
 
         For Each a In ANH_LIST
 
@@ -675,13 +766,13 @@ Public Class frmSendungAnhangImport
 
             If If(a.anh_SendungsId, 0) > 0 Then
                 If cboSendungen._value <> "" AndAlso cboSendungen._value = a.anh_SendungsId Then
-                    flpnlSendungen.Controls.Add(USRCNTL)
+                    If pnl Is Nothing OrElse pnl Is flpnlSendungen Then flpnlSendungen.Controls.Add(USRCNTL)
                 End If
             Else
-                flpnlAviso.Controls.Add(USRCNTL)
+                If pnl Is Nothing OrElse pnl Is flpnlAviso Then flpnlAviso.Controls.Add(USRCNTL)
             End If
         Next
-        initLocationViewer("", "PDF")
+        'If act  Is Nothing Then initLocationViewer("", "PDF")
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAnfuegenAll.Click
@@ -859,7 +950,7 @@ Public Class frmSendungAnhangImport
         BrowserLoaded = True
     End Sub
 
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnAddSnd.Click
         Dim f As New frmAddSendnung(AvisoId)
         f.ShowDialog(Me)
         initSendungen()
@@ -900,24 +991,125 @@ Public Class frmSendungAnhangImport
     End Sub
 
     Private Sub txtSeiten_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSeiten.PreviewKeyDown, cboArt.PreviewKeyDown
-        If e.Modifiers = Keys.Control Then
-            If e.KeyCode = Keys.PageDown Then
-                cboSendungen.SelectedIndex = cboSendungen.SelectedIndex + 1
+        Try
+            If e.Modifiers = Keys.Alt Then ' Sendungen durchlaufen
+                If e.KeyCode = Keys.PageDown Then
+                    cboSendungen.SelectedIndex = cboSendungen.SelectedIndex + 1
+                End If
+                If e.KeyCode = Keys.PageUp Then
+                    cboSendungen.SelectedIndex = cboSendungen.SelectedIndex - 1
+                End If
+            ElseIf e.Modifiers = Keys.Control Then ' PDFs durchlaufen
+                If e.KeyCode = Keys.PageDown Then
+                    nextPDF()
+                End If
+                If e.KeyCode = Keys.PageUp Then
+                    prevPDF()
+                End If
+                If e.KeyCode = Keys.Add Then
+                    btnAddSnd.PerformClick()
+                End If
+            Else
+                If e.KeyCode = Keys.PageDown Then
+                    PdfViewer.GoToPage(PdfViewer.CurrentPageNumber + 1)
+                End If
+                If e.KeyCode = Keys.PageUp Then
+                    PdfViewer.GoToPage(PdfViewer.CurrentPageNumber - 1)
+                End If
             End If
-            If e.KeyCode = Keys.PageUp Then
-                cboSendungen.SelectedIndex = cboSendungen.SelectedIndex - 1
+        Catch ex As ArgumentOutOfRangeException
+            'out of range
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Sub nextPDF()
+        Dim bool_next = False
+        For Each c As usrCntlSendungAnhangElement In flpnlAviso.Controls
+            If bool_next Then c.CLICK_Me() : Exit Sub
+            If c.ACTIVE Then
+                bool_next = True
             End If
-        Else
-            If e.KeyCode = Keys.PageDown Then
-                PdfViewer.GoToPage(PdfViewer.CurrentPageNumber + 1)
+        Next
+    End Sub
+
+    Sub prevPDF()
+        Dim ctmp As usrCntlSendungAnhangElement = Nothing
+        For Each c As usrCntlSendungAnhangElement In flpnlAviso.Controls
+            If c.ACTIVE Then
+                If ctmp IsNot Nothing Then ctmp.CLICK_Me()
+                Exit Sub
             End If
-            If e.KeyCode = Keys.PageUp Then
-                PdfViewer.GoToPage(PdfViewer.CurrentPageNumber - 1)
+            ctmp = c
+        Next
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        If txtSeiten.Text = "" Then Exit Sub
+        '   If cboArt._value = "" Then Exit Sub
+        If cboSendungen._value = "" Then Exit Sub
+        If Not checkSeiten() Then Exit Sub
+
+        Dim CurrentPageNumber = PdfViewer.CurrentPageNumber
+        Dim pages = getPagesFromText()
+        Dim cntl = getAcitveCntl()
+        Dim cntlID = If(cntl IsNot Nothing, getAcitveCntl().FILE_ANHID, -1)
+
+        For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
+            If u.ACTIVE Then
+                If u.FILE_TYPE <> "PDF" Then Exit Sub
+                Dim fi As New FileInfo(u.FILE_PATH)
+                Dim SendngsId As Integer = cboSendungen._value
+                Dim TMP_Path_Old = u.FILE_PATH
+                Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(u.FILE_NAME, fi.Extension,, True, "SendungsAnhaenge")
+                Dim PagesLeft = 0
+                If vbYes = MsgBox("Möchten Sie die Seiten wirklich auf dem Dokument löschen?", vbYesNoCancel) Then
+
+                    If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
+                        If PagesLeft = 0 Then
+                            'delFromDS(u.FILE_DOCID)
+                            deleteElement(u.FILE_DOCID, u.FILE_ANHID, False)
+                            flpnlAviso.Controls.Remove(u)
+                        Else
+                            Dim destPath = ""
+                            If saveChangeToDS_daId(u.FILE_DOCID, TMP_Path_New, destPath) Then
+                                tryDelete(TMP_Path_Old)
+                                u.FILE_PATH = destPath
+                            End If
+                        End If
+                    End If
+                End If
+
+                '------------- 
+            End If
+        Next
+        clearPnlAnfuegen()
+        '   initSendungen()
+
+        initFlpANH_LIST()
+
+        If flpnlAviso.Controls.Count > 0 Then
+            If Not setAvtiveById(flpnlAviso, CurrentPageNumber, pages, cntlID) Then
+                DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
             End If
         End If
-
     End Sub
 
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        PdfViewer.Rotate(Spire.PdfViewer.Forms.RotateAngle.RotateAngle90)
+    End Sub
+
+    Private Sub cboArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboArt.SelectedIndexChanged
+        If cboArt.Text.Replace("Sonstige", "") <> "" Then
+            txtBezeichnung.Text = cboArt.Text.Replace("Rechnung", "Handelsrechnung") & ".pdf"
+        End If
+    End Sub
+
+    'Private Sub txtBezeichnung_GotFocus(sender As Object, e As EventArgs) Handles txtBezeichnung.GotFocus
+    '    txtBezeichnung.SelectAll()
+    'End Sub
+
 
     'Dim angle = 0
     'Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click