- VERSION 5.09.01

- Cambios en starter para el mandaPendientes
- VERSION 5.08.31
2026-04-18 11:49:26 +00: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 · 2025-09-01 13:56:47 -06:00 · 2025-08-29 17:24:04 -06:00
16 changed files with 536 additions and 357 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.01
 	'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=
 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=
 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=B4XMainPage,Class_Globals,116,0,MAPA_RUTAS,p_guardarPeso_Click,527,0,MAPA_RUTAS,b_guardarPeso_Click,525,0,MAPA_RUTAS,Activity_KeyPress,505,0,C_Cliente,Class_Globals,0,0,C_Cliente,JobDone,2336,0,C_Clientes,JobDone,947,0,Starter,JobDone,210,2,Tracker,guardaYEnviaUbicacion,309,6,C_Principal,JobDone,2069,0
 SelectedBuild=0
-VisibleModules=30,2,14,5,6,19,31,27,18
+VisibleModules=30,2,14,5,6,19,31,27,18,11,32
--- 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,7 @@ Sub Class_Globals
 	Dim fotoCerrado As String = ""
 	Private p_botonesCam As Panel
 	Dim reqManager As DBRequestManager
+	Private p_clientesLista As Panel
 End Sub

 'You can add more parameters here.
@@ -114,6 +115,12 @@ End Sub

 Sub B4XPage_Appear
 	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"
@@ -186,7 +193,7 @@ Sub CreateListItem(nombre As String, direccion0 As String, cliente As String) As
 	p.SetLayoutAnimated(0, 0, 0, 1, 220)
 '	p.LoadLayout("datoscliente")
 	p.LoadLayout("datosclienteBotones")
-	p.Height= 100dip
+	p.Height = 90dip
 	b_inicioVenta.Tag = cliente
 '	p.Width = clv_orden.GetBase.Width
 	nombrecliente.Text = nombre
@@ -654,7 +661,7 @@ Private Sub b_guardarPeso_Click
 '		b_inicioVenta.Enabled = True
 		b_finVenta.Enabled = False
 		B4XPages.MainPage.clientes.B4XPage_Appear
-		mandaPendientes
+		Subs.mandaPendientes
 	End If
 End Sub

@@ -718,7 +725,7 @@ Private Sub b_guardaNoVenta_Click
 		p_guardarPeso.Visible = False
 		p_transparenciaIniciaInicioFinVenta.Visible = False
 	End If
-	mandaPendientes
+	Subs.mandaPendientes
 	
 '	DateTime.DateFormat="yy-MM-dd HH:mm:ss"
 '	Dim fecha As String=DateTime.Date(DateTime.Now)
@@ -888,37 +895,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


--- 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
@@ -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
@@ -2413,193 +2425,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) 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
@@ -2812,14 +2856,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") &"   SubTotal "& c.GetString("PC_MONTO") & " kgs.")
 		Next
 	End If
 	c.Close
@@ -149,6 +159,7 @@ End Sub

 Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 	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}')"$)
@@ -202,7 +213,7 @@ 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 +228,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 +243,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") &"   SubTotal "& c.GetString("PC_MONTO") & " kgs.")
 			Next
 		End If
 		c.Close
@@ -281,6 +292,7 @@ Private Sub b_guardaNoVenta_Click
 		p_guardarPeso.Visible = False
 		p_transparenciaIniciaInicioFinVenta.Visible = False
 	End If
+	Subs.mandaPendientes
 End Sub

 Private Sub b_cancelaNoVenta_Click
@@ -302,7 +314,7 @@ Private Sub b_guardarPeso_Click
 '		b_inicioVenta.Enabled = True
 		b_finVenta.Enabled = False
 		B4XPages.MainPage.ticketsDia.B4XPage_Appear
-		mandaPendientes
+		Subs.mandaPendientes
 	End If
 End Sub

@@ -325,37 +337,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/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)
@@ -498,6 +529,7 @@ Private Sub b_guardarPeso_Click
 	gmap.Clear
 	todos = 1
 	MapFragment1_Ready
+	Subs.mandaPendientes
 End Sub

 Private Sub p_guardarPeso_Click
@@ -557,6 +589,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"
@@ -198,6 +226,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
@@ -1650,4 +1650,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
@@ -304,6 +304,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 +318,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	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