SEndungsdetails ATilla

2025-02-19 10:50:13 +01:00
parent 390d5353f2
commit 7823d11489
19 changed files with 2603 additions and 4038 deletions
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -397,7 +397,7 @@ Public Class frmHauptfenster

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "ATILLA" ' Case "VERAG", "IMEX"
-                lblErweitereSuche.Visible = False
+                ' lblErweitereSuche.Visible = False
                MDMParkplatzkartenToolStripMenuItem.Visible = False

                '  SplitContainer3.Panel1Collapsed = True
@@ -5231,6 +5231,7 @@ Public Class AvisoStatusFunctions

    Public Sub sendAnkunftBenachrichtigung(AvisoId)
        'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
+
        Dim alreadySent As New List(Of Integer)
        Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
        For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId).Rows
@@ -5342,7 +5343,9 @@ Public Class AvisoStatusFunctions
        End If

        'E-Mail
-        sendAnkunftBenachrichtigung(Aviso.AvisoID)
+        If Aviso.FIRMA <> "ATILLA" Then
+            sendAnkunftBenachrichtigung(Aviso.AvisoID)
+        End If

        If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
            Rücksetzen = True
@@ -6246,54 +6249,55 @@ Public Class AvisoStatusFunctions

        If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
            'Prüfung 
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
-                If value Then
-                    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-                    If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then
-                        If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then
-                            Return False
-                        End If
-                    End If
+            If False Then
+                'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+                '    If value Then
+                '        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+                '        If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then
+                '            If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then
+                '                Return False
+                '            End If
+                '        End If

-                    Aviso.Abgeschlossen = value
-                    AvisoDAL.SpeichernAviso(Aviso)
-                    AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
-                Else
-                    Aviso.Abgeschlossen = value
-                    AvisoDAL.SpeichernAviso(Aviso)
-                    AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
-                End If
+                '        Aviso.Abgeschlossen = value
+                '        AvisoDAL.SpeichernAviso(Aviso)
+                '        AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                '    Else
+                '        Aviso.Abgeschlossen = value
+                '        AvisoDAL.SpeichernAviso(Aviso)
+                '        AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                '    End If
            Else
-                If value Then
-                    For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
-                        If Not CBool(r(0)) Then
-                            MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
-                            Return False
-                        End If
-                    Next
-                    Aviso.Abgeschlossen = value
-                    AvisoDAL.SpeichernAviso(Aviso)
+                    If value Then
+                        For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
+                            If Not CBool(r(0)) Then
+                                MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
+                                Return False
+                            End If
+                        Next
+                        Aviso.Abgeschlossen = value
+                        AvisoDAL.SpeichernAviso(Aviso)

-                    '--> Nicht mehr benötigt, alte Archiv Software IMEX
-                    'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                    '    Case "IMEX" : createNLC(Aviso)
-                    'End Select
+                        '--> Nicht mehr benötigt, alte Archiv Software IMEX
+                        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                        '    Case "IMEX" : createNLC(Aviso)
+                        'End Select

-                    AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                        AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))

-                    'Benachrichtigungen erledigen
-                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
-                Else
-                    Aviso.Abgeschlossen = value
-                    AvisoDAL.SpeichernAviso(Aviso)
-                    AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                        'Benachrichtigungen erledigen
+                        VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
+                    Else
+                        Aviso.Abgeschlossen = value
+                        AvisoDAL.SpeichernAviso(Aviso)
+                        AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                    End If
                End If
-            End If


-            Return True
-        Else
-            MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
+                Return True
+            Else
+                MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
            Return False
        End If