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.
337 lines
11 KiB
337 lines
11 KiB
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
|
|
Namespace TKB.VV.DB
|
|
Public Class cls____shu_lver_in_au
|
|
Inherits clsDBInteractionBase
|
|
|
|
#Region " Class Member Declarations "
|
|
|
|
Private m_fExpr3, m_fCalculatedValue, m_fExpr2, m_fCreatedatetime, m_fExpr1, m_fId As SqlDouble
|
|
Private m_sPrioritaet, m_sTitle, m_sTicketLink, m_sForUserID, m_sUser, m_sStatus, m_sProdukt, m_sTicket_ID, m_sBesitzer, m_sBetreff, m_sRfC_Thema, m_sRfcBoard, m_sVerantwortlicher, m_sKlassifizierung As SqlString
|
|
|
|
#End Region
|
|
|
|
|
|
Public Sub New()
|
|
' // Nothing for now.
|
|
End Sub
|
|
|
|
|
|
Overrides Public Function Insert() As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_____shu_lver_in_au_Insert]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fId", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fId))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTicket_ID", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTicket_ID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fExpr1", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fExpr1))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBesitzer", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBesitzer))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sStatus", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sStatus))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sProdukt", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sProdukt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBetreff", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBetreff))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVerantwortlicher", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVerantwortlicher))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKlassifizierung", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKlassifizierung))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sRfC_Thema", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRfC_Thema))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sRfcBoard", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRfcBoard))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fExpr2", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fExpr2))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sPrioritaet", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPrioritaet))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTicketLink", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTicketLink))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sUser", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUser))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fCreatedatetime", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fCreatedatetime))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fExpr3", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fExpr3))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fCalculatedValue", SqlDbType.Float, 8, ParameterDirection.Input, True, 38, 0, "", DataRowVersion.Proposed, m_fCalculatedValue))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sTitle", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTitle))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sForUserID", SqlDbType.NVarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sForUserID))
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_____shu_lver_in_au_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
|
End If
|
|
|
|
Return True
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("cls____shu_lver_in_au::Insert::Error occured.", ex)
|
|
Finally
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Close connection.
|
|
m_scoMainConnection.Close()
|
|
End If
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Overrides Public Function SelectAll() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[pr_____shu_lver_in_au_SelectAll]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = new DataTable("____shu_lver_in_au")
|
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
|
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = m_scoMainConnection
|
|
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Open connection.
|
|
m_scoMainConnection.Open()
|
|
Else
|
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
|
End If
|
|
End If
|
|
|
|
' // Execute query.
|
|
sdaAdapter.Fill(dtToReturn)
|
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
|
|
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
|
' // Throw error.
|
|
Throw New Exception("Stored Procedure 'pr_____shu_lver_in_au_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
|
End If
|
|
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("cls____shu_lver_in_au::SelectAll::Error occured.", ex)
|
|
Finally
|
|
If m_bMainConnectionIsCreatedLocal Then
|
|
' // Close connection.
|
|
m_scoMainConnection.Close()
|
|
End If
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
#Region " Class Property Declarations "
|
|
|
|
Public Property [fId]() As SqlDouble
|
|
Get
|
|
Return m_fId
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fId = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTicket_ID]() As SqlString
|
|
Get
|
|
Return m_sTicket_ID
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTicket_ID = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fExpr1]() As SqlDouble
|
|
Get
|
|
Return m_fExpr1
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fExpr1 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sBesitzer]() As SqlString
|
|
Get
|
|
Return m_sBesitzer
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBesitzer = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sStatus]() As SqlString
|
|
Get
|
|
Return m_sStatus
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sStatus = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sProdukt]() As SqlString
|
|
Get
|
|
Return m_sProdukt
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sProdukt = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sBetreff]() As SqlString
|
|
Get
|
|
Return m_sBetreff
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sBetreff = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sVerantwortlicher]() As SqlString
|
|
Get
|
|
Return m_sVerantwortlicher
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sVerantwortlicher = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sKlassifizierung]() As SqlString
|
|
Get
|
|
Return m_sKlassifizierung
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sKlassifizierung = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sRfC_Thema]() As SqlString
|
|
Get
|
|
Return m_sRfC_Thema
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sRfC_Thema = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sRfcBoard]() As SqlString
|
|
Get
|
|
Return m_sRfcBoard
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sRfcBoard = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fExpr2]() As SqlDouble
|
|
Get
|
|
Return m_fExpr2
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fExpr2 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sPrioritaet]() As SqlString
|
|
Get
|
|
Return m_sPrioritaet
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sPrioritaet = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTicketLink]() As SqlString
|
|
Get
|
|
Return m_sTicketLink
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTicketLink = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sUser]() As SqlString
|
|
Get
|
|
Return m_sUser
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sUser = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fCreatedatetime]() As SqlDouble
|
|
Get
|
|
Return m_fCreatedatetime
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fCreatedatetime = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fExpr3]() As SqlDouble
|
|
Get
|
|
Return m_fExpr3
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fExpr3 = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [fCalculatedValue]() As SqlDouble
|
|
Get
|
|
Return m_fCalculatedValue
|
|
End Get
|
|
Set(ByVal Value As SqlDouble)
|
|
m_fCalculatedValue = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sTitle]() As SqlString
|
|
Get
|
|
Return m_sTitle
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sTitle = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property [sForUserID]() As SqlString
|
|
Get
|
|
Return m_sForUserID
|
|
End Get
|
|
Set(ByVal Value As SqlString)
|
|
m_sForUserID = Value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
End Namespace
|