Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Public Class ctlPhasen
    Dim m_Connectionstring As String
    Public Property ConnectionString() As String
        Get
            ConnectionString = m_Connectionstring
        End Get
        Set(ByVal Value As String)
            If m_Connectionstring <> Value Then
            End If
        End Set
    End Property

    Dim m_Produktnr As Integer
    Property Produktnr As Integer
        Get
            Return m_Produktnr
        End Get
        Set(value As Integer)
            m_Produktnr = value
            refresh_details()
        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
        End Set
    End Property

    Dim m_tempfilepath As String
    Property TempfilePath As String
        Get
            Return m_tempfilepath
        End Get
        Set(value As String)
            m_tempfilepath = value
        End Set
    End Property

    Dim Phasendaten As New DataTable
    Dim PhaseStammdaten As New DataTable
    Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
    Dim DAP As SqlDataAdapter


    Private Sub refresh_details()
        C1Phasen.DataSource = Nothing
        Me.Phasendaten.Rows.Clear()
        Get_Produktphasen(Me.Produktnr)
        Get_Phasen()
        Me.C1Phasen.DataSource = Phasendaten
        Me.SpaltenTitel.Spaltentitel_aktualisieren(C1Phasen, "LC_Produkt_Phase", Me.C1Phasen.DataSource)
        Me.C1PhaseDropDown.DataSource = PhaseStammdaten
        Me.C1PhaseDropDown.DisplayMember = "Bezeichnung"
        Me.C1PhaseDropDown.ValueMember = "lc_phasenr"
        Me.C1Phasen.Columns("LC_PhaseNr").DropDown = Me.C1PhaseDropDown
        Me.C1PhaseDropDown.ValueTranslate = True
        Me.C1PhaseDropDown.DisplayColumns(0).Width = 0
        Me.C1Phasen.Columns("LC_PhaseNr").ValueItems.Translate = True
    End Sub

#Region "DB"
    Sub Get_Produktphasen(produktnr As Integer)
        Try
            Dim Connection As New SqlConnection(Globals.sConnectionString)
            DAP = New SqlDataAdapter("select * from lc_produkt_phase where lc_produktnr = " & Str(produktnr), Connection)
            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DAP)
            DAP.Fill(Phasendaten)
        Catch
        End Try

    End Sub

    Sub Get_Phasen()
        Try
            Dim Connection As New SqlConnection(Globals.sConnectionString)
            Dim DA As New SqlDataAdapter("select * from lc_phase where aktiv=1", Connection)
            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
            DA.Fill(PhaseStammdaten)
        Catch
        End Try
    End Sub

    Sub Save_Phasen()
        Try
            DAP.Update(Phasendaten)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
#End Region

    Private Sub C1Phasen_AfterInsert(sender As Object, e As EventArgs) Handles C1Phasen.AfterInsert
        Me.C1Phasen.Columns("LC_Produktnr").Value = Me.Produktnr
    End Sub

    Private Sub C1Phasen_Click(sender As Object, e As EventArgs) Handles C1Phasen.Click

    End Sub
End Class