- VERSION 5.05.27

- Prueba release

B4A/Subs.bas

@@ -1337,20 +1337,21 @@ Sub traeUsarIntentBDWA As Boolean 'ignore
 		x.Position = 0
 		If x.GetString("CAT_VA_VALOR") = "true" Then BDWA = True
 	End If
-'	Log($"cb_importarBDWA = ${BDWA}"$)
 	Return BDWA
 End Sub
 
 ' Se revisa si hay una intención (intent) de abrir una base de datos y si es así, entonces se importa esa base de datos.
 Sub importaBDDesdeWhatsApp
+	Log($"IMPORTAMOS BD DESDE WA"$)
 	Private tmpBDWA As Boolean = traeUsarIntentBDWA
+	Log("IN: " & in.As(String))
+	Log("INTRNT USADO: " & intentUsado)
 	If Not(in.IsInitialized) Then in = B4XPages.GetNativeParent(B4XPages.MainPage).GetStartingIntent ' Si se usa esta funcion en Mainpage, se pone "Me" en lugar de B4XPages.MainPage.
 	If Not(intentUsado) And in <> Null Then
-'		Log(in)
 		intentUsado = True
-'		Log(in.As(String))
+		Log(in.As(String))
 		If in.GetData <> Null Then
-'			Log(333)
+			Log(333)
 			Dim XmlData As String
 			XmlData = in.GetData
 			Try