VERSION 6.03.19

- Correcion en envio de datos de venta y reparto

B4A/B4XMainPage.bas

@@ -102,8 +102,6 @@ Sub Class_Globals
 	Dim l_vPedidos2 As Label
 	Dim l_vNoVenta2 As Label
 	Dim i_progress As B4XGifView
-	Dim in As Intent
-	Dim intentUsado As Boolean = False
 	Dim Guna_Reparto As C_Guna_Reparto
 	Dim Intmex_Reparto As C_Intmex_Reparto
 	Dim Marquez_Reparto As C_Marquez_Reparto
@@ -136,6 +134,7 @@ Sub Class_Globals
 	Private l_montoaliquidar As Label
 	Private l_rutasP As Label
 	Private l_rutaRep As Label
+	Dim importador As C_ImportaBD
 End Sub
 
 Public Sub Initialize
@@ -199,54 +198,23 @@ Sub B4XPage_Created (Root1 As B4XView)
 	Marquez.Initialize
 	Mazapa.Initialize
 	Profina.Initialize
+	importador.Initialize
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
 	Log("INICIO")
-	If Not(in.IsInitialized) Then in = B4XPages.GetNativeParent(Me).GetStartingIntent
-	If Not(intentUsado) And in <> Null Then
-		Log(in)
-'		Dim action As String = in.Action
-'		Log("Action: " & action)  ' Ej: "android.intent.action.VIEW"
-'		Dim uri As Object = in.GetData  ' Obtiene la URI (content://...)
-'		Log(in.GetData)
-'		If uri <> Null Then
-'			Dim uriString As String = uri
-'			Log("URI: " & uriString)  ' Ej: "content://com.whatsapp.provider.media/..."
-'		Else
-'			Log("El Intent no tiene URI asociada.")
-'		End If
-'		Dim mimeType As String = in.GetData
-'		Log("MIME Type: " & mimeType)  ' Ej: "application/x-sqlite3"
-'		If in.HasExtra("android.intent.extra.STREAM") Then
-'			Dim extraUri As Object = in.GetExtra("android.intent.extra.STREAM")
-'			Log("Extra URI: " & extraUri)  ' Ej: "content://..."
-'		Else
-'			Log("No hay extras con android.intent.extra.STREAM")
-'		End If
-		intentUsado = True
-'		Log(in.GetData)
-		If in.GetData <> Null Then
-			Dim XmlData As String
-			XmlData = in.GetData
-			ToastMessageShow(XmlData, False)
-			'       Send_Make_somthing(in)
-			'       Activity.Finish
-			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 B4XPages.SetTitle(Me, "BD cargada desde Whatsapp")
-			Catch
-				Log(LastException)
-			End Try
-'			ExitApplication
-		End If
+	' CODIGO PARA INTENT DE IMPORTAR BD DESDE WHATSAPP
+	' 1. Obtener el Intent del activity padre (Esto SE QUEDA fuera de la clase)
+	Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent
+	' 2. Pasamos la bolita a la clase
+	If importador.ProcesarIntent(in) Then
+		ToastMessageShow("BD importada correctamente", False)
+		If importador.EsDeWhatsapp(in) Then B4XPages.SetTitle(Me, "BD cargada desde Whatsapp")
 	End If
+	' TERMINA CODIGO DE IMPORTACION
+
 '	Log($"Existe BD: ${File.Exists(File.DirInternal, "kmt.db") }"$)
 	If File.Exists(File.DirInternal, "kmt.db") Then
 		If Not(skmt.IsInitialized) Then skmt.Initialize(File.DirInternal,"kmt.db", True)
@@ -720,7 +688,8 @@ Sub b_enviar_Click
 '			envioIzca
 			Izca.ConfigurarYEnviar("http://keymon.net:1781")
 		else if empresa.ToUpperCase.Contains("DURAKELO") Then
-			envioDurakelo
+'			envioDurakelo
+			Durakelo.ConfigurarYEnviar("http://keymon.net:1781")
 		else if empresa.ToUpperCase.Contains("MARQUEZ") Then
 '			envioMarquez
 			Marquez.ConfigurarYEnviar("http://keymon.net:1781")
@@ -955,6 +924,7 @@ Sub p_principal_Click
 	p_editaAlmacen.Visible = False
 	p_editaRuta.Visible = False
 	p_clientes.Visible = False
+	p_editaUsuario.Visible = False
 	p_validacion.Visible = False
 	ime.HideKeyboard
 End Sub
@@ -1220,7 +1190,7 @@ Sub envioGuna 'ignore
 
 		d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
 		d.Position=0
-		Private cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC")
+		cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC")
 		d.Close
 	
 		' ENVIO DE LOS CODIGOS QR
@@ -1498,7 +1468,7 @@ Sub valida(identificador As String)
 
 	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
 	d.Position = 0
-	Private cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC")
+	cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC")
 	d.Close
 
 	cmd.Initialize