VERSION 5.12.11

- Se agrego coddigo para habilitar la geocerca, se descarga la bandera desde cat_rutas y se guarda en cat_variables (GEOCERCA)

B4A/Subs.bas

@@ -1545,4 +1545,15 @@ Sub traeTicketConsecutivo(idCliente As String) As Int
 		sigTicket = c.GetInt("pe_ticket")
 	Loop
 	Return sigTicket + 1
+End Sub
+
+' Regresa la geocerca desde CAT_VARIABLES, default = TRUE
+Sub traeGeocerca As Boolean
+	Private usarGeo As Boolean = True
+	Private c As Cursor = Starter.skmt.ExecQuery("select * from cat_variables where cat_va_descripcion ='GEOCERCA'")
+	If c.RowCount> 0 Then
+		c.Position = 0
+		If c.GetInt("CAT_VA_VALOR") = 0 Then usarGeo = False
+	End If
+	Return usarGeo
 End Sub