neu

UID/cSqlDb.vb

@@ -2888,12 +2888,21 @@ Public Class cDienstplan
         Return Nothing
     End Function
 
-    Public Function getDienstTeilzeitBySchicht(id, schicht, woTag) As cDienstTeilzeit
+    Public Function getDienstTeilzeitBySchicht(id, schicht, woTag, schicht4wo) As cDienstTeilzeit
         Try
+            If schicht4wo Then
+
+            Else '2Wochen-Wechsel
+                If schicht.ToString.StartsWith("BLAU") Then schicht = "BLAU%"
+                If schicht.ToString.StartsWith("ROT") Then schicht = "ROT%"
+            End If
+
+
             Dim d As New cDienstTeilzeit
 
             Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
-                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDienstTeilzeit WHERE  dsttz_maId=@dsttz_maId AND dsttz_dienstplan=@dsttz_dienstplan AND dsttz_woTag=dsttz_woTag", conn)
+
+                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDienstTeilzeit WHERE  dsttz_maId=@dsttz_maId AND dsttz_dienstplan LIKE @dsttz_dienstplan AND dsttz_woTag=dsttz_woTag", conn)
                     cmd.Parameters.AddWithValue("@dsttz_maId", id)
                     cmd.Parameters.AddWithValue("@dsttz_dienstplan", schicht)
                     cmd.Parameters.AddWithValue("@dsttz_woTag", woTag)
@@ -3993,6 +4002,10 @@ Public Class cDienstplan
                                 s += cPF.getDiff(von, bis, niederlassung, (FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) Or woTag = "SO"))
                                 If IsNumeric(dr.Item("dstetr_pause")) Then
                                     s -= CDbl(dr.Item("dstetr_pause"))
+
+                                    'Wenn Feiertag oder Sonntag, werden die Stunden (von-bis) doppelt gerechent, also müssen die Pausenstunden doppelt abgezoben werden:
+                                    If (FT.isFeiertag(datum, cDienstSettings.getLand(niederlassung)) Or woTag = "SO") Then s -= CDbl(dr.Item("dstetr_pause"))
+
                                 End If
                             Else