Boton de deshabilitar gps y que si tiene venta o no venta ya pueda tener los botones

2026-04-17 21:06:32 +00:00 · 2024-04-17 18:27:55 -06:00
parent bf8dab1993
commit d2074716f0
7 changed files with 306 additions and 55 deletions
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -95,6 +95,10 @@ Sub Class_Globals
 	Public Provider As FileProvider
 	Public rutaBDBackup = ""
 	Private B4XSwitch1 As B4XSwitch
+	Private p_validacion As Panel
+	Private B4XSwitch2 As B4XSwitch
+	Dim x As Int
+	Private et_codigo As EditText
 End Sub

 Public Sub Initialize
@@ -149,6 +153,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	End If
 	skmt.Initialize(ruta,"kmt.db", True)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS IMPRESORA (HABILITADA)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS GPS (HABILITADO)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")
@@ -233,6 +238,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub

 Sub B4XPage_Appear
+	
 	reqManager.Initialize(Me, Starter.server)
 	If Starter.muestraProgreso = 1 Then
 		muestraProgreso("Descargando actualización")
@@ -307,6 +313,25 @@ Sub B4XPage_Appear
 	Else
 		B4XSwitch1.Value = False
 	End If
+	
+	c = skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+	If c.RowCount = 0 Then
+		skmt.ExecNonQuery2("INSERT INTO GPS VALUES (?)", Array As Object(0))
+	Else
+		
+	End If
+	
+	c = skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+	If c.RowCount >  0 Then
+		c.Position = 0
+		If c.GetString("HABILITADO") = 1 Then
+			B4XSwitch2.Value = True
+		Else If c.GetString("HABILITADO") = 0 Then
+			B4XSwitch2.Value = False
+		End If
+	Else
+		B4XSwitch1.Value = False
+	End If

 End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -682,6 +707,12 @@ Sub i_engrane_Click
 		skmt.ExecNonQuery2("INSERT INTO IMPRESORA VALUES (?)", Array As Object(0))
 	Else
 		
+	End If
+	c = skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+	If c.RowCount = 0 Then
+		skmt.ExecNonQuery2("INSERT INTO GPS VALUES (?)", Array As Object(0))
+	Else
+		
 	End If
 End Sub

@@ -726,9 +757,75 @@ End Sub

 Private Sub B4XSwitch1_ValueChanged (Value As Boolean)
 	If Value Then
+		Log("1")
 		skmt.ExecNonQuery2("UPDATE IMPRESORA SET HABILITADA = (?)",Array As Object(1))
 	Else
 		Log("desactivado")
 		skmt.ExecNonQuery2("UPDATE IMPRESORA SET HABILITADA = (?)",Array As Object(0))
 	End If
+End Sub
+
+Private Sub B4XSwitch2_ValueChanged (Value2 As Boolean)
+	c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CARGA_DIA"))
+	If c.RowCount > 0 Then
+		c.Position = 0
+		If c.GetString("CAT_VA_VALOR") = 1 Then
+			If Value2  Then
+	
+				p_validacion.Visible = True
+				p_validacion.Left = (Root.Width/2) - (p_appUpdate.Width/2)
+				Subs.panelVisible(p_validacion,0,0)
+			Else
+				skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
+			End If
+		Else
+			MsgboxAsync("Por favor primero haz carga de día","Atención")
+			B4XSwitch2.Value = False
+		End If
+	Else
+		MsgboxAsync("Por favor primero haz carga de día","Atención")
+		B4XSwitch2.Value = False
+	End If
+	
+
+
+End Sub
+
+Private Sub p_validacion_Click
+	
+End Sub
+
+Private Sub b_cancelarcodigo_Click
+	p_validacion.Visible = False
+	et_codigo.Text = ""
+	B4XSwitch2.Value = False
+End Sub
+
+Private Sub b_aceptar_Click
+	c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =? ", Array As String("pasword"))
+	Log(c.RowCount)
+	If c.RowCount > 0 Then
+		c.Position = 0
+		Log(c.GetString("CAT_VA_VALOR"))
+		If c.GetString("CAT_VA_VALOR") = et_codigo.Text Then
+			
+			p_validacion.Visible = False
+	
+			B4XSwitch2.Value = True
+			skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
+			et_codigo.Text = ""
+		Else If c.GetString("CAT_VA_VALOR") <> et_codigo.Text Then
+			MsgboxAsync("Codigo incorrecto","Atención")
+			p_validacion.Visible = False
+			B4XSwitch2.Value = False
+			skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
+			et_codigo.Text = ""
+		End If
+	Else If c.RowCount = 0 Then
+		MsgboxAsync("Codigo incorrecto","Atención")
+		p_validacion.Visible = False
+		B4XSwitch2.Value = False
+		skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
+	End If
+	
 End Sub
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -507,7 +507,7 @@ Sub B4XPage_Appear
 		If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0"  Then
 			L_QR.TEXT = "SIN CODIGO"
 			L_QR.TextColor = Colors.Red
-			If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then  gest.VISIBLE = True
+			If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then  gest.VISIBLE = True And Tels.Visible = True
 			BT_QR.Visible = True
 		Else
 			L_QR.TEXT = c.GetString("CAT_CL_NUM_SERIEFISICO")
@@ -645,6 +645,8 @@ Sub B4XPage_Appear
 		gest.Visible = False
 '		ToastMessageShow("aaa", False)
 	End If
+	
+	
 End Sub

 Sub GPS_LocationChanged (Location1 As Location)
@@ -668,19 +670,122 @@ Sub GPS_LocationChanged (Location1 As Location)
 		'now we need the distance between our location and the target location
 		Dim distance As Long
 		distance = l1.DistanceTo(l2)  'the result is in meter
-		If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.Visible = True
+		c = skmt.ExecQuery("SELECT HABILITADO FROM GPS")
+		If c.RowCount > 0 Then
+			c.Position = 0
+			Dim habi = c.GetString("HABILITADO")
+		End If
+		c.Close
+		If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.Visible = True 
+		If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then Tels.Visible = True
 		If ALMACEN = "32" Or ALMACEN = "33" Or ALMACEN = "6" Then
 			If distance < 100 Then
 				LA_GEO.TextColor = Colors.Blue
 				Tels.Visible = True
 				gest.Visible = True
 				ToastMessageShow("DENTRO de rango GPS", False)
+			Else If habi = "1" Then
+				
+				c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD"))
+				If c.RowCount > 0 Then
+					c.Position = 0
+					Dim al_latitud As String = c.GetString("CAT_VA_VALOR")
+				End If
+				c.Close		
+				
+				c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD"))
+				If c.RowCount > 0 Then
+					c.Position = 0
+					Dim al_longitud As String = c.GetString("CAT_VA_VALOR")
+				End If
+				c.Close
+				
+				Dim ubi1, ubi2 As Location
+				ubi1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
+				ubi2.Initialize2(al_latitud, al_longitud)
+				
+				Dim distancealm As Long
+				distancealm = ubi1.DistanceTo(ubi2)
+				
+				If distancealm < 50 Then
+					LA_GEO.TextColor = Colors.Blue
+					Tels.Visible = True
+					gest.Visible = True
+					ToastMessageShow("DENTRO de rango GPS", False)
+				Else If distancealm > 50 Then
+					Tels.Visible = False
+					gest.Visible = False
+					
+					c = skmt.ExecQuery("SELECT PC_CLIENTE  FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (Select CUENTA from cuentaa)")
+					If c.RowCount > 0 Then
+						Tels.Visible = True
+						gest.Visible = True
+				
+					Else If c.RowCount = 0 Then
+						c = skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA CLIENTE WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
+						If c.RowCount > 0 Then
+							Tels.Visible = True
+							gest.Visible = True
+						Else If c.RowCount = 0 Then
+							Tels.Visible = False
+							gest.Visible = False
+							LA_GEO.TextColor = Colors.Red
+							If ALMACEN = "1" Then
+								Tels.Visible = False
+								gest.Visible = True
+							End If
+						End If
+						
+						
+					End If
+
+					LA_GEO.TextColor = Colors.Red
+					If ALMACEN = "1" Then
+						Tels.Visible = False
+						gest.Visible = True
+					End If
+				End If
+			Else If habi = 0 Then
+				
+				c = skmt.ExecQuery("SELECT PC_CLIENTE  FROM PEDIDO_CLIENTE WHERE PC_CLIENTE IN (Select CUENTA from cuentaa)")
+				If c.RowCount > 0 Then
+					Tels.Visible = True
+					gest.Visible = True
+				
+				Else If c.RowCount = 0 Then
+					Tels.Visible = False
+					gest.Visible = False
+					c = skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA CLIENTE WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
+					If c.RowCount > 0 Then
+						Tels.Visible = True
+						gest.Visible = True
+					Else If c.RowCount = 0 Then
+						Tels.Visible = False
+						gest.Visible = False
+						LA_GEO.TextColor = Colors.Red
+						If ALMACEN = "1" Then
+							Tels.Visible = False
+							gest.Visible = True
+						End If
+					End If
+				
+					
+					LA_GEO.TextColor = Colors.Red
+					If ALMACEN = "1" Then
+						Tels.Visible = False
+						gest.Visible = True
+					End If
+					
+				End If
 			Else
+				Tels.Visible = False
+				gest.Visible = False
 				LA_GEO.TextColor = Colors.Red
 				If ALMACEN = "1" Then
 					Tels.Visible = False
 					gest.Visible = True
 				End If
+			
 			End If
 		End If
 	End If
@@ -689,11 +794,13 @@ Sub GPS_LocationChanged (Location1 As Location)

 	If LA_GEO.IsInitialized Then LA_GEO.Text= $"$1.2{distance/1000} kms"$
 	
-	If distance > 100 Then ToastMessageShow("Fuera de rango GPS", False)
+'	If distance > 100 Then ToastMessageShow("Fuera de rango GPS", False)
 	
 	B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
 	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
 	CallSubDelayed(Tracker, "CreateLocationRequest")
+	
+	
 End Sub

 Sub ListView1_ItemLongClick (Position As Int, Value As Object)
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -736,6 +736,11 @@ Sub Subir_Click
 End Sub

 Sub cargar_Click
+	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
+	B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA"))
+	B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword"))
+	B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD"))
+	B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD"))
 	CARGA = "CARGAR"
 	img2.Visible =True
 	L_P_1.Visible = True
@@ -902,6 +907,16 @@ Sub cargar_Click
 	cmd.Parameters = Array As Object(ALMACEN)
 	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos")
 	
+	cmd.Initialize
+	cmd.Name = "select_coordenadas_GUNA"
+	cmd.Parameters = Array As Object(ALMACEN)
+	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "coordenadas")
+	
+	cmd.Initialize
+	cmd.Name = "select_PASS_GUNA"
+	cmd.Parameters = Array As Object(ALMACEN)
+	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "password")
+	
 	cmd.Initialize
 	cmd.Name = "select_verificacion_GV2"
 	cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
@@ -1169,6 +1184,31 @@ Sub JobDone(Job As HttpJob)
 '				If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
 			End If
 		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
+			If RESULT.Tag = "coordenadas" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+					Dim latitud As String = records(RESULT.Columns.Get("CAT_AL_LATITUD"))
+					Dim longitud As String = records(RESULT.Columns.Get("CAT_AL_LONGITUD"))
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LATITUD",latitud))
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LONGITUD",longitud))
+				Next
+'				If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
+			End If
+		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
+			If RESULT.Tag = "password" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+					Dim password As String = records(RESULT.Columns.Get("CAT_VA_VALOR"))
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("pasword",password))
+				Next
+'				If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
+			End If
+		End If
+

 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
@@ -1772,6 +1812,10 @@ Sub e_ruta_EnterPressed
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO3")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO4")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO5")
+			B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA"))
+			B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword"))
+			B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD"))
+			B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD"))
 			B4XPage_Appear
 		End If
 	End If
@@ -1888,6 +1932,7 @@ Sub B_OK_PAS_Click
 		Resumen.Visible= True
 		img2.Visible=False
 		Subs.panelVisible(p_principal, 0, 0)
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1))
 	Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
 		RES =  Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
 		If RES = DialogResponse.POSITIVE Then
--- a/B4A/Files/cliente.bal
+++ b/B4A/Files/cliente.bal
--- a/B4A/Files/login.bal
+++ b/B4A/Files/login.bal
--- a/V3.1.b4a
+++ b/V3.1.b4a
@@ -6,57 +6,58 @@ File12=ENCUESTA_PED.bal
 File13=engrane.jpg
 File14=engrane.png
 File15=engrane18.png
-File16=ESNCUESTA_M2.bal
-File17=fondo_kmt.jpg
-File18=gps20.png
-File19=guna.png
+File16=engraneactual.png
+File17=ESNCUESTA_M2.bal
+File18=fondo_kmt.jpg
+File19=gps20.png
 File2=bus-ar.png
-File20=guna18.png
-File21=guna-fondo.png
-File22=Hacer pedido.jpg
-File23=hacerpedido30.png
-File24=ic_cloud_download_white_24dp.png
-File25=itembuttonblue.png
-File26=login.bal
-File27=Logo Guna_192x192.png
-File28=logo-guna-18.png
-File29=MainPage.bal
+File20=guna.png
+File21=guna18.png
+File22=guna-fondo.png
+File23=Hacer pedido.jpg
+File24=hacerpedido30.png
+File25=ic_cloud_download_white_24dp.png
+File26=itembuttonblue.png
+File27=login.bal
+File28=Logo Guna_192x192.png
+File29=logo-guna-18.png
 File3=carrito.png
-File30=Malo.jpg
-File31=mapa_rutas.bal
-File32=mas-azul.png
-File33=mas-azul-red.png
-File34=mas-azul-red1.png
-File35=menos.png
-File36=menosred.png
-File37=menos-red.png
-File38=nota.bal
-File39=noventa.bal
+File30=MainPage.bal
+File31=Malo.jpg
+File32=mapa_rutas.bal
+File33=mas-azul.png
+File34=mas-azul-red.png
+File35=mas-azul-red1.png
+File36=menos.png
+File37=menosred.png
+File38=menos-red.png
+File39=nota.bal
 File4=celltitle.bal
-File40=nuevocliente.bal
-File41=nuevo-cliente20.png
-File42=Nvo Cliente.jpg
-File43=palomita_verde.png
-File44=pedido.bal
-File45=planfia_logo.png
-File46=principal.bal
-File47=proditem.bal
-File48=productos.bal
-File49=promociones.bal
+File40=noventa.bal
+File41=nuevocliente.bal
+File42=nuevo-cliente20.png
+File43=Nvo Cliente.jpg
+File44=palomita_verde.png
+File45=pedido.bal
+File46=planfia_logo.png
+File47=principal.bal
+File48=proditem.bal
+File49=productos.bal
 File5=cliente.bal
-File50=qr_gallina.jpg
-File51=resdia.bal
-File52=ResDia.jpg
-File53=resdia20.png
-File54=salma.jpg
-File55=salma.png
-File56=senial.jpg
-File57=sync.png
-File58=Ticket dia.jpg
-File59=ticketdia20.png
+File50=promociones.bal
+File51=qr_gallina.jpg
+File52=resdia.bal
+File53=ResDia.jpg
+File54=resdia20.png
+File55=salma.jpg
+File56=salma.png
+File57=senial.jpg
+File58=sync.png
+File59=Ticket dia.jpg
 File6=clientes.bal
-File60=ticketsdia.bal
-File61=Tiendita.jpg
+File60=ticketdia20.png
+File61=ticketsdia.bal
+File62=Tiendita.jpg
 File7=durakelo.png
 File8=ENCUESSTA_M3.bal
 File9=ENCUESTA.bal
@@ -118,6 +119,7 @@ FileGroup59=Default Group
 FileGroup6=Default Group
 FileGroup60=Default Group
 FileGroup61=Default Group
+FileGroup62=Default Group
 FileGroup7=Default Group
 FileGroup8=Default Group
 FileGroup9=Default Group
@@ -179,15 +181,15 @@ Module6=C_Historico
 Module7=C_Mapas
 Module8=C_Nota
 Module9=C_NoVenta
-NumberOfFiles=61
+NumberOfFiles=62
 NumberOfLibraries=33
 NumberOfModules=23
-Version=12.8
+Version=12.5
@EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: Guna V3.1
 	#VersionCode: 1
-	#VersionName: 4.04.15 ENC
+	#VersionName: 4.04.16_1 ENC Geo
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
--- a/V3.1.b4a.meta
+++ b/V3.1.b4a.meta
@@ -50,7 +50,7 @@ ModuleClosedNodes0=
 ModuleClosedNodes1=5,7,8,9,10,11,12,13,14
 ModuleClosedNodes10=
 ModuleClosedNodes11=6
-ModuleClosedNodes12=2,3,8,10,14,15
+ModuleClosedNodes12=2,3,8,10,14
 ModuleClosedNodes13=6,10,11,13,14,16,17,20,21,22,23
 ModuleClosedNodes14=
 ModuleClosedNodes15=
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Tracker,CreateNotification,198,0,C_Principal,cargar_Click,862,0,C_Principal,JobDone,1258,1,C_Cliente,B4XPage_Appear,639,6,Subs,traePromoIdDeBD,1098,0,B4XMainPage,B4XPage_Created,164,0,Main,Globals,24,0,C_Cliente,GPS_LocationChanged,681,6,C_Cliente,CB4_P8_M3_CheckedChange,3480,0,C_Cliente,Cuestionario,3503,5
+NavigationStack=Diseñador Visual,principal.bal,-100,1,C_Cliente,Class_Globals,0,0,B4XMainPage,B4XPage_Appear,323,1,C_Principal,Subir_Click,717,0,B4XMainPage,b_aceptar_Click,798,6,C_Principal,JobDone,1199,6,C_Principal,e_ruta_EnterPressed,1809,6,C_Principal,cargar_Click,734,3,C_Cliente,B4XPage_Appear,638,0,C_Cliente,GPS_LocationChanged,734,6
 SelectedBuild=0
-VisibleModules=21,2,22,12,13,4,8,11,5,10,23
+VisibleModules=21,2,22,12,13,4,8,11,5,10