From bc254524b57cbec0d1d63e4bf5122077468dafa6 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 29 Jan 2025 09:59:19 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.01.28=20-=20Se=20puso=20la=20ve?= =?UTF-8?q?rsion=20en=20la=20pagina=20"Principal"=20-=20Se=20deshabilit?= =?UTF-8?q?=C3=B3=20la=20encuesta=20de=20Pedigree=20-=20Se=20agreg=C3=B3?= =?UTF-8?q?=20un=20espacio=20al=20nombre=20de=20los=20productos=20fijos=20?= =?UTF-8?q?para=20que=20se=20hay=20variables=20delmismo=20producgto,no=20s?= =?UTF-8?q?e=20vayan=20a=20mandar=20como=20duplicados.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Cliente.bas | 15 ++++++++------- B4A/C_Principal.bas | 4 +++- B4A/C_Promos.bas | 2 +- B4A/Files/principal.bal | Bin 50927 -> 51348 bytes B4A/Guna Vistas V3.1.b4a | 4 ++-- B4A/Guna Vistas V3.1.b4a.meta | 4 ++-- 6 files changed, 16 insertions(+), 13 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 92eb3bb..2f4dc7d 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -1264,13 +1264,14 @@ Sub gest_Click ' LA_RUTA = 732 ' Or (ALMACEN = 79 And rutasEncuesta.IndexOf(LA_RUTA.As(Int)) > -1) - If (alamcenesEncuesta.IndexOf(ALMACEN.As(Int)) > -1 ) Or (ALMACEN = 6 And LA_RUTA = 3) Then - Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) - If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then - cuest.agregaPreguntaCheckbox("1", "¿Qué productos de Kileo Perro encuentras en esta tienda?", Array As String("Pedigree Adulto", "Pedigree Cachorro", "Pedigree Razas Pequeñas", "Champ", "PAL","DOG CHOW ADULTO","DOG CHOW CACHORRO","DOG CHOW RAZAS PEQUEÑAS","Campeon","Ganador","Poder canino","Perron","Silverkan","Woow","Chapetes","Dyno","Beriscan","Nogacan","Nutrescan","Fidus","Amigo Gourmet","Otros","Ninguno de los anteriores")) - Return False - End If - End If + ' Encuesta Pedigree +' If (alamcenesEncuesta.IndexOf(ALMACEN.As(Int)) > -1 ) Or (ALMACEN = 6 And LA_RUTA = 3) Then +' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) +' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then +' cuest.agregaPreguntaCheckbox("1", "¿Qué productos de Kileo Perro encuentras en esta tienda?", Array As String("Pedigree Adulto", "Pedigree Cachorro", "Pedigree Razas Pequeñas", "Champ", "PAL","DOG CHOW ADULTO","DOG CHOW CACHORRO","DOG CHOW RAZAS PEQUEÑAS","Campeon","Ganador","Poder canino","Perron","Silverkan","Woow","Chapetes","Dyno","Beriscan","Nogacan","Nutrescan","Fidus","Amigo Gourmet","Otros","Ninguno de los anteriores")) +' Return False +' End If +' End If If TOMAR_FOTO = 0 Then Cuestionario diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 358ce38..036110f 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -239,6 +239,7 @@ Sub Class_Globals Dim tipo_venta As String = Subs.traeTipoVentaDeBD Private b_abordo As Button Dim bitacora As C_Bitacora + Private l_version As Label End Sub 'You can add more parameters here. @@ -256,6 +257,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) SCROLL_RESDIA.Height = Root.Height B_OK_RES.color = Colors.Red B_OK_RES.TextColor = Colors.White + l_version.Text = Application.VersionName EJECUTANDO=1 Dim ruta As String img2.Visible =False @@ -609,7 +611,7 @@ Sub Subir_Click End If c.Close - c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info2 where CAT_CL_NUM_SERIEFISICO IS NOT NULL") + c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info2 where CAT_CL_NUM_SERIEFISICO IS NOT NULL and gestion <> '0'") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i diff --git a/B4A/C_Promos.bas b/B4A/C_Promos.bas index 6a1170c..9c80a1d 100644 --- a/B4A/C_Promos.bas +++ b/B4A/C_Promos.bas @@ -343,7 +343,7 @@ Private Sub b_terminar1_Click ' Log($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$) For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds.Get(t)) - If prodsCants.Get(t) > 0 Then Subs.guardaProducto(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta) + If prodsCants.Get(t) > 0 Then Subs.guardaProducto(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn&" ", prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta) Next For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido. Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t)) diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 47a23ec8f544b3186e800fca183b1a97bb0cfe07..62c407137280737aaf91e585ec7771de07ca2cea 100644 GIT binary patch delta 595 zcmYk(yH3JT9LMo<+NzOHq#M>QPtkgMRWnz=KLR=-T z5$_Q167RwL=l~rOAHg|h{rwrH|35y4y_KlL-U^)%pAw(J=jZ}mBJbWS*jvSGSVP#6 z_VYrRm-0r*bmn{05+8S7{ej?sgtKFb&PL^m1$Q5lv(qyv=Pjx~NHH$#sY%hQXtxcW z$Ax_#5}(Z;DZ#~JeK4HG)iLA?VhFg1bI~$K#av4DwZ4Dc&*51Sd6{Uxt9|Ic!QE({ V!O-twSd2VI#mBNLo-zu)=@*6HRigj^ delta 390 zcmbO-k@MZrlKv5PTP6J{|AeI8+ zbRfN7& zVpjs$RX|(~#5G9lS|A(du{t1Il0h2c<9Z+m77`6Wwg?c5PUh#4S8M^YT7kF?h+!() lfoxb