From aff1e8bdc3c662b6ab7a0d29df69bb978da60f02 Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Fri, 6 Mar 2026 17:04:46 -0600
Subject: [PATCH] VERSION 5.10.14 - Se agrego que mande la bandera de
 "reprogramado" - Se agrego que mande al tmp_drop fin dia, carga y envio.

---
 B4A/B4XMainPage.bas         | 1173 +----------------------------------
 B4A/C_Cliente.bas           |    1 -
 B4A/C_NoVenta.bas           |    1 +
 B4A/C_Principal.bas         |   58 +-
 B4A/Files/no_venta.bal      |  Bin 8781 -> 8781 bytes
 B4A/Files/principal.bal     |  Bin 43963 -> 44369 bytes
 B4A/Starter.bas             |    9 +-
 B4A/Subs.bas                |   10 +
 B4A/_git_tag.ps1            |  127 ++++
 B4A/_juntaBas.ps1           |  127 ++++
 B4A/intmex_reparto.b4a      |   82 ++-
 B4A/intmex_reparto.b4a.meta |    6 +-
 12 files changed, 355 insertions(+), 1239 deletions(-)
 create mode 100644 B4A/_git_tag.ps1
 create mode 100644 B4A/_juntaBas.ps1

diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index a6c7eaa..3b5b1a3 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -4,1185 +4,26 @@ ModulesStructureVersion=1
 Type=Class
 Version=9.85
 @EndOfDesignText@
-'#Region Shared Files
-''#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
-'	'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
-'	'###########################################################################################################
-'	'######################           PULL         #############################################################
-'	'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
-'	'###########################################################################################################
-'	'######################           PUSH         #############################################################
-'	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
-'	'###########################################################################################################
-'	'######################      PUSH TORTOISE GIT     #########################################################
-'	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
-'	'###########################################################################################################
-'#End Region
-'
-''Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
-'
-'Sub Class_Globals
-'	Dim rp As RuntimePermissions
-'	Private Root As B4XView
-'	Private xui As XUI
-'	Private Root As B4XView
-'	Public rp As RuntimePermissions
-'	Public login As B4XMainPage
-'	Public principal As C_Principal
-'	Public clientes As C_Clientes
-'	Public cliente As C_Cliente
-''	Public foto As C_Foto
-'	Public productos As C_Productos
-'	Public updateAvailable As C_UpdateAvailable
-'	Public mapas As C_Mapas
-'	Public nuevoCliente As C_NuevoCliente
-'	Public ticketsDia As C_TicketsDia
-'	Public noVenta As C_NoVenta
-'	Public pedidos As C_Pedidos
-'	Public buscar As C_Buscar
-''	Public historico As C_Historico
-'	Public detalleVenta As C_DetalleVenta
-'	Public detalle_promo As C_Detalle_Promo
-'	Dim reqManager As DBRequestManager
-''	Dim ruta As String
-'	Dim usuario As String
-'	Dim logger As Boolean = True
-'	Dim lat_gps, lon_gps As String
-''	Dim skmt As SQL
-'	Dim usuario As String
-'	Dim server As String
-'	Dim montoActual, clientesTotal, clientesVenta, clientesRechazo, clientesVisitados, almacen, rutaPreventa, CANTIDADPROD As String
-'	Dim ultimaActualizacionGPS As String = 235959
-'	Dim fechaRuta As String
-''	Public wsServerLink As String = "ws://187.189.244.154:51042/push/b4a_ws2"
-''	Public wsServerLink As String = "ws://10.0.0.214:51042/push/b4a_ws2"
-'	Dim srvIp As String
-'	Dim phn As Phone
-'	Dim user As EditText
-'	Dim pass As EditText
-'	Dim c As Cursor
-'	Dim existe As String
-'	Dim paso1,paso2,paso3 As String
-'	Private IMEN As Label
-'	Dim IMEI As String
-'	Private Label1 As Label
-'	Dim server As String
-'	Private p_principal As Panel
-'	Private Entrar As Button
-'	Public checklist As C_Cheklist
-'	Public tabulador As C_tabulador
-'	Dim batt As Int
-'	Dim monto_entregadoactual As String
-'	Dim piezas_entregdas As String
-'	Dim porVisitar, entregas, rechazos, montoEntregado, montoRechazado As String
-'	Private p_appUpdate As Panel
-'	Private i_engrane As ImageView
-'	Private b_server As Button
-'	Private b_apk As Button
-'	Private b_envioBD As Button
-'	Private b_regesar As Button
-'	Private et_server As EditText
-'	Private p_serverList As Panel
-'	Private lv_server As ListView
-'	Public Provider As FileProvider
-'	Public rutaBDBackup As String = ""
-'	Private B_Can_Monto As Button
-'	Private B_Aceptar_Monto As Button
-'	Private ET_Add_Monto As EditText
-'	Private p_add_monto As Panel
-'	Dim sDate, sTime As String
-'	Private p_validacion As Panel
-'	Private b_cancelarcodigo As Button
-'	Private b_aceptar As Button
-'	Private et_codigo As EditText
-'	Private P_CIEGO As Panel
-'	Private b_terpc As Button
-'	Private B_PC_ENV As Button
-'	Private CLV_PICK_CIEGO As CustomListView
-'	Private et_buspc As EditText
-'	Dim q_buscar As String
-'	Dim d As Cursor
-'	Private L_PICK_CIEGO As Label
-'	Private ET_PICK_CIEGO As EditText
-'	Dim a As Cursor
-'	Dim f As Cursor
-'	Private b_abono As Button
-'	
-'	Dim codigo, usuariocheck As Int
-'End Sub
-'
-'Public Sub Initialize
-''	B4XPages.GetManager.LogEvents = True
-'End Sub
-'
-''This event will be called once, before the page becomes visible.
-'Private Sub B4XPage_Created (Root1 As B4XView)
-'	Root = Root1
-'	B4XPages.GetManager.LogEvents = True
-'	Root.LoadLayout("login")
-''	B4XPages.SetTitle(Me, "Guna Reparto")
-'	login.Initialize
-'	B4XPages.AddPage("Login", login)
-'	principal.Initialize
-'	B4XPages.AddPage("Principal", principal)
-'	clientes.Initialize
-'	B4XPages.AddPage("Clientes", clientes)
-'	cliente.Initialize
-'	B4XPages.AddPage("Cliente", cliente)
-''	foto.Initialize
-''	B4XPages.AddPage("Foto", foto)
-'	productos.Initialize
-'	B4XPages.AddPage("Productos", productos)
-'	updateAvailable.Initialize
-'	B4XPages.AddPage("updateAvailable", updateAvailable)
-'	mapas.Initialize
-'	B4XPages.AddPage("Mapas", mapas)
-'	nuevoCliente.Initialize
-'	B4XPages.AddPage("NuevoCliente", nuevoCliente)
-'	ticketsDia.Initialize
-'	B4XPages.AddPage("TicketsDia", ticketsDia)
-'	noVenta.Initialize
-'	B4XPages.AddPage("NoVenta", noVenta)
-'	pedidos.Initialize
-'	B4XPages.AddPage("Pedidos", pedidos)
-'	buscar.Initialize
-'	B4XPages.AddPage("Buscar", buscar)
-''	historico.Initialize
-''	B4XPages.AddPage("Historico", historico)
-'	detalleVenta.Initialize
-'	B4XPages.AddPage("DetalleVenta", detalleVenta)
-'	detalle_promo.Initialize
-'	B4XPages.AddPage("Detalle_Promo", detalle_promo)
-'	tabulador.Initialize
-'	B4XPages.AddPage("tabulador", tabulador)
-'	checklist.Initialize
-'	B4XPages.AddPage("checklist",checklist)
-''	p_principal.Width = Root.Width
-''	p_principal.Height = Root.Height * .90
-'	Entrar.Left = (p_principal.Width - Entrar.Width) / 2
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GUNAPROD3 (CAT_GP_INICIATIVA TEXT, CAT_GP_TIPOPROD TEXT, CAT_GP_DEV TEXT, CAT_GP_ALMACEN NUMERIC, CAT_GP_ID TEXT, CAT_GP_NOMBRE TEXT, CAT_GP_IMP1 TEXT, CAT_GP_IMP2 TEXT, CAT_GP_PRECIO TEXT, CAT_GP_CLASIF TEXT, CAT_GP_STS TEXT, CAT_GP_TIPO TEXT, CAT_GP_SUBTIPO TEXT, CAT_GP_IMG BLOB)")
-'	Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_CONVERSION1", "TEXT")
-'	Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_PRECIO4", "TEXT")
-'	Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_CANT_MIN_VENTA", "TEXT")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOS (a_usuario TEXT, a_ruta TEXT, a_cliente TEXT, a_abono TEXT, a_fecha TEXT, a_enviado TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES (PA_ALMACEN TEXT, PA_RUTA_REP TEXT, PA_RUTAPREV TEXT, PA_FECHA_PREV TEXT, PA_CAPTURA TEXT, PA_MONTO TEXT, PA_USUARIO TEXT, PA_CLIENTE TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_MONEDAS(VEINTE TEXT, DIEZ TEXT, CINCO TEXT, DOS TEXT, PESO TEXT, CENTAVO TEXT, TOTAL TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_BILLETES(MIL TEXT, QUINIENTOS TEXT, DOCIENTOS TEXT, CIEN TEXT, CINCUENTA TEXT, VEINTE TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_VENTAS2 (HVD_PARCIAL TEXT, HVD_RECHAZO TEXT, HVD_NUM_REGISTRO TEXT, HVD_NUM_TICKET TEXT, HVD_PROID TEXT, HVD_CODPROMO TEXT, HVD_FECHA TEXT, HVD_ESTATUS TEXT, HVD_CLIENTE TEXT, HVD_PRONOMBRE TEXT, HVD_CANT TEXT, HVD_COSTO_TOT TEXT)")
-''	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS VENTAS (V_FECHA TEXT, V_CLIENTE TEXT, V_CLIENTE_ORIG TEXT, V_PRODNOMBRE TEXT, V_PRODID TEXT, V_CANTIDAD TEXT, V_PRECIO TEXT, V_TOTAL TEXT, V_PRODREGISTRO TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RECHAZOS (R_FECHA TEXT, R_CLIENTE TEXT, R_CLI_ORIG TEXT, R_PRODID TEXT, R_CANT TEXT, R_RECHAZO INT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS VENTAS (V_FECHA TEXT, V_CLIENTE TEXT, V_CLI_ORIG TEXT, V_PRODID TEXT, V_CANT TEXT, V_RECHAZO INT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOSP(NOTA TEXT, CLIENTE TEXT, SALDO_PENDIENTE TEXT)")
-''	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS PAGARES")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECADO_CHECK(CHECADO TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CODIGO_UNICO(CODIGO TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS INICIO_SESION(CONECTADO TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BLOCKENVIO(ENVIADO TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_REPARTO_GEO(HIST_RG_MONTO TEXT, HIST_RG_CREDITO TEXT, HIST_RG_MONTO_CREDITO TEXT, HIST_RG_LAT TEXT, HIST_RG_LONG TEXT, HIST_RG_RECHAZO TEXT, HIST_RG_MOTIVO TEXT, HIST_RG_USUARIO_ENTREGO TEXT, HIST_RG_RUTA_REP TEXT, HIST_RG_ESTATUS_ENTREGA TEXT, HIST_RG_COMENTARIO_ENTREGA TEXT, HIST_RG_FORMA_PAGO TEXT, HIST_RG_GEOCERCA_MTS TEXT, HIST_RG_NO_ART TEXT, HIST_RG_CLIENTE TEXT, HIST_RG_FECHA TEXT, HIST_RG_ALMACEN TEXT, HIST_RG_RUTA_PRE TEXT)")
-'	
-''	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES(TMP_MONTO_PAGARE TEXT, TMP_CLIENTE TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECKLIST(USUARIO TEXT, PLACA TEXT, FECHA_CAPTURA TEXT, TARJETA_CIRCULACION TEXT , POLIZA_SEGURO TEXT, LICENCIA_CONDUCIR TEXT, LIMPIA_EXTERNA TEXT, LIMPIA_INTERNA TEXT, TRIANGULO TEXT, GATO TEXT, LLANTA_REFACCION TEXT, CARROCERIA_BUENESTADO TEXT, CARROCERIA_MALESTADO TEXT, CARROCERIA_COMENTARIOS TEXT, LUCES_CORRECTO TEXT, LUCES_INCORRECTO TEXT, LUCES_COMENTARIOS TEXT, CONDICION_PLACAS_CORRECTO TEXT, CONDICION_PLACAS_INCORRECTO TEXT, CONDICION_PLACAS_COMENTARIOS TEXT, CONDICION_LLANTAS_DEL_DER TEXT, CONDICION_LLANTAS_DEL_IZQ TEXT, CONDICION_LLANTAS_TRASERA_DER TEXT, CONDICION_LLANTAS_TRASERA_IZQ TEXT, ACEITE TEXT, ANTICONGELANTE TEXT, FRENOS TEXT, AIRE TEXT, FUGAS TEXT, COMETARIOS_FUGAS TEXT, FOTO1 BLOB, FOTO12 BLOB, FOTO3 BLOB, FOTO4 BLOB)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECKLIST2(USUARIO TEXT, PLACA TEXT, FECHA_CAPTURA TEXT, TARJETA_CIRCULACION TEXT, POLIZA_SEGURO TEXT, LICENCIA_CONDUCIR TEXT, LIMPIA_EXTERNA TEXT, LIMPIA_INTERNA TEXT, TRIANGULO TEXT, GATO TEXT, LLANTA_REFACCION TEXT, CARROCERIA TEXT, CARROCERIA_COMENTARIOS TEXT, LUCES TEXT, LUCES_COMENTARIOS TEXT, CONDICION_PLACAS TEXT, CONDICION_PLACAS_COMENTARIOS TEXT, CONDICION_LLANTAS_DEL_DER TEXT, CONDICION_LLANTAS_DEL_IZQ TEXT, CONDICION_LLANTAS_TRASERA_DER TEXT, CONDICION_LLANTAS_TRASERA_IZQ TEXT, ACEITE TEXT, ANTICONGELANTE TEXT, FRENOS TEXT, AIRE TEXT, FUGAS TEXT, COMETARIOS_FUGAS TEXT, FOTO1 BLOB, FOTO12 BLOB, FOTO3 BLOB, FOTO4 BLOB, KILIMETRAJE TEXT, RUTA TEXT)")
-'	Subs.agregaColumna("REPARTO", "REP_PRODREGISTRO", "TEXT")
-'	Subs.agregaColumna("NOVENTA", "NV_RUTA", "TEXT")
-'	Subs.agregaColumna("ABONOS", "a_ticket", "TEXT")
-'	Subs.agregaColumna("ABONOS", "a_tipoabono", "TEXT")
-'	
-'	Subs.agregaColumna("PAGARES", "PA_CANCELADO", "TEXT")
-'	Subs.agregaColumna("ABONOSP", "NOMBRE", "TEXT")
-'	Subs.agregaColumna("kmt_info", "SECUENCIA", "INT")
-'	Subs.agregaColumna("kmt_info", "HORAENT", "TEXT")
-'	Subs.agregaColumna("REPARTO", "REP_PRODID", "TEXT")
-'	Subs.agregaColumna("PEDIDO", "PE_CLIENTEOR", "TEXT")
-'	Subs.agregaColumna("PAGARES", "PA_TICKET", "TEXT")
-'	Subs.agregaColumna("PEDIDO", "PE_CAJAS", "TEXT")
-'	Subs.agregaColumna("PEDIDO", "PE_REGALO", "TEXT")
-'	Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")
-'	Subs.agregaColumna("PEDIDO", "CONSECUTIVO", "TEXT")
-'	Subs.agregaColumna("PEDIDO", "FECHA_PREV", "TEXT")
-'	Subs.agregaColumna("PEDIDO", "RUTA_REP", "TEXT")
-'	Subs.agregaColumna("REPARTO", "REP_CLI_ORIG", "TEXT")
-'	Subs.agregaColumna("REPARTO", "REP_PRECIO", "TEXT")
-'	Subs.agregaColumna("REPARTO", "REP_RECHAZO", "INTEGER")
-'	Subs.agregaColumna("RECHAZOS", "R_PRECIO", "TEXT")
-'	Subs.agregaColumna("VENTAS", "V_PRECIO", "TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","PLACA","TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANT","TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","CONSECUTIVO","TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANT","TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","ESPROMO","TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANTC","TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","BCAJAS","TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","CANTC","TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","BCAJAS_OR","TEXT")
-'	Subs.agregaColumna("HIST_VENTAS","CANTC_OR","TEXT")
-'	Subs.agregaColumna("CAT_GUNAPROD","CONVERSION","TEXT")
-'	Subs.agregaColumna("kmt_info","CAT_CL_LIMITECREDITO","TEXT")
-'	Subs.agregaColumna("CAT_GUNAPROD","PRECIOCONVER","TEXT")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
-'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
-'	Dim server As String = "http://keymon.net:1782"
-''	Dim server As String = "http://192.168.100.10:1781"
-''	Dim server As String = "http://keymon.lat:9000"
-''	server = "http://10.0.0.205:1782"
-''	Dim server As String = "http://192.168.100.10:1781"
-''	server = "http://11.0.0.44:1782"
-'	reqManager.Initialize(Me, B4XPages.MainPage.server)
-'	LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
-'	Label1.Text = Application.VersionName
-''	Dim P As PhoneId
-'	Log("provider")
-'	Provider.Initialize
-'	
-'	Subs.guardaAppInfo
-'
-''	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
-''	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
-''	If Result Then
-''		IMEN.Text = "" 'P.GetDeviceId
-''		IMEI = "" 'P.GetDeviceId
-''	End If
-'End Sub
-'
-'Sub B4XPage_Appear
-'	If Starter.muestraProgreso = 1 Then
-'		muestraProgreso("Descargando actualización")
-'		Starter.muestraProgreso = 0
-'	End If
-'	Subs.centraPanel(p_principal, Root.Width)
-'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
-''	LogColor("Start Tracker1", Colors.red)
-'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
-'	If Result Then
-'		If Not(Tracker.Tracking) Then StartService(Tracker)
-''		LogColor("Start Tracker", Colors.red)
-'	Else
-'		ToastMessageShow("No permission", True)
-'		Log("Sin permisos")
-'	End If
-''	LogColor("Start Tracker3", Colors.red)
-'	c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
-'	If c.RowCount > 0 Then
-''		c.Position=0
-''		c=skmt.ExecQuery("select USUARIO from usuarioa")
-'		c.Position=0
-'		usuario = c.GetString("USUARIO")
-'	End If
-'	c.Close
-''	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
-''	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
-''	If Result Then
-''		Log("Con permisos de escritura externa")
-''	End If
-'
-'	c=Starter.skmt.ExecQuery("select CODIGO from CODIGO_UNICO")  ''''Codigo de acceso unico
-'	If c.RowCount = 0 Then
-'		Dim Random5Digits As String
-'		Random5Digits = NumberFormat2(Rnd(0, 100000), 5, 0, 0,False) ' Rellenado con ceros a la izquierda
-'		Log("Número aleatorio de 5 dígitos (con ceros): " & Random5Digits)
-'		Dim pascon As Cursor = Starter.skmt.ExecQuery("select * from USUARIOA")
-'		pascon.Position = 0
-'		Starter.skmt.ExecNonQuery2("INSERT INTO CODIGO_UNICO VALUES (?)", Array As Object(Random5Digits))
-'	End If
-'	c.Close
-'End Sub
-'
-''You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
-'
-'Sub Entrar_Click
-'	If pass.Text = "YA" Then
-'		Starter.skmt.ExecNonQuery("delete from usuarioa")
-'		Starter.skmt.ExecNonQuery("delete from VERSION")
-'		Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object("ROOT", "ROOT"))
-'		Starter.skmt.ExecNonQuery("delete from cat_almacen")
-'		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (user.Text))
-'		Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
-''		principal.B_REGRESA_Click
-''		B4XPages.MainPage.principal.Subir.Visible = True
-'		B4XPages.ShowPage("Principal")
-'	Else
-'		c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
-'		c.Position=0
-'		existe = c.GetString("EXISTE1")
-'		c.Close
-'		'existe = 1
-'		If existe = 0 Then
-'			'skmt.ExecNonQuery("delete from usuarioa")
-'			Dim cmd As DBCommand
-'			cmd.Initialize
-'			cmd.Name = "select_usuario_GUNA_REPG_VN"
-'			cmd.Parameters = Array As Object(user.Text, pass.Text)
-'			reqManager.ExecuteQuery(cmd , 0, "usuario")
-'			
-'	
-''			Dim cmd As DBCommand
-''			cmd.Initialize
-''			cmd.Name = "select_version_INTMEX"
-''			reqManager.ExecuteQuery(cmd , 0, "version")
-'		Else
-'			
-'			
-'			Dim cmd As DBCommand
-'			cmd.Initialize
-'			cmd.Name = "select_cont_usuario_GUNA_REPG_VN"
-'			cmd.Parameters = Array As Object(user.Text)
-'			reqManager.ExecuteQuery(cmd , 0, "cuentausuario")
-'					
-'			c=Starter.skmt.ExecQuery("select CODIGO from CODIGO_UNICO")  ''''Codigo de acceso unico
-'			c.Position = 0
-'			Dim cmd As DBCommand
-'			cmd.Initialize
-'			cmd.Name = "select_cont_codigo_GUNA_REPG_VN"
-'			cmd.Parameters = Array As Object(c.GetString("CODIGO"))
-'			reqManager.ExecuteQuery(cmd , 0, "cuentacodigo")
-'			c.Close
-'		End If
-'	End If
-'End Sub
-'
-'Sub JobDone(Job As HttpJob)
-'	If Job.Success = False Then
-'		ToastMessageShow("Error: " & Job.ErrorMessage, True)
-'	Else
-'		If Job.JobName = "DBRequest" Then
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "version" Then 'query tag
-'				For Each records() As Object In result.Rows
-'					Starter.skmt.ExecNonQuery("delete from VERSION")
-'					Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
-'					Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
-'				Next
-'			End If
-'		End If
-'	 
-'		If Job.JobName = "DBRequest" Then
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "agencia" Then 'query tag
-'				For Each records() As Object In result.Rows
-'           
-'					Dim ID_ALMACEN As String = records(result.Columns.Get("ID_ALMACEN"))
-'				Next
-'				almacen = ID_ALMACEN
-'			End If
-'		End If
-'
-'		If Job.JobName = "DBRequest" Then
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "coords_almacen" Then 'query tag
-'				For Each records() As Object In result.Rows
-'					Log("Coordenadas del almacen: " & records(result.Columns.Get("CAT_AL_LATITUD")) & "," & records(result.Columns.Get("CAT_AL_LONGITUD")))
-'					Private lat, lon As Double
-'					lat = 0.0
-'					lon = 0.0
-'					If IsNumber(records(result.Columns.Get("CAT_AL_LATITUD"))) And IsNumber(records(result.Columns.Get("CAT_AL_LONGITUD"))) Then
-'						lat = records(result.Columns.Get("CAT_AL_LATITUD"))
-'						lon = records(result.Columns.Get("CAT_AL_LONGITUD"))
-'					End If
-'					Starter.cedisLocation.Latitude = lat
-'					Starter.cedisLocation.Longitude = lon
-'					Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("COORDS_ALMACEN"))
-'					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("COORDS_ALMACEN",lon&","&lat))
-'					'19.48118148992086,-99.15295579261536
-'				Next
-'			End If
-'		End If
-'
-'		If Job.JobName = "DBRequest" Then   ''' Codigo unico
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "usuario" Then 'query tag
-'				Log("si hice 4")
-'				For Each records() As Object In result.Rows
-'					Dim name As String = records(result.Columns.Get("USUARIO"))
-'					Dim ID_ALMACEN As String = records(result.Columns.Get("CAT_LO_AGENCIA"))
-''					Dim IMEI_BASE As String = records(result.Columns.Get("CAT_LO_IDTELEFONO"))
-'				Next
-'				
-''				B4XPages.ShowPage("Principal") '''mover
-'				
-'				
-'				If name = "OKActivo" Then
-'					Dim cmd As DBCommand
-'					cmd.Initialize
-'					cmd.Name = "select_cont_usuario_GUNA_REPG_VN"
-'					cmd.Parameters = Array As Object(user.Text)
-'					reqManager.ExecuteQuery(cmd , 0, "cuentausuario")
-'					
-'					c=Starter.skmt.ExecQuery("select CODIGO from CODIGO_UNICO")  ''''Codigo de acceso unico
-'					c.Position = 0
-'					Dim cmd As DBCommand
-'					cmd.Initialize
-'					cmd.Name = "select_cont_codigo_GUNA_REPG_VN"
-'					cmd.Parameters = Array As Object(c.GetString("CODIGO"))
-'					reqManager.ExecuteQuery(cmd , 0, "cuentacodigo")
-'					c.Close
-'						
-'				Else If name  = "OKExpirado"& IMEI Then
-'					Msgbox("Usuario Expirado llamar al administrador","") 'ignore
-'				Else If name = "OKCancelado"& IMEI Then
-'					Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
-'				Else
-'					Msgbox("Usuario o password No validos","") 'ignore
-'				End If
-'					
-''				paso1 = 1
-'			End If
-'		End If
-'			
-'		If Job.JobName = "DBRequest" Then   ''' Codigo unico
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "cuentacodigo" Then 'query tag
-'				Log("si hice 1")
-'				For Each records() As Object In result.Rows
-'					Dim CUENTA_CODIGO As Int = records(result.Columns.Get("CUENTA_CODIGO"))
-'				Next
-'				codigo = CUENTA_CODIGO
-'				Log(CUENTA_CODIGO)
-'				paso1 = 1
-'				entrada
-'			End If
-'		End If
-'		
-'		If Job.JobName = "DBRequest" Then   ''' Codigo unico
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "cuentausuario" Then 'query tag
-'				Log("si hice 2")
-'				For Each records() As Object In result.Rows
-'					Dim CUENTA_USUARIO As Int = records(result.Columns.Get("CUENTA_USUARIO"))
-'				Next
-'				usuariocheck = CUENTA_USUARIO
-'				Log(CUENTA_USUARIO)
-'				paso2 = 1
-'				entrada
-'			End If
-'		End If
-'		
-'		If Job.JobName = "DBRequest" Then   ''' Codigo unico
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "cuentacodigo2" Then 'query tag
-'				Log("si hice 3")
-'				For Each records() As Object In result.Rows
-'					Dim TMP_CR_CODIGO As Int = records(result.Columns.Get("TMP_CR_CODIGO"))
-'				Next
-'				
-'				
-'				If TMP_CR_CODIGO = 1 Then
-'					Log("si hice 5")
-'					Starter.skmt.ExecNonQuery("delete from usuarioa")
-'					Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
-'					Starter.skmt.ExecNonQuery("delete from cat_almacen")
-'					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (almacen))
-'					B4XPages.ShowPage("Principal")
-'					
-'				End If
-'
-'			End If
-'		End If
-'		
-'
-'		If Job.JobName = "DBRequest" Then
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "contrasena" Then 'query tag
-'				For Each records() As Object In result.Rows
-'					Dim CAT_PA_PASS As String = records(result.Columns.Get("CAT_PA_PASS"))
-'					If CAT_PA_PASS = et_codigo.Text Then
-'						Log(CAT_PA_PASS)
-'						p_validacion.Visible = False
-'						et_codigo.Text = ""
-'						
-'						Subs.panelVisible(P_CIEGO,0,0)
-'						
-'					Else
-'						MsgboxAsync("Contraseña incorrecta","Atención")
-'					End If
-'				Next
-'			End If
-'		End If
-'		
-''		If Job.JobName = "DBRequest" Then
-''			Dim result As DBResult = reqManager.HandleJob(Job)
-''			If result.Tag.As(String).IndexOf("PICK_C_") > -1 Then 'query tag
-'		''				Subs.logJobDoneResultados(result)
-''				Private id As String= result.Tag
-''				id = id.SubString(id.IndexOf("_")+3)
-''				For Each records() As Object In result.Rows
-''					Dim CUENTA As String = records(result.Columns.Get("CUENTA"))
-''					Log(CUENTA)
-''					Log(id)
-''					If CUENTA = 0 Then
-''						c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO WHERE PC_ID_PROD = ?", Array As String (id))
-''						If c.RowCount > 0 Then
-'		''							For i=0 To c.RowCount -1
-''							c.Position=0
-''							Dim cmd As DBCommand
-''							cmd.Initialize
-''							cmd.Name = "insert_PICKCIEGO_MAZAPA"
-''							cmd.Parameters = Array As Object(c.GetString("PC_ID_PROD"), c.GetString("PC_NOM_PROD"), c.GetString("PC_CANT"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"),"REPARTO")
-''							reqManager.ExecuteCommand(cmd , "ins_PC")
-'		''							Next
-''						End If
-''						c.Close
-''					Else if CUENTA > 0 Then
-''						c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO WHERE PC_ID_PROD= ?", Array As String (id))
-''						If c.RowCount > 0 Then
-'		''							For i=0 To c.RowCount -1
-''							c.Position = 0
-''							Dim cmd As DBCommand
-''							cmd.Initialize
-''							cmd.Name = "update_PICKCIEGO_MAZAPA"
-''							Log("FECHA" & c.GetString("PC_FECHA"))
-''							cmd.Parameters = Array As Object(c.GetString("PC_CANT"), c.GetString("PC_ID_PROD"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"),"REPARTO")
-''							reqManager.ExecuteCommand(cmd, "update_PC")
-'		''							Next
-''						End If
-''						c.Close
-''					End If
-'		'
-''				Next
-''			End If
-''		End If
-'		
-'		If Job.JobName = "DBRequest" Then
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "estatus" Then 'query tag
-'				For Each records() As Object In result.Rows
-'					Dim hvd_estatus As String = records(result.Columns.Get("HVD_ESTATUS"))
-'					If hvd_estatus = "Liquidado" Then
-'						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
-'						MsgboxAsync("La venta ya fue liquidada","Atención")
-'					Else
-'						enviarmonto
-'					End If
-'				Next
-'			End If
-'		End If
-'		
-'		If Job.JobName = "DBRequest" Then
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "estatus2" Then 'query tag
-'				For Each records() As Object In result.Rows
-'					Dim hvd_estatus As String = records(result.Columns.Get("HVD_ESTATUS"))
-'					If hvd_estatus = "Liquidado" Then
-'						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
-'						MsgboxAsync("La venta ya fue liquidada","Atención")
-'					Else
-'						passaquci
-'					End If
-'				Next
-'			End If
-'		End If
-'		
-'		If Job.JobName = "DBRequest" Then
-'			Dim result As DBResult = reqManager.HandleJob(Job)
-'			If result.Tag = "SelectMontoLiq" Then
-'				For Each records() As Object In result.Rows
-'					Dim CUENTA As String = records(result.Columns.Get("CUENTA"))
-'					
-'					DateTime.DateFormat = "MM/dd/yyyy"
-'					sDate=DateTime.Date(DateTime.Now)
-'					sTime=DateTime.Time(DateTime.Now)
-'					Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
-'					f.Position=0
-'					Private a As Cursor =Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-'					a.Position = 0
-'					
-'					Private c2 As Cursor
-'					c2=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
-'					c2.Position=0
-'					If c2.RowCount > 0 Then c2.GetString("USUARIO")
-'					
-'					Log(CUENTA & "----------------------!!")
-'					If CUENTA = "0" Then
-'						
-''						c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("RUTAA")))
-''						If c.RowCount > 0 Then
-'						''							For i=0 To c.RowCount -1
-''							c.Position=0
-''							Dim cmd As DBCommand
-''							cmd.Initialize
-''							cmd.Name = "insert_Monto_Liq_MAZAPArep"
-''							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), f.GetString("RUTAA"), c.GetString("EML_USUARIO"), "REPARTO", c.GetString("EML_FECHA_PED"))
-''							reqManager.ExecuteCommand(cmd , "ins_Mon_Liq")
-''							MsgboxAsync("Monto Enviado", "Atención")
-'						''							Next
-''						End If
-''						c.Close
-'					Else if CUENTA > "0" Then
-'						
-''						c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("RUTAA")))
-''						If c.RowCount > 0 Then
-'						''							For i=0 To c.RowCount -1
-''							c.Position = 0
-''							cmd.Initialize
-''							cmd.Name = "update_MontoCuenta_MAZAPArep"
-''							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"),c.GetString("EML_FECHA_PED"),"REPARTO")
-''							
-''							Log(c.GetString("EML_MONTO")& " " & c.GetString("EML_ALMACEN")& " " & c.GetString("EML_RUTA")& " " & c.GetString("EML_USUARIO"))
-''							reqManager.ExecuteCommand(cmd, "update_MC")
-''							MsgboxAsync("Se sobre escribio el Monto", "Atención")
-'						''							Next
-''						End If
-''						c2.Close
-''						c.Close
-'					End If
-'					f.Close
-'					a.Close
-'				Next
-'			End If
-'		End If
-'		
-'		Job.Release
-'	End If
-'	
-'	
-'	
-'	
-'End Sub
-'
-'Sub entrada
-'	If paso1 = 1 And paso2 = 1 Then
-'		
-'	
-'		Log(codigo)
-'		Log(usuariocheck)
-'		If codigo = 1 And usuariocheck = 1 Then
-'			c=Starter.skmt.ExecQuery("select CODIGO from CODIGO_UNICO")  ''''Codigo de acceso unico
-'			c.Position = 0
-'		
-'			Dim cmd As DBCommand
-'			cmd.Initialize
-'			cmd.Name = "select_codigo_cuantosGUNA_REPG_VN"
-'			cmd.Parameters = Array As Object(user.Text, c.GetString("CODIGO"))
-'			reqManager.ExecuteQuery(cmd , 0, "cuentacodigo2")
-'				
-'			c.Close
-'		Else If (codigo = 1 And usuariocheck = 0) Or (codigo = 0 And usuariocheck = 1) Then
-'			MsgboxAsync("El celular ya esta registrado en otra cuenta, o el usuario esta registrado en otro telefono, favoir de contactar a tu supervisor","Atención")
-'		Else If codigo = 0 And usuariocheck = 0 Then
-'			Dim cod As Cursor=Starter.skmt.ExecQuery("select CODIGO from CODIGO_UNICO")  ''''Codigo de acceso unico
-'			cod.Position = 0
-'		
-'			Dim cmd As DBCommand
-'			cmd.Initialize
-'			cmd.Name = "insert_codigo_REP_GUNA_VN"
-'			cmd.Parameters = Array As Object(user.Text.Trim, pass.Text, cod.GetString("CODIGO"))
-'			reqManager.ExecuteCommand(cmd , "ins_codigo")
-'		
-'			cod.Close
-'			
-'		
-'			Starter.skmt.ExecNonQuery("delete from usuarioa")
-'			Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
-'			Starter.skmt.ExecNonQuery("delete from cat_almacen")
-'			Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (almacen))
-'			Starter.skmt.ExecNonQuery2("INSERT INTO INICIO_SESION(CONECTADO) VALUES (?)", Array As Object (1))
-'			
-'			B4XPages.ShowPage("Principal")
-'		End If
-'	End If
-'End Sub
-'
-'Private Sub i_engrane_Click
-'	p_appUpdate.Width = Root.Width
-'	p_appUpdate.Height = Root.Height
-'	Subs.centraPanel(p_serverList, Root.Width)
-'	Subs.centraBoton(b_server, Root.Width)
-'	Subs.centraBoton(b_apk, Root.Width)
-'	Subs.centraBoton(b_envioBD, Root.Width)
-'	Subs.centraBoton(b_regesar, Root.Width)
-'	Subs.centraBoton(b_server, p_serverList.Width)
-'	lv_server.Clear
-'	lv_server.AddSingleLine("http://keymon.net:1782")
-'	
-'	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
-''	l_server.Text = Starter.server
-'	et_server.Text = server
-'	Subs.panelVisible(p_appUpdate, 0, 0)
-'End Sub
-'
-'Private Sub B4XPage_CloseRequest As ResumableSub
-''	Log("closreq")
-'	If p_appUpdate.Visible Then
-'		p_appUpdate.Visible = False
-'	Else
-'		Sleep(0)
-'		ExitApplication
-'	End If
-'	Return False
-'End Sub
-'
-'Private Sub b_regesar_Click
-'	p_principal.Visible = True
-'	p_appUpdate.Visible = False
-'End Sub
-'
-''Enviamos la base de datos por correo o Whatsapp
-'Private Sub b_envioBD_Click
-''	copiaDB
-''	Sleep(1000)
-'	Dim FileName As String = "kmt.db"
-'	'copy the shared file to the shared folder
-'	Log("xxxxxx:"&Provider.SharedFolder)
-'	Sleep(1000)
-'	File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
-'	Dim email As Email
-'	email.To.Add("soporte@keymonsoft.com")
-'	email.Subject = "Base de datos para revisión"
-'	email.Attachments.Add(Provider.GetFileUri(FileName))
-''	email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
-'	Dim in As Intent = email.GetIntent
-'	in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
-'	StartActivity(in)
-'End Sub
-'
-'Private Sub b_apk_Click
-'	StartService(appUpdater)
-'End Sub
-'
-'Private Sub b_server_Click
-'	Log("Guardar servidor")
-'	Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
-'	Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",et_server.text))
-'	B4XPages.MainPage.server = et_server.text
-'	Starter.server = B4XPages.MainPage.server
-'	If logger Then Log("Inicializamos reqManager con " & B4XPages.MainPage.server)
-'	reqManager.Initialize(Me, B4XPages.MainPage.server)
-'	LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
-'	reinicializaReqManager
-'	p_appUpdate.Visible = False
-''	Entrar.Visible = True
-'End Sub
-'
-'Private Sub lv_server_ItemClick (Position As Int, Value As Object)
-'	server = Value
-''	l_server.Text = Value
-'	et_server.Text = Value
-'	reqManager.Initialize(Me, Value)
-'	LogColor($"ReqServer = ${Value}"$, Colors.red)
-'	ToastMessageShow("Servidor modificado", False)
-'End Sub
-'
-'Sub reinicializaReqManager
-'	reqManager.Initialize(Me, B4XPages.MainPage.server)
-'	If logger Then Log(B4XPages.MainPage.server)
-'	LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
-'End Sub
-'
-''appUpdater - Mostramos el anuncio de que se esta descargando el nuevo apk
-'Sub muestraProgreso(mensaje As String)
-'	ProgressDialogShow(mensaje)
-'End Sub
-'
-''appUpdater - Ocultamos el anuncio de que se esta descargando el nuevo apk
-'Sub ocultaProgreso
-'	ProgressDialogHide
-'End Sub
-'
-'Private Sub b_CargarMonto_Click
-'	
-'	c = Starter.skmt.ExecQuery("SELECT *  FROM kmt_info")
-'	c.Position = 0
-'	If c.RowCount < 0 Or c.RowCount = 0 Then
-'		MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
-'	Else
-'		Subs.panelVisible(p_add_monto,0,0)
-'	End If
-'	c.Close
-'
-'End Sub
-'
-'Private Sub p_add_monto_Click
-'	
-'End Sub
-'
-''Private Sub B_Aceptar_Monto_Click
-''	Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
-''	f.Position=0
-''	Private a As Cursor =Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-''	a.Position = 0
-''	Dim cmd As DBCommand
-''	cmd.Initialize
-''	cmd.Name = "select_estatus_MAZAPA"
-''	cmd.Parameters = Array As Object(a.GetString("ID_ALMACEN"),f.GetString("RUTAA"))
-''	reqManager.ExecuteQuery(cmd , 0, "estatus")
-''	f.Close
-''	a.Close
-''End Sub
-'
-'Sub enviarmonto
-'	
-'	DateTime.DateFormat = "MM/dd/yyyy"
-'	sDate=DateTime.Date(DateTime.Now)
-'	sTime=DateTime.Time(DateTime.Now)
-'	
-'	Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
-'	f.Position=0
-'
-'	Private a As Cursor=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-'	If a.RowCount>0 Then
-'		a.Position=0
-'	End If
-'	
-'	Private a2 As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
-'	If a2.RowCount>0 Then
-'		a2.Position=0
-'		Dim fecha() As String = Regex.Split(" ", a2.GetString("HVD_FECHA"))
-'		Dim fecha2() As String = Regex.Split("-", fecha(0))
-'		Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
-'		Log(fecha3)
-'		Dim hora() As String = Regex.Split("\.", fecha(1))
-'		Log(hora(0))
-'	End If
-'	
-'	
-'	
-'	Private cI As Cursor
-'	Private u As String = "SinUsuario"
-'	cI=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
-'	cI.Position=0
-'	If cI.RowCount > 0 Then u = cI.GetString("USUARIO")
-'	Private g As Cursor = Starter.skmt.ExecQuery("select * from ENV_MONTO_LIQ")
-''	If g.RowCount = 0 Then
-''		Starter.skmt.ExecNonQuery2("INSERT INTO ENV_MONTO_LIQ VALUES (?,?,?,?,?)", Array As Object(ET_Add_Monto.Text, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), u, fecha3 & " " & hora(0)))
-''		f.Close
-''		a.Close
-''	
-''		c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
-''		If c.RowCount > 0 Then
-''			c.Position = 0
-''			Dim cmd As DBCommand
-''			cmd.Initialize
-''			cmd.Name = "select_MontoCuenta_MAZAPArep"
-''			cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"),c.GetString("EML_FECHA_PED"))
-''			reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq")
-''		End If
-''		c.Close
-''	Else
-''		Starter.skmt.ExecNonQuery2("UPDATE ENV_MONTO_LIQ SET EML_MONTO = ? WHERE EML_ALMACEN = ? AND EML_RUTA = ? AND EML_USUARIO = ?", Array As String (ET_Add_Monto.Text ,a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), cI.GetString("USUARIO")))
-''		f.Close
-''		a.Close
-''	
-''		c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
-''		If c.RowCount > 0 Then
-''			c.Position = 0
-''			Dim cmd As DBCommand
-''			cmd.Initialize
-''			cmd.Name = "select_MontoCuenta_MAZAPArep"
-''			cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"),c.GetString("EML_FECHA_PED"))
-''			reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq")
-''		End If
-''		c.Close
-''	End If
-'
-'	p_add_monto.Visible = False
-'	
-'End Sub
-'
-'Private Sub B_Can_Monto_Click
-'	p_add_monto.Visible = False
-'End Sub
-'
-'Private Sub b_arqueocieego_Click
-'	c = Starter.skmt.ExecQuery("SELECT *  FROM CAT_GUNAPROD3")
-'	If c.RowCount > 0 Then
-'		Subs.panelVisible(p_validacion,0,0)
-'	Else
-'		MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
-'	End If
-'End Sub
-'
-'Private Sub et_buspc_TextChanged (Old As String, New As String)
-'	If New = "" Then
-'		CLV_PICK_CIEGO.Clear
-'	Else If New.Length >= 3 Then
-'		CLV_PICK_CIEGO.Clear
-'	
-'		q_buscar = "%" & et_buspc.Text & "%"
-'		Log(q_buscar)
-'		c=Starter.skmt.ExecQuery2($"select CAT_GP_NOMBRE, CAT_GP_ID , ifnull(PC_CANT,0) AS PC_CANT FROM CAT_GUNAPROD3 INNER JOIN PICK_CIEGO ON PC_ID_PROD = CAT_GP_ID AND PC_NOM_PROD = CAT_GP_NOMBRE WHERE (CAT_GP_NOMBRE LIKE ? OR  CAT_GP_ID  LIKE ? ) and CAT_GP_CLASIF <> 'PROMOS'"$, Array As String(q_buscar,q_buscar))
-'		If c.RowCount > 0 Then
-'
-'		
-'			For i = 0 To c.RowCount - 1
-'				c.Position = i
-'				CLV_PICK_CIEGO.Add(CreateListItem(c.GetString("CAT_GP_ID"), c.GetString("CAT_GP_NOMBRE"), c.GetString("PC_CANT")),i)
-''				Log(c.GetString("CAT_GP_ID") & ", " & c.GetString("CAT_GP_NOMBRE") & " ," & c.GetString("PC_CANT"))
-'			Next
-'			c.Close
-'		
-'			d=Starter.skmt.ExecQuery2($"select CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD3 WHERE (CAT_GP_NOMBRE LIKE ? OR  CAT_GP_ID  LIKE ? ) and CAT_GP_CLASIF <> 'PROMOS'AND CAT_GP_ID NOT IN (SELECT PC_ID_PROD FROM PICK_CIEGO)"$, Array As String(q_buscar,q_buscar))
-'		
-'			For i = 0 To d.RowCount - 1
-'				d.Position = i
-'				CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("CAT_GP_ID"), d.GetString("CAT_GP_NOMBRE")),i)
-''				Log(d.GetString("CAT_GP_ID") & ", " & d.GetString("CAT_GP_NOMBRE"))
-'			Next
-'			d.Close
-'		
-'		Else If c.RowCount = 0 Then
-'			d=Starter.skmt.ExecQuery2($"select CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD3 WHERE (CAT_GP_NOMBRE LIKE ? OR  CAT_GP_ID  LIKE ? ) and CAT_GP_CLASIF <> 'PROMOS'"$, Array As String(q_buscar,q_buscar))
-'		
-'			For i = 0 To d.RowCount - 1
-'				d.Position = i
-'				CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("CAT_GP_ID"), d.GetString("CAT_GP_NOMBRE")),i)
-''				Log(d.GetString("CAT_GP_ID") & ", " & d.GetString("CAT_GP_NOMBRE"))
-'			Next
-'			d.Close
-'		End If
-'	End If
-'End Sub
-'
-'Private Sub B_PC_ENV_Click
-'	Dim sDate, sTime As String
-'	DateTime.DateFormat = "dd/MM/yyyy"
-'	DateTime.TimeFormat = "HH:mm:ss"
-'	sDate = DateTime.Date(DateTime.Now)
-'	sTime = DateTime.Time(DateTime.Now)
-'	
-'	
-'	For i = 0 To CLV_PICK_CIEGO.Size - 1
-'		' Retrieve the panel and child views for the current item
-'		Dim itemPanel As B4XView = CLV_PICK_CIEGO.GetPanel(i)
-'		Dim innerPanel As B4XView = itemPanel.GetView(0)
-'		Dim editText As B4XView = innerPanel.GetView(1)
-'		Dim inputText As String = editText.As(EditText).Text
-'
-'		' Check if the input text matches the regex pattern for zeros or if it's empty
-'		If Regex.IsMatch("^[0]+$", inputText) Or inputText = "" Then
-'			inputText = "0"
-'		End If
-'
-'		' Retrieve and process the ID label
-'		Dim idLabel As B4XView = innerPanel.GetView(0)
-'		Dim idText As String = idLabel.As(Label).Text
-'		Dim idParts() As String = Regex.Split(CRLF, idText)
-''		Log(idParts(1))
-'		f=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
-'		f.Position=0
-'		Log(f.GetString("RUTAA"))
-'		a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-'		If a.RowCount>0 Then
-'			a.Position=0
-'		End If
-'		Dim k As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
-'		k.Position = 0
-'		Dim fechatabulador() As String = Regex.Split(" ", k.GetString("HVD_FECHA"))
-'		Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
-'		Dim fechatabulador3 As String = fechatabulador2(2)&"/"&fechatabulador2(1)&"/"&fechatabulador2(0)
-'		k.Close
-'		If inputText <> "" Then
-'			c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
-'			If c.RowCount = 0 Then
-'				' Insert data into the database
-'				Log(f.GetString("RUTAA"))
-'				Starter.skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), fechatabulador3&" "&sTime))
-'			
-'			Else
-'				Log(f.GetString("RUTAA"))
-'				Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?  WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
-'			End If
-'
-'		End If
-'		f.Close
-'		a.Close
-'		Log("Processed item " & i)
-'	Next
-'	et_buspc.Text = ""
-'	CLV_PICK_CIEGO.Clear
-'End Sub
-'
-'Private Sub b_terpc_Click
-'	Msgbox2Async("Una vez enviada la información no podras hacer modificaciones","Atención","SI","", "",LoadBitmap(File.DirAssets,"alert2.png"), False)
-'	Wait For Msgbox_Result (resultado As Int)
-'	If resultado = DialogResponse.POSITIVE Then
-'		Msgbox2Async("Estas seguro de enviar la información?","Atención","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
-'		Wait For Msgbox_Result (resultado As Int)
-'		If resultado = DialogResponse.POSITIVE Then
-'		
-'			Dim sDate, sTime As String
-'			DateTime.DateFormat = "dd/MM/yyyy"
-'			DateTime.TimeFormat = "HH:mm:ss"
-'			sDate = DateTime.Date(DateTime.Now)
-'			sTime = DateTime.Time(DateTime.Now)
-'	
-'			For i = 0 To CLV_PICK_CIEGO.Size - 1
-'				' Retrieve the panel and child views for the current item
-'				Dim itemPanel As B4XView = CLV_PICK_CIEGO.GetPanel(i)
-'				Dim innerPanel As B4XView = itemPanel.GetView(0)
-'				Dim editText As B4XView = innerPanel.GetView(1)
-'				Dim inputText As String = editText.As(EditText).Text
-'	
-'				' Check if the input text matches the regex pattern for zeros or if it's empty
-'				If Regex.IsMatch("^[0]+$", inputText) Or inputText = "" Then
-'					inputText = "0"
-'				End If
-'	
-'				' Retrieve and process the ID label
-'				Dim idLabel As B4XView = innerPanel.GetView(0)
-'				Dim idText As String = idLabel.As(Label).Text
-'				Dim idParts() As String = Regex.Split(CRLF, idText)
-''				Log(idParts(1))
-'				f=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
-'				f.Position=0
-'				Log(f.GetString("RUTAA"))
-'
-'				a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-'				If a.RowCount>0 Then
-'					a.Position=0
-'				End If
-'				Log(a.GetString("ID_ALMACEN"))
-'				
-'				Dim k As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
-'				k.Position = 0
-'				Dim fechatabulador() As String = Regex.Split(" ", k.GetString("HVD_FECHA"))
-'				Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
-'				Dim fechatabulador3 As String = fechatabulador2(2)&"/"&fechatabulador2(1)&"/"&fechatabulador2(0)
-'				k.Close
-'				If inputText <> "" Then
-'					c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
-'					If c.RowCount = 0 Then
-'						' Insert data into the database
-'						Starter.skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), fechatabulador3&" "&sTime))
-'					Else
-'						Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?  WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
-'					End If
-'				End If
-'				f.Close
-'				a.Close
-'				Log("Processed item " & i)
-'			Next
-'			Log("Finished processing all items")
-'			P_CIEGO.Visible = False
-'			et_buspc.Text = ""
-'			CLV_PICK_CIEGO.Clear
-'			c = Starter.skmt.ExecQuery("SELECT PC_ID_PROD, PC_ALMACEN, PC_RUTA, PC_FECHA FROM PICK_CIEGO")
-''			If c.RowCount > 0 Then
-''				For i = 0 To c.RowCount - 1
-''					c.Position = i
-''					Dim cmd As DBCommand
-''					cmd.Initialize
-''					cmd.Name = "select_HIST_PICKCIEGO_MAZAPA" '
-''					cmd.Parameters = Array As Object(c.GetString("PC_ID_PROD"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"),"REPARTO")
-''					reqManager.ExecuteQuery(cmd , 0, $"PICK_C_${c.GetString("PC_ID_PROD")}"$)
-''				Next
-''			End If
-'			c.close
-'		Else
-'		
-'		End If
-'	End If
-'End Sub
-'
-'Private Sub P_CIEGO_Click
-'	
-'End Sub
-'
-'Private Sub b_aceptar_Click
-'	Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
-'	f.Position=0
-'	Private a As Cursor =Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-'	a.Position = 0
-''	Dim cmd As DBCommand
-''	cmd.Initialize
-''	cmd.Name = "select_estatus_MAZAPA"
-''	cmd.Parameters = Array As Object(a.GetString("ID_ALMACEN"),f.GetString("RUTAA"))
-''	reqManager.ExecuteQuery(cmd , 0, "estatus2")
-'	f.Close
-'	a.Close
-''	p_validacion.Visible = False
-''	et_codigo.Text = ""
-''						
-''	Subs.panelVisible(P_CIEGO,0,0)
-'End Sub
-'
-'Sub passaquci
-'	f=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
-'	f.Position=0
-'
-'	a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-'	If a.RowCount>0 Then
-'		a.Position=0
-'	End If
-'	Log(a.GetString("ID_ALMACEN"))
-'	Log(f.GetString("CAT_CL_RUTA"))
-'	
-''	If et_codigo.Text = "KMTS1" Then
-''		p_validacion.Visible = False
-''		et_codigo.Text = ""
-''		Subs.panelVisible(P_CIEGO,0,0)
-''	Else
-''		Dim cmd As DBCommand
-''		cmd.Initialize
-''		cmd.Name = "select_CAT_PASS_ARQUEO_MAZAPA"
-''		cmd.Parameters = Array As Object(f.GetString("CAT_CL_RUTA"),a.GetString("ID_ALMACEN"),"REPARTO")
-''		reqManager.ExecuteQuery(cmd , 0, "contrasena")
-''		f.Close
-''		a.Close
-''	End If
-'End Sub
-'
-'Private Sub b_cancelarcodigo_Click
-'	p_validacion.Visible = False
-'End Sub
-'
-'Private Sub p_validacion_Click
-'	
-'End Sub
-'
-'Sub CreateListItem(Id_prod As String, Prod As String,cant As String) As Panel
-'	Dim pa As B4XView = xui.CreatePanel("")
-'	pa.SetLayoutAnimated(0, 0, 0, 1, 10)
-'	pa.LoadLayout("PANEL_PICK_CIEGO")
-'	pa.Height = 55dip
-'	pa.Width = 298dip
-'	'pa.Width = clv_orden.GetBase.Width
-'	L_PICK_CIEGO.Text = Id_prod &  CRLF & Prod
-'	L_PICK_CIEGO.TextSize = 12
-'	L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
-'	ET_PICK_CIEGO.Text = cant
-'	'cxc.Id_prod = mostrar3
-'	'Log(pa.Width)
-'	Return pa
-'End Sub
-'
-'Sub CreateListItem2(Id_prod As String, Prod As String) As Panel
-'	Dim pa As B4XView = xui.CreatePanel("")
-'	pa.SetLayoutAnimated(0, 0, 0, 1, 10)
-'	pa.LoadLayout("PANEL_PICK_CIEGO")
-'	pa.Height = 55dip
-'	pa.Width = 298dip
-'	'pa.Width = clv_orden.GetBase.Width
-'	L_PICK_CIEGO.Text = Id_prod &  CRLF & Prod
-'	L_PICK_CIEGO.TextSize = 12
-'	L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
-'	'cxc.Id_prod = mostrar3
-'	'Log(pa.Width)
-'	Return pa
-'End Sub
-'
-'Private Sub ImageView1_LongClick
-'
-'End Sub
-'
-'Private Sub p_appUpdate_Click
-'	
-'End Sub
-'
-
 #Region Shared Files
 '#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
 	'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
+	'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
 	'###########################################################################################################
 	'######################           PULL         #############################################################
 	'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
 	'###########################################################################################################
+	'######################        PULL FORZADO    #############################################################
+	'Ctrl + click Respaldar y Pull: ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=start&Args=powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\..\_sync_project.ps1
+	'###########################################################################################################
 	'######################           PUSH         #############################################################
 	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
 	'###########################################################################################################
 	'######################      PUSH TORTOISE GIT     #########################################################
 	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
 	'###########################################################################################################
+	'######################      PUSH TORTOISE GIT CON TAG    ##################################################
+	'Ctrl + clic para Git: ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\_git_tag.ps1&Args=%22%PROJECT%%22&Args=%22%PROJECT_NAME%%22
+	'###########################################################################################################
 #End Region
 
 'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 495a19a..f318f76 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -1938,7 +1938,6 @@ Sub B_PASO2_Click
 '	End If
 End Sub
 
-
 Sub mandaPendientesreparto
 '	c=Starter.skmt.ExecQuery("SELECT  CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO where ENVIO <> 1")
 '	Log($"REPARTO_Cliente PENDIENTE: ${c.RowCount}"$)
diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas
index 6e30935..ba978b6 100644
--- a/B4A/C_NoVenta.bas
+++ b/B4A/C_NoVenta.bas
@@ -48,6 +48,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	'load the layout to Root
 	Root.LoadLayout("no_venta")
 	reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
+	p_camara.Left = 0 : p_camara.Top = 0
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 5f65765..e1a0d43 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -111,7 +111,6 @@ Sub Class_Globals
 	Private multiAlmacen As Boolean = False
 	Private idAlmacenExtra As String = ""
 	
-	
 	Dim btAdmin As BluetoothAdmin
 	Dim cmp20 As Serial
 '	Dim printer As TextWriter
@@ -142,6 +141,7 @@ Sub Class_Globals
 	Private b_regresa_inv As Button
 	Private l_pzas As Label
 	Private Label17 As Label
+	Private l_version As Label
 End Sub
 
 'You can add more parameters here.
@@ -198,6 +198,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '		b.Close
 '		c.Close
 	End If
+	l_version.Text = Application.VersionName
 	b=Starter.skmt.ExecQuery("select id_almacen from CAT_ALMACEN")
 	If b.RowCount > 0 Then
 '		Log("Traemos almacen ..." & B4XPages.MainPage.server)
@@ -863,6 +864,7 @@ Sub envia_reparto
 End Sub
 
 Sub envioinfo
+	Subs.mandaDrop("ENVIO", e_ruta.text)
 	' NOVENTA
 	c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO, NV_REPROGRAMAR FROM NOVENTA")
 	D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
@@ -954,8 +956,7 @@ Sub envioinfo
 		Next
 	End If
 	ab.Close
-		
-	
+
 	c=Starter.skmt.ExecQuery("SELECT * FROM hist_ventas WHERE HVD_RECHAZO = 1 ")
 	If c.RowCount>0 Then
 		For i=0 To c.RowCount -1
@@ -975,7 +976,7 @@ Sub envioinfo
 		Next
 		c.Close
 	End If
-	
+
 '	pedido
 	c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO")
 	If c.RowCount>0 Then
@@ -989,8 +990,7 @@ Sub envioinfo
 		Next
 		c.Close
 	End If
-	
-	
+
 	''	reqManager.Initialize(Me, "http://187.189.244.154:1787") 'Para el servidor de pruebas.
 '	c = Starter.skmt.ExecQuery("SELECT * from reparto")
 '	If c.RowCount > 0 Then
@@ -1032,24 +1032,21 @@ Sub envioinfo
 '		Next
 '		c.Close
 '	End If
-	
-	
+
 	c=Starter.skmt.ExecQuery("SELECT  CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO")
 	Log($"REPARTO_Cliente 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_REPARTO_INTMEX"
 			cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO"))
 			reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$)
-			
 		Next
 	End If
 	c.Close
-	
+
 	'TABULADOR
 	c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS")
 	d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
@@ -1075,7 +1072,7 @@ Sub envioinfo
 		b.Close
 		f.Close
 	End If
-	
+
 '	c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS")
 '	If c.RowCount > 0 Then
 '		For i=0 To c.RowCount -1
@@ -1119,7 +1116,6 @@ Sub envioinfo
 '	End If
 '	c.Close
 
-
 	c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES")
 	d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
 	b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
@@ -1132,7 +1128,6 @@ Sub envioinfo
 			c.Position=i
 			Dim cmd As DBCommand
 			Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
-			
 			Dim fechatabulador3 As String = fechatabulador(0)
 			cmd.Initialize
 			cmd.Name = "insert_tabulador_billetes_INTMEX"
@@ -1144,13 +1139,13 @@ Sub envioinfo
 		b.Close
 		f.Close
 	End If
+
 	'FIN TABULADOR
-	
-	Dim cmd As DBCommand
-	cmd.Initialize
-	cmd.Name = "insert_drop_rep_INTMEX2"
-	cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO",Application.VersionName)
-	reqManager.ExecuteCommand(cmd , "inst_drop")
+'	Dim cmd As DBCommand
+'	cmd.Initialize
+'	cmd.Name = "insert_drop_rep_INTMEX2"
+'	cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO",Application.VersionName)
+'	reqManager.ExecuteCommand(cmd , "inst_drop")
 	ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
 End Sub
 
@@ -1182,11 +1177,11 @@ Sub cargar_Click
 		LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
 		reqManager.Initialize(Me, B4XPages.MainPage.server)
 	
-		Dim cmd As DBCommand
-		cmd.Initialize
-		cmd.Name = "insert_drop_rep_INTMEX2"
-		cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
-		reqManager.ExecuteCommand(cmd , "inst_drop")
+'		Dim cmd As DBCommand
+'		cmd.Initialize
+'		cmd.Name = "insert_drop_rep_INTMEX2"
+'		cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
+'		reqManager.ExecuteCommand(cmd , "inst_drop")
 '	reqs.Add("inst_noventa")
 
 		Starter.skmt.ExecNonQuery("delete from kmt_info")
@@ -1309,6 +1304,8 @@ Sub cargar_Click
 		Log("XXXX")
 		MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención")
 	End If
+	Sleep(1000)
+	Subs.mandaDrop("CARGA", e_ruta.Text)
 End Sub
 
 
@@ -2039,11 +2036,12 @@ Sub e_ruta_EnterPressed
 	If e_ruta.Text = "FIN DIA" Then
 		RES =  Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
 		If RES = DialogResponse.POSITIVE Then
-			Dim cmd As DBCommand
-			cmd.Initialize
-			cmd.Name = "insert_drop_rep_INTMEX2"
-			cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "FIN DIA",Application.VersionName)
-			reqManager.ExecuteCommand(cmd , "inst_drop")
+'			Dim cmd As DBCommand
+'			cmd.Initialize
+'			cmd.Name = "insert_drop_rep_INTMEX2"
+'			cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "FIN DIA",Application.VersionName)
+'			reqManager.ExecuteCommand(cmd , "inst_drop")
+			Subs.mandaDrop("FIN DIA", l_ruta.Text)
 			
 			e_ruta.Text = ""
 			Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
diff --git a/B4A/Files/no_venta.bal b/B4A/Files/no_venta.bal
index 31f0764695450a92f00d81f3cfdf447a914cc4ea..265b78bbc4f92f2f595a77f1077d1b48690a4193 100644
GIT binary patch
delta 28
kcmX@>a@J*oy!7OmVj`Q3rDriSwJ}a!$RoM=g<L8#0Gw0`1ONa4

delta 23
fcmX@>a@J*oyfh=jW(DcB%#-KyNN;{2m&yzPXD$dP

diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal
index e5eac6f8ff89b57334874089f0f47d45bb6ca735..d2308a121562e442b2e75c8e46d06ac7ebcf5ab4 100644
GIT binary patch
delta 2900
zcmb7Gd2~!?6rcMdn30TlLKaz>vB$_%Pie$<dQOkyV3IUJf+U7iL_(sdC6%1ysFq{<
zoo>_;dnl83PL-mTwptps)K*K->Y~()DphOm_f1URpgsD>ee?U?{oVWh?)~n2Z?>IK
z4xds2{dGDWj5?ixe~Ug0%=HV@Ga8#YX;jgK+;IiYNq(6MWjl}iXZX!%&7L-FNo>h%
zDQqukaH<BUY49M%gV~0#rE7481`pNXVH!NV4$shK)-7~d8l0`cBQ)5q!6P+zlm_Q$
z@XH!JT7z>LkI{9|>GBwil?xBfXI#KGj%_@fA6q@PLgxTOmwMFBS!N6~s0!b)#%ufP
zTpZeqoEO4QKSLGRofe0Z+;*6q5lkyk*u5!i%NpRtN)u`_RKByMTLeBxQnB1_P~5i=
z+pjZ%CL0ZxIcp0xI<|0qJeKz}U~m6oY#$hmgQ;N{Kfr`Qn}t?kXHo*@zZQb#1J}@M
z#M*6qElux*LrLw?p~#4cVm;>B9QY(zM0P+iZ`Cj*Qfx_UIr<i@<ES3EnXEF>MwX^*
z!M4;mxmQ4%h1R2cS^|cT3PC`sgErvs)Q*@j-NdLgy(^;oHAMe3H#QD_s8Gf9K`QPK
z?u~<kYG6r^Lv@A;CFvG&AZBP^sjOs(gR12I1?ehPIZM-{2%*C~)ZAef`iQBw$SEnC
z3ROlz;`(83L}WeO$b|eX3w?~FY01dXbkJtmhRu?>Da(x*dmXdTZlNuxuzQ+TIKn|&
zC3~x6cOKCm#^MlMw>x0U@svI>$3ok%I!Bbgm$rM$-p&!8vNz{U;BzjFeSyz;djnkn
zpPGIL;z!$P2YQ;i&}Y~;=2^_^T^|mUaba!(?W`s5p<R-;OVV~Tt(^8?K%SL8M`>OJ
zeSve&g=0&e%BZI)1QFwmaOY*ym(If2_C$L*xCgT0RYqc;ui#fuPG8Fe`(%RsI9bq<
z_SXiFqi^Iijvt&z)sIbLHP_RL4sgF)(YLskXU4Aa33O0K*jgG<Rn(OZ$*8+UiHvp^
zCNnSFW=5w3J^B<`>97y?h?jfh5$?7LR{GAX<mh8cj!GrRe3a<XVWO3e%i2!J+D^j#
zRycM|QRyTWn4@ufVm5s*{ime=wAX*S*54XYlN0ES<eZh98ZW1&mSchWRV$s7ob!@%
z!OOXz$)lINA0+Qb$-C&~UG(xorzX%(T<LWBndipFSJC5Ncv8#hS9$-EoW4tZzZW)T
z^@h3FO20|ZWf^f<MqH_#*uM0;^j(!vS7p@0nQd2MC71NNWu#k1Uh~fShEgm2A^q27
z^mU);xH2pKiKORaP*T>FZs0=uRyb3pXSBc^FK0KhJSFrdkG6Q->Hp%3__l~QqE3Gc
zv&zl>e>1$jaDGIraE7yy`06xa(+ijQyacFXb;Ic@pF(t}_Ta;?bD|zgXSQg3$CrlE
z_+Ys6Rk{n;Oc&h)^=XEHCG8M7OKp7b5pIb+hVCPCmWv*6c^&y(qe|X`$9am5aOjPz
z=rqUkUJ%s$IWb)8(j<|j=WLgv5GpbfWd?<O#6#@l2ge*2)x*v=ZH?<a;`bzpo;z3Z
zCuElmQtA_`+O`z!6!2P16spYX)Ah6g=N3IR)b$h(7Bm-m+~qx;#q+xnHN?D?J@C#e
zYEVNTCCphc+ANz_E<PZN-Xq5#<un?}WO+Ee7MfC4=l%EjHmcQ9cfMD+w=#ur)t#>a
ziEEOb^X9i93Se!vpa5UDM^_;7-|g#M^>!a3qhuMM#A?i}xk`{!j{HTYMn{<?_iW;k
zUGZMEqRNV>1_u|1BXorkpDwDVrkvC>2Gf?QK}~&<b3my*nu4)oSu%#azeH(9IRAPg
zE-zPunmvix9B~!N*tev6dI-DaBM{1<5jVh}<O@HHmr=arADu2zfVO-I=cT_ch>>3K
z<x?U4QOF8JNL|-dWG+2REqqkB@MU;ZN3d#_66sZp`YVj01)?IMbMC)tjN)|vQ=<s+
z)!56Kx`L-JTAo?7uiJC7G2&z~eAPfD)-!P}ADK8_Kh?yw;_SZDe+3WLHm8=(#5Ge0
z9V>(RztqFmhaLx3swl2BDx6*nejpOpxfHYKLC&jGgUmi+nYAn_np$IHrAuj3$7=H=
KR$D}FSo#mAMNe-4

delta 2807
zcma)7dvHu=6yI|rbQ9UEE0IVe*_DU3LTbyDrrX4zolcd!y%JgPAlOhv)N3Re8L8q&
zjYmAHf-+6GqmvFQ`cPVrrl_J`)dz}*(yA&w-?y91U60|9bMw33`TfrM<$T}$w&sMg
z{g@KqYcLoJOa_A=|IObLFw#ex?USRBLp$#~z-LAZucmUOan$2<9nR3<OvZgU`f~Ks
z;r=>2K!>w*I9rDYHsBeCoQ4;JLx%_H@L(MtqQgUVc$f|k*WnR5oXdD5$0&}`5=XjT
z^7v&8$5@VW96lV4IGoxDzmARQ8Eu8BrJuGpG?5xBylm^BH3>WU0^-a4kkxw{tw9Gz
zGC!@E?dby?Oi#eIAtBhDT#n<tgBH%R<GJK`I15#rN$-q+0Y=26R?vqmio=W)6&shR
z{ASGzN6$Q!*2x0%({|!WDvR5qG+jkZS}RniWFaJ@iq^|+>t(kMT5={44rR3CO3|=n
ziavfg+2<C0#I#pX*+pd}jBUcJSuSJc{mO8-FV}7fXa8tK_v;GtL={Q)ST<LMZv90u
z6^*h~Eb8wv-Y4rcRiJKmoKP?l1uJpytthFwmtBEQ*)G+Ufhvl#U8<y<YqV9m-6|ED
zw#C72pLfWi%yPI`1=G8tXmAB>lgw?B`3dq1h1osmI7E_*h6r*RN`_TXl_XY4;-^T+
zO~AZF6O<8E=sesthmzrf?T7BUQ)xSD-dKULqlcn;WMkUF+UB@C+7AC*6$yD!v=cdb
zo#4!EjHPdy@cyU-`pm5uMZ4<Rj0TMfLHwvzRL%TC+Kp?IZS*-(oZ<8Z;-kaRYmCZh
z(3oQSlJ(s&Gs72Wt>@?~ca63Sqf~yWFS7?r#}(4ovdmstW*^2n<7gi<Vo>cIMBl(U
zvmGj*4MAXbEPX4>tj@PH64T!=rcVdZVZ4J5x|t>%7~h!=NoLClc1FyU2aorcxn1oc
zFr}JsXhH&g=cTFfXlfp*F(PH6jlTDCb=c$Tuyl3A<ElM&zip$V^8fom{(r}iG$oFX
zA%D_L`cbYQm+L3w`Uzg|fyx3ScJg3P%KT3<e@f<0alRL}PqEQynL8tMXJziJTbn@V
zWbS8~J1=wRW$xpt3G@p)e}{f$$I1K@GyDx(9I5Cs%|^e=+yy@2$#lUpfr9B1=%UPA
zlB!Em^@saxhQL14Mwey&id0^4E7P!RmW{5;Os!PbO64_=vg>Rc)ye#Isl4u17SW$b
zX=A}FP8F9TRlHObL^oiGi$e8$BcuFDkyu_dI`k&rLgFSe{>2Y*!;2fsVEh{q#WBWP
z4FBQqMN&biRWQOhNc;da<B<7S22EA*c0(&Fo<ek6?xX|uz}vj4OT!u!OaH?1S}>N)
zIYD<MZ}rNy&`Q+6JNI#Gx>)Ex+$^c3yYAaUmAtzT@|1f944->dF%W7p+VZ_3navF3
z)!kq~QeFhtJX%_d^iubwr2?fE9*1bBpvSyg#mBpf&m*dAdvBi7h+v6{)Q?#4C0OHH
zix~^(oE-7^Avfj@o+0}+3>mxUw-7~&ixaix3%iiggci=}ZEoUai1RsfVmwnFCw@tk
zrylfWbo(kdDh!3Mi{+2md_TP}e~+)r2Ao|KOh&D4@f1@0*^?dHm#SueFJIh5_-d-v
zEtyM7fQJ?EFqR2*OI}CMWj&O@2c4T;&P~gW3Pa)i#pU~PX<4*#+5q$NU@{|d#VJMQ
z7OuS?P^OwyuQtsHDTNl4mDN%Z-d&k&4!S?Rz!6Eo2v{{QtOcj!_YlIspAVZaHRY!<
zl(3*AD552=`Wnn)MG)lYAb#uR=MahxD<ZLDZ9F=yE>pt19ECBv;agxwqUF=<DHZG1
zlu@|!75*@i@Rf?-wJ$%?TdODV)=GHOcC5`MCBm~C5%>2Kdlo5o<How)isixGur{0{
zhEH^kT5}W6`EIyGF4s>@<QpbqMcv|5EoMU-QldOQqr55Zvn72VoKudT8|%MjT7}Y$
qkv>*(ee5ylwy9Q$B~%WSXCrDAH%%0q*Sx-a?0uzO!Zy%0ulyfQC@&`f

diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index 04d8c7e..92b4802 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -138,11 +138,6 @@ Sub ENVIA_ULTIMA_GPS
 	End If
 End Sub
 
-
-
-
-
-
 Sub IsConnectedToInternet As Boolean 'ignore
 	Dim r As Reflector
 	r.Target = r.GetContext
@@ -155,7 +150,7 @@ Sub IsConnectedToInternet As Boolean 'ignore
 End Sub
 
 Sub JobDone(Job As HttpJob)
-'	LogColor("starter jobdone", Colors.Red)
+	LogColor("starter jobdone", Colors.Red)
 '	Log(Job.ErrorMessage)
 '	Private r As DBResult = reqManager.HandleJob(Job)
 	If Job.Success = False Then
@@ -165,6 +160,6 @@ Sub JobDone(Job As HttpJob)
 		End If
 		'ToastMessageShow("Error: " & Job.ErrorMessage, True)
 	Else
-'		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211023
+		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211023
 	End If
 End Sub
\ No newline at end of file
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 39a8506..44c81f1 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -1170,3 +1170,13 @@ Sub guardaAppInfo 'ignore
 	Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
 	Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
 End Sub
+
+'Manda a tmp_drop
+Sub mandadrop(evento As String, ruta As String)
+	LogColor($"===>  Mandamos a TMP_DROP - ${evento}"$, Colors.red)
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "insert_drop_rep_INTMEX2"
+	cmd.Parameters = Array As Object(dameUsuarioDeDB, ruta, traeAlmacen, B4XPages.MainPage.principal.l_ctast.text, traeEntregados, traeRechazados, evento, Application.VersionName)
+	Starter.reqManager.ExecuteCommand(cmd , "inst_drop")
+End Sub
\ No newline at end of file
diff --git a/B4A/_git_tag.ps1 b/B4A/_git_tag.ps1
new file mode 100644
index 0000000..e2a9d1e
--- /dev/null
+++ b/B4A/_git_tag.ps1
@@ -0,0 +1,127 @@
+# --- SCRIPT DE COMMIT Y TAG (MODO IDE B4A) ---
+
+# 0. CONFIGURACIÓN
+$HacerPush = $true # Cambia a $true para que suba los cambios a GitHub
+
+# Cargar librería visual para el MessageBox (por si se necesita en el Push)
+Add-Type -AssemblyName System.Windows.Forms
+
+# 1. AUTODESCUBRIMIENTO
+$projectPath = $PSScriptRoot
+Write-Host "Ruta del proyecto: $projectPath"
+
+$b4aFileItem = Get-ChildItem -Path $projectPath -Filter "*.b4a" | Select-Object -First 1
+
+if (-Not $b4aFileItem) {
+    Write-Host "ERROR: No hay archivo .b4a en esta carpeta."
+    return
+}
+
+$projectName = $b4aFileItem.BaseName
+Write-Host "Proyecto detectado: $projectName"
+
+# 2. LEER VERSIÓN
+$versionLine = Get-Content $b4aFileItem.FullName | Select-String "#VersionName:"
+if (-Not $versionLine) { 
+    Write-Host "ERROR: Falta #VersionName en el archivo .b4a"
+    return 
+}
+$version = ($versionLine -split ":")[1].Trim()
+# Reemplaza cualquier espacio en blanco por un guion bajo solo para el tag
+$tagName = "$version".Replace(" ", "_")
+
+Set-Location $projectPath
+
+# 3. COMMIT CON TORTOISEGIT
+$oldCommit = git rev-parse HEAD 2>$null
+
+Write-Host "----------------------------------------"
+Write-Host "Version a etiquetar: $version"
+Write-Host "Abriendo ventana de TortoiseGit..."
+
+$pathArg = '/path:"{0}"' -f $projectPath
+$msgArg = '/logmsg:"VERSION {0}"' -f $version
+$cmdArg = "/command:commit"
+
+Start-Process "TortoiseGitProc.exe" -ArgumentList $cmdArg, $pathArg, $msgArg
+
+Write-Host "Esperando a que termines el commit en TortoiseGit..."
+# El freno de mano: espera a que cierres la ventana
+while (Get-Process "TortoiseGitProc" -ErrorAction SilentlyContinue) {
+    Start-Sleep -Seconds 1
+}
+
+$newCommit = git rev-parse HEAD 2>$null
+
+# 4. VALIDACIÓN
+if ($oldCommit -eq $newCommit) {
+    Write-Host "WARNING: Commit cancelado o sin cambios detectados."
+    return
+}
+
+Write-Host "Commit registrado exitosamente: $newCommit"
+
+# 5. GESTIÓN DE TAGS
+$tagGenerado = $false
+
+# Revisamos si el tag ya existe localmente y lo borramos para recrearlo con el nuevo commit
+if (git tag -l $tagName) {
+    git tag -d $tagName 2>$null | Out-Null
+}
+
+# Creamos el tag nuevo apuntando al commit que acabamos de hacer
+git tag -a $tagName -m "Release version $version"
+if ($?) { $tagGenerado = $true }
+
+# 6. LÓGICA DE PUSH
+if ($HacerPush) {
+    Write-Host "Conectando con GitHub..."
+    $remoteTagInfo = git ls-remote --tags origin $tagName
+
+    if ($remoteTagInfo) {
+        # Conflicto: Ya existe en remoto
+        $topForm = New-Object System.Windows.Forms.Form
+        $topForm.TopMost = $true
+        $topForm.Opacity = 0
+        $topForm.ShowInTaskbar = $false
+        $topForm.StartPosition = "CenterScreen"
+        $topForm.Show()
+        $topForm.Activate()
+        
+        [System.Console]::Beep(1000, 200)
+        
+        $msgBody = "El tag '$tagName' YA EXISTE en GitHub.`n`nDeseas SOBRESCRIBIRLO?`n`nSi = Borrar anterior y actualizar (Force Push).`nNo = Subir solo codigo (mantener tag viejo)."
+        $msgTitle = "Conflicto de Versiones - $projectName"
+        
+        $respuesta = [System.Windows.Forms.MessageBox]::Show($topForm, $msgBody, $msgTitle, "YesNo", "Warning")
+        $topForm.Dispose()
+        
+        if ($respuesta -eq "Yes") {
+            Write-Host "Sobrescribiendo tag en GitHub (Force Push)..."
+            git push origin
+            git push origin $tagName --force
+        } else {
+            Write-Host "Conservando tag anterior en GitHub..."
+            git push origin
+        }
+    } else {
+        # Tag Nuevo
+        Write-Host "Subiendo codigo y tag nuevo a GitHub..."
+        git push origin --follow-tags
+    }
+} else {
+    Write-Host "Push OMITIDO (Switch de control apagado)."
+}
+
+# 7. REPORTE FINAL PARA EL IDE
+$EstadoPush = if($HacerPush) { "SI" } else { "NO (Modo de prueba local)" }
+$EstadoTag = if($tagGenerado) { "SI ($tagName)" } else { "NO (Error al generar)" }
+
+Write-Host ""
+Write-Host "========================================"
+Write-Host "           REPORTE DE VERSION           "
+Write-Host "========================================"
+Write-Host " PROYECTO   : $projectName"
+Write-Host " TAG CREADO : $EstadoTag"
+Write-Host " PUSH GITHUB: $EstadoPush"
+Write-Host "========================================"
\ No newline at end of file
diff --git a/B4A/_juntaBas.ps1 b/B4A/_juntaBas.ps1
new file mode 100644
index 0000000..30e34be
--- /dev/null
+++ b/B4A/_juntaBas.ps1
@@ -0,0 +1,127 @@
+# SCRIPT: _juntaBas_Master_FinalIA.ps1
+# FIX: Corregida sintaxis de comillas y concatenación de tags XML.
+# OBJETIVO: Fuente de verdad para IA con navegación ultra estructurada.
+
+$ErrorActionPreference = 'SilentlyContinue'
+$Dir = Get-Location
+$LT = [char]60; $GT = [char]62; $SL = [char]47
+$NL = [Environment]::NewLine
+
+Write-Output '--- GENERANDO MASTER IA DEFINITIVO (FIX ESTRUCTURAL) ---'
+
+# 1. PARSEO DEL PROYECTO .B4A
+$b4a = Get-ChildItem -Path ".\*" -Include "*.b4a" -Recurse | Select-Object -First 1
+$Name = 'App'; $Ver = '0.0'; $ModulosValidos = @(); $Librerias = @()
+
+if ($b4a) {
+    $lines = [System.IO.File]::ReadAllLines($b4a.FullName)
+    foreach ($L in $lines) {
+        if ($L -match '#ApplicationLabel:\s*(.*)') { $Name = $Matches[1].Trim() }
+        if ($L -match '#VersionName:\s*(.*)') { $Ver = $Matches[1].Trim() }
+        if ($L -match '^Module\d+=(.*)') {
+            $m = [System.IO.Path]::GetFileName($Matches[1].Trim())
+            if (-not $m.EndsWith(".bas") -and $m -ne "Main") { $m += ".bas" }
+            $ModulosValidos += $m
+        }
+        if ($L -match '^Library\d+=(.*)') { $Librerias += $Matches[1].Trim() }
+    }
+}
+
+$OutName = "_" + $Name + "_" + $Ver + "_IA.md"
+$OutFile = Join-Path $Dir $OutName
+
+# 2. HEADER CON TUS INSTRUCCIONES CRÍTICAS
+$CurrentDate = Get-Date -Format 'yyyy-MM-dd HH:mm'
+$Header = @"
+# PROYECTO: $Name
+- Version: $Ver
+- Fecha: $CurrentDate
+- Librerias Activas: $($Librerias -join ", ")
+
+## INSTRUCCIONES CRITICAS (B4A / BASIC4ANDROID)
+0. **Integridad del Contexto:** Antes de procesar peticiones, cuenta si el numero de modulos listados en el indice coincide con los detallados en el cuerpo.
+1. **Source of Truth (Codigo):** Este archivo contiene el codigo fuente ACTUAL del proyecto.
+2. **Source of Truth (Librerias):** Basa tus sugerencias en la lista de 'Librerias Activas'.
+3. **Anti-Alucinacion:** Antes de sugerir, VERIFICA la 'Interfaz Pública' o el código fuente del módulo.
+4. **Existencia Estricta:** Si una variable/Sub no está en el texto, NO EXISTE.
+5. **Formato:** Usa bloques 'vb'.
+6. **Navegacion Estructural:** Usa los tags <module>, <interface> y <method> para localizar codigo.
+7. **Inferencia de Datos:** Deduce la BD solo de los strings SQL presentes.
+"@
+
+Set-Content -Path $OutFile -Value $Header -Encoding UTF8
+
+# 3. LISTAR ARCHIVOS
+$files = Get-ChildItem -Path $Dir -Include *.bas,*.b4a -Recurse | Where-Object { 
+    $_.FullName -notmatch 'Objects' -and ($_.Extension -eq '.b4a' -or $ModulosValidos -contains $_.Name)
+}
+
+# 4. INDICE DE MODULOS
+Add-Content $OutFile ($NL + "## INDICE DE MODULOS" + $NL) -Encoding UTF8
+foreach ($f in $files) {
+    $Ref = $f.Name.Replace('.', '').Replace(' ', '-').ToLower()
+    Add-Content $OutFile ("- [" + $f.Name + "](#modulo-" + $Ref + ")") -Encoding UTF8
+}
+
+# 5. CODIGO FUENTE ESTRUCTURADO
+Add-Content $OutFile ($NL + '## CODIGO FUENTE DETALLADO' + $NL) -Encoding UTF8
+
+foreach ($f in $files) {
+    Write-Host "   -> $($f.Name)... " -NoNewline
+    $txt = [System.IO.File]::ReadAllLines($f.FullName)
+    
+    # Pre-escaneo para <interface>
+    $Methods = @()
+    foreach ($line in $txt) {
+        if ($line.Trim() -match '^(?:Public\s+|Private\s+)?Sub\s+([\w\d_]+)') { 
+            $Methods += $Matches[1] 
+        }
+    }
+
+    $Ref = $f.Name.Replace('.', '').Replace(' ', '-').ToLower()
+    Add-Content $OutFile "$NL<module name='$($f.Name)' id='modulo-$Ref'>" -Encoding UTF8
+    
+    Add-Content $OutFile "  <interface>" -Encoding UTF8
+    foreach($m in $Methods) { 
+        Add-Content $OutFile "    <method_ref name='$m' />" -Encoding UTF8 
+    }
+    Add-Content $OutFile "  </interface>$NL" -Encoding UTF8
+
+    Add-Content $OutFile "```vb" -Encoding UTF8
+    
+    $skip = ($f.Extension -eq '.b4a')
+
+    foreach ($l in $txt) {
+        $trim = $l.Trim()
+
+        if ($skip) {
+            if ($trim.StartsWith("#") -and -not $trim.StartsWith("#Region")) { Add-Content $OutFile $l -Encoding UTF8 }
+            if ($l.Contains("@EndOfDesignText@")) { $skip = $false }
+            continue
+        }
+
+        # Inicio de Método
+        if ($trim -match '^(?:Public\s+|Private\s+)?Sub\s+([\w\d_]+)') {
+            Add-Content $OutFile "<method name='$($Matches[1])'>" -Encoding UTF8
+        }
+
+        # Limpieza de comentarios y escritura de línea
+        if ($trim.StartsWith("'")) {
+            if (-not ($trim.StartsWith("'#") -or ($trim -match 'TODO:') -or ($trim -match 'FIX:'))) { continue }
+        }
+        
+        if (-not [string]::IsNullOrWhiteSpace($trim)) {
+            Add-Content $OutFile $l -Encoding UTF8
+        }
+
+        # Fin de Método
+        if ($trim -eq "End Sub") {
+            Add-Content $OutFile "</method>" -Encoding UTF8
+        }
+    }
+    
+    Add-Content $OutFile "```$NL</module>" -Encoding UTF8
+    Write-Host "OK" -ForegroundColor Green
+}
+
+Write-Output ("--- FINALIZADO: " + $OutName + " ---")
\ No newline at end of file
diff --git a/B4A/intmex_reparto.b4a b/B4A/intmex_reparto.b4a
index 6f718b7..7de9dbe 100644
--- a/B4A/intmex_reparto.b4a
+++ b/B4A/intmex_reparto.b4a
@@ -1,6 +1,12 @@
 Build1=Default,reparto_INTMEX2.keymon.lat,HU2_PUBLIC
 File1=2023.png
 File10=cliente.bal
+File100=UBICARCLIENTE.png
+File101=usuario.png
+File102=vecteezy_abstract-color-polygon-background-design-abstract-geometric_22231666.jpg
+File103=visitaazul.png
+File104=visitaazul1.png
+File105=visitadosblanco.png
 File11=clienteblanco.png
 File12=clientes.bal
 File13=Clientes_visitados.jpg
@@ -61,42 +67,51 @@ File62=mapa_rutas.bal
 File63=mariana.jpg
 File64=mariana_logo_192x192.jpg
 File65=marker-amarillo.png
-File66=MARQUEZ_logo_192x192.jpg
-File67=no_venta.bal
-File68=nuevocliente.bal
-File69=panel_pick_ciego.bal
+File66=marker-azul.png
+File67=marker-azul1.png
+File68=marker-azul2.png
+File69=marker-azul3.png
 File7=CALIFICARCLIENTE.png
-File70=pedido.bal
-File71=planfia_logo.png
-File72=planfia_logo_old.png
-File73=planfia_logo_old2.png
-File74=principal.bal
-File75=proditem.bal
-File76=proditem2.bal
-File77=productos.bal
-File78=profina.jpg
-File79=PROFINA.png
+File70=marker-azul4.png
+File71=marker-azul5.png
+File72=marker-rojo.png
+File73=marker-rojo1.png
+File74=marker-rojo2.png
+File75=marker-verde.png
+File76=no_venta.bal
+File77=nuevocliente.bal
+File78=panel_pick_ciego.bal
+File79=pedido.bal
 File8=check.bal
-File80=rechazos.jpg
-File81=RECHAZOS.png
-File82=rechazosblanco.png
-File83=sync.png
-File84=tabulador.bal
-File85=Tabulador.jpg
-File86=TABULADOR.png
-File87=tabuladorblanco.png
-File88=telefonos.bal
-File89=ubicacionblanco.png
+File80=planfia_logo.png
+File81=planfia_logo_old.png
+File82=planfia_logo_old2.png
+File83=principal.bal
+File84=proditem.bal
+File85=proditem2.bal
+File86=productos.bal
+File87=profina.jpg
+File88=PROFINA.png
+File89=rechazos.jpg
 File9=checklist.bal
-File90=Ubicar_clientes.jpg
-File91=UBICARCLIENTE.png
-File92=usuario.png
-File93=vecteezy_abstract-color-polygon-background-design-abstract-geometric_22231666.jpg
-File94=visitaazul.png
-File95=visitaazul1.png
-File96=visitadosblanco.png
+File90=RECHAZOS.png
+File91=rechazosblanco.png
+File92=sync.png
+File93=tabulador.bal
+File94=Tabulador.jpg
+File95=TABULADOR.png
+File96=tabuladorblanco.png
+File97=telefonos.bal
+File98=ubicacionblanco.png
+File99=Ubicar_clientes.jpg
 FileGroup1=Default Group
 FileGroup10=Default Group
+FileGroup100=Default Group
+FileGroup101=Default Group
+FileGroup102=Default Group
+FileGroup103=Default Group
+FileGroup104=Default Group
+FileGroup105=Default Group
 FileGroup11=Default Group
 FileGroup12=Default Group
 FileGroup13=Default Group
@@ -191,6 +206,9 @@ FileGroup93=Default Group
 FileGroup94=Default Group
 FileGroup95=Default Group
 FileGroup96=Default Group
+FileGroup97=Default Group
+FileGroup98=Default Group
+FileGroup99=Default Group
 Group=Default Group
 Library1=appupdating
 Library10=googlemaps
@@ -252,7 +270,7 @@ Module6=C_Cheklist
 Module7=C_Cliente
 Module8=C_Clientes
 Module9=C_Detalle_Promo
-NumberOfFiles=96
+NumberOfFiles=105
 NumberOfLibraries=27
 NumberOfModules=32
 Version=12.8
diff --git a/B4A/intmex_reparto.b4a.meta b/B4A/intmex_reparto.b4a.meta
index d37cfa2..e82430b 100644
--- a/B4A/intmex_reparto.b4a.meta
+++ b/B4A/intmex_reparto.b4a.meta
@@ -88,7 +88,7 @@ ModuleClosedNodes27=
 ModuleClosedNodes28=
 ModuleClosedNodes29=
 ModuleClosedNodes3=
-ModuleClosedNodes30=
+ModuleClosedNodes30=2
 ModuleClosedNodes31=
 ModuleClosedNodes32=
 ModuleClosedNodes4=
@@ -97,6 +97,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Principal,Class_Globals,138,0,Diseñador Visual,login.bal,-100,1,Diseñador Visual,detalleVenta.bal,-100,2,C_Cliente,gest_Click,692,6,C_Principal,imp_LIQUIDACION,3194,0,C_Principal,p_inventario_Click,3211,0,C_Principal,b_regresa_inv_Click,3207,0,C_Principal,B4XPage_CloseRequest,1979,3,Diseñador Visual,principal.bal,-100,6,C_Principal,inventario_Click,2795,6
+NavigationStack=Starter,JobDone,156,0,Starter,IsConnectedToInternet,144,0,C_Principal,envia_reparto,855,0,C_Principal,envioinfo,860,6,C_Principal,cargar_Click,1305,3,C_Principal,e_ruta_EnterPressed,2036,5,C_Principal,B4XPage_Created,194,4,Diseñador Visual,principal.bal,-100,6,C_Principal,Class_Globals,139,0,C_Principal,Initialize,144,0
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,17
+VisibleModules=30,2,17,7,8,14,31,23