From 3b51b193bb30629e024052f91b8d34b1e104410c Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Mon, 26 Feb 2024 10:57:28 -0600 Subject: [PATCH] ... --- B4A/AREstrategias.b4a | 2 +- B4A/AREstrategias.b4a.meta | 2 +- B4A/C_principal.bas | 5 +- B4A/Files/usuario.rar | Bin 0 -> 17382 bytes B4A/c_datos.bas | 98 ++++++++++++++++++------------------- 5 files changed, 54 insertions(+), 53 deletions(-) create mode 100644 B4A/Files/usuario.rar diff --git a/B4A/AREstrategias.b4a b/B4A/AREstrategias.b4a index 2ef5619..0f1c4d4 100644 --- a/B4A/AREstrategias.b4a +++ b/B4A/AREstrategias.b4a @@ -82,7 +82,7 @@ Version=12.5 #AdditionalJar: com.google.android.gms:play-services-location #ApplicationLabel: AREstrategicas #VersionCode: 1 - #VersionName: 3.11.07 + #VersionName: 3.12.27 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/AREstrategias.b4a.meta b/B4A/AREstrategias.b4a.meta index 89cfb48..6dbcbd6 100644 --- a/B4A/AREstrategias.b4a.meta +++ b/B4A/AREstrategias.b4a.meta @@ -34,6 +34,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=CameraExClass2,StopFaceDetection,391,0,c_datos,Class_Globals,0,0,c_datos,B4XPage_Created,159,0,Diseñador Visual,gestion.bal,-100,6,C_principal,CreateListItem2,221,0,C_principal,l_cuentasportrabajar_Click,196,0,B4XMainPage,b_iniciar_Click,110,0,Starter,Process_Globals,10,0,B4XMainPage,ImageView5_Click,166,0,B4XMainPage,JobDone,134,0,B4XMainPage,B4XPage_Appear,88,0 +NavigationStack=c_datos,InitializeCamera2,1652,0,C_principal,Class_Globals,0,0,C_principal,b_enviar_Click,549,1,C_principal,JobDone,530,0,Main,Globals,24,0,c_datos,cb_socioeconomico_SelectedIndexChanged,1640,0,c_datos,Class_Globals,30,0,Diseñador Visual,datos.bal,-100,6,Diseñador Visual,gestion.bal,-100,4,c_datos,B4XPage_Created,153,0 SelectedBuild=0 VisibleModules=9,2,4,3,10,7,6,11,1,5 diff --git a/B4A/C_principal.bas b/B4A/C_principal.bas index 925cd6d..8d297e8 100644 --- a/B4A/C_principal.bas +++ b/B4A/C_principal.bas @@ -546,13 +546,14 @@ Private Sub b_enviar_Click Dim foto2() As Byte Dim foto3() As Byte Dim foto4() As Byte - Dim Dirp As String = File.DirRootExternal + Dim Dirp As String = File.DirInternal Dim Dir As String Dim Dir2 As String Dir = "/Arestrategicas" Dir2 = "/reduccion" - c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1") +' c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1") + c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA ") Log(c.RowCount) If c.RowCount > 0 Then ProgressDialogShow("Enviando datos.") diff --git a/B4A/Files/usuario.rar b/B4A/Files/usuario.rar new file mode 100644 index 0000000000000000000000000000000000000000..65338db1f84aca4f2e39a97fd21d15a00b41b376 GIT binary patch literal 17382 zcmX7vbyQo;)5n8Daf*8(xH}Xtq&N-k?(XhT+=CP?6nA%bm*Nh^9f}u!^ZedF?#VgH z-p%gp?%bLAey*~S^Cw~?7=Q|`O&Tf;0ulfb1|}*z2oU#ED2)*o4s|>X1|E9liV-ev zWd;HOsBSK9M$T3atd8~;AK+kr+)vLH*sj1tf)%CEKM;Qa008JR(vr#m0E`UuQb0z8 zeiKWQ-39$1as_F+syLXtdKfvI0mMxmjLj%z?2IhTl+BDxy_`nPgaCjq=Q5Jws-CN7 z*{BJ+3w{UFey-Ecp9bWJjkfy~0fSv{cLZvtQ>h9mf;t87(2;@!!&r^vNKk>2bZ8Z`CV!aK*TE){{T&Z;n*A6b- z^1qShqDX(y3Nt1=Q?2^_?rpDkelp}yq&M05{kfGv!{o>JKQz}@R;+7>8xu$dr*Zdn z56>^v#qkH-m4HkVn2DO46hBc`T^I#1oG}1lV+8;D-b<9t>74pz=S0ZX*UNU2&hnr3 zTSG^wkIfV7uGn+5bgwyltX&buDoNwrzdMXwq^5_x{V%WmEV_Em;HsI0r@sVgJsY6B z9VZ~oNo<~rA6UD-=N{CANJI~HCFVKF!j8FjVLa>GTEeD5Eu_mn6t=Vew8}${#zq5p z!bo@=R=pS-7e-d}Wbat+roqC&MTwKa>V@RW0NhYPm#1)Vc7D^Sx6=ri8PANf&jY4y;vwP?xxpzDt8JIlsYu&to>?GAT^j%R}GAaO5L^mJ;O- zJ1(P-$9jO(IF1%5^MF!B&YeSN>8<3q^*8t` zdmF+*2l$O`Zw6Kac@FKFWCzkfyMl}PsnRjje$x4GLPT0I(a=)gsTH$-JtgzUFxIaj zf%_eAziEAnw8a~?e}8Xty?R0pSo>%1<;kao$Hixq#O6>UkN-C$tQeL+<}5V>ll|;U za@=Nb1A}vc!P1x1Q=le~~x<2vqh)q zhc8du5A?7?>2U@AR*f~Gih_f{Aq|JwROlU?T<~6AgqQx~^j)j$viUw+P2=$hzk%u@=XsZB->#n!>=azSOX8_`Y@c%h-Y;1m+E!_w|JYl{*sj;u3jaSV6yFP zVRW}u51n5dM>A?S%}9y#zvf88@t%$yKd5+u5&@C5Loi+exF1C5QPOY+g*E-1PBbqf z5$P)lF;vt)Au+>@&ciwr#oZjv7un5S+H@?fyUu)#nunLNbOhB@2)!WJKXhIfZTC7i z7z!noAJGYTSTPt{HN(jT;v~omk+RIaN?eu;mdFY_ACkfGX%K%P;3@qf`jB9N$H#mg z5Sz_Oab+k#(60xZ8fe;IyYMUXU!I-kJMOsT; zoZe%;+!_lOG&L1mUWs&^!Enierp@_0ET3ybhRB9J*5hd%OX%{7ZbREIimt|*o$+38 zKGwHxY&P4(h9DK$PAF#$!fC=nHjscU8eeBtLv|KS)q9ShG?`BhKi)kHH zamX0b?i2}hOB!r0Zud2<$9ZzYUG8v zN0IIm{<7kcl5?lK@Bb-y=?^2!s3J`1^pxsr6V#t5_6vV0bxXk%(i~fOp;>twdsYX* zj(MYL9HTMPBauVuJkKA557xu)(7ALVJy zei9qH3<@pa)Sp(ZcH_BkggT)jl!OvpiFD6y0_c{u`F6>Q{v+labelc!ifO6!DBDVE z*r}#^X<`6@DOcVScS+>9mt<@Hm9~_{YKt}HJy)J6F7P5Au3Oe+_fs7~x9IWUCDPd6S?D>n!0G zen{M`aP~q~w)9&px@>E3O>`_~WoJvCY%<^%jBHA|YU2kp{N(ho0<;9^A)d;;CwG|x z>2SOui_2+~7r$(l`v^-t7MuHdWhs9*!=>la_&v%Dl=#5iE_~?8ARrwh`UT5l68A$_ zenVINLu2V~Ydncu?w%fv0nDKhgFR7VX>gnfAndK-h%m^IN|Kc98Mp$?M)!7vi3O+n|_{#%TEr=zo5Z=}x-eYnr! zgQeJ#t@Ll~ldY5jpczKr4%rRoYVSzbYRijGK*^k|7LBq2q(ET%yfkG45yvUHEMrX(vADP6N>;Bpv z#!gHxP|acBe6v-WJfRtofYs0zr<}v$@AG8&cC*=xA9^%7?6A_|U^V9j*)V1Ngd+9@ zOeOYMfi#9hlB=s4SeNP!E@HKpTk}mFqJ)t~J~6s=UsQZ~d0DwzYh4y*jNBA|;nj4R zd%V6YZ)t)Vt%8A+Efa=(&+Q7F6>)j_fxoEPjSD;W35EWVV{9OVlgCL1MY`cp47`=^ z@isZDF?2X#L0sEDpsn-0?91)Jp)Z}c!k8+*40K|Ub9$T8p*NF$rMM4q&S}vboKmH9 z8%ng$bFD9(5q+Mm7(j~-KoNgMqS1?9;CL2Ql{!Zy2_!YU=8)|YmPV9KFXb+GwY%gAVAQP(OeBT8$tdmIgs)KH+q)2O=I9XPZZ z6*#KD+ON4zBgG}_JTon7&jugE>6Kjh$g=Pw+>G(3rcp9UHcU(Ma-A4?HQ zy}(hsNxlm@+E*9hneu2rn$QfMs;Qs3vb@@Ul=RtoHXgTg4>8F_r`;Br7urP^Ir6q= zits?Q@+VD!he+tT;mw1fiy!0b^|u;y*(+>MJWhzD zCQh+M9t%6tUS#Y18@#jnvgycmF38-|cXJ&N}gc2i<#RY#+ ze9gLINpX7ClNYA8hzOk?Id087V*(cLCJ;ZbF5mlrOM-G^BCD+0nh1(3w(MfQl~M5- zjG$C{KENjXg%lW*UT^>BvBT{+r2$SW= z_obQE+^+EY^-rkBNPGb|ftFgH@9#44r)rvN{x;<PBt(Jm=n+TS6pzbI+q21c zf?1iQYAvI_$UqIU_dXiU04+Q!N(21$PM8TQ|XDX?U?ZBB}c1th{;8jm@>Kr z%YqCp$>rqj&)Cf&*1X2N@Z#cUB1_R5-8eX{;l?eaw{bF2tj^H1%J=fvR$?NIl0IVN z&ghWQW<-lF2-tmZI&HCA@fm2wvBt4pjke`}iu?b4khi@qZin(LDpWL*(SJx@wH~_A zAF_K#$;v9VUw{Tj!rlb`H7o|nJ5Cz}_h!XQTJ~0-$)66!%+7#4{0|jPHq9PFyIbx|Vf)Rxms>l+ z+=Q3ETA2cZV!OKjiH6G!iA*V6$2luGCN+lTpOs~vL08~Za>~A>i@)jhr(CUp!abSE z-4)%d2@l8y=jjxu&&XUmC7i-&-$&HPb~5vk&Czks0R>WsNM8wj9g$r zyRx)2Jc2VYQ{!$>?AJP{;Z)WhlgX)l!j0Gn>487GYlR7#YVF zu!kg?Rm*5OKl^o+a#kqy)ajz2Q<5ITdIXCo_v`PmR?#fqGbJ%j>b$7CK0S}>fA7UV zrEa3eUv*AGR65y^?f2kO+@aa4E4=Bd6oQ2C3RWju6yK(9wm;K5!p5Rv&3zOdLpWi zL(!SgB=nHvZ@CL)h0_))@f7-^?uNcnh}W>9vTLHP)fTaHA_>fBFZ`Z$<3UBk0&*Ou zg#C51h%Wzb#1i> zHP5Bo%xV$4F))ZElMgnJf@Lj9Dh0!&!^b$f91nsUd0PDa&+-0#1(qH2 z5laY*+9O)Fq=|EQ`BWawJMMp|E^~vt={Km31`vRtE&nP^*?>%P3DUnaF4n_j5~H{r zMW4;zb-!nF@3xJqMXv=%o6;>UvEFQ!XqW^FZRGV{@iRTZ2g>(}fNlwQf+0h+GZN|c z*d|$AwC2|RQ{IamNya}Lo4+;V(>Z%g%Cxn$$C3->$v^3tW&m1o!0xk`D0c?8#2;-K zKi>Pm^Ir#|t?m4(Oc~dJA5CS5fTsGM%{thPb1c@?kss@m5T&t`os9VoyoyDgb-WH? zhaHCz*rNtXW)yfUm5U6uHL~}VZ#<`3X}b5@7%D#h)K}ULA#Td&Zh9q8-Kz{duAMQ7 zc@g{j(*h z&;>R=6@Z+`ZL$v0Xf)o`$sKe=mB<>mSYc@18_Q~i)Lp!a6HKe7?0>bkg1tctXC<}L z#Pr|h96tyzmMBISdTqB~AxiVmS6eJ_SS0nylo5}wStD7aLh{H!y|hdTzO>gCvn_4D zS;M4<(haMsN#oZYr*EE{Y^l;rxeN&GK0O?j! zYt>mVAZ*nTVNvo3AR`&H=$8rWhN+(J0lE4~9Rg&VBE$#sPD)-eP=GGXZ3djlA+?mH z%Z&H^CDs-_GGCb~QbXOu^MAsng2#h1JAP6+2!xqDLf!;VYdi9Q+G`Y_T5w1XSCJorjIS}4Hd-WTE_s`^VR zD`qy-eui68s$rUK+IpPUtx@f0zL%x2KeXu3meA<2zyVpwN6a*<8D<(m)?|+t4?}qo zqhQ^c*U&&varT`iwEhM0TJ8^UuG-y$VxTop8LM^rZyX0qveQFn;@1oJPcj?lI!X)V zXzZp|T+Jniu+rxA&hY{Sj$#uGS!QP=mDQBi4ugsjSnxD={WZL2SrlB>QWpi%XfdZi zFA{H_A!?)nt0{uNy1B`qi_`RMm&MvS1Y$1O5l90wVSfCB%L*G4*W8z98uRu^zpi80* zpB9C)x#nq0!RR~!sadxvDP8M}Xe;qECG^jwv`)wd=KFiGImSZvzJm5r1x9L?$wci5 zrgg1fNBhvwj&3s<<2KJC7GlzJhE*wq)6nEghC zfmrE(z)_bA?vhmks zlmmc6)Lf*^`9ph*n4*x?LxQ{IxvuNa1pp0`{o<37tq-O(i?t&)T6{tTI@txjLbIJ{ zlT9mXSt;#v{JcbmPWhL7Yl&-90yYSQWjjq%dp7c6pJn`ou3!H(OjhkM|I~e3mniko zcOvJ)kDGFrt#iIu#S$CR#-_JN{Y~QtS@Gur;jzsg(C!N9dr$rQJ6#o_<=$nc%gO94 zH%ybCWttmX0_am1w?cOE# zrd25dIA<2@y=`v^+plzg#YkRcxgZ|m#3rOo_CspZOdz)sB(bc z@{GC5ye*mT_H2Bh_t`D!?^D5%%iU-zUFWP2gJsVG+V!Uevb$nl6GsT35Hr0`fp6G7 z;?@OT?sLgP7=B{zntQfxjl7QC5*L$p6?)+JFIff5?&IzX^Aj~K=NmpG#G}7b0y%%< z?76eOlY5IQ4JO(TVj4DsZ=3xaF*~=n+&PD!<%Xc6&I7`?TS+2HGraR6bxM~}4%t*G z8*YdRDbfc(v-vciAGiuv|MvYZucaPh1WP}z=nQE^B>4y+RBy1drjOVDvt#!U81|2E zZGO(+n=1+We{moHI1pg@xlM2^W0?33*`ic8y~E7J9vKIOzOpwDnHQCd4<%Pw|LSSU zE_$eC6GZFEG76>>XtuW+M?{81dQUH&JxcL2Bd{Q=y(z($+A;n9Yi`o+V^KupDDUo?MYG?ogLbBFf<1fOiY&Mf=+e2w zUFX#PG?`C?8s%aVae+f*8nepq=uM;>lYAFtL!ZnBN!)S@%3GJ~V5~_}8xmN^=3f+E zV;e%h6zj|)%C#tU(=1{Ks#68%jc%}28POas=UXFC>KyLGdkj|!BDuD*(sBvzZL@F)?3i$@Tv@A<` zpRDgbp{bCV;X3W9Z1YLMPh(j?lRk33A}Vv6hBgH57O{q(2CK~(Ll{1-ihI@|KjPin zhm|f^A3KRI?XqPYsZmW!R4i`rj>eiy|K{rXmmDuCuo+$WXtg3ddUD*t+Kas}Vl?PlN`;Gp) z50o&-)Nw9d#CJXi<*J~cVm-V8qV%$|pcpMy5NH=@OHX@d!o z`VM1OQ&*k1>R14Q>0@Gv1!M~Q?t2re{L}AWAO8J|d;SqXkxT?03nMI?!`Y@%VGgE- zF{I(hK$1yqZ1_DS{KktZUTxZ5n>EGtDhe-0ukt&Y11y318vy70TSqS#6A^ZEr})yw z=E=;l3T8|-L@B9d6#wm4x-V4a9z<$uvD#&hsb=xh{EZRqs<_H9;mX+nQz#X<7YGA6 zV4Uk>Csauil>5wgK5>Xh&qdG-Gs+zK^socV=@|b}@Ey&L8T&ADN=dK^q7QegjFFo( zuiG^3?awv^{sQvzneQez1=*j;pg%1CEVs3AxXS&3BU=<<_Ej%aHB~xDM zRCYZ=YGM6Y&tRB1iV56)7^k0e2^}-V?P@bRum`Cku%B z*4i`9g(F_rQ54WBn;YX}zuTb>-ZFN_rOym34PTxJ(y#q&6(#5wr>y}l&=Q_$jpZ5- z(=Shv#|~AGjB!pKB{dyyDX4Sg^5cHDlMI7z9U$Z3waKJujA75Yy*Oi% zc2QGj2mm1+OLytZT76=LxMJCfy@s2*-mZmxTxeeItYoVG)Zk4O=B4PIxSQ$xk{E8n zOn2-hGcAMfl=@s?cp5}c5V`U4RBX6^!|qmR2S1Nar)AoMv6DjuC*j@g z+>6`1!({D?ly=-;w~WNJjPh60G<>ECLotEKZkKG^LYC3>bagTz{mnYDym_PSws zW6$uTe_i6bM)nv^cp|+OeqEG9{U=3ZwtEoKCah%b)B;AI%)JPeB+nHb7ZzDoT4GK2%}JktFpk_nj=X&$L*H;4 zRg3?_4Nzj z=?D@(Bp*7Du;ZG5h6O+xdy(TuwO3`EZg(b>U5y@qJZRAO74{ZL?J%i4yjdlYtI->98%ccZ#ZgKm0VC8b(Td(6Zr5jJ#B%0 zwI(9M4)tNJ%pR#b%Y0KP-h6p;@H_i2DbCiY3VV~~GAUMPHc@hhua-KnBbsuB47+MS65y7a6o=qEcQsKW?8bA#T(phdBCB%H6WRQa)=%f2r(sWeTI`UmTp=%hx%nU|! zxwVi`324c`E<&lbOk|v6BF;X%B0_Mx{PD(yA{KPv{{drBU zLXbgCMuqQ%@6rG97uc=P4z%ZaPqY~ZK#KxmixTUmN#ZeU@~o+Yc5Kd~K_lqmVA%X7 zesm?*gu0dueN?b?_g-D>9r^FMh;`^Z*sTSz1EG@m_SY=8kK;1DD~jZ)`gSJ0{kZG$_3mjM$R_3<4SHO0G4)P>CLU_@IO*0npnq6!Wk3*-a1=OJy_}xiH3ubtf z?Zl-m|D5&G7rq)FUR;=O!EA5GNb_n4!r*&_!(Q5#Q# zWr!NR=%W;s59oFB+yxU{)oOiqBrgOGe{WOM{}IEQ*Aerc@OqU_*TH9Dv>vBw{@B-S zDgCtpmPM4Zf3{28i!c#-o;D-XxEe~jSqIFzoI1#1q!&8QX%U-rHd4P{%mhF3Xy+j# zkRk_r|H?Jw(zT6REwgSKQz*-GUt2h@89D#BT;J}}R{2VS>*$>i1qX&`A5d^RX>V7> z%Gs(6Rid%$ZRGW8oci+aA(=6tVFh9&wKfOtINx1D#>!g%sy6$x>ZP+sT3*XbaQ$H? z*W&asiMgi#_?<0O2}^4|rpjs&2}*prEeXWplc^NGb>Md*i!fiF(0fF+-I3Zq6axRW z2Gp$bk8O%8?4xcf-NwOs;F1g*@0Rcav_Fy-ew4Ip<5~0bMVD@pyr>np**}rq23?}x z{M=r%A7om|9}(Z>bcOGkaA=L&uj(MBv%mvM$fE~C%v4c1Q zO^Q$PdSu*-TA8ZN^4Ta}FTkUo^)N!PMukqyvbv^;?JQ2Lbz{9r;Vd?5GP9U2xqGE+ zs{22Mey;Ikiuw*vzj{Xng5P(L{ZXzbF!(<;#qCZ5xz|lU(nEn85Zjv{V#3)3io1&&P20#Z z@@m6~77ja{C&rU!QGh=&yY4wFy04fUtv4nn8=HLI zpS0K!1%xc4OG04*mDljdVG6zQ+S(}*j^m?+sbq0xIzwUtgS{>D^WY*(a@b#fhQ|`r z5i^~ip%oZIa&=bkN__vD{uCaEgYE@@9@te0&-ULM0;{zKyaxlzvg-$#*lhA2+yY=6 zpwz*1)q9isq|du2G|jvkbEj`hDBbu)0fG$%_Co$xWi|JP7xM}vS_UFgx}t(8!tQ_Z zrFx&dT;92#&*i4^IzLwu5?lm-;MxcxcD9O~tQr|+1w#vHosz^|9wQEEr&+5iMI&oRHvulC!U%poopH0bn}~!OTcBCZz4@7S4`S9? zM&6&$XwS-!A zKu#Zbn8mp$z_JMiL@alwQ&_beqb2W$$_xi2EOOba=NPh>Qg`4Ld8DiR~ zN3en}&ABK9S6mu6=a|%OXHavYk`|hThQPuOKb?z*Xgpr|4Zc4Y;loL{rTgUHxBR^5 z3a2YAwHoYUs=?q`=P(5g%2LOquMwFqt4GC`UUUbpbW3)KcAPN$^(Xvr;e>(gmKEU; zx&Xc4Z@x|Zuj+3Ci|fqflIJ}%V^D4Lp1Mt1FfRIx7RXa%i9`ivt*EW4sw8>FQAd`g z5E}IFFKAf(&S0s4^DGF{e@m}jnZ?BSdMHJw$HA&%mGliNFR ziDrU}oC~eE5^$LwP3-f4VqLfOCTo|yf|NAcVNnI%;}2{&k|;%QelU4;BEuwTE05q5csHYGB1>{RdoqY}!@zZ;kCnzW7Xe+z_CQuYsj z5`S14;s;aGV{wSTk0!SMf?VMv@veMM^qsFluGP^MtfMAav7;k8pv@fmICKyzS|#){ z0!y6!37P7Vr0m>xfLJtrZF)~<;5y|D5QhhvkL#>c!GjcrdI=II0_)OpjogM8GXhG#Iv8pUN@ankEcdG@PjgW120C% z#DCHh&#|jotnUnIls!tFA=P zWCnpm$526T!hQ)S zb$RHBW^jOZ7}-KUpPBBT5{1*&(8X8q^>&BiH-$vB*$qCX8FIOanrcp@^2FEM1DqRo zn&Sw0&mybNp?q28m6i*I&3SkQO2Xc@CVm$NoT(IxD3n2v zluO{Jm=m4I;1$&66j59Cr&xvV3zIyXjH>giq}CsgCj+t>5JXuUW|BJ&vu+L-@6kt`NIhMc%=S#JpNjgPHd{&u1y6 zk)Yh<$SSQicc~8t-Mj#X_DwT{jFh3XDmu?Rc*;`ztZ^PjD0a>=O8gqyF-H6c?XV#+q4D3Iav06^1UcM<9<>SZ<#|7@U*-`BV0jw#O=926OGmY!FSm8e^YS@DDJmoxlgdLFxfCZ4&ZnSAdy z$0`pj#wS$pG;*#Ato|n=Wv1`ZunBcuD=@eOBuHD=)R|hlw~XdFZ=HViiQ{(S#2$p} zz0C;d^@UBjN|%JyQ1VYDqlr8Xs^Et$LL>R^l7(U@MQ00zdqZ{ALG|ASbMJ}5D-2S3d$TnL{AO_{m;DCA|)ZzG; zj+G)tHWE=L@zL^n728CV*G3B_?o?T(l8tMLzBoJrV^>KBD&+Lt@Zc|CV?e1ki89X{ z;Q{4og%@cZ-NM+Bo%AiR!+iCrv16(rJyr9@Y9BYSw``8P1^kz;N+wurtbh=E*ZkY1= zmxU}mP-2LVjMhOC@7%`=%Kdf2{O=aUiGzEFiI`>jDUAlu1AV!%R2B9L6G1vX-O5k{ zXl9IU%>y$z=Rxd|89G^Eq=GtkN~eVA3O7(rMxXe71qCOblaA-Lk-f42E}Rumf6ET-cLNTn zRvXG8y|Bq`7U_~KAgv`@PzTvyqrreM#cZ(TXz#ila6xVNg^hI*5y}VoEx4bnH$E;a zm9oM^c8C)rV^$*FA$o}W@3{m-E}frBglBkEI$j^t{1S`;(bS2)2~)~^RW`_llAX4K zf;u+a7XOxZ9vXZ>qL!MgZ?nx^POZE=>0DcWM4PWzxSzBqEv|NR8fd@my?I&A@UuE4 z;Hyj*K>fWkfYY`*qf5O`3m%NaF!;vry-PWQ3MqTPWTGpmQbZpDD ze*{{Qb;1)%_|iZQWbyb~{^%I3Hc~{q_yy3~6QsO&k+l3pVf7OOT;V8LZ<+W@m~nou zQRanKX#I%?iDO(pm*L0K+>OY0rwU}+eO9AVv@gf1siDdVE% z`X>ZaWlAgHYpBY=g{Lpx@rk7yn}0yF_sehj^R;)^xX1b*9It2fj&5RbY-NUQFBekj zO^46J!bp#h8gkQlQw;J5sFl_*nhGJ=@M1-MGK{2!Er@1+=m*{C2mcAGR(puhM)OIjb~ZW{rnttNN%u$ zKW>MVU{+**gI!D-6@6F)n^5|_05;i|gAOgZ9|s(_T-4s=X#R?ME63Jhcoy`W4oy>a zL11&xZhQkBug~#9Yvk_uZoHC?phmiPZBz{}#lp!>q|Kd--+CN&rr~^N9fQh*yilvHPAA6^9`M`vaT=66296*M8lFeTdvyjOb z`TJLUk)Ly!mMx|orfm3U*9M}siB=gX;4fCHk1m+Cv)LXx{ow=w{31Vm7NVE%Q4I#A zzME)X=G(G1*`6ZkICavHCzN_Xu;Y|Xt{Gxp&PZ3#vWt-QN!&J-GV1)Ly7&6r=ugC~ zl)za|-4E7Iwo~iXCHmuwK{55`<<_lS(V=`%#TW_cK?Sg>oZyoWV8kmQO+?wx9sgc? zS0iqsp;)EKf6Qb#mTZHM?)nuai9Wl(5Y)$gvLW+nNcY8PVmAI^(jv9M-9J!y#Pv5J z21d3k2Vy`-?U?Mfxc+VBj8Q5JRd#MMTu8%KiH{CD__y+OsaZ<8Yf4PD z{RdNCJf2Qdti7S6ZaI@xsh1q)rS$*z9>#4BX*vlsLUx#MRF3dLTf1naid?Ddv>Y&- z`u7D3b7Y|M08V-cuCU?YAYnugHJ@TvMjXpX5}c2 zfH{u!M8)5*I+KB4l-oBU-Rl`^9)nU-N4=h}*;^$|$K()Gbf$Tsv zhSAj6K5asw!_BcYm)OUy$)tImNG(CIVBYcf`5WooIQ@nswickfE~{*%e4r-m!2;LtrFH)E}%dhv-ZJ=B-tjj$j}fJ2u-U^d%LX4GKl zbLNLld-J62t>d(JxX#*F8)|3GD%imoVn)*8K9B|x9X?k>Twb=pGNQyE<2rnB%a<0A z+0}6!Ra=LH2m|1O?H{`b)qnBVpylz2=7$^qYez|4U0eJXx84OW*MNaO;!_3wyREtT zh-^|#akV`%Xw3)IzDcohvi{W)<;g=!+OO?{$f^$qVT#_W`zcF3pmuCJY4A!u8>^PLADZ?SVHu?=BL*gUmCr(m2020ih4A_V=&B_y> zhWzziN*J63TQ+~GR#`Q?ERT39=J0-Q^Oi%`|qQfN!YAmm)owSQI^qE`nsCn+q zwDObTu;?M1O*?VNI9}9h?eQosBUUwhw(joyd|-RMzP~oAr%X!c5m`I_z02VP!WNHm z7KUyPvWzt}xPKbp%z)c)cJC0bHEn8%{9d zMIEPkcRlZpt}T>RgO_zq1DHGaNXI4GPqy*?FyO}EE1Oq?`4R`9j|LH#ONuRi*>U9= z5Gc#z`GYK7#YmqHki||7qY6HxanePUAy0iX+TUpW+3y>UG?8=vrxm~FOq38^j>+5p z>hJG7rv{GVRkQ6BYr#H&MVdG;;%G*n!1Wx8nxkr*Fl<7gX*G4rCrL*<_Hf*X$6&A` z;Gh9%!h<)^3o!_iF^`f#*njp$NG+b2(X|F|vP^2D10$6ZQo-R?*v87QL^4C1Ape0L zj&D@+)H|i_t1EUYV>r;Za0E2rF!E~6-6_dy!IgtLB8bI|O_ zO8qWr^W3+pBFDA`gdJ5kbm^Xz{~_)U3p}>dP)O(!Lskjh37oMt+z7w-@qXiW|A-Ex zdH0A3o6EW~e$>XyvN`YYiOX*{fnkrm;q|O?sSn7!uT==n@jF7FCcC(EfMbUWxU}@d zB|N`vzv!V+ED z93!<%ODGK9yERRUkY254Z=>p~(gv~fbPc-4ddNXbfK7`@Rqv3{gUs6bQw`b>KT7V? z{PC5da{(F5Z#yV#U2N3|R^8qDbUv_7K4~?r4 zE{cEGPx_};dT-o#_$&_Bj}QjHU-|~om_lo<=kAzqhD5=XHHW`t4ZZz3n zzKIB|L~bTLASMf4GmBUZ+@tJKUa(2{&)%6D>UFqO=>gb3W#w9}a(m2M6 z5dZrdethK*{@c$;u=H_m=hQWeq5;L#2nBhG2)qU>0$x?z0rb=^`>|=7*WKNl~ zIOn)$+rhxlDV?ts=5nY@KCcdZ+`WzIN!}a}UZ6&XWj0;Lu05i+JGV?QJi4QOT|xic zT_;x@>ih9;%E5_SU&=k+<>Ag~y1Uo;TXn41y={+MEK(Z;C$#K(pcfkb$n9ux>_eem z348rI-Qo#V92Zhs=jqzQCX;WVA593 zGZqh~m~MAx4E*~0k%hXmiaw_9%3F=>1})f3`d)0uxdSdVxm)*d(kvW_@0Zb`QC)w4y8`45VuHD|VekyFQYKU9#L~(pJIjyL|iKNpvwND{w9qpAmQ= z#8Ho@F41tl=AC5q%R-SH3XvQxkt{!Aj^6KQbp<(U6aQI*f@7`P-32{S((k>^pHyqL zpA6&JZNS0Y1)NIHIM$Ya1ANTGvHBO<#j^wLrMcT0loU7_XU*N$zeRN4^;@!&dwv%K zC-AugWD@??GqN%GMx2Z7ldAOso{qub>FVdQ&MBd(l_hvHA2Zud1_mH%U|?Vh^f#^& X4KZQ()yAk#;;|gE "0" Then - Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True) - Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, True) + Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True) + Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, True) img.WriteToStream(out, 100, "PNG") out.Close - ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto) + ImageView1.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto) End If If nombrefoto1 <> "0" Then - Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True) - Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) + Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True) + Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False) img.WriteToStream(out, 100, "PNG") out.Close - ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto1) + ImageView2.Bitmap = LoadBitmap(File.DirInternal & Dir& Dir2,nombrefoto1) End If If nombrefoto2 <> "0" Then - Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True) - Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) + Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True) + Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False) img.WriteToStream(out, 100, "PNG") out.Close - ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto2) + ImageView3.Bitmap = LoadBitmap(File.DirInternal & Dir& Dir2,nombrefoto2) End If If nombrefoto3 <> "0" Then - Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True) - Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) + Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True) + Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False) img.WriteToStream(out, 100, "PNG") out.Close - ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto3) + ImageView4.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto3) End If StopCamera2