- VERSION 4.11.18

- Se agregó Marquez para el envío y validación de infromación.

B4A/B4XMainPage.bas

@@ -85,6 +85,7 @@ Sub Class_Globals
 	Dim intentUsado As Boolean = False
 	Dim Intmex As C_Intmex
 	Dim Durakelo As C_Durakelo
+	Dim Marquez As C_Marquez
 	Private l_version0 As Label
 End Sub
 
@@ -124,9 +125,11 @@ Sub B4XPage_Created (Root1 As B4XView)
 	sp_empresa.Add("Guna")
 	sp_empresa.Add("Intmex")
 	sp_empresa.Add("Mariana")
+	sp_empresa.Add("Marquez")
 	i_engrane.Left = Root.Width - i_engrane.Width - 5dip
 	Intmex.Initialize
 	Durakelo.Initialize
+	Marquez.Initialize
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -269,6 +272,11 @@ Sub B4XPage_Appear
 		b_valida.Text = "Validar Durakelo"
 		b_enviar.Enabled = True
 		Log("Cargamos DURAKELO")
+	else if empresa.ToUpperCase.Contains("MARQUEZ") Then
+		b_enviar.Text = "Enviar Marquez"
+		b_valida.Text = "Validar Marquez"
+		b_enviar.Enabled = True
+		Log("Cargamos MARQUEZ")
 	Else
 		p_empresa.Visible = True
 		b_enviar.Enabled = False
@@ -291,6 +299,8 @@ Sub b_enviar_Click
 			envioIntmex
 		else if empresa.ToUpperCase.Contains("DURAKELO") Then
 			envioDurakelo
+		else if empresa.ToUpperCase.Contains("MARQUEZ") Then
+			envioMarquez
 		End If
 '		Sleep(5000)
 	End If
@@ -682,6 +692,10 @@ Sub envioDurakelo 'ignore
 	Durakelo.envia
 End Sub
 
+Sub envioMarquez 'ignore
+	Marquez.envia
+End Sub
+
 Sub envioGuna 'ignore
 	Private PASO As Int = 1
 	reqManager.reqsList.Initialize 'inicializamos lista de requests.
@@ -964,6 +978,8 @@ Private Sub b_valida_Click
 		Intmex.valida
 	else if empresa.ToUpperCase.Contains("DURAKELO") Then
 		Durakelo.valida
+	else if empresa.ToUpperCase.Contains("MARQUEZ") Then
+		Marquez.valida
 	End If
 End Sub
 

B4A/C_Durakelo.bas

@@ -196,7 +196,6 @@ Sub envia
 			Log(LastException)
 		End Try
 
-
 '		' PEDIDO
 		B4XPages.MainPage.skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")
 		If perfil = "V-ESPECIAL" Then

B4A/DBCheck.b4a

@@ -28,19 +28,20 @@ Module1=B4XMainPage
 Module2=C_Durakelo
 Module3=C_Envios
 Module4=C_Intmex
-Module5=DBRequestManager
-Module6=FileHandler
-Module7=Starter
-Module8=Subs
+Module5=|relative|..\C_Marquez
+Module6=DBRequestManager
+Module7=FileHandler
+Module8=Starter
+Module9=Subs
 NumberOfFiles=6
 NumberOfLibraries=11
-NumberOfModules=8
+NumberOfModules=9
 Version=12.8
 @EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: DBCheck
 	#VersionCode: 1
-	#VersionName: 4.11.01
+	#VersionName: 4.11.18
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/DBCheck.b4a.meta

@@ -7,6 +7,7 @@ ModuleBookmarks5=
 ModuleBookmarks6=
 ModuleBookmarks7=
 ModuleBookmarks8=
+ModuleBookmarks9=
 ModuleBreakpoints0=
 ModuleBreakpoints1=
 ModuleBreakpoints2=
@@ -16,15 +17,17 @@ ModuleBreakpoints5=
 ModuleBreakpoints6=
 ModuleBreakpoints7=
 ModuleBreakpoints8=
+ModuleBreakpoints9=
 ModuleClosedNodes0=2,6
 ModuleClosedNodes1=7,8,9,11,12,13,15,16,17,18,19,20,21
-ModuleClosedNodes2=6
+ModuleClosedNodes2=
 ModuleClosedNodes3=4,5
 ModuleClosedNodes4=
 ModuleClosedNodes5=
 ModuleClosedNodes6=
-ModuleClosedNodes7=1
-ModuleClosedNodes8=12,13,14
-NavigationStack=B4XMainPage,l_usuario2_LongClick,429,0,C_Durakelo,Class_Globals,10,2,C_Intmex,Class_Globals,10,0,C_Intmex,envia,22,0,C_Durakelo,JobDone,412,6,C_Intmex,JobDone,321,0,C_Durakelo,envia,214,6,C_Durakelo,T4_Tick,457,1,C_Durakelo,valida,443,0,B4XMainPage,b_guardaRuta_Click,452,6,Visual Designer,MainPage.bal,-100,1
+ModuleClosedNodes7=
+ModuleClosedNodes8=1
+ModuleClosedNodes9=12,13,14
+NavigationStack=B4XMainPage,envioMarquez,688,0,B4XMainPage,envioDurakelo,685,0,B4XMainPage,b_valida_Click,973,1,B4XMainPage,Class_Globals,81,1,C_Marquez,valida,446,0,C_Durakelo,envia,191,0,C_Marquez,Initialize,21,1,C_Durakelo,JobDone,344,0,C_Marquez,envia,254,0,C_Marquez,JobDone,473,1
 SelectedBuild=0
-VisibleModules=1,8,5,4,2
+VisibleModules=1,9,4,2,5,6

B4A/DBRequestManager.bas

@@ -9,7 +9,7 @@ Sub Class_Globals
 	Private mTarget As Object
 	Type DBResult (Tag As Object, Columns As Map, Rows As List)
 	Type DBCommand (Name As String, Parameters() As Object)
-	dim link As String
+	Dim link As String
 	Private bc As ByteConverter
 	Private T_NULL = 0, T_STRING = 1, T_SHORT = 2, T_INT = 3, T_LONG = 4, T_FLOAT = 5 _
 		,T_DOUBLE = 6, T_BOOLEAN = 7, T_BLOB = 8 As Byte

B4A/Subs.bas

@@ -172,6 +172,20 @@ Sub traeRuta As String 'ignore
 	Return r
 End Sub
 
+'Regresa la ruta actual de la base de datos.
+Sub traeRuta2 (cliente As String) As String 'ignore
+	Private c As Cursor
+	Private r As String
+	c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '${cliente}' UNION ALL select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${cliente}'"$)
+	r = "0"
+	If c.RowCount > 0 Then
+		c.Position=0
+		r = c.GetString("CAT_CL_RUTA")
+	End If
+	c.Close
+	Return r
+End Sub
+
 'Regresa la ruta del cliente dado de la tabla pedido.
 Sub traeRutaPedidoCliente(idcliente As String) As String 'ignore
 	Private r As String

C_Marquez.bas

@@ -0,0 +1,543 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=12.8
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	Dim reqManager As DBRequestManager
+	Dim cmd As DBCommand
+	Dim datos_iguales, almacen, carga, paso, conteo, porcentaje, perfil, cuantos, NUMERO_PEDIDO, usuario, cuantos_exib, cuantos_pedidosc, cuantos_noventa, cuantos_ped, cuantos_pedido As String
+	Dim e1, c, d, d3, d9 As Cursor
+	Dim l_ruta, L_ABORDO, l_porvisitar As Label
+	Dim sDate,sTime As String
+	Dim userpiezas As String
+	Dim T3, T4 As Timer
+	Dim enviando As Boolean = False
+	Dim validando As Boolean = False
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	reqManager.Initialize(Me, "http://keymon.lat:1781")
+	l_ruta.Initialize("")
+	L_ABORDO.Initialize("")
+	l_porvisitar.Initialize("")
+	T4.Initialize("T4", 3000)
+	T4.Enabled = False
+End Sub
+
+'This event will be called once, before the page becomes visible.
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	'load the layout to Root
+	
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub envia
+	carga = "SUBIR"
+	almacen = Subs.traeAlmacen
+	l_ruta.TEXT = Subs.traeRuta
+'	p_mandaInfo.Width = Root.Width
+'	p_mandaInfo.Height = Root.Height
+'	P1.Visible = True
+'	P1.Left = (p_mandaInfo.Width/2) - (P1.Width/2)
+'	P1.top = (p_mandaInfo.Height/2) - (P1.Height/2)
+'	p_mandaInfo.Visible = True
+'	P1.BringToFront
+'	p_mandaInfo.BringToFront
+	'trabajar.Visible = False
+'	NUEVO.Visible =False
+'	BUSCA.Visible=False
+'	connecta.Visible=False
+'	Subir.Visible=False
+'	cargar.Visible=False
+'	L_P_1.Visible = False
+'	S_CC.Visible = False
+'	L_P_3.Visible = False
+'	S_CH.Visible = False
+'	PB1.Visible = False
+'	Resumen.Visible= False
+'	L_P_2.Text = "Envio de Pedidos"
+'	L_P_3.Text = "Envio de Pedidos"
+'	S_CH.Text = "EN PROCESO"
+'	S_CP.Text = "EN PROCESO"
+'	PB1.Progress = 0
+'	PB2.Progress = 0
+	'c=skmt.ExecQuery("SELECT sum(IFNULL(PE_DESC,0)) as DESCUENTO FROM PEDIDO")
+	'c.Position =0
+	'If c.GetString("DESCUENTO") > 0 And PASO = 0 Then
+	'P1.Visible = True
+	'ELSE IF c.GetString("DESCUENTO") = 0 Then
+	paso = 1
+	'End If
+	If paso = 1 Then
+		B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") )
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
+		c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
+		c.Position = 0
+		usuario = c.GetString("USUARIO")
+		c.Close
+'		c=B4XPages.MainPage.skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
+'		If c.RowCount>0 Then
+'			For i=0 To c.RowCount -1
+'				c.Position=i
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "UPDATE_MARQUEZ_ACTUAL2_GPS"
+'				cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,almacen,l_ruta.Text )
+'				reqManager.ExecuteCommand(cmd , "update_gps")
+'			Next
+'		End If
+'		c.Close
+
+		' ENVIO DE LOS CODIGOS QR
+		'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK"))
+		c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" )
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_QR_2_MARQUEZ"
+				cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),almacen,l_ruta.text )
+				reqManager.ExecuteCommand(cmd , "ins_QR")
+			Next
+		End If
+		c.Close
+
+		c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO, CAT_CL_CODIGO, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL")
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+				's=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO")))
+				's.Position =0
+'				foto1 = c.GetBlob("CAT_CL_FOTO")
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_QR_MARQUEZ"
+				cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),almacen,l_ruta.text )
+				reqManager.ExecuteCommand(cmd , "ins_QR")
+			Next
+		End If
+		c.Close
+		
+		'Envio de Pagares
+		c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PAGARES")
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_pagares_MARQUEZ"
+				cmd.Parameters = Array As Object(C.GetString("PA_ALMACEN"),Subs.traeRuta2(c.GetString("PA_CLIENTE")),C.GetString("PA_FECHA"),C.GetString("PA_CAPTURA"),C.GetString("PA_MONTO"),C.GetString("PA_USUARIO"),C.GetString("PA_CLIENTE") )
+				reqManager.ExecuteCommand(cmd , "ins_pagares")
+			Next
+		End If
+		c.Close
+		
+		' CLIENTES NUEVOS
+'		Dim fotocn() As Byte
+'		Dim Dirp As String = File.DirInternal
+'		Dim Dir As String
+'		Dim Dir2 As String
+'		Dir = "/promotoriakmts"
+		
+		c=B4XPages.MainPage.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA, CN_COLONIA, CN_TELEFONO FROM CLIENTES_NUEVOS")
+		If c.RowCount>0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
+				If dia = 2  Then
+					Dim dialetra As String = "LUNES"
+				Else If dia = 3  Then
+					Dim dialetra As String = "MARTES"
+				Else If dia = 4  Then
+					Dim dialetra As String = "MIERCOLES"
+				Else If dia = 5  Then
+					Dim dialetra As String = "JUEVES"
+				Else If dia = 6  Then
+					Dim dialetra As String = "VIERNES"
+				Else If dia = 7  Then
+					Dim dialetra As String = "SABADO"
+				End If
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_clientesnuevos_MARQUEZ3"
+				cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),almacen, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"))
+				reqManager.ExecuteCommand(cmd , "inst_clientesn")
+			Next
+		End If
+		c.Close
+
+'		c=B4XPages.MainPage.skmt.ExecQuery("SELECT  HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
+'		If c.RowCount>0 Then
+'			For i=0 To c.RowCount -1
+'				c.Position=i
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "insert_encuesta_INTMEX"
+'				cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"))
+'				reqManager.ExecuteCommand(cmd , "inst_noventa")
+'			Next
+'		End If
+'		c.Close
+		
+		' PEDIDO_CLIENTE
+		Dim PCNoArts As String
+		Dim PCMonto As String
+		c = B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE WHERE PC_CLIENTE <> '1' ")
+		d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE WHERE PC_CLIENTE <> 1 ")
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_pedidos_MARQUEZ"
+				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, Subs.traeRuta2(c.GetString("PC_CLIENTE")), c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
+				reqManager.ExecuteCommand(cmd , "ins_pedidos")
+				Log(">>>>>>  INSERT PEDIDO_CLIENTE")
+			Next
+		End If
+		c.Close
+		d.Position = 0
+		cuantos_pedidosc = d.GetString("CUANTOS_PEDIDOSC")
+		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_CANTC, PE_BCAJAS FROM PEDIDO WHERE PE_FOLIO <> 'RECARGA'")
+		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_pedido2_MARQUEZ" 'CON TOTALES INCLUIDOS
+				Log(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")&", "&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_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"),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"))
+				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}"$)
+'				cmd.Name = "insert_pedido_INTMEX"  ' SIN 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"))
+'				reqManager.ExecuteCommand(cmd , "ins_pedido")
+			Next
+		End If
+		c.Close
+		d.Position=0
+		cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
+		d.Close
+
+		' NOVENTA
+		c=B4XPages.MainPage.skmt.ExecQuery("SELECT  NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA")
+		D=B4XPages.MainPage.skmt.ExecQuery("SELECT  COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_noventa_MARQUEZ"
+				cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), almacen, Subs.traeRuta2(c.GetString("NV_CLIENTE")))
+				reqManager.ExecuteCommand(cmd , "inst_noventa")
+			Next
+		End If
+		c.Close
+		d.Position=0
+		cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
+		d.Close
+
+		' GEO CERCA
+		c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_geocerca_MARQUEZ"
+				cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON"))
+				reqManager.ExecuteCommand(cmd , "inst_noventa")
+			Next
+		End If
+		c.Close
+
+		' LO DEL LIKE
+		c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE")
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_face_like_MARQUEZ"
+				cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN"))
+				reqManager.ExecuteCommand(cmd , "inst_noventa")
+			Next
+		End If
+		c.Close
+
+		' DROP
+'		t1.Initialize("T1", 30000) ' 1000 = 1 second
+'		t1.Enabled = True
+'		Dim sDate,sTime As String
+'		DateTime.DateFormat = "MM/dd/yyyy"
+'		sDate=DateTime.Date(DateTime.Now)
+'		sTime=DateTime.Time(DateTime.Now)
+'		Dim cmd As DBCommand
+'		cmd.Initialize
+'		cmd.Name ="insert_drop_MARQUEZ"
+'		cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen,Application.VersionName)
+'		reqManager.ExecuteCommand(cmd , "inst_noventa")
+		''		img2.Visible =True
+'		porcentaje = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
+'		If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
+
+'		'CUESTIONARIOS
+'		c = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario"$)
+'		Private rutaActual As String = Subs.traeRuta
+'		If c.RowCount > 0 Then
+'			For x = 0 To c.RowCount - 1
+'				c.Position = x
+'				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 , "ins_cuestionario")
+'			Next
+'		End If
+'		c.Close
+
+		c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE <> 01")
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "select_piezas_MARQUEZ"
+				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), almacen,l_ruta.Text)
+				userpiezas = c.GetString("PC_CLIENTE")
+				reqManager.ExecuteQuery(cmd , 0, "piezas")
+			Next
+		End If
+	End If
+	T4.Initialize("T4", 3000)
+	T4.Enabled = True
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
+		LogColor($">>>>>>>>>>  Llega ${Job.tag}  <<<<<<<<<<"$, Colors.Blue)
+		If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
+			reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
+'			LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
+		End If
+		LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
+	End If
+	If Job.Success = False Then
+		LogColor("############################################", Colors.red)
+		LogColor("####  Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
+		LogColor("############################################", Colors.red)
+	Else
+'		Log(3)
+		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0))  'Mod por CHV - 211027
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
+				If reqManager.reqsList.IndexOf(RESULT.tag) <> -1 Then
+					reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(RESULT.tag))
+					LogColor($"*** Quitamos ${RESULT.tag}"$, Colors.Magenta)
+					T4.Initialize("T4", 2000)
+				End If
+				LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.red)
+			End If
+		End If
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "ins_pedidos" Then
+				For Each records() As Object In RESULT.Rows
+'					Log("==========================REGISTROS="&RESULT.Rows)
+					For Each k As String In RESULT.Columns.Keys
+						Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
+					Next
+				Next
+			End If
+			Dim resultado As DBResult = reqManager.HandleJob(Job)
+			If resultado.Tag = "piezas" Then 'query tag
+'				B4XPages.MainPage.picking.cl_picking.Clear
+				Dim piezasexiste As Int
+				sDate=DateTime.Date(DateTime.Now)
+				sTime=DateTime.Time(DateTime.Now)
+				For Each records() As Object In resultado.Rows
+					piezasexiste = records(resultado.Columns.Get("COUNT(*)"))
+					Log(piezasexiste)
+					DateTime.DateFormat = "MM/dd/yyyy"
+					DateTime.TimeFormat = "HH:mm:ss"
+					sDate=DateTime.Date(DateTime.Now)
+					sTime=DateTime.Time(DateTime.Now)
+					If piezasexiste =  0 Then
+						Dim PCNoArts As String
+						Dim PCMonto As String
+						c = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ? AND PC_CLIENTE <> 1", Array As String(userpiezas))
+						If c.RowCount > 0 Then
+							c.Position = 0
+							PCNoArts = c.GetString("PC_NOART")
+							PCMonto = c.GetString("PC_MONTO")
+						End If
+						Dim cmd As DBCommand
+						cmd.Initialize
+						cmd.Name = "insert_HVC_MARQUEZ"
+						cmd.Parameters = Array As Object((sDate & " " & sTime), userpiezas, PCNoArts, PCMonto, almacen, l_ruta.Text)
+						reqManager.ExecuteCommand(cmd , "insert_hvc")
+'						reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
+					End If
+				Next
+			End If
+			
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+'			If RESULT.Tag = "valida_pedido" Then 'query tag
+'				For Each records() As Object In RESULT.Rows
+'					Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
+'					If cuantos_pedido <= CUANTOSP Then
+'						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
+'						datos_iguales = "ok"
+'						ToastMessageShow("INFO OK", False)
+'					Else
+''						If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
+'						ToastMessageShow("ENVIAR DATOS (K-2)", False)
+'					End If
+'				Next
+'			End If
+			If RESULT.Tag = "valida_pedido" Then 'query tag
+				Subs.logJobDoneResultados(RESULT)
+				For Each records() As Object In RESULT.Rows
+					Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
+					Log(CUANTOSP)
+					B4XPages.MainPage.l_vProds2.Text = $"${CUANTOSP}/${cuantos_pedido}"$
+					If cuantos_pedido <= CUANTOSP Then
+						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
+						datos_iguales = "ok"
+'						S_CP.Text = "INFO OK"
+						ToastMessageShow("INFO OK", False)
+					Else
+'						S_CP.Text = "ENVIAR DATOS (K-2)"
+						ToastMessageShow($"No se cargo bien la info de pedido.${CRLF}Envíe nuevamente: "$ & CUANTOSP & "/" & cuantos_pedido, True)
+						ToastMessageShow("ENVIAR DATOS (K-2)", True)
+						Log("No se cargo bien la info de pedido. Envíe nuevamente: " & CUANTOSP & "/" & cuantos_pedido)
+					End If
+				Next
+			End If
+			
+			If RESULT.Tag = "valida_pedidoc" Then 'query tag
+				Subs.logJobDoneResultados(RESULT)
+				For Each records() As Object In RESULT.Rows
+					Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC"))
+					B4XPages.MainPage.l_vPedidos2.Text = $"${CUANTOSC}/${cuantos_pedidosc}"$
+					If cuantos_pedidosc = CUANTOSC Then
+						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
+						datos_iguales = "ok"
+					Else
+						ToastMessageShow($"No se cargo bien la info de pedido_cliente.${CRLF}Envíe nuevamente: "$  & CUANTOSC & "/" & cuantos_pedidosc, True)
+						Log("No se cargo bien la info de pedido_cliente. Envíe nuevamente: "  & CUANTOSC & "/" & cuantos_pedidosc)
+					End If
+				Next
+			End If
+
+			If RESULT.Tag = "valida_noventa" Then 'query tag
+				Subs.logJobDoneResultados(RESULT)
+				For Each records() As Object In RESULT.Rows
+					Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN"))
+					B4XPages.MainPage.l_vNoVenta2.Text = $"${CUANTOSN}/${cuantos_noventa}"$
+					If cuantos_noventa = CUANTOSN Then
+						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
+						datos_iguales = "ok"
+					Else
+						ToastMessageShow($"No se cargo bien la info de NoVenta.${CRLF}Envíe nuevamente: "$  & CUANTOSN & "/" & cuantos_noventa, True)
+						Log("No se cargo bien la info de NoVenta. Envíe nuevamente:"  & CUANTOSN & "/" & cuantos_noventa)
+					End If
+				Next
+			End If
+
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "ins_pedido" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+'				PB2.Progress = PB2.Progress + 5
+'				S_CP.Text = "SUBIENDO"
+				Next
+'			PB2.Progress = 100
+'			S_CP.Text = "REVISANDO ..."
+'			Log("5")
+			End If
+
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "ins_cuestionario" Then 'query tag
+				Subs.logJobDoneResultados(RESULT)
+			End If
+		End If
+	End If
+'	Log(reqManager.reqsList.size)
+	If reqManager.reqsList.size = 0 Then
+		T4.Enabled = True
+	Else
+		T4.Enabled = False
+	End If
+	Job.Release
+End Sub
+
+Sub valida
+	validando = True
+	almacen = Subs.traeAlmacen
+	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
+	d.Position = 0
+	cuantos_pedido = d.GetString("CUANTOS_PEDIDO")
+	
+	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE")
+	d.Position = 0
+	cuantos_pedidosc = d.GetString("CUANTOS_PEDIDOSC")
+
+	d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
+	d.Position = 0
+	cuantos_noventa = d.GetString("CUANTOS_NOVENTA")
+	d.Close
+	
+	cmd.Initialize
+	cmd.Name = "select_cuantos_pedido_MARQUEZ"
+	cmd.Parameters = Array As Object(almacen,l_ruta.text)
+	reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
+
+	cmd.Initialize
+	cmd.Name = "select_cuantos_noventa_MARQUEZ"
+	cmd.Parameters = Array As Object(almacen,l_ruta.text)
+	reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
+
+	cmd.Initialize
+	cmd.Name = "select_cuantos_pedidoc_MARQUEZ"
+	cmd.Parameters = Array As Object(almacen,l_ruta.text)
+	reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
+	Log("http://keymon.lat:1781")
+	
+	B4XPages.MainPage.l_vPedidos2.Text = ""
+	B4XPages.MainPage.l_vProds2.Text = ""
+	B4XPages.MainPage.l_vNoVenta2.Text = ""
+End Sub
+
+Sub T4_Tick
+	If reqManager.reqsList.size = 0 Then ' Si ya no hay consultas pendientes ...
+		B4XPages.MainPage.p_progressDialog.Visible = False
+		If enviando Then ' Si terminamos de enviar pedido ...
+			Sleep(200)
+			B4XPages.MainPage.l_progressDialog.Text = "Validando " ' Mostramos el panel de progreso.
+			B4XPages.MainPage.p_progressDialog.Visible = False
+			valida ' Iniciamos la validación
+			enviando = False
+		End If
+		If validando Then
+			validando = False
+			Sleep(300)
+			'Mostramos el panel de Validación.
+			B4XPages.MainPage.p_validacion.Visible = True
+		End If
+	End If
+End Sub