Ankunftsanzeige

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