|
|
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<6E>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<65>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<6E>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<6E>bersicht::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
End Class
|
|
|
|
|
|
|
|
|
End Namespace
|
