Update 20240102

DPM2016/Patient/subclasses/PatientDetailsFirma.vb

@@ -557,7 +557,7 @@ Public Class PatientDetailsFirma
     End Sub
 
     Private Sub PatientDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        Me.ClsStammdaten_flat1.ToolStripButton5.Visible = False
     End Sub
 
     Private Sub cbboxNrAnrede_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnrede.SelectedIndexChanged
@@ -587,10 +587,22 @@ Public Class PatientDetailsFirma
     End Sub
 
     Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
-        Dim f As New frmPrivatAnsprechpartner
-        f.is_new = False
-        f.id = Me.ClsStammdaten_flat1.c1daten.Columns(0).Value
-        f.nrprivat = txtnrprivat.Text
-        f.ShowDialog()
+        Try
+            Dim f As New frmPrivatAnsprechpartner
+            f.is_new = False
+            f.id = Me.ClsStammdaten_flat1.c1daten.Columns(0).Value
+            f.nrprivat = txtnrprivat.Text
+            f.ShowDialog()
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
+        Try
+            Me.ClsStammdaten_flat1.c1daten.Columns("Aktiv").Value = False
+        Catch
+        End Try
+
     End Sub
 End Class