Calling WCF service to reads from a DataBase and returns generic lists of custom objects to the client.

 _
Public Interface IRepositorio

 _
Function ListarAlmacen() As List(Of BE.Almacen)

End Interface

 _
 _
Public Class Repositorio
Implements IRepositorio

Public Function ListarAlmacen() As List(Of BE.Almacen) Implements IRepositorio.ListarAlmacen
Dim result As List(Of BE.Almacen)
result = BL.Repositorio.Almacen.listar()
Return result
End Function

End Class

'some code ...

Dim oAlmacenWCF As New repositorio.RepositorioClient
Dim oListaAlmacenBE As List(Of BE.Almacen)
oListaItemAlmacenBE = oAlmacenWCF.ListarAlmacen(item_id)

'some code