Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1

    Dim ds As New DataSet
    Dim vertragspartnernr As Integer
    Dim dr As DataRow

    Dim Protokoll_Produkt As String
    Dim Protokoll_Applnr As Integer
    Dim Protokoll_Migriert As Boolean
    Dim Protokoll_Bemerkung As String
#Region "Alt"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        globals.conn.sConnectionString = globals.connstr
        Me.Get_Vertragsdata_Data()
        load_vdb()
        MsgBox("fertig")

        'Me.OpenFileDialog1.ShowDialog()
        'If Me.OpenFileDialog1.FileName <> "" Then
        'Read_CSV(Me.OpenFileDialog1.FileName)
        'load_vdb()
        'End If
    End Sub

    Private Sub Read_CSV(ByVal filename As String)
        globals.conn.sConnectionString = globals.connstr

        verify_csv(filename)
        Dim csv As New MyNameSpace.CSVDataAdapter(filename + "_for_Input.csv", True, ";")
        csv.Fill(ds)
    End Sub
    Sub load_vdb()

        globals.conn.OpenConnection()

        For Each dr In ds.Tables(0).Rows
            vertragspartnernr = Check_Vertragspartner(dr.Item("Vertragspartner"))
            If vertragspartnernr = 0 Then vertragspartnernr = Add_Vertragspartner(dr.Item("Vertragspartner"))
            Insert_Vertragselement(vertragspartnernr)
        Next

    End Sub

    Private Sub Verify_CSV(ByVal filename As String)
        Dim tr As New System.IO.StreamReader(filename)
        Dim ts As New System.IO.StreamWriter(filename & "_for_Input.csv")
        Dim s As String
        Dim x As String
        While Not tr.EndOfStream
            s = tr.ReadLine
            s = Trim(s)
            If Microsoft.VisualBasic.Right(s, 3) <> "EOL" Then
                x = ""
                While Microsoft.VisualBasic.Right(s, 3) <> "EOL" And Not tr.EndOfStream
                    If x <> "" Then x = x + " ;" + s Else x = s
                    s = tr.ReadLine
                    s = Trim(s)
                End While
                x = x + s
                ts.WriteLine(x)
            Else
                ts.WriteLine(s)
            End If
        End While
        ts.Flush()
        ts.Close()
        tr.Close()
    End Sub
    Private Function Check_Vertragspartner(ByVal Vertragspartner As String) As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "select vertragspartnernr from vertragspartner where NameZ1='" & Vertragspartner & "'"
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 0 Then
                Return dtToReturn.Rows(0).Item(0)
            Else
                Return 0
            End If
        Catch ex As Exception
            MsgBox("Check-Vertragspartner: " + Vertragspartner + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Dim vp As New TKB.VV.DB.clsVertragspartner

    Public Function Add_Vertragspartner(ByVal Vertragspartnername As String) As Integer
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("Vertragspartner")
        db.Dispose()
        vp.iVertragspartnerNr = New SqlInt32(CType(newkey, Int32))
        vp.sNameZ1 = New SqlString(CType(Vertragspartnername, String))
        vp.sNameZ2 = New SqlString(CType("", String))
        vp.sStrasse = New SqlString(CType("", String))
        vp.sPostfach = New SqlString(CType("", String))
        vp.sPLZ = New SqlString(CType("", String))
        vp.sOrt = New SqlString(CType("", String))
        vp.sTelefon = New SqlString(CType("", String))
        vp.sTelefax = New SqlString(CType("", String))
        vp.sEMail = New SqlString(CType("", String))
        vp.sInternet = New SqlString(CType("", String))
        vp.sBemerkung = New SqlString(CType("", String))
        vp.bAktiv = New SqlBoolean(CType(True, Boolean))
        vp.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        vp.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        vp.iMutierer = New SqlInt32(CType(1, Int32))
        vp.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
        vp.cpMainConnectionProvider = globals.conn
        globals.conn.OpenConnection()
        vp.Insert()
        globals.conn.CloseConnection(True)
        Return newkey
    End Function

    Dim ve As New TKB.VV.DB.clsVertragselement

    Public Function Insert_Vertragselement(ByVal vertragspartnernr As Integer)
        Dim Beschreibung As String = ""

        ve.cpMainConnectionProvider = globals.conn
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("Vertragselement")
        db.Dispose()
        ve.iVertragselementnr = New SqlInt32(CType(newkey, Int32))


        'Basis-Initialisierung
        ve.iParentID = New SqlInt32(CType(0, Int32))
        ve.daVersionsdatum = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        ve.daVertragsbeginn = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        ve.daVertragsablauf = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        ve.daMindestvertragsdauer_bis = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        ve.daUnterzeichnet_am = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        ve.daGekuendigt_am = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        ve.daGekuendigt_per = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        ve.bAktiv = New SqlBoolean(CType(True, Boolean))
        ve.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ve.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ve.iMutierer = New SqlInt32(CType(1, Int32))
        ve.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
        ve.cpMainConnectionProvider = globals.conn
        ve.iApplikationNr = New SqlInt32(CType(0, Int32))
        ve.iLizenztypnr = New SqlInt32(CType(0, Int32))

        'Migration ab Excel/CSV
        If Not dr.Item("Vertragsnummer") Is System.DBNull.Value Then
            ve.sNummer = New SqlString(CType(dr.Item("Vertragsnummer").ToString, String))
        Else
            ve.sNummer = New SqlString(CType("", String))
        End If
        If Not dr.Item("Version") Is System.DBNull.Value Then
            ve.sVersion = New SqlString(CType(dr.Item("Version").ToString, String))
        Else
            ve.sVersion = New SqlString(CType("", String))
        End If
        If Not dr.Item("Vertragsbezeichnung") Is System.DBNull.Value Then
            ve.sBezeichnung = New SqlString(CType(dr.Item("Vertragsbezeichnung").ToString, String))
        Else
            ve.sBezeichnung = New SqlString(CType("", String))
        End If
        ve.iVertragspartnerNr = New SqlInt32(CType(vertragspartnernr, Int32))
        ve.iVertragstypNr = New SqlInt32(CType(4, Int32))
        insert_beschreibung(Beschreibung, "Leistungsart")
        insert_beschreibung(Beschreibung, "KST_Projektnummer")
        insert_beschreibung(Beschreibung, "Konto")
        insert_beschreibung(Beschreibung, "BP_NOVA")
        insert_beschreibung(Beschreibung, "BP_in_2008")
        insert_beschreibung(Beschreibung, "BP_in_2009")
        insert_beschreibung(Beschreibung, "Zahlungsplan_2008")
        insert_beschreibung(Beschreibung, "Zahlungsplan_2008_1")
        insert_beschreibung(Beschreibung, "Zahlungsplan_2008_2")
        insert_beschreibung(Beschreibung, "Bemerkungen")
        insert_beschreibung(Beschreibung, "Bereits_in_2008_bezahlt")
        insert_beschreibung(Beschreibung, "Bemerkung")
        insert_beschreibung(Beschreibung, "Zahlungsplan_2009")
        insert_beschreibung(Beschreibung, "Bemerkungen_1")
        insert_beschreibung(Beschreibung, "Zahlungsplan_2010")
        insert_beschreibung(Beschreibung, "Zahlungsplan_2011")
        insert_beschreibung(Beschreibung, "Zahlungsplan_2012")

        If IsDate(dr.Item("Vertragsdatum")) Then
            ve.daUnterzeichnet_am = New SqlDateTime(CType(dr.Item("Vertragsdatum"), DateTime))
        Else
            insert_beschreibung(Beschreibung, "Vertragsdatum")
        End If
        If IsDate(dr.Item("Vertragsbeginn")) Then
            ve.daVertragsbeginn = New SqlDateTime(CType(dr.Item("Vertragsbeginn"), DateTime))
        Else
            insert_beschreibung(Beschreibung, "Vertragsbeginn")
        End If
        If IsDate(dr.Item("Vertragsende")) Then
            ve.daVertragsablauf = New SqlDateTime(CType(dr.Item("Vertragsende"), DateTime))
        Else
            insert_beschreibung(Beschreibung, "Vertragsende")
        End If
        insert_beschreibung(Beschreibung, "Vertragsende_Jahr")

        insert_beschreibung(Beschreibung, "Kuendigungsfrist")
        insert_beschreibung(Beschreibung, "Kuendigungstermin")
        insert_beschreibung(Beschreibung, "Erinnerungsfunktion")
        insert_beschreibung(Beschreibung, "FRAGEN _Bemerkungen")

        insert_beschreibung(Beschreibung, "Erfassungsdatum_Aenderungsdatum")
        insert_beschreibung(Beschreibung, "Ansprechpersonen_TKB")
        If Not dr.Item("Status") Is System.DBNull.Value Then
            If UCase(dr.Item("Status")) = "INAKTIV" Then
                ve.bAktiv = New SqlBoolean(CType(False, Boolean))
            Else
                ve.bAktiv = New SqlBoolean(CType(True, Boolean))
            End If
        Else
            ve.bAktiv = New SqlBoolean(CType(True, Boolean))
        End If


        ve.sBeschreibung = New SqlString(CType(Beschreibung, String))
        globals.conn.OpenConnection()
        ve.Insert()
        globals.conn.CloseConnection(True)
    End Function

    Private Sub insert_beschreibung(ByRef beschreibung As String, ByVal columnname As String)
        Dim s As String = columnname
        While Len(s) < 25
            s = s + " "
        End While
        If Not dr.Item(columnname) Is System.DBNull.Value Then
            beschreibung = beschreibung + "- " + s + ": " + dr.Item(columnname).ToString + vbCrLf
        Else
            beschreibung = beschreibung + "- " + s + ": " + vbCrLf
        End If
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        globals.conn.sConnectionString = globals.connstr
        Me.Get_Appl_Data()
        Load_Appl()
        MsgBox("Fertig")

        'Me.OpenFileDialog1.ShowDialog()
        'If Me.OpenFileDialog1.FileName <> "" Then
        'Read_CSV(Me.OpenFileDialog1.FileName)
        'Load_Appl()
        'End If
    End Sub

    Dim Parentid As Integer

    Dim Applikation As String
    Dim Modul As String

    Dim drakt As DataRow
    Dim drnext As DataRow
    Dim drprev As DataRow

    Private Sub Load_Appl()

        globals.conn.OpenConnection()

        Dim i As Integer = 0
        For i = 0 To ds.Tables(0).Rows.Count - 1
            drakt = ds.Tables(0).Rows(i)
            If drakt.Item("Applikationen").ToString = "EOF" Then Exit Sub
            Try
                drnext = ds.Tables(0).Rows(i + 1)
            Catch
                drnext = drakt
            End Try
            dr = drakt


            'Applikation
            If drakt.Item("Applikationen") = "" And dr.Item("Modul").ToString = "" Then dr.Item("Modul") = dr.Item("Applikationen").ToString
            If drnext.Item("Applikationen").ToString = "" Then
                drnext.Item("Applikationen") = drakt.Item("Applikationen").ToString
            End If

            If drakt.Item("Applikationen").ToString = drnext.Item("Applikationen").ToString Then
                Parentid = Check_Applikationsgruppe(drakt.Item("Applikationen").ToString)
                If Parentid = 0 Then
                    Parentid = Me.Add_Applikation(drakt.Item("Applikationen").ToString, 0)
                    Me.Add_Applikation(drakt.Item("Modul").ToString, Parentid)
                Else
                    Me.Add_Applikation(drakt.Item("Modul").ToString, Parentid)
                End If
                'Parentid = Check_Applikationsgruppe(drakt.Item("Applikationen").ToString)
                'If Parentid <> 0 Then Me.Add_Applikation(drakt.Item("Modul").ToString, Parentid) Else Me.Add_Applikation(drakt.Item("Applikationen").ToString, Parentid)
            Else
                Parentid = Check_Applikationsgruppe(drakt.Item("Applikationen").ToString)
                If Parentid <> 0 Then Me.Add_Applikation(drakt.Item("Modul").ToString, Parentid) Else Me.Add_Applikation(drakt.Item("Applikationen").ToString, Parentid)

            End If
        Next
    End Sub

    Private Function Check_Applikationsgruppe(ByVal Applikation As String) As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "select Applikationnr from applikation where bezeichnung='" & Applikation & "'"
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 0 Then
                Return dtToReturn.Rows(0).Item(0)
            Else
                Return 0
            End If
        Catch ex As Exception
            MsgBox("Check_Applikationsgruppe: " + Applikation + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function
    Dim ap As New TKB.VV.DB.clsApplikation
    Private Function Add_Applikation(ByVal applikation As String, ByVal parentid As Integer) As Integer
        Dim Beschreibung As String = ""
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("Applikation")
        db.Dispose()
        ap.iApplikationNr = New SqlInt32(CType(newkey, Int32))
        ap.sBezeichnung = New SqlString(CType(applikation, String))
        ap.sPrioWiederanlauf = New SqlString(CType(dr.Item("Geschaeftsrelevanz").ToString, String))
        ap.iApplikationVerantwortungNr = New SqlInt32(CType(Get_Verantwortung(), Int32))
        ap.iApplikationKategorieNr = New SqlInt32(CType(Get_Kategorie(), Int32))
        ap.iMarktbereichnr = New SqlInt32(CType(Get_Marktbereich(), Int32))
        ap.iRfcBoardNr = New SqlInt32(CType(Me.Get_RFCBoard, Int32))
        ap.iApplikationTeamNr = New SqlInt32(CType(-1, Int32))
        If drakt.Item("Verantwortung").ToString = "IT&Projekte" Then
            ap.iApplikationTeamNr = New SqlInt32(CType(get_Team, Int32))

        End If

        'KeyUser
        If Trim(dr.Item("Key_User").ToString) <> "" Then
            Dim kontaktnr As Integer = Get_Kontakt(dr.Item("Key_User"))
            Insert_Kontakt(newkey, kontaktnr, 1)
        End If

        If Trim(dr.Item("Key_User_STV").ToString) <> "" Then
            'KeyUser-Stv
            Dim kontaktnr1 As Integer = Get_Kontakt(dr.Item("Key_User_STV"))
            Insert_Kontakt(newkey, kontaktnr1, 2)
        End If

        If Trim(dr.Item("Fachunterstuetzung").ToString) <> "" Then
            'Fachunterstützung
            Dim kontaktnr2 As Integer = Get_Kontakt(dr.Item("Fachunterstuetzung"))
            Insert_Kontakt(newkey, kontaktnr2, 3)
        End If


        'KeyUser, KeyUser-STV, Fachunterstürtung

        insert_beschreibung(Beschreibung, "Modul")
        insert_beschreibung(Beschreibung, "Avaloq-Umsystem")
        insert_beschreibung(Beschreibung, "Appl-Migra-tions-Typ")
        insert_beschreibung(Beschreibung, "Applikations-Aufruf")
        insert_beschreibung(Beschreibung, "AD-Gruppe fuer TS-Publ")
        insert_beschreibung(Beschreibung, "Applikations-Typ")
        insert_beschreibung(Beschreibung, "TS Silo")

        ap.sVersion = New SqlString(CType(dr.Item("SW Version").ToString, String))

        insert_beschreibung(Beschreibung, "Source vorhanden")
        insert_beschreibung(Beschreibung, "Bestehendes SW-Paket")
        insert_beschreibung(Beschreibung, "Anpassen Bestehndes  SW-Paket")
        insert_beschreibung(Beschreibung, "Bereitstellung SW Paket per")
        insert_beschreibung(Beschreibung, "Appl-Server")
        insert_beschreibung(Beschreibung, "DB-Server")
        insert_beschreibung(Beschreibung, "WEB-Server")

        insert_beschreibung(Beschreibung, "Zuteilung auf Silo")
        insert_beschreibung(Beschreibung, "ICONs_ bestehend")
        insert_beschreibung(Beschreibung, "ICONs_neu")
        insert_beschreibung(Beschreibung, "Datenbank")
        insert_beschreibung(Beschreibung, "Aufschaltung")
        insert_beschreibung(Beschreibung, "Aussetzung nach TTD")
        insert_beschreibung(Beschreibung, "Ergaenzung ISI")
        insert_beschreibung(Beschreibung, "Ergaenzung ISI_1")
        insert_beschreibung(Beschreibung, "Fragen und Abklaerungen")
        insert_beschreibung(Beschreibung, "Verantwortung")
        insert_beschreibung(Beschreibung, "Marktbereich")
        insert_beschreibung(Beschreibung, "Abteilung")
        insert_beschreibung(Beschreibung, "RFC")

        ap.sKurzbeschreibung = New SqlString(CType(Beschreibung, String))

        ap.sDatenbankname = New SqlString(CType("", String))
        ap.sAnzahl_Installationen = New SqlString(CType("", String))
        ap.iParentID = New SqlInt32(CType(parentid, Int32))
        ap.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
        ap.iTicketXPert_ApplikationKritikalitaetTypNr = New SqlInt32(CType(0, Int32))
        ap.iTicketXPert_ApplikationSMLTypNr = New SqlInt32(CType(0, Int32))
        ap.bAlsProdukt = New SqlBoolean(CType(False, Boolean))
        ap.bNurLizenz = New SqlBoolean(CType(False, Boolean))
        ap.bRAS = New SqlBoolean(CType(False, Boolean))
        ap.bTicketXPert_AMAnzeigen = New SqlBoolean(CType(False, Boolean))
        ap.bTicketXPert_WPIAnzeigen = New SqlBoolean(CType(False, Boolean))
        ap.sTest_Abhaengigkeiten = New SqlString(CType("", String))
        ap.sTest_Arbeitsplaetze = New SqlString(CType("", String))
        ap.sTest_Aufwand = New SqlString(CType("0", String))
        ap.sTest_Bemerkung = New SqlString(CType("", String))
        ap.sTest_Bemerkung = New SqlString(CType("", String))
        ap.bTicketXPertVerwendung = New SqlBoolean(CType(False, Boolean))
        ap.sTicketXPert_Preis = New SqlString(CType("", String))
        ap.sTicketXPert_Preis_Einmalig = New SqlString(CType("", String))
        ap.bAktiv = New SqlBoolean(CType(True, Boolean))
        ap.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ap.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ap.iMutierer = New SqlInt32(CType(1, Int32))
        ap.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
        ap.cpMainConnectionProvider = globals.conn
        globals.conn.OpenConnection()
        ap.Insert()
        globals.conn.CloseConnection(True)
        Return newkey

    End Function


    Private Function Get_Kategorie() As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "select ApplikationKategorieNr from applikationkategorie where bezeichnung='" & drakt.Item("Applikatios-Kategorie").ToString & "'"
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 0 Then
                Return dtToReturn.Rows(0).Item(0)
            Else

            End If
        Catch ex As Exception
            MsgBox("Check_Applikationsgruppe: " + Applikation + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

        Dim ak As New TKB.VV.DB.clsApplikationKategorie
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("ApplikationKategorie")
        ak.iApplikationKategorieNr = New SqlInt32(CType(newkey, Int32))
        ak.sBeschreibung = New SqlString(CType("Migriert", String))
        ak.sBezeichnung = New SqlString(CType(drakt.Item("Applikatios-Kategorie").ToString, String))
        ak.iMutierer = New SqlInt32(CType(1, Int32))
        ak.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ak.daMutier_am = New SqlDateTime(CType(Now, DateTime))
        ak.bAktiv = New SqlBoolean(CType(True, Boolean))
        ak.cpMainConnectionProvider = globals.conn
        globals.conn.OpenConnection()
        ak.Insert()
        globals.conn.CloseConnection(True)
        ak.Dispose()
        db.Dispose()
        Return newkey
    End Function

    Private Function Get_Verantwortung() As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "select GremiumGruppierungnr from GremiumGruppierung where GremiumNr=3 and Gruppierungsbegriff='" & drakt.Item("Verantwortung").ToString & "'"
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 0 Then
                Return dtToReturn.Rows(0).Item(0)
            Else

            End If
        Catch ex As Exception
            MsgBox("Get_Verantwortung: " + Applikation + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

        Dim Gp As New TKB.VV.DB.clsGremiumGruppierung
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("GremiumGruppierung")
        Gp.iGremiumGruppierungNr = New SqlInt32(CType(newkey, Int32))
        Gp.iGremiumNr = New SqlInt32(CType(3, Int32))
        Gp.iMutierer = New SqlInt32(CType(1, Int32))
        Gp.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        Gp.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        Gp.bAktiv = New SqlBoolean(CType(True, Boolean))

        Gp.sGruppierungsbegriff = New SqlString(CType(drakt.Item("Verantwortung").ToString, String))
        Gp.iReihenfolge = New SqlInt32(CType(0, Int32))
        Gp.sBeschreibung = New SqlString(CType("Verantwrotung - migriert", String))
        Gp.cpMainConnectionProvider = globals.conn
        globals.conn.OpenConnection()
        Gp.Insert()
        globals.conn.CloseConnection(True)
        Gp.Dispose()
        db.Dispose()
        Return newkey
    End Function

    Private Function Get_Marktbereich() As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        Dim sql As String
        Try
            If (drakt.Item("Marktbereich").ToString.Substring(5, 11)) = "dialbereich" Then
                sql = "select GremiumGruppierungNr from GremiumGruppierung where GremiumNr=4 and Gruppierungsbegriff='" & drakt.Item("Verantwortung").ToString & "'"
            Else
                sql = "select GremiumGruppierungNr from GremiumGruppierung where GremiumNr=4 and Gruppierungsbegriff='" & drakt.Item("Marktbereich").ToString & "'"
            End If
        Catch ex As Exception
            sql = "select GremiumGruppierungNr from GremiumGruppierung where GremiumNr=4 and Gruppierungsbegriff='" & drakt.Item("Marktbereich").ToString & "'"
        End Try

        scmCmdToExecute.CommandText = sql
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 0 Then
                Return dtToReturn.Rows(0).Item(0)
            Else

            End If
        Catch ex As Exception
            MsgBox("Get_Verantwortung: " + Applikation + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

        Dim Gp As New TKB.VV.DB.clsGremiumGruppierung
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("GremiumGruppierung")
        Gp.iGremiumGruppierungNr = New SqlInt32(CType(newkey, Int32))
        Gp.iGremiumNr = New SqlInt32(CType(4, Int32))
        Gp.iMutierer = New SqlInt32(CType(1, Int32))
        Gp.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        Gp.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        Gp.bAktiv = New SqlBoolean(CType(True, Boolean))
        Try
            If drakt.Item("Marktbereich").ToString.Substring(5, 11) = "dialbereich" Then
                Gp.sGruppierungsbegriff = New SqlString(CType(drakt.Item("Verantwortung").ToString, String))
            Else
                Gp.sGruppierungsbegriff = New SqlString(CType(drakt.Item("Marktbereich").ToString, String))
            End If
        Catch ex As Exception
            Gp.sGruppierungsbegriff = New SqlString(CType(drakt.Item("Marktbereich").ToString, String))
        End Try
        Gp.iReihenfolge = New SqlInt32(CType(0, Int32))
        Gp.sBeschreibung = New SqlString(CType("Marktbereich - migriert", String))
        Gp.cpMainConnectionProvider = globals.conn
        globals.conn.OpenConnection()
        Gp.Insert()
        globals.conn.CloseConnection(True)
        Gp.Dispose()
        db.Dispose()
        Return newkey

    End Function

    Private Function Get_RFCBoard() As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "select GremiumBereichNr from GremiumBereich where GremiumGruppierungNr=1 and Bereich='" & drakt.Item("RFC").ToString & "'"
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 0 Then
                Return dtToReturn.Rows(0).Item(0)
            Else

            End If
        Catch ex As Exception
            MsgBox("Get_Verantwortung: " + Applikation + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

        Dim Gp As New TKB.VV.DB.clsGremiumBereich
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("GremiumBereich")
        Gp.iGremiumBereichNr = New SqlInt32(CType(newkey, Int32))
        Gp.iGremiumGruppierungNr = New SqlInt32(CType(1, Int32))
        Gp.iMutierer = New SqlInt32(CType(1, Int32))
        Gp.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        Gp.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        Gp.bAktiv = New SqlBoolean(CType(True, Boolean))

        Gp.sBereich = New SqlString(CType(drakt.Item("RFC").ToString, String))
        Gp.iSortierung = New SqlInt32(CType(0, Int32))
        Gp.sBeschreibung = New SqlString(CType("RFCBoard - migriert", String))
        Gp.cpMainConnectionProvider = globals.conn
        globals.conn.OpenConnection()
        Gp.Insert()
        globals.conn.CloseConnection(True)
        Gp.Dispose()
        db.Dispose()
        Return newkey

    End Function

    Private Function Get_Team() As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "select GremiumBereichNr from GremiumBereich where GremiumGruppierungnr=3 and Bereich='" & drakt.Item("Abteilung").ToString & "'"
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 0 Then
                Return dtToReturn.Rows(0).Item(0)
            Else

            End If
        Catch ex As Exception
            MsgBox("Get_Verantwortung: " + Applikation + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
        Return -1

    End Function


    Private Function Get_Kontakt(ByVal Kontakt As String) As Integer

        Dim fn As String = ""
        Dim ln As String = ""
        If Trim(Kontakt) = "" Then
            ln = ""
            fn = ""
        Else
            Dim sp() As String = Split(Kontakt, " ")
            Try
                ln = sp(1)
            Catch ex As Exception

            End Try
            Try
                fn = sp(0)
            Catch ex As Exception

            End Try
        End If
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "select personnr from person where Name='" & ln & "' and vorname='" & fn & "'"
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 0 Then
                Return dtToReturn.Rows(0).Item(0)
            Else

            End If
        Catch ex As Exception
            MsgBox("Get_Kontakt: " + Applikation + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

        Dim ak As New TKB.VV.DB.clsPerson
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("Person")
        ak.iPersonNr = New SqlInt32(CType(newkey, Int32))
        ak.iVertragspartnernr = New SqlInt32(CType(1, Int32))
        ak.sName = New SqlString(CType(ln, String))
        ak.sVorname = New SqlString(CType(fn, String))
        ak.sStrasse = New SqlString(CType("", String))
        ak.sPostfach = New SqlString(CType("", String))
        ak.sPlz = New SqlString(CType("", String))
        ak.sOrt = New SqlString(CType("", String))
        ak.sTelefon = New SqlString(CType("", String))
        ak.sTelefax = New SqlString(CType("", String))
        ak.sEMail = New SqlString(CType("", String))
        ak.sInternet = New SqlString(CType("", String))
        ak.sBemerkung = New SqlString(CType("", String))
        ak.bAktiv = New SqlBoolean(CType(True, Boolean))
        ak.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ak.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ak.iMutierer = New SqlInt32(CType(1, Int32))
        ak.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
        ak.cpMainConnectionProvider = globals.conn
        globals.conn.OpenConnection()
        ak.Insert()
        globals.conn.CloseConnection(True)
        Return newkey
    End Function

    Private Sub Insert_Kontakt(ByVal appnr As Integer, ByVal kontaktnr As Integer, ByVal typ As Integer)
        Dim ak As New TKB.VV.DB.clsApplikationKontakt
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("ApplikationKontakt")
        db.Dispose()
        ak.iApplikationKontaktnr = New SqlInt32(CType(newkey, Int32))
        ak.iApplikationnr = New SqlInt32(CType(appnr, Int32))
        ak.iKontakttypNr = New SqlInt32(CType(typ, Int32))
        ak.iPersonNr = New SqlInt32(CType(kontaktnr, Int32))
        ak.bIntern = New SqlBoolean(CType(False, Boolean))
        ak.sBemerkung = New SqlString(CType("Migriert", String))
        ak.bAktiv = New SqlBoolean(CType(True, Boolean))
        ak.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ak.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ak.iMutierer = New SqlInt32(CType(1, Int32))
        ak.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
        ak.cpMainConnectionProvider = globals.conn
        globals.conn.OpenConnection()
        ak.Insert()
        globals.conn.CloseConnection(True)
    End Sub


    'Sub test()
    '    Me.OpenFileDialog1.ShowDialog()


    '    'Dim sConnectionString As String = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=E:\Software-Projekte\Vertragsverwaltung\Tools\MigrDaten_Aktuell;Extensions=asc,csv,tab,txt;"
    '    'Dim objConn As New Odbc.OdbcConnection(sConnectionString)
    '    '> 'Dim sConnectionString As String =
    '    '> "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Directory &
    '    '> ";Extended Properties=""text;HDR=Yes;FMT=CSVDelimited"""
    '    Dim objConn As New OleDb.OleDbConnection(sConnectionString)
    '    objConn.Open()

    '    'Dim objCmdSelect As New Odbc.OdbcCommand("SELECT * FROM " & OpenFileDialog1.FileName, objConn)
    '    'Dim objAdapter1 As New Odbc.OdbcDataAdapter

    '    Dim objCmdSelect As New OleDb.OleDbCommand("SELECT * FROM " & Me.OpenFileDialog1.FileName, objConn)
    '    Dim objAdapter1 As New OleDb.OleDbDataAdapter()
    '    objAdapter1.SelectCommand = objCmdSelect

    '    Dim objDataset1 As New DataSet()
    '    objAdapter1.Fill(objDataset1, "Table1")
    '    objConn.Close()

    '    Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; DataSource=c:\" + Me.OpenFileDialog1.FileName + ";Extended Properties=""Text;HDR=No;FMT=Delimited""")
    '    Dim da As New OleDbDataAdapter()
    '    Dim ds As New DataSet()

    '    Dim cd As New OleDbCommand("SELECT * FROM " + Me.OpenFileDialog1.FileName, cn)

    '    cn.Open()
    '    da.SelectCommand = cd
    '    ds.Clear()
    '    da.Fill(ds, "CSV")

    '    cn.Close()

    Sub Get_IT_Koordinatoren()
        Dim mdbCon As New mdbConnectClass(Datafilename)
        Dim mdbTbl As mdbClass = mdbCon.SqlToTable("SELECT * FROM ITK order by ID", "ITK")
        Dim dt As New DataTable
        ds.Tables.Clear()
        ds.Tables.Add(mdbTbl.DataTable.Copy)
    End Sub
    Sub Get_Vertragsdata_Data()
        Dim mdbCon As New mdbConnectClass(Datafilename)
        Dim mdbTbl As mdbClass = mdbCon.SqlToTable("SELECT * FROM Vertragsdatenbank", "Vertragsdatenbank")
        Dim dt As New DataTable
        ds.Tables.Clear()
        ds.Tables.Add(mdbTbl.DataTable.Copy)
    End Sub
    Sub Get_Appl_Data()
        Dim mdbCon As New mdbConnectClass(Datafilename)
        Dim mdbTbl As mdbClass = mdbCon.SqlToTable("SELECT * FROM ApplikationsListe", "ApplikationsListe")
        Dim dt As New DataTable
        ds.Tables.Clear()
        ds.Tables.Add(mdbTbl.DataTable.Copy)
    End Sub

    Sub Get_MA_Data()
        Dim mdbCon As New mdbConnectClass(Datafilename)
        Dim mdbTbl As mdbClass = mdbCon.SqlToTable("SELECT * FROM MA", "MA")
        Dim dt As New DataTable
        ds.Tables.Clear()
        ds.Tables.Add(mdbTbl.DataTable.Copy)
    End Sub
    Sub Get_swportfolio_Data()
        Dim mdbCon As New mdbConnectClass(Datafilename)
        Dim mdbTbl As mdbClass = mdbCon.SqlToTable("SELECT * FROM sw_portfolio", "sw_portfolio")
        Dim dt As New DataTable
        ds.Tables.Clear()
        ds.Tables.Add(mdbTbl.DataTable.Copy)
    End Sub
    'End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Get_MA_Data()
        globals.conn.sConnectionString = globals.connstr
        '      Me.OpenFileDialog1.ShowDialog()
        '        Dim csv As New MyNameSpace.CSVDataAdapter(OpenFileDialog1.FileName, True, ";")
        '       csv.Fill(ds)
        For Each dr As DataRow In ds.Tables(0).Rows
            Try
                If dr.Item("Aktiv") = 1 Then
                    globals.conn.OpenConnection()
                    Dim ak As New TKB.VV.DB.clsPerson
                    Dim db As New TKB.VV.DB.clsMyKey_Tabelle
                    db.cpMainConnectionProvider = globals.conn
                    Dim newkey = db.get_dbkey("Person")
                    ak.iPersonNr = New SqlInt32(CType(newkey, Int32))
                    ak.iVertragspartnernr = New SqlInt32(CType(1, Int32))
                    ak.sName = New SqlString(CType(dr.Item("Name").ToString, String))
                    ak.sVorname = New SqlString(CType(dr.Item("Vorname").ToString, String))
                    ak.sStrasse = New SqlString(CType("", String))
                    ak.sPostfach = New SqlString(CType("", String))
                    ak.sPlz = New SqlString(CType("", String))
                    ak.sOrt = New SqlString(CType("", String))
                    ak.sTelefon = New SqlString(CType(dr.Item("Telefon").ToString, String))
                    ak.sTelefax = New SqlString(CType(dr.Item("fax").ToString, String))
                    ak.sEMail = New SqlString(CType(dr.Item("email").ToString, String))
                    ak.sInternet = New SqlString(CType("", String))
                    ak.sBemerkung = New SqlString(CType("Migriert", String))
                    ak.bAktiv = New SqlBoolean(CType(True, Boolean))
                    ak.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
                    ak.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
                    ak.iMutierer = New SqlInt32(CType(1, Int32))
                    ak.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
                    ak.cpMainConnectionProvider = globals.conn
                    globals.conn.OpenConnection()
                    ak.Insert()
                    globals.conn.CloseConnection(True)
                    ak.Dispose()
                End If
            Catch
            End Try
        Next
        MsgBox("Fertig")

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.OpenFileDialog1.ShowDialog()
        If Me.OpenFileDialog1.FileName <> "" Then
            FileOpen(1, Me.OpenFileDialog1.FileName, OpenMode.Input)
            Input(1, globals.connstr)
            Label1.Text = globals.connstr
            FileClose(1)
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.OpenFileDialog1.ShowDialog()
        If Me.OpenFileDialog1.FileName <> "" Then
            globals.Datafilename = Me.OpenFileDialog1.FileName
            Label2.Text = globals.Datafilename
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim applfound As Boolean = True
        Dim applid As Integer

        globals.conn.sConnectionString = globals.connstr
        Dim appl As New DataTable
        Dim app As New TKB.VV.DB.clsApplikation
        app.cpMainConnectionProvider = globals.conn
        appl = app.SelectAll
        Get_swportfolio_Data()
        For Each dr As DataRow In ds.Tables(0).Rows
            applfound = False
            For Each ar As DataRow In appl.Rows
                If Trim(dr.Item("Applikation").ToString) = Trim(ar.Item("Bezeichnung").ToString) Then
                    applfound = True
                    applid = ar.Item("Applikationnr")
                End If
            Next
            If applfound Then
                app.iApplikationNr = New SqlInt32(CType(applid, Int32))
                app.SelectOne()
                app.bTicketXPertVerwendung = New SqlBoolean(CType(True, Boolean))
                If UCase(dr.Item("wpi anzeigen").ToString) = "X" Then
                    app.bTicketXPert_WPIAnzeigen = New SqlBoolean(CType(True, Boolean))
                Else
                    app.bTicketXPert_WPIAnzeigen = New SqlBoolean(CType(False, Boolean))
                End If
                If Trim(dr.Item("WPI Preis / Monat / User").ToString) <> "" Then
                    app.sTicketXPert_Preis = New SqlString(CType(dr.Item("WPI Preis / Monat / User").ToString, String))
                Else
                    app.sTicketXPert_Preis = New SqlString(CType("", String))
                End If
                If Trim(dr.Item("Preis einmalig").ToString) <> "" Then
                    app.sTicketXPert_Preis_Einmalig = New SqlString(CType(dr.Item("preis einmalig").ToString, String))
                Else
                    app.sTicketXPert_Preis_Einmalig = New SqlString(CType("", String))
                End If
                If UCase(dr.Item("am anzeigen").ToString) = "X" Then
                    app.bTicketXPert_AMAnzeigen = New SqlBoolean(CType(True, Boolean))
                Else
                    app.bTicketXPert_AMAnzeigen = New SqlBoolean(CType(False, Boolean))
                End If
                globals.conn.OpenConnection()
                app.Update()
                globals.conn.CloseConnection(True)
            End If
        Next
        MsgBox("Fertig")
    End Sub

    Dim reihenfolge As Integer = 0
    Dim reihenfolge1 As Integer = 0
    Dim Gruppierungnr As Integer
    Dim bereichnr As Integer
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        globals.conn.sConnectionString = globals.connstr
        Me.Get_IT_Koordinatoren()
        For Each dr As DataRow In Me.ds.Tables(0).Rows
            If Trim(dr.Item("ITK").ToString) = "" Then
                Insert_Gruppierung(dr.Item("Bereich").ToString)
            Else
                Insert_Bereich(dr.Item("Bereich").ToString)
                Insert_Person(dr.Item("itk").ToString, dr.Item("email").ToString, dr.Item("Tel").ToString, 9)
                Insert_Person(dr.Item("stellvertretung1").ToString, dr.Item("email1").ToString, dr.Item("Tel1").ToString, 10)
                Insert_Person(dr.Item("stellvertretung2").ToString, dr.Item("email2").ToString, dr.Item("Tel2").ToString, 11)
            End If

        Next
    End Sub

    Private Sub Insert_Gruppierung(ByVal Bezeichnung As String)
        Dim ak As New TKB.VV.DB.clsGremiumGruppierung
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("Gremiumgruppierung")
        db.Dispose()
        Gruppierungnr = newkey
        ak.cpMainConnectionProvider = globals.conn
        ak.iGremiumGruppierungNr = New SqlInt32(CType(newkey, Int32))
        ak.iGremiumNr = New SqlInt32(CType(2, Int32))
        ak.sGruppierungsbegriff = New SqlString(CType(Bezeichnung, String))
        ak.sBeschreibung = New SqlString(CType("Migriert", String))
        ak.iReihenfolge = New SqlInt32(CType(reihenfolge, Int32))
        ak.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ak.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ak.iMutierer = New SqlInt32(CType(1, Int32))
        ak.bAktiv = New SqlBoolean(CType(True, Boolean))
        reihenfolge = reihenfolge + 1
        globals.conn.OpenConnection()
        ak.Insert()
        globals.conn.CloseConnection(True)
    End Sub
    Private Sub Insert_Bereich(ByVal Bezeichnung As String)
        Dim ak As New TKB.VV.DB.clsGremiumBereich
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("Gremiumbereich")
        bereichnr = newkey
        db.Dispose()
        ak.cpMainConnectionProvider = globals.conn
        ak.iGremiumBereichNr = New SqlInt32(CType(newkey, Int32))
        ak.iGremiumGruppierungNr = New SqlInt32(CType(Gruppierungnr, Int32))
        ak.sBereich = New SqlString(CType(Bezeichnung, String))
        ak.sBeschreibung = New SqlString(CType("Migriert", String))
        ak.iSortierung = New SqlInt32(CType(reihenfolge1, Int32))
        ak.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ak.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ak.iMutierer = New SqlInt32(CType(1, Int32))
        ak.bAktiv = New SqlBoolean(CType(True, Boolean))
        reihenfolge1 = reihenfolge1 + 1
        globals.conn.OpenConnection()
        ak.Insert()
        globals.conn.CloseConnection(True)
    End Sub

    Private Sub Insert_Person(ByVal Name As String, ByVal email As String, ByVal tel As String, ByVal Rolle As Integer)
        Dim personnr As Integer = 0
        personnr = Get_Kontakt1(Name, email, tel)
        If Trim(Name) = "" Then Exit Sub
        If personnr = -1 Then Exit Sub
        Dim ak As New TKB.VV.DB.clsGremiumPerson
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("Gremiumperson")
        db.Dispose()
        ak.cpMainConnectionProvider = globals.conn
        ak.iGreminPersonNr = New SqlInt32(CType(newkey, Int32))
        ak.iGremiumBereichNr = New SqlInt32(CType(bereichnr, Int32))
        ak.iPersonNr = New SqlInt32(CType(personnr, Int32))
        ak.iRolleNr = New SqlInt32(CType(Rolle, Int32))
        ak.bLeitung = New SqlBoolean(CType(False, Boolean))
        ak.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ak.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ak.iMutierer = New SqlInt32(CType(1, Int32))
        ak.bAktiv = New SqlBoolean(CType(True, Boolean))
        globals.conn.OpenConnection()
        ak.Insert()
        globals.conn.CloseConnection(True)
    End Sub

    Private Function Get_Kontakt1(ByVal kontakt As String, ByVal email As String, ByVal tel As String) As Integer

        Dim fn As String = ""
        Dim ln As String = ""
        If Trim(Kontakt) = "" Then
            ln = ""
            fn = ""
        Else
            Dim sp() As String = Split(Kontakt, " ")
            Try
                ln = sp(1)
            Catch ex As Exception

            End Try
            Try
                fn = sp(0)
            Catch ex As Exception

            End Try
        End If
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "select personnr from person where email='" & email & "'"
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 0 Then
                Return dtToReturn.Rows(0).Item(0)
            Else
            End If
        Catch ex As Exception
            MsgBox("Get_Kontakt: " + Applikation + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

        Dim ak As New TKB.VV.DB.clsPerson
        Dim db As New TKB.VV.DB.clsMyKey_Tabelle
        db.cpMainConnectionProvider = globals.conn
        Dim newkey = db.get_dbkey("Person")
        ak.iPersonNr = New SqlInt32(CType(newkey, Int32))
        ak.iVertragspartnernr = New SqlInt32(CType(1, Int32))
        ak.sName = New SqlString(CType(fn, String))
        ak.sVorname = New SqlString(CType(ln, String))
        ak.sStrasse = New SqlString(CType("", String))
        ak.sPostfach = New SqlString(CType("", String))
        ak.sPlz = New SqlString(CType("", String))
        ak.sOrt = New SqlString(CType("", String))
        ak.sTelefon = New SqlString(CType(tel, String))
        ak.sTelefax = New SqlString(CType("", String))
        ak.sEMail = New SqlString(CType(email, String))
        ak.sInternet = New SqlString(CType("", String))
        ak.sBemerkung = New SqlString(CType("", String))
        ak.bAktiv = New SqlBoolean(CType(True, Boolean))
        ak.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ak.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ak.iMutierer = New SqlInt32(CType(1, Int32))
        ak.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
        ak.cpMainConnectionProvider = globals.conn
        globals.conn.OpenConnection()
        ak.Insert()
        globals.conn.CloseConnection(True)
        Return newkey

    End Function

#End Region

    Dim appl As New TKB.VV.DB.clsApplikation
    Dim MigrCheck As TKB.VV.Sysadmin.DomainTable
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        globals.conn.sConnectionString = globals.connstr
        appl.cpMainConnectionProvider = globals.conn
        Get_Produkte_Data()
        For Each dr In ds.Tables(0).Rows
            Dim i As Integer
            Dim check_for_migration_result As Boolean = False
            If dr.Item("Modul").ToString <> "" Then
                Protokoll_Produkt = dr.Item("Modul")
                check_for_migration_result = Check_For_Migration(dr.Item("Modul"))
            Else
                Protokoll_Produkt = dr.Item("cbezeichnung")
                check_for_migration_result = Check_For_Migration(dr.Item("cbezeichnung"))
            End If
            If check_for_migration_result = True Then
                i = Check_Applikation(dr.Item("cbezeichnung").ToString, dr.Item("Modul").ToString)
                If i < 0 Then
                    Protokoll_Migriert = False
                    Protokoll_Applnr = 0
                    Protokoll_Bemerkung = "Mehr als ein Eintrag in der Produkte-DB vorhanden"
                    Me.Insert_Update_MigrCheck()
                End If
                If i < 1 Then
                    Protokoll_Migriert = False
                    Protokoll_Applnr = 0
                    Protokoll_Bemerkung = "Keine Applikation im ITSM gefunden"
                    Me.Insert_Update_MigrCheck()
                End If
                If i > 0 Then
                    Protokoll_Migriert = True
                    Protokoll_Applnr = i
                    Protokoll_Bemerkung = "Applikation Migriert"
                    Me.Insert_Update_MigrCheck()
                    '                    appl.iApplikationNr = New SqlInt32(CType(i, Int32))
                    '                   appl.SelectOne()
                    '                  Update_Data()
                    '                 Me.Protokoll_Applnr = Me.ap.iApplikationNr.Value
                    '                Me.Protokoll_Migriert = True
                End If
            End If
        Next
    End Sub

    Private Function Check_For_Migration(ByVal applikation As String)
        For Each dr As DataRow In Me.MigrCheck.Tabledata.Tables(0).Rows
            If dr.Item("Produkt").ToString = applikation Then
                If dr.Item("Migriert") = True Then
                    Return False
                End If
            End If
        Next
        Return True
    End Function
    Private Function Insert_Update_MigrCheck()
        For Each dr As DataRow In Me.MigrCheck.Tabledata.Tables(0).Rows
            If dr.Item("Produkt").ToString = Protokoll_Produkt Then
                dr.Item("Applikationnr") = Protokoll_Applnr
                dr.Item("Migriert") = Protokoll_Migriert
                dr.Item("Bemerkung") = Protokoll_Bemerkung
                dr.Item("Mutationsdatum") = Now
                Me.MigrCheck.Save_Data()
                Exit Function
            End If
        Next
        Dim datar As DataRow
        datar = Me.MigrCheck.Tabledata.Tables(0).NewRow
        datar.Item("Produkt") = Protokoll_Produkt
        datar.Item("Migriert") = Protokoll_Migriert
        datar.Item("Produkt_ITSM") = ""
        datar.Item("Applikationnr") = Protokoll_Applnr
        datar.Item("Bemerkung") = Protokoll_Bemerkung
        datar.Item("Mutationsdatum") = Now
        Me.MigrCheck.Tabledata.Tables(0).Rows.Add(datar)
        Me.MigrCheck.Save_Data()
    End Function
    Private Sub Update_Data()

        'Installation als
        '1	SPF	NULL	True	2009-01-08 08:10:45.700	2009-01-08 08:10:45.717	1
        '2	IPF HS	NULL	True	2009-01-08 08:10:46.980	2009-05-16 15:34:13.483	1
        '3	IPF NL	NULL	True	2009-01-08 08:10:48.150	2009-05-16 15:34:19.897	1
        '4	Notebook	NULL	True	2009-01-08 08:10:54.670	2009-05-16 15:34:55.603	1
        '5	CC	NULL	True	2009-01-08 08:10:55.573	2009-01-08 08:10:59.163	1
        '6	Handel	NULL	True	2009-01-08 08:10:58.180	2009-01-08 08:10:58.180	1
        '7	RAS	NULL	True	2009-05-16 15:34:22.353	2009-05-16 15:34:22.303	1
        If dr.Item("Standard") = True Then
            Insert_Installation_als(appl.iApplikationNr.Value, 1)
        End If
        If dr.Item("indnl") = True Then
            Insert_Installation_als(appl.iApplikationNr.Value, 3)
        End If
        If dr.Item("indhs") = True Then
            Insert_Installation_als(appl.iApplikationNr.Value, 2)
        End If
        If dr.Item("notebook") = True Then
            Insert_Installation_als(appl.iApplikationNr.Value, 4)
        End If
        If dr.Item("cc") = True Then
            Insert_Installation_als(appl.iApplikationNr.Value, 5)
        End If
        If dr.Item("handel") = True Then
            Insert_Installation_als(appl.iApplikationNr.Value, 6)
        End If
        If dr.Item("ras") = True Then
            Insert_Installation_als(appl.iApplikationNr.Value, 7)
        End If

        'Installationtyp()
        '1	TS	NULL	1	NULL	2009-01-08 08:11:10.973	1
        '2	Filer	NULL	1	NULL	2009-01-08 08:11:12.393	1
        '3	FAT (paketiert)	NULL	1	NULL	2009-01-08 08:11:23.030	1
        '4	FAT Manuell	NULL	1	NULL	2009-01-08 08:11:25.293	1
        '5	Web	NULL	1	NULL	2009-01-08 08:11:33.607	1
        '6	Standalone	NULL	1	NULL	2009-01-08 08:11:36.727	1
        If dr.Item("Standalone") = True Then
            Me.Insert_Installation_Typ(appl.iApplikationNr.Value, 6)
        End If
        If dr.Item("menulle Installation") = True Then
            Me.Insert_Installation_Typ(appl.iApplikationNr.Value, 4)
        End If
        If dr.Item("fatpaketiert") = True Then
            Me.Insert_Installation_Typ(appl.iApplikationNr.Value, 3)
        End If
        If dr.Item("TS") = True Then
            Me.Insert_Installation_Typ(appl.iApplikationNr.Value, 1)
        End If
        If dr.Item("Filer") = True Then
            Me.Insert_Installation_Typ(appl.iApplikationNr.Value, 2)
        End If
        If dr.Item("Browser") = True Then
            Me.Insert_Installation_Typ(appl.iApplikationNr.Value, 5)
        End If

        appl.sVersion = New SqlString(CType(dr.Item("Version").ToString, String))
        appl.sAnzahl_Installationen = New SqlString(CType(dr.Item("AnzahlInst").ToString, String))
        appl.sPrioWiederanlauf = New SqlString(CType(dr.Item("Prio").ToString, String))
        If dr.Item("Inaktiv seit").ToString <> "" Then
            appl.daInaktivseit = New SqlDateTime(CType(dr.Item("Inaktiv seit"), DateTime))
            appl.bAktiv = New SqlBoolean(CType(False, Boolean))

        End If
        appl.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        appl.iMutierer = New SqlInt32(CType(1, Int32))

        appl.Update()

    End Sub
    Private Function Check_Applikation(ByVal bezeichnung As String, ByVal modul As String) As Integer

        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        If modul <> "" Then
            scmCmdToExecute.CommandText = "select applikationnr from applikation where bezeichnung = '" & bezeichnung & "' or bezeichnung = '" & modul & "'"
        Else
            scmCmdToExecute.CommandText = "select applikationnr from applikation where bezeichnung = '" & bezeichnung & "'"
        End If
        scmCmdToExecute.CommandType = CommandType.Text
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            If dtToReturn.Rows.Count > 1 Then
                Return dtToReturn.Rows.Count * -1
            End If
            If dtToReturn.Rows.Count = 1 Then
                Return dtToReturn.Rows(0).Item(0)
            Else
                Return 0
            End If
        Catch ex As Exception
            MsgBox("Check-Applikation: " + bezeichnung + ": " + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Private Sub Get_Produkte_Data()
        Dim mdbCon As New mdbConnectClass(Datafilename)
        Dim mdbTbl As mdbClass = mdbCon.SqlToTable("SELECT * FROM ProdukteDaten", "Produktedaten")
        Dim dt As New DataTable
        ds.Tables.Clear()
        ds.Tables.Add(mdbTbl.DataTable.Copy)
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.OpenFileDialog1.ShowDialog()
        If Me.OpenFileDialog1.FileName <> "" Then
            FileOpen(1, Me.OpenFileDialog1.FileName, OpenMode.Input)
            Input(1, globals.connstr)
            Label1.Text = globals.connstr
            FileClose(1)
            Me.MigrCheck = New TKB.VV.Sysadmin.DomainTable("__Migr_ProdukteDB")
        End If
    End Sub

    Public Sub Insert_Installation_als(ByVal Applikationnr As Integer, ByVal typ As Integer)
        Dim ia As New TKB.VV.DB.clsApplikationInstallationAls
        ia.cpMainConnectionProvider = globals.conn
        ia.iApplikationNr = New SqlInt32(CType(Applikationnr, Int32))
        ia.iInstallationalsTypNr = New SqlInt32(CType(typ, Int32))
        ia.bAktiv = New SqlBoolean(CType(True, Boolean))
        ia.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ia.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ia.iMutierer = New SqlInt32(CType(1, Int32))
        globals.conn.OpenConnection()
        ia.Insert()
        globals.conn.CloseConnection(True)
        ia.Dispose()
    End Sub
    Public Sub Insert_Installation_Typ(ByVal Applikationnr As Integer, ByVal typ As Integer)
        Dim ia As New TKB.VV.DB.clsApplikationInstallationTyp
        ia.cpMainConnectionProvider = globals.conn
        ia.iApplikationNr = New SqlInt32(CType(Applikationnr, Int32))
        ia.iInstallationTypNr = New SqlInt32(CType(typ, Int32))
        ia.bAktiv = New SqlBoolean(CType(True, Boolean))
        ia.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        ia.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        ia.iMutierer = New SqlInt32(CType(1, Int32))
        globals.conn.OpenConnection()
        ia.Insert()
        globals.conn.CloseConnection(True)
        ia.Dispose()
    End Sub
End Class