Vorauskassen Benachrichtigung, Spedbuch AES AUTO Erfassung

2023-01-23 08:13:26 +01:00
parent 209bb3de50
commit 14983881e8
5 changed files with 116 additions and 22 deletions
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb
@@ -233,6 +233,8 @@ Partial Class frmNacherfassungNEU
        Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.txtAtlasBezNrAES = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label65 = New System.Windows.Forms.Label()
        Me.pnl.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
@@ -517,6 +519,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAbfertigungsnummer._DateTimeOnly = False
        Me.txtAbfertigungsnummer._numbersOnly = False
        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
        Me.txtAbfertigungsnummer._Prozent = False
        Me.txtAbfertigungsnummer._ShortDateNew = False
        Me.txtAbfertigungsnummer._ShortDateOnly = False
@@ -552,6 +555,7 @@ Partial Class frmNacherfassungNEU
        Me.txtUnterNr._DateTimeOnly = False
        Me.txtUnterNr._numbersOnly = False
        Me.txtUnterNr._numbersOnlyKommastellen = ""
+        Me.txtUnterNr._numbersOnlyTrennzeichen = True
        Me.txtUnterNr._Prozent = False
        Me.txtUnterNr._ShortDateNew = False
        Me.txtUnterNr._ShortDateOnly = False
@@ -598,9 +602,9 @@ Partial Class frmNacherfassungNEU
        Me.btnImport.BackColor = System.Drawing.Color.Transparent
        Me.btnImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnImport.ForeColor = System.Drawing.Color.Black
-        Me.btnImport.Location = New System.Drawing.Point(593, 15)
+        Me.btnImport.Location = New System.Drawing.Point(679, 5)
        Me.btnImport.Name = "btnImport"
-        Me.btnImport.Size = New System.Drawing.Size(116, 24)
+        Me.btnImport.Size = New System.Drawing.Size(201, 38)
        Me.btnImport.TabIndex = 9
        Me.btnImport.Text = "Datenimport"
        Me.btnImport.UseVisualStyleBackColor = False
@@ -1106,6 +1110,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZuschlaege._DateTimeOnly = False
        Me.txtZuschlaege._numbersOnly = True
        Me.txtZuschlaege._numbersOnlyKommastellen = ""
+        Me.txtZuschlaege._numbersOnlyTrennzeichen = True
        Me.txtZuschlaege._Prozent = False
        Me.txtZuschlaege._ShortDateNew = False
        Me.txtZuschlaege._ShortDateOnly = False
@@ -1129,6 +1134,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBarvorlagen._DateTimeOnly = False
        Me.txtBarvorlagen._numbersOnly = True
        Me.txtBarvorlagen._numbersOnlyKommastellen = ""
+        Me.txtBarvorlagen._numbersOnlyTrennzeichen = True
        Me.txtBarvorlagen._Prozent = False
        Me.txtBarvorlagen._ShortDateNew = False
        Me.txtBarvorlagen._ShortDateOnly = False
@@ -1152,6 +1158,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAE._DateTimeOnly = False
        Me.txtAE._numbersOnly = True
        Me.txtAE._numbersOnlyKommastellen = ""
+        Me.txtAE._numbersOnlyTrennzeichen = True
        Me.txtAE._Prozent = False
        Me.txtAE._ShortDateNew = False
        Me.txtAE._ShortDateOnly = False
@@ -1175,6 +1182,7 @@ Partial Class frmNacherfassungNEU
        Me.txtT1._DateTimeOnly = False
        Me.txtT1._numbersOnly = True
        Me.txtT1._numbersOnlyKommastellen = ""
+        Me.txtT1._numbersOnlyTrennzeichen = True
        Me.txtT1._Prozent = False
        Me.txtT1._ShortDateNew = False
        Me.txtT1._ShortDateOnly = False
@@ -1198,6 +1206,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZnV._DateTimeOnly = False
        Me.txtZnV._numbersOnly = True
        Me.txtZnV._numbersOnlyKommastellen = ""
+        Me.txtZnV._numbersOnlyTrennzeichen = True
        Me.txtZnV._Prozent = False
        Me.txtZnV._ShortDateNew = False
        Me.txtZnV._ShortDateOnly = False
@@ -1221,6 +1230,7 @@ Partial Class frmNacherfassungNEU
        Me.txtSonstiges._DateTimeOnly = False
        Me.txtSonstiges._numbersOnly = True
        Me.txtSonstiges._numbersOnlyKommastellen = ""
+        Me.txtSonstiges._numbersOnlyTrennzeichen = True
        Me.txtSonstiges._Prozent = False
        Me.txtSonstiges._ShortDateNew = False
        Me.txtSonstiges._ShortDateOnly = False
@@ -1244,6 +1254,7 @@ Partial Class frmNacherfassungNEU
        Me.txtCarnetTIR._DateTimeOnly = False
        Me.txtCarnetTIR._numbersOnly = True
        Me.txtCarnetTIR._numbersOnlyKommastellen = ""
+        Me.txtCarnetTIR._numbersOnlyTrennzeichen = True
        Me.txtCarnetTIR._Prozent = False
        Me.txtCarnetTIR._ShortDateNew = False
        Me.txtCarnetTIR._ShortDateOnly = False
@@ -1267,6 +1278,7 @@ Partial Class frmNacherfassungNEU
        Me.txtT2._DateTimeOnly = False
        Me.txtT2._numbersOnly = True
        Me.txtT2._numbersOnlyKommastellen = ""
+        Me.txtT2._numbersOnlyTrennzeichen = True
        Me.txtT2._Prozent = False
        Me.txtT2._ShortDateNew = False
        Me.txtT2._ShortDateOnly = False
@@ -1290,6 +1302,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZnVFremd._DateTimeOnly = False
        Me.txtZnVFremd._numbersOnly = True
        Me.txtZnVFremd._numbersOnlyKommastellen = ""
+        Me.txtZnVFremd._numbersOnlyTrennzeichen = True
        Me.txtZnVFremd._Prozent = False
        Me.txtZnVFremd._ShortDateNew = False
        Me.txtZnVFremd._ShortDateOnly = False
@@ -1313,6 +1326,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZAFremd._DateTimeOnly = False
        Me.txtZAFremd._numbersOnly = True
        Me.txtZAFremd._numbersOnlyKommastellen = ""
+        Me.txtZAFremd._numbersOnlyTrennzeichen = True
        Me.txtZAFremd._Prozent = False
        Me.txtZAFremd._ShortDateNew = False
        Me.txtZAFremd._ShortDateOnly = False
@@ -1336,6 +1350,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZA._DateTimeOnly = False
        Me.txtZA._numbersOnly = True
        Me.txtZA._numbersOnlyKommastellen = ""
+        Me.txtZA._numbersOnlyTrennzeichen = True
        Me.txtZA._Prozent = False
        Me.txtZA._ShortDateNew = False
        Me.txtZA._ShortDateOnly = False
@@ -1452,6 +1467,9 @@ Partial Class frmNacherfassungNEU
        Me.Panel1.AutoScroll = True
        Me.Panel1.Controls.Add(Me.cbxEIDR)
        Me.Panel1.Controls.Add(Me.Button4)
+        Me.Panel1.Controls.Add(Me.cboNiederlassung)
+        Me.Panel1.Controls.Add(Me.Label56)
+        Me.Panel1.Controls.Add(Me.btnATLASPOS)
        Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerEmpfaenger)
        Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerFrachtfuehrer)
        Me.Panel1.Controls.Add(Me.txtKdAuftragsnummerAvisierer)
@@ -1578,6 +1596,7 @@ Partial Class frmNacherfassungNEU
        Me.txtKdAuftragsnummerEmpfaenger._DateTimeOnly = False
        Me.txtKdAuftragsnummerEmpfaenger._numbersOnly = False
        Me.txtKdAuftragsnummerEmpfaenger._numbersOnlyKommastellen = ""
+        Me.txtKdAuftragsnummerEmpfaenger._numbersOnlyTrennzeichen = True
        Me.txtKdAuftragsnummerEmpfaenger._Prozent = False
        Me.txtKdAuftragsnummerEmpfaenger._ShortDateNew = False
        Me.txtKdAuftragsnummerEmpfaenger._ShortDateOnly = False
@@ -1601,6 +1620,7 @@ Partial Class frmNacherfassungNEU
        Me.txtKdAuftragsnummerFrachtfuehrer._DateTimeOnly = False
        Me.txtKdAuftragsnummerFrachtfuehrer._numbersOnly = False
        Me.txtKdAuftragsnummerFrachtfuehrer._numbersOnlyKommastellen = ""
+        Me.txtKdAuftragsnummerFrachtfuehrer._numbersOnlyTrennzeichen = True
        Me.txtKdAuftragsnummerFrachtfuehrer._Prozent = False
        Me.txtKdAuftragsnummerFrachtfuehrer._ShortDateNew = False
        Me.txtKdAuftragsnummerFrachtfuehrer._ShortDateOnly = False
@@ -1624,6 +1644,7 @@ Partial Class frmNacherfassungNEU
        Me.txtKdAuftragsnummerAvisierer._DateTimeOnly = False
        Me.txtKdAuftragsnummerAvisierer._numbersOnly = False
        Me.txtKdAuftragsnummerAvisierer._numbersOnlyKommastellen = ""
+        Me.txtKdAuftragsnummerAvisierer._numbersOnlyTrennzeichen = True
        Me.txtKdAuftragsnummerAvisierer._Prozent = False
        Me.txtKdAuftragsnummerAvisierer._ShortDateNew = False
        Me.txtKdAuftragsnummerAvisierer._ShortDateOnly = False
@@ -1647,6 +1668,7 @@ Partial Class frmNacherfassungNEU
        Me.txtInkasso._DateTimeOnly = False
        Me.txtInkasso._numbersOnly = True
        Me.txtInkasso._numbersOnlyKommastellen = ""
+        Me.txtInkasso._numbersOnlyTrennzeichen = True
        Me.txtInkasso._Prozent = False
        Me.txtInkasso._ShortDateNew = False
        Me.txtInkasso._ShortDateOnly = False
@@ -1836,6 +1858,7 @@ Partial Class frmNacherfassungNEU
        Me.txtCMRNr._DateTimeOnly = False
        Me.txtCMRNr._numbersOnly = False
        Me.txtCMRNr._numbersOnlyKommastellen = ""
+        Me.txtCMRNr._numbersOnlyTrennzeichen = True
        Me.txtCMRNr._Prozent = False
        Me.txtCMRNr._ShortDateNew = False
        Me.txtCMRNr._ShortDateOnly = False
@@ -1860,6 +1883,7 @@ Partial Class frmNacherfassungNEU
        Me.txtCMRDatum._DateTimeOnly = False
        Me.txtCMRDatum._numbersOnly = False
        Me.txtCMRDatum._numbersOnlyKommastellen = ""
+        Me.txtCMRDatum._numbersOnlyTrennzeichen = True
        Me.txtCMRDatum._Prozent = False
        Me.txtCMRDatum._ShortDateNew = True
        Me.txtCMRDatum._ShortDateOnly = False
@@ -1939,6 +1963,7 @@ Partial Class frmNacherfassungNEU
        Me.txtKdAuftragsnummer._DateTimeOnly = False
        Me.txtKdAuftragsnummer._numbersOnly = False
        Me.txtKdAuftragsnummer._numbersOnlyKommastellen = ""
+        Me.txtKdAuftragsnummer._numbersOnlyTrennzeichen = True
        Me.txtKdAuftragsnummer._Prozent = False
        Me.txtKdAuftragsnummer._ShortDateNew = False
        Me.txtKdAuftragsnummer._ShortDateOnly = False
@@ -2181,6 +2206,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAvisiererKdNr._DateTimeOnly = False
        Me.txtAvisiererKdNr._numbersOnly = False
        Me.txtAvisiererKdNr._numbersOnlyKommastellen = ""
+        Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True
        Me.txtAvisiererKdNr._Prozent = False
        Me.txtAvisiererKdNr._ShortDateNew = False
        Me.txtAvisiererKdNr._ShortDateOnly = False
@@ -2384,6 +2410,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZucker_Aufschub._DateTimeOnly = False
        Me.txtZucker_Aufschub._numbersOnly = False
        Me.txtZucker_Aufschub._numbersOnlyKommastellen = ""
+        Me.txtZucker_Aufschub._numbersOnlyTrennzeichen = True
        Me.txtZucker_Aufschub._Prozent = False
        Me.txtZucker_Aufschub._ShortDateNew = False
        Me.txtZucker_Aufschub._ShortDateOnly = False
@@ -2407,6 +2434,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZucker_Datum._DateTimeOnly = False
        Me.txtZucker_Datum._numbersOnly = False
        Me.txtZucker_Datum._numbersOnlyKommastellen = ""
+        Me.txtZucker_Datum._numbersOnlyTrennzeichen = True
        Me.txtZucker_Datum._Prozent = False
        Me.txtZucker_Datum._ShortDateNew = False
        Me.txtZucker_Datum._ShortDateOnly = False
@@ -2450,6 +2478,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZuckerMRN._DateTimeOnly = False
        Me.txtZuckerMRN._numbersOnly = False
        Me.txtZuckerMRN._numbersOnlyKommastellen = ""
+        Me.txtZuckerMRN._numbersOnlyTrennzeichen = True
        Me.txtZuckerMRN._Prozent = False
        Me.txtZuckerMRN._ShortDateNew = False
        Me.txtZuckerMRN._ShortDateOnly = False
@@ -2511,6 +2540,7 @@ Partial Class frmNacherfassungNEU
        Me.txtCRN._DateTimeOnly = False
        Me.txtCRN._numbersOnly = False
        Me.txtCRN._numbersOnlyKommastellen = ""
+        Me.txtCRN._numbersOnlyTrennzeichen = True
        Me.txtCRN._Prozent = False
        Me.txtCRN._ShortDateNew = False
        Me.txtCRN._ShortDateOnly = False
@@ -2620,6 +2650,7 @@ Partial Class frmNacherfassungNEU
        Me.txtRohmasse._DateTimeOnly = False
        Me.txtRohmasse._numbersOnly = True
        Me.txtRohmasse._numbersOnlyKommastellen = ""
+        Me.txtRohmasse._numbersOnlyTrennzeichen = True
        Me.txtRohmasse._Prozent = False
        Me.txtRohmasse._ShortDateNew = False
        Me.txtRohmasse._ShortDateOnly = False
@@ -2642,6 +2673,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZahlungsaufschub._DateTimeOnly = False
        Me.txtZahlungsaufschub._numbersOnly = False
        Me.txtZahlungsaufschub._numbersOnlyKommastellen = ""
+        Me.txtZahlungsaufschub._numbersOnlyTrennzeichen = True
        Me.txtZahlungsaufschub._Prozent = False
        Me.txtZahlungsaufschub._ShortDateNew = False
        Me.txtZahlungsaufschub._ShortDateOnly = False
@@ -2664,6 +2696,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAbsenderKdNr._DateTimeOnly = False
        Me.txtAbsenderKdNr._numbersOnly = False
        Me.txtAbsenderKdNr._numbersOnlyKommastellen = ""
+        Me.txtAbsenderKdNr._numbersOnlyTrennzeichen = True
        Me.txtAbsenderKdNr._Prozent = False
        Me.txtAbsenderKdNr._ShortDateNew = False
        Me.txtAbsenderKdNr._ShortDateOnly = False
@@ -2688,6 +2721,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAnzahl._DateTimeOnly = False
        Me.txtAnzahl._numbersOnly = False
        Me.txtAnzahl._numbersOnlyKommastellen = ""
+        Me.txtAnzahl._numbersOnlyTrennzeichen = True
        Me.txtAnzahl._Prozent = False
        Me.txtAnzahl._ShortDateNew = False
        Me.txtAnzahl._ShortDateOnly = False
@@ -2710,6 +2744,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBarzahlungsbetrag._DateTimeOnly = False
        Me.txtBarzahlungsbetrag._numbersOnly = True
        Me.txtBarzahlungsbetrag._numbersOnlyKommastellen = ""
+        Me.txtBarzahlungsbetrag._numbersOnlyTrennzeichen = True
        Me.txtBarzahlungsbetrag._Prozent = False
        Me.txtBarzahlungsbetrag._ShortDateNew = False
        Me.txtBarzahlungsbetrag._ShortDateOnly = False
@@ -2731,6 +2766,7 @@ Partial Class frmNacherfassungNEU
        Me.txtFraechterKdNr._DateTimeOnly = False
        Me.txtFraechterKdNr._numbersOnly = False
        Me.txtFraechterKdNr._numbersOnlyKommastellen = ""
+        Me.txtFraechterKdNr._numbersOnlyTrennzeichen = True
        Me.txtFraechterKdNr._Prozent = False
        Me.txtFraechterKdNr._ShortDateNew = False
        Me.txtFraechterKdNr._ShortDateOnly = False
@@ -2755,6 +2791,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAuftraggeberKdNr._DateTimeOnly = False
        Me.txtAuftraggeberKdNr._numbersOnly = False
        Me.txtAuftraggeberKdNr._numbersOnlyKommastellen = ""
+        Me.txtAuftraggeberKdNr._numbersOnlyTrennzeichen = True
        Me.txtAuftraggeberKdNr._Prozent = False
        Me.txtAuftraggeberKdNr._ShortDateNew = False
        Me.txtAuftraggeberKdNr._ShortDateOnly = False
@@ -2779,6 +2816,7 @@ Partial Class frmNacherfassungNEU
        Me.txtPackstuecke._DateTimeOnly = False
        Me.txtPackstuecke._numbersOnly = False
        Me.txtPackstuecke._numbersOnlyKommastellen = ""
+        Me.txtPackstuecke._numbersOnlyTrennzeichen = True
        Me.txtPackstuecke._Prozent = False
        Me.txtPackstuecke._ShortDateNew = False
        Me.txtPackstuecke._ShortDateOnly = False
@@ -2804,6 +2842,7 @@ Partial Class frmNacherfassungNEU
        Me.txtUmrechnungskurs._DateTimeOnly = False
        Me.txtUmrechnungskurs._numbersOnly = False
        Me.txtUmrechnungskurs._numbersOnlyKommastellen = ""
+        Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True
        Me.txtUmrechnungskurs._Prozent = False
        Me.txtUmrechnungskurs._ShortDateNew = False
        Me.txtUmrechnungskurs._ShortDateOnly = False
@@ -2826,6 +2865,7 @@ Partial Class frmNacherfassungNEU
        Me.txtRechnungsbetrag._DateTimeOnly = False
        Me.txtRechnungsbetrag._numbersOnly = True
        Me.txtRechnungsbetrag._numbersOnlyKommastellen = ""
+        Me.txtRechnungsbetrag._numbersOnlyTrennzeichen = True
        Me.txtRechnungsbetrag._Prozent = False
        Me.txtRechnungsbetrag._ShortDateNew = False
        Me.txtRechnungsbetrag._ShortDateOnly = False
@@ -2848,6 +2888,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBemerkung._DateTimeOnly = False
        Me.txtBemerkung._numbersOnly = False
        Me.txtBemerkung._numbersOnlyKommastellen = ""
+        Me.txtBemerkung._numbersOnlyTrennzeichen = True
        Me.txtBemerkung._Prozent = False
        Me.txtBemerkung._ShortDateNew = False
        Me.txtBemerkung._ShortDateOnly = False
@@ -2871,6 +2912,7 @@ Partial Class frmNacherfassungNEU
        Me.txtEmpfaengerKdNr._DateTimeOnly = False
        Me.txtEmpfaengerKdNr._numbersOnly = False
        Me.txtEmpfaengerKdNr._numbersOnlyKommastellen = ""
+        Me.txtEmpfaengerKdNr._numbersOnlyTrennzeichen = True
        Me.txtEmpfaengerKdNr._Prozent = False
        Me.txtEmpfaengerKdNr._ShortDateNew = False
        Me.txtEmpfaengerKdNr._ShortDateOnly = False
@@ -2895,6 +2937,7 @@ Partial Class frmNacherfassungNEU
        Me.txtVermerk._DateTimeOnly = False
        Me.txtVermerk._numbersOnly = False
        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._numbersOnlyTrennzeichen = True
        Me.txtVermerk._Prozent = False
        Me.txtVermerk._ShortDateNew = False
        Me.txtVermerk._ShortDateOnly = False
@@ -2918,6 +2961,7 @@ Partial Class frmNacherfassungNEU
        Me.txtErfassungsnummer._DateTimeOnly = False
        Me.txtErfassungsnummer._numbersOnly = False
        Me.txtErfassungsnummer._numbersOnlyKommastellen = ""
+        Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True
        Me.txtErfassungsnummer._Prozent = False
        Me.txtErfassungsnummer._ShortDateNew = False
        Me.txtErfassungsnummer._ShortDateOnly = False
@@ -2941,6 +2985,7 @@ Partial Class frmNacherfassungNEU
        Me.txtEndEmpfKdNr._DateTimeOnly = False
        Me.txtEndEmpfKdNr._numbersOnly = False
        Me.txtEndEmpfKdNr._numbersOnlyKommastellen = ""
+        Me.txtEndEmpfKdNr._numbersOnlyTrennzeichen = True
        Me.txtEndEmpfKdNr._Prozent = False
        Me.txtEndEmpfKdNr._ShortDateNew = False
        Me.txtEndEmpfKdNr._ShortDateOnly = False
@@ -2965,6 +3010,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBelegNummerZAT1T2._DateTimeOnly = False
        Me.txtBelegNummerZAT1T2._numbersOnly = False
        Me.txtBelegNummerZAT1T2._numbersOnlyKommastellen = ""
+        Me.txtBelegNummerZAT1T2._numbersOnlyTrennzeichen = True
        Me.txtBelegNummerZAT1T2._Prozent = False
        Me.txtBelegNummerZAT1T2._ShortDateNew = False
        Me.txtBelegNummerZAT1T2._ShortDateOnly = False
@@ -2987,11 +3033,10 @@ Partial Class frmNacherfassungNEU
        '
        Me.pnlZOll.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.pnlZOll.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.pnlZOll.Controls.Add(Me.cboNiederlassung)
-        Me.pnlZOll.Controls.Add(Me.Label56)
+        Me.pnlZOll.Controls.Add(Me.txtAtlasBezNrAES)
+        Me.pnlZOll.Controls.Add(Me.Label65)
        Me.pnlZOll.Controls.Add(Me.lblZollsys)
        Me.pnlZOll.Controls.Add(Me.cboZollsystem)
-        Me.pnlZOll.Controls.Add(Me.btnATLASPOS)
        Me.pnlZOll.Controls.Add(Me.txtAtlasBezNrEZA)
        Me.pnlZOll.Controls.Add(Me.txtAtlasBezNrNCTS)
        Me.pnlZOll.Controls.Add(Me.Label26)
@@ -3008,7 +3053,7 @@ Partial Class frmNacherfassungNEU
        '
        Me.cboNiederlassung.FormattingEnabled = True
        Me.cboNiederlassung.Items.AddRange(New Object() {"SUB", "SBG", "WAI", "NEU", "SUW"})
-        Me.cboNiederlassung.Location = New System.Drawing.Point(801, 17)
+        Me.cboNiederlassung.Location = New System.Drawing.Point(301, 309)
        Me.cboNiederlassung.Name = "cboNiederlassung"
        Me.cboNiederlassung.Size = New System.Drawing.Size(74, 21)
        Me.cboNiederlassung.TabIndex = 3
@@ -3016,7 +3061,7 @@ Partial Class frmNacherfassungNEU
        'Label56
        '
        Me.Label56.AutoSize = True
-        Me.Label56.Location = New System.Drawing.Point(798, 1)
+        Me.Label56.Location = New System.Drawing.Point(298, 293)
        Me.Label56.Name = "Label56"
        Me.Label56.Size = New System.Drawing.Size(77, 13)
        Me.Label56.TabIndex = 0
@@ -3049,12 +3094,12 @@ Partial Class frmNacherfassungNEU
        '
        Me.btnATLASPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnATLASPOS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnATLASPOS.Location = New System.Drawing.Point(715, 15)
+        Me.btnATLASPOS.Location = New System.Drawing.Point(318, 315)
        Me.btnATLASPOS.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
        Me.btnATLASPOS.Name = "btnATLASPOS"
-        Me.btnATLASPOS.Size = New System.Drawing.Size(78, 24)
+        Me.btnATLASPOS.Size = New System.Drawing.Size(29, 24)
        Me.btnATLASPOS.TabIndex = 10
-        Me.btnATLASPOS.Text = "Positionen"
+        Me.btnATLASPOS.Text = "Pos"
        Me.btnATLASPOS.UseVisualStyleBackColor = True
        Me.btnATLASPOS.Visible = False
        '
@@ -3063,6 +3108,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAtlasBezNrEZA._DateTimeOnly = False
        Me.txtAtlasBezNrEZA._numbersOnly = False
        Me.txtAtlasBezNrEZA._numbersOnlyKommastellen = ""
+        Me.txtAtlasBezNrEZA._numbersOnlyTrennzeichen = True
        Me.txtAtlasBezNrEZA._Prozent = False
        Me.txtAtlasBezNrEZA._ShortDateNew = False
        Me.txtAtlasBezNrEZA._ShortDateOnly = False
@@ -3086,6 +3132,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAtlasBezNrNCTS._DateTimeOnly = False
        Me.txtAtlasBezNrNCTS._numbersOnly = False
        Me.txtAtlasBezNrNCTS._numbersOnlyKommastellen = ""
+        Me.txtAtlasBezNrNCTS._numbersOnlyTrennzeichen = True
        Me.txtAtlasBezNrNCTS._Prozent = False
        Me.txtAtlasBezNrNCTS._ShortDateNew = False
        Me.txtAtlasBezNrNCTS._ShortDateOnly = False
@@ -3095,7 +3142,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAtlasBezNrNCTS._Waehrung = False
        Me.txtAtlasBezNrNCTS._WaehrungZeichen = True
        Me.txtAtlasBezNrNCTS.ForeColor = System.Drawing.Color.Black
-        Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(483, 18)
+        Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(428, 18)
        Me.txtAtlasBezNrNCTS.MaxLength = 22
        Me.txtAtlasBezNrNCTS.MaxLineLength = -1
        Me.txtAtlasBezNrNCTS.MaxLines_Warning = ""
@@ -3127,9 +3174,9 @@ Partial Class frmNacherfassungNEU
        Me.Label51.AutoSize = True
        Me.Label51.Location = New System.Drawing.Point(383, 22)
        Me.Label51.Name = "Label51"
-        Me.Label51.Size = New System.Drawing.Size(94, 13)
+        Me.Label51.Size = New System.Drawing.Size(39, 13)
        Me.Label51.TabIndex = 7
-        Me.Label51.Text = "Bezugs-Nr. NCTS:"
+        Me.Label51.Text = "NCTS:"
        '
        'Label58
        '
@@ -3189,6 +3236,7 @@ Partial Class frmNacherfassungNEU
        Me.txtHandlingZuKassieren._DateTimeOnly = False
        Me.txtHandlingZuKassieren._numbersOnly = True
        Me.txtHandlingZuKassieren._numbersOnlyKommastellen = ""
+        Me.txtHandlingZuKassieren._numbersOnlyTrennzeichen = True
        Me.txtHandlingZuKassieren._Prozent = False
        Me.txtHandlingZuKassieren._ShortDateNew = False
        Me.txtHandlingZuKassieren._ShortDateOnly = False
@@ -3264,6 +3312,7 @@ Partial Class frmNacherfassungNEU
        Me.MyTextBoxLKWKz._DateTimeOnly = False
        Me.MyTextBoxLKWKz._numbersOnly = False
        Me.MyTextBoxLKWKz._numbersOnlyKommastellen = ""
+        Me.MyTextBoxLKWKz._numbersOnlyTrennzeichen = True
        Me.MyTextBoxLKWKz._Prozent = False
        Me.MyTextBoxLKWKz._ShortDateNew = False
        Me.MyTextBoxLKWKz._ShortDateOnly = False
@@ -3287,6 +3336,7 @@ Partial Class frmNacherfassungNEU
        Me.txtLKWId._DateTimeOnly = False
        Me.txtLKWId._numbersOnly = True
        Me.txtLKWId._numbersOnlyKommastellen = ""
+        Me.txtLKWId._numbersOnlyTrennzeichen = True
        Me.txtLKWId._Prozent = False
        Me.txtLKWId._ShortDateNew = False
        Me.txtLKWId._ShortDateOnly = False
@@ -3337,6 +3387,39 @@ Partial Class frmNacherfassungNEU
        Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
        Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)"
        '
+        'txtAtlasBezNrAES
+        '
+        Me.txtAtlasBezNrAES._DateTimeOnly = False
+        Me.txtAtlasBezNrAES._numbersOnly = False
+        Me.txtAtlasBezNrAES._numbersOnlyKommastellen = ""
+        Me.txtAtlasBezNrAES._numbersOnlyTrennzeichen = True
+        Me.txtAtlasBezNrAES._Prozent = False
+        Me.txtAtlasBezNrAES._ShortDateNew = False
+        Me.txtAtlasBezNrAES._ShortDateOnly = False
+        Me.txtAtlasBezNrAES._TimeOnly = False
+        Me.txtAtlasBezNrAES._TimeOnly_Seconds = False
+        Me.txtAtlasBezNrAES._value = Nothing
+        Me.txtAtlasBezNrAES._Waehrung = False
+        Me.txtAtlasBezNrAES._WaehrungZeichen = True
+        Me.txtAtlasBezNrAES.ForeColor = System.Drawing.Color.Black
+        Me.txtAtlasBezNrAES.Location = New System.Drawing.Point(571, 18)
+        Me.txtAtlasBezNrAES.MaxLength = 22
+        Me.txtAtlasBezNrAES.MaxLineLength = -1
+        Me.txtAtlasBezNrAES.MaxLines_Warning = ""
+        Me.txtAtlasBezNrAES.MaxLines_Warning_Label = Nothing
+        Me.txtAtlasBezNrAES.Name = "txtAtlasBezNrAES"
+        Me.txtAtlasBezNrAES.Size = New System.Drawing.Size(100, 20)
+        Me.txtAtlasBezNrAES.TabIndex = 11
+        '
+        'Label65
+        '
+        Me.Label65.AutoSize = True
+        Me.Label65.Location = New System.Drawing.Point(534, 22)
+        Me.Label65.Name = "Label65"
+        Me.Label65.Size = New System.Drawing.Size(31, 13)
+        Me.Label65.TabIndex = 10
+        Me.Label65.Text = "AES:"
+        '
        'frmNacherfassungNEU
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3578,4 +3661,6 @@ Partial Class frmNacherfassungNEU
    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
    Friend WithEvents KopierenZwischenablageToolStripMenuItem As ToolStripMenuItem
    Public WithEvents Button5 As Button
+    Friend WithEvents txtAtlasBezNrAES As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label65 As Label
 End Class
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
@@ -228,6 +228,7 @@ Public Class frmNacherfassungNEU
        If SPEDITIONSBUCH.EndempfängerKundenNr > 0 Then txtEndEmpf.KdNr = SPEDITIONSBUCH.EndempfängerKundenNr

        txtAtlasBezNrEZA.Text = SPEDITIONSBUCH.AtlasBezNrEZA
+        txtAtlasBezNrAES.Text = SPEDITIONSBUCH.AtlasBezNrAES
        txtAtlasBezNrNCTS.Text = SPEDITIONSBUCH.AtlasBezNrNCTS
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX"
@@ -896,6 +897,7 @@ Public Class frmNacherfassungNEU
        SPEDITIONSBUCH.NCTS_Verzollungsadresse = txtT1Verzollungsadresse.Text

        SPEDITIONSBUCH.AtlasBezNrEZA = txtAtlasBezNrEZA.Text
+        SPEDITIONSBUCH.AtlasBezNrAES = txtAtlasBezNrAES.Text
        SPEDITIONSBUCH.AtlasBezNrNCTS = txtAtlasBezNrNCTS.Text
        SPEDITIONSBUCH.Zollsystem = If(cboZollsystem._value = "", Nothing, cboZollsystem._value)

@@ -1036,7 +1038,7 @@ Public Class frmNacherfassungNEU

    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnImport.Click
        Label26.ForeColor = Color.Black
-        If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Then
+        If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Or txtAtlasBezNrAES.Text <> "" Then
            If cboZollsystem._value = "" Then
                Label26.ForeColor = Color.Red
                Exit Sub
@@ -1056,6 +1058,7 @@ Public Class frmNacherfassungNEU

        Dim EZANr = txtAtlasBezNrEZA.Text
        Dim NCTSNr = txtAtlasBezNrNCTS.Text
+        Dim AESNr = txtAtlasBezNrAES.Text

        If cboNiederlassung.Text <> "" Then
            strManNl = cboNiederlassung.Text
@@ -1082,7 +1085,7 @@ Public Class frmNacherfassungNEU

        lblLastMa.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
        loadDatainSPEDBUCH()
-        SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, avisoLinkId, SPEDITIONSBUCH.SendungID, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound)
+        SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, avisoLinkId, SPEDITIONSBUCH.SendungID, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound,,, AESNr)
        If notFound Then
            lblZollsys.Visible = True
            MsgBox("Der Eintrag wurde nicht gefunden!", vbInformation)
@@ -1375,7 +1378,7 @@ Public Class frmNacherfassungNEU
        End If
    End Sub

-    Private Sub txtAtlasBezNrEZA_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAtlasBezNrEZA.KeyDown, txtAtlasBezNrNCTS.KeyDown
+    Private Sub txtAtlasBezNrEZA_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAtlasBezNrEZA.KeyDown, txtAtlasBezNrNCTS.KeyDown, txtAtlasBezNrAES.KeyDown
        If e.KeyCode = Keys.Return Then
            btnImport.PerformClick()
        End If
--- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb
+++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb
@@ -657,14 +657,15 @@ Public Class cVorauskasseOptions
    Shared Sub insertBenachrichtigung(VermerkTxt, AvisoId, SendungID)
        Try
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-            Dim sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'")
+            Dim sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO")
            Dim art = "B"
            If sendToID < 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then
-                sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'")
+                sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO")
                art = "T"
            End If

-            VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungID, 3, art, sendToID, "von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0, , VermerkTxt)
+            '6 = VK OK
+            VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungID, 6, art, sendToID, "von '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "'", 0, , VermerkTxt)

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
@@ -318,7 +318,7 @@ Public Class cADMIN

        'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
        'Dim sql As String = "SELECT mit_vname,mit_nname,mit_berechtigung FROM tblUser where mit_username=@mit_username COLLATE Latin1_General_CS_AS and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS "
-        Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_niederlassung,mit_username,mit_pwd,mit_info,mit_abteilung,mit_standartFiliale,mit_FMZollPersID,mit_firmaFMZoll,mit_TESTonly,mit_abweichenderAnzeigename FROM " &
+        Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_niederlassung,mit_username, case WHEN isnull(mit_abweichenderAnzeigename,'')='' THEN mit_username ELSE mit_abweichenderAnzeigename END mit_usernameDisplay,mit_pwd,mit_info,mit_abteilung,mit_standartFiliale,mit_FMZollPersID,mit_firmaFMZoll,mit_TESTonly,mit_abweichenderAnzeigename FROM " &
                            " tblMitarbeiter,tblBerProg where mit_username=@mit_username and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS AND (mit_firma=@mit_firma OR mit_firma='ALL' ) AND bepr_programm=@bepr_programm AND bepr_userId=mit_id "


@@ -345,7 +345,8 @@ Public Class cADMIN
                        '  If cMitarbeiterAVISO.Grenzstelle = "Nickelsdorf" Then cMitarbeiterAVISO.Grenzstelle = "NKD"
                        '  If cMitarbeiterAVISO.Grenzstelle = "Salzburg" Then cMitarbeiterAVISO.Grenzstelle = "SBG"
                        '  If cMitarbeiterAVISO.Grenzstelle = "" Then cMitarbeiterAVISO.Grenzstelle = "???"
-                        cMitarbeiterAVISO.Mitarbeiter = If(CStr(dr.Item("mit_abweichenderAnzeigename")) <> "", CStr(dr.Item("mit_abweichenderAnzeigename")), CStr(dr.Item("mit_username")))
+                        cMitarbeiterAVISO.Mitarbeiter = CStr(dr.Item("mit_usernameDisplay"))
+                        'cMitarbeiterAVISO.Mitarbeiter = If(CStr(dr.Item("mit_abweichenderAnzeigename")) <> "", CStr(dr.Item("mit_abweichenderAnzeigename")), CStr(dr.Item("mit_username")))
                        cMitarbeiterAVISO.Mitarbeitername = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname"))
                        cMitarbeiterAVISO.KW = CStr(dr.Item("mit_pwd"))
                        '  cMitarbeiterAVISO.Sicherheitsstufe = CInt(dr.Item("ber_sicherheitsstufe"))
@@ -363,6 +364,7 @@ Public Class cADMIN
                        ' VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME = CStr(dr.Item("mit_nname"))
                        'VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname"))
                        VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = CStr(dr.Item("mit_username"))
+                        '  VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = CStr(dr.Item("mit_usernameDisplay"))
                        If dr.Item("mit_firmaFMZoll") Is DBNull.Value Then
                            MsgBox("Benutzer muss einer Firma zugeordnet sein!")
                            Return False
--- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
@@ -137,6 +137,7 @@ Public Class cSpeditionsbuch
    Property PersonalnummerQS As Object = Nothing 'int=-1
    Property AtlasBezNrEZA As String = ""
    Property AtlasBezNrNCTS As String = ""
+    Property AtlasBezNrAES As String = ""
    Property Versendungsland As String = ""
    Property SB_CMR As Boolean = False
    Property SB_CMRDatum As Object = Nothing
@@ -312,6 +313,7 @@ Public Class cSpeditionsbuch
                        Me.PersonalnummerQS = SQL.checkNullReturnValue(dr.Item("PersonalnummerQS"), Nothing)
                        Me.AtlasBezNrEZA = SQL.checkNullStr(dr.Item("AtlasBezNrEZA"))
                        Me.AtlasBezNrNCTS = SQL.checkNullStr(dr.Item("AtlasBezNrNCTS"))
+                        Me.AtlasBezNrAES = SQL.checkNullStr(dr.Item("AtlasBezNrAES"))
                        Me.Versendungsland = SQL.checkNullStr(dr.Item("Versendungsland"))
                        Me.SB_CMR = SQL.checkNullBool(dr.Item("SB_CMR"))
                        Me.SB_CMRDatum = SQL.checkNullDateNothing(dr.Item("SB_CMRDatum"))
@@ -378,7 +380,7 @@ Public Class cSpeditionsbuch
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT TOP 1 * FROM Speditionsbuch WHERE ([AtlasBezNrEZA]=@bezugsNr OR [AtlasBezNrNCTS]=@bezugsNr )", conn)
+                Using cmd As New SqlCommand("SELECT TOP 1 * FROM Speditionsbuch WHERE ([AtlasBezNrEZA]=@bezugsNr OR [AtlasBezNrNCTS]=@bezugsNr OR [AtlasBezNrAES]=@bezugsNr )", conn)
                    cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
@@ -466,6 +468,7 @@ Public Class cSpeditionsbuch
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", PersonalnummerQS))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrEZA", AtlasBezNrEZA))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrNCTS", AtlasBezNrNCTS))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrAES", AtlasBezNrAES))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", Versendungsland))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMR", SB_CMR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRDatum", SB_CMRDatum))