TIMAS API, API, etc

2023-10-31 17:08:04 +01:00
parent 0e6f88e932
commit 7b5c593bd8
13 changed files with 1766 additions and 96 deletions
--- a/UID/Dienstplan/frmSchichtenZeiten.vb
+++ b/UID/Dienstplan/frmSchichtenZeiten.vb
@@ -204,7 +204,7 @@ Public Class frmSchichtenZeiten
        Dim input = InputBox("Bitte geben Sie die Bezeichnung der neuen Schicht ein:", "Schicht anlegen")
        If input <> "" Then
            If checkNameIsValid(input) Then
-                DP.insertEintraegeDetails(input, niederlassung, True)
+                DP.insertEintraegeDetails(input, niederlassung, True, input)
                initSchichten()
            Else
                MsgBox("Für die Niederlassung" & niederlassung.ToString & " existiert bereits eine Schicht " & input)