VERSION 6.02.21

- Se agrego que cuando hagan clic en el nombre del cliente se actualicen automaticamente las coordenadas en web.

B4A/Subs.bas

@@ -1556,4 +1556,15 @@ Sub traeGeocerca As Boolean
 		If c.GetInt("CAT_VA_VALOR") = 0 Then usarGeo = False
 	End If
 	Return usarGeo
+End Sub
+
+'Revisa si la geocerca debe de estar activa
+Sub geocercaActiva As Boolean
+	Private resultado As Boolean = True
+	Private c As Cursor = Starter.skmt.ExecQuery("select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'GEOCERCA'")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		If c.GetString("CAT_VA_VALOR") = 0 Then resultado = False
+	End If
+	Return resultado
 End Sub