MS Initial without WM
This commit is contained in:
@@ -73,58 +73,9 @@ Public Class frmAdministration
|
||||
Me.cmbLOGIndex.Items.Add("")
|
||||
cmbLOGIndex.Enabled = True
|
||||
Label9.Enabled = True
|
||||
If IDB_ACTIVE = False Then
|
||||
PM_VEKTOR_INDEXComboBox.Enabled = True
|
||||
Label4.Enabled = True
|
||||
If cmbObjekttypen.Text = "DEFAULT" And IDB_ACTIVE = False Then
|
||||
MsgBox("The Objecttype is invalid!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
|
||||
If indexe IsNot Nothing Then
|
||||
For Each index As String In indexe
|
||||
Dim _vektorString As Boolean = False
|
||||
Select Case WINDREAM.GetTypeOfIndex(index)
|
||||
Case 4097
|
||||
_vektorString = True
|
||||
Case 36865
|
||||
_vektorString = True
|
||||
Case Else
|
||||
_vektorString = False
|
||||
End Select
|
||||
If _vektorString = True Then
|
||||
Me.PM_VEKTOR_INDEXComboBox.Items.Add(index)
|
||||
Me.cmbLOGIndex.Items.Add(index)
|
||||
End If
|
||||
'############## IDB ACTIVE #################
|
||||
|
||||
Next
|
||||
End If
|
||||
MyIndicies_Types = New List(Of Integer)
|
||||
MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
|
||||
For Each i In MyIndicies
|
||||
Dim type = WINDREAM.GetTypeOfIndex(i)
|
||||
MyIndicies_Types.Add(type)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Error in GetIndices windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
|
||||
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
|
||||
cmbLOGIndex.SelectedIndex = -1
|
||||
End Try
|
||||
If Me.PM_VEKTOR_INDEXComboBox.Text <> "" Then
|
||||
PM_VEKTOR_INDEXComboBox.SelectedIndex = PM_VEKTOR_INDEXComboBox.FindStringExact(Me.PM_VEKTOR_INDEXComboBox.Text)
|
||||
Else
|
||||
PM_VEKTOR_INDEXComboBox.SelectedIndex = -1
|
||||
End If
|
||||
If Me.cmbLOGIndex.Text <> "" Then
|
||||
cmbLOGIndex.SelectedIndex = cmbLOGIndex.FindStringExact(Me.cmbLOGIndex.Text)
|
||||
Else
|
||||
cmbLOGIndex.SelectedIndex = -1
|
||||
End If
|
||||
Else '############## IDB ACTIVE #################
|
||||
|
||||
PM_VEKTOR_INDEXComboBox.Enabled = False
|
||||
PM_VEKTOR_INDEXComboBox.Enabled = False
|
||||
Label4.Enabled = False
|
||||
Try
|
||||
For Each oRow As DataRow In IDBData.DTVWIDB_BE_ATTRIBUTE.Rows
|
||||
@@ -151,7 +102,6 @@ Public Class frmAdministration
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -179,26 +129,11 @@ Public Class frmAdministration
|
||||
End Sub
|
||||
Private Sub ObjekttypenEintragen()
|
||||
Me.cmbObjekttypen.Items.Clear()
|
||||
If IDB_ACTIVE = False Then
|
||||
Try
|
||||
Dim oDokumentTypen As WINDREAMLib.WMObjects = WINDREAM.GetObjecttypesAsObjects()
|
||||
If oDokumentTypen Is Nothing Then Exit Sub
|
||||
For Each aType In oDokumentTypen
|
||||
Me.cmbObjekttypen.Items.Add(aType.aName)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server")
|
||||
End Try
|
||||
Else
|
||||
Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY"
|
||||
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
|
||||
For Each oROW As DataRow In oDT.Rows
|
||||
Me.cmbObjekttypen.Items.Add(oROW.Item(1))
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Dim oSQL = "SELECT GUID, TITLE FROM TBIDB_BUSINESS_ENTITY"
|
||||
Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
|
||||
For Each oROW As DataRow In oDT.Rows
|
||||
Me.cmbObjekttypen.Items.Add(oROW.Item(1))
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnWMSuche.Click
|
||||
@@ -444,180 +379,6 @@ Public Class frmAdministration
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
'Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
|
||||
' If cmbIndexe.SelectedIndex <> -1 Then
|
||||
' 'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text))
|
||||
' btnInsert_FinalIndex.Enabled = True
|
||||
' Me.btnStampDate.Visible = False
|
||||
' Me.btnStampDate.Visible = False
|
||||
' Dim type = _windreamPM.GetTypeOfIndex(cmbIndexe.Text)
|
||||
' Select Case type
|
||||
' Case 1 'String
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Text)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 2 'Integer
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Zahl)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 3 'Float
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Decimal)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4 ' Boolean
|
||||
' Me.lblIndex.Text = "Wählen Sie den Boolean-Wert: (Ja/Nein)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = False
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.chkbxfinalIndex.CheckState = CheckState.Checked
|
||||
' Me.chkbxfinalIndex.Visible = True
|
||||
' Case 5 'Date
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Date)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4107 'Vektor Zahl
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Zahl)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4097 'Vektor String
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Text)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4100 'Vektor Bool
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Boolean)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.btnStampDate.Visible = False
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4101 'Vektor Date
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Date)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4104
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Currency)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case Else
|
||||
' btnInsert_FinalIndex.Enabled = False
|
||||
' End Select
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub btnInsert_FinalIndex_Click(sender As System.Object, e As System.EventArgs)
|
||||
' Me.lblSaveFinalIndex.Visible = False
|
||||
' If CheckBoxPMVEKTOR.Checked = False Then
|
||||
' If cmbIndexe.SelectedIndex <> -1 Then
|
||||
' Dim indexwert As String = ""
|
||||
' If txtindexwert_final.Visible = True Then
|
||||
' indexwert = txtindexwert_final.Text
|
||||
' Else
|
||||
' If chkbxfinalIndex.CheckState = CheckState.Checked Then
|
||||
' indexwert = 1
|
||||
' Else
|
||||
' indexwert = 0
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' Try
|
||||
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe.Text, indexwert, USER_USERNAME, 0, "")
|
||||
' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now
|
||||
' Me.lblSaveFinalIndex.Visible = True
|
||||
|
||||
' Catch ex As Exception
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index:")
|
||||
' End Try
|
||||
|
||||
' End If
|
||||
' Else
|
||||
' If txtBezeichner.Text <> "" Then
|
||||
' Dim indexwert As String = ""
|
||||
' If txtindexwert_final.Visible = True Then
|
||||
' indexwert = txtindexwert_final.Text
|
||||
' Else
|
||||
' If chkbxfinalIndex.CheckState = CheckState.Checked Then
|
||||
' indexwert = "True"
|
||||
' Else
|
||||
' indexwert = "False"
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' Try
|
||||
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, "[%VKT" & txtBezeichner.Text, indexwert, USER_USERNAME, 0, "")
|
||||
' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now
|
||||
' Me.lblSaveFinalIndex.Visible = True
|
||||
' Catch ex As Exception
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index in VEKTORFELD:")
|
||||
' End Try
|
||||
' End If
|
||||
' End If
|
||||
' Refresh_Final_indexe()
|
||||
' INSERT_ACTIVE = False
|
||||
' TabControlFinalIndices.Enabled = False
|
||||
|
||||
'End Sub
|
||||
'Private Sub ToolStripButton1_Click_1(sender As System.Object, e As System.EventArgs)
|
||||
' Refresh_Final_indexe()
|
||||
' INSERT_ACTIVE = False
|
||||
' TabControlFinalIndices.Enabled = False
|
||||
|
||||
' txtBezeichner.Text = String.Empty
|
||||
' txtindexwert_final.Text = String.Empty
|
||||
'End Sub
|
||||
|
||||
Private Sub tsbtnProfilkopieren_Click(sender As System.Object, e As System.EventArgs)
|
||||
|
||||
End Sub
|
||||
Private Function Execute_SQL(SQL As String)
|
||||
Try
|
||||
Dim SQLconnection As New SqlClient.SqlConnection(CONNECTION_STRING)
|
||||
Dim SQLcommand As New SqlCommand(SQL, SQLconnection)
|
||||
SQLconnection.Open()
|
||||
SQLcommand.ExecuteNonQuery()
|
||||
SQLcommand.Dispose()
|
||||
SQLconnection.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Fehler in Execute_SQL: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & " SQL: " & SQL)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Sub CancelFinalIndexInsert()
|
||||
INSERT_ACTIVE = False
|
||||
@@ -638,12 +399,6 @@ Public Class frmAdministration
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs)
|
||||
Cursor = Cursors.WaitCursor
|
||||
frmUserKonfig_AddUsers.ShowDialog()
|
||||
Load_User()
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
Private Sub ToolStripButton12_Click(sender As Object, e As EventArgs)
|
||||
Load_User()
|
||||
End Sub
|
||||
@@ -666,24 +421,6 @@ Public Class frmAdministration
|
||||
Indexe_eintragen()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click_1(sender As Object, e As EventArgs)
|
||||
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
|
||||
If indexe IsNot Nothing Then
|
||||
For Each index As String In indexe
|
||||
MsgBox(index & vbNewLine & WINDREAM.GetTypeOfIndex(index))
|
||||
Select Case WINDREAM.GetTypeOfIndex(index)
|
||||
Case 4107 'Vektor Zahl
|
||||
|
||||
Case 4097
|
||||
|
||||
Case Else
|
||||
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
' If TabControlFinalIndices.SelectedIndex = 1 Then
|
||||
' Me.cmbIndexe2.Enabled = False
|
||||
|
||||
Reference in New Issue
Block a user