- VERSION 4.10.17

- Se modificó la sección del engrane para que se pueda modificar el servidor de DBRequest.
- Se agregó en el engrane la opción de importar una base de datos desde Whatsapp.

B4A/Starter.bas

@@ -36,6 +36,7 @@ Sub Process_Globals
 	Dim enVenta As Boolean = False
 	Dim muestraProgreso = 0 'Parte de la funcionalidad "appUpdater"
 	Public newApp As mNewVersion 'Parte de la funcionalidad "appUpdater"
+	Dim nuevoLink As String
 End Sub
 
 Sub Service_Create
@@ -70,6 +71,14 @@ Sub Service_Start (StartingIntent As Intent)
 	Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
 	Subs.revisaBD
 	Log(marcaCel)
+	Private s As Cursor = skmt.ExecQuery("select * from cat_variables where cat_va_descripcion = 'DBReqServer'")
+	If s.RowCount > 0 Then 'Si tenemso valor en BD lo tomamos.
+		s.Position = 0
+		server = s.GetString("CAT_VA_VALOR")
+	Else 'Si no hay valor de BD usamos el defaut.
+		skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("DBReqServer"))
+		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("DBReqServer", server))
+	End If
 	reqManager.Initialize(Me, server)
 End Sub