MS Globix Verwaltung Integration
This commit is contained in:
146
GUIs.ZooFlow/Globix/frmGlobixAdministration.vb
Normal file
146
GUIs.ZooFlow/Globix/frmGlobixAdministration.vb
Normal file
@@ -0,0 +1,146 @@
|
||||
Imports DigitalData.Modules.Logging
|
||||
Public Class frmGlobixAdministration
|
||||
|
||||
Implements frmAdmin_Interface
|
||||
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
|
||||
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
|
||||
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
|
||||
Private Logger As Logger
|
||||
Public Sub New(PrimaryKey As Integer)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Logger = My.LogConfig.GetLogger()
|
||||
Me.PrimaryKey = PrimaryKey
|
||||
Me.IsInsert = IsInsert
|
||||
End Sub
|
||||
Public Shared _Namenkonvention As String
|
||||
Public Shared _aktDokart_Id As Integer
|
||||
|
||||
Private SourceAttributes As List(Of String)
|
||||
Private SourceObjectTypes As List(Of String)
|
||||
|
||||
Private Current_ObjectType As String = ""
|
||||
|
||||
Private GroupToDelete As Integer = Nothing
|
||||
Dim frmloaded As Boolean = False
|
||||
Private Sub frmGlobixAdministration_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString
|
||||
'Me.TBDD_EINGANGSARTENTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'Me.TBDD_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'Me.TBDD_DOKART_MODULETableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'Me.TBGI_CONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
'Me.TBGI_REGEX_DOCTYPETableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in load Connection-Strings - Check Database Connection - Form will be closed: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
Me.Close()
|
||||
End Try
|
||||
|
||||
Dim oDragDropManager As New ClassDragDrop()
|
||||
'oDragDropManager.AddGridView(viewAssignedGroups)
|
||||
'oDragDropManager.AddGridView(viewAvailableGroups)
|
||||
'oDragDropManager.AddGridView(viewAssignedUsers)
|
||||
'oDragDropManager.AddGridView(viewAvailableUsers)
|
||||
|
||||
Dim oDatatable As New DataTable()
|
||||
oDatatable.Columns.Add("VALUE_TEXT")
|
||||
oDatatable.Columns.Add("DISPLAY_TEXT")
|
||||
|
||||
oDatatable.Rows.Add("Default", "Datei Überschreiben")
|
||||
oDatatable.Rows.Add("New version", "Neue Version erstellen")
|
||||
oDatatable.Rows.Add("Question", "Nachfragen")
|
||||
|
||||
ComboBox3.DataSource = oDatatable
|
||||
|
||||
Try
|
||||
|
||||
Load_Dokart()
|
||||
Logger.Debug("...Done Load_Dokart")
|
||||
'Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
|
||||
Logger.Debug("...Done TBDD_EINGANGSARTEN")
|
||||
' Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
|
||||
Logger.Debug("...Done TBDD_MODULES")
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
|
||||
'If GI_withWindream = True Then
|
||||
' If ClassWindream.Init() = True Then
|
||||
' End If
|
||||
'End If
|
||||
End Sub
|
||||
Sub Load_Dokart()
|
||||
Try
|
||||
If PrimaryKey > 0 Then
|
||||
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
|
||||
GridControl1.Visible = False
|
||||
Else
|
||||
Me.TBDD_DOKUMENTARTTableAdapter.FillAllDoctypes(Me.GlobixDataset.TBDD_DOKUMENTART)
|
||||
GridControl1.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
If GlobixDataset.TBDD_DOKUMENTART.Rows.Count > 0 Then
|
||||
GridView1.SelectRow(1)
|
||||
'EnableControls(XtraTabPageProfiles)
|
||||
End If
|
||||
'If Me.DOKART_GUIDTextBox.Text <> "" Then
|
||||
'Load_TabData()
|
||||
' End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load_Dokart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End Sub
|
||||
Sub Load_TabData()
|
||||
If frmloaded = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' RibbonPageGroupProfileRegex.Enabled = False
|
||||
RibbonPageGroupManualIndex.Enabled = False
|
||||
RibbonPageGroupManualIndexFunctions.Enabled = False
|
||||
RibbonPageGroupAutoIndex.Enabled = False
|
||||
|
||||
'Select Case XtraTabControl2.SelectedTabPage.Name
|
||||
' Case XtraTabPageManualIndex.Name
|
||||
' RibbonPageGroupManualIndex.Enabled = True
|
||||
|
||||
' If DOKART_GUIDTextBox.Text <> "" Then
|
||||
' Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
|
||||
' End If
|
||||
' Case XtraTabPageManualIndexFunctions.Name
|
||||
' RibbonPageGroupManualIndexFunctions.Enabled = True
|
||||
|
||||
' Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
|
||||
' Case XtraTabPageAutoIndex.Name
|
||||
' Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
|
||||
|
||||
' RibbonPageGroupAutoIndex.Enabled = True
|
||||
' Case XtraTabPageFolderPath.Name
|
||||
' Try
|
||||
' Dim Dt As DataTable = ClassDatabase.Return_Datatable("select NAME from VWDDINDICES_MAN_AUTO_ACTIVE where DOCTYPE_ID = " & DOKART_GUIDTextBox.Text & " order by NAME")
|
||||
' cmbCrFolderIndex.DataSource = Dt
|
||||
' cmbCrFolderIndex.DisplayMember = Dt.Columns(0).ColumnName
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Error in Load Data TabData 4: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
' End Try
|
||||
' Case XtraTabPageProfileRegex.Name
|
||||
' TBGI_REGEX_DOCTYPETableAdapter.Fill(MyDataset.TBGI_REGEX_DOCTYPE, DOKART_GUIDTextBox.Text)
|
||||
' RibbonPageGroupProfileRegex.Enabled = True
|
||||
'End Select
|
||||
End Sub
|
||||
|
||||
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user