Se agrego la clase v_clientes

B4A/B4XMainPage.bas

@@ -38,8 +38,11 @@ Sub Class_Globals
 	Public pedidos As C_Pedidos
 	Public promos As C_Promos
 	Public historico As C_Historico
+	Public Clientes_Completos As C_ClientesCompletos
+	Public Tclientes As V_Tclientes
 
 	Public historicobat As C_historicobat
+	
 	Dim reqManager As DBRequestManager
 	Dim v As String = Application.VersionName
 	Dim ruta As String
@@ -143,9 +146,17 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	B4XPages.AddPage("Promos", promos)
 	historico.Initialize
 	B4XPages.AddPage("Historico", historico)
+	
 	historicobat.Initialize
 	B4XPages.AddPage("historicobat", historicobat)
 	
+	Clientes_Completos.Initialize
+	B4XPages.AddPage("Clientes_Completos", Clientes_Completos)
+	
+	Tclientes.Initialize
+	B4XPages.AddPage("Tclientes", Tclientes)
+	
+	
 	
 	p_Main.Height = Root.Height
 	p_Main.Width = Root.Width
@@ -171,6 +182,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_OBJETIVO_BAT (COB_VOLUMEN TEXT, COB_MARCAE TEXT, COB_PORTAFOLIO TEXT, COB_OBJPP TEXT, COB_GEV TEXT )")
 	
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_CATCLIENTESTODOS (CAT_CL_TIPO_RUTA TEXT, CAT_CL_DIAS_VISITA TEXT, CAT_CL_CODIGO TEXT, CAT_CL_FOTO TEXT, CAT_CL_CLASIFICADOR3 TEXT, CAT_CL_CLASIFICADOR4 TEXT, CAT_CL_CLASIFICADOR2 TEXT, CAT_CL_RUTA TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_EMAIL TEXT, CAT_CL_CALLE TEXT, CAT_CL_NOEXT TEXT, CAT_CL_NOINT TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_COLONIA TEXT, CAT_CL_MUNI TEXT, CAT_CL_EDO TEXT, CAT_CL_CP TEXT, CAT_CL_LONG TEXT, CAT_CL_LAT TEXT, CAT_CL_MTOCOMPRA TEXT, CAT_CL_NUM_SERIEFISICO TEXT, CAT_CL_BCREDITO TEXT, CAT_CL_DIASCREDITO TEXT, CAT_CL_TIPOCLIENTE TEXT, CAT_CL_LIMITECREDITO TEXT)")
+	
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS hist_ventastodos (HVD_CLIENTE TEX, HVD_PRONOMBRE TEXT, HVD_CANT TEXT, HVD_COSTO_TOT TEXT, HVD_FECHA TEXT)")
+	
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PROMOS_DESCUENTOS (CAT_PD_ALMACEN TEXT, CAT_PD_COD_PROMO TEXT, CAT_PD_RANGO INT, CAT_PD_VIGENCIA TEXT, CAT_PD_DESCUENTO TEXT, CAT_PD_PRODUCTO TEXT, CAT_PD_TIER TEXT)")

B4A/C_ClientesCompletos.bas

@@ -0,0 +1,79 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=12.8
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	Dim q_buscar As String
+	Dim c2 As Cursor
+	Dim ListView1 As ListView
+	Dim lfila As Label
+	Private BUSCA As EditText
+	Dim STIME As String
+	Dim S As Cursor
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	Return Me
+End Sub
+
+'This event will be called once, before the page becomes visible.
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	'load the layout to Root
+	
+	Root.LoadLayout("Clientes_completos")
+End Sub
+
+Sub BUSCA_TextChanged (Old As String, New As String)
+	If New = "" Then 
+		ListView1.Clear
+	Else 
+	q_buscar = "%" & BUSCA.Text & "%"
+	c2=B4XPages.MainPage.skmt.ExecQuery2("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from CAT_CATCLIENTESTODOS where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?) order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar))
+	ListView1.Clear
+	Subs.SetDivider(ListView1, Colors.White, 2)
+	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 = 20
+			label1.TextColor = Colors.White
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 20
+			label2.TextColor = Colors.White
+			label1.Height = 25dip
+			label2.Height = 60dip
+			
+			ListView1.TwoLinesLayout.ItemHeight = 95dip
+			label1.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
+			label2.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
+			ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE")& CRLF &"CALLE:  "& c2.GetString("CAT_CL_CALLE"))
+			Next
+		End If
+'	entro = "4"
+		c2.Close
+	End If
+End Sub
+
+Sub ListView1_ItemClick (Position As Int, Value As Object)
+	
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
+		Log(Value)
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+'		DateTime.TimeFormat = "HHmmss"
+'		STIME=DateTime.Time(DateTime.Now)
+		
+		
+	B4XPages.ShowPage("Tclientes")
+
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

B4A/C_Principal.bas

@@ -262,6 +262,7 @@ Sub Class_Globals
 	Private l_visitas As Label
 	Private l_visitartotal As Label
 	Private de As Label
+	Private B_traec As Button
 End Sub
 
 'You can add more parameters here.
@@ -1268,6 +1269,8 @@ Sub cargar_Click
 		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS")
 		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA_CLIENTE")
 		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_ENCUESTA_PREGUNTA")
+		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_CATCLIENTESTODOS")
+		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM hist_ventastodos")
 
 		c = B4XPages.MainPage.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
 		c.Position = 0
@@ -1444,6 +1447,16 @@ Sub cargar_Click
 		cmd.Name = "select_cat_encuesta_p_GUNA"
 		cmd.Parameters = Array As Object( ALMACEN,e_ruta.text )
 		B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "carga_encuesta")
+		
+		cmd.Initialize
+		cmd.Name = "select_cat_clientes_guna_todos"
+		cmd.Parameters = Array As Object( e_ruta.text,ALMACEN )
+		B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_CAT_CATCLIENTESTODOS")
+		
+		cmd.Initialize
+		cmd.Name = "select_hist_ventastodos_guna"
+		cmd.Parameters = Array As Object( e_ruta.text,ALMACEN,e_ruta.text,ALMACEN)
+		B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_ventastodos")
 	
 '	cmd.Initialize
 '	cmd.Name = "SELECT_HIST_ENCUESTA_GUNA"
@@ -1616,7 +1629,7 @@ Sub JobDone(Job As HttpJob)
 				If n = "OKActivo"  Then
 					Dim cmd As DBCommand
 					cmd.Initialize
-					cmd.Name = "select_ruta_GV2_70_13"
+					cmd.Name = "select_ruta_GV2_70_14"
 					cmd.Parameters = Array As Object(ALMACEN,e_ruta.text, usuario)
 					B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
 					'Log("Usuario guardado en BD es 'Valido'")
@@ -1849,6 +1862,56 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 		
+		
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
+			If RESULT.Tag = "kmt_CAT_CATCLIENTESTODOS" Then 'query tag
+				
+				For Each records() As Object In RESULT.Rows
+					Dim CAT_CL_TIPO_RUTA As String = records(RESULT.Columns.Get("CAT_CL_TIPO_RUTA"))
+					Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA"))
+					Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
+'					Dim CAT_CL_FOTO As String = records(RESULT.Columns.Get("CAT_CL_FOTO"))
+					Dim CAT_CL_CLASIFICADOR3 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR3"))
+					Dim CAT_CL_CLASIFICADOR4 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR4"))
+					Dim CAT_CL_CLASIFICADOR2 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR2"))
+					Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
+					Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE"))
+					Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1"))
+					Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2"))
+					Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO"))
+					Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL"))
+					Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE"))
+					Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT"))
+					Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT"))
+					Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1"))
+					Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2"))
+					Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA"))
+					Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI"))
+					Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO"))
+					Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP"))
+					Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG"))
+					Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
+					Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
+					Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
+					Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
+					Dim CAT_CL_DIASCREDITO As String = records(RESULT.Columns.Get("CAT_CL_DIASCREDITO"))
+					Dim CAT_CL_TIPOCLIENTE As String = records(RESULT.Columns.Get("CAT_CL_TIPOCLIENTE"))
+					Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
+					
+					
+					
+					'##########################  INICIA CODIGO PARA CREDITOS ####################
+					Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_CATCLIENTESTODOS(CAT_CL_TIPO_RUTA,CAT_CL_DIAS_VISITA,CAT_CL_CODIGO,CAT_CL_FOTO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR4,CAT_CL_CLASIFICADOR2,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BCREDITO,CAT_CL_DIASCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_CL_TIPO_RUTA, CAT_CL_DIAS_VISITA, CAT_CL_CODIGO, CAT_CL_FOTO, CAT_CL_CLASIFICADOR3, CAT_CL_CLASIFICADOR4, CAT_CL_CLASIFICADOR2, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_ATIENDE1, CAT_CL_ATIENTE2, CAT_CL_TELEFONO, CAT_CL_EMAIL, CAT_CL_CALLE, CAT_CL_NOEXT, CAT_CL_NOINT, CAT_CL_CALLE1, CAT_CL_CALLE2, CAT_CL_COLONIA, CAT_CL_MUNI, CAT_CL_EDO, CAT_CL_CP, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_MTOCOMPRA, CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_DIASCREDITO, CAT_CL_TIPOCLIENTE, CAT_CL_LIMITECREDITO))
+					'##########################  TERMINA CODIGO PARA CREDITOS ####################
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
+				Next
+'				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_cat_clientestodos(CAT_CL_TIPO_RUTA,CAT_CL_DIAS_VISITA,CAT_CL_CODIGO,CAT_CL_FOTO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR4,CAT_CL_CLASIFICADOR2,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BCREDITO,CAT_CL_DIASCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_CL_TIPO_RUTA, CAT_CL_DIAS_VISITA, CAT_CL_CODIGO, CAT_CL_FOTO, CAT_CL_CLASIFICADOR3, CAT_CL_CLASIFICADOR4, CAT_CL_CLASIFICADOR2, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_ATIENDE1, CAT_CL_ATIENTE2, CAT_CL_TELEFONO, CAT_CL_EMAIL, CAT_CL_CALLE, CAT_CL_NOEXT, CAT_CL_NOINT, CAT_CL_CALLE1, CAT_CL_CALLE2, CAT_CL_COLONIA, CAT_CL_MUNI, CAT_CL_EDO, CAT_CL_CP, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_MTOCOMPRA, CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_DIASCREDITO, CAT_CL_TIPOCLIENTE, CAT_CL_LIMITECREDITO))
+				
+			End If
+		End If
+		
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
 			If RESULT.Tag = "kmt_datos2" Then 'query tag
@@ -2464,6 +2527,24 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 		
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
+			If RESULT.Tag = "hist_ventastodos" Then 'query tag
+				
+				For Each records() As Object In RESULT.Rows
+'					Log ("NO HACE NADA")
+					Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
+					Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
+					Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
+					Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
+					Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
+					Log(HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO hist_ventastodos(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA) VALUES (?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA))
+				Next
+				
+			End If
+		End If
+		
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
 			If RESULT.Tag = "variables" Then 'query tag
@@ -3917,6 +3998,10 @@ Private Sub b_resdia_Click
 	resdia_Click
 End Sub
 
+Private Sub B_traec_click
+	B4XPages.ShowPage("Clientes_Completos")
+End Sub
+
 Sub checaPedido
 	Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
 	If c.RowCount > 0 Then

B4A/Guna Vistas V3.1.b4a.meta

@@ -22,6 +22,8 @@ ModuleBookmarks27=
 ModuleBookmarks28=
 ModuleBookmarks29=
 ModuleBookmarks3=
+ModuleBookmarks30=
+ModuleBookmarks31=
 ModuleBookmarks4=
 ModuleBookmarks5=7767
 ModuleBookmarks6=
@@ -52,6 +54,8 @@ ModuleBreakpoints27=
 ModuleBreakpoints28=
 ModuleBreakpoints29=
 ModuleBreakpoints3=
+ModuleBreakpoints30=
+ModuleBreakpoints31=
 ModuleBreakpoints4=
 ModuleBreakpoints5=
 ModuleBreakpoints6=
@@ -71,23 +75,25 @@ ModuleClosedNodes17=
 ModuleClosedNodes18=
 ModuleClosedNodes19=
 ModuleClosedNodes2=
-ModuleClosedNodes20=4
-ModuleClosedNodes21=
+ModuleClosedNodes20=
+ModuleClosedNodes21=4
 ModuleClosedNodes22=
 ModuleClosedNodes23=
 ModuleClosedNodes24=
 ModuleClosedNodes25=
 ModuleClosedNodes26=
-ModuleClosedNodes27=3,4,8,9
-ModuleClosedNodes28=
-ModuleClosedNodes29=20
+ModuleClosedNodes27=
+ModuleClosedNodes28=4,8,9
+ModuleClosedNodes29=
 ModuleClosedNodes3=
+ModuleClosedNodes30=20
+ModuleClosedNodes31=
 ModuleClosedNodes4=
 ModuleClosedNodes5=
 ModuleClosedNodes6=
-ModuleClosedNodes7=6,8,9,10,11
-ModuleClosedNodes8=
+ModuleClosedNodes7=
+ModuleClosedNodes8=6,8,9,10,11
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,principal.bal,-100,2,C_Cliente,Class_Globals,463,0,C_Principal,e_ruta_EnterPressed,2929,0,B4XMainPage,B4XPage_Created,165,0,C_Principal,cargar_Click,1330,1,C_NuevoCliente,B4XPage_Appear,248,0,Diseñador Visual,resdia.bal,-100,6,C_Principal,resdia_Click,3218,6,C_Principal,connecta_Click,2833,0,C_Principal,JobDone,1598,0
+NavigationStack=Subs,pedidoGuardado,709,0,V_Tclientes,B4XPage_Created,24,0,C_Cliente,B4XPage_Appear,1083,0,Diseñador Visual,celltitle.bal,-100,1,Diseñador Visual,Clientes_Completos.bal,-100,2,Diseñador Visual,cliente.bal,-100,4,Diseñador Visual,clientes.bal,-100,4,V_Tclientes,Class_Globals,13,1,Diseñador Visual,Vista_todoslosclientes.bal,-100,6,V_Tclientes,B4XPage_Appear,31,6
 SelectedBuild=0
-VisibleModules=27,2,16,28,5,13,17,19,4,1,14
+VisibleModules=28,2,17,29,5,14,18,20,4,1,31

B4A/Objects/AndroidManifest.xml

@@ -3,7 +3,7 @@
 	xmlns:android="http://schemas.android.com/apk/res/android"
 	package="gunav2.keymon.com.mx"
 	android:versionCode="1"
-	android:versionName="6.02.13"
+	android:versionName="6.02.14"
 	android:installLocation="internalOnly">
 	
 	<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="30"/>
@@ -64,11 +64,11 @@
 	<uses-permission android:name="android.hardware.camera"/>
 	<uses-permission android:name="android.hardware.camera.autofocus"/>
 	<uses-permission android:name="android.permission.FLASHLIGHT"/>
+	<uses-permission android:name="android.permission.WAKE_LOCK"/>
 	<uses-permission android:name="android.permission.INTERNET"/>
 	<uses-permission android:name="com.google.android.providers.gsf.permission.READ_GSERVICES"/>
 	<uses-permission android:name="gunav2.keymon.com.mx.permission.MAPS_RECEIVE"/>
 	<uses-permission android:name="android.permission.ACCESS_NETWORK_STATE"/>
-	<uses-permission android:name="android.permission.WAKE_LOCK"/>
 	<uses-permission android:name="android.permission.FOREGROUND_SERVICE"/>
 	<uses-permission android:name="android.permission.RECEIVE_BOOT_COMPLETED"/>
 	<uses-permission android:name="android.permission.ACCESS_BACKGROUND_LOCATION"/>
@@ -265,6 +265,18 @@
 			android:name=".appupdater$appupdater_BR"
 			android:exported="true">
 		</receiver>
+		<service
+			android:name=".tracker"
+			android:exported="true"
+			android:foregroundServiceType="location">
+		</service>
+		<receiver
+			android:name=".tracker$tracker_BR"
+			android:exported="true">
+			<intent-filter>
+			<action android:name="android.intent.action.BOOT_COMPLETED"/>
+			</intent-filter>
+		</receiver>
 		<service
 			android:name=".firebasemessaging"
 			android:exported="true">
@@ -281,18 +293,6 @@
 			android:screenOrientation="portrait"
 			android:exported="true">
 		</activity>
-		<service
-			android:name=".tracker"
-			android:exported="true"
-			android:foregroundServiceType="location">
-		</service>
-		<receiver
-			android:name=".tracker$tracker_BR"
-			android:exported="true">
-			<intent-filter>
-			<action android:name="android.intent.action.BOOT_COMPLETED"/>
-			</intent-filter>
-		</receiver>
 		<service
 			android:name=".newinst2"
 			android:exported="true">