TIMAS API, API, etc

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -1172,6 +1172,7 @@ Public Class frmMitarbDetails
 
         If checkMandatoryFields() Then
             timas.createEmployee(mitarbeiter, rtfInfoTimas.Text, dtTimas)
+            If rtfInfoTimas.Visible = False AndAlso rtfInfoTimas.Text <> "" Then MsgBox(rtfInfoTimas.Text)
             tbcntr_TabIndexChanged(sender, e)
         End If
 
@@ -1194,6 +1195,7 @@ Public Class frmMitarbDetails
         dgvData.Visible = Not cbxTimasAngelegt.Checked
         rtfInfoTimas.Visible = cbxTimasAngelegt.Checked
         btngetInfo.Visible = cbxTimasAngelegt.Checked
+        btnDelete.Visible = cbxTimasAngelegt.Checked
 
     End Sub
 
@@ -1283,7 +1285,7 @@ Public Class frmMitarbDetails
 
     End Sub
 
-    Private Sub PictureBox9_Click_1(sender As Object, e As EventArgs) Handles PictureBox9.Click
+    Private Sub PictureBox9_Click_1(sender As Object, e As EventArgs)
         Dim webAddress As String = "https://zeit.verag.ag/"
         Process.Start(webAddress)
     End Sub
@@ -1306,6 +1308,22 @@ Public Class frmMitarbDetails
 
     Private isDataLoaded As Boolean = True
 
+    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
+        If Not cbxTimasAngelegt.Checked Then
+            rtfInfoTimas.Text = "Mitarbeiter nicht im Timas angelegt!"
+            Exit Sub
+        End If
 
+        If vbYes = MsgBox("Soll die Verknüpfung zu Timas gelöscht werden?", vbYesNoCancel) Then
+            getMitarbeiter()
+            mitarbeiter.mit_PersonalNr = DBNull.Value
+            mitarbeiter.mit_timasId = DBNull.Value
+            If UID.updateMitarbeiter(mitarbeiter) Then
+                MsgBox("Mitarbeitverknüpfung gelöscht!")
+            End If
+
+        End If
+
+    End Sub
 End Class