23/9/23 - Commit inicial.

B4A/B4XMainPage.bas

@@ -0,0 +1,639 @@
+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
+	'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
+	'###########################################################################################################
+	'######################           PULL         #############################################################
+	'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
+	'###########################################################################################################
+	'######################           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 ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
+
+Sub Class_Globals
+	Private Root As B4XView
+	Private xui As XUI
+	Public login As B4XMainPage
+	Dim rp As RuntimePermissions
+	Public principal As C_Principal 'Antes seleccion
+	Public clientes As C_Clientes  'Antes Colonia
+	Public cliente As C_Cliente 'Antes fila
+	Public productos As C_Productos 'Antes colonia2
+	Public updateAvailable As C_updateAvailable
+'	Public mapas As C_Mapas
+'	Public nuevoCliente As C_NuevoCliente
+	Public ticketsDia As C_TicketsDia 'Antes buscar
+	Public noVenta As C_NoVenta 'Antes nopago
+	Public nota As C_Nota 'Antes tarjeta
+	Public promos As C_Promos
+	Public historico As C_Historico 'Antes historico
+
+	Dim reqManager As DBRequestManager
+	Dim ultimaActualizacionGPS As String = 235959
+	Dim almacen, ruta As String
+	Dim user As EditText
+	Dim pass As EditText
+	Dim c As Cursor
+	Dim D As Cursor
+	Dim existe As String
+	Dim paso1 As String
+	Dim IMEI As String
+	Dim alterno As String
+	Private b_menu As Button
+'	Dim PopupMenu As RSPopupMenu
+	Dim cmd As DBCommand
+
+	Private IMEN As EditText
+	Private Entrar As Button
+	Private Panel1 As Panel
+	Private ImageView4 As ImageView
+	Private E_SERVER As EditText
+	Private B_SERVER As Button
+	Private B_MACIMP As Button
+	Private CUANTOS As String
+	Private foto_g () As Byte
+	
+	Private ListView1 As ListView
+	Private ImageView1 As ImageView
+	Private Label1 As Label
+	Private B_BorrarFinDia As Button
+	Private b_fdCancelar As Button
+	Private b_findiaOk As Button
+	Private p_finDia As Panel
+	Private et_autSup As EditText
+	
+	'prueba downloadfile
+	Dim ProgressBar1 As ProgressBar
+	Dim Label1 As Label
+	Dim btnDownload As Button
+	Dim btnCancel As Button
+	Private p_download As Panel
+	Private Label6 As Label
+	Dim logger As Boolean = True
+	
+	Dim lat_gps, lon_gps As String
+	Dim tipo_venta As String
+	Dim bTerminarClicked As Boolean = False
+	Private lv_server As ListView
+	Private l_server As Label
+	Public rutaBDBackup As String = ""
+	Private b_envioBD As Button
+End Sub
+
+Public Sub Initialize
+	B4XPages.GetManager.LogEvents = True
+	#if not(DEBUG)
+		Starter.logger = False
+	#end if
+End Sub
+
+'This event will be called once, before the page becomes visible.
+Private Sub B4XPage_Created (Root1 As B4XView)
+	If Not(Starter.Logger) Then logger = False
+	Root = Root1
+'	Root.LoadLayout("MainPage")
+	Root.LoadLayout("login")
+	B4XPages.SetTitle(Me, "Kelloggs Preventa")
+	login.Initialize
+	B4XPages.AddPage("Login", login)
+	principal.Initialize
+	B4XPages.AddPage("Principal", principal)
+	clientes.Initialize
+	B4XPages.AddPage("Clientes", clientes)
+	cliente.Initialize
+	B4XPages.AddPageAndCreate("Cliente", cliente)
+	productos.Initialize
+	B4XPages.AddPage("Productos", productos)
+	updateAvailable.Initialize
+	B4XPages.AddPage("updateAvailable", updateAvailable)
+	mapas.Initialize
+	B4XPages.AddPage("Mapas", mapas)
+	nuevoCliente.Initialize
+	B4XPages.AddPageAndCreate("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)
+	checklist.Initialize
+	B4XPages.AddPage("CheckList", checklist)
+	ruta = Starter.ruta
+	ruta = File.DirInternal
+	Starter.tiempos.Initialize
+	Dim sDate, sTime As String
+	DateTime.DateFormat = "yyyyMMdd"
+	sDate=DateTime.Date(DateTime.Now)
+	Starter.db.ExecNonQuery("DROP TABLE IF EXISTS PEDIDO3")
+	Starter.db.ExecNonQuery("CREATE TABLE PEDIDO3 (PE_PRECIO2 TEXT,PE_TIPO TEXT,PE_FOLIO NUMERIC,PE_DESC NUMERIC,PE_COSTO_SIN TEXT,PE_RUTA TEXT,PE_CEDIS TEXT,PE_COSTO_TOT NUMERIC,PE_COSTOU NUMERIC,PE_CANT NUMERIC,PE_PRONOMBRE TEXT,PE_PROID TEXT,PE_CLIENTE TEXT,PE_FECHA TEXT,PE_USUARIO TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS DESC_CLIENTES (DC_CL_CLIENTE TEXT, CAT_CL_DESCUENTO_SS TEXT, CAT_CL_DESCUENTO_RTEC TEXT, CAT_CL_DESCUENTO_PING TEXT, CAT_CL_TIPOCLIENTE TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_DESCUENTOS_SKU (CAT_DS_CLIENTE TEXT, CAT_DS_PRODID TEXT, CAT_DS_PORCENTAJE TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENVIOS (HE_FECHA TEXT, HE_CUANTOS TEXT, HE_TIPO TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FOTOS (HF_FOTO BLOB, HF_CUENTA TEXT, HF_IDENCUESTA TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTE_IMPRESO (CI_CUENTA TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PROMO_MONTO (CPM_IDPROMO TEXT, CPM_MONTO TEXT, CPM_PROID TEXT, CPM_CLIENTE TEXT, CPM_CANT TEXT, CPM_RANGO TEXT, CPM_DESC TEXT)")
+	Starter.db.ExecNonQuery2("INSERT INTO HIST_ENVIOS VALUES (?,0,?)", Array As Object(sTime, "PEDIDO"))
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_EXHIBIDORES2 (HIST_EX_ID_CLIENTE TEXT, HIST_EX_TIPO TEXT, HIST_EX_CANT TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PROMO_WHATS(HIST_CLIENTE TEXT, HIST_RESPUESTA_PROMO)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RMI(CAT_GP_ID TEXT,CAT_GP_NOMBRE TEXT,CAT_GP_PRECIO TEXT)")
+	
+	''' PARA LO DE DOE---
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GUNAPROD_DOE (CAT_GP_ID TEXT,CAT_GP_NOMBRE TEXT,CAT_GP_IMP1 TEXT,CAT_GP_IMP2 TEXT,CAT_GP_PRECIO TEXT,CAT_GP_CLASIF TEXT,CAT_GP_STS TEXT,CAT_GP_TIPO TEXT,CAT_GP_SUBTIPO TEXT,CAT_GP_IMG TEXT,CAT_GP_ALMACEN TEXT,CAT_GP_TIPOPROD TEXT,CAT_GP_INICIATIVA TEXT,CAT_GP_DEV TEXT,CAT_GP_CODPROMO TEXT)")
+	Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDO_DOE (PE_PRECIO2 TEXT,PE_TIPO TEXT,PE_FOLIO NUMERIC,PE_DESC NUMERIC,PE_COSTO_SIN TEXT,PE_RUTA TEXT,PE_CEDIS TEXT,PE_COSTO_TOT NUMERIC,PE_COSTOU NUMERIC,PE_CANT NUMERIC,PE_PRONOMBRE TEXT,PE_PROID TEXT,PE_CLIENTE TEXT,PE_FECHA TEXT,PE_USUARIO TEXT)")
+	''' FIN DOE
+	
+	Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "IMPRESION" en la tabla
+		c=Starter.db.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='IMPRESION'")
+		c.Position = 0
+		If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
+			Starter.db.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN IMPRESION INTEGER")
+		End If
+	Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
+		Try
+			Starter.db.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN IMPRESION INTEGER")
+		Catch
+			Log(LastException)
+		End Try
+	End Try
+	Try 'Agregamos columna fecha a usuarioa
+		c=Starter.db.ExecQuery("SELECT fecha FROM usuarioa")
+	Catch
+		LogColor("Agregamos columna fecha a usuarioa", Colors.red)
+		Starter.db.ExecNonQuery("ALTER TABLE usuarioa ADD COLUMN FECHA TEXT")
+	End Try
+'	If sDate = "20190523" Then
+'		Starter.db.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
+'		Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER", Starter.server))
+'	End If
+'	Starter.db.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("ULTIMOMODULO"))
+'	Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("ULTIMOMODULO", "MAIN"))
+	c=Starter.db.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
+	c.Position =0
+	If c.GetString("CUANTOS") = 0 Then
+		Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER", Starter.server))
+'	Else
+'		c=Starter.db.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
+'		c.Position = 0
+'		Starter.server = c.GetString("CAT_VA_VALOR")
+'		reqManager.Initialize(Me, Starter.server)
+	End If
+'	reqManager.Initialize(Me, Starter.server)
+'	Activity.LoadLayout("login")
+	Label1.Text = Application.VersionName
+	
+'	Log("Pedimos permisos de almacenamiento externo")
+'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then Log("Tenemos permisos de escritura externa.")
+	c=Starter.db.ExecQuery("SELECT COUNT(*) as CUANTOS FROM TMP_INSPECCION_AUTO_DIARIA")
+	c.Position = 0
+	CUANTOS = c.GetString("CUANTOS")
+	c.Close
+	If CUANTOS = 0 Then
+		Dim theDir As String
+		If File.IsDirectory("/","kmts") Then
+			theDir = "/kmts"
+		End If
+		Try
+			File.MakeDir(File.DirInternal,"kmts")
+			theDir = "/kmts"
+		Catch
+			theDir = ""
+		End Try
+		Try
+			foto_g = Bit.InputStreamToBytes(File.OpenInput(File.DirAssets, "vista1.png"))
+			Dim SALIDA As OutputStream
+			SALIDA = File. OpenOutput (File.DirInternal&theDir, "FOTO1.jpg", False)
+			SALIDA.WriteBytes(foto_g, 0, foto_g.Length)
+			SALIDA.Close
+'			If Logger Then LogColor("** ** Creamos FOTO1.jpg en "&File.DirInternal, Colors.Blue)
+		Catch
+			Msgbox("No se puede crear el archivo de foto","Aviso") 'ignore
+		End Try
+		Try
+			foto_g = Bit.InputStreamToBytes(File.OpenInput(File.DirAssets, "vista3.png"))
+			Dim SALIDA As OutputStream
+			SALIDA = File. OpenOutput (File.DirInternal&theDir, "FOTO2.jpg", False)
+			SALIDA.WriteBytes(foto_g, 0, foto_g.Length)
+			SALIDA.Close
+		Catch
+			Msgbox("No se puede crear el archivo de foto","Aviso") 'ignore
+		End Try
+		Try
+			foto_g = Bit.InputStreamToBytes(File.OpenInput(File.DirAssets, "vista2.png"))
+			Dim SALIDA As OutputStream
+			SALIDA = File. OpenOutput (File.DirInternal&theDir, "FOTO3.jpg", False)
+			SALIDA.WriteBytes(foto_g, 0, foto_g.Length)
+			SALIDA.Close
+		Catch
+			Msgbox("No se puede crear el archivo de foto","Aviso") 'ignore
+		End Try
+		Try
+			foto_g = Bit.InputStreamToBytes(File.OpenInput(File.DirAssets, "vista4.png"))
+			Dim SALIDA As OutputStream
+			SALIDA = File. OpenOutput (File.DirInternal&theDir, "FOTO4.jpg", False)
+			SALIDA.WriteBytes(foto_g, 0, foto_g.Length)
+			SALIDA.Close
+		Catch
+			Msgbox("No se puede crear el archivo de foto","Aviso") 'ignore
+		End Try
+	End If
+'	Dim ph As Phone 'Get Id Device
+	Dim DeviceID As String = Starter.ph.GetSettings("android_id").ToUpperCase
+	If logger Then Log($"Marca: ${Starter.ph.manufacturer}, Modelo: ${Starter.ph.model}"$)
+	If logger Then LogColor($"//////////////////   DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue)
+'	If Logger Then LogColor("Revisa permisos Phone_State", Colors.Green)
+	'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
+'	Subs.borraArribaDe100Errores
+	Log("Pedimos permisos de estado del cel")
+	rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
+	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		Dim Phn As PhoneId
+		IMEN.Text = "" 'Phn.GetDeviceId
+		IMEI ="" ' Phn.GetDeviceId
+		If logger Then LogColor($"//////////////////  IMEI: ${IMEI} ////////////////// "$, Colors.Blue)
+	End If
+	Log("Permisos cel terminados")
+
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
+	Wait For B4XPAge_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		StartService(Tracker)
+		If logger Then Log("Start Tracker")
+	Else
+		ToastMessageShow("Sin permisos para GPS", True)
+	End If
+
+'	Log("Permisos BT: " & rp.Check("android.permission.BLUETOOTH_CONNECT"))
+'	Log("REVISAMOS PERMISOS DE BT")
+'	rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then Log("Tenemos permisos de bluetooth.")
+'	Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
+'	Log("Check phone state: " & rp.Check(rp.PERMISSION_READ_PHONE_STATE))
+End Sub
+
+Sub B4XPage_Appear
+'	server = "http://keymon.com.mx:1782"
+'	server = "http://201.99.139.28:1782"
+'	server = "http://177.244.63.54:1782"
+	reqManager.Initialize(Me, Starter.server)
+	Starter.montoActual = 0
+	Starter.clientesTotal = 0
+	Starter.clientesVenta =  0
+	Starter.clientesVisitados = 0
+	almacen = 0
+	Starter.rutaPreventa =  0
+	Starter.CANTIDADPROD = 0
+	c.Close
+	c=Starter.db.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CODIGO"))
+	c.Position =0
+	CUANTOS = c.GetString("CUANTOS")
+	c.Close
+	If CUANTOS > 0 Then
+		c=Starter.db.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CODIGO"))
+		c.Position =0
+		If c.GetString("CAT_VA_VALOR") = "743" Then
+			Entrar.Visible = True
+		End If
+		c.Close
+	Else
+		Log("INSERTAMOS CODIGO EN CAT_VARIABLES")
+		Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CODIGO","743"))
+	End If
+	c=Starter.db.ExecQuery2("select COUNT(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
+	c.Position =0
+	If c.GetString("CUANTOS") = 0 Then
+		Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP","0"))
+	End If
+	D=Starter.db.ExecQuery("select COUNT(*) AS CUANTOS from version")
+	D.Position=0
+	If D.GetString("CUANTOS") > 0 Then
+		c=Starter.db.ExecQuery("select NOVERSION from version")
+		c.Position = 0
+		If c.GetString("NOVERSION") = "2.1" Then
+			Starter.db.ExecNonQuery("delete from VERSION")
+		End If
+		c.Close
+	End If
+	D.Close
+	D=Starter.db.ExecQuery("select COUNT(*) AS CUANTOS from version")
+	D.Position=0
+	If D.GetString("CUANTOS") > 0 Then
+		c=Starter.db.ExecQuery("select NOVERSION from version")
+		c.Position = 0
+		If c.GetString("NOVERSION") <> "2.95" Then
+			Msgbox("INSTALAR NUEVO APK" ,"AVISO") 'ignore
+			B4XPage_Appear
+		End If
+		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 Entrar_Click
+	DateTime.DateFormat = "yyyyMMdd"
+	If user.Text = "ALTERNO" Then
+		c=Starter.db.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
+		Starter.server = c.GetString("CAT_CO_CONFIGURACION")
+		alterno = c.GetString("CAT_CO_RESULTADO")
+		c.Close
+		If alterno = 1 Then
+			Starter.db.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
+			Starter.db.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
+			Starter.db.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
+			Starter.db.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=Starter.db.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
+		Starter.server = c.GetString("CAT_CO_CONFIGURACION")
+		user.Text = Starter.server
+		c.Close
+'		reqManager.Initialize(Me, Starter.server)
+	else if user.Text = "KMTSKLL1" Then
+		Starter.db.ExecNonQuery("delete from usuarioa")
+		Starter.db.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?,?)", Array As Object(user.Text, pass.Text, DateTime.Date(DateTime.Now)))
+		Starter.db.ExecNonQuery("delete from cat_almacen")
+		Starter.db.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
+		Starter.db.ExecNonQuery("delete from VERSION")
+		Starter.db.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.95"))
+		B4XPages.ShowPage("Principal")
+	End If
+'	c=Starter.db.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
+	c=Starter.db.ExecQuery2($"select count(*) as EXISTE1 from usuarioa where usuario = ? and fecha = ${DateTime.Date(DateTime.Now)}"$, Array As String(user.Text))
+	c.Position=0
+	existe = c.GetString("EXISTE1")
+'	Log($"${existe}, ${DateTime.Date(DateTime.Now)}, ${user.Text}"$ )
+	'existe = 1
+	If existe = 0 Then
+		'skmt.ExecNonQuery("delete from usuarioa")
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_usuario_guna_KELL"
+		cmd.Parameters = Array As Object(user.Text, pass.Text)
+		reqManager.ExecuteQuery(cmd , 0, "usuario")
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_version_KELL"
+		Starter.reqManager.ExecuteQuery(cmd , 0, "version")
+	Else
+		Subs.iniciaActividad("Principal")
+'		B4XPages.ShowPage("Principal")
+	End If
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	Log("JOBDONE MAINPAGE")
+	If Job.Success = False Then
+		ToastMessageShow("Error: " & Job.ErrorMessage, True)
+	Else
+		If logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211110
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "version" Then 'query tag
+				For Each records() As Object In result.Rows
+					Starter.db.ExecNonQuery("delete from VERSION")
+					Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
+					Starter.db.ExecNonQuery("delete from VERSION")
+					Starter.db.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
+				Next
+			End If
+		End If
+
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "agencia" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim ID_ALMACEN As String = records(result.Columns.Get("ID_ALMACEN"))
+				Next
+			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
+					Starter.FECHA_HOY = records(result.Columns.Get("FECHA"))
+					Starter.db.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
+					Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA", Starter.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"))
+					If logger Then Log(name)
+					'		   Dim IMEI_BASE As String = records(result.Columns.Get("CAT_LO_IDTELEFONO"))
+				Next
+				paso1 = 1
+			End If
+		End If
+		Job.Release
+	End If
+	
+	If paso1 =1 Then
+		If name = "OKActivo" Then
+			LogColor("Borramos e insertamos a usuarioa", Colors.green)
+			DateTime.DateFormat = "yyyyMMdd"
+			Starter.db.ExecNonQuery("delete from usuarioa")
+			Starter.db.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?,?)", Array As Object(user.Text, pass.Text, DateTime.Date(DateTime.Now)))
+			Starter.db.ExecNonQuery("delete from cat_almacen")
+			Starter.db.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
+			almacen = ID_ALMACEN
+			Starter.db.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO"))
+			Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0))
+'			B4XPages.ShowPage("Principal")
+			Subs.iniciaActividad("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
+	End If
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+	' BACK key pressed
+	'Return True to close, False to cancel
+	Log("BACK")
+	If Panel1.Visible Then
+		Panel1.Visible = False
+		Entrar.Visible = True
+		Return True
+	Else
+		If logger Then Log("Saliendo")
+		B4XPages.ClosePage(Me)
+		Subs.cierraActividades
+		Return True
+	End If
+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 IMEN_EnterPressed
+
+End Sub
+
+Sub user_EnterPressed
+	If user.Text = "CODIGO" Then
+		IMEN.Visible = True
+		user.Text = ""
+	End If
+	DateTime.DateFormat = "yyyyMMdd"
+	c=Starter.db.ExecQuery2($"select count(*) as EXISTE1 from usuarioa where usuario = ? and fecha = ${DateTime.Date(DateTime.Now)}"$, Array As String(user.Text))
+	c.Position=0
+	existe = c.GetString("EXISTE1")
+	If existe = 1 Then Subs.iniciaActividad("Principal")
+End Sub
+
+Sub ImageView4_Click
+	Entrar.Visible = False
+'	Starter.server = "http://201.99.139.28:1782"
+'	Starter.server = "http://177.244.63.54:1782"
+'	Starter.server = "http://keymon.com.mx:1782"
+	ListView1.Clear
+	Dim Label1 As Label
+	Label1 = ListView1.SingleLineLayout.Label
+	Label1.TextSize = 20
+	Label1.TextColor = Colors.Black
+	If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1782")
+	ListView1.AddSingleLine("http://keymon.lat:1782")
+	c=Starter.db.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
+	c.Position =0
+	E_SERVER.text = c.GetString("CAT_VA_VALOR")
+	Panel1.Visible = True
+	Panel1.Width = Root.Width * 0.95
+	Panel1.Left = (Root.Width/2) - (Panel1.Width/2)
+	Panel1.Top = (Root.Height/2) - (Panel1.Height/2)
+	Panel1.Elevation = 100
+	Panel1.BringToFront
+End Sub
+
+Private Sub ImageView4_LongClick
+'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	Subs.copiaDB(Result)
+End Sub
+
+Sub B_SERVER_Click
+	Starter.db.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
+	Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",E_SERVER.text))
+	Starter.server = E_SERVER.text
+	If logger Then Log("Inicializamos reqManager con " & Starter.server)
+	reqManager.Initialize(Me, Starter.server)
+	CallSubDelayed(Starter, "reinicializaReqManager")
+	Panel1.Visible = False
+	Entrar.Visible = True
+End Sub
+
+Sub B_MACIMP_Click
+	Starter.db.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
+	Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP","0"))
+	Panel1.Visible = False
+End Sub
+
+Sub ListView1_ItemClick (Position As Int, Value As Object)
+	E_SERVER.text = Value
+End Sub
+
+Sub ImageView1_Click
+	
+End Sub
+
+Sub B_BorrarFinDia_Click
+	p_finDia.Visible = True
+	p_finDia.BringToFront
+End Sub
+
+Sub b_fdCancelar_Click
+	p_finDia.Visible = False
+	p_finDia.SendToBack
+End Sub
+
+Sub b_findiaOk_Click
+	c=Starter.db.ExecQuery2("select count(*) as passOk from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ? and CAT_VA_VALOR = ?", Array As String ("FINDIA_PASS", et_autSup.Text))
+	c.Position =0
+	If c.GetString("passOk") = 1 Or et_autSup.Text = "FinDiaAutOk" Then
+		Starter.db.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_FECHA'")
+		ToastMessageShow("Ya se puede hacer FIN DIA!!", True)
+		p_finDia.Visible = False
+		p_finDia.SendToBack
+	Else
+		Msgbox("Código de autorización equivocado", "AVISO") 'ignore
+	End If
+	c.Close
+End Sub
+
+'Enviamos la base de datos por correo
+Private Sub b_envioBD_Click
+	Public Provider As FileProvider
+	Provider.Initialize
+	Dim FileName As String = "kmt.db"
+	Log("************* : "&Provider.SharedFolder)
+	Sleep(1000)
+	'Copy the shared file to the shared folder
+	File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
+	Dim email As Email
+	email.To.Add("soporte@keymonsoft.com")
+	email.Subject = "Envío base de datos de ruta con problemas."
+	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/C_Calculadora.bas

@@ -0,0 +1,710 @@
+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
+	'--***---- BOLETA DE LIQUIDACION
+	Private P_BOLETA As Panel
+	'------ BILLETES
+	Private LBL_TMIL As Label
+	Private LBL_TQUIN As Label
+	Private LBL_TDOS As Label
+	Private LBL_TCIEN As Label
+	Private LBL_TCIN As Label
+	Private LBL_TVEIN As Label
+	Private LBL_MIL As Label
+	Private LBL_QUIN As Label
+	Private LBL_DOSC As Label
+	Private LBL_CIEN As Label
+	Private LBL_CINCUEN As Label
+	Private LBL_VEINTE As Label
+	Private EDT_CANVEIN As EditText
+	Private EDT_CANCIN As EditText
+	Private EDT_CANCIEN As EditText
+	Private EDT_CANDOS As EditText
+	Private EDT_CANQUIN As EditText
+	Private EDT_CANMIL As EditText
+	Private Btn_TOTALBILLETE As Button
+	Private Pnl_Billete As Panel
+	Private Pnl_Moneda As Panel
+	Private L_CALCULA_BILLE As Label
+	'------ BOTONES MAS Y MENOS
+	Private B_MENMIL As Button
+	Private B_SUMIL As Button
+	Private B_MENQUI As Button
+	Private B_SUQUI As Button
+	Private B_MENDOS As Button
+	Private B_SUDOS As Button
+	Private B_MENCIE As Button
+	Private B_SUCIEN As Button
+	Private B_MENCIN As Button
+	Private B_SUCIN As Button
+	Private B_MENVEI As Button
+	Private B_SUVEI As Button
+	'------ MONEDAS
+	Private L_DIEZ As Label
+	Private L_CINCO As Label
+	Private L_DOS As Label
+	Private L_UNO As Label
+	Private L_CENTAVO As Label
+	Private LBL_TDIEZ As Label
+	Private LBL_TCI As Label
+	Private LBL_TDO As Label
+	Private LBL_TUN As Label
+	Private LBL_TCEN As Label
+	Private EDT_CANCEN As EditText
+	Private EDT_CANUN As EditText
+	Private EDT_CANDO As EditText
+	Private EDT_CANCI As EditText
+	Private EDT_CANDIEZ As EditText
+	Private L_CALCULA_MONEDA As Label
+	Private B_TOTALMONEDA As Button
+	'------ BOTONES MAS Y MENOS
+	Private B_MENCENT As Button
+	Private B_MENUN As Button
+	Private B_MENDO As Button
+	Private B_MENCI As Button
+	Private B_MENDIEZ As Button
+	Private B_SUMDIEZ As Button
+	Private B_SUMCIN As Button
+	Private B_SUMDO As Button
+	Private B_SUMUN As Button
+	Private B_SUMCENT As Button
+	'------ SUMA TOTALES
+	Private B_AGREGAMONE As Button
+	Private B_AGREGABILL As Button
+	Private TOTALES As Label
+	Private B_SUM_TOTAL As Button
+	Private TOTALBILLETES As Button
+	Private TOTALMONEDA As Button
+	Private PNL_TOTALES As Panel
+	Private LBL_RETURN As Label
+	Private IMG_IMPRESORA As Label
+	Private LBL_REGRESA As Label
+	'--***---- FIN BOLETA
+'	Private P_INF_GENERAL As Panel
+	Private B_Regresar As Button
+'	Private ABORDO As String
+	Private a_inicial As String
+	Private a_total As String
+	Private a_venta As String
+	Private a_final As String
+	Private a_VENTA_F As String
+	Private a_inicial_5 As String
+	Private L_INVA As ListView
+	Private B_IMP_INV As Button
+	Private B_CERRAR_I As Button
+	Private Panel_INV_A As Panel
+	Private LBL_TVEINTE As Label
+	Private B_SUMVEINTE As Button
+	Private EDT_CANVEINTE As EditText
+	Private B_MENVEINTE As Button
+	Private L_VEINTE As Label
+	Dim RutaBoleta As String
+	Dim Id_Almacen As String
+	Dim cursorBoleta As Cursor
+	Private Bt_GuardarBoleta As Button
+	Private CUANTOS1 As String
+	Private Panel9 As Panel
+	Private t_tenc As Label
+	Private E_RES_E As EditText
+	Private B_E_NEXT As Button
+	Private Label26 As Label
+	Private l_chk_e As Label
+	Private Chk_1 As CheckBox
+	Private chk_2 As CheckBox
+	Private chk_3 As CheckBox
+	Private b_chk_e As Button
+	Private Panel10 As Panel
+	Private chk_1_valor As String
+	Private chk_2_valor As String
+	Private chk_3_valor As String
+	Private p_encuesta As Panel
+	Private b_encuesta_1 As Button
+	Private b_encuesta_2 As Button
+	Private b_encuesta_3 As Button
+	Private l_titEncuesta As Label
+	Private l_txtEncuesta As Label
+	Private encuestaRes As String
+	Private botonPresionado As Int
+	Private B_IMP2 As Button
+	Dim impresoraConectada As Boolean = False
+	Private l_categoria2 As Label
+	Private l_exhibidor2 As Label
+	Private p_exhibidores As Panel
+	Private Button1 As Button
+	Private b_exhibidor As Button
+	Private l_exhibidores3 As Label
+	Private l_segmento2 As Label
+	Private et_encuesta As EditText
+	Private b_encuesta_continuar As Button
+	Dim muestraBoleta As Boolean = False
+	Private Panel4 As Panel
+	
+	Private Edt_FH As EditText
+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("calculadora")
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub LLAMA_BOLETA
+	'' FECHA DE TELEFONO
+	DateTime.DateFormat="dd/MM/yyyy"
+	Edt_FH.Text=DateTime.Date(DateTime.Now)
+	Subs.panelAnchoAlto(PNL_TOTALES, Root.Width, Root.Height)
+	PNL_TOTALES.Visible=True
+	Pnl_Billete.Visible=True
+	Pnl_Moneda.visible=True
+	LBL_RETURN.Visible=False
+	LBL_REGRESA.Visible=False
+	P_BOLETA.Visible=True
+'	P_INF_GENERAL.Visible=False
+	LBL_REGRESA.Visible=True
+	Private c As Cursor = Starter.skmt.ExecQuery("select * from TMP_CAT_BILLETE join TMP_CAT_MONEDAS")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		Log("==================== CALCULADORA "&c.ColumnCount)
+'		Traemos billetes
+		EDT_CANMIL.Text = "0"
+		If IsNumber(c.GetString("TMP_BILLE_MIL")) Then EDT_CANMIL.Text = c.GetString("TMP_BILLE_MIL")
+		EDT_CANQUIN.Text = "0"
+		If c.GetString("TMP_BILLE_QUINIENTOS")<> Null Then EDT_CANQUIN.Text = c.GetString("TMP_BILLE_QUINIENTOS")
+		EDT_CANDOS.Text = "0"
+		If c.GetString("TMP_BILLE_DOSCIENTOS") <>Null Then EDT_CANDOS.Text = c.GetString("TMP_BILLE_DOSCIENTOS")
+		EDT_CANCIEN.Text = "0"
+		If c.GetString("TMP_BILLE_CIEN")<> Null Then EDT_CANCIEN.Text = c.GetString("TMP_BILLE_CIEN")
+		EDT_CANCIN.Text = "0"
+		If c.GetString("TMP_BILLE_CINCUENTA")<> Null Then EDT_CANCIN.Text = c.GetString("TMP_BILLE_CINCUENTA")
+		EDT_CANVEIN.Text = "0"
+		If c.GetString("TMP_BILLE_VEINTE")<> Null Then EDT_CANVEIN.Text = c.GetString("TMP_BILLE_VEINTE")
+'		Traemos monedas
+		EDT_CANVEINTE.Text = "0"
+		If c.GetString("TMP_MON_VEINTE")<> Null Then EDT_CANVEINTE.Text = c.GetString("TMP_MON_VEINTE")
+		EDT_CANDIEZ.Text = "0"
+		If c.GetString("TMP_MON_DIEZ")<> Null Then EDT_CANDIEZ.Text = c.GetString("TMP_MON_DIEZ")
+		EDT_CANCI.Text = "0"
+		If c.GetString("TMP_MON_CINCO")<> Null Then EDT_CANCI.Text = c.GetString("TMP_MON_CINCO")
+		EDT_CANDO.Text = "0"
+		If c.GetString("TMP_MON_DOS")<> Null Then EDT_CANDO.Text = c.GetString("TMP_MON_DOS")
+		EDT_CANUN.Text = "0"
+		If c.GetString("TMP_MON_UN")<> Null Then EDT_CANUN.Text = c.GetString("TMP_MON_UN")
+		EDT_CANCEN.Text = "0"
+		If c.GetString("TMP_MON_CENTAVOS")<> Null Then EDT_CANCEN.Text = c.GetString("TMP_MON_CENTAVOS")
+		L_CALCULA_BILLE_CLICK
+		L_CALCULA_MONEDA_Click
+		B_SUM_TOTAL.Text = TOTALBILLETES.Text + TOTALMONEDA.text
+	End If
+	Starter.boleta = 0
+	muestraBoleta = False
+	c.Close
+End Sub
+
+'''BILLETES
+Sub L_CALCULA_BILLE_CLICK
+	If EDT_CANMIL.Text="" Or  EDT_CANQUIN.Text="" Or EDT_CANDOS.Text="" Or EDT_CANCIEN.Text="" Or EDT_CANCIN.Text="" Or EDT_CANVEIN.Text="" Then
+		Pnl_Billete.RequestFocus
+		Msgbox("Por favor llena todas las cantidades","") 'ignore
+	Else
+		LBL_TMIL.Text= LBL_MIL.Tag * EDT_CANMIL.Text
+		LBL_TQUIN.Text=LBL_QUIN.Tag * EDT_CANQUIN.Text
+		LBL_TDOS.Text=LBL_DOSC.Tag * EDT_CANDOS.Text
+		LBL_TCIEN.Text=LBL_CIEN.Tag * EDT_CANCIEN.Text
+		LBL_TCIN.Text=LBL_CINCUEN.Tag * EDT_CANCIN.Text
+		LBL_TVEIN.Text=LBL_VEINTE.Tag * EDT_CANVEIN.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+'20
+Private Sub EDT_CANVEIN_FocusChanged (HasFocus As Boolean)
+	If EDT_CANVEIN.Text = "" Then EDT_CANVEIN.Text = "0"
+	EDT_CANVEIN.Text = Round (EDT_CANVEIN.Text)
+	LBL_TVEIN.Text=LBL_VEINTE.Tag * EDT_CANVEIN.Text
+	Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+	TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+End Sub
+
+Sub B_SUVEI_Click
+	If EDT_CANVEIN.Text = "" Then
+		EDT_CANVEIN.Text=0
+		LBL_TVEIN.Text=LBL_VEINTE.Tag * EDT_CANVEIN.Text
+	Else
+		EDT_CANVEIN.Text = Round (EDT_CANVEIN.Text + 1)
+		LBL_TVEIN.Text=LBL_VEINTE.Tag * EDT_CANVEIN.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+Sub B_MENVEI_Click
+	If EDT_CANVEIN.Text = "" Then
+		EDT_CANVEIN.Text=0
+		LBL_TVEIN.Text=LBL_VEINTE.Tag * EDT_CANVEIN.Text
+	Else IF EDT_CANVEIN.Text > 0 Then
+		EDT_CANVEIN.Text = Round(EDT_CANVEIN.Text -1)
+		LBL_TVEIN.Text=LBL_VEINTE.Tag * EDT_CANVEIN.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+'50
+Private Sub EDT_CANCIN_FocusChanged (HasFocus As Boolean)
+	If EDT_CANCIN.Text = "" Then EDT_CANCIN.Text = "0"
+	EDT_CANCIN.Text = Round (EDT_CANCIN.Text)
+	LBL_TCIN.Text=LBL_CINCUEN.Tag * EDT_CANCIN.Text
+	Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+	TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+End Sub
+
+Sub B_SUCIN_Click
+	If EDT_CANCIN.Text = "" Then
+		EDT_CANCIN.Text =0
+		LBL_TCIN.Text=LBL_CINCUEN.Tag * EDT_CANCIN.Text
+	Else
+		EDT_CANCIN.Text = Round (EDT_CANCIN.Text + 1)
+		LBL_TCIN.Text=LBL_CINCUEN.Tag * EDT_CANCIN.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+Sub B_MENCIN_Click
+	If EDT_CANCIN.Text = "" Then
+		EDT_CANCIN.Text =0
+		LBL_TCIN.Text=LBL_CINCUEN.Tag * EDT_CANCIN.Text
+	Else IF EDT_CANCIN.Text > 0 Then
+		EDT_CANCIN.Text = Round(EDT_CANCIN.Text -1)
+		LBL_TCIN.Text=LBL_CINCUEN.Tag * EDT_CANCIN.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+'100
+Private Sub EDT_CANCIEN_FocusChanged (HasFocus As Boolean)
+	If EDT_CANCIEN.Text = "" Then EDT_CANCIEN.Text = "0"
+	EDT_CANCIEN.Text = Round (EDT_CANCIEN.Text)
+	LBL_TCIEN.Text=LBL_CIEN.Tag * EDT_CANCIEN.Text
+	Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+	TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+End Sub
+
+Sub B_SUCIEN_Click
+	If EDT_CANCIEN.Text = "" Then
+		EDT_CANCIEN.Text = 0
+		LBL_TCIEN.Text=LBL_CIEN.Tag * EDT_CANCIEN.Text
+	Else
+		EDT_CANCIEN.Text = Round (EDT_CANCIEN.Text + 1)
+		LBL_TCIEN.Text=LBL_CIEN.Tag * EDT_CANCIEN.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+Sub B_MENCIE_Click
+	If EDT_CANCIEN.Text = "" Then
+		EDT_CANCIEN.Text = 0
+		LBL_TCIEN.Text=LBL_CIEN.Tag * EDT_CANCIEN.Text
+	Else IF EDT_CANCIEN.Text > 0 Then
+		EDT_CANCIEN.Text = Round(EDT_CANCIEN.Text -1)
+		LBL_TCIEN.Text=LBL_CIEN.Tag * EDT_CANCIEN.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+'200
+Private Sub EDT_CANDOS_FocusChanged (HasFocus As Boolean)
+	If EDT_CANDOS.Text = "" Then EDT_CANDOS.Text = "0"
+	EDT_CANDOS.Text = Round (EDT_CANDOS.Text)
+	LBL_TDOS.Text=LBL_DOSC.Tag * EDT_CANDOS.Text
+	Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+	TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+End Sub
+
+Sub B_SUDOS_Click
+	If EDT_CANDOS.Text = "" Then
+		EDT_CANDOS.Text = 0
+		LBL_TDOS.Text=LBL_DOSC.Tag * EDT_CANDOS.Text
+	Else
+		EDT_CANDOS.Text = Round (EDT_CANDOS.Text + 1)
+		LBL_TDOS.Text=LBL_DOSC.Tag * EDT_CANDOS.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+Sub B_MENDOS_Click
+	If EDT_CANDOS.Text = "" Then
+		EDT_CANDOS.Text = 0
+		LBL_TDOS.Text=LBL_DOSC.Tag * EDT_CANDOS.Text
+	Else IF EDT_CANDOS.Text > 0 Then
+		EDT_CANDOS.Text = Round(EDT_CANDOS.Text -1)
+		LBL_TDOS.Text=LBL_DOSC.Tag * EDT_CANDOS.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+'500
+Private Sub EDT_CANQUIN_FocusChanged (HasFocus As Boolean)
+	If EDT_CANQUIN.Text = "" Then EDT_CANQUIN.Text = "0"
+	EDT_CANQUIN.Text = Round (EDT_CANQUIN.Text)
+	LBL_TQUIN.Text=LBL_QUIN.Tag * EDT_CANQUIN.Text
+	Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+	TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+End Sub
+
+Sub B_SUQUI_Click
+	If EDT_CANQUIN.Text = "" Then
+		EDT_CANQUIN.Text =0
+		LBL_TQUIN.Text=LBL_QUIN.Tag * EDT_CANQUIN.Text
+	Else
+		EDT_CANQUIN.Text = Round (EDT_CANQUIN.Text + 1)
+		LBL_TQUIN.Text=LBL_QUIN.Tag * EDT_CANQUIN.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+Sub B_MENQUI_Click
+	If EDT_CANQUIN.Text = "" Then
+		EDT_CANQUIN.Text =0
+		LBL_TQUIN.Text=LBL_QUIN.Tag * EDT_CANQUIN.Text
+	Else IF EDT_CANQUIN.Text > 0 Then
+		EDT_CANQUIN.Text = Round(EDT_CANQUIN.Text -1)
+		LBL_TQUIN.Text=LBL_QUIN.Tag * EDT_CANQUIN.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+'1000
+Private Sub EDT_CANMIL_FocusChanged (HasFocus As Boolean)
+	If EDT_CANMIL.Text = "" Then EDT_CANMIL.Text = "0"
+	EDT_CANMIL.Text = Round (EDT_CANMIL.Text )
+	LBL_TMIL.Text= LBL_MIL.Tag * EDT_CANMIL.Text
+	Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+	TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+End Sub
+
+Sub B_SUMIL_Click
+	If EDT_CANMIL.Text = "" Then
+		EDT_CANMIL.Text = 0
+		LBL_TMIL.Text= LBL_MIL.Tag * EDT_CANMIL.Text
+	Else
+		EDT_CANMIL.Text = Round (EDT_CANMIL.Text + 1)
+		LBL_TMIL.Text= LBL_MIL.Tag * EDT_CANMIL.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+Sub B_MENMIL_Click
+	If EDT_CANMIL.Text = "" Then
+		EDT_CANMIL.Text = 1
+		LBL_TMIL.Text= LBL_MIL.Tag * EDT_CANMIL.Text
+	Else IF EDT_CANMIL.Text > 0 Then
+		EDT_CANMIL.Text = Round(EDT_CANMIL.Text -1)
+		LBL_TMIL.Text= LBL_MIL.Tag * EDT_CANMIL.Text
+		Btn_TOTALBILLETE.Text= ( LBL_TMIL.Text + LBL_TQUIN.Text + LBL_TDOS.Text + LBL_TCIEN.Text + LBL_TCIN.Text + LBL_TVEIN.Text)
+		TOTALBILLETES.Text=Btn_TOTALBILLETE.Text
+	End If
+End Sub
+
+'''' MONEDAS
+Sub L_CALCULA_MONEDA_Click
+	If EDT_CANDIEZ.Text="" Or  EDT_CANCI.Text="" Or EDT_CANDO.Text="" Or EDT_CANUN.Text="" Or EDT_CANCEN.Text=""   Or EDT_CANVEINTE.Text="" Then
+		Msgbox("Por favor llena todas las cantidades","") 'ignore
+		Pnl_Billete.RequestFocus
+	Else
+		LBL_TDIEZ.Text= L_DIEZ.Tag * EDT_CANDIEZ.Text
+		LBL_TCI.Text= L_CINCO.Tag * EDT_CANCI.Text
+		LBL_TDO.Text=L_DOS.Tag * EDT_CANDO.Text
+		LBL_TUN.Text=L_UNO.Tag * EDT_CANUN.Text
+		LBL_TCEN.Text=L_CENTAVO.Tag * EDT_CANCEN.Text
+		LBL_TVEINTE.Text=L_VEINTE.Tag * EDT_CANVEINTE.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+'0.50
+Private Sub EDT_CANCEN_FocusChanged (HasFocus As Boolean)
+	If EDT_CANCEN.Text = "" Then EDT_CANCEN.Text = "0"
+	EDT_CANCEN.Text = Round (EDT_CANCEN.Text)
+	LBL_TCEN.Text=L_CENTAVO.Tag * EDT_CANCEN.Text
+	B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+	TOTALMONEDA.Text=B_TOTALMONEDA.Text
+End Sub
+
+Sub B_SUMCENT_Click
+	If EDT_CANCEN.Text = "" Then
+		EDT_CANCEN.Text = 0
+		LBL_TCEN.Text=L_CENTAVO.Tag * EDT_CANCEN.Text
+	Else
+		EDT_CANCEN.Text = Round (EDT_CANCEN.Text + 1)
+		LBL_TCEN.Text=L_CENTAVO.Tag * EDT_CANCEN.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+Sub B_MENCENT_Click
+	If EDT_CANCEN.Text = "" Then
+		EDT_CANCEN.Text =0
+		LBL_TCEN.Text=L_CENTAVO.Tag * EDT_CANCEN.Text
+	Else IF EDT_CANCEN.Text > 0 Then
+		EDT_CANCEN.Text = Round(EDT_CANCEN.Text -1)
+		LBL_TCEN.Text=L_CENTAVO.Tag * EDT_CANCEN.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+'1
+Private Sub EDT_CANUN_FocusChanged (HasFocus As Boolean)
+	If EDT_CANUN.Text = "" Then EDT_CANUN.Text = "0"
+	EDT_CANUN.Text = Round (EDT_CANUN.Text)
+	LBL_TUN.Text=L_UNO.Tag * EDT_CANUN.Text
+	B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+	TOTALMONEDA.Text=B_TOTALMONEDA.Text
+End Sub
+
+Sub B_SUMUN_Click
+	If EDT_CANUN.Text = "" Then
+		
+		LBL_TUN.Text=L_UNO.Tag * EDT_CANUN.Text
+	Else
+		EDT_CANUN.Text = Round (EDT_CANUN.Text + 1)
+		LBL_TUN.Text=L_UNO.Tag * EDT_CANUN.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+Sub B_MENUN_Click
+	If EDT_CANUN.Text = "" Then
+		EDT_CANUN.Text = 0
+		LBL_TUN.Text=L_UNO.Tag * EDT_CANUN.Text
+	Else IF EDT_CANUN.Text > 0 Then
+		EDT_CANUN.Text = Round(EDT_CANUN.Text -1)
+		LBL_TUN.Text=L_UNO.Tag * EDT_CANUN.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+'2
+Private Sub EDT_CANDO_FocusChanged (HasFocus As Boolean)
+	If EDT_CANDO.Text = "" Then EDT_CANDO.Text = "0"
+	EDT_CANDO.Text = Round (EDT_CANDO.Text)
+	LBL_TDO.Text=L_DOS.Tag * EDT_CANDO.Text
+	B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+	TOTALMONEDA.Text=B_TOTALMONEDA.Text
+End Sub
+
+Sub B_SUMDO_Click
+	If EDT_CANDO.Text = "" Then
+		EDT_CANDO.Text =0
+		LBL_TDO.Text=L_DOS.Tag * EDT_CANDO.Text
+	Else
+		EDT_CANDO.Text = Round (EDT_CANDO.Text + 1)
+		LBL_TDO.Text=L_DOS.Tag * EDT_CANDO.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+Sub B_MENDO_Click
+	If EDT_CANDO.Text = "" Then
+		EDT_CANDO.Text=0
+		LBL_TDO.Text=L_DOS.Tag * EDT_CANDO.Text
+	Else IF EDT_CANDO.Text > 0 Then
+		EDT_CANDO.Text = Round(EDT_CANDO.Text -1)
+		LBL_TDO.Text=L_DOS.Tag * EDT_CANDO.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+'5
+Private Sub EDT_CANCI_FocusChanged (HasFocus As Boolean)
+	If EDT_CANCI.Text = "" Then EDT_CANCI.Text = "0"
+	EDT_CANCI.Text = Round (EDT_CANCI.Text)
+	LBL_TCI.Text= L_CINCO.Tag * EDT_CANCI.Text
+	B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text )
+	TOTALMONEDA.Text=B_TOTALMONEDA.Text
+End Sub
+
+Sub B_SUMCIN_Click
+	If EDT_CANCI.Text = "" Then
+		EDT_CANCI.Text =0
+		LBL_TCI.Text= L_CINCO.Tag * EDT_CANCI.Text
+	Else
+		EDT_CANCI.Text = Round (EDT_CANCI.Text + 1)
+		LBL_TCI.Text= L_CINCO.Tag * EDT_CANCI.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text )
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+Sub B_MENCI_Click
+	If EDT_CANCI.Text = "" Then
+		EDT_CANCI.Text =0
+		LBL_TCI.Text= L_CINCO.Tag * EDT_CANCI.Text
+	Else IF EDT_CANCI.Text > 0 Then
+		EDT_CANCI.Text = Round(EDT_CANCI.Text -1)
+		LBL_TCI.Text= L_CINCO.Tag * EDT_CANCI.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+'10
+Private Sub EDT_CANDIEZ_FocusChanged (HasFocus As Boolean)
+	If EDT_CANDIEZ.Text = "" Then EDT_CANDIEZ.Text = "0"
+	EDT_CANDIEZ.Text = Round (EDT_CANDIEZ.Text)
+	LBL_TDIEZ.Text= L_DIEZ.Tag * EDT_CANDIEZ.Text
+	B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+	TOTALMONEDA.Text=B_TOTALMONEDA.Text
+End Sub
+
+Sub B_SUMDIEZ_Click
+	If EDT_CANDIEZ.Text = "" Then
+		EDT_CANDIEZ.Text =0
+		LBL_TDIEZ.Text= L_DIEZ.Tag * EDT_CANDIEZ.Text
+	Else
+		EDT_CANDIEZ.Text = Round (EDT_CANDIEZ.Text + 1)
+		LBL_TDIEZ.Text= L_DIEZ.Tag * EDT_CANDIEZ.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+Sub B_MENDIEZ_Click
+	If EDT_CANDIEZ.Text = "" Then
+		EDT_CANDIEZ.Text = 0
+		LBL_TDIEZ.Text= L_DIEZ.Tag * EDT_CANDIEZ.Text
+	Else IF EDT_CANDIEZ.Text > 0 Then
+		EDT_CANDIEZ.Text = Round(EDT_CANDIEZ.Text -1)
+		LBL_TDIEZ.Text= L_DIEZ.Tag * EDT_CANDIEZ.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+'20
+Private Sub EDT_CANVEINTE_FocusChanged (HasFocus As Boolean)
+	If EDT_CANVEINTE.Text = "" Then EDT_CANVEINTE.Text = "0"
+	EDT_CANVEINTE.Text = Round(EDT_CANVEINTE.Text)
+	LBL_TVEINTE.Text= L_VEINTE.Tag * EDT_CANVEINTE.Text
+	B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text +  LBL_TVEINTE.Text )
+	TOTALMONEDA.Text=B_TOTALMONEDA.Text
+End Sub
+
+Sub B_MENVEINTE_Click
+	If EDT_CANVEINTE.Text = "" Then
+		EDT_CANVEINTE.Text = 0
+		LBL_TVEINTE.Text= L_VEINTE.Tag * EDT_CANVEINTE.Text
+	Else IF EDT_CANVEINTE.Text > 0 Then
+		EDT_CANVEINTE.Text = Round(EDT_CANVEINTE.Text -1)
+		LBL_TVEINTE.Text= L_VEINTE.Tag * EDT_CANVEINTE.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text +  LBL_TVEINTE.Text )
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+Sub B_SUMVEINTE_Click
+	If EDT_CANVEINTE.Text = "" Then
+		EDT_CANVEINTE.Text =0
+		LBL_TVEINTE.Text= L_VEINTE.Tag * EDT_CANVEINTE.Text
+	Else
+		EDT_CANVEINTE.Text = Round (EDT_CANVEINTE.Text + 1)
+		LBL_TVEINTE.Text= L_VEINTE.Tag * EDT_CANVEINTE.Text
+		B_TOTALMONEDA.Text=( LBL_TDIEZ.Text + LBL_TCI.Text + LBL_TDO.Text + LBL_TUN.Text + LBL_TCEN.Text + LBL_TVEINTE.Text)
+		TOTALMONEDA.Text=B_TOTALMONEDA.Text
+	End If
+End Sub
+
+''''''TOTALES
+Sub TOTALES_Click
+	If TOTALMONEDA.Text="" Or  TOTALBILLETES.Text=""  Then
+		TOTALMONEDA.Text=0
+		TOTALBILLETES.Text=0
+		B_SUM_TOTAL.Text="$"& (TOTALMONEDA.Text + TOTALBILLETES.Text)
+	Else
+		B_SUM_TOTAL.Text= "$"&(TOTALMONEDA.Text + TOTALBILLETES.Text)
+	End If
+End Sub
+
+Sub B_AGREGABILL_Click
+	Pnl_Billete.Visible=True
+	Pnl_Moneda.Visible=False
+	PNL_TOTALES.Visible=False
+	LBL_RETURN.Visible=True
+	LBL_REGRESA.Visible=True
+End Sub
+
+Sub B_AGREGAMONE_Click
+	Pnl_Billete.Visible=False
+	Pnl_Moneda.Visible=True
+	PNL_TOTALES.Visible=False
+	LBL_RETURN.Visible=True
+	LBL_REGRESA.Visible=True
+End Sub
+
+Sub LBL_RETURN_Click
+	Pnl_Billete.Visible=False
+	Pnl_Moneda.Visible=False
+	PNL_TOTALES.Visible=True
+	LBL_RETURN.Visible=False
+	LBL_REGRESA.Visible=False
+	''' CALCULO FINAL
+	If TOTALMONEDA.Text="" Or  TOTALBILLETES.Text=""  Then
+		TOTALMONEDA.Text=0
+		TOTALBILLETES.Text=0
+		B_SUM_TOTAL.Text="$"& (TOTALMONEDA.Text + TOTALBILLETES.Text)
+	Else
+		B_SUM_TOTAL.Text="$"& (TOTALMONEDA.Text + TOTALBILLETES.Text)
+	End If
+End Sub
+
+Sub LBL_REGRESA_Click
+	Pnl_Billete.Visible=False
+	Pnl_Moneda.Visible=False
+	LBL_RETURN.Visible=False
+	LBL_REGRESA.Visible=False
+	PNL_TOTALES.Visible=True
+	LBL_REGRESA.Visible=True
+End Sub
+
+Sub B_Regresar_Click
+'	StartActivity("SELECCION")
+	Subs.iniciaActividad("principal")
+'	B4XPages.ShowPage("Principal")
+'	Activity.Finish
+	PNL_TOTALES.Visible=False
+	Pnl_Billete.Visible=False
+	Pnl_Moneda.visible=False
+	PNL_TOTALES.Visible=False
+	LBL_RETURN.Visible=False
+	LBL_REGRESA.Visible=False
+	P_BOLETA.Visible=False
+'	P_INF_GENERAL.Visible=True
+	LBL_REGRESA.Visible=False
+End Sub

B4A/C_Clientes.bas

@@ -0,0 +1,209 @@
+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
+	'//Process Globals
+	Dim ruta As String
+	Dim q_buscar As String
+	'These global variables will be redeclared each time the activity is created.
+	'These variables can only be accessed from this module.
+	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
+End Sub
+
+Private Sub B4XPage_Created (Root1 As B4XView)
+	'Do not forget to load the layout file created with the visual designer. For example:
+	'Activity.LoadLayout("Layout1")
+	Root = Root1
+	Root.LoadLayout("fila")
+	entro ="2"
+	' valido donde escribo el archivo de la base de datos de kmt
+	ruta = File.DirInternal
+	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
+	b_qr.Visible = False  ' No usamos el lector QR en esta app - CHV
+	busca.Text = ""
+	skmt.Initialize(ruta,"kmt.db", True)
+	entro ="2"
+	colonia = 0
+	' esto es para rutas se quito por colonia c=skmt.ExecQuery("select CAT_CL_RUTA, count(*) as cuantos from kmt_info where gestion = 0 group by CAT_CL_RUTA order by CAT_CL_RUTA asc")
+	'SE COMENTA EL SIGUIENTE CODIGO PARA QUE TODAS LAS TIENDAS APARESCAN.
+
+	' c=skmt.ExecQuery("select CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 group by CAT_CL_COLONIA order by CAT_CL_COLONIA asc")
+	c=skmt.ExecQuery("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO,CAT_CL_NUM_SERIEFISICO from kmt_info where  gestion = 0 and cat_cl_codigo <> 0 ORDER BY  CAST(CAT_CL_NUM_SERIEFISICO AS DECIMAL)")
+	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 = 10
+			label1.TextColor = Colors.Black
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 10
+			label2.TextColor = Colors.Black
+			ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NUM_SERIEFISICO") & " " & c.GetString("CAT_CL_NOMBRE"))
+		Next
+	End If
+	entro = "4"
+	' ESTE FUE EL FIN DEL CODIGO COMENTADO
+	   
+End Sub
+
+Sub ListView1_ItemClick (Position As Int, Value As Object)
+	If colonia = 0 Then
+		colonia = Value
+	End If
+	If entro = "2" Then
+		c2=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=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
+		skmt.ExecNonQuery("delete from CUENTAA")
+		skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+		StartActivity(fila)
+	End If
+End Sub
+
+Sub Activity_KeyPress (key As Int) As Boolean
+	' BACK key pressed
+	If key=KeyCodes.KEYCODE_BACK Then
+		' If entro = "3" Then
+		'entro = "2"
+		'B4XPage_Appear
+		'Return True
+		'Else If entro = "2" Then
+		'entro = "1"
+		'B4XPage_Appear
+		'Return True
+		'Else If entro = "1" Then
+	   
+		' I want to capture the key here so I return True
+			
+		StartActivity(seleccion)
+		Return False
+		'End If
+	End If
+	' Returning False signals the system to handle the key
+    
+End Sub
+
+Sub BUSCA_TextChanged (Old As String, New As String)
+	q_buscar = "%" & busca.Text & "%"
+	skmt.Initialize(ruta,"kmt.db", True)
+
+	c2=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 ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(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 = 10
+			label1.TextColor = Colors.White
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 10
+			label2.TextColor = Colors.White
+			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
+	'StartActivity(QR_MODULE)
+	Dim scan_width As Int
+	Dim scan_height As Int
+	scan_width = 400
+	scan_height = 400
+	sc.BeginScan("sc","CODIGO CLIENTE",scan_width,scan_height)
+	
+End Sub
+
+
+Sub sc_result(atype As String,Values As String)
+	'Log("Type : " & atype)
+	'Log("Value : " & Values)
+	CODIGO = Values
+
+	c2=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=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
+		skmt.ExecNonQuery("delete from CUENTAA")
+		skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(s.GetString("CAT_CL_CODIGO")))
+		s.Close
+		b_qr.Visible = False
+		StartActivity(fila)
+	Else
+		Msgbox("CODIGO " & CODIGO & " NO ENCONTRADO","AVISO")
+	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

B4A/C_Foto.bas

@@ -0,0 +1,184 @@
+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
+	'//Process Globals
+	Dim ruta As String
+	Dim g As GPS
+	Private frontCamera As Boolean = False
+	Dim quien_llamo As String
+	Dim foto_g () As Byte
+	Dim foto_g1 () As Byte
+	Dim foto_g2 () As Byte
+	Dim foto_g3 () As Byte
+	Dim foto_g4 () As Byte
+	'//Globals
+	Dim btnTakePicture As Button
+	Dim Panel1 As Panel
+	Dim c As Cursor
+	Dim cuenta As String
+	Dim lat_gps As String
+	Dim lon_gps As String
+	Private camEx As CameraExClass
+	Private i_foto As ImageView
+	Private b_guardar As Button
+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("foto")
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	ruta = File.DirInternal
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+
+Sub Camera1_Ready (Success As Boolean)
+	If Success Then
+		'	camEx.SetJpegQuality(90)
+		'	camEx.CommitParameters
+		Dim ps As CameraSize
+		ps.Width =640'480 '1280
+		ps.Height =480'360 '960
+		camEx.SetPictureSize(ps.Width, ps.Height)
+		camEx.CommitParameters
+		Try
+			camEx.StartPreview
+		Catch
+			camEx.Release
+			Subs.iniciaActividad("CHECKLIST_AUTO")
+		End Try
+		'	Dim ps As CameraSize
+		'	ps.Width =640 '1280
+		'	ps.Height =480 '960
+		'	camEx.SetPictureSize(ps.Width, ps.Height)
+		'	camEx.CommitParameters
+
+		'	Log(camEx.GetPreviewSize)
+		'Msgbox(camEx.GetPreviewSize,"aviso") 'ignore
+	Else
+		Subs.iniciaActividad("CHECKLIST_AUTO")
+		'ToastMessageShow("Cannot open camera.", True)
+	End If
+End Sub
+
+Sub Activity_Resume
+	i_foto.Visible = False
+'	If g.GPSEnabled=False Then
+'		ToastMessageShow("Habilitar el GPS", True)
+'		StartActivity(g.LocationSettingsIntent)
+'	Else
+'		g.Start(0,0)
+'	End If
+	InitializeCamera
+	btnTakePicture.Enabled = True
+	b_guardar.Enabled = False
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+	camEx.Release
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+'	lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+'	lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+'	'btnTakePicture.Enabled = True
+'	's.ExecNonQuery2("INSERT INTO  HIST_GPS (HGDATE,HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, lat_gps, lon_gps))
+End Sub
+
+Private Sub InitializeCamera
+	camEx.Initialize(Panel1, frontCamera, Me, "Camera1")
+	frontCamera = camEx.Front
+End Sub
+
+Sub Camera1_PictureTaken (Data() As Byte)
+	btnTakePicture.Enabled = True
+	Dim filename As String = "2.jpg"
+	Dim dir As String = File.DirRootExternal
+	camEx.SavePictureToFile(Data, dir, filename)
+	camEx.StartPreview 'restart preview
+	i_foto.Visible = True
+	i_foto.Bitmap = LoadBitmap(File.DirRootExternal, "2.jpg")
+	If B4XPages.MainPage.cliente.TOMAR_FOTO = 1 Then
+		Dim InputStream1 As InputStream
+		InputStream1 = File.OpenInput(File.DirRootExternal, "2.jpg")
+		Dim OutputStream1 As OutputStream
+		OutputStream1.InitializeToBytesArray(500)
+		File.Copy2(InputStream1, OutputStream1)
+		foto_g = OutputStream1.ToBytesArray
+	End If
+	b_guardar.Enabled = True
+	camEx.Release
+	InitializeCamera
+	btnTakePicture.Enabled = True
+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 b_guardar_Click
+	camEx.Release
+	'If quien_llamo = "1" Then
+	Try
+		If quien_llamo = "1" Then
+			File.Copy(File.DirRootExternal, "2.jpg",File.DirRootExternal, "FOTO1.jpg")
+			Subs.iniciaActividad("CHECKLIST_AUTO")
+		else if quien_llamo = "2" Then
+			File.Copy(File.DirRootExternal, "2.jpg",File.DirRootExternal, "FOTO2.jpg")
+			Subs.iniciaActividad("CHECKLIST_AUTO")
+		else if quien_llamo = "3" Then
+			File.Copy(File.DirRootExternal, "2.jpg",File.DirRootExternal, "FOTO3.jpg")
+			Subs.iniciaActividad("CHECKLIST_AUTO")
+		else if quien_llamo = "4" Then
+			File.Copy(File.DirRootExternal, "2.jpg",File.DirRootExternal, "FOTO4.jpg")
+			Subs.iniciaActividad("CHECKLIST_AUTO")
+		End If
+		If B4XPages.MainPage.cliente.TOMAR_FOTO = 1 Then
+			c=Starter.skmt.ExecQuery("select cuenta from cuentaa")
+			c.Position = 0
+			cuenta = c.GetString("CUENTA")
+			c.Close
+			Starter.skmt.ExecNonQuery2("INSERT INTO  HIST_FOTOS (HF_FOTO, HF_CUENTA, HF_IDENCUESTA) VALUES(?,?,?) ", Array As Object (foto_g,cuenta, B4XPages.MainPage.cliente.id_encuesta ))
+			Subs.iniciaActividad("fila")
+		End If
+	Catch
+		Msgbox("ERROR EN FOTO","") 'ignore
+		If B4XPages.MainPage.cliente.TOMAR_FOTO = 1 Then
+			Subs.iniciaActividad("fila")
+		Else
+			Subs.iniciaActividad("CHECKLIST_AUTO")
+		End If
+	End Try
+End Sub
+
+Sub btnTakePicture_Click
+	btnTakePicture.Enabled = False
+	Dim ps As CameraSize
+	ps.Width =640'480 '1280
+	ps.Height =480'360 '960
+	camEx.SetPictureSize(ps.Width, ps.Height)
+	camEx.CommitParameters
+	camEx.TakePicture
+End Sub

B4A/C_Historico.bas

@@ -0,0 +1,154 @@
+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
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+	Dim skmt As SQL
+	Dim g As GPS
+	Dim clie_id As String
+	Dim sDate,sTime As String
+	Dim usuario As String
+	
+	'These global variables will be redeclared each time the activity is created.
+	'These variables can only be accessed from this module.
+	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
+	Private B_RMI As Button
+End Sub
+
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	ruta = File.DirInternal
+	Root.LoadLayout("tarjeta")
+	B_RMI.Visible = True
+	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
+
+Sub B4XPage_Appear
+	If g.GPSEnabled=False Then
+		ToastMessageShow("Habilitar el GPS", True)
+		StartActivity(g.LocationSettingsIntent)
+	Else
+		g.Start(0,0)
+	End If
+
+	L_CANT.Text =""
+	L_TOTAL.Text=""
+	c=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=skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_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("HVD_PRONOMBRE"),"Cantidad #"& c.GetString("HVD_CANT")& " SubTotal $"& c.GetString("HVD_COSTO_TOT")& " FECHA " &c.GetString("HVD_FECHA") )
+		Next
+	End If
+	If Existe <> 0 Then
+		c=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
+	'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+		
+
+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
+	B_RMI.Visible = False
+	StartActivity(fila)
+	
+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
+		StartActivity(seleccion)
+		'Return True
+	End If
+	' Returning False signals the system to handle the key
+	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
+
+Sub B_RMI_Click
+	c=skmt.ExecQuery("select HR_CLIENTE,HR_PRONOMBRE,HR_CANT from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa)")
+	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("HR_PRONOMBRE"),"Cantidad #"& c.GetString("HR_CANT") )
+		Next
+	End If
+End Sub

B4A/C_Mapas.bas

@@ -0,0 +1,6 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@

B4A/C_NoVenta.bas

@@ -0,0 +1,94 @@
+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
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+	Dim g As GPS
+	Dim ruta As String
+	Dim skmt As SQL
+	Dim c As Cursor
+	'These global variables will be redeclared each time the activity is created.
+	'These variables can only be accessed from this module.
+	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 r_4 As RadioButton
+End Sub
+
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	Root.LoadLayout("nopago")
+	' valido donde escribo el archivo de la base de datos de kmt
+	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
+
+Sub B4XPage_Appear
+	e_comm.Text = ""
+	If g.GPSEnabled = False Then
+		ToastMessageShow("Habilitar el GPS", True)
+		StartActivity(g.LocationSettingsIntent)
+	Else
+		g.Start(0,0)
+	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
+	StartActivity(fila)
+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=skmt.ExecQuery("select CUENTA from cuentaa")
+	c.Position = 0
+	cuenta = c.GetString("CUENTA")
+	c=skmt.ExecQuery("select usuario from usuarioa")
+	c.Position = 0
+	usuario = c.GetString("USUARIO")
+	c=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
+			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
+	skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+	skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+	
+	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,Main.lat_gps,Main.lon_gps))
+	skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+	StartActivity(seleccion)
+End Sub

B4A/C_Nota.bas

@@ -0,0 +1,332 @@
+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
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+	Dim skmt As SQL
+	Dim g As GPS
+	Dim clie_id As String
+	Dim sDate,sTime As String
+	Dim usuario As String
+	'These global variables will be redeclared each time the activity is created.
+	'These variables can only be accessed from this module.
+	Dim c As Cursor
+	Dim d 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 TIPO As String
+End Sub
+
+Private Sub B4XPage_Created (Root1 As B4XView)
+	'Do not forget to load the layout file created with the visual designer. For example:
+	'Activity.LoadLayout("Layout1")
+	Root = Root1
+	g.Initialize("GPS")
+	ruta = File.DirInternal
+	Root.LoadLayout("tarjeta")
+	borra.Visible = True
+	Titulo.Text = "Pedido Actual"
+	' 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
+	
+	skmt.Initialize(ruta,"kmt.db", True)
+	skmt.ExecNonQuery("update pedido set pe_folio = 0 where pe_folio is null")
+	c=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=skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_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("PE_PRONOMBRE"),"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=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
+	'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+		
+			 
+	'ListView1.AddTwoLines(c.GetString("pr_cd_nombre"),c.GetString("pr_cd_colonia"))
+	'  Next
+	'End If
+
+End Sub
+
+Sub B4XPage_Appear
+	If g.GPSEnabled=False Then
+		ToastMessageShow("Habilitar el GPS", True)
+		StartActivity(g.LocationSettingsIntent)
+	Else
+		g.Start(0,0)
+	End If
+
+	L_CANT.Text =""
+	L_TOTAL.Text=""
+	skmt.ExecNonQuery("update pedido set pe_folio = 0 where pe_folio is null")
+
+	c=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=skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_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("PE_PRONOMBRE"),"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=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=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")
+		'If L_TOTAL.Text > 1000 And DESC = 0 Then
+	
+		'b_desc.Visible = True
+		'b_desc.Text = "- 5% DESC"
+		'DESCUENTO = "MENOS"
+		'Else if L_TOTAL.Text > 1000 Then
+		'b_desc.Visible = True
+		'b_desc.Text = "Cancela Desc"
+		'DESCUENTO =  "MAS"
+		'Else
+		b_desc.Visible = False
+		
+		'End If
+	End If
+	'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+		
+
+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
+	StartActivity(fila)
+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
+		StartActivity(seleccion)
+		'Return True
+	End If
+	' Returning False signals the system to handle the key
+	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"))
+		If result = DialogResponse.POSITIVE Then
+	
+			c=skmt.ExecQuery("select PE_PROID,PE_CANT, PE_TIPO 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
+			 
+					TIPO = c.GetString("PE_TIPO")
+					If c.GetString("PE_TIPO") = "VENTA" Then
+						skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
+					Else
+						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")))
+					End If
+				Next
+			End If
+	
+	
+			skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+			skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+			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")
+	End If
+End Sub
+
+Sub ListView1_ItemLongClick (Position As Int, Value As Object)
+	result =  Msgbox2("Seguro que desa borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+	If result = DialogResponse.POSITIVE Then
+		
+'		If TIPO = "VENTA" Then
+'			c=skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod2 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))
+'		Else
+'			c=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))
+'		End If
+		c=skmt.ExecQuery2("SELECT COUNT(*) as CUANTOS FROM PEDIDO WHERE pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa) and length(pe_cedis) > 3 ", Array As String(Value))
+		c.Position=0
+		If c.GetString("CUANTOS") > 0 Then
+			
+			d=skmt.ExecQuery2("select PE_PROID,PE_CANT, PE_TIPO FROM PEDIDO where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)  and length(pe_cedis) > 3", Array As String(Value))
+	  
+			If d.RowCount>0 Then
+				For i=0 To d.RowCount -1
+					d.Position=i
+					TIPO = d.GetString("PE_TIPO")
+					If d.GetString("PE_TIPO") = "VENTA" Then
+						skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(d.GetString("PE_CANT"),d.GetString("PE_PROID")))
+					Else
+						skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(d.GetString("PE_CANT"),d.GetString("PE_PROID")))
+					End If
+				Next
+			End If
+			d.Close
+
+			
+			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
+			d=skmt.ExecQuery2("select PE_PROID,PE_CANT, PE_TIPO FROM PEDIDO where pe_pronombre = ?  and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
+			d.Position = 0
+			
+			TIPO = d.GetString("PE_TIPO")
+			If d.GetString("PE_TIPO") = "VENTA" Then
+				skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(d.GetString("PE_CANT"),d.GetString("PE_PROID")))
+			Else
+				skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(d.GetString("PE_CANT"),d.GetString("PE_PROID")))
+			End If
+			d.Close
+			
+			
+			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=skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c=skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+	
+		c=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
+			skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+			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"), Main.lon_gps, Main.lat_gps))
+			skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		Else
+			skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+			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=skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c.Close
+		c=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"))
+		If result = DialogResponse.POSITIVE Then
+			skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT * .95, PE_DESC = 5 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
+			c=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
+			skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+			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"), Main.lon_gps, Main.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=skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c.Close
+		c=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"))
+		If result = DialogResponse.POSITIVE Then
+			skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT / .95, PE_DESC = 0 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
+			c=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
+			skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+			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"),Main.lon_gps, Main.lat_gps))
+			c.Close
+			B4XPage_Appear
+		End If
+	End If
+End Sub

B4A/C_NuevoCliente.bas

@@ -0,0 +1,6 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=11.5
+@EndOfDesignText@

B4A/C_Promos.bas

@@ -0,0 +1,430 @@
+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 p_prods As Panel
+	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
+	Dim prodsPedidoActual As String
+	Dim montoPedidoActual As String
+	Dim promosMap As Map
+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")
+	promosMap.Initialize
+	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
+'	LogColor(B4XPages.MainPage.productos.prodsMap, Colors.blue)
+	prodsIds.Initialize
+	prodsCants.Initialize
+	prodsPrecios.Initialize
+	prodsIds2.Initialize
+	prodsCants2.Initialize
+	prodsPrecios2.Initialize
+	Dim m As Map = Subs.traeTotalesClienteActual
+	prodsPedidoActual = m.Get("productos")
+	montoPedidoActual = m.Get("monto")
+	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)
+	Log("muestraPromo:"&promo)
+	Private thisLog As Boolean = False
+'	If thisLog Then Log(promo)
+	estaPromo = promo
+	esteCliente = cliente
+	Private mp As Map = Subs.traePromo(promo, cliente)
+	If thisLog Then LogColor(mp, Colors.blue)
+	Private prodsPromo As Map = mp.Get("productos") 'Los productos de la promoción.
+'	Private invDispPromo As Map = Subs.traemosInventarioDisponibleParaPromo(promo)
+	Private invDispPromo As Map = Subs.restaFijosPromo(mp)
+	If thisLog Then Log($"invDispPromo=${invDispPromo}"$)
+	If thisLog Then Log("Max promos por inv de prods FIJOS: " & Subs.revisaMaxPromosProdsFijosPorInventario(mp))
+	If thisLog Then 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")
+	Dim listaPreciosPV As List = mp.Get("prodsVariablesPrecios")
+'	Logcolor(listaPreciosPV, Colors.red)
+	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("Prods variables: " & 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.
+			If thisLog Then Log("Prod Variable: " & invDispPromo.get(p))
+			Private existenciaProdVariable As String = invDispPromo.get(p)
+'			c2.Position=i
+'			jpeg = c2.GetBlob("CAT_GP_IMG")
+'			ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+'			bmp.Initialize2(ins)
+			Private indicePV = pv.IndexOf(p)
+			Private estePrecio = listaPreciosPV.Get(indicePV)
+			Private thisProd As Map = prodsPromo.Get(p)
+			If thisLog Then Log(thisProd)
+			If existenciaProdVariable > 0 Then clv_prodsVariabes.Add(CreateListItem(Subs.traeProdNombre(p)&CRLF&"Hay " & invDispPromo.Get(p) & " $" & estePrecio, estePrecio, 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.Text = Text
+	l_prodX.Tag = inv
+	l_prodX.TextSize = 13
+	p_prods.Height = Height
+	l_prodX.Height = Height
+'	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(4)
+'	Log($"precio|stock:${laCant.tag}"$)
+	laCant.Text = $"$1.0{laCant.Text-1}"$
+	If laCant.Text < 0 Then laCant.Text = 0
+	
+'	Log(Regex.Split("\|", laCant.tag)(0))
+	Private precio As String = Regex.Split("\|", laCant.tag)(0)
+'	Private inv As String = Regex.Split("\|", laCant.tag)(1)
+	Private prodId As String = Regex.Split("\|", laCant.tag)(2)
+	Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":estaPromo)
+	Log(tmpMap)
+	promosMap.Put(prodId, tmpMap)
+	If laCant.Text = 0 Then promosMap.Remove(prodId)
+	LogColor(promosMap, Colors.Magenta)
+	cuentaProds
+'	l_total.Text = $"Total Compra: $$1.2{totalCompra}"$
+'	l_totProds.text = $"Total Productos: ${totalProds}"$
+End Sub
+
+Sub b_prodMas_Click
+'	LogColor($"prodmas clic - ${Starter.cp_running}"$,Colors.Magenta)
+	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(4)
+'		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
+'		Log(Regex.Split("\|", laCant.tag)(0))
+		Private precio As String = Regex.Split("\|", laCant.tag)(0)
+'		Private inv As String = Regex.Split("\|", laCant.tag)(1)
+		Private prodId As String = Regex.Split("\|", laCant.tag)(2)
+		Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":estaPromo)
+'		Log(tmpMap)
+		promosMap.Put(prodId, tmpMap)
+'		LogColor(promosMap, Colors.Magenta)
+	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 - ${Starter.cp_running}"$,Colors.Magenta)
+	cuentaProds
+'	Starter.cp_running = False
+End Sub
+
+Sub cuentaProds
+'	Log("=====================================================")
+'	Log($"Inicia cuentaProds - ${Starter.cp_running}"$)
+'	Starter.cp_running = True
+	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 prodsFijos = " & 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(4)
+'		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
+		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)
+'	Log($"Termina cuentaProds - ${Starter.cp_running}"$)
+End Sub
+
+Private Sub et_pCant_FocusChanged (HasFocus As Boolean)
+'	LogColor("Focus changed", Colors.Magenta)
+	cuentaProds
+'	Starter.cp_running = False
+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.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, Starter.tipov)
+	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.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, Starter.tipov)
+	Next
+	lv_prodsFijos.Clear
+	B4XPages.MainPage.bTerminarClicked = True
+	B4XPages.ShowPage("productos")
+	B4XPages.MainPage.productos.b_terminar1_Click
+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.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, Starter.tipov)
+	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.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, Starter.tipov)
+	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_Promos2.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_Subs.bas

@@ -0,0 +1,436 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=12.2
+@EndOfDesignText@
+Sub Class_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+'	Public GZip As GZipStrings 		'Usa la libreria CompressStrings
+'	Private su As StringUtils 		'Usa la libreria StringUtils
+	Private EventName As String 'ignore
+	Private CallBack As Object 'ignore
+	Dim phn As Phone
+	Dim devModel As String
+	Dim db, kmt, errorLog As SQL 'Requiere la libreria "SQL" 'ignore
+'	Dim wifi As MLwifi
+	Dim ssid As String  'ignore
+	Private subsLogs As Boolean = False
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize (vCallback As Object, vEventName As String) As Object
+	EventName = vEventName
+	CallBack = vCallback
+	Return Me
+End Sub
+
+'Inicializa la BD con "kmt.db" en File.DirInternal, si el archivo no existe, lo copia desde File.DirAssets.
+'Dispara el evento "dbOk" cuando termina.
+Sub dbInit As SQL
+	If File.Exists(File.DirInternal, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", File.DirInternal, "kmt.db")
+	db.Initialize(File.DirInternal,"kmt.db", True)
+	dbOk(True)
+	Return db
+End Sub
+
+Sub dbOk(Success As Boolean)
+	If SubExists(CallBack, EventName & "_dbOk") Then
+		CallSub2(CallBack, EventName & "_dbOk", Success)
+	End If
+End Sub
+
+'Pone el valor de phn.Model en la variable global "devModel"
+Sub getPhnId As String 'ignore
+	'Requiere la libreria "Phone"
+	devModel = phn.Model
+	If devModel.Length <= 3 Then 'Si phn.Model esta en blanco ...
+		Dim t As String = phn.GetSettings("android_id") 'Intentamos con "android_id"
+		devModel = t
+	End If
+	If devModel.Length >= 3 Then 'Si tenemos valor para phn.Model
+		File.WriteString(File.DirInternal, "phnId.txt", devModel) 'Sobreescribimos archivo phnId.txt with deviceId
+'		Log("Tenemos phnId: "&devModel&" "&File.DirInternal&"/phn.txt sobreescrito")
+	Else If devModel.Length < 3 Then ' Si no tenemos valor, lo leemos de phnId.txt
+		Dim s As String = File.ReadString(File.DirInternal, "phnId.txt")
+		devModel = s
+'		Log("Leemos id de "&File.DirInternal&"/phnId.txt")
+'		Log(devModel)
+	End If
+	Return devModel
+End Sub
+
+'Convierte una fecha al formato yyMMddHHmmss
+Sub fechaKMT(fecha As String) As String 'ignore
+'	Log(fecha)
+	Dim OrigFormat As String = DateTime.DateFormat  'save orig date format
+	DateTime.DateFormat="yyMMddHHmmss"
+	Dim nuevaFecha As String=DateTime.Date(fecha)
+	DateTime.DateFormat=OrigFormat  'return to orig date format
+'	Log(nuevaFecha)
+	Return nuevaFecha
+End Sub
+
+'Escribimos las coordenadas y fecha a un archivo de texto 
+Sub guardaInfoEnArchivo(coords As String) 'ignore
+	'	Cambiamos el formato de la hora
+	Dim OrigFormat As String=DateTime.DateFormat  'save orig date format
+	DateTime.DateFormat="MMM-dd HH:mm:ss"
+	Dim lastUpdate As String=DateTime.Date(DateTime.Now)
+	DateTime.DateFormat=OrigFormat  'return to orig date format
+
+	Dim ubic As String = coords&","&lastUpdate
+	Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "gps.txt", True)
+	Dim s As String = ubic & CRLF
+	Dim t() As Byte = s.GetBytes("UTF-8")
+	out.WriteBytes(t, 0, t.Length)
+	out.Close
+End Sub
+
+'Escribimos las coordenadas (latitud, longitud, fecha) y fecha a una BD
+Sub guardaInfoEnBD(coords As String) 'ignore
+	Log("Guardamos ubicacion en BD - "&coords)
+	Try
+		Dim latlon() As String = Regex.Split("\|", coords)
+		If latlon.Length < 2 Then latlon = Regex.Split(",", coords) 'Si son menos de 2, entonces estan separadas por comas y no por "|"
+		If subsLogs Then Log("LatLon="&latlon)
+		kmt.ExecNonQuery2("INSERT INTO RUTA_GPS(FECHA, LAT, LON) VALUES (?,?,?)", Array As Object (latlon(2),latlon(0),latlon(1)))
+	Catch
+		LogColor(LastException, Colors.red)
+	End Try
+End Sub
+
+'Limpiamos la tabla RUTA_GPS de la BD
+Sub deleteGPS_DB 'ignore
+	kmt.ExecNonQuery("delete from RUTA_GPS")
+	kmt.ExecNonQuery("vacuum;")
+	ToastMessageShow("Borramos BD Coords GPS", False)
+End Sub
+
+'Limpiamos la tabla errorLog de la BD
+Sub deleteErrorLog_DB 'ignore
+	errorLog.ExecNonQuery("delete from errores")
+	errorLog.ExecNonQuery("vacuum;")
+	ToastMessageShow("BD Errores Borrada", False)
+End Sub
+
+'Mandamos "coords" en un mensaje a "Sprvsr"
+'Sub mandamosLoc(coords As String) 'ignore
+''	Log("Iniciamos mandamosLoc "&coords)
+''	Log("locRequest="&Tracker.locRequest)
+'	guardaInfoEnBD(coords)'Escribimos coordenadas y fecha a una bd
+'	Dim t As String
+'	If Tracker.locRequest="Activa" Then
+'		If PushService.au = 1 Then
+'			t = "au" ' es una actualizacion
+'		Else
+'			t = "u" ' es una peticion
+'		End If
+'		Dim params As Map = CreateMap("topic":"Sprvsr", "coords":coords, "t":t, "b":PushService.battery, "mt":Main.montoActual)
+'		CallSub2(PushService, "mandaMensaje",params)
+'		Tracker.locRequest="Enviada"
+'		CallSubDelayed(Tracker,"CreateLocationRequest")
+'	End If
+'End Sub
+
+'Regresa la fecha y hora de hoy a las 00:00 en el formato "yyMMddHHMMSS"
+Sub fechaInicioHoy As String 'ignore
+	Dim OrigFormat As String = DateTime.DateFormat  'save orig date format
+	DateTime.DateFormat="yyMMdd"
+	Private h As String = DateTime.Date(DateTime.Now)&"000000"
+	DateTime.DateFormat=OrigFormat  'return to orig date format
+	Log("Hoy="&h)
+	Return h
+End Sub
+
+'Guardamos "texto" a la bitacora
+Sub log2DB(texto As String) 'ignore
+	LogColor(fechaKMT(DateTime.Now)&" - log2BD: '"&texto&"'", Colors.LightGray)
+	kmt.ExecNonQuery2("INSERT INTO bitacora(fecha, texto) VALUES (?,?)", Array As Object (fechaKMT(DateTime.now), texto))
+End Sub
+
+'Regresa verdadero si ya pasaron XX minutos de la fecha dada
+Sub masDeXXMins(hora As Int, mins As Int) As Boolean 'ignore
+	If (hora + mins * DateTime.TicksPerMinute) < DateTime.Now Then
+		Return True
+	Else
+		Return False
+	End If
+End Sub
+
+'Regresa verdadero si ya pasaron XX minutos de la fechaKMT dada
+Sub masDeXXMinsKMT(hora As String, mins As Int) As Boolean 'ignore
+	Try
+		'	LogColor($"Hora=${fechaKMT(fechaKMT2Ticks(hora) + mins * DateTime.TicksPerMinute)}, Mins=${mins}, Actual=${fechaKMT(DateTime.Now)}"$,Colors.red)
+		If fechaKMT2Ticks(hora) + mins * DateTime.TicksPerMinute < DateTime.Now Then
+			'		Log("+++ +++ "&fechaKMT(fechaKMT2Ticks(hora) + mins * DateTime.TicksPerMinute) & " < " & fechaKMT(DateTime.Now))
+			Return True
+		Else
+			'		Log("+++ +++ "&fechaKMT(fechaKMT2Ticks(hora) + mins * DateTime.TicksPerMinute) & " > " & fechaKMT(DateTime.Now))
+			Return False
+		End If
+	Catch
+		Log(LastException)
+	End Try
+End Sub
+
+'Limpiamos la tabla "bitacora" de la BD
+Sub borraLogDB 'ignore
+	LogColor("Borramos BD de log", Colors.Magenta)
+	kmt.ExecNonQuery("delete from bitacora")
+	kmt.ExecNonQuery("vacuum;")
+End Sub
+
+'Monitoreamos los servicios para ver si estan activos (No pausados), y si no, los reniciamos
+'Sub Monitor 'ignore
+'	Private monitorStatus As Boolean = True
+'	LogColor("Corriendo Subs.Monitor", Colors.RGB(161,150,0))
+'	If IsPaused(Tracker) Then
+'		log2DB("Reiniciando 'Tracker Pausado' desde Subs.Monitor")
+'		StartService(Tracker)
+'		monitorStatus = False
+'	Else
+'		CallSubDelayed(Tracker, "revisaFLP")
+'	End If
+'	If IsPaused(PushService) Then
+'		log2DB("Reiniciando 'PushService Pausado' desde Subs.Monitor")
+'		StartService(PushService)
+'		monitorStatus = False
+'	Else
+'		revisaPushService
+'	End If
+'	If monitorStatus Then LogColor(" +++ +++ Servicios Activos", Colors.Green)
+'End Sub
+
+'Convierte una fecha en formato YYMMDDHHMMSS a Ticks
+Sub fechaKMT2Ticks(fKMT As String) As Long 'ignore
+	Try
+		If fKMT.Length = 12 Then
+			Private parteFecha As String = fKMT.SubString2(0,6)
+			Private parteHora As String = fKMT.SubString(6)
+			Private OrigFormat As String = DateTime.DateFormat  'save original date format
+			DateTime.DateFormat="yymmdd"
+			DateTime.TimeFormat="HHmmss"
+			Private ticks As Long = DateTime.DateTimeParse(parteFecha,parteHora)
+			DateTime.DateFormat=OrigFormat  'return to original date format
+			Return ticks
+		Else
+			Log("Formato de fecha incorrecto, debe de ser 'YYMMDDHHMMSS', no '"&fKMT&"' largo="&fKMT.Length)
+			Return 0
+		End If
+	Catch
+		Log(LastException)
+		LogColor($"Fecha dada: ${fKMT}, Parte Fecha: ${parteFecha}, Parte Hora: ${parteHora}"$, Colors.Red)
+		Return 0
+	End Try
+End Sub
+
+Sub InstallAPK(dir As String, apk As String) 'ignore
+	If File.Exists(dir, apk) Then
+		Dim i As Intent
+		i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(dir, apk))
+		i.SetType("application/vnd.android.package-archive")
+		StartActivity(i)
+	End If
+End Sub
+
+'Copia la base de datos del almacenamiento interno al externo en el directorio kmts.
+Sub copiaDB(result As Boolean) 'ignore
+	ToastMessageShow("copiaDB", False)
+	If result Then
+		Dim p As String
+		If File.ExternalWritable Then
+			p = File.DirRootExternal
+'			Log("Externo")
+		Else
+			p = File.DirInternal
+'			Log("Interno")
+		End If
+		Dim theDir As String
+		Try
+			File.MakeDir(File.DirRootExternal,"kmts")
+			theDir = "/kmts"
+		Catch
+			theDir = ""
+		End Try
+		Try
+			File.Copy(File.DirInternal,"kmt.db",File.DirRootExternal&theDir,"cedex_kmt.db")
+			File.Copy(File.DirInternal,"errorLog.db",File.DirRootExternal&theDir,"cedex_errorLog.db")
+			ToastMessageShow("BD copiada!", False)
+		Catch
+			ToastMessageShow("No se pudo hacer la copia: "&LastException, True)
+		End Try
+		Log("rootExternal="&p)
+		Log("File.DirInternal="&File.DirInternal)
+		Log("File.DirRootExternal="&File.DirRootExternal)
+	Else
+		ToastMessageShow("Sin permisos", False)
+	End If
+End Sub
+
+'Hace visible y trae al frente el panel con los parametros "Top" y "Left" dados.
+Sub panelVisible(panel As Panel, top As Int, left As Int) 'ignore
+	panel.BringToFront
+	panel.Visible = True
+	panel.Top = top
+	panel.Left = left
+End Sub
+
+'Centra una etiqueta dentro de un elemento superior.
+Sub centraEtiqueta(elemento As Label, anchoElementoSuperior As Int) 'ignore
+	elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
+End Sub
+
+'Centra un panel horizontalmente dentro de un elemento superior.
+Sub centraPanel(elemento As Panel, anchoElementoSuperior As Int) 'ignore
+	elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
+End Sub
+
+'Centra un panel verticalmente dentro de un elemento superior.
+Sub centraPanelV(elemento As Panel, altoElementoSuperior As Int) 'ignore
+	elemento.Top = Round(altoElementoSuperior/2)-(elemento.Height/2)
+End Sub
+
+'Centra una barra de progreso dentro de un elemento superior.
+Sub centraProgressBar(elemento As ProgressBar, anchoElementoSuperior As Int) 'ignore
+	elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
+End Sub
+
+'Regresa el usuario de la tabla USUARIOA si es que existe, si no existe, regresa "SinUsuario".
+Sub buscaDBUsuario As String 'ignore
+	Private c As Cursor
+	Private usuario As String = "SinUsuario"
+	c=kmt.ExecQuery("select USUARIO from usuarioa")
+	c.Position=0
+	If c.RowCount > 0 Then usuario = c.GetString("USUARIO")
+	Return usuario
+End Sub
+
+'Regresa la fecha en el formato "MM/dd/yyyy"
+Sub traeFecha As String 'ignore
+	DateTime.DateFormat = "MM/dd/yyyy"
+	Private sDate As String = DateTime.Date(DateTime.Now)
+	Private sTime As String = DateTime.Time(DateTime.Now)
+	Return sDate & sTime
+End Sub
+
+'Guarda el nombre y version de la app en CAT_VARIABLES.
+Sub guardaAppInfo(skmt As SQL) 'ignore
+	skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
+	skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
+	skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
+End Sub
+
+'Muestra en el Log los campos y valores que regresan en el JobDone.
+Sub logJobDoneResultados(resultado As DBResult) 'ignore
+	For Each records() As Object In resultado.Rows
+		LogColor($"====== ${resultado.Tag} - REGISTROS = ${resultado.Rows.Size}"$, Colors.RGB(215,37,0))
+		For Each k As String In resultado.Columns.Keys
+			LogColor(k & " = " & records(resultado.Columns.Get(k)), Colors.RGB(215,37,0))
+		Next
+	Next
+End Sub
+
+'Regresa la base de datos especificada ya inicializada.
+Sub inicializaBD(ruta As String, BDName As String) As SQL
+	Dim skmt As SQL
+	If File.Exists(ruta, BDName) = False Then
+		File.Copy(File.DirAssets, BDName, ruta, BDName)
+		LogColor($"Copiamos ${BDName} de ${File.DirAssets} a ${ruta}"$,Colors.Green)
+	End If
+	skmt.Initialize(ruta, BDName, True)
+	Return skmt
+End Sub
+
+'Agrega una columna a la tabla especificada.
+'Hay que indicar el "tipo"  de la columna (TEXT, INTEGER, ETC)
+'Ej. agregaColumna("TABLA", "COLUMNA", "TIPO")
+Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore
+	Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna en la tabla
+		Private c As Cursor = Starter.db.ExecQuery($"SELECT COUNT(*) AS fCol FROM pragma_table_info('${tabla}') WHERE name='${columna}'"$)
+		c.Position = 0
+		If c.GetString("fCol") = 0 Then 'Si no esta la columna la agregamos
+			Starter.db.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
+			Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
+		End If
+	Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
+		Try
+			Starter.db.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
+			Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$)
+		Catch
+			Log(LastException)
+		End Try
+	End Try
+End Sub
+
+'Regresa el DBReqServer desde CAT_VARIABLES o "N/A" si no existe.
+Sub traeDBReqServerDeBD As String 'ignore
+	Dim srvr As String = "N/A"
+	Dim rs As ResultSet = Starter.db.ExecQuery("select valor from cat_variables where nombre = 'servidor'")
+	If rs.RowCount > 0 Then
+		rs.NextRow
+		srvr = rs.GetString("valor")
+	End If
+	Return srvr
+End Sub
+
+'Regresa el valor de intervalo desde CAT_VARIABLES o "30" si no existe.
+Sub traeIntervaloDeBD As String 'ignore
+	Dim intrvl As String = "30"
+	Dim rs As ResultSet = Starter.db.ExecQuery("select valor from cat_variables where nombre = 'intervalo'")
+	If rs.RowCount > 0 Then
+		rs.NextRow
+		intrvl = rs.GetString("valor")
+	End If
+	Return intrvl
+End Sub
+
+'Regresa el valor timeout desde CAT_VARIABLES o "9000" si no existe.
+Sub traeTimeoutDeBD As String 'ignore
+	Dim tmout As String = "9000"
+	Dim rs As ResultSet = Starter.db.ExecQuery("select valor from cat_variables where nombre = 'timeout'")
+	If rs.RowCount > 0 Then
+		rs.NextRow
+		tmout = rs.GetString("valor")
+	End If
+	Return tmout
+End Sub
+
+'Crea una notificación con el "body" dado y regresa el objeto.
+Sub CreateNotification (Body As String) As Notification
+	Dim notification As Notification
+	notification.Initialize2(notification.IMPORTANCE_LOW)
+	notification.Icon = "icon"
+	notification.SetInfo("Tester", Body, Main)
+	Return notification
+End Sub
+
+'Genera una notificacion con importancia alta
+Sub notiHigh(title As String, body As String, id As String, activity As Object) 'ignore
+	activity = Main
+	Private notif As Notification
+	notif.Initialize2(notif.IMPORTANCE_HIGH)
+	notif.Icon = "icon"
+	notif.Vibrate = False
+	notif.Sound = False
+	notif.AutoCancel = True
+'	If logger Then Log("notiHigh: "&title)
+	notif.SetInfo(title, body, activity)
+'	Log("notiHigh SetInfo")
+	notif.Notify(id)
+End Sub
+
+'Regresa el objeto de una notificacion con importancia baja
+Sub notiLowReturn(title As String, Body As String, id As Int) As Notification 'ignore
+	Private notification As Notification
+	notification.Initialize2(notification.IMPORTANCE_LOW)
+'	Log("notiLowReturn: "&title)
+	notification.Icon = "icon"
+	notification.Sound = False
+	notification.Vibrate = False
+	notification.SetInfo(title, Body, Main)
+	notification.Notify(id)
+'	Log("notiLowReturn SetInfo")
+	Return notification
+End Sub

B4A/C_TicketsDia.bas

@@ -0,0 +1,149 @@
+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
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+	Dim skmt As SQL
+	'These global variables will be redeclared each time the activity is created.
+	'These variables can only be accessed from this module.
+	Dim c As Cursor
+	Dim ruta As String
+	Dim ListView1 As ListView
+	Dim b_noventa As Button
+	Dim nombre_boton As String
+End Sub
+
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	Root.LoadLayout("buscar")
+	ruta = File.DirInternal
+
+	' 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
+	
+	skmt.Initialize(ruta,"kmt.db", True)
+	   
+	c=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
+	'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+		
+			 
+	'ListView1.AddTwoLines(c.GetString("pr_cd_nombre"),c.GetString("pr_cd_colonia"))
+	'  Next
+	'End If
+
+End Sub
+
+Sub B4XPage_Appear
+	nombre_boton = "NOVENTA"
+	c=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
+	StartActivity(fila)
+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
+		StartActivity(seleccion)
+		'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)
+	skmt.ExecNonQuery("delete from CUENTAA")
+	skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+	StartActivity(fila)
+End Sub
+
+Sub b_noventa_Click
+	If nombre_boton = "NOVENTA" Then
+		nombre_boton = "VENTA"
+		b_noventa.Text ="VENTA"
+
+		c=skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM 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"),"Motivo #"& c.GetString("NV_MOTIVO")& " Comentario $"& c.GetString("NV_COMM"))
+			Next
+		End If
+	Else
+		nombre_boton = "NOVENTA"
+		b_noventa.Text ="NO VENTA"
+		c=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

B4A/C_updateAvailable.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/CameraExClass.bas

@@ -0,0 +1,294 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=6.8
+@EndOfDesignText@
+
+'Class module
+'version 1.20
+'See this page for the list of constants:
+'http://developer.android.com/intl/fr/reference/android/hardware/Camera.Parameters.html
+'Note that you should use the constant values instead of the names.
+Sub Class_Globals
+	Private nativeCam As Object
+	Private cam As Camera
+	Private r As Reflector
+	Private target As Object
+	Private event As String
+	Public Front As Boolean
+	Type CameraInfoAndId (CameraInfo As Object, Id As Int)
+	Type CameraSize (Width As Int, Height As Int)
+	Private parameters As Object
+End Sub
+
+Public Sub Initialize (Panel1 As Panel, FrontCamera As Boolean, TargetModule As Object, EventName As String)
+	target = TargetModule
+	event = EventName
+	Front = FrontCamera
+	Dim id As Int
+	id = FindCamera(Front).id
+	If id = -1 Then
+		Front = Not(Front) 'try different camera
+		id = FindCamera(Front).id
+		If id = -1 Then
+			ToastMessageShow("No camera found.", True)
+			Return
+		End If
+	End If
+	cam.Initialize2(Panel1, "camera", id)
+End Sub
+
+Private Sub FindCamera (frontCamera As Boolean) As CameraInfoAndId
+	Dim ci As CameraInfoAndId
+	Dim cameraInfo As Object
+	Dim cameraValue As Int
+	If frontCamera Then cameraValue = 1 Else cameraValue = 0
+	cameraInfo = r.CreateObject("android.hardware.Camera$CameraInfo")
+	Dim numberOfCameras As Int = r.RunStaticMethod("android.hardware.Camera", "getNumberOfCameras", Null, Null)
+	For i = 0 To numberOfCameras - 1
+		r.RunStaticMethod("android.hardware.Camera", "getCameraInfo", Array As Object(i, cameraInfo), _
+			Array As String("java.lang.int", "android.hardware.Camera$CameraInfo"))
+		r.target = cameraInfo
+		If r.GetField("facing") = cameraValue Then 'ignore
+			ci.cameraInfo = r.target
+			ci.Id = i
+			Return ci
+		End If
+	Next
+	ci.id = -1
+	Return ci
+End Sub
+
+Private Sub SetDisplayOrientation
+	r.target = r.GetActivity
+	r.target = r.RunMethod("getWindowManager")
+	r.target = r.RunMethod("getDefaultDisplay")
+	r.target = r.RunMethod("getRotation")
+	Dim previewResult, result, degrees As Int = r.target * 90
+	Dim ci As CameraInfoAndId = FindCamera(Front)
+	r.target = ci.CameraInfo
+	Dim orientation As Int = r.GetField("orientation")
+	If Front Then
+		previewResult = (orientation + degrees) Mod 360
+		result = previewResult
+		previewResult = (360 - previewResult) Mod 360
+	Else
+		previewResult = (orientation - degrees + 360) Mod 360
+		result = previewResult
+'		Log(previewResult)
+	End If
+	r.target = nativeCam
+	r.RunMethod2("setDisplayOrientation", previewResult, "java.lang.int")
+	r.target = parameters
+	r.RunMethod2("setRotation", result, "java.lang.int")
+	CommitParameters
+End Sub
+
+Private Sub Camera_Ready (Success As Boolean)
+	If Success Then
+		r.target = cam
+		nativeCam = r.GetField("camera")
+		r.target = nativeCam
+		parameters = r.RunMethod("getParameters")
+		SetDisplayOrientation
+	Else
+		Log("success = false, " & LastException)
+	End If
+	CallSub2(target, event & "_ready", Success)
+End Sub
+
+Sub Camera_Preview (Data() As Byte)
+	If SubExists(target, event & "_preview") Then
+		CallSub2(target, event & "_preview", Data)
+	End If
+End Sub
+
+Public Sub TakePicture
+	cam.TakePicture
+End Sub
+
+Private Sub Camera_PictureTaken (Data() As Byte)
+	CallSub2(target, event & "_PictureTaken", Data)
+End Sub
+
+Public Sub StartPreview
+	cam.StartPreview
+End Sub
+
+Public Sub StopPreview
+	cam.StopPreview
+End Sub
+
+Public Sub Release
+	cam.Release
+End Sub
+
+'Saves the data received from PictureTaken event
+Public Sub SavePictureToFile(Data() As Byte, Dir As String, FileName As String)
+	Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
+	out.WriteBytes(Data, 0, Data.Length)
+	out.Close
+End Sub
+
+Public Sub SetParameter(Key As String, Value As String)
+	r.target = parameters
+	r.RunMethod3("set", Key, "java.lang.String", Value, "java.lang.String")
+End Sub
+
+Public Sub GetParameter(Key As String) As String
+	r.target = parameters
+	Return r.RunMethod2("get", Key, "java.lang.String")
+End Sub
+
+Public Sub CommitParameters
+	Try
+		r.target = nativeCam
+		r.RunMethod4("setParameters", Array As Object(parameters), Array As String("android.hardware.Camera$Parameters"))
+	Catch
+		ToastMessageShow("Error setting parameters.", True)
+		Log(LastException)
+	End Try
+End Sub
+
+Public Sub GetColorEffect As String
+	Return GetParameter("effect")
+End Sub
+
+Public Sub SetColorEffect(Effect As String)
+	SetParameter("effect", Effect)
+End Sub
+
+Public Sub GetSupportedPicturesSizes As CameraSize()
+	r.target = parameters
+	Dim list1 As List = r.RunMethod("getSupportedPictureSizes")
+	Dim cs(list1.Size) As CameraSize
+	For i = 0 To list1.Size - 1
+		r.target = list1.Get(i)
+		cs(i).Width = r.GetField("width")
+		cs(i).Height = r.GetField("height")
+	Next
+	Return cs
+End Sub
+
+Public Sub SetPictureSize(Width As Int, Height As Int)
+	r.target = parameters
+	r.RunMethod3("setPictureSize", Width, "java.lang.int", Height, "java.lang.int")
+End Sub
+
+Public Sub SetJpegQuality(Quality As Int)
+	r.target = parameters
+	r.RunMethod2("setJpegQuality", Quality, "java.lang.int")
+End Sub
+
+Public Sub SetFlashMode(Mode As String)
+	r.target = parameters
+	r.RunMethod2("setFlashMode", Mode, "java.lang.String")
+End Sub
+
+Public Sub GetFlashMode As String
+	r.target = parameters
+	Return r.RunMethod("getFlashMode")
+End Sub
+
+Public Sub GetSupportedFlashModes As List
+	r.target = parameters
+	Return r.RunMethod("getSupportedFlashModes")
+End Sub
+
+Public Sub GetSupportedColorEffects As List
+	r.target = parameters
+	Return r.RunMethod("getSupportedColorEffects")
+End Sub
+
+Public Sub GetPreviewSize As CameraSize
+	r.target = parameters
+	r.target = r.RunMethod("getPreviewSize")
+	Dim cs As CameraSize
+	cs.Width = r.GetField("width")
+	cs.Height = r.GetField("height")
+	Return cs
+End Sub
+
+Public Sub GetPictureSize As CameraSize
+	r.target = parameters
+	r.target = r.RunMethod("getPictureSize")
+	Dim cs As CameraSize
+	cs.Width = r.GetField("width")
+	cs.Height = r.GetField("height")
+	Return cs
+End Sub
+
+'Converts a preview image formatted in YUV format to JPEG.
+'Note that you should not save every preview image as it will slow down the whole process.
+Public Sub PreviewImageToJpeg(data() As Byte, quality As Int) As Byte()
+	Dim size, previewFormat As Object
+	r.target = parameters
+	size = r.RunMethod("getPreviewSize")
+	previewFormat = r.RunMethod("getPreviewFormat")
+	r.target = size
+	Dim width = r.GetField("width"), height = r.GetField("height") As Int
+	Dim yuvImage As Object = r.CreateObject2("android.graphics.YuvImage", _
+		Array As Object(data, previewFormat, width, height, Null), _
+		Array As String("[B", "java.lang.int", "java.lang.int", "java.lang.int", "[I"))
+	r.target = yuvImage
+	Dim rect1 As Rect
+	rect1.Initialize(0, 0, r.RunMethod("getWidth"), r.RunMethod("getHeight"))
+	Dim out As OutputStream
+	out.InitializeToBytesArray(100)
+	r.RunMethod4("compressToJpeg", Array As Object(rect1, quality, out), _
+		Array As String("android.graphics.Rect", "java.lang.int", "java.io.OutputStream")) 
+	Return out.ToBytesArray
+End Sub
+
+Public Sub GetSupportedFocusModes As List
+	r.target = parameters
+	Return r.RunMethod("getSupportedFocusModes")
+End Sub
+
+Public Sub SetContinuousAutoFocus
+	Dim modes As List = GetSupportedFocusModes
+	If modes.IndexOf("continuous-picture") > -1 Then
+		SetFocusMode("continuous-picture")
+	Else If modes.IndexOf("continuous-video") > -1 Then
+		SetFocusMode("continuous-video")
+	Else
+		Log("Continuous focus mode is not available")
+	End If
+End Sub
+
+Public Sub SetFocusMode(Mode As String)
+	r.target = parameters
+	r.RunMethod2("setFocusMode", Mode, "java.lang.String")
+End Sub
+
+Public Sub GetFocusDistances As Float()
+	Dim F(3) As Float
+	r.target = parameters
+	r.RunMethod4("getFocusDistances", Array As Object(F), Array As String("[F"))
+	Return F
+End Sub
+
+'This method should only be called if you need to immediately release the camera.
+'For example if you need to start another application that depends on the camera.
+Public Sub CloseNow
+	cam.Release
+	r.target = cam
+	r.RunMethod2("releaseCameras", True, "java.lang.boolean")
+End Sub
+
+'Calls AutoFocus and then takes the picture if focus was successfull.
+Public Sub FocusAndTakePicture
+	cam.AutoFocus
+End Sub
+
+Private Sub Camera_FocusDone (Success As Boolean)
+	If Success Then
+		TakePicture
+	Else
+		Log("AutoFocus error.")
+	End If
+End Sub
+
+
+

B4A/DBRequestManager.bas

@@ -0,0 +1,270 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=6.8
+@EndOfDesignText@
+''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 - 211109
+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  'ignore
+	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 - 211109
+	jobTagAnterior = Job.Tag  'Mod por CHV - 211109
+	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))'Comentado por CHV - 211112
+	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
+
+ 

B4A/DownloadService.bas

@@ -0,0 +1,114 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Service
+Version=5.5
+@EndOfDesignText@
+#Region  Service Attributes 
+	#StartAtBoot: False
+#End Region
+
+Sub Process_Globals
+	Private jobs As Map
+	Private timer1 As Timer
+	Type DownloadData (url As String, Target As Object, EventName As String)
+	Type JobTag (Data As DownloadData,  _
+		CountingStream As CountingOutputStream, Total As Long)
+	Private pw As PhoneWakeState
+End Sub
+Sub Service_Create
+	jobs.Initialize
+	timer1.Initialize("timer1", 1000)
+End Sub
+
+Sub Service_Start (StartingIntent As Intent)
+
+End Sub
+
+Sub Service_Destroy
+
+End Sub
+
+Private Sub StartTimer (Target As Object)
+	Dim n As Notification
+	n.Initialize2(n.IMPORTANCE_LOW)
+	n.Icon = "icon"
+	n.Vibrate = False
+	n.Sound = False
+	n.Light = False
+	n.SetInfo("Downloading file...", "", Target)
+	Service.StartForeground(1, n)
+	timer1.Enabled = True
+	pw.PartialLock
+End Sub
+
+Private Sub EndTimer 'ignore
+	Service.StopForeground(1)
+	timer1.Enabled = False
+	pw.ReleasePartialLock
+End Sub
+
+Public Sub StartDownload(data As DownloadData)
+	If jobs.ContainsKey(data.url) Then
+		Log("Ignoring duplicate request.")
+		Return
+	End If
+	Dim J As HttpJob
+	J.Initialize(data.url, Me)
+	Log(J)
+	Dim tag As JobTag
+	tag.Initialize
+	tag.data = data
+	Log(tag)
+	J.tag = tag
+	jobs.Put(data.url, J)
+	Log(jobs)
+	J.Download(data.url)
+	If timer1.Enabled = False Then StartTimer(data.Target)
+End Sub
+
+Public Sub CancelDownload(url As String)
+	If jobs.ContainsKey(url) = False Then
+		Log("Ignoring cancel request.")
+		Return
+	End If
+	Dim job As HttpJob = jobs.Get(url)
+	Dim jt As JobTag = job.Tag
+	If jt.CountingStream.IsInitialized Then
+		jt.CountingStream.Close
+	Else
+		jt.Data.url = ""
+	End If
+End Sub
+
+Sub timer1_tick
+	For Each job As HttpJob In jobs.Values
+		Dim jt As JobTag = job.Tag
+		If jt.CountingStream.IsInitialized Then
+			CallSub3(jt.Data.Target, jt.Data.EventName & "_Progress", _
+				jt.CountingStream.Count, jt.Total)
+		End If
+	Next
+End Sub
+
+Sub JobDone(job As HttpJob)
+'	Log("1")
+'	jobs.Remove(job.JobName)
+'	Dim jt As JobTag = job.Tag
+'	Log(jt)
+'	If jobs.Size = 0 Then EndTimer
+'	Log(jobs.Size)
+'	If job.Success Then
+'		Log("5-"&jt.Data.Target&"-"&jt.Data.EventName&"-"&jt.CountingStream.Count&"-"&jt.Total)
+'		CallSubDelayed3(jt.Data.Target, jt.Data.EventName & "_Progress", jt.CountingStream.Count, jt.Total)
+'		Log("6")
+'		CallSubDelayed2(jt.Data.Target, jt.Data.EventName & "_Complete", job)
+'		Log("7")
+'	Else
+'		Log(job.ErrorMessage)
+'		Log("8")
+'		CallSubDelayed2(jt.Data.Target, jt.Data.EventName & "_Complete", job)
+'		Log("9")
+'	End If
+'	Log("10")
+End Sub

B4A/Durakelo.b4a.meta

@@ -0,0 +1,81 @@
+ModuleBookmarks0=
+ModuleBookmarks1=
+ModuleBookmarks10=
+ModuleBookmarks11=
+ModuleBookmarks12=
+ModuleBookmarks13=
+ModuleBookmarks14=
+ModuleBookmarks15=
+ModuleBookmarks16=
+ModuleBookmarks17=
+ModuleBookmarks18=
+ModuleBookmarks19=
+ModuleBookmarks2=
+ModuleBookmarks20=
+ModuleBookmarks21=
+ModuleBookmarks22=
+ModuleBookmarks23=
+ModuleBookmarks24=
+ModuleBookmarks25=
+ModuleBookmarks3=
+ModuleBookmarks4=
+ModuleBookmarks5=
+ModuleBookmarks6=
+ModuleBookmarks7=
+ModuleBookmarks8=
+ModuleBookmarks9=
+ModuleBreakpoints0=
+ModuleBreakpoints1=
+ModuleBreakpoints10=
+ModuleBreakpoints11=
+ModuleBreakpoints12=
+ModuleBreakpoints13=
+ModuleBreakpoints14=
+ModuleBreakpoints15=
+ModuleBreakpoints16=
+ModuleBreakpoints17=
+ModuleBreakpoints18=
+ModuleBreakpoints19=
+ModuleBreakpoints2=
+ModuleBreakpoints20=
+ModuleBreakpoints21=
+ModuleBreakpoints22=
+ModuleBreakpoints23=
+ModuleBreakpoints24=
+ModuleBreakpoints25=
+ModuleBreakpoints3=
+ModuleBreakpoints4=
+ModuleBreakpoints5=
+ModuleBreakpoints6=
+ModuleBreakpoints7=
+ModuleBreakpoints8=
+ModuleBreakpoints9=
+ModuleClosedNodes0=
+ModuleClosedNodes1=
+ModuleClosedNodes10=1,4
+ModuleClosedNodes11=
+ModuleClosedNodes12=
+ModuleClosedNodes13=2
+ModuleClosedNodes14=
+ModuleClosedNodes15=
+ModuleClosedNodes16=
+ModuleClosedNodes17=
+ModuleClosedNodes18=
+ModuleClosedNodes19=
+ModuleClosedNodes2=1,2,4,28,29,30,31,32,33
+ModuleClosedNodes20=
+ModuleClosedNodes21=
+ModuleClosedNodes22=
+ModuleClosedNodes23=
+ModuleClosedNodes24=
+ModuleClosedNodes25=
+ModuleClosedNodes3=1,3
+ModuleClosedNodes4=1,4,5,7,8,9
+ModuleClosedNodes5=
+ModuleClosedNodes6=1,2,3
+ModuleClosedNodes7=2
+ModuleClosedNodes8=
+ModuleClosedNodes9=1,2
+NavigationStack=C_Nota,b_desc_Click,322,0,C_Principal,B4XPage_Appear,467,0,C_Principal,JobDone,1646,0,C_Principal,e_ruta_EnterPressed,2039,0,C_Principal,B_OK_PAS_Click,2185,0,C_Productos,Activity_KeyPress,236,0,C_Clientes,Activity_KeyPress,112,0,Main,Activity_Resume,46,0,Main,Activity_KeyPress,41,0,B4XMainPage,Class_Globals,35,0,C_Promos,b_continuar_Click,423,0
+SelectedBuild=0
+VisibleModules=1,9,2,6,10,3,11