- Se movió el codigo del intent para importar la BD desde WhatsApp a kms_helperSubs.

B4A/B4XMainPage.bas

@@ -201,38 +201,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	ruta = Starter.ruta
 	Starter.tiempos.Initialize
 	kh.guardaAppInfo
+
 	'Revisamos si se disparo el intent de cargar la base de datos desde WhatApp.
-	If kh.traeUsarIntentBDWA Then
-		Private tmpBDWA As Boolean = kh.traeUsarIntentBDWA
-		If Not(in.IsInitialized) Then in = B4XPages.GetNativeParent(Me).GetStartingIntent
-		If Not(intentUsado) And in <> Null Then
-'		Log(in)
-			intentUsado = True
-'			Log(in.As(String))
-			If in.GetData <> Null Then
-				Dim XmlData As String
-				XmlData = in.GetData
-				Try
-					Dim OutStr As OutputStream = File.OpenOutput(File.DirInternal,"kmt.db",False)
-					Dim InStr As InputStream = File.OpenInput("ContentDir",XmlData)
-					File.Copy2(InStr,OutStr)
-					LogColor("BD copiada a interna.", Colors.Blue)
-					OutStr.Close
-					If in.As(String).Contains("whatsapp") Then ToastMessageShow("BD cargada desde Whatsapp", False)
-				Catch
-					Log(LastException)
-				End Try
-'				ExitApplication
-				Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'IMPORTAR_BD_WA'")
-				Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('IMPORTAR_BD_WA', '${tmpBDWA}')"$)
-				Private a As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'APP_NAME'"$)
-				If a.RowCount > 0 Then
-					a.Position = 0
-					ToastMessageShow($"BD de "${a.GetString("CAT_VA_VALOR")}" cargada."$, True)
-				End If
-			End If
-		End If
-	End If
+	If kh.traeUsarIntentBDWA Then kh.importaBDDesdeWhatsApp
 
 '	Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "IMPRESION" en la tabla
 '		c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='IMPRESION'")