From e773450fcd0971e9d2b6e23edaf4531a8d9985ac Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Mon, 1 Jul 2024 10:01:22 -0600 Subject: [PATCH] PROMO ESPECIAL V FINAL --- B4A/C_Productos.bas | 8 ++++---- B4A/Guna Vistas V3.1.b4a.meta | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 5538c1f..b0be6cb 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -151,15 +151,15 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object) ' If Subs.traemontoprod Then ' c2 = B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, marca, tipo)) ' Else - Private cd As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT HVD_CLIENTE FROM PROMO_ESP WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") - If cd.RowCount = 0 Then + Private cd As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT HVD_CLIENTE FROM PROMO_ESP WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + If cd.RowCount = 0 Then LogColor("Promos" & " | " & marca & " | " & tipo, Colors.red) c2 = B4XPages.MainPage.skmt.ExecQuery2("Select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_TIPOPROD = ? AND CAT_GP_ID NOT IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP) AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa))", Array As String(Value, marca, tipo)) Else If cd.RowCount > 0 Then LogColor("Promos" & " | " & marca & " | " & tipo, Colors.red) -c2 = B4XPages.MainPage.skmt.ExecQuery2("Select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_TIPOPROD = ? and CAT_GP_ID <> 'PRO2265' AND CAT_GP_ID NOT IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP) AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa))", Array As String(Value, marca, tipo)) - End If + c2 = B4XPages.MainPage.skmt.ExecQuery2("Select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_TIPOPROD = ? and CAT_GP_ID <> 'PRO2265' AND CAT_GP_ID NOT IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP) AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa))", Array As String(Value, marca, tipo)) + End If ' End If Else LogColor("Catalogo", Colors.red) diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index b2824fd..7c4cbc9 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6=6,8,9,10 ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,lv_promos_ItemLongClick,650,6,Subs,procesaPromocion,906,0,Diseñador Visual,productos.bal,-100,1,Subs,traeMaxPromos,877,0,C_Productos,lv_promos_ItemClick,246,2,Subs,traePromoIdDeBD,1119,0,C_Productos,lv_catalogos_ItemClick,154,1,Subs,traePromo,762,0,C_Principal,cargar_Click,843,0,C_Cliente,B4XPage_Appear,696,6 +NavigationStack=C_Productos,lv_promos_ItemLongClick,650,6,Subs,procesaPromocion,906,0,Diseñador Visual,productos.bal,-100,1,Subs,traeMaxPromos,877,0,C_Productos,lv_promos_ItemClick,246,2,Subs,traePromoIdDeBD,1119,0,Subs,traePromo,762,0,C_Principal,cargar_Click,843,0,C_Cliente,B4XPage_Appear,696,6,C_Productos,lv_catalogos_ItemClick,146,1 SelectedBuild=0 VisibleModules=22,2,23,13,14,4,6,9,12,5