mirror of
https://github.com/KeymonSoft/Izca_Multiventa.git
synced 2026-04-17 12:56:13 +00:00
130 lines
3.8 KiB
QBasic
130 lines
3.8 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Activity
|
|
Version=9.95
|
|
@EndOfDesignText@
|
|
#Region Activity Attributes
|
|
#FullScreen: False
|
|
#IncludeTitle: FALSE
|
|
|
|
#End Region
|
|
|
|
Sub Process_Globals
|
|
Dim GPS As GPS
|
|
Dim rp As RuntimePermissions
|
|
Dim ruta As String
|
|
Dim skmt As SQL
|
|
End Sub
|
|
|
|
Sub Globals
|
|
Private gmap As GoogleMap
|
|
Private MapFragment1 As MapFragment
|
|
Dim Latitud As Double = 0
|
|
Dim Longitud As Double = 0
|
|
Dim Lat2 As Double = 0
|
|
Dim Lon2 As Double = 0
|
|
Dim p1, p2 As Location
|
|
Dim Distance As Float
|
|
Dim boton1 As Button
|
|
Dim c As Cursor
|
|
Dim latmarker As String
|
|
Dim longmarker As String
|
|
Private l_long As Label
|
|
Private l_lat As Label
|
|
Private NOMBRE_TIENDA As String
|
|
Private p_principal As Panel
|
|
Private b_regresar As Button
|
|
End Sub
|
|
|
|
Sub Activity_Create(FirstTime As Boolean)
|
|
Activity.LoadLayout("mapa_cliente")
|
|
If MapFragment1.IsGooglePlayServicesAvailable = False Then
|
|
ToastMessageShow("Please install Google Play Services.", True)
|
|
End If
|
|
End Sub
|
|
|
|
Sub MapFragment1_Ready
|
|
gmap = MapFragment1.GetMap
|
|
'permisos
|
|
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
|
|
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
|
|
gmap.MyLocationEnabled = Result
|
|
'fin de permisos
|
|
Dim JavaMapsObject As JavaObject
|
|
JavaMapsObject = gmap.GetUiSettings
|
|
JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True))
|
|
Dim marcador1 As Marker = gmap.AddMarker (latmarker,longmarker, "TIENDA")
|
|
c = Starter.skmt.ExecQuery("SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info3 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION ALL SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info32 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
|
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
' Subs.centraPanel(p_principal, Activity.Width)
|
|
' p_principal.Height = Activity.Height * 0.95
|
|
'' latmarker = c.GetString("CAT_CL_LAT")
|
|
' longmarker = c.GetString("CAT_CL_LONG")
|
|
'' NOMBRE_TIENDA = c.GetString("CAT_CL_NOMBRE")
|
|
marcador1.Snippet = c.GetString("CAT_CL_NOMBRE")
|
|
End If
|
|
'posicion inicial
|
|
Dim aa As CameraPosition
|
|
aa.Initialize(latmarker,longmarker,15)''' RECOMENDABLE CAMBIAR A 10 SI ES MAS DE 1 MARCADOR
|
|
gmap.AnimateCamera(aa)
|
|
End Sub
|
|
|
|
Sub GPS_LocationChanged (Parametro As Location)
|
|
' GPS.Start(0, 0)
|
|
' Dim sp As Int
|
|
' sp = Ceil(Parametro.Speed * 3.6)
|
|
' boton1.Text = sp &" "&"km/h"
|
|
' Latitud = Parametro.Latitude
|
|
' Longitud = Parametro.Longitude
|
|
' p2.Initialize2(Latitud,Longitud)
|
|
' p1.Initialize2(Lat2, Lon2)
|
|
' Distance = p1.DistanceTo(p2)
|
|
' If Latitud <> 0 And Longitud <> 0 Then
|
|
' If Distance > 10 Then
|
|
' Lat2 = Latitud
|
|
' Lon2 = Longitud
|
|
' Dim cp As CameraPosition
|
|
' cp.Initialize2(Parametro.Latitude, Parametro.Longitude, gmap.CameraPosition.Zoom, Parametro.Bearing, 0)
|
|
' gmap.AnimateCamera(cp)
|
|
' End If
|
|
' End If
|
|
End Sub
|
|
|
|
Sub Activity_Resume
|
|
Subs.centraBoton(b_regresar, Activity.Width)
|
|
GPS.Initialize("GPS")
|
|
If GPS.GPSEnabled = False Then
|
|
ToastMessageShow("Debe Activar el GPS del Equipo.", True)
|
|
StartActivity(GPS.LocationSettingsIntent)
|
|
Else
|
|
GPS.Start(0, 0)
|
|
End If
|
|
c = Starter.skmt.ExecQuery("SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info3 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION ALL SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info32 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
|
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
Subs.centraPanel(p_principal, Activity.Width)
|
|
p_principal.Height = Activity.Height * 0.95
|
|
latmarker = c.GetString("CAT_CL_LAT")
|
|
longmarker = c.GetString("CAT_CL_LONG")
|
|
NOMBRE_TIENDA = c.GetString("CAT_CL_NOMBRE")
|
|
End If
|
|
End Sub
|
|
|
|
Sub Activity_Pause (UserClosed As Boolean)
|
|
GPS.Stop
|
|
End Sub
|
|
|
|
Sub reg_Click
|
|
' StartActivity(fila)
|
|
B4XPages.ShowPage("Cliente")
|
|
End Sub
|
|
|
|
Private Sub b_regresar_Click
|
|
Log("Pressed")
|
|
Activity.Finish
|
|
B4XPages.ShowPage("Cliente")
|
|
End Sub |