- VERSION 5.04.10

- Se corrigio que cuando la app esta recien iniciada, al entrar al engrane y Extras, mostraba habilitadas las opciones sin poner contraseña!

B4A/B4XMainPage.bas

@@ -669,7 +669,8 @@ Sub i_engranes_Click
 	Label1 = ListView1.SingleLineLayout.Label
 	Label1.TextSize = 20
 	Label1.TextColor = Colors.Black
-	et_geocerca.Text = ""sdsf
+	et_geocerca.Text = "."
+	et_geocerca.Text = ""
 	If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1781")
 	ListView1.AddSingleLine("http://keymon.lat:1781")
 	c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))

B4A/KelloggsV4.b4a.meta

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=B4XMainPage,et_geocerca_TextChanged,865,4,DBRequestManager,trackNext,342,0,DBRequestManager,trackInit,333,0,Diseñador Visual,cliente.bal,-100,1,C_Cliente,p_pideGeoPass_Click,4106,0,C_Cliente,b_geopass_Click,4114,6,B4XMainPage,et_maxClientesNuevos_TextChanged,851,0,B4XMainPage,user_EnterPressed,636,0,B4XMainPage,JobDone,556,6,B4XMainPage,i_engranes_Click,680,4
+NavigationStack=B4XMainPage,i_engranes_Click,665,5,B4XMainPage,user_EnterPressed,648,0,Diseñador Visual,cliente.bal,-100,1,C_Cliente,p_pideGeoPass_Click,4106,0,C_Cliente,b_geopass_Click,4114,6,B4XMainPage,JobDone,556,6,B4XMainPage,Class_Globals,22,0,Diseñador Visual,login.bal,-100,3,B4XMainPage,et_geocerca_TextChanged,879,0,B4XMainPage,et_maxClientesNuevos_TextChanged,872,0,Starter,Process_Globals,52,6
 SelectedBuild=0
 VisibleModules=1,28,11,3,29,12,7,9,17

B4A/Starter.bas

@@ -56,7 +56,7 @@ Sub Process_Globals
 	Dim pingShell As Boolean = False
 	Dim errorConnDBReq As Boolean = False
 	Dim GUID As String = ""
-	dim passSupervisor as string = ""
+	dim passSupervisor as string = "13X#X$X46" ' Valor predeterminado DIFERENTE a ""
 End Sub
 
 Sub Service_Create