Imports System


NameSpace sm.Db.Helpers

<System.Serializable()> _
Public Class IMMOBILIDataTable
    Inherits System.Data.DataTable
    Implements System.Collections.IEnumerable

    Public Delegate Sub IMMOBILIRowChangeEventHandler(ByVal sender As Object, ByVal e As IMMOBILIRowChangeEvent)
  Private columnID As System.Data.DataColumn
  Private columnCODICE As System.Data.DataColumn
  Private columnCODICE_AGENZIA As System.Data.DataColumn
  Private columnIMMOBILE As System.Data.DataColumn
  Private columnDESCRIZIONE As System.Data.DataColumn
  Private columnAPPUNTI As System.Data.DataColumn
  Private columnLOCALITA As System.Data.DataColumn
  Private columnCONTROLLO As System.Data.DataColumn
  Private columnPREZZO As System.Data.DataColumn
  Private columnNUMERO_VANI As System.Data.DataColumn
  Private columnONLINE As System.Data.DataColumn
  Private columnFOTO_SI_NO As System.Data.DataColumn
  Private columnOBSOLETO As System.Data.DataColumn

    Public Sub New()
        MyBase.New()
        Me.TableName = "IMMOBILI"
        Me.BeginInit()
        Me.InitClass()
        Me.EndInit()
    End Sub

    Friend Sub New(ByVal table As System.Data.DataTable)
        MyBase.New()
        Me.TableName = table.TableName
        If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
            Me.CaseSensitive = table.CaseSensitive
        End If
        If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
            Me.Locale = table.Locale
        End If
        If (table.Namespace <> table.DataSet.Namespace) Then
            Me.Namespace = table.Namespace
        End If
        Me.Prefix = table.Prefix
        Me.MinimumCapacity = table.MinimumCapacity
    End Sub

    Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
        MyBase.New(info, context)
        Me.InitVars()
    End Sub

  Public ReadOnly Property IDColumn() As System.Data.DataColumn
        Get
            Return Me.columnID
        End Get
    End Property

  Public ReadOnly Property CODICEColumn() As System.Data.DataColumn
        Get
            Return Me.columnCODICE
        End Get
    End Property

  Public ReadOnly Property CODICE_AGENZIAColumn() As System.Data.DataColumn
        Get
            Return Me.columnCODICE_AGENZIA
        End Get
    End Property

  Public ReadOnly Property IMMOBILEColumn() As System.Data.DataColumn
        Get
            Return Me.columnIMMOBILE
        End Get
    End Property

  Public ReadOnly Property DESCRIZIONEColumn() As System.Data.DataColumn
        Get
            Return Me.columnDESCRIZIONE
        End Get
    End Property

  Public ReadOnly Property APPUNTIColumn() As System.Data.DataColumn
        Get
            Return Me.columnAPPUNTI
        End Get
    End Property

  Public ReadOnly Property LOCALITAColumn() As System.Data.DataColumn
        Get
            Return Me.columnLOCALITA
        End Get
    End Property

  Public ReadOnly Property CONTROLLOColumn() As System.Data.DataColumn
        Get
            Return Me.columnCONTROLLO
        End Get
    End Property

  Public ReadOnly Property PREZZOColumn() As System.Data.DataColumn
        Get
            Return Me.columnPREZZO
        End Get
    End Property

  Public ReadOnly Property NUMERO_VANIColumn() As System.Data.DataColumn
        Get
            Return Me.columnNUMERO_VANI
        End Get
    End Property

  Public ReadOnly Property ONLINEColumn() As System.Data.DataColumn
        Get
            Return Me.columnONLINE
        End Get
    End Property

  Public ReadOnly Property FOTO_SI_NOColumn() As System.Data.DataColumn
        Get
            Return Me.columnFOTO_SI_NO
        End Get
    End Property

  Public ReadOnly Property OBSOLETOColumn() As System.Data.DataColumn
        Get
            Return Me.columnOBSOLETO
        End Get
    End Property

    <System.ComponentModel.Browsable(False)> _
    Public ReadOnly Property Count() As Integer
        Get
            Return Me.Rows.Count
        End Get
    End Property

    Default Public ReadOnly Property Item(ByVal index As Integer) As IMMOBILIRow
        Get
            Return CType(Me.Rows(index), IMMOBILIRow)
        End Get
    End Property

    Public Event IMMOBILIRowChanging As IMMOBILIRowChangeEventHandler
    Public Event IMMOBILIRowChanged As IMMOBILIRowChangeEventHandler
    Public Event IMMOBILIRowDeleting As IMMOBILIRowChangeEventHandler
    Public Event IMMOBILIRowDeleted As IMMOBILIRowChangeEventHandler


    Public Overloads Sub AddIMMOBILIRow(ByVal row As IMMOBILIRow)
        Me.Rows.Add(row)
    End Sub


    Public Overloads Function AddIMMOBILIRow(ByVal ID_TABELLE As Integer, ByVal DESCRIZIONE As String) As IMMOBILIRow
        Dim rowIMMOBILIRow As IMMOBILIRow = CType(Me.NewRow, IMMOBILIRow)
        rowIMMOBILIRow.ItemArray = New Object() {Nothing, ID_TABELLE, DESCRIZIONE}
        Me.Rows.Add(rowIMMOBILIRow)
        Return rowIMMOBILIRow
    End Function

    Public Function FindByID(ByVal ID As Integer) As IMMOBILIRow
        Return CType(Me.Rows.Find(New Object() {ID}), IMMOBILIRow)
    End Function

    Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
        Return Me.Rows.GetEnumerator
    End Function

    Public Overrides Function Clone() As System.Data.DataTable
        Dim cln As IMMOBILIDataTable = CType(MyBase.Clone, IMMOBILIDataTable)
        cln.InitVars()
        Return cln
    End Function

    Protected Overrides Function CreateInstance() As System.Data.DataTable
        Return New IMMOBILIDataTable
    End Function

    Friend Sub InitVars()

    Me.columnID = MyBase.Columns("ID")
  

    Me.columnCODICE = MyBase.Columns("CODICE")
  

    Me.columnCODICE_AGENZIA = MyBase.Columns("CODICE_AGENZIA")
  

    Me.columnIMMOBILE = MyBase.Columns("IMMOBILE")
  

    Me.columnDESCRIZIONE = MyBase.Columns("DESCRIZIONE")
  

    Me.columnAPPUNTI = MyBase.Columns("APPUNTI")
  

    Me.columnLOCALITA = MyBase.Columns("LOCALITA")
  

    Me.columnCONTROLLO = MyBase.Columns("CONTROLLO")
  

    Me.columnPREZZO = MyBase.Columns("PREZZO")
  

    Me.columnNUMERO_VANI = MyBase.Columns("NUMERO_VANI")
  

    Me.columnONLINE = MyBase.Columns("ONLINE")
  

    Me.columnFOTO_SI_NO = MyBase.Columns("FOTO_SI_NO")
  

    Me.columnOBSOLETO = MyBase.Columns("OBSOLETO")
  
  End Sub

    Private Sub InitClass()

    Me.columnID = New System.Data.DataColumn("ID", GetType(Integer), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnID)
    
  

    Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnID}, True))
        Me.columnID.AllowDBNull = False
        Me.columnID.Unique = True

    Me.columnID.AutoIncrement = True

    Me.columnCODICE = New System.Data.DataColumn("CODICE", GetType(String), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnCODICE)
    
  

    Me.columnCODICE_AGENZIA = New System.Data.DataColumn("CODICE_AGENZIA", GetType(String), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnCODICE_AGENZIA)
    
  

    Me.columnIMMOBILE = New System.Data.DataColumn("IMMOBILE", GetType(String), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnIMMOBILE)
    
  

    Me.columnDESCRIZIONE = New System.Data.DataColumn("DESCRIZIONE", GetType(String), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnDESCRIZIONE)
    
  

    Me.columnAPPUNTI = New System.Data.DataColumn("APPUNTI", GetType(String), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnAPPUNTI)
    
  

    Me.columnLOCALITA = New System.Data.DataColumn("LOCALITA", GetType(String), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnLOCALITA)
    
  

    Me.columnCONTROLLO = New System.Data.DataColumn("CONTROLLO", GetType(String), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnCONTROLLO)
    
  

    Me.columnPREZZO = New System.Data.DataColumn("PREZZO", GetType(String), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnPREZZO)
    
  

    Me.columnNUMERO_VANI = New System.Data.DataColumn("NUMERO_VANI", GetType(Short), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnNUMERO_VANI)
    
  

    Me.columnONLINE = New System.Data.DataColumn("ONLINE", GetType(Boolean), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnONLINE)
    
  

    Me.columnFOTO_SI_NO = New System.Data.DataColumn("FOTO_SI_NO", GetType(Boolean), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnFOTO_SI_NO)
    
  

    Me.columnOBSOLETO = New System.Data.DataColumn("OBSOLETO", GetType(Boolean), Nothing, System.Data.MappingType.Element)
        MyBase.Columns.Add(Me.columnOBSOLETO)
    
  
  End Sub

    Public Function NewIMMOBILIRow() As IMMOBILIRow
        Return CType(Me.NewRow, IMMOBILIRow)
    End Function

    Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
        Return New IMMOBILIRow(builder)
    End Function

    Protected Overrides Function GetRowType() As System.Type
        Return GetType(IMMOBILIRow)
    End Function

    Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
        MyBase.OnRowChanged(e)
        If (Not (Me.IMMOBILIRowChangedEvent) Is Nothing) Then
            RaiseEvent IMMOBILIRowChanged(Me, New IMMOBILIRowChangeEvent(CType(e.Row, IMMOBILIRow), e.Action))
        End If
    End Sub

    Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
        MyBase.OnRowChanging(e)
        If (Not (Me.IMMOBILIRowChangingEvent) Is Nothing) Then
            RaiseEvent IMMOBILIRowChanging(Me, New IMMOBILIRowChangeEvent(CType(e.Row, IMMOBILIRow), e.Action))
        End If
    End Sub

    Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
        MyBase.OnRowDeleted(e)
        If (Not (Me.IMMOBILIRowDeletedEvent) Is Nothing) Then
            RaiseEvent IMMOBILIRowDeleted(Me, New IMMOBILIRowChangeEvent(CType(e.Row, IMMOBILIRow), e.Action))
        End If
    End Sub

    Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
        MyBase.OnRowDeleting(e)
        If (Not (Me.IMMOBILIRowDeletingEvent) Is Nothing) Then
            RaiseEvent IMMOBILIRowDeleting(Me, New IMMOBILIRowChangeEvent(CType(e.Row, IMMOBILIRow), e.Action))
        End If
    End Sub

    Public Sub RemoveIMMOBILIRow(ByVal row As IMMOBILIRow)
        Me.Rows.Remove(row)
    End Sub
End Class

Public Class IMMOBILIRow
    Inherits System.Data.DataRow

    Private tableIMMOBILI As IMMOBILIDataTable

    Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
        MyBase.New(rb)
        Me.tableIMMOBILI = CType(Me.Table, IMMOBILIDataTable)
    End Sub
  

  Public Property ID() As Integer
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.IDColumn), Integer)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'ID' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As Integer)
            Me(Me.tableIMMOBILI.IDColumn) = value
        End Set
    End Property

  Public Property CODICE() As String
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.CODICEColumn), String)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'CODICE' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As String)
            Me(Me.tableIMMOBILI.CODICEColumn) = value
        End Set
    End Property

  Public Function IsCODICENull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.CODICEColumn)
    End Function

    Public Sub SetCODICENull()
        Me(Me.tableIMMOBILI.CODICEColumn) = System.Convert.DBNull
    End Sub

  Public Property CODICE_AGENZIA() As String
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.CODICE_AGENZIAColumn), String)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'CODICE_AGENZIA' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As String)
            Me(Me.tableIMMOBILI.CODICE_AGENZIAColumn) = value
        End Set
    End Property

  Public Function IsCODICE_AGENZIANull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.CODICE_AGENZIAColumn)
    End Function

    Public Sub SetCODICE_AGENZIANull()
        Me(Me.tableIMMOBILI.CODICE_AGENZIAColumn) = System.Convert.DBNull
    End Sub

  Public Property IMMOBILE() As String
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.IMMOBILEColumn), String)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'IMMOBILE' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As String)
            Me(Me.tableIMMOBILI.IMMOBILEColumn) = value
        End Set
    End Property

  Public Function IsIMMOBILENull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.IMMOBILEColumn)
    End Function

    Public Sub SetIMMOBILENull()
        Me(Me.tableIMMOBILI.IMMOBILEColumn) = System.Convert.DBNull
    End Sub

  Public Property DESCRIZIONE() As String
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.DESCRIZIONEColumn), String)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'DESCRIZIONE' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As String)
            Me(Me.tableIMMOBILI.DESCRIZIONEColumn) = value
        End Set
    End Property

  Public Function IsDESCRIZIONENull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.DESCRIZIONEColumn)
    End Function

    Public Sub SetDESCRIZIONENull()
        Me(Me.tableIMMOBILI.DESCRIZIONEColumn) = System.Convert.DBNull
    End Sub

  Public Property APPUNTI() As String
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.APPUNTIColumn), String)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'APPUNTI' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As String)
            Me(Me.tableIMMOBILI.APPUNTIColumn) = value
        End Set
    End Property

  Public Function IsAPPUNTINull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.APPUNTIColumn)
    End Function

    Public Sub SetAPPUNTINull()
        Me(Me.tableIMMOBILI.APPUNTIColumn) = System.Convert.DBNull
    End Sub

  Public Property LOCALITA() As String
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.LOCALITAColumn), String)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'LOCALITA' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As String)
            Me(Me.tableIMMOBILI.LOCALITAColumn) = value
        End Set
    End Property

  Public Function IsLOCALITANull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.LOCALITAColumn)
    End Function

    Public Sub SetLOCALITANull()
        Me(Me.tableIMMOBILI.LOCALITAColumn) = System.Convert.DBNull
    End Sub

  Public Property CONTROLLO() As String
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.CONTROLLOColumn), String)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'CONTROLLO' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As String)
            Me(Me.tableIMMOBILI.CONTROLLOColumn) = value
        End Set
    End Property

  Public Function IsCONTROLLONull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.CONTROLLOColumn)
    End Function

    Public Sub SetCONTROLLONull()
        Me(Me.tableIMMOBILI.CONTROLLOColumn) = System.Convert.DBNull
    End Sub

  Public Property PREZZO() As String
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.PREZZOColumn), String)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'PREZZO' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As String)
            Me(Me.tableIMMOBILI.PREZZOColumn) = value
        End Set
    End Property

  Public Function IsPREZZONull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.PREZZOColumn)
    End Function

    Public Sub SetPREZZONull()
        Me(Me.tableIMMOBILI.PREZZOColumn) = System.Convert.DBNull
    End Sub

  Public Property NUMERO_VANI() As Short
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.NUMERO_VANIColumn), Short)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'NUMERO_VANI' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As Short)
            Me(Me.tableIMMOBILI.NUMERO_VANIColumn) = value
        End Set
    End Property

  Public Function IsNUMERO_VANINull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.NUMERO_VANIColumn)
    End Function

    Public Sub SetNUMERO_VANINull()
        Me(Me.tableIMMOBILI.NUMERO_VANIColumn) = System.Convert.DBNull
    End Sub

  Public Property ONLINE() As Boolean
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.ONLINEColumn), Boolean)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'ONLINE' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As Boolean)
            Me(Me.tableIMMOBILI.ONLINEColumn) = value
        End Set
    End Property

  Public Function IsONLINENull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.ONLINEColumn)
    End Function

    Public Sub SetONLINENull()
        Me(Me.tableIMMOBILI.ONLINEColumn) = System.Convert.DBNull
    End Sub

  Public Property FOTO_SI_NO() As Boolean
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.FOTO_SI_NOColumn), Boolean)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'FOTO_SI_NO' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As Boolean)
            Me(Me.tableIMMOBILI.FOTO_SI_NOColumn) = value
        End Set
    End Property

  Public Function IsFOTO_SI_NONull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.FOTO_SI_NOColumn)
    End Function

    Public Sub SetFOTO_SI_NONull()
        Me(Me.tableIMMOBILI.FOTO_SI_NOColumn) = System.Convert.DBNull
    End Sub

  Public Property OBSOLETO() As Boolean
        Get
      Try
        Return CType(Me(Me.tableIMMOBILI.OBSOLETOColumn), Boolean)
      Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("Il valore della colonna 'OBSOLETO' nella tabella 'IMMOBILI' è DBNull.", e)
            End Try
        End Get
        Set(ByVal value As Boolean)
            Me(Me.tableIMMOBILI.OBSOLETOColumn) = value
        End Set
    End Property

  Public Function IsOBSOLETONull() As Boolean
        Return Me.IsNull(Me.tableIMMOBILI.OBSOLETOColumn)
    End Function

    Public Sub SetOBSOLETONull()
        Me(Me.tableIMMOBILI.OBSOLETOColumn) = System.Convert.DBNull
    End Sub
  
End Class


Public Class IMMOBILIRowChangeEvent
    Inherits System.EventArgs

    Private eventRow As IMMOBILIRow

    Private eventAction As System.Data.DataRowAction


    Public Sub New(ByVal row As IMMOBILIRow, ByVal action As System.Data.DataRowAction)
        MyBase.New()
        Me.eventRow = row
        Me.eventAction = action
    End Sub

    Public ReadOnly Property Row() As IMMOBILIRow
        Get
            Return Me.eventRow
        End Get
    End Property

    Public ReadOnly Property Action() As System.Data.DataRowAction
        Get
            Return Me.eventAction
        End Get
    End Property
End Class


End NameSpace