Ankunftsanzeige

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.2.4")>
+<Assembly: AssemblyVersion("1.3.2.5")>
-<Assembly: AssemblyFileVersion("1.3.2.4")>
+<Assembly: AssemblyFileVersion("1.3.2.5")>

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb

@@ -71,6 +71,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
 
         If cboStammreferenz._value = "" Then MsgBox("Stammreferenz auswählen!") : Exit Sub
         If txtMRN._value = "" Then MsgBox("MRN auswählen!") : Exit Sub
+        If txtMRN._value.Length > 18 Then MsgBox("MRN zu lang!") : Exit Sub
 
 
         Me.Refresh()

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -951,6 +951,7 @@ Public Class cAviso
 
     Property Transportmittelart As Object = Nothing
     Property WeiterleitungTextTV As String = ""
+    Property VerwahrungStatus As Integer
 
     Public VORPAPIERE As New List(Of cAvisoVorpapier)
 
@@ -1197,6 +1198,7 @@ Public Class cAvisoDAL
                     daten.Transportmittelart = If(dr.Item("Transportmittelart") Is DBNull.Value, Nothing, dr.Item("Transportmittelart"))
 
                     daten.WeiterleitungTextTV = VarToStr(dr.Item("WeiterleitungTextTV"))
+                    daten.VerwahrungStatus = VarToInt(dr.Item("VerwahrungStatus"))
 
 
 
@@ -1470,17 +1472,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) 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) 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); 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); 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,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,FIRMA=@FIRMA" &
                        " WHERE AvisoID = @AvisoID")
         End If
 
@@ -1553,6 +1555,7 @@ Public Class cAvisoDAL
             cmd.Parameters.AddWithValue("@ZOLLDigitalEingereicht", d.ZOLLDigitalEingereicht)
             cmd.Parameters.AddWithValue("@Transportmittelart", If(d.Transportmittelart, ""))
             cmd.Parameters.AddWithValue("@WeiterleitungTextTV", d.WeiterleitungTextTV)
+            cmd.Parameters.AddWithValue("@VerwahrungStatus", d.VerwahrungStatus)
 
 
             Try

VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb

@@ -201,7 +201,7 @@ Public Class cMeineFunktionenAVISO
         Dim Aviso As New cAviso
         Aviso = AvisoDAL.LesenAviso(AvisoID, "")
         If Aviso Is Nothing Then Return False
-        If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
+        If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
 
         If newLKWOK Is Nothing Then
             newLKWOK = Not Aviso.LKW_fertig
@@ -254,5 +254,82 @@ Public Class cMeineFunktionenAVISO
         Return (tmpid > 0)
     End Function
 
+    Public Shared Function VerwahrungOK(AvisoID) As Boolean
+
+        Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+        Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+            MsgBox("Keine Berechtigung!")
+            Return False
+        End If
+
+        'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
+        If AvisoID <= 0 Then
+            MsgBox("Kein Aviso ausgewählt!")
+            Return False
+        End If
+
+        'jetzt ausgewählten Datensatz einlesen
+        Dim Aviso As New cAviso
+        Aviso = AvisoDAL.LesenAviso(AvisoID, "")
+        If Aviso Is Nothing Then Return False
+        If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
+
+
+        Dim newLKWOK = False
+        If Aviso.VerwahrungStatus = 0 Then
+            Aviso.VerwahrungStatus = 1
+            newLKWOK = True
+        Else
+            Aviso.VerwahrungStatus = 0
+            newLKWOK = False
+        End If
+
+
+
+        Dim msg As String
+        Dim antwort As MsgBoxResult
+
+
+        'Taste LKW ist fertig
+        If Aviso.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
+            MsgBox("Es kann nur ein LKW mit Status ANKUNFT auf 'VERWAHRUNG OK/N-OK' gesetzt werden.", vbInformation)
+            Return False
+        End If
+        Dim aendArt As String = ""
+        Dim aendText As String = ""
+
+        'Status ist Ankunft - LKW wird je nach Eintrag auf Fertig/nicht fertig gesetzt
+        Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+        Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+        Dim hVermerk As New cVermerk   'bei Fertig zusätzlich einen Vermerk setzen
+        hVermerk.AvisoID = Aviso.AvisoID
+        hVermerk.Datum = Now
+        hVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+        hVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
+
+        If newLKWOK Then
+            ' Aviso.LKW_fertig = True
+            Aviso.Änderungen = "Verwahrung kontrolliert - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
+            hVermerk.Hinweis_Vermerk = "Verwahrung kontrolliert"
+            hVermerk.VermerkCodeId = 116
+            VermerkeDAL.SpeichernVermerk(hVermerk)
+            aendArt = "Verwahrung kontrolliert  - gesetzt"
+            aendText = "Verwahrung kontrolliert  - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+        Else
+            ' Aviso.LKW_fertig = False
+            Aviso.Änderungen = "Verwahrung NICHT kontrolliert - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
+            hVermerk.Hinweis_Vermerk = "Verwahrung NICHT kontrolliert"
+            hVermerk.VermerkCodeId = 117
+            VermerkeDAL.SpeichernVermerk(hVermerk)
+            aendArt = "Verwahrung Kontrolle NICHT kontrolliert - gesetzt"
+            aendText = "Verwahrung Kontrolle NICHT kontrolliert - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+        End If
+        Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
+        AvisoDAL.addAenderung(tmpid, aendArt, aendText)
+
+        Return (tmpid > 0)
+    End Function
+
 
 End Class