Durakelo_Reparto/colonia.bas

B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Activity
Version=6.8
@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 q_buscar 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 skmt As SQL
	Dim c As Cursor
	Dim c2 As Cursor
	Dim ListView1 As ListView
	Dim entro As String
	Dim gest As Button
    Dim lfila As Label
	Dim busca As EditText
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")
    Activity.LoadLayout("fila")
	'Dim ruta As String
	entro ="2"
	' valido donde escribo el archivo de la base de datos de kmt
	ruta = File.DirInternal
	
	' se crea o no el archivo de la base de ddatos de kmt
	'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE 
	'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
	'SI SE REGRESA A ESTE ACTIVIDAD.
	If File.Exists(ruta, "kmt.db") = False Then
		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
	End If
	
	
End Sub

Sub Activity_Resume
busca.Text = ""
skmt.Initialize(ruta,"kmt.db", True)
     entro ="2"
	 
	 ' esto es para rutas se quito por colonia 
	 c=skmt.ExecQuery("select CAT_CL_RUTA, count(*) as cuantos from kmt_info where gestion = 0 group by CAT_CL_RUTA order by CAT_CL_RUTA asc")
	  'SE COMENTA EL SIGUIENTE CODIGO PARA QUE TODAS LAS TIENDAS APARESCAN.
	   'c=skmt.ExecQuery("select CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 group by CAT_CL_COLONIA order by CAT_CL_COLONIA asc")
	 
	   ListView1.Clear
	   lfila.Text = "RUTA PREVENTA"
	   If c.RowCount>0 Then
	      For i=0 To c.RowCount -1
		     c.Position=i
			 Dim label1 As Label
			 label1 = ListView1.TwoLinesLayout.Label
			 label1.TextSize = 22
'			 label1.TextColor = Colors.White
			 label1.TextColor = Colors.Black
			 Dim label2 As Label
			 label2 = ListView1.TwoLinesLayout.SecondLabel
			 label2.TextSize = 22
'			 label2.TextColor = Colors.White
			 label2.TextColor = Colors.Black
			 ListView1.AddTwoLines(c.GetString("CAT_CL_RUTA"),c.GetString("cuantos"))
	      Next
	   End If
	   ' ESTE FUE EL FIN DEL CODIGO COMENTADO
	 'c2=skmt.ExecQuery("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 order by CAT_CL_NOMBRE ")
	  ' ListView1.Clear
   	   'lfila.text = "Nombre y Calle"

	   'If c2.RowCount>0 Then
	   '   For i=0 To c2.RowCount -1
	'	     c2.Position=i
	'		 Dim label1 As Label
	'		 label1 = ListView1.TwoLinesLayout.Label
	'		 label1.TextSize = 9
	'		 label1.TextColor = Colors.White
	'		 Dim label2 As Label
	'		 label2 = ListView1.TwoLinesLayout.SecondLabel
	'		 label2.TextSize = 17
	'		 label2.TextColor = Colors.White
	'		 ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE:  "& c2.GetString("CAT_CL_CALLE"))
	'     Next
	'   End If
	'   entro = "3"
	
	   
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub ListView1_ItemClick (Position As Int, Value As Object)
'Sub ListView1_ItemLongClick (Position As Int, Value As Object)

	'que_colonia = Value 
	'StartActivity(fila)
	
	'If entro = "1" Then
	skmt.Initialize(ruta,"kmt.db", True)
	 'se comenta para lo anterior c2=skmt.ExecQuery2("select CAT_CL_COLONIA, count(*) as cuantos from kmt_info where CAT_CL_RUTA = ? and gestion = 0 group by CAT_CL_COLONIA order by CAT_CL_COLONIA asc", Array As String(Value))
	' c2=skmt.ExecQuery2("select  CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where CAT_CL_COLONIA = ? and gestion = 0", Array As String(Value))
	 
	   ListView1.Clear
	'   lfila.text = "COLONIA"

	 '  If c2.RowCount>0 Then
	  '    For i=0 To c2.RowCount -1
		'     c2.Position=i
		'	 ListView1.AddTwoLines(c2.GetString("CAT_CL_COLONIA"),c2.GetString("cuantos"))
	     ' Next
	  ' End If
	  ' entro = "2"
	If entro = "2" Then
	skmt.Initialize(ruta,"kmt.db", True)
	 c2=skmt.ExecQuery2("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where CAT_CL_RUTA = ? and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(Value))
	   ListView1.Clear
   	   lfila.text = "Nombre y Calle"

	   If c2.RowCount>0 Then
	      For i=0 To c2.RowCount -1
		     c2.Position=i
			 Dim label1 As Label
			 label1 = ListView1.TwoLinesLayout.Label
			 label1.TextSize = 22
			 label1.TextColor = Colors.Black
			 Dim label2 As Label
			 label2 = ListView1.TwoLinesLayout.SecondLabel
			 label2.TextSize = 22
			 label2.TextColor = Colors.Black
			 ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE:  "& c2.GetString("CAT_CL_CALLE"))
	      Next
	   End If
	   entro = "3"
	Else If entro = "3" Then
	  skmt.ExecNonQuery("delete from CUENTAA")
	  skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
	  StartActivity(fila)
	  
	End If
	
End Sub
Sub Activity_KeyPress (key As Int) As Boolean
    ' BACK key pressed
    If key=KeyCodes.KEYCODE_BACK Then
      ' If entro = "3" Then
	   'entro = "2"
	   'Activity_Resume
	   'Return True
	   'Else If entro = "2" Then
	   'entro = "1"
	   'Activity_Resume
	   'Return True
	   'Else If entro = "1" Then
	   
			' I want to capture the key here so I return True
			
			StartActivity(seleccion)
            Return False
	   'End If
    End If
    ' Returning False signals the system to handle the key
    
End Sub

Sub BUSCA_TextChanged (Old As String, New As String)
	q_buscar = "%" & busca.Text & "%"
		skmt.Initialize(ruta,"kmt.db", True)

	c2=skmt.ExecQuery2("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where CAT_CL_NOMBRE like ? and gestion = 0 order by CAT_CL_CODIGO ", Array As String(q_buscar))
	   ListView1.Clear
   	   lfila.text = "Nombre y Calle"

	   If c2.RowCount>0 Then
	      For i=0 To c2.RowCount -1
		     c2.Position=i
			 Dim label1 As Label
			 label1 = ListView1.TwoLinesLayout.Label
			 label1.TextSize = 22
			 label1.TextColor = Colors.Black
			 Dim label2 As Label
			 label2 = ListView1.TwoLinesLayout.SecondLabel
			 label2.TextSize = 22
			 label2.TextColor = Colors.Black
			 ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE:  "& c2.GetString("CAT_CL_CALLE"))
	      Next
	   End If
	   entro = "3"
	
    c2.Close
End Sub