Negocio.EnviosCollection.vb

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

Namespace Negocio
  ''' <summary>
  ''' Envios es una slase de contiene elementos del tipo Envio
  ''' </summary>
  <Xml.Serialization.XmlRoot("Envios")> _ 
  Public Class Envios : Inherits ColeccionBase(Of Envio)
    Public Const ClassName As String = "Coleccion de Envios"
    
    ''' <summary>
    ''' Referencia a la instancia.
    ''' </summary>
    '''<example>
    ''' <c>
    ''' With New Envios()
    '''   DoSomething(.this())
    '''   .DoPrint()
    ''' End With
    ''' </c>
    ''' </example>
    Public Overloads Function this() As Envios
      Return Me
    End Function
    
    ''' <summary>
    ''' Constructor de instancias de proporcionando en <param ref="conexion" /> la conexión
    ''' </summary>
    Public Shared Function Values(ByVal fieldName As String, ByVal th As TransactionHelper) As String()    
      Using D__ As New DAL.Envios()
        D__.ConnectionProvider = th.ConnectionProvider
        D__.TransactionProvider = th.TransactionProvider      
        With D__.GetDistinctItem(fieldName)
          Dim Cadenas__ As New Generic.List(Of String)
          Do Until .Read() = False
            If Not TypeOf (.GetValue(0)) Is System.DBNull Then Cadenas__.Add(.GetValue(0))
          Loop
          .Close()
          Return Cadenas__.ToArray()
        End With        
      End Using      
    End Function


#Region " Recuperación desde la Base de Datos "
    ''' <summary>
    ''' Carga todos los elementos del tipo Envio desde la base de datos en la colección
    ''' </summary>
    Public Function Carga() As Envios
      Using D__ As New Dal.Envios(ConnectionProvider, TransactionProvider)
        Return Dal.Loader.LoadObjects(Of Envio)(Me, D__.GetItems())
      End Using
    End Function
    'Public Function CargaByXXX(ByVal IdXXX As Integer) As Envios
    '  Using D__ As New DAL.Envios(ConnectionProvider, TransactionProvider)
    '    Return DAL.Loader.LoadObjects(Of Envio)(Me, D__.GetItemsByXXX(IdXXX))
    '  End Using      
    'End Function    
#End Region
  

  End Class
End Namespace