Commit Inicial

mapas.bas

@@ -0,0 +1,67 @@
+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