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 ruta As String
    Dim g As GPS
	Private frontCamera As Boolean = False

End Sub

Sub Globals
	Dim camera1 As Camera
	Dim btnTakePicture As Button
	Dim Panel1 As Panel
    Dim skmt As SQL
	Dim c As Cursor
	Dim cuenta As String
	Dim lat_gps As String
	Dim lon_gps As String
    Private camEx As CameraExClass


End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	If(FirstTime) Then
	 g.Initialize("GPS")
	End If

	Activity.LoadLayout("foto")
	btnTakePicture.Enabled = False
	camera1.Initialize(Panel1, "Camera1")
		
	   ruta = File.DirInternal
	
	If File.Exists(ruta, "kmt.db") = False Then
		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
	End If
	
	skmt.Initialize(ruta,"kmt.db", True)
	c=skmt.ExecQuery("select cuenta from cuentaa")
        c.Position = 0
	    cuenta = c.GetString("CUENTA")
End Sub
Sub Camera1_Ready (Success As Boolean)
	If Success Then
	    
		camera1.StartPreview
		
		btnTakePicture.Enabled = True
	Else
		ToastMessageShow("No se puede abrir la camara.", True)
	End If
End Sub

Sub Activity_Resume
		 If g.GPSEnabled=False Then
		  ToastMessageShow("Habilitar el GPS", True)
		  StartActivity(g.LocationSettingsIntent)
		 Else
		  g.Start(0,0)
		 End If
	btnTakePicture.Enabled = False
	camera1.Initialize(Panel1, "Camera1")
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	camera1.Release
End Sub
Sub GPS_LocationChanged (Location1 As Location)

lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
'btnTakePicture.Enabled = True
's.ExecNonQuery2("INSERT INTO  HIST_GPS (HGDATE,HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, lat_gps, lon_gps))
 End Sub


Sub Camera1_PictureTaken (Data() As Byte)
	camera1.StartPreview
	'Dim out As OutputStream
    	c=skmt.ExecQuery("select cuenta from cuentaa")
        c.Position = 0
	    cuenta = c.GetString("CUENTA")
        Dim sDate,sTime As String

		DateTime.DateFormat = "MM/dd/yyyy"
		sDate=DateTime.Date(DateTime.Now)
		sTime=DateTime.Time(DateTime.Now)
	skmt.ExecNonQuery2("INSERT INTO  HIST_VISITAS (HIST_VI_IMAGEN, HIST_VI_CREDITO,HIST_VI_DTEVISITA, HIST_VI_LONGITUD, HIST_VI_LATITUD) VALUES(?,?,?,?,?) ", Array As Object (Data, cuenta,sDate & sTime, lon_gps,lat_gps))

	'out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
	'out.WriteBytes(Data, 0, Data.Length)
	'out.Close
	'ToastMessageShow("Gestion Salvada ", True)
	
	btnTakePicture.Enabled = True
	'CallSubDelayed(seleccion,"seleccion")
	StartActivity(fila)
End Sub

Sub btnTakePicture_Click
	btnTakePicture.Enabled = False
	camera1.TakePicture
	'camera1.TakePicture
	
End Sub
Sub Activity_KeyPress (key As Int) As Boolean
    ' BACK key pressed
    If key=KeyCodes.KEYCODE_BACK Then
            ' I want to capture the key here so I return True
			StartActivity(seleccion)
            'Return True
    End If
    ' Returning False signals the system to handle the key
    Return False
End Sub