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

Public Class frmPhaseDetail

    Dim NeuerDatensatz As Boolean = False
    Dim CurrentPhase As Integer
    Dim PhaseStammdaten As New DataTable
    Dim produktnr As Integer
    Dim produktphase As New TKB.VV.Lifecycle.clslcProduktPhase
    Dim ROnly As Boolean = False




    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(ByVal keyvalue As Integer, ByVal produktnr As Integer, ByVal NeuerDs As Boolean, Optional ROnly As Boolean = False)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.CurrentPhase = keyvalue
        Me.NeuerDatensatz = NeuerDs
        Me.produktnr = produktnr
        Me.ROnly = ROnly
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        If NeuerDatensatz = True Then
            produktphase.Add_New(Me.cbboxphase.SelectedValue, Me.produktnr)

        End If
        Try
            produktphase.daDatum = New SqlDateTime(CType(Me.txtDatum.Text, DateTime))
        Catch
            produktphase.daDatum = New SqlDateTime(CType("01.01.1900", DateTime))
        End Try

        produktphase.iLC_PhaseNr = New SqlInt32(CType(Me.cbboxphase.SelectedValue, Int32))
        produktphase.sBemerkung = New SqlString(CType(Me.txtBeschreibung.Text, String))
        produktphase.Save_Data()
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
        Me.DialogResult = Windows.Forms.DialogResult.Abort
    End Sub

#Region "db"
    Sub Get_Phasen()
        Try
            Me.PhaseStammdaten.Rows.Clear()
            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
#End Region

    Private Sub frmPhaseDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Get_Phasen()
        Me.cbboxphase.DataSource = PhaseStammdaten
        Me.cbboxphase.DisplayMember = "Bezeichnung"
        Me.cbboxphase.ValueMember = "LC_PhaseNr"
        If NeuerDatensatz Then
            Me.cbboxphase.SelectedValue = 1
            Me.txtBeschreibung.Text = ""
            Me.txtDatum.Text = ""
        Else
            produktphase.Get_ProduktPhase(Me.CurrentPhase)
            Me.cbboxphase.SelectedValue = produktphase.iLC_PhaseNr.Value
            If produktphase.daDatum.IsNull Then
                Me.txtDatum.Text = "01.01.1900"
            Else
                Me.txtDatum.Text = produktphase.daDatum.ToString
            End If
            'Me.txtDatum.Text = produktphase.daDatum.Value
            Me.txtBeschreibung.Text = produktphase.sBemerkung.Value
        End If
        If ROnly Then
            Me.btnAbbruch.Visible = False
            Me.btnOK.Visible = False
            Me.btnronlyok.Visible = True
        Else
            Me.btnAbbruch.Visible = True
            Me.btnOK.Visible = True
            Me.btnronlyok.Visible = False


        End If

    End Sub

    Private Sub DateTimePicker_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtDatum.ValueChanged
        txtDatum.Text = dtDatum.Value
    End Sub

    Private Sub btnronlyok_Click(sender As Object, e As EventArgs) Handles btnronlyok.Click
        Me.DialogResult = Windows.Forms.DialogResult.Abort
        Me.Close()
    End Sub
End Class