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.
106 lines
4.4 KiB
106 lines
4.4 KiB
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
|
|
|