From ffcd98543d34ef6dd8d2cc88fc4bd0b3552e3bd3 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 1 Oct 2025 12:12:11 -0600 Subject: [PATCH] - VERSION 5.09.30 - Se corrigio que cuando se entraba a productos a veces se perdian los productos YA seleccionados. --- B4A/C_Productos.bas | 41 ++++++++++++++++++++++++++++------------ B4A/Disruptive.b4a | 2 +- B4A/Disruptive.b4a.meta | 4 ++-- B4A/Files/login.bal | Bin 12456 -> 12456 bytes 4 files changed, 32 insertions(+), 15 deletions(-) diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 6089c93..55aebb0 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -87,7 +87,7 @@ Sub B4XPage_Appear B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("COMPLEMENTARIO","3")) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("CATALOGO REGULAR","0")) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_CLASIF = (?) ",Array As Object("PROMOS","PROMOS")) - + ' Private left = (Root.Width/2) - ((clv_productos.AsView.Width)/2) clv_productos.GetBase.SetLayoutAnimated(100, 0dip, 140dip, Root.Width, Root.Height * 0.68) 'Cambiamos el tamaño y posición de la lista de productos clv_productos.Base_Resize(clv_productos.GetBase.Width, clv_productos.GetBase.Height) 'Cambiamos el tamaño del panel interno de la lista para que ajuste al nuevo tamaño. @@ -296,25 +296,41 @@ Sub llenaCatalogo(limpiar As Boolean) Log("LlenaCatalogo") If limpiar Then clv_productos.Clear Private c2 As Cursor - c2 = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' + Private cp As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_ID in (select pe_proid from pedido where pe_cliente = '${Subs.traeCliente}')"$) + c2 = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where + CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' + and CAT_GP_ID not in (select pe_proid from pedido where pe_cliente = '${Subs.traeCliente}') order by Case CAT_GP_TIPOPROD when 'PRIORITARIO' THEN 0 WHEN 'ESTRATEGICO' THEN 1 WHEN 'COMPLEMENTARIO' then 2 Else 3 End, CAT_GP_NOMBRE"$) - -' Select cAT_GP_ID, cat_gp_tipoprod from cat_gunaprod order by -' Case CAT_GP_TIPOPROD -' When 'PRIORITARIO' THEN 0 -' WHEN 'ESTRATEGICO' THEN 1 -' WHEN 'CATALOGO REGULAR' then 2 -' Else 3 -' End - + Private bgColor, textColor As Int - If c2.RowCount > 0 And clv_productos.Size <> c2.RowCount Then + + Private cuantosProds = cp.RowCount + c2.RowCount + + If cp.RowCount > 0 And clv_productos.Size <> cuantosProds Then clv_productos.Clear : Log("limpiamos productos") + For i=0 To cp.RowCount -1 + cp.Position=i + If cp.GetString("CAT_GP_TIPOPROD") = "PRIORITARIO" Then + bgColor = Colors.RGB(255, 212, 163) 'naranja + Else If cp.GetString("CAT_GP_TIPOPROD") = "COMPLEMENTARIO" Then + bgColor = Colors.RGB(177, 200, 249)'azul + else If cp.GetString("CAT_GP_TIPOPROD") = "CATALOGO REGULAR" Then + bgColor = Colors.White + else If cp.GetString("CAT_GP_TIPOPROD") = "ESTRATEGICO" Then + bgColor = Colors.RGB(241, 255, 163) 'amarillo + End If + textColor = Colors.Black + clv_productos.Add(CreateListItem(cp.GetString("CAT_GP_NOMBRE"), cp.GetString("CAT_GP_PRECIO"), cp.GetString("CAT_GP_ALMACEN"), clv_productos.AsView.Width, 50dip, bmp, cp.GetString("CAT_GP_ID"), bgColor, textColor), cp.GetString("CAT_GP_NOMBRE")) + Next + End If + + If c2.RowCount > 0 And clv_productos.Size <> cuantosProds Then +' clv_productos.Clear : Log("limpiamos productos") For i=0 To c2.RowCount -1 c2.Position=i If c2.GetString("CAT_GP_TIPOPROD") = "PRIORITARIO" Then @@ -331,6 +347,7 @@ Sub llenaCatalogo(limpiar As Boolean) Next End If ponProdsEnCero + cp.Close c2.Close End Sub diff --git a/B4A/Disruptive.b4a b/B4A/Disruptive.b4a index 9f31e61..c3f4271 100644 --- a/B4A/Disruptive.b4a +++ b/B4A/Disruptive.b4a @@ -187,7 +187,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Disruptive #VersionCode: 1 - #VersionName: 4.09.08 + #VersionName: 5.09.30 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Disruptive.b4a.meta b/B4A/Disruptive.b4a.meta index 5ddfc50..38fb4f5 100644 --- a/B4A/Disruptive.b4a.meta +++ b/B4A/Disruptive.b4a.meta @@ -70,6 +70,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,CreateListItem,443,0,C_Productos,llenaCatalogo,288,0,C_Productos,B4XPage_Appear,96,1,C_Productos,lv_catalogos_ItemClick,132,0,C_Productos,b_buscar_Click,640,0,C_Productos,Class_Globals,6,0,C_Productos,BUSCA_TextChanged,403,5,appUpdater,Process_Globals,74,2,B4XMainPage,i_engrane_Click,647,1,B4XMainPage,ocultaProgreso,642,0,Starter,Process_Globals,14,3 +NavigationStack=C_Productos,CreateListItem,450,0,C_Productos,cuentaProds,535,0,Starter,Process_Globals,17,3,C_Productos,Class_Globals,1,0,C_Productos,B4XPage_Created,60,0,C_Productos,B4XPage_Appear,99,1,C_Productos,ponProdsEnCero,551,0,Diseñador Visual,proditem.bal,-100,5,Diseñador Visual,login.bal,-100,1,C_Productos,llenaCatalogo,306,6 SelectedBuild=0 -VisibleModules=1,2,3,4,5,6,7,8,9,10,13,21 +VisibleModules=21,2,4,5,8,9,10,13,22 diff --git a/B4A/Files/login.bal b/B4A/Files/login.bal index a0f910e79f511dd527ad3b5ea99ae7b2f7856b48..ad5760479e44af7255fff67592f32a8d247c9800 100644 GIT binary patch delta 623 zcmZ3HxFT`G8+K7a1_lOaSHBR~pm-1eAkQd&zYs^C&0pBxF;4!@`I&Uukl`_)Pb3pgJZX=8OOmtU$~R#0;E~Kmsfr z1!P2nL}GwMED$r60|^jd;RF(_j9fsHGj4LCs+20o2nir&1Y!n$Am)q%5*k3vBLL#5 z1BtN757bH~2dHsz#RGX@D-tF@(3P4TAnC@KI9WhiiZN-jHjqr1ykABND3U0xH`!i; zYqEk=D;6!2`K8SuN+%~s@582`Lq-~A;^zG_B1|Y@!6^?53p@FKJ)*-R7wGiZ$-m`| z86!69EBt1fd{_h#z6r`8GySxcHcwSP&4?m3O%*CN`Lrqt)`5e5a)%nwy2*Rgl!2x{ zP^&}rYxv~->Ii>+Q|D(!vRIcfY_p$sHzP0{Zt46%)mQ`%oIE`%MsVP~*5RCdSRbef Im`Jt*02jK6VgLXD delta 601 zcmZ3HxFT`G8+HyB1_lNnSGSPOj2!P6MFoL8XIH-v*PwV0{~*sOf4>k%pULkzKW~1; zWyQl7HaSt%baIrq5M%h{kNQfJ`^9IvM*y`j0WoJJkYEL3W*}zZi~w212Jbjkk9~P9sv+f9Y};vexOz| zIY5nzD*?y@Tah^Vfv(i#07*B-q{#x(Qj=Hc3r)6>=44EqykABND3&O#H`!i;YqEk= zD;7C@3v_tg=C+}BB z_R}|YerBkjthIrz*zBj>%?R|f^yDu(k5IK1O=i`G2JhxPJu8qqZ|O))KCG_`P88b# DIjw