LKWNr Prfung, ustva, etc.

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()