DIenstplan: Excelausausgabe (Woche)

2022-12-30 15:58:41 +01:00
parent 3509baf3ed
commit 13dca138c2
4 changed files with 117 additions and 222 deletions
--- a/UID/cSqlDb.vb
+++ b/UID/cSqlDb.vb
@@ -4149,8 +4149,11 @@ Public Class cDienstplan

        Dim sqlWhere As String = ""
        If onlySplitschichten Then
-            sqlWhere &= "AND dstetr_splitschicht = 1 AND dstetr_art = '"
-            sqlWhere &= art & "'"
+            sqlWhere &= "AND dstetr_splitschicht = 1"
+        End If
+
+        If art <> "" Then
+            sqlWhere &= "And dstetr_art = '" & art & "'"
        End If
        Try
            Dim stunden As Integer