Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace tkb.vv.vertrag

    Public Class clsAktivitaet
        Inherits tkb.vv.DB.clsAktivitaet

        ''' <summary>
        ''' Aktivitaet lesen lesen
        ''' </summary>
        ''' <param name="Nr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Get_Aktivitaet(ByVal Nr As Integer)
            Me.cpMainConnectionProvider = Globals.conn
            Me.iAktivitaetNr = New SqlInt32(CType(Nr, Int32))
            Globals.conn.OpenConnection()
            Me.SelectOne()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Aktivitaet inaktivieren
        ''' </summary>
        ''' <param name="Aktivitaetnr"></param>
        ''' <remarks></remarks>
        Public Sub Delete_Aktivitaet(ByVal Basenr As Integer)
            If Basenr <> 0 Then
                Me.Get_Aktivitaet(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 Sub
        ''' <summary>
        ''' Statuswechsel einer Aktivät durchführen
        ''' </summary>
        ''' <param name="BaseNr"></param>
        ''' <param name="Statusnr"></param>
        ''' <remarks></remarks>
        Public Sub Status_Wechsel(ByVal BaseNr As Integer, ByVal Statusnr As Integer, ByVal aktiv As Boolean)
            If BaseNr <> 0 Then
                Me.Get_Aktivitaet(BaseNr)
            End If
            Me.cpMainConnectionProvider = Globals.conn
            Me.iAktivitaetStatusNr = New SqlInt32(CType(Statusnr, Int32))
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
            Me.bAktiv = New SqlBoolean(CType(aktiv, Boolean))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
        End Sub
    End Class

    Public Class clsAktivitaeten
        ''' <summary>
        ''' Aktivitätenliste auslesen
        ''' </summary>
        ''' <param name="AktivitaetStatusNr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Get_Aktivitaetenliste(ByVal AktivitaetStatus As String) As DataTable
            Dim PendStatusnr As Integer = 0
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            Dim dtToReturn As DataTable = New DataTable()
            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
            scmCmdToExecute.CommandText = "dbo.sp_get_aktivitaetliste"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
                'Select Case AktivitaetStatus
                '    Case "Alle"
                '        PendStatusnr = -1
                '    Case "Pendent"
                '        PendStatusnr = 1
                '    Case "In Bearbeitung"
                '        PendStatusnr = 2
                '    Case "Erledigt"
                '        PendStatusnr = 3
                '    Case Else
                '        PendStatusnr = -1
                'End Select
                PendStatusnr = AktivitaetStatus
                scmCmdToExecute.Parameters.Add(New SqlParameter("@AktivitaetStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, PendStatusnr))
                sdaAdapter.Fill(dtToReturn)
                Return dtToReturn
            Catch ex As Exception
                Throw New Exception("clsAktivitaeten::Get_Aktivitaetenliste::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function


    End Class
End Namespace