Monorepo/GUIs.ZooFlow/Globix/frmGlobixAdministration.vb

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