Urlaubsplaner Updatefunktion eingebaut.

UID/Dienstplan/frmUrlKW.vb

@@ -14,6 +14,9 @@ Public Class frmUrlKW
     Dim montag As Date
     Dim loaded = False
     Dim ftString As String = " FT"
+    Dim DPAlreadyInit As Boolean = False
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
     Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
         ' SQLDienst.delDienstNichtAnwesendKW_ByKwJahr(maId, KW, YEAR)
@@ -62,6 +65,8 @@ Public Class frmUrlKW
         cboArt.SelectedIndex = 0
 
 
+
+
     End Sub
 
     Private Sub frmUrlKW_Shown(sender As Object, e As EventArgs) Handles Me.Shown
@@ -91,6 +96,8 @@ Public Class frmUrlKW
         lblSa.Text = montag.AddDays(5).ToString("dd.MM.")
         lblSo.Text = montag.AddDays(6).ToString("dd.MM.")
 
+        DPAlreadyInit = checkIfDPEntryIsExisting()
+
         If (FT.isFeiertag(montag, cDienstSettings.getLand(niederlassung))) Then
             lblMo.TextAlign = ContentAlignment.TopLeft
             lblMo.Text &= ftString
@@ -186,6 +193,16 @@ Public Class frmUrlKW
 
             End If
         End If
+
+
+        If DPAlreadyInit Then
+            lblUrlaubEintragen.Text = cboArt.SelectedItem.ToString & " eintragen - DP wurde bereits init."
+            lblUrlaubEintragen.ForeColor = Color.Red
+        Else
+            lblUrlaubEintragen.Text = cboArt.SelectedItem.ToString & " eintragen"
+            lblUrlaubEintragen.ForeColor = Color.Black
+        End If
+
     End Sub
 
     Public Function CalendarWeek(ByVal nWeek As Integer, ByVal nYear As Integer) As Date
@@ -247,4 +264,16 @@ Public Class frmUrlKW
         KW_ID = -1
         init()
     End Sub
+
+    Private Function checkIfDPEntryIsExisting()
+
+        If SQL.DLookup("count([dstetr_id])", "[tblDienstplanEintraege]", " [dstetr_niederlassung]='" & niederlassung & "' and [dstetr_dstmaId]='" & maId & "' and [dstetr_datum] BETWEEN'" & montag.ToShortDateString & "' AND '" & montag.AddDays(6).ToShortDateString & "'", "ADMIN", 0) > 0 Then
+            Return True
+        Else
+            Return False
+        End If
+
+
+
+    End Function
 End Class