VERSION 6.03.19

- Correcion en envio de datos de venta y reparto

B4A/C_ImportaBD.bas

@@ -0,0 +1,86 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=12.8
+@EndOfDesignText@
+' ====================================================================================
+' CLASE: C_ImportaBD
+' DESCRIPCION: Gestor aislado para atrapar Intents (ej. compartir desde WhatsApp) 
+' y poner la BD en la ruta interna de la app como "kmt.db".
+' ====================================================================================
+' INSTRUCCIONES (En cualquier B4XPage, usualmente B4XMainPage):
+'
+' 1. En Class_Globals se declara la instancia:
+'    Private importador As C_ImportaBD
+'
+' 2. En B4XPage_Created se inicializa la clase:
+'    importador.Initialize
+'
+' 3. En B4XPage_Appear se captura el Intent padre y se procesa:
+'    Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent
+'
+'    If importador.ProcesarIntent(in) Then
+'        ' Si entra aquí, la BD ya se copió exitosamente a File.DirInternal con el nombre "kmt.db"
+'        ToastMessageShow("BD importada correctamente", False)
+'
+'        ' (Opcional) Identificar si el origen fue WhatsApp:
+'        If importador.EsDeWhatsapp(in) Then 
+'            B4XPages.SetTitle(Me, "BD cargada desde Whatsapp")
+'        End If
+'
+'        ' --> AQUI DEBES REINICIALIZAR TU CONEXION SQL <--
+'        ' Ej: skmt.Initialize(File.DirInternal, "kmt.db", True)
+'    End If
+
+' 4. Agregar esta sccion al manifiesto de la aplicacion
+'	 'Para que se registre para abrir bases de datos
+'	 AddActivityText(Main,
+'		<intent-filter>
+'		<action android:name="android.intent.action.VIEW" />
+'		<category android:name="android.intent.category.DEFAULT" />
+'		<data android:pathPattern=".*\\.db" />
+'		<data android:mimeType="*/*" />
+'		</intent-filter>)
+' ====================================================================================
+
+Sub Class_Globals
+	Private intentUsado As Boolean = False
+End Sub
+
+Public Sub Initialize
+	intentUsado = False
+End Sub
+
+' Procesa el intent. Retorna True si efectivamente copió una base de datos.
+Public Sub ProcesarIntent(in As Intent) As Boolean
+	If intentUsado Or in = Null Then Return False
+	If Not(in.IsInitialized) Then Return False
+    
+	intentUsado = True ' Sellamos para que no vuelva a procesar el mismo intent
+    
+	If in.GetData <> Null Then
+		Dim XmlData As String = in.GetData
+		Log("Intent recibido: " & XmlData)
+		Try
+			Dim OutStr As OutputStream = File.OpenOutput(File.DirInternal, "kmt.db", False)
+			Dim InStr As InputStream = File.OpenInput("ContentDir", XmlData)
+			File.Copy2(InStr, OutStr)
+			OutStr.Close
+			LogColor("BD copiada a interna.", Colors.Blue)
+			Return True
+		Catch
+			Log("Error al copiar BD desde Intent: " & LastException)
+			Return False
+		End Try
+	End If
+	Return False
+End Sub
+
+' Método auxiliar para revisar el origen
+Public Sub EsDeWhatsapp(in As Intent) As Boolean
+	If in <> Null And in.IsInitialized Then
+		If in.As(String).Contains("whatsapp") Then Return True
+	End If
+	Return False
+End Sub