Update 2024-01-10

DPM2016/Behandlung/Benhandungdetail.vb

@@ -1,4 +1,6 @@
-Public Class Benhandungdetail
+Imports Syncfusion.Windows.Forms.Tools
+
+Public Class Benhandungdetail
     Dim db As New clsDB
     Dim log As New clsLog
     Dim FormReadonly As Boolean = False
@@ -49,15 +51,15 @@
 
                     GrpPatient.Text = "Verantwortung / Rechnungsart"
 
-                    GrpPatient.Height = GrpPatient.Height + 30
+                    GrpPatient.Height = GrpPatient.Height + 60
                     Me.cbansprechperson.Visible = True
-
-
+                    Me.cbrechnungsadresse.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
-                    Me.GrpPatient.Height = Me.GrpPatient.Height + 20
+
+                    Me.grpBehandlungsdaten.Top = Me.GrpPatient.Top + Me.GrpPatient.Height + 5
+                    Me.GrpRaten.Top = grpBehandlungsdaten.Top + grpBehandlungsdaten.Height + 5
+                    Me.grpZusammenfassugn.Top = GrpRaten.Top + GrpRaten.Height + 5
+
                     Me.Label7.Top = Label7.Top + 20
                     Me.cbboxnrbehandler.Top = Me.cbboxnrbehandler.Top + 20
                     Me.Label6.Top = Label6.Top + 20
@@ -76,6 +78,8 @@
                     Me.lblansprechperson.Visible = True
                     Me.lblunserereferenz.Visible = True
                     Me.txtunserereferenz.Visible = True
+                    Me.lblrechnungsadresse.Visible = True
+
 
 
                     If db.Get_Option(8000) = "True" Then
@@ -383,6 +387,7 @@
             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
@@ -391,6 +396,12 @@
             Next
         End If
 
+        Me.cbrechnungsadresse.Items.Clear()
+        Me.cbrechnungsadresse.Items.Add("Hauptadresse")
+        Me.cbrechnungsadresse.Items.Add("Ansprechperson")
+        Me.cbrechnungsadresse.SelectedIndex = db.dsDaten.Tables(0).Rows(0).Item("nrgarant")
+
+
         AddChanges(Me)
         Me.HasChanges = False
     End Sub
@@ -594,6 +605,8 @@
             r("nransprechpartner") = ap.dsDaten.Tables(0).Rows(0).Item(0).ToString
         End If
 
+        If Globals.DruckBranche Then r("nrgarant") = cbrechnungsadresse.SelectedIndex
+
         db.Update_Data()
 
 
@@ -1778,4 +1791,8 @@
             End If
         Next
     End Sub
+
+    Private Sub cbansprechperson_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbansprechperson.SelectedIndexChanged
+        If cbansprechperson.SelectedIndex = 0 Then Me.cbrechnungsadresse.SelectedIndex = 0
+    End Sub
 End Class