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