neu

VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb

@@ -146,6 +146,9 @@ Public Class cMeineFunktionenAVISO
     End Function
 
     Public Shared Function Minuten_auf_Text(hMinuten As Long) As String
+
+        If hMinuten <= 0 Then Return ""
+
         Dim hStunden As Long
         Dim hMinus As Boolean
         Dim hMin As Long
@@ -179,6 +182,77 @@ Public Class cMeineFunktionenAVISO
         Return VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(FilialeNr, CInt(IIf(Year > 0, Year, Now.Year)))
     End Function
 
+    Public Shared Function LKWFertig(AvisoID, Optional newLKWOK = Nothing) 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 bereichts abgeschlossen.", vbInformation) : Return False
+
+        If newLKWOK Is Nothing Then
+            newLKWOK = Not Aviso.LKW_fertig
+        Else
+            If newLKWOK = Aviso.LKW_fertig Then Return True 'Wenn schon OK ist
+        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 'FERTIG/nicht FERTIG' 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 = "LKW ist fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
+            hVermerk.Hinweis_Vermerk = "LKW ist fertig!"
+            hVermerk.VermerkCodeId = 26
+            VermerkeDAL.SpeichernVermerk(hVermerk)
+            aendArt = "LKW ist fertig - gesetzt"
+            aendText = "LKW ist fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+        Else
+            Aviso.LKW_fertig = False
+            Aviso.Änderungen = "LKW ist nicht fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
+            hVermerk.Hinweis_Vermerk = "LKW ist nicht fertig."
+            hVermerk.VermerkCodeId = 27
+            VermerkeDAL.SpeichernVermerk(hVermerk)
+            aendArt = "LKW ist nicht fertig - gesetzt"
+            aendText = "LKW ist nicht fertig - 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