Dienstplan

2022-12-12 17:02:03 +01:00
parent b544ae5711
commit e7733375e1
4 changed files with 146 additions and 108 deletions
--- a/UID/cSqlDb.vb
+++ b/UID/cSqlDb.vb
@@ -2571,7 +2571,10 @@ Public Class cDienstplan
        End Using
        Return False
    End Function
-    
+
+
+
+
    Public Function delDienstplanUeberSdtMa(ByVal kw As Integer, ByVal jahr As Integer, niederlassung As String) As Boolean
        Dim sql = "DELETE FROM [tblDienstplanUeberSdtMa] WHERE [usma_idKW]=@kw AND [usma_idJahr]=@jahr AND usma_niederlassung=@niederlassung"

@@ -3004,12 +3007,12 @@ Public Class cDienstplan
    End Function


-    Public Function updateEintraegeDetails_Benuterdef(dedet_id, dedet_bezeichnungDP, dedet_ProzentGrafik, dedet_bezeichnungExcel, dedet_bezeichnungExcel2, dedet_bezeichnungExcel3, dedet_ZeilenExcel, dedet_benutzerdefinierteSchicht, dedet_stdWieArbeitszeit, dedet_reihenfolge, dedet_TagesWechsel, dedet_WechselZuSchicht, dedet_HotKey, dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe, dedet_bezLeiter, dedet_ExcelMonatFarbe, dedet_ExcelMonatBezeichnung, dedet_aktiv) As Boolean
+    Public Function updateEintraegeDetails_Benuterdef(dedet_id, dedet_bezeichnungDP, dedet_ProzentGrafik, dedet_bezeichnungExcel, dedet_bezeichnungExcel2, dedet_bezeichnungExcel3, dedet_ZeilenExcel, dedet_benutzerdefinierteSchicht, dedet_stdWieArbeitszeit, dedet_reihenfolge, dedet_TagesWechsel, dedet_WechselZuSchicht, dedet_HotKey, dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe, dedet_bezLeiter, dedet_ExcelMonatFarbe, dedet_ExcelMonatBezeichnung, dedet_aktiv, dedet_splitschicht, dedet_hauptsplitschicht) As Boolean
        Dim hAuswahl As String = ""

        Dim sql As String = "UPDATE tblDienstplanEintraegeDetails " &
                               "SET dedet_bezeichnungDP=@dedet_bezeichnungDP,dedet_ProzentGrafik=@dedet_ProzentGrafik,dedet_bezeichnungExcel=@dedet_bezeichnungExcel,dedet_bezeichnungExcel2=@dedet_bezeichnungExcel2,dedet_bezeichnungExcel3=@dedet_bezeichnungExcel3,dedet_ZeilenExcel=@dedet_ZeilenExcel,dedet_benutzerdefinierteSchicht=@dedet_benutzerdefinierteSchicht,dedet_stdWieArbeitszeit=@dedet_stdWieArbeitszeit, " &
-                               " dedet_reihenfolge=@dedet_reihenfolge,dedet_TagesWechsel=@dedet_TagesWechsel,dedet_WechselZuSchicht=@dedet_WechselZuSchicht,dedet_HotKey=@dedet_HotKey ,dedet_bgAlternativeFarbe=@dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe=@dedet_ExcelBgFarbe,dedet_bezLeiter=@dedet_bezLeiter,dedet_ExcelMonatFarbe=@dedet_ExcelMonatFarbe,dedet_ExcelMonatBezeichnung=@dedet_ExcelMonatBezeichnung,dedet_aktiv=@dedet_aktiv " &
+                               " dedet_reihenfolge=@dedet_reihenfolge,dedet_TagesWechsel=@dedet_TagesWechsel,dedet_WechselZuSchicht=@dedet_WechselZuSchicht,dedet_HotKey=@dedet_HotKey ,dedet_bgAlternativeFarbe=@dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe=@dedet_ExcelBgFarbe,dedet_bezLeiter=@dedet_bezLeiter,dedet_ExcelMonatFarbe=@dedet_ExcelMonatFarbe,dedet_ExcelMonatBezeichnung=@dedet_ExcelMonatBezeichnung,dedet_aktiv=@dedet_aktiv, dedet_splitschicht=@dedet_splitschicht, dedet_hauptsplitschicht=@dedet_hauptsplitschicht " &
                               " WHERE dedet_id=@dedet_id "


@@ -3038,6 +3041,8 @@ Public Class cDienstplan
                cmd.Parameters.AddWithValue("@dedet_ExcelMonatFarbe", dedet_ExcelMonatFarbe)
                cmd.Parameters.AddWithValue("@dedet_ExcelMonatBezeichnung", dedet_ExcelMonatBezeichnung)
                cmd.Parameters.AddWithValue("@dedet_aktiv", dedet_aktiv)
+                cmd.Parameters.AddWithValue("@dedet_splitschicht", dedet_splitschicht)
+                cmd.Parameters.AddWithValue("@dedet_hauptsplitschicht", dedet_hauptsplitschicht)

                Try
                    cmd.ExecuteNonQuery()
@@ -3050,6 +3055,24 @@ Public Class cDienstplan
        Return False
    End Function

+    Public Function delEintraegeDetails(ByVal dedet_id As Integer) As Boolean
+
+        Dim sql = "DELETE FROM tblDienstplanEintraegeDetails WHERE dedet_id=@dedet_id"
+
+        Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+            Using cmd As New SqlCommand(sql, conn)
+                cmd.Parameters.AddWithValue("@dedet_id", dedet_id)
+                Try
+                    cmd.ExecuteNonQuery()
+                    Return True
+                Catch ex As SqlException
+                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
+                End Try
+            End Using
+        End Using
+        Return False
+    End Function
+
    Public Function delDienstNichtAnwesendKW_ByMaID(ByVal id As Integer) As Boolean
        Dim hAuswahl As String = ""
        'tblDienstNichtAnwesend
@@ -3536,6 +3559,25 @@ Public Class cDienstplan
        Return False
    End Function

+    Public Function delOnlyDstEintraegeSplitschichtenMaId(datum, niederlassung, dstetr_dstmaId) As Boolean
+        Dim sql = "DELETE FROM tblDienstplanEintraege " &
+                   "WHERE dstetr_niederlassung= '" & niederlassung & "' AND dstetr_datum = @datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_splitschicht = 1"
+        Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+            Using cmd As New SqlCommand(sql, conn)
+                cmd.Parameters.AddWithValue("@datum", datum)
+                cmd.Parameters.AddWithValue("@dstetr_dstmaId", dstetr_dstmaId)
+                Try
+                    cmd.ExecuteNonQuery()
+                    Return True
+                Catch ex As SqlException
+                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim löschen")
+                End Try
+            End Using
+        End Using
+        Return False
+    End Function
+
+

    Public Function getMaIDFromMitID(mit_id As Integer) As String
        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -3622,17 +3664,17 @@ Public Class cDienstplan

    Public Function updateInsertByDienstEintrag(ByVal daten As cDienstEintrag, niederlassung As String) As Boolean
        Dim sql As String = " begin tran" &
-                            " if exists (select  * from tblDienstplanEintraege with (updlock,serializable) where dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung) " &
+                            " if exists (select  * from tblDienstplanEintraege with (updlock,serializable) where dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung AND dstetr_art=@dstetr_art) " & 'AND dstetr_art=@dstetr_art hinzugefügt!
                                   " begin " &
                                   " UPDATE tblDienstplanEintraege " &
-                                   " SET dstetr_dstmaId=@dstetr_dstmaId, dstetr_art=@dstetr_art, dstetr_von=@dstetr_von, dstetr_bis=@dstetr_bis, dstetr_grund=@dstetr_grund, dstetr_info=@dstetr_info,dstetr_niederlassung=@dstetr_niederlassung,dstetr_pause=@dstetr_pause " &
+                                   " SET dstetr_dstmaId=@dstetr_dstmaId, dstetr_art=@dstetr_art, dstetr_von=@dstetr_von, dstetr_bis=@dstetr_bis, dstetr_grund=@dstetr_grund, dstetr_info=@dstetr_info,dstetr_niederlassung=@dstetr_niederlassung,dstetr_pause=@dstetr_pause,dstetr_hauptsplitschicht=@dstetr_hauptsplitschicht,dstetr_splitschicht=@dstetr_splitschicht " &
                                   " WHERE dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung " &
                                " End " &
                            " Else " &
                            " begin " &
                                "INSERT INTO tblDienstplanEintraege " &
-                                "( dstetr_dstmaId, dstetr_datum, dstetr_art, dstetr_von, dstetr_bis, dstetr_grund, dstetr_info, dstetr_niederlassung,dstetr_pause) VALUES " &
-                                "( @dstetr_dstmaId, @dstetr_datum, @dstetr_art, @dstetr_von, @dstetr_bis, @dstetr_grund, @dstetr_info,@dstetr_niederlassung,@dstetr_pause )" &
+                                "( dstetr_dstmaId, dstetr_datum, dstetr_art, dstetr_von, dstetr_bis, dstetr_grund, dstetr_info, dstetr_niederlassung,dstetr_pause,dstetr_hauptsplitschicht,dstetr_splitschicht) VALUES " &
+                                "( @dstetr_dstmaId, @dstetr_datum, @dstetr_art, @dstetr_von, @dstetr_bis, @dstetr_grund, @dstetr_info,@dstetr_niederlassung,@dstetr_pause,@dstetr_hauptsplitschicht,@dstetr_splitschicht )" &
                            " End " &
                            " commit tran "

@@ -3648,6 +3690,8 @@ Public Class cDienstplan
                cmd.Parameters.AddWithValue("@dstetr_grund", daten.dstetr_grund)
                cmd.Parameters.AddWithValue("@dstetr_info", daten.dstetr_info)
                cmd.Parameters.AddWithValue("@dstetr_niederlassung", niederlassung)
+                cmd.Parameters.AddWithValue("@dstetr_hauptsplitschicht", daten.dstetr_hauptsplitschicht)
+                cmd.Parameters.AddWithValue("@dstetr_splitschicht", daten.dstetr_splitschicht)

                'MsgBox(daten.dstetr_dstmaId)
                Try
@@ -3661,52 +3705,6 @@ Public Class cDienstplan
        Return False
    End Function

-
-    Public Function insertByDienstEintrag(ByVal daten As cDienstEintrag, niederlassung As String) As Boolean
-        Dim sql As String = " begin tran" &
-                            " if exists (select  * from tblDienstplanEintraege with (updlock,serializable) where dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung AND dstetr_art=@dstetr_art) " &
-                                   " begin " &
-                                   " UPDATE tblDienstplanEintraege " &
-                                   " SET dstetr_dstmaId=@dstetr_dstmaId, dstetr_art=@dstetr_art, dstetr_von=@dstetr_von, dstetr_bis=@dstetr_bis, dstetr_grund=@dstetr_grund, dstetr_info=@dstetr_info,dstetr_niederlassung=@dstetr_niederlassung,dstetr_pause=@dstetr_pause " &
-                                   " WHERE dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung " &
-                                " End " &
-                            " Else " &
-                            " begin " &
-                                "INSERT INTO tblDienstplanEintraege " &
-                                "( dstetr_dstmaId, dstetr_datum, dstetr_art, dstetr_von, dstetr_bis, dstetr_grund, dstetr_info, dstetr_niederlassung,dstetr_pause) VALUES " &
-                                "( @dstetr_dstmaId, @dstetr_datum, @dstetr_art, @dstetr_von, @dstetr_bis, @dstetr_grund, @dstetr_info,@dstetr_niederlassung,@dstetr_pause )" &
-                            " End " &
-                            " commit tran "
-
-
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
-            Using cmd As New SqlCommand(sql, conn)
-                cmd.Parameters.AddWithValue("@dstetr_id", daten.dstetr_id)
-                cmd.Parameters.AddWithValue("@dstetr_dstmaId", daten.dstetr_dstmaId)
-                cmd.Parameters.AddWithValue("@dstetr_datum", daten.dstetr_datum)
-                cmd.Parameters.AddWithValue("@dstetr_art", daten.dstetr_art)
-                cmd.Parameters.AddWithValue("@dstetr_von", daten.dstetr_von)
-                cmd.Parameters.AddWithValue("@dstetr_bis", daten.dstetr_bis)
-                cmd.Parameters.AddWithValue("@dstetr_pause", CDbl(daten.dstetr_pause))
-                cmd.Parameters.AddWithValue("@dstetr_grund", daten.dstetr_grund)
-                cmd.Parameters.AddWithValue("@dstetr_info", daten.dstetr_info)
-                cmd.Parameters.AddWithValue("@dstetr_niederlassung", niederlassung)
-
-                'MsgBox(daten.dstetr_dstmaId)
-                Try
-                    cmd.ExecuteNonQuery()
-                    Return True
-                Catch ex As SqlException
-                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
-                End Try
-            End Using
-        End Using
-        Return False
-    End Function
-
-
-
-
    Public Function getDienstEintragList(datum As Date, niederlassung As String) As List(Of cDienstEintrag)
        Dim sql As String = " SELECT * FROM tblDienstplanEintraege WHERE dstetr_datum = @dstetr_datum AND dstetr_niederlassung=@dstetr_niederlassung " 
        Dim daten As List(Of cDienstEintrag) = Nothing
@@ -4089,11 +4087,14 @@ Public Class cDienstplan
        Return 0
    End Function

-    Public Function getCountEntrys(maId As Integer, datum_von As Date, datum_bis As Date) As Integer
+    Public Function getCountEntrys(maId As Integer, datum_von As Date, datum_bis As Date, Optional onlySplitschichten As Boolean = False) As Integer
+
+        Dim sqlWhere As String = ""
+        If onlySplitschichten Then sqlWhere &= "AND dstetr_splitschicht = 1"
        Try
            Dim stunden As Integer
            Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
-                Using cmd As New SqlCommand(" SELECT COUNT(*) FROM tblDienstplanEintraege WHERE dstetr_dstmaId=" & maId & " AND dstetr_datum BETWEEN '" & datum_von.ToShortDateString & "' AND '" & datum_bis.ToShortDateString & "' ", conn)
+                Using cmd As New SqlCommand(" SELECT COUNT(*) FROM tblDienstplanEintraege WHERE dstetr_dstmaId=" & maId & " AND dstetr_datum BETWEEN '" & datum_von.ToShortDateString & "' AND '" & datum_bis.ToShortDateString & "' " & sqlWhere, conn)
                    Dim dr = cmd.ExecuteReader()
                    Dim cPF As New cProgramFunctions
                    If dr.HasRows Then