..

B4A/C_Principal.bas

@@ -1975,6 +1975,11 @@ Sub connecta_Click
 End Sub
 
 Sub BUSCA_Click
+	c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
+	c.Position =0
+	MARCASQ = c.GetString("CAT_VA_VALOR")
+	c.Close
+	skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
 '	StartActivity(BUSCAR)
 	B4XPages.ShowPage("TicketsDia")
 End Sub