Initial commit

EDOKA_Toolset - Kopie/Plugin_Outlook_Blacklist/Klassen/Class1.vb

@@ -0,0 +1,24 @@
+Public Class Class1
+    Implements EDOKA_PluginLib.IPlugin
+
+    Private objHost As EDOKA_PluginLib.IHost
+
+    Public Sub Initialize(ByVal Host As EDOKA_PluginLib.IHost) _
+    Implements EDOKA_PluginLib.IPlugin.Initialize
+        objHost = Host
+    End Sub
+
+    Public ReadOnly Property Name() As String Implements _
+    EDOKA_PluginLib.IPlugin.Name
+        Get
+            Return "Outlook-Addin DokTyp-Ausschluss"
+        End Get
+    End Property
+
+    Public Function Show(ByVal CurrentUser As String, Connectionstring As String, parentform As Object) Implements EDOKA_PluginLib.IPlugin.Show
+        Globals.Mitarbeiternr = CurrentUser
+        Dim f As New Form1
+        f.MdiParent = parentform
+        f.Show()
+    End Function
+End Class

EDOKA_Toolset - Kopie/Plugin_Outlook_Blacklist/Klassen/DB.vb

@@ -0,0 +1,87 @@
+Imports System.IO
+Imports System.Data.Sql
+Imports System.Data.SqlClient
+
+Public Class DB
+
+
+
+    Public dsDaten As New DataSet
+    Public dsdaten1 As New DataSet
+    Public dsdatenblacklist As New DataSet
+    Public dadaten As SqlDataAdapter
+    Public dadatenblacklist As SqlDataAdapter
+    Dim sql As String
+
+
+
+    Public Sub Get_Dokumenttypen()
+        Try
+            dsDaten.Clear()
+            sql = "Select dokumenttypnr, bezeichnung from dokumenttyp where aktiv=1 or aktiv = 0 order by bezeichnung"
+            dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
+            dadaten.Fill(dsDaten, "Dokumenttypen")
+        Catch
+        End Try
+    End Sub
+
+    Public Sub Get_Blacklist()
+        Try
+            dsdatenblacklist.Clear()
+            sql = "Select id ,[dokumenttypnr] AS DokTypNr, [Bemerkung] AS Bemerkung,[aktiv] AS Aktiv,[erstellt_am] AS Erstellt_am,[erstellt_von] AS Ersteler,[mutiert_am] AS Mutiert_am,[mutiert_von] AS Mutierer from email_dokumenttyp_blacklist order by dokumenttypnr"
+            dadatenblacklist = New SqlDataAdapter(sql, Globals.sConnectionstring)
+            dadatenblacklist.Fill(dsdatenblacklist, "Blacklist")
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Public Sub Get_Dokumentstatus_docm(dokumentstatusnr)
+        'Try
+        '    dsdatendocm.Clear()
+        '    sql = "Select * from dokumentstatus_docm where dokumentstatusnr=" + dokumentstatusnr.ToString + " and aktiv=1"
+        '    dadatendocm = New SqlDataAdapter(sql, Globals.sConnectionstring)
+        '    dadatendocm.Fill(dsdatendocm, "DocmDaten")
+        'Catch ex As Exception
+        '    MsgBox(ex.Message)
+        'End Try
+    End Sub
+
+    Sub Update_Daten()
+        Try
+            Dim cb As New SqlCommandBuilder(dadatenblacklist)
+            dadatenblacklist.Update(dsdatenblacklist, dsdatenblacklist.Tables(0).TableName)
+            'MsgBox("Änderungen wurden gespeichert")
+        Catch ex As Exception
+            MsgBox("Felher: " + ex.Message)
+        End Try
+    End Sub
+
+End Class
+
+
+Public Class DB_Connection
+
+    ''' <summary>
+    ''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
+    ''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
+    ''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
+    ''' 
+    ''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
+    ''' </summary>
+    ''' <remarks></remarks>
+    Shared Sub New()
+        Dim fc As Integer = 0
+        If fc < 2 Then Globals.ConnectionFilename = "edokaconn.cfg"
+        Dim ofile As System.IO.File
+        Dim oread As System.IO.StreamReader
+        oread = ofile.OpenText(ApplicationPath() + "\" + Globals.ConnectionFilename)
+        sConnectionString = oread.ReadLine
+        sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
+        sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
+        Globals.sConnectionString = sConnectionString
+        oread.Close()
+    End Sub
+
+End Class
+