jj: Subject Encoding & Deleting Groups

Global_Indexer/frmAdministration.en-US.resx

@@ -451,6 +451,15 @@
   <data name="SHORTNAMELabel.Text" xml:space="preserve">
     <value>Initials:</value>
   </data>
+  <data name="XtraTabPage1.Text" xml:space="preserve">
+    <value>Documenttypes</value>
+  </data>
+  <data name="XtraTabPage2.Text" xml:space="preserve">
+    <value>User-/Groupmanagement</value>
+  </data>
+  <data name="XtraTabPage5.Text" xml:space="preserve">
+    <value>Misc Settings</value>
+  </data>
   <data name="GroupBox6.Text" xml:space="preserve">
     <value>Overwrite file?</value>
   </data>
@@ -466,6 +475,36 @@
   <data name="lblObjekttyp.Text" xml:space="preserve">
     <value>Objecttype:</value>
   </data>
+  <data name="XtraTabPage3.Size" type="System.Drawing.Size, System.Drawing">
+    <value>974, 258</value>
+  </data>
+  <data name="XtraTabPage3.Text" xml:space="preserve">
+    <value>manual Indicies</value>
+  </data>
+  <data name="XtraTabControl2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>980, 286</value>
+  </data>
+  <data name="XtraTabPage6.Size" type="System.Drawing.Size, System.Drawing">
+    <value>974, 258</value>
+  </data>
+  <data name="XtraTabPage6.Text" xml:space="preserve">
+    <value>Postprocessing manual Indicies</value>
+  </data>
+  <data name="XtraTabPage4.Size" type="System.Drawing.Size, System.Drawing">
+    <value>974, 258</value>
+  </data>
+  <data name="XtraTabPage4.Text" xml:space="preserve">
+    <value>automatic/static Indicies</value>
+  </data>
+  <data name="XtraTabPage9.Size" type="System.Drawing.Size, System.Drawing">
+    <value>974, 258</value>
+  </data>
+  <data name="XtraTabPage9.Text" xml:space="preserve">
+    <value>Assignment Documenttype-Groups</value>
+  </data>
+  <data name="XtraTabPage10.Size" type="System.Drawing.Size, System.Drawing">
+    <value>974, 258</value>
+  </data>
   <data name="SAVE_VALUECheckBox.Text" xml:space="preserve">
     <value>Remember last successful input</value>
   </data>
@@ -555,15 +594,6 @@
         dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="XtraTabPage3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>974, 258</value>
-  </data>
-  <data name="XtraTabPage3.Text" xml:space="preserve">
-    <value>manual Indicies</value>
-  </data>
-  <data name="XtraTabControl2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>980, 286</value>
-  </data>
   <data name="lblsavePostProcess.Size" type="System.Drawing.Size, System.Drawing">
     <value>182, 17</value>
   </data>
@@ -659,12 +689,6 @@
         dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="XtraTabPage6.Size" type="System.Drawing.Size, System.Drawing">
-    <value>974, 258</value>
-  </data>
-  <data name="XtraTabPage6.Text" xml:space="preserve">
-    <value>Postprocessing manual Indicies</value>
-  </data>
   <data name="lblWindowParameter.Size" type="System.Drawing.Size, System.Drawing">
     <value>113, 13</value>
   </data>
@@ -785,15 +809,12 @@ The received values can be written to Indicies or used to rename a file.</value>
         dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="XtraTabPage4.Size" type="System.Drawing.Size, System.Drawing">
-    <value>974, 258</value>
-  </data>
-  <data name="XtraTabPage4.Text" xml:space="preserve">
-    <value>automatic/static Indicies</value>
-  </data>
   <data name="Button2.Text" xml:space="preserve">
     <value>Delete</value>
   </data>
+  <data name="GroupBox3.Text" xml:space="preserve">
+    <value>New group assignment</value>
+  </data>
   <data name="lblnewDokartZuordnung.Size" type="System.Drawing.Size, System.Drawing">
     <value>163, 13</value>
   </data>
@@ -809,27 +830,21 @@ The received values can be written to Indicies or used to rename a file.</value>
   <data name="btnAddDokartGroupRelation.Text" xml:space="preserve">
     <value>Assign Documenttype to group</value>
   </data>
-  <data name="GroupBox3.Text" xml:space="preserve">
-    <value>New group assignment</value>
-  </data>
   <data name="Label8.Size" type="System.Drawing.Size, System.Drawing">
     <value>258, 13</value>
   </data>
   <data name="Label8.Text" xml:space="preserve">
     <value>This Documenttype is assigned the following groups:</value>
   </data>
-  <data name="XtraTabPage9.Size" type="System.Drawing.Size, System.Drawing">
-    <value>974, 258</value>
-  </data>
-  <data name="XtraTabPage9.Text" xml:space="preserve">
-    <value>Assignment Documenttype-Groups</value>
-  </data>
   <data name="Label25.Size" type="System.Drawing.Size, System.Drawing">
     <value>336, 13</value>
   </data>
   <data name="Label25.Text" xml:space="preserve">
     <value>Contents of Date-Indicies are converted to YYYYMMDD automatically</value>
   </data>
+  <data name="GroupBox5.Text" xml:space="preserve">
+    <value>New Subdirectory:</value>
+  </data>
   <data name="Label20.Size" type="System.Drawing.Size, System.Drawing">
     <value>81, 15</value>
   </data>
@@ -851,18 +866,12 @@ The received values can be written to Indicies or used to rename a file.</value>
   <data name="Label18.Text" xml:space="preserve">
     <value>from Index-Value (auto or manual):</value>
   </data>
-  <data name="GroupBox5.Text" xml:space="preserve">
-    <value>New Subdirectory:</value>
-  </data>
   <data name="Label17.Size" type="System.Drawing.Size, System.Drawing">
     <value>113, 15</value>
   </data>
   <data name="Label17.Text" xml:space="preserve">
     <value>Variable folderpath</value>
   </data>
-  <data name="XtraTabPage10.Size" type="System.Drawing.Size, System.Drawing">
-    <value>974, 258</value>
-  </data>
   <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
     <value>92, 13</value>
   </data>
@@ -973,18 +982,24 @@ The received values can be written to Indicies or used to rename a file.</value>
   <data name="AKTIVCheckBox.Text" xml:space="preserve">
     <value>Active</value>
   </data>
-  <data name="XtraTabPage1.Text" xml:space="preserve">
-    <value>Documenttypes</value>
-  </data>
   <data name="lblsaveUSer.Size" type="System.Drawing.Size, System.Drawing">
     <value>131, 13</value>
   </data>
   <data name="lblsaveUSer.Text" xml:space="preserve">
     <value>User successfully saved!</value>
   </data>
+  <data name="XtraTabPage7.Text" xml:space="preserve">
+    <value>Assignment Group to User</value>
+  </data>
+  <data name="XtraTabPage8.Text" xml:space="preserve">
+    <value>Groupmanagement</value>
+  </data>
   <data name="btnDeleteGroupRelation.Text" xml:space="preserve">
     <value>Delete</value>
   </data>
+  <data name="GroupBox2.Text" xml:space="preserve">
+    <value>New Groupassignment:</value>
+  </data>
   <data name="lblnewUserZuordnung.Size" type="System.Drawing.Size, System.Drawing">
     <value>163, 13</value>
   </data>
@@ -1000,18 +1015,12 @@ The received values can be written to Indicies or used to rename a file.</value>
   <data name="btnAddGroupRelation.Text" xml:space="preserve">
     <value>Assign user to group</value>
   </data>
-  <data name="GroupBox2.Text" xml:space="preserve">
-    <value>New Groupassignment:</value>
-  </data>
   <data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
     <value>188, 13</value>
   </data>
   <data name="Label4.Text" xml:space="preserve">
     <value>User is assigned the following groups:</value>
   </data>
-  <data name="XtraTabPage7.Text" xml:space="preserve">
-    <value>Assignment Group to User</value>
-  </data>
   <data name="lblsaveTBDD_USER_GROUPS.Size" type="System.Drawing.Size, System.Drawing">
     <value>166, 17</value>
   </data>
@@ -1095,9 +1104,6 @@ The received values can be written to Indicies or used to rename a file.</value>
         dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII=
 </value>
   </data>
-  <data name="XtraTabPage8.Text" xml:space="preserve">
-    <value>Groupmanagement</value>
-  </data>
   <data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -1175,8 +1181,8 @@ The received values can be written to Indicies or used to rename a file.</value>
   <data name="ToolStripButton23.Text" xml:space="preserve">
     <value>Add AD User</value>
   </data>
-  <data name="XtraTabPage2.Text" xml:space="preserve">
+  <data name="GroupBox1.Text" xml:space="preserve">
-    <value>User-/Groupmanagement</value>
+    <value>Indexmapping for Email-Indexing</value>
   </data>
   <data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
     <value>75, 17</value>
@@ -1199,12 +1205,6 @@ The received values can be written to Indicies or used to rename a file.</value>
   <data name="btnidxemail_add.Text" xml:space="preserve">
     <value>Add</value>
   </data>
-  <data name="GroupBox1.Text" xml:space="preserve">
-    <value>Indexmapping for Email-Indexing</value>
-  </data>
-  <data name="XtraTabPage5.Text" xml:space="preserve">
-    <value>Misc Settings</value>
-  </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAICAAAAEACACoCAAAFgAAACgAAAAgAAAAQAAAAAEACAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAA

Global_Indexer/frmAdministration.vb

@@ -1,6 +1,11 @@
-Public Class frmAdministration
+Imports System.ComponentModel
+
+Public Class frmAdministration
     Public Shared _Namenkonvention As String
     Public Shared _aktDokart_Id As Integer
+
+    Private GroupToDelete As Integer = Nothing
+
     Private IsInsert As Boolean = False
     Dim frmloaded As Boolean = False
     Private Sub TBDD_DOKUMENTARTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingNavigatorSaveItem.Click
@@ -578,7 +583,7 @@
         End Try
     End Sub
     Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
-         Load_TabData()
+        Load_TabData()
     End Sub
     Private Sub ToolStripButton22_Click(sender As Object, e As EventArgs) Handles ToolStripButton22.Click
         Save_IndexAuto()
@@ -783,8 +788,14 @@
         Try
             TBDD_USER_GROUPSBindingSource.EndEdit()
             If MyDataset.TBDD_USER_GROUPS.GetChanges Is Nothing = False Then
+                Dim changes = MyDataset.TBDD_USER_GROUPS.GetChanges()
 
-
+                ' If a Group was selected and deleted, delete references in TBDD_USRGRP_DOCTYPE and TBDD_GROUPS_USER
+                If Not IsNothing(GroupToDelete) And MyDataset.TBDD_USER_GROUPS.GetChanges(DataRowState.Deleted) Is Nothing = False Then
+                    ClassDatabase.Execute_non_Query($"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE GROUP_ID = {GroupToDelete}")
+                    ClassDatabase.Execute_non_Query($"DELETE FROM TBDD_GROUPS_USER WHERE GROUP_ID = {GroupToDelete}")
+                    GroupToDelete = Nothing
+                End If
 
                 CHANGED_WHOTextBox5.Text = Environment.UserName
                 TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
@@ -918,8 +929,8 @@
 
                 End If
             Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
+                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
-        End Try
+            End Try
         End If
     End Sub
 
@@ -944,7 +955,7 @@
     End Sub
 
     Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click
-        Save_User
+        Save_User()
     End Sub
     Sub Save_User()
         Try
@@ -959,7 +970,7 @@
             End If
             If ClassDatabase.Execute_Scalar("SELECT MODULE_GI FROM TBDD_USER WHERE GUID = " & USER_GUIDTextBox.Text, MyConnectionString) = 0 Then
                 Dim sql As String = "UPDATE TBDD_USER SET MODULE_GI = 1 where GUID = " & USER_GUIDTextBox.Text
-                ClassDatabase.Execute_non_Query(Sql)
+                ClassDatabase.Execute_non_Query(sql)
 
             End If
         Catch ex As Exception
@@ -1156,4 +1167,15 @@
     Private Sub tsbtnRefreshAutomatic_Click(sender As Object, e As EventArgs) Handles tsbtnRefreshAutomatic.Click
         Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
     End Sub
+
+    Private Sub ToolStripButton33_Click(sender As Object, e As EventArgs) Handles ToolStripButton33.Click
+        Dim list As ListBox = ListBox4
+
+        If Not IsNothing(list.SelectedItem) Then
+            Dim item As DataRowView = list.SelectedItem
+            GroupToDelete = Integer.Parse(item.Row.Item("GUID"))
+        Else
+            GroupToDelete = Nothing
+        End If
+    End Sub
 End Class

Global_Indexer/frmIndex.vb

@@ -2206,7 +2206,7 @@ Public Class frmIndex
                     Me.grpBetreff.Dock = DockStyle.Top
                     Me.grpbxMailBody.Dock = DockStyle.Fill
                     Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
-                    msg_email.Encoding = Encoding.Unicode
+                    'msg_email.Encoding = Encoding.Unicode
 
                     Dim headers As String = ClassEmailHeaderExtractor.getMessageHeaders(msg_email)
                     If LogErrorsOnly = False Then ClassLogger.Add(" EMAIL-HEADER: " & headers, False)
@@ -2226,11 +2226,17 @@ Public Class frmIndex
                     If My.Computer.FileSystem.FileExists(tempFilename) Then
                         My.Computer.FileSystem.DeleteFile(tempFilename)
                     End If
-                    If msg_email_unicode.Subject = "" Then
+
+                    Dim codepage As Integer = Console.OutputEncoding.CodePage
+                    Dim msg_email_subject As New Msg.Message()
+                    msg_email_subject.Encoding = Encoding.GetEncoding(codepage)
+                    msg_email_subject.Open(CURRENT_WORKFILE)
+
+                    If msg_email_subject.Subject = "" Then
                         Me.txtBetreff.Text = "!!No subject in email!!"
                     Else
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...subject before converting: '" & msg_email_unicode.Subject & "'", False)
+                        If LogErrorsOnly = False Then ClassLogger.Add(" ...subject before converting: '" & msg_email_subject.Subject & "'", False)
-                        Dim betreff = ClassHelper.encode_utf8(msg_email_unicode.Subject)
+                        Dim betreff = ClassHelper.encode_utf8(msg_email_subject.Subject)
                         If Not IsNothing(betreff) Then
                             If ClassHelper.CheckSpecialSigns(betreff) > 0 Then
 
@@ -2240,7 +2246,7 @@ Public Class frmIndex
                             Me.txtBetreff.Text = betreff
                         Else
                             ClassLogger.Add(" ...subject could not be converted to utf8!", False)
-                            Me.txtBetreff.Text = msg_email_unicode.Subject
+                            Me.txtBetreff.Text = msg_email_subject.Subject
                         End If
                     End If