201020

2020-10-20 09:03:00 +02:00
parent 75b12f314d
commit 00cd158bf0
54 changed files with 11763 additions and 323 deletions
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungEndEmpfaenger.Designer.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungEndEmpfaenger.Designer.vb
@@ -0,0 +1,436 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmNacherfassungEndEmpfaenger
+    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(frmNacherfassungEndEmpfaenger))
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.dgvEndEmpfaenger = New System.Windows.Forms.DataGridView()
+        Me.Label35 = New System.Windows.Forms.Label()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.kdEndEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.cboUSt_UstIdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtRechnugnsbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lklBearbeitungAbbrechenUl = New System.Windows.Forms.LinkLabel()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.lblErrKD = New System.Windows.Forms.Label()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.lblErrUID = New System.Windows.Forms.Label()
+        Me.cboUSt_UstIdNrLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtRechnugnsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.clmnKdNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnEndEmpfaenger = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnUIDLand = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnUID = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnRechnungsbetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnRechnungsNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Button5 = New System.Windows.Forms.Button()
+        CType(Me.dgvEndEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'dgvEndEmpfaenger
+        '
+        Me.dgvEndEmpfaenger.AllowUserToAddRows = False
+        Me.dgvEndEmpfaenger.AllowUserToDeleteRows = False
+        Me.dgvEndEmpfaenger.AllowUserToResizeColumns = False
+        Me.dgvEndEmpfaenger.AllowUserToResizeRows = False
+        Me.dgvEndEmpfaenger.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEndEmpfaenger.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEndEmpfaenger.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnKdNr, Me.clmnEndEmpfaenger, Me.clmnUIDLand, Me.clmnUID, Me.clmnRechnungsbetrag, Me.clmnRechnungsNr})
+        Me.dgvEndEmpfaenger.GridColor = System.Drawing.Color.DarkGray
+        Me.dgvEndEmpfaenger.Location = New System.Drawing.Point(15, 25)
+        Me.dgvEndEmpfaenger.Name = "dgvEndEmpfaenger"
+        Me.dgvEndEmpfaenger.RowHeadersVisible = False
+        Me.dgvEndEmpfaenger.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvEndEmpfaenger.Size = New System.Drawing.Size(576, 197)
+        Me.dgvEndEmpfaenger.TabIndex = 1
+        '
+        'Label35
+        '
+        Me.Label35.AutoSize = True
+        Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label35.Location = New System.Drawing.Point(12, 9)
+        Me.Label35.Name = "Label35"
+        Me.Label35.Size = New System.Drawing.Size(88, 13)
+        Me.Label35.TabIndex = 0
+        Me.Label35.Text = "Endempfänger"
+        Me.Label35.Visible = False
+        '
+        'btnOK
+        '
+        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.btnOK.Location = New System.Drawing.Point(411, 276)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(176, 41)
+        Me.btnOK.TabIndex = 17
+        Me.btnOK.Text = "OK"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.Button1.Location = New System.Drawing.Point(283, 276)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(122, 41)
+        Me.Button1.TabIndex = 16
+        Me.Button1.Text = "Abbrechen"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'DataGridViewTextBoxColumn1
+        '
+        Me.DataGridViewTextBoxColumn1.FillWeight = 80.0!
+        Me.DataGridViewTextBoxColumn1.HeaderText = "LeistungsNr"
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+        Me.DataGridViewTextBoxColumn1.Width = 70
+        '
+        'DataGridViewTextBoxColumn2
+        '
+        Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewTextBoxColumn2.HeaderText = "Leistungsbez"
+        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+        '
+        'DataGridViewTextBoxColumn3
+        '
+        Me.DataGridViewTextBoxColumn3.HeaderText = "Preis"
+        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
+        '
+        'kdEndEmpfaenger
+        '
+        Me.kdEndEmpfaenger._AlleFirmenCLUSTER = True
+        Me.kdEndEmpfaenger._AllowSetValue = True
+        Me.kdEndEmpfaenger._autoSizeGross = False
+        Me.kdEndEmpfaenger._display_Name1 = False
+        Me.kdEndEmpfaenger._displayAVISO_Email = False
+        Me.kdEndEmpfaenger._displayFullName = False
+        Me.kdEndEmpfaenger._displayWoelflKd = False
+        Me.kdEndEmpfaenger._hideIfListEmpty = True
+        Me.kdEndEmpfaenger._loadKdData = True
+        Me.kdEndEmpfaenger._UseFIRMA = ""
+        Me.kdEndEmpfaenger._ValueKdAndName = False
+        Me.kdEndEmpfaenger.dgvpos = "LEFT"
+        Me.kdEndEmpfaenger.KdName = Nothing
+        Me.kdEndEmpfaenger.KdNr = "-1"
+        Me.kdEndEmpfaenger.kdNrField = Nothing
+        Me.kdEndEmpfaenger.KdNrNullInt = Nothing
+        Me.kdEndEmpfaenger.Location = New System.Drawing.Point(88, 228)
+        Me.kdEndEmpfaenger.Name = "kdEndEmpfaenger"
+        Me.kdEndEmpfaenger.nurAktive = True
+        Me.kdEndEmpfaenger.searchActive = True
+        Me.kdEndEmpfaenger.Size = New System.Drawing.Size(268, 20)
+        Me.kdEndEmpfaenger.TabIndex = 5
+        Me.kdEndEmpfaenger.TIMER_SEARCH = True
+        Me.kdEndEmpfaenger.usrcntl = Nothing
+        '
+        'cboUSt_UstIdNr
+        '
+        Me.cboUSt_UstIdNr._DateTimeOnly = False
+        Me.cboUSt_UstIdNr._numbersOnly = False
+        Me.cboUSt_UstIdNr._numbersOnlyKommastellen = ""
+        Me.cboUSt_UstIdNr._Prozent = False
+        Me.cboUSt_UstIdNr._ShortDateNew = False
+        Me.cboUSt_UstIdNr._ShortDateOnly = False
+        Me.cboUSt_UstIdNr._TimeOnly = False
+        Me.cboUSt_UstIdNr._value = Nothing
+        Me.cboUSt_UstIdNr._Waehrung = False
+        Me.cboUSt_UstIdNr._WaehrungZeichen = True
+        Me.cboUSt_UstIdNr.Location = New System.Drawing.Point(394, 228)
+        Me.cboUSt_UstIdNr.MaxLineLength = -1
+        Me.cboUSt_UstIdNr.MaxLines_Warning = ""
+        Me.cboUSt_UstIdNr.MaxLines_Warning_Label = Nothing
+        Me.cboUSt_UstIdNr.Name = "cboUSt_UstIdNr"
+        Me.cboUSt_UstIdNr.Size = New System.Drawing.Size(108, 20)
+        Me.cboUSt_UstIdNr.TabIndex = 7
+        '
+        'txtRechnugnsbetrag
+        '
+        Me.txtRechnugnsbetrag._DateTimeOnly = False
+        Me.txtRechnugnsbetrag._numbersOnly = False
+        Me.txtRechnugnsbetrag._numbersOnlyKommastellen = ""
+        Me.txtRechnugnsbetrag._Prozent = False
+        Me.txtRechnugnsbetrag._ShortDateNew = False
+        Me.txtRechnugnsbetrag._ShortDateOnly = False
+        Me.txtRechnugnsbetrag._TimeOnly = False
+        Me.txtRechnugnsbetrag._value = Nothing
+        Me.txtRechnugnsbetrag._Waehrung = True
+        Me.txtRechnugnsbetrag._WaehrungZeichen = True
+        Me.txtRechnugnsbetrag.Location = New System.Drawing.Point(501, 228)
+        Me.txtRechnugnsbetrag.MaxLineLength = -1
+        Me.txtRechnugnsbetrag.MaxLines_Warning = ""
+        Me.txtRechnugnsbetrag.MaxLines_Warning_Label = Nothing
+        Me.txtRechnugnsbetrag.Name = "txtRechnugnsbetrag"
+        Me.txtRechnugnsbetrag.Size = New System.Drawing.Size(90, 20)
+        Me.txtRechnugnsbetrag.TabIndex = 8
+        '
+        'lklBearbeitungAbbrechenUl
+        '
+        Me.lklBearbeitungAbbrechenUl.AutoSize = True
+        Me.lklBearbeitungAbbrechenUl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lklBearbeitungAbbrechenUl.Location = New System.Drawing.Point(473, 251)
+        Me.lklBearbeitungAbbrechenUl.Name = "lklBearbeitungAbbrechenUl"
+        Me.lklBearbeitungAbbrechenUl.Size = New System.Drawing.Size(118, 13)
+        Me.lklBearbeitungAbbrechenUl.TabIndex = 12
+        Me.lklBearbeitungAbbrechenUl.TabStop = True
+        Me.lklBearbeitungAbbrechenUl.Text = "Bearbeitung abbrechen"
+        Me.lklBearbeitungAbbrechenUl.Visible = False
+        '
+        'Button3
+        '
+        Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
+        Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Location = New System.Drawing.Point(593, 25)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(30, 20)
+        Me.Button3.TabIndex = 2
+        Me.Button3.TabStop = False
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(593, 228)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(30, 20)
+        Me.Button2.TabIndex = 9
+        Me.Button2.TabStop = False
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'lblErrKD
+        '
+        Me.lblErrKD.ForeColor = System.Drawing.Color.Red
+        Me.lblErrKD.Location = New System.Drawing.Point(12, 251)
+        Me.lblErrKD.Name = "lblErrKD"
+        Me.lblErrKD.Size = New System.Drawing.Size(235, 13)
+        Me.lblErrKD.TabIndex = 10
+        Me.lblErrKD.Text = "Bitte angeben!"
+        Me.lblErrKD.Visible = False
+        '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!)
+        Me.Label21.Location = New System.Drawing.Point(591, 213)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(33, 12)
+        Me.Label21.TabIndex = 3
+        Me.Label21.Text = "(Enter)"
+        '
+        'lblErrUID
+        '
+        Me.lblErrUID.ForeColor = System.Drawing.Color.Red
+        Me.lblErrUID.Location = New System.Drawing.Point(352, 251)
+        Me.lblErrUID.Name = "lblErrUID"
+        Me.lblErrUID.Size = New System.Drawing.Size(82, 13)
+        Me.lblErrUID.TabIndex = 11
+        Me.lblErrUID.Text = "Bitte angeben!"
+        Me.lblErrUID.Visible = False
+        '
+        'cboUSt_UstIdNrLand
+        '
+        Me.cboUSt_UstIdNrLand._allowedValuesFreiText = Nothing
+        Me.cboUSt_UstIdNrLand._allowFreiText = False
+        Me.cboUSt_UstIdNrLand._value = ""
+        Me.cboUSt_UstIdNrLand.FormattingEnabled = True
+        Me.cboUSt_UstIdNrLand.Location = New System.Drawing.Point(355, 228)
+        Me.cboUSt_UstIdNrLand.Name = "cboUSt_UstIdNrLand"
+        Me.cboUSt_UstIdNrLand.Size = New System.Drawing.Size(40, 21)
+        Me.cboUSt_UstIdNrLand.TabIndex = 6
+        '
+        'Button4
+        '
+        Me.Button4.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.Button4.Location = New System.Drawing.Point(27, 276)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(122, 41)
+        Me.Button4.TabIndex = 13
+        Me.Button4.Text = "UID Prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Stufe 1)"
+        Me.Button4.UseVisualStyleBackColor = True
+        Me.Button4.Visible = False
+        '
+        'txtKdNr
+        '
+        Me.txtKdNr._DateTimeOnly = False
+        Me.txtKdNr._numbersOnly = False
+        Me.txtKdNr._numbersOnlyKommastellen = ""
+        Me.txtKdNr._Prozent = False
+        Me.txtKdNr._ShortDateNew = False
+        Me.txtKdNr._ShortDateOnly = False
+        Me.txtKdNr._TimeOnly = False
+        Me.txtKdNr._value = Nothing
+        Me.txtKdNr._Waehrung = False
+        Me.txtKdNr._WaehrungZeichen = True
+        Me.txtKdNr.Location = New System.Drawing.Point(15, 228)
+        Me.txtKdNr.MaxLineLength = -1
+        Me.txtKdNr.MaxLines_Warning = ""
+        Me.txtKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtKdNr.Name = "txtKdNr"
+        Me.txtKdNr.ReadOnly = True
+        Me.txtKdNr.Size = New System.Drawing.Size(76, 20)
+        Me.txtKdNr.TabIndex = 4
+        '
+        'txtRechnugnsNr
+        '
+        Me.txtRechnugnsNr._DateTimeOnly = False
+        Me.txtRechnugnsNr._numbersOnly = False
+        Me.txtRechnugnsNr._numbersOnlyKommastellen = ""
+        Me.txtRechnugnsNr._Prozent = False
+        Me.txtRechnugnsNr._ShortDateNew = False
+        Me.txtRechnugnsNr._ShortDateOnly = False
+        Me.txtRechnugnsNr._TimeOnly = False
+        Me.txtRechnugnsNr._value = Nothing
+        Me.txtRechnugnsNr._Waehrung = True
+        Me.txtRechnugnsNr._WaehrungZeichen = True
+        Me.txtRechnugnsNr.Location = New System.Drawing.Point(15, 297)
+        Me.txtRechnugnsNr.MaxLineLength = -1
+        Me.txtRechnugnsNr.MaxLines_Warning = ""
+        Me.txtRechnugnsNr.MaxLines_Warning_Label = Nothing
+        Me.txtRechnugnsNr.Name = "txtRechnugnsNr"
+        Me.txtRechnugnsNr.Size = New System.Drawing.Size(61, 20)
+        Me.txtRechnugnsNr.TabIndex = 14
+        Me.txtRechnugnsNr.Visible = False
+        '
+        'clmnKdNr
+        '
+        Me.clmnKdNr.FillWeight = 80.0!
+        Me.clmnKdNr.HeaderText = "KdNr"
+        Me.clmnKdNr.Name = "clmnKdNr"
+        Me.clmnKdNr.Width = 70
+        '
+        'clmnEndEmpfaenger
+        '
+        Me.clmnEndEmpfaenger.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnEndEmpfaenger.HeaderText = "EndEmpfänger"
+        Me.clmnEndEmpfaenger.Name = "clmnEndEmpfaenger"
+        '
+        'clmnUIDLand
+        '
+        Me.clmnUIDLand.HeaderText = ""
+        Me.clmnUIDLand.Name = "clmnUIDLand"
+        Me.clmnUIDLand.Width = 40
+        '
+        'clmnUID
+        '
+        Me.clmnUID.HeaderText = "UID-Nr"
+        Me.clmnUID.Name = "clmnUID"
+        '
+        'clmnRechnungsbetrag
+        '
+        DataGridViewCellStyle2.Format = "C2"
+        Me.clmnRechnungsbetrag.DefaultCellStyle = DataGridViewCellStyle2
+        Me.clmnRechnungsbetrag.HeaderText = "Rechnungsbetrag"
+        Me.clmnRechnungsbetrag.Name = "clmnRechnungsbetrag"
+        '
+        'clmnRechnungsNr
+        '
+        Me.clmnRechnungsNr.HeaderText = "RechnungsNr"
+        Me.clmnRechnungsNr.Name = "clmnRechnungsNr"
+        Me.clmnRechnungsNr.Visible = False
+        Me.clmnRechnungsNr.Width = 180
+        '
+        'Button5
+        '
+        Me.Button5.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.Button5.Location = New System.Drawing.Point(125, 276)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(122, 41)
+        Me.Button5.TabIndex = 15
+        Me.Button5.Text = "UID Prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Stufe 2)"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'frmNacherfassungEndEmpfaenger
+        '
+        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(636, 329)
+        Me.Controls.Add(Me.Button5)
+        Me.Controls.Add(Me.txtRechnugnsNr)
+        Me.Controls.Add(Me.kdEndEmpfaenger)
+        Me.Controls.Add(Me.txtKdNr)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.cboUSt_UstIdNrLand)
+        Me.Controls.Add(Me.lblErrUID)
+        Me.Controls.Add(Me.lklBearbeitungAbbrechenUl)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.lblErrKD)
+        Me.Controls.Add(Me.Label21)
+        Me.Controls.Add(Me.txtRechnugnsbetrag)
+        Me.Controls.Add(Me.cboUSt_UstIdNr)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.btnOK)
+        Me.Controls.Add(Me.dgvEndEmpfaenger)
+        Me.Controls.Add(Me.Label35)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmNacherfassungEndEmpfaenger"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Endempfänger"
+        CType(Me.dgvEndEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents dgvEndEmpfaenger As System.Windows.Forms.DataGridView
+    Friend WithEvents Label35 As System.Windows.Forms.Label
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents kdEndEmpfaenger As VERAG_PROG_ALLGEMEIN.KdSearchBox
+    Friend WithEvents cboUSt_UstIdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtRechnugnsbetrag As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lklBearbeitungAbbrechenUl As LinkLabel
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents lblErrKD As Label
+    Friend WithEvents Label21 As Label
+    Friend WithEvents lblErrUID As Label
+    Friend WithEvents cboUSt_UstIdNrLand As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Button4 As Button
+    Friend WithEvents txtKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtRechnugnsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents clmnKdNr As DataGridViewTextBoxColumn
+    Friend WithEvents clmnEndEmpfaenger As DataGridViewTextBoxColumn
+    Friend WithEvents clmnUIDLand As DataGridViewTextBoxColumn
+    Friend WithEvents clmnUID As DataGridViewTextBoxColumn
+    Friend WithEvents clmnRechnungsbetrag As DataGridViewTextBoxColumn
+    Friend WithEvents clmnRechnungsNr As DataGridViewTextBoxColumn
+    Friend WithEvents Button5 As Button
+End Class
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungEndEmpfaenger.resx
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungEndEmpfaenger.resx
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungEndEmpfaenger.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungEndEmpfaenger.vb
@@ -0,0 +1,178 @@
+Public Class frmNacherfassungEndEmpfaenger
+    Public ENDEMPFAENGER As List(Of VERAG_PROG_ALLGEMEIN.cEndEmpfaener)
+    Public FilialenNr As Integer = -1
+    Public AbfertigungsNr As Integer = -1
+    Public UnterNr As Integer = -1
+
+
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Try
+            ENDEMPFAENGER.Clear()
+            For Each r As DataGridViewRow In dgvEndEmpfaenger.Rows
+                'If Not IsNumeric(r.Cells("LeistungsNr").Value) Then MsgBox("Leistungsnummer muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
+                'If Not IsNumeric(r.Cells("Preis").Value) Then MsgBox("Preis muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
+                ENDEMPFAENGER.Add(New VERAG_PROG_ALLGEMEIN.cEndEmpfaener(FilialenNr, AbfertigungsNr, UnterNr, CInt(r.Cells("clmnKdNr").Value), CStr(r.Cells("clmnEndEmpfaenger").Value), r.Cells("clmnUIDLand").Value, r.Cells("clmnUID").Value, r.Cells("clmnRechnungsbetrag").Value, r.Cells("clmnRechnungsNr").Value))
+            Next
+            Me.Close()
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+            Me.DialogResult = Windows.Forms.DialogResult.None
+        End Try
+    End Sub
+
+    Private Sub frmNacherfassungVorkosten_Load(sender As Object, e As EventArgs) Handles Me.Load
+        For Each v In ENDEMPFAENGER
+            dgvEndEmpfaenger.Rows.Add(v.EndEmpfaengerKdNr, v.EndEmpfaenger, If(v.UstIdKz, ""), If(v.UstIdNr, ""), v.Rechnungsbetrag, v.RechnungsNr)
+        Next
+
+
+        cboUSt_UstIdNrLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez  " &
+                                      " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " &
+                                      " WHERE [Währungstabelle].[MitgliedslandEU] = 1 " &
+                                      " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True)
+        kdEndEmpfaenger.initKdBox(Me, txtKdNr)
+        kdEndEmpfaenger.Focus()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        lblErrKD.Visible = False
+        lblErrUID.Visible = False
+        'lblErrRG.Visible = False
+
+        kdEndEmpfaenger.Focus() 'Rg_value
+        If kdEndEmpfaenger.KdNr_value <= 0 Then lblErrKD.Visible = True : Exit Sub
+        If cboUSt_UstIdNr.Text = "" Then lblErrUID.Visible = True : Exit Sub
+        If cboUSt_UstIdNrLand._value = "" Then lblErrUID.Visible = True : Exit Sub
+
+        Dim rg = Nothing
+        If IsNumeric(txtRechnugnsbetrag._value) AndAlso txtRechnugnsbetrag._value > 0 Then
+            rg = CDbl(txtRechnugnsbetrag._value)
+        End If
+
+        If UL_EDIT < 0 Then
+            dgvEndEmpfaenger.Rows.Add(kdEndEmpfaenger.KdNr_value, kdEndEmpfaenger.Text, cboUSt_UstIdNrLand._value, cboUSt_UstIdNr.Text, rg, txtRechnugnsNr.Text)
+        Else
+            dgvEndEmpfaenger.Rows.RemoveAt(UL_EDIT)
+            dgvEndEmpfaenger.Rows.Insert(UL_EDIT, kdEndEmpfaenger.KdNr_value, kdEndEmpfaenger.Text, cboUSt_UstIdNrLand._value, cboUSt_UstIdNr.Text, rg, txtRechnugnsNr.Text)
+            UL_EDIT = -1
+            Button2.BackgroundImage = My.Resources.plus
+            lklBearbeitungAbbrechenUl.Visible = False
+        End If
+
+        kdEndEmpfaenger.KdNr = ""
+        cboUSt_UstIdNr.Text = ""
+        cboUSt_UstIdNrLand.changeItem("")
+        txtRechnugnsbetrag.Text = ""
+        txtRechnugnsNr.Text = ""
+
+        kdEndEmpfaenger.Focus()
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvEndEmpfaenger.SelectedRows.Count > 0 Then
+            dgvEndEmpfaenger.Rows.Remove(dgvEndEmpfaenger.SelectedRows(0))
+        End If
+    End Sub
+
+
+    Private Sub txtRechnugnsbetrag_KeyDown(sender As Object, e As KeyEventArgs) Handles txtRechnugnsbetrag.KeyDown, txtRechnugnsNr.KeyDown, cboUSt_UstIdNr.KeyDown
+        If e.KeyCode = Keys.Return Then
+            Button2.PerformClick()
+        End If
+    End Sub
+
+    Dim UL_EDIT = -1
+    Private Sub dgvUnterlage_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvEndEmpfaenger.CellDoubleClick
+        If e.RowIndex < 0 Then Exit Sub
+        editableRowUL(e.RowIndex)
+    End Sub
+
+    Sub editableRowUL(index As Integer)
+        kdEndEmpfaenger.KdNr = dgvEndEmpfaenger.Rows(index).Cells("clmnKdNr").Value
+        cboUSt_UstIdNr.Text = dgvEndEmpfaenger.Rows(index).Cells("clmnUID").Value
+        txtRechnugnsbetrag.Text = dgvEndEmpfaenger.Rows(index).Cells("clmnRechnungsbetrag").Value
+        txtRechnugnsNr.Text = dgvEndEmpfaenger.Rows(index).Cells("clmnRechnungsNr").Value
+        cboUSt_UstIdNrLand.changeItem(dgvEndEmpfaenger.Rows(index).Cells("clmnUIDLand").Value)
+
+        UL_EDIT = index
+        Button2.BackgroundImage = My.Resources.stift
+        lklBearbeitungAbbrechenUl.Visible = True
+    End Sub
+
+    Private Sub lklBearbeitungAbbrechenUl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenUl.LinkClicked
+        UL_EDIT = -1
+        kdEndEmpfaenger.KdNr = ""
+        cboUSt_UstIdNr.Text = ""
+        cboUSt_UstIdNrLand.changeItem("")
+        txtRechnugnsbetrag.Text = ""
+        txtRechnugnsNr.Text = ""
+        Button1.BackgroundImage = My.Resources.plus
+        lklBearbeitungAbbrechenUl.Visible = False
+        kdEndEmpfaenger.Focus()
+    End Sub
+
+    Private Sub frmNacherfassungEndEmpfaenger_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        kdEndEmpfaenger.Focus()
+    End Sub
+
+    Private Sub kdEndEmpfaenger_TextChanged(sender As Object, e As EventArgs) Handles kdEndEmpfaenger.PropertyChanged
+        If kdEndEmpfaenger.KdData_ADRESSEN IsNot Nothing Then
+            cboUSt_UstIdNrLand.changeItem(If(kdEndEmpfaenger.KdData_ADRESSEN.UstIdKz, ""))
+            cboUSt_UstIdNr.Text = If(kdEndEmpfaenger.KdData_ADRESSEN.UstIdNr, "")
+        End If
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        dgvEndEmpfaenger.ClearSelection()
+
+        For Each r As DataGridViewRow In dgvEndEmpfaenger.Rows
+            'If r.Cells("clmnUIDLand").Value <> "" AndAlso r.Cells("clmnUIDNr").Value <> "" Then
+            If r.Cells("clmnKdNr").Value IsNot Nothing AndAlso r.Cells("clmnKdNr").Value.ToString <> "" Then
+                r.Cells("clmnUIDLand").Style.BackColor = Color.LightGray
+                r.Cells("clmnUIDLand").Style.ForeColor = Color.Black
+
+
+                Dim UID = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefung(r.Cells("clmnKdNr").Value, True)
+                If UID IsNot Nothing Then
+                    If UID.uid_valid Then
+                        r.Cells("clmnUIDLand").Style.BackColor = Color.Green
+                        r.Cells("clmnUIDLand").Style.ForeColor = Color.White
+                    Else
+                        r.Cells("clmnUIDLand").Style.BackColor = Color.DarkRed
+                        r.Cells("clmnUIDLand").Style.ForeColor = Color.White
+                    End If
+                End If
+                r.Cells("clmnUID").Style.BackColor = r.Cells("clmnUIDLand").Style.BackColor
+                r.Cells("clmnUID").Style.ForeColor = r.Cells("clmnUIDLand").Style.ForeColor
+            End If
+        Next
+        Me.DialogResult = DialogResult.None
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        dgvEndEmpfaenger.ClearSelection()
+
+        For Each r As DataGridViewRow In dgvEndEmpfaenger.Rows
+            'If r.Cells("clmnUIDLand").Value <> "" AndAlso r.Cells("clmnUIDNr").Value <> "" Then
+            If r.Cells("clmnUIDLand").Value IsNot Nothing AndAlso r.Cells("clmnUIDLand").Value.ToString <> "" AndAlso r.Cells("clmnUID").Value IsNot Nothing AndAlso r.Cells("clmnUID").Value.ToString <> "" Then
+                r.Cells("clmnUIDLand").Style.BackColor = Color.LightGray
+                r.Cells("clmnUIDLand").Style.ForeColor = Color.Black
+
+                Dim UID_ERG = SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(If(r.Cells("clmnUIDLand").Value, "") & If(r.Cells("clmnUID").Value, ""), "", "", "")
+                Select Case UID_ERG
+                    Case 0
+                        r.Cells("clmnUIDLand").Style.BackColor = Color.Green
+                        r.Cells("clmnUIDLand").Style.ForeColor = Color.White
+                    Case 1
+                        r.Cells("clmnUIDLand").Style.BackColor = Color.DarkRed
+                        r.Cells("clmnUIDLand").Style.ForeColor = Color.White
+                End Select
+            End If
+            r.Cells("clmnUID").Style.BackColor = r.Cells("clmnUIDLand").Style.BackColor
+            r.Cells("clmnUID").Style.ForeColor = r.Cells("clmnUIDLand").Style.ForeColor
+        Next
+        Me.DialogResult = DialogResult.None
+    End Sub
+End Class
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb
@@ -147,6 +147,8 @@ Partial Class frmNacherfassungNEU
        Me.txtKdAuftragsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.lblErrWaehrung = New System.Windows.Forms.Label()
        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label64 = New System.Windows.Forms.Label()
+        Me.cboAbklärungFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.lblSachbearbeiterIch = New VERAG_PROG_ALLGEMEIN.MyLinkLabelVALUE()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.btnOK = New System.Windows.Forms.Button()
@@ -226,8 +228,7 @@ Partial Class frmNacherfassungNEU
        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.cboAbklärungFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.Label64 = New System.Windows.Forms.Label()
+        Me.Button4 = New System.Windows.Forms.Button()
        Me.pnl.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
@@ -593,7 +594,7 @@ Partial Class frmNacherfassungNEU
        Me.lblErrSachbearbeiter.Location = New System.Drawing.Point(235, 46)
        Me.lblErrSachbearbeiter.Name = "lblErrSachbearbeiter"
        Me.lblErrSachbearbeiter.Size = New System.Drawing.Size(76, 13)
-        Me.lblErrSachbearbeiter.TabIndex = 3
+        Me.lblErrSachbearbeiter.TabIndex = 5
        Me.lblErrSachbearbeiter.Text = "Bitte angeben!"
        Me.lblErrSachbearbeiter.Visible = False
        '
@@ -604,7 +605,7 @@ Partial Class frmNacherfassungNEU
        Me.Label52.Location = New System.Drawing.Point(4, 4)
        Me.Label52.Name = "Label52"
        Me.Label52.Size = New System.Drawing.Size(140, 13)
-        Me.Label52.TabIndex = 0
+        Me.Label52.TabIndex = 1
        Me.Label52.Text = "Sachbearbeiter (quick-stop):"
        '
        'Label12
@@ -614,7 +615,7 @@ Partial Class frmNacherfassungNEU
        Me.Label12.Location = New System.Drawing.Point(3, 46)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(140, 13)
-        Me.Label12.TabIndex = 2
+        Me.Label12.TabIndex = 4
        Me.Label12.Text = "Sachbearbeiter (Verzollung):"
        '
        'ContextMenuStrip1
@@ -779,7 +780,7 @@ Partial Class frmNacherfassungNEU
        Me.Label17.Location = New System.Drawing.Point(769, 495)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(85, 13)
-        Me.Label17.TabIndex = 66
+        Me.Label17.TabIndex = 67
        Me.Label17.Text = "EU-Fiskal Empf.:"
        Me.Label17.Visible = False
        '
@@ -808,7 +809,7 @@ Partial Class frmNacherfassungNEU
        Me.cbxBar.Location = New System.Drawing.Point(404, 309)
        Me.cbxBar.Name = "cbxBar"
        Me.cbxBar.Size = New System.Drawing.Size(82, 17)
-        Me.cbxBar.TabIndex = 43
+        Me.cbxBar.TabIndex = 44
        Me.cbxBar.Text = "Bar, Betrag:"
        Me.cbxBar.UseVisualStyleBackColor = False
        '
@@ -819,7 +820,7 @@ Partial Class frmNacherfassungNEU
        Me.cbxFakturiert.Location = New System.Drawing.Point(404, 333)
        Me.cbxFakturiert.Name = "cbxFakturiert"
        Me.cbxFakturiert.Size = New System.Drawing.Size(70, 17)
-        Me.cbxFakturiert.TabIndex = 47
+        Me.cbxFakturiert.TabIndex = 48
        Me.cbxFakturiert.Text = "Fakturiert"
        Me.cbxFakturiert.UseVisualStyleBackColor = False
        '
@@ -829,7 +830,7 @@ Partial Class frmNacherfassungNEU
        Me.Label20.Location = New System.Drawing.Point(14, 434)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(132, 13)
-        Me.Label20.TabIndex = 50
+        Me.Label20.TabIndex = 51
        Me.Label20.Text = "Beleg-Nummer ZA/T1/T2:"
        '
        'Label21
@@ -838,7 +839,7 @@ Partial Class frmNacherfassungNEU
        Me.Label21.Location = New System.Drawing.Point(402, 613)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(79, 13)
-        Me.Label21.TabIndex = 85
+        Me.Label21.TabIndex = 86
        Me.Label21.Text = "Erfassungs-Nr.:"
        '
        'Label22
@@ -847,7 +848,7 @@ Partial Class frmNacherfassungNEU
        Me.Label22.Location = New System.Drawing.Point(400, 577)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(49, 13)
-        Me.Label22.TabIndex = 81
+        Me.Label22.TabIndex = 82
        Me.Label22.Text = "Vermerk:"
        '
        'Label23
@@ -856,7 +857,7 @@ Partial Class frmNacherfassungNEU
        Me.Label23.Location = New System.Drawing.Point(14, 512)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(64, 13)
-        Me.Label23.TabIndex = 67
+        Me.Label23.TabIndex = 68
        Me.Label23.Text = "Bemerkung:"
        '
        'GroupBox4
@@ -895,7 +896,7 @@ Partial Class frmNacherfassungNEU
        Me.GroupBox4.Location = New System.Drawing.Point(630, 43)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(253, 296)
-        Me.GroupBox4.TabIndex = 44
+        Me.GroupBox4.TabIndex = 45
        Me.GroupBox4.TabStop = False
        '
        'pnlHandling
@@ -1355,7 +1356,7 @@ Partial Class frmNacherfassungNEU
        Me.Label29.Location = New System.Drawing.Point(400, 512)
        Me.Label29.Name = "Label29"
        Me.Label29.Size = New System.Drawing.Size(67, 13)
-        Me.Label29.TabIndex = 68
+        Me.Label29.TabIndex = 69
        Me.Label29.Text = "Packstücke:"
        '
        'Label30
@@ -1364,7 +1365,7 @@ Partial Class frmNacherfassungNEU
        Me.Label30.Location = New System.Drawing.Point(583, 473)
        Me.Label30.Name = "Label30"
        Me.Label30.Size = New System.Drawing.Size(96, 13)
-        Me.Label30.TabIndex = 60
+        Me.Label30.TabIndex = 61
        Me.Label30.Text = "Umrechnungskurs:"
        '
        'Label31
@@ -1373,7 +1374,7 @@ Partial Class frmNacherfassungNEU
        Me.Label31.Location = New System.Drawing.Point(401, 473)
        Me.Label31.Name = "Label31"
        Me.Label31.Size = New System.Drawing.Size(87, 13)
-        Me.Label31.TabIndex = 59
+        Me.Label31.TabIndex = 60
        Me.Label31.Text = "Rechnungbetrag"
        '
        'Label32
@@ -1382,7 +1383,7 @@ Partial Class frmNacherfassungNEU
        Me.Label32.Location = New System.Drawing.Point(523, 472)
        Me.Label32.Name = "Label32"
        Me.Label32.Size = New System.Drawing.Size(54, 13)
-        Me.Label32.TabIndex = 56
+        Me.Label32.TabIndex = 57
        Me.Label32.Text = "Währung:"
        '
        'Label33
@@ -1391,7 +1392,7 @@ Partial Class frmNacherfassungNEU
        Me.Label33.Location = New System.Drawing.Point(401, 434)
        Me.Label33.Name = "Label33"
        Me.Label33.Size = New System.Drawing.Size(60, 13)
-        Me.Label33.TabIndex = 52
+        Me.Label33.TabIndex = 53
        Me.Label33.Text = "Rohmasse:"
        '
        'Label34
@@ -1400,7 +1401,7 @@ Partial Class frmNacherfassungNEU
        Me.Label34.Location = New System.Drawing.Point(14, 613)
        Me.Label34.Name = "Label34"
        Me.Label34.Size = New System.Drawing.Size(98, 13)
-        Me.Label34.TabIndex = 84
+        Me.Label34.TabIndex = 85
        Me.Label34.Text = "Zahlungsaufschub:"
        '
        'btnFertig
@@ -1409,7 +1410,7 @@ Partial Class frmNacherfassungNEU
        Me.btnFertig.Location = New System.Drawing.Point(721, 475)
        Me.btnFertig.Name = "btnFertig"
        Me.btnFertig.Size = New System.Drawing.Size(123, 35)
-        Me.btnFertig.TabIndex = 65
+        Me.btnFertig.TabIndex = 66
        Me.btnFertig.Text = "Speichern" & Global.Microsoft.VisualBasic.ChrW(10) & "Nächster Eintrag >>"
        Me.btnFertig.UseVisualStyleBackColor = True
        Me.btnFertig.Visible = False
@@ -1417,6 +1418,7 @@ Partial Class frmNacherfassungNEU
        'Panel1
        '
        Me.Panel1.AutoScroll = True
+        Me.Panel1.Controls.Add(Me.Button4)
        Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerEmpfaenger)
        Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerFrachtfuehrer)
        Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerAvisierer)
@@ -1599,7 +1601,7 @@ Partial Class frmNacherfassungNEU
        Me.txtInkasso.MaxLines_Warning_Label = Nothing
        Me.txtInkasso.Name = "txtInkasso"
        Me.txtInkasso.Size = New System.Drawing.Size(121, 20)
-        Me.txtInkasso.TabIndex = 80
+        Me.txtInkasso.TabIndex = 81
        Me.txtInkasso.Visible = False
        '
        'Label15
@@ -1608,7 +1610,7 @@ Partial Class frmNacherfassungNEU
        Me.Label15.Location = New System.Drawing.Point(57, 580)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(47, 13)
-        Me.Label15.TabIndex = 82
+        Me.Label15.TabIndex = 83
        Me.Label15.Text = "Inkasso:"
        Me.Label15.Visible = False
        '
@@ -1619,7 +1621,7 @@ Partial Class frmNacherfassungNEU
        Me.Panel5.Location = New System.Drawing.Point(17, 675)
        Me.Panel5.Name = "Panel5"
        Me.Panel5.Size = New System.Drawing.Size(365, 118)
-        Me.Panel5.TabIndex = 90
+        Me.Panel5.TabIndex = 91
        '
        'dgvBelege
        '
@@ -1669,7 +1671,7 @@ Partial Class frmNacherfassungNEU
        Me.tbcntrRg.Name = "tbcntrRg"
        Me.tbcntrRg.SelectedIndex = 0
        Me.tbcntrRg.Size = New System.Drawing.Size(361, 24)
-        Me.tbcntrRg.TabIndex = 89
+        Me.tbcntrRg.TabIndex = 90
        '
        'TabPage1
        '
@@ -1720,7 +1722,7 @@ Partial Class frmNacherfassungNEU
        Me.Button3.Name = "Button3"
        Me.Button3.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
        Me.Button3.Size = New System.Drawing.Size(146, 59)
-        Me.Button3.TabIndex = 88
+        Me.Button3.TabIndex = 89
        Me.Button3.Text = "zum Therefore-Akt"
        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button3.UseVisualStyleBackColor = True
@@ -1731,7 +1733,7 @@ Partial Class frmNacherfassungNEU
        Me.txtT1Verzollungsadresse.Location = New System.Drawing.Point(115, 298)
        Me.txtT1Verzollungsadresse.Name = "txtT1Verzollungsadresse"
        Me.txtT1Verzollungsadresse.Size = New System.Drawing.Size(266, 68)
-        Me.txtT1Verzollungsadresse.TabIndex = 45
+        Me.txtT1Verzollungsadresse.TabIndex = 46
        Me.txtT1Verzollungsadresse.Text = ""
        '
        'pnlFiskal
@@ -1748,7 +1750,7 @@ Partial Class frmNacherfassungNEU
        Me.pnlFiskal.Location = New System.Drawing.Point(680, 374)
        Me.pnlFiskal.Name = "pnlFiskal"
        Me.pnlFiskal.Size = New System.Drawing.Size(195, 96)
-        Me.pnlFiskal.TabIndex = 55
+        Me.pnlFiskal.TabIndex = 56
        Me.pnlFiskal.Visible = False
        '
        'Label62
@@ -1899,7 +1901,7 @@ Partial Class frmNacherfassungNEU
        Me.lblErrWaehrung.Location = New System.Drawing.Point(523, 514)
        Me.lblErrWaehrung.Name = "lblErrWaehrung"
        Me.lblErrWaehrung.Size = New System.Drawing.Size(99, 13)
-        Me.lblErrWaehrung.TabIndex = 69
+        Me.lblErrWaehrung.TabIndex = 70
        Me.lblErrWaehrung.Text = "Währung angeben!"
        Me.lblErrWaehrung.Visible = False
        '
@@ -1923,7 +1925,30 @@ Partial Class frmNacherfassungNEU
        Me.Panel2.Location = New System.Drawing.Point(403, 655)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(480, 144)
-        Me.Panel2.TabIndex = 91
+        Me.Panel2.TabIndex = 92
+        '
+        'Label64
+        '
+        Me.Label64.AutoSize = True
+        Me.Label64.ForeColor = System.Drawing.Color.Black
+        Me.Label64.Location = New System.Drawing.Point(245, 3)
+        Me.Label64.Name = "Label64"
+        Me.Label64.Size = New System.Drawing.Size(36, 13)
+        Me.Label64.TabIndex = 0
+        Me.Label64.Text = "Filiale:"
+        '
+        'cboAbklärungFiliale
+        '
+        Me.cboAbklärungFiliale._allowedValuesFreiText = Nothing
+        Me.cboAbklärungFiliale._allowFreiText = False
+        Me.cboAbklärungFiliale._value = ""
+        Me.cboAbklärungFiliale.DropDownWidth = 280
+        Me.cboAbklärungFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!)
+        Me.cboAbklärungFiliale.FormattingEnabled = True
+        Me.cboAbklärungFiliale.Location = New System.Drawing.Point(248, 19)
+        Me.cboAbklärungFiliale.Name = "cboAbklärungFiliale"
+        Me.cboAbklärungFiliale.Size = New System.Drawing.Size(63, 24)
+        Me.cboAbklärungFiliale.TabIndex = 3
        '
        'lblSachbearbeiterIch
        '
@@ -1932,7 +1957,7 @@ Partial Class frmNacherfassungNEU
        Me.lblSachbearbeiterIch.Location = New System.Drawing.Point(7, 88)
        Me.lblSachbearbeiterIch.Name = "lblSachbearbeiterIch"
        Me.lblSachbearbeiterIch.Size = New System.Drawing.Size(304, 13)
-        Me.lblSachbearbeiterIch.TabIndex = 6
+        Me.lblSachbearbeiterIch.TabIndex = 8
        Me.lblSachbearbeiterIch.TabStop = True
        Me.lblSachbearbeiterIch.Text = "XXX Eintragen"
        Me.lblSachbearbeiterIch.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -1946,7 +1971,7 @@ Partial Class frmNacherfassungNEU
        Me.Button1.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(123, 27)
-        Me.Button1.TabIndex = 7
+        Me.Button1.TabIndex = 9
        Me.Button1.Text = "Vorkosten"
        Me.Button1.UseVisualStyleBackColor = True
        '
@@ -1960,7 +1985,7 @@ Partial Class frmNacherfassungNEU
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
        Me.btnOK.Size = New System.Drawing.Size(146, 81)
-        Me.btnOK.TabIndex = 5
+        Me.btnOK.TabIndex = 7
        Me.btnOK.Text = "OK"
        Me.btnOK.UseVisualStyleBackColor = True
        '
@@ -1969,7 +1994,7 @@ Partial Class frmNacherfassungNEU
        Me.lblLastMa.Location = New System.Drawing.Point(131, 118)
        Me.lblLastMa.Name = "lblLastMa"
        Me.lblLastMa.Size = New System.Drawing.Size(180, 13)
-        Me.lblLastMa.TabIndex = 8
+        Me.lblLastMa.TabIndex = 10
        Me.lblLastMa.Text = "-"
        Me.lblLastMa.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
@@ -1981,7 +2006,7 @@ Partial Class frmNacherfassungNEU
        Me.btnCancel.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(146, 27)
-        Me.btnCancel.TabIndex = 9
+        Me.btnCancel.TabIndex = 11
        Me.btnCancel.Text = "Abbrechen"
        Me.btnCancel.UseVisualStyleBackColor = True
        '
@@ -1998,7 +2023,7 @@ Partial Class frmNacherfassungNEU
        Me.cboSachbearbeiter.Location = New System.Drawing.Point(6, 61)
        Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
        Me.cboSachbearbeiter.Size = New System.Drawing.Size(305, 24)
-        Me.cboSachbearbeiter.TabIndex = 4
+        Me.cboSachbearbeiter.TabIndex = 6
        '
        'cboQuickStopMa
        '
@@ -2013,7 +2038,7 @@ Partial Class frmNacherfassungNEU
        Me.cboQuickStopMa.Location = New System.Drawing.Point(7, 19)
        Me.cboQuickStopMa.Name = "cboQuickStopMa"
        Me.cboQuickStopMa.Size = New System.Drawing.Size(242, 24)
-        Me.cboQuickStopMa.TabIndex = 1
+        Me.cboQuickStopMa.TabIndex = 2
        '
        'lblErrPruefAnzahl
        '
@@ -2022,7 +2047,7 @@ Partial Class frmNacherfassungNEU
        Me.lblErrPruefAnzahl.Location = New System.Drawing.Point(636, 342)
        Me.lblErrPruefAnzahl.Name = "lblErrPruefAnzahl"
        Me.lblErrPruefAnzahl.Size = New System.Drawing.Size(181, 13)
-        Me.lblErrPruefAnzahl.TabIndex = 48
+        Me.lblErrPruefAnzahl.TabIndex = 49
        Me.lblErrPruefAnzahl.Text = "Anzahl der Abfertigungen nicht ident!"
        Me.lblErrPruefAnzahl.Visible = False
        '
@@ -2145,7 +2170,7 @@ Partial Class frmNacherfassungNEU
        Me.txtEUFiskalEmpf.nurAktive = True
        Me.txtEUFiskalEmpf.searchActive = True
        Me.txtEUFiskalEmpf.Size = New System.Drawing.Size(21, 20)
-        Me.txtEUFiskalEmpf.TabIndex = 70
+        Me.txtEUFiskalEmpf.TabIndex = 71
        Me.txtEUFiskalEmpf.TIMER_SEARCH = True
        Me.txtEUFiskalEmpf.usrcntl = Nothing
        Me.txtEUFiskalEmpf.Visible = False
@@ -2309,7 +2334,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZucker_Aufschub.MaxLines_Warning_Label = Nothing
        Me.txtZucker_Aufschub.Name = "txtZucker_Aufschub"
        Me.txtZucker_Aufschub.Size = New System.Drawing.Size(52, 20)
-        Me.txtZucker_Aufschub.TabIndex = 77
+        Me.txtZucker_Aufschub.TabIndex = 78
        Me.txtZucker_Aufschub.Visible = False
        '
        'txtZucker_Datum
@@ -2331,7 +2356,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZucker_Datum.MaxLines_Warning_Label = Nothing
        Me.txtZucker_Datum.Name = "txtZucker_Datum"
        Me.txtZucker_Datum.Size = New System.Drawing.Size(64, 20)
-        Me.txtZucker_Datum.TabIndex = 76
+        Me.txtZucker_Datum.TabIndex = 77
        Me.txtZucker_Datum.Visible = False
        '
        'Label27
@@ -2340,7 +2365,7 @@ Partial Class frmNacherfassungNEU
        Me.Label27.Location = New System.Drawing.Point(338, 533)
        Me.Label27.Name = "Label27"
        Me.Label27.Size = New System.Drawing.Size(55, 13)
-        Me.Label27.TabIndex = 74
+        Me.Label27.TabIndex = 75
        Me.Label27.Text = "Aufschub:"
        Me.Label27.Visible = False
        '
@@ -2350,7 +2375,7 @@ Partial Class frmNacherfassungNEU
        Me.Label49.Location = New System.Drawing.Point(268, 533)
        Me.Label49.Name = "Label49"
        Me.Label49.Size = New System.Drawing.Size(41, 13)
-        Me.Label49.TabIndex = 73
+        Me.Label49.TabIndex = 74
        Me.Label49.Text = "Datum:"
        Me.Label49.Visible = False
        '
@@ -2374,7 +2399,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZuckerMRN.MaxLines_Warning_Label = Nothing
        Me.txtZuckerMRN.Name = "txtZuckerMRN"
        Me.txtZuckerMRN.Size = New System.Drawing.Size(233, 20)
-        Me.txtZuckerMRN.TabIndex = 75
+        Me.txtZuckerMRN.TabIndex = 76
        Me.txtZuckerMRN.Visible = False
        '
        'MyLinkLabelVALUE3
@@ -2385,7 +2410,7 @@ Partial Class frmNacherfassungNEU
        Me.MyLinkLabelVALUE3.Location = New System.Drawing.Point(200, 572)
        Me.MyLinkLabelVALUE3.Name = "MyLinkLabelVALUE3"
        Me.MyLinkLabelVALUE3.Size = New System.Drawing.Size(65, 13)
-        Me.MyLinkLabelVALUE3.TabIndex = 79
+        Me.MyLinkLabelVALUE3.TabIndex = 80
        Me.MyLinkLabelVALUE3.TabStop = True
        Me.MyLinkLabelVALUE3.Text = "Eingabehilfe"
        Me.MyLinkLabelVALUE3.valuename = Nothing
@@ -2399,7 +2424,7 @@ Partial Class frmNacherfassungNEU
        Me.MyLinkLabelVALUE2.Location = New System.Drawing.Point(315, 473)
        Me.MyLinkLabelVALUE2.Name = "MyLinkLabelVALUE2"
        Me.MyLinkLabelVALUE2.Size = New System.Drawing.Size(65, 13)
-        Me.MyLinkLabelVALUE2.TabIndex = 58
+        Me.MyLinkLabelVALUE2.TabIndex = 59
        Me.MyLinkLabelVALUE2.TabStop = True
        Me.MyLinkLabelVALUE2.Text = "Eingabehilfe"
        Me.MyLinkLabelVALUE2.valuename = Nothing
@@ -2410,7 +2435,7 @@ Partial Class frmNacherfassungNEU
        Me.Label43.Location = New System.Drawing.Point(29, 533)
        Me.Label43.Name = "Label43"
        Me.Label43.Size = New System.Drawing.Size(72, 13)
-        Me.Label43.TabIndex = 72
+        Me.Label43.TabIndex = 73
        Me.Label43.Text = "Zucker-MRN:"
        Me.Label43.Visible = False
        '
@@ -2434,7 +2459,7 @@ Partial Class frmNacherfassungNEU
        Me.txtCRN.MaxLines_Warning_Label = Nothing
        Me.txtCRN.Name = "txtCRN"
        Me.txtCRN.Size = New System.Drawing.Size(365, 20)
-        Me.txtCRN.TabIndex = 61
+        Me.txtCRN.TabIndex = 62
        '
        'Label48
        '
@@ -2442,7 +2467,7 @@ Partial Class frmNacherfassungNEU
        Me.Label48.Location = New System.Drawing.Point(16, 473)
        Me.Label48.Name = "Label48"
        Me.Label48.Size = New System.Drawing.Size(120, 13)
-        Me.Label48.TabIndex = 57
+        Me.Label48.TabIndex = 58
        Me.Label48.Text = "CRN (Qualitätsnummer):"
        '
        'MyLinkLabelVALUE1
@@ -2453,7 +2478,7 @@ Partial Class frmNacherfassungNEU
        Me.MyLinkLabelVALUE1.Location = New System.Drawing.Point(161, 434)
        Me.MyLinkLabelVALUE1.Name = "MyLinkLabelVALUE1"
        Me.MyLinkLabelVALUE1.Size = New System.Drawing.Size(220, 13)
-        Me.MyLinkLabelVALUE1.TabIndex = 51
+        Me.MyLinkLabelVALUE1.TabIndex = 52
        Me.MyLinkLabelVALUE1.TabStop = True
        Me.MyLinkLabelVALUE1.Text = "Eingabehilfe Belegnummer (MRN/CRN/ATC)"
        Me.MyLinkLabelVALUE1.valuename = Nothing
@@ -2468,7 +2493,7 @@ Partial Class frmNacherfassungNEU
        Me.cbxWaehrung.Location = New System.Drawing.Point(526, 489)
        Me.cbxWaehrung.Name = "cbxWaehrung"
        Me.cbxWaehrung.Size = New System.Drawing.Size(54, 21)
-        Me.cbxWaehrung.TabIndex = 63
+        Me.cbxWaehrung.TabIndex = 64
        '
        'cboAuftraggeberOffert
        '
@@ -2541,7 +2566,7 @@ Partial Class frmNacherfassungNEU
        Me.txtRohmasse.MaxLines_Warning_Label = Nothing
        Me.txtRohmasse.Name = "txtRohmasse"
        Me.txtRohmasse.Size = New System.Drawing.Size(176, 20)
-        Me.txtRohmasse.TabIndex = 54
+        Me.txtRohmasse.TabIndex = 55
        '
        'txtZahlungsaufschub
        '
@@ -2562,7 +2587,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZahlungsaufschub.MaxLines_Warning_Label = Nothing
        Me.txtZahlungsaufschub.Name = "txtZahlungsaufschub"
        Me.txtZahlungsaufschub.Size = New System.Drawing.Size(364, 20)
-        Me.txtZahlungsaufschub.TabIndex = 86
+        Me.txtZahlungsaufschub.TabIndex = 87
        '
        'txtAbsenderKdNr
        '
@@ -2626,7 +2651,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBarzahlungsbetrag.MaxLines_Warning_Label = Nothing
        Me.txtBarzahlungsbetrag.Name = "txtBarzahlungsbetrag"
        Me.txtBarzahlungsbetrag.Size = New System.Drawing.Size(135, 20)
-        Me.txtBarzahlungsbetrag.TabIndex = 46
+        Me.txtBarzahlungsbetrag.TabIndex = 47
        '
        'txtFraechterKdNr
        '
@@ -2696,7 +2721,7 @@ Partial Class frmNacherfassungNEU
        Me.txtPackstuecke.Name = "txtPackstuecke"
        Me.txtPackstuecke.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtPackstuecke.Size = New System.Drawing.Size(473, 46)
-        Me.txtPackstuecke.TabIndex = 78
+        Me.txtPackstuecke.TabIndex = 79
        '
        'txtUmrechnungskurs
        '
@@ -2717,7 +2742,7 @@ Partial Class frmNacherfassungNEU
        Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing
        Me.txtUmrechnungskurs.Name = "txtUmrechnungskurs"
        Me.txtUmrechnungskurs.Size = New System.Drawing.Size(92, 20)
-        Me.txtUmrechnungskurs.TabIndex = 64
+        Me.txtUmrechnungskurs.TabIndex = 65
        '
        'txtRechnungsbetrag
        '
@@ -2738,7 +2763,7 @@ Partial Class frmNacherfassungNEU
        Me.txtRechnungsbetrag.MaxLines_Warning_Label = Nothing
        Me.txtRechnungsbetrag.Name = "txtRechnungsbetrag"
        Me.txtRechnungsbetrag.Size = New System.Drawing.Size(116, 20)
-        Me.txtRechnungsbetrag.TabIndex = 62
+        Me.txtRechnungsbetrag.TabIndex = 63
        '
        'txtBemerkung
        '
@@ -2760,7 +2785,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBemerkung.Multiline = True
        Me.txtBemerkung.Name = "txtBemerkung"
        Me.txtBemerkung.Size = New System.Drawing.Size(365, 82)
-        Me.txtBemerkung.TabIndex = 71
+        Me.txtBemerkung.TabIndex = 72
        '
        'txtEmpfaengerKdNr
        '
@@ -2805,7 +2830,7 @@ Partial Class frmNacherfassungNEU
        Me.txtVermerk.MaxLines_Warning_Label = Nothing
        Me.txtVermerk.Name = "txtVermerk"
        Me.txtVermerk.Size = New System.Drawing.Size(313, 20)
-        Me.txtVermerk.TabIndex = 83
+        Me.txtVermerk.TabIndex = 84
        '
        'txtErfassungsnummer
        '
@@ -2827,7 +2852,7 @@ Partial Class frmNacherfassungNEU
        Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing
        Me.txtErfassungsnummer.Name = "txtErfassungsnummer"
        Me.txtErfassungsnummer.Size = New System.Drawing.Size(313, 20)
-        Me.txtErfassungsnummer.TabIndex = 87
+        Me.txtErfassungsnummer.TabIndex = 88
        '
        'txtEndEmpfKdNr
        '
@@ -2872,7 +2897,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBelegNummerZAT1T2.MaxLines_Warning_Label = Nothing
        Me.txtBelegNummerZAT1T2.Name = "txtBelegNummerZAT1T2"
        Me.txtBelegNummerZAT1T2.Size = New System.Drawing.Size(365, 20)
-        Me.txtBelegNummerZAT1T2.TabIndex = 53
+        Me.txtBelegNummerZAT1T2.TabIndex = 54
        '
        'pnlZOll
        '
@@ -3027,7 +3052,7 @@ Partial Class frmNacherfassungNEU
        Me.Label58.Location = New System.Drawing.Point(14, 301)
        Me.Label58.Name = "Label58"
        Me.Label58.Size = New System.Drawing.Size(102, 26)
-        Me.Label58.TabIndex = 42
+        Me.Label58.TabIndex = 43
        Me.Label58.Text = "NCTS-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Gestellungsadresse:"
        '
        'Panel4
@@ -3049,7 +3074,7 @@ Partial Class frmNacherfassungNEU
        Me.Panel4.Location = New System.Drawing.Point(12, 374)
        Me.Panel4.Name = "Panel4"
        Me.Panel4.Size = New System.Drawing.Size(665, 52)
-        Me.Panel4.TabIndex = 49
+        Me.Panel4.TabIndex = 50
        '
        'Label63
        '
@@ -3057,7 +3082,7 @@ Partial Class frmNacherfassungNEU
        Me.Label63.Location = New System.Drawing.Point(604, 5)
        Me.Label63.Name = "Label63"
        Me.Label63.Size = New System.Drawing.Size(44, 13)
-        Me.Label63.TabIndex = 10
+        Me.Label63.TabIndex = 6
        Me.Label63.Text = "Grenze:"
        '
        'cboGrenze
@@ -3091,7 +3116,7 @@ Partial Class frmNacherfassungNEU
        Me.txtHandlingZuKassieren.MaxLines_Warning_Label = Nothing
        Me.txtHandlingZuKassieren.Name = "txtHandlingZuKassieren"
        Me.txtHandlingZuKassieren.Size = New System.Drawing.Size(123, 20)
-        Me.txtHandlingZuKassieren.TabIndex = 9
+        Me.txtHandlingZuKassieren.TabIndex = 10
        '
        'Label60
        '
@@ -3113,7 +3138,7 @@ Partial Class frmNacherfassungNEU
        Me.cboFilialeHandling.Location = New System.Drawing.Point(393, 21)
        Me.cboFilialeHandling.Name = "cboFilialeHandling"
        Me.cboFilialeHandling.Size = New System.Drawing.Size(80, 22)
-        Me.cboFilialeHandling.TabIndex = 8
+        Me.cboFilialeHandling.TabIndex = 9
        '
        'Label59
        '
@@ -3144,7 +3169,7 @@ Partial Class frmNacherfassungNEU
        Me.datAvisUhrzeit.Name = "datAvisUhrzeit"
        Me.datAvisUhrzeit.ShowCheckBox = True
        Me.datAvisUhrzeit.Size = New System.Drawing.Size(140, 20)
-        Me.datAvisUhrzeit.TabIndex = 7
+        Me.datAvisUhrzeit.TabIndex = 8
        Me.datAvisUhrzeit.Value = New Date(2016, 7, 6, 0, 0, 0, 0)
        '
        'MyTextBoxLKWKz
@@ -3167,7 +3192,7 @@ Partial Class frmNacherfassungNEU
        Me.MyTextBoxLKWKz.MaxLines_Warning_Label = Nothing
        Me.MyTextBoxLKWKz.Name = "MyTextBoxLKWKz"
        Me.MyTextBoxLKWKz.Size = New System.Drawing.Size(217, 20)
-        Me.MyTextBoxLKWKz.TabIndex = 6
+        Me.MyTextBoxLKWKz.TabIndex = 7
        '
        'txtLKWId
        '
@@ -3210,28 +3235,17 @@ Partial Class frmNacherfassungNEU
        Me.DataGridViewTextBoxColumn5.HeaderText = "Anzahl"
        Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
        '
-        'cboAbklärungFiliale
+        'Button4
        '
-        Me.cboAbklärungFiliale._allowedValuesFreiText = Nothing
-        Me.cboAbklärungFiliale._allowFreiText = False
-        Me.cboAbklärungFiliale._value = ""
-        Me.cboAbklärungFiliale.DropDownWidth = 280
-        Me.cboAbklärungFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!)
-        Me.cboAbklärungFiliale.FormattingEnabled = True
-        Me.cboAbklärungFiliale.Location = New System.Drawing.Point(248, 19)
-        Me.cboAbklärungFiliale.Name = "cboAbklärungFiliale"
-        Me.cboAbklärungFiliale.Size = New System.Drawing.Size(63, 24)
-        Me.cboAbklärungFiliale.TabIndex = 12
-        '
-        'Label64
-        '
-        Me.Label64.AutoSize = True
-        Me.Label64.ForeColor = System.Drawing.Color.Black
-        Me.Label64.Location = New System.Drawing.Point(245, 3)
-        Me.Label64.Name = "Label64"
-        Me.Label64.Size = New System.Drawing.Size(36, 13)
-        Me.Label64.TabIndex = 13
-        Me.Label64.Text = "Filiale:"
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button4.Location = New System.Drawing.Point(440, 265)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(145, 27)
+        Me.Button4.TabIndex = 42
+        Me.Button4.Text = "Endempfänger Liste"
+        Me.Button4.UseVisualStyleBackColor = True
        '
        'frmNacherfassungNEU
        '
@@ -3468,4 +3482,5 @@ Partial Class frmNacherfassungNEU
    Public WithEvents cboGrenze As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents Label64 As Label
    Public WithEvents cboAbklärungFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Button4 As Button
 End Class
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
@@ -97,7 +97,6 @@ Public Class frmNacherfassungNEU
            End If


-
            cboSachbearbeiter.Items.Clear()
            cboSachbearbeiter.fillWithSQL("SELECT  ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " and [SBSichtbar]=1  ORDER BY Name ", False, "FMZOLL", True)

@@ -210,7 +209,6 @@ Public Class frmNacherfassungNEU
        cboEmpfaengerOffert._value = SPEDITIONSBUCH.EmpfängerOffertenNr


-
        txtAuftraggeber.Text = SPEDITIONSBUCH.Vermittler
        If SPEDITIONSBUCH.VermittlerKundenNr > 0 Then txtAuftraggeber.KdNr = SPEDITIONSBUCH.VermittlerKundenNr
        '  MsgBox("ABF: " & cboAuftraggeberOffert.Items.Count)
@@ -1518,4 +1516,22 @@ Public Class frmNacherfassungNEU
        txtCMRNr.Enabled = cbxCMR.Checked
        txtCMRDatum.Enabled = cbxCMR.Checked
    End Sub
+
+    Private Sub Button4_Click_2(sender As Object, e As EventArgs) Handles Button4.Click
+        '   SPEDITIONSBUCH.LOAD_VORKOSTEN()
+        Dim f As New frmNacherfassungEndEmpfaenger
+        f.FilialenNr = SPEDITIONSBUCH.FilialenNr
+        f.AbfertigungsNr = SPEDITIONSBUCH.AbfertigungsNr
+        f.UnterNr = SPEDITIONSBUCH.UnterNr
+
+        f.ENDEMPFAENGER = SPEDITIONSBUCH.ENDEMPFAENGER
+        If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
+            SPEDITIONSBUCH.ENDEMPFAENGER = f.ENDEMPFAENGER
+            If SPEDITIONSBUCH.ENDEMPFAENGER.Count > 0 Then
+                txtEndEmpf.KdNr = SPEDITIONSBUCH.ENDEMPFAENGER(0).EndEmpfaengerKdNr
+            End If
+
+        End If
+
+    End Sub
 End Class
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
@@ -55,6 +55,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.pnlOpt = New System.Windows.Forms.Panel()
        Me.pnlBerichte = New System.Windows.Forms.Panel()
+        Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Button20 = New System.Windows.Forms.Button()
        Me.Label46 = New System.Windows.Forms.Label()
        Me.Button19 = New System.Windows.Forms.Button()
@@ -172,7 +173,8 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.Label45 = New System.Windows.Forms.Label()
        Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
-        Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label47 = New System.Windows.Forms.Label()
+        Me.cboSB_TR = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
        Me.pnlRechts.SuspendLayout()
        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -273,6 +275,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtAuftraggeber._displayWoelflKd = False
        Me.kdtxtAuftraggeber._hideIfListEmpty = True
        Me.kdtxtAuftraggeber._loadKdData = False
+        Me.kdtxtAuftraggeber._UseFIRMA = ""
        Me.kdtxtAuftraggeber._ValueKdAndName = True
        Me.kdtxtAuftraggeber.dgvpos = "LEFT"
        Me.kdtxtAuftraggeber.KdName = ""
@@ -285,6 +288,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtAuftraggeber.searchActive = True
        Me.kdtxtAuftraggeber.Size = New System.Drawing.Size(261, 20)
        Me.kdtxtAuftraggeber.TabIndex = 17
+        Me.kdtxtAuftraggeber.TIMER_SEARCH = True
        Me.kdtxtAuftraggeber.usrcntl = Nothing
        '
        'txtAuftraggeberKdnr
@@ -462,6 +466,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtAvisierer._displayWoelflKd = False
        Me.kdtxtAvisierer._hideIfListEmpty = True
        Me.kdtxtAvisierer._loadKdData = False
+        Me.kdtxtAvisierer._UseFIRMA = ""
        Me.kdtxtAvisierer._ValueKdAndName = True
        Me.kdtxtAvisierer.dgvpos = "LEFT"
        Me.kdtxtAvisierer.KdName = ""
@@ -474,6 +479,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtAvisierer.searchActive = True
        Me.kdtxtAvisierer.Size = New System.Drawing.Size(261, 20)
        Me.kdtxtAvisierer.TabIndex = 37
+        Me.kdtxtAvisierer.TIMER_SEARCH = True
        Me.kdtxtAvisierer.usrcntl = Nothing
        '
        'txtAvisiererKdNr
@@ -687,6 +693,18 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.pnlBerichte.TabIndex = 6
        Me.pnlBerichte.Visible = False
        '
+        'cboHandlingssatz
+        '
+        Me.cboHandlingssatz._allowedValuesFreiText = Nothing
+        Me.cboHandlingssatz._allowFreiText = False
+        Me.cboHandlingssatz._value = ""
+        Me.cboHandlingssatz.DropDownWidth = 300
+        Me.cboHandlingssatz.FormattingEnabled = True
+        Me.cboHandlingssatz.Location = New System.Drawing.Point(399, 137)
+        Me.cboHandlingssatz.Name = "cboHandlingssatz"
+        Me.cboHandlingssatz.Size = New System.Drawing.Size(159, 21)
+        Me.cboHandlingssatz.TabIndex = 60
+        '
        'Button20
        '
        Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1351,6 +1369,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtFrachtfuehrer._displayWoelflKd = False
        Me.kdtxtFrachtfuehrer._hideIfListEmpty = True
        Me.kdtxtFrachtfuehrer._loadKdData = False
+        Me.kdtxtFrachtfuehrer._UseFIRMA = ""
        Me.kdtxtFrachtfuehrer._ValueKdAndName = True
        Me.kdtxtFrachtfuehrer.dgvpos = "LEFT"
        Me.kdtxtFrachtfuehrer.KdName = ""
@@ -1363,6 +1382,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtFrachtfuehrer.searchActive = True
        Me.kdtxtFrachtfuehrer.Size = New System.Drawing.Size(261, 20)
        Me.kdtxtFrachtfuehrer.TabIndex = 22
+        Me.kdtxtFrachtfuehrer.TIMER_SEARCH = True
        Me.kdtxtFrachtfuehrer.usrcntl = Nothing
        '
        'cboSB_Qs
@@ -1376,7 +1396,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.cboSB_Qs.FormattingEnabled = True
        Me.cboSB_Qs.Location = New System.Drawing.Point(738, 58)
        Me.cboSB_Qs.Name = "cboSB_Qs"
-        Me.cboSB_Qs.Size = New System.Drawing.Size(241, 24)
+        Me.cboSB_Qs.Size = New System.Drawing.Size(117, 24)
        Me.cboSB_Qs.TabIndex = 27
        '
        'txtAbfertDat
@@ -1437,7 +1457,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.cboSachbearbeiter.FormattingEnabled = True
        Me.cboSachbearbeiter.Location = New System.Drawing.Point(738, 31)
        Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
-        Me.cboSachbearbeiter.Size = New System.Drawing.Size(241, 24)
+        Me.cboSachbearbeiter.Size = New System.Drawing.Size(268, 24)
        Me.cboSachbearbeiter.TabIndex = 26
        '
        'cboFiliale
@@ -1601,6 +1621,8 @@ Partial Class usrCntlSpeditionsBuchSuche
        '
        'SplitContainer1.Panel1
        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboSB_TR)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label47)
        Me.SplitContainer1.Panel1.Controls.Add(Me.cboSB_Qs)
        Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertDat)
        Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertDatBis)
@@ -2044,6 +2066,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtEmpfaenger._displayWoelflKd = False
        Me.kdtxtEmpfaenger._hideIfListEmpty = True
        Me.kdtxtEmpfaenger._loadKdData = False
+        Me.kdtxtEmpfaenger._UseFIRMA = ""
        Me.kdtxtEmpfaenger._ValueKdAndName = True
        Me.kdtxtEmpfaenger.dgvpos = "LEFT"
        Me.kdtxtEmpfaenger.KdName = ""
@@ -2056,6 +2079,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtEmpfaenger.searchActive = True
        Me.kdtxtEmpfaenger.Size = New System.Drawing.Size(261, 20)
        Me.kdtxtEmpfaenger.TabIndex = 10
+        Me.kdtxtEmpfaenger.TIMER_SEARCH = True
        Me.kdtxtEmpfaenger.usrcntl = Nothing
        '
        'cbxFakturiert
@@ -2116,6 +2140,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtEndempfaenger._displayWoelflKd = False
        Me.kdtxtEndempfaenger._hideIfListEmpty = True
        Me.kdtxtEndempfaenger._loadKdData = False
+        Me.kdtxtEndempfaenger._UseFIRMA = ""
        Me.kdtxtEndempfaenger._ValueKdAndName = True
        Me.kdtxtEndempfaenger.dgvpos = "LEFT"
        Me.kdtxtEndempfaenger.KdName = ""
@@ -2128,6 +2153,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtEndempfaenger.searchActive = True
        Me.kdtxtEndempfaenger.Size = New System.Drawing.Size(261, 20)
        Me.kdtxtEndempfaenger.TabIndex = 28
+        Me.kdtxtEndempfaenger.TIMER_SEARCH = True
        Me.kdtxtEndempfaenger.usrcntl = Nothing
        '
        'cbxBar
@@ -2179,6 +2205,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtAbsender._displayWoelflKd = False
        Me.kdtxtAbsender._hideIfListEmpty = True
        Me.kdtxtAbsender._loadKdData = False
+        Me.kdtxtAbsender._UseFIRMA = ""
        Me.kdtxtAbsender._ValueKdAndName = True
        Me.kdtxtAbsender.dgvpos = "LEFT"
        Me.kdtxtAbsender.KdName = ""
@@ -2191,6 +2218,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.kdtxtAbsender.searchActive = True
        Me.kdtxtAbsender.Size = New System.Drawing.Size(261, 20)
        Me.kdtxtAbsender.TabIndex = 6
+        Me.kdtxtAbsender.TIMER_SEARCH = True
        Me.kdtxtAbsender.usrcntl = Nothing
        '
        'txtFrachtfuehrerKdnr
@@ -2382,17 +2410,28 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.SplitContainer.SplitterWidth = 2
        Me.SplitContainer.TabIndex = 3
        '
-        'cboHandlingssatz
+        'Label47
        '
-        Me.cboHandlingssatz._allowedValuesFreiText = Nothing
-        Me.cboHandlingssatz._allowFreiText = False
-        Me.cboHandlingssatz._value = ""
-        Me.cboHandlingssatz.DropDownWidth = 300
-        Me.cboHandlingssatz.FormattingEnabled = True
-        Me.cboHandlingssatz.Location = New System.Drawing.Point(399, 137)
-        Me.cboHandlingssatz.Name = "cboHandlingssatz"
-        Me.cboHandlingssatz.Size = New System.Drawing.Size(159, 21)
-        Me.cboHandlingssatz.TabIndex = 60
+        Me.Label47.AutoSize = True
+        Me.Label47.Location = New System.Drawing.Point(858, 62)
+        Me.Label47.Name = "Label47"
+        Me.Label47.Size = New System.Drawing.Size(25, 13)
+        Me.Label47.TabIndex = 32
+        Me.Label47.Text = "TR:"
+        '
+        'cboSB_TR
+        '
+        Me.cboSB_TR._allowedValuesFreiText = Nothing
+        Me.cboSB_TR._allowFreiText = False
+        Me.cboSB_TR._value = ""
+        Me.cboSB_TR.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboSB_TR.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboSB_TR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboSB_TR.FormattingEnabled = True
+        Me.cboSB_TR.Location = New System.Drawing.Point(889, 57)
+        Me.cboSB_TR.Name = "cboSB_TR"
+        Me.cboSB_TR.Size = New System.Drawing.Size(117, 24)
+        Me.cboSB_TR.TabIndex = 33
        '
        'usrCntlSpeditionsBuchSuche
        '
@@ -2586,4 +2625,6 @@ Partial Class usrCntlSpeditionsBuchSuche
    Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents lstFilialeHandling As VERAG_PROG_ALLGEMEIN.MyListBox
    Friend WithEvents cboHandlingssatz As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cboSB_TR As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label47 As Label
 End Class
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -277,6 +277,7 @@ Public Class usrCntlSpeditionsBuchSuche

        If cboSachbearbeiter._value <> "" Then sqlstr &= " AND [Personalnummer] = @Personalnummer "
        If cboSB_Qs._value <> "" Then sqlstr &= " AND [PersonalnummerQS] = @PersonalnummerQS "
+        If cboSB_TR._value <> "" Then sqlstr &= " AND [PersonalnummerAbklTR] = @PersonalnummerAbklTR "
        Return sqlstr
    End Function

@@ -322,6 +323,7 @@ Public Class usrCntlSpeditionsBuchSuche
        ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialeHandling", cboFilialeHandling._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", cboSachbearbeiter._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", cboSB_Qs._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", cboSB_TR._value))
        Return list

    End Function
@@ -427,6 +429,7 @@ Public Class usrCntlSpeditionsBuchSuche
        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))
+        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))


@@ -437,6 +440,7 @@ Public Class usrCntlSpeditionsBuchSuche
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))


@@ -446,6 +450,7 @@ Public Class usrCntlSpeditionsBuchSuche
        cboFilialeHandling.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
        cboFilialeHandling.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
        cboFilialeHandling.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
+        cboFilialeHandling.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
        cboFilialeHandling.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))


@@ -460,7 +465,10 @@ Public Class usrCntlSpeditionsBuchSuche
        End Select

        cboSB_Qs.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
-                                  " FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben')  AND mit_abteilung='QS' AND [mit_gekuendigt]=0  " & where & "  order by name", False, "ADMIN", True)
+                                  " FROM [tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben')  AND mit_abteilung='QS' AND [mit_gekuendigt]=0  " & where & "  order by name", False, "ADMIN", True)
+
+        cboSB_TR.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
+                                  " FROM [tblMitarbeiter] WHERE mit_firma IN ('VERIMEX') AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True)
        Button4.PerformClick()

        cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "VermittlerKundenNr"))