MS

app/DD-Record-Organiser/frmRecOrgConfig_Basic.vb

@@ -46,7 +46,7 @@ Public Class frmRecOrgConfig_Basic
             dt = ClassDatabase.Return_Datatable(sql)
             If Not dt Is Nothing Then
                 If dt.Rows.Count = 1 Then
-                    Me.chkUnicode.Checked = dt.Rows(0).Item("WD_UNICODE")
+                    '  Me.chkUnicode.Checked = dt.Rows(0).Item("WD_UNICODE")
                     Me.txtWiki.Text = dt.Rows(0).Item("WIKI_STRING")
                 End If
             End If
@@ -63,7 +63,7 @@ Public Class frmRecOrgConfig_Basic
         End If
     End Sub
 
-    Private Sub chkUnicode_CheckedChanged(sender As Object, e As EventArgs) Handles chkUnicode.CheckedChanged
+    Private Sub chkUnicode_CheckedChanged(sender As Object, e As EventArgs)
         If loaded = True Then
             changes_PMOKonfig = True
             btnsave.Enabled = True
@@ -107,9 +107,9 @@ Public Class frmRecOrgConfig_Basic
         If changes_PMOKonfig = True Then
             Try
                 Dim wduni As Integer = 0
-                If chkUnicode.Checked Then
-                    wduni = 1
-                End If
+                'If chkUnicode.Checked Then
+                '    wduni = 1
+                'End If
                 Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET WIKI_STRING = '{0}', CHANGED_WHO = '{1}', WD_UNICODE = {2} WHERE GUID = 1", Me.txtWiki.Text, Environment.UserName, wduni)
 
                 If ClassDatabase.Execute_non_Query(upd, True) = True Then