21/10/23 - Importación de BD en engrane.

- Se agregó en el engrane, la opción de importar una base de datos, el botón solo aparece cuando en el campo de usuario esta el texto "KMTS1".

B4A/Starter.bas

@@ -16,7 +16,7 @@ Sub Process_Globals
 	Dim s As C_Subs
 	Dim reqManager As DBRequestManager
 	Dim skmt, errorLog As SQL
-	Dim ruta As String
+	Dim ruta As String = File.DirInternal
 	Public BluetoothState As Boolean
 	Dim btAdmin As BluetoothAdmin
 	Dim intentosImpresora As Int = 0