17/10/23 - Cambios para implementar los botones de mas y menos (No terminado)

B4A/C_Cliente.bas

@@ -288,6 +288,7 @@ Sub B4XPage_Appear
 		B_VENTA.Visible = True
 		gest.Visible = True
 	End If
+	Log(">>>>>>>>>>>> "&Starter.tipov)
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -308,6 +309,7 @@ End Sub
 
 Sub gest_Click
 	Starter.tipov = "PREVENTA"
+	B4XPages.ShowPage("Productos")
 	' StartActivity(colonia2)
 	cuestionario
 End Sub
@@ -919,6 +921,7 @@ End Sub
 Sub B_VENTA_Click
 	Starter.tipov = "VENTA"
 	'StartActivity(colonia2)
+	B4XPages.ShowPage("Productos")
 	cuestionario
 End Sub