From d915d9500933f6c10b4c6af4190326e7821bada8 Mon Sep 17 00:00:00 2001 From: IsR0d Date: Mon, 24 Mar 2025 14:17:58 -0600 Subject: [PATCH] Version: 5.03.22 Se agrego el plan de lealtad. --- B4A/C_Cliente.bas | 63 +++++++++++++++++++++++++++++++--- B4A/Files/cliente.bal | Bin 55216 -> 58065 bytes B4A/Guna Vistas V3.1.b4a | 2 +- B4A/Guna Vistas V3.1.b4a.meta | 2 +- 4 files changed, 60 insertions(+), 7 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 43edc0f..0c57281 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -443,6 +443,12 @@ Sub Class_Globals Private b_cancelarEnvioPDF As Button Private b_envioPDF As Button Private et_numeroPDF As EditText + Private btnPlanLealtad As Button + Private pnl_btns As Panel + Private pnlPlanLealtad As Panel + Private imgPlanLealtad As ImageView + Private btnAceptaPlanLealtad As Button + Private btnCancelarPlanLealtad As Button End Sub 'You can add more parameters here. @@ -511,11 +517,18 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear + btnPlanLealtad.Visible = False bitacora.inicioFin ' iniciofin que_modulo = 1 dentroDeGeocerca = False indicePregunta = 0 + + pnlPlanLealtad.Top = 0 + pnlPlanLealtad.Left = 0 + pnlPlanLealtad.Width = Root.Width + pnlPlanLealtad.Height = Root.Height + If TOMAR_FOTO <> 0 Then Cuestionario Starter.idCliente = Subs.traeCliente ' Log(Subs.traeCliente) @@ -748,9 +761,6 @@ Sub B4XPage_Appear End If End If - - - If ALMACEN = 87 Or ALMACEN = 6 Then If Subs.traemontoprod And Subs.traeCliente <> "0" Then Msgbox2Async("El cliente tiene derecho a un descuento de 150 pesos por la compra de mas de $500 en productos participantes" , "Descuento disponible", "Aceptar", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False) @@ -1044,6 +1054,22 @@ Sub B4XPage_Appear B_IMP.Enabled = False b_enviarTicket.Enabled = False End If + + If ALMACEN = 46 Or ALMACEN = 6 Then + c = Starter.skmt.ExecQuery("SELECT IfNull(PL_BANDERA, 0) AS PL_BANDERA FROM PLAN_LEALTAD WHERE PL_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + If c.RowCount > 0 Then + c.Position = 0 + If c.GetString("PL_BANDERA") = 0 Then + btnPlanLealtad.Visible = True + Else + btnPlanLealtad.Visible = False + End If + Else + btnPlanLealtad.Visible = True + End If + Else + btnPlanLealtad.Visible = False + End If End Sub Sub GPS_LocationChanged (Location1 As Location) @@ -5303,8 +5329,8 @@ Private Sub b_enviarTicket_Click End Sub Private Sub b_enviarTicket_LongClick - et_numeroPDF.Text = TELEFONO.trim - p_transparentePDF.Visible = True +' et_numeroPDF.Text = TELEFONO.trim +' p_transparentePDF.Visible = True ' PDFGENERAR ' EnviarPDFWhatsAppNumero(et_numeroPDF.Text) ' Guardar_Click @@ -5438,4 +5464,31 @@ End Sub Private Sub et_numeroPDF_TextChanged (Old As String, New As String) If New.Length = 10 Then b_envioPDF.Enabled = True Else b_envioPDF.Enabled = False +End Sub + +Private Sub btnPlanLealtad_Click + Subs.centraPanel(pnl_btns, pnlPlanLealtad.Width) + pnlPlanLealtad.Visible = True +End Sub + +Private Sub btnCancelarPlanLealtad_Click + pnlPlanLealtad.Visible = False +End Sub + +Private Sub btnAceptaPlanLealtad_Click + + c = Starter.skmt.ExecQuery("SELECT * FROM PLAN_LEALTAD WHERE PL_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + c.Position = 0 + If c.RowCount = 0 Then +' Starter.skmt.ExecNonQuery($"INSERT INTO PLAN_LEALTAD (PL_BANDERA,PL_CLIENTE) VALUES (1,'${cuenta}')"$) + B4XPages.MainPage.skmt.ExecNonQuery($"insert into PLAN_LEALTAD (PL_BANDERA, PL_CLIENTE) values ('1','${Subs.traeCliente}')"$) + pnlPlanLealtad.Visible = False + Log("AQUI") + B4XPage_Appear + Else + Starter.skmt.ExecNonQuery($"UPDATE PLAN_LEALTAD SET PL_BANDERA = 1 where PL_CLIENTE IN (SELECT CUENTA FROM CUENTAA)"$) + pnlPlanLealtad.Visible = False + Log("AQUI2") + B4XPage_Appear + End If End Sub \ No newline at end of file diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 729196afdfd9a1eb46589f906a26e1f5dd50b3c7..9b033572b30bb59f8d2220fc4cf730e8bf688af3 100644 GIT binary patch delta 2843 zcmai#YfMyE5XbjiD6+go9%)HnMNwo$Ky+bIK;DS3fVE&zDhsYCuCP1>1y?Mn6|l%y zn^d%*7O^IZuC-`E1Vu%xJXCCnR4*QlzjJ2hJm#Exr{%QK zK(~?Q8zPZNV=WSy;d}2H%eySx4k^7LJ0wG;DNrV;mD#Z>rMf`5)?uPQOqrdbQY-U_ z#cIMrdUPY~0<-1&H*CtJ{ht`c7&)6_zb0F~24~6VeUOO{{9tmDZPnFIS;n+RXf;N; zp!6&uJRR8;H3Kyh<%XJtnoZc9@EpP($oes*$a7JisClnhEAo2X5P1{!Av_;hKaels z1%ww8e;KkL${!^s96)%Hz}g9?#l#RuIEZjC;U&l+s8CcG;c&tcgd+(@5st?BCkI+e zIEL^t!m)(o2rCH36HXwUNO<`x*77@en;2FQeur=p;bg)q3BOA?h43oEs|lxyMB2&S zzefyf2&WNN5>6+aL3k};72$P+Gbb7IzkafT-xA?0!W#*zk@c5x6LK~x2c;pLOE`~k zKH&nM`Sa(43yGnK@Mglrgi8o-A-t7vDd950+X!p<1?YFMop3qw4%GXo3c{6ycM{%3 zcsKF~s6D7El>SSpM%HJpW`a$GpN}!vSO#jRVprmF@}HWg$<9n-_;0G>|7ZMvsuCV$ zb$Q$E`to4v*qqxn#@A|7j<=SpBPvpNTRdpdU6-zpDLEbA2Cd@*eHtlZuyEAmLO_CRxF#h~)L(!ogexjgqNL0~b~IL$9Ri$)hccMhNd2j)r}O72GqA5`$8Nwn0tF@Wz>xNedGKJad-YxYn8XF%w z|6$(wX^UgOczH>g_}2Zj#Gi&YBx{qb>gM$rAARZA-qw7oZ&%cxqrW}dD0^6F`%PVI z@wC!MiNE(Np4{8yb?Mvl@g4T#qOxX?Z^46z!rYo*UNiDnlxS4C&#iXaNI7i#`dQ%< zYX>9juQ>gT%`e#_Odz%Zm?9*eu_{VzvP;TyEm#Fkrq?{_ySGw8nV z1mnTB(DKzxaJXT`JV4nkfruM1(A%8~13eB9bZxbbmti~uZBZe(TyKK!dp-G3Yi~mb zVFDkVV5#oI8=;KN2hH6C>-mOGI-i?o8S@oPzJ@07xjBnlz~EAGH0W+!eWyS^&sC*;A;z*QzJ)1S`+CucBK6K^g5n*%0;1widU6O<3} zsqp6(GpLcd+AK13)MrGjliiUs7AR~g(9j1rRicZ&hvp!`9P|(K8Ma+eY!Dw30ie^(1-v$!!DyM13l-KQy@nQH*wFtO z77wx9%|W=5+hWA#R_HDaAH!g;s}IzMEy6EE0$x2wSeTHNFoOX@g_{sA+ypZxoK#q= i3$)+z!6l_a?O{_PHbRJv_?OtoiP#<*8vzaXZTrI=zsSb#_vHw9rql5DUc zd_*UafC-tDVOBV!DU`+_$lcZf9DxRD@#VTp~n-QW)p;U`Mc#oN zha8Wbuws?=jT6yA67pNfJCS!GCnN7hej9lY@?PW=hEc7({XVqt4st4T8ge@FyT}>H z`;p&6et*rh|4e$a`VW{zolSFqCI|T-axU@*$a%`}u1(D?|%L$i>Kq zk&hskAeT}fr75E+N7nAMdc6WUq!OJRqpqU)h~_xW>NldAdbOdCk-0Ex7NSxThOw_P zqSv**2FKxt=sv0C?LP-cS%O2*gZ;qFJ;j(w5c|| z+r03z(J+Uh<>IBlMOo7>m-U>fq9O+J`@)BT z*)y*^JCQY;<>b>~y;$({+?{=0&3(oNzp&2dG8NV$K~wnjhDSdweDf&eJ9V&3;?~z3 z`&Zag`v*I2s%Gam+ek8dv%gl9-AZjrcbv>_@s5<$c9t%%Orn$6IwALxrnLHI#orb@ z=8AB?ZEWQ=p{dn{uHowCVT%N-Y;}E)W~An7S#WT7@7Z7PW!#WhNUeO92JW{cJ#INW z&@hvBlx?qx7nE_w&!;?0q&)|-N6dlG1~?RQSh+K#5(PV6_1GU$w>iRtQKM5|DA6aPAiT;`d-%O*Bb=-fz_QX3YWmxV8-(2z!_R#@?V@9x2rjqs;M=Xn z&@s?RL{K*;28SeLsJLy%7tv2q`}=KbMgJJP5vZ%TC+@I35(Nz<#_-x;Bk`aE8$cQ& zSR3+qc__`(o_IbV`sAf5jvHs1FH>HC4;YR2lv;$s}9XuIy=jiqY z`A{?)IjSHqKlCazj|K51`m+QyF|I6s{3L<$5id|5bb&h~Jnb~S4of2@FgzUvh2M8_ ze01H=1McQ?O&jsmcEk78doaCCza;^T-K`;hdQJK1jri)C+M?H#|9_hDe|bpTRKQwO zt&>V3TWLzh2_)b>>|`#}pJDT+t`Q=qcg6AL`b)a^=8q@B`WYXP2bsX9qtD>CNnLqC S|97*lq*{