5.08.09

B4A/C_Clientes.bas

@@ -28,6 +28,8 @@ Sub Class_Globals
 	Dim q_buscar As String
 	Private p_clientes As Panel
 	Private Panel4 As Panel
+	
+	Dim reqManager As DBRequestManager
 End Sub
 
 'You can add more parameters here.
@@ -66,6 +68,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	reqManager.Initialize(Me, Starter.server)
 	busca.Text = ""
 	entro = "2"
 	colonia = 0
@@ -150,6 +153,9 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 			Log(B4XPages.MainPage.cliente.bitacora.enVenta)
 		End If
 		B4XPages.ShowPage("Cliente")
+	
+		
+		
 	End If
 	Log(entro)
 End Sub
@@ -241,4 +247,6 @@ End Sub
 
 Private Sub p_clientes_Click
 	'Nada aqui, solo esta para que los clics no se pasen hacia atras.
-End Sub
+End Sub
+
+