ITSM/_KPI/Formulare/frmUebersicht.vb

Imports System.Reflection
Imports System.Windows.Forms
Public Class frmUebersicht

#Region "Deklareationen"
    Dim uebersicht As New clsUebersicht
    Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler

#End Region
    Private Sub frmUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ToolStripLabelper.Text = "01." + Now.Month.ToString + "." + Now.Year.ToString
        ' refresh_tree()
    End Sub

    Sub Refresh_Tree()
        Try
            If IsDate(Me.ToolStripLabelper.Text) Then
                Me.TreeStruktur.BeginUpdate()
                Me.TreeStruktur.Nodes.Clear()
                uebersicht.Load_Treeview(Me.TreeStruktur, Me.ToolStripLabelper.Text)
                Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
                'Me.TreeStruktur.SelectedNode.Expand()
                Me.TreeStruktur.ExpandAll()
                Try
                    Me.TreeStruktur.SelectedNode.EnsureVisible()
                Catch ex As Exception

                End Try
                Me.TreeStruktur.EndUpdate()
            End If
        Catch
            Me.TreeStruktur = New TreeView
            If IsDate(Me.ToolStripLabelper.Text) Then
                Me.TreeStruktur.BeginUpdate()
                Me.TreeStruktur.Nodes.Clear()
                uebersicht.Load_Treeview(Me.TreeStruktur, Me.ToolStripLabelper.Text)
                Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
                'Me.TreeStruktur.SelectedNode.Expand()
                Me.TreeStruktur.ExpandAll()
                Me.TreeStruktur.EndUpdate()
                Me.SplitContainer1.Panel1.Controls.Add(Me.TreeStruktur)
                Me.TreeStruktur.Dock = DockStyle.Fill
                Me.TreeStruktur.ImageList = Me.ImageList1
                Try
                    Me.TreeStruktur.SelectedNode.EnsureVisible()
                Catch ex As Exception

                End Try
            End If

        End Try

    End Sub
    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub TreeStruktur_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeStruktur.AfterSelect
        Try
            If Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(0, 3) = "MA_" Then
                Me._Mitarbeiter1.Visible = True
                Me._Organisationseinheit1.Visible = False
                Me._Mitarbeiter1.Dock = DockStyle.Fill



                Me._Mitarbeiter1.Generic_Event_Handler = Globals.Generic_Event_Handler
                Me._Mitarbeiter1.ConnectionFilename = Globals.ConnectionFileName
                Me._Mitarbeiter1.ConnectionString = Globals.sConnectionString
                Me._Mitarbeiter1.TempFilePath = Globals.Tempfilepath
                Me._Mitarbeiter1.Mitarbeiternr = Globals.Mitarbeiternr
                Me._Mitarbeiter1.KeyValue = Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(3, Len(Me.TreeStruktur.SelectedNode.Tag) - 3)
            End If

            If Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(0, 3) = "OE_" Then
                Me._Mitarbeiter1.Visible = False
                Me._Organisationseinheit1.Visible = True
                Me._Organisationseinheit1.Dock = DockStyle.Fill
                Me._Organisationseinheit1.Generic_Event_Handler = Globals.Generic_Event_Handler
                Me._Organisationseinheit1.ConnectionFilename = Globals.ConnectionFileName
                Me._Organisationseinheit1.ConnectionString = Globals.sConnectionString
                Me._Organisationseinheit1.TempFilePath = Globals.Tempfilepath
                Me._Organisationseinheit1.Mitarbeiternr = Globals.Mitarbeiternr
                Me._Organisationseinheit1.KeyValue = Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(3, Len(Me.TreeStruktur.SelectedNode.Tag) - 3)
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub ToolStripLabelper_Click(sender As Object, e As EventArgs) Handles ToolStripLabelper.Click

    End Sub

    Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
        Dim d As New DateTime
        d = Me.ToolStripLabelper.Text
        d = d.AddMonths(1)
        Me.ToolStripLabelper.Text = d.ToShortDateString

    End Sub

    Private Sub ToolStripLabelper_TextChanged(sender As Object, e As EventArgs) Handles ToolStripLabelper.TextChanged
        Refresh_Tree()
    End Sub

    Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
        Dim d As New DateTime
        d = Me.ToolStripLabelper.Text
        d = d.AddMonths(-1)
        Me.ToolStripLabelper.Text = d.ToShortDateString
    End Sub

    Private Sub evh_Mitarbeiter_Saved(Keyvalue As String) Handles evh.Mitarbeiter_Saved
        Refresh_Tree()
        Try
            Dim tn As New TreeNode
            'tn = uebersicht.FindNode(Me.TreeStruktur.Nodes, Keyvalue, "")
            'Me.TreeStruktur.SelectedNode = uebersicht.FindNode(tn.Nodes, Keyvalue, "")
            Me.TreeStruktur.SelectedNode = uebersicht.FindNode(Me.TreeStruktur.Nodes, Keyvalue, "")
            Exit Sub
        Catch
        End Try

    End Sub

    Private Sub evh_Organisationseinheit_Saved(Keyvalue As String) Handles evh.Organisationseinheit_Saved
        Refresh_Tree()
        Me.TreeStruktur.SelectedNode = uebersicht.FindNode(Me.TreeStruktur.Nodes, Keyvalue, "")
        Exit Sub
        Try
            Dim tn As New TreeNode
            tn = uebersicht.FindNode(Me.TreeStruktur.Nodes, Keyvalue, "")
            Me.TreeStruktur.SelectedNode = uebersicht.FindNode(tn.Nodes, Keyvalue, "")
            Exit Sub
        Catch
        End Try
    End Sub

   
    Private Sub NeueOrganisationseinheitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueOrganisationseinheitToolStripMenuItem.Click
        Dim pid As Integer

        If Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(0, 3) = "OE_" Then
            pid = Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(3, Len(Me.TreeStruktur.SelectedNode.Tag.ToString) - 3)
        Else
            pid = Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(3, Len(Me.TreeStruktur.SelectedNode.Parent.Tag.ToString) - 3)
        End If
        Me._Organisationseinheit1.Generic_Event_Handler = Globals.Generic_Event_Handler
        Me._Organisationseinheit1.ConnectionFilename = Globals.ConnectionFileName
        Me._Organisationseinheit1.ConnectionString = Globals.sConnectionString
        Me._Organisationseinheit1.Add_New_OE(pid)
    End Sub

    Private Sub NeuerMitarbeiterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerMitarbeiterToolStripMenuItem.Click
        Dim pid As Integer
        If Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(0, 3) = "OE_" Then
            pid = Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(3, Len(Me.TreeStruktur.SelectedNode.Tag.ToString) - 3)
        Else
            pid = Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(3, Len(Me.TreeStruktur.SelectedNode.Parent.Tag.ToString) - 3)
        End If
        Me._Mitarbeiter1.Generic_Event_Handler = Globals.Generic_Event_Handler
        Me._Mitarbeiter1.ConnectionFilename = Globals.ConnectionFileName
        Me._Mitarbeiter1.ConnectionString = Globals.sConnectionString
        Me._Mitarbeiter1.AddNewMa(pid, Me.ToolStripLabelper.Text)
    End Sub

    Private Sub FaktorenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FaktorenToolStripMenuItem.Click
        Dim f As New frmDomainEditor("Faktoren")
        f.MdiParent = Me.MdiParent
        f.Width = 1000
        f.Height = 800
        '        f.Top = sysadmfnkt.iFtop.Value
        '       f.Left = sysadmfnkt.iFleft.Value
        f.Text = "Tabellen-Editor: " + "Faktoren"
        f.Show()
    End Sub

    Private Sub MitarbeitertypToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MitarbeitertypToolStripMenuItem.Click
        Dim f As New frmDomainEditor("Mitarbeitertyp")
        f.MdiParent = Me.MdiParent
        f.Width = 1000
        f.Height = 800
        '        f.Top = sysadmfnkt.iFtop.Value
        '       f.Left = sysadmfnkt.iFleft.Value
        f.Text = "Tabellen-Editor: " + "Mitarbeitertyp"
        f.Show()
    End Sub

    Private Sub JahrestabelleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JahrestabelleToolStripMenuItem.Click
        Dim f As New frmDomainEditor("Jahrestabelle")
        f.MdiParent = Me.MdiParent
        f.Show()
    End Sub

    Private Sub ctxMenuStruktur_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuStruktur.Opening
        If Me.TreeStruktur.SelectedNode.Tag.ToString.Substring(0, 2) = "MA" Then
            Me.ctxMenuStruktur.Items(0).Enabled = False
            Me.ctxMenuStruktur.Items(1).Enabled = False
        Else
            Me.ctxMenuStruktur.Items(0).Enabled = True
            Me.ctxMenuStruktur.Items(1).Enabled = True

        End If
    End Sub

    Private Sub TreeStruktur_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeStruktur.NodeMouseClick
        If e.Button = Windows.Forms.MouseButtons.Left Or e.Button = Windows.Forms.MouseButtons.Right Then
            Me.TreeStruktur.SelectedNode = e.Node

        End If
    End Sub
End Class