23/9/23 - Reinicialización de DBReqServer

- Cambio pequeño para la reinicilaización del DBReqServer cuando se cambia desde el engrane.

B4A/C_RespaldoDiario.bas

@@ -8,7 +8,7 @@ Sub Class_Globals
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
 	Dim skmt, rkmt As SQL
-	Dim rp As RuntimePermissions
+'	Dim rp As RuntimePermissions
 	Dim safePath As String
 	Dim fechaHoy As String
 	Dim skmtAttached As Boolean = False
@@ -19,7 +19,7 @@ Public Sub Initialize As Object
 '	Log("**************************   " & safePath)
 	Dim Dirp As String = File.DirRootExternal
 	Dim Dir As String
-	Dim Dir2 As String
+'	Dim Dir2 As String
 	Try
 		File.MakeDir(Dirp,"/kmts")
 		Dir = "/kmts"
@@ -30,6 +30,7 @@ Public Sub Initialize As Object
 	End Try
 '	safePath = rp.GetSafeDirDefaultExternal("./")
 	safePath = Dirp & Dir
+	private name = 
 	rkmt.Initialize(safePath,"md.rkmt.km", True)
 	skmt.Initialize(File.DirInternal,"kmt.db", False)
 	'#############################################################################################################