Dal.Envios.vb

' Fichero autogenerado con PolCodeGen
'        __          __               _     ___             _                   ___  
'       /__\  __ _  / _|  __ _   ___ | |   / __\ __ _  ___ | |_  _ __  ___     / _ \ ___   _ __ ___    ___  ____
'      / \// / _` || |_  / _` | / _ \| |  / /   / _` |/ __|| __|| '__|/ _ \   / /_\// _ \ | '_ ` _ \  / _ \|_  /
'     / _  \| (_| ||  _|| (_| ||  __/| | / /___| (_| |\__ \| |_ | |  | (_) | / /_\\| (_) || | | | | ||  __/ / / 
'     \/ \_/ \__,_||_|   \__,_| \___||_| \____/ \__,_||___/ \__||_|   \___/  \____/ \___/ |_| |_| |_| \___|/___|                                                                   
'

Imports Dal.Helpers

Namespace Dal
  ''' <summary>
  ''' Clase de acceso a datos de Envios
  ''' </summary>
  Public Class Envios : Inherits ObjetoBase  
  
#Region " Constructores "
    ''' <summary>
    ''' Contructor por defecto de instancias de Envios 
    ''' </summary>
    Public Sub New()
      MyBase.New()
    End Sub
    
    ''' <summary>
    ''' Constructor de instancias de Envios proporcionando en <param ref="conexion" /> la conexión
    ''' </summary>
    ''' <param name="conexion"> Conexión que utilizará el objeto. </param>
    Public Sub New(ByVal conexion As IDbConnection)
      MyBase.New(conexion)
    End Sub
    
    ''' <summary>
    ''' constructor de instancias de Envios proporcionando
    ''' un proveedor de conexión y un proveedor de transacción
    ''' </summary>
    ''' <param name="cP"> Proveedor de conexión que utilizará el objeto para obtener la conexión. </param>    
    ''' <param name="tP"> Proveedor de transacción que utilizará el objeto para obtener la transacción. </param>    
    Public Sub New(ByVal cp As ConnectionProviderDelegate, ByVal tp As TransactionProviderDelegate)
      MyBase.New(cp, tp)
    End Sub
#End Region

#Region " Recuperación de datos "
    ''' <summary>
    ''' Constructor de instancias de Envios proporcionando en <param ref="conexion" /> la conexión
    ''' </summary>
    ''' <param name="conexion"> Conexión que utilizará el objeto. </param>
    Public Function GetItems() As IDataReader
      Using cmd As IDbCommand = CreateCommand()
        cmd.CommandText = "Select * from [T_Envio]"
        Return DataServer.ExecuteReader(cmd)
      End Using
    End Function
    
    ''' <summary>
    ''' Constructor de instancias de Envios proporcionando en <param ref="conexion" /> la conexión
    ''' </summary>
    ''' <param name="conexion"> Conexión que utilizará el objeto. </param>
    Private Function __GetItems(ByVal filtro As String) As IDataReader
      If filtro = "" Then Return GetItems()
      Using cmd As IDbCommand = CreateCommand()
        cmd.CommandText = String.Format("Select * from [T_Envio] where 1=1 and {0}", filtro)
        Return DataServer.ExecuteReader(cmd)
      End Using
    End Function
    
    ''' <summary>
    ''' Constructor de instancias de Envios proporcionando en <param ref="conexion" /> la conexión
    ''' </summary>
    ''' <param name="conexion"> Conexión que utilizará el objeto. </param>
    Public Function GetItem(ByVal id As Integer) As IDataReader
      Using cmd As IDbCommand = CreateCommand()   
        cmd.CommandText = String.Format("Select * from [T_Envio] where Id={0}", id)
        Return DataServer.ExecuteReader(cmd)
      End Using
    End Function
    
    ''' <summary>
    ''' Constructor de instancias de Envios proporcionando en <param ref="conexion" /> la conexión
    ''' </summary>
    ''' <param name="conexion"> Conexión que utilizará el objeto. </param>
    Public Function GetDistinctItem(ByVal fieldName As String) As IDataReader
      Using cmd As IDbCommand = CreateCommand()        
        If fieldName = "" Then fieldName = "Id"
        cmd.CommandText = String.Format("Select Distinct {0} from [T_Envio] order by {0} asc", fieldName)
        Return DataServer.ExecuteReader(cmd)
      End Using
    End Function
#End Region

    ''' <summary>
    ''' Constructor de instancias de Envios proporcionando en <param ref="conexion" /> la conexión
    ''' </summary>
    ''' <param name="conexion"> Conexión que utilizará el objeto. </param>
    Public Function Delete(ByVal id As Integer) As Integer
      Using cmd As IDbCommand = CreateCommand()
        cmd.CommandText = String.Format("Delete from [T_Envio] where ID={0}", id)
        Return DataServer.ExecuteNonQuery(cmd)
      End Using
    End Function        
    
#Region " Inserción "
    ''' <summary>
    ''' Constructor de instancias de  proporcionando en <param ref="conexion" /> la conexión
    ''' </summary>
    ''' <param name="conexion"> Conexión que utilizará el objeto. </param>
    Public Function Insert(ByVal idEnvio As String, _
                           ByVal observaciones As String, _
                           ByVal numeroDeRegistro As String, _
                           ByVal fechaDeRegistro As String, _
                           ByVal usuario As String) As Integer
      Using CM As IDbCommand = CreateCommand()

        With New System.Text.StringBuilder()
          .Append("Insert into [T_Envio] ")
          .Append("(IdEnvio,Observaciones,NumeroDeRegistro,FechaDeRegistro,Usuario)")
          .AppendFormat(" values({0},{1},{2},{3},{4});SELECT @@IDENTITY;", _
              New String() {ParseCadena(idEnvio), _
                            ParseCadena(observaciones), _
                            ParseCadena(numeroDeRegistro), _
                            ParseFecha(fechaDeRegistro), _
                            ParseCadena(usuario)})
          CM.CommandText = .ToString
        End With
        Return DataServer.ExecuteScalar(Of Integer)(CM)
      End Using
    End Function
#End Region

#Region " Modificación "
    ''' <summary>
    ''' Constructor de instancias de  proporcionando en <param ref="conexion" /> la conexión
    ''' </summary>
    ''' <param name="conexion"> Conexión que utilizará el objeto. </param>
    Public Function Update(ByVal id As Integer, _
                            ByVal idEnvio As String, _
                            ByVal observaciones As String, _
                            ByVal numeroDeRegistro As String, _
                            ByVal fechaDeRegistro As String, _
                            ByVal usuario As String) As Integer
      Using CM As IDbCommand = CreateCommand()
        With New System.Text.StringBuilder()
          .Append("Update [T_Envio] SET ")
          .AppendFormat("IdEnvio={1},Observaciones={2},NumeroDeRegistro={3},FechaDeRegistro={4},Usuario={5}" & _
                        " Where Id={0};", _
              New String() {id, _
                            ParseCadena(idEnvio), _
                            ParseCadena(observaciones), _
                            ParseCadena(numeroDeRegistro), _
                            ParseFecha(fechaDeRegistro), _
                            ParseCadena(usuario)})
          CM.CommandText = .ToString
        End With
        Return DataServer.ExecuteNonQuery(CM)
      End Using
    End Function
#End Region

   
  End Class
End Namespace