Public Class frmSetNeueBeziehung

    Dim m_sourceid As Integer
    Property Sourceid As Integer
        Get
            Return m_sourceid
        End Get
        Set(value As Integer)
            m_sourceid = value
        End Set
    End Property

    Dim m_sourcebezeichnung As String
    Property SourceBezeichnung As String
        Get
            Return m_sourcebezeichnung
        End Get
        Set(value As String)
            m_sourcebezeichnung = value
        End Set
    End Property

    Dim m_type As Integer
    Property Type As Integer
        Get
            Return m_type
        End Get
        Set(value As Integer)
            m_type = value
        End Set
    End Property

    Dim m_mitarbeiternr As Integer
    Property Mitarbeiternr As Integer
        Get
            Return m_mitarbeiternr
        End Get
        Set(value As Integer)
            m_mitarbeiternr = value
            Globals.Mitarbeiternr = value
        End Set
    End Property

    Private Sub frmSetNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TextBox1.Text = Me.SourceBezeichnung
        If Type = 0 Then
            Dim dtc As New _DataClass.DataClass
            Dim dt As New DataTable
            dt = dtc.Get_Aktive_Funktionsstellen
            Me.C1Daten.DataSource = dt
            Me.C1Daten.DataMember = dt.TableName
            Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
            Me.C1Daten.Splits(0).DisplayColumns(1).Width = 200
            Me.C1Daten.Splits(0).DisplayColumns(2).Width = 100
          
        End If
        If Type = 1 Then
            Dim dtc As New _DataClass.DataClass
            Dim dt As New DataTable
            dt = dtc.Get_Aktives_Personal
            Me.C1Daten.DataSource = dt
            Me.C1Daten.DataMember = dt.TableName
            Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
            Me.C1Daten.Splits(0).DisplayColumns(1).Width = 200
            Me.C1Daten.Splits(0).DisplayColumns(2).Width = 100
           
        End If

    End Sub


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

    Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
        Dim a As New AllgMainObjekte
        a.txtBezeichnung.Text = Me.C1Daten.Columns(1).Value
        If Type = 0 Then
            a.ConnectionFilename = Globals.ConnectionFileName
            a.ConnectionString = Globals.sConnectionString
            a.TempFilePath = Globals.TmpFilepath
            a.Mitarbeiternr = Me.Mitarbeiternr
            a.Type = "Personal"
            a.KeyValue = Me.Sourceid
            a.Add_New_Beziehung(Me.C1Daten.Columns(0).Value, _DataClass.DataClass.Struktur_Selectiontype.Organisation, Me.C1Daten.Columns(1).Value, "_DataClass.db.Personal_FunktionStelle", True, 0)
        Else
            a.ConnectionFilename = Globals.ConnectionFileName
            a.ConnectionString = Globals.sConnectionString
            a.TempFilePath = Globals.TmpFilepath
            a.Mitarbeiternr = Me.Mitarbeiternr
            a.Type = "Funktionstelle"
            a.KeyValue = Me.Sourceid
            a.Add_New_Beziehung(Me.C1Daten.Columns(0).Value, _DataClass.DataClass.Struktur_Selectiontype.Organisation, Me.C1Daten.Columns(1).Value, "_DataClass.db.Personal_FunktionStelle", False, 0)
        End If

        a.Dispose()

    End Sub

    Private Sub C1Beziehungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
        

    End Sub

    Private Sub BeziehungErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeziehungErstellenToolStripMenuItem.Click
        C1Daten_DoubleClick(sender, e)
    End Sub
    Event C1Beziehungen_DoubleClicked(ByVal keyvalue As Integer, ByVal Typ As String, ByVal NewWindows As Boolean)

    Private Sub ObjektAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektAnzeigenToolStripMenuItem.Click
        If Type = 0 Then
            RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Daten.Columns(0).Value, "Personal", True)
        Else
            RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Daten.Columns(0).Value, "Funktionstelle", True)
        End If
    End Sub

    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click

    End Sub
End Class