20200108

Aviso/Anhänge/frmAddSendnung.Designer.vb

@@ -22,6 +22,7 @@ Partial Class frmAddSendnung
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddSendnung))
         Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label1 = New System.Windows.Forms.Label()
@@ -34,6 +35,17 @@ Partial Class frmAddSendnung
         Me.Label23 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.btn = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
+        Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.picWarnAbsender = New System.Windows.Forms.PictureBox()
+        Me.picWarnEmpfaenger = New System.Windows.Forms.PictureBox()
+        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'cboAbfertigungsart
@@ -46,7 +58,7 @@ Partial Class frmAddSendnung
         Me.cboAbfertigungsart.FormattingEnabled = True
         Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
         Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
-        Me.cboAbfertigungsart.Size = New System.Drawing.Size(359, 24)
+        Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24)
         Me.cboAbfertigungsart.TabIndex = 1
         '
         'Label1
@@ -70,26 +82,26 @@ Partial Class frmAddSendnung
         Me.txtEmpfaenger._displayWoelflKd = False
         Me.txtEmpfaenger._hideIfListEmpty = True
         Me.txtEmpfaenger._loadKdData = True
-        Me.txtEmpfaenger._ValueKdAndName = False
+        Me.txtEmpfaenger._ValueKdAndName = True
         Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
         Me.txtEmpfaenger.dgvpos = "LEFT"
         Me.txtEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtEmpfaenger.KdName = Nothing
+        Me.txtEmpfaenger.KdName = ""
         Me.txtEmpfaenger.KdNr = "-1"
         Me.txtEmpfaenger.kdNrField = Nothing
         Me.txtEmpfaenger.KdNrNullInt = Nothing
-        Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 84)
+        Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 131)
         Me.txtEmpfaenger.Name = "txtEmpfaenger"
         Me.txtEmpfaenger.nurAktive = True
         Me.txtEmpfaenger.searchActive = True
-        Me.txtEmpfaenger.Size = New System.Drawing.Size(359, 23)
-        Me.txtEmpfaenger.TabIndex = 3
+        Me.txtEmpfaenger.Size = New System.Drawing.Size(315, 23)
+        Me.txtEmpfaenger.TabIndex = 5
         Me.txtEmpfaenger.usrcntl = Nothing
         '
         'txtGewicht
         '
         Me.txtGewicht._DateTimeOnly = False
-        Me.txtGewicht._numbersOnly = False
+        Me.txtGewicht._numbersOnly = True
         Me.txtGewicht._numbersOnlyKommastellen = ""
         Me.txtGewicht._Prozent = False
         Me.txtGewicht._ShortDateNew = False
@@ -99,31 +111,31 @@ Partial Class frmAddSendnung
         Me.txtGewicht._Waehrung = False
         Me.txtGewicht._WaehrungZeichen = True
         Me.txtGewicht.ForeColor = System.Drawing.Color.Black
-        Me.txtGewicht.Location = New System.Drawing.Point(152, 165)
+        Me.txtGewicht.Location = New System.Drawing.Point(152, 212)
         Me.txtGewicht.MaxLineLength = -1
         Me.txtGewicht.MaxLines_Warning = ""
         Me.txtGewicht.MaxLines_Warning_Label = Nothing
         Me.txtGewicht.Name = "txtGewicht"
         Me.txtGewicht.Size = New System.Drawing.Size(60, 20)
-        Me.txtGewicht.TabIndex = 9
+        Me.txtGewicht.TabIndex = 11
         Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         'Label19
         '
         Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(9, 117)
+        Me.Label19.Location = New System.Drawing.Point(9, 164)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(100, 13)
-        Me.Label19.TabIndex = 4
+        Me.Label19.TabIndex = 6
         Me.Label19.Text = "Warenbezeichnung"
         '
         'Label17
         '
         Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(10, 168)
+        Me.Label17.Location = New System.Drawing.Point(10, 215)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(73, 13)
-        Me.Label17.TabIndex = 6
+        Me.Label17.TabIndex = 8
         Me.Label17.Text = "Colli/Gewicht:"
         '
         'txtColli
@@ -139,62 +151,177 @@ Partial Class frmAddSendnung
         Me.txtColli._Waehrung = False
         Me.txtColli._WaehrungZeichen = True
         Me.txtColli.ForeColor = System.Drawing.Color.Black
-        Me.txtColli.Location = New System.Drawing.Point(84, 165)
+        Me.txtColli.Location = New System.Drawing.Point(84, 212)
         Me.txtColli.MaxLineLength = -1
         Me.txtColli.MaxLines_Warning = ""
         Me.txtColli.MaxLines_Warning_Label = Nothing
         Me.txtColli.Name = "txtColli"
         Me.txtColli.Size = New System.Drawing.Size(46, 20)
-        Me.txtColli.TabIndex = 7
+        Me.txtColli.TabIndex = 9
         Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         'rtbWarenbezeichnung
         '
         Me.rtbWarenbezeichnung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.rtbWarenbezeichnung.Cursor = System.Windows.Forms.Cursors.IBeam
-        Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 133)
+        Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 180)
         Me.rtbWarenbezeichnung.MaxLength = 500
         Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
         Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 32)
-        Me.rtbWarenbezeichnung.TabIndex = 5
+        Me.rtbWarenbezeichnung.TabIndex = 7
         Me.rtbWarenbezeichnung.Text = ""
         '
         'Label23
         '
         Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(129, 168)
+        Me.Label23.Location = New System.Drawing.Point(129, 215)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(23, 13)
-        Me.Label23.TabIndex = 8
+        Me.Label23.TabIndex = 10
         Me.Label23.Text = "Pk."
         '
         'Label2
         '
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Label2.Location = New System.Drawing.Point(10, 64)
+        Me.Label2.Location = New System.Drawing.Point(10, 111)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(81, 17)
-        Me.Label2.TabIndex = 2
+        Me.Label2.TabIndex = 4
         Me.Label2.Text = "Empfänger:"
         '
         'btn
         '
         Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
         Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn.Location = New System.Drawing.Point(12, 197)
+        Me.btn.Location = New System.Drawing.Point(12, 244)
         Me.btn.Name = "btn"
         Me.btn.Size = New System.Drawing.Size(359, 52)
-        Me.btn.TabIndex = 10
+        Me.btn.TabIndex = 12
         Me.btn.Text = "OK"
         Me.btn.UseVisualStyleBackColor = True
         '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Label3.Location = New System.Drawing.Point(10, 65)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(73, 17)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "Absender:"
+        '
+        'txtAbsender
+        '
+        Me.txtAbsender._AllowSetValue = True
+        Me.txtAbsender._autoSizeGross = True
+        Me.txtAbsender._display_Name1 = False
+        Me.txtAbsender._displayAVISO_Email = False
+        Me.txtAbsender._displayFullName = False
+        Me.txtAbsender._displayWoelflKd = False
+        Me.txtAbsender._hideIfListEmpty = True
+        Me.txtAbsender._loadKdData = True
+        Me.txtAbsender._ValueKdAndName = True
+        Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
+        Me.txtAbsender.dgvpos = "LEFT"
+        Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtAbsender.KdName = ""
+        Me.txtAbsender.KdNr = "-1"
+        Me.txtAbsender.kdNrField = Nothing
+        Me.txtAbsender.KdNrNullInt = Nothing
+        Me.txtAbsender.Location = New System.Drawing.Point(12, 85)
+        Me.txtAbsender.Name = "txtAbsender"
+        Me.txtAbsender.nurAktive = True
+        Me.txtAbsender.searchActive = True
+        Me.txtAbsender.Size = New System.Drawing.Size(315, 23)
+        Me.txtAbsender.TabIndex = 3
+        Me.txtAbsender.usrcntl = Nothing
+        '
+        'FlatButton4
+        '
+        Me.FlatButton4.allowBorder = False
+        Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image)
+        Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.FlatButton4.FlatAppearance.BorderSize = 0
+        Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton4.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton4.Location = New System.Drawing.Point(325, 130)
+        Me.FlatButton4.Name = "FlatButton4"
+        Me.FlatButton4.Size = New System.Drawing.Size(25, 25)
+        Me.FlatButton4.TabIndex = 89
+        Me.FlatButton4.TabStop = False
+        Me.FlatButton4.UseVisualStyleBackColor = True
+        '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image)
+        Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.FlatButton1.FlatAppearance.BorderSize = 0
+        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton1.Location = New System.Drawing.Point(325, 84)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(25, 25)
+        Me.FlatButton1.TabIndex = 88
+        Me.FlatButton1.TabStop = False
+        Me.FlatButton1.UseVisualStyleBackColor = True
+        '
+        'picWarnAbsender
+        '
+        Me.picWarnAbsender.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
+        Me.picWarnAbsender.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picWarnAbsender.Location = New System.Drawing.Point(351, 85)
+        Me.picWarnAbsender.Name = "picWarnAbsender"
+        Me.picWarnAbsender.Size = New System.Drawing.Size(20, 23)
+        Me.picWarnAbsender.TabIndex = 86
+        Me.picWarnAbsender.TabStop = False
+        Me.picWarnAbsender.Visible = False
+        '
+        'picWarnEmpfaenger
+        '
+        Me.picWarnEmpfaenger.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
+        Me.picWarnEmpfaenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picWarnEmpfaenger.Location = New System.Drawing.Point(351, 131)
+        Me.picWarnEmpfaenger.Name = "picWarnEmpfaenger"
+        Me.picWarnEmpfaenger.Size = New System.Drawing.Size(20, 23)
+        Me.picWarnEmpfaenger.TabIndex = 87
+        Me.picWarnEmpfaenger.TabStop = False
+        Me.picWarnEmpfaenger.Visible = False
+        '
+        'RichTextBox1
+        '
+        Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
+        Me.RichTextBox1.Location = New System.Drawing.Point(12, 327)
+        Me.RichTextBox1.MaxLength = 500
+        Me.RichTextBox1.Name = "RichTextBox1"
+        Me.RichTextBox1.ReadOnly = True
+        Me.RichTextBox1.Size = New System.Drawing.Size(359, 102)
+        Me.RichTextBox1.TabIndex = 90
+        Me.RichTextBox1.Text = ""
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(12, 311)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(184, 13)
+        Me.Label4.TabIndex = 91
+        Me.Label4.Text = "Besonderheiten (aktives Kundenfeld):"
+        '
         'frmAddSendnung
         '
         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(389, 261)
+        Me.ClientSize = New System.Drawing.Size(389, 441)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.RichTextBox1)
+        Me.Controls.Add(Me.picWarnEmpfaenger)
+        Me.Controls.Add(Me.picWarnAbsender)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.txtAbsender)
         Me.Controls.Add(Me.btn)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.txtGewicht)
@@ -206,10 +333,14 @@ Partial Class frmAddSendnung
         Me.Controls.Add(Me.txtEmpfaenger)
         Me.Controls.Add(Me.cboAbfertigungsart)
         Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.FlatButton1)
+        Me.Controls.Add(Me.FlatButton4)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmAddSendnung"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "Sendnung hinzufügen"
+        CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -226,4 +357,13 @@ Partial Class frmAddSendnung
     Friend WithEvents Label23 As Label
     Friend WithEvents Label2 As Label
     Friend WithEvents btn As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.KdSearchBox
+    Friend WithEvents ToolTip As ToolTip
+    Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents picWarnAbsender As PictureBox
+    Friend WithEvents picWarnEmpfaenger As PictureBox
+    Friend WithEvents RichTextBox1 As RichTextBox
+    Friend WithEvents Label4 As Label
 End Class

Aviso/Anhänge/frmAddSendnung.resx

@@ -117,7 +117,42 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
+        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
+        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
+        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
+        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
+        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
+        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
+        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
+        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
+        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
+        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
+        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
+</value>
+  </data>
+  <data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
+        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
+        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
+        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
+        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
+        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
+        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
+        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
+        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
+        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
+        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
+        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
+</value>
+  </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

Aviso/Anhänge/frmAddSendnung.vb

@@ -1,8 +1,9 @@
 Public Class frmAddSendnung
 
-    Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen
+    Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim AvisoId As Integer
+    Dim AVISOFUNC As New AvisoStatusFunctions
     Public SendungsId As Integer = -1
     Sub New(AvisoId)
 
@@ -11,21 +12,74 @@
         Me.AvisoId = AvisoId
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
+    End Sub
+
+    Sub New(AvisoId, SENDUNG)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AvisoId = AvisoId
+        Me.Sendung = SENDUNG
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
     End Sub
     Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
         cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
         txtEmpfaenger.initKdBox(Me)
         txtEmpfaenger.usrcntlWIDTH = 360
         txtEmpfaenger.usrcntlHEIGHT = 100
+        txtAbsender.initKdBox(Me)
+        txtAbsender.usrcntlWIDTH = 360
+        txtAbsender.usrcntlHEIGHT = 100
+
+        AddHandler txtEmpfaenger.PropertyChanged, Sub()
+                                                      FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
+                                                      initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
+                                                      initBesKd(txtEmpfaenger)
+                                                  End Sub
+        AddHandler txtAbsender.PropertyChanged, Sub()
+                                                    FlatButton1.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
+                                                    initWarnKd(txtAbsender, picWarnAbsender)
+                                                    initBesKd(txtAbsender)
+                                                End Sub
+
+
+
+        If Sendung IsNot Nothing Then
+            cboAbfertigungsart.changeItem(Sendung.tblSnd_Abfertigungsart_ID)
+            If Sendung.tblSnd_EmpfaengerKdNr > 0 Then
+                txtEmpfaenger.KdNr = Sendung.tblSnd_EmpfaengerKdNr
+            Else
+                txtEmpfaenger.Text = Sendung.tblSnd_Empfaenger
+            End If
+            If Sendung.tblSnd_AbsenderKdNr > 0 Then
+                txtAbsender.KdNr = Sendung.tblSnd_AbsenderKdNr
+            Else
+                txtAbsender.Text = Sendung.tblSnd_Absender
+            End If
+
+            txtColli.Text = If(Sendung.tblSnd_Colli, "")
+            txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "")
+            rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")
+
+        End If
+
+
+
     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)
+            If Sendung Is Nothing Then
+                Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
+            End If
+
             Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
             Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
             Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
+            Sendung.tblSnd_Absender = txtAbsender.Text
+            Sendung.tblSnd_AbsenderKdNr = txtAbsender.KdNr
             Sendung.tblSnd_Colli = txtColli.Text
             Sendung.tblSnd_Gewicht = txtGewicht.Text
             Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
@@ -43,4 +97,92 @@
 
     End Sub
 
+    Private Sub txtEmpfaenger_PropertyChanged(sender As Object, e As EventArgs) Handles txtEmpfaenger.PropertyChanged
+        initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
+    End Sub
+
+    Private Sub txtEmpfaenger_TextChanged_1(sender As Object, e As EventArgs) Handles txtEmpfaenger.TextChanged
+        picWarnEmpfaenger.Visible = False
+        'initBesKd(Nothing)
+    End Sub
+
+    Private Sub txtAbsender_TextChanged(sender As Object, e As EventArgs) Handles txtAbsender.TextChanged
+        picWarnAbsender.Visible = False
+        '  initBesKd(Nothing)
+    End Sub
+    Private Sub txtAbsender_PropertyChanged(sender As Object, e As EventArgs) Handles txtAbsender.PropertyChanged
+        initWarnKd(txtAbsender, picWarnAbsender)
+    End Sub
+
+    Sub initWarnKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox, pic As PictureBox)
+        Try
+            pic.Visible = False
+            ToolTip.SetToolTip(pic, "")
+            Dim InfoText = ""
+            If kdSearch.KdData_ADRESSEN IsNot Nothing Then
+                If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then
+                    InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine
+                End If
+            End If
+
+            If kdSearch.KdData_KUNDE IsNot Nothing Then
+                If kdSearch.KdData_KUNDE.Abfertigungsverbot Then
+                    pic.Visible = True
+                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                        Case "VERAG" : InfoText &= "ACHTUNG!" & vbNewLine
+                        Case Else
+                            InfoText &= "ABFERTIGUNGSVERBOT!" & vbNewLine
+                    End Select
+                    If If(kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund, "") <> "" Then InfoText &= kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund & vbNewLine
+                End If
+            End If
+
+            ToolTip.SetToolTip(pic, InfoText.Trim)
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+    Sub initBesKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox)
+        If kdSearch Is Nothing Then
+            RichTextBox1.Text = ""
+        Else
+            If kdSearch.KdData_KUNDE IsNot Nothing Then
+                RichTextBox1.Text = If(kdSearch.KdData_KUNDE.Besonderheiten, "")
+            End If
+        End If
+    End Sub
+
+    Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
+        If txtEmpfaenger.KdNr > 0 Then
+            Me.Cursor = Cursors.WaitCursor
+            AVISOFUNC.showKd(txtEmpfaenger.KdNr)
+            Me.Cursor = Cursors.Default
+        End If
+    End Sub
+
+
+    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        If txtAbsender.KdNr > 0 Then
+            Me.Cursor = Cursors.WaitCursor
+            AVISOFUNC.showKd(txtAbsender.KdNr)
+            Me.Cursor = Cursors.Default
+        End If
+    End Sub
+
+    Private Sub txtAbsender_GotFocus(sender As Object, e As EventArgs) Handles txtAbsender.GotFocus, txtEmpfaenger.GotFocus
+        initBesKd(sender)
+    End Sub
+    Private Sub txtAbsender_lostFocus(sender As Object, e As EventArgs) Handles txtAbsender.LostFocus, txtEmpfaenger.LostFocus
+        initBesKd(Nothing)
+    End Sub
+
+    Private Sub txtGewicht_TextChanged(sender As Object, e As EventArgs) Handles txtGewicht.TextChanged
+
+    End Sub
+
+    Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.TextChanged
+        txtGewicht.Text = txtGewicht.Text.Replace(" ", "")
+            End Sub
 End Class

Aviso/Anhänge/frmSendungAnhangImport.Designer.vb

@@ -58,10 +58,18 @@ Partial Class frmSendungAnhangImport
         Me.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer()
         Me.WebBrowser = New System.Windows.Forms.WebBrowser()
         Me.Button3 = New System.Windows.Forms.Button()
-        Me.Button4 = New System.Windows.Forms.Button()
+        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()
+        Me.lblAbsender = New System.Windows.Forms.Label()
+        Me.lblEmpfaenger = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button17 = New System.Windows.Forms.Button()
+        Me.cbxAlternativePDFAnsicht = New System.Windows.Forms.CheckBox()
         Me.flpnlAviso.SuspendLayout()
         Me.pnlAnfuegen.SuspendLayout()
         Me.cntxt.SuspendLayout()
@@ -128,9 +136,9 @@ Partial Class frmSendungAnhangImport
         Me.flpnlSendungen.AutoScroll = True
         Me.flpnlSendungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.flpnlSendungen.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
-        Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 62)
+        Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 150)
         Me.flpnlSendungen.Name = "flpnlSendungen"
-        Me.flpnlSendungen.Size = New System.Drawing.Size(230, 731)
+        Me.flpnlSendungen.Size = New System.Drawing.Size(230, 643)
         Me.flpnlSendungen.TabIndex = 10
         '
         'Label2
@@ -158,6 +166,7 @@ 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.cbxAlternativePDFAnsicht)
         Me.pnlAnfuegen.Controls.Add(Me.Button1)
         Me.pnlAnfuegen.Controls.Add(Me.txtBezeichnung)
         Me.pnlAnfuegen.Controls.Add(Me.Label1)
@@ -182,9 +191,9 @@ Partial Class frmSendungAnhangImport
         '
         Me.Button1.BackColor = System.Drawing.Color.Wheat
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(523, 133)
+        Me.Button1.Location = New System.Drawing.Point(748, 132)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(277, 28)
+        Me.Button1.Size = New System.Drawing.Size(52, 28)
         Me.Button1.TabIndex = 14
         Me.Button1.Text = "Hardcore test"
         Me.Button1.UseVisualStyleBackColor = False
@@ -320,6 +329,8 @@ Partial Class frmSendungAnhangImport
         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)
@@ -489,26 +500,27 @@ Partial Class frmSendungAnhangImport
         Me.Button3.Text = "<<   zurück   <<"
         Me.Button3.UseVisualStyleBackColor = False
         '
-        'Button4
+        'btnSndDel
         '
-        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.Location = New System.Drawing.Point(1240, 2)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(63, 25)
-        Me.Button4.TabIndex = 2
-        Me.Button4.Text = "Löschen"
-        Me.Button4.UseVisualStyleBackColor = True
+        Me.btnSndDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSndDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSndDel.Image = Global.AVISO.My.Resources.Resources.del1
+        Me.btnSndDel.Location = New System.Drawing.Point(1271, 2)
+        Me.btnSndDel.Name = "btnSndDel"
+        Me.btnSndDel.Size = New System.Drawing.Size(32, 25)
+        Me.btnSndDel.TabIndex = 2
+        Me.btnSndDel.UseVisualStyleBackColor = True
         '
         'btnAddSnd
         '
+        Me.btnAddSnd.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnAddSnd.ContextMenuStrip = Me.cntxt
         Me.btnAddSnd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAddSnd.Location = New System.Drawing.Point(1159, 2)
+        Me.btnAddSnd.Location = New System.Drawing.Point(1141, 2)
         Me.btnAddSnd.Name = "btnAddSnd"
-        Me.btnAddSnd.Size = New System.Drawing.Size(75, 25)
+        Me.btnAddSnd.Size = New System.Drawing.Size(58, 25)
         Me.btnAddSnd.TabIndex = 1
-        Me.btnAddSnd.Text = "+ Sendung"
+        Me.btnAddSnd.Text = "+ NEU"
         Me.btnAddSnd.UseVisualStyleBackColor = True
         '
         'cboSendungen
@@ -525,14 +537,107 @@ Partial Class frmSendungAnhangImport
         Me.cboSendungen.Size = New System.Drawing.Size(230, 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)
+        Me.lblSendungsdetails.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 99)
+        Me.lblSendungsdetails.Name = "lblSendungsdetails"
+        Me.lblSendungsdetails.Size = New System.Drawing.Size(223, 17)
+        Me.lblSendungsdetails.TabIndex = 13
+        Me.lblSendungsdetails.Text = "-"
+        '
+        'lblWarenbeichnung
+        '
+        Me.lblWarenbeichnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblWarenbeichnung.Location = New System.Drawing.Point(1077, 116)
+        Me.lblWarenbeichnung.Name = "lblWarenbeichnung"
+        Me.lblWarenbeichnung.Size = New System.Drawing.Size(223, 31)
+        Me.lblWarenbeichnung.TabIndex = 14
+        Me.lblWarenbeichnung.Text = "-"
+        '
+        'btnSndEdit
+        '
+        Me.btnSndEdit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSndEdit.ContextMenuStrip = Me.cntxt
+        Me.btnSndEdit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSndEdit.Image = Global.AVISO.My.Resources.Resources.stift1
+        Me.btnSndEdit.Location = New System.Drawing.Point(1205, 3)
+        Me.btnSndEdit.Name = "btnSndEdit"
+        Me.btnSndEdit.Size = New System.Drawing.Size(29, 25)
+        Me.btnSndEdit.TabIndex = 15
+        Me.btnSndEdit.UseVisualStyleBackColor = True
+        '
+        'lblAbsender
+        '
+        Me.lblAbsender.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAbsender.Location = New System.Drawing.Point(1077, 67)
+        Me.lblAbsender.Name = "lblAbsender"
+        Me.lblAbsender.Size = New System.Drawing.Size(223, 15)
+        Me.lblAbsender.TabIndex = 16
+        Me.lblAbsender.Text = "-"
+        '
+        'lblEmpfaenger
+        '
+        Me.lblEmpfaenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblEmpfaenger.Location = New System.Drawing.Point(1077, 82)
+        Me.lblEmpfaenger.Name = "lblEmpfaenger"
+        Me.lblEmpfaenger.Size = New System.Drawing.Size(223, 17)
+        Me.lblEmpfaenger.TabIndex = 17
+        Me.lblEmpfaenger.Text = "-"
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Location = New System.Drawing.Point(1073, 98)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(230, 1)
+        Me.Panel1.TabIndex = 18
+        '
+        'Button17
+        '
+        Me.Button17.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button17.BackgroundImage = Global.AVISO.My.Resources.Resources.vermerk
+        Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button17.Location = New System.Drawing.Point(1240, 2)
+        Me.Button17.Name = "Button17"
+        Me.Button17.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
+        Me.Button17.Size = New System.Drawing.Size(25, 26)
+        Me.Button17.TabIndex = 6
+        Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button17.UseVisualStyleBackColor = True
+        '
+        'cbxAlternativePDFAnsicht
+        '
+        Me.cbxAlternativePDFAnsicht.AutoSize = True
+        Me.cbxAlternativePDFAnsicht.Location = New System.Drawing.Point(527, 139)
+        Me.cbxAlternativePDFAnsicht.Name = "cbxAlternativePDFAnsicht"
+        Me.cbxAlternativePDFAnsicht.Size = New System.Drawing.Size(138, 17)
+        Me.cbxAlternativePDFAnsicht.TabIndex = 15
+        Me.cbxAlternativePDFAnsicht.Text = "Alternative PDF-Ansicht"
+        Me.cbxAlternativePDFAnsicht.UseVisualStyleBackColor = True
+        '
         '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.Button17)
+        Me.Controls.Add(Me.flpnlSendungen)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.lblAbsender)
+        Me.Controls.Add(Me.btnSndEdit)
+        Me.Controls.Add(Me.lblWarenbeichnung)
+        Me.Controls.Add(Me.lblSendungsdetails)
         Me.Controls.Add(Me.btnAddSnd)
-        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.btnSndDel)
         Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.cboSendungen)
         Me.Controls.Add(Me.Button2)
@@ -540,10 +645,10 @@ Partial Class frmSendungAnhangImport
         Me.Controls.Add(Me.pnlAnfuegen)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.flpnlSendungen)
         Me.Controls.Add(Me.flpnlAviso)
         Me.Controls.Add(Me.lbl)
         Me.Controls.Add(Me.pnl)
+        Me.Controls.Add(Me.lblEmpfaenger)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.KeyPreview = True
         Me.Name = "frmSendungAnhangImport"
@@ -586,7 +691,7 @@ Partial Class frmSendungAnhangImport
     Friend WithEvents cntxt As ContextMenuStrip
     Friend WithEvents DateiScannenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents Button4 As Button
+    Friend WithEvents btnSndDel As Button
     Friend WithEvents PrintDocument1 As Printing.PrintDocument
     Friend WithEvents PdfViewer As Spire.PdfViewer.Forms.PdfViewer
     Friend WithEvents WebBrowser As WebBrowser
@@ -597,4 +702,12 @@ Partial Class frmSendungAnhangImport
     Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label1 As Label
     Friend WithEvents Button1 As Button
+    Friend WithEvents lblSendungsdetails As Label
+    Friend WithEvents lblWarenbeichnung As Label
+    Friend WithEvents btnSndEdit As Button
+    Friend WithEvents lblAbsender As Label
+    Friend WithEvents lblEmpfaenger As Label
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Button17 As Button
+    Friend WithEvents cbxAlternativePDFAnsicht As CheckBox
 End Class

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -81,14 +81,21 @@ Public Class frmSendungAnhangImport
         PdfViewer.CloseDocument()
         WebBrowser.Navigate("")
         If typ = "PDF" Then
-            WebBrowser.Visible = False
-            PdfViewer.Visible = (loc <> "")
-            PdfViewer.LoadFromFile(loc)
+            If cbxAlternativePDFAnsicht.Checked Then
+                PdfViewer.Visible = False
+                WebBrowser.Visible = (loc <> "")
+                WebBrowser.Navigate(loc)
+            Else
+                WebBrowser.Visible = False
+                PdfViewer.Visible = (loc <> "")
+                PdfViewer.LoadFromFile(loc)
+            End If
         ElseIf typ = "BILD" Then
             PdfViewer.Visible = False
             WebBrowser.Visible = (loc <> "")
             WebBrowser.Navigate(loc)
         End If
+        Button5.Visible = PdfViewer.Visible
     End Sub
 
     Function getAcitvePnl() As FlowLayoutPanel
@@ -141,10 +148,10 @@ Public Class frmSendungAnhangImport
                 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")
-                If Not extractPagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText()) Then Exit Sub
+                'If Not extractPagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText()) Then Exit Sub
+                If Not ExtractPdfPages_NEW(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, getPDFSplitName(u.FILE_NAME), TMP_Path_New, cboArt._value, u.FILE_TYPE,,,, SendngsId)
 
                 '------------- 
@@ -156,7 +163,8 @@ Public Class frmSendungAnhangImport
                     If cbxDelPDF.Checked Then
                         TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(u.FILE_NAME, fi.Extension,, True, "SendungsAnhaenge")
                         Dim PagesLeft = 0
-                        If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
+                        ' If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
+                        If removePagesFromPdf_NEW(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)
@@ -213,7 +221,7 @@ Public Class frmSendungAnhangImport
                 End If
             Next
         Catch ex As Exception
-            MsgBox(ex.Message)
+            MsgBox(ex.Message & ex.StackTrace)
         End Try
         Return False
     End Function
@@ -232,7 +240,7 @@ Public Class frmSendungAnhangImport
                 End If
             Next
         Catch ex As Exception
-            MsgBox(ex.Message)
+            MsgBox(ex.Message & ex.StackTrace)
         End Try
         Return False
     End Function
@@ -556,6 +564,34 @@ Public Class frmSendungAnhangImport
         Return True
     End Function
 
+
+    Public Function ExtractPdfPages_NEW(ByVal SourceFile As String, ByVal TargetFile As String, pagesToExtract As List(Of Integer)) As Boolean
+        Try
+            Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
+            Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
+            If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf"
+            Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0))
+            Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
+            PdfCopyProvider.SetFullCompression()
+            srcDoc.Open()
+            For Each p In pagesToExtract
+                If p > Reader.NumberOfPages Then MsgBox("Seitenanzahl überschritten!") : Return False
+                impPage = PdfCopyProvider.GetImportedPage(Reader, p)
+                ' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
+                PdfCopyProvider.SetPageSize(New iTextSharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, Reader.GetPageRotation(p)))
+                ' ----- PDF Seite in das neue Dokument einfügen
+                PdfCopyProvider.AddPage(impPage)
+
+            Next
+            ' ----- neues PDF Dokument und den Reader schließen
+            srcDoc.Close()
+            Reader.Close()
+            Return True
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
     'Public Function ExtractPdfPages(ByVal SourceFile As String, ByVal TargetFile As String, ByVal IntStr As Integer, ByVal IntEnd As Integer)
     '    Try
     '        Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
@@ -582,6 +618,58 @@ Public Class frmSendungAnhangImport
     'End Function
 
 
+    Public Function removePagesFromPdf_NEW(ByVal sourceFile As String, ByVal destinationFile As String, pagesToDelete As List(Of Integer), ByRef PagesLeft As Integer, delSource As Boolean) As Boolean
+
+        Try
+            PagesLeft = 0
+            Dim r As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sourceFile)
+            Dim pagesToKeep As New List(Of Integer)
+            For p = 1 To r.NumberOfPages
+                Dim del = False
+                For Each i In pagesToDelete
+                    If p = i Then
+                        del = True : Exit For
+                    End If
+                Next
+                If Not del Then
+                    pagesToKeep.Add(p)
+                End If
+            Next
+            If pagesToKeep.Count > 0 Then
+                PagesLeft = r.NumberOfPages - pagesToKeep.Count
+                If ExtractPdfPages_NEW(sourceFile, destinationFile, pagesToKeep) Then
+                    If delSource Then tryDelete(sourceFile)
+                End If
+                If False Then
+
+                    Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None)
+
+                        Using doc As iTextSharp.text.Document = New iTextSharp.text.Document()
+
+                            Dim w As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, fs)
+                            doc.Open()
+                            For Each page As Integer In pagesToKeep
+                                doc.NewPage()
+                                w.DirectContent.AddTemplate(w.GetImportedPage(r, page), 0, 0)
+                                PagesLeft += 1
+                            Next
+                            doc.Close()
+                            ' End Using
+
+
+                        End Using
+                    End Using
+                End If
+                If delSource Then tryDelete(sourceFile)
+            End If
+
+            Return True
+        Catch ex As Exception
+        MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
     'Public Sub removePagesFromPdf(ByVal sourceFile As String, ByVal destinationFile As String, pagesToDelete As List(Of Integer), ByRef PagesLeft As Integer)
 
     '    Try
@@ -710,9 +798,16 @@ Public Class frmSendungAnhangImport
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
         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("Auftrag", "Auftrag"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
         initSendungen()
 
@@ -746,6 +841,10 @@ Public Class frmSendungAnhangImport
     End Sub
 
     Private Sub cboSendungen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSendungen.SelectedIndexChanged
+
+        btnSndDel.Enabled = (cboSendungen._value <> "")
+        btnSndEdit.Enabled = (cboSendungen._value <> "")
+
         MyTextBox2.Text = cboSendungen.Text
         flpnlSendungen.Controls.Clear()
 
@@ -769,9 +868,20 @@ Public Class frmSendungAnhangImport
         VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge
         If pnl Is Nothing OrElse pnl Is flpnlSendungen Then flpnlSendungen.Controls.Clear()
         If pnl Is Nothing OrElse pnl Is flpnlAviso Then flpnlAviso.Controls.Clear()
+        lblWarenbeichnung.Text = ""
+        lblSendungsdetails.Text = ""
+        lblAbsender.Text = ""
+        lblEmpfaenger.Text = ""
+        If cboSendungen._value <> "" Then
+            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value)
+            If If(SND.tblSnd_Colli, "") <> "" Then lblSendungsdetails.Text = SND.tblSnd_Colli & " Pk"
+            If If(SND.tblSnd_Gewicht, "") <> "" Then lblSendungsdetails.Text &= If(lblSendungsdetails.Text <> "", ";  ", "") & CDbl(SND.tblSnd_Gewicht).ToString("N1") & " kg"
+            lblWarenbeichnung.Text = If(SND.tblSnd_Warenbezeichnung, "")
+            lblAbsender.Text = If(SND.tblSnd_Absender, "")
+            lblEmpfaenger.Text = If(SND.tblSnd_Empfaenger, "")
+        End If
 
         For Each a In ANH_LIST
-
             If If(a.anh_SendungsId, 0) > 0 Then
                 If cboSendungen._value <> "" AndAlso cboSendungen._value = a.anh_SendungsId Then
                     If pnl Is Nothing OrElse pnl Is flpnlSendungen Then
@@ -899,7 +1009,7 @@ Public Class frmSendungAnhangImport
         cntxt.Show(Cursor.Position)
     End Sub
 
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnSndDel.Click
         deleteActiveElement(flpnlSendungen)
     End Sub
 
@@ -1034,6 +1144,14 @@ Public Class frmSendungAnhangImport
                 If e.KeyCode = Keys.PageUp Then
                     cboSendungen.SelectedIndex = cboSendungen.SelectedIndex - 1
                 End If
+                If e.KeyCode = Keys.Add Then
+                    btnAddSnd.PerformClick()
+                    e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
+                End If
+                If e.KeyCode = Keys.Return Then
+                    btnSndEdit.PerformClick()
+                    e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
+                End If
             ElseIf e.Modifiers = Keys.Control Then ' PDFs durchlaufen
                 If e.KeyCode = Keys.PageDown Then
                     nextPDF()
@@ -1045,6 +1163,10 @@ Public Class frmSendungAnhangImport
                     btnAddSnd.PerformClick()
                     e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
                 End If
+                If e.KeyCode = Keys.Return Then
+                    btnSndEdit.PerformClick()
+                    e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
+                End If
             Else
                 If e.KeyCode = Keys.PageDown Then
                     PdfViewer.GoToPage(PdfViewer.CurrentPageNumber + 1)
@@ -1056,7 +1178,7 @@ Public Class frmSendungAnhangImport
         Catch ex As ArgumentOutOfRangeException
             'out of range
         Catch ex As Exception
-            MsgBox(ex.Message)
+            MsgBox(ex.Message & ex.StackTrace)
         End Try
     End Sub
 
@@ -1068,6 +1190,9 @@ Public Class frmSendungAnhangImport
                 bool_next = True
             End If
         Next
+        If bool_next = False And flpnlAviso.Controls.Count > 0 Then
+            DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
+        End If
     End Sub
 
     Sub prevPDF()
@@ -1102,7 +1227,8 @@ Public Class frmSendungAnhangImport
                 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 removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
+                    If removePagesFromPdf_NEW(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)
@@ -1166,6 +1292,47 @@ Public Class frmSendungAnhangImport
 
     End Sub
 
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnSndEdit.Click
+
+        If cboSendungen._value <> "" Then
+            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value)
+            If SND IsNot Nothing Then
+                Dim f As New frmAddSendnung(AvisoId, SND)
+                If f.ShowDialog(Me) = DialogResult.OK Then
+                    initSendungen()
+                    cboSendungen.changeItem(f.SendungsId)
+                    initFlpANH_LIST(flpnlSendungen)
+                End If
+            End If
+        End If
+        txtSeiten.Focus()
+    End Sub
+
+    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
+        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+        Dim sv As New frmAddSendungsvermerkShort(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
+        sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position)
+        sv.ShowDialog(frmGrayOut)
+        frmGrayOut.Close()
+        sv.Close()
+
+        '  initVermerke()
+    End Sub
+
+    Private Sub cbxAlternativePDFAnsicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlternativePDFAnsicht.CheckedChanged
+        For Each p As usrCntlSendungAnhangElement In flpnlAviso.Controls
+            If p.ACTIVE Then
+                initLocationViewer(p.FILE_PATH, p.FILE_TYPE) : Exit Sub
+            End If
+        Next
+
+        For Each p As usrCntlSendungAnhangElement In flpnlSendungen.Controls
+            If p.ACTIVE Then
+                initLocationViewer(p.FILE_PATH, p.FILE_TYPE)
+            End If
+        Next
+    End Sub
+
 
     'Private Sub txtBezeichnung_GotFocus(sender As Object, e As EventArgs) Handles txtBezeichnung.GotFocus
     '    txtBezeichnung.SelectAll()

Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.Designer.vb

@@ -0,0 +1,122 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSendungAnhangUmbenennenUmkateg
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangUmbenennenUmkateg))
+        Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = 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.SuspendLayout()
+        '
+        '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(77, 41)
+        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(242, 26)
+        Me.txtBezeichnung.TabIndex = 13
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 49)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(63, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "Bezeichng.:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(12, 19)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(23, 13)
+        Me.Label5.TabIndex = 11
+        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(77, 11)
+        Me.cboArt.Name = "cboArt"
+        Me.cboArt.Size = New System.Drawing.Size(242, 28)
+        Me.cboArt.TabIndex = 12
+        '
+        'btnAnfuegen
+        '
+        Me.btnAnfuegen.BackColor = System.Drawing.Color.White
+        Me.btnAnfuegen.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAnfuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAnfuegen.Location = New System.Drawing.Point(77, 73)
+        Me.btnAnfuegen.Name = "btnAnfuegen"
+        Me.btnAnfuegen.Size = New System.Drawing.Size(242, 46)
+        Me.btnAnfuegen.TabIndex = 15
+        Me.btnAnfuegen.Text = "OK"
+        Me.btnAnfuegen.UseVisualStyleBackColor = False
+        '
+        'frmSendungAnhangUmbenennenUmkateg
+        '
+        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(326, 130)
+        Me.Controls.Add(Me.btnAnfuegen)
+        Me.Controls.Add(Me.txtBezeichnung)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.cboArt)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmSendungAnhangUmbenennenUmkateg"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents cboArt As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents btnAnfuegen As Button
+End Class

Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb

@@ -0,0 +1,48 @@
+Public Class frmSendungAnhangUmbenennenUmkateg
+    Dim nameOLD = ""
+    Dim artOLD = ""
+    Sub New(nameOLD As String, artOLD As String)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.nameOLD = nameOLD
+        Me.artOLD = artOLD
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        cboArt.Items.Clear()
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
+        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("Auftrag", "Auftrag"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
+        txtBezeichnung.Text = nameOLD
+        cboArt.changeItem(artOLD)
+    End Sub
+
+    Private Sub txtBezeichnung_TextChanged(sender As Object, e As EventArgs) Handles txtBezeichnung.TextChanged
+    End Sub
+
+    Private Sub txtBezeichnung_KeyDown(sender As Object, e As KeyEventArgs) Handles txtBezeichnung.KeyDown
+        If e.KeyCode = Keys.Return Then
+            btnAnfuegen.PerformClick()
+        End If
+    End Sub
+
+    Private Sub btnAnfuegen_Click(sender As Object, e As EventArgs) Handles btnAnfuegen.Click
+        If txtBezeichnung.Text = "" Then Me.DialogResult = DialogResult.None : Exit Sub
+    End Sub
+End Class

Aviso/Anhänge/usrCntlSendungAnhangElement.vb

@@ -118,17 +118,21 @@ Public Class usrCntlSendungAnhangElement
     End Sub
 
     Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
-        Dim bez = InputBox("Bitte geben Sie den neuen Dateinamen ein:")
-        If bez <> "" Then
-            Try
-                Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
-                ANH.anh_Name = bez
+        Try
+
+            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
+
+                ANH.anh_Name = f.txtBezeichnung.Text
+                ANH.anh_Art = f.cboArt._value
                 ANH.SAVE()
-                FILE_NAME = bez
-            Catch ex As Exception
-                MsgBox(ex.Message)
-            End Try
-        End If
+                FILE_NAME = f.txtBezeichnung.Text
+
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
 
     Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click