B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Activity
Version=11.8
@EndOfDesignText@
#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals
	Private xui As XUI
	Dim sql1 As SQL
	Dim cursor2 As Cursor
End Sub

Sub Globals
	Private PanelMaquinarias As Panel
	Private AggMaquinaria As Button
	Private Panel1 As Panel
	Private CLVMaq As CustomListView
	
	Dim cursor As Cursor
	Dim cadena As String
	
	Private LabelMaquinaria1 As Label
	Private RadioButtonTractor As RadioButton
	Private RadioButtonMaquina As RadioButton
	Private RadioButtonVehiculo As RadioButton
	Private RadioButtonMoto As RadioButton
	Private NombreMaquinaria As B4XFloatTextField
	Private MarcaMaquinaria As B4XFloatTextField
	Private ModeloMaquinaria As B4XFloatTextField
	Private ButtonOKMaq As Button
	
	Dim TIPO As String
	Dim NOMBRE As String
	Dim MARCA As String
	Dim MODELO As String
	
	Private LabelTipo As Label
	Private LabelNombre As Label
	Private LabelMarca As Label
	Private LabelModelo As Label
	Private EditTextMaq As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.RemoveAllViews
	Activity.LoadLayout("menumaquinaria")
	If FirstTime Then
		If File.Exists(File.DirInternal,"maquinaria.sql")=False Then
			File.Copy(File.DirAssets,"maquinaria.sql",File.DirInternal,"maquinaria.sql")
			Sleep(1000)
		End If
	End If
	
	If sql1.IsInitialized = False Then
		sql1.Initialize(File.DirInternal, "maquinaria.sql", True)
	End If
	Activity.LoadLayout("menumaquinaria")
'	Log("Cantidad de registros: "&sql1.ExecQuerySingleResult("Select count(*) from maquinaria"))
	
	Dim cursor1 As Cursor
	
	cursor1= sql1.ExecQuery("Select TIPO, NOMBRE, MARCA, MODELO from maquinaria")
	cursor=cursor1
	If cursor1.RowCount>0 Then
		For i=0 To cursor1.RowCount-1
			cursor1.Position=i
			TIPO=cursor1.GetString("TIPO")
			NOMBRE=cursor1.GetString("NOMBRE")
			MARCA=cursor1.GetString("MARCA")
			MODELO=cursor1.GetString("MODELO")
			
			If LabelNombre.Tag=Null Then
				LabelNombre.Tag="0"
			End If
			cadena=NOMBRE & NOMBRE
			If cadena.ToLowerCase.Contains(EditTextMaq.Text.Replace(" ","").ToLowerCase) Then
				CLVMaq.Add(cargarmaquinaria,i)
			End If
		Next
	End If

End Sub

Sub cargarmaquinaria As Panel
	Dim p As B4XView = xui.CreatePanel("aj")
	p.SetLayoutAnimated(0, 0, 0, CLVMaq.AsView.Width, CLVMaq.AsView.Height/6)
	p.LoadLayout("CardMaquinaria")
	LabelTipo.Text=TIPO
	LabelNombre.Text=NOMBRE
	LabelMarca.Text=MARCA
	LabelModelo.Text=MODELO
	Return p
	
End Sub

Sub Activity_Resume
	Activity_Create (False)
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Private Sub AggMaquinaria_Click
	Activity.LoadLayout("MaquinariaNueva")
End Sub

Private Sub CLVMaq_ItemClick (Index As Int, Value As Object)
'	Dim cursor As Cursor
'	Activity.RemoveAllViews
End Sub