v.5.09.07 s/C Se quitan los clientes nuevos, se agrega un boton de productos, se envian los clienes nuevos con el mandapendientes

- Cambios en el validador, para que no mande cantidades y montos totales en nulo.
- Se agregó que mande a la tabla pedido la version de la aplicacion.
- Se agregó que mande a la tabla de pedido un "folio" con cada envio de pedido, asi, cuando se manda varias veces el pedido,se puede "agrupar" por el folio para saber que productos pertenecen a cada envio.

B4A/B4XMainPage.bas

@@ -771,7 +771,6 @@ Private Sub b_importarBD_Click
 	ToastMessageShow("¡BD importada!", False)
 End Sub
 
-
 Private Sub b_guardar_Click
 	Starter.reinicializaReqManager(et_server.Text.Trim)
 	p_appUpdate.Visible = False

B4A/C_Cliente.bas

@@ -495,14 +495,14 @@ Sub gest_Click
 	End If
 
 	'Buscamos en el historial de cuestionarios si el cliente ya tiene cuestionario contestado.
-	Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
+'	Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
-	hc.Position = 0
+'	hc.Position = 0
-	Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
+'	Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
-	
+'	
-	If la_cuenta.Text <> "0" And Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
+'	If la_cuenta.Text <> "0" And Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
-		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
+'		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
-		Return False
+'		Return False
-	End If
+'	End If
 	Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select tienda_id from COORDENADAS_GPS where tienda_id = '${la_cuenta.text}'"$)
 '	Log("+++++++++++++  " & x.RowCount)
 	If la_cuenta.Text<> "0" And distance > 50 And x.RowCount = 0 Then
@@ -626,7 +626,7 @@ Sub Guardar_Click
 '	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!!!
+	mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!   solo envia clientes nuenos, no comentar lo que yo descomente --- javier (por que Guerra lo comento)
 	mandapiezas
 	B4XPages.MainPage.productos.reiniciarlistaProds = True
 	B4XPages.MainPage.productos.prodsMap.Initialize
@@ -1155,113 +1155,113 @@ Private Sub cb_factura_CheckedChange(Checked As Boolean)
 End Sub
 
 Sub mandaPendientes
-'	PEDIDO_CLIENTE (Pendientes)
+''	PEDIDO_CLIENTE (Pendientes)
-	Log(">>>>>>>  MANDA PENDIENTES")
+'	Log(">>>>>>>  MANDA PENDIENTES")
-	Dim PCNoArts As String
+'	Dim PCNoArts As String
-	Dim PCMonto As String
+'	Dim PCMonto As String
-	If usuario <> "KMTS1"  Then
+'	If usuario <> "KMTS1"  Then
-		c = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 0")
+'		c = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 0")
-		Log($"Pedido_Cliente PENDIENTE: ${c.RowCount}"$)
+'		Log($"Pedido_Cliente PENDIENTE: ${c.RowCount}"$)
-		If c.RowCount > 0 Then
+'		If c.RowCount > 0 Then
-			For i = 0 To c.RowCount - 1
+'			For i = 0 To c.RowCount - 1
-				c.Position = i
+'				c.Position = i
-				Log($"${c.GetString("PC_CLIENTE")}|${c.GetString("PC_FECHA")}|${c.GetString("PC_ENVIO_OK")}|"$)
+'				Log($"${c.GetString("PC_CLIENTE")}|${c.GetString("PC_FECHA")}|${c.GetString("PC_ENVIO_OK")}|"$)
-				Dim cmd As DBCommand
+'				Dim cmd As DBCommand
-				cmd.Initialize
+'				cmd.Initialize
-				cmd.Name = "insert_pedidos_INTMEX"
+'				cmd.Name = "insert_pedidos_INTMEX"
-				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), Subs.traeAlmacen, B4XPages.MainPage.principal.l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
+'				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), Subs.traeAlmacen, B4XPages.MainPage.principal.l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
-				PCNoArts = c.GetString("PC_NOART")
+'				PCNoArts = c.GetString("PC_NOART")
-				PCMonto = c.GetString("PC_MONTO")
+'				PCMonto = c.GetString("PC_MONTO")
-'				sql.insert_pedidos_INTMEX=INSERT INTO INTMEX.PEDIDO_CLIENTE(PC_FECHA_SINC,PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_IDALMACEN, PC_RUTA, PC_COSTO_SIN, PC_FACTURA) VALUES (SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?))
+''				sql.insert_pedidos_INTMEX=INSERT INTO INTMEX.PEDIDO_CLIENTE(PC_FECHA_SINC,PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_IDALMACEN, PC_RUTA, PC_COSTO_SIN, PC_FACTURA) VALUES (SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?))
-				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_head_${c.GetString("PC_CLIENTE")}"$)
+'				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_head_${c.GetString("PC_CLIENTE")}"$)
-			Next
+'			Next
-		End If
+'		End If
 
-		'PEDIDO (Pendientes)
+'		'PEDIDO (Pendientes)
-		c = skmt.ExecQuery($"SELECT PE_ENVIO_OK, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, PE_TICKET FROM PEDIDO where PE_ENVIO_OK <> 1"$)
+'		c = skmt.ExecQuery($"SELECT PE_ENVIO_OK, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, PE_TICKET FROM PEDIDO where PE_ENVIO_OK <> 1"$)
-		Log($"Pedido PENDIENTE: ${c.RowCount}"$)
+'		Log($"Pedido 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_pedido4_INTMEX"
-				cmd.Parameters = Array As Object(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,c.GetString("PE_TICKET"))
-				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}, ${PCMonto}, ${c.GetString("PE_TICKET")}"$)
-'				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),(?),(?),(?))
-			Next
-		End If
-
-		'ABONOS
-		Dim ab As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null"$)
-		Log(ab.RowCount)
-		If ab.RowCount > 0 Then
-			For i=0 To ab.RowCount -1
-				ab.Position = i
-				Dim cmd As DBCommand
-				cmd.Initialize
-				cmd.Name = "insert_abono_INTMEX"
-				cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab.GetString("a_abono"), ab.GetString("a_fecha"),ALMACEN )
-				reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
-				Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
-			Next
-		End If
-		ab.Close
-	
-		'CLIENTES NUEVOS
-		Dim bb As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from CLIENTE_NUEVO where CN_enviado is null"$)
-		Dim cb As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN from CAT_ALMACEN")
-		cb.Position = 0
-		If bb.RowCount > 0 Then
-			For i=0 To bb.RowCount -1
-				bb.Position = i
-				Dim cmd As DBCommand
-				cmd.Initialize
-				cmd.Name = "insert_cliente_INTMEX"
-				cmd.Parameters = Array As Object( bb.GetString("CN_ID_CLIENTE"), bb.GetString("CN_NOMBRE"),B4XPages.MainPage.principal.l_ruta.Text,cb.GetString("ID_ALMACEN"))
-				reqManager.ExecuteCommand(cmd , $"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
-				Log($"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
-			Next
-			Log("si lo hice")
-		End If
-		bb.Close
-		cb.Close
-
-'		BANDERA FACTURA (Pendientes)
-'		c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_FACTURA, PC_CLIENTE FROM pedido_cliente where PC_CLIENTE IN (Select CUENTA from cuentaa)")
-'		Log($"BANDERA FACTURA 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 = "update_factura_INTMEX"
+'				cmd.Name = "insert_pedido4_INTMEX"
-'				cmd.Parameters = Array As Object(C.GetString("PC_FACTURA"), C.GetString("PC_CLIENTE"), ALMACEN)
+'				cmd.Parameters = Array As Object(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,c.GetString("PE_TICKET"))
-'				reqManager.ExecuteCommand(cmd , "upd_facturasPendientes")
+'				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}, ${PCMonto}, ${c.GetString("PE_TICKET")}"$)
+''				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),(?),(?),(?))
+'			Next
+'		End If
+
+'		'ABONOS
+'		Dim ab As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from ABONOS where a_enviado is null"$)
+'		Log(ab.RowCount)
+'		If ab.RowCount > 0 Then
+'			For i=0 To ab.RowCount -1
+'				ab.Position = i
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "insert_abono_INTMEX"
+'				cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab.GetString("a_abono"), ab.GetString("a_fecha"),ALMACEN )
+'				reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+'				Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+'			Next
+'		End If
+'		ab.Close
+	
+	'CLIENTES NUEVOS
+	Dim bb As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT * from CLIENTE_NUEVO where CN_enviado is null"$)
+	Dim cb As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN from CAT_ALMACEN")
+	cb.Position = 0
+	If bb.RowCount > 0 Then
+		For i=0 To bb.RowCount -1
+			bb.Position = i
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "insert_cliente_INTMEX"
+			cmd.Parameters = Array As Object( bb.GetString("CN_ID_CLIENTE"), bb.GetString("CN_NOMBRE"),B4XPages.MainPage.principal.l_ruta.Text,cb.GetString("ID_ALMACEN"))
+			reqManager.ExecuteCommand(cmd , $"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
+			Log($"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
+		Next
+		Log("si lo hice")
+	End If
+	bb.Close
+	cb.Close
+
+''		BANDERA FACTURA (Pendientes)
+''		c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_FACTURA, PC_CLIENTE FROM pedido_cliente where PC_CLIENTE IN (Select CUENTA from cuentaa)")
+''		Log($"BANDERA FACTURA 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 = "update_factura_INTMEX"
+''				cmd.Parameters = Array As Object(C.GetString("PC_FACTURA"), C.GetString("PC_CLIENTE"), ALMACEN)
+''				reqManager.ExecuteCommand(cmd , "upd_facturasPendientes")
+''			Next
+''			'		sql.update_factura_INTMEX=UPDATE INTMEX.HIST_VENTAS SET HV_FACTURA = (?) WHERE HV_CLIENTE = (?) And HV_ALMACEN = (?)
+''		End If
+''		c.Close
+
+''		CUESTIONARIO (Pendientes)
+'		c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CUESTIONARIO where ifnull(Q_ENVIO_OK, 0) = 0 order by Q_IDCLIENTE, Q_IDPREGUNTA; Q_IDRESPUESTA")
+'		Private rutaActual As String = Subs.traeRuta
+'		Log("CUEST PENDIENTES: " & c.RowCount)
+'		If c.RowCount > 0 Then
+'			For x = 0 To c.RowCount - 1
+'				c.Position = x
+'				Log($"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "insert_CUESTIONARIO_INTMEX"
+'				cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
+'				reqManager.ExecuteCommand(cmd , $"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
 '			Next
-'			'		sql.update_factura_INTMEX=UPDATE INTMEX.HIST_VENTAS SET HV_FACTURA = (?) WHERE HV_CLIENTE = (?) And HV_ALMACEN = (?)
 '		End If
 '		c.Close
-
+'	End If
-'		CUESTIONARIO (Pendientes)
-		c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CUESTIONARIO where ifnull(Q_ENVIO_OK, 0) = 0 order by Q_IDCLIENTE, Q_IDPREGUNTA; Q_IDRESPUESTA")
-		Private rutaActual As String = Subs.traeRuta
-		Log("CUEST PENDIENTES: " & c.RowCount)
-		If c.RowCount > 0 Then
-			For x = 0 To c.RowCount - 1
-				c.Position = x
-				Log($"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
-				Dim cmd As DBCommand
-				cmd.Initialize
-				cmd.Name = "insert_CUESTIONARIO_INTMEX"
-				cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
-				reqManager.ExecuteCommand(cmd , $"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
-			Next
-		End If
-		c.Close
-	End If
 End Sub
 
 Sub mandapiezas

B4A/C_Principal.bas

@@ -218,6 +218,10 @@ Sub Class_Globals
 	Private b_muestraPendientes As Button
 '	Dim p_conexion As Panel
 	Dim l_conexion As Label
+	Private lv_prod_Prin As ListView
+	Private p_prod As Panel
+	Private b_regreso As Button
+	Private b_productos As Button
 End Sub
 
 'You can add more parameters here.
@@ -432,6 +436,15 @@ Sub B4XPage_Appear
 		l_ruta.Text = f.GetString("CAT_CL_RUTA")
 		f.Close
 	End If
+	
+	If l_ruta.Text = "0" Then
+		
+		b_productos.Visible = False
+	Else
+		
+		b_productos.Visible = True
+	End If
+	
 	If Cuantos  = 0 Then
 		L_MONTOD.Text =0
 		l_cuantosc.Text = 0
@@ -554,6 +567,7 @@ Sub B4XPage_Appear
 End Sub
 
 Sub Subir_Click
+	checaPedido
 	CARGA = "SUBIR"
 	p_mandaInfo.Width = Root.Width
 	p_mandaInfo.Height = Root.Height
@@ -651,6 +665,9 @@ Sub Subir_Click
 '			Next
 '		End If
 '		c.Close
+
+		DateTime.TimeFormat = "HHmmss"
+		Private elFolio As String = DateTime.Time(DateTime.Now)
 		
 		' PEDIDO_CLIENTE
 		Dim PCNoArts As String
@@ -662,10 +679,10 @@ Sub Subir_Click
 				c.Position = i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_pedidos_INTMEX"
+				cmd.Name = "insert_pedidos5_INTMEX"
 				PCNoArts = c.GetString("PC_NOART")
 				PCMonto = c.GetString("PC_MONTO")
-				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), ALMACEN, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
+				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), ALMACEN, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"), $"${Application.VersionName}|${elFolio}"$)
 				reqManager.ExecuteCommand(cmd , "ins_pedidos")
 				Log(">>>>>>  INSERT PEDIDO_CLIENTE")
 			Next
@@ -676,15 +693,16 @@ Sub Subir_Click
 		d.Close
 
 		' PEDIDO
-		c = B4XPages.MainPage.skmt.ExecQuery("SELECT PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, PE_TICKET FROM PEDIDO")
+'		c = B4XPages.MainPage.skmt.ExecQuery("SELECT PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, PE_TICKET FROM PEDIDO")
+		c = B4XPages.MainPage.skmt.ExecQuery($"Select (Select PC_NOART from pedido_cliente where pe_cliente = pc_cliente) As PCNoArts, (Select PC_MONTO from pedido_cliente where pe_cliente = pc_cliente) As PCMonto, * FROM PEDIDO"$)
 		d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
 		If c.RowCount > 0 Then
 			For i = 0 To c.RowCount - 1
 				c.Position = i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_pedido4_INTMEX" 'CON TOTALES INCLUIDOS
+				cmd.Name = "insert_pedido5_INTMEX" 'CON TOTALES INCLUIDOS
-				cmd.Parameters = Array As Object(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,c.GetString("PE_TICKET"))
+				cmd.Parameters = Array As Object(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"), c.GetString("PCNoArts"), c.GetString("PCMonto"), c.GetString("PE_TICKET"), elFolio)
 				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}, ${c.GetString("PE_TICKET")}"$)
 '				cmd.Name = "insert_pedido_INTMEX"  ' SIN TOTALES INCLUIDOS
@@ -1079,11 +1097,9 @@ Sub JobDone(Job As HttpJob)
 		LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
 	End If
 	If Job.Success = False Then
-		Log("ERROR")
+		LogColor("############################################", Colors.red)
-'		LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
+		LogColor("######         JobError: " & Job.Tag & CRLF & Job.ErrorMessage, Colors.red)
-		Log("ex")
+		LogColor("############################################", Colors.red)
-		Log(2)
-'		Job.Release
 	Else 'If Job Success then ...
 		Log(3)
 		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0))  'Mod por CHV - 211027
@@ -2217,6 +2233,7 @@ Sub B_OK_PAS_Click
 		Resumen.Visible= True
 		img2.Visible=False
 		Subs.panelVisible(p_principal, 0, 0)
+		checaPedido
 	Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
 		RES =  Msgbox2("Seguro que desea abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
 		If RES = DialogResponse.POSITIVE Then
@@ -2711,4 +2728,61 @@ Sub val_Terminado(msg As String)
 	b_muestraPendientes.Text = msg
 	Sleep (1000)
 	p_muestraPendientes.Visible = False
+End Sub
+
+Sub checaPedido
+	Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
+	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)")
+	End If
+End Sub
+
+
+Private Sub b_productos_Click
+	
+	Dim label1 As Label
+	label1 = lv_prod_Prin.SingleLineLayout.Label
+	label1.TextSize = 14
+	p_prod.Width = Root.Width
+	p_prod.Height = Root.Height
+	b_regreso.Left = (p_prod.Width - b_regreso.Width) / 2
+	b_regreso.Top = p_prod.Height - b_regreso.Height
+	
+	p_prod.Visible = True
+	p_prod.BringToFront
+
+	
+	Private c As Cursor = Starter.skmt.ExecQuery("select CAT_GP_NOMBRE AS HVD_PRONOMBRE, IFNULL(CAT_GP_PRECIO, 0) AS HVD_RECHAZOCANT from CAT_GUNAPROD order by CAT_GP_NOMBRE asc")
+	
+	lv_prod_Prin.SingleLineLayout.Label.TextColor = Colors.Black
+	lv_prod_Prin.Clear
+	If c.RowCount > 0 Then
+		For i = 0 To c.RowCount - 1
+			c.Position = i
+			Dim itemText As String
+			
+			
+			
+			itemText = $"${c.GetString("HVD_PRONOMBRE")} ${CRLF}Precio: ${(c.GetDouble("HVD_RECHAZOCANT"))}"$
+			lv_prod_Prin.AddSingleLine(itemText)
+			
+			
+		Next
+	Else
+		lv_prod_Prin.AddSingleLine("No hay datos disponibles.")
+	End If
+	c.Close
+	
+End Sub
+
+Private Sub b_regreso_Click
+	p_prod.Visible = False
+End Sub
+
+Private Sub p_prod_Click
+	
 End Sub

B4A/C_Productos.bas

@@ -184,7 +184,7 @@ Sub B4XPage_Appear
 	c = B4XPages.MainPage.skmt.ExecQuery($"SELECT CUENTA FROM CUENTAA"$)
 	c.Position = 0
 	If c.GetString("CUENTA") <> "0" Then
-		c2=B4XPages.MainPage.skmt.ExecQuery2($"select  CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND  CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )"$, Array As String("PROMOS", "PROMOS"))
+		c2=B4XPages.MainPage.skmt.ExecQuery2($"select  CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND  CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) ) ORDER BY CAT_GP_NOMBRE"$, Array As String("PROMOS", "PROMOS"))
 '	Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$)
 		Private hayPromos As Boolean = False
 		If c2.RowCount > 0 Then
@@ -203,8 +203,8 @@ Sub B4XPage_Appear
 	End If
 	
 	Sleep(100)
-	l_total.Visible = False
+'	l_total.Visible = False
-	l_totProds.Visible = False
+'	l_totProds.Visible = False
 	l_total.Left = 5dip
 	l_totProds.Width = Root.Width * 0.19
 	l_total.Left = l_totProds.Width + 20
@@ -253,7 +253,21 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
 '		lv_tipo.Visible = True
 		If clv_prods_ll.Size = 0 Then LlenaProdsLL(Null)
 		clv_prods_ll.AsView.Visible = True
-		If hayPedido Then p_botonesVenta.Visible = True 'Si ya hay pedido, entonces mostramos los botones.
+		
+		If hayPedido Then
+			p_botonesVenta.Visible = True 'Si ya hay pedido, entonces mostramos los botones.
+		
+		End If
+		c = B4XPages.MainPage.skmt.ExecQuery("select IFNULL(sum(PE_CANT),0) as PC_NOART, IFNULL(sum (PE_COSTO_TOT),0) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) ")
+		If c.RowCount > 0 Then
+			C.Position = 0
+			Log($"registros: ${c.RowCount}, arts: ${c.GetString("PC_NOART")}, monto:${c.GetString("PC_MONTO")}"$)
+			l_totProds.Text = "Prods: " & c.GetString("PC_NOART")
+			l_total.Text = "Total: $" & c.GetString("PC_MONTO")
+			If l_total.Text = Null Or l_total.Text = "null" Or l_total.Text = "" Then l_total.Text = "Total: $0.0"
+			If l_totProds.Text = Null Or l_totProds.Text = "null" Or l_totProds.Text = "" Then l_totProds.Text = "Prods: 0"
+		End If
+		
 	Else
 		clv_prods_ll.AsView.Visible = False
 		lv_promos.Visible = True
@@ -281,7 +295,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
 		
 		
 '		c2=B4XPages.MainPage.skmt.ExecQuery2($"select  CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND  CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )"$, Array As String(Value, Value, Value))
-		c2=B4XPages.MainPage.skmt.ExecQuery2($"select  CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND  CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )"$, Array As String(Value, Value))
+		c2=B4XPages.MainPage.skmt.ExecQuery2($"select  CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND  CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) ) ORDER BY CAT_GP_NOMBRE"$, Array As String(Value, Value))
 '		Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$)
 		If c2.RowCount > 0 Then
 			For i=0 To c2.RowCount -1
@@ -314,7 +328,7 @@ Sub lv_catalogos2_ItemClick (Position As Int, Value As Object)
 	End If
 	If Value = "PROMOS" Then
 		LogColor("Promos", Colors.red)
-		c2=B4XPages.MainPage.skmt.ExecQuery2($"select  CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND  CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )"$, Array As String(Value, marca, tipo))
+		c2=B4XPages.MainPage.skmt.ExecQuery2($"select  CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND  CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) ) ORDER BY CAT_GP_NOMBRE "$, Array As String(Value, marca, tipo))
 	Else
 		LogColor("Catalogo", Colors.red)
 		c2=B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from ${Starter.tabla} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' "$)
@@ -433,16 +447,16 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 		lv_promos.Visible = False
 		lv_catalogos.Visible = True
 		p_botonesVenta.Visible = False
-		l_total.Visible = False
+'		l_total.Visible = False
-		l_totProds.Visible = False
+'		l_totProds.Visible = False
 		Return False
 	else if clv_prods_ll.AsView.Visible Then
 		lfila.text = "CATALOGO"
 		clv_prods_ll.AsView.Visible = False
 		lv_subtipo.Visible = False
 		p_botonesVenta.Visible = False
-		l_total.Visible = False
+'		l_total.Visible = False
-		l_totProds.Visible = False
+'		l_totProds.Visible = False
 		lv_catalogos.Visible = True
 		Return False
 '	else if lv_subtipo.Visible  Then
@@ -557,6 +571,20 @@ Sub b_prodMenos_Click
 	End If
 	If Subs.totalPedido < 1 Then laCant.Text = "0"
 	invTotal = laCant.Text + Subs.traeinventario(id)
+	
+	If hayPedido Then
+		p_botonesVenta.Visible = True 'Si ya hay pedido, entonces mostramos los botones.
+		
+	End If
+	c = B4XPages.MainPage.skmt.ExecQuery("select IFNULL(sum(PE_CANT),0) as PC_NOART, IFNULL(sum (PE_COSTO_TOT),0) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) ")
+	If c.RowCount > 0 Then
+		C.Position = 0
+		Log($"registros: ${c.RowCount}, arts: ${c.GetString("PC_NOART")}, monto:${c.GetString("PC_MONTO")}"$)
+		l_totProds.Text = "Prods: " & c.GetString("PC_NOART")
+		l_total.Text = "Total: $" & c.GetString("PC_MONTO")
+		If l_total.Text = Null Or l_total.Text = "null" Or l_total.Text = "" Then l_total.Text = "Total: $0.0"
+		If l_totProds.Text = Null Or l_totProds.Text = "null" Or l_totProds.Text = "" Then l_totProds.Text = "Prods: 0"
+	End If
 '	LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red)
 End Sub
 
@@ -625,6 +653,19 @@ Sub b_prodMas_Click
 '		Log(lProdX.Text)
 	End If
 	invTotal = laCant.Text + Subs.traeinventario(id)
+	If hayPedido Then
+		p_botonesVenta.Visible = True 'Si ya hay pedido, entonces mostramos los botones.
+		
+	End If
+	c = B4XPages.MainPage.skmt.ExecQuery("select IFNULL(sum(PE_CANT),0) as PC_NOART, IFNULL(sum (PE_COSTO_TOT),0) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) ")
+	If c.RowCount > 0 Then
+		C.Position = 0
+		Log($"registros: ${c.RowCount}, arts: ${c.GetString("PC_NOART")}, monto:${c.GetString("PC_MONTO")}"$)
+		l_totProds.Text = "Prods: " & c.GetString("PC_NOART")
+		l_total.Text = "Total: $" & c.GetString("PC_MONTO")
+		If l_total.Text = Null Or l_total.Text = "null" Or l_total.Text = "" Or l_total.Text = "Total: $null" Then l_total.Text = "Total: $0.0"
+		If l_totProds.Text = Null Or l_totProds.Text = "null" Or l_totProds.Text = "" Or l_totProds.Text = "Prods: null" Then l_totProds.Text = "Prods: 0"
+	End If
 '	LogColor("InvTotal PRODMAS: " & invTotal, Colors.Red)
 End Sub
 
@@ -704,7 +745,21 @@ Private Sub et_pCant_TextChanged (Old As String, New As String)
 		
 			If New = "" Then New = 0
 			lProdX.Text = cs.Color(Colors.red).append(nombreX).pop.Append(CRLF).Append("Existencias: " & (Subs.traeinventario(id))).Color(0xFF017F01).Append($"   $${NumberFormat2(precio, 1, 2, 2, False)}"$).Popall
+			If hayPedido Then
+				p_botonesVenta.Visible = True 'Si ya hay pedido, entonces mostramos los botones.
+		
+			End If
+			c = B4XPages.MainPage.skmt.ExecQuery("select IFNULL(sum(PE_CANT),0) as PC_NOART, IFNULL(sum (PE_COSTO_TOT),0) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) ")
+			If c.RowCount > 0 Then
+				C.Position = 0
+				Log($"registros: ${c.RowCount}, arts: ${c.GetString("PC_NOART")}, monto:${c.GetString("PC_MONTO")}"$)
+				l_totProds.Text = "Prods: " & c.GetString("PC_NOART")
+				l_total.Text = "Total: $" & c.GetString("PC_MONTO")
+				If l_total.Text = Null Or l_total.Text = "null" Or l_total.Text = "" Then l_total.Text = "Total: $0.0"
+				If l_totProds.Text = Null Or l_totProds.Text = "null" Or l_totProds.Text = "" Then l_totProds.Text = "Prods: 0"
+			End If
 		End If
+		
 	End If
 End Sub
 
@@ -1060,7 +1115,7 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
 						b_prodMenos.Enabled = False
 					End If
 				End If
-				
+'				Log(clv_prods_ll.GetValue(i))
 				Private precio As String=NumberFormat2(clv_prods_ll.GetValue(i).As(Map).Get("precio").As(Double),1,2,2,False)
 				If clv_prods_ll.GetValue(i).As(Map).Get("cant") <> Null Then et_pCant.Text = clv_prods_ll.GetValue(i).As(Map).Get("cant")
 				l_prodX.Text = cs.Color(Colors.red).append(clv_prods_ll.GetValue(i).As(Map).Get("prod")).pop.append(CRLF).Append("Existencias: " & clv_prods_ll.GetValue(i).As(Map).Get("almacen")).Color(0xFF017F01).Append($"   $${precio}"$).Popall
@@ -1078,30 +1133,88 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
 	Next
 End Sub
 
+
+
 Sub Busca_TextChanged (Old As String, New As String)
 '	Private inicioContador As String = DateTime.Now
-	If Not(clv_prods_ll.AsView.Visible) Then clv_prods_ll.AsView.Visible = True
+	
 	If (New.Length = 1 Or New.Length = 2) And Not(forzarBusqueda) Then Return
 	forzarBusqueda = False
 	clv_prods_ll.Clear
 	listaProds.Initialize
 	listaHints.Initialize
 	Sleep(0)
-	Private tipoRuta As String = ""
+	If BUSCA.Text = "" Then
-	Private tRuta As Cursor = Starter.skmt.ExecQuery("select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'TIPO_RUTA'")
+		lv_promos.Visible = False
-	If tRuta.RowCount > 0 Then
+		clv_prods_ll.AsView.Visible = False
-		tRuta.Position = 0
+		
-		tipoRuta = tRuta.GetString("CAT_VA_VALOR")
 	End If
-	If tipoRuta = "MAYOREO" Then
+	If lfila.text = "PROMOS" Then
-		LogColor("#######  RUTA MAYOREO  ###########", Colors.red)
+'	If Not(lv_promos.Visible) Then lv_promos.Visible = True
-		Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO10 as CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO10 > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
+'		Private cPromo As Cursor=Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_TIPO, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
+'	Log($"res:${cPromo.RowCount}"$)
+'	If cPromo.RowCount > 0 Then
+'		lv_promos.Clear
+'		For i=0 To cPromo.RowCount -1
+'			cPromo.Position=i
+'			Private tm As Map = Subs.procesaPromocion(cPromo.GetString("CAT_GP_ID"), clienteId)
+'			If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
+'				lv_promos.AddTwoLines(cPromo.GetString("CAT_GP_NOMBRE"),"# " & cPromo.GetString("CAT_GP_ALMACEN") & " $ " & cPromo.GetString("CAT_GP_PRECIO") & " F:" & tm.Get("mp").As(Map).Get("prodsFijosCant") & " V:" & tm.Get("mp").As(Map).Get("prodsVariablesCant"))
+'				End If
+'			Next
+
+		lv_promos.Visible = True
+			c2=B4XPages.MainPage.skmt.ExecQuery2($"select  CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 AND  CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) ) ORDER BY CAT_GP_NOMBRE"$, Array As String("PROMOS", "PROMOS"))
+'		Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$)
+			If c2.RowCount > 0 Then
+				lv_promos.Clear
+				For i=0 To c2.RowCount -1
+					c2.Position=i
+					Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId)
+					If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
+						lv_promos.AddTwoLines(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO") & " F:" & tm.Get("mp").As(Map).Get("prodsFijosCant") & " V:" & tm.Get("mp").As(Map).Get("prodsVariablesCant"))
+					End If
+				Next
+			Else
+				ToastMessageShow("No hay promociones disponibles.", False)
+			End If
+			c2.Close
+			
+		If BUSCA.Text = "" Then
+			lv_promos.Visible = False
+			clv_prods_ll.AsView.Visible = False
+			lv_catalogos.Visible = True
+			lfila.text = "CATALOGOS"
+		End If
+'	Else
+'		ToastMessageShow("No hay promociones disponibles.", False)
+'		End If
+'		cPromo.Close
 	Else
-		LogColor("#######  RUTA TRADICIONAL  ###########", Colors.red)
+	
-		Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
+		If Not(clv_prods_ll.AsView.Visible) Then clv_prods_ll.AsView.Visible = True
-	End If
+		Private tipoRuta As String = ""
-	Log("Llamamos LlenaProdsLL")
+		Private tRuta As Cursor = Starter.skmt.ExecQuery("select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'TIPO_RUTA'")
-	LlenaProdsLL(p)
+		If tRuta.RowCount > 0 Then
+			tRuta.Position = 0
+			tipoRuta = tRuta.GetString("CAT_VA_VALOR")
+		End If
+		If tipoRuta = "MAYOREO" Then
+			LogColor("#######  RUTA MAYOREO  ###########", Colors.red)
+			Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO10 as CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO10 > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
+		Else
+			LogColor("#######  RUTA TRADICIONAL  ###########", Colors.red)
+			Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
+		End If
+		clv_prods_ll.AsView.Visible = True
+		Log("Llamamos LlenaProdsLL")
+		LlenaProdsLL(p)
+		If BUSCA.Text = "" Then
+			lv_promos.Visible = False
+			clv_prods_ll.AsView.Visible = False
+			lv_catalogos.Visible = True
+			lfila.text = "CATALOGOS"
+		End If
 '	Do While p.NextRow
 '		Dim tempMap As Map = CreateMap("prod":p.GetString("CAT_GP_NOMBRE"), "precio":p.GetString("CAT_GP_PRECIO"), "almacen":p.GetString("CAT_GP_ALMACEN"), "id":p.GetString("CAT_GP_ID"))
 '		listaProds.Add(tempMap)
@@ -1111,7 +1224,7 @@ Sub Busca_TextChanged (Old As String, New As String)
 '		clv_prods_ll.Add(Pnl, tempMap)
 '	Loop
 '	LogColor(clv_prods_ll.Size, Colors.red)
-''	Log(listaProds)
+		''	Log(listaProds)
 '	p.Close
 '	PCLV.B4XSeekBar1.MaxValue = clv_prods_ll.Size
 '	PCLV.B4XSeekBar1.MinValue = 0
@@ -1119,7 +1232,11 @@ Sub Busca_TextChanged (Old As String, New As String)
 '	PCLV.B4XSeekBar1.Value = clv_prods_ll.Size
 '	PCLV.B4XSeekBar1.Update
 '	Log($"Min:0, max:${clv_prods_ll.Size}, Interval:${clv_prods_ll.Size/10}"$)
-'	LogColor("TIEMPO DE PROCESO DEL TEXTCHANGED: " & ((DateTime.Now-inicioContador)/1000), Colors.Red)
+'	LogColor("TIEMPO DE PROCESO DEL TEXTCHANGED: " & ((DateTime.Now-inicioContador)/1000), Colors.Red)	
+	End If
+	
+	
+	
 End Sub
 
 Sub LlenaProdsLL(p As ResultSet)

B4A/C_Promos.bas

@@ -350,7 +350,7 @@ End Sub
 
 Private Sub ObtenerVariablesRequeridas(promo As String)
 	Log("Esto es promo: " & promo)
-	Dim cursorVariablesReq As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_STS AS CAT_GP_VAR1REQ, CAT_GP_IMP1 AS CAT_GP_VAR2REQ, CAT_GP_VARREQ3 from cat_gunaprod2 where cat_gp_id = '${promo}'"$)
+	Dim cursorVariablesReq As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_STS AS CAT_GP_VAR1REQ, CAT_GP_IMP1 AS CAT_GP_VAR2REQ, CAT_GP_VARREQ3 from cat_gunaprod2 where cat_gp_id = '${promo}' ORDER BY CAT_GP_NOMBRE"$)
 
 	If cursorVariablesReq.RowCount > 0 Then
 		cursorVariablesReq.Position = 0
@@ -446,7 +446,7 @@ Sub muestraPromo(promo As String, cliente As String)
 		
 		lblFijosRequeridos.Left = 0
 		lblFijosRequeridos.Width = Root.Width
-		Dim cursorProdFijo As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_DP_PZAS, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 0"$)
+		Dim cursorProdFijo As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_DP_PZAS, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 0 order BY CAT_GP_NOMBRE"$)
 		If cursorProdFijo.RowCount > 0 Then
 			For i = 0 To cursorProdFijo.RowCount - 1
 				cursorProdFijo.Position = i
@@ -465,7 +465,7 @@ Sub muestraPromo(promo As String, cliente As String)
 		lblVariablesRequeridas1.Text = $"Primeros Variables Requeridos: '${variablesRequeridas1}'"$
 		lblVariablesRequeridas1.Left = 0
 		lblVariablesRequeridas1.Width = Root.Width
-		Dim cursorNomProductosVar1 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 1"$)
+		Dim cursorNomProductosVar1 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 1 ORDER BY CAT_GP_NOMBRE "$)
 		If cursorNomProductosVar1.RowCount > 0 Then
 			For i = 0 To cursorNomProductosVar1.RowCount - 1
 				cursorNomProductosVar1.Position = i
@@ -483,7 +483,7 @@ Sub muestraPromo(promo As String, cliente As String)
 		lblVariablesRequeridas2.Text = $"Segundos Variables Requeridos: '${variablesRequeridas2}'"$
 		lblVariablesRequeridas2.Left = 0
 		lblVariablesRequeridas2.Width = Root.Width
-		Dim cursorNomProductosVar2 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 2"$)
+		Dim cursorNomProductosVar2 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 2 ORDER BY CAT_GP_NOMBRE "$)
 		If cursorNomProductosVar2.RowCount > 0 Then
 			For i = 0 To cursorNomProductosVar2.RowCount - 1
 				cursorNomProductosVar2.Position = i
@@ -500,7 +500,7 @@ Sub muestraPromo(promo As String, cliente As String)
 		lblVariablesRequeridas3.Visible = True
 		lblVariablesRequeridas3.Text = $"Tercer Variables Requeridas: '${variablesRequeridas3}'"$
 		lblVariablesRequeridas3.Width = Root.Width
-		Dim cursorNomProductosVar3 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 3"$)
+		Dim cursorNomProductosVar3 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO, CAT_DP_ID, CAT_DP_IDPROD, CAT_DP_TIPO FROM CAT_DETALLES_PAQ INNER JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID = '${promo}' AND CAT_DP_TIPO = 3 ORDER BY CAT_GP_NOMBRE "$)
 		If cursorNomProductosVar3.RowCount > 0 Then
 			For i = 0 To cursorNomProductosVar3.RowCount - 1
 				cursorNomProductosVar3.Position = i

B4A/C_Validador.bas

@@ -15,7 +15,7 @@ Sub Class_Globals
 	Dim skmt As SQL
 	Dim c As Cursor
 	Dim sDate, sTime As String
-	dim totalAValidar as int = 0
+	Dim totalAValidar As Int = 0
 End Sub
 
 'You can add more parameters here.
@@ -77,9 +77,11 @@ End Sub
 Sub mandaGuardados
 	Log(">>>>>>>  MANDA GUARDADOS")
 '	PEDIDO_CLIENTE (Pendientes)
-	Dim PCNoArts As String
+'	Dim PCNoArts As String
-	Dim PCMonto As String
+'	Dim PCMonto As String
 	Private almacen As String = Subs.traeAlmacen
+	DateTime.TimeFormat = "HHmmss"
+	Private elFolio As String = DateTime.Time(DateTime.Now)
 	c = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK < 2 and PC_GUARDADO = 1")
 	Log($"Pedido_Cliente PENDIENTE: ${c.RowCount}"$)
 	If c.RowCount > 0 Then
@@ -89,26 +91,27 @@ Sub mandaGuardados
 			Log($"${c.GetString("PC_CLIENTE")}|${c.GetString("PC_FECHA")}|${c.GetString("PC_ENVIO_OK")}|"$)
 			Dim cmd As DBCommand
 			cmd.Initialize
-			cmd.Name = "insert_pedidos_INTMEX"
+			cmd.Name = "insert_pedidos5_INTMEX"
-			cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), almacen, B4XPages.MainPage.principal.l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
+			cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), almacen, B4XPages.MainPage.principal.l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"), $"${Application.VersionName}|${elFolio}"$)
-			PCNoArts = c.GetString("PC_NOART")
+'			PCNoArts = c.GetString("PC_NOART")
-			PCMonto = c.GetString("PC_MONTO")
+'			PCMonto = c.GetString("PC_MONTO")
 			reqManager.ExecuteCommand(cmd , $"ins_mandaGuardados_head_${c.GetString("PC_CLIENTE")}"$)
 		Next
 	End If
 
 	'PEDIDO (Pendientes)
-	c = skmt.ExecQuery($"SELECT * FROM PEDIDO where PE_ENVIO_OK < 2 and PE_GUARDADO = 1"$)
+'	c = skmt.ExecQuery($"SELECT * FROM PEDIDO where PE_ENVIO_OK < 2 and PE_GUARDADO = 1"$)
+	c = skmt.ExecQuery($"Select (Select PC_NOART from pedido_cliente where pe_cliente = pc_cliente) As PCNoArts, (Select PC_MONTO from pedido_cliente where pe_cliente = pc_cliente) As PCMonto, * FROM PEDIDO where PE_ENVIO_OK < 2 And PE_GUARDADO = 1"$)
 	Log($"Pedido 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_pedido4_INTMEX"
+			cmd.Name = "insert_pedido5_INTMEX"
-			cmd.Parameters = Array As Object(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,c.GetString("PE_TICKET"))
+			cmd.Parameters = Array As Object(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"), c.GetString("PCNoArts"), c.GetString("PCMonto"), c.GetString("PE_TICKET"), elFolio)
 			reqManager.ExecuteCommand(cmd, $"ins_mandaGuardados_prods_${c.GetString("PE_CLIENTE")}|${c.GetString("PE_PROID")}|${c.GetString("PE_CEDIS")}"$)
-			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}, ${PCMonto}, ${c.GetString("PE_TICKET")}"$)
+			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")}, ${c.GetString("PCNoArts")}, ${c.GetString("PCMonto")}, ${c.GetString("PE_TICKET")}, ${Application.VersionName}, ${elFolio}"$)
 		Next
 	End If
 	c.Close
@@ -200,7 +203,10 @@ End Sub
 Sub JobDone(Job As HttpJob)
 '	Log(Job.Success)
 	If Job.Success = False Then
-		ToastMessageShow("Validador JobDone Error: " & Job.ErrorMessage, True)
+'		ToastMessageShow("Validador JobDone Error: " & Job.ErrorMessage, True)
+		LogColor("############################################", Colors.red)
+		LogColor("######   Validador JobError: " & Job.Tag & CRLF & Job.ErrorMessage, Colors.red)
+		LogColor("############################################", Colors.red)
 	Else
 		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)
 		If Job.JobName = "DBRequest" Then
@@ -255,7 +261,7 @@ Sub JobDone(Job As HttpJob)
 					If records(resultado.Columns.Get("AffectedRows")).As(Int) > 0 Then
 						Private pars() As String = Regex.Split("\|", cliente)
 						skmt.ExecNonQuery($"update PEDIDO set PE_ENVIO_OK = 2 where PE_CLIENTE = '${pars(0)}' and PE_PROID = '${pars(1)}' and PE_CEDIS = '${pars(2)}' and PE_ENVIO_OK = 1"$)
-						LogColor($"update PEDIDO set PE_ENVIO_OK = 2 where PE_CLIENTE = '${pars(0)}' and PE_PROID = '${pars(1)}' and PE_CEDIS = '${pars(2)}' and PE_ENVIO_OK = 1"$, Colors.red)
+'						LogColor($"update PEDIDO set PE_ENVIO_OK = 2 where PE_CLIENTE = '${pars(0)}' and PE_PROID = '${pars(1)}' and PE_CEDIS = '${pars(2)}' and PE_ENVIO_OK = 1"$, Colors.red)
 						End If
 						Next
 					End If

B4A/INTMEX.b4a

@@ -159,12 +159,12 @@ Module9=C_Nota
 NumberOfFiles=46
 NumberOfLibraries=33
 NumberOfModules=30
-Version=13
+Version=12.8
 @EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: Intmex
 	#VersionCode: 1
-	#VersionName: 5.05.30
+	#VersionName: 5.09.07 s/C
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/INTMEX.b4a.meta

@@ -65,7 +65,7 @@ ModuleClosedNodes1=
 ModuleClosedNodes10=
 ModuleClosedNodes11=
 ModuleClosedNodes12=
-ModuleClosedNodes13=4,5,6
+ModuleClosedNodes13=4,5
 ModuleClosedNodes14=11
 ModuleClosedNodes15=
 ModuleClosedNodes16=
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Promos,CalcularTotalFijos,1706,6,C_Promos,Class_Globals,62,0,C_Promos,GenerarFijos,844,4,C_Promos,muestraPromo,506,0,C_Promos,btnMenosPromo_Click,511,6,C_Promos,btnGuardaPromo_Click,1343,0,Diseñador Visual,cliente.bal,-100,3,C_Promos,btnContinuar_Click,1446,6,C_Cliente,Class_Globals,155,0,C_Cliente,B4XPage_Appear,242,3,C_Cliente,B_GUARDA_C_Click,1032,0
+NavigationStack=C_Productos,Busca_TextChanged,1143,6,C_Principal,checaPedido,2723,0,C_Principal,Class_Globals,217,0,C_Principal,B4XPage_Appear,440,0,C_Principal,b_productos_Click,2774,0,Diseñador Visual,principal.bal,-100,6,C_Principal,b_regreso_Click,2777,0,C_Principal,p_prod_Click,2781,0,C_Productos,clv_prods_ll_VisibleRangeChanged,1112,0,C_Principal,JobDone,1477,0,C_Principal,cargar_Click,910,0
 SelectedBuild=0
 VisibleModules=28,2,13,20,14,29,17,15,9,4