MS3

app/DD-Record-Organiser/ClassInit.vb

@@ -85,6 +85,16 @@ Public Class ClassInit
             If configResult = False Then
                 Throw New Exception("Find more information in the logfile.")
             End If
+            Dim sql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1")
+            Dim KONFIG_DT As DataTable = ClassDatabase.Return_Datatable(sql)
+            If KONFIG_DT.Rows.Count = 1 Then
+                Try
+                    MY_WIKISTRING = KONFIG_DT.Rows(0).Item("WIKI_STRING")
+                Catch ex As Exception
+                    MY_WIKISTRING = ""
+                End Try
+                WD_UNICODE = KONFIG_DT.Rows(0).Item("WD_UNICODE")
+            End If
         Catch ex As Exception
             MsgBox("Unexpected Error in InitBasics2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try