- VERSION 5.09.03

- Se corrigieron textos. - Se corrigio que a veces mandaba coordenadas en blanco a la bitacora, ahora nos aseguramos de siempre tener las coordenadas disponibles
- VERSION 5.09.02
2026-04-18 03:39:19 +00:00 · 2025-09-17 13:11:23 -06:00 · 2025-09-11 18:45:04 -06:00 · 2025-09-11 13:22:56 -06:00 · 2025-09-11 12:51:10 -06:00 · 2025-09-01 14:17:41 -06:00
19 changed files with 621 additions and 392 deletions
--- a/.gitattributes
+++ b/.gitattributes
@@ -1,16 +1,16 @@
-# Auto detect text files and perform LF normalization
-* text=auto
-
-# linguist-language
-*.b4a linguist-language=B4X
-*.b4i linguist-language=B4X
-*.b4j linguist-language=B4X
-*.b4r linguist-language=B4X
-*.bas linguist-language=B4X
-
-# linguist-detectable
-*.b4a linguist-detectable=true
-*.b4i linguist-detectable=true
-*.b4j linguist-detectable=true
-*.b4r linguist-detectable=true
+# Auto detect text files and perform LF normalization
+* text=auto
+
+# linguist-language
+*.b4a linguist-language=B4X
+*.b4i linguist-language=B4X
+*.b4j linguist-language=B4X
+*.b4r linguist-language=B4X
+*.bas linguist-language=B4X
+
+# linguist-detectable
+*.b4a linguist-detectable=true
+*.b4i linguist-detectable=true
+*.b4j linguist-detectable=true
+*.b4r linguist-detectable=true
 *.bas linguist-detectable=true
--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,2 @@
-**/Objects
+**/Objects
 **/AutoBackups
--- a/B4A/ADM.b4a
+++ b/B4A/ADM.b4a
@@ -1121,7 +1121,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: ADM
 	#VersionCode: 1
-	#VersionName: 5.08.28
+	#VersionName: 5.09.03
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
--- a/B4A/ADM.b4a.meta
+++ b/B4A/ADM.b4a.meta
@@ -75,7 +75,7 @@ ModuleClosedNodes15=
 ModuleClosedNodes16=
 ModuleClosedNodes17=
 ModuleClosedNodes18=
-ModuleClosedNodes19=15,18,19,21,22
+ModuleClosedNodes19=
 ModuleClosedNodes2=
 ModuleClosedNodes20=
 ModuleClosedNodes21=
@@ -84,19 +84,19 @@ ModuleClosedNodes23=
 ModuleClosedNodes24=
 ModuleClosedNodes25=
 ModuleClosedNodes26=
-ModuleClosedNodes27=3,4,8,9,10,11,12,13,14,15,16,17,18,20,21,24,25,27,28
+ModuleClosedNodes27=29
 ModuleClosedNodes28=
 ModuleClosedNodes29=
 ModuleClosedNodes3=
-ModuleClosedNodes30=
+ModuleClosedNodes30=2,4,5,6,7,8
 ModuleClosedNodes31=
 ModuleClosedNodes32=15,16,17,18,19
 ModuleClosedNodes4=
 ModuleClosedNodes5=
-ModuleClosedNodes6=4,6,7,8,9,10,11,12,13,15,19,21
+ModuleClosedNodes6=3
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_TicketsDia,b_guardaNoVenta_Click,278,0,C_TicketsDia,b_cancelaNoVenta_Click,282,0,C_Clientes,b_inicioVenta_Click,570,0,C_Clientes,b_guardaNoVenta_Click,671,0,Diseñador Visual,ticketsdia.bal,-100,5,C_TicketsDia,Class_Globals,19,0,C_TicketsDia,b_noventa0_Click,195,0,C_Clientes,b_noVenta_Click,666,6,C_TicketsDia,b_noVenta_Click,303,0,MAPA_RUTAS,b_noVenta_Click,512,0
+NavigationStack=C_TicketsDia,b_guardaNoVenta_Click,300,1,C_TicketsDia,GPS_LocationChanged,218,0,C_TicketsDia,ListView1_ItemLongClick,213,0,Diseñador Visual,mapa_rutas.bal,-100,2,C_TicketsDia,b_noventa0_Click,229,0,MAPA_RUTAS,b_guardaNoVenta_Click,575,0,Diseñador Visual,clientes.bal,-100,3,C_Clientes,B4XPage_Appear,141,6,Diseñador Visual,datosclienteBotones.bal,-100,2,C_Clientes,CreateListItem,210,0,Starter,reinicializaReqManager,164,0
 SelectedBuild=0
-VisibleModules=30,2,14,5,6,19,31,27,18
+VisibleModules=30,2,14,5,6,19,31,27,18,32,8,11
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -22,16 +22,11 @@ Version=9.85

 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\

-
 ' ###################################################################
 ' ##################           Pendientes          ##################
 ' ###################################################################
 '
-' Bitacora de ubicacioes (como FLP2)
 ' MotivoNoVisita (como kelloggs cuando tienen un accidente y ya no van a terimnar la ruta)
-' validar que no se meta el peso en blanco (truena la aplicacion)
-' si se queda la venta iniciada y se sale de la app, que al iniciar se vaya DIRECTAMENTE A CLIENTE con la venta ya iniciada.
-' Cuando guarden el peso, que se vaya directamente a mostrar el boton de terminar venta.

 Sub Class_Globals
 	Dim c2 As Cursor
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -4,10 +4,6 @@ ModulesStructureVersion=1
 Type=Class
 Version=11.5
@EndOfDesignText@
-Sub MODS 'ignore
-	'V3.04.10 - Se agregó código para el registro de abonos, en B4XMainPage se genera la tabla y aquí se agregó el panel p_abonos para ralizar el abono, y el codigo en el sub "mandaPendientes" para cambiar la bandera de enviado en el abono.
-End Sub
-
 Sub Class_Globals
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
@@ -845,7 +841,7 @@ Sub GuardaVenta2
 		'	LogColor($"actualizamos "${la_cuenta.text},  hora_final=${DateTime.now}"$,Colors.Red)
 		Subs.actualizaTET(la_cuenta.text)
 		DateTime.TimeFormat = "HH:mm:ss"
-		mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
+		Subs.mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
 		mandapiezas
 		B4XPages.MainPage.productos.reiniciarlistaProds = True
 		B4XPages.MainPage.productos.prodsMap.Initialize
@@ -906,12 +902,12 @@ Sub GuardaVenta2
 		DateTime.TimeFormat = "HH:mm:ss"
 '		mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
 '		mandapiezas
-		mandaPendientesrecarga
-		mandapiezasrecarga
+'		mandaPendientesrecarga
+'		mandapiezasrecarga
 		B4XPages.MainPage.productos.reiniciarlistaProds = True
 		B4XPages.MainPage.productos.prodsMap.Initialize
 		B4XPages.MainPage.promos.promosMap.Initialize
-		B4XPages.ShowPage("login")
+		B4XPages.ShowPage("principal")
 		B4XPages.MainPage.recarga = "0"
 	End If
 End Sub
--- a/B4A/C_Clientes.bas
+++ b/B4A/C_Clientes.bas
@@ -73,6 +73,9 @@ Sub Class_Globals
 	Dim fotoCerrado As String = ""
 	Private p_botonesCam As Panel
 	Dim reqManager As DBRequestManager
+	Private p_clientesLista As Panel
+	Private p_transparenciaEsperaGPS As Panel
+	Private p_esperaGPS As Panel
 End Sub

 'You can add more parameters here.
@@ -99,7 +102,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.centraPanel(p_inicioFinVenta, Root.Width)
 	p_guardarPeso.Top = p_inicioFinVenta.top : p_guardarPeso.left = p_inicioFinVenta.left
 	Subs.centraPanel(p_noVenta, Root.Width)
-	
+	p_transparenciaEsperaGPS.Width = Root.Width : p_transparenciaEsperaGPS.Height = Root.Height
+	p_transparenciaEsperaGPS.Top = 0 : p_transparenciaEsperaGPS.Left = 0
+	Subs.centraPanel(p_esperaGPS, p_transparenciaEsperaGPS.Width)
 	' 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
@@ -113,7 +118,25 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub

 Sub B4XPage_Appear
+'	p_transparenciaEsperaGPS.Visible = True
+	Log("################    Iniciando revision de ubicación   #############")
+	Log($"${B4XPages.MainPage.lat_gps},${B4XPages.MainPage.lon_gps}"$)
+	If B4XPages.MainPage.lat_gps.Length < 4 Or B4XPages.MainPage.lon_gps.Length < 4 Then
+		ProgressDialogShow2("Buscando ubicación ...", False)
+		CallSubDelayed(Tracker, "Track")
+		CallSubDelayed(Tracker, "StartFLPSmall")
+		wait for GPS_LocationChanged (location1 As Location)
+		ProgressDialogHide
+	End If
+	Log("###############     Terminando revision de ubicación   #############")
+
 	l_baseodia.Text = "Clientes del día de visita"
+	p_clientes.Width = Root.Width : p_clientes.Height = Root.Height
+	p_clientes.Top = 0 : p_clientes.Left = 0
+	Subs.centraPanel(p_clientesLista, p_clientes.Width)
+	p_clientesLista.Height = Root.Height * 0.65
+	CustomListView1.AsView.Height = Root.Height * 0.6
+	CustomListView1.Base_Resize(Root.Width, Root.Height * 0.6)
 	CHECK = 0
 	busca.Text = ""
 	entro ="2"
@@ -121,7 +144,7 @@ Sub B4XPage_Appear
 	c = B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where  gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} ORDER BY CAST(CAT_CL_NUM_SERIEFISICO AS INTEGER) ASC"$)
 	ListView1.Clear
 	lfila.Text = "NOMBRE"
-	
+
 	CustomListView1.Clear
 	For i = 0 To c.RowCount - 1
 		c.Position = i
@@ -181,12 +204,17 @@ Sub B4XPage_Appear
 	End If
 End Sub

+Sub GPS_LocationChanged (Location1 As Location)
+'	If p_transparenciaEsperaGPS.IsInitialized Then p_transparenciaEsperaGPS.Visible = False
+	ProgressDialogHide
+End Sub
+
 Sub CreateListItem(nombre As String, direccion0 As String, cliente As String) As Panel
 	Dim p As B4XView = xui.CreatePanel("")
 	p.SetLayoutAnimated(0, 0, 0, 1, 220)
 '	p.LoadLayout("datoscliente")
 	p.LoadLayout("datosclienteBotones")
-	p.Height= 100dip
+	p.Height = 95dip
 	b_inicioVenta.Tag = cliente
 '	p.Width = clv_orden.GetBase.Width
 	nombrecliente.Text = nombre
@@ -278,8 +306,7 @@ Sub BUSCA_TextChanged (Old As String, New As String)
 			Else
 				cxc.Visible = True
 			End If
-			
-			
+
 			d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c2.GetString("CAT_CL_CODIGO")}'"$)
 '		LogColor(d.RowCount,Colors.Blue)
 			If d.RowCount > 0 Then
@@ -295,8 +322,7 @@ Sub BUSCA_TextChanged (Old As String, New As String)
 				CREDITO.Visible = False
 			End If
 		Next
-	
-	
+
 		If c2.RowCount>0 Then
 			For i=0 To c2.RowCount -1
 				c2.Position=i
@@ -344,8 +370,7 @@ Sub BUSCA_TextChanged (Old As String, New As String)
 				CREDITO.Visible = False
 			End If
 		Next
-	
-	
+
 		If c2.RowCount>0 Then
 			For i=0 To c2.RowCount -1
 				c2.Position=i
@@ -488,7 +513,7 @@ Private Sub b_buscar_Click
 			End If
 			
 			d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$)
-'		LogColor(d.RowCount,Colors.Blue)
+'			LogColor(d.RowCount,Colors.Blue)
 			If d.RowCount > 0 Then
 				d.Position = 0
 				LogColor(d.GetString("CAT_CL_BCREDITO"),Colors.Blue)
@@ -591,7 +616,7 @@ Private Sub b_inicioVenta_Click
 	Else
 		p_transparenciaIniciaInicioFinVenta.Visible = True
 		b_finVenta.Enabled = True
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", cliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "")
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", cliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, "2", "", "", "")
 		Starter.enVenta = True
 		Subs.enVenta(1, "CLIENTES")
 		LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${cliente}"$, Colors.red)
@@ -616,7 +641,7 @@ Private Sub ventaIniciada
 '	Log($"insert into cuentaa (cuenta) values ('${cliente}')"$)
 	p_transparenciaIniciaInicioFinVenta.Visible = True
 	b_finVenta.Enabled = True
-	Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "")
+	Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, "2", "", "", "")
 	Starter.enVenta = True
 	Subs.enVenta(1, "CLIENTES")
 	LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
@@ -645,7 +670,7 @@ Private Sub b_guardarPeso_Click
 		et_guardarPeso.Text = peso

 		Subs.guardaPeso("VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, peso, "", "", "")
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, "", "", $"Venta:${et_guardarPeso.text}"$)
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, "", "", $"Venta:${et_guardarPeso.text}"$)
 		Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
 		Starter.enVenta = False
 		Subs.enVenta(0, "")
@@ -654,7 +679,8 @@ Private Sub b_guardarPeso_Click
 '		b_inicioVenta.Enabled = True
 		b_finVenta.Enabled = False
 		B4XPages.MainPage.clientes.B4XPage_Appear
-		mandaPendientes
+		Subs.mandaPendientes
+		B4XPage_Appear
 	End If
 End Sub

@@ -710,7 +736,7 @@ Private Sub b_guardaNoVenta_Click
 		DateTime.DateFormat="yy-MM-dd HH:mm:ss"
 		Dim fecha As String=DateTime.Date(DateTime.Now)
 		Subs.guardaPeso("NO VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, "0", motivo, et_comentarioNoVenta.text, fotoCerrado)
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Venta:${et_guardarPeso.text}"$)
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Venta:${et_guardarPeso.text}"$)
 		Starter.enVenta = False
 		Subs.enVenta(0, "")
 		Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
@@ -718,8 +744,8 @@ Private Sub b_guardaNoVenta_Click
 		p_guardarPeso.Visible = False
 		p_transparenciaIniciaInicioFinVenta.Visible = False
 	End If
-	mandaPendientes
-	
+	Subs.mandaPendientes
+	B4XPage_Appear
 '	DateTime.DateFormat="yy-MM-dd HH:mm:ss"
 '	Dim fecha As String=DateTime.Date(DateTime.Now)
 '
@@ -888,37 +914,37 @@ Private Sub StopCamera
 End Sub

 Sub mandaPendientes
-'	PEDIDO_CLIENTE (Pendientes)
-	Log(">>>>>>>  MANDA PENDIENTES")
-	Dim PCNoArts As String
-	Dim PCMonto As String
-	If Subs.traeUsuarioDeBD <> "KMTS1"  Then
-		'PESOS (Pendientes)
-		c = Starter.skmt.ExecQuery($"SELECT * FROM PESOS where PE_ENVIO_OK <> 1"$)
-		Log($"PESOS PENDIENTE: ${c.RowCount}"$)
-		If c.RowCount>0 Then
-			For i = 0 To c.RowCount -1
-				c.Position = i
-				Dim cmd As DBCommand
-				cmd.Initialize
-'				cmd.Name = "insert_pedido2_ADM"
-'				cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),c.GetString("PE_IDALMACEN"),c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO"))
-'				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
-'				Log($">>>>  INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
-'				sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
-'				sql.insert_pedido2_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO, PE_CANT_TOTAL, PE_VENTA_TOTAL) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?),(?),(?))
-
-				Dim cmd As DBCommand
-				cmd.Initialize
-				cmd.Name = "insertPesos"
-'				Log(c.GetString("PE_IDALMACEN")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
-				cmd.Parameters = Array As Object(c.GetString("PE_IDALMACEN"),c.GetString("PE_RUTA"),c.GetString("PE_USUARIO"),c.GetString("PE_CLIENTE"),c.GetString("PE_PESO"),c.GetString("PE_FECHA"),c.GetString("PE_TIPO"),c.GetString("PE_COMENTARIO"),c.GetString("PE_FOTO_CERRADO"))
-'				Log($">>>>  insertPesos= ${C.GetString("PE_IDALMACEN")},${c.GetString("PE_RUTA")},${C.GetString("PE_USUARIO")},${C.GetString("PE_CLIENTE")},${C.GetString("PE_PESO")}, ${C.GetString("PE_FECHA")}"$)
-				reqManager.ExecuteCommand(cmd , $"insertPesos_${c.GetString("PE_CLIENTE")}"$)
-			Next
-		End If
-		c.Close
-	End If
+''	PEDIDO_CLIENTE (Pendientes)
+'	Log(">>>>>>>  MANDA PENDIENTES")
+'	Dim PCNoArts As String
+'	Dim PCMonto As String
+'	If Subs.traeUsuarioDeBD <> "KMTS1"  Then
+'		'PESOS (Pendientes)
+'		c = Starter.skmt.ExecQuery($"SELECT * FROM PESOS where PE_ENVIO_OK <> 1"$)
+'		Log($"PESOS PENDIENTE: ${c.RowCount}"$)
+'		If c.RowCount>0 Then
+'			For i = 0 To c.RowCount -1
+'				c.Position = i
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+''				cmd.Name = "insert_pedido2_ADM"
+''				cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),c.GetString("PE_IDALMACEN"),c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO"))
+''				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
+''				Log($">>>>  INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
+''				sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
+''				sql.insert_pedido2_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO, PE_CANT_TOTAL, PE_VENTA_TOTAL) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?),(?),(?))
+'
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "insertPesos"
+''				Log(c.GetString("PE_IDALMACEN")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
+'				cmd.Parameters = Array As Object(c.GetString("PE_IDALMACEN"),c.GetString("PE_RUTA"),c.GetString("PE_USUARIO"),c.GetString("PE_CLIENTE"),c.GetString("PE_PESO"),c.GetString("PE_FECHA"),c.GetString("PE_TIPO"),c.GetString("PE_COMENTARIO"),c.GetString("PE_FOTO_CERRADO"))
+''				Log($">>>>  insertPesos= ${C.GetString("PE_IDALMACEN")},${c.GetString("PE_RUTA")},${C.GetString("PE_USUARIO")},${C.GetString("PE_CLIENTE")},${C.GetString("PE_PESO")}, ${C.GetString("PE_FECHA")}"$)
+'				reqManager.ExecuteCommand(cmd , $"insertPesos_${c.GetString("PE_CLIENTE")}"$)
+'			Next
+'		End If
+'		c.Close
+'	End If
 End Sub


@@ -963,4 +989,8 @@ Sub JobDone(Job As HttpJob)
 	End If
 	LogColor(">>>>> Job.Release Clientes - " & Job.Tag, Colors.RGB(179, 146, 0))
 	Job.Release
+End Sub
+
+Private Sub p_transparenciaEsperaGPS_Click
+	
 End Sub
--- a/B4A/C_NoVenta.bas
+++ b/B4A/C_NoVenta.bas
@@ -131,7 +131,7 @@ Sub GUARDA_Click
 	B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, cuenta))
 	LogColor($"actualizamos "${cuenta},  hora_final=${DateTime.now}"$,Colors.Red)
 	
-	Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, B4XPages.MainPage.cliente.precision, motivo, e_comm.text, "")
+	Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, B4XPages.MainPage.cliente.precision, motivo, e_comm.text, "")
 	
 	mandaPendientesnoventa
 	B4XPages.ShowPage("Principal")
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -223,6 +223,12 @@ Sub Class_Globals
 	Dim q_buscar As String
 	Private et_buspc As EditText
 	Private Panel9 As Panel
+	Private p_transResumenDia As Panel
+	Private p_resumenDia As Panel
+	Private l_totalPesoActual As Label
+	Private l_conVenta As Label
+	Private l_visitados As Label
+	Private l_totalAVisitar As Label
 End Sub

 'You can add more parameters here.
@@ -278,7 +284,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		l_ctast.Text = d.GetString("TOTAL_VISITAR")
 		l_porvisitar.Text = e.GetString("POR_VISITAR")
 	Else
-		c=B4XPages.MainPage.skmt.ExecQuery("select  sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA  from pedido_cliente where PC_CLIENTE <> 0 AND PC_CLIENTE <> 1")
+'		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where PC_CLIENTE <> 0 AND PC_CLIENTE <> 1")
+		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_peso) as MONTO_DIA, count(pe_cliente) AS CLIENTES_DIA from pedido_cliente where PC_CLIENTE <> 0 AND PC_CLIENTE <> 1")
 		b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
 		'where pc_fecha = ?", Array As String(fecha)
 		c.Position=0
@@ -308,14 +315,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		l_rutasuplencia.Visible = True
 		l_rutasuplencia.Text = s.GetString("RS_RUTA")
 	End If
-	
 	p_mandaInfo.Top = 0 : p_mandaInfo.Left = 0
 	Panel5.Top = 0 : Panel5.Left = 0
 	P_RESUMEN.Top = 0 : P_RESUMEN.Left = 0
 	SCROLL_RESDIA.Top = 0 : SCROLL_RESDIA.Left = 0
 	SCROLL_RESDIA.Height = Root.Height * 0.9
 	SCROLL_RESDIA.Left = (Root.Width / 2) - (SCROLL_RESDIA.Width / 2)
-	
 	Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info2 (${getTableColumnList(Starter.skmt, "kmt_info")})"$)
 End Sub

@@ -377,6 +382,11 @@ Sub B4XPage_Appear
 	rd.respaldaInventarios
 	rd.respaldaPaquetes
 	HORAINGRESO ="000000"
+	
+	p_transResumenDia.Left = 0 : p_transResumenDia.top = 0
+	p_transResumenDia.Height = Root.Height : p_transResumenDia.Width = Root.Width
+	Subs.centraPanel(p_resumenDia, Root.Width)
+	
 '	Private inicioL As Float = (nvo_cliente.Left + nvo_cliente.Width)
 '	Private finR As Float = Panel9.Left
 '	Btn_Ubicar.Left = ((nvo_cliente.Left + nvo_cliente.Width)) - (Btn_Ubicar.Width / 2) + ((finR - inicioL)/2) + 15
@@ -461,13 +471,14 @@ Sub B4XPage_Appear
 		b.close
 	Else
 		c=B4XPages.MainPage.skmt.ExecQuery("select  SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA  from PEDIDO WHERE PE_CLIENTE <> 0")
-		b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
+'		b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
+		b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from pesos where PE_TIPO = 'NO VENTA'")
 		c.Position=0
 		b.Position=0
 		L_MONTOD.Text = c.GetString("MONTO_DIA")
 		l_cuantosc.Text = c.GetString("CLIENTES_DIA")
 	
-		D2=B4XPages.MainPage.skmt.ExecQuery("select  COUNT(*) AS CUANTOS   from PEDIDO ")
+		D2 = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CUANTOS from PEDIDO")
 		D2.Position = 0
 		LPT = D2.GetString("CUANTOS") / l_cuantosc.Text
 		D2.Close
@@ -581,7 +592,7 @@ Sub B4XPage_Appear
 End Sub

 Sub b_subir_Click
-	Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, ALMACEN, l_ruta.Text, "Enviar Dia", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, "2", "", "", "")
+	Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, ALMACEN, l_ruta.Text, "Enviar Dia", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, "2", "", "", "")
 	CARGA = "SUBIR"
 	p_mandaInfo.Width = Root.Width
 	p_mandaInfo.Height = Root.Height
@@ -2090,8 +2101,9 @@ End Sub

 Private Sub B4XPage_CloseRequest As ResumableSub
 	'Return True to close, False to cancel
-
-	If SCROLL_RESDIA.Visible Then
+	If p_transResumenDia.Visible Then
+		p_transResumenDia.Visible = False
+	Else If SCROLL_RESDIA.Visible Then
 		SCROLL_RESDIA.Visible = False
 		B_OK_RES_Click
 		Return False
@@ -2341,7 +2353,6 @@ Sub B_OK_PAS_Click
 		img2.Visible=False
 		Subs.panelVisible(p_principal, 0, 0)
 		If E_RUTA2.Text <> "" Then
-			
 			B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
 		End If
 		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES(?)",Array As String(e_ruta.Text))
@@ -2413,193 +2424,225 @@ Sub CARGA_Click
 End Sub

 Sub resdia_Click
-	p_principal.Visible = False
-	Btn_Ubicar.Visible=False
-	SCROLL_RESDIA.Visible = True
-	SCROLL_RESDIA.Panel.LoadLayout("RESDIA")
-	SCROLL_RESDIA.Panel.Height = Panel4.Height
-	Panel4.Visible = True
+	P_RESUMEN.Top = 0 : P_RESUMEN.Left = 0
+	SCROLL_RESDIA.Top = 0 : SCROLL_RESDIA.Left = 0
+	SCROLL_RESDIA.Height = Root.Height * 0.9
+	SCROLL_RESDIA.Left = (Root.Width / 2) - (SCROLL_RESDIA.Width / 2)
+	p_transResumenDia.Top = 0
+	p_transResumenDia.Left = 0
+	p_transResumenDia.Width = Root.Width
+	p_transResumenDia.Height = Root.Height
+	p_transResumenDia.BringToFront
+	Private totalPesoActual As String = 0
+	Private conVenta As String = 0
+	Private visitados As String = 0
+	Private totalAVisitar As String = 0

-	NUEVO.Visible =False
-	BUSCA.Visible=False
-	connecta.Visible=False
-	b_subir.Visible=False
-	b_cargar.Visible=False
-	Resumen.Visible= False
-
-	d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE  HE_TIPO = ?", Array As String("TELEFONO"))
-	d.Position = 0
-	l_encuesta.Text = d.GetString("CUANTOS")
-	d.Close
-
-	L_MARCAS.CLEAR
-	d=B4XPages.MainPage.skmt.ExecQuery2("select distinct HE_CLIE AS CLIENTE FROM HIST_ENCUESTA WHERE  HE_TIPO = ?", Array As String("TELEFONO"))
-	If D.RowCount>0 Then
-		For i=0 To D.RowCount -1
-			D.Position=i
-			c=B4XPages.MainPage.skmt.ExecQuery2("Select  HE_RES from HIST_ENCUESTA where  HE_CLIE = ?  AND HE_TIPO = ?", Array As String(d.GetString("CLIENTE"), "TELEFONO"))
-			c.Position = 0
-			Dim label1 As Label
-			label1 = L_MARCAS.TwoLinesLayout.Label
-			label1.TextSize = 13
-			label1.TextColor = Colors.Black
-			Dim label2 As Label
-			label2 = L_MARCAS.TwoLinesLayout.SecondLabel
-			label2.TextSize = 13
-			label2.TextColor = Colors.Black
-			L_MARCAS.AddTwoLines(d.GetString("CLIENTE"),"TELEFONO :"  & c.GetString("HE_RES")  )
-			c.Close
-		Next
+	Private utr As Cursor = Starter.skmt.ExecQuery($"select ifnull(sum(pe_peso),0) as totalPesoActual,
+		(select count(pe_cliente) from pesos where pe_tipo = 'VENTA') as conVenta,
+		(select count(distinct pe_cliente) from pesos) as visitados,
+		(select count(cat_cl_codigo) from kmt_info where cat_cl_codigo not in ('0', '1')) as totalAVisitar
+		from pesos"$)
+	If utr.RowCount > 0 Then
+		utr.position = 0
+		l_totalPesoActual.text = NumberFormat2(utr.GetString("totalPesoActual"), 0, 2, 0, True)
+		l_conVenta.text = utr.GetString("conVenta")
+		l_visitados.text = utr.GetString("visitados")
+		l_totalAVisitar.text = utr.GetString("totalAVisitar")
+		Log("totalPesoActual: " & utr.GetString("totalPesoActual"))
+		Log("conVenta: " & utr.GetString("conVenta"))
+		Log("visitados: " & utr.GetString("visitados"))
+		Log("totalAVisitar: " & utr.GetString("totalAVisitar"))
 	End If
-	d.Close
-
-	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("RTEC"))
-	c.Position = 0
-	l_monto_k.Text = c.GetString("MONTO_DIA")
-	If l_monto_k.Text = "null" Then
-		l_monto_k.Text = "0"
-	End If
-	c.Close
-
-	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("PING"))
-	c.Position = 0
-	l_monto_kp.Text = c.GetString("MONTO_DIA")
-	If l_monto_kp.Text = "null" Then
-		l_monto_kp.Text = "0"
-	End If
-	c.Close
-
-'	c=skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("SALTY SNACKS"))
+	
+	p_transResumenDia.Visible = True
+'	p_principal.Visible = False
+'	Btn_Ubicar.Visible=False
+'	SCROLL_RESDIA.Visible = True
+'	SCROLL_RESDIA.Panel.LoadLayout("RESDIA")
+'	SCROLL_RESDIA.Panel.Height = Panel4.Height
+'	Panel4.Visible = True
+'
+'	NUEVO.Visible =False
+'	BUSCA.Visible=False
+'	connecta.Visible=False
+'	b_subir.Visible=False
+'	b_cargar.Visible=False
+'	Resumen.Visible= False
+'
+'	d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE  HE_TIPO = ?", Array As String("TELEFONO"))
+'	d.Position = 0
+'	l_encuesta.Text = d.GetString("CUANTOS")
+'	d.Close
+'
+'	L_MARCAS.CLEAR
+'	d=B4XPages.MainPage.skmt.ExecQuery2("select distinct HE_CLIE AS CLIENTE FROM HIST_ENCUESTA WHERE  HE_TIPO = ?", Array As String("TELEFONO"))
+'	If D.RowCount>0 Then
+'		For i=0 To D.RowCount -1
+'			D.Position=i
+'			c=B4XPages.MainPage.skmt.ExecQuery2("Select  HE_RES from HIST_ENCUESTA where  HE_CLIE = ?  AND HE_TIPO = ?", Array As String(d.GetString("CLIENTE"), "TELEFONO"))
+'			c.Position = 0
+'			Dim label1 As Label
+'			label1 = L_MARCAS.TwoLinesLayout.Label
+'			label1.TextSize = 13
+'			label1.TextColor = Colors.Black
+'			Dim label2 As Label
+'			label2 = L_MARCAS.TwoLinesLayout.SecondLabel
+'			label2.TextSize = 13
+'			label2.TextColor = Colors.Black
+'			L_MARCAS.AddTwoLines(d.GetString("CLIENTE"),"TELEFONO :"  & c.GetString("HE_RES")  )
+'			c.Close
+'		Next
+'	End If
+'	d.Close
+'
+'	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("RTEC"))
 '	c.Position = 0
-'	l_monto_ks.Text = c.GetString("MONTO_DIA")
+'	l_monto_k.Text = c.GetString("MONTO_DIA")
+'	If l_monto_k.Text = "null" Then
+'		l_monto_k.Text = "0"
+'	End If
+'	c.Close
+'
+'	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("PING"))
+'	c.Position = 0
+'	l_monto_kp.Text = c.GetString("MONTO_DIA")
+'	If l_monto_kp.Text = "null" Then
+'		l_monto_kp.Text = "0"
+'	End If
+'	c.Close
+'
+''	c=skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("SALTY SNACKS"))
+''	c.Position = 0
+''	l_monto_ks.Text = c.GetString("MONTO_DIA")
+''	If l_monto_ks.Text = "null" Then
+''		l_monto_ks.Text = "0"
+''	End If
+'	'
+''	c.Close
+'	c=B4XPages.MainPage.skmt.ExecQuery("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ")
+'	c.Position = 0
+'	l_monto_ks.Text = Subs.traeTotalCliente
+'	
 '	If l_monto_ks.Text = "null" Then
 '		l_monto_ks.Text = "0"
 '	End If
-	'
 '	c.Close
-	c=B4XPages.MainPage.skmt.ExecQuery("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ")
-	c.Position = 0
-	l_monto_ks.Text = Subs.traeTotalCliente
-	
-	If l_monto_ks.Text = "null" Then
-		l_monto_ks.Text = "0"
-	End If
-	c.Close
-	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As PREVENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("PREVENTA"))
-	If c.RowCount > 0 Then
-		c.Position = 0
-		L_PREVENTA.Text = Subs.traeTotalClientepreventa
-		If L_PREVENTA.TEXT = "null" Then
-			L_PREVENTA.Text = "0"
-		End If
-	End If
-	c.Close
-	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As VENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("VENTA"))
-	If c.RowCount > 0 Then
-		c.Position = 0
-		L_VENTA.Text = Subs.traeTotalClienteventa
-		If L_VENTA.TEXT = "null" Then
-			L_VENTA.Text = "0"
-		End If
-	End If
-	c.Close
-	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As ABORDO from pedido where PE_FOLIO = ? AND PE_CLIENTE = ?", Array As String ("ABORDO", "0"))
-	If c.RowCount > 0 Then
-		c.Position = 0
-		L_ABORDO.Text = Subs.traeTotalClienteabordo
-		If L_ABORDO.TEXT = "null" Then
-			L_ABORDO.Text = "0"
-		End If
-	End If
-	c.Close
-	Dim cuantos_obj As String
-	c=B4XPages.MainPage.skmt.ExecQuery("Select  count(*) AS TOTAL from HIST_MARCAS_CUOTAS   ")
-	c.Position = 0
-	cuantos_obj = c.GetString("TOTAL")
-	c.Close
-
-	If cuantos_obj > 0 Then
-		c=B4XPages.MainPage.skmt.ExecQuery("Select  SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS   ")
-		c.Position = 0
-		L_NES.Text = c.GetString("TOTAL")
-		c.Close
-	End If
-	L_REAL.Text = l_monto_ks.Text
-	L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2)
-	L_VPLAN.Text = l_porvisitar.Text
-	L_VREAL.Text = L_CUANTOST.text
-	L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2)
-	L_VISITCC.Text = l_cuantosc.text
-	L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2)
-	L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2)
-	L_LIN_TICK.Text = LPT
-	If l_monto_ks.Text <> "0" Then
-		
-		c=B4XPages.MainPage.skmt.ExecQuery2("Select  COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS =  ? ", Array As String(ALMACEN))
-		c.Position = 0
-		L_CTE_PROMO.Text = c.GetString("CUANTOS")
-		c.Close
-		d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where  CAT_GP_TIPOPROD = ?) ", Array As String("PRIORITARIO"))
-		d.Position = 0
-		'///////////////////////////////////////////////////////////////////////////////
-		'////////////////////////////   ULTIMA LINEA ANTES DEL ERROR  //////////////////
-		'////////// java.lang.NullPointerException: Attempt to invoke virtual method 'int java.lang.String.length()' on a null object reference
-		'
-		'///  Al parecer d.GetString("MONTO_DIA") regresa null y la funcion numberFormat truena
-		'/////////////////////////////////////////////////////////////////////////////////
-		Log("|"&d.GetString("MONTO_DIA")&"|")
-		'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2)
-		L_PRIO.Text = d.GetString("MONTO_DIA")
-		d.Close
-		
-		d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where  CAT_GP_TIPOPROD = ?) ", Array As String("ESTRATEGICO"))
-		d.Position = 0
-		L_SECUND.Text =d.GetString("MONTO_DIA")
-		d.Close
-
-		d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where  CAT_GP_TIPOPROD = ?) ", Array As String("COMPLEMENTARIO"))
-		d.Position = 0
-		L_COMP.Text =d.GetString("MONTO_DIA")
-		d.Close
-	Else
-		L_PRIO.Text = "0"
-		L_SECUND.Text = "0"
-		L_COMP.Text = "0"
-	End If
-	
-	c=B4XPages.MainPage.skmt.ExecQuery("Select  COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
-	c.Position = 0
-	If c.GetString("CUANTOS") > 0 Then
-		d=B4XPages.MainPage.skmt.ExecQuery("Select  sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
-		d.Position = 0
-		L_CTE_PROMO.Text = d.GetString("CUANTOS")
-		d.Close
-		L_REDEN_PROMO.TEXT = Round2(L_VISITCC.Text / L_CTE_PROMO.Text,2)
-	Else
-		L_CTE_PROMO.Text = 0
-		L_REDEN_PROMO.Text = 0
-	End If
-	c.Close
-	d=B4XPages.MainPage.skmt.ExecQuery("Select  COUNT(*) AS CUANTOS FROM PEDIDO ")
-	d.Position = 0
-	L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2)
-	d.Close
-
-	d=B4XPages.MainPage.skmt.ExecQuery("Select  count(*) as CUANTOS  from HIST_CUOTAS ")
-	d.Position = 0
-	If d.GetString("CUANTOS") > 0 Then
-		'	c=skmt.ExecQuery("Select  HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
-		'	c.Position = 0
-		'	l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6)
-		'	l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6)
-		'	l_monto_c3.Text = Round(c.GetString("HC_CUOTA3") / 6)
-		'	c.Close
-	Else
-		l_monto_c1.Text = 4000
-		l_monto_c2.Text = 2000
-		l_monto_c3.Text = 1000
-	End If
-	d.Close
+'	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As PREVENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("PREVENTA"))
+'	If c.RowCount > 0 Then
+'		c.Position = 0
+'		L_PREVENTA.Text = Subs.traeTotalClientepreventa
+'		If L_PREVENTA.TEXT = "null" Then
+'			L_PREVENTA.Text = "0"
+'		End If
+'	End If
+'	c.Close
+'	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As VENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("VENTA"))
+'	If c.RowCount > 0 Then
+'		c.Position = 0
+'		L_VENTA.Text = Subs.traeTotalClienteventa
+'		If L_VENTA.TEXT = "null" Then
+'			L_VENTA.Text = "0"
+'		End If
+'	End If
+'	c.Close
+'	c=B4XPages.MainPage.skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As ABORDO from pedido where PE_FOLIO = ? AND PE_CLIENTE = ?", Array As String ("ABORDO", "0"))
+'	If c.RowCount > 0 Then
+'		c.Position = 0
+'		L_ABORDO.Text = Subs.traeTotalClienteabordo
+'		If L_ABORDO.TEXT = "null" Then
+'			L_ABORDO.Text = "0"
+'		End If
+'	End If
+'	c.Close
+'	Dim cuantos_obj As String
+'	c=B4XPages.MainPage.skmt.ExecQuery("Select  count(*) AS TOTAL from HIST_MARCAS_CUOTAS   ")
+'	c.Position = 0
+'	cuantos_obj = c.GetString("TOTAL")
+'	c.Close
+'
+'	If cuantos_obj > 0 Then
+'		c=B4XPages.MainPage.skmt.ExecQuery("Select  SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS   ")
+'		c.Position = 0
+'		L_NES.Text = c.GetString("TOTAL")
+'		c.Close
+'	End If
+'	L_REAL.Text = l_monto_ks.Text
+'	L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2)
+'	L_VPLAN.Text = l_porvisitar.Text
+'	L_VREAL.Text = L_CUANTOST.text
+'	L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2)
+'	L_VISITCC.Text = l_cuantosc.text
+'	L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2)
+'	L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2)
+'	L_LIN_TICK.Text = LPT
+'	If l_monto_ks.Text <> "0" Then
+'		
+'		c=B4XPages.MainPage.skmt.ExecQuery2("Select  COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS =  ? ", Array As String(ALMACEN))
+'		c.Position = 0
+'		L_CTE_PROMO.Text = c.GetString("CUANTOS")
+'		c.Close
+'		d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where  CAT_GP_TIPOPROD = ?) ", Array As String("PRIORITARIO"))
+'		d.Position = 0
+'		'///////////////////////////////////////////////////////////////////////////////
+'		'////////////////////////////   ULTIMA LINEA ANTES DEL ERROR  //////////////////
+'		'////////// java.lang.NullPointerException: Attempt to invoke virtual method 'int java.lang.String.length()' on a null object reference
+'		'
+'		'///  Al parecer d.GetString("MONTO_DIA") regresa null y la funcion numberFormat truena
+'		'/////////////////////////////////////////////////////////////////////////////////
+'		Log("|"&d.GetString("MONTO_DIA")&"|")
+'		'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2)
+'		L_PRIO.Text = d.GetString("MONTO_DIA")
+'		d.Close
+'		
+'		d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where  CAT_GP_TIPOPROD = ?) ", Array As String("ESTRATEGICO"))
+'		d.Position = 0
+'		L_SECUND.Text =d.GetString("MONTO_DIA")
+'		d.Close
+'
+'		d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where  CAT_GP_TIPOPROD = ?) ", Array As String("COMPLEMENTARIO"))
+'		d.Position = 0
+'		L_COMP.Text =d.GetString("MONTO_DIA")
+'		d.Close
+'	Else
+'		L_PRIO.Text = "0"
+'		L_SECUND.Text = "0"
+'		L_COMP.Text = "0"
+'	End If
+'	
+'	c=B4XPages.MainPage.skmt.ExecQuery("Select  COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
+'	c.Position = 0
+'	If c.GetString("CUANTOS") > 0 Then
+'		d=B4XPages.MainPage.skmt.ExecQuery("Select  sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
+'		d.Position = 0
+'		L_CTE_PROMO.Text = d.GetString("CUANTOS")
+'		d.Close
+'		L_REDEN_PROMO.TEXT = Round2(L_VISITCC.Text / L_CTE_PROMO.Text,2)
+'	Else
+'		L_CTE_PROMO.Text = 0
+'		L_REDEN_PROMO.Text = 0
+'	End If
+'	c.Close
+'	d=B4XPages.MainPage.skmt.ExecQuery("Select  COUNT(*) AS CUANTOS FROM PEDIDO ")
+'	d.Position = 0
+'	L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2)
+'	d.Close
+'
+'	d=B4XPages.MainPage.skmt.ExecQuery("Select  count(*) as CUANTOS  from HIST_CUOTAS ")
+'	d.Position = 0
+'	If d.GetString("CUANTOS") > 0 Then
+'		'	c=skmt.ExecQuery("Select  HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
+'		'	c.Position = 0
+'		'	l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6)
+'		'	l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6)
+'		'	l_monto_c3.Text = Round(c.GetString("HC_CUOTA3") / 6)
+'		'	c.Close
+'	Else
+'		l_monto_c1.Text = 4000
+'		l_monto_c2.Text = 2000
+'		l_monto_c3.Text = 1000
+'	End If
+'	d.Close
 End Sub

 Sub hacer_ped_Click
@@ -2803,8 +2846,6 @@ Private Sub p_mandaInfo_Click
 	
 End Sub

-
-
 Private Sub iv_abordo_Click
 	Starter.skmt.ExecNonQuery("delete from CUENTAA")
 	Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
@@ -2812,14 +2853,21 @@ Private Sub iv_abordo_Click
 	B4XPages.ShowPage("Productos")
 End Sub

+' Revisa si hay pesos (venta) en la tabla "PESOS" y si hay, cambia "gestion" en "kmt_info"
 Sub checaPedido
-	Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
+'	Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
+	Private c As Cursor = Starter.skmt.ExecQuery("SELECT PE_CLIENTE FROM PESOS order by PE_FECHA")
 	If c.RowCount > 0 Then
-		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2  WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
-	End If
-	Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
-	If c.RowCount > 0 Then
-		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3  WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
+'		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2  WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
+		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2  WHERE CAT_CL_CODIGO IN (SELECT PE_CLIENTE FROM PESOS where PE_TIPO = 'VENTA')")
+		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3  WHERE CAT_CL_CODIGO IN (SELECT PE_CLIENTE FROM PESOS where PE_TIPO = 'NO VENTA')")
 	End If
+'	Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
+'	If c.RowCount > 0 Then
+'		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3  WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
+'	End If
 End Sub

+Private Sub p_transResumenDia_Click
+	p_transResumenDia.Visible = False
+End Sub
--- a/B4A/C_TicketsDia.bas
+++ b/B4A/C_TicketsDia.bas
@@ -71,23 +71,22 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If
-	c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE, PC_MONTO, PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
-
-	ListView1.Clear
-	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 = 10
-			label1.TextColor = Colors.Black
-			Dim label2 As Label
-			label2 = ListView1.TwoLinesLayout.SecondLabel
-			label2.TextSize = 13
-			label2.TextColor = Colors.Blue
-			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),"Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
-		Next
-	End If
+'	c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE, PC_MONTO, PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
+'	ListView1.Clear
+'	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 = 10
+'			label1.TextColor = Colors.Black
+'			Dim label2 As Label
+'			label2 = ListView1.TwoLinesLayout.SecondLabel
+'			label2.TextSize = 13
+'			label2.TextColor = Colors.Blue
+'			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),"SubTotal "& c.GetString("PC_MONTO") & " kgs.")
+'		Next
+'	End If
 	p_transparenciaIniciaInicioFinVenta.top = 0 : p_transparenciaIniciaInicioFinVenta.Left = 0
 	p_transparenciaIniciaInicioFinVenta.Height = Root.Height : p_transparenciaIniciaInicioFinVenta.Width = Root.Width
 	Subs.centraPanel(p_inicioFinVenta, Root.Width)
@@ -100,11 +99,19 @@ End Sub

 Sub B4XPage_Appear
 	nombre_boton = "NOVENTA"
+	p_transparenciaIniciaInicioFinVenta.Visible = False
+	p_ticketsdia.Height = Root.Height : p_ticketsdia.Width = Root.Width
+	p_ticketsdia.Top = 0 : p_ticketsdia.Left = 0
+	ListView1.Left = (Root.Width / 2) - (ListView1.Width / 2)
+	ListView1.Width = Root.Width * 0.8
 '	c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE, PC_MONTO, PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
 	c = B4XPages.MainPage.skmt.ExecQuery("select PE_CLIENTE as PC_CLIENTE, PE_PESO AS PC_MONTO, 1 as PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pe_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pe_cliente ) as NOMBRE FROM PESOS where PE_TIPO = 'VENTA' ORDER BY PE_FECHA asc")
 	Dim noArticulos As Int = 0
 	fotoCerrado = ""
 	ListView1.Clear
+	ListView1.Height = Root.Height * 0.8
+	b_noventa0.Top = ListView1.Top + ListView1.Height
+	ListView1.TwoLinesLayout.ItemHeight = 90dip
 	If c.RowCount>0 Then
 		For i=0 To c.RowCount -1
 			c.Position=i
@@ -118,12 +125,15 @@ Sub B4XPage_Appear
 			Dim label1 As Label
 			label1 = ListView1.TwoLinesLayout.Label
 			label1.TextSize = 10
+			label1.Visible = False
 			label1.TextColor = Colors.Black
 			Dim label2 As Label
 			label2 = ListView1.TwoLinesLayout.SecondLabel
 			label2.TextSize = 13
 			label2.TextColor = Colors.Blue
-			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Cantidad #"& noArticulos & " SubTotal $"& c.GetString("PC_MONTO"))
+			label2.Height = 88dip
+			label2.Width = ListView1.Width - 10dip
+			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Total "& c.GetString("PC_MONTO") & " kgs.")
 		Next
 	End If
 	c.Close
@@ -148,7 +158,18 @@ Sub Activity_KeyPress (key As Int) As Boolean
 End Sub

 Sub ListView1_ItemLongClick (Position As Int, Value As Object)
+	Log("################    Iniciando revision de ubicación   #############")
+	Log($"${B4XPages.MainPage.lat_gps},${B4XPages.MainPage.lon_gps}"$)
+	If B4XPages.MainPage.lat_gps.Length < 4 Or B4XPages.MainPage.lon_gps.Length < 4 Then
+		ProgressDialogShow2("Buscando ubicación ...", False)
+		CallSubDelayed(Tracker, "Track")
+		CallSubDelayed(Tracker, "StartFLPSmall")
+		wait for GPS_LocationChanged (location1 As Location)
+		ProgressDialogHide
+	End If
+	Log("###############     Terminando revision de ubicación   #############")
 	Private cliente As String = Value
+	Log(Value)
 	Starter.skmt.ExecNonQuery($"delete from cuentaa"$)
 	Starter.skmt.ExecNonQuery($"insert into cuentaa (cuenta) values ('${cliente}')"$)
 	Log($"insert into cuentaa (cuenta) values ('${cliente}')"$)
@@ -163,7 +184,7 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 	Else
 		p_transparenciaIniciaInicioFinVenta.Visible = True
 		b_finVenta.Enabled = True
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", cliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "Tickets Día")
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", cliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, "2", "", "", "Tickets Día")
 		Starter.enVenta = True
 		Subs.enVenta(1, "CLIENTES")
 		LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${cliente}"$, Colors.red)
@@ -178,8 +199,6 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 	c.Close
 	Log("CLIENTE: " & cliente)
 	
-	
-	
 '	B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
 '	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
 '	DateTime.TimeFormat = "HHmmss"
@@ -199,10 +218,15 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 '	B4XPages.ShowPage("cliente")
 End Sub

+Sub GPS_LocationChanged (Location1 As Location)
+'	If p_transparenciaEsperaGPS.IsInitialized Then p_transparenciaEsperaGPS.Visible = False
+	ProgressDialogHide
+End Sub
+
 Sub b_noventa0_Click
 	If nombre_boton = "NOVENTA" Then
 		nombre_boton = "VENTA"
-		b_noventa0.Text ="VENTA"
+		b_noventa0.Text ="Ir a Venta"
 '		c = B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc")
 		c = B4XPages.MainPage.skmt.ExecQuery("select PE_CLIENTE as NV_CLIENTE, PE_MOTIVO as NV_MOTIVO, PE_COMENTARIO as NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pe_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pe_cliente ) as NOMBRE FROM PESOS where PE_TIPO = 'NO VENTA' ORDER BY PE_FECHA asc")
 		ListView1.Clear
@@ -217,12 +241,12 @@ Sub b_noventa0_Click
 				label2 = ListView1.TwoLinesLayout.SecondLabel
 				label2.TextSize = 10
 				label2.TextColor = Colors.Blue
-				ListView1.AddTwoLines(c.GetString("NV_CLIENTE"),c.GetString("NOMBRE") &"  Motivo #"& c.GetString("NV_MOTIVO")& " Comentario: "& c.GetString("NV_COMM"))
+				ListView1.AddTwoLines(c.GetString("NV_CLIENTE"),c.GetString("NOMBRE") &"  Motivo: "& c.GetString("NV_MOTIVO")& " Comentario: "& c.GetString("NV_COMM"))
 			Next
 		End If
 	Else
 		nombre_boton = "NOVENTA"
-		b_noventa0.Text ="NO VENTA"
+		b_noventa0.Text ="Ir a No Venta"
 '		c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
 		c = B4XPages.MainPage.skmt.ExecQuery("select PE_CLIENTE as PC_CLIENTE, PE_PESO AS PC_MONTO, 1 as PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pe_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pe_cliente ) as NOMBRE FROM PESOS where PE_TIPO = 'VENTA' ORDER BY PE_FECHA asc")
 		ListView1.Clear
@@ -232,13 +256,13 @@ Sub b_noventa0_Click
 				c.Position=i
 				Dim label1 As Label
 				label1 = ListView1.TwoLinesLayout.Label
-				label1.TextSize = 15
+				label1.TextSize = 10
 				label1.TextColor = Colors.Black
 				Dim label2 As Label
 				label2 = ListView1.TwoLinesLayout.SecondLabel
-				label2.TextSize = 10
+				label2.TextSize = 13
 				label2.TextColor = Colors.Blue
-				ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
+				ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Total "& c.GetString("PC_MONTO") & " kgs.")
 			Next
 		End If
 		c.Close
@@ -273,7 +297,7 @@ Private Sub b_guardaNoVenta_Click
 		DateTime.DateFormat="yy-MM-dd HH:mm:ss"
 		Dim fecha As String=DateTime.Date(DateTime.Now)
 		Subs.guardaPeso("NO VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, "0", motivo, et_comentarioNoVenta.text, fotoCerrado)
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Tickets Día Venta:${et_guardarPeso.text}"$)
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Tickets Día Venta:${et_guardarPeso.text}"$)
 		Starter.enVenta = False
 		Subs.enVenta(0, "")
 		Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
@@ -281,6 +305,8 @@ Private Sub b_guardaNoVenta_Click
 		p_guardarPeso.Visible = False
 		p_transparenciaIniciaInicioFinVenta.Visible = False
 	End If
+	Subs.mandaPendientes
+	B4XPage_Appear
 End Sub

 Private Sub b_cancelaNoVenta_Click
@@ -293,7 +319,7 @@ Private Sub b_guardarPeso_Click
 		et_guardarPeso.Text = peso

 		Subs.guardaPeso("VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, peso, "", "", "")
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, "", "", $"Tickets Día Venta:${et_guardarPeso.text}"$)
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, "", "", $"Tickets Día Venta:${et_guardarPeso.text}"$)
 		Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
 		Starter.enVenta = False
 		Subs.enVenta(0, "")
@@ -302,7 +328,8 @@ Private Sub b_guardarPeso_Click
 '		b_inicioVenta.Enabled = True
 		b_finVenta.Enabled = False
 		B4XPages.MainPage.ticketsDia.B4XPage_Appear
-		mandaPendientes
+		Subs.mandaPendientes
+		B4XPage_Appear
 	End If
 End Sub

@@ -325,37 +352,37 @@ Private Sub et_guardarPeso_TextChanged (Old As String, New As String)
 End Sub

 Sub mandaPendientes
-'	PEDIDO_CLIENTE (Pendientes)
-	Log(">>>>>>>  MANDA PENDIENTES")
-	Dim PCNoArts As String
-	Dim PCMonto As String
-	If Subs.traeUsuarioDeBD <> "KMTS1"  Then
-		'PESOS (Pendientes)
-		c = Starter.skmt.ExecQuery($"SELECT * FROM PESOS where PE_ENVIO_OK <> 1"$)
-		Log($"PESOS PENDIENTE: ${c.RowCount}"$)
-		If c.RowCount>0 Then
-			For i = 0 To c.RowCount -1
-				c.Position = i
-				Dim cmd As DBCommand
-				cmd.Initialize
-'				cmd.Name = "insert_pedido2_ADM"
-'				cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),c.GetString("PE_IDALMACEN"),c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO"))
-'				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
-'				Log($">>>>  INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
-'				sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
-'				sql.insert_pedido2_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO, PE_CANT_TOTAL, PE_VENTA_TOTAL) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?),(?),(?))
-
-				Dim cmd As DBCommand
-				cmd.Initialize
-				cmd.Name = "insertPesos"
-'				Log(c.GetString("PE_IDALMACEN")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
-				cmd.Parameters = Array As Object(c.GetString("PE_IDALMACEN"),c.GetString("PE_RUTA"),c.GetString("PE_USUARIO"),c.GetString("PE_CLIENTE"),c.GetString("PE_PESO"),c.GetString("PE_FECHA"),c.GetString("PE_TIPO"),c.GetString("PE_COMENTARIO"),c.GetString("PE_FOTO_CERRADO"))
-'				Log($">>>>  insertPesos= ${C.GetString("PE_IDALMACEN")},${c.GetString("PE_RUTA")},${C.GetString("PE_USUARIO")},${C.GetString("PE_CLIENTE")},${C.GetString("PE_PESO")}, ${C.GetString("PE_FECHA")}"$)
-				reqManager.ExecuteCommand(cmd , $"insertPesos_${c.GetString("PE_CLIENTE")}"$)
-			Next
-		End If
-		c.Close
-	End If
+''	PEDIDO_CLIENTE (Pendientes)
+'	Log(">>>>>>>  MANDA PENDIENTES")
+'	Dim PCNoArts As String
+'	Dim PCMonto As String
+'	If Subs.traeUsuarioDeBD <> "KMTS1"  Then
+'		'PESOS (Pendientes)
+'		c = Starter.skmt.ExecQuery($"SELECT * FROM PESOS where PE_ENVIO_OK <> 1"$)
+'		Log($"PESOS PENDIENTE: ${c.RowCount}"$)
+'		If c.RowCount>0 Then
+'			For i = 0 To c.RowCount -1
+'				c.Position = i
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+''				cmd.Name = "insert_pedido2_ADM"
+''				cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),c.GetString("PE_IDALMACEN"),c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO"))
+''				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
+''				Log($">>>>  INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
+''				sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
+''				sql.insert_pedido2_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO, PE_CANT_TOTAL, PE_VENTA_TOTAL) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?),(?),(?))
+'
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "insertPesos"
+''				Log(c.GetString("PE_IDALMACEN")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
+'				cmd.Parameters = Array As Object(c.GetString("PE_IDALMACEN"),c.GetString("PE_RUTA"),c.GetString("PE_USUARIO"),c.GetString("PE_CLIENTE"),c.GetString("PE_PESO"),c.GetString("PE_FECHA"),c.GetString("PE_TIPO"),c.GetString("PE_COMENTARIO"),c.GetString("PE_FOTO_CERRADO"))
+''				Log($">>>>  insertPesos= ${C.GetString("PE_IDALMACEN")},${c.GetString("PE_RUTA")},${C.GetString("PE_USUARIO")},${C.GetString("PE_CLIENTE")},${C.GetString("PE_PESO")}, ${C.GetString("PE_FECHA")}"$)
+'				reqManager.ExecuteCommand(cmd , $"insertPesos_${c.GetString("PE_CLIENTE")}"$)
+'			Next
+'		End If
+'		c.Close
+'	End If
 End Sub

 Private Sub b_finVenta_Click
--- a/B4A/Files/clientes.bal
+++ b/B4A/Files/clientes.bal
--- a/B4A/Files/datosclientebotones.bal
+++ b/B4A/Files/datosclientebotones.bal
--- a/B4A/Files/mapa_rutas.bal
+++ b/B4A/Files/mapa_rutas.bal
--- a/B4A/Files/principal.bal
+++ b/B4A/Files/principal.bal
--- a/B4A/Files/ticketsdia.bal
+++ b/B4A/Files/ticketsdia.bal
--- a/B4A/MAPA_RUTAS.bas
+++ b/B4A/MAPA_RUTAS.bas
@@ -208,7 +208,7 @@ Sub MapFragment1_Ready
 	gmap.IsInitialized
 '	todos = 1
 	'permisos
-	
+
 	rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
 	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
 	gmap.MyLocationEnabled = Result
@@ -219,7 +219,7 @@ Sub MapFragment1_Ready
 	'''''''----------------------------MARKER AZUL - POR VISITAR
 	If azul = 1 Or todos = 1 Then
 		c.IsInitialized
-		c=skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
+		c=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LAT, CAT_CL_LONG from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
 '		skmt.Initialize(ruta,"kmt.db", True)
 		Log($"============== Resultados = ${c.RowCount}"$)
 		If c.RowCount > 0 Then
@@ -227,88 +227,119 @@ Sub MapFragment1_Ready
 				c.Position = i
 '				Log($"|${c.GetString("CAT_CL_LONG")}|${c.GetString("CAT_CL_LAT")}|"$)
 '				Log(i&"|"&c.GetString("CAT_CL_LAT")&"|")
-				LatitudRu = 0
-				Log(c.GetString("CAT_CL_CODIGO")&"      "& c.GetString("CAT_CL_LAT"))
-				If c.GetString("CAT_CL_LAT") <> "" Then LatitudRu = c.GetString("CAT_CL_LAT")
-				LongitudRU = 0
-				If c.GetString("CAT_CL_LONG") <> "" Then LongitudRU = c.GetString("CAT_CL_LONG")
-				CODIGO=c.GetString("CAT_CL_CODIGO")
-				Tienda= c.GetString("CAT_CL_NOMBRE")
-				MARK_AZUL = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_BLUE)
-				MARK_AZUL.Snippet = Tienda
+'				LatitudRu = 0
+				If c.GetString("CAT_CL_LAT") = Null Or c.GetString("CAT_CL_LAT") = "null" Or c.GetString("CAT_CL_LAT") = "NULL" _
+					Or c.GetString("CAT_CL_LONG") = Null Or c.GetString("CAT_CL_LONG") = "null" Or c.GetString("CAT_CL_LONG") = "NULL" _
+				 Then
+					ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
+				Else
+					Log(c.GetString("CAT_CL_CODIGO")&"      "& c.GetString("CAT_CL_LAT")&", "&c.GetString("CAT_CL_LAT"))
+					If c.GetString("CAT_CL_LAT") <> "" Then LatitudRu = c.GetString("CAT_CL_LAT")
+					LongitudRU = 0
+					If c.GetString("CAT_CL_LONG") <> "" Then LongitudRU = c.GetString("CAT_CL_LONG")
+					CODIGO=c.GetString("CAT_CL_CODIGO")
+					Tienda= c.GetString("CAT_CL_NOMBRE")
+					MARK_AZUL = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_BLUE)
+					MARK_AZUL.Snippet = Tienda
+					Log(LatitudRu & "," & LongitudRU)
+				End If
 			Next
 		End If
 		c .Close
-'		Log("4")
-
 		If MARK_AZUL.IsInitialized Then LIST_AZUL.Add(MARK_AZUL)
 	End If
 	'''''''----------------------------MARKER VERDE - VENTA
 	If verde = 1 Or todos = 1 Then
 		c2.IsInitialized
-		c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0  and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1 UNION select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info2 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0  and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
+		c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1 UNION select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT from kmt_info2 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
 		Log($"============== Resultados = ${c2.RowCount}"$)
 		For i = 0 To c2.RowCount -1
 			c2.Position = i
 '			Log($"|${c2.GetString("CAT_CL_LONG")}|${c2.GetString("CAT_CL_LAT")}|"$)
-			If IsNumber(c2.GetString("CAT_CL_LONG")) Then
+			If c2.GetString("CAT_CL_LAT") = Null Or c2.GetString("CAT_CL_LAT") = "null" Or c2.GetString("CAT_CL_LAT") = "NULL" _
+					Or c2.GetString("CAT_CL_LONG") = Null Or c2.GetString("CAT_CL_LONG") = "null" Or c2.GetString("CAT_CL_LONG") = "NULL" _
+				 Then
+				ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
+			Else
 				LongitudRU = c2.GetString("CAT_CL_LONG")
 				LatitudRu = c2.GetString("CAT_CL_LAT")
 				CODIGO=c2.GetString("CAT_CL_CODIGO")
 				Tienda= c2.GetString("CAT_CL_NOMBRE")
 				MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO,gmap.HUE_GREEN)
 				MARK_VERDE.Snippet = Tienda
+				Log(LatitudRu & "," & LongitudRU)
 			End If
 		Next
 	Else
 		If verde = 1 Or todos = 1 Then
 			c2.IsInitialized
-			c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0  and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
+			c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0  and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
 			Log($"============== Resultados = ${c2.RowCount}"$)
 			For i = 0 To c2.RowCount -1
 				c2.Position = i
 '				Log($"|${c2.GetString("CAT_CL_LONG")}|${c2.GetString("CAT_CL_LAT")}|"$)
-				LongitudRU = c2.GetString("CAT_CL_LONG")
-				LatitudRu = c2.GetString("CAT_CL_LAT")
-				CODIGO=c2.GetString("CAT_CL_CODIGO")
-				Tienda= c2.GetString("CAT_CL_NOMBRE")
-				MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO,gmap.HUE_GREEN)
-				MARK_VERDE.Snippet = Tienda
+				If c2.GetString("CAT_CL_LAT") = Null Or c2.GetString("CAT_CL_LAT") = "null" Or c2.GetString("CAT_CL_LAT") = "NULL" _
+					Or c2.GetString("CAT_CL_LONG") = Null Or c2.GetString("CAT_CL_LONG") = "null" Or c2.GetString("CAT_CL_LONG") = "NULL" _
+				 Then
+					ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
+				Else
+					LongitudRU = c2.GetString("CAT_CL_LONG")
+					LatitudRu = c2.GetString("CAT_CL_LAT")
+					CODIGO=c2.GetString("CAT_CL_CODIGO")
+					Tienda= c2.GetString("CAT_CL_NOMBRE")
+					MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO,gmap.HUE_GREEN)
+					MARK_VERDE.Snippet = Tienda
+					Log(LatitudRu & "," & LongitudRU)
+				End If
 			Next
 			c2 .Close
 			If MARK_VERDE.IsInitialized Then LIST_VERDE.Add(MARK_VERDE)
 		End If
 	End If
 '	'''''''----------------------------MARKER ROJO - NO VENTA
-	
+
 	If rojo = 1 Or todos = 1 Then
 		c3.IsInitialized
-		c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0  and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
+		c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
 		Log($"============== Resultados = ${c3.RowCount}"$)
 		For i = 0 To c3.RowCount -1
 			c3.Position = i
 '			Log($"|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
-			LongitudRU = c3.GetDouble("CAT_CL_LONG")
-			LatitudRu = c3.GetDouble("CAT_CL_LAT")
-			CODIGO = c3.GetString("CAT_CL_CODIGO")
-			Tienda= c3.GetString("CAT_CL_NOMBRE")
-			MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
-			MARK_ROJO.Snippet = Tienda
-		Next
-	Else
-		If rojo = 1 Or  todos = 1  Then
-			c3.IsInitialized
-			c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0  and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
-			Log($"============== Resultados = ${c3.RowCount}"$)
-			For i = 0 To c3.RowCount -1
-				c3.Position = i
-'				Log($"|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
+			If c3.GetString("CAT_CL_LAT") = Null Or c3.GetString("CAT_CL_LAT") = "null" Or c3.GetString("CAT_CL_LAT") = "NULL" _
+					Or c3.GetString("CAT_CL_LONG") = Null Or c3.GetString("CAT_CL_LONG") = "null" Or c3.GetString("CAT_CL_LONG") = "NULL" _
+				 Then
+				ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
+			Else
 				LongitudRU = c3.GetDouble("CAT_CL_LONG")
 				LatitudRu = c3.GetDouble("CAT_CL_LAT")
 				CODIGO = c3.GetString("CAT_CL_CODIGO")
 				Tienda= c3.GetString("CAT_CL_NOMBRE")
 				MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
 				MARK_ROJO.Snippet = Tienda
+				Log(LatitudRu & "," & LongitudRU)
+			End If
+		Next
+	Else
+		If rojo = 1 Or  todos = 1  Then
+			c3.IsInitialized
+			c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
+			Log($"============== Resultados = ${c3.RowCount}"$)
+			For i = 0 To c3.RowCount -1
+				c3.Position = i
+'				Log($"|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
+				If c3.GetString("CAT_CL_LAT") = Null Or c3.GetString("CAT_CL_LAT") = "null" Or c3.GetString("CAT_CL_LAT") = "NULL" _
+					Or c3.GetString("CAT_CL_LONG") = Null Or c3.GetString("CAT_CL_LONG") = "null" Or c3.GetString("CAT_CL_LONG") = "NULL" _
+				 Then
+					ToastMessageShow($"Tienda con coordenadas incorrectas (${c.GetString("CAT_CL_CODIGO")})"$, False)
+				Else
+					LongitudRU = c3.GetDouble("CAT_CL_LONG")
+					LatitudRu = c3.GetDouble("CAT_CL_LAT")
+					CODIGO = c3.GetString("CAT_CL_CODIGO")
+					Tienda= c3.GetString("CAT_CL_NOMBRE")
+					MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
+					Log(LatitudRu & "," & LongitudRU)
+					MARK_ROJO.Snippet = Tienda
+				End If
 			Next
 			If MARK_ROJO.IsInitialized Then LIST_ROJO.Add(MARK_ROJO)
 			c3.Close
@@ -320,7 +351,7 @@ Sub MapFragment1_Ready
 '	If  MARK_VERDE.Visible Or MARK_ROJO.Visible  Then
 '		MARK_CEDIS.Remove
 '	End If
-'	Log("Centramos camara " & LatitudRu & ", " & LongitudRU)
+	Log("Centramos camara " & LatitudRu & ", " & LongitudRU)
 	Dim aa As CameraPosition
 	aa.Initialize(LatitudRu, LongitudRU, 15)  ''' RECOMENDABLE CAMBIAR A 10 PARA QUE SE VEAN MAS MARCADORES
 	gmap.AnimateCamera(aa)
@@ -387,6 +418,7 @@ Sub GPS_LocationChanged (Parametro As Location)
 '			gmap.AnimateCamera(cp)
 '		End If
 '	End If
+	ProgressDialogHide
 End Sub

 Sub Activity_Pause (UserClosed As Boolean)
@@ -437,7 +469,7 @@ Private Sub b_inicioVenta_Click
 	r_opcion3.Checked = False
 	r_opcion4.Checked = False
 	b_finVenta.Enabled = True
-	Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "")
+	Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, "2", "", "", "")
 	Starter.enVenta = True
 	Subs.enVenta(1, "MAPA")
 	l_venta.Text = "Ve a tu app de venta y cuando termines regresa aqui y presiona el botón para ingresar ""Peso"" o ""No Venta"""
@@ -485,7 +517,7 @@ Private Sub b_guardarPeso_Click
 		et_guardarPeso.Text = peso
 		
 		Subs.guardaPeso("VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, peso, "", "", "")
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, "", "", $"Venta:${et_guardarPeso.text}"$)
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, "", "", $"Venta:${et_guardarPeso.text}"$)
 		Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
 		Starter.enVenta = False
 		Subs.enVenta(0, "")
@@ -498,6 +530,7 @@ Private Sub b_guardarPeso_Click
 	gmap.Clear
 	todos = 1
 	MapFragment1_Ready
+	Subs.mandaPendientes
 End Sub

 Private Sub p_guardarPeso_Click
@@ -546,7 +579,7 @@ Private Sub b_guardaNoVenta_Click
 		DateTime.DateFormat="yy-MM-dd HH:mm:ss"
 		Dim fecha As String=DateTime.Date(DateTime.Now)
 		Subs.guardaPeso("NO VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, "0", motivo, et_comentarioNoVenta.text, fotoCerrado)
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Venta:${et_guardarPeso.text}"$)
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Venta:${et_guardarPeso.text}"$)
 		Starter.enVenta = False
 		Subs.enVenta(0, "")
 		Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
@@ -557,6 +590,7 @@ Private Sub b_guardaNoVenta_Click
 		todos = 1
 		MapFragment1_Ready
 	End If
+	Subs.mandaPendientes
 End Sub

 Private Sub b_cancelaNoVenta_Click
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -93,7 +93,7 @@ Sub Service_Destroy
 End Sub

 Sub ENVIA_ULTIMA_GPS
-	Dim logger As Boolean = False
+	Dim logger As Boolean = True
 	If logger Then LogColor("Iniciamos ENVIA_ULTIMA_GPS", Colors.Magenta)
 	Dim cmd As DBCommand
 '	cmd.Initialize
@@ -102,9 +102,37 @@ Sub ENVIA_ULTIMA_GPS
 	Dim cmd As DBCommand
 	cmd.Initialize
 	cmd.Name = "UPDATE_ADM_ACTUAL2_GPS"
+	
+'	En el campo CAT_RU_MONTO_ACT necesito que Me mandes el monto total de peso que llevan al momento.  1
+'	En el campo CAT_RU_TTOTAL_ACT necesito saber si Me estas mandando los clientes totales por día.    4
+'	En el campo CAT_RU_TVISIT_ACT  necesito que Me mandes el total de visitas realizadas.              2
+'	En el campo CAT_RU_TVENTA_ACT necesito que Me mandes el total de visitas con venta.                3
+
+	Private totalPesoActual As String = 0
+	Private conVenta As String = 0
+	Private visitados As String = 0
+	Private totalAVisitar As String = 0
+
+	Private utr As Cursor = skmt.ExecQuery($"select sum(pe_peso) as totalPesoActual, 
+		(select count(pe_cliente) from pesos where pe_tipo = 'VENTA') as conVenta,
+		(select count(distinct pe_cliente) from pesos) as visitados,
+		(select count(cat_cl_codigo) from kmt_info) as totalAVisitar
+		from pesos"$)
+	If utr.RowCount > 0 Then
+		utr.position = 0
+		If logger Then Log("totalPesoActual: " & utr.GetString("totalPesoActual"))
+		totalPesoActual = utr.GetString("totalPesoActual")
+		conVenta = utr.GetString("conVenta")
+		If logger Then Log("conVenta: " & utr.GetString("conVenta"))
+		visitados = utr.GetString("visitados")
+		If logger Then Log("visitados: " & utr.GetString("visitados"))
+		totalAVisitar = utr.GetString("totalAVisitar")
+		If logger Then Log("totalAVisitar: " & utr.GetString("totalAVisitar"))
+	End If
+	
 	If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
-	cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, 0, 0,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
-	If logger Then Log($"montoActual: ${B4XPages.MainPage.montoActual}, cTotal: ${B4XPages.MainPage.clientestotal}, cVenta: ${B4XPages.MainPage.clientesventa}, cVisitados: ${B4XPages.MainPage.clientesvisitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
+	cmd.Parameters = Array As Object(totalPesoActual, visitados, conVenta, totalAVisitar, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, B4XPages.MainPage.batt, 0, 0, 0, B4XPages.MainPage.ALMACEN, B4XPages.MainPage.rutapreventa)
+	If logger Then Log($"Ruta: ${B4XPages.MainPage.rutapreventa}, pesoActual: ${totalPesoActual}, cTotal: ${totalAVisitar}, cVenta: ${conVenta}, cVisitados: ${visitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
 	reqManager.ExecuteCommand(cmd, "ubicacionTiempoReal")
 	skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ?  WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
 	'Reiniciamos el timer para cuando llamamos el Sub desde "seleccion"
@@ -142,6 +170,10 @@ Sub reinicializaReqManager(srv As String)
 	LogColor(srv, Colors.red)
 End Sub

+public Sub Tracker_UbicacionActualizada (Location1 As Location)
+	
+End Sub
+
 Sub JobDone(Job As HttpJob)
 	Log("JOBDONE STARTER")
 	Try
@@ -198,6 +230,20 @@ Sub JobDone(Job As HttpJob)
 						End If
 					Next
 				End If
+				
+				'GUARDA PESOS
+				If result.Tag.As(String).StartsWith("insertPesos_") Then
+					For Each records() As Object In result.Rows
+						Private id() = Regex.Split("_", result.tag)
+						If id.Length > 1 Then
+							For Each k As String In result.Columns.Keys
+'							Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
+								skmt.ExecNonQuery($"update pesos set PE_ENVIO_OK = 1 where PE_CLIENTE = '${id(1)}'"$)
+'							Log($"update bitacoragps set enviado = 1 where id = '${id(1)}'"$)
+							Next
+						End If
+					Next
+				End If
 			End If
 		End If
 		Log(">>>>> Job.Release Starter")
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -808,7 +808,7 @@ Sub guardaPeso(tipo As String, almacen As String, ruta As String, usuario As Str
 '	CREATE TABLE PESOS(PE_IDALMACEN TEXT, PE_RUTA TEXT, PE_USUARIO TEXT, PE_CLIENTE TEXT, PE_PESO TEXT, PE_FECHA TEXT, PE_FECHA_SINC TEXT)
 	DateTime.DateFormat="yy-MM-dd HH:mm:ss"
 	Dim fecha As String=DateTime.Date(DateTime.Now)
-	B4XPages.MainPage.skmt.ExecNonQuery($"delete from pesos where pe_cliente in (select cuenta from cuentaa) and pe_tipo = '${tipo}'"$)
+	B4XPages.MainPage.skmt.ExecNonQuery($"delete from pesos where pe_cliente in (select cuenta from cuentaa)"$) ' and pe_tipo = '${tipo}'
 	B4XPages.MainPage.skmt.ExecNonQuery($"INSERT INTO PESOS (PE_TIPO, PE_IDALMACEN, PE_RUTA, PE_USUARIO, PE_CLIENTE, PE_PESO, PE_FECHA, PE_MOTIVO, PE_COMENTARIO, PE_FOTO_CERRADO) VALUES('${tipo.ToUpperCase}', '${almacen}', '${ruta}', '${usuario}', '${cliente}', '${peso}', '${fecha}', '${motivo}', '${comentario}', '${fotoCerrado}')"$)
 '	Log($"INSERT INTO PESOS (PE_TIPO, PE_IDALMACEN, PE_RUTA, PE_USUARIO, PE_CLIENTE, PE_PESO, PE_FECHA, PE_MOTIVO, PE_COMENTARIO) VALUES('${tipo.ToUpperCase}', '${almacen}', '${ruta}', '${usuario}', '${cliente}', '${peso}', '${fecha}', '${motivo}', '${comentario}')"$)
 End Sub
@@ -1584,6 +1584,18 @@ End Sub
 'Mandar fecha de sync(sysdate)
 Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As String, eventob As String, clienteb As String, iniciob As String, finb As String, latitudb As String, longitudb As String, precision As String, motivonoventa As String, motivonovisita As String, otro As String)
 	Log($"Bitacora: ${eventob}, mnven: ${motivonoventa}, mnvis: ${motivonovisita}"$)
+	
+	If latitudb.Length < 4 Then
+		ProgressDialogShow2("Buscando ubicación ...", False)
+		CallSubDelayed(Tracker, "Track")
+		CallSubDelayed(Tracker, "StartFLPSmall")
+		Log($"Coords actuales: ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}"$)
+		If B4XPages.MainPage.lat_gps.Length > 3 And B4XPages.MainPage.lon_gps.Length > 3 Then
+			ProgressDialogHide
+		End If
+	End If
+	
+	
 	If Starter.Logger Then Log("bitacora")
 	Private cmd As DBCommand
 	Private id As String
@@ -1623,6 +1635,7 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As
 		End If
 	End If
 	If eventob <> "Inicia Venta" Then
+		Log("=====   MANDAMOS BITACORA   ====")
 		Private c As Cursor = Starter.skmt.ExecQuery($"select * from BITACORAGPS where usuariob = '${usuariob}' and almacenb = '${almacenb}' and rutab = '${rutab}' and clienteb = '${clienteb}' order by fechab desc"$)
 		If c.RowCount > 0 Then
 			c.Position = 0
@@ -1650,4 +1663,38 @@ Sub nosQuedamosEnVenta As Boolean
 		Return True
 	End If
 	Return False
+End Sub
+
+Sub mandaPendientes
+	Log(">>>>>>>  MANDA PENDIENTES  <<<<<<<")
+'	Dim PCNoArts As String
+'	Dim PCMonto As String
+	Private c As Cursor
+	If traeUsuarioDeBD <> "KMTS1"  Then
+		'PESOS (Pendientes)
+		c = Starter.skmt.ExecQuery($"SELECT * FROM PESOS where PE_ENVIO_OK <> 1"$)
+		Log($"PESOS PENDIENTE: ${c.RowCount}"$)
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount -1
+				c.Position = i
+				Dim cmd As DBCommand
+				cmd.Initialize
+'				cmd.Name = "insert_pedido2_ADM"
+'				cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),c.GetString("PE_IDALMACEN"),c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO"))
+'				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
+'				Log($">>>>  INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
+'				sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
+'				sql.insert_pedido2_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO, PE_CANT_TOTAL, PE_VENTA_TOTAL) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?),(?),(?))
+
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insertPesos"
+'				Log(c.GetString("PE_IDALMACEN")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
+				cmd.Parameters = Array As Object(c.GetString("PE_IDALMACEN"),c.GetString("PE_RUTA"),c.GetString("PE_USUARIO"),c.GetString("PE_CLIENTE"),c.GetString("PE_PESO"),c.GetString("PE_FECHA"),c.GetString("PE_TIPO"),c.GetString("PE_COMENTARIO"),c.GetString("PE_FOTO_CERRADO"))
+'				Log($">>>>  insertPesos= ${C.GetString("PE_IDALMACEN")},${c.GetString("PE_RUTA")},${C.GetString("PE_USUARIO")},${C.GetString("PE_CLIENTE")},${C.GetString("PE_PESO")}, ${C.GetString("PE_FECHA")}"$)
+				Starter.reqManager.ExecuteCommand(cmd , $"insertPesos_${c.GetString("PE_CLIENTE")}"$)
+			Next
+		End If
+		c.Close
+	End If
 End Sub
--- a/B4A/Tracker.bas
+++ b/B4A/Tracker.bas
@@ -158,9 +158,9 @@ Public Sub StopFLP
 	End If
 End Sub

-Sub flp_LocationChanged (Location1 As Location)
+public Sub flp_LocationChanged (Location1 As Location)
 '	ToastMessageShow("Loc changed", False)
-	Log($"Loc changed:${Location1.Longitude},${Location1.Latitude}"$)
+	LogColor($">>>   Loc changed:${Location1.Longitude},${Location1.Latitude}"$, Colors.red)
 	B4XPages.MainPage.lat_gps = Location1.Latitude
 	B4XPages.MainPage.lon_gps = Location1.Longitude
 	Starter.lat_gps = Location1.Latitude
@@ -196,6 +196,8 @@ Sub flp_LocationChanged (Location1 As Location)
 	End If

 	CallSub2(Starter, "GPS_LocationChanged", Location1)
+	CallSub2(B4XPages.MainPage.clientes, "GPS_LocationChanged", Location1)
+'	CallSub2(B4XPages.MainPage.clientes, "Tracker_UbicacionActualizada", Location1)
 '	CallSub2(B4XPages.MainPage.cliente, "GPS_LocationChanged", Location1)
 '	CallSub2(gestion, "GPS_LocationChanged", Location1)
 	If B4XPages.MainPage.cliente.BT_QR.IsInitialized Then
@@ -304,6 +306,9 @@ Sub revisaUUG 'ignore
 End Sub

 Sub guardaYEnviaUbicacion(lat As String, lon As String)
+	LogColor("#######################################", Colors.Magenta)
+	LogColor("#######################################", Colors.Magenta)
+'	LogColor("#######################################", Colors.Magenta)
 	DateTime.DateFormat="yy-MM-dd HH:mm:ss"
 	Private fecha As String = DateTime.Date(DateTime.Now)
 	DateTime.DateFormat="yyMMddHHmmss"
@@ -315,5 +320,6 @@ Sub guardaYEnviaUbicacion(lat As String, lon As String)
 	cmd.Name = "guardaHistorialUbicaciones"
 	If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
 	cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta, usuario, lat, lon, fecha)
+'	Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${usuario}, ${lat}, ${lon}, ${fecha}"$)
 	Starter.reqManager.ExecuteCommand(cmd, $"guardaHistorialUbicaciones_${id}"$)
 End Sub
Author	SHA1	Message	Date
Jose Alberto Guerra Ugalde	003e50a6b1	- VERSION 5.09.03 - Se corrigieron textos. - Se corrigio que a veces mandaba coordenadas en blanco a la bitacora, ahora nos aseguramos de siempre tener las coordenadas disponibles	2025-09-17 13:11:23 -06:00
Jose Alberto Guerra Ugalde	a73c9d4290	- VERSION 5.09.02 - Se cambio que cuando a una No Venta se le hace venta, en PESOS se sobreescriba y viceversa.	2025-09-11 18:45:04 -06:00
Jose Alberto Guerra Ugalde	966ed2357b	- VERSION 5.09.01 - Cambios en starter para el mandaPendientes	2025-09-11 13:22:56 -06:00
Jose Alberto Guerra Ugalde	8f0cf7c227	- VERSION 5.08.31 - Habilitar el mandaPendientes. - Cuando se hace la venta a través del mapa, no la pone como "venta" o algo así. - En clientes, quitar el mensaje de "Crédito" y "CxC". - En resumen Día, cambiar el texto de "Total peso" por "Total kilos". - En TicketsDia, quitar Cantidad, solo dejar el subtotal y quitarle el signo de pesos. - En TicketsDia, hacer mas altos los renglones. - En clientes, quitar el ID de la tienda, dejar solo el nombre. - En el mapa, también quitar el ID del cliente, dejar solo el nombre. (No se puede!! 🤷🏽‍♂️) - En TicketsDia, alargar la lista para que ocupe TODA la pantalla. - En TicketsDia, también quitar el ID, solo dejar Nombre y Subtotal y el subtotal SIN signo de pesos.	2025-09-11 12:51:10 -06:00
jaguerrau	8dcc87eb67	Add files via upload	2025-09-01 14:17:41 -06:00
Jose Alberto Guerra Ugalde	670a875efa	- VERSION 5.08.31 - Se modificó el codigo de MAPA_RUTAS para que muestre bien los marcadores	2025-09-01 13:56:47 -06:00
Jose Alberto Guerra Ugalde	2a64f8cb6e	- VERSION 5.08.29 - Se limpió la pantalla de "Resumen Dia". - Se revisó que se envien bien los datos de la ubicacion en tiempo real a CAT_RUTAS	2025-08-29 17:24:04 -06:00