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 dsdatendocm As New DataSet
    Public dadaten As SqlDataAdapter
    Public dadatendocm 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_Dokumenttypen_mit_docm()
        Try
            dsDaten.Clear()
            sql = "Select dokumenttypnr, bezeichnung FROM dbo.dokumenttyp WHERE (aktiv = 1 Or aktiv = 0) And (dokumenttypnr In (Select Dokumenttypnr frOM dbo.Dokumentstatus_DOCM_Definition)) ORDER BY bezeichnung"
            dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
            dadaten.Fill(dsDaten, "Dokumenttypen")
        Catch
        End Try
    End Sub

    Public Sub Get_Dokumentstatus(dokumenttypnr As Integer)
        Try
            dsdaten1.Clear()
            sql = " SELECT dbo.dokumentstatus.dokumentstatusnr, dbo.status_bezeichnung.bezeichnung, dbo.dokumentstatus.statustyp, dbo.status_bezeichnung.status_bezeichnungnr "
            sql = sql + " FROM dbo.dokumentstatus INNER JOIN  dbo.status_bezeichnung ON dbo.dokumentstatus.status_bezeichnungnr = dbo.status_bezeichnung.status_bezeichnungnr"
            sql = sql + " WHERE(dbo.dokumentstatus.aktiv=1 and  dbo.dokumentstatus.dokumenttypnr = " + dokumenttypnr.ToString + ") "
            sql = sql + " ORDER BY dbo.dokumentstatus.statustyp, dbo.dokumentstatus.reihenfolge"
            dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
            dadaten.Fill(dsdaten1, "DokumentStatsu")
        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(dadatendocm)
            dadatendocm.Update(dsdatendocm, dsdatendocm.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 path As String = ""
        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()

        Dim connection As New SqlConnection()
        Dim da As New SqlDataAdapter("Select  beschreibung from pluginparameter where pluginparamnr=1", connection)
        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()
        Try
            connection.ConnectionString = Globals.sConnectionstring
            connection.Open()
            da.Fill(ds, "params")
            path = ds.Tables(0).Rows(0).Item(0)
        Catch ex As Exception
            path = ""
            CB = Nothing
        End Try

        ds = Nothing
        da = Nothing
        connection.Close()
        connection = Nothing

        Globals.ConnectionFilename = "edokaconn.cfg"
        oread = ofile.OpenText(path + "\" + 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