Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

2024-12-12 10:43:47 +01:00
parent 55776c337d de41369333
commit 8c0682ea8d
116 changed files with 795200 additions and 3392 deletions
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
@@ -958,6 +958,8 @@ Public Class cAviso

    Property Transportmittelart As Object = Nothing
    Property WeiterleitungTextTV As String = ""
+    Property VerwahrungStatus As Integer
+    Property VerwahrungStatusDate As Object = Nothing

    Public VORPAPIERE As New List(Of cAvisoVorpapier)

@@ -1204,6 +1206,8 @@ 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"))
+                    daten.VerwahrungStatusDate = If(dr.Item("VerwahrungStatusDate") Is DBNull.Value, Nothing, dr.Item("VerwahrungStatusDate"))



@@ -1477,17 +1481,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,VerwahrungStatusDate) 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,@VerwahrungStatusDate); 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,VerwahrungStatusDate=@VerwahrungStatusDate,FIRMA=@FIRMA" &
                       " WHERE AvisoID = @AvisoID")
        End If

@@ -1560,7 +1564,9 @@ 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)

+            cmd.Parameters.AddWithValue("@VerwahrungStatusDate", If(d.VerwahrungStatusDate Is Nothing, DBNull.Value, d.VerwahrungStatusDate))

            Try
                If d.AvisoID <= 0 Then
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cMeineFunktionenAVISO.vb
+++ b/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,84 @@ 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
+            Aviso.VerwahrungStatusDate = Now
+            newLKWOK = True
+        Else
+            Aviso.VerwahrungStatus = 0
+            Aviso.VerwahrungStatusDate = Nothing
+            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