' Se muestran los datos según la sección
Select Case Seccion
Case "INICIO"
muestraInicio()
ImgBotonCatIzd.Visible = False
Case "OUTLET"
muestraOutlet()
pnlDerecha.Visible = True
Case "CATEGORIA"
If Page.IsPostBack = False Then
CargaInicialTv(Cat1Sel, Cat2Sel, Cat3Sel, Cat4Sel, Cat5Sel)
TreeCategorias.ExpandDepth = 0
End If
If Request.QueryString("pagina") = Nothing Then
cargaArticulos(0, Categoria1Actual, Categoria2Actual, Categoria3Actual, Categoria4Actual, Categoria5Actual)
Else
cargaArticulos(Request.QueryString("pagina"), Categoria1Actual, Categoria2Actual, Categoria3Actual, Categoria4Actual, Categoria5Actual)
End If
Case "ARTICULOS"
If Page.IsPostBack = False Then
CargaInicialTv(Cat1Sel, Cat2Sel, Cat3Sel, Cat4Sel, Cat5Sel)
TreeCategorias.ExpandDepth = 0
End If
' Buscador
If Busqueda <> "" Then
If Request.QueryString("pagina") = Nothing Then
muestraBuscador(0)
Else
muestraBuscador(Request.QueryString("pagina"))
End If
End If
End Select
Este es el trozo de código que carga los artículos. La función cargaArticulos() hace lo siguiente:
Public Sub cargaArticulos(ByVal Pagina As Int32, ByVal Categoria1 As String, ByVal Categoria2 As String, ByVal Categoria3 As String, ByVal Categoria4 As String, _
ByVal Categoria5 As String)
pnlIzquierda.Visible = True
pnlDerecha.Visible = True
pnlIzquierda.CssClass = "panel-medio panel-separador CatIzd"
pnlDerecha.CssClass = "panel-medio CatIzd"
Dim PgArticulos As Paginador
' Obtiene articulos del webservice
DtGrid = Ws.ArticulosCategoria(Categoria1, Categoria2, Categoria3, Categoria4, Categoria5, _
"", "", Configuracion.LeeCadena("catalogo_Ordenacion"))
' Paginador
PgArticulos = New Paginador(CInt(Configuracion.LeeCadena("catalogo_por_pagina")), Request.Url.Query, "catalogo.aspx", DtGrid)
If PgArticulos.Datos.PageCount > 1 Then
paginacion.Visible = True
Else
paginacion.Visible = False
End If
PgArticulos.GenerarPaginacion(Pagina, paginacion)
If DtGrid IsNot Nothing Then
If DtGrid.Rows.Count > 0 Then
pnlArticulosCuadricula.Visible = True
rptArticulosCuadricula.Visible = True
rptArticulosCuadricula.DataSource = PgArticulos.Datos
rptArticulosCuadricula.DataBind()
Else
MostrarSinDatos("No existen artículos en esta categoría")
End If
DtGrid.Dispose()
Else
MostrarSinDatos("No existen artículos en esta categoría")
End If
End Sub
Y así son los repeater de los artículos:
<asp:Repeater ID="rptArticulosCuadricula" runat="server" Visible="false">
<ItemTemplate>
<div class="IniArticulo">
<div class="IniIcono"><asp:HyperLink ID="hypArticulo" runat="server"><asp:Image ID="imgArticulo" runat="server" /></asp:HyperLink></div>
<div class="IniDescripcion"><asp:HyperLink ID="hypArticuloDesc" runat="server"><%#Container.DataItem("DescripcionArticulo").ToString%></asp:HyperLink></div>
<div class="IniAdaptable"><asp:Label ID="lblAdaptable" runat="server"></asp:Label></div>
<div class="IniPrecio"><asp:Label ID="lblPrecio" runat="server" Visible="true"><%#FormatNumber(Container.DataItem("PrecioVenta"), 2)%> €</asp:Label></div>
<div class="PedirArticuloCuadricula"><asp:TextBox id="input_Unidades" runat="server" MaxLength="40" CssClass="catalogoCampo" ToolTip="Unidades" Text="1" Width="20px"></asp:TextBox> <asp:Button ID="BtAnadir" runat="server" Text="Añadir al pedido" CommandName="Anadir" UseSubmitBehavior="False" CssClass="boton_pq"/></div>
</div>
</ItemTemplate>
</asp:Repeater>
¿Alguna idea de por qué tanto problema? Muchas gracias de nuevo a todos :)
Problemas al entrar más de un usuario en una aplicación web asp.net con SQL
