Update 6.12.23

DPM2016/Behandlung/Benhandungdetail.vb

@@ -19,6 +19,7 @@
                 Get_Stammdaten()
                 Globals.OnLoad = True
                 OnGetData = True
+
                 Get_Data()
                 OnGetData = False
                 Globals.OnLoad = False
@@ -47,6 +48,12 @@
 
 
                     GrpPatient.Text = "Verantwortung / Rechnungsart"
+
+                    GrpPatient.Height = GrpPatient.Height + 30
+                    Me.cbansprechperson.Visible = True
+
+
+                    Me.lblAnsprechen.Visible = True
                     Me.grpZusammenfassugn.Top = grpZusammenfassugn.Top + 20
                     Me.GrpRaten.Top = GrpRaten.Top + 20
                     Me.grpBehandlungsdaten.Top = Me.grpBehandlungsdaten.Top + 20
@@ -368,6 +375,22 @@
             End Try
         End If
         chk_dateien()
+
+        If r("nransprechpartner") > 0 Then
+            Dim pap As New clsDB
+            pap.Get_Tabledata("AP", "", "Select name from privat_ansprechpartner where id=" + r("nransprechpartner").ToString)
+            Dim i As Integer = 0
+            Dim x As Integer
+            Dim result As String
+
+            For Each itm As Object In cbansprechperson.Items
+                result = itm.ToString()
+                If result = pap.dsDaten.Tables(0).Rows(0).Item(0) Then
+                    Me.cbansprechperson.SelectedText = pap.dsDaten.Tables(0).Rows(0).Item(0)
+                End If
+            Next
+        End If
+
         AddChanges(Me)
         Me.HasChanges = False
     End Sub
@@ -565,9 +588,16 @@
         r("mutierer") = Globals.ActUser
         r("total") = Me.txtcTotal.Text
 
+        If Me.cbansprechperson.Text <> "" Then
+            Dim ap As New clsDB
+            ap.Get_Tabledata("Ansprechpartner", "", "select id from privat_ansprechpartner where name='" + Me.cbansprechperson.Text + "' and nrprivat=" + Me.Patientnr.ToString)
+            r("nransprechpartner") = ap.dsDaten.Tables(0).Rows(0).Item(0).ToString
+        End If
+
         db.Update_Data()
 
 
+
         Me.HasChanges = False
 
     End Sub
@@ -706,6 +736,20 @@
         dbx.Dispose()
 
 
+        Try
+            Me.cbansprechperson.Items.Clear()
+            Me.cbansprechperson.Items.Add("")
+            Dim ap As New clsDB
+            ap.Get_Tabledata("Ansprechpartner", "", "Select id,Name from privat_ansprechpartner where aktiv=1 and nrprivat=" + Me.Patientnr.ToString + " order by name")
+            Dim i As Integer = 0
+            Me.cbansprechperson.SelectedIndex = i
+            For Each r1 As DataRow In ap.dsDaten.Tables(0).Rows
+                Me.cbansprechperson.Items.Add(r1("Name"))
+            Next
+            ap.Dispose()
+        Catch ex As Exception
+
+        End Try
 
     End Sub
 
@@ -1092,6 +1136,7 @@
     End Sub
 
     Private Sub cbboxNrAnsatz_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cbboxNrAnsatz.SelectedIndexChanged
+        If Me.OnLoad Then Exit Sub
         If Me.Behandlungsstatus <> 1 And Me.Behandlungsstatus <> 4 Then Exit Sub
         Me.Save_Data()
         db.Recalc_Leistungen(Me.Behandlungsnr, Me.mtxtTaxpunktwert.Text)