mirror of
https://github.com/KeymonSoft/Profina_Reparto.git
synced 2026-04-17 12:56:19 +00:00
67 lines
2.2 KiB
QBasic
67 lines
2.2 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Activity
|
|
Version=7.01
|
|
@EndOfDesignText@
|
|
#Region Activity Attributes
|
|
#FullScreen: False
|
|
#IncludeTitle: True
|
|
#End Region
|
|
|
|
Sub Process_Globals
|
|
'These global variables will be declared once when the application starts.
|
|
'These variables can be accessed from all modules.
|
|
' Dim skmt As SQL
|
|
' Dim ruta As String
|
|
Dim LONGITUD As String
|
|
Dim LATITUD As String
|
|
End Sub
|
|
|
|
Sub Globals
|
|
'These global variables will be redeclared each time the activity is created.
|
|
'These variables can only be accessed from this module.
|
|
Dim c As Cursor
|
|
Dim WebView1 As WebView
|
|
Dim reg As Button
|
|
Dim a_url As String
|
|
Private l_long As Label
|
|
Private l_lat As Label
|
|
End Sub
|
|
|
|
Sub Activity_Create(FirstTime As Boolean)
|
|
'Do not forget to load the layout file created with the visual designer. For example:
|
|
'Activity.LoadLayout("Layout1")
|
|
' ruta = Main.ruta
|
|
' If File.Exists(Starter.ruta, "kmt.db") = False Then
|
|
' File.Copy(File.DirAssets, "kmt.db", Starter.ruta, "kmt.db")
|
|
' End If
|
|
Activity.LoadLayout("mapa")
|
|
' skmt.Initialize(Starter.ruta,"kmt.db", True)
|
|
|
|
End Sub
|
|
|
|
Sub Activity_Resume
|
|
Starter.skmt.Initialize(Starter.ruta,"kmt.db", True)
|
|
|
|
c=Starter.skmt.ExecQuery("select HV_CLIENTE, HV_LONG, HV_LAT from PUNTEO_GPS where HV_CLIENTE In (Select cuenta from cuentaa)")
|
|
c.Position=0
|
|
LONGITUD = c.GetString("HV_LONG")
|
|
LATITUD = c.GetString("HV_LAT")
|
|
l_lat.Text = LATITUD
|
|
l_long.Text = LONGITUD
|
|
' WebView1.LoadUrl("http://maps.googleapis.com/maps/api/staticmap?zoom=16&size=800x800&maptype=roadmap&markers=color:blue%7Clabel:1%7C19.076514,%20-98.228184&markers=color:red%7Clabel:C%7C19.076514,%20-98.238184&key=AIzaSyD-e--ldKJsIkJqaCoABC8J43ITd3jGGQ0")
|
|
|
|
WebView1.LoadUrl("http://maps.googleapis.com/maps/api/staticmap?zoom=16&size=800x800&maptype=roadmap&markers=color:blue%7Clabel:1%7C" & LATITUD &",%20" &LONGITUD &"&key=AIzaSyD-e--ldKJsIkJqaCoABC8J43ITd3jGGQ0")
|
|
'Msgbox("http://maps.googleapis.com/maps/api/staticmap?zoom=16&size=800x800&maptype=roadmap&markers=color:blue%7Clabel:1%7C" & LATITUD &",%20" &LONGITUD &"&sensor=false","titulo")
|
|
End Sub
|
|
|
|
Sub Activity_Pause (UserClosed As Boolean)
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Sub reg_Click
|
|
StartActivity(fila)
|
|
End Sub |