LKWNr Prfung, ustva, etc.

SDL/USTV/usrCntlUSTV.Designer.vb

@@ -23,7 +23,7 @@ Partial Class usrCntlUSTV
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlUSTV))
         Me.pnlFilter = New System.Windows.Forms.Panel()
         Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -73,8 +73,8 @@ Partial Class usrCntlUSTV
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.btn3470 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
-        Me.Button3 = New System.Windows.Forms.Button()
+        Me.btnVZ = New System.Windows.Forms.Button()
-        Me.Button2 = New System.Windows.Forms.Button()
+        Me.btnFAPruefung = New System.Windows.Forms.Button()
         Me.btnVorschau = New System.Windows.Forms.Button()
         Me.btnMail = New System.Windows.Forms.Button()
         Me.btnPLOSEAlle = New System.Windows.Forms.Button()
@@ -105,8 +105,8 @@ Partial Class usrCntlUSTV
         Me.dgvUSTV.AKTUALISIERUNGS_INTERVALL = -1
         Me.dgvUSTV.AllowUserToAddRows = False
         Me.dgvUSTV.AllowUserToDeleteRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvUSTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvUSTV.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvUSTV.Location = New System.Drawing.Point(0, 108)
@@ -780,8 +780,8 @@ Partial Class usrCntlUSTV
         Me.Panel3.AutoSize = True
         Me.Panel3.Controls.Add(Me.btn3470)
         Me.Panel3.Controls.Add(Me.Button4)
-        Me.Panel3.Controls.Add(Me.Button3)
+        Me.Panel3.Controls.Add(Me.btnVZ)
-        Me.Panel3.Controls.Add(Me.Button2)
+        Me.Panel3.Controls.Add(Me.btnFAPruefung)
         Me.Panel3.Controls.Add(Me.btnVorschau)
         Me.Panel3.Controls.Add(Me.btnMail)
         Me.Panel3.Controls.Add(Me.btnPLOSEAlle)
@@ -823,31 +823,31 @@ Partial Class usrCntlUSTV
         Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
         Me.Button4.UseVisualStyleBackColor = True
         '
-        'Button3
+        'btnVZ
         '
-        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnVZ.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.ForeColor = System.Drawing.Color.Black
+        Me.btnVZ.ForeColor = System.Drawing.Color.Black
-        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button3.Location = New System.Drawing.Point(982, 5)
+        Me.btnVZ.Location = New System.Drawing.Point(982, 5)
-        Me.Button3.Name = "Button3"
+        Me.btnVZ.Name = "btnVZ"
-        Me.Button3.Size = New System.Drawing.Size(104, 39)
+        Me.btnVZ.Size = New System.Drawing.Size(104, 39)
-        Me.Button3.TabIndex = 28
+        Me.btnVZ.TabIndex = 28
-        Me.Button3.Text = "Vorauszahlungen"
+        Me.btnVZ.Text = "Vorauszahlungen"
-        Me.Button3.UseVisualStyleBackColor = True
+        Me.btnVZ.UseVisualStyleBackColor = True
         '
-        'Button2
+        'btnFAPruefung
         '
-        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnFAPruefung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnFAPruefung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.ForeColor = System.Drawing.Color.Black
+        Me.btnFAPruefung.ForeColor = System.Drawing.Color.Black
-        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnFAPruefung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.Location = New System.Drawing.Point(1092, 6)
+        Me.btnFAPruefung.Location = New System.Drawing.Point(1092, 6)
-        Me.Button2.Name = "Button2"
+        Me.btnFAPruefung.Name = "btnFAPruefung"
-        Me.Button2.Size = New System.Drawing.Size(92, 39)
+        Me.btnFAPruefung.Size = New System.Drawing.Size(92, 39)
-        Me.Button2.TabIndex = 27
+        Me.btnFAPruefung.TabIndex = 27
-        Me.Button2.Text = "FA-Bestätig. prüfen"
+        Me.btnFAPruefung.Text = "FA-Bestätig. prüfen"
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.btnFAPruefung.UseVisualStyleBackColor = True
         '
         'btnVorschau
         '
@@ -999,7 +999,7 @@ Partial Class usrCntlUSTV
     Friend WithEvents txtOPSaldo As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label11 As Label
     Friend WithEvents btnVorschau As Button
-    Friend WithEvents Button2 As Button
+    Friend WithEvents btnFAPruefung As Button
     Friend WithEvents lblVZhint As Label
     Friend WithEvents lblVZKunde As Label
     Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
@@ -1011,7 +1011,7 @@ Partial Class usrCntlUSTV
     Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label12 As Label
     Friend WithEvents lblID As Label
-    Friend WithEvents Button3 As Button
+    Friend WithEvents btnVZ As Button
     Friend WithEvents Button4 As Button
     Friend WithEvents btn3470 As Button
     Friend WithEvents ContextMenuStrip4 As ContextMenuStrip

SDL/USTV/usrCntlUSTV.vb

@@ -597,25 +597,25 @@ Public Class usrCntlUSTV
 
 
 
-    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub btnFAPruefung_Click(sender As Object, e As EventArgs) Handles btnFAPruefung.Click
 
 
         If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then
             Dim dgv = New ToolStripMenuItem() With {.Text = "Übersicht anzeigen", .Name = "dgv", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
-            AddHandler dgv.Click, AddressOf mnuItem3_Clicked
+            AddHandler dgv.Click, AddressOf mnuFAPruefungenClicked
             ContextMenuStrip3.Items.Add(dgv)
         End If
 
         If Not ContextMenuStrip3.Items.ContainsKey("excel") Then
             Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
             ContextMenuStrip3.Items.Add(excel)
-            AddHandler excel.Click, AddressOf mnuItem3_Clicked
+            AddHandler excel.Click, AddressOf mnuFAPruefungenClicked
         End If
 
 
         If Not ContextMenuStrip3.Items.ContainsKey("mail") Then
             Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
-            AddHandler mail.Click, AddressOf mnuItem3_Clicked
+            AddHandler mail.Click, AddressOf mnuFAPruefungenClicked
             ContextMenuStrip3.Items.Add(mail)
         End If
 
@@ -632,7 +632,7 @@ Public Class usrCntlUSTV
         If Not ContextMenuStrip4.Items.ContainsKey("excel") Then
             Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
             ContextMenuStrip4.Items.Add(excel)
-            AddHandler excel.Click, AddressOf mnuItem4_Clicked
+            AddHandler excel.Click, AddressOf mnu3470_Clicked
         End If
 
 
@@ -640,12 +640,12 @@ Public Class usrCntlUSTV
         If Not ContextMenuStrip4.Items.ContainsKey("pdf") Then
             Dim pdf = New ToolStripMenuItem() With {.Text = "PDF", .Name = "pdf", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
             ContextMenuStrip4.Items.Add(pdf)
-            AddHandler pdf.Click, AddressOf mnuItem4_Clicked
+            AddHandler pdf.Click, AddressOf mnu3470_Clicked
         End If
 
         If Not ContextMenuStrip4.Items.ContainsKey("mail") Then
             Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
-            AddHandler mail.Click, AddressOf mnuItem4_Clicked
+            AddHandler mail.Click, AddressOf mnu3470_Clicked
             ContextMenuStrip4.Items.Add(mail)
         End If
 
@@ -1185,7 +1185,7 @@ Public Class usrCntlUSTV
 
     End Sub
 
-    Private Sub mnuItem3_Clicked(sender As Object, e As EventArgs)
+    Private Sub mnuFAPruefungenClicked(sender As Object, e As EventArgs)
 
         Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
 
@@ -1226,6 +1226,7 @@ Public Class usrCntlUSTV
                 Catch ex As System.Exception
 
                     VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+
                 End Try
 
 
@@ -1386,7 +1387,7 @@ Public Class usrCntlUSTV
 
     End Sub
 
-    Private Sub mnuItem4_Clicked(sender As Object, e As EventArgs)
+    Private Sub mnu3470_Clicked(sender As Object, e As EventArgs)
 
         Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
 
@@ -1629,7 +1630,7 @@ Public Class usrCntlUSTV
 
     End Sub
 
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnVZ.Click
 
         Dim sqlKunde = ""
         Dim whereStr = ""

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -960,6 +960,7 @@ Public Class cAviso
     Property WeiterleitungTextTV As String = ""
     Property VerwahrungStatus As Integer
     Property VerwahrungStatusDate As Object = Nothing
+    Property EintragMehrfach As Boolean = False
 
     Public VORPAPIERE As New List(Of cAvisoVorpapier)
 
@@ -1207,6 +1208,7 @@ Public Class cAvisoDAL
                     daten.WeiterleitungTextTV = VarToStr(dr.Item("WeiterleitungTextTV"))
                     daten.VerwahrungStatus = VarToInt(dr.Item("VerwahrungStatus"))
                     daten.VerwahrungStatusDate = If(dr.Item("VerwahrungStatusDate") Is DBNull.Value, Nothing, dr.Item("VerwahrungStatusDate"))
+                    daten.EintragMehrfach = VarToBool(dr.Item("EintragMehrfach"))
 
 
 
@@ -1220,8 +1222,11 @@ Public Class cAvisoDAL
 
     Public Function Suche_LKW(LKW_Nr As String) As String
         'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war
+
+
+
         Suche_LKW = ""
-        Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "'  AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY Datum DESC"
+        Dim sql As String = "SELECT * FROM Aviso WHERE (LKW_Nr = '" & LKW_Nr & "' or LKW_Nr like '%" & LKW_Nr & "%')  AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY Datum DESC"
         Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
         Using cmd As New SqlCommand(sql, conn)
             Using dr As SqlDataReader = cmd.ExecuteReader()
@@ -1254,8 +1259,9 @@ Public Class cAvisoDAL
         End If
 
 
+        ' LKWNr kann als einzelens Kennzeichen angegeben werden oder LKWKZ1/LKWKZ2
 
-        Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND [Status] Not in (1,2)  " & firma & " ORDER BY Datum DESC"
+        Dim sql As String = "SELECT * FROM Aviso WHERE (LKW_Nr = '" & LKW_Nr & "' or LKW_Nr like '%" & LKW_Nr & "%')  AND [Status] Not in (1,2)  " & firma & " ORDER BY Datum DESC"
         Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
         Using cmd As New SqlCommand(sql, conn)
             Using dr As SqlDataReader = cmd.ExecuteReader()
@@ -1480,17 +1486,17 @@ Public Class cAvisoDAL
             hAuswahl = "INSERT INTO Aviso " &
                        "(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
                        "Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
-                       " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV,VerwahrungStatus,VerwahrungStatusDate) VALUES (" &
+                       " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV,VerwahrungStatus,VerwahrungStatusDate, EintragMehrfach) VALUES (" &
                        "@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
                        "@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
-                       "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV,@VerwahrungStatus,@VerwahrungStatusDate); SELECT CAST(scope_identity() AS int);"
+                       "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV,@VerwahrungStatus,@VerwahrungStatusDate, @EintragMehrfach); SELECT CAST(scope_identity() AS int);"
         Else
             id = d.AvisoID
             'Änderung
             hAuswahl = String.Format(
                        "UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
                        " letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen,  " &
-                       " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,VerwahrungStatus=@VerwahrungStatus,VerwahrungStatusDate=@VerwahrungStatusDate,FIRMA=@FIRMA" &
+                       " Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,VerwahrungStatus=@VerwahrungStatus,VerwahrungStatusDate=@VerwahrungStatusDate,EintragMehrfach=@EintragMehrfach,FIRMA=@FIRMA" &
                        " WHERE AvisoID = @AvisoID")
         End If
 
@@ -1566,6 +1572,7 @@ Public Class cAvisoDAL
             cmd.Parameters.AddWithValue("@VerwahrungStatus", d.VerwahrungStatus)
 
             cmd.Parameters.AddWithValue("@VerwahrungStatusDate", If(d.VerwahrungStatusDate Is Nothing, DBNull.Value, d.VerwahrungStatusDate))
+            cmd.Parameters.AddWithValue("@EintragMehrfach", d.EintragMehrfach)
 
             Try
                 If d.AvisoID <= 0 Then

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -938,6 +938,31 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
 
 
 
+    End Function
+
+    Shared Function checkLKWNr(lkwNr As String) As List(Of String)
+
+        Dim ListOfLKWNr As New List(Of String)
+
+        If String.IsNullOrWhiteSpace(lkwNr) Then Return ListOfLKWNr
+
+        Dim listOfLkwNrTemp = lkwNr.Split("/"c)
+
+        For Each oneLKWNr In listOfLkwNrTemp
+            Dim e = oneLKWNr.Trim()
+            If e = "" Then Continue For
+
+            Try
+                ListOfLKWNr.Add(oneLKWNr)
+            Catch
+
+            End Try
+        Next
+
+
+        Return ListOfLKWNr
+
+
     End Function
 
     Public Function MakeScreenshot()