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