====== Cargar imágenes desde la BD ======
\\
Para cargar imágenes de las que guardamos su ruta en la BD, creamos en nuestra colección un campo invisible de tipo texto RUTA, y un campo botón que llamaremos MAP_IMAGEN.\\
\\
===== Creación de la Colección Películas =====
\\
\\
Esta será la colección de la que obtendremos los datos, y la ruta de la imagen para poder visualizarlas en nuestra colección Entrada.\\
\\
===== Creación de la Colección Entrada =====
Esta colección será en plan catálogo, donde visualizaremos como si fuese un videoclub las diferentes películas disponibles:
===== Funciones =====
====Función recogerdatoscoleccionatras====
\\
En esta función se recorrerá la base da datos de la colección películas, ordenado de manera descendente, con la condición de ID menor al que estaba , y cogerá el primer registro que esté, si no recoge ningún registro significará que ya no hay más .\\
\\
function RecogerDatosColeccionAtras()
Dim i,col,sFilter
set col=appData.GetCollection("Peliculas")
col.sort="t1.ID DESC"
i=this("MAP_BANDERA")
sFilter="t1.ID<"+i
col.filter=sFilter
col.startBrowse
if not col.currentItem is nothing then
AsignarDatos(col.currentItem)
col.movenext
if col.currentItem is nothing then
this("MAP_BUTOM_ACTIVATE")=0
else
this("MAP_BUTOM_ACTIVATE")=2
end if
end if
col.endBrowse
end function
====Función recogerdatoscoleccionsiguiente====
\\
Esta función será igual que la anterior, pero ordenado de manera ascendente.\\
\\
function RecogerDatosColeccionSiguiente()
Dim i,col,sFilter
set col=appData.GetCollection("Peliculas")
col.sort="t1.ID ASC"
i=this("MAP_BANDERA")
sFilter="t1.ID>"+i
col.filter=sFilter
col.startBrowse
if not col.currentItem is nothing then
AsignarDatos(col.currentItem)
col.movenext
if col.currentItem is nothing then
this("MAP_BUTOM_ACTIVATE")=1
else
this("MAP_BUTOM_ACTIVATE")=2
end if
end if
col.endBrowse
end function
====Función asignardatos====
\\
Con esta función recogeremos los datos que queramos del registro recogido.\\
\\
function AsignarDatos(obj)
this("MAP_ID")=obj("ID")
this("MAP_TITULO")=obj("TITULO")
this("MAP_BANDERA")=obj("ID")
if obj("IMAGENFOTO")="" then
this("MAP_IMAGEN")=obj("IMAGENRUTA")
else
this("MAP_IMAGEN")=obj("IMAGENFOTO")
end if
end function