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.
209 lines
10 KiB
209 lines
10 KiB
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Namespace TKB.VV.Vertrag
|
|
|
|
Public Class clsVertragselementApplikation
|
|
Inherits TKB.VV.DB.clsVertragselementApplikation
|
|
|
|
Public Neuer_Datensatz As Boolean = False
|
|
|
|
Sub New()
|
|
MyBase.new()
|
|
End Sub
|
|
Public Overloads Sub dispose()
|
|
MyBase.Dispose()
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Vertragselement_Referenz lesen
|
|
''' </summary>
|
|
''' <param name="Nr"></param>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Function Get_VertragselementApplikation(ByVal Nr As Integer)
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
Me.iVertragselementApplikationnr = New SqlInt32(CType(Nr, Int32))
|
|
Globals.conn.OpenConnection()
|
|
Me.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(1, Int32))
|
|
Globals.Conn.OpenConnection()
|
|
Me.Update()
|
|
Globals.Conn.CloseConnection(True)
|
|
Me.Neuer_Datensatz = False
|
|
Return Me.iVertragselementApplikationnr.Value
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Physisches 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
|
|
Me.Get_VertragselementApplikation(Basenr)
|
|
End If
|
|
Me.cpMainConnectionProvider = Globals.Conn
|
|
Globals.Conn.OpenConnection()
|
|
MyBase.Delete()
|
|
Globals.Conn.CloseConnection(True)
|
|
Me.Neuer_Datensatz = False
|
|
End Function
|
|
''' <summary>
|
|
''' Löschen eines Datensatzes.
|
|
''' </summary>
|
|
''' <param name="Basenr"></param>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Function Delete_VertragselementApplikation(Optional ByVal Basenr As Integer = 0) As Integer
|
|
If Basenr <> 0 Then
|
|
Me.Get_VertragselementApplikation(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(1, Int32))
|
|
Globals.Conn.OpenConnection()
|
|
Me.Update()
|
|
Globals.Conn.CloseConnection(True)
|
|
Me.Neuer_Datensatz = False
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Neue Vertragselement_Referenz erstellen
|
|
''' </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("Vertragselement_Referenz")
|
|
db.Dispose()
|
|
Me.iVertragselementApplikationnr = New SqlInt32(CType(newkey, Int32))
|
|
Me.iVertragselementnr = New SqlInt32(CType(Vertragselementnr, Int32))
|
|
Me.sBemerkung = New SqlString(CType("", String))
|
|
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(1, Int32))
|
|
Me.cpMainConnectionProvider = Globals.Conn
|
|
Globals.Conn.OpenConnection()
|
|
Me.Insert()
|
|
Globals.Conn.CloseConnection(True)
|
|
Me.Neuer_Datensatz = True
|
|
Return newkey
|
|
End Function
|
|
|
|
Public Function Check_Lizenzen(ByVal vertragselementapplikationnr As Integer)
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_lizenz"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = Conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertragselementapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vertragselementapplikationnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Returnvalue", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Conn.OpenConnection()
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Conn.CloseConnection(True)
|
|
If scmCmdToExecute.Parameters("@returnvalue").Value = 1 Then
|
|
Return False
|
|
Else
|
|
Return True
|
|
End If
|
|
Catch ex As Exception
|
|
Throw New Exception("clsApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Public Function Get_Vertragselemente(ByVal Vertragspartnernr As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_get_Lizenz_VEApplElemente"
|
|
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, 1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertragspartnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Vertragspartnernr))
|
|
Conn.OpenConnection()
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Conn.CloseConnection(True)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Throw New Exception("clsVertragselementApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Get_Lizenzverbindungen(ByVal Vertragselementapplikationnr) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_get_Lizenzverbindungen"
|
|
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, 1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertragselementapplikationnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Vertragselementapplikationnr))
|
|
Conn.OpenConnection()
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Conn.CloseConnection(True)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Throw New Exception("clsVertragselementApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Check_Bereits_Vorhanden(ByVal veapplnr As Integer, ByVal applnr As Integer, ByVal versionnr As Integer) As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_veappl"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@venr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, veapplnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@applnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, applnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@versionnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, versionnr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@counter", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
conn.OpenConnection()
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
conn.CloseConnection(True)
|
|
If scmCmdToExecute.Parameters("@counter").Value > 0 Then Return False Else Return True
|
|
Catch ex As Exception
|
|
Throw New Exception("clsVertragselementApplikation::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
End Class
|
|
|
|
End Namespace
|
|
|