Public EventCancelled As Boolean ' Event cancelled
Public CancelMessage As String ' Cancel message
' Row Type
Public RowType As Integer
Public CssClass As String = "" ' CSS class
Public CssStyle As String = "" ' CSS style
Public RowClientEvents As String = "" ' Row client events
' Row Attribute
Public ReadOnly Property RowAttributes() As String
Get
Dim sAtt As String = ""
If ew_NotEmpty(CssStyle) Then
sAtt = sAtt & " style=""" & CssStyle.Trim() & """"
End If
If ew_NotEmpty(CssClass) Then
sAtt = sAtt & " class=""" & CssClass.Trim() & """"
End If
If m_Export = "" Then
If ew_NotEmpty(RowClientEvents) Then
sAtt = sAtt & " " & RowClientEvents.Trim()
End If
End If
Return sAtt
End Get
End Property
' Export
Private m_Export As String
Public Property Export() As String
Get
Return m_Export
End Get
Set(ByVal Value As String)
m_Export = Value
End Set
End Property
' Export Original Value
Public ExportOriginalValue As Boolean = EW_EXPORT_ORIGINAL_VALUE
' Export All
Public ExportAll As Boolean = EW_EXPORT_ALL
' Send Email
Public SendEmail As Boolean
' Custom Inner Html
Public TableCustomInnerHtml As Object
'
' Field objects
'
Public Function FieldByName(Name As String) As Object
If Name = "evtID" Then Return evtID
If Name = "evtDescription" Then Return evtDescription
If Name = "evtIsActive" Then Return evtIsActive
If Name = "evtAllocateBilling" Then Return evtAllocateBilling
If Name = "evtBillingNotes" Then Return evtBillingNotes
If Name = "evtTierLevel" Then Return evtTierLevel
If Name = "evtOverTimePriority" Then Return evtOverTimePriority
Return Nothing
End Function
' evtID
Private m_evtID As cField
Public ReadOnly Property evtID() As cField
Get
If m_evtID Is Nothing Then m_evtID = New cField("tblEvents", "x_evtID", "evtID", "[evtID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_evtID
End Get
End Property
' evtDescription
Private m_evtDescription As cField
Public ReadOnly Property evtDescription() As cField
Get
If m_evtDescription Is Nothing Then m_evtDescription = New cField("tblEvents", "x_evtDescription", "evtDescription", "[evtDescription]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_evtDescription
End Get
End Property
' evtBillingNotes
Private m_evtBillingNotes As cField
Public ReadOnly Property evtBillingNotes() As cField
Get
If m_evtBillingNotes Is Nothing Then m_evtBillingNotes = New cField("tblEvents", "x_evtBillingNotes", "evtBillingNotes", "[evtBillingNotes]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING, 0)
Return m_evtBillingNotes
End Get
End Property
' evtIsActive
Private m_evtIsActive As cField
Public ReadOnly Property evtIsActive() As cField
Get
If m_evtIsActive Is Nothing Then m_evtIsActive = New cField("tblEvents", "x_evtIsActive", "evtIsActive", "[evtIsActive]", 11, OleDbType.Boolean, EW_DATATYPE_BOOLEAN, 0)
Return m_evtIsActive
End Get
End Property
' evtIsActive
Private m_evtAllocateBilling As cField
Public ReadOnly Property evtAllocateBilling() As cField
Get
If m_evtAllocateBilling Is Nothing Then m_evtAllocateBilling = New cField("tblEvents", "x_evtAllocateBilling", "evtAllocateBilling", "[evtAllocateBilling]", 11, OleDbType.Boolean, EW_DATATYPE_BOOLEAN, 0)
Return m_evtAllocateBilling
End Get
End Property
' evtTierLevel
Private m_evtTierLevel As cField
Public ReadOnly Property evtTierLevel() As cField
Get
If m_evtTierLevel Is Nothing Then m_evtTierLevel = New cField("tblEvents", "x_evtTierLevel", "evtTierLevel", "[evtTierLevel]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_evtTierLevel
End Get
End Property
' evtOverTimePriority
Private m_evtOverTimePriority As cField
Public ReadOnly Property evtOverTimePriority() As cField
Get
If m_evtOverTimePriority Is Nothing Then m_evtOverTimePriority = New cField("tblEvents", "x_evtOverTimePriority", "evtOverTimePriority", "[evtOverTimePriority]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
Return m_evtOverTimePriority
End Get
End Property
' Table level events
' Recordset Selecting event
Public Sub Recordset_Selecting(ByRef filter As String)