From d913a85e773d6cd2f61e1e1acdab2afa87c75e5b Mon Sep 17 00:00:00 2001 From: cheveguerra Date: Wed, 20 Sep 2023 02:01:33 -0600 Subject: [PATCH] - Agregamos meta - Se agrego codigo en "productos" para que la busqueda de RMIs funcione. --- B4A/C_Cliente.bas | 2 +- B4A/C_Principal.bas | 2 +- B4A/C_Productos.bas | 10 ++++++++ B4A/KelloggsV4.b4a.meta | 6 ++--- B4J/Files/MainPage.bjl | Bin 1959 -> 0 bytes B4J/Kelloggs V3.b4j | 53 --------------------------------------- B4J/Kelloggs V3.b4j.meta | 9 ------- B4i/Files/mainpage.bil | Bin 3084 -> 0 bytes B4i/Kelloggs V3.b4i | 46 --------------------------------- B4i/Kelloggs V3.b4i.meta | 9 ------- 10 files changed, 15 insertions(+), 122 deletions(-) delete mode 100644 B4J/Files/MainPage.bjl delete mode 100644 B4J/Kelloggs V3.b4j delete mode 100644 B4J/Kelloggs V3.b4j.meta delete mode 100644 B4i/Files/mainpage.bil delete mode 100644 B4i/Kelloggs V3.b4i delete mode 100644 B4i/Kelloggs V3.b4i.meta diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index e0c1984..a0b740b 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -521,7 +521,7 @@ Sub B4XPage_Appear Else Cuestionario End If -' Log(Subs.revisaImpresa) + Log("IMPRESO:" & Subs.revisaImpresa) If YA_IMPRIMIO2 = 0 Then Guardar.Visible = False Else diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index ff1d287..6130d77 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1957,7 +1957,7 @@ Sub connecta_Click cmd.Initialize cmd.Name = "select_ruta3_KELL" cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, usuario) - Log($"******* RUTA: ${ALMACEN}, ${e_ruta.text}, ${usuario}"$) + Log($"******* Almacen: ${ALMACEN}, ${e_ruta.text}, ${usuario}"$) reqManager.ExecuteQuery(cmd , 0, "ruta") e_ruta.Enabled = False If e_ruta.Text = "KMTSKLL1" Then e_ruta.Enabled = True diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 0ed2703..a8e2c6b 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -1073,6 +1073,16 @@ Sub Busca_TextChanged (Old As String, New As String) ToastMessageShow("No hay promociones disponibles.", False) End If cPromo.Close + else if lfila.text = "RMI" Then + Dim p As ResultSet = Starter.db.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, '1000' as CAT_GP_ALMACEN from CAT_RMI where CAT_GP_NOMBRE like '%${New}%' order by CAT_GP_NOMBRE"$) + Log($"Llamamos LlenaProdsLL con ${p.RowCount} prods."$) + lfila.Text = "RMI" + b_rmi.Visible = False + lv_catalogos.Visible = False + LlenaProdsLL(p, "rmi") + clv_prods_ll.AsView.BringToFront + clv_prods_ll.AsView.Visible = True + l_mDisponible.Visible = True Else If Not(clv_prods_ll.AsView.Visible) Then clv_prods_ll.AsView.Visible = True clv_prods_ll.Clear diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 1f1fab9..487f95a 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -60,7 +60,7 @@ ModuleClosedNodes0= ModuleClosedNodes1= ModuleClosedNodes10= ModuleClosedNodes11= -ModuleClosedNodes12= +ModuleClosedNodes12=1 ModuleClosedNodes13= ModuleClosedNodes14= ModuleClosedNodes15= @@ -85,6 +85,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Subs,dbInit,25,0,Starter,Service_Create,61,0,B4XMainPage,B4XPage_Appear,353,0,Starter,Service_Start,88,0,Starter,Subs_dbOk,90,0,C_Principal,B4XPage_Created,192,1,C_Principal,B4XPage_Appear,376,0,C_Principal,B_OK_PAS_Click,2145,1,B4XMainPage,Class_Globals,35,0,C_Principal,JobDone,1131,5 +NavigationStack=C_Productos,Initialize,96,0,C_Historico,B_RMI_Click,111,0,C_Productos,clv_prods_ll_VisibleRangeChanged,1047,0,C_Productos,Busca_TextChanged,1068,3,C_Principal,JobDone,1123,0,C_Principal,cargar_Click,809,0,C_Principal,connecta_Click,1908,1,Visual Designer,productos.bal,-100,2,Visual Designer,cliente.bal,-100,1,C_Cliente,B4XPage_Appear,511,3 SelectedBuild=0 -VisibleModules=1,26,11,14,27,3,4,13,12,2 +VisibleModules=1,26,11,14,27,3,4,13,12,2,5 diff --git a/B4J/Files/MainPage.bjl b/B4J/Files/MainPage.bjl deleted file mode 100644 index 405b3b756ed703481ce30bdf2802b885d8384a70..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1959 zcma)6&yy2H6z;f5WIzQ)5ELZ>u0eKV5by{7ShGo1R(7`_WChC$ote&N+{tvRr?UZ1 zSXO!QU(h?{*+0Pp;+98GUZng3JX+;p{l1=^0aq-Ys`uvW?$_^q{k@(k2_b%g?S_?M zkHY51*6R556M(f8Uo~>Fj(19Ob!@DaTE6kx8}~k4s;E`(3AgrhZ%WzPb0?_g{BEY1YJM^T>ynk!}G->VDF_IZ}s!T0NPB zeyydFa4lA*wydn=aY)A^rh@l>9gDPOG#bb~06lF2WtuwD=Kk<%7}&vMSoO6*m5vO; zal-QjMowfeQq#aYskFA&YA#tedK{5|n_zXH<(SWbi|Xdnz_a}uvpwmruNgg#gV{VL z7#nFr9kanIX7#`$+)%Mykwe8ilwd)dA+fq)jcg_fpzBgUjMS6B0~rUA>Oi^ARGXU_ z{HffK)Ry|iNX9plQ44KCMCG*?S1zI#WlgpKjA5ZkteNCLE}6ZD6?(Ed7BtE=LL(cz!($5?;Uhvv50==OsvQ_djnw zrIHaY%MgrNs@Y!YwmUqZuVV|bmQ_3^&s6_JvGn$bM9O_cJ?!Q!VEzLW1}r&$c9FyF zPl>yFItrMSyV)crZM7E~t4rN%`U?6$LZJmepM)6Pn5aY#6|c=uS_SE%MG#FGnG9s0 zCl6ELid!Ka7SjEGqU^Q%@MG>a?iRC7n#bKriktAmA!(|?i6;20Q#ekzFs8CvN8NBl z`V;(Bx>#dJgt#?#4Sxk1A20h$c-e0Pn{UlAZ+VLj#&pg(z>JI)9&0j<$DbORmbZTY zV~Zc6M?v@$skf`U7ob$w2k-HEKSi(~j^C042LMWigB&vbGX(79VFIf7909i+$-wgj zFTfpzl?oO3sTbi~!DAUXPH+eAL|K@TE6U%0pz<4*>9IgNVmK zJVyoo>Y(G_JZNyvTCZ*G-Ml#Y@zkyJd#6ubnp~Z}H8puBnmTjy@apPbHUCjmDsNZ5 z`e|%O{POG1-(NpgxcKARr#sia+x>QT;`hz#pL_0_xU%`f`owST_Kmz%9zXQwXRy5j zV%&{*<7z0M0a~hyST&}XWUQLLjHWM0Etm^q)6n^soP-y)1o!Hq(QZaT*LN2KFNhwd zD2QAcT~@AcO<>swA{ed-S9N2q-EJpTezPXD3Yf3kjR<`QSoWl^S4BrAb!*Df5lCCY zcRg7{h+oQOYCJ-ra^(V?CoQ0%E21Zu7DM-8BW=qQX5CXw<7PobmsG6ko=M*qseB^{ zyn43BB84J?F91`rFbX=MX4|xAGCZxcXMC)QrlfzJSSY>#e6XzWngse`q}->Wz}u9{ zs#Uin^q2`R2stNAv`mLXU*Xttf^*87l#+6;YE3PF*CfFWt6?7HMH9k zkrKWxGB{6eCZ!KT2EE0*#TKZROs*T@3UG)!k|Hw z3Tr%mZTILLZQDCI&%x&~6F$?t%_Q;`Z0%mF?yyXt> z>`@SdvK%&n@jB0eJrA<~?)UqAFM0bIc%pS2$Y{L?a02AK1a=aHxWAsqzm?{Bj5P5$Qz-9sN9o|cjEE^rLY>H=f%!-v%+mw~T{8!nzpGBSJky*m7sq8^!S$6^X C