neu

2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb
@@ -30,6 +30,7 @@ Partial Class frmNacherfassungNEU
        Me.datAbfertigungsdatum = New System.Windows.Forms.DateTimePicker()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Button5 = New System.Windows.Forms.Button()
        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.lblSendungen = New System.Windows.Forms.Label()
@@ -280,6 +281,7 @@ Partial Class frmNacherfassungNEU
        '
        Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Button5)
        Me.pnl.Controls.Add(Me.UsrCntlTestsystem1)
        Me.pnl.Controls.Add(Me.Panel3)
        Me.pnl.Controls.Add(Me.btnNext)
@@ -305,9 +307,21 @@ Partial Class frmNacherfassungNEU
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(883, 95)
+        Me.pnl.Size = New System.Drawing.Size(883, 99)
        Me.pnl.TabIndex = 0
        '
+        'Button5
+        '
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.ForeColor = System.Drawing.Color.White
+        Me.Button5.Location = New System.Drawing.Point(487, 5)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(116, 24)
+        Me.Button5.TabIndex = 22
+        Me.Button5.Text = "Aktendeckel"
+        Me.Button5.UseVisualStyleBackColor = True
+        Me.Button5.Visible = False
+        '
        'UsrCntlTestsystem1
        '
        Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.Transparent
@@ -387,7 +401,7 @@ Partial Class frmNacherfassungNEU
        'lblErrUnterNr
        '
        Me.lblErrUnterNr.AutoSize = True
-        Me.lblErrUnterNr.BackColor = System.Drawing.Color.White
+        Me.lblErrUnterNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.lblErrUnterNr.ForeColor = System.Drawing.Color.Red
        Me.lblErrUnterNr.Location = New System.Drawing.Point(443, 81)
        Me.lblErrUnterNr.Name = "lblErrUnterNr"
@@ -399,7 +413,7 @@ Partial Class frmNacherfassungNEU
        'lblErrAbfertigungsnummer
        '
        Me.lblErrAbfertigungsnummer.AutoSize = True
-        Me.lblErrAbfertigungsnummer.BackColor = System.Drawing.Color.White
+        Me.lblErrAbfertigungsnummer.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.lblErrAbfertigungsnummer.ForeColor = System.Drawing.Color.Red
        Me.lblErrAbfertigungsnummer.Location = New System.Drawing.Point(239, 81)
        Me.lblErrAbfertigungsnummer.Name = "lblErrAbfertigungsnummer"
@@ -411,7 +425,7 @@ Partial Class frmNacherfassungNEU
        'lblErrFiliale
        '
        Me.lblErrFiliale.AutoSize = True
-        Me.lblErrFiliale.BackColor = System.Drawing.Color.White
+        Me.lblErrFiliale.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.lblErrFiliale.ForeColor = System.Drawing.Color.Red
        Me.lblErrFiliale.Location = New System.Drawing.Point(154, 81)
        Me.lblErrFiliale.Name = "lblErrFiliale"
@@ -507,6 +521,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAbfertigungsnummer._ShortDateNew = False
        Me.txtAbfertigungsnummer._ShortDateOnly = False
        Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
        Me.txtAbfertigungsnummer._value = Nothing
        Me.txtAbfertigungsnummer._Waehrung = False
        Me.txtAbfertigungsnummer._WaehrungZeichen = True
@@ -541,6 +556,7 @@ Partial Class frmNacherfassungNEU
        Me.txtUnterNr._ShortDateNew = False
        Me.txtUnterNr._ShortDateOnly = False
        Me.txtUnterNr._TimeOnly = False
+        Me.txtUnterNr._TimeOnly_Seconds = False
        Me.txtUnterNr._value = Nothing
        Me.txtUnterNr._Waehrung = False
        Me.txtUnterNr._WaehrungZeichen = True
@@ -624,6 +640,7 @@ Partial Class frmNacherfassungNEU
        '
        'ContextMenuStrip1
        '
+        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
        '
@@ -1093,6 +1110,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZuschlaege._ShortDateNew = False
        Me.txtZuschlaege._ShortDateOnly = False
        Me.txtZuschlaege._TimeOnly = False
+        Me.txtZuschlaege._TimeOnly_Seconds = False
        Me.txtZuschlaege._value = ""
        Me.txtZuschlaege._Waehrung = False
        Me.txtZuschlaege._WaehrungZeichen = True
@@ -1115,6 +1133,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBarvorlagen._ShortDateNew = False
        Me.txtBarvorlagen._ShortDateOnly = False
        Me.txtBarvorlagen._TimeOnly = False
+        Me.txtBarvorlagen._TimeOnly_Seconds = False
        Me.txtBarvorlagen._value = ""
        Me.txtBarvorlagen._Waehrung = False
        Me.txtBarvorlagen._WaehrungZeichen = True
@@ -1137,6 +1156,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAE._ShortDateNew = False
        Me.txtAE._ShortDateOnly = False
        Me.txtAE._TimeOnly = False
+        Me.txtAE._TimeOnly_Seconds = False
        Me.txtAE._value = ""
        Me.txtAE._Waehrung = False
        Me.txtAE._WaehrungZeichen = True
@@ -1159,6 +1179,7 @@ Partial Class frmNacherfassungNEU
        Me.txtT1._ShortDateNew = False
        Me.txtT1._ShortDateOnly = False
        Me.txtT1._TimeOnly = False
+        Me.txtT1._TimeOnly_Seconds = False
        Me.txtT1._value = ""
        Me.txtT1._Waehrung = False
        Me.txtT1._WaehrungZeichen = True
@@ -1181,6 +1202,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZnV._ShortDateNew = False
        Me.txtZnV._ShortDateOnly = False
        Me.txtZnV._TimeOnly = False
+        Me.txtZnV._TimeOnly_Seconds = False
        Me.txtZnV._value = ""
        Me.txtZnV._Waehrung = False
        Me.txtZnV._WaehrungZeichen = True
@@ -1203,6 +1225,7 @@ Partial Class frmNacherfassungNEU
        Me.txtSonstiges._ShortDateNew = False
        Me.txtSonstiges._ShortDateOnly = False
        Me.txtSonstiges._TimeOnly = False
+        Me.txtSonstiges._TimeOnly_Seconds = False
        Me.txtSonstiges._value = ""
        Me.txtSonstiges._Waehrung = False
        Me.txtSonstiges._WaehrungZeichen = True
@@ -1225,6 +1248,7 @@ Partial Class frmNacherfassungNEU
        Me.txtCarnetTIR._ShortDateNew = False
        Me.txtCarnetTIR._ShortDateOnly = False
        Me.txtCarnetTIR._TimeOnly = False
+        Me.txtCarnetTIR._TimeOnly_Seconds = False
        Me.txtCarnetTIR._value = ""
        Me.txtCarnetTIR._Waehrung = False
        Me.txtCarnetTIR._WaehrungZeichen = True
@@ -1247,6 +1271,7 @@ Partial Class frmNacherfassungNEU
        Me.txtT2._ShortDateNew = False
        Me.txtT2._ShortDateOnly = False
        Me.txtT2._TimeOnly = False
+        Me.txtT2._TimeOnly_Seconds = False
        Me.txtT2._value = ""
        Me.txtT2._Waehrung = False
        Me.txtT2._WaehrungZeichen = True
@@ -1269,6 +1294,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZnVFremd._ShortDateNew = False
        Me.txtZnVFremd._ShortDateOnly = False
        Me.txtZnVFremd._TimeOnly = False
+        Me.txtZnVFremd._TimeOnly_Seconds = False
        Me.txtZnVFremd._value = ""
        Me.txtZnVFremd._Waehrung = False
        Me.txtZnVFremd._WaehrungZeichen = True
@@ -1291,6 +1317,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZAFremd._ShortDateNew = False
        Me.txtZAFremd._ShortDateOnly = False
        Me.txtZAFremd._TimeOnly = False
+        Me.txtZAFremd._TimeOnly_Seconds = False
        Me.txtZAFremd._value = ""
        Me.txtZAFremd._Waehrung = False
        Me.txtZAFremd._WaehrungZeichen = True
@@ -1313,6 +1340,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZA._ShortDateNew = False
        Me.txtZA._ShortDateOnly = False
        Me.txtZA._TimeOnly = False
+        Me.txtZA._TimeOnly_Seconds = False
        Me.txtZA._value = ""
        Me.txtZA._Waehrung = False
        Me.txtZA._WaehrungZeichen = True
@@ -1517,9 +1545,9 @@ Partial Class frmNacherfassungNEU
        Me.Panel1.Controls.Add(Me.Label58)
        Me.Panel1.Controls.Add(Me.Panel4)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel1.Location = New System.Drawing.Point(0, 95)
+        Me.Panel1.Location = New System.Drawing.Point(0, 99)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(883, 799)
+        Me.Panel1.Size = New System.Drawing.Size(883, 818)
        Me.Panel1.TabIndex = 1
        '
        'cbxEIDR
@@ -1554,6 +1582,7 @@ Partial Class frmNacherfassungNEU
        Me.txtKdAuftragsnummerEmpfaenger._ShortDateNew = False
        Me.txtKdAuftragsnummerEmpfaenger._ShortDateOnly = False
        Me.txtKdAuftragsnummerEmpfaenger._TimeOnly = False
+        Me.txtKdAuftragsnummerEmpfaenger._TimeOnly_Seconds = False
        Me.txtKdAuftragsnummerEmpfaenger._value = Nothing
        Me.txtKdAuftragsnummerEmpfaenger._Waehrung = False
        Me.txtKdAuftragsnummerEmpfaenger._WaehrungZeichen = True
@@ -1576,6 +1605,7 @@ Partial Class frmNacherfassungNEU
        Me.txtKdAuftragsnummerFrachtfuehrer._ShortDateNew = False
        Me.txtKdAuftragsnummerFrachtfuehrer._ShortDateOnly = False
        Me.txtKdAuftragsnummerFrachtfuehrer._TimeOnly = False
+        Me.txtKdAuftragsnummerFrachtfuehrer._TimeOnly_Seconds = False
        Me.txtKdAuftragsnummerFrachtfuehrer._value = Nothing
        Me.txtKdAuftragsnummerFrachtfuehrer._Waehrung = False
        Me.txtKdAuftragsnummerFrachtfuehrer._WaehrungZeichen = True
@@ -1598,6 +1628,7 @@ Partial Class frmNacherfassungNEU
        Me.txtKdAuftragsnummerAvisierer._ShortDateNew = False
        Me.txtKdAuftragsnummerAvisierer._ShortDateOnly = False
        Me.txtKdAuftragsnummerAvisierer._TimeOnly = False
+        Me.txtKdAuftragsnummerAvisierer._TimeOnly_Seconds = False
        Me.txtKdAuftragsnummerAvisierer._value = Nothing
        Me.txtKdAuftragsnummerAvisierer._Waehrung = False
        Me.txtKdAuftragsnummerAvisierer._WaehrungZeichen = True
@@ -1620,6 +1651,7 @@ Partial Class frmNacherfassungNEU
        Me.txtInkasso._ShortDateNew = False
        Me.txtInkasso._ShortDateOnly = False
        Me.txtInkasso._TimeOnly = False
+        Me.txtInkasso._TimeOnly_Seconds = False
        Me.txtInkasso._value = ""
        Me.txtInkasso._Waehrung = True
        Me.txtInkasso._WaehrungZeichen = True
@@ -1808,6 +1840,7 @@ Partial Class frmNacherfassungNEU
        Me.txtCMRNr._ShortDateNew = False
        Me.txtCMRNr._ShortDateOnly = False
        Me.txtCMRNr._TimeOnly = False
+        Me.txtCMRNr._TimeOnly_Seconds = False
        Me.txtCMRNr._value = ""
        Me.txtCMRNr._Waehrung = False
        Me.txtCMRNr._WaehrungZeichen = True
@@ -1831,6 +1864,7 @@ Partial Class frmNacherfassungNEU
        Me.txtCMRDatum._ShortDateNew = True
        Me.txtCMRDatum._ShortDateOnly = False
        Me.txtCMRDatum._TimeOnly = False
+        Me.txtCMRDatum._TimeOnly_Seconds = False
        Me.txtCMRDatum._value = ""
        Me.txtCMRDatum._Waehrung = False
        Me.txtCMRDatum._WaehrungZeichen = True
@@ -1909,6 +1943,7 @@ Partial Class frmNacherfassungNEU
        Me.txtKdAuftragsnummer._ShortDateNew = False
        Me.txtKdAuftragsnummer._ShortDateOnly = False
        Me.txtKdAuftragsnummer._TimeOnly = False
+        Me.txtKdAuftragsnummer._TimeOnly_Seconds = False
        Me.txtKdAuftragsnummer._value = Nothing
        Me.txtKdAuftragsnummer._Waehrung = False
        Me.txtKdAuftragsnummer._WaehrungZeichen = True
@@ -1950,7 +1985,7 @@ Partial Class frmNacherfassungNEU
        Me.Panel2.Controls.Add(Me.cboSachbearbeiter)
        Me.Panel2.Controls.Add(Me.lblErrSachbearbeiter)
        Me.Panel2.Controls.Add(Me.cboQuickStopMa)
-        Me.Panel2.Location = New System.Drawing.Point(403, 655)
+        Me.Panel2.Location = New System.Drawing.Point(403, 674)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(480, 144)
        Me.Panel2.TabIndex = 92
@@ -2150,6 +2185,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAvisiererKdNr._ShortDateNew = False
        Me.txtAvisiererKdNr._ShortDateOnly = False
        Me.txtAvisiererKdNr._TimeOnly = False
+        Me.txtAvisiererKdNr._TimeOnly_Seconds = False
        Me.txtAvisiererKdNr._value = ""
        Me.txtAvisiererKdNr._Waehrung = False
        Me.txtAvisiererKdNr._WaehrungZeichen = True
@@ -2352,6 +2388,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZucker_Aufschub._ShortDateNew = False
        Me.txtZucker_Aufschub._ShortDateOnly = False
        Me.txtZucker_Aufschub._TimeOnly = False
+        Me.txtZucker_Aufschub._TimeOnly_Seconds = False
        Me.txtZucker_Aufschub._value = Nothing
        Me.txtZucker_Aufschub._Waehrung = False
        Me.txtZucker_Aufschub._WaehrungZeichen = True
@@ -2374,6 +2411,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZucker_Datum._ShortDateNew = False
        Me.txtZucker_Datum._ShortDateOnly = False
        Me.txtZucker_Datum._TimeOnly = False
+        Me.txtZucker_Datum._TimeOnly_Seconds = False
        Me.txtZucker_Datum._value = Nothing
        Me.txtZucker_Datum._Waehrung = False
        Me.txtZucker_Datum._WaehrungZeichen = True
@@ -2416,6 +2454,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZuckerMRN._ShortDateNew = False
        Me.txtZuckerMRN._ShortDateOnly = False
        Me.txtZuckerMRN._TimeOnly = False
+        Me.txtZuckerMRN._TimeOnly_Seconds = False
        Me.txtZuckerMRN._value = Nothing
        Me.txtZuckerMRN._Waehrung = False
        Me.txtZuckerMRN._WaehrungZeichen = True
@@ -2476,6 +2515,7 @@ Partial Class frmNacherfassungNEU
        Me.txtCRN._ShortDateNew = False
        Me.txtCRN._ShortDateOnly = False
        Me.txtCRN._TimeOnly = False
+        Me.txtCRN._TimeOnly_Seconds = False
        Me.txtCRN._value = Nothing
        Me.txtCRN._Waehrung = False
        Me.txtCRN._WaehrungZeichen = True
@@ -2584,6 +2624,7 @@ Partial Class frmNacherfassungNEU
        Me.txtRohmasse._ShortDateNew = False
        Me.txtRohmasse._ShortDateOnly = False
        Me.txtRohmasse._TimeOnly = False
+        Me.txtRohmasse._TimeOnly_Seconds = False
        Me.txtRohmasse._value = ""
        Me.txtRohmasse._Waehrung = False
        Me.txtRohmasse._WaehrungZeichen = True
@@ -2605,6 +2646,7 @@ Partial Class frmNacherfassungNEU
        Me.txtZahlungsaufschub._ShortDateNew = False
        Me.txtZahlungsaufschub._ShortDateOnly = False
        Me.txtZahlungsaufschub._TimeOnly = False
+        Me.txtZahlungsaufschub._TimeOnly_Seconds = False
        Me.txtZahlungsaufschub._value = Nothing
        Me.txtZahlungsaufschub._Waehrung = False
        Me.txtZahlungsaufschub._WaehrungZeichen = True
@@ -2626,6 +2668,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAbsenderKdNr._ShortDateNew = False
        Me.txtAbsenderKdNr._ShortDateOnly = False
        Me.txtAbsenderKdNr._TimeOnly = False
+        Me.txtAbsenderKdNr._TimeOnly_Seconds = False
        Me.txtAbsenderKdNr._value = Nothing
        Me.txtAbsenderKdNr._Waehrung = False
        Me.txtAbsenderKdNr._WaehrungZeichen = True
@@ -2649,6 +2692,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAnzahl._ShortDateNew = False
        Me.txtAnzahl._ShortDateOnly = False
        Me.txtAnzahl._TimeOnly = False
+        Me.txtAnzahl._TimeOnly_Seconds = False
        Me.txtAnzahl._value = Nothing
        Me.txtAnzahl._Waehrung = False
        Me.txtAnzahl._WaehrungZeichen = True
@@ -2670,6 +2714,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBarzahlungsbetrag._ShortDateNew = False
        Me.txtBarzahlungsbetrag._ShortDateOnly = False
        Me.txtBarzahlungsbetrag._TimeOnly = False
+        Me.txtBarzahlungsbetrag._TimeOnly_Seconds = False
        Me.txtBarzahlungsbetrag._value = ""
        Me.txtBarzahlungsbetrag._Waehrung = True
        Me.txtBarzahlungsbetrag._WaehrungZeichen = True
@@ -2690,6 +2735,7 @@ Partial Class frmNacherfassungNEU
        Me.txtFraechterKdNr._ShortDateNew = False
        Me.txtFraechterKdNr._ShortDateOnly = False
        Me.txtFraechterKdNr._TimeOnly = False
+        Me.txtFraechterKdNr._TimeOnly_Seconds = False
        Me.txtFraechterKdNr._value = Nothing
        Me.txtFraechterKdNr._Waehrung = False
        Me.txtFraechterKdNr._WaehrungZeichen = True
@@ -2713,6 +2759,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAuftraggeberKdNr._ShortDateNew = False
        Me.txtAuftraggeberKdNr._ShortDateOnly = False
        Me.txtAuftraggeberKdNr._TimeOnly = False
+        Me.txtAuftraggeberKdNr._TimeOnly_Seconds = False
        Me.txtAuftraggeberKdNr._value = Nothing
        Me.txtAuftraggeberKdNr._Waehrung = False
        Me.txtAuftraggeberKdNr._WaehrungZeichen = True
@@ -2736,6 +2783,7 @@ Partial Class frmNacherfassungNEU
        Me.txtPackstuecke._ShortDateNew = False
        Me.txtPackstuecke._ShortDateOnly = False
        Me.txtPackstuecke._TimeOnly = False
+        Me.txtPackstuecke._TimeOnly_Seconds = False
        Me.txtPackstuecke._value = ""
        Me.txtPackstuecke._Waehrung = False
        Me.txtPackstuecke._WaehrungZeichen = True
@@ -2760,6 +2808,7 @@ Partial Class frmNacherfassungNEU
        Me.txtUmrechnungskurs._ShortDateNew = False
        Me.txtUmrechnungskurs._ShortDateOnly = False
        Me.txtUmrechnungskurs._TimeOnly = False
+        Me.txtUmrechnungskurs._TimeOnly_Seconds = False
        Me.txtUmrechnungskurs._value = Nothing
        Me.txtUmrechnungskurs._Waehrung = False
        Me.txtUmrechnungskurs._WaehrungZeichen = True
@@ -2781,6 +2830,7 @@ Partial Class frmNacherfassungNEU
        Me.txtRechnungsbetrag._ShortDateNew = False
        Me.txtRechnungsbetrag._ShortDateOnly = False
        Me.txtRechnungsbetrag._TimeOnly = False
+        Me.txtRechnungsbetrag._TimeOnly_Seconds = False
        Me.txtRechnungsbetrag._value = ""
        Me.txtRechnungsbetrag._Waehrung = True
        Me.txtRechnungsbetrag._WaehrungZeichen = True
@@ -2802,6 +2852,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBemerkung._ShortDateNew = False
        Me.txtBemerkung._ShortDateOnly = False
        Me.txtBemerkung._TimeOnly = False
+        Me.txtBemerkung._TimeOnly_Seconds = False
        Me.txtBemerkung._value = Nothing
        Me.txtBemerkung._Waehrung = False
        Me.txtBemerkung._WaehrungZeichen = True
@@ -2824,6 +2875,7 @@ Partial Class frmNacherfassungNEU
        Me.txtEmpfaengerKdNr._ShortDateNew = False
        Me.txtEmpfaengerKdNr._ShortDateOnly = False
        Me.txtEmpfaengerKdNr._TimeOnly = False
+        Me.txtEmpfaengerKdNr._TimeOnly_Seconds = False
        Me.txtEmpfaengerKdNr._value = Nothing
        Me.txtEmpfaengerKdNr._Waehrung = False
        Me.txtEmpfaengerKdNr._WaehrungZeichen = True
@@ -2847,6 +2899,7 @@ Partial Class frmNacherfassungNEU
        Me.txtVermerk._ShortDateNew = False
        Me.txtVermerk._ShortDateOnly = False
        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._TimeOnly_Seconds = False
        Me.txtVermerk._value = Nothing
        Me.txtVermerk._Waehrung = False
        Me.txtVermerk._WaehrungZeichen = True
@@ -2869,6 +2922,7 @@ Partial Class frmNacherfassungNEU
        Me.txtErfassungsnummer._ShortDateNew = False
        Me.txtErfassungsnummer._ShortDateOnly = False
        Me.txtErfassungsnummer._TimeOnly = False
+        Me.txtErfassungsnummer._TimeOnly_Seconds = False
        Me.txtErfassungsnummer._value = Nothing
        Me.txtErfassungsnummer._Waehrung = False
        Me.txtErfassungsnummer._WaehrungZeichen = True
@@ -2891,6 +2945,7 @@ Partial Class frmNacherfassungNEU
        Me.txtEndEmpfKdNr._ShortDateNew = False
        Me.txtEndEmpfKdNr._ShortDateOnly = False
        Me.txtEndEmpfKdNr._TimeOnly = False
+        Me.txtEndEmpfKdNr._TimeOnly_Seconds = False
        Me.txtEndEmpfKdNr._value = Nothing
        Me.txtEndEmpfKdNr._Waehrung = False
        Me.txtEndEmpfKdNr._WaehrungZeichen = True
@@ -2914,6 +2969,7 @@ Partial Class frmNacherfassungNEU
        Me.txtBelegNummerZAT1T2._ShortDateNew = False
        Me.txtBelegNummerZAT1T2._ShortDateOnly = False
        Me.txtBelegNummerZAT1T2._TimeOnly = False
+        Me.txtBelegNummerZAT1T2._TimeOnly_Seconds = False
        Me.txtBelegNummerZAT1T2._value = Nothing
        Me.txtBelegNummerZAT1T2._Waehrung = False
        Me.txtBelegNummerZAT1T2._WaehrungZeichen = True
@@ -3011,6 +3067,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAtlasBezNrEZA._ShortDateNew = False
        Me.txtAtlasBezNrEZA._ShortDateOnly = False
        Me.txtAtlasBezNrEZA._TimeOnly = False
+        Me.txtAtlasBezNrEZA._TimeOnly_Seconds = False
        Me.txtAtlasBezNrEZA._value = Nothing
        Me.txtAtlasBezNrEZA._Waehrung = False
        Me.txtAtlasBezNrEZA._WaehrungZeichen = True
@@ -3033,6 +3090,7 @@ Partial Class frmNacherfassungNEU
        Me.txtAtlasBezNrNCTS._ShortDateNew = False
        Me.txtAtlasBezNrNCTS._ShortDateOnly = False
        Me.txtAtlasBezNrNCTS._TimeOnly = False
+        Me.txtAtlasBezNrNCTS._TimeOnly_Seconds = False
        Me.txtAtlasBezNrNCTS._value = Nothing
        Me.txtAtlasBezNrNCTS._Waehrung = False
        Me.txtAtlasBezNrNCTS._WaehrungZeichen = True
@@ -3135,6 +3193,7 @@ Partial Class frmNacherfassungNEU
        Me.txtHandlingZuKassieren._ShortDateNew = False
        Me.txtHandlingZuKassieren._ShortDateOnly = False
        Me.txtHandlingZuKassieren._TimeOnly = False
+        Me.txtHandlingZuKassieren._TimeOnly_Seconds = False
        Me.txtHandlingZuKassieren._value = ""
        Me.txtHandlingZuKassieren._Waehrung = True
        Me.txtHandlingZuKassieren._WaehrungZeichen = True
@@ -3209,6 +3268,7 @@ Partial Class frmNacherfassungNEU
        Me.MyTextBoxLKWKz._ShortDateNew = False
        Me.MyTextBoxLKWKz._ShortDateOnly = False
        Me.MyTextBoxLKWKz._TimeOnly = False
+        Me.MyTextBoxLKWKz._TimeOnly_Seconds = False
        Me.MyTextBoxLKWKz._value = Nothing
        Me.MyTextBoxLKWKz._Waehrung = False
        Me.MyTextBoxLKWKz._WaehrungZeichen = True
@@ -3231,6 +3291,7 @@ Partial Class frmNacherfassungNEU
        Me.txtLKWId._ShortDateNew = False
        Me.txtLKWId._ShortDateOnly = False
        Me.txtLKWId._TimeOnly = False
+        Me.txtLKWId._TimeOnly_Seconds = False
        Me.txtLKWId._value = ""
        Me.txtLKWId._Waehrung = False
        Me.txtLKWId._WaehrungZeichen = True
@@ -3265,9 +3326,10 @@ Partial Class frmNacherfassungNEU
        '
        'ContextMenuStrip2
        '
+        Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KopierenZwischenablageToolStripMenuItem})
        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(218, 48)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(218, 26)
        '
        'KopierenZwischenablageToolStripMenuItem
        '
@@ -3280,7 +3342,7 @@ Partial Class frmNacherfassungNEU
        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(883, 894)
+        Me.ClientSize = New System.Drawing.Size(883, 917)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.pnl)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -3515,4 +3577,5 @@ Partial Class frmNacherfassungNEU
    Friend WithEvents cbxEIDR As CheckBox
    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
    Friend WithEvents KopierenZwischenablageToolStripMenuItem As ToolStripMenuItem
+    Public WithEvents Button5 As Button
 End Class
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
@@ -1,4 +1,5 @@
-'Imports Gemeinsames
+Imports GrapeCity.ActiveReports
+Imports Gemeinsames

 Public Class frmNacherfassungNEU

@@ -65,6 +66,7 @@ Public Class frmNacherfassungNEU
                    Case "IMEX" : sbWhere = " AND Mandant <> 'UNAT'  AND Niederlassung <> 'SUA'  "'sbWhere = " AND Mandant = 'IMEX' "
                    Case "UNISPED" : sbWhere = " AND Mandant = 'UNAT' "
                    Case "FRONTOFFICE" : sbWhere = " AND Niederlassung <> 'SUA' "
+                    Case "VERIMEX" : sbWhere = " AND Mandant <> 'UNAT'  "
                    Case Else
                        'If AVISO IsNot Nothing Then
                        '    Select Case AVISO.Grenzstelle
@@ -578,6 +580,7 @@ Public Class frmNacherfassungNEU
            Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} : where = " AND mit_firma IN ('UNISPED','BEIDE') "
            Case "FRONTOFFICE" : where = " AND mit_firma NOT IN ('ATILLA') "
            Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
+            Case "VERIMEX" : cboFiliale._allowedValuesFreiText = {"6001"}
            Case Else : where = " AND mit_firma NOT IN ('IMEX','UNISPED','AMBAR','FRONTOFFICE') "
        End Select

@@ -771,6 +774,9 @@ Public Class frmNacherfassungNEU
            Me.Close()
        End If

+        'Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING, SENDUNG.VORKOSTEN)
+
+
    End Sub

    Function validValues() As Boolean
@@ -832,7 +838,7 @@ Public Class frmNacherfassungNEU
                Return False
            End If
        End If
-      
+

        SPEDITIONSBUCH.UNTERPOS.Clear()
        If SPEDITIONSBUCH.Abfertigungsart = 23 Then
@@ -952,7 +958,7 @@ Public Class frmNacherfassungNEU
        SPEDITIONSBUCH.KdAuftragsNr = txtKdAuftragsnummer.Text
        SPEDITIONSBUCH.KdAuftragsNrAvisierer = txtKdAuftragsnummerAvisierer.Text
        SPEDITIONSBUCH.KdAuftragsNrEmpfaenger = txtKdAuftragsnummerEmpfaenger.Text
-        SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer = txtKdAuftragsnummerFrachtfuehrer.Text 
+        SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer = txtKdAuftragsnummerFrachtfuehrer.Text
        SPEDITIONSBUCH.AuftraggeberBetragKassiert = txtInkasso._value


@@ -989,6 +995,9 @@ Public Class frmNacherfassungNEU


    Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged, txtAnzahl.TextChanged
+
+        Button5.Visible = (cboAbfertigungsart._value = "52")
+
        If sender Is cboAbfertigungsart Then
            If Not IsNumeric(txtAnzahl.Text) OrElse txtAnzahl.Text = "0" Then txtAnzahl.Text = "1"
            If cboAbfertigungsart._value = "23" Then
@@ -1189,7 +1198,7 @@ Public Class frmNacherfassungNEU
        txtFraechter._UseFIRMA = FirmaTmp
        txtEndEmpf._UseFIRMA = FirmaTmp

-        If cboFiliale._value = 7001 Then
+        If cboFiliale._value.ToString = "7001" Then
            cbxEIDR.Visible = True
        Else
            cbxEIDR.Visible = False
@@ -1574,4 +1583,214 @@ Public Class frmNacherfassungNEU
            End If
        End If
    End Sub
+
+    Private Sub Button5_Click_2(sender As Object, e As EventArgs) Handles Button5.Click
+        cSpedBuch_Aktendeckel.PrintSimpleSpedbuch("PDF", SPEDITIONSBUCH)
+    End Sub
+End Class
+
+Class cSpedBuch_Aktendeckel
+    Shared Sub PrintSimpleSpedbuch(art As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Optional Printername As String = "", Optional TYP As String = "AKT", Optional SendungsAnzahlAviso As Integer = -1)
+
+
+        'TYP --> LAUFZETTEL
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+        If IsNumeric(SPEDBUCH.AbfertigungsNr) AndAlso CInt(SPEDBUCH.AbfertigungsNr) > 100000 Then
+        Else
+            MsgBox("Abfertigungsnummer angeben!")
+            Exit Sub
+        End If
+
+        If SPEDBUCH.Abfertigungsart <= 0 Then
+            MsgBox("Abfertigungsart angeben!")
+            Exit Sub
+        End If
+        Dim VALUES As New Gemeinsames.rptSendungenValues
+
+        Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SPEDBUCH.FilialenNr & "-" & SPEDBUCH.AbfertigungsNr & "-" & SPEDBUCH.UnterNr & "/", 1, True, 25)
+        barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
+        Dim barcodeLKW As Image = Nothing
+
+        If If(SPEDBUCH.AvisoID, "") <> "" Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_BarcodeLKW") Then
+                barcodeLKW = Code128Rendering.MakeBarcodeImage("/" & SPEDBUCH.AvisoID & "/", 1, True, 20)
+            End If
+        End If
+
+        Dim abfertArt = ""
+        If SPEDBUCH.Abfertigungsart > 0 Then abfertArt = "" & SPEDBUCH.Abfertigungsart & " - " & SQL.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE  [Abfertigungsart]=" & SPEDBUCH.Abfertigungsart, "FMZOLL")
+
+        If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
+        If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
+
+        VALUES.ABF_ART = SPEDBUCH.Abfertigungsart
+        VALUES.Abfertigungsnummer = SPEDBUCH.AbfertigungsNr
+        VALUES.FilialeNr = SPEDBUCH.FilialenNr
+
+        VALUES.Abfertigungsart = abfertArt
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_Grenzstelle") Then
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
+                VALUES.Grenze = ""
+            Else
+                VALUES.Grenze = SPEDBUCH.Grenzstelle
+            End If
+
+        End If
+
+        'VALUES.Avisierer_KdNr = IIf(AVISO.Auftraggeber_KdNr > 0, AVISO.Auftraggeber_KdNr, "")
+        'VALUES.Avisierer_Firma = AVISO.Auftraggeber
+        VALUES.Avisierer_KdNr = IIf(SPEDBUCH.AvisiererKundenNr > 0, SPEDBUCH.AvisiererKundenNr, "")
+        VALUES.Avisierer_Firma = SPEDBUCH.Avisierer
+
+        VALUES.Auftraggeber_KdNr = IIf(SPEDBUCH.VermittlerKundenNr > 0, SPEDBUCH.VermittlerKundenNr, "")
+        VALUES.Auftraggeber_Firma = SPEDBUCH.Vermittler
+        VALUES.KdAuftrNr = If(SPEDBUCH.KdAuftragsNr, "")
+
+
+
+        VALUES.Empfaenger_KdNr = IIf(SPEDBUCH.EmpfängerKundenNr > 0, SPEDBUCH.EmpfängerKundenNr, "")
+        VALUES.Empfaenger_Firma = SPEDBUCH.Empfänger
+
+
+        VALUES.Absender_KdNr = IIf(SPEDBUCH.AbsenderKundenNr > 0, SPEDBUCH.AbsenderKundenNr, "")
+        VALUES.Absender_Firma = SPEDBUCH.Absender
+
+        'VALUES.Frachtfuehrer_KdNr = IIf(AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, "")
+        ' VALUES.Frachtfuehrer_Firma = AVISO.Frächter
+        VALUES.Frachtfuehrer_KdNr = IIf(SPEDBUCH.FrachtführerKundenNr > 0, SPEDBUCH.FrachtführerKundenNr, "")
+        VALUES.Frachtfuehrer_Firma = SPEDBUCH.Frachtführer
+
+        VALUES.LKWKennzeichen = SPEDBUCH.LKW_Kennzeichen
+        If If(SPEDBUCH.Packstücke, "").Length > 100 Then
+            VALUES.Warenbezeichnung = SPEDBUCH.Packstücke.Substring(0, 100)
+        Else
+            VALUES.Warenbezeichnung = If(SPEDBUCH.Packstücke, "")
+        End If
+
+        ' VALUES.Colli = SPEDBUCH.tblSnd_Colli
+        If SPEDBUCH.Rohmasse IsNot Nothing AndAlso SPEDBUCH.Rohmasse.ToString <> "" Then
+            VALUES.Gewicht = If(SPEDBUCH.Rohmasse Is Nothing, "", SPEDBUCH.Rohmasse & " kg")
+        End If
+
+        '  VALUES.Ankunft = IIf(AVISO.Ankunft > VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum, AVISO.Ankunft.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Ankunft.ToString("HH:mm"), "")
+        '  VALUES.Abfahrt = IIf(AVISO.Freigabe > VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum, AVISO.Freigabe.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Freigabe.ToString("HH:mm"), "")
+        '  VALUES.Anmerkungen = (SPEDBUCH.tblSnd_Anmerkung & vbNewLine & vbNewLine & If(SPEDBUCH.tblSnd_AnmerkungDispoliste, "")).ToString.Trim
+
+
+        VALUES.Tarifposanzahl = SPEDBUCH.Abfertigungsanzahl
+
+
+        VALUES.NCTS_VZAdr = If(SPEDBUCH.NCTS_Verzollungsadresse, "")
+        VALUES.NCTS_VZAdr &= vbNewLine
+        If If(SPEDBUCH.Bestimmungszollstelle, "") <> "" Then VALUES.NCTS_VZAdr &= "Best.Zollst.:" & If(SPEDBUCH.Bestimmungszollstelle, "")
+
+
+        VALUES.NCTS_VZAdr = VALUES.NCTS_VZAdr.Trim
+
+        VALUES.FISKAL_ENDEMPF = If(SPEDBUCH.Endempfänger, "")
+
+        If SPEDBUCH.EmpfängerKundenNr > 0 Then
+            Dim txt = SQL.getValueTxtBySql("SELECT isnull([DokumenteLKWFreigabe],'') as DokumenteLKWFreigabe FROM [Kunden] WHERE  [KundenNr]=" & SPEDBUCH.EmpfängerKundenNr, "FMZOLL")
+            If txt <> "" Then
+                VALUES.DokZuSend_Ueberschrift = "ACHTUNG: Zu sendene Dokumente:"
+                VALUES.DokZuSend_Text = txt
+            End If
+        End If
+
+
+        VALUES.VG_MA = SQL.DLookup("[Name]", "Personal", "ID='" & SPEDBUCH.Personalnummer & "'", "FMZOLL", "")
+        VALUES.QS_MA = SQL.DLookup("mit_vname + ' ' + mit_nname", "tblMitarbeiter", "mit_id='" & SPEDBUCH.PersonalnummerQS & "'", "ADMIN", "")
+
+
+
+        VALUES.ABTEILUNG = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
+
+
+
+        Try
+            Dim pc As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess()
+            pc.MaxWorkingSet = pc.MinWorkingSet
+
+            Dim imgpath = ""
+            Dim resPath As String = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\")
+
+            If SPEDBUCH.FilialenNr = "4839" Then
+                imgpath = resPath & "LEX.png"
+            ElseIf SPEDBUCH.FilialenNr = "5501" Then
+                imgpath = resPath & "IMEX.png"
+            ElseIf SPEDBUCH.FilialenNr = "5601" Then
+                imgpath = resPath & "UNISPED.png"
+            ElseIf SPEDBUCH.FilialenNr = "5701" Then
+                imgpath = resPath & "AMB.png"
+            ElseIf SPEDBUCH.FilialenNr = "6001" Then
+                imgpath = resPath & "VERIMEX.png"
+            ElseIf SPEDBUCH.FilialenNr = "5801" Then
+                imgpath = resPath & "FO.png"
+            Else
+                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
+                    Case "SUB"
+                        Select Case VALUES.ABTEILUNG
+                            Case "QS" : imgpath = resPath & "QS.png"
+                            Case Else : imgpath = resPath & "SUB.png"
+                        End Select
+                    Case "WAI" : imgpath = resPath & "WAI.png"
+                    Case "NKD" : imgpath = resPath & "NKD.png"
+                    Case "SBG" : imgpath = resPath & "SBG.png"
+                    Case Else : imgpath = resPath & "SUB.png"
+
+
+                End Select
+            End If
+
+            Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+            If Not ZOLLANMELDUNG.getDataByBezugsnummer(SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr, SPEDBUCH.Abfertigungsart.ToString, (If(SPEDBUCH.AtlasBezNrEZA, "") & If(SPEDBUCH.AtlasBezNrNCTS, "")).Trim) Then
+                ZOLLANMELDUNG = Nothing
+            End If
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+                SPEDBUCH.LOAD_VORKOSTEN()
+            End If
+
+
+            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, Nothing, Nothing)
+            rpt.Document.CacheToDisk = False
+
+            'rpt.Document.CacheToDisk = True
+            '  rpt.Document.CacheToDiskLocation = "C:\\Temp"
+
+            If art = "" Or art = "PDF" Then ' Wird angezeigt, nicht gedruckt
+                Dim printForm As New SDL.frmPrintLayout
+                printForm.Viewer.LoadDocument(rpt)
+                printForm.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+                printForm.Show()
+                '  printForm.BringToFront()
+            ElseIf art = "PRINT" Or art = "DIALOG" Then
+
+                rpt.Run(False)
+                ' If Printername = "" Then rpt.Dispose() : Exit Sub
+                rpt.Document.Printer.PrinterName = Printername
+                rpt.Document.Print((art = "DIALOG" Or Printername = ""), False)
+                rpt.Dispose()
+                'rpt.Document.Dispose()
+                '  rpt.Dispose()
+                ' rpt = Nothing
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        ' If art = "PRINT" Then
+        'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
+        ' ElseIf art = "DIALOG" Then
+        ' fm.fillPDF(name, list, listTowrite, , True, , barcode, barcodeLKW)
+        ' Else
+        ' fm.fillPDF(name, list, listTowrite, , , , barcode, barcodeLKW)
+        ' End If
+        '
+
+    End Sub
+
 End Class
--- a/SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_Gelangensbestaetigung.Designer.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/rptSpeditionsbericht_Gelangensbestaetigung.Designer.vb
@@ -83,6 +83,7 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung
        Me.Line6 = New GrapeCity.ActiveReports.SectionReportModel.Line()
        Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
        Me.Label22 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
        CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -131,6 +132,7 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung
        CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label22, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'PageHeader
@@ -681,8 +683,8 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung
        '
        'ReportHeader1
        '
-        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.lblSachbearbeiter, Me.Label17, Me.lblNr})
-        Me.ReportHeader1.Height = 0.8728347!
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.lblSachbearbeiter, Me.Label17, Me.lblNr, Me.Picture1})
+        Me.ReportHeader1.Height = 0.9875834!
        Me.ReportHeader1.Name = "ReportHeader1"
        '
        'picVERAG
@@ -903,6 +905,15 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung
        Me.Label22.Top = 0.08582678!
        Me.Label22.Width = 6.112993!
        '
+        'Picture1
+        '
+        Me.Picture1.Height = 0.258!
+        Me.Picture1.ImageBytes = Nothing
+        Me.Picture1.Left = 0.01!
+        Me.Picture1.Name = "Picture1"
+        Me.Picture1.Top = 0.645!
+        Me.Picture1.Width = 4.0!
+        '
        'rptSpeditionsbericht_Gelangensbestaetigung
        '
        Me.PageSettings.Margins.Bottom = 0.3937008!
@@ -971,6 +982,7 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung
        CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Label22, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
@@ -1039,4 +1051,5 @@ Partial Public Class rptSpeditionsbericht_Gelangensbestaetigung
    Public WithEvents lblEndEmpfKdNr As GrapeCity.ActiveReports.SectionReportModel.Label
    Public WithEvents Label17 As GrapeCity.ActiveReports.SectionReportModel.Label
    Public WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
 End Class
--- a/SDL/Speditionsbuch/frmSpeditionsbuchSuche.vb
+++ b/SDL/Speditionsbuch/frmSpeditionsbuchSuche.vb
@@ -5,8 +5,18 @@ Public Class frmSpeditionsbuchSuche
    Dim SQL As New SQL

    Private Sub frmSpeditionsbuchSuche_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
+        'Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
+        Me.Height = Screen.FromPoint(Cursor.Position).WorkingArea.Size.Height ' Anderer Versuch??
        Me.Top = 0

+        'For i = 0 To Screen.AllScreens.Length - 1
+        '    Dim r As Rectangle = Screen.AllScreens(i).Bounds
+        '    If r.Contains(Cursor.Position) Then
+
+
+
+        '    End If
+        'Next
+
    End Sub
 End Class
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
@@ -57,6 +57,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.Button22 = New System.Windows.Forms.Button()
        Me.Button21 = New System.Windows.Forms.Button()
        Me.btnSpedBuchEinnahmen = New System.Windows.Forms.Button()
        Me.lblKdAusFortschritt = New System.Windows.Forms.Label()
@@ -185,7 +186,7 @@ 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.Button22 = New System.Windows.Forms.Button()
+        Me.Button23 = New System.Windows.Forms.Button()
        Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
        Me.pnlRechts.SuspendLayout()
        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -243,6 +244,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAvisoId._ShortDateNew = False
        Me.txtAvisoId._ShortDateOnly = False
        Me.txtAvisoId._TimeOnly = False
+        Me.txtAvisoId._TimeOnly_Seconds = False
        Me.txtAvisoId._value = Nothing
        Me.txtAvisoId._Waehrung = False
        Me.txtAvisoId._WaehrungZeichen = True
@@ -312,6 +314,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAuftraggeberKdnr._ShortDateNew = False
        Me.txtAuftraggeberKdnr._ShortDateOnly = False
        Me.txtAuftraggeberKdnr._TimeOnly = False
+        Me.txtAuftraggeberKdnr._TimeOnly_Seconds = False
        Me.txtAuftraggeberKdnr._value = Nothing
        Me.txtAuftraggeberKdnr._Waehrung = False
        Me.txtAuftraggeberKdnr._WaehrungZeichen = True
@@ -336,6 +339,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtCRN._ShortDateNew = False
        Me.txtCRN._ShortDateOnly = False
        Me.txtCRN._TimeOnly = False
+        Me.txtCRN._TimeOnly_Seconds = False
        Me.txtCRN._value = Nothing
        Me.txtCRN._Waehrung = False
        Me.txtCRN._WaehrungZeichen = True
@@ -358,6 +362,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtBelegNr._ShortDateNew = False
        Me.txtBelegNr._ShortDateOnly = False
        Me.txtBelegNr._TimeOnly = False
+        Me.txtBelegNr._TimeOnly_Seconds = False
        Me.txtBelegNr._value = Nothing
        Me.txtBelegNr._Waehrung = False
        Me.txtBelegNr._WaehrungZeichen = True
@@ -413,6 +418,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtPackstücke._ShortDateNew = False
        Me.txtPackstücke._ShortDateOnly = False
        Me.txtPackstücke._TimeOnly = False
+        Me.txtPackstücke._TimeOnly_Seconds = False
        Me.txtPackstücke._value = Nothing
        Me.txtPackstücke._Waehrung = False
        Me.txtPackstücke._WaehrungZeichen = True
@@ -503,6 +509,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAvisiererKdNr._ShortDateNew = False
        Me.txtAvisiererKdNr._ShortDateOnly = False
        Me.txtAvisiererKdNr._TimeOnly = False
+        Me.txtAvisiererKdNr._TimeOnly_Seconds = False
        Me.txtAvisiererKdNr._value = Nothing
        Me.txtAvisiererKdNr._Waehrung = False
        Me.txtAvisiererKdNr._WaehrungZeichen = True
@@ -606,6 +613,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtFiskalEndempfaenger._ShortDateNew = False
        Me.txtFiskalEndempfaenger._ShortDateOnly = False
        Me.txtFiskalEndempfaenger._TimeOnly = False
+        Me.txtFiskalEndempfaenger._TimeOnly_Seconds = False
        Me.txtFiskalEndempfaenger._value = Nothing
        Me.txtFiskalEndempfaenger._Waehrung = False
        Me.txtFiskalEndempfaenger._WaehrungZeichen = True
@@ -687,6 +695,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        '
        'pnlBerichte
        '
+        Me.pnlBerichte.Controls.Add(Me.Button23)
        Me.pnlBerichte.Controls.Add(Me.Button22)
        Me.pnlBerichte.Controls.Add(Me.Button21)
        Me.pnlBerichte.Controls.Add(Me.btnSpedBuchEinnahmen)
@@ -718,10 +727,23 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.pnlBerichte.Dock = System.Windows.Forms.DockStyle.Left
        Me.pnlBerichte.Location = New System.Drawing.Point(197, 0)
        Me.pnlBerichte.Name = "pnlBerichte"
-        Me.pnlBerichte.Size = New System.Drawing.Size(847, 161)
+        Me.pnlBerichte.Size = New System.Drawing.Size(886, 161)
        Me.pnlBerichte.TabIndex = 6
        Me.pnlBerichte.Visible = False
        '
+        'Button22
+        '
+        Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button22.Location = New System.Drawing.Point(308, 129)
+        Me.Button22.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button22.Name = "Button22"
+        Me.Button22.Size = New System.Drawing.Size(62, 25)
+        Me.Button22.TabIndex = 92
+        Me.Button22.Text = "Woche"
+        Me.Button22.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button22.UseVisualStyleBackColor = True
+        '
        'Button21
        '
        Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -754,7 +776,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        'lblKdAusFortschritt
        '
        Me.lblKdAusFortschritt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblKdAusFortschritt.Location = New System.Drawing.Point(767, 135)
+        Me.lblKdAusFortschritt.Location = New System.Drawing.Point(806, 135)
        Me.lblKdAusFortschritt.Name = "lblKdAusFortschritt"
        Me.lblKdAusFortschritt.Size = New System.Drawing.Size(77, 14)
        Me.lblKdAusFortschritt.TabIndex = 43
@@ -763,6 +785,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        'MenuStrip1
        '
        Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None
+        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
        Me.MenuStrip1.Location = New System.Drawing.Point(601, 128)
        Me.MenuStrip1.Name = "MenuStrip1"
@@ -784,13 +807,13 @@ Partial Class usrCntlSpeditionsBuchSuche
        '
        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
-        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(282, 24)
+        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(290, 30)
        Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)"
        '
        'ZFThyrnauZeitraumAuswählenToolStripMenuItem
        '
        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem"
-        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(282, 24)
+        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(290, 30)
        Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
        '
        'cboHandlingssatz
@@ -835,7 +858,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button19.Image = Global.SDL.My.Resources.Resources.statistik_small
        Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button19.Location = New System.Drawing.Point(764, 54)
+        Me.Button19.Location = New System.Drawing.Point(788, 54)
        Me.Button19.Margin = New System.Windows.Forms.Padding(0)
        Me.Button19.Name = "Button19"
        Me.Button19.Size = New System.Drawing.Size(83, 28)
@@ -852,7 +875,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.Button18.Location = New System.Drawing.Point(606, 54)
        Me.Button18.Margin = New System.Windows.Forms.Padding(0)
        Me.Button18.Name = "Button18"
-        Me.Button18.Size = New System.Drawing.Size(159, 28)
+        Me.Button18.Size = New System.Drawing.Size(183, 28)
        Me.Button18.TabIndex = 56
        Me.Button18.Text = "Gelangensbestätigung"
        Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -908,6 +931,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtUeberschr._ShortDateNew = False
        Me.txtUeberschr._ShortDateOnly = False
        Me.txtUeberschr._TimeOnly = False
+        Me.txtUeberschr._TimeOnly_Seconds = False
        Me.txtUeberschr._value = ""
        Me.txtUeberschr._Waehrung = False
        Me.txtUeberschr._WaehrungZeichen = True
@@ -982,6 +1006,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtMax._ShortDateNew = False
        Me.txtMax._ShortDateOnly = False
        Me.txtMax._TimeOnly = False
+        Me.txtMax._TimeOnly_Seconds = False
        Me.txtMax._value = ""
        Me.txtMax._Waehrung = False
        Me.txtMax._WaehrungZeichen = True
@@ -1294,6 +1319,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtMaxSrch._ShortDateNew = False
        Me.txtMaxSrch._ShortDateOnly = False
        Me.txtMaxSrch._TimeOnly = False
+        Me.txtMaxSrch._TimeOnly_Seconds = False
        Me.txtMaxSrch._value = ""
        Me.txtMaxSrch._Waehrung = False
        Me.txtMaxSrch._WaehrungZeichen = True
@@ -1508,6 +1534,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAbfertDat._ShortDateNew = True
        Me.txtAbfertDat._ShortDateOnly = False
        Me.txtAbfertDat._TimeOnly = False
+        Me.txtAbfertDat._TimeOnly_Seconds = False
        Me.txtAbfertDat._value = ""
        Me.txtAbfertDat._Waehrung = False
        Me.txtAbfertDat._WaehrungZeichen = True
@@ -1531,6 +1558,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAbfertDatBis._ShortDateNew = True
        Me.txtAbfertDatBis._ShortDateOnly = False
        Me.txtAbfertDatBis._TimeOnly = False
+        Me.txtAbfertDatBis._TimeOnly_Seconds = False
        Me.txtAbfertDatBis._value = ""
        Me.txtAbfertDatBis._Waehrung = False
        Me.txtAbfertDatBis._WaehrungZeichen = True
@@ -1582,6 +1610,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtUnterNr._ShortDateNew = False
        Me.txtUnterNr._ShortDateOnly = False
        Me.txtUnterNr._TimeOnly = False
+        Me.txtUnterNr._TimeOnly_Seconds = False
        Me.txtUnterNr._value = Nothing
        Me.txtUnterNr._Waehrung = False
        Me.txtUnterNr._WaehrungZeichen = True
@@ -1604,6 +1633,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAbfertigungsnummerBis._ShortDateNew = False
        Me.txtAbfertigungsnummerBis._ShortDateOnly = False
        Me.txtAbfertigungsnummerBis._TimeOnly = False
+        Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False
        Me.txtAbfertigungsnummerBis._value = Nothing
        Me.txtAbfertigungsnummerBis._Waehrung = False
        Me.txtAbfertigungsnummerBis._WaehrungZeichen = True
@@ -1627,6 +1657,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAbfertigungsnummer._ShortDateNew = False
        Me.txtAbfertigungsnummer._ShortDateOnly = False
        Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
        Me.txtAbfertigungsnummer._value = Nothing
        Me.txtAbfertigungsnummer._Waehrung = False
        Me.txtAbfertigungsnummer._WaehrungZeichen = True
@@ -2112,6 +2143,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtKdAuftragsNr._ShortDateNew = False
        Me.txtKdAuftragsNr._ShortDateOnly = False
        Me.txtKdAuftragsNr._TimeOnly = False
+        Me.txtKdAuftragsNr._TimeOnly_Seconds = False
        Me.txtKdAuftragsNr._value = Nothing
        Me.txtKdAuftragsNr._Waehrung = False
        Me.txtKdAuftragsNr._WaehrungZeichen = True
@@ -2171,6 +2203,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.MyTextBox14._ShortDateNew = False
        Me.MyTextBox14._ShortDateOnly = False
        Me.MyTextBox14._TimeOnly = False
+        Me.MyTextBox14._TimeOnly_Seconds = False
        Me.MyTextBox14._value = Nothing
        Me.MyTextBox14._Waehrung = False
        Me.MyTextBox14._WaehrungZeichen = True
@@ -2252,6 +2285,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtAbsenderKdnr._ShortDateNew = False
        Me.txtAbsenderKdnr._ShortDateOnly = False
        Me.txtAbsenderKdnr._TimeOnly = False
+        Me.txtAbsenderKdnr._TimeOnly_Seconds = False
        Me.txtAbsenderKdnr._value = Nothing
        Me.txtAbsenderKdnr._Waehrung = False
        Me.txtAbsenderKdnr._WaehrungZeichen = True
@@ -2317,6 +2351,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtEmpfaengerKdnr._ShortDateNew = False
        Me.txtEmpfaengerKdnr._ShortDateOnly = False
        Me.txtEmpfaengerKdnr._TimeOnly = False
+        Me.txtEmpfaengerKdnr._TimeOnly_Seconds = False
        Me.txtEmpfaengerKdnr._value = Nothing
        Me.txtEmpfaengerKdnr._Waehrung = False
        Me.txtEmpfaengerKdnr._WaehrungZeichen = True
@@ -2368,6 +2403,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtFrachtfuehrerKdnr._ShortDateNew = False
        Me.txtFrachtfuehrerKdnr._ShortDateOnly = False
        Me.txtFrachtfuehrerKdnr._TimeOnly = False
+        Me.txtFrachtfuehrerKdnr._TimeOnly_Seconds = False
        Me.txtFrachtfuehrerKdnr._value = Nothing
        Me.txtFrachtfuehrerKdnr._Waehrung = False
        Me.txtFrachtfuehrerKdnr._WaehrungZeichen = True
@@ -2392,6 +2428,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtEndempfaengerKdnr._ShortDateNew = False
        Me.txtEndempfaengerKdnr._ShortDateOnly = False
        Me.txtEndempfaengerKdnr._TimeOnly = False
+        Me.txtEndempfaengerKdnr._TimeOnly_Seconds = False
        Me.txtEndempfaengerKdnr._value = Nothing
        Me.txtEndempfaengerKdnr._Waehrung = False
        Me.txtEndempfaengerKdnr._WaehrungZeichen = True
@@ -2425,6 +2462,7 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.txtErfassungsnNr._ShortDateNew = False
        Me.txtErfassungsnNr._ShortDateOnly = False
        Me.txtErfassungsnNr._TimeOnly = False
+        Me.txtErfassungsnNr._TimeOnly_Seconds = False
        Me.txtErfassungsnNr._value = Nothing
        Me.txtErfassungsnNr._Waehrung = False
        Me.txtErfassungsnNr._WaehrungZeichen = True
@@ -2548,18 +2586,19 @@ Partial Class usrCntlSpeditionsBuchSuche
        Me.SplitContainer.SplitterWidth = 2
        Me.SplitContainer.TabIndex = 3
        '
-        'Button22
+        'Button23
        '
-        Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button22.Location = New System.Drawing.Point(308, 129)
-        Me.Button22.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button22.Name = "Button22"
-        Me.Button22.Size = New System.Drawing.Size(62, 25)
-        Me.Button22.TabIndex = 92
-        Me.Button22.Text = "Woche"
-        Me.Button22.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button22.UseVisualStyleBackColor = True
+        Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button23.Image = Global.SDL.My.Resources.Resources.statistik_small
+        Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button23.Location = New System.Drawing.Point(788, 81)
+        Me.Button23.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button23.Name = "Button23"
+        Me.Button23.Size = New System.Drawing.Size(83, 28)
+        Me.Button23.TabIndex = 93
+        Me.Button23.Text = "Erhalten "
+        Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button23.UseVisualStyleBackColor = True
        '
        'usrCntlSpeditionsBuchSuche
        '
@@ -2767,4 +2806,5 @@ Partial Class usrCntlSpeditionsBuchSuche
    Friend WithEvents Button12 As Button
    Friend WithEvents Button21 As Button
    Friend WithEvents Button22 As Button
+    Friend WithEvents Button23 As Button
 End Class
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
@@ -174,7 +174,7 @@
        XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
        fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
        tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
-        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDwAACw8BkvkDpQAAB3VJREFUSEu9VntQ1NUe
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDgAACw4BQL7hQQAAB3VJREFUSEu9VntQ1NUe
        /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r
        ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ
        UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -876,6 +876,7 @@ Public Class usrCntlSpeditionsBuchSuche
                Case "UNISPED" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "UNISPED Spedition"
                Case "AMBAR" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "AMBAR"
                Case "FRONTOFFICE" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "FRONTOFFICE"
+                Case "VERIMEX" : rpt.picVERAG.Image = My.Resources.verimex : rpt.Label28.Text = "VERIMEX"
                Case Else
            End Select

@@ -1084,6 +1085,7 @@ Public Class usrCntlSpeditionsBuchSuche
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
                Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
+                Case "VERIMEX" : rpt.picVERAG.Image = My.Resources.verimex : rpt.Label28.Text = "VERIMEX"
                Case Else
            End Select

@@ -1648,25 +1650,35 @@ Public Class usrCntlSpeditionsBuchSuche
                Case Else
            End Select

+
+
            rpt.DataSource = dt

-            If vbYes = MsgBox("Neue Gelangensbestätigungs-Nr. vergeben?", MsgBoxStyle.YesNo) Then
-                Dim GBST = New VERAG_PROG_ALLGEMEIN.cGelangensbestaetigung(Firma, kdnrTmp)
-                If GBST.SAVE Then
-                    rpt.lblNr.Text = GBST.gb_nr
-                    VBNr = GBST.gb_nr
-                End If
-
-            Else
-                rpt.Label17.Visible = False
-            End If
-
            If rpt.DataSource.rows.count = 0 Then
                rpt.Dispose() : print.Dispose()
                MsgBox("Keine Daten vorhanden!")
                Return ""
            End If

+            If vbYes = MsgBox("Neue Gelangensbestätigungs-Nr. vergeben?", MsgBoxStyle.YesNo) Then
+                Dim GBST = New VERAG_PROG_ALLGEMEIN.cGelangensbestaetigung(Firma, kdnrTmp)
+                If GBST.SAVE Then
+                    rpt.lblNr.Text = GBST.gb_nr
+                    VBNr = GBST.gb_nr
+
+                    Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/VBNR-" & VBNr & "/", 1, True, 25)
+                    rpt.Picture1.Image = barcode
+                    'Gelangensbestätigungs/Verbringungsnachweis-Nr. speichern:
+                    SQL.doSQLVarList("UPDATE Speditionsbuch SET SB_CMRNr='" & VBNr & "' WHERE 1=1  " & getSpedBuchWhere(), "FMZOLL",, getSpedbuchList())
+
+                End If
+
+
+            Else
+                rpt.Label17.Visible = False
+            End If
+
+
            Dim AvsioIdNull As String = ""
            For Each r In rpt.DataSource.rows
                If r("AvisoId") Is DBNull.Value OrElse r("AvisoId") <= 0 Then
@@ -1683,6 +1695,8 @@ Public Class usrCntlSpeditionsBuchSuche



+
+
            'Dim cnt As Integer = 0
            rpt.lblDat.Text = Now.ToLongDateString
            Dim sumAnz As Double = 0
@@ -2214,4 +2228,25 @@ Public Class usrCntlSpeditionsBuchSuche

        If dt IsNot Nothing Then DataGridView.DataSource = dt
    End Sub
+
+    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
+        Dim VerbNr = InputBox("Bitte geben Sie die Gelangensbestätigungs-Nr. ein:")
+        If VerbNr.Trim <> "" AndAlso IsNumeric(VerbNr) Then
+            Dim cnt = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] where SB_CMRNr ='" & VerbNr & "' ", "FMZOLL")
+            If cnt > 0 Then
+                If vbYes = MsgBox(cnt & " Einträge gefunden, fortfahren?", vbYesNoCancel) Then
+                    Dim VerbDat = InputBox("Bitte geben Sie das Datum ein, an dem die Gelangensbestätigung erhalten wurde:")
+                    If VerbDat.Trim <> "" AndAlso IsDate(VerbDat) Then
+                        If SQL.doSQL("UPDATE [Speditionsbuch] SET SB_CMR=1, SB_CMRDatum='" & CDate(VerbDat).ToShortDateString & "' where SB_CMRNr ='" & VerbNr & "' ", "FMZOLL") Then
+                            MsgBox("Erfolgreich eingetragen!")
+                        Else
+                            MsgBox("Fehler beim Eintragen!")
+                        End If
+                    End If
+                End If
+            Else
+                MsgBox("Keine Daten!")
+            End If
+        End If
+    End Sub
 End Class