You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
111 lines
4.1 KiB
111 lines
4.1 KiB
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
|
|
|