Sub LocManager_RegionEnter(Region As NativeObject)
Log("Entro region")
' Globals.Push("RegionEnter",GetType(Region),0)
End Sub
Sub LocManager_RegionExit(Region As NativeObject)
Log("Salio region")
' Globals.Push("RegionExit",GetType(Region),0)
End Sub
Sub LocManager_StateChanged(State As Int, Region As Object)
'0 = unknown, 1 = inside, 2 = outside
Log("Region: " & GetType(Region) & ", State: " & State & ", " & $"$Time{DateTime.Now}"$)
If State = 1 And GetType(Region) = "CLBeaconRegion" Then
Globals.Push("BeaconRegion",Globals.mensajeRegionBeacon,0)
End If
If State = 1 And GetType(Region) = "CLCircularRegion" Then
' Globals.Push("CircularRegion",Globals.mensajeRegionCircular,0)
Dim no As NativeObject = Region
GetGeofenceCampaign(no.GetField("identifier").AsString)
End If
End Sub