From 67403c695fc67031d5e9cba79f9bc76ccbd26e3a Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Fri, 27 Oct 2023 12:29:08 -0600 Subject: [PATCH] Correccion de total que redondeaba (IMPRESION Y VISUALIZACION DEL CLIENTE) --- B4A/C_Cliente.bas | 40 +++++++++++++++++++++++++++++------ B4A/C_Nota.bas | 19 ++++++++++++++++- B4A/C_TicketsDia.bas | 16 +++++++++++++- B4A/Files/kellanova.png | Bin 0 -> 3958 bytes B4A/Files/knv_logo_white.png | Bin 0 -> 3487 bytes B4A/KelloggsV3.b4a.meta | 4 ++-- 6 files changed, 68 insertions(+), 11 deletions(-) create mode 100644 B4A/Files/kellanova.png create mode 100644 B4A/Files/knv_logo_white.png diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index f219fa8..cd9ac58 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -294,6 +294,7 @@ Sub Class_Globals Private R_5 As RadioButton Private e_comm As EditText Private motivo As String + Dim cursorprueba As Cursor End Sub 'You can add more parameters here. @@ -336,6 +337,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2") la_saldotot.Text = c.GetString("CAT_CL_TELEFONO") ''' ESTO SE AGREGA PARA QUE SE VEA LOS CLIENTES DOE + If c.GetString("CAT_CL_EMAIL") = "1" Then L_doe.Visible = True Else @@ -376,6 +378,7 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear + Dim sumatotal As Double = 0 If Subs.traeUltimaActividadBD <> "Cliente" Then Subs.iniciaActividad(Subs.traeUltimaActividadBD) If Not(muestraBoleta) Then P_INF_GENERAL.Visible = True @@ -428,6 +431,16 @@ Sub B4XPage_Appear S1=Starter.skmt.ExecQuery("select count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") S1.Position=0 Log("hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh "&c.RowCount) + cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE")) + For i= 0 To cursorprueba.RowCount -1 + cursorprueba.Position = i + LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red) + sumatotal = sumatotal + cursorprueba.GetString("PE_COSTO_TOT") + sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False) + + Log(NumberFormat2(sumatotal, 0, 2, 2, False)) + Next + cursorprueba.Close c.Position=0 la_cuenta.Text = c.GetString("CAT_CL_CODIGO") La_nombre.Text = c.GetString("CAT_CL_NOMBRE") @@ -439,8 +452,8 @@ Sub B4XPage_Appear l_entre2.Text = c.GetString("CAT_CL_CALLE2") l_atiende.Text = c.GetString("CAT_CL_ATIENDE1") l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2") - l_total.Text = s.GetString("TOTAL_CLIE") - total_cliente = s.GetString("TOTAL_CLIE") + l_total.Text = sumatotal + total_cliente = sumatotal m_lat =c.GetString("CAT_CL_LAT") m_lon =c.GetString("CAT_CL_LONG") CREDITO_DISPONIBLE = c.GetString("CAT_CL_BFACTURA") @@ -1285,11 +1298,24 @@ Sub B_IMP2_Click s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO","DOE")) s.Position = 0 Private sTotal2 As Double - If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then - sTotal2 = s.GetString("TOTAL") - Else - sTotal2 = 0 - End If + + cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE")) + For i= 0 To cursorprueba.RowCount -1 + cursorprueba.Position = i + LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red) + sTotal2 = sTotal2 + cursorprueba.GetString("PE_COSTO_TOT") + sTotal2 = NumberFormat2(sTotal2, 0, 2, 2, False) + + Log(NumberFormat2(sTotal2, 0, 2, 2, False)) + Next + cursorprueba.Close + Log(sTotal2) +' +' If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then +' sTotal2 = s.GetString("TOTAL") +' Else +' sTotal2 = 0 +' End If Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF) Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta: $${NumberFormat2(sTotal2, 1, 2, 2, False)}"$ & CRLF) Private cantidad1 As String = "0" diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas index f454174..824036f 100644 --- a/B4A/C_Nota.bas +++ b/B4A/C_Nota.bas @@ -38,6 +38,7 @@ Sub Class_Globals Private ListView3 As ListView Private L_CANT_D As Label Private L_TOTAL_D As Label + Dim cursorprueba As Cursor End Sub 'You can add more parameters here. @@ -87,6 +88,8 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear + Dim sumatotal As Double = 0 + c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_CEDIS = ?", Array As String("DOE")) c.Position = 0 ListView1.Visible = True @@ -123,7 +126,9 @@ Sub B4XPage_Appear C_DOE=Starter.skmt.ExecQuery2("select sum(pe_cant) AS CANTIDAD, sum(pe_costo_tot) AS MONTO from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS = ?", Array As String("DOE")) C_DOE.Position=0 L_CANT_D.Text = C_DOE.GetString("CANTIDAD") + L_TOTAL_D.Text = C_DOE.GetString("MONTO") + c.Close Else B_PEDIDO_DOE.VISIBLE = False @@ -168,8 +173,20 @@ Sub B4XPage_Appear If Existe <> 0 Then c=Starter.skmt.ExecQuery2("select sum(pe_cant) AS CANTIDAD, sum(pe_costo_tot) AS MONTO from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE")) C.Position=0 + + cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE")) + For i= 0 To cursorprueba.RowCount -1 + cursorprueba.Position = i + LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red) + sumatotal = sumatotal + cursorprueba.GetString("PE_COSTO_TOT") + sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False) + + Log(NumberFormat2(sumatotal, 0, 2, 2, False)) + Next + cursorprueba.Close L_CANT.Text = c.GetString("CANTIDAD") - L_TOTAL.Text = c.GetString("MONTO") + L_TOTAL.Text = sumatotal + Log(c.GetString("MONTO")) c.Close c=Starter.skmt.ExecQuery("select SUM(IFNULL(PE_DESC,0)) AS DESCUENTO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c.Position=0 diff --git a/B4A/C_TicketsDia.bas b/B4A/C_TicketsDia.bas index 0cf4c5c..7fda488 100644 --- a/B4A/C_TicketsDia.bas +++ b/B4A/C_TicketsDia.bas @@ -12,6 +12,7 @@ Sub Class_Globals Dim ListView1 As ListView Dim b_noventa As Button Dim nombre_boton As String + Dim cursorprueba As Cursor End Sub 'You can add more parameters here. @@ -46,6 +47,7 @@ End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear + Dim sumatotal As Double = 0 nombre_boton = "NOVENTA" c=Starter.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc") ListView1.Clear @@ -60,7 +62,19 @@ Sub B4XPage_Appear label2 = ListView1.TwoLinesLayout.SecondLabel label2.TextSize = 13 label2.TextColor = Colors.Black - ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &" Cant. #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO")) + + cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente = ? AND PE_CEDIS <> ?", Array As String(c.GetString("PC_CLIENTE"),"DOE")) + For i= 0 To cursorprueba.RowCount -1 + cursorprueba.Position = i + LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red) + sumatotal = sumatotal + cursorprueba.GetString("PE_COSTO_TOT") + sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False) + + Log(NumberFormat2(sumatotal, 0, 2, 2, False)) + Next + cursorprueba.Close + + ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &" Cant. #"& c.GetString("PC_NOART")& " SubTotal $"& sumatotal) Next End If c.Close diff --git a/B4A/Files/kellanova.png b/B4A/Files/kellanova.png new file mode 100644 index 0000000000000000000000000000000000000000..57c28211a9f86bd2387369eb816e2b59f5b6044a GIT binary patch literal 3958 zcmV-+4~g)JP)7)eAyRCwC#T}@W&N)9e^7}y=D*#pitN^nD!ng;R72vx9+$-q3LHD%V%2nN4&-h1Dm46cSo#S(V zPHb1Hq_3nZS#@9(Kk=Wx{Sg&^EQ;%-xTeLmDXy2l|M#DXN=Km>9tSFdEl~kET^H9? z%}>(eIxC24qta3+hQmb3>W^9R$9n@=0pj9%RCQ4(l(2>*tBc}~*W!u@KVKlZDHIAN ztlr7WdQDTtZ3|Tyg+d8yh%oS3aO;t(j6$J=)i=1FmBmz5Mxju`>eIWrDgKbIMZKxY zC=^OqeUVjcexxr*k*mrm6iQfqkk!=qrzWgbWfTe}tUdr_75R{rCXOl;!{TrUydp>? zI5of4ozmi3amWMnt$b4wZdF|r3MH&Mk^zFbtMH0|e1NQ0#OFl#93R{l1evM2C=^Oq zRbJH{5>p*GyL^yu<&%z(6=bziRZ%FEu*zf=8`@ga3-Nh(MxMg3C9C3^tC}bjN?2U4 z$^yc{gcwp@`I41%p&dg}N`I2#9l3Mg4dI@&xF=QhRVZQgPgWO5R@AVqb-^9U!Y75n zi>wgP21?Es5Kr#>o0=!4gr!iz>XE1{sl<%ilD1-c=&kvzTZJGig+j3pgoT81W%wEA z;Dt~YzkSxNl&lmAB`k6H=VD0+1%U`Jl&lmAB`hDJiqWHrg^##zTV%#}Nb{{A%v>p1 zDHLCru$-h#pDc3-1#es4Bdu?>C98s{mZ}O0#TO+kB&utV@QfS^dM>hqS9Pyypiq24 z!U{}Ot)U>26}2Y2iw%-hqAH+Jd@;gucK$9+xT>73p&)uz+#Nw6tGRv~s8D=C!otk# zkVNH%YfYgbH-`(LJAn!X&8}hHIUn1^KJn>LaeZJ27@Dl0_SCwCthixkqGY8|kZk(` zqnFpQ9c?!ebY@muuh^l8Nf&O*t9^rg+0WX*5qU=f+bzO^btgnMj|_h| zQ1h!43OZSVZBoANy}&iC!PbHg8#*B&iaN5I5(IKv-jP7hj*}Fcp;wjFg|+DA9bvy_ z70=G`f-?x$`=tuST}}2PK7%nO+(U?y+TUhu}D#9T474O@Ba;=SKF4 z5VY;d{77Qu9DEU@4BIewlVgkf{^!%zmRS^J5DUWk+fo}}3C{sTotN6cy3ZrO?^Bxt z7

9kmwK?>4RxGc?oyjDa$TFJ|{!@elTSFDTmP`S^Se-QEX-sn5?!Psu<`t;@Pe> z;lln63h|1e498Ul4DT+kcl6Sv-!s|)`M_!ryXH~ZU0q4un!$Tud;1v`yw92c-N@2r zY@6>w5EaVr)kBA@7xU4w+-Xf5gpQU8wY{GpQ*_SQWuHKO&NSIWF3sSNIxC`vm z!%N}!r${XSW+>mg)whKD9E=)#WPHWwSDCErWD;Tmk8pCiU=tRSi_{ob6)yN4LFug9 z&oP9g!K<1g`E}(D#W+*WM$A>^e40>*0uc%29n*m0^~jW6A3F4j{BiA#8pfV_=tg9C zrI?luS;Zacz#}eM&K!+9sgoPXeU)cq6&*dTtT6K03fU&nba}_TAUBHg4k*MZ%3#mOST3O*n z6&|8%ePI-3T-StQL+j9EY2sUB2-Znhi26ZwOny2d4p|Kfm#`#*1cEKETSb982D?UQ zgdLx|9u>`1xaYB0q+pBsD}j<)^Ei+W{havFmZ)3)=S=;e$iTJjWl1)JPtFsMd+kD8 zUJ}T2;Eu&@?mULG60ZVC5N42Dyb?qE-m%=iv3NB5PF6XNnKZ9y(V#;M6K?lSbBCmwByi8q9DQcoAC?4c$y%Pm^jl>edP;(@wb;CD{Gkhmi zfv*jHho{R>a3&xCFpjL0XBFeK&PSlAwK+^qhBnm*w_#K{X_2^_UDvi3^VfxPkk=9F z4u?#Dd}0^}u&d(lIk8_0LpxX)+H%PV1=oW6Tz*)iY%=TApk2XrDxDl$!g?Xbwv}YX ztWR}|c~`eYMX6LYM`@`FOZvVL`*w!UrnE1D-ws^C^qQ$qwG~&9ytdvadLDPC+lBTz zG$u%5`xE9S!%0QRb!GU8smq#-`V{qYW%x<2(2sA9mql3zJ|#|;)IOF&L9T4>O-%s< zw5trqEHZ-JKsO{zO#5PA)<9NNg~=R4;iTuE)cikZ);Qy2t7AK<8O4`FF%^;ul~7>p zzEQ~)Cy8T^Fsu`@Dz%YX3B=TRjGVDs;pR`?(xwfj-OL%w43U#WNwp1XSV&#(dMMcl zM>as>q|>KBe)vVht%$JjC3V8BP0|#kFRV)MG*U%FmZpR(8wT-I&f=8z4VdOY-Ql&~ z@rEe_s~dfh*2d5d&8^fcjvgV|PZ?x&&y-z;vZKoU+!{28vEAB zeWytv9FHVogo#yaSH?r2)YO0dwWU>xG{!Qq!FdUWa-+GqaZzXS&LRjZDghdGlKY3S- z3JPxl$79{rS61Sv2U&e8s)nHq$G~%=XjAScg$zjqX@~t8W3jueXW7k4-X`V!pTa`? zH^s)DMk1TH_(EyUf>>EW3YIcv)-WST7hvvTpF|(mrKF)zQNSvhrolx~yo4$M({oaFlT8 z_dPyPm1=b7CQQ=j>AnaKKfuokIt1VAMFGP7OV2TF-S&6F!Xv_a+Pt>jWP_V%ypS*; zSv6%AQx*{O+-DQ04IKae|DrX4Ke0U36YZk9kAA zfA$?qv;&GqO{w0o4lJ7s58ER1j(Z5jO`zHHzJXvudRLqQ^s2vZE2+Yc=}3?GqAHe^ zLnP>bpS8~W^iZj5L)!_ROIm`18`{FO2jV!ljqw{%Hq@n*M+s>m?~r9WalD5RpRa7o z&@_c5f@i)37(j!@CNWlf2Ad6sMtAT8)9AMSp(+;OfI}1&J;|{ zkA&8&g{UqoyiRNIXCq6spjL0SGw>tI?FnU^+0(bNkGB7j*?-&{US-f2b- zZYTH~?!>kv5Dkpc+A|tTJCx0~J|4C)e2HZAI6`byr!6&cB;Hj{+-L+8wxaPG1Le>t@&6;3yGVu*jnz#wVmZU{-}A(VIh#f((q3}ng#Sc*NjwxCr`q9 zVan!#=?P7(jfK{$i3yVgNGa|n8Q6>{RABQ&@cb$Ee}MyHkME9%_r8zl#2nHLtq86| zrYHMx+nO4`9K?(%n;SEdkJ2ZBT>e{vCv+ru?svv-R|5(4aV#f5qqnD|<*}qOfDVbu zRvV8B3&KKEsnz)Ls}i{5D?9A0MA?!7QT7PCN;dH z%QzutYkwvvv{YcQ^R7#&_~bj`NgT%}e05B#Y{?E7UJ_6SiIJ_f>@sn!&^SZske%q} zf$E?qg2^Mqdo$Fl5QLs{?8%0ND@Mm*@V*IV2Z^H3dv~pje8*&IhP@6-ovY z!%MN>%dbRMu1Dd>Pa2KbrIT+ROmu4j*@W^!fj7Phmmk1}Aa9e!B?pc-1LW}7Koa&a zRS~OVR%^_>Z6$qQLpx$@2kcr-YuaRUv)=IU>Ao1NlXrK5Vfw71?>Y8;y-VcWll-PA zza#T24{KUM@|&+DLq{%Fui^@VvU(*xa_*qPpii8bH}fs@g&#O_KOVKSn?j*bd?u`p zXZ8=lt;=0lFH$HJdqh}BTF*xI84wWGn-Z5op@h|Uocm#9Nu+>dt?jN*d|gcXe3_G! zCt1MGm8=vBC9Gb7qyt-_DdVt#P1mFnJL;#LJ+z6PBK&!^3u~wr;Jz6aR^_`>R$3c&-uKv2J zy1IJgDc+E#sh|BZ%dY$Enq=2&cKsZUMr)OhLZKK6QBAUImDXctexs67C=`8@)ik@3 zv>h9jmO`QEldQt*I;D6_RcZ=_q7SkPQaY9@IfbG>jBnKq%>LlGcz3EY3WXAuYee4f zRX{2<@UBoOVL7#~j9bTzMZKuXC=?1;WW|YF6%ncw6$*t5vYH^%7n-0hp+cc>LRcFi zS!o`YLZN82ib5cp1g?l`>A*9j&>SpdjK5Xg@3 zyuFaD_S!27g`$dF0%Tx(fqdRdN>&<{C1g@~VfDS>!IyEO|B@iJ?rcp$HIL}#659#Pps;zP`D>6>IUQxLl(lgmDsW(V99IU;Ulg7G2q^OUR<3bnA_;yF8yUnSwWEyxV9Aa1_YTFFYG zxN!>$;#7u2W`f5USMaIjJ>2?MXR^wOYOboFP~5161*>$%no5LZ)#?fggY1t=Rtm+9 zT3BFFee?KnB$6u#WMy1UpZMHYAgi^ifI@L&gayQ50^VOedsR7GT|uy{s4IeotW3P> zpxv)f+!$d&ih@m|D!OY;t{^ps%RpBG6$;$AHldv3)lBRy)fCb$Yfm9IM^_|74Ft1HZN0^Hg4ufWb^j3N`o7 z>sB`4JIw0G9kgp&@$4g9<_yB^wWU8mzZx0bL;L-T_8$uEKMo-rQTpbxPQDhtdEMnV zm%hcX(V;^@hvFgY5Euy*%gKl9!0e-QKV>r6T5W`&p46UUr6ncTkrOXlHne9ZI5j5$ zbD4VZ#h@%Km_>I?x4!(1nCI*&zJYXKUfF}8i|@YKlEuu`p*_fd((;ak)8qt?6ED+v3s)OR%b28xwRvSn%D_w3(G9 zqS{&1p->n{IzPt}VePnNC0K;3BCdc%SQaXE1{DmRAOx{u5X-5>s#>MpV281`hCo=B zjyHR^>e@A72`5cffAye4eoed&UY|M~*NqsL0^D4`-vno$%M9+> z+XS5>_I_`znO6l?(?6S`yUx8jzh|gfz@W@whi&&e{CwZDzs+lw;!j#~twUu?=?At= zf_GEM?lBLLgTC)N=${;|I$JC+^EdM)=aspNl?R)Lk8Xje9_p$$I8?N1> zajezKp`sNPZZnh-$ylPkC16r(qMmfU?reE)mw>r?#m_!b*q=g;jKJ86g{l6(PTo zqI;`~`r)WNB)?f$~OUTon2rKGZ4h+(g5Y~x7s#8vQfk^fXrtByQ*-_!XjSZq8 zOuC6cHlbjAtyqLr`p_j@wShfG++@cjoVqyCqHAFizjM(OVVyYd;;ceCBCHkj`}S0& zCy@O{D7%14s9ft_Aos8j*>L-=D_5y$a8ejNt@sA)3^cJI&<&;IToD$5M69Hm5R_O# zSko?NYNo5?Taew3suP6C$QMqwiNKAtAsf_q`M@PB#uECvBA4o3*iMXMo2BrDgq#aY z&o;itHn8vfZs~nLy^a%81?5=&p}M)qWqw;_c1#~&tlR+7H#|tS!MLI`NYN<++gDX5 zR5_E4;fAa~j&1KG6Bd)K>I6c`dpR-%YJT(05qbEYdtl!gTOyOK1@do#%M*>TWdGt= zcK<8<{Rfh;zSIyFCb{%jKBJQmK6tU%AKSLJk`hM+Wc9A78kqf*0eV<58m)%F84VZrJJhpf)0EHjzEmatOG1=?&O zb-y8cN|l}B;(#TTkm%KD#RCReC%cCl=omTpI_57IgbmSt$->8YAwLJy)K)zm zHxShXmgz&m2h<%mPjv@hukA1hi}(kr$W}L`-gc$Etfb62ulawD#r9LEaDR>5;M0Hy-4{#m`}AXSVscd{~2xMdZ@2}Drj-?s4D`4fY zNd=pqz3VIxhz&ZU>%!OQ{YKiCFb*&l^$ao2ww7fR3dR99&9r}RS=Swf(elBp|sVe#3yV0R$ECCm;x<_FA*=ZS2j09x(mHsKNCz@pD7@+!oe1q=Z=+aK18xAk(TZ6>snz4Ls}i{kRh5+7A$j) zTlgZBO$<74v@DZ3rafa2TFe-*4_%j1k>opN-)7_^GU%}tR0n;{m^^H}_W*ijgV2wZ@szuSkA#Ms&ilxi9XN_Ul?v7<2Poaz zlUWA&fPLtp=9MiOa0Xrs?VjHfSrsjcg8aDNNFF-**ug}%Wsr?6E7b7DM`rlJj3HBg zio_+Of;D5vA!;Cra~3-?z+Po7nf#i7c-tfQeGT6cz;~Ec%Sp{Q