|
|
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<73>tzung
|
|
|
Dim kontaktnr2 As Integer = Get_Kontakt(dr.Item("Fachunterstuetzung"))
|
|
|
Insert_Kontakt(newkey, kontaktnr2, 3)
|
|
|
End If
|
|
|
|
|
|
|
|
|
'KeyUser, KeyUser-STV, Fachunterst<73>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
|
