Commit inicial.

.gitignore

@@ -0,0 +1,2 @@
+**/Objects
+**/AutoBackups

B4A/B4XCliente.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/B4XClientes.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/B4XMainPage.bas

@@ -0,0 +1,649 @@
+B4A=true
+Group=Default Group
+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
+	Private Root As B4XView
+	Private xui As XUI
+	Public login As B4XMainPage
+	Public principal As C_Principal
+	Public clientes As C_Clientes
+	Public cliente As C_Cliente
+	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 nota As C_Nota
+	Public pedidos As C_Pedidos
+	Public promos As C_Promos
+	Public historico As C_Historico
+
+	'nuevocliente -> NuevoCliente
+	'buscar -> ticketsDia
+	'colonia -> clientes
+	'nopago -> noVenta
+	'tarjeta -> Nota
+	'fila -> Cliente
+	'colonia2 -> Productos
+	
+	'xxxxxxxxxxxxxxxxxxxxxxxxx
+
+	Dim reqManager As DBRequestManager
+	Dim v As String = Application.VersionName
+	Dim ruta As String
+	Dim tgl As Toggle
+	Dim lat_gps, lon_gps As String
+	Dim usuario As String
+	Dim batt As Int
+	Dim skmt As SQL
+	Dim montoActual, clientesTotal, clientesVenta, clientesVisitados,almacen, rutaPreventa As String
+	Dim server, fechaRuta As String
+	Dim Logger As Boolean
+	Dim mac_impresora As String
+	Dim Phn As PhoneId
+	
+	Dim user As EditText
+	Dim pass As EditText
+	Dim c As Cursor
+	Dim existe As String
+	Dim paso1 As String
+	Private IMEN As Label
+	Dim IMEI As String = ""
+	Dim alterno As String
+	Private b_menu As Button
+	Dim PopupMenu As RSPopupMenu
+	Dim cmd As DBCommand
+	Private PDF As Button
+	Private bpv1 As BatteryProgressView
+	Dim batterystatus(11) As Int
+	Private bu As BatteryUtilities
+	Private b_apk As Button
+	Private i_engrane As ImageView
+	Private p_Main As Panel
+	Private p_appUpdate As Panel
+	Private b_regesar As Button
+	Private l_version As Label
+	Private ImageView1 As ImageView
+	Private Label2 As Label
+	Private Entrar As Button
+	Dim tipo_venta As String
+	Dim bTerminarClicked As Boolean = False
+	Private lv_server As ListView
+	Private l_server As Label
+	Private b_envioBD As Button
+	Public Provider As FileProvider
+	Public rutaBDBackup = ""
+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)
+	B4XPages.GetManager.LogEvents = True
+	Root = Root1
+	Root.LoadLayout("login")
+'	B4XPages.SetTitle(Me, "Guna Preventa")
+	login.Initialize
+	B4XPages.AddPage("Login", login)
+	principal.Initialize
+	B4XPages.AddPage("Principal", principal)
+	clientes.Initialize
+	B4XPages.AddPage("Clientes", clientes)
+	cliente.Initialize
+	B4XPages.AddPage("Cliente", cliente)
+	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)
+	nota.Initialize
+	B4XPages.AddPage("Nota", nota)
+	pedidos.Initialize
+	B4XPages.AddPage("Pedidos", pedidos)
+	promos.Initialize
+	B4XPages.AddPage("Promos", promos)
+	historico.Initialize
+	B4XPages.AddPage("Historico", historico)
+	
+	p_Main.Height = Root.Height
+	p_Main.Width = Root.Width
+	
+	ruta = Starter.ruta
+	Provider.Initialize
+	
+	Subs.borraArribaDe100Errores 	' Para Websockets
+	Subs.borraArribaDe600RenglonesBitacora 	' Para Websockets
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+	skmt.Initialize(ruta,"kmt.db", True)
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_OUT (HSO_INI TEXT, HSO_FIN TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS INVENT_X_ENVIAR (ALMACEN TEXT, PROID TEXT, CANTIDAD TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_RESUM_APK (HIST_RA_OBJMES TEXT, HIST_RA_VENTA TEXT, HIST_RA_TENDENCIA TEXT, HIST_RA_ALCANCE TEXT, HISR_RA_DRAOBJ TEXT, HIST_RA_DRAVTA TEXT, HIST_RA_DSOBJ TEXT, HIST_RA_DSVTA TEXT, HIST_RA_VPOOBJ TEXT, HIST_RA_VPOVTA TEXT, HIST_RA_COBCCC TEXT, HIST_RA_CTES TEXT, HIST_RA_ECO TEXT, HIST_RA_VISITPLAN TEXT, HIST_RA_VISIREAL TEXT, HIST_RA_COBVISIT TEXT, HIST_RA_FRECCOMPOBJ TEXT, HIST_RA_FRECCOMREAL TEXT, HIST_RA_VENTAMES1 TEXT, HIST_RA_VENTAMES2 TEXT, HIST_RA_VENTAMES3 TEXT, HIST_RA_VENTAMES4 TEXT, HIST_RA_RECHAZO TEXT, HIST_RA_RECHAZOPORCEN TEXT, HIST_RA_SEMANA1 TEXT, HIST_RA_SEMANA1_DIAS TEXT, HIST_RA_SEMANA1_DRA TEXT, HIST_RA_SEMANA2 TEXT, HIST_RA_SEMANA2_DIAS TEXT, HIST_RA_SEMANA2_DRA TEXT, HIST_RA_SEMANA3 TEXT, HIST_RA_SEMANA3_DIAS TEXT, HIST_RA_SEMANA4 TEXT, HIST_RA_SEMANA3_DRA TEXT, HIST_RA_SEMANA4_DIAS TEXT, HIST_RA_SEMANA4_DRA TEXT, HIST_RA_SEMANA5 TEXT, HIST_RA_SEMANA5_DIAS TEXT, HIST_RA_SEMANA5_DRA TEXT, HIST_RA_SEMANA1_LPT TEXT, HIST_RA_SEMANA2_LPT TEXT, HIST_RA_SEMANA3_LPT TEXT, HIST_RA_SEMANA4_LPT TEXT, HIST_RA_SEMANA5_LPT TEXT, HIST_RA_RUTA TEXT, HIST_RA_IDALMACEN TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_COMISIONES_MOVIL (HCM_IDALMACEN TEXT, HCM_RUTA TEXT, HCM_TOTAL_V TEXT, HCM_TOTAL_VIVE TEXT, HCM_TOTAL_GUNA TEXT,	HCM_TOTAL_BEB TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GEOCERCA (HGCLIENTE TEXT, HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FACE (HFCLIENTE TEXT, HFALIAS TEXT, HFRUTA TEXT, HFALMACEN TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_GPS(FECHA INTEGER, LAT TEXT, LON TEXT)")
+	skmt.ExecNonQuery("CREATE VIEW IF NOT EXISTS CATALOGO AS Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD UNION Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD GROUP BY CAT_GP_CLASIF, CAT_GP_ID")
+	skmt.ExecNonQuery("CREATE VIEW IF NOT EXISTS total_marcas AS 	Select  cat_gp_clasif, sum(pe_costo_tot) As total from CATALOGO, pedido where pe_proid = cat_gp_id 	And pe_cliente <> 0 	group by cat_gp_clasif")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_MARCAS_CUOTAS ( HMC_MARCA TEXT, HMC_TOTAL TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CODIGO_BARRAS(CODIGOKMTS TEXT, CODIGOB TEXT, LAT TEXT, LON TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO1(CLIENTE TEXT,ALMACEN TEXT, P1 TEXT, P2 TEXT, P3 TEXT, P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO2 (CLIENTE TEXT, ALMACEN TEXT,P1 TEXT, P2 TEXT, P3 TEXT , P4 TEXT, P5 TEXT, P6 TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO3(CLIENTE TEXT,ALMACEN TEXT, P1 TEXT, P2 TEXT, P3 TEXT, P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO4 (CLIENTE TEXT, ALMACEN TEXT,P1 TEXT, P2 TEXT, P3 TEXT , P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO5 (CLIENTE TEXT, ALMACEN TEXT,P1 TEXT, P2 TEXT, P3 TEXT , P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT)")
+	 
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA_CLIENTE (HEC_CLIENTE TEXT, HEC_MODULO TEXT)")
+	
+	
+	c=skmt.ExecQuery("select  COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
+	C.Position = 0
+	If c.GetString("CUANTOS")  = 0 Then
+		skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
+	End If
+	C.Close
+'	server = "http://keymon.com.mx:1782"
+	'server = "http://201.99.139.28:1783"
+'	reqManager.Initialize(Me, server)
+	l_version.Text = Application.VersionName
+	'este codigo es para lo del menu
+	PopupMenu.Initialize("PopupMenu", b_menu)
+	PopupMenu.AddMenuItem(0, 0, "View")
+	PopupMenu.AddMenuItem(1, 1, "Edit")
+	PopupMenu.AddMenuItem(2, 2, "Details")
+	PopupMenu.AddMenuItem(3, 3, "Remove")
+	' menu fin
+	montoActual  = 0
+	clientesTotal = 0
+	clientesVenta =  0
+	clientesVisitados = 0
+	almacen = 0
+	rutaPreventa =  0
+	p_appUpdate.Visible = False
+
+End Sub
+
+Sub B4XPage_Appear
+	If Starter.muestraProgreso = 1 Then
+		muestraProgreso("Descargando actualización")
+		Starter.muestraProgreso = 0
+	End If
+	Dim ph As Phone 'Get Id Device
+	Dim DeviceID As String = ph.GetSettings("android_id").ToUpperCase
+	LogColor($"//////////////////   DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue)
+	LogColor("Revisa permisos Phone_State", Colors.Green)
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		IMEN.Text = Phn.GetDeviceId
+		IMEI = Phn.GetDeviceId
+		LogColor($"//////////////////  IMEI: ${IMEI} ////////////////// "$, Colors.Blue)
+		IMEI=""  'Pruebas
+	End If
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		StartService(Tracker)
+		Log("Start Tracker")
+	Else
+		ToastMessageShow("No permission", True)
+	End If
+	server = Starter.server
+	reqManager.Initialize(Me, Starter.server)
+	tgl.Initialize()
+	If Not(Starter.gps.GPSEnabled) Then
+		ToastMessageShow("Es necesario tener el GPS encendido", True)
+		Sleep(500)
+		StartActivity(Starter.gps.LocationSettingsIntent)
+	End If
+	c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
+	c.Position = 0
+	If c.GetString("CUANTOS") = 0 Then
+		LogColor($"No hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Red)
+		cmd.Initialize
+		cmd.Name = "select_fecha"
+		reqManager.ExecuteQuery(cmd , 0, "fecha")
+		Msgbox("AJUSTAR FECHA","AVISO") 'Ignore
+		B4XPage_Appear
+	Else
+		LogColor($"Si hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Green)
+		c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
+		c.Position =0
+		Dim sDate, sTime As String
+		DateTime.DateFormat = "yyyyMMdd"
+		sDate=DateTime.Date(DateTime.Now)
+'		If sDate > "20220701" Then
+'			Msgbox("INSTALAR NUEVO APK" ,"AVISO") 'Ignore
+'			B4XPage_Appear
+'		End If
+		If c.GetString("CAT_VA_VALOR") > sDate Then
+			Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA" ,"AVISO") 'Ignore
+			B4XPage_Appear
+		End If
+	End If
+	bu.Initialize
+	batterystatus = bu.BatteryInformation
+	'Obtenemos el usuario registrado
+	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
+	dameUsuario
+End Sub
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub Entrar_Click
+	Dim r As Reflector
+	Dim Api As Int
+	Dim PP As Phone
+	Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
+	If Api < 9 Then
+		'Old device
+		If File.Exists(File.DirInternal, "__id") Then
+			IMEI =  File.ReadString(File.DirInternal, "__id")
+			Log(1&"-"&IMEI)
+		Else
+			Dim id As Int
+			id = Rnd(0x10000000, 0x7FFFFFFF)
+			File.WriteString(File.DirInternal, "__id", id)
+			IMEI =  id
+			Log(2&"-"&IMEI)
+		End If
+	Else
+		'New device
+		IMEI =  r.GetStaticField("android.os.Build", "SERIAL")
+		Log(3&"-"&IMEI)
+	End If
+	If IMEI.ToLowerCase = "unknown" Then
+		IMEI = PP.GetSettings("android_id")
+	End If
+	Log("IMEI = " &  IMEI)
+	
+	If user.Text = "ALTERNO" Then
+		c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
+		c.Position =0
+		server = c.GetString("CAT_CO_CONFIGURACION")
+		alterno = c.GetString("CAT_CO_RESULTADO")
+		c.Close
+		If alterno = 1 Then
+			skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
+			skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
+		Else if alterno = 2 Then
+			skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
+			skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
+		End If
+		c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
+		c.Position =0
+		server = c.GetString("CAT_CO_CONFIGURACION")
+		user.Text = server
+		c.Close
+'		reqManager.Initialize(Me, server)
+	else if user.Text = "KMTS1" Then
+		skmt.ExecNonQuery("delete from usuarioa")
+		skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
+		skmt.ExecNonQuery("delete from cat_almacen")
+		skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
+		skmt.ExecNonQuery("delete from VERSION")
+		skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
+		B4XPages.ShowPage("Principal")
+	else if user.Text = "BERNA1" Then
+		skmt.ExecNonQuery("delete from usuarioa")
+		skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, "1"))
+		skmt.ExecNonQuery("delete from cat_almacen")
+		skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object ("1"))
+		skmt.ExecNonQuery("delete from VERSION")
+		skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
+		B4XPages.ShowPage("Principal")
+	else if user.Text = "IMEI" Then
+		user.Text = IMEI
+	End If
+
+	c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
+	c.Position=0
+	existe = c.GetString("EXISTE1")
+	If existe = 0 Then
+		If IMEI = "" Then
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "select_usuario_guna_GV2_10" 'Antes select_usuario_guna_GV2_1
+			cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
+			reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
+		Else
+			If IMEI = "" Then
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "select_usuario_guna_GV2_10"
+				cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
+				reqManager.ExecuteQuery(cmd , 0, "usuario_10")
+			Else
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "select_usuario_guna_GV2_10" 'Antes select_usuario_guna_GV2
+				cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.trim)
+				Log("Mandamos: "&user.Text&"|"& pass.Text)
+				reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
+			End If
+		End If
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_version_GV2"
+		reqManager.ExecuteQuery(cmd , 0, "version")
+	Else
+		usuario = user.Text
+		B4XPages.ShowPage("Principal")
+	End If
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	Log(Job.Success)
+	If Job.Success = False Then
+		ToastMessageShow("Error: " & Job.ErrorMessage, True)
+	Else
+		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211027
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "version" Then 'query tag
+				For Each records() As Object In result.Rows
+					skmt.ExecNonQuery("delete from VERSION")
+					Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
+					skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
+				Next
+			End If
+
+			If result.Tag = "select_fechat" Then 'query tag
+				For Each records() As Object In result.Rows
+					For Each k As String In result.Columns.Keys
+						Log("select_fechat: " & k & ": " & records(result.Columns.Get(k)))
+					Next
+				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
+			End If
+		End If
+
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "fecha" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim FECHA_HOY As String = records(result.Columns.Get("FECHA"))
+					skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
+					skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
+				Next
+			End If
+		End If
+
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "usuario" Then 'query tag
+				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"))
+					Log(records(result.Columns.Get("CAT_LO_IDTELEFONO")) )
+				Next
+				paso1 = 1
+				ToastMessageShow(name, False)
+				Log("//////////////////////////  "&name)
+			End If
+		End If
+
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "usuario_10" Then 'query tag
+				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
+				Log("|"&name&"|")
+				paso1 = 1
+				IMEI_BASE = ""
+				IMEI = ""
+			End If
+		End If
+		Job.Release
+	End If
+	Log($"Paso1 = ${paso1} - Name: ${name} - IMEI: ${IMEI} - IMEI_BASE: ${IMEI_BASE}"$)
+	If paso1 = 1 Then
+		If IMEI = "" Then
+			If user.Text = "KMTS1" Then name = "OKActivo"
+			If name = "OKActivo"  Then
+				skmt.ExecNonQuery("delete from usuarioa")
+				skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
+				skmt.ExecNonQuery("delete from cat_almacen")
+				skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
+				usuario = user.Text
+				B4XPages.ShowPage("Principal")
+			Else If name  = "OKExpirado" Then
+				Msgbox("Usuario Expirado llamar al administrador","") 'Ignore
+			Else If name = "OKCancelado" Then
+				Msgbox("Usuario Cancelado llamar al administrador","") 'Ignore
+			Else
+				Msgbox("Usuario o password No validos","") 'Ignore
+			End If
+			paso1 = 0
+		Else
+			If name = "OKActivo" & IMEI And  IMEI = IMEI_BASE Then
+				If name = "OKActivo" & IMEI Then
+					skmt.ExecNonQuery("delete from usuarioa")
+					skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
+					skmt.ExecNonQuery("delete from cat_almacen")
+					skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
+					usuario = user.Text
+					B4XPages.ShowPage("Principal")
+				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 = 0
+			Else IF  name = "OKActivo" Then
+				Msgbox("Telefono no VALIDO!","") 'ignore
+			Else
+				Msgbox("Usuario o password No validos","") 'ignore
+			End If
+		End If
+	End If
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+	Log("closreq")
+	Sleep(0)
+	If p_appUpdate.IsInitialized And p_appUpdate.Visible Then
+		p_appUpdate.Visible = False
+		Return False
+	End If
+	If Not(p_appUpdate.Visible) Then
+		Log("ExitApplication")
+		ExitApplication
+	End If
+	Return True
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+	If user.text = "GPS" Then
+		user.Text=Location1.Latitude
+		pass.text=Location1.Longitude
+	End If
+End Sub
+
+Sub PopupMenu_Dismiss
+	ToastMessageShow("PopupMenu dismissed", False)
+End Sub
+
+Sub PopupMenu_MenuItemClick (ItemId As Int) As Boolean
+	ToastMessageShow("Item " & ItemId & " clicked.", False)
+	Return False
+End Sub
+
+Sub b_menu_Click
+	PopupMenu.Show
+End Sub
+
+Sub PDF_Click
+
+End Sub
+
+'Private Sub GetAdvertisingId As ResumableSub
+'	Dim jo As JavaObject = Me
+'	jo.RunMethod("GetAdvertisingId", Null)
+'	Wait For AdvertisingId_Ready (Success As Boolean, Id As String)
+'	Return Id
+'End Sub
+
+Sub dameUsuario
+	c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
+	c.Position=0
+	existe = c.GetString("EXISTE1")
+	c.Close
+	If existe > 0 Then
+		c=skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+	Else
+		usuario = "SINUSUARIO"
+	End If
+End Sub
+
+'#if Java
+'import java.util.concurrent.Callable;
+'import com.google.android.gms.ads.identifier.AdvertisingIdClient;
+'import com.google.android.gms.ads.identifier.AdvertisingIdClient.Info;
+'
+'public static void GetAdvertisingId() {
+'   BA.runAsync(processBA, mostCurrent, "advertisingid_ready", new Object[] {false, ""}
+'       , new Callable<Object[]>() {
+'                   @Override
+'                   public Object[] call() throws Exception {
+'                       String id = AdvertisingIdClient.getAdvertisingIdInfo(mostCurrent).getId();
+'                       return new Object[] {true, id};
+'                   }
+'               }); }
+'#End If
+
+Sub copiaDB
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	Dim theDir As String = ""
+	If Result Then
+		Dim theDir As String
+		Try
+			File.MakeDir(File.DirRootExternal,"kmts")
+			theDir = "/kmts"
+		Catch
+			theDir = ""
+		End Try
+		rutaBDBackup = File.DirRootExternal&theDir
+		Try
+			File.Copy(File.DirInternal,"kmt.db",File.DirRootExternal&theDir,"cedex_kmt.db")
+			ToastMessageShow("Listo", False)
+		Catch
+			ToastMessageShow("No se pudo hacer la copia: "&LastException, True)
+		End Try
+	Else
+		ToastMessageShow("Sin permisos", False)
+	End If
+	Log(rutaBDBackup)
+End Sub
+
+Sub b_apk_Click
+	StartService(appUpdater)
+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
+
+Sub i_engrane_Click
+	p_appUpdate.Left = (Root.Width/2) - (p_appUpdate.Width/2)
+	lv_server.Clear
+	lv_server.AddSingleLine("http://keymon.lat:1782")
+	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
+	l_server.Text = Starter.server
+	Subs.panelVisible(p_appUpdate,0,0)
+	p_appUpdate.Height = Root.Height
+End Sub
+
+Sub b_regesar_Click
+	Subs.panelVisible(p_Main,0,0)
+End Sub
+
+Sub i_engrane_LongClick
+	copiaDB
+End Sub
+
+Sub Entrar_LongClick
+'	dim a as int = "a"
+End Sub
+
+Private Sub lv_server_ItemClick (Position As Int, Value As Object)
+	Starter.server = Value
+	l_server.Text = Value
+	Starter.reqManager.Initialize(Me, Value)
+	ToastMessageShow("Servidor modificado", False)
+End Sub
+
+'Enviamos la base de datos por correo
+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("cheveguerra@gmail.com")
+	email.Subject = "subject"
+	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

B4A/B4XMapaRutas.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/B4XMapas.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/B4XNoVenta.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/B4XNota.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/B4XNuevoCliente.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/B4XProductos.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/B4XTicketsDia.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/B4XUpdateAvailable.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/BatteryUtilities.bas

@@ -0,0 +1,126 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=9.5
+@EndOfDesignText@
+'Class module
+Sub Class_Globals
+	Private nativeMe As JavaObject
+	
+End Sub
+'Initializes the object.
+Public Sub Initialize
+	nativeMe = Me
+End Sub
+'Return information about the battery status. It returns the following 11 values in an integer Array: 
+'EXTRA_LEVEL = current battery level, from 0 To EXTRA_SCALE. 
+'EXTRA_SCALE = the maximum battery level possible.
+'EXTRA_HEALTH = the current health constant.
+'EXTRA_ICON_SMALL = the resource ID of a small status bar icon indicating the current battery state. 
+'EXTRA_PLUGGED = whether the device is plugged into a Power source; 0 means it is on battery, other constants are different types of Power sources.
+'EXTRA_STATUS = the current status constant.
+'EXTRA_TEMPERATURE = the current battery temperature. 
+'EXTRA_VOLTAGE = the current battery voltage level.
+'A value indicating if the battery is being charged or fully charged (If neither it returns 0 Else it returns 1)
+'A value indicating if it is charging via USB (0 = Not USB, 2 = USB)
+'A value indicating if it is charging via AC (0 = Not AC, 1 = AC)
+Public Sub getBatteryInformation () As Int()
+
+	Dim batteryInfo(11)  As Int
+	batteryInfo = nativeMe.RunMethod("getBatteryInformation",Null)
+	Return batteryInfo
+
+End Sub
+
+Public Sub getBatteryTechnolgy() As String
+
+	Dim batterytech As String
+	batterytech = nativeMe.RunMethod("getBatteryTechnology",Null)
+	Return batterytech
+
+End Sub
+
+
+
+#If Java
+
+import android.os.BatteryManager;
+import android.os.Bundle;
+import android.app.Activity;
+import android.content.BroadcastReceiver;
+import android.content.Context;
+import android.content.Intent;
+import android.content.IntentFilter;
+
+  public int[] getBatteryInformation() {
+
+    int[] mybat = new int[11];
+ 
+	Intent batteryIntent = ba.context.getApplicationContext().registerReceiver(null, new IntentFilter(Intent.ACTION_BATTERY_CHANGED));
+ 
+	int level = batteryIntent.getIntExtra(BatteryManager.EXTRA_LEVEL, -1);
+        mybat[0] = level;
+	int scale = batteryIntent.getIntExtra(BatteryManager.EXTRA_SCALE, -1);
+        mybat[1] = scale;
+        int health = batteryIntent.getIntExtra(BatteryManager.EXTRA_HEALTH,-1);
+        mybat[2] = health; 
+        int icon_small = batteryIntent.getIntExtra(BatteryManager.EXTRA_ICON_SMALL,-1);
+        mybat[3] = icon_small;
+        int plugged = batteryIntent.getIntExtra(BatteryManager.EXTRA_PLUGGED,-1);
+        mybat[4] = plugged;
+//        boolean present = batteryIntent.getExtras().getBoolean(BatteryManager.EXTRA_PRESENT); 
+        int status = batteryIntent.getIntExtra(BatteryManager.EXTRA_STATUS,-1);
+        mybat[5] = status;
+//        String technology = batteryIntent.getExtras().getString(BatteryManager.EXTRA_TECHNOLOGY);
+//		BA.Log("Technology = " + technology);
+        int temperature = batteryIntent.getIntExtra(BatteryManager.EXTRA_TEMPERATURE,-1);
+        mybat[6] = temperature;
+        int voltage = batteryIntent.getIntExtra(BatteryManager.EXTRA_VOLTAGE,-1);
+        mybat[7] = voltage; 
+//        int ac = batteryIntent.getIntExtra("plugged",BatteryManager.BATTERY_PLUGGED_AC);
+//        mybat[8] = ac; 
+//        int usb = batteryIntent.getIntExtra("plugged",BatteryManager.BATTERY_PLUGGED_USB);
+//        mybat[9] = usb; 
+
+        boolean isCharging = status == BatteryManager.BATTERY_STATUS_CHARGING ||
+                     status == BatteryManager.BATTERY_STATUS_FULL;
+        mybat[8] = 0;
+        if (isCharging == true) {
+           mybat[8] = 1;
+        }   
+
+        // How are we charging?
+        mybat[9] = 0;
+        mybat[10] = 0; 
+        int chargePlug = batteryIntent.getIntExtra(BatteryManager.EXTRA_PLUGGED, -1);
+        boolean usbCharge = chargePlug == BatteryManager.BATTERY_PLUGGED_USB;
+        if (usbCharge == true) {
+           mybat[9] = 2;
+        }   
+
+        boolean acCharge = chargePlug == BatteryManager.BATTERY_PLUGGED_AC;
+        if (acCharge == true) {
+           mybat[10] = 1;
+        }   
+
+        return mybat;
+  }
+  
+ 
+   public String getBatteryTechnology() {
+
+	    Intent batteryIntent = ba.context.getApplicationContext().registerReceiver(null, new IntentFilter(Intent.ACTION_BATTERY_CHANGED));
+
+        String technology = batteryIntent.getExtras().getString(BatteryManager.EXTRA_TECHNOLOGY);
+
+        return technology;
+  }
+ 
+
+
+
+
+
+
+#End If

B4A/C_Clientes.bas

@@ -0,0 +1,216 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	
+'	Dim skmt As SQL
+	Dim c As Cursor
+	Dim c2 As Cursor
+	Dim s As Cursor
+	Dim ListView1 As ListView
+	Dim entro As String
+	Dim gest As Button
+	Dim lfila As Label
+	Dim busca As EditText
+	Dim colonia As String
+	Private b_qr As Button
+	Private qr As QRCode
+	'    Dim sc As Zxing_scanner
+	Dim CODIGO As String
+	Dim STIME As String
+	
+	Dim ruta As String
+	Dim q_buscar As String
+	Private p_clientes As Panel
+	Private Panel4 As Panel
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+	Root.LoadLayout("clientes")
+	'Dim ruta As String
+	entro ="2"
+	p_clientes.Height = Root.Height 
+	p_clientes.Width = Root.Width
+	Panel4.Left = Round(Root.Width/2)-(Panel4.Width/2)
+	
+	' valido donde escribo el archivo de la base de datos de kmt
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+	ruta = File.DirInternal
+'	End If
+	
+	' se crea o no el archivo de la base de ddatos de kmt
+	'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
+	'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
+	'SI SE REGRESA A ESTE ACTIVIDAD.
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+	qr.initialize
+End Sub
+
+Sub B4XPage_Appear
+	busca.Text = ""
+	entro ="2"
+	colonia = 0
+	c=B4XPages.MainPage.skmt.ExecQuery("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where  gestion = 0 ORDER BY CAT_CL_CODIGO")
+	ListView1.Clear
+	lfila.Text = "NOMBRE"
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Dim label1 As Label
+			label1 = ListView1.TwoLinesLayout.Label
+			label1.TextSize = 13
+			label1.TextColor = Colors.Black
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 13
+			label2.TextColor = Colors.Black
+			ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NOMBRE"))
+		Next
+	End If
+	entro = "4"
+End Sub
+
+Sub ListView1_ItemClick (Position As Int, Value As Object)
+	If colonia = 0 Then
+		colonia = Value
+	End If
+	If entro = "2" Then
+		c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 and CAT_CL_COLONIA = ? GROUP BY CAT_CL_CALLE, CAT_CL_COLONIA order by CAT_CL_CALLE ",  Array As String(Value))
+		ListView1.Clear
+		lfila.text = "Calle"
+		If c2.RowCount>0 Then
+			For i=0 To c2.RowCount -1
+				c2.Position=i
+				ListView1.AddTwoLines(c2.GetString("CAT_CL_CALLE"),c2.GetString("cuantos") )
+			Next
+		End If
+		entro = "3"
+	Else If entro = "3" Then
+		c2=B4XPages.MainPage.skmt.ExecQuery2("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where  gestion = 0 and  CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(Value, colonia))
+		ListView1.Clear
+		lfila.text = "Nombre"
+		If c2.RowCount>0 Then
+			For i=0 To c2.RowCount -1
+				c2.Position=i
+				ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE"))
+			Next
+		End If
+		entro = "4"
+	Else If entro = "4" Then
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+		DateTime.TimeFormat = "HHmmss"
+		STIME=DateTime.Time(DateTime.Now)
+		
+		s=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = ? AND HSS_CODIGO In (select cuenta from cuentaa)", Array As String("0"))
+		s.Position = 0
+		If s.GetString("CUANTOS") = 1 Then
+			B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+		Else
+			B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Value))
+			B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+		End If
+		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_INI = ?  where HSO_INI = 0 ", Array As Object(STIME))
+		DateTime.TimeFormat = "HH:mm:ss"
+		B4XPages.ShowPage("Cliente")
+	End If
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+	' BACK key pressed
+	'Return True to close, False to cancel
+'	If key=KeyCodes.KEYCODE_BACK Then
+'		StartActivity(seleccion)
+'		Return False
+'	End If
+	Return True
+End Sub
+
+Sub BUSCA_TextChanged (Old As String, New As String)
+	q_buscar = "%" & busca.Text & "%"
+	c2=B4XPages.MainPage.skmt.ExecQuery2("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar))
+	ListView1.Clear
+	lfila.text = "Nombre y Calle"
+	If c2.RowCount>0 Then
+		For i=0 To c2.RowCount -1
+			c2.Position=i
+			Dim label1 As Label
+			label1 = ListView1.TwoLinesLayout.Label
+			label1.TextSize = 9
+			label1.TextColor = Colors.Gray
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 17
+			label2.TextColor = Colors.Gray
+			ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE:  "& c2.GetString("CAT_CL_CALLE"))
+		Next
+	End If
+	entro = "4"
+	c2.Close
+End Sub
+
+Sub b_qr_Click
+	Dim scan_width As Int
+	Dim scan_height As Int
+	scan_width = 400
+	scan_height = 400
+End Sub
+
+Sub sc_result(atype As String,Values As String)
+	CODIGO = Values
+	c2=B4XPages.MainPage.skmt.ExecQuery2("select   COUNT(*) AS ENCONTRADO from kmt_info where CAT_CL_NUM_SERIEFISICO = ?  order by CAT_CL_NOMBRE ", Array As String(CODIGO))
+	c2.Position =0
+	If c2.GetString("ENCONTRADO") > 0 Then
+		s=B4XPages.MainPage.skmt.ExecQuery2("select   CAT_CL_CODIGO from kmt_info where CAT_CL_NUM_SERIEFISICO = ?  order by CAT_CL_NOMBRE ", Array As String(CODIGO))
+		s.Position =0
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(s.GetString("CAT_CL_CODIGO")))
+		s.Close
+'		b_qr.Visible = False
+		B4XPages.ShowPage("clientes")
+	Else
+		Msgbox("CODIGO " & CODIGO & " NO ENCONTRADO","AVISO") 'ignore
+	End If
+End Sub
+
+Sub sc_noScan
+	Log("nothing returned from the scan !!!!!")
+End Sub
+
+Sub calc_ean_checksum(number As String) As String           'this has now become redundant as I am only interested in QR Codes
+	Dim i As Int
+	Dim cO As Char
+	Dim soma As Int
+	Dim n As Int
+	Dim digit As Float
+	soma = 0
+	For i=0 To number.Length - 1
+		digit = number.SubString2(i,i+1)
+		n= digit * ((i Mod 2) * 2 + 1)
+		soma=soma+n
+	Next
+	Return number & ( ( 10 - ( soma Mod 10 )) Mod 10 )
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Private Sub p_clientes_Click
+	'Nada aqui, solo esta para que los clics no se pasen hacia atras.
+End Sub

B4A/C_Historico.bas

@@ -0,0 +1,123 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+
+	Dim g As GPS
+	Dim clie_id As String
+	Dim sDate,sTime As String
+	Dim usuario As String
+	
+	Dim c As Cursor
+	Dim ruta As String
+	Dim Regresar As Button
+	
+
+	Dim ListView1 As ListView
+	Dim L_CANT As Label
+	Dim L_TOTAL As Label
+	Dim borra As Button
+	Dim Existe As String
+	Dim result As String
+	'    Dim lat_gps, lon_gps As String
+
+	Private Titulo As Label
+	Private b_desc As Button
+	Private ListView2 As ListView
+	Dim tgl As Toggle
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+	ruta = File.DirInternal
+	Root.LoadLayout("nota")
+	borra.Visible = False
+	Titulo.Text = "Acumulado"
+	b_desc.Visible = False
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+'	skmt.Initialize(ruta,"kmt.db", True)
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub B4XPage_Appear
+	If Not(Starter.gps.GPSEnabled) Then
+		ToastMessageShow("Es necesario tener el GPS encendido", True)
+		StartActivity(Starter.gps.LocationSettingsIntent)
+	End If
+	L_CANT.Text =""
+	L_TOTAL.Text=""
+	c=B4XPages.MainPage.skmt.ExecQuery("select count(*) as EXISTE from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
+	C.Position=0
+	Existe = C.GetString("EXISTE")
+	C.Close
+	c=B4XPages.MainPage.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc")
+	ListView1.Clear
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Dim label1 As Label
+			label1 = ListView1.TwoLinesLayout.Label
+			label1.TextSize = 15
+			label1.TextColor = Colors.Black
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 10
+			label2.TextColor = Colors.Blue
+			ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE"),"Cantidad #"& c.GetString("HVD_CANT")& " SubTotal $"& c.GetString("HVD_COSTO_TOT"))
+		Next
+	End If
+	If Existe <> 0 Then
+		c=B4XPages.MainPage.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
+		C.Position=0
+		L_CANT.Text = c.GetString("PC_NOART")
+		L_TOTAL.Text = c.GetString("PC_MONTO")
+	End If
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+	'lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+	'lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+End Sub
+
+Sub Regresar_Click
+	B4XPages.ShowPage("Cliente")
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+'	BACK key pressed
+'	Return True To close, False To cancel
+		B4XPages.ShowPage("Principal")
+	Return False
+End Sub
+
+Sub ListView2_ItemClick (Position As Int, Value As Object)
+	ListView2.Visible = False
+	ListView1.Visible = True
+End Sub
+
+Sub ListView1_ItemClick (Position As Int, Value As Object)
+	ListView2.Visible = True
+	ListView1.Visible = False
+	Dim label1 As Label
+	For i=0 To 20
+		label1 = ListView2.SingleLineLayout.Label
+		label1.TextSize = 15
+		label1.TextColor = Colors.Black
+		ListView2.AddSingleLine(i)
+	Next
+End Sub

B4A/C_MapaRutas.bas

@@ -0,0 +1,263 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	
+	Dim GPS As GPS
+	Dim rp As RuntimePermissions
+	Dim ruta As String
+	Dim skmt As SQL
+	Dim c As Cursor
+	Dim c2 As Cursor
+	Dim c22 As Cursor
+	Dim c3 As Cursor
+	
+	Private gmap As GoogleMap
+	Private MapFragment1 As MapFragment
+	Dim Latitud As Double = 0
+	Dim Longitud As Double = 0
+	Dim Lat2 As Double = 0
+	Dim Lon2 As Double = 0
+	Dim p1, p2 As Location
+	Dim Distance As Float
+	Dim boton1 As Button
+	Dim HUE_BLUE As Float
+	Dim HUE_RED As Float
+	Dim HUE_GREEN As Float
+	Private B_AZUL As Button
+	Private B_ROJO As Button
+	Private B_VERDE As Button
+	Private B_TODOS As Button
+	Dim Tienda As String
+	Dim LatitudRu As Double
+	Dim LongitudRU As Double
+	Dim LIST_AZUL As List
+	Dim LIST_ROJO As List
+	Dim LIST_VERDE As List
+	Dim MARK_AZUL As Marker
+	Dim MARK_ROJO As Marker
+	Dim MARK_VERDE As Marker
+	Dim MARK_CEDIS As Marker
+	Dim rojo As String
+	Dim azul As String
+	Dim verde As String
+	Dim todos As String
+	Dim NumSerie As Int
+	Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
+	Dim GoogleMapEXTRA As GoogleMapsExtras
+	Dim CODIGO As String
+	Private SEMANA As String
+	Private p_mapaRutas As Panel
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+	Root.LoadLayout("mapaRutas")
+	ruta = File.DirInternal
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+	skmt.Initialize(ruta,"kmt.db", True)
+	GPS.Initialize("GPS")
+	If MapFragment1.IsGooglePlayServicesAvailable = False Then
+		ToastMessageShow("Please install Google Play Services.", True)
+	End If
+	MARK_AZUL.IsInitialized
+	MARK_ROJO.IsInitialized
+	MARK_VERDE.IsInitialized
+	LIST_AZUL.Initialize
+	LIST_ROJO.Initialize
+	LIST_VERDE.Initialize
+	verde = 0
+	azul = 0
+	rojo = 0
+	todos = 1
+	c=B4XPages.MainPage.skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SEMANA"))
+	c.Position =0
+	SEMANA = c.GetString("CUANTOS")
+	c.Close
+	If SEMANA > 0 Then
+		c=B4XPages.MainPage.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SEMANA"))
+		c.Position =0
+		SEMANA = c.GetString("CAT_VA_VALOR")
+		c.Close
+	End If
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub MapFragment1_Ready
+	Log("ENTRANDO")
+	gmap = MapFragment1.GetMap
+	gmap.IsInitialized
+	rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	gmap.MyLocationEnabled = Result
+	Dim JavaMapsObject As JavaObject
+	JavaMapsObject = gmap.GetUiSettings
+	JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True))
+	'''''''----------------------------MARKER AZUL - POR VISITAR
+	If azul = 1 Or todos = 1  Then
+		c.IsInitialized
+		c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' ")
+		skmt.Initialize(ruta,"kmt.db", True)
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+'				Log(i&"|"&c.GetString("CAT_CL_LAT")&"|")
+				LatitudRu = 0
+				If c.GetString("CAT_CL_LAT") <> "" Then LatitudRu = c.GetString("CAT_CL_LAT")
+				LongitudRU = 0
+				If c.GetString("CAT_CL_LONG") <> "" Then LongitudRU = c.GetString("CAT_CL_LONG")
+				CODIGO=c.GetString("CAT_CL_CODIGO")
+				Tienda= c.GetString("CAT_CL_NOMBRE")
+				MARK_AZUL = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO, gmap.HUE_BLUE)
+				MARK_AZUL.Snippet = Tienda
+			Next
+		End If
+		c .Close
+		If MARK_AZUL.IsInitialized Then LIST_AZUL.Add(MARK_AZUL)
+	End If
+	'''''''----------------------------MARKER VERDE - VENTA
+	If verde =1 Or todos = 1  Then
+		c2.IsInitialized
+		c2=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+		For i = 0 To c2.RowCount -1
+			c2.Position = i
+			LongitudRU = c2.GetString("CAT_CL_LONG")
+			LatitudRu = c2.GetString("CAT_CL_LAT")
+			CODIGO=c2.GetString("CAT_CL_CODIGO")
+			Tienda= c2.GetString("CAT_CL_NOMBRE")
+			MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
+			MARK_VERDE.Snippet = Tienda
+		Next
+	Else
+		If verde =1 Or todos = 1  Then
+			c2.IsInitialized
+			c2=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+			For i = 0 To c2.RowCount -1
+				c2.Position = i
+				LongitudRU = c2.GetString("CAT_CL_LONG")
+				LatitudRu = c2.GetString("CAT_CL_LAT")
+				CODIGO=c2.GetString("CAT_CL_CODIGO")
+				Tienda= c2.GetString("CAT_CL_NOMBRE")
+				MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
+				MARK_VERDE.Snippet = Tienda
+			Next
+			c2 .Close
+			If MARK_VERDE.IsInitialized Then LIST_VERDE.Add(MARK_VERDE)
+		End If
+	End If
+'	'''''''----------------------------MARKER ROJO - NO VENTA
+	If rojo =1 Or todos = 1 Then
+		c3.IsInitialized
+		c3=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+		For i = 0 To c3.RowCount -1
+			c3.Position = i
+			LongitudRU = c3.GetDouble("CAT_CL_LONG")
+			LatitudRu = c3.GetDouble("CAT_CL_LAT")
+			Tienda= c3.GetString("CAT_CL_NOMBRE")
+			MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED)
+		Next
+	Else
+		If rojo =1 Or  todos = 1  Then
+			c3.IsInitialized
+			c3=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+			For i = 0 To c3.RowCount -1
+				c3.Position = i
+				LongitudRU = c3.GetDouble("CAT_CL_LONG")
+				LatitudRu = c3.GetDouble("CAT_CL_LAT")
+				Tienda= c3.GetString("CAT_CL_NOMBRE")
+				MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED)
+			Next
+			If MARK_ROJO.IsInitialized Then LIST_ROJO.Add(MARK_ROJO)
+			c3.Close
+		End If
+	End If
+	''------------------------------
+	Dim aa As CameraPosition
+	aa.Initialize(LatitudRu,LongitudRU,15)''' RECOMENDABLE CAMBIAR A 10 PARA QUE SE VEAN MAS MARCADORES
+	gmap.AnimateCamera(aa)
+	
+	'''''---------------------- ESTO ES PARA LOS CLICK EN LAS VENTANAS D INFORMACION-----------
+	Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
+	OnInfoWindowClickListener1.Initialize("OnInfoWindowClickListener1")
+	GoogleMapEXTRA.SetOnInfoWindowClickListener(gmap, OnInfoWindowClickListener1)
+
+End Sub
+
+Sub OnInfoWindowClickListener1_click(Marker1 As Marker)
+	Log("mapclicked")
+	Log("borramos cuentaa")
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
+	Log("insertamos cuentaa")
+	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?) ", Array As Object(Marker1.Title))
+	Log("vamos a cliente")
+	B4XPages.ShowPage("Cliente")
+	B4XPages.ClosePage("MapaRutas")
+	B4XPages.GetManager.ClosePage(Me)
+End Sub
+
+Sub GPS_LocationChanged (Parametro As Location)
+	MARK_CEDIS.IsInitialized
+End Sub
+
+Sub B4XPage_Appear
+	If GPS.GPSEnabled = False Then
+		ToastMessageShow("Debe Activar el GPS del Equipo.", True)
+		StartActivity(GPS.LocationSettingsIntent)
+	Else
+		GPS.Start(0, 0)
+	End If
+End Sub
+
+Sub B_TODOS_Click
+	todos  =1
+	verde = 0
+	azul = 0
+	rojo = 0
+	MapFragment1_Ready
+End Sub
+
+Sub B_VERDE_Click
+	verde = 1
+	azul = 0
+	rojo = 0
+	todos = 0
+	gmap.Clear
+	MapFragment1_Ready
+End Sub
+
+Sub B_ROJO_Click
+	rojo = 1
+	verde = 0
+	azul = 0
+	todos = 0
+	gmap.Clear
+	MapFragment1_Ready
+End Sub
+
+Sub B_AZUL_Click
+	azul = 1
+	verde = 0
+	rojo = 0
+	todos = 0
+	gmap.Clear
+	MapFragment1_Ready
+End Sub
+
+Private Sub p_mapaRutas_Click
+	
+End Sub

B4A/C_Mapas.bas

@@ -0,0 +1,24 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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.

B4A/C_NoVenta.bas

@@ -0,0 +1,127 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	
+	Dim g As GPS
+	Dim ruta As String
+	Dim skmt As SQL
+	Dim c As Cursor
+	
+	Dim CANCELA As Button
+	Dim GUARDA As Button
+	Dim r_1 As RadioButton
+	Dim r_2 As RadioButton
+	Dim r_3 As RadioButton
+	Dim e_comm As EditText
+	Dim motivo As String
+	Dim cuenta As String
+	Dim usuario As String
+	Dim sDate,sTime As String
+'	Dim lat_gps, lon_gps As String
+	Dim tgl As Toggle
+	Dim r_4 As RadioButton
+	
+	Private stay_hh As String
+	Private stay_mi As String
+	Private stay_ss As String
+	Private p_NoVenta As Panel
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+	Root.LoadLayout("noventa")
+	
+	ruta = File.DirInternal
+'	End If
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+'	skmt.Initialize(ruta,"kmt.db", True)
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub B4XPage_Appear
+	e_comm.Text=""
+	tgl.Initialize
+	If Not(Starter.gps.GPSEnabled) Then
+		ToastMessageShow("Es necesario tener el GPS encendido", True)
+		StartActivity(Starter.gps.LocationSettingsIntent)
+	End If
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+	'lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+	'lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+End Sub
+
+Sub CANCELA_Click
+	B4XPages.ShowPage("Cliente")
+End Sub
+Sub GUARDA_Click
+	If r_1.Checked Then
+		motivo = "CERRADO"
+	Else If r_2.Checked Then
+		motivo = "NO COMPRA"
+	Else If r_3.Checked Then
+		motivo = "CON PRODUCTO"
+	Else
+		motivo = "NO ESTA EL ENCARGADO"
+	End If
+	DateTime.DateFormat = "MM/dd/yyyy"
+	sDate=DateTime.Date(DateTime.Now)
+	sTime=DateTime.Time(DateTime.Now)
+	c=B4XPages.MainPage.skmt.ExecQuery("select CUENTA from cuentaa")
+	c.Position = 0
+	cuenta = c.GetString("CUENTA")
+	c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
+	c.Position = 0
+	usuario = c.GetString("USUARIO")
+	c=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
+		Next
+	End If
+	
+	
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+	
+	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
+	B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+	DateTime.TimeFormat = "HHmmss"
+	sTime=DateTime.Time(DateTime.Now)
+	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ?  where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
+	'  B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
+	
+	c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when  (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
+	"Case when  (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _
+	"	Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when  (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end  MINUTOS_TOTALES, " & _
+	"Case when  (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _
+	"	Else (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) end SEGUNDOS_TOTALES " & _
+	"	from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ")
+	c.Position = 0
+	stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60
+	stay_mi = c.GetString("MINUTOS_TOTALES") * 60
+	stay_ss = c.GetString("SEGUNDOS_TOTALES")
+	
+	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ?  where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss))
+	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ?  ", Array As Object(sTime))
+	DateTime.TimeFormat = "HH:mm:ss"
+	B4XPages.ShowPage("Principal")
+End Sub

B4A/C_Nota.bas

@@ -0,0 +1,241 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	
+	Dim skmt As SQL
+	Dim g As GPS
+	Dim clie_id As String
+	Dim sDate,sTime As String
+	Dim usuario As String
+	
+	Dim c As Cursor
+	Dim ruta As String
+	Dim Regresar As Button
+	
+	Dim ListView1 As ListView
+	Dim L_CANT As Label
+	Dim L_TOTAL As Label
+	Dim borra As Button
+	Dim Existe As String
+	Dim result As String
+	'    Dim lat_gps, lon_gps As String
+	Dim DESC As String
+
+	Private Titulo As Label
+	Private b_desc As Button
+	Dim DESCUENTO As String
+	Dim folio As String
+	Dim tgl As Toggle
+	Private almacen As String
+	Private p_nota As Panel
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	Return Me
+End Sub
+
+'This event will be called once, before the page becomes visible.
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	ruta = File.DirInternal
+	Root.LoadLayout("nota")
+	borra.Visible = True
+	Titulo.Text = "Pedido Actual"
+'	If Existe <> 0 Then
+'		c=B4XPages.MainPage.skmt.ExecQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+'		C.Position=0
+'		L_CANT.Text = c.GetString("PC_NOART")
+'		L_TOTAL.Text = c.GetString("PC_MONTO")
+'	End If
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub B4XPage_Appear
+	If Not(Starter.gps.GPSEnabled) Then
+		ToastMessageShow("Es necesario tener el GPS encendido", True)
+		StartActivity(Starter.gps.LocationSettingsIntent)
+	End If
+	c=B4XPages.MainPage.skmt.ExecQuery("select  ID_ALMACEN from CAT_ALMACEN")
+	C.Position =0
+	almacen = C.GetString("ID_ALMACEN")
+	C.Close
+	L_CANT.Text =""
+	L_TOTAL.Text=""
+	c=B4XPages.MainPage.skmt.ExecQuery("select count(*) as EXISTE from pedido_cliente WHERE pc_cliente IN (Select CUENTA from cuentaa)")
+	C.Position=0
+	Existe = C.GetString("EXISTE")
+	C.Close
+	c=B4XPages.MainPage.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE asc")
+	ListView1.Clear
+	Private cs As CSBuilder
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			cs.Initialize
+			c.Position=i
+			Dim label1 As Label
+			label1 = ListView1.TwoLinesLayout.Label
+			label1.TextSize = 15
+			label1.TextColor = Colors.Black
+			label1.color = Colors.White
+			Private textColor As Int = Colors.black
+			If c.GetString("PE_CEDIS").Contains("PRO") Then textColor = Colors.RGB(210,105,30) 'Si es promo, cambiamos el color del texto.
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 10
+			label2.TextColor = Colors.Blue
+			ListView1.AddTwoLines(cs.Color(textColor).append(c.GetString("PE_PRONOMBRE")).pop,"Cantidad #"& c.GetString("PE_CANT")& " SubTotal $"& c.GetString("PE_COSTO_TOT")& " Folio "& c.GetString("PE_FOLIO"))
+			folio = c.GetString("PE_FOLIO")
+		Next
+	End If
+	If Existe <> 0 Then
+		c=B4XPages.MainPage.skmt.ExecQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+		C.Position=0
+		L_CANT.Text = c.GetString("PC_NOART")
+		L_TOTAL.Text = c.GetString("PC_MONTO")
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select SUM(IFNULL(PE_DESC,0)) AS DESCUENTO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+		c.Position=0
+		DESC = c.GetString("DESCUENTO")
+		b_desc.Visible = False
+	End If
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+	'lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+	'lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+End Sub
+
+Sub Regresar_Click
+	B4XPages.ShowPage("Cliente")
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+'	BACK key pressed
+'	Return True To close, False To cancel
+	B4XPages.ShowPage("Principal")
+	Return False
+End Sub
+
+Sub borra_Click
+	If folio <> "" Then
+		result =  Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
+		If result = DialogResponse.POSITIVE Then
+			c=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
+			If c.RowCount>0 Then
+				For i=0 To c.RowCount -1
+					c.Position=i
+					B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
+				Next
+			End If
+			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+			B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+			B4XPage_Appear
+		End If
+	Else
+		Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO") 'ignore
+	End If
+End Sub
+
+Sub ListView1_ItemLongClick (Position As Int, Value As Object)
+	result =  Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
+	If result = DialogResponse.POSITIVE Then
+		c=B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
+		c.Position=0
+		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where  CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
+		c.Position=0
+		If c.GetString("CUANTOS") > 0 Then
+			B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where  pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
+		Else
+			B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where  pe_pronombre = ?  and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
+		End If
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+		c.Position=0
+		If c.GetString("CUANTOS") > 0 Then
+			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+			B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
+			B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		Else
+			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+			B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		End If
+		B4XPage_Appear
+	End If
+End Sub
+
+Sub b_desc_Click
+	If DESCUENTO = "MENOS" Then
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		c.Close
+		result =  Msgbox2("Seguro que desa dar descuento del 5%?","Dar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
+		If result = DialogResponse.POSITIVE Then
+			B4XPages.MainPage.skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT * .95, PE_DESC = 5 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
+			c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+			c.Position=0
+			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+			B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
+			c.Close
+			B4XPage_Appear
+		End If
+	ELSE IF DESCUENTO = "MAS" Then
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		c.Close
+		result =  Msgbox2("Seguro que desa CANCELAR el descuento?","Cancelar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
+		If result = DialogResponse.POSITIVE Then
+			B4XPages.MainPage.skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT / .95, PE_DESC = 0 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
+			c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+			c.Position=0
+			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+			B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
+			c.Close
+			B4XPage_Appear
+		End If
+	End If
+End Sub
+
+Private Sub p_nota_Click
+	
+End Sub

B4A/C_NuevoCliente.bas

@@ -0,0 +1,114 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	
+	Dim g As GPS
+	Dim ruta As String
+	Dim c As Cursor
+	
+	Dim CANCELA As Button
+	Dim GUARDA As Button
+	Dim cuenta As String
+	Dim usuario As String
+	Dim sDate,sTime As String
+	Dim no_cliente As String
+	Dim no_ruta As String
+	
+	Dim r_4 As RadioButton
+	Dim E_NOMBRE As EditText
+	Dim tgl As Toggle
+	Private l_sinUbicacion As Label
+	Private p_nuevoCliente As Panel
+	Private Label1 As Label
+	Private p_botones As Panel
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+	Root.LoadLayout("nuevocliente")
+	ruta = File.DirInternal
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+'	skmt.Initialize(ruta,"kmt.db", True)
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub B4XPage_Appear
+	E_NOMBRE.Text =  ""
+	If Not(Starter.gps.GPSEnabled) Then
+		ToastMessageShow("Es necesario tener el GPS encendido", True)
+		StartActivity(Starter.gps.LocationSettingsIntent)
+	End If
+	GUARDA.Visible = False
+	Subs.panelVisible(p_nuevoCliente, 0, 0)
+	p_nuevoCliente.Height = Root.Height
+	p_nuevoCliente.Width = Root.Width
+	Subs.centraEtiqueta(Label1, Root.Width)
+	Subs.centraEtiqueta(l_sinUbicacion, Root.Width)
+	Subs.centraPanel(p_botones, Root.Width)
+'	E_NOMBRE.Left = Round(Root.Width/2)-(E_NOMBRE.Width/2)
+	If B4XPages.MainPage.lat_gps <> "0.0" Then
+		GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
+		l_sinUbicacion.Visible = False
+	End If
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+	If B4XPages.MainPage.lat_gps <> "0.0" Then
+		GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
+		l_sinUbicacion.Visible = False
+	End If
+End Sub
+
+Sub CANCELA_Click
+	B4XPages.ShowPage("Principal")
+End Sub
+
+Sub GUARDA_Click
+	If E_NOMBRE.Text =  "" Then
+		ToastMessageShow("Se tiene que nombrar la tienda para continuar" , True)
+	Else
+		DateTime.DateFormat = "MM/dd/yyyy"
+		DateTime.Timeformat = "HHmmss"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		Log($" ////////////   Date: ${sDate} - Time: ${sTime} ////////////////"$)
+		'Aqui creamos manualmete la hora con el separador de los 2 puntos porque en algunas versiones de android no respeta el formato "Timeformat = 'HH:mm:ss'"
+		Private hora As String = sTime.SubString2(0,2)
+		Private mins As String = sTime.SubString2(2,4)
+		Private segs As String = sTime.SubString(4)
+		sTime = hora&":"&mins&":"&segs
+		Log("////////////// sTime: "&sTime&" ////////////////")
+		c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info")
+		c.Position=0
+		no_ruta= c.GetString("CAT_CL_RUTA")
+		no_cliente= "N" & sTime & no_ruta
+		Log("++ ++ no_cliente = "&no_cliente)
+		c.Close
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps))
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (no_cliente))
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
+		B4XPages.ShowPage("Cliente")
+	End If
+End Sub
+
+
+Private Sub p_nuevoCliente_Click
+	
+End Sub

B4A/C_Pedidos.bas

@@ -0,0 +1,584 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	
+	Dim g As GPS
+	Dim ruta As String
+	Dim skmt As SQL
+	Private t3 As Timer
+	Dim p As Phone
+	Dim sb As StringBuilder
+	
+	Dim c As Cursor
+	Dim e As Cursor
+	Dim f As Cursor
+	Dim h As Cursor
+	Dim CC As Cursor
+	Dim DD As Cursor
+	Dim l_tipo As Label
+	Dim l_sub As Label
+	Dim l_marca As Label
+	Dim l_desc As Label
+	Dim l_precio As Label
+	Dim l_bodega As Label
+	Dim cantidad As EditText
+	Dim guardar As Button
+	Dim Terminar As Button
+	Dim img_prod As ImageView
+	Dim IMG_PASO() As Byte
+	Dim L_PROID As Label
+	Dim clie_id As String
+	Dim sDate,sTime As String
+	Dim usuario As String
+	'    Dim lat_gps, lon_gps As String
+	Dim t_venta As Label
+	Dim PROMO_C As String
+	Dim i_fotol As ImageView
+	Private DESC_PROMO As Button
+	Private nopromo As Button
+	Dim TOT_ART_PROMO As String
+	Dim cambio As String
+	Dim COSTO_TOT As String
+	Dim ALMACEN As String
+	Dim preciosin As String
+	Dim cl_ruta As String
+	Dim d As Cursor
+	Dim TOT_ART_PROMOR As String
+	Dim PROMO_CR As String
+	Dim TOTAL_PROMO As String
+	Dim HCCP_CANT As String
+	Dim tgl As Toggle
+	Dim precio_Cero As String
+	Private BONSABOR As String
+	Private BONSABOR2 As String
+	Dim cmd As DBCommand
+	Private p_pedido As Panel
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+	Root.LoadLayout("pedido")
+	i_fotol.Visible = False
+'	B4XPages.MainPage.reqManager.Initialize(Me, "http://177.244.63.54:1782")
+	ruta = File.DirInternal
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+'	skmt.Initialize(ruta,"kmt.db", True)
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub B4XPage_Appear
+	tgl.Initialize
+	BONSABOR = 0
+	BONSABOR2 = 0
+	If Not(Starter.gps.GPSEnabled) Then
+		ToastMessageShow("Es necesario tener el GPS encendido", True)
+		StartActivity(Starter.gps.LocationSettingsIntent)
+	End If
+	cantidad.Text = ""
+	c=B4XPages.MainPage.skmt.ExecQuery("select  ID_ALMACEN from CAT_ALMACEN")
+	C.Position =0
+	ALMACEN = C.GetString("ID_ALMACEN")
+	C.Close
+	i_fotol.Visible = False
+	sb.Initialize
+	p.Shell("ping -c1 -W1 177.244.63.54",Null, sb,Null)
+	skmt.Initialize(ruta,"kmt.db", True)
+	c=B4XPages.MainPage.skmt.ExecQuery("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV  from CAT_GUNAPROD where CAT_GP_NOMBRE In (Select PDESC from PROID)")
+	c.Position=0
+	L_PROID.Text = c.GetString("CAT_GP_ID")
+	l_tipo.Text = c.GetString("CAT_GP_TIPO")
+	l_sub.Text = c.GetString("CAT_GP_SUBTIPO")
+	l_marca.Text = c.GetString("CAT_GP_CLASIF")
+	l_desc.Text = c.GetString("CAT_GP_NOMBRE")
+	l_precio.Text = c.GetDouble("CAT_GP_PRECIO")
+	l_bodega.Text = c.GetString("CAT_GP_ALMACEN")
+	IMG_PASO = c.GetBlob("CAT_GP_IMG")
+	PROMO_C = c.GetString("CAT_GP_STS")
+	cambio = c.GetString("CAT_GP_DEV")
+	preciosin = c.GetString("CAT_GP_IMP2")
+	PROMO_CR = c.GetString("CAT_GP_IMP1")
+	cambio = "0"
+
+	e=B4XPages.MainPage.skmt.ExecQuery2("select count(*) as CUANTOS FROM pedido WHERE PE_CEDIS = ? AND PE_CLIENTE  IN (Select cuenta from cuentaa) ", Array As String(c.GetString("CAT_GP_ID")))
+	e.Position =0
+	If e.GetString("CUANTOS") = 0 Then
+		If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" Then
+			DESC_PROMO.Visible = True
+			CC=B4XPages.MainPage.skmt.ExecQuery2("select count(*) as CUANTOS FROM PROMOS_COMP WHERE CAT_PA_ID = ?", Array As String(c.GetString("CAT_GP_ID")))
+			CC.Position =0
+			If CC.GetString("CUANTOS") = 0 Then
+				l_bodega.Text = "0" ' se modifica a cero para evitar error en la promo especial de unilever mayo
+			Else
+				CC.Close
+				CC=B4XPages.MainPage.skmt.ExecQuery2("select CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE FROM PROMOS_COMP WHERE CAT_PA_ID = ?", Array As String(c.GetString("CAT_GP_ID")))
+				CC.Position =0
+				' SE MODIFICA LA APLICACION PARA QUE VEA EL HISTORIAL DE VENTA DEL CLIENTE.
+				DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO =?", Array As String(c.GetString("CAT_GP_ID")))
+				DD.Position =0
+				If DD.GetString("CUANTOS")  = 0 Then
+					HCCP_CANT = 0
+				Else
+					DD.Close
+					DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT HCCP_CANT FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO =?", Array As String(c.GetString("CAT_GP_ID")))
+					DD.Position =0
+					HCCP_CANT = DD.GetString("HCCP_CANT")
+					DD.Close
+				End If
+				BONSABOR = HCCP_CANT
+				DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String(c.GetString("CAT_GP_NOMBRE")))
+				DD.Position =0
+				If DD.GetString("CUANTOS")  = 0 Then
+					HCCP_CANT = 0
+				Else
+					DD.Close
+					DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT SUM(HVD_CANT) AS HCCP_CANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String(c.GetString("CAT_GP_NOMBRE")))
+					DD.Position =0
+					HCCP_CANT = DD.GetString("HCCP_CANT")
+					DD.Close
+				End If
+				DD=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN  (Select cuenta from cuentaa) AND  PE_PROID IN (select CAT_GP_ID   from CAT_GUNAPROD where CAT_GP_CLASIF = ?) ",Array As String(c.GetString("CAT_GP_NOMBRE")))
+				DD.Position =0
+				BONSABOR2 = DD.GetString("CUANTOS")
+				DD.Close
+				TOTAL_PROMO = CC.GetString("CAT_PA_MAXPROMCLIE") - HCCP_CANT
+				If HCCP_CANT = 0 Then
+					l_bodega.Text = CC.GetString("CAT_PA_MAXPROM")
+				Else IF TOTAL_PROMO > CC.GetString("CAT_PA_MAXPROMREC") Then
+					l_bodega.Text = 	CC.GetString("CAT_PA_MAXPROMREC")
+				Else
+					l_bodega.Text = TOTAL_PROMO
+				End If
+			End If
+		Else
+			DESC_PROMO.Visible = False
+		End If
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select CASE WHEN pe_costo_tot is null then 0 else  sum( pe_costo_tot ) end as TOTAL_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+		c.Position=0
+		t_venta.Text = c.GetString("TOTAL_CLIE")
+		c.Close
+		Terminar.Visible = True
+		guardar.Visible = True
+		cantidad.Visible = True
+		If cambio = "1" Then
+			nopromo.Visible = True
+		Else
+			nopromo.Visible = False
+		End If
+		Dim out As OutputStream
+		out = File.OpenOutput(ruta, "1.jpg", False)
+		out.WriteBytes(IMG_PASO, 0, IMG_PASO.Length)
+		out.Close
+		img_prod.Bitmap = LoadBitmap(ruta,"1.jpg")
+		TOT_ART_PROMO = "0"
+		TOT_ART_PROMOR = "0"
+		If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And l_bodega.Text = "0"  Then
+			Msgbox("ALERTA","EL CLIENTE NO PUEDE TENER ESTA PROMOCION") 'ignore
+			B4XPages.ShowPage("Productos")
+		ELSE IF l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And L_PROID.Text = "PROUNI1" And BONSABOR <> "1" And BONSABOR2 = 0 Then
+			Msgbox("ALERTA","EL CLIENTE NO PUEDE TENER ESTA PROMOCION") 'ignore
+			B4XPages.ShowPage("Productos")
+		End If
+	Else
+		Msgbox("ALERTA","EL CLIENTE YA COMPRO ESTE PRODUCTO REVISAR NOTA") 'ignore
+		B4XPages.ShowPage("Productos")
+	End If
+End Sub
+
+Sub guardar_Click
+	If cantidad.Text = "" Then
+		B4XPages.ShowPage("Productos")
+	ELSE If cantidad.Text > l_bodega.Text Then
+		Msgbox("Exede la existencia", "ADVERTENCIA") 'ignore
+	Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_TIPO = 1)")
+		c.Position =0
+		If c.GetString("CUANTOSD") = 0 Then
+			Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA") 'ignore
+		Else
+			c=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
+			C.Position =0
+			TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
+			COSTO_TOT = C.GetString("COSTO_TOT")
+			C.Close
+			c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
+			c.Position =0
+			If c.GetString("CUANTOSD") = 0 Then
+				TOT_ART_PROMOR = "0" 'Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
+			Else
+				c=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
+				C.Position =0
+				TOT_ART_PROMOR = C.GetString("TOT_ART_PROMO")
+			End If
+			C.Close
+			PROMO_C = PROMO_C * cantidad.Text
+			PROMO_CR = PROMO_CR * cantidad.Text
+			If  TOT_ART_PROMO = PROMO_C And TOT_ART_PROMOR = PROMO_CR Then
+				B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_CEDIS = (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(L_PROID.text))
+				D=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1")
+				If D.RowCount>0 Then
+					For i=0 To D.RowCount -1
+						D.Position=i
+						B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND  PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
+					Next
+				End If
+				D.Close
+				D=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1")
+				If D.RowCount>0 Then
+					For i=0 To D.RowCount -1
+						D.Position=i
+						B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND  PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
+					Next
+				End If
+				D.Close
+				DateTime.DateFormat = "MM/dd/yyyy"
+				sDate=DateTime.Date(DateTime.Now)
+				sTime=DateTime.Time(DateTime.Now)
+				c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+				c.Position=0
+				clie_id = c.GetString("CUENTA")
+				c.Close
+				c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+				c.Position=0
+				cl_ruta = c.GetString("CAT_CL_RUTA")
+				c.Close
+				c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+				c.Position=0
+				usuario = c.GetString("USUARIO")
+				e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ")
+				' SE LO QUITE DE CONDICION AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
+				e.Position =0
+				If e.GetString("CUANTOS") > 0 Then
+					F=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS,CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ") ' AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
+					'meter el otro
+					'si jala copiar para guna y el resto
+					If f.RowCount>0 Then
+						For i=0 To f.RowCount -1
+							f.Position=i
+							precio_Cero = f.GetString("CAT_DP_PRECIO")
+							h=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+							h.Position=0
+							'0
+							B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero *  f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta))
+							h.Close
+						Next
+					End If
+					f.Close
+				End If
+				e.Close
+				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta))
+				B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+			Else
+				Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA") 'ignore
+			End If
+		End If
+		cantidad.Text = ""
+		B4XPages.ShowPage("Productos")
+	else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C = 0 Then
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c.Close
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+		c.Position=0
+		cl_ruta = c.GetString("CAT_CL_RUTA")
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		'B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario))
+		'para insertar la promo de ades el de regalo en 0
+		e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) ")
+		e.Position =0
+		If e.GetString("CUANTOS") > 0 Then
+			F=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID)")
+			For i =0 To f.RowCount -1
+				F.Position =i
+				h=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+				h.Position=0
+				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
+				h.Close
+			Next
+			f.Close
+		End If
+		e.Close
+		'0
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
+		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+		cantidad.Text = ""
+		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+		c.Position=0
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+		B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
+		B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		B4XPages.ShowPage("Productos")
+	Else
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+		c.Position=0
+		cl_ruta = c.GetString("CAT_CL_RUTA")
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta))
+		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+		c.Position=0
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+		B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
+		B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (ALMACEN,L_PROID.Text,cantidad.text))
+		B4XPages.ShowPage("Productos")
+	End If
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+	'lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+	'lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+End Sub
+
+Sub Terminar_Click
+	If cantidad.Text = "" Then
+		B4XPages.ShowPage("Cliente")
+	ELSE If cantidad.Text > l_bodega.Text Then
+		Msgbox("Exede la existencia", "ADVERTENCIA") 'ignore
+	Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_TIPO = 1)")
+		c.Position =0
+		If c.GetString("CUANTOSD") = 0 Then
+			Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA") 'ignore
+		Else
+			c=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
+			C.Position =0
+			TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
+			COSTO_TOT = C.GetString("COSTO_TOT")
+			C.Close
+			c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
+			c.Position =0
+			If c.GetString("CUANTOSD") = 0 Then
+				TOT_ART_PROMOR = "0" 'Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
+			Else
+				c=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
+				C.Position =0
+				TOT_ART_PROMOR = C.GetString("TOT_ART_PROMO")
+			End If
+			C.Close
+			PROMO_C = PROMO_C * cantidad.Text
+			PROMO_CR = PROMO_CR * cantidad.Text
+			If  TOT_ART_PROMO = PROMO_C And TOT_ART_PROMOR = PROMO_CR Then
+				' anterior a 29/06/2015
+				'B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(l_precio.text/(TOT_ART_PROMO/cantidad.Text),l_precio.text/(TOT_ART_PROMO/cantidad.Text)))
+				'en pe_cedis meto el codigo de promocion para hacer esta validacion.
+				B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_CEDIS = (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(L_PROID.text))
+				D=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1")
+				If D.RowCount>0 Then
+					For i=0 To D.RowCount -1
+						D.Position=i
+						B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND  PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
+					Next
+				End If
+				D.Close
+				D=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1")
+				If D.RowCount>0 Then
+					For i=0 To D.RowCount -1
+						D.Position=i
+						B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND  PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
+					Next
+				End If
+				D.Close
+				DateTime.DateFormat = "MM/dd/yyyy"
+				sDate=DateTime.Date(DateTime.Now)
+				sTime=DateTime.Time(DateTime.Now)
+				c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+				c.Position=0
+				clie_id = c.GetString("CUENTA")
+				c.Close
+				c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+				c.Position=0
+				cl_ruta = c.GetString("CAT_CL_RUTA")
+				c.Close
+				c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+				c.Position=0
+				usuario = c.GetString("USUARIO")
+				'para insertar la promo de ades el de regalo en 0
+				e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ")
+				' SE LO QUITE DE CONDICION AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
+				e.Position =0
+				If e.GetString("CUANTOS") > 0 Then
+					F=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS,CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ") ' AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
+					'meter el otro
+					'si jala copiar para guna y el resto
+					If f.RowCount>0 Then
+						For i=0 To f.RowCount -1
+							f.Position=i
+							precio_Cero = f.GetString("CAT_DP_PRECIO")
+							h=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+							h.Position=0
+							Log(111)
+							B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero *  f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
+							h.Close
+						Next
+					End If
+					f.Close
+				End If
+				e.Close
+				Log(222)
+				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
+				B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+			Else
+				Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA") 'ignore
+			End If
+		End If
+		cantidad.Text = ""
+		B4XPages.ShowPage("Cliente")
+	else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C = 0 Then
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c.Close
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+		c.Position=0
+		cl_ruta = c.GetString("CAT_CL_RUTA")
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		'para insertar la promo de ades el de regalo en 0
+		e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) ")
+		e.Position =0
+		If e.GetString("CUANTOS") > 0 Then
+			F=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID)")
+			For i =0 To f.RowCount -1
+				F.Position =i
+				h=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+				h.Position=0
+				Log(333)
+				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
+				h.Close
+			Next
+			f.Close
+		End If
+		e.Close
+		Log(444)
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
+		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+		cantidad.Text = ""
+		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+		c.Position=0
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+		B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
+		B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		B4XPages.ShowPage("Cliente")
+	Else
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+		c.Position=0
+		cl_ruta = c.GetString("CAT_CL_RUTA")
+		c.Close
+		c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		Log(555)
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta))
+		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+		c.Position=0
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+		B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
+		B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (ALMACEN,L_PROID.Text,cantidad.text))
+		B4XPages.ShowPage("Cliente")
+	End If
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+'	BACK key pressed
+'	Return True To close, False To cancel
+	Msgbox("Presione Boton Terminar.","ADVERTENCIA") 'ignore
+	Return False
+End Sub
+
+Sub img_prod_Click
+	i_fotol.Visible = True
+	i_fotol.Bitmap = LoadBitmap(ruta,"1.jpg")
+	
+End Sub
+Sub i_fotol_Click
+	i_fotol.Visible = False
+
+End Sub
+
+Sub DESC_PROMO_Click
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
+	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+	B4XPages.ShowPage("detalle_promo")
+End Sub
+
+Sub nopromo_Click
+	If cantidad.Text = "" Then
+		Msgbox("Cantidad no puede ser 0","Cantidad") 'ignore
+	Else If cantidad.Text > l_bodega.Text Then
+		Msgbox("Exede la existencia", "ADVERTENCIA") 'ignore
+	Else
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",0,0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario, b4xpages.MainPage.tipo_venta))
+		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+		cantidad.Text = ""
+		B4XPages.ShowPage("Productos")
+	End If
+End Sub
+
+Private Sub p_pedido_Click
+	
+End Sub

B4A/C_Productos.bas

@@ -0,0 +1,627 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	
+	Dim ruta As String
+	Dim q_buscar As String
+	Dim forzarbusqueda As Boolean = False
+	Dim skmt As SQL
+	Dim c As Cursor
+	Dim c2 As Cursor
+	Dim C3 As Cursor
+	Dim s As Cursor
+	Dim lv_catalogos As ListView
+	Dim lv_promos As ListView
+	Dim entro As String
+	Dim gest As Button
+	Dim lfila As Label
+	Dim marca As String
+	Dim tipo As String
+	Dim subtipo As String
+	Private BUSCA As EditText
+	Dim ya_entro As String
+	Dim TIENE_PROMOS As String
+	Dim RES As String
+	Dim S1 As Cursor
+	Dim bmp As Bitmap
+	Dim ciclo As String
+	Private b_qr As Button
+	Private p_productos As Panel
+	Dim clv_productos As CustomListView
+	Private ImageView1 As ImageView
+	Private Panel3 As Panel
+	Private p_prods As Panel
+	Private i_prod As ImageView
+	Private l_prodX As Label
+	Private b_prodMas As Button
+	Private l_pCant As Label
+	Private et_pCant As EditText
+	Private b_prodMenos As Button
+	Dim b_terminar1 As Button
+	Dim b_continuar As Button
+	Private l_total As Label
+	Private l_totProds As Label
+	Dim totalProds As Int = 0
+	Dim totalCompra As Float = 0
+	Dim etCantHasFocus As Boolean = False
+	Dim prodsMap As Map
+	Private l_Cargando As Label
+	Private l_info As Label
+	Private b_buscar As Button
+	Private p_botonesVenta As Panel
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+'	Activity.RemoveAllViews
+	Root.LoadLayout("productos")
+	ruta = File.DirInternal
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+	ciclo = 1
+	l_info.Width = Root.Width * 0.8
+	l_info.Left = (Root.Width/2) - (l_info.Width/2)
+'	llenaCatalogo(False)
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub B4XPage_Appear
+	prodsMap.Initialize
+	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("PRIORITARIO","1"))
+	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("ESTRATEGICO","2"))
+	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("COMPLEMENTARIO","3"))
+	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("CATALOGO REGULAR","0"))
+	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_CLASIF = (?) ",Array As Object("PROMOS","PROMOS"))
+	
+'	Private left = (Root.Width/2) - ((clv_productos.AsView.Width)/2)
+	clv_productos.GetBase.SetLayoutAnimated(100, 0dip, 140dip, Root.Width, Root.Height * 0.68) 'Cambiamos el tamaño y posición de la lista de productos
+	clv_productos.Base_Resize(clv_productos.GetBase.Width, clv_productos.GetBase.Height) 'Cambiamos el tamaño del panel interno de la lista para que ajuste al nuevo tamaño.
+'	Log($"ya_entro=${ya_entro}, entro=${entro}"$)
+	If B4XPages.MainPage.bTerminarClicked Then
+		lv_catalogos.Visible = True
+		lv_promos.Visible = False
+		clv_productos.AsView.Visible = False
+		B4XPages.MainPage.bTerminarClicked = False
+	End If
+	If ya_entro <> "1" Then
+		Log("ya_entro <> 1")
+		If BUSCA.Text <> "" Then BUSCA.Text =""
+		entro ="3"
+		ya_entro = "1" : Log("ya_entro=1")
+		lv_catalogos.Clear
+		Sleep(100)
+		lfila.Text = "CATALOGOS"
+		p_productos.Height = Root.Height
+		clv_productos.AsView.Visible = False
+		lv_catalogos.Visible = True
+		p_botonesVenta.Visible = False
+		p_botonesVenta.Top = clv_productos.AsView.top + clv_productos.AsView.Height
+		lv_promos.Visible = False
+	End If
+		Dim label1 As Label
+		label1 = lv_catalogos.SingleLineLayout.Label
+		label1.TextSize = 13
+		label1.TextColor = Colors.Black
+		lv_catalogos.Clear
+		lv_catalogos.AddSingleLine("CATALOGO")
+		c = B4XPages.MainPage.skmt.ExecQuery("select count(*) as hayPromos from cat_gunaprod where CAT_GP_TIPOPROD = 'PROMOS'")
+		c.Position = 0
+		If c.GetInt("hayPromos") > 0 Then
+			lv_catalogos.AddSingleLine("PROMOS")
+		End If
+	Sleep(100)
+	l_total.Visible = False
+	l_totProds.Visible = False
+	l_total.Left = 5dip
+	l_totProds.Width = Root.Width * 0.19
+	l_total.Left = l_totProds.Width + 20
+	l_total.Width = Root.Width * 0.25
+'	llenaCatalogo(False)
+End Sub
+
+Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
+	clv_productos.AsView.Visible = False
+	BUSCA.Text = ""
+	Dim cliente As C_Cliente = B4XPages.GetPage("Cliente")
+	Log($"value=${Value}"$)
+	If Value = "PROMOS" And cliente.cuenta <> "N" Then
+		entro = "3"
+		marca = "PROMOS"
+		tipo = "PROMOS"
+	Else if Value = "PROMOS" And cliente.cuenta = "N"  Then
+		entro = "5"
+		B4XPages.ShowPage("Cliente")
+	End If
+	If Value = "PROMOS" Then
+		LogColor("Promos" & " | " & marca & " | " & tipo, Colors.red)
+		c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, marca, tipo))
+	Else
+		LogColor("Catalogo", Colors.red)
+		c2=B4XPages.MainPage.skmt.ExecQuery("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' ")
+	End If
+	If Value = "CATALOGO" Then
+		lv_catalogos.Visible = False
+		lv_promos.Visible = False
+'			lv_catalogos.Clear
+		lfila.text = "CATALOGO"
+'			Dim ins As InputStream
+'			Dim bmp As Bitmap
+'			Dim jpeg() As Byte
+		Log("PGS")
+		ProgressDialogShow("Cargando catalogo ...")
+		Sleep(100)
+		Private inicioContador As String = DateTime.Now
+		llenaCatalogo(False)
+		clv_productos.AsView.Visible = True
+		Log("PGH")
+		LogColor("TIEMPO DE PROCESO DEL CATALOGO: " & ((DateTime.Now-inicioContador)/1000), Colors.Red)
+		ProgressDialogHide
+		c2.Close
+	Else
+		clv_productos.AsView.Visible = False
+		lv_promos.Visible = True
+		lv_catalogos.Visible = False
+		lv_promos.Clear
+		Dim label1 As Label
+		label1 = lv_promos.TwoLinesLayout.Label
+		label1.TextSize = 13
+		label1.TextColor = Colors.Black
+		Dim label2 As Label
+		label2 = lv_promos.TwoLinesLayout.SecondLabel
+		label2.TextSize = 13
+		label2.TextColor = Colors.Black
+		Dim label13 As Label
+		label13 = lv_promos.TwoLinesAndBitmap.Label
+		label13.TextSize = 13
+		label13.TextColor = Colors.Black
+		Dim label14 As Label
+		label14 = lv_promos.TwoLinesAndBitmap.SecondLabel
+		label14.TextSize = 13
+		label14.TextColor = Colors.Black
+		lfila.text = "PROMOS"
+'			Dim ins As InputStream
+'			Dim bmp As Bitmap
+'			Dim jpeg() As Byte
+		If c2.RowCount > 0 Then
+			For i=0 To c2.RowCount -1
+				c2.Position=i
+'					jpeg = c2.GetBlob("CAT_GP_IMG")
+'					ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+'					bmp.Initialize2(ins)
+'					ListView1.AddTwoLinesAndBitmap(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"),bmp)
+					
+				Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), Subs.traeCliente)
+				Log($"TM=${tm}"$)
+				If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
+					lv_promos.AddTwoLines(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO") & " F:" & tm.Get("mp").As(Map).Get("prodsFijosCant") & " V:" & tm.Get("mp").As(Map).Get("prodsVariablesCant"))
+				End If
+			Next
+		End If
+		c2.Close
+	End If
+	entro = "4"
+'	Else If entro = "4" Then
+'		Log("Entro = 4")
+'		B4XPages.MainPage.skmt.ExecNonQuery("delete from PROID")
+'		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROID VALUES (?)", Array As Object(Value))
+'		Dim promos As C_Promos = B4XPages.GetPage("Promos")
+'		promos.laPromo = Subs.traeProdIdDeBD.Get("id")
+'		promos.elCliente = Subs.traeUsuarioDeBD
+'		B4XPages.ShowPage("Promos")
+End Sub
+
+Sub lv_promos_ItemClick (Position As Int, Value As Object)
+	clv_productos.AsView.Visible = False
+	Dim cliente As C_Cliente = B4XPages.GetPage("Cliente")
+'	Log($"Entro=${entro}, value=${Value}, cuenta=${cliente.cuenta}"$)
+	If Value = "PROMOS" And cliente.cuenta <> "N" Then
+		entro = "3"
+		marca = "PROMOS"
+		tipo = "PROMOS"
+	Else if Value = "PROMOS" And cliente.cuenta = "N"  Then
+		entro = "5"
+		B4XPages.ShowPage("Cliente")
+	End If
+	If entro = "3" Then
+		LogColor("Promos YYY", Colors.red)
+		c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, marca, tipo))
+		clv_productos.AsView.Visible = False
+		lv_promos.Visible = True
+		lv_catalogos.Visible = False
+		lv_promos.Clear
+		Dim label1 As Label
+		label1 = lv_promos.TwoLinesLayout.Label
+		label1.TextSize = 13
+		label1.TextColor = Colors.Black
+		Dim label2 As Label
+		label2 = lv_promos.TwoLinesLayout.SecondLabel
+		label2.TextSize = 13
+		label2.TextColor = Colors.Black
+		Dim label13 As Label
+		label13 = lv_promos.TwoLinesAndBitmap.Label
+		label13.TextSize = 13
+		label13.TextColor = Colors.Black
+		Dim label14 As Label
+		label14 = lv_promos.TwoLinesAndBitmap.SecondLabel
+		label14.TextSize = 13
+		label14.TextColor = Colors.Black
+		lfila.text = "PROMOS"
+'			Dim ins As InputStream
+'			Dim bmp As Bitmap
+'			Dim jpeg() As Byte
+		If c2.RowCount > 0 Then
+			For i=0 To c2.RowCount -1
+				c2.Position=i
+'					jpeg = c2.GetBlob("CAT_GP_IMG")
+'					ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+'					bmp.Initialize2(ins)
+'					ListView1.AddTwoLinesAndBitmap(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"),bmp)
+					
+				Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), Subs.traeCliente)
+				If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
+					lv_promos.AddTwoLines(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO") & " F:" & tm.Get("mp").As(Map).Get("prodsFijosCant") & " V:" & tm.Get("mp").As(Map).Get("prodsVariablesCant"))
+				End If
+			Next
+		End If
+		c2.Close
+		entro = "4"
+	Else If entro = "4" Then
+		Log("Entro = 4")
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from PROID")
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROID VALUES (?)", Array As Object(Value))
+		Dim promos As C_Promos = B4XPages.GetPage("Promos")
+		promos.laPromo = Subs.traePromoIdDeBD.Get("id")
+		Log(promos.laPromo)
+		promos.elCliente = Subs.traeUsuarioDeBD
+		B4XPages.ShowPage("Promos")
+	End If
+End Sub
+
+Sub llenaCatalogo(limpiar As Boolean)
+	Log("LlenaCatalogo")
+	If limpiar Then clv_productos.Clear
+	Private c2 As Cursor
+	c2=B4XPages.MainPage.skmt.ExecQuery("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' ")
+	Private bgColor, textColor As Int
+	If c2.RowCount > 0 And clv_productos.Size <> c2.RowCount Then
+		clv_productos.Clear : Log("limpiamos productos")
+		For i=0 To c2.RowCount -1
+			c2.Position=i
+			If c2.GetString("CAT_GP_TIPOPROD") = "PRIORITARIO" Then
+				bgColor = Colors.RGB(255, 212, 163) 'naranja
+			Else If c2.GetString("CAT_GP_TIPOPROD") = "COMPLEMENTARIO" Then
+				bgColor = Colors.RGB(177, 200, 249)'azul
+			else If c2.GetString("CAT_GP_TIPOPROD") = "CATALOGO REGULAR" Then
+				bgColor = Colors.White
+			else If c2.GetString("CAT_GP_TIPOPROD") = "ESTRATEGICO" Then
+				bgColor = Colors.RGB(241, 255, 163) 'amarillo
+			End If
+			textColor = Colors.Black
+			clv_productos.Add(CreateListItem(c2.GetString("CAT_GP_NOMBRE"), c2.GetString("CAT_GP_PRECIO"), c2.GetString("CAT_GP_ALMACEN"), clv_productos.AsView.Width, 50dip, bmp, c2.GetString("CAT_GP_ID"), bgColor, textColor), c2.GetString("CAT_GP_NOMBRE"))
+		Next
+	End If
+	ponProdsEnCero
+	c2.Close
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+'	BACK key pressed
+'	Return True To close, False To cancel
+'	ya_entro ="0" : Log("ya_entro=0")
+	If l_info.Visible Then
+		l_info.Visible = False
+		Return False
+	else if lv_promos.visible Then
+		lv_promos.Visible = False
+		lv_catalogos.Visible = True
+		p_botonesVenta.Visible = False
+		l_total.Visible = False
+		l_totProds.Visible = False
+		Return False
+	else if clv_productos.AsView.Visible Then
+		clv_productos.AsView.Visible = False
+		lv_catalogos.Visible = True
+		p_botonesVenta.Visible = False
+		l_total.Visible = False
+		l_totProds.Visible = False
+		Return False
+	else If entro = "4" Then
+		entro = "3"
+		B4XPage_Appear
+		Return True
+	Else If entro = "3" Then
+		B4XPages.ShowPage("Cliente")
+		Return False
+	Else
+		B4XPages.ShowPage("Cliente")
+		Return False
+	End If
+End Sub
+
+Sub BUSCA_TextChanged (Old As String, New As String)
+	q_buscar = "%" & BUSCA.Text & "%"
+	Log($"old=${Old}, new=|${New}|"$)
+	Private bgColor, textColor As Int
+	Private se As Cursor
+	If New.Length > 2 Or forzarbusqueda Then
+		forzarbusqueda = False
+		Log("searching")
+		se=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? and CAT_GP_CLASIF <>  ?", Array As String(q_buscar,"PROMOS"))  '  order by CAT_GP_NOMBRE asc
+'		lv_catalogos.Clear
+		lv_catalogos.Visible = False
+		lv_promos.Visible = False
+		clv_productos.AsView.Visible = True
+		clv_productos.Clear
+		If se.RowCount > 0 Then
+			If se.RowCount > 50 Then ProgressDialogShow("Buscando productos")
+			Sleep(100)
+			For i=0 To se.RowCount -1
+				se.Position=i
+				If se.GetString("CAT_GP_TIPOPROD") = "PRIORITARIO" Then
+					bgColor = Colors.RGB(255, 212, 163) 'naranja
+				Else If se.GetString("CAT_GP_TIPOPROD") = "COMPLEMENTARIO" Then
+					bgColor = Colors.RGB(177, 200, 249)'azul
+				else If se.GetString("CAT_GP_TIPOPROD") = "CATALOGO REGULAR" Then
+					bgColor = Colors.White
+				else If se.GetString("CAT_GP_TIPOPROD") = "ESTRATEGICO" Then
+					bgColor = Colors.RGB(241, 255, 163) 'amarillo
+				End If
+				textColor = Colors.Black
+				clv_productos.Add(CreateListItem(se.GetString("CAT_GP_NOMBRE"), se.GetString("CAT_GP_PRECIO"), se.GetString("CAT_GP_ALMACEN"), clv_productos.AsView.Width, 50dip, bmp, se.GetString("CAT_GP_ID"), bgColor, textColor), se.GetString("CAT_GP_NOMBRE"))
+			Next
+			If se.RowCount > 50 Then ProgressDialogHide
+			ponProdsEnCero
+		End If
+		se.Close
+		entro= "4"
+	End If
+End Sub
+
+Sub b_QR_Click
+	If ciclo = 1 Then
+		ciclo = 2
+'		b_qr.Visible = False
+		ya_entro  = "0"
+		'entro = 3
+		B4XPage_Appear
+	else if ciclo = 2 Then
+		ciclo = 3
+		'	ya_entro  = 0
+		ya_entro  = "0"
+		B4XPage_Appear
+'		b_qr.Visible = False
+	else if ciclo = 3 Then
+		ciclo = 4
+		'	ya_entro  = 0
+		ya_entro  = "0"
+		B4XPage_Appear
+'		b_qr.Visible = False
+	else if ciclo = 4 Then
+		ciclo = 5
+		'	ya_entro  = 0
+		ya_entro  = "0"
+		B4XPage_Appear
+'		b_qr.Visible = False
+	else if ciclo = 5 Then
+		ciclo = 1
+		'	ya_entro  = 0
+		ya_entro  = "0"
+		B4XPage_Appear
+'		b_qr.Visible = False
+	End If
+End Sub
+
+'****************************************************************************
+'***************** PARA EL MAS/MENOS *************************************
+'****************************************************************************
+Sub CreateListItem(Text As String, precioU As String, inv As Int, Width As Int, Height As Int, img As Bitmap, prodId As String, bc As Int, tc As Int) As Panel
+	Dim p As B4XView = xui.CreatePanel("")
+	p.SetLayoutAnimated(0, 0, 0, Width, Height)
+	p.LoadLayout("prodItem")
+	p_prods.Color = bc
+	l_prodX.TextColor = tc
+	l_prodX.Text = Text&CRLF&"# " & inv & " $ " & precioU
+	l_prodX.Tag = $"ID: ${prodId}${CRLF}${Text}${CRLF}Precio: $$1.2{precioU}${CRLF}Inv: ${inv} pzs"$
+'	l_pCant.Text = 0
+	l_pCant.Tag = precioU&"|"&inv&"|"&prodId
+	et_pCant.Tag = precioU&"|"&inv&"|"&prodId
+'	Log(l_pCant.Tag)
+	et_pCant.BringToFront
+'	i_prod.Bitmap = img
+	Return p
+End Sub
+
+Sub b_prodMenos_Click
+	etCantHasFocus = False
+	LogColor("b_prodMenos_Click", Colors.Magenta)
+	Dim index As Int = clv_productos.GetItemFromView(Sender)
+	Dim pnl0 As B4XView = clv_productos.GetPanel(index)
+	Dim pnl As B4XView = pnl0.GetView(0)
+	Dim laCant As B4XView = pnl.GetView(2).GetView(3)
+'	Log($"precio|stock:${laCant.tag}"$)
+	If laCant.Text = "" Then laCant.Text = 0
+	laCant.Text = $"$1.0{laCant.Text-1}"$
+	If laCant.Text < 0 Then laCant.Text = 0
+'	Dim chk As B4XView = pnl.GetView(2)
+	cuentaProds
+End Sub
+
+Sub b_prodMas_Click
+	etCantHasFocus = False
+	LogColor("b_prodMas_Click", Colors.Magenta)
+	Dim index As Int = clv_productos.GetItemFromView(Sender)
+	Dim pnl0 As B4XView = clv_productos.GetPanel(index)
+	Dim pnl As B4XView = pnl0.GetView(0)
+	Dim laCant As B4XView = pnl.GetView(2).GetView(3)
+'	Log($"precio|stock:${laCant.tag}"$)
+'	Log($"Indice: ${index}, cant:${laCant.Text+1}, precioU: ${laCant.tag}"$)
+	Dim esteTag As List = Regex.Split("\|", laCant.Tag)
+'	Log(laCant.Tag&"|"&esteTag)
+	If laCant.Text = "" Then laCant.Text = 0
+	If laCant.Text + 1 <= esteTag.get(1) Then
+		laCant.Text = $"$1.0{laCant.Text+1}"$
+		cuentaProds
+	End If
+'	Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
+End Sub
+
+Private Sub et_pCant_TextChanged (Old As String, New As String)
+'	LogColor($"txt changed: ${Old}|${New}, hasfocus=${etCantHasFocus}"$,Colors.Magenta)
+	If Not(Old = "0" And New = "") And etCantHasFocus Then cuentaProds
+End Sub
+
+Sub cuentaProds
+	totalProds = 0
+	totalCompra = 0
+'	Private inicioContador As String = DateTime.Now
+	For i = 0 To clv_productos.GetSize - 1
+		Private p0 As B4XView = clv_productos.GetPanel(i)
+		Private p As B4XView = p0.GetView(0)
+		Private cant1 As B4XView = p.GetView(2).GetView(3)
+		If cant1.Text = "" Then cant1.Text = 0
+'		Private cant2 As Int = 0
+'		If cant1.Text <> "" Then cant2 = cant1.Text
+		totalProds = totalProds + cant1.Text
+		Private esteTag As List = Regex.Split("\|", cant1.Tag)
+		If cant1.Text > esteTag.Get(1) Then cant1.Text = esteTag.Get(1)
+		If cant1.Text > 0 Then
+			Log(esteTag.Get(2) & "|" & cant1.Text)
+			totalCompra = totalCompra + (esteTag.get(0) * cant1.text)
+			Log($"Cant: ${cant1.Text}, Suma: ${totalCompra}"$)
+			Private m As Map
+			m=CreateMap("cant":cant1.Text, "precio":esteTag.get(0))
+			prodsMap.Put(esteTag.Get(2), m)
+		End If
+		l_total.Visible = True
+		l_totProds.Visible = True
+		l_total.Text = $"Total: $$1.2{totalCompra}"$
+		l_totProds.text = $"Prods: ${totalProds}"$
+	Next
+'	LogColor("TIEMPO cuentaProds -=" & ((DateTime.Now-inicioContador)/1000), Colors.Red)
+'	LogColor(prodsMap, Colors.blue)
+	p_botonesVenta.Visible = True
+	Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
+End Sub
+
+Sub ponProdsEnCero
+	Private inicioContador As String = DateTime.Now
+	Private prodsVendidosList As List
+	prodsVendidosList.Initialize
+	Private pr As Cursor = B4XPages.MainPage.skmt.ExecQuery($"Select PE_PROID from PEDIDO where PE_CLIENTE='${Subs.traeCliente}'"$)
+	If pr.RowCount > 0 Then
+		pr.Position = 0
+		For i = 0 To pr.RowCount - 1
+			pr.Position = i
+			prodsVendidosList.Add(pr.GetString("PE_PROID"))
+		Next
+	End If
+	pr.Close
+	Log("prodsVendidos="&prodsVendidosList)
+	For i = 0 To clv_productos.GetSize - 1
+		Private p0 As B4XView = clv_productos.GetPanel(i)
+		Private lVendido As B4XView = p0.GetView(1) 'Label l_vendido
+		Private pProds As B4XView = p0.GetView(0) 'Panel p_prods
+		Private cant1 As B4XView = pProds.GetView(2).GetView(3)
+		Private x() As String = Regex.Split("\|", cant1.tag) 'El ultimo dato de cant1.tag es el id del producto.
+		If prodsVendidosList.IndexOf(x(x.Length-1)) > -1 Then 'Revisamos si el producto es en la tabla "PEDIDO".
+			lVendido.Visible = True
+			pProds.GetView(2).As(Panel).Visible = False
+		Else
+			lVendido.Visible = False
+			pProds.GetView(2).As(Panel).Visible = True
+		End If
+		cant1.Text = 0
+	Next
+	LogColor("TIEMPO DE PROCESO DEL PONEMOSENCERO: " & ((DateTime.Now-inicioContador)/1000), Colors.Red)
+	Log("Ponems en CERO")
+End Sub
+
+Private Sub et_pCant_FocusChanged (HasFocus As Boolean)
+'	LogColor($"focus changed=${HasFocus}"$, Colors.Magenta)
+	etCantHasFocus = HasFocus
+	cuentaProds
+End Sub
+
+Private Sub b_terminar1_Click
+	Log("b_terminar1_Click")
+	cuentaProds
+	Private p1 As Map
+	For Each p As String In prodsMap.Keys
+		p1 = prodsMap.Get(p)
+		Log(p & "|" & p1)
+		Private pn As String = Subs.traeProdNombre(p)
+		Subs.guardaProducto(Subs.traeAlmacen, p1.Get("precio"), p1.Get("cant"), pn, p, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
+	Next
+	ya_entro = "0" : Log("ya_entro=1")
+	lv_promos.Visible = False
+	clv_productos.AsView.Visible = False
+	lv_catalogos.Visible = True
+	Log("Terminar")
+'	clv_productos.Clear
+	ponProdsEnCero
+	prodsMap.Initialize
+	B4XPages.ShowPage("Cliente")
+End Sub
+
+Private Sub b_continuar_Click
+	Log("b_continuar_Click")
+	cuentaProds
+	Private p1 As Map
+	For Each p As String In prodsMap.Keys
+		p1 = prodsMap.Get(p)
+		Log(p & "|" & p1)
+		Private pn As String = Subs.traeProdNombre(p)
+		If pn <> "N/A" Then Subs.guardaProducto(Subs.traeAlmacen, p1.Get("precio"), p1.Get("cant"), pn, p, Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
+	Next
+	Log("promos-inv, prods-inv, cat-vis")
+	lv_promos.Visible = False
+	clv_productos.AsView.Visible = False
+	lv_catalogos.Visible = True
+'	clv_productos.Clear
+	ponProdsEnCero
+	prodsMap.Initialize
+	Log("Continuar")
+'	Activity_KeyPress(KeyCodes.KEYCODE_BACK)
+End Sub
+
+Private Sub l_prodX_LongClick
+	Log("longclic = "&Sender.as(Label).tag)
+	l_info.Text = Sender.as(Label).tag
+	l_info.Visible = True
+End Sub
+
+Private Sub l_info_Click
+	l_info.Visible = False
+End Sub
+
+Private Sub lv_promos_ItemLongClick (Position As Int, Value As Object)
+	Log("Promo longclic = "&Value)
+	Private id As String = ""
+	Dim c As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = 'PROMOS' and CAT_GP_NOMBRE = '${Value}'"$)
+	If c.RowCount > 0 Then
+		c.Position = 0
+		id = c.GetString("CAT_GP_ID")
+	End If
+	l_info.Text = $"ID: ${id}${CRLF}${Value}"$
+	l_info.Visible = True
+End Sub
+
+Private Sub b_buscar_Click
+	forzarbusqueda = True
+	BUSCA_TextChanged("","")
+End Sub

B4A/C_Promos.bas

@@ -0,0 +1,391 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI
+	Private l_promoDesc As Label
+	Private lv_prodsFijos As ListView
+	Private clv_prodsVariabes As CustomListView
+	Private l_prodsFijos As Label
+	Private l_prodsVariables As Label
+	Private i_prod As ImageView
+	Private l_prodX As Label
+	Private b_prodMenos As Button
+	Private et_pCant As EditText
+	Private b_prodMas As Button
+	Private l_pCant As Label
+	Dim totalProds As Int = 0
+	Dim prodsVarReq As Int = 0
+	Dim prodsVarReq2 As Int = 0
+	Dim totalCompra As Float = 0
+	Dim prodsFijosTot As Float = 0
+	Dim tpf As Int = 0
+	Dim tpf2 As Int = 0
+	Dim maxCantPromos As Int = 1
+	Private l_totProds As Label
+	Private l_total As Label
+	Private b_terminar1 As Button
+	Private p_promociones As Panel
+	Dim prodsIds, prodsCants, prodsPrecios, prodsIds2, prodsCants2, prodsPrecios2 As List
+	Dim estaPromo, esteCliente As String
+	Private b_promoMas As Button
+	Private b_promoMenos As Button
+	Private et_promoCant As EditText
+	Private l_promosCant As Label
+	Private b_continuar As Button
+	Private p_prodsVariables As Panel
+	Dim laPromo = "", elCliente = "" As String
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+	Root.LoadLayout("promociones")
+	p_promociones.Top=0
+	p_promociones.Left=0
+	p_promociones.Height=Root.Height
+	p_promociones.Width=Root.Width
+	b_terminar1.Left = Root.Width - (b_terminar1.Width + 10)
+	b_continuar.Left = Root.Width - b_terminar1.Width - (b_continuar.Width + 20)
+End Sub
+
+Sub B4XPage_Appear
+	prodsIds.Initialize
+	prodsCants.Initialize
+	prodsPrecios.Initialize
+	prodsIds2.Initialize
+	prodsCants2.Initialize
+	prodsPrecios2.Initialize
+	Log($"laPromo=${laPromo}, el cliente=${elCliente}"$)
+	If laPromo <> "" Then muestraPromo(laPromo, elCliente)
+End Sub
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub muestraPromo(promo As String, cliente As String)
+	Private thisLog As Boolean = False
+	Log(promo)
+	estaPromo = promo
+	esteCliente = cliente
+	Private mp As Map = Subs.traePromo(promo, cliente)
+	Private prodsPromo As Map = mp.Get("productos") 'Los productos de la promoción.
+	Private invDispPromo As Map = Subs.traemosInventarioDisponibleParaPromo(promo)
+'	If thisLog Then Log($"invDispPromo=${invDispPromo}"$)
+	Log("Max promos por inv de prods FIJOS: " & Subs.revisaMaxPromosProdsFijosPorInventario(mp))
+	Log("Max promos por inv de prods VARIABLES: " & Subs.revisaMaxPromosProdsVariablesPorInventario(mp))
+	maxCantPromos = Subs.revisaMaxPromosProdsVariablesPorInventario(mp)
+	et_promoCant.Text = 1
+	l_promosCant.text = "Max promos: " & maxCantPromos
+	Private cs As CSBuilder
+	cs.Initialize
+	If thisLog Then Log(mp)
+	If thisLog Then Log(prodsPromo)
+	'Ponemos la promo y descripción.
+'	Dim desc As String = $"Promoción: ${promo}${CRLF}${mp.Get("descripcion")}"$
+'	Dim desc As String = cs.append("Promocion: ").Color(Colors.RGB(100,149,237)).Append(promo).pop.append(CRLF).Append(mp.Get("descripcion")).Popall
+	l_promoDesc.Text = cs.Color(Colors.RGB(100,149,237)).append("Promocion: ").pop.append(CRLF).Append(promo).append(CRLF).Append(mp.Get("descripcion")).Popall
+	prodsFijosTot = 0
+	'Ponemos el texto en las etiquetas de la cantidad de productos.
+'	Dim pf As List = mp.Get("prodsFijos")
+	Dim pv As List = mp.Get("prodsVariables")
+	If thisLog Then Log(mp)
+	tpf = 0
+	For Each pfp As Int In mp.Get("prodsFijosPiezas").As(List)
+		tpf = tpf + pfp
+	Next
+	tpf2 = tpf
+'	tpf = tpf * maxCantPromos
+	l_prodsFijos.Text = $"Productos fijos (${tpf})"$
+	prodsVarReq = mp.Get("prodsVariablesRequeridos")
+	prodsVarReq2 = prodsVarReq
+	l_prodsVariables.Text = $"Productos variables requeridos: ${prodsVarReq}"$
+	If prodsVarReq = 0 Then
+		p_prodsVariables.Visible = False
+	Else
+		p_prodsVariables.Visible = True
+	End If
+	'Llenamos el listview con los productos fijos.
+	Dim label1 As Label
+	label1 = lv_prodsFijos.SingleLineLayout.Label
+	label1.TextSize = 13
+	label1.TextColor = Colors.black
+	lv_prodsFijos.SingleLineLayout.ItemHeight = 30dip
+	lv_prodsFijos.Clear
+'	If pf.Size < 1 Then pf.Add("Sin productos fijos.")
+	lv_prodsFijos.Clear
+	agregaFijosALista(mp, True)
+	If thisLog Then Log("Total prods fijos = " & prodsFijosTot)
+'	If thisLog Then Log("======="&prodsMap)
+	l_totProds.text = $"Productos: ${tpf}"$
+	l_total.Text = $"Total: $$1.2{prodsFijosTot}"$
+'	Dim ins As InputStream
+'	Dim bmp As Bitmap
+'	Dim jpeg() As Byte
+
+	'Llenamos el listview con los productos variables.
+	If thisLog Then Log(pv)
+	If thisLog Then Log("invDisp=" & invDispPromo)
+	clv_prodsVariabes.Clear
+	For Each p As String In pv
+		If invDispPromo.ContainsKey(p) Then 'Si no esta en la lista de productos con inventario no lo mostramos.
+'		c2.Position=i
+'		jpeg = c2.GetBlob("CAT_GP_IMG")
+'		ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+'		bmp.Initialize2(ins)
+			Private thisProd As Map = prodsPromo.Get(p)
+			If thisLog Then Log(thisProd)
+			clv_prodsVariabes.Add(CreateListItem(Subs.traeProdNombre(p)&CRLF&"Hay " & invDispPromo.Get(p) & " $" & thisProd.Get("precio"), thisProd.Get("precio"), invDispPromo.Get(p), clv_prodsVariabes.AsView.Width, 50dip, Null, p), p)
+		End If
+	Next
+	b_terminar1.Visible = False
+	b_continuar.Visible = False
+	cuentaProds
+End Sub
+
+'Agregamos los productos fijos a una lista para despues meterlos en el pedido.
+Sub agregaFijosALista(mp As Map, addListItem As Boolean)
+	Private thisLog As Boolean = False
+	Private cont As Int = 0
+	prodsFijosTot = 0
+	Dim pf As List = mp.Get("prodsFijos")
+	If pf.Size < 1 Then pf.Add("Sin productos fijos.")
+'	Private m As Map
+'	prodsMap.Put(estaPromo, CreateMap("cant":1, "precio":0))
+'	prodsIds.Add(estaPromo)
+	prodsIds.clear
+	prodsCants.clear
+	prodsPrecios.clear
+	prodsIds.Add(estaPromo)
+	prodsCants.Add(et_promoCant.text.As(Int))
+	prodsPrecios.Add(0)
+	For Each p As String In pf
+		Log($"cont=${cont}, mp=${mp}"$)
+		If mp.Get("prodsFijosPiezas").As(List).Size > 0 Then
+			Private tpi As String = mp.Get("prodsFijosPiezas").As(List).Get(cont)
+		Else
+			Private tpi As String = 0
+		End If
+		If mp.Get("prodsFijosPrecios").As(List).Size > 0 Then
+			Private tpr As String = mp.Get("prodsFijosPrecios").As(List).Get(cont)
+		Else
+			Private tpr As String = 0
+		End If
+		prodsFijosTot = prodsFijosTot + (tpi * tpr)
+		If thisLog Then Log("|"&tpi&"|"&p)
+		Private ntpi As Int = tpi * et_promoCant.text
+		If addListItem And tpi > 0 Then lv_prodsFijos.AddSingleLine(ntpi & " " & Subs.traeProdNombre(p) & " - $" & tpr)
+		cont = cont+1
+'		m=CreateMap("cant":tpi, "precio":tpr)
+'		prodsMap.Put(p, m)
+		prodsIds.Add(p)
+		prodsCants.Add(tpi.As(Int)*et_promoCant.text.As(Int))
+		prodsPrecios.Add(tpr) '*et_promoCant.text.As(Int)
+	Next
+End Sub
+
+Sub CreateListItem(Text As String, precioU As String, inv As Int, Width As Int, Height As Int, img As Bitmap, prodId As String) As Panel 'ignore
+	Dim p As B4XView = xui.CreatePanel("")
+	p.SetLayoutAnimated(0, 0, 0, Width, Height)
+	p.LoadLayout("prodItem")
+	l_prodX.TextSize = 12
+	l_prodX.Text = Text
+'	l_pCant.Text = 0
+	l_pCant.Tag = precioU&"|"&inv&"|"&prodId
+	et_pCant.Tag = precioU&"|"&inv&"|"&prodId
+	et_pCant.BringToFront
+'	i_prod.Bitmap = img
+	Return p
+End Sub
+
+Sub b_prodMenos_Click
+	Dim index As Int = clv_prodsVariabes.GetItemFromView(Sender)
+	Dim pnl0 As B4XView = clv_prodsVariabes.GetPanel(index)
+	Dim pnl As B4XView = pnl0.GetView(0)
+'	Dim laCant  As B4XView = pnl.GetView(5)
+	Dim laCant As B4XView = pnl.GetView(2).GetView(3)
+'	Log($"precio|stock:${laCant.tag}"$)
+	laCant.Text = $"$1.0{laCant.Text-1}"$
+	If laCant.Text < 0 Then laCant.Text = 0
+'	Dim chk As B4XView = pnl.GetView(2)
+	cuentaProds
+'	l_total.Text = $"Total Compra: $$1.2{totalCompra}"$
+'	l_totProds.text = $"Total Productos: ${totalProds}"$
+End Sub
+
+Sub b_prodMas_Click
+	If totalProds < prodsVarReq + tpf Then
+		Dim index As Int = clv_prodsVariabes.GetItemFromView(Sender)
+		Dim pnl0 As B4XView = clv_prodsVariabes.GetPanel(index)
+		Dim pnl As B4XView = pnl0.GetView(0)
+'		Dim laCant  As B4XView = pnl.GetView(5)
+		Dim laCant As B4XView = pnl.GetView(2).GetView(3)
+'		Log($"precio|stock:${laCant.tag}"$)
+'		Log($"Indice: ${index}, cant:${laCant.Text+1}, precioU: ${laCant.tag}"$)
+		Dim esteTag As List = Regex.Split("\|", laCant.Tag)
+'		Log(esteTag)
+		If laCant.Text + 1 <= esteTag.get(1) Then
+			laCant.Text = $"$1.0{laCant.Text+1}"$
+			cuentaProds
+		End If
+	End If
+'	Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
+'	l_total.Text = $"Total Compra: $$1.2{totalCompra}"$
+'	l_totProds.text = $"Total Productos: ${totalProds}"$
+End Sub
+
+Private Sub et_pCant_TextChanged (Old As String, New As String)
+'	LogColor("txt changed",Colors.Magenta)
+	cuentaProds
+End Sub
+
+Sub cuentaProds
+	Log("=====================================================")
+	Log("Inicia cuentaProds")
+	Private thisLog As Boolean = False
+	If thisLog Then LogColor($"ProdsFijos=${tpf}, totalProds=${totalProds}, totalCompra=${totalCompra}"$, Colors.Red)
+	prodsIds2.Clear
+	prodsCants2.Clear
+	prodsPrecios2.Clear
+	lv_prodsFijos.Clear
+	agregaFijosALista(Subs.traePromo(estaPromo, esteCliente), True)
+'	Log(prodsIds)
+	Private tcpf As Float = 0 'Total de compra de productos fijos.
+	For pf = 0 To prodsIds.Size - 1
+		If thisLog Then Log($"${tcpf} + ${prodsCants.Get(pf)} * ${prodsPrecios.Get(pf)} = ${(prodsPrecios.Get(pf) * prodsCants.Get(pf))}"$)
+		tcpf = tcpf + (prodsPrecios.Get(pf) * prodsCants.Get(pf))
+	Next
+'	Log("Total compra pordsFijos = " & tcpf)
+	totalCompra = tcpf
+	totalProds = tpf 'Cantidad total de productos fijos.
+	For i = 0 To clv_prodsVariabes.GetSize - 1
+		Private p0 As B4XView = clv_prodsVariabes.GetPanel(i)
+		Private p As B4XView = p0.GetView(0)
+		Private cant1 As B4XView = p.GetView(2).GetView(3)
+		If cant1.Text = "" Then cant1.Text = 0
+		totalProds = totalProds + cant1.Text
+		Private esteTag As List = Regex.Split("\|", cant1.Tag)
+		If cant1.Text > esteTag.Get(1) Then cant1.Text = esteTag.Get(1)
+		If cant1.Text > 0 Then
+			Log(esteTag.Get(2) & "|" & cant1.Text)
+			totalCompra = totalCompra + (esteTag.get(0) * cant1.text)
+			If thisLog Then Log($"Cant: ${cant1.Text}, Suma: ${totalCompra}"$)
+			prodsIds2.Add(esteTag.Get(2))
+			prodsCants2.Add(cant1.Text)
+			prodsPrecios2.Add(esteTag.get(0))
+		End If
+'		Log(esteTag)
+'		Log($"Cant: ${cant1.Text}, Suma: ${totalCompra}"$)
+'		totalCompra = totalCompra * et_promoCant.Text
+'		totalProds = totalProds * et_promoCant.Text
+
+		l_total.Text = $"Total: $$1.2{totalCompra}"$
+		l_totProds.text = $"Productos: ${totalProds}"$
+	Next
+	If thisLog Then Log($"Total Prods: ${totalProds}, Total: $$1.2{totalCompra}"$)
+	l_total.Text = $"Total: $$1.2{totalCompra}"$
+	l_totProds.text = $"Productos: ${totalProds}"$
+	If totalProds < prodsVarReq + tpf Or totalProds > prodsVarReq + tpf Then
+'		Log("INCOMPLETA")
+		b_terminar1.Visible = False
+		b_continuar.Visible = False
+	Else
+'		Log("COMPLETA")
+		b_terminar1.Visible = True
+		b_continuar.Visible = True
+	End If
+	If thisLog Then LogColor($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$, Colors.blue)
+	If thisLog Then LogColor($"${prodsIds2}${CRLF}${prodsCants2}${CRLF}${prodsPrecios2}"$, Colors.Magenta)
+	LogColor($"Total Prods: ${totalProds}, Total: $$1.2{totalCompra}"$, Colors.Blue)
+End Sub
+
+Private Sub et_pCant_FocusChanged (HasFocus As Boolean)
+	LogColor("focus changed", Colors.Magenta)
+	cuentaProds
+End Sub
+
+Private Sub b_promoMenos_Click
+	If et_promoCant.Text > 1 Then
+		et_promoCant.Text = et_promoCant.Text.As(Int) - 1
+	End If
+	l_prodsFijos.Text = $"Productos fijos (${tpf2 * et_promoCant.Text.As(Int)})"$
+	l_prodsVariables.Text = $"Productos variables requeridos: ${prodsVarReq2 * et_promoCant.Text.As(Int)}"$
+	tpf = tpf2 * et_promoCant.Text.As(Int)
+	prodsVarReq = prodsVarReq2 * et_promoCant.Text.As(Int)
+	Log($"Max promos=${et_promoCant.Text.As(Int)}, Prods fijos=${tpf},  "$)
+	cuentaProds
+End Sub
+
+Private Sub b_promoMas_Click
+	If et_promoCant.Text < maxCantPromos Then
+		et_promoCant.Text = et_promoCant.Text.As(Int) + 1
+		l_prodsFijos.Text = $"Productos fijos (${tpf2 * et_promoCant.Text.As(Int)})"$
+		l_prodsVariables.Text = $"Productos variables requeridos: ${prodsVarReq2 * et_promoCant.Text.As(Int)}"$
+		tpf = tpf2 * et_promoCant.Text.As(Int)
+		prodsVarReq = prodsVarReq2 * et_promoCant.Text.As(Int)
+		Log($"Max promos=${et_promoCant.Text.As(Int)}, Prods fijos=${tpf},  "$)
+	End If
+	If et_promoCant.text > maxCantPromos Then et_promoCant.Text = maxCantPromos
+	cuentaProds
+End Sub
+
+Private Sub b_terminar1_Click
+	cuentaProds
+	Log("====================================================================")
+'	Log($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$)
+	For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido.
+		Private pn As String = Subs.traeProdNombre(prodsIds.Get(t))
+		If prodsCants.Get(t) > 0 Then Subs.guardaProducto(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
+	Next
+	For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido.
+		Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t))
+		Subs.guardaProducto(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
+	Next
+	lv_prodsFijos.Clear
+	B4XPages.MainPage.bTerminarClicked = True
+	B4XPages.ShowPage("Cliente")
+End Sub
+
+Private Sub b_continuar_Click
+	cuentaProds
+	Log("====================================================================")
+'	Log($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$)
+	For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido.
+		Private pn As String = Subs.traeProdNombre(prodsIds.Get(t))
+		Subs.guardaProducto(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
+	Next
+	For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido.
+		Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t))
+		Subs.guardaProducto(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
+	Next
+	lv_prodsFijos.Clear
+'	Activity_KeyPress(KeyCodes.KEYCODE_BACK)
+'	CallSubDelayed2(productos, "Activity_KeyPress", KeyCodes.KEYCODE_BACK)
+	Private prodspage As C_Productos
+	If prodspage.IsInitialized Then
+		prodspage.lv_catalogos.Visible = True
+		prodspage.lv_promos.Visible = False
+		prodspage.clv_productos.AsView.Visible = False
+	End If
+	B4XPages.MainPage.bTerminarClicked = True
+	B4XPages.ShowPage("productos")
+End Sub
+
+'Sub Activity_KeyPress (key As Int) As Boolean 'ignore
+'	' BACK key pressed
+'	Log("Keypress")
+'	If key=KeyCodes.KEYCODE_BACK Then
+'		Log("BACK")
+'		Return False
+'	End If
+'	Return False
+'	' Returning False signals the system to handle the key
+'End Sub

B4A/C_TicketsDia.bas

@@ -0,0 +1,153 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	Private p_ticketsdia As Panel
+	
+	Dim c As Cursor
+	Dim S As Cursor
+	Dim ruta As String
+	Dim ListView1 As ListView
+	Dim b_noventa As Button
+	Dim nombre_boton As String
+	Dim STIME As String
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+	ruta = File.DirInternal
+	Root.LoadLayout("ticketsdia")
+	ListView1.Left = Round(Root.Width/2)-(ListView1.Width/2)
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+	c=B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
+	ListView1.Clear
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Dim label1 As Label
+			label1 = ListView1.TwoLinesLayout.Label
+			label1.TextSize = 10
+			label1.TextColor = Colors.Black
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 15
+			label2.TextColor = Colors.Blue
+			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),"Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
+		Next
+	End If
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub B4XPage_Appear
+	nombre_boton = "NOVENTA"
+	c=B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
+	ListView1.Clear
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Dim label1 As Label
+			label1 = ListView1.TwoLinesLayout.Label
+			label1.TextSize = 15
+			label1.TextColor = Colors.Black
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 10
+			label2.TextColor = Colors.Blue
+			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
+		Next
+	End If
+	c.Close
+End Sub
+
+Sub Regresar_Click
+	B4XPages.ShowPage("cliente")
+End Sub
+Sub Activity_KeyPress (key As Int) As Boolean
+	' BACK key pressed
+	If key=KeyCodes.KEYCODE_BACK Then
+		' I want to capture the key here so I return True
+		B4XPages.ShowPage("principal")
+		'Return True
+	End If
+	' Returning False signals the system to handle the key
+	Return False
+End Sub
+Sub ListView1_ItemLongClick (Position As Int, Value As Object)
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
+	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+	DateTime.TimeFormat = "HHmmss"
+	STIME=DateTime.Time(DateTime.Now)
+	s=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)")
+	s.Position = 0
+	If s.GetString("CUANTOS") = 1 Then
+		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+	Else
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Value))
+		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+	End If
+	DateTime.TimeFormat = "HH:mm:ss"
+	B4XPages.ShowPage("cliente")
+End Sub
+
+Sub b_noventa_Click
+	If nombre_boton = "NOVENTA" Then
+		nombre_boton = "VENTA"
+		b_noventa.Text ="VENTA"
+		c=B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc")
+		ListView1.Clear
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+				Dim label1 As Label
+				label1 = ListView1.TwoLinesLayout.Label
+				label1.TextSize = 15
+				label1.TextColor = Colors.Black
+				Dim label2 As Label
+				label2 = ListView1.TwoLinesLayout.SecondLabel
+				label2.TextSize = 10
+				label2.TextColor = Colors.Blue
+				ListView1.AddTwoLines(c.GetString("NV_CLIENTE"),c.GetString("NOMBRE") &"  Motivo #"& c.GetString("NV_MOTIVO")& " Comentario $"& c.GetString("NV_COMM"))
+			Next
+		End If
+	Else
+		nombre_boton = "NOVENTA"
+		b_noventa.Text ="NO VENTA"
+		c=B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
+		ListView1.Clear
+	  
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+				Dim label1 As Label
+				label1 = ListView1.TwoLinesLayout.Label
+				label1.TextSize = 15
+				label1.TextColor = Colors.Black
+				Dim label2 As Label
+				label2 = ListView1.TwoLinesLayout.SecondLabel
+				label2.TextSize = 10
+				label2.TextColor = Colors.Blue
+				ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
+			Next
+		End If
+		c.Close
+	End If
+End Sub
+
+Private Sub p_ticketsdia_Click
+	
+End Sub

B4A/C_UpdateAvailable.bas

@@ -0,0 +1,73 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	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
+	Root.Color = Colors.Transparent
+End Sub
+
+Sub B4XPage_Appear
+	Try
+		Do While Not(CanRequestPackageInstalls)
+			MsgboxAsync($"Por favor permita que ${Application.PackageName} instale actualizaciones"$, "Instalar actualización")
+			Wait For Msgbox_Result(Result As Int)
+			Dim in As Intent
+			in.Initialize("android.settings.MANAGE_UNKNOWN_APP_SOURCES", "package:" & Application.PackageName)
+			StartActivity(in)
+		Loop
+	Catch
+		Log("updateAvailable() Error - " & LastException.Message)
+	End Try
+	If appUpdater.newApp.update Then
+		ofreceActualizacion
+	Else
+		sinActualizacion
+	End If
+End Sub
+
+'////////////////////////////////////////////////////////////////////////////////////////////
+'////   Esta es una actividad usada por el servicio appUpdater para mostrar notificaciones
+'////	cuando hay alguna actualizacion de apk.
+'////////////////////////////////////////////////////////////////////////////////////////////
+
+
+public Sub CanRequestPackageInstalls As Boolean
+	' // https://www.b4x.com/android/forum/threads/version-safe-apk-installation.87667/#content
+	Dim ctxt As JavaObject
+	ctxt.InitializeContext
+	Dim PackageManager As JavaObject = ctxt.RunMethod("getPackageManager", Null)
+	Return PackageManager.RunMethod("canRequestPackageInstalls", Null)
+End Sub
+
+Sub ofreceActualizacion
+	If Msgbox2(appUpdater.newApp.newMsg,"Actualización disponible","Si","","No",Null) = DialogResponse.Positive Then 'ignore
+'		StartService(DownloadService)
+		CallSubDelayed(appUpdater, "download_newApk")
+	End If
+	B4XPages.MainPage.ocultaProgreso
+	StartActivity(Main)
+'	Activity.Finish
+	B4XPages.ShowPage("Login")
+End Sub
+
+Sub sinActualizacion
+	Msgbox(appUpdater.newApp.okMsg, "Aplicación al corriente") 'ignore
+'	StartActivity(Main)
+	B4XPages.MainPage.ocultaProgreso
+	B4XPages.ShowPage("Login")
+End Sub

B4A/DBRequestManager.bas

@@ -0,0 +1,272 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=6.8
+@EndOfDesignText@
+'Necesita la libreria RandomAccessFile
+
+'Class module
+Sub Class_Globals
+	Private mTarget As Object
+	Type DBResult (Tag As Object, Columns As Map, Rows As List)
+	Type DBCommand (Name As String, Parameters() As Object)
+	Private link As String
+	Private bc As ByteConverter
+	Private T_NULL = 0, T_STRING = 1, T_SHORT = 2, T_INT = 3, T_LONG = 4, T_FLOAT = 5 _
+		,T_DOUBLE = 6, T_BOOLEAN = 7, T_BLOB = 8 As Byte
+	Private VERSION As Float = 0.9
+	Private tempArray(1) As Object
+	Dim jobTagAnterior As String = "" 'Mod por CHV - 211027
+End Sub
+
+'Target - The module that handles JobDone (usually Me).
+'ConnectorLink - URL of the Java server.
+Public Sub Initialize (Target As Object, ConnectorLink As String)
+	mTarget = Target
+	link = ConnectorLink
+End Sub
+
+'Sends a query request.
+'Command - Query name and parameters.
+'Limit - Maximum rows to return or 0 for no limit.
+'Tag - An object that will be returned in the result.
+Public Sub ExecuteQuery(Command As DBCommand, Limit As Int, Tag As Object)
+	Dim j As HttpJob
+	Dim ms As OutputStream
+	Dim out2 As OutputStream = StartJob(j,ms, Tag)
+	
+	WriteObject(Command.Name, out2)
+	WriteInt(Limit, out2)
+	WriteList(Command.Parameters, out2)
+	out2.Close
+	j.PostBytes(link & "?method=query", ms.ToBytesArray)
+End Sub
+
+'Executes a batch of (non-select) commands.
+'ListOfCommands - List of the commands that will be executes.
+'Tag - An object that will be returned in the result.
+Public Sub ExecuteBatch(ListOfCommands As List, Tag As Object)
+	Dim j As HttpJob
+	Dim ms As OutputStream
+	Dim out2 As OutputStream = StartJob(j,ms, Tag)
+	WriteInt(ListOfCommands.Size, out2)
+	For Each Command As DBCommand In ListOfCommands
+		WriteObject(Command.Name, out2)
+		WriteList(Command.Parameters, out2)
+	Next
+	out2.Close
+	j.PostBytes(link & "?method=batch", ms.ToBytesArray)
+End Sub
+
+'Similar to ExecuteBatch. Sends a single command.
+Public Sub ExecuteCommand(Command As DBCommand, Tag As Object)
+	ExecuteBatch(Array As DBCommand(Command), Tag)
+End Sub
+
+Private Sub StartJob(j As HttpJob, MemoryStream As OutputStream, Tag As Object) As OutputStream
+	j.Initialize("DBRequest", mTarget)
+	j.Tag = Tag
+	MemoryStream.InitializeToBytesArray(0)
+	Dim compress As CompressedStreams
+	Dim out As OutputStream = compress.WrapOutputStream(MemoryStream, "gzip")
+	WriteObject(VERSION, out)
+	Return out
+End Sub
+
+Private Sub WriteList(Parameters As List, out As OutputStream)
+	Dim data() As Byte
+	If Parameters = Null Or Parameters.IsInitialized = False Then
+		Dim Parameters As List
+		Parameters.Initialize
+	End If
+	data = bc.IntsToBytes(Array As Int(Parameters.Size))
+	out.WriteBytes(data, 0, data.Length)
+	For Each o As Object In Parameters
+		WriteObject(o, out)
+	Next
+End Sub
+
+Private Sub WriteObject(o As Object, out As OutputStream)
+	Dim data() As Byte
+	tempArray(0) = o
+	If tempArray(0) = Null Then
+		out.WriteBytes(Array As Byte(T_NULL), 0, 1)
+	Else If tempArray(0) Is Short Then
+		out.WriteBytes(Array As Byte(T_SHORT), 0, 1)
+		data = bc.ShortsToBytes(Array As Short(o))
+	Else If tempArray(0) Is Int Then
+		out.WriteBytes(Array As Byte(T_INT), 0, 1)
+		data = bc.IntsToBytes(Array As Int(o))
+	Else If tempArray(0) Is Float Then
+		out.WriteBytes(Array As Byte(T_FLOAT), 0, 1)
+		data = bc.FloatsToBytes(Array As Float(o))
+	Else If tempArray(0) Is Double Then
+		out.WriteBytes(Array As Byte(T_DOUBLE), 0, 1)
+		data = bc.DoublesToBytes(Array As Double(o))
+	Else If tempArray(0) Is Long Then
+		out.WriteBytes(Array As Byte(T_LONG), 0, 1)
+		data = bc.LongsToBytes(Array As Long(o))
+	Else If tempArray(0) Is Boolean Then
+		out.WriteBytes(Array As Byte(T_BOOLEAN), 0, 1)
+		Dim b As Boolean = 0
+		Dim data(1) As Byte
+		If b Then data(0) = 1 Else data(0) = 0
+	Else If GetType(tempArray(0)) = "[B" Then
+		data = o
+		out.WriteBytes(Array As Byte(T_BLOB), 0, 1)
+		WriteInt(data.Length, out)	
+	Else 'If o Is String Then (treat all other values as string)
+		out.WriteBytes(Array As Byte(T_STRING), 0, 1)
+		data = bc.StringToBytes(o, "UTF8")
+		WriteInt(data.Length, out)
+	End If
+	If data.Length > 0 Then out.WriteBytes(data, 0, data.Length)
+End Sub
+
+Private Sub ReadObject(In As InputStream) As Object
+	Dim data(1) As Byte
+	In.ReadBytes(data, 0, 1)
+	Select data(0)
+		Case T_NULL
+			Return Null
+		Case T_SHORT
+			Dim data(2) As Byte
+			Return bc.ShortsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_INT
+			Dim data(4) As Byte
+			Return bc.IntsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_LONG
+			Dim data(8) As Byte
+			Return bc.LongsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_FLOAT
+			Dim data(4) As Byte
+			Return bc.FloatsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_DOUBLE
+			Dim data(8) As Byte
+			Return bc.DoublesFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_BOOLEAN
+			Dim b As Byte = ReadByte(In)
+			Return b = 1
+		Case T_BLOB
+			Dim len As Int = ReadInt(In)
+			Dim data(len) As Byte
+			Return ReadBytesFully(In, data, data.Length)
+		Case Else
+			Dim len As Int = ReadInt(In)
+			Dim data(len) As Byte
+			ReadBytesFully(In, data, data.Length)
+			Return BytesToString(data, 0, data.Length, "UTF8")
+	End Select
+End Sub
+
+Private Sub ReadBytesFully(In As InputStream, Data() As Byte, Len As Int) As Byte()
+	Dim count = 0, read As Int
+	Do While count < Len And read > -1
+		read = In.ReadBytes(Data, count, Len - count)
+		count = count + read
+	Loop
+	Return Data
+End Sub
+
+Private Sub WriteInt(i As Int, out As OutputStream)
+	Dim data() As Byte
+	data = bc.IntsToBytes(Array As Int(i))
+	out.WriteBytes(data, 0, data.Length)
+End Sub
+
+Private Sub ReadInt(In As InputStream) As Int
+	Dim data(4) As Byte
+	Return bc.IntsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+End Sub
+
+Private Sub ReadByte(In As InputStream) As Byte
+	Dim data(1) As Byte
+	In.ReadBytes(data, 0, 1)
+	Return data(0)
+End Sub
+
+'Handles the Job result and returns a DBResult.
+Public Sub HandleJob(Job As HttpJob) As DBResult
+	Dim start As Long = DateTime.Now
+	Dim In As InputStream = Job.GetInputStream
+	Dim cs As CompressedStreams
+	In = cs.WrapInputStream(In, "gzip")
+	Dim serverVersion As Float = ReadObject(In) 'ignore
+	Dim method As String = ReadObject(In)
+	Dim table As DBResult
+	table.Initialize
+	table.Columns.Initialize
+	table.rows.Initialize
+	table.Tag = Job.Tag
+	If jobTagAnterior <> Job.Tag Then LogColor("HandleJob: '"&Job.Tag&"'", Colors.Blue)  'Mod por CHV - 211023
+	jobTagAnterior = Job.Tag  'Mod por CHV - 211023
+	If method = "query" Then
+		Dim numberOfColumns As Int = ReadInt(In)
+		For i = 0 To numberOfColumns - 1
+			table.Columns.Put(ReadObject(In), i)
+		Next
+		Do While ReadByte(In) = 1
+			Dim rowObjects(numberOfColumns) As Object
+			table.rows.Add(rowObjects)
+			For col = 0 To numberOfColumns - 1
+				Dim o As Object = ReadObject(In)
+				rowObjects(col) = o
+			Next
+		Loop
+	Else If method = "batch" Then
+		table.Columns.Put("AffectedRows", 0)
+		Dim rows As Int = ReadInt(In)
+		For i = 0 To rows - 1
+			table.rows.Add(Array As Object(ReadInt(In)))
+		Next
+	End If
+	In.Close
+'	Log("HandleJob: " & (DateTime.Now - start))
+	Return table
+End Sub
+'Reads a file and returns the file as a bytes array.
+Public Sub FileToBytes(Dir As String, FileName As String) As Byte()
+	Dim out As OutputStream
+	out.InitializeToBytesArray(0)
+	Dim In As InputStream = File.OpenInput(Dir, FileName)
+	File.Copy2(In, out)
+	out.Close
+	Return out.ToBytesArray
+End Sub
+'Converts an image to a bytes array (for BLOB fields).
+Public Sub ImageToBytes(Image As Bitmap) As Byte()
+	Dim out As OutputStream
+	out.InitializeToBytesArray(0)
+	Image.WriteToStream(out, 100, "JPEG")
+	out.Close
+	Return out.ToBytesArray
+End Sub
+'Converts a bytes array to an image (for BLOB fields).
+Public Sub BytesToImage(bytes() As Byte) As Bitmap
+	Dim In As InputStream
+	In.InitializeFromBytesArray(bytes, 0, bytes.Length)
+	Dim bmp As Bitmap
+	bmp.Initialize2(In)
+	Return bmp
+End Sub
+'Prints the table to the logs.
+Public Sub PrintTable(Table As DBResult)
+	Log("Tag: " & Table.Tag & ", Columns: " & Table.Columns.Size & ", Rows: " & Table.Rows.Size)
+	Dim sb As StringBuilder
+	sb.Initialize
+	For Each col In Table.Columns.Keys
+		sb.Append(col).Append(TAB)
+	Next
+	Log(sb.ToString)
+	For Each row() As Object In Table.Rows
+		Dim sb As StringBuilder
+		sb.Initialize
+		For Each record As Object In row
+			sb.Append(record).Append(TAB)
+		Next
+		ToastMessageShow(sb.ToString, True)
+	Next
+End Sub
+
+