Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Imports System.Collections.Specialized

Imports MyGeneration.dOOdads

NameSpace sm.Db.Helpers

  Public MustInherit Class _IMMOBILI
    Inherits OleDbEntity

    Public Sub New() 
      Me.QuerySource = "IMMOBILI"
      Me.MappingName = "IMMOBILI"
    End Sub

  Public Sub New(ByVal DataTableType As Object) 
      MyBase.New(DataTableType)
      Me.QuerySource = "IMMOBILI"
      Me.MappingName = "IMMOBILI"
    End Sub
  '=================================================================
  '  Public Overrides Sub AddNew()
  '=================================================================
  '
  '=================================================================
  Public Overrides Sub AddNew()
    MyBase.AddNew()
        
  End Sub
  
  Public Overrides Sub FlushData()
    Me._whereClause = nothing
    Me._aggregateClause = nothing    
    MyBase.FlushData()
  End Sub
  
  
  Public Overrides Function GetAutoKeyColumn() As String
      Return "ID"
  End Function
  
  '=================================================================
  '    Public Function LoadAll() As Boolean
  '=================================================================
  '  Loads all of the records in the database, and sets the currentRow to the first row
  '=================================================================
  Public Function LoadAll() As Boolean
  
    Dim parameters As ListDictionary = Nothing
    
    
      Return MyBase.LoadFromSql("[" + Me.SchemaStoredProcedure + "proc_IMMOBILILoadAll]", parameters)
    
  End Function

  '=================================================================
  ' Public Overridable Function LoadByPrimaryKey()  As Boolean
  '=================================================================
  '  Loads a single row of via the primary key
  '=================================================================
  Public Overridable Function LoadByPrimaryKey(ByVal ID As Integer) As Boolean

    Dim parameters As ListDictionary = New ListDictionary()
    parameters.Add(_IMMOBILI.Parameters.ID, ID)

    
    Return MyBase.LoadFromSql("[" + Me.SchemaStoredProcedure + "proc_IMMOBILILoadByPrimaryKey]", parameters)

  End Function

  #Region "Parameters"
  Protected class Parameters 
    
    Public Shared ReadOnly Property ID As OleDbParameter
      Get
        Return New OleDbParameter("_ID", OleDbType.Numeric, 0)
      End Get
    End Property
    
    Public Shared ReadOnly Property CODICE As OleDbParameter
      Get
        Return New OleDbParameter("_CODICE", OleDbType.VarWChar, 10)
      End Get
    End Property
    
    Public Shared ReadOnly Property CODICE_AGENZIA As OleDbParameter
      Get
        Return New OleDbParameter("_CODICE_AGENZIA", OleDbType.VarWChar, 50)
      End Get
    End Property
    
    Public Shared ReadOnly Property IMMOBILE As OleDbParameter
      Get
        Return New OleDbParameter("_IMMOBILE", OleDbType.VarWChar, 50)
      End Get
    End Property
    
    Public Shared ReadOnly Property DESCRIZIONE As OleDbParameter
      Get
        Return New OleDbParameter("_DESCRIZIONE", OleDbType.LongVarWChar, 0)
      End Get
    End Property
    
    Public Shared ReadOnly Property APPUNTI As OleDbParameter
      Get
        Return New OleDbParameter("_APPUNTI", OleDbType.LongVarWChar, 0)
      End Get
    End Property
    
    Public Shared ReadOnly Property LOCALITA As OleDbParameter
      Get
        Return New OleDbParameter("_LOCALITA", OleDbType.VarWChar, 50)
      End Get
    End Property
    
    Public Shared ReadOnly Property CONTROLLO As OleDbParameter
      Get
        Return New OleDbParameter("_CONTROLLO", OleDbType.VarWChar, 10)
      End Get
    End Property
    
    Public Shared ReadOnly Property PREZZO As OleDbParameter
      Get
        Return New OleDbParameter("_PREZZO", OleDbType.VarWChar, 50)
      End Get
    End Property
    
    Public Shared ReadOnly Property NUMERO_VANI As OleDbParameter
      Get
        Return New OleDbParameter("_NUMERO_VANI", OleDbType.SmallInt, 0)
      End Get
    End Property
    
    Public Shared ReadOnly Property ONLINE As OleDbParameter
      Get
        Return New OleDbParameter("_ONLINE", OleDbType.Boolean, 2)
      End Get
    End Property
    
    Public Shared ReadOnly Property FOTO_SI_NO As OleDbParameter
      Get
        Return New OleDbParameter("_FOTO_SI_NO", OleDbType.Boolean, 2)
      End Get
    End Property
    
    Public Shared ReadOnly Property OBSOLETO As OleDbParameter
      Get
        Return New OleDbParameter("_OBSOLETO", OleDbType.Boolean, 2)
      End Get
    End Property
    
  End Class
  #End Region  

  #Region "ColumnNames"
  Public class ColumnNames
    
        Public Const ID As String = "ID"
        Public Const CODICE As String = "CODICE"
        Public Const CODICE_AGENZIA As String = "CODICE_AGENZIA"
        Public Const IMMOBILE As String = "IMMOBILE"
        Public Const DESCRIZIONE As String = "DESCRIZIONE"
        Public Const APPUNTI As String = "APPUNTI"
        Public Const LOCALITA As String = "LOCALITA"
        Public Const CONTROLLO As String = "CONTROLLO"
        Public Const PREZZO As String = "PREZZO"
        Public Const NUMERO_VANI As String = "NUMERO_VANI"
        Public Const ONLINE As String = "ONLINE"
        Public Const FOTO_SI_NO As String = "FOTO_SI_NO"
        Public Const OBSOLETO As String = "OBSOLETO"

    Shared Public Function ToPropertyName(ByVal columnName As String) As String

      If ht Is Nothing Then
      
        ht = new Hashtable
        
        ht(ID) = _IMMOBILI.PropertyNames.ID
        ht(CODICE) = _IMMOBILI.PropertyNames.CODICE
        ht(CODICE_AGENZIA) = _IMMOBILI.PropertyNames.CODICE_AGENZIA
        ht(IMMOBILE) = _IMMOBILI.PropertyNames.IMMOBILE
        ht(DESCRIZIONE) = _IMMOBILI.PropertyNames.DESCRIZIONE
        ht(APPUNTI) = _IMMOBILI.PropertyNames.APPUNTI
        ht(LOCALITA) = _IMMOBILI.PropertyNames.LOCALITA
        ht(CONTROLLO) = _IMMOBILI.PropertyNames.CONTROLLO
        ht(PREZZO) = _IMMOBILI.PropertyNames.PREZZO
        ht(NUMERO_VANI) = _IMMOBILI.PropertyNames.NUMERO_VANI
        ht(ONLINE) = _IMMOBILI.PropertyNames.ONLINE
        ht(FOTO_SI_NO) = _IMMOBILI.PropertyNames.FOTO_SI_NO
        ht(OBSOLETO) = _IMMOBILI.PropertyNames.OBSOLETO

      End If
      
      Return CType(ht(columnName), String)
      
    End Function
    
    Shared Private ht  As Hashtable = Nothing     
  End Class
  #End Region  
  
  #Region "PropertyNames"
  Public class PropertyNames
    
        Public Const ID As String = "ID"
        Public Const CODICE As String = "CODICE"
        Public Const CODICE_AGENZIA As String = "CODICE_AGENZIA"
        Public Const IMMOBILE As String = "IMMOBILE"
        Public Const DESCRIZIONE As String = "DESCRIZIONE"
        Public Const APPUNTI As String = "APPUNTI"
        Public Const LOCALITA As String = "LOCALITA"
        Public Const CONTROLLO As String = "CONTROLLO"
        Public Const PREZZO As String = "PREZZO"
        Public Const NUMERO_VANI As String = "NUMERO_VANI"
        Public Const ONLINE As String = "ONLINE"
        Public Const FOTO_SI_NO As String = "FOTO_SI_NO"
        Public Const OBSOLETO As String = "OBSOLETO"

    Shared Public Function ToColumnName(ByVal propertyName As String) As String

      If ht Is Nothing Then
      
        ht = new Hashtable
        
        ht(ID) = _IMMOBILI.ColumnNames.ID
        ht(CODICE) = _IMMOBILI.ColumnNames.CODICE
        ht(CODICE_AGENZIA) = _IMMOBILI.ColumnNames.CODICE_AGENZIA
        ht(IMMOBILE) = _IMMOBILI.ColumnNames.IMMOBILE
        ht(DESCRIZIONE) = _IMMOBILI.ColumnNames.DESCRIZIONE
        ht(APPUNTI) = _IMMOBILI.ColumnNames.APPUNTI
        ht(LOCALITA) = _IMMOBILI.ColumnNames.LOCALITA
        ht(CONTROLLO) = _IMMOBILI.ColumnNames.CONTROLLO
        ht(PREZZO) = _IMMOBILI.ColumnNames.PREZZO
        ht(NUMERO_VANI) = _IMMOBILI.ColumnNames.NUMERO_VANI
        ht(ONLINE) = _IMMOBILI.ColumnNames.ONLINE
        ht(FOTO_SI_NO) = _IMMOBILI.ColumnNames.FOTO_SI_NO
        ht(OBSOLETO) = _IMMOBILI.ColumnNames.OBSOLETO

      End If
      
      Return CType(ht(propertyName), String)
      
    End Function
    
    Shared Private ht  As Hashtable = Nothing
    
  End Class
  #End Region  
  
  #Region "StringPropertyNames"
  Public class StringPropertyNames
    
        Public Const ID As String = "s_ID"
        Public Const CODICE As String = "s_CODICE"
        Public Const CODICE_AGENZIA As String = "s_CODICE_AGENZIA"
        Public Const IMMOBILE As String = "s_IMMOBILE"
        Public Const DESCRIZIONE As String = "s_DESCRIZIONE"
        Public Const APPUNTI As String = "s_APPUNTI"
        Public Const LOCALITA As String = "s_LOCALITA"
        Public Const CONTROLLO As String = "s_CONTROLLO"
        Public Const PREZZO As String = "s_PREZZO"
        Public Const NUMERO_VANI As String = "s_NUMERO_VANI"
        Public Const ONLINE As String = "s_ONLINE"
        Public Const FOTO_SI_NO As String = "s_FOTO_SI_NO"
        Public Const OBSOLETO As String = "s_OBSOLETO"

  End Class
  #End Region    
  
  #Region "Properties" 
    Public Overridable Property ID As Integer
      Get
        Return MyBase.GetInteger(ColumnNames.ID)
      End Get
      Set(ByVal Value As Integer)
        MyBase.SetInteger(ColumnNames.ID, Value)
      End Set
    End Property

    Public Overridable Property CODICE As String
      Get
        Return MyBase.GetString(ColumnNames.CODICE)
      End Get
      Set(ByVal Value As String)
        MyBase.SetString(ColumnNames.CODICE, Value)
      End Set
    End Property

    Public Overridable Property CODICE_AGENZIA As String
      Get
        Return MyBase.GetString(ColumnNames.CODICE_AGENZIA)
      End Get
      Set(ByVal Value As String)
        MyBase.SetString(ColumnNames.CODICE_AGENZIA, Value)
      End Set
    End Property

    Public Overridable Property IMMOBILE As String
      Get
        Return MyBase.GetString(ColumnNames.IMMOBILE)
      End Get
      Set(ByVal Value As String)
        MyBase.SetString(ColumnNames.IMMOBILE, Value)
      End Set
    End Property

    Public Overridable Property DESCRIZIONE As String
      Get
        Return MyBase.GetString(ColumnNames.DESCRIZIONE)
      End Get
      Set(ByVal Value As String)
        MyBase.SetString(ColumnNames.DESCRIZIONE, Value)
      End Set
    End Property

    Public Overridable Property APPUNTI As String
      Get
        Return MyBase.GetString(ColumnNames.APPUNTI)
      End Get
      Set(ByVal Value As String)
        MyBase.SetString(ColumnNames.APPUNTI, Value)
      End Set
    End Property

    Public Overridable Property LOCALITA As String
      Get
        Return MyBase.GetString(ColumnNames.LOCALITA)
      End Get
      Set(ByVal Value As String)
        MyBase.SetString(ColumnNames.LOCALITA, Value)
      End Set
    End Property

    Public Overridable Property CONTROLLO As String
      Get
        Return MyBase.GetString(ColumnNames.CONTROLLO)
      End Get
      Set(ByVal Value As String)
        MyBase.SetString(ColumnNames.CONTROLLO, Value)
      End Set
    End Property

    Public Overridable Property PREZZO As String
      Get
        Return MyBase.GetString(ColumnNames.PREZZO)
      End Get
      Set(ByVal Value As String)
        MyBase.SetString(ColumnNames.PREZZO, Value)
      End Set
    End Property

    Public Overridable Property NUMERO_VANI As Short
      Get
        Return MyBase.GetShort(ColumnNames.NUMERO_VANI)
      End Get
      Set(ByVal Value As Short)
        MyBase.SetShort(ColumnNames.NUMERO_VANI, Value)
      End Set
    End Property

    Public Overridable Property ONLINE As Boolean
      Get
        Return MyBase.GetBoolean(ColumnNames.ONLINE)
      End Get
      Set(ByVal Value As Boolean)
        MyBase.SetBoolean(ColumnNames.ONLINE, Value)
      End Set
    End Property

    Public Overridable Property FOTO_SI_NO As Boolean
      Get
        Return MyBase.GetBoolean(ColumnNames.FOTO_SI_NO)
      End Get
      Set(ByVal Value As Boolean)
        MyBase.SetBoolean(ColumnNames.FOTO_SI_NO, Value)
      End Set
    End Property

    Public Overridable Property OBSOLETO As Boolean
      Get
        Return MyBase.GetBoolean(ColumnNames.OBSOLETO)
      End Get
      Set(ByVal Value As Boolean)
        MyBase.SetBoolean(ColumnNames.OBSOLETO, Value)
      End Set
    End Property


  #End Region  
  
  #Region "String Properties" 

    Public Overridable Property s_ID As String
      Get
        If Me.IsColumnNull(ColumnNames.ID) Then
          Return String.Empty
        Else
          Return MyBase.GetIntegerAsString(ColumnNames.ID)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.ID)
        Else
          Me.ID = MyBase.SetIntegerAsString(ColumnNames.ID, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_CODICE As String
      Get
        If Me.IsColumnNull(ColumnNames.CODICE) Then
          Return String.Empty
        Else
          Return MyBase.GetStringAsString(ColumnNames.CODICE)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.CODICE)
        Else
          Me.CODICE = MyBase.SetStringAsString(ColumnNames.CODICE, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_CODICE_AGENZIA As String
      Get
        If Me.IsColumnNull(ColumnNames.CODICE_AGENZIA) Then
          Return String.Empty
        Else
          Return MyBase.GetStringAsString(ColumnNames.CODICE_AGENZIA)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.CODICE_AGENZIA)
        Else
          Me.CODICE_AGENZIA = MyBase.SetStringAsString(ColumnNames.CODICE_AGENZIA, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_IMMOBILE As String
      Get
        If Me.IsColumnNull(ColumnNames.IMMOBILE) Then
          Return String.Empty
        Else
          Return MyBase.GetStringAsString(ColumnNames.IMMOBILE)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.IMMOBILE)
        Else
          Me.IMMOBILE = MyBase.SetStringAsString(ColumnNames.IMMOBILE, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_DESCRIZIONE As String
      Get
        If Me.IsColumnNull(ColumnNames.DESCRIZIONE) Then
          Return String.Empty
        Else
          Return MyBase.GetStringAsString(ColumnNames.DESCRIZIONE)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.DESCRIZIONE)
        Else
          Me.DESCRIZIONE = MyBase.SetStringAsString(ColumnNames.DESCRIZIONE, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_APPUNTI As String
      Get
        If Me.IsColumnNull(ColumnNames.APPUNTI) Then
          Return String.Empty
        Else
          Return MyBase.GetStringAsString(ColumnNames.APPUNTI)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.APPUNTI)
        Else
          Me.APPUNTI = MyBase.SetStringAsString(ColumnNames.APPUNTI, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_LOCALITA As String
      Get
        If Me.IsColumnNull(ColumnNames.LOCALITA) Then
          Return String.Empty
        Else
          Return MyBase.GetStringAsString(ColumnNames.LOCALITA)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.LOCALITA)
        Else
          Me.LOCALITA = MyBase.SetStringAsString(ColumnNames.LOCALITA, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_CONTROLLO As String
      Get
        If Me.IsColumnNull(ColumnNames.CONTROLLO) Then
          Return String.Empty
        Else
          Return MyBase.GetStringAsString(ColumnNames.CONTROLLO)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.CONTROLLO)
        Else
          Me.CONTROLLO = MyBase.SetStringAsString(ColumnNames.CONTROLLO, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_PREZZO As String
      Get
        If Me.IsColumnNull(ColumnNames.PREZZO) Then
          Return String.Empty
        Else
          Return MyBase.GetStringAsString(ColumnNames.PREZZO)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.PREZZO)
        Else
          Me.PREZZO = MyBase.SetStringAsString(ColumnNames.PREZZO, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_NUMERO_VANI As String
      Get
        If Me.IsColumnNull(ColumnNames.NUMERO_VANI) Then
          Return String.Empty
        Else
          Return MyBase.GetShortAsString(ColumnNames.NUMERO_VANI)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.NUMERO_VANI)
        Else
          Me.NUMERO_VANI = MyBase.SetShortAsString(ColumnNames.NUMERO_VANI, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_ONLINE As String
      Get
        If Me.IsColumnNull(ColumnNames.ONLINE) Then
          Return String.Empty
        Else
          Return MyBase.GetBooleanAsString(ColumnNames.ONLINE)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.ONLINE)
        Else
          Me.ONLINE = MyBase.SetBooleanAsString(ColumnNames.ONLINE, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_FOTO_SI_NO As String
      Get
        If Me.IsColumnNull(ColumnNames.FOTO_SI_NO) Then
          Return String.Empty
        Else
          Return MyBase.GetBooleanAsString(ColumnNames.FOTO_SI_NO)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.FOTO_SI_NO)
        Else
          Me.FOTO_SI_NO = MyBase.SetBooleanAsString(ColumnNames.FOTO_SI_NO, Value)
        End If
      End Set
    End Property

    Public Overridable Property s_OBSOLETO As String
      Get
        If Me.IsColumnNull(ColumnNames.OBSOLETO) Then
          Return String.Empty
        Else
          Return MyBase.GetBooleanAsString(ColumnNames.OBSOLETO)
        End If
      End Get
      Set(ByVal Value As String)
        If String.Empty = value Then
          Me.SetColumnNull(ColumnNames.OBSOLETO)
        Else
          Me.OBSOLETO = MyBase.SetBooleanAsString(ColumnNames.OBSOLETO, Value)
        End If
      End Set
    End Property


  #End Region    

  #Region "Where Clause"
    Public Class WhereClause

        Public Sub New(ByVal entity As BusinessEntity)
            Me._entity = entity
        End Sub
    
    Public ReadOnly Property TearOff As TearOffWhereParameter
      Get
        If _tearOff Is Nothing Then
          _tearOff = new TearOffWhereParameter(Me)
        End If

        Return _tearOff
      End Get
    End Property

    #Region "TearOff's"
    Public class TearOffWhereParameter

      Public Sub New(ByVal clause As WhereClause)
        Me._clause = clause
      End Sub
    
  
      Public ReadOnly Property ID() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.ID, Parameters.ID)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property CODICE() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.CODICE, Parameters.CODICE)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property CODICE_AGENZIA() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.CODICE_AGENZIA, Parameters.CODICE_AGENZIA)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property IMMOBILE() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.IMMOBILE, Parameters.IMMOBILE)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property DESCRIZIONE() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.DESCRIZIONE, Parameters.DESCRIZIONE)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property APPUNTI() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.APPUNTI, Parameters.APPUNTI)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property LOCALITA() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.LOCALITA, Parameters.LOCALITA)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property CONTROLLO() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.CONTROLLO, Parameters.CONTROLLO)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property PREZZO() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.PREZZO, Parameters.PREZZO)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property NUMERO_VANI() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.NUMERO_VANI, Parameters.NUMERO_VANI)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property ONLINE() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.ONLINE, Parameters.ONLINE)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property FOTO_SI_NO() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.FOTO_SI_NO, Parameters.FOTO_SI_NO)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property

      Public ReadOnly Property OBSOLETO() As WhereParameter
        Get
          Dim where As WhereParameter = New WhereParameter(ColumnNames.OBSOLETO, Parameters.OBSOLETO)
          Me._clause._entity.Query.AddWhereParemeter(where)
          Return where
        End Get
      End Property


      Private _clause as WhereClause
    End Class
    #End Region  

    Public ReadOnly Property ID() As WhereParameter 
      Get
        If _ID_W Is Nothing Then
          _ID_W = TearOff.ID
        End If
        Return _ID_W
      End Get
    End Property

    Public ReadOnly Property CODICE() As WhereParameter 
      Get
        If _CODICE_W Is Nothing Then
          _CODICE_W = TearOff.CODICE
        End If
        Return _CODICE_W
      End Get
    End Property

    Public ReadOnly Property CODICE_AGENZIA() As WhereParameter 
      Get
        If _CODICE_AGENZIA_W Is Nothing Then
          _CODICE_AGENZIA_W = TearOff.CODICE_AGENZIA
        End If
        Return _CODICE_AGENZIA_W
      End Get
    End Property

    Public ReadOnly Property IMMOBILE() As WhereParameter 
      Get
        If _IMMOBILE_W Is Nothing Then
          _IMMOBILE_W = TearOff.IMMOBILE
        End If
        Return _IMMOBILE_W
      End Get
    End Property

    Public ReadOnly Property DESCRIZIONE() As WhereParameter 
      Get
        If _DESCRIZIONE_W Is Nothing Then
          _DESCRIZIONE_W = TearOff.DESCRIZIONE
        End If
        Return _DESCRIZIONE_W
      End Get
    End Property

    Public ReadOnly Property APPUNTI() As WhereParameter 
      Get
        If _APPUNTI_W Is Nothing Then
          _APPUNTI_W = TearOff.APPUNTI
        End If
        Return _APPUNTI_W
      End Get
    End Property

    Public ReadOnly Property LOCALITA() As WhereParameter 
      Get
        If _LOCALITA_W Is Nothing Then
          _LOCALITA_W = TearOff.LOCALITA
        End If
        Return _LOCALITA_W
      End Get
    End Property

    Public ReadOnly Property CONTROLLO() As WhereParameter 
      Get
        If _CONTROLLO_W Is Nothing Then
          _CONTROLLO_W = TearOff.CONTROLLO
        End If
        Return _CONTROLLO_W
      End Get
    End Property

    Public ReadOnly Property PREZZO() As WhereParameter 
      Get
        If _PREZZO_W Is Nothing Then
          _PREZZO_W = TearOff.PREZZO
        End If
        Return _PREZZO_W
      End Get
    End Property

    Public ReadOnly Property NUMERO_VANI() As WhereParameter 
      Get
        If _NUMERO_VANI_W Is Nothing Then
          _NUMERO_VANI_W = TearOff.NUMERO_VANI
        End If
        Return _NUMERO_VANI_W
      End Get
    End Property

    Public ReadOnly Property ONLINE() As WhereParameter 
      Get
        If _ONLINE_W Is Nothing Then
          _ONLINE_W = TearOff.ONLINE
        End If
        Return _ONLINE_W
      End Get
    End Property

    Public ReadOnly Property FOTO_SI_NO() As WhereParameter 
      Get
        If _FOTO_SI_NO_W Is Nothing Then
          _FOTO_SI_NO_W = TearOff.FOTO_SI_NO
        End If
        Return _FOTO_SI_NO_W
      End Get
    End Property

    Public ReadOnly Property OBSOLETO() As WhereParameter 
      Get
        If _OBSOLETO_W Is Nothing Then
          _OBSOLETO_W = TearOff.OBSOLETO
        End If
        Return _OBSOLETO_W
      End Get
    End Property

    Private _ID_W As WhereParameter = Nothing
    Private _CODICE_W As WhereParameter = Nothing
    Private _CODICE_AGENZIA_W As WhereParameter = Nothing
    Private _IMMOBILE_W As WhereParameter = Nothing
    Private _DESCRIZIONE_W As WhereParameter = Nothing
    Private _APPUNTI_W As WhereParameter = Nothing
    Private _LOCALITA_W As WhereParameter = Nothing
    Private _CONTROLLO_W As WhereParameter = Nothing
    Private _PREZZO_W As WhereParameter = Nothing
    Private _NUMERO_VANI_W As WhereParameter = Nothing
    Private _ONLINE_W As WhereParameter = Nothing
    Private _FOTO_SI_NO_W As WhereParameter = Nothing
    Private _OBSOLETO_W As WhereParameter = Nothing

      Public Sub WhereClauseReset()

      _ID_W = Nothing
      _CODICE_W = Nothing
      _CODICE_AGENZIA_W = Nothing
      _IMMOBILE_W = Nothing
      _DESCRIZIONE_W = Nothing
      _APPUNTI_W = Nothing
      _LOCALITA_W = Nothing
      _CONTROLLO_W = Nothing
      _PREZZO_W = Nothing
      _NUMERO_VANI_W = Nothing
      _ONLINE_W = Nothing
      _FOTO_SI_NO_W = Nothing
      _OBSOLETO_W = Nothing
        Me._entity.Query.FlushWhereParameters()

      End Sub
  
    Private _entity As BusinessEntity
    Private _tearOff As TearOffWhereParameter
    End Class  

  Public ReadOnly Property Where() As WhereClause
    Get
      If _whereClause Is Nothing Then
        _whereClause = New WhereClause(Me)
      End If
  
      Return _whereClause
    End Get
  End Property
  
  Private _whereClause As WhereClause = Nothing  
#End Region  

#Region "Aggregate Clause"
    Public Class AggregateClause

        Public Sub New(ByVal entity As BusinessEntity)
            Me._entity = entity
        End Sub
    
    Public ReadOnly Property TearOff As TearOffAggregateParameter
      Get
        If _tearOff Is Nothing Then
          _tearOff = new TearOffAggregateParameter(Me)
        End If

        Return _tearOff
      End Get
    End Property

    #Region "AggregateParameter TearOff's"
    Public class TearOffAggregateParameter

      Public Sub New(ByVal clause As AggregateClause)
        Me._clause = clause
      End Sub
    
  
    Public ReadOnly Property ID() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.ID, Parameters.ID)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property CODICE() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.CODICE, Parameters.CODICE)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property CODICE_AGENZIA() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.CODICE_AGENZIA, Parameters.CODICE_AGENZIA)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property IMMOBILE() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.IMMOBILE, Parameters.IMMOBILE)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property DESCRIZIONE() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.DESCRIZIONE, Parameters.DESCRIZIONE)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property APPUNTI() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.APPUNTI, Parameters.APPUNTI)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property LOCALITA() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.LOCALITA, Parameters.LOCALITA)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property CONTROLLO() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.CONTROLLO, Parameters.CONTROLLO)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property PREZZO() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.PREZZO, Parameters.PREZZO)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property NUMERO_VANI() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.NUMERO_VANI, Parameters.NUMERO_VANI)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property ONLINE() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.ONLINE, Parameters.ONLINE)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property FOTO_SI_NO() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.FOTO_SI_NO, Parameters.FOTO_SI_NO)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property

    Public ReadOnly Property OBSOLETO() As AggregateParameter
      Get
        Dim where As AggregateParameter = New AggregateParameter(ColumnNames.OBSOLETO, Parameters.OBSOLETO)
        Me._clause._entity.Query.AddAggregateParameter(where)
        Return where
      End Get
    End Property


      Private _clause as AggregateClause
    End Class
    #End Region  

    Public ReadOnly Property ID() As AggregateParameter 
      Get
        If _ID_W Is Nothing Then
          _ID_W = TearOff.ID
        End If
        Return _ID_W
      End Get
    End Property

    Public ReadOnly Property CODICE() As AggregateParameter 
      Get
        If _CODICE_W Is Nothing Then
          _CODICE_W = TearOff.CODICE
        End If
        Return _CODICE_W
      End Get
    End Property

    Public ReadOnly Property CODICE_AGENZIA() As AggregateParameter 
      Get
        If _CODICE_AGENZIA_W Is Nothing Then
          _CODICE_AGENZIA_W = TearOff.CODICE_AGENZIA
        End If
        Return _CODICE_AGENZIA_W
      End Get
    End Property

    Public ReadOnly Property IMMOBILE() As AggregateParameter 
      Get
        If _IMMOBILE_W Is Nothing Then
          _IMMOBILE_W = TearOff.IMMOBILE
        End If
        Return _IMMOBILE_W
      End Get
    End Property

    Public ReadOnly Property DESCRIZIONE() As AggregateParameter 
      Get
        If _DESCRIZIONE_W Is Nothing Then
          _DESCRIZIONE_W = TearOff.DESCRIZIONE
        End If
        Return _DESCRIZIONE_W
      End Get
    End Property

    Public ReadOnly Property APPUNTI() As AggregateParameter 
      Get
        If _APPUNTI_W Is Nothing Then
          _APPUNTI_W = TearOff.APPUNTI
        End If
        Return _APPUNTI_W
      End Get
    End Property

    Public ReadOnly Property LOCALITA() As AggregateParameter 
      Get
        If _LOCALITA_W Is Nothing Then
          _LOCALITA_W = TearOff.LOCALITA
        End If
        Return _LOCALITA_W
      End Get
    End Property

    Public ReadOnly Property CONTROLLO() As AggregateParameter 
      Get
        If _CONTROLLO_W Is Nothing Then
          _CONTROLLO_W = TearOff.CONTROLLO
        End If
        Return _CONTROLLO_W
      End Get
    End Property

    Public ReadOnly Property PREZZO() As AggregateParameter 
      Get
        If _PREZZO_W Is Nothing Then
          _PREZZO_W = TearOff.PREZZO
        End If
        Return _PREZZO_W
      End Get
    End Property

    Public ReadOnly Property NUMERO_VANI() As AggregateParameter 
      Get
        If _NUMERO_VANI_W Is Nothing Then
          _NUMERO_VANI_W = TearOff.NUMERO_VANI
        End If
        Return _NUMERO_VANI_W
      End Get
    End Property

    Public ReadOnly Property ONLINE() As AggregateParameter 
      Get
        If _ONLINE_W Is Nothing Then
          _ONLINE_W = TearOff.ONLINE
        End If
        Return _ONLINE_W
      End Get
    End Property

    Public ReadOnly Property FOTO_SI_NO() As AggregateParameter 
      Get
        If _FOTO_SI_NO_W Is Nothing Then
          _FOTO_SI_NO_W = TearOff.FOTO_SI_NO
        End If
        Return _FOTO_SI_NO_W
      End Get
    End Property

    Public ReadOnly Property OBSOLETO() As AggregateParameter 
      Get
        If _OBSOLETO_W Is Nothing Then
          _OBSOLETO_W = TearOff.OBSOLETO
        End If
        Return _OBSOLETO_W
      End Get
    End Property

    Private _ID_W As AggregateParameter = Nothing
    Private _CODICE_W As AggregateParameter = Nothing
    Private _CODICE_AGENZIA_W As AggregateParameter = Nothing
    Private _IMMOBILE_W As AggregateParameter = Nothing
    Private _DESCRIZIONE_W As AggregateParameter = Nothing
    Private _APPUNTI_W As AggregateParameter = Nothing
    Private _LOCALITA_W As AggregateParameter = Nothing
    Private _CONTROLLO_W As AggregateParameter = Nothing
    Private _PREZZO_W As AggregateParameter = Nothing
    Private _NUMERO_VANI_W As AggregateParameter = Nothing
    Private _ONLINE_W As AggregateParameter = Nothing
    Private _FOTO_SI_NO_W As AggregateParameter = Nothing
    Private _OBSOLETO_W As AggregateParameter = Nothing

    Public Sub AggregateClauseReset()

    _ID_W = Nothing
    _CODICE_W = Nothing
    _CODICE_AGENZIA_W = Nothing
    _IMMOBILE_W = Nothing
    _DESCRIZIONE_W = Nothing
    _APPUNTI_W = Nothing
    _LOCALITA_W = Nothing
    _CONTROLLO_W = Nothing
    _PREZZO_W = Nothing
    _NUMERO_VANI_W = Nothing
    _ONLINE_W = Nothing
    _FOTO_SI_NO_W = Nothing
    _OBSOLETO_W = Nothing
      Me._entity.Query.FlushAggregateParameters()

    End Sub
  
    Private _entity As BusinessEntity
    Private _tearOff As TearOffAggregateParameter
    End Class  

  Public ReadOnly Property Aggregate() As AggregateClause
    Get
      If _aggregateClause Is Nothing Then
        _aggregateClause = New AggregateClause(Me)
      End If
  
      Return _aggregateClause
    End Get
  End Property
  
  Private _aggregateClause As AggregateClause = Nothing  
#End Region  

  Protected Overrides Function GetInsertCommand() As IDbCommand
  
    Dim cmd As OleDbCommand = New OleDbCommand
    cmd.CommandType = CommandType.StoredProcedure
    cmd.CommandText = "[" + Me.SchemaStoredProcedure + "proc_IMMOBILIInsert]" 
      CreateParametersInsert(cmd)
    CreateParameters(cmd)
        
    Return cmd 

    End Function
  
  Protected Overrides Function GetUpdateCommand() As IDbCommand
  
    Dim cmd As OleDbCommand = New OleDbCommand
    cmd.CommandType = CommandType.StoredProcedure    
    cmd.CommandText = "[" + Me.SchemaStoredProcedure + "proc_IMMOBILIUpdate]" 
    
    CreateParametersUpdate(cmd) 
    CreateParameters(cmd) 
    
        
    Return cmd
  
  End Function  
  
  Protected Overrides Function GetDeleteCommand() As IDbCommand
  
    Dim cmd As OleDbCommand = New OleDbCommand
    cmd.CommandType = CommandType.StoredProcedure    
    cmd.CommandText = "[" + Me.SchemaStoredProcedure + "proc_IMMOBILIDelete]" 
    
    Dim p As OleDbParameter
    p = cmd.Parameters.Add(Parameters.ID)
    p.SourceColumn = ColumnNames.ID
    p.SourceVersion = DataRowVersion.Current

  
    Return cmd
  
  End Function  
  
  Private Sub CreateParameters(ByVal cmd As OleDbCommand)
  
    Dim p As OleDbParameter
    p = cmd.Parameters.Add(Parameters.CODICE)
    p.SourceColumn = ColumnNames.CODICE
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.CODICE_AGENZIA)
    p.SourceColumn = ColumnNames.CODICE_AGENZIA
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.IMMOBILE)
    p.SourceColumn = ColumnNames.IMMOBILE
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.DESCRIZIONE)
    p.SourceColumn = ColumnNames.DESCRIZIONE
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.APPUNTI)
    p.SourceColumn = ColumnNames.APPUNTI
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.LOCALITA)
    p.SourceColumn = ColumnNames.LOCALITA
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.CONTROLLO)
    p.SourceColumn = ColumnNames.CONTROLLO
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.PREZZO)
    p.SourceColumn = ColumnNames.PREZZO
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.NUMERO_VANI)
    p.SourceColumn = ColumnNames.NUMERO_VANI
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.ONLINE)
    p.SourceColumn = ColumnNames.ONLINE
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.FOTO_SI_NO)
    p.SourceColumn = ColumnNames.FOTO_SI_NO
    p.SourceVersion = DataRowVersion.Current

    p = cmd.Parameters.Add(Parameters.OBSOLETO)
    p.SourceColumn = ColumnNames.OBSOLETO
    p.SourceVersion = DataRowVersion.Current


  End Sub  
  
  Private Sub CreateParametersUpdate(ByVal cmd As OleDbCommand)
  
    Dim p As OleDbParameter
    p = cmd.Parameters.Add(Parameters.ID)
    p.SourceColumn = ColumnNames.ID
    p.SourceVersion = DataRowVersion.Current


  End Sub  
  
  Private Sub CreateParametersInsert(ByVal cmd As OleDbCommand)
  
    Dim p As OleDbParameter
    p = New OleDbParameter()

  End Sub  

End Class

End NameSpace