- VERSION 5.03.11

- Se completo el codigo para productos variables 3 en promos. - Se cambio codigo de validador para contemplar la posibilidad de que se pongan "_" en el nombre de las promos. - Se agregó columna VARREG3 a la tabla de cat_gunaprod2.
2026-04-17 12:56:08 +00:00 · 2025-03-12 21:48:32 -06:00
parent 0c84e1372d
commit 05acf1f855
9 changed files with 1390 additions and 593 deletions
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -186,6 +186,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("CAT_GUNAPROD", "CAT_GP_PRECIO9", "TEXT DEFAULT '0'")
 	Subs.agregaColumna("CAT_GUNAPROD", "CAT_GP_PRECIO10", "TEXT DEFAULT '0'")
 	Subs.agregaColumna("PEDIDO_CLIENTE", "PC_GUARDADO", "TEXT DEFAULT '0'")
+	Subs.agregaColumna("CAT_GUNAPROD2", "CAT_GP_VARREQ3", "TEXT DEFAULT '0'")

 	c=skmt.ExecQuery("select  COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
 	C.Position = 0
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -597,7 +597,7 @@ Sub Guardar_Click
 		Log(">>>>>   PONEMOS SIG TICKET")
 		B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set PE_TICKET = ${Subs.traeTicketConsecutivo(Subs.traeCliente)}, PE_GUARDADO = 1 where PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_TICKET is Null"$)
 	End If
-	B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set PE_GUARDADO = 1 where PE_CLIENTE IN (Select CUENTA from cuentaa)"$)
+	B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set PE_GUARDADO = 1, PE_ENVIO_OK = 1 where PE_CLIENTE IN (Select CUENTA from cuentaa)"$)
 	B4XPages.MainPage.skmt.ExecNonQuery($"update pedido_cliente set PC_GUARDADO = 1 where PC_CLIENTE IN (Select CUENTA from cuentaa)"$)
 	c.Close
 	DateTime.TimeFormat = "HHmmss"
@@ -625,7 +625,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!!!
 	mandapiezas
 	B4XPages.MainPage.productos.reiniciarlistaProds = True
 	B4XPages.MainPage.productos.prodsMap.Initialize
@@ -633,6 +633,8 @@ Sub Guardar_Click
 	B4XPages.ShowPage("Principal")
 End Sub

+'android.database.sqlite.SQLiteException: no such column: pe_ticket (code 1 SQLITE_ERROR): , while compiling: delete from pedido_cliente where pe_ticket is null and PC_CLIENTE In (select cuenta from cuentaa)
+
 Sub NUEVO_Click
 	B4XPages.ShowPage("NuevoCliente")
 End Sub
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -896,7 +896,7 @@ Sub cargar_Click
 '	reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done

 		cmd.Initialize
-		cmd.Name = "select_cat_paquetes_INTMEX3"
+		cmd.Name = "select_cat_paquetes_INTMEX4"
 		cmd.Parameters = Array As Object(ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
 '		Log("ALMACEN = " & ALMACEN)
@@ -1542,28 +1542,29 @@ Sub JobDone(Job As HttpJob)

 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
-			If RESULT.Tag = "gunaprodp" Then 'query tag
-				For Each records() As Object In RESULT.Rows
-					Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
-					Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
-					Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
-					Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
-					Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
-					Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
-					Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
-					Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
-					Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
-					Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
-					Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
-					Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
-					CAT_GP_TIPOPROD = "5"
-					If CAT_GP_ID = "PAQUNI003" Then
-						CAT_GP_ALMACEN = 60
-					End If
+				If RESULT.Tag = "gunaprodp" Then 'query tag
+					For Each records() As Object In RESULT.Rows
+						Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
+						Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
+						Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
+						Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
+						Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
+						Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
+						Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
+						Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
+						Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
+						Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
+						Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
+						Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
+						Dim CAT_GP_VARREQ3 As Int = records(RESULT.Columns.Get("CAT_GP_VARREQ3"))
+						CAT_GP_TIPOPROD = "5"
+						If CAT_GP_ID = "PAQUNI003" Then
+							CAT_GP_ALMACEN = 60
+						End If
 '					Log("XXXXXXX gunaprodp XXXXXXXXX  " & CAT_GP_ID & "|" & CAT_GP_IMP1 & "|" & CAT_GP_IMP2)
-					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
-					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
-				Next
+						B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
+						B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_VARREQ3) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_VARREQ3))
+					Next
 				If PB2.Progress = 0 Then
 					PB2.Progress = 30
 					S_CP.Text = "CARGANDO"
--- a/B4A/C_Promos.bas
+++ b/B4A/C_Promos.bas
--- a/B4A/C_Validador.bas
+++ b/B4A/C_Validador.bas
@@ -47,6 +47,7 @@ Sub iniciaValidacion
 	Sleep(5000)
 	revisaCantsYMontosTotales
 	Log("TIMER RESET")
+	
 	timerValidador.Enabled = False
 	timerValidador.Initialize("timerValidador", intervalo * 1000)
 	timerValidador.Enabled = True
@@ -91,7 +92,7 @@ Sub mandaGuardados
 			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_mandaGuardados_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}_${c.GetString("PE_CEDIS")}"$)
+			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")}"$)
 		Next
 	End If
@@ -114,7 +115,7 @@ Sub revisaGuardados
 			Dim cmd As DBCommand
 			cmd.Initialize
 			cmd.Name = "validaPC_Intmex"
-			cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_USER"), c.GetString("PC_FECHA"), c.GetString("PC_MONTO"), c.GetString("PC_NOART"), almacen, laRuta)
+			cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_USER"), c.GetString("PC_FECHA"), almacen, laRuta)
 '			PCNoArts = c.GetString("PC_NOART")
 '			PCMonto = c.GetString("PC_MONTO")
 			reqManager.ExecuteCommand(cmd , $"ins_revisaGuardados_head_${c.GetString("PC_CLIENTE")}"$)
@@ -131,7 +132,7 @@ Sub revisaGuardados
 			cmd.Initialize
 			cmd.Name = "validaProd_Intmex"
 			cmd.Parameters = Array As Object(C.GetString("PE_CLIENTE"),C.GetString("PE_USUARIO"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CEDIS"),almacen,laRuta)
-			reqManager.ExecuteCommand(cmd , $"ins_revisaGuardados_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}_${c.GetString("PE_CEDIS")}"$)
+			reqManager.ExecuteCommand(cmd , $"ins_revisaGuardados_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")}"$)
 		Next
 	End If
@@ -193,13 +194,15 @@ Sub JobDone(Job As HttpJob)
 				Log("ins_mandaGuardados_prods_")
 				Subs.logJobDoneResultados(resultado)
 				Private cliente As String= resultado.Tag
-				cliente = cliente.SubString(cliente.IndexOf("_")+25)
+				cliente = cliente.SubString(cliente.IndexOf("_")+22)
 				Log($"Cliente2:${cliente}"$)
 				For Each records() As Object In resultado.Rows
 					Log("AffectedRows: " & records(resultado.Columns.Get("AffectedRows")))
 					If records(resultado.Columns.Get("AffectedRows")).As(Int) > 0 Then
-						Private pars() As String = Regex.Split("_", resultado.tag)
-						skmt.ExecNonQuery($"update PEDIDO set PE_ENVIO_OK = 1 where PE_CLIENTE = '${pars(3)}' and PE_PROID = '${pars(4)}' and PE_CEDIS = '${pars(5)}' and PE_ENVIO_OK = 0"$)
+						Private pars() As String = Regex.Split("\|", cliente)
+						Log($"${pars(0)},${pars(1)},${pars(2)}"$)
+						LogColor($"update PEDIDO set PE_ENVIO_OK = 1 where PE_CLIENTE = '${pars(0)}' and PE_PROID = '${pars(1)}' and PE_CEDIS = '${pars(2)}' and PE_ENVIO_OK = 0"$, Colors.red)
+						skmt.ExecNonQuery($"update PEDIDO set PE_ENVIO_OK = 1 where PE_CLIENTE = '${pars(0)}' and PE_PROID = '${pars(1)}' and PE_CEDIS = '${pars(2)}' and PE_ENVIO_OK = 0"$)
 					End If
 				Next
 			End If
@@ -209,25 +212,28 @@ Sub JobDone(Job As HttpJob)
 				Log("ins_revisaGuardados_prods_")
 				Subs.logJobDoneResultados(resultado)
 				Private cliente As String= resultado.Tag
-				cliente = cliente.SubString(cliente.IndexOf("_")+25)
+				cliente = cliente.SubString(cliente.IndexOf("_")+23)
 				Log($"Cliente2:${cliente}"$)
 				For Each records() As Object In resultado.Rows
 					Log("AffectedRows: " & records(resultado.Columns.Get("AffectedRows")))
 					If records(resultado.Columns.Get("AffectedRows")).As(Int) > 0 Then
-						Private pars() As String = Regex.Split("_", resultado.tag)
-						skmt.ExecNonQuery($"update PEDIDO set PE_ENVIO_OK = 2 where PE_CLIENTE = '${pars(3)}' and PE_PROID = '${pars(4)}' and PE_CEDIS = '${pars(5)}' and PE_ENVIO_OK = 1"$)
+						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)
+						End If
+						Next
 					End If
-				Next
-			End If
 '			REVISA GUARDADOS HEAD
 			If resultado.Tag.As(String).IndexOf("ins_revisaGuardados_head_") > -1 Then
 				Log("ins_revisaGuardados_head_")
-				Subs.logJobDoneResultados(resultado)
+			Subs.logJobDoneResultados(resultado)
 				Private cliente As String= resultado.Tag
-				cliente = cliente.SubString(cliente.IndexOf("_") + 24)
+				cliente = cliente.SubString(cliente.IndexOf("_") + 22)
+				Log(cliente)
 				For Each records() As Object In resultado.Rows
-					If records(resultado.Columns.Get("AffectedRows")).As(Int) > 0 Then
-						Private pars() As String = Regex.Split("_", resultado.tag)
+				If records(resultado.Columns.Get("AffectedRows")).As(Int) > 0 Then
+					Private pars() As String = Regex.Split("_", resultado.tag)
+'						Log($"update PEDIDO_CLIENTE set PC_ENVIO_OK = 2 where PC_CLIENTE = '${pars(3)}'"$)
 						skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_ENVIO_OK = 2 where PC_CLIENTE = '${pars(3)}'"$)
 					End If
 				Next
@@ -247,6 +253,17 @@ Sub JobDone(Job As HttpJob)
 					' Si montos y cantidades coinciden en local y web, ponemos PC_ENVIO_OK en 3, si no, REINICIAMOS TODO!!
 					If pars(2) = CANTT And pars(3) = COSTOT Then
 						skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_ENVIO_OK = 3 where PC_CLIENTE = '${pars(1)}' and PC_NOART = ${CANTT} and PC_MONTO = ${COSTOT}"$)
+						' Si el numero de articulos y monto total coinciden en web y local, ponemos PC_VALIDADO en 2.
+						Private pc As Cursor =skmt.ExecQuery($"select * from pedido_cliente where pc_cliente = '${pars(1)}'"$)
+						If pc.RowCount > 0 Then
+							pc.Position = 0
+							Dim cmd As DBCommand
+							cmd.Initialize
+							cmd.Name = "validaCCT2_Intmex"
+							cmd.Parameters = Array As Object(pc.GetString("PC_CLIENTE"), pc.GetString("PC_USER"), pc.GetString("PC_FECHA"), pc.GetString("PC_MONTO"), pc.GetString("PC_NOART"), Subs.traeAlmacen, Subs.traeRuta)
+							reqManager.ExecuteCommand(cmd , $"validaCCT2_${pc.GetString("PC_CLIENTE")}"$)
+						End If
+
 					Else
 						LogColor("################################################################", Colors.red)
 						LogColor("##### LAS CANTIDADES Y MONTOS NO COINCIDEN EN WEB #####", Colors.red)
@@ -256,6 +273,12 @@ Sub JobDone(Job As HttpJob)
 					End If
 				Next
 			End If
+'			VALIDA CANTIDADES Y COSTOS TOTALES
+			If resultado.Tag.As(String).IndexOf("validaCCT2_") > -1 Then
+				Log("validaCCT2_")
+				Subs.logJobDoneResultados(resultado)
+
+			End If
 '			If resultado.Tag.As(String).IndexOf("validaProds_") > -1 Then
 '				Log("validaProds_")
 '				Subs.logJobDoneResultados(resultado)
--- a/B4A/INTMEX.b4a
+++ b/B4A/INTMEX.b4a
@@ -165,7 +165,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Intmex
 	#VersionCode: 1
-	#VersionName: 5.03.02.MV
+	#VersionName: 5.03.11.MV
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
--- a/B4A/INTMEX.b4a.meta
+++ b/B4A/INTMEX.b4a.meta
@@ -67,7 +67,7 @@ ModuleClosedNodes11=
 ModuleClosedNodes12=
 ModuleClosedNodes13=3
 ModuleClosedNodes14=11
-ModuleClosedNodes15=1,10,11
+ModuleClosedNodes15=21
 ModuleClosedNodes16=
 ModuleClosedNodes17=
 ModuleClosedNodes18=
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_TicketsDia,B4XPage_Appear,92,6,C_Principal,JobDone,1558,0,C_Principal,Subir_Click,695,0,C_Validador,timerValidador_Tick,52,0,C_Validador,Class_Globals,11,0,C_Validador,iniciaValidacion,37,0,C_Validador,revisaGuardados,113,0,C_Validador,mandaGuardados,87,0,C_Validador,JobDone,196,0,C_Validador,revisaCantsYMontosTotales,142,0
+NavigationStack=C_Promos,ObtenerVariablesRequeridas,351,0,C_Promos,B4XPage_Created,235,0,C_Promos,GenerarPanelesP1,750,0,C_Promos,Class_Globals,56,0,C_Validador,mandaGuardados,67,0,Tracker,CreateNotification,199,0,C_Validador,revisaGuardados,128,0,C_Validador,JobDone,241,3,C_Promos,btnGuardaPromo_Click,975,2,C_Promos,btnContinuar_Click,1156,0,Main,Activity_Create,29,0
 SelectedBuild=0
 VisibleModules=2,28,13,14,4,20,29,15,16,18
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -823,7 +823,7 @@ Sub actualizaProductoConTicket(cedis As String, costoU As String, cant As Int, n
 			B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_ticket is null and pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}'"$)
 			Private pe As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(pe_cliente) as cuantosPedidos from pedido where pe_ticket is null and pe_cliente In (select cuenta from cuentaa)")
 			pe.Position = 0
-			If pe.GetString("cuantosPedidos") = 0 Then B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pe_ticket is null and PC_CLIENTE In (select cuenta from cuentaa)")
+			If pe.GetString("cuantosPedidos") = 0 Then B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") 'pe_ticket is null and
 		End If
 	Else
 		'INSERTAMOS
--- a/B4A/Validador.bas
+++ b/B4A/Validador.bas
@@ -0,0 +1,45 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=StaticCode
+Version=12.8
+@EndOfDesignText@
+'Code module
+'Subs in this code module will be accessible from all modules.
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+	Dim reqManager As DBRequestManager
+End Sub
+
+Sub prueba
+	Log(456789)
+	reqManager.Initialize(reqManager, Starter.DBReqServer)
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "select_ruta_INTMEX_7"
+	cmd.Parameters = Array As Object(5, 1)
+'	Log($"${ALMACEN},${e_ruta.text},${imei}"$)
+	reqManager.ExecuteQuery(cmd , 0, "ruta")
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	Log(Job.Success)
+	If Job.Success = False Then
+		Log("Error: " & Job.ErrorMessage)
+	Else
+		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211027
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "ruta" Then 'query tag
+				Log("JOBDONE VALIDADOR RUTA")
+				Log(RESULT.Rows.Size)
+				Subs.logJobDoneResultados(RESULT)
+			End If
+		End If
+		
+		
+		Job.Release
+	End If
+	
+End Sub