Update 2024-01-10

DPM2016/Patient/subclasses/PatientDetailsFirma.vb

@@ -208,7 +208,7 @@ Public Class PatientDetailsFirma
 #Region "Daten_Laden"
 
     Public Sub Fill_Stammdaten()
-        If Globals.Stammdaten_Geladen = True Then Exit Sub
+        ' If Globals.Stammdaten_Geladen = True Then Exit Sub
         If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
             chklbAdresstyp.Items.Clear()
             chklbAdresstyp.Items.Add("Leistungserbringer")
@@ -280,6 +280,9 @@ Public Class PatientDetailsFirma
                     End If
                     If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
                         log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        If (c.ColumnName) = "sprache" Then
+                            Dim a As Integer = 1
+                        End If
                         Dim ct As MyCombobox
                         Dim o As Object = Ctl
                         Try