- Cambios en el codigo de promocion.

- Cambios en el codigo del listview de servidores en el engrane
This commit is contained in:
2024-04-18 18:01:43 -06:00
parent 25b16f0b25
commit 047d927224
5 changed files with 15 additions and 10 deletions

View File

@@ -419,7 +419,7 @@ Sub ImageView4_Click
Label1 = ListView1.SingleLineLayout.Label
Label1.TextSize = 20
Label1.TextColor = Colors.Black
ListView1.AddSingleLine(Starter.DBReqServer)
ListView1.AddSingleLine("http://keymon.lat:1781")
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
c.Position =0
E_SERVER.text = c.GetString("CAT_VA_VALOR")