Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Imports System.Collections.Specialized
Imports System.ComponentModel
Imports System.Collections.Generic
Imports sm.Db.Helpers


NameSpace sm.Db.Helpers


    <DataObject()> _
    Public Class IMMOBILI
        Inherits _IMMOBILI

        Public Sub New()
            MyBase.New(New IMMOBILIDataTable)
        End Sub

        <DataObjectMethod(DataObjectMethodType.Select, True)> _
        Public Function GetAll() As IMMOBILIDataTable
            Me.LoadAll()
            Return CType(Me.DataSet.Tables(0), IMMOBILIDataTable)
        End Function
    
    


        <DataObjectMethod(DataObjectMethodType.Select)> _
        Public Function GetById(ByVal ID As Integer) As IMMOBILIDataTable
            Me.LoadByPrimaryKey(ID)
            Return CType(Me.DataSet.Tables(0), IMMOBILIDataTable)
        End Function
    


    
        <DataObjectMethod(DataObjectMethodType.Insert, True)> _
        Public Function Insert(ByVal CODICE As String, ByVal CODICE_AGENZIA As String, ByVal IMMOBILE As String, ByVal DESCRIZIONE As String, ByVal APPUNTI As String, ByVal LOCALITA As String, ByVal CONTROLLO As String, ByVal PREZZO As String, ByVal NUMERO_VANI As Short, ByVal ONLINE As Boolean, ByVal FOTO_SI_NO As Boolean, ByVal OBSOLETO As Boolean) As Integer
            Me.AddNew()
      Me.CODICE = CODICE
      Me.CODICE_AGENZIA = CODICE_AGENZIA
      Me.IMMOBILE = IMMOBILE
      Me.DESCRIZIONE = DESCRIZIONE
      Me.APPUNTI = APPUNTI
      Me.LOCALITA = LOCALITA
      Me.CONTROLLO = CONTROLLO
      Me.PREZZO = PREZZO
      Me.NUMERO_VANI = NUMERO_VANI
      Me.ONLINE = ONLINE
      Me.FOTO_SI_NO = FOTO_SI_NO
      Me.OBSOLETO = OBSOLETO
            Return Me.Save()
        End Function

        
        <DataObjectMethod(DataObjectMethodType.Update, True)> _
        Public Function UpDate(ByVal CODICE As String, ByVal CODICE_AGENZIA As String, ByVal IMMOBILE As String, ByVal DESCRIZIONE As String, ByVal APPUNTI As String, ByVal LOCALITA As String, ByVal CONTROLLO As String, ByVal PREZZO As String, ByVal NUMERO_VANI As Short, ByVal ONLINE As Boolean, ByVal FOTO_SI_NO As Boolean, ByVal OBSOLETO As Boolean, ByVal original_ID As Integer, ByVal original_CODICE As String, ByVal original_CODICE_AGENZIA As String, ByVal original_IMMOBILE As String, ByVal original_DESCRIZIONE As String, ByVal original_APPUNTI As String, ByVal original_LOCALITA As String, ByVal original_CONTROLLO As String, ByVal original_PREZZO As String, ByVal original_NUMERO_VANI As Short, ByVal original_ONLINE As Boolean, ByVal original_FOTO_SI_NO As Boolean, ByVal original_OBSOLETO As Boolean) As Integer
      Me.Where.ID.Value = original_ID
      Me.Where.CODICE.Value = original_CODICE
      Me.Where.CODICE_AGENZIA.Value = original_CODICE_AGENZIA
      Me.Where.IMMOBILE.Value = original_IMMOBILE
      Me.Where.DESCRIZIONE.Value = original_DESCRIZIONE
      Me.Where.APPUNTI.Value = original_APPUNTI
      Me.Where.LOCALITA.Value = original_LOCALITA
      Me.Where.CONTROLLO.Value = original_CONTROLLO
      Me.Where.PREZZO.Value = original_PREZZO
      Me.Where.NUMERO_VANI.Value = original_NUMERO_VANI
      Me.Where.ONLINE.Value = original_ONLINE
      Me.Where.FOTO_SI_NO.Value = original_FOTO_SI_NO
      Me.Where.OBSOLETO.Value = original_OBSOLETO
      If Me.Query.Load() Then  
    
        Me.CODICE = CODICE
        Me.CODICE_AGENZIA = CODICE_AGENZIA
        Me.IMMOBILE = IMMOBILE
        Me.DESCRIZIONE = DESCRIZIONE
        Me.APPUNTI = APPUNTI
        Me.LOCALITA = LOCALITA
        Me.CONTROLLO = CONTROLLO
        Me.PREZZO = PREZZO
        Me.NUMERO_VANI = NUMERO_VANI
        Me.ONLINE = ONLINE
        Me.FOTO_SI_NO = FOTO_SI_NO
        Me.OBSOLETO = OBSOLETO
        Return Me.Save()
      End If
      Return 0
        End Function

        
        <DataObjectMethod(DataObjectMethodType.Delete, True)> _
        Public Function Delete(ByVal original_ID As Integer, ByVal original_CODICE As String, ByVal original_CODICE_AGENZIA As String, ByVal original_IMMOBILE As String, ByVal original_DESCRIZIONE As String, ByVal original_APPUNTI As String, ByVal original_LOCALITA As String, ByVal original_CONTROLLO As String, ByVal original_PREZZO As String, ByVal original_NUMERO_VANI As Short, ByVal original_ONLINE As Boolean, ByVal original_FOTO_SI_NO As Boolean, ByVal original_OBSOLETO As Boolean) As Integer
      Me.Where.ID.Value = original_ID
      Me.Where.CODICE.Value = original_CODICE
      Me.Where.CODICE_AGENZIA.Value = original_CODICE_AGENZIA
      Me.Where.IMMOBILE.Value = original_IMMOBILE
      Me.Where.DESCRIZIONE.Value = original_DESCRIZIONE
      Me.Where.APPUNTI.Value = original_APPUNTI
      Me.Where.LOCALITA.Value = original_LOCALITA
      Me.Where.CONTROLLO.Value = original_CONTROLLO
      Me.Where.PREZZO.Value = original_PREZZO
      Me.Where.NUMERO_VANI.Value = original_NUMERO_VANI
      Me.Where.ONLINE.Value = original_ONLINE
      Me.Where.FOTO_SI_NO.Value = original_FOTO_SI_NO
      Me.Where.OBSOLETO.Value = original_OBSOLETO
      If Me.Query.Load() Then  
        Me.MarkAsDeleted()
        Return Me.Save()
      End if
      Return 0
        End Function
    
    'Samples my test ignore please.
      'Dim parameters As ListDictionary = New ListDictionary()
            'parameters.Add(New OleDbParameter("@Email", OleDbType.LongVarWChar, 0), Email)
            'Return MyBase.LoadFromSqlReader("[" + Me.SchemaStoredProcedure + "sm_ex_GetRoles]", parameters)


    End Class

End Namespace