Imports C1.Win.C1TrueDBGrid
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

Namespace TKB.VV.Lifecycle

    Public Class clslcProduktPhase
        Inherits TKB.VV.DB.clsLC_Produkt_Phase

        Public Function Get_ProduktPhase(ByVal Nr As Integer)
            Me.cpMainConnectionProvider = Globals.conn
            Me.iLC_Produkt_PhaseNr = New SqlInt32(CType(Nr, Int32))
            Globals.conn.OpenConnection()
            Me.SelectOne()
            Globals.conn.CloseConnection(True)

        End Function

        Public Function Save_Data() As Integer
            Me.cpMainConnectionProvider = Globals.conn
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
            Return Me.iLC_ProduktNr.Value
        End Function

        ''' <summary>
        ''' Mutierer auslesen
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Get_Mutierer(ByVal nr As Integer) As String
            Dim ma As New TKB.VV.DB.clsMitarbeiter
            Dim dt As New DataTable
            Dim Retvalue As String
            ma.cpMainConnectionProvider = Globals.conn
            ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
            dt = ma.SelectOne()
            If dt.Rows.Count = 0 Then
                Retvalue = ("{" + nr.ToString + "}")
            Else
                Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
            End If
            ma.Dispose()
            dt.Dispose()
            Return Retvalue
        End Function

        ''' <summary>
        ''' Löschen eines Datensatzes erstellen.
        ''' </summary>
        ''' <param name="Basenr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Delete_Produkt(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Get_ProduktPhase(Basenr)
            End If
            Me.cpMainConnectionProvider = Globals.conn
            Me.bAktiv = New SqlBoolean(CType(False, Boolean))
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Löschen eines Datensatzes .
        ''' </summary>
        ''' <param name="Basenr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Get_ProduktPhase(Basenr)
            End If
            Me.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            MyBase.Delete()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Neue Kuendigungsfrist einfügen
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Add_New(ByVal phasenr As Integer, ByVal produktnr As Integer) As Integer
            Me.sBemerkung = New SqlString(CType("", String))
            Me.iLC_PhaseNr = New SqlInt32(CType(phasenr, Int32))
            Me.iLC_ProduktNr = New SqlInt32(CType(produktnr, Int32))
            Me.bAktiv = New SqlBoolean(CType(True, Boolean))
            Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))

            Me.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            Me.Insert()
            Globals.conn.CloseConnection(True)

            Return Me.iLC_Produkt_PhaseNr.Value
        End Function

    End Class
End Namespace