- VERSION 5.07.05

- Se agregó Mazapa ... hay que probar!!!
2026-04-17 19:37:09 +00:00 · 2025-07-05 22:11:10 -06:00
parent d83f5038b8
commit 257ab5018a
7 changed files with 333 additions and 17 deletions
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -86,6 +86,7 @@ Sub Class_Globals
 	Dim Intmex As C_Intmex
 	Dim Durakelo As C_Durakelo
 	Dim Marquez As C_Marquez
+	Dim Mazapa As C_Mazapa
 	Private l_version0 As Label
 	Private b_guardaRutaTodos As Button
 	Private b_guardaRuta As Button
@@ -117,7 +118,7 @@ Sub B4XPage_Created (Root1 As B4XView)
 	ime.Initialize("ime")
 	lv_DBRServer.AddSingleLine("http://keymon.lat:1781")
 	lv_DBRServer.AddSingleLine("http://keymon.lat:1782")
-	lv_DBRServer.AddSingleLine("http://40.123.36.38:1782")
+	lv_DBRServer.AddSingleLine("http://192.99.93.204:1782")
 	et_server.Text = "http://keymon.lat:1781"
 	B_SERVER.Left = (Root.Width / 2) - (B_SERVER.Width / 2) 'Centramos B_SERVER
 	et_server.Left = (Root.Width / 2) - (et_server.Width / 2) 'Centramos et_server
@@ -128,10 +129,12 @@ Sub B4XPage_Created (Root1 As B4XView)
 	sp_empresa.Add("Intmex")
 	sp_empresa.Add("Mariana")
 	sp_empresa.Add("Marquez")
+	sp_empresa.Add("Mazapa")
 	i_engrane.Left = Root.Width - i_engrane.Width - 5dip
 	Intmex.Initialize
 	Durakelo.Initialize
 	Marquez.Initialize
+	Mazapa.Initialize
 End Sub

 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -297,6 +300,11 @@ Sub B4XPage_Appear
 		b_valida.Text = "Validar Marquez"
 		b_enviar.Enabled = True
 		Log("Cargamos MARQUEZ")
+	else if empresa.ToUpperCase.Contains("MAZAPA") Then
+		b_enviar.Text = "Enviar Mazapa"
+		b_valida.Text = "Validar Mazapa"
+		b_enviar.Enabled = True
+		Log("Cargamos MAZAPA")
 	Else
 		p_empresa.Visible = True
 		b_enviar.Enabled = False
@@ -321,6 +329,8 @@ Sub b_enviar_Click
 			envioDurakelo
 		else if empresa.ToUpperCase.Contains("MARQUEZ") Then
 			envioMarquez
+		else if empresa.ToUpperCase.Contains("MAZAPA") Then
+			envioMazapa
 		End If
 '		Sleep(5000)
 	End If
@@ -733,6 +743,10 @@ Sub envioMarquez 'ignore
 	Marquez.envia
 End Sub

+Sub envioMazapa 'ignore
+	Mazapa.envia
+End Sub
+
 Sub envioGuna 'ignore
 	Private PASO As Int = 1
 	reqManager.reqsList.Initialize 'inicializamos lista de requests.
@@ -963,9 +977,11 @@ End Sub
 Sub valida(identificador As String)
 	Log("Validamos " & identificador)
 	If empresa.ToUpperCase.Contains("GUNA") Then
-		reqManager.Initialize(Me, "http://keymon.lat:1782")
+'		reqManager.Initialize(Me, "http://keymon.lat:1782")
+		reqManager.Initialize(Me, "http://192.99.93.204:1782")
 	Else
-		reqManager.Initialize(Me, "http://keymon.lat:1781")
+'		reqManager.Initialize(Me, "http://keymon.lat:1781")
+		reqManager.Initialize(Me, "http://192.99.93.204:1781")
 	End If
 	d = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
 	d.Position = 0
--- a/B4A/C_Durakelo.bas
+++ b/B4A/C_Durakelo.bas
@@ -20,7 +20,8 @@ End Sub

 'You can add more parameters here.
 Public Sub Initialize As Object
-	reqManager.Initialize(Me, "http://keymon.lat:1781")
+'	reqManager.Initialize(Me, "http://keymon.lat:1781")
+	reqManager.Initialize(Me, "http://192.99.93.204:1781")
 	l_ruta.Initialize("")
 	L_ABORDO.Initialize("")
 	l_porvisitar.Initialize("")
--- a/B4A/C_Intmex.bas
+++ b/B4A/C_Intmex.bas
@@ -22,7 +22,8 @@ End Sub

 'Initializes the object. You can add parameters to this method if needed.
 Public Sub Initialize
-	reqManager.Initialize(Me, "http://keymon.lat:1781")
+'	reqManager.Initialize(Me, "http://keymon.lat:1781")
+	reqManager.Initialize(Me, "http://192.99.93.204:1781")
 End Sub

 Sub envia
--- a/B4A/C_Mazapa.bas
+++ b/B4A/C_Mazapa.bas
@@ -0,0 +1,293 @@
+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 c, d As Cursor
+	Dim usuario, almacen As String
+	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
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	reqManager.Initialize(Me, "http://192.99.93.204:1781")
+	Return Me
+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
+	checaPedido
+	almacen = Subs.traeAlmacen
+'	CARGA = "SUBIR"
+'	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_mazapa_ACTUAL2_GPS"
+'				cmd.Parameters = Array As String(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 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_mazapa"
+				cmd.Parameters = Array As String(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, CN_REFERENCIA, CN_HR_INICIO, CN_HR_FIN 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_mazapa3"
+				cmd.Parameters = Array As String(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"), c.GetString("CN_REFERENCIA"), c.GetString("CN_HR_INICIO"), c.GetString("CN_HR_FIN"))
+				reqManager.ExecuteCommand(cmd , "inst_clientesn")
+			Next
+		End If
+		c.Close
+		
+	c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM TICKET_TEL_CEDIS")
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_TICKET_TEL_CEDIS_MAZAPA"
+				Log(c.GetString("TTC_FOLIO"))
+				cmd.Parameters = Array As String( _
+            c.GetString("TTC_TELEFONO"), _
+            c.GetString("TTC_ID_ALMACEN"), _
+            c.GetString("TTC_NUM_TICKET"), _
+            c.GetString("TTC_ID_CLIENTE"), _
+            c.GetString("TTC_RUTA"), _
+            c.GetString("TTC_FECHA"), _
+            c.GetString("TTC_MONTO"), _
+            c.GetString("TTC_FOLIO"), _
+            c.GetString("TTC_USUARIO"), _
+            c.GetString("TTC_FOLIO_UNICO") _
+        )
+				reqManager.ExecuteCommand(cmd , "insert_TICKET_TEL_CEDIS")
+			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,IFNULL(PC_IMPRESO,0) AS PC_IMPRESO 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_pedido_CLIENTE_mazapa"
+				PCNoArts = c.GetString("PC_NOART")
+				PCMonto = c.GetString("PC_MONTO")
+				cmd.Parameters = Array As String(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"), c.GetString("PC_IMPRESO"))
+				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,IFNULL(PE_IMPRESO,0) AS PE_IMPRESO 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_pedido_PE_mazapa" '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 String(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"), c.GetString("PE_IMPRESO"))
+				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_mazapa"
+				cmd.Parameters = Array As String(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_mazapa"
+				cmd.Parameters = Array As String(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_mazapa"
+				cmd.Parameters = Array As String(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_mazapa"
+'		cmd.Parameters = Array As String(usuario, Subs.traeRuta, 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)
+
+		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_mazapa"
+				cmd.Parameters = Array As String(c.GetString("PC_CLIENTE"), almacen, Subs.traeRuta)
+'				userpiezas = c.GetString("PC_CLIENTE")
+				reqManager.ExecuteQuery(cmd , 0, "piezas")
+			Next
+		End If
+'	End If
+End Sub
+
+Sub checaPedido
+	Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
+	If c.RowCount > 0 Then
+		B4XPages.MainPage.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 = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
+	If c.RowCount > 0 Then
+		B4XPages.MainPage.skmt.ExecNonQuery("Update kmt_info set gestion = 3  WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
+	End If
+End Sub
--- a/B4A/DBCheck.b4a
+++ b/B4A/DBCheck.b4a
@@ -25,23 +25,24 @@ Library8=randomaccessfile
 Library9=sql
 ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="31"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~~\n~'AddActivityText(main,~\n~'<intent-filter>~\n~'<action android:name="android.intent.action.VIEW" />~\n~'<category android:name="android.intent.category.DEFAULT" />~\n~'<data android:mimeType="application/octet-stream" />~\n~'</intent-filter>)~\n~~\n~AddActivityText(main,~\n~<intent-filter>~\n~<action android:name="android.intent.action.VIEW" />~\n~<category android:name="android.intent.category.DEFAULT" />~\n~    <data android:mimeType="application/x-sqlite3" /> <!-- Para bases de datos -->~\n~    <data android:mimeType="application/octet-stream" /> <!-- Para otros archivos binarios -->~\n~    <data android:scheme="content" /> <!-- Filtra URIs tipo content:// -->~\n~</intent-filter>)
 Module1=B4XMainPage
+Module10=Subs
 Module2=C_Durakelo
 Module3=C_Envios
 Module4=C_Intmex
 Module5=|relative|..\C_Marquez
-Module6=DBRequestManager
-Module7=FileHandler
-Module8=Starter
-Module9=Subs
+Module6=C_Mazapa
+Module7=DBRequestManager
+Module8=FileHandler
+Module9=Starter
 NumberOfFiles=6
 NumberOfLibraries=11
-NumberOfModules=9
+NumberOfModules=10
 Version=12.8
@EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: DBCheck
 	#VersionCode: 1
-	#VersionName: 5.04.12
+	#VersionName: 5.07.05
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
--- a/B4A/DBCheck.b4a.meta
+++ b/B4A/DBCheck.b4a.meta
@@ -1,5 +1,6 @@
 ModuleBookmarks0=
 ModuleBookmarks1=
+ModuleBookmarks10=
 ModuleBookmarks2=
 ModuleBookmarks3=
 ModuleBookmarks4=
@@ -10,6 +11,7 @@ ModuleBookmarks8=
 ModuleBookmarks9=
 ModuleBreakpoints0=
 ModuleBreakpoints1=
+ModuleBreakpoints10=
 ModuleBreakpoints2=
 ModuleBreakpoints3=
 ModuleBreakpoints4=
@@ -19,15 +21,16 @@ ModuleBreakpoints7=
 ModuleBreakpoints8=
 ModuleBreakpoints9=
 ModuleClosedNodes0=2,6
-ModuleClosedNodes1=4,7,8,9,11,12,13,16,17,18,19,20,21,22
+ModuleClosedNodes1=7,8,9,11,12,13,16,17,18,19,20,21,22
+ModuleClosedNodes10=12,13,14
 ModuleClosedNodes2=
 ModuleClosedNodes3=4,5
 ModuleClosedNodes4=
 ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=
-ModuleClosedNodes8=1
-ModuleClosedNodes9=12,13,14
-NavigationStack=C_Marquez,envia,254,0,C_Marquez,JobDone,473,1,B4XMainPage,b_guardaRuta_Click,458,1,B4XMainPage,b_guardaRutaTodos_Click,486,0,B4XMainPage,l_ruta2_LongClick,429,6,Main,Globals,23,0,Main,Process_Globals,19,0,Main,Activity_KeyPress,39,0,Main,Activity_Create,30,0,B4XMainPage,B4XPage_Appear,137,0
+ModuleClosedNodes8=
+ModuleClosedNodes9=1
+NavigationStack=C_Mazapa,envia,153,4,B4XMainPage,Class_Globals,81,1,B4XMainPage,B4XPage_Created,130,2,B4XMainPage,B4XPage_Appear,295,3,B4XMainPage,b_enviar_Click,326,1,B4XMainPage,envioDurakelo,734,0,B4XMainPage,envioMazapa,740,1,B4XMainPage,envioMarquez,738,0,C_Marquez,envia,104,0,B4XMainPage,b_valida_Click,1027,0
 SelectedBuild=0
-VisibleModules=1,9,4,2,5,6
+VisibleModules=1,10,3,4,2,5,6
--- a/C_Marquez.bas
+++ b/C_Marquez.bas
@@ -21,7 +21,8 @@ End Sub

 'You can add more parameters here.
 Public Sub Initialize As Object
-	reqManager.Initialize(Me, "http://keymon.lat:1781")
+'	reqManager.Initialize(Me, "http://keymon.lat:1781")
+	reqManager.Initialize(Me, "http://192.99.93.204:1781")
 	l_ruta.Initialize("")
 	L_ABORDO.Initialize("")
 	l_porvisitar.Initialize("")