20/10/23 - RMIs

- Se agregó código para meter RMIs con el clic largo sobre un producto.

B4A/C_TicketsDia.bas

@@ -19,9 +19,14 @@ Sub Class_Globals
 	Dim nombre_boton As String
 End Sub
 
+'You can add more parameters here.
+Public Sub Initialize As Object
+	Return Me
+End Sub
+
 Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
-	Root.LoadLayout("buscar")
+	Root.LoadLayout("ticketsDia")
 	ruta = File.DirInternal
 
 	' se crea o no el archivo de la base de ddatos de kmt
@@ -100,6 +105,7 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 	skmt.ExecNonQuery("delete from CUENTAA")
 	skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
 '	StartActivity(fila)
+	B4XPages.ShowPage("Cliente")
 End Sub
 
 Sub b_noventa_Click