- VERSION 5.04.17

- Se agregó que se descargue de CAT_GUNAPROD la columna CAT_GP_PROMOCION, que tiene la informacion de si el producto solo aparece en promociones y NO en el catalogo de productos.
- Se cambio el valor de la columna CAT_VE_VERSION de CAT_VERSION, para que refleje el número de la version "minima" permitida para la aplicación.
- Se agregó la funcion Subs.comparaVersiones que sirve para comparar la version minima contra la version actual.
- Se agregó codigo en B4X_Appear para que traiga la version minima desde CAT_VERSION.
- Se modifco el query "select_version_KELL" en el config.properties para que regrese la version y la columna "FORZAR", que representa si es necesario forzar la actualizacion de la aplicacion o no (todavia no hay codigo para forzar la actualizacion o detener la aplicación.)

B4A/B4XMainPage.bas

@@ -157,6 +157,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Starter.skmt.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.skmt.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)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDOS_DOE_ENTREGA (PC_CLIENTE TEXT, PC_ENTREGA TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_TRADE_SPENDING_SEMANAL (HIST_TSS_RUTA TEXT, HIST_TSS_IDALMACEN TEXT, HIST_TSS_TIPO TEXT, HIST_TSS_SEMANA1 TEXT, HIST_TSS_SEMANA1_ACUM TEXT, HIST_TSS_SEMANA2 TEXT, HIST_TSS_SEMANA2_ACUM TEXT, HIST_TSS_SEMANA3 TEXT, HIST_TSS_SEMANA3_ACUM TEXT, HIST_TSS_SEMANA4 TEXT, HIST_TSS_SEMANA4_ACUM TEXT, HIST_TSS_SEMANA5 TEXT, HIST_TSS_SEMANA5_ACUM TEXT, HIST_TSS_SEMANA6 TEXT, HIST_TSS_SEMANA6_ACUM TEXT, HIST_TSS_GRUPO TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TRADE_SPENDING (MONTO_SEMANA TEXT, ACUMULADO TEXT)")
 	''' FIN DOE
 	kh.agregaColumna(Starter.skmt, "kmt_info", "IMPRESION", "INTEGER")
 	kh.agregaColumna(Starter.skmt, "USUARIOA", "FECHA", "TEXT")
@@ -166,6 +168,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	kh.agregaColumna(Starter.skmt, "PROMOS_COMP", "CAT_PA_TIPO_PROMONTO", "TEXT")
 	kh.agregaColumna(Starter.skmt, "CAT_GUNAPROD", "CAT_GP_TIPOPROD2", "TEXT")
 	kh.agregaColumna(Starter.skmt, "CAT_GUNAPROD2", "CAT_GP_TIPOPROD2", "TEXT")
+	kh.agregaColumna(Starter.skmt, "CAT_GUNAPROD", "CAT_GP_PROMOCION", "TEXT")
+	kh.agregaColumna(Starter.skmt, "CAT_GUNAPROD2", "CAT_GP_PROMOCION", "TEXT")
 	Root = Root1
 '	Root.LoadLayout("MainPage")
 	Root.LoadLayout("login")
@@ -423,19 +427,19 @@ Sub B4XPage_Appear
 	If c.GetString("CUANTOS") = 0 Then
 		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP","0"))
 	End If
-	D = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from version")
-	D.Position = 0
-	If D.GetString("CUANTOS") > 0 Then
-		c = Starter.skmt.ExecQuery("select NOVERSION from version")
-		c.Position = 0
-		If c.GetString("NOVERSION") = "2.1" Then
-			Starter.skmt.ExecNonQuery("delete from VERSION")
-		End If
-		c.Close
-	End If
-	D.Close
-	D = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from version")
-	D.Position = 0
+'	D = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from version")
+'	D.Position = 0
+'	If D.GetString("CUANTOS") > 0 Then
+'		c = Starter.skmt.ExecQuery("select NOVERSION from version")
+'		c.Position = 0
+'		If c.GetString("NOVERSION") = "2.1" Then
+'			Starter.skmt.ExecNonQuery("delete from VERSION")
+'		End If
+'		c.Close
+'	End If
+'	D.Close
+'	D = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from version")
+'	D.Position = 0
 '	If D.GetString("CUANTOS") > 0 Then
 '		c = Starter.skmt.ExecQuery("select NOVERSION from version")
 '		c.Position = 0
@@ -687,7 +691,7 @@ Sub i_engranes_Click
 	cmd.Name = "selectBypass" ' Trae la contraseña desde la tabla "BYPASS" en web. (La ultima es KMT2025)
 	cmd.Parameters = Array As Object(user.Text.Trim)
 	reqManager.ExecuteQuery(cmd , 0, "bypass")
-	Log($"${Starter.DBReqServer}, ${user.Text}, ${Subs.traeAlmacen}, ${Subs.traeRuta}"$)
+'	Log($"${Starter.DBReqServer}, ${user.Text}, ${Subs.traeAlmacen}, ${Subs.traeRuta}"$)
 End Sub
 
 Private Sub i_engranes_LongClick