diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index dac2119..ce84636 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -3591,7 +3591,7 @@ Private Sub b_noVisita_Click Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NOVISITA_RAZON", r_razonNoVisita)) Starter.skmt.ExecNonQuery($"delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'NOVISITA_FECHA'"$) Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NOVISITA_FECHA", Subs.traeFecha)) - Starter.skmt.ExecNonQuery($"update kmt_info set gestion = '4' where gestion = '0'"$) + Starter.skmt.ExecNonQuery($"update kmt_info set gestion = '4' where gestion = '0' and CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA')"$) Log(Subs.traeRuta) Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "MOTIVO NO VENTA ACTIVO", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, "", r_razonNoVisita) ' Private mn0v As Cursor = Starter.skmt.ExecQuery("select * from kmt_info where gestion = '4'") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 192a261..1cb8d73 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -1273,7 +1273,7 @@ Sub Busca_TextChanged (Old As String, New As String) ' Log($"${Starter.tipov} - ${query} - ${Subs.traeTablaProds(Starter.tipov)}"$) If lfila.text = "PROMOCIONES" Then If Not(lv_promos.Visible) Then lv_promos.Visible = True - Private cPromo As Cursor=Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_TIPO, CAT_GP_IMG from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE)"$) + Private cPromo As Cursor=Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_TIPO, CAT_GP_IMG from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$) Log($"res:${cPromo.RowCount}"$) If cPromo.RowCount > 0 Then lv_promos.Clear diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index 8683baf..a4bd24a 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -887,7 +887,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 4.07.31 + #VersionName: 4.08.07 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index e6c43a6..3555fd0 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Principal,b_reactivaRuta_Click,3634,0,C_Principal,b_noVisita_Click,3590,0,Subs,revisaImpresa,1585,0,C_Principal,e_ruta_EnterPressed,2190,0,C_Cliente,b_noVenta_Click,872,0,C_Cliente,gest_Click,866,0,C_Cliente,Guardar_Click,932,0,B4XMainPage,Initialize,122,0,Visual Designer,principal.bal,-100,2,C_Principal,B4XPage_Appear,440,6,C_Productos,cuentaProds,869,0 +NavigationStack=Visual Designer,principal.bal,-100,3,C_Principal,b_motivoNoVisita_Click,3562,0,C_Principal,b_noVisita_Click,3593,2,C_Clientes,Class_Globals,1,0,C_Clientes,B4XPage_Appear,68,0,Subs,guardaCambiosDeProducto,1606,0,Subs,restaFijosPromo,1120,1,Subs,traeTablaProds,1628,0,Subs,traemosInventarioDisponibleParaPromo,1107,0,C_Productos,Busca_TextChanged,1267,0,C_Productos,clv_prods_ll_VisibleRangeChanged,1261,0 SelectedBuild=0 VisibleModules=1,28,11,3,26,23,29,12,4,13 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index d705893..87a344d 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -1111,11 +1111,13 @@ Sub traemosInventarioDisponibleParaPromo(promo As String) As Map 'ignore Return prods End Sub +'Select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_TIPO, CAT_GP_IMG from cat_gunaprod2 where CAT_GP_NOMBRE like '%pro%' and CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE) + 'Resta los productos fijos del inventario de la promoción (mapa) y regresa un mapa con el nuevo inventario. 'Hay que darle como parametro un mapa (traePromo(promo)) con toda la informacion de la promocion. 'Regresa en el mapa la llave "resultado" que nos da "ok" o "No hay suficiente producto para la promocion". Sub restaFijosPromo(promoMap As Map) As Map 'ignore - Private thisLog As Boolean = True 'Si es verdadero, muestra los logs de este sub. + Private thisLog As Boolean = False 'Si es verdadero, muestra los logs de este sub. Private inventariosDisponiblesParaEstaPromo As Map = traemosInventarioDisponibleParaPromo(promoMap.Get("id")) 'Obtenemos un mapa con el inventario disponible para cada producto de la promocion desde la base de datos. If thisLog Then LogColor(inventariosDisponiblesParaEstaPromo, Colors.red) If thisLog Then LogColor("Inventario inicial antes de FIJOS: "&inventariosDisponiblesParaEstaPromo, Colors.Gray) 'Inventario inicial.