Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace TKB.VV.Vertrag

    Public Class clsPendenz
        Inherits TKB.VV.DB.clsPendenz
#Region "Deklarationen"
        Public Pendenzstatus As New TKB.VV.Sysadmin.DomainTable("Pendenzstatus")
        Public Vertragselement As New TKB.VV.DB.clsVertragselement
        Public Neuer_Datensatz As Boolean = False
#End Region


        ''' <summary>
        ''' Pendenz lesen lesen
        ''' </summary>
        ''' <param name="Nr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Get_Pendenz(ByVal Nr As Integer)
            Me.cpMainConnectionProvider = Globals.conn
            Me.iPendenzNr = New SqlInt32(CType(Nr, Int32))
            Globals.conn.OpenConnection()
            Me.SelectOne()
            Vertragselement.iVertragselementnr = Me.iVertragselementNr.Value
            Vertragselement.cpMainConnectionProvider = Globals.conn
            Vertragselement.SelectOne()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Daten sichern
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        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)
            Me.Neuer_Datensatz = False
            Return Me.iPendenzNr.Value
        End Function

        ''' <summary>
        ''' Kopie eines Datensatzes erstellen.
        ''' </summary>
        ''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Me.Get_Pendenz(Basenr)
            End If
            Dim db As New TKB.VV.DB.clsMyKey_Tabelle
            db.cpMainConnectionProvider = Globals.conn
            Dim newkey = db.get_dbkey("Pendenz")
            db.Dispose()

            Me.cpMainConnectionProvider = Globals.conn
            Me.iPendenzNr = New SqlInt32(CType(newkey, Int32))
            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))
            Globals.conn.OpenConnection()
            Me.Insert()
            Globals.conn.CloseConnection(True)
            Me.Neuer_Datensatz = True
            Return newkey
        End Function

        ''' <summary>
        ''' Datensatz löschen.
        ''' </summary>
        ''' <param name="Basenr"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Delete_Pendenz(Optional ByVal Basenr As Integer = 0) As Integer
            If Basenr <> 0 Then
                Me.Get_Pendenz(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))
            Me.iPendenzStatusNr = New SqlInt32(CType(4, Int32))
            Globals.conn.OpenConnection()
            Me.Update()
            Globals.conn.CloseConnection(True)
        End Function
        ''' <summary>
        ''' Datensatz physisch löschen
        ''' </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
                Me.Get_Pendenz(Basenr)
            End If
            Me.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            MyBase.Delete()
            Globals.conn.CloseConnection(True)
            Me.Neuer_Datensatz = False
        End Function

        ''' <summary>
        ''' Neue Kuendigungsfrist einfügen
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Add_New(ByVal Vertragselementnr As Integer) As Integer
            Dim db As New TKB.VV.DB.clsMyKey_Tabelle
            db.cpMainConnectionProvider = Globals.conn
            Dim newkey = db.get_dbkey("Pendenz")
            db.Dispose()
            Me.iPendenzNr = New SqlInt32(CType(newkey, Int32))
            Me.iVertragselementNr = New SqlInt32(CType(Vertragselementnr, Int32))
            Me.iPendenzStatusNr = New SqlInt32(CType(1, Int32))
            Me.sVerantwortlich = New SqlString(CType("", String))
            Me.sBeschreibung = New SqlString(CType("", String))
            Me.sBezeichnung = New SqlString(CType("", String))
            Me.bAktiv = New SqlBoolean(CType(True, Boolean))
            Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
            Me.daTermin = New SqlDateTime(CType(Now, DateTime))
            Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
            Me.iSecurityLevelNr = New SqlInt32(CType(0, Int32))
            Me.cpMainConnectionProvider = Globals.conn
            Globals.conn.OpenConnection()
            Me.Insert()
            Globals.conn.CloseConnection(True)
            Me.Neuer_Datensatz = True
            Return newkey
        End Function

    End Class


    Public Class clsPendenzUebersicht

        ''' <summary>
        ''' Liefert sämtrliche gem. Param. Pendenzstatus gewählten Pendenzen
        ''' </summary>
        ''' <param name="PendenzStatusNr"></param>
        ''' <param name="pendenzstatus"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function Get_Pendenzuebersicht(ByVal PendenzStatusNr As Integer, ByVal pendenzstatus 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_vertragsverwaltung_pendenzenliste"
            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))
                If pendenzstatus = "Alle" Then
                    PendStatusnr = -1
                Else
                    PendStatusnr = pendenzstatus
                End If

                'Select Case pendenzstatus
                '    Case "Alle Pendenzen"
                '        PendStatusnr = -1
                '    Case "Offen/In Bearbeitung"
                '        PendStatusnr = -2
                '    Case "In Bearbeitung"
                '        PendStatusnr = 2
                '    Case "Offen"
                '        PendStatusnr = 1
                '    Case "Erledigt"
                '        PendStatusnr = 3
                '    Case "Hinfällig"
                '        PendStatusnr = 4
                '    Case Else
                '        PendStatusnr = -1
                'End Select
                scmCmdToExecute.Parameters.Add(New SqlParameter("@pendenzstatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, PendStatusnr))
                sdaAdapter.Fill(dtToReturn)
                Return dtToReturn
            Catch ex As Exception
                Throw New Exception("clsPendenzübersicht::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Dispose()
                sdaAdapter.Dispose()
            End Try
        End Function
    End Class


End Namespace