- VERSION 5.05.27

- Prueba release

B4A/B4XMainPage.bas

@@ -21,6 +21,8 @@ Version=9.85
 
 'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
 
+
+
 Sub Class_Globals
 	Private Root As B4XView
 '	Dim rp As RuntimePermissions

B4A/C_Principal.bas

@@ -588,7 +588,7 @@ Sub JobDone(Job As HttpJob)
 					B4XPages.ShowPage("B4XMainPage")
 				End If
 				Log("*****************  "&n)
-			End If
+			End If 
 
 			If RESULT.Tag = "kmt_datos" Then 'query tag
 '				Subs.logJobDoneResultados(RESULT)

B4A/Mariana Censos.b4a.meta

@@ -49,6 +49,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=1
 ModuleClosedNodes9=1
-NavigationStack=C_Principal,cargar_Click,507,0,Diseñador Visual,login.bal,-100,1,Starter,JobDone,133,6,Starter,Service_Destroy,71,0,B4XMainPage,JobDone,383,0,Starter,Service_Start,52,0,B4XMainPage,Entrar_Click,382,0,B4XMainPage,b_guardar_Click,642,0,Starter,ENVIA_ULTIMA_GPS,75,0,B4XMainPage,i_engrane_Click,639,0
+NavigationStack=Subs,traeAlmacen,657,0,B4XMainPage,B4XPage_Created,190,0,Subs,traeUsarIntentBDWA,1332,4,B4XMainPage,B4XPage_Appear,225,0,Subs,importaBDDesdeWhatsApp,1341,6,Starter,JobDone,133,6,Starter,Process_Globals,20,0,Starter,Service_Create,35,0,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Created,240,0,C_Principal,JobDone,584,0
 SelectedBuild=0
 VisibleModules=14,2,9,4,8,15,7,16,13,5

B4A/Starter.bas

@@ -24,7 +24,7 @@ Sub Process_Globals
 '	Dim server As String = "http://10.0.0.205:1782"
 '	Dim server As String = "http://11.0.0.231:1782"
 	Dim Timer1 As Timer
-	Dim Interval As Int = 10
+	Dim Interval As Int = 300
 	Dim ruta As String = File.DirInternal
 	'Para los Logs
 	Private logs As StringBuilder
@@ -137,16 +137,17 @@ Sub JobDone(Job As HttpJob)
 			If resultado.Tag = "delCatRutas" Then
 				Log(123)
 				Subs.logJobDoneResultados(resultado)
-				Dim cmd As DBCommand
+				If B4XPages.MainPage.principal.l_dia.IsInitialized Then
-				cmd.Initialize
+					Dim cmd As DBCommand
-				cmd.Name = "insert_UTR_MARDS_C"
+					cmd.Initialize
-				If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
+					cmd.Name = "insert_UTR_MARDS_C"
-				cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.batt, B4XPages.MainPage.principal.l_dia.tag, B4XPages.MainPage.principal.l_nuevos_c.text, B4XPages.MainPage.principal.l_nuevos_p.text, Subs.traeRuta, B4XPages.MainPage.principal.l_total.text, Subs.traeUsuarioDeBD, B4XPages.MainPage.principal.l_visitados.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
+					If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
-				If logger Then Log($"${Subs.traeAlmacen}, ${B4XPages.MainPage.batt}, ${B4XPages.MainPage.principal.l_dia.tag}, ${B4XPages.MainPage.principal.l_nuevos_c.text}, ${B4XPages.MainPage.principal.l_nuevos_p.text}, ${Subs.traeRuta}, ${B4XPages.MainPage.principal.l_total.text}, ${Subs.traeUsuarioDeBD}, ${B4XPages.MainPage.principal.l_visitados.text}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}"$)
+					cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.batt, B4XPages.MainPage.principal.l_dia.tag, B4XPages.MainPage.principal.l_nuevos_c.text, B4XPages.MainPage.principal.l_nuevos_p.text, Subs.traeRuta, B4XPages.MainPage.principal.l_total.text, Subs.traeUsuarioDeBD, B4XPages.MainPage.principal.l_visitados.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
-				reqManager.ExecuteCommand(cmd, "ins_UTR")
+					If logger Then Log($"${Subs.traeAlmacen}, ${B4XPages.MainPage.batt}, ${B4XPages.MainPage.principal.l_dia.tag}, ${B4XPages.MainPage.principal.l_nuevos_c.text}, ${B4XPages.MainPage.principal.l_nuevos_p.text}, ${Subs.traeRuta}, ${B4XPages.MainPage.principal.l_total.text}, ${Subs.traeUsuarioDeBD}, ${B4XPages.MainPage.principal.l_visitados.text}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}"$)
+					reqManager.ExecuteCommand(cmd, "ins_UTR")
+				End If
 			End If
 		End If
 		Job.Release
 	End If
-	
 End Sub

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