-Se agregó código para que si se hace click en la categoria VARIOS, se vaya directamente a las productos, sin pasar por subcategorias.

B4A/Subs.bas

@@ -1409,6 +1409,7 @@ End Sub
 Sub traeSubCategorias(cat As String) As List
 	Private c As Cursor = Starter.skmt.ExecQuery($"select distinct CAT_GP_CLASIF from CAT_GUNAPROD where CAT_GP_TIPO = '${cat}' order by CAT_GP_CLASIF"$)
 	Private l As List
+	Log(c.RowCount)
 	If c.RowCount > 0 Then
 		l.Initialize
 		For i = 0 To c.RowCount - 1 
@@ -1498,6 +1499,7 @@ Sub revisaCierreAdmin As Boolean
 		c.Position = 0
 		If c.GetString("CAT_VA_VALOR") = 1 Then
 '			B4XPages.MainPage.principal.p_transparenteCierreAdmin.BringToFront
+'			Log(7)
 '			B4XPages.MainPage.principal.p_transparenteCierreAdmin.Visible = True
 			cierre = True
 		Else