20200108

2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
@@ -892,6 +892,15 @@ Public Class cAviso
    Property LKW_Nationalitaet As Object = Nothing
    Property DakosyRef As Object = Nothing
    Property TeamId As Object = Nothing
+    Property Cluster As Object = Nothing
+    Property Freigabe_Info As String = ""
+
+
+
+    Shared Function getAvisoById(hID, Optional hSQL = "") As cAviso
+        Dim AVISODAL As New cAvisoDAL
+        Return AVISODAL.LesenAviso(hID, hSQL)
+    End Function


    Sub UPDATE_FahrerHandy(FahrerHandy As String)
@@ -902,6 +911,15 @@ Public Class cAviso
        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
        SQL.doSQL("UPDATE AVISO SET FahrerHandy='" & FahrerHandy & "' WHERE AvisoId=" & AvisoID, "AVISO")
    End Sub
+
+
+    Sub UPDATE_FreigabeInfo(Freigabe_Info As String)
+        If AvisoID <= 0 Then Exit Sub
+        Me.Freigabe_Info = Freigabe_Info
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        SQL.doSQL("UPDATE AVISO SET Freigabe_Info='" & Freigabe_Info & "' WHERE AvisoId=" & AvisoID, "AVISO")
+    End Sub
 End Class

 Public Class cDruckAviso
@@ -928,7 +946,12 @@ Public Class cAvisoDAL
        'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
        Dim sql As String
        If hID > 0 Then
-            sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", hID)
+            sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} ", hID)
+            'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "" Then
+            '    sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", hID)
+            'Else
+            '    sql = String.Format("SELECT * FROM Aviso WHERE AvisoID = {0} ", hID)
+            'End If
        Else
            sql = hSQL
        End If
@@ -981,7 +1004,8 @@ Public Class cAvisoDAL
                    daten.LKW_Nationalitaet = VarToStr(dr.Item("LKW_Nationalitaet"))
                    daten.DakosyRef = VarToStr(dr.Item("DakosyRef"))
                    daten.TeamId = If(dr.Item("TeamId") Is DBNull.Value, Nothing, dr.Item("TeamId"))
-
+                    daten.Cluster = If(dr.Item("Cluster") Is DBNull.Value, Nothing, dr.Item("Cluster"))
+                    daten.Freigabe_Info = VarToStr(dr.Item("Freigabe_Info"))


                End If
@@ -1017,7 +1041,19 @@ Public Class cAvisoDAL
    Public Function Suche_LKWStatus(LKW_Nr As String) As String
        'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war
        Suche_LKWStatus = ""
-        Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND [Status] Not in (1,2)  AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY Datum DESC"
+
+        Dim firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If firma = "" Then firma = "VERAG"
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" Then
+            firma = " AND ( FIRMA='" & firma & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
+        Else
+            firma = " AND FIRMA='" & firma & "'  "
+        End If
+
+
+
+        Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND [Status] Not in (1,2)  " & firma & " ORDER BY Datum DESC"
        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
        Using cmd As New SqlCommand(sql, conn)
            Using dr As SqlDataReader = cmd.ExecuteReader()
@@ -1235,17 +1271,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) VALUES (" &
+                       " Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info) 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); SELECT CAST(scope_identity() AS int);"
+                       "@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info); 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 " &
+                       " 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 " &
                       " WHERE AvisoID = @AvisoID")
        End If

@@ -1307,7 +1343,8 @@ Public Class cAvisoDAL
            cmd.Parameters.AddWithValue("@LKW_Nationalitaet", If(d.LKW_Nationalitaet Is Nothing, DBNull.Value, d.LKW_Nationalitaet))
            cmd.Parameters.AddWithValue("@DakosyRef", If(d.DakosyRef Is Nothing, DBNull.Value, d.DakosyRef))
            cmd.Parameters.AddWithValue("@TeamId", If(d.TeamId Is Nothing, DBNull.Value, d.TeamId))
-
+            cmd.Parameters.AddWithValue("@Cluster", If(d.Cluster Is Nothing, DBNull.Value, d.Cluster))
+            cmd.Parameters.AddWithValue("@Freigabe_Info", d.Freigabe_Info)


            Try
@@ -1936,6 +1973,21 @@ Public Class cVermerkeDAL
        conn.Close()
    End Sub

+
+    Public Sub toggleHervorheben(ByVal hID As Integer)
+        Dim sql = String.Format("UPDATE Vermerke SET Hervorheben=Hervorheben-1 WHERE VermerkID = {0}", hID)
+
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("Hervorheben kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Hervorheben")
+            End Try
+        End Using
+        conn.Close()
+
+    End Sub
    Public Function Vermerke_einlesen(hAvisoID As Integer) As String
        'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
        Dim x As String = ""