From ab6bbcf7b927cc9b8f9915c1c15d6a4d83d5f2a9 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Sat, 21 Oct 2023 14:29:42 -0600 Subject: [PATCH] checklist --- B4A/C_Cheklist.bas | 268 ++++++++++++++++++++++++++++++++++ B4A/C_Principal.bas | 4 + B4A/Files/atras.png | Bin 0 -> 3208 bytes B4A/Files/atras1.png | Bin 0 -> 6372 bytes B4A/Files/check.bal | Bin 0 -> 44984 bytes B4A/Files/checklist.bal | Bin 0 -> 3088 bytes B4A/Files/derecha.png | Bin 0 -> 8551 bytes B4A/Files/derecha1.png | Bin 0 -> 5956 bytes B4A/Files/frintal.png | Bin 0 -> 3236 bytes B4A/Files/frontal1.gif | Bin 0 -> 5004 bytes B4A/Files/frontal1.png | Bin 0 -> 7491 bytes B4A/Files/izquierda.png | Bin 0 -> 8613 bytes B4A/Files/izquierda1.png | Bin 0 -> 6486 bytes B4A/Files/principal.bal | Bin 20160 -> 20743 bytes B4A/ManageExternalStorage.bas | 81 ++++++++++ B4A/Mariana_Reparto.b4a | 170 ++++++++++++--------- B4A/Mariana_Reparto.b4a.meta | 36 +++-- B4A/cheklist.bas | 24 +++ B4XMainPage.bas | 5 +- 19 files changed, 499 insertions(+), 89 deletions(-) create mode 100644 B4A/C_Cheklist.bas create mode 100644 B4A/Files/atras.png create mode 100644 B4A/Files/atras1.png create mode 100644 B4A/Files/check.bal create mode 100644 B4A/Files/checklist.bal create mode 100644 B4A/Files/derecha.png create mode 100644 B4A/Files/derecha1.png create mode 100644 B4A/Files/frintal.png create mode 100644 B4A/Files/frontal1.gif create mode 100644 B4A/Files/frontal1.png create mode 100644 B4A/Files/izquierda.png create mode 100644 B4A/Files/izquierda1.png create mode 100644 B4A/ManageExternalStorage.bas create mode 100644 B4A/cheklist.bas diff --git a/B4A/C_Cheklist.bas b/B4A/C_Cheklist.bas new file mode 100644 index 0000000..b3bdd7f --- /dev/null +++ b/B4A/C_Cheklist.bas @@ -0,0 +1,268 @@ +B4A=true +Group=Default Group +ModulesStructureVersion=1 +Type=Class +Version=12.5 +@EndOfDesignText@ +Sub Class_Globals + Private Root As B4XView 'ignore + Private xui As XUI 'ignore + Private p_check As Panel + Private sv_datos As ScrollView + + Private camEx As CameraExClass + Dim frontCamera As Boolean = False + Private p_cam As Panel + Dim nombrefoto As String = "0" + Dim nombrefoto1 As String = "0" + Dim nombrefoto2 As String = "0" + Dim nombrefoto3 As String = "0" + Private p_camara As Panel + Private teclado As IME + Dim fototomada As String + Private ImageView1 As ImageView + Private ImageView3 As ImageView + Private ImageView2 As ImageView + Private ImageView4 As ImageView + Private b_foto As Button + Dim device As Phone + Dim MES1 As ManageExternalStorage + Dim x As Int = 0 +End Sub + +'You can add more parameters here. +Public Sub Initialize As Object + Return Me +End Sub + +'This event will be called once, before the page becomes visible. +Private Sub B4XPage_Created (Root1 As B4XView) + Root = Root1 + Root.LoadLayout("checklist") + + sv_datos.Height = Root.Height + sv_datos.Width = Root.Width + sv_datos.Panel.LoadLayout("check") + sv_datos.Panel.Height = p_check.Height + p_check.Width = Root.Width + p_camara.Width = Root.Width + p_camara.Height = Root.Height +End Sub + +Private Sub B4XPage_Appear + MES1.Initialize(Me, "MES1") + + ' get the device SDK version + Dim SdkVersion As Int = device.SdkVersion + + ' Choose which permission to request in order to access external storgage + If SdkVersion < 30 Then + Log("SDK = " & SdkVersion & " : Requesting WRITE_EXTERNAL_STORAGE permission") + Dim rp As RuntimePermissions + rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Implicit read capability if granted + Wait For Activity_PermissionResult (Permission As String, Result As Boolean) + Log($"PERMISSION_WRITE_EXTERNAL_STORAGE = ${Result}"$) + Else + Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission") + Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission) + If Not(MES1.HasPermission) Then + MsgboxAsync("This app requires access to all files, please enable the option", "Manage All Files") + Wait For Msgbox_Result(Res As Int) + Log("Getting permission") + MES1.GetPermission + Wait For MES_StorageAvailable + End If + End If + + p_camara.Visible = False +End Sub + +Private Sub InitializeCamera2 + Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA) + Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) + If Result Then + camEx.Initialize(p_cam, frontCamera, Me, "Camera1") + frontCamera = camEx.Front + Log("inicializamos Camara") + Else + ToastMessageShow("No permission!!!", True) + End If + Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) + Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) + If Result Then + Log("conpermisos para escritura") + Else + ToastMessageShow("No permission!!!", True) + End If + + Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE) + Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) + If Result Then + Log("conpermisos para escritura") + Else + ToastMessageShow("No permission!!!", True) + End If +End Sub + +Sub Camera1_Ready (Success As Boolean) + Log("Camara ready") + If Success Then + camEx.SetJpegQuality(90) + camEx.SetContinuousAutoFocus + camEx.CommitParameters + camEx.StartPreview + Log(camEx.GetPreviewSize) + Else + ToastMessageShow("Cannot open camera.", True) + Log("Cannot open camera") + End If +End Sub + +Sub Camera1_PictureTaken (Data()As Byte) + If x = 1 Then + DateTime.DateFormat="ddMMyyyyHHmmss" + nombrefoto = DateTime.Now & "_FOTO1.jpg" + teclado.HideKeyboard + fototomada = nombrefoto + + Else If x = 2 Then + DateTime.DateFormat="ddMMyyyyHHmmss" + nombrefoto1 = DateTime.Now & "_FOTO2.jpg" + teclado.HideKeyboard + fototomada = nombrefoto1 + + Else If x = 3 Then + DateTime.DateFormat="ddMMyyyyHHmmss" + nombrefoto2 = DateTime.Now & "_FOTO3.jpg" + teclado.HideKeyboard + fototomada = nombrefoto2 + + Else If x = 4 Then + DateTime.DateFormat="ddMMyyyyHHmmss" + nombrefoto3 = DateTime.Now & "_FOTO4.jpg" + teclado.HideKeyboard + fototomada = nombrefoto3 + + End If + Log("tome foto") + Dim filename As String = fototomada + Dim Dirp As String = File.DirRootExternal + Dim Dir As String + Dim Dir2 As String + Try + File.MakeDir(Dirp,"/md") + Dir = "/md" + Log("creado en promotoria " & Dirp & Dir) + Catch + Dir = "" + Log("creado en raiz") + End Try + + Try + File.MakeDir(Dirp & Dir,"/reduccion") + Dir2 = "/reduccion" + Log("creado en promotoria " & Dirp & Dir & Dir2) + Catch + Dir = "" + Log("creado en raiz") + End Try + + camEx.SavePictureToFile(Data, Dirp&Dir, filename) + camEx.StartPreview 'restart preview +' ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(Dir, filename) & Dir &"," & filename, True) + Log("Picture saved." & CRLF & "File size: " & File.Size(Dir, filename) & Dir &"," & filename) + p_camara.Visible = False + + Log(nombrefoto) + Log(nombrefoto1) + Log(nombrefoto2) + Log(nombrefoto3) + + If nombrefoto <> "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) + img.WriteToStream(out, 100, "PNG") + out.Close + ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & 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) + img.WriteToStream(out, 100, "PNG") + out.Close + ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & 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) + img.WriteToStream(out, 100, "PNG") + out.Close + ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & 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) + img.WriteToStream(out, 100, "PNG") + out.Close + ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto3) + End If + + StopCamera2 + +End Sub + +Private Sub p_camara_Click + +End Sub + +Private Sub b_foto_Click + camEx.TakePicture + p_camara.Visible = False +' StopCamera2 +End Sub + +Private Sub StopCamera2 +' Capturing = False + If camEx.IsInitialized Then + camEx.Release + End If +End Sub + +Private Sub ImageView1_Click + + x = 1 + InitializeCamera2 + p_camara.Visible = True + +End Sub + +Private Sub ImageView2_Click + + x = 2 + InitializeCamera2 + p_camara.Visible = True + +End Sub + +Private Sub ImageView3_Click + + x = 3 + InitializeCamera2 + p_camara.Visible = True + +End Sub + +Private Sub ImageView4_Click + + x = 4 + InitializeCamera2 + p_camara.Visible = True + +End Sub + +Private Sub b_guardar_Click + B4XPages.ShowPage("Principal") +End Sub \ No newline at end of file diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index b967290..6ea2ee6 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1331,4 +1331,8 @@ End Sub Private Sub b_tabulador_Click B4XPages.ShowPage("tabulador") +End Sub + +Private Sub b_check_Click + B4XPages.ShowPage("checklist") End Sub \ No newline at end of file diff --git a/B4A/Files/atras.png b/B4A/Files/atras.png new file mode 100644 index 0000000000000000000000000000000000000000..1a5af22962b1bae8d23bdb2df6c7e32bd7defba8 GIT binary patch literal 3208 zcma)8dooxwhr{f`Pln- zdPfj@d`@nPOzdnN(Sdm4=-60Y9gvZc6-JH}iA1-P?-mvncXz*zjk`57Gb0oV%PT7T z-@m8Pa+{l5Ha0eDE#^LMuB(LF+d6Eve+$@w@@y{{O#ZF4tGYPxl ztY}=5@HC^z^P6M}-|Z0IBtyR^VicMxkLZo$+CKM%zI*0mOxK0nPG`|CgQUnvP=vnD zqC18{-y%;;;eGqUy*aOeF`)`0``iW7Ao~iUz^`kZY(Zj4n-}q1zWXz`R3;^FY@pHB8Ne#q$Bv>c|S!T4i(GRzqGC>qx5ln860)N8l zYLV~r-S*@4qQGS2DfZc|_GJ+dyi&)UIflR^89S~m4y<4-w6m!wI`M(%D43b)KOsFe zjKN_UJiK)&-%S%*dB&%b!V6n|v=HuFG2 z4pMIj7@`9urm_!fSoBuFIz%7pVkiNz0ifWQNL45>(EV}5?nGv!D`Gr>mgP6$!z;#O z3Yi3qTVceb1e(PgP|Q0ND$+r#lab?Tl-OW-u-OzZe4k}gd?RZQxz^`Z-GSWg+6UAb z@YhBA$)yjHc&-v+qtr3J>96r$h;`7NrqcDH#YwWybIM@h%io!2mo$Oc>!5$W*{BnD z{IHH{rEPKpjm+ocYrnWpG{*<0%eR{C^+TOmn5szD#0G}N{Pal|n8j8%aN;EtfaXVq z2!YK+iF;W-P!uFEO#OIa_4e3Hc`doYnMKCp!U^Tf9a9VW_H{y?nLKvDx!1^9w z!`n<|c$6;i#8Bowl9o(?v0T0Nu>-G4rM)iC&=AEB#TBD(T$HG!C`GVxFbVeoZ;G#7 zT09!{wai6ki;K#$37Jn_$s5(G)Zo?A!q4R6k>e2gS-D|KL=pmaNfI>j{ZIm3J*(zV zCT{H;GTj<`>5gYeu2<%lHiMy73V|=&m2t+RTtb6uULD9eEh#V))ZEW}HQpEai$zrn z=|K$@1qGh_?dVABe6~U=GH3AS_L0T6atx&vOa1|mkUTlDTvdmBj``K>YeQ}m(}nKg zG@0R(nXlV}d&7HV$?!U96Pq&jc&T#DLVI9Ci*IcZo8$OtcBFI*l#pWz%^NHA{=Sn-0^TkkvVK*!=-uU&yHQ5=Ex3~n={^XfXs z<-QW6#O`161wDQ0Vmswfs(Sz|Hg(U|nzz%W^Kg zalOgxeWILVHln|8Gz1hY^BV)4gkfZn{=G5or^!dYbVeb zu2rqEblAQ+z5vawn5|8SDyuPk`Ko(=_03(*7Df9OYg5!@wRc}mCT{)uq)VEybLz#M ztIxy6Oh28nLQHU+Q))&dGi=3&e1CV__pov`T=WB6Gyh3AI2>lYbD)59k4c~O9e*9b zj%Sj@>NBpD2gD~sYMIDY@S@oHM_oN?Fz4X2M&S;k!0c;=1(YWB#|mq$WiN!*``R_W zV4_TjMSLcC>=BPyNf`A9fPtctMw2dfw?L`M=(hUJ)b6#W?l(l`i5UAm;ij>)y~&tX3TA;PcZKt%e;%z_Jy_RCQ^V z1+P7vXWl9ds&%OVbM7uJ2K z_vg=TGm_wum=9wv+MkUui8udqUY23}sq9#%Y@N zX^30yMWY(2Zoi|pABni%;Q0GA-3;n?329EI7-BV&QA@K%_NpADB5bvPr3vJUTT;< z)gdwhFP?-5dX^g|wEjPab#T_4EqyA0MOR?IC=#->ZGU$p$#v-KPx#rpXr2SddeF?+mdeBkJ% zuqubtjIOl^?z#-)SH08a2>pPumY=R4x|MeiSDI|FLu_5;9aBRg%wDx4HHPX;zPY8` zYknh_G;K4R8t*u$b>0Q(qx5EE*m=Ylp0GND)j&Q67SYcIowbK5!oD3NSaB!h%OezW zikh8~PZps9LXtzex~G=kWF0Yf{zU6}Crb?gK_DB?OR-I!!Y_VT3(}-AQTc(IIR1{v zDTO*YV46U=sQ9EL`baKgQnxUHUe#IehSkkb?nQH(6p*Np`qqZkN@XFkq~?}YQydBo z?QSp{IxZYJD+PH217BiJQ*s4V6dd2h+?XTAuS*AVZBr;0LJF>!t)()zK$FwC5gQY) z1apeu?J{&NbP<%DXXeJCG{AvBr{n$Cq(D7Fub41diooBD>*N-1T7mj0O)BclB{e|& zR6TfTYQ7UAdb?Z9E5vLCRRD4)4}8}^Aa|SGOFzNoFHd*sW$b}>cAg<{Sa2$B_TDN% z*}yg~rt<7!N*N41HVH?3){XjROu%r{SdGYZr+N{u?nHpyb3{diIX=S-0+sJ)I^NKC z0@-OA33XG2%A}!SI`PW82QaA5ZS?GYn`}LZJp|cln_M_}Mb#7uK246i|6_l_^jqW%w0cLU`qO}jGDTnd8D&eFRl4ulFG!OB=`bAB5~yzKX0pC5cQ0{*x#C8-f*y+ z1y7}Dw7RVgL>f*I8IimXP>QwE<~2y{-Ldf_yi3JdNQIA-X?0JH8k~nC3x1C>woT*a z_2s7XpT8?UtMRvRIjLloM1_%0;$LD@ljM#IPgy&p#!z=+jo$mZOVu9kNc!t)#jnBwH(re+WL=6{k9zt2;2gO+)g07{{d znHXPE?>m%=m?+3%O4t1%Y&yIZx&a>bcc<8Le&&41iBNk_`og28l9{eUL4nenvq2EH z?^W%OI~rYj;=6|T)7pAoc~!cR1S&vf3){Q)>JmSc>2Gk5G#}+`P?a=Hu(y^5Ib8lw zo6r>#=s5xQYezqAYdD|1=`9ZcS|%*lFOHL0x-)y%l2X-4!PW+ZSSrdc>(9=;r=~@D zvOsM7>O>TtEAxLIC>BPR1Sg;M>=ZAzWXS@E(8$h^hFa$m&Y&U-ju7>yeimbmcLD{D z(NR{{chJ3`mC6DI+Ryg-@9n?&zrcTF|Kjsgmhxbdu&%j}H$2a+%x&6!m^Iqgvf_+K G{67H>8H7#% literal 0 HcmV?d00001 diff --git a/B4A/Files/atras1.png b/B4A/Files/atras1.png new file mode 100644 index 0000000000000000000000000000000000000000..25e195c1a5b885b202e5f7d575d3b3094b813f86 GIT binary patch literal 6372 zcmb_h^-~m%(i=o1el1>{7eOS+B_fukEa;OGu1QMwzYK{!H?mi9QwBc)5}kZy^i zdHu}1f5LZWcb}b|XP*6Kf7scLhG{61k%>sq# z@bj^}U@@?>_d>AfAgtjoEDCTB7G1crn-km%!Of!T>H1${&Eo3v|15d9m7}ePtGA0a z5BxWg{6ArRdtE~>MTDo7hrOGZy{pT=(!b*Wq(i5bc_9wYqd`?gIbGk`yI!{vEHh){&FLAW`L_*im5%KYfG|H?7DY@%BFBgLe|} zWsYNf#B()#2?+-ZUhx!j(3uR$&PDtTg213P4qG`>i)z8cgPSL3rr2Yy45@&$Z?E!- z@CYq!;bG8P`bXFa+X40Xc-#C^I|tKV5Aj^Ly{)k=tPff1Jrau0VrH9jifHlN?D78L z()3_xQJXS=-#jFHpRCl>9-p7y8N8F-)mcnhPrSSo&#N+El7X3r&mzRj;L)+3}R=WCz204kR7>T#}%V-x- zZXOi%d+emnj@eA1n0|r;JRcI{?k-zqmITRr@ABej>&;&(s*~55rZ~mvW+K+TK1iRJ ziFjpImEk<6kRdWMx9wB9KuoPiGv4?Ls0X*0zG0>v9C>8aB56pvmx~JGnb3Yg?l_g4vu_5dZjQvuF=X=G41|m zAk50wHMfIq)lx_<1%=d2Uk#w}3Qh@)enLV5F{m=d#i&&Q;>ULa5;-)v^t^s_Lyq4Odd>y^cX3%WTDPh1)8$(?3{b|ZzgXVg zi{Z8SIT-GxcGGe@8;-E(kJ-P!H8We@_2^9(}pf4?I|&n=-%wvM=clIel{=& z?RV5oP)%fg#3~OOkwVet7||uU4(_f$V>pXnc1c`v^#4xZfk$XD(9mI*K{vK6<^n;y6E z7ZX5Psfl%@^T66#5E)sfS%sPovZ`WH-^#z3<*CQ*HZJ=DO5hBn6h6V6Bd516^i6|RzASW5H^O9fPl=em6Auz(aOulS=E z6F#?zfKNX`bxIT++*&j*WnGSt5jHrlPfPs{BwJQW@-?SS%}0h4+7cDy;H)4Js7Mi9 zdwvg7Ft4wzgFatI5Rp7Wb1>b+?s^^5O?F*JnU1_UZt)v{lvtEPChuoK2?+gB|e zHeGXUXFh+#Q~Fv3tjDQQ5#Y1dgE&7wKXCT*^BatbiP1-YgDdPK2}woX?WU+PF%~UY zX8O-LR^Jo%(Cda8>guPZEX{sH2sZn#0$Isl-#RVLk8A%3oT<{QMqesjQh~;|uO=3j ziobm6iWi-S{qV%**~eCM*Y%oxytz7FifBB%_c(gGiyi- zCrNRAjj19LyI=avYumdWxTn4tfXy|}i-t*=vN?=doqDt!243~=P{_=A+>7>>1JJ1L z9wFbq!Ef~Q`MB23!QKgPj}S!^S7?gc1(UhwYJ2Yw^-*0~@CHMWJGa51GDX;*NcjcH z%kDL#fsVZ@v0){xK0d}2toG83@#xQ5V%G=BvybBp(%?z@??BA4bmiX5cXkWa(~@Xp zs(&1U{QXF4L0|kGl_Q6}kr7Mg_>&T)^g6}Dv5GV_p%g_lSeW-sEw!`)wy)H*`RO|~ z2q2b)B-{ie`1DKNyWZrsDmS~3#!5+ zFdY_MU&F~B$INYflfnODAN@7$>6qRR3Hx=9+ZDf?iH4cT^6aVvEE0`G2VgCZJx~{M z$pZE8AT?oTdXc2GwCQrvJHxPum!mMe0dNeURe=`(2NQ-VeEXSWX6*qgSuNPaJ6{Dw*AC~SvYVX}VIi_y9 z>eVuUvfN6SZ9%#=q!6t33efV|Yq|S}%9-!h^H*w5gas96n5|ZBw7)*DP8`i>khj0mpp|>69M1Oi zu$jvk0x@VXQshY3NIMbQTORu;jSBA<@-Bq(-ms$C& zZbpMJVJ;4=zyAL1#*$ai?v{W;x(@QwP;PpDaS!q*ZCE`x&DSu3JP`?Xws3h9P12L$ zTnV_UlD=5o&m7#A*g=cc?&vWF@s&+TKV{Ffon#l6k?T^b1B5Ubu?w`9(k=&`Y^IPnHs}9|BgKcDjv?zwEQF68< zu3v7&=Q|FH8@rx=Mbnd(qnf>8!AuE zc|_#Tmx|^39=$D)L$Mo+)Ghs$%~BP$h;v_kt!bj<(nvneXDo=6$!o>phE;BH?%R&MF<;Bc>+%A7nMTcoh=JZ`ZbPvj!qUf{59Rvw zM^R!DcpJMyQoUK!b8s3_HBr4;pUCP$$1DgkGAItzv-1x^@Anh@{CBg z$*UiM*H;0tx7RC{ZEuLWuIOh?r2-ASAz48TPR6aq^=dfIV^--& zZ6AJez|W@ZZDoXnb3>zPIH8`Owb_6zKGTG2v30g1@^*&?%QLp{gYqRw+d#3$(l{hIHFRO|aEA{g2DY)5`CnGrc zE2gsJ$rQ)%SO}B1xYCyS6wPJyg-j|R<4H?FW8>2-o&0Mk&61RO5t%6jc$Hkrl(9dD zYFcWHhyWy`wv1$LlmL98YsbE$g828z0VBto)*jM*37LN6ifC>7k z4i>Q!>(7__IrD-74$z{AHAD&zkn8cbyZch4scz#^M4r49plj`1_DXE4^AQD)fpYco zc|jyIE%enJ)Ob*lK)wAE(?vA3X58_XYzOCp?|QfDN~qMWH3iidY*LZjmyVK4L6M3# z6oUp8V6P*Z9&pyj0N`KhkxDaC3aP&;iU!KJ0$0OzQdv*qG#~CXJpvv@gqkOTA!A~U z-yg9j!LeW=rvy*{RtlStB~5Kbhvm#K^T z9eK%5!+d`B-_P>wyidD9@A-B4nG_$a&bd5V-4dMkwhNboDkG6BJtuv2DoJK`lqoX9 zimu8M`5APsm}6hk*Kb4!yKckgt;UQs(Y>6A=RD$wIE&c zfEL3>LLa%qY?BSVrs1al?Ej;oGT>luQv{L6Q-n6{d) zkzT@blk=JQ#fzcU;FbFAiIrK$bfsK-NkfxN zaqoc|uM8&IM5llp97LGpi2_^p1Uf&45ksK5BeO~NSJ4Ids@mxq5_gJ`$7Hw zBwKH^_^(s_ZF-wO<@@VjT&$;ASq{x7w)c`-f1DiLg+%g#pXrdSiGTJ*JDLj2-`KyK zkkq+U<;NI4B$Pw?9*1uRM2D1?S7P=@I`(BQu8+=~f8$Zy&V_0{C;{d7c9rRT(dLZP z6miCDk~n`fnkO*>(#yY`>55b?hJYX?;3zibAHl20RddWAK}RG?<7+LfC+1VCyNFT` z2asOz-Hx@Bj0#jmh+?4ctkOu(A4+w6_1!;!`Y!`WS2?@Z(#7Cnr+ku_jS?uUr>FP& zo~H8ojm6sa==`LRgX=q+o@IV~!hHNdO@3veS{y`$VacBo)f+|)Ws-1K!sX>)e15-J zyLk&wPny=to~`$!!XLZR`vULOn{U?=@5b-H^RvMsRBQljZx3fV4)g{bI8JqI z2+MOuWUjei=Sdn>NSJB#)oygQl+^vZS3DXMQuoj}l#$R2B&kR{igf@2*wF9G8m;ec z$O01sz*ezi!;J&446o-&n=G9R|FD5@2@C!_Qvs<}Uk_i)wCxU8KZq>{Aa^c~Ih-pi z*C!3wKqN7}Cvi@tU+9SBi-f z&W`oW#Gx+I@%P2vSFc6Ba0Jc-GN)MVidg}l<-ovR)a(QfnT7d6VIN!)AHUw-wnT}k z=BJV!mf!HwWLNgTjj8Nco3N!O`fXZ15wrZshCKf|325TDrdL};4fy079K-FfPWboK=1ENSww&*Fkl__a+Y$Y#nSfJeq5cf%6C*~#(!g1K!*zwfAy*vZ3XQ#5*J@$*Q=~bDZKE{AO zrcyOR%!8p05BZ@irXNRlYg8bs1mT9KtH{17RrmVEc*jK6x!67Ku;8~P(vPjJc6jMQ z)h#5NM5=fN296wE|A_>*%K^RiaE*Wis)W`}8^`|L3}E^e{x}}lX8G55H31TRO_B~K z)!1@N@o&$`d`m_?uGp#Ka{AfjO3tV-o4BfE@+Igpa%$$(VyGL2RVFxd~argU42z7!WW9VxukPxDs-pVRVtd@J#nn$6m?;XtKS zqUKk!-l&jEo(P`Qh-^`v8#o1iZ7fNt?BxS?{V(mO+tEE95JzdMMwz_?*ZjXHfhtr( Ku}a<|D364e21+RCn!bR(XxfIh&?halw4_h-|7UjZy)&y_ z&1iSTexIuEyR+xsIdks0|2_AdbMNfhU9ni~;}^wZ--6EvP%c0jPM4hHPU+N3K=)KD zcNMIK1-lSO+w_syvQ@}fg^S5BQZAM9xytQzXmJ}LGd9w9cr-shogc}cOk6_V(Q>hr zpFiZ-Co25xRyR`kc*ZGB*(Xa0>AhO3uv5EglgXSkD=D+m#~$|1TeCKMO?)eAJ*sMq zNwsvwg>VA{D-=yw0sr%KkQo7%i?l-0TO&PozN=@~v!3-#B zyP^gaHPi`+v-#OPaacH#p0m^U$$ad$a(33352^DpAw(ya5=~vwXcbM}R)NJO1s0bS zSX@$IaY=#2B?T5CwJdi!+(zA5GO6@RDN3LaPJu!wfkG&OLMVYks3ESo16Ib#yGt;! z1@#`Rz=eD{m+`FAYYesuMi+V?CWZ!6qSxObR&R17{TwNOL!ZB)-`_CcZ`kf{81y&z zN9|W5>DN5z*F0JCh+p%hU-P72^Q2$%G- zbS|GTE8-oicf>oom7-&?6&-`E=y=%rw6vnrZ&n7(%679dNP9Y%F66UWdfue?e_gK_ z9X+aU^gfdER{Q3`%fAlyBen*gYfT%%H#BpkHCommBmI2K`Ed-eAyI8g#coUuDp*GU%%f z`Wl1YXwaJs`dWkDY|vW_`Z|N&YS7yZ`g()zG3Zwtbgw}t3_5AhDTD4a=zfD9FzD?D zJqWrwUqhg8K-qz^)1YrO=$j0BmqG6~=wX8%G3Zf)9y921gWhA%HyiXV2EEsyZ#C%K z40^(#Z#U>kgWhM*`wjXI&<9WsqD&d|od$i#pzkv1!v_5tgTC9K?=k4t8uaT7`d))R zV$eqo+A`>AgH9WC#-MG3o-ycIgPt>J$DofH^nC`MHE8;pDsDN0&KvZCLEmrC1%oac zbjhI027TP1PZ;z`gFXfNG|KBy-eAygG-&!W7OPaSiaiUtSvo+eBv_*>%-97xJ!i2> zZ&<0S+cO0xSF*Cz+cSkct8$wT(>Z;A*|CxMlYw4SH3$p+Clj$F^H#yJa#qi=h1sKM zyYeA=WculY2TnYD?vBm3ZF^?o*{xd+ZJz9TX4~d36t-P|?!}Xn&+hHIwU9`j+5M(Z ztbO>au{VF@b5C_Y^RfpoJn%^Bv&l!^{rSf(eal-fx^80IMWqLaPtU*TW3kKL@%Bx$ ztqTwk==;;fsZ$F!z3SMsRdmulV|LM*&Dn*X+wGE7-N$s|ehGZk*1x%-_qTG+yj61Y zxv_FVKB;`BV4bk0vo>9)U-($%9ulo=zEG_(F!WR(^WI{tN|Tq9WgoY5rAcevW;azG zIdL=PY!;ExwsV{*CzsBaGxn5I$_nQ(>$t_yax^(S&G9c-1;_#+QL$vrvZE58pgbW& zMaIbEPSL@5*y(YZtx_*VW$l>~Lux6%z=uybnbI6Z&)LrGT!|0PS-JFFz92GOl8iUp z=VXeQhFC8HpC2K@F9|A*s7I(u_-7dKb5{{`LA%Q-&5h;@n8jlC1`T;SUx4w-aCG%9 zs!O!e@&I$wa#29e+Q(%sskWWtOlC+{whKa9nT(U0iu!rToab)3Os8a`nc^X^=;N@mW@+;A3#I*-}oButF&nPLYpLmLYzyEmQB z70FhFf?0dQ$=SrbSUQ!Jd7s>O;P&AOv1{y`nU##?(`8Dt(#}&)=l5 zjWf?>Fk_`{j(==?&+wfSQ|#ur(uUD=bbNAZ{J@bz;|Hepjt)<7k`v5I{L{usHg*GB zz!G@tLCriVsZ$)~KF-cC$2;h-QzJV?ddv37Jlkc%Bq*o2=BBK|F=*1AvAfewAzjY8 z7^r!botCgCIm4g&-F`31-7&RX5&oRhIKyVTstHgEhSrXpvVdiv9M-xf}~ z802Iev}el&%IrSXeSmn&q?n@onZDle4qeJ2(VNbevw1$AwU1etOEn(7Wltn&WusQ1 zkWbr%ryjRBt*-e=COuNNbKN#Zo5^#H7;}~I)%%ERUp+@!J%14gTCG&pGe=czlD)-D zzL2)Z@;O-(bBHeF;HMZND^6~qT&lXVsqw>8w9EyoSUiCxPNP17gC{EF-+H@4>tl93 zmcQM~c5@~(`R>hjaluYIGtT{Gdy8*m{ymi5SsN!C2`1@dqxp=JMi{V*w55qGP`8TR zfN-P2H7PbZX7iq1(0C{1Xk!Xd*lbPpa=3e|F;q!$k4MJb$jsb-v6ZFwNSA=4M^`Jr zbLw@YSb~#-)4W9-H{l!bvZUCy-P^RL0RGZNR7|)Y>tQu*8feo#S@4GT*QsCzCH?&00=DJf!P1#A1fiwo|g{qm5Ox z$SDG~sxAlP5NSxweR6_IQ|(YE2*JBk>!YI3l@*X$)*k*3wE*SCKF;GsU#Jw z#LQdv9oT#KzR4*!IFIa`7^6W*WXn25NvGUgLrhYh@2A6`aME@zjc~*umd|C%h-7?n z(IXu3HLe&P+r*pgrC0I>E&mylcmXj-SAr2uBp3D%u9Hk9R{1;duam@f8Ie9AHo)#@?z5*1tI1?V=u!KhYTScPTNu zIs|=cozT%Sv3;>2RKu-bp8sGqk&+>3GfSnI%I=>S9vzlDdPpfb|2};9`b5%wNR&6X zq>L5HFGxn15c@QDwH_YVA_i-Bt{$#FQDlg1dh_hzNJ-AI$R5)@VyArXTd^%@@q4wZ zL+UwLLY_~5z!vOGn0;suC3hz(ce!z4n9Vpv*~3(2Fi)>+Ys{tv*Ev<2xRBMWI~v8! z?pr)&0wd3k(4j z932n>%(f~puS1K{MoB_r4KQ2KCKhuYh(H!YDK0Qr6<&+kid*q*xEL05J*quy=X!WG z3g+zSa4%aDxF{_JGXf*VL~X>F9tDv^k;er*3e@27i4;m#tdCs%xF{?K*s>j$K@>50 zf$JP9E#V>eYR>hlIsF5g1XcYev>%0+^yFzaQC3x=w z5e446AvZAId%!#_iU{h|Nl;IN@S?sOEg?`J0lODXG}Fo6%KZ)PwjI3JihwEnxTJ z-L!8}R(=+;16euvYP?MNJb+RzKv{=0z~|K$%LDd;RV_VH^J%n*6H$493U_4IsBS_{ zxoEMmkm2s7@Vep%+A-YSiqW;yBq>mXM<^SHJLXg^Hpynf-4>`5X?ih%4qA#g1%|-; z_SWMa-UX~+pqmVXH$y?N^nzkTpxzegg${I)Cw2RxL7ielpxzeg1yrttJ8kumhr9jg zG;p{hvqrV)aQDudaCfh%jd!=m-Sy)E3Y4tkOMmOI0s9%Oe%fg$id1ojsDmhh<^bf|ltUH*{=vK+dK0CkEDfqDdi zEIjH^xw3E5ln!o@JK{WgRZDRxM@(jo?h<5so5nz-@3=GT}JQ^)9--#a7)C2~GPc;vWvY7C|FowIpya|-7 znePJe-KzO}s?9vn`CgRxn{oL*5)b0SzfRTMg_#gW7ux)Mz zvtV`|2(eAtf!8)EP=iM(8=BLga42H~}GiVcDK2-v--v#Vf^mrF>eR-8Y{AQbA96bN-Pt`O=!h^`_)onk|v zJ`VQQp#B^rEfe*7@u-XX5l~|5M?q{vsbuPpfUE^;nhX)W4`YvB9A~9B@zg8+KJ3fr zTl|Oe*E`YD$X~Bu;_ySJDoZ5}WcK2^oWub_Tw}WjgaD%whilMM2bh&k9DW$8)LLyX zS{HeL8zga{Kn)(DY?wH_9Sq*ZeGVoUON|`$cSM6a#fCsVfJ%FS^)_?AXP~_s{vvn3KY^|SyI(SERGW6c?}oUx zb-zCeoBRE#Xi%rv5U97A`#lTo zSIGVTG`b4xe#xv+ZQA{Q8sgg4{r(J;3+xVpxL*p?;1SA(?)PWGu$tWOd&1xy-2GB) z2-H`b`~A6SP^Z`ssJEH>h4L$Z4Dnucx|AcP3%M92PG*hoCe*yg5OZj`9Hj##R`>Ps z8r+mu4kW}8@5BRg1k&Jm+;5iVvdi2ENLnvK74A8VF1{t*LmtE9YFd!iqyJX@Jjt1Q%~Gilb$Sw{E~?2ML;tLdmc>FWx7?C3y2lT=0Gpgwnea-r%bse+HCm zW*b0>^+k0$_)F+ODJ5z?jTV8IT?)K!1R=|k%o^3&Wx0U+i$O$@+9ZjLK=k(@1fq64 z9sDSi^P6PdAJ5d9Bu}NhCP{%BJVI%hWIw82ll*1045F--)4`8ntby?ko*z+c2-L@G zP-j;|C`&s6?iaL`KZlxFITx~6IVH&oX3e?~c%7*UuDKM-i z_xtHEcn5dC6dMBd)#iSGBO25xHU#Qz=6-(@+OLrN{VjAA*!_}OquR9leZ`tK&VIQG zXsP?9Kn)(DZ0LTO>#ipE`%D`77gRTO* zUovY{n|8m9k+Ko%*zZ9s!Ba{u@@9%+OHM!s44}*7b_e-%MP+x8C_Ya~$ zonk|v-e&IiGthp8-0x@6Rbcl^W{qmo?)Q0&(d&MhAu4UWFD0%ZCa>fLB^KX;3zFwp z{5o8^P~7HjP|~~}#8oKEekt)eJlsEMYQtbOIh(KrUqhNFmIr3BAKS5W4?K^n5qu3CrM-c85>Qp)q>SSCY)c-UZ z)G0Ou>Jfyy@TlLbP(K1noc2)=8&N9XSNc52S`(cnLqtEQW{+MRXQems)GPjjYPt>a zAMN;q>OX^WDpbodWALu?ogFfJab3 z;m^S^h_YI~v-1}is~_*W-;oL)$S5`h>JbDoh9t4_z=3Q9(}%x|26c)JfqDdiEIjH^ zx$@FjQ_q8RQ;H3sB)DA(BIHIT&`+zs0J(u3F_|^Kn^0ShBUaxgxddbMI^s6k!Tl9R z7uYdu2D1b&?k8W4((x!R-Y-v5pazdnHgv>)4Tcsw;_CTNEBLkFe}qncyju{+C^iJ@5d<=YI^$Cy)JMU{r(*G&a9KlQ7cL?94S{}j z@lTK&0qPVR0`&+2S$Nc;a?K9z%V=|FBJx*F|BSBuGttx!4=GU3!6wuUe^dLz!+!yT z*Wbj^GK8}9?~O9x(!V!S8$%krq;T&75y%}>`>W`xrFc_d2)zFl?5)B3Nl21- zs_^D~1j75@!06)rK2YLm-VZ{1nh#W)9|Q3?O8jfM)ctYszvHGio1iMPrKVijQXd6z zF-n}wUckKBgab7$2Tuoz`O|8zwQa{u8U5SVRjlncw8-emsI*a%&{$dL{{brG=)aCf z>W=;e+*JK34eE@Z%*~JfX-HY-=>HRsh8+EW;gPzd|8Lw3JbE&>aP-~l!_NKxgdhF? zHX8l^g&94Wn;*Th{P3ek|CKeMGraR?6A!=zr#(OiYSO$0#99_U9Ph4j1Nq?JvFHr< z{AZjES3`UUwc%f9SGeaNipAu4_vz}8x1#F*Umey#us<3s)ce^#4+LdZ6Djd&8_?oC zCZs?;#SDobLaF>OrLjKH@qS#C#~WbFdOYOD1RVOxvc3c@L%ekZE;~r<#6|hCOHrx( ir!8Kun8OVb@Sf_*;C=B)n?a~`swAPYCi`JqEcOkdl}$YW literal 0 HcmV?d00001 diff --git a/B4A/Files/checklist.bal b/B4A/Files/checklist.bal new file mode 100644 index 0000000000000000000000000000000000000000..9462b176865fb0c0df6d66c8e4f1a976bbb34861 GIT binary patch literal 3088 zcmb_dO>7%g5MGlwV46~XS_r=le<5vClcfBHpT5KOzUfAqfyUz~k zsZuYffK*he;>xuk#H9xgoH#(EaDo#O5}de##DSanzFF_uR@{gREY0lf%$s>L-^{Gj zmSvquS=OC+_Ji&K<;upXJ7(i<$l3ViY@n)D9rQuBytLvQ|1MgO)r|4IHd~}f!&Y4? ztF_%cbXs}ZZJwb;-g%K6QGucy)|YH${P13SER+M^br&7I-gIMnEhU5ShrH!?8+Z?> z7epJAydA{2v7CX-D7!%XodfOvkSFN3P+Z@-@#gT!kyR@r#<;aiYS3djsi@hIx+d-rgI}76d<*>9-)sH}$URI$~&Q9ylS@m>~J*AC`5oY!V=eogu4{XYF)|7F4 zZ@L!9lgZnGT35@i9_kW&x@pT!`K}+tZx7&PHg@YY5xX+a5-eTUo++p`&1>QuiQr1j zbFmy#bs})1Xit@@8Kad!a$b%E_Id;f78GQ__8~m-Y z>OOj7UHoD!BlylbrZVLR=w}!kIAzOzVCz5%YrURj;>4{i4n<`?y|yi$wA9u0WOCx=d*~)%qD|humE-!1W-d>7dI@EQ*Auj~{0pR0gg|0(0L03aGHe(j6M_38ru!gByuA?8seRx* z_k*QuFn(`D7>ET9u4p)VQUJ%KSqT#2hqC8UGLV(w;!5iKA+#zQjMc2@aZn%2c>*Mn zq8b~G#*?uIPpkJSuyjgFei~wuf#mc(G((`&UkD)x@JgxVIs}1&UeAE~1rNfO;31WM z0!>m*gohN)*ezi25&=U&?31`slK2url2#Il=Qvqb?=V;d3^!4LISAp_fVl>bPGAl} zLnN&>ghue1q>>;c!0<`|<|Hx@V0d^ZV19u;DMx^b3jf!@OyH&@n% z)N@x~0->yPxtFP#080>*e%jDTKZ%s|^E(KyfW%!I%Yd!Mvdyo8($;IjUkA?|1xwao zlA0XYF;E{iupx_a4Rbw3(=^x&h2vmJAKO-iNwrqR!!;Ta^>-soZ2$F5-+J%EO(ACg4e>pTnM%(*{iEs?Z?EDF`qFKuGTX0m4qez@Z6I Ir({|G0E=1a?f?J) literal 0 HcmV?d00001 diff --git a/B4A/Files/derecha.png b/B4A/Files/derecha.png new file mode 100644 index 0000000000000000000000000000000000000000..58a1e82a2ac20415233307508e7ffcf834da30cb GIT binary patch literal 8551 zcma)iRZtvE5GJs=OK|_O;K3b&LxLr^I|LS4oM1tMySs(pEG~<)XmHnE0t5m<7J|cK zm#TZXyNA2FdFbh>ma3kb>YlFtVs*4s32N1w2krv`l2~Yis@b@`B>0=)K?K(_hK;BPvS=Uu8qzS14hC!u8F;7^+x7;T?GbQ z!qT*&t=q($W1)wtfN|l;eEPRRD?gWP*QsB_sT(UE7>eC;G$Hp!n^2FKafL;~fAKI| z#?RPH!$t7~#ZCAgqW^f62;04%Hl#8vA=)dr?Z>=03(HTKt{VVf1$?LF{#-jRQWk}9 z&NT-=T!Pq>oLhUyT`qkvy~*4YI6sP?QT(?T*dj_pTJ!A>-@_m5^s4SAGD#46UPXoLuQ#%o_-9)$V*k`Cz?M1TC-#=S|dztq@hH=4?%uY%dF4? z;Zq4NTy^@|?!CNL-F=dBMJ=yTmMhH<1CJ@%mwIrWgIr?@Bpt`%Z)>^N<*E`zFXm6* zLy1gV!)@6l9{@x4Qw#pc#-Zj6ZE7~Wo)pd~0aELc31)h`_7M7Ef}oGOoCnU6JbRlz=)p?%g33{{ zk$0Birnk&14Hzp_z+3`ryjLa+YDVCFrYLn01x)A+|ZXXV&wh4+jqal>dD!9mVG8#v{ASUG~cTbK+YnXH-nm{-lIKN{<#}UN9gd+vuhy5w3PA zSPU9=M2=qm8J~66j*YC=XRIvpc z^3fGiI$e@tC$)wb03;UB#4!`1N)d=`aoajYLbd6*t?%y%xUGSQw_zr#A7_pVV)`xc zgcwpf&%VNPU4C+P5InhzpkIF}VySVjTVYqLSta<8#nj%;`BJjNtnfp9G%kA0*P@z3 zbvJ*Tf^Z}X_c$_ADpV>wPG{@CxTG90QSAlzMe0*uUT7UJ`1=nPDg~F+W)1ZHhi!_a zVv)ARU!@@teq+lEHp5wc_ z)-}y|hDN*|*!Yw3o_X72i8+!R6i5|T92QHMd{MW2h5=g^T~la#*cP36Jas$-;0)*t zSEelHy*qqP^OmBLz<%?GuVR<7&7`-R(nWj9w3wp%{1u|H4WMUQX;9$uHC^RAI^(lU zgsY}6Wv#9x~d=7Lky0;c5}CQretj{V+m`$Y}MV$Ht?B zfqe#-$=P8+mpgHIMA@f?RlrtBvkO9S1L8CvgYw1fiyWMJ4M%SBs~TejjLXBc%J)Gm zr!p&>?sRoQrKRzn;OVSlLZ@R3#}7p`+BgUjNL2MQSOErHyJw%1Me zxAWvRy=#C2PB+zz?74c|*4~k#s!d9r)#d2lYJI{^>A-&F(|ct zMBpx4T!cW_rv4soZbx%xNGqEfF1(Mqnth1?0pD_4Si-L3mU%{#FQCxizm{G?un zRX1G#GrBa|u=n+EYR0uH$CDjyc9D1?Yl)zT9V+I=MQO=?vq0cSO}rDuF;vzUoTk1m z2@Z$y4f2}8$nJ9%Q;^juvM+)1D@aAk0LMJ^FPn1+9-K=#&oTNAMnWE6su)#z&a8O| zR?a>fh9w;m^V!O~p^7P5i_5*QmMqv^YgX2XLKn~tj?C*P@Uzh+m;)FW>ZMYXbK;8t zm4m(lwAp2hkOnqxH<=0KL-)&%6rdKt044xCC{0kah=tsed|=bObbmQeM>Vda5~#>( zUhLqoD{MI${F#qkp0F{z_G1VKWc>=$nCzFeK<%Pz+~~O0(|@R>MFreTkAm>cxoE*& zS;Hv~7q4Nxt0o4&m6@4RpF!TKB6OkSsBWk$BauuM^>-&a$#_nS_~e$kAkEB2eX<`9 zObuJ`snq#FsS4c8;^MDdo*)_ z{1w_c-29x{Gcf$G8P!w2YF^%-E1(t~qGx_>xk%hqcUY*T_!6uXm3(qQC(v(LlnSI~ z&T7hInEfdw#_C&aaK!6uVLsaBXiDz# zMr)ImHud&In+hVq5P!A_XNhG?nf5>U*JZk; zJ-YgNEF9^9bTtWelW6OLU+rcWCl5oT#j5W=Kq@7n=5?;_`xca4W_BSSCOt*Zc)^LmD!$6`{{sXtsIaUhje*Uv#z&FV9QLh-b= z=Jock=@bNAl3-QpukJS$t7v?4fSLj2llcvQC2Qq}x%OhLjdth+g~ft3rVpP$+A@%C z-chMN9(X?cO#~v-^$!j(#@FLdxImGg(xZ=8*DLpz-xYLMn5*9&<|%*tfri?nsoICu zUm?-qeY^ay#aeNqL-Ehid1ph22@+o{>^1q&v*b`ji(sF?cp$=M;KRknAe+3Ozf7$r6Bs#UW)H-T_Z-#_gob7dbb0?;`REA zie~SlcljJRc9V#Yh;i+(i0r0E-@FV&u^pw)<F&O>Ap!^;cz?+&8LzrY-}BshSL$JnL=k&DrmJYFo!lx z$fVCdYuB0l&by~z{j%FT_4C`tICuHdI9XF2u{$N&NkNJ%!;A`3iMD%0;OQ%09s;1Z zL%fEl7+bJqVWp++8@P`1~@@U^zmu8wL(rbE*8QuCWP=ci`G;jA=$_cXTQMlBSaUeG1UZRbZq z2#jsx+ZIkc{^Q@J7_b7$rS{3`5ozA;$ixKP6=aGTFN0x@%dshu$g}d>n}s3$HLLH? zRa6ki9(xWwEcebUyt}P?~9S?zv4N6l;5BIj2#09RI+(BUu{%wmC=mz?J~@a529iU1{{WmBYZk zh+mxxk78jeffQIV2Rl~?B{=d7wEvXeDC|uIZVRA0Js+T?N^q4VXs)`x(WY4^f|vxi z*S4C-T3%$%Y4xFI42*7;4+$6f<@CsOnHOLDX$E}P=gUM2!}o~kAknW`q?myb{CJ%- z634OSa^Qukjvy-{8^JS;Fyd44tKmI)7S{{MwkB5P~V`P#Qd~+hen5N5~LO z2EdVp*q-p4SwmCF{M$X%zQuITIj&foe=lLpvFB}h(=_GBQDXB_jML2JA`jwxan;z5^PWqkzQsRer)z0)h&&-x-7&C4^(#yc^>!1}i@Wil zt>f9cb(N{>#`U8;jv7VuK-X^_Jw#XHnI(Z+*@Wj-HzB(+ka4krP2Q7|H_ifd(@cTy z>Prw22bUxJSHJF%YZv*K61)GJL7(=c-f2Tszx(*b79qMmA~$ARDTpUO?-+73{Zn+J z(v3-{NYRZdX@)xOexx zO&*f&Eqc9*utOqQSGOsI`(TG_w8$QShpUQ+dDG@8#lA@3B>`x*%iyzN#f;XPNb~^C zm~pgdGsWP_>(*bd;M=~7_sEeJ(^b75iZVd=7EP?PrN9@)1=BbL_aK zzUwC&tOI{yq)|c;DnA8-9<0@gDMf0KYgJ<&;xa#a$7kU%B1xrI7?~kI zh*3JqjYy6_aMSEznuzN=BXt2 zTZOen4Xqj0{TRP*;<9+RAedw4)EghSwEO;+p;eNz9jqM#*+6w)$-=)+QHx|%ofb*F zFFf$uAnK-b#h>Dg_zl*wa?XsK@?qGx|5z90U8`5(qj zNc`Q{wy&YcTXr?0KH%BiuYvcTj#3#^B6g!#D`R7YaDboEI90x1WJC7&+vD+zr=VWe z4A{K{_vB>wb~q`YsKxHMPw!5L7Y>oc3>$49BYwD3fJgIYLeI==$u0c89`YteqT0*A z?Fwp$0OxvrazRPw?GTT)*o4)8?Jw(*_ikUXPv2)L5(9JcLYUM;BaL?61m>c}-gA-P zRm;S6X(h`gr9B8hRQ=2>J#0N}`cN8WmFLGj7j-Y4N54kAQamb8ul7g|WDXI5Z(8v? zTa_714n)Yb&CO^FQIdx9c&X%LI!EVDBICWcj>=B{)ebVm=t(h%Z>{SWa8ox*rK*Kf z@JHDoN%$6qEr#*kmFSyo4um!|xZt(8DxMqfiGj`U!RY)nE1Eq_CdWvxl4*zVg<<*h zlx7V#!?2@SMHd7iBz@Nn$O?D02Z~pfUxc@3&9A;eVFbaPhv`j7Yo;gC+2f}?djdL&pe0_Xa(@#) zJ+^(C4U$T0&*I%R04P^VxR6DOKS~QM{PcdUdtP+Cs=D*@Q7~1~1jZQwHEkdET>YD^ z`-NP%a0X1)jx9n61|X5TpcXc`+X8GthH!(kmuS0^#dW-cYMReOtpQll1@knbmX!E7#B6R_9H-* zG(gYRDp^Ciql2OwC;z6X6DrCH%NT5|EzB198k8Yi=&DEb3#A(mTjF+mvIqfSJnB}h zW|DKM_7=3p8SyW9FrBiG0AE zvp=Jy5D=N#Ll* zvkUt9VcuGP7aP8&t0u6$<-#ViZg~G1xrr&R3Z)U%3cVpcNw0}gn-Fst$4 z&S%J?ygAMD8|}l%Oe8T!9yIbo7P%4@Z(T=mh`B*RwIf`b$gf5Q8BYW?>~JG=`mLR- zqPCHvXRJ{rJChLZGLjpS0qM0`R98~jS;r3Jlyhd}0oanF`YBp?!rx^n3+ z4Yi|2UtqI?8Fg3E4jQ}NV+WlfSf@jGe4$;o%_dS3{7v=gVXXs^00)3dzPxkT`CY^4 z9?V?gNWcf;w^~gqfAh; z%5-vrTb#yskS=5ND1+K)Zl&BpjszgB*gM%NGAEBQ!gR^i%LV&0TE}0RE`hB1TZdoy z#t;!{z!^{(#m&$D9q{UFco?rgSQpdHp}{jN^Z;#Zp3toKVPaJZVlo$)9|@xXL0fC$ z?wRWnX#Zoy>^bN$9n>U*f)6Gd-z6d6hE@eAe^{bVOiBGp2X6;%g`JQ_?8}K##ow-~ zoqT_{oivu+>f8FXJN*;6IfF)?kT?x>?Y@b`$~87$g`Medw~Lh3X>ogz7zi=?u#-U^ zP%B$vcR@rraDawK0iFw+q1qfiry=|pv!GM0O#D49gkkU5v`ef50akFN(pI!h2RE}Z==?iLq&E29qCDtGMuU@_ z@mrm%U@F`PLZZsPB(9$S?*-Q|J z)6c)^>36QmDk?PxAOearT=kYXz@;KVP{o_0hF$9h^9&liPnLEG*VH%V3$YS%Ex=_5 ztd@_2?sn46F&a6A5L3NlMBfTxl&}3XR}M`d>KAhSEw~{7uj}*n!&Z44@gqD(Joi1I z<7TDDSF0*<)Q4HUH|Y@*QVmSU{#Nz$xS>YooU}=PP1n0T;Oj4I?ajS`r%XL4lxs4K~L z=4?~}yvy^J|5yzDHk(?J#)yg$zn0{nVvr(UI!z@FNxQ98jlVtEV^i-s@1*(HcmMF0 zn~Nwexm`buIz(R>En;1ng_npD&S%k>>t3cD3Ox|~vN*e82KeG$JG61k&-53PGju=@M8i&u6DP|zQi_RM~mmqx&o#fkRoxJEC=aqkI zJg`;J4rxjM+INwBD(TzAXapf61MSziNl@$7Zn}zwCbNu_Pgvm|vnk;Gn?092P1~Pj zZJl7}v}!)aK7d;$mz2Lil>h3QoI>H@QqqvM{-S^UiA6Z7+Lpfjn(t$0k)e+1$lax+)P7LtG}rUr62e4|Z;Fe%Lms;b^+X zL-X@)NiKiC3l{kk=iKKKURH;!FJJUEituYlKr1$))qn|Yn5i3nW_)myL%ZcvnV|Hy z740v?5v%f=XNAVTjFfx`Qwf=gV z{BUiWylUF{AN?qw^79(f0r*ov+xldLl|rh;yE?b%2vw=Q(|9w{NwKez`wp$E%Xnx_ zVhQzZ=`6J8$iB=T7H`C^Odq(rFB-o$-#kqVpZyEK?W28EOV!^l=A;&`g?XN0I?HD$ z=zUEMiZO|1k*$tFN|Hlona%|ZsGnlj0?{^3?+_5^9MR%T^5)3Wvh&K*F7Mj2=_YBz zLbxf%=ee<_TZn*7sDpG^TRUqW+MxG)eUXvk-sre6m+KCsKUN5;rCU9!W~8QE(NNKK z?(_aVn4V_Bet9(5Jou@8tT;^ScTTkQQiF0}J-bxj=&EJ-gMM*vKk|CyeWA?LY-OlB zA9FR{Mrk`RgnGkoDEM8m*Aw!>=Us7fLqFE-0@#A+txrRP`d-IhtLsd7+VV}17++Ve}hP7TQ_g4)sj);~2nv$1YW%S_S4c-CM zYh?dQBZm0HHhD+#@F5s%zWm9L88$gY)csV5XDR!2Y2+4!; zY**+TZ*^SJz+Kn#`OSuC;Ncn9!N+9n-F227xbXiUECA*I1xN6|00!JdIP5^$J$u{{#D<|9t=e literal 0 HcmV?d00001 diff --git a/B4A/Files/derecha1.png b/B4A/Files/derecha1.png new file mode 100644 index 0000000000000000000000000000000000000000..ed3087bdac331a0cf6296581eb864a5776847a8b GIT binary patch literal 5956 zcmc&&_cI&-(-xxN>7us_qIV&2BAj00oL-{D>AgjX&YkGJMi)Iq7dc&Y!Ku-E7d;4v zH}A~%Cww#S%E#j4_DVPgfevVi-#4O)T!i8THzl2zByv9Q6?Q-J7b!dMlc z+QLGt{H*%6cAi$O+E#E2XI6-XJFAX`ldGeJrxhQoiigX88#t?r^Z%*jEG!*t++Dn! z;Q|(O1akid>)GiTc*Z%pYbGdM0}{ zb-E;#IAt|xTrt6H3vj<<;SzzU9;a#*bbmrW9W{`4*&cYobIlkqq8$-}FIiMXFcLh> zFh|ww%UARfgs3aG;(iN1P}Enw@>Fa7?0a=zFQzg%5fyxPbbOL?tai3F?EP?ce|-5s zgw-Pi_#XrSNJttIsfLT7Uqq+LeJzIVo#f^+Yd|14*&`zjxin;C3GakxZ~R%tra^OQ zvs!2^GHU9o-X6wtV~&P$ouQ-q`5ce6Zd^Bw?#W?Fnac3bpV@!^a@(kr za9Z?Xe|CH;O&2j)KPTiYEV@0SkxUy){C(c5yx#if6V<1^Ng|rLBabyTlPw4k>uw%u z^?M(@N3kBTg50uGQ*k*sE|c#;xtc3LV$!gh8dta27arSDWAD%dj5 zg<2{c6t3cC(J^5$@X^H7?TWdC>r02CzcAF3Lg|oBITYY}|L1vMp)2n#5!hy}=!q#V3pH%jy>nlR`W2UJAK?phdDh(BZfP2g2LCWT~tb!f) z7n2qkEpmQ^rB6eH`63{pcFL>@IUnUt%RuQsq_(U3M8L#$M}>r0607vgosIW_Vjv9r zhbBXDl9Mf$@mTwV79m5Qm(XdVS$P)$oJ2c}gd9f^zfLz2&XODX4Ctmz84T zNhO40J*|lNo(w)Qbu(PNZEx|3iMo7l21%6D`ya%$Okdir@U~u}bIXQyK@&yx->WXi~S10DyG3 zTjmb}wbSD7ZS9XhF)*LKxgGhV8sav2Vm*fGr5v(sGW_bYk6rE-v!+6xUOlBOL42mk zZg3l$o{Hbbol+po_aoHBE}?B@b;xTO8K14Opgrv+Nx7DR(SW?JmTkoZg8wN?f1N4naNue_62y7#Gni8xEUM%SUbAucWo@Jt=L^}aW3-Lnr3IC13Xmdz~L{(v^8a(4p}YW%{LMd5rx|1`O%l{Bn6)2|GJ`$ zrEgWt+G6CXeWsZUstzd6KQR=GlW?)=887Sa<;45h?!m+~>3Gz~E>hUSWNLWRn&Gv{ z!DTuLc-Fj9;y`0|(er3O5y+pj-$e#WMaf~0!nzl-KifAN?GlRq5q){E9|EQ>sQf~4 zdzAKM(MUn0JS`*eym}L!p!_+ZmG%n8t)BBz*9Wxr0)U5>VS7qP^!Wn6w!#hBYdexR z_T%@CCGB&5+gd}T@$L5weeRC@TQxsSP<}v@`I9(tWE9uyZSL%!RfG(>FLiuqIhwZ8Ms^S?17%ZhjK+R0FB)=`6{ zJun&*#bn7N{S<_h_3@G9F~c4#^PHbVx_@lz#oE1%wKZsLY+T*jvny3LUY=_pELnDo zkQCtI2~B*e6a^KbDyn5Wea4_VPC#KLVo3D;;cLZZsga zm8@}m@7_@hru**s<9Y3MU#7Ak5u}A-L}!R`a99c`338sV1?IpZBZ63IT_pn8`U;%D zP^7a1RJ(*7;_nakKiiY3s!z@kzZJOk@3Oum;W?E@7%fWsf?Ql0b@xVN%vtRn4px6e zZX~!}3)wO-j2}GiSyu{*_3dO&q`cd%6+@kKcQw%BY$@xslcY5@Jr~M-iNm}j@VaQ9 z^?Fg-W`~N4@0q#en=WXE%&MH$`~Bk?dz59Q zg4MMqXKG}71Z?k7^){J`Nx+%iM~6z}<(uS35jj887DeJ^@j_74R3O{@L1|b7TI8HX zO%1j80>C{tcXs_6Zk2=RL;ATbPRwKLYrQz%{>dQ8BK+)|{0G$N-fd1!j-Dn2PtBs3 zso!=7|F~!AY9y>rkw3s320jW1xa*u9Te-;sOkH}+Gq6j8bQ%lUK79CKQT8W%c*R=I ze~FswFyH<9$(8VZgZvvWaN8>MH`nvaf-h(?G_#+9qr1NLvZ<_jHbw6g4AYG1wZlt8hSuUkGHd(&nI`}Eb+|mBDC+wUy2Fhl@;>lR;%Qd#7Rf=O? z5OFk+&tk?uRMn;aT*}h-W6&62uAqPzn97kwz7A9SZO+0X&Ls^#Jh+b|;S=}D$QLJG zqbBN&x5v7;g{LqvapHcWaw5CZ5P0>%x58`H7`>!Tjh-nHG83ZYJ9@0w;4N1W<V1j0szB=g%b}osg894j$y)>lOalIXWtU3Ta%};OzJLeI3ZPEnmIc=4eyF zu}s=W=4kVRBl-Al3{_}C>wCXszU7 zUO@kj$>mScm|>1$dcJ18@t>be(_cd@i#{G~;=Z%AT*dtL$Z$KZ69vHD1b4`A7PN_D z+Q(!fEc@djrlz@#iJm(bdne;Pq|tL~f7W5Ur;0m^C?eYIekW__ak&9y&12b)x9a+Fm`fBXb_1P&Jtu@c!Onc<) ztY#J1ZjYD~+Qsv5_pksH>FAr0ZuG@=(JnngAQ0~r$r-7*tg-3F|9Rl*UTJPl`UH;P zd(n<~3a59?OUrBEoA&7Fk?dnhu7$1xNl~idzg}KmCo|g`dPM^R1Fk#|z0ovl(Sq&4 z(+)G8NgQf^TP#o5Hq(cTYrMyp*L>{`;{P3^1{Kuy4A5g+3{X%%UBGze<4~ z#TRX&bVUKd2iPm?KD_I@bHU)eyu1?%`*XgzIxAw#Biu{K@!Ib#epN|&KKJPEJBABZ z@5JbDqv>0gfJ2=Xd0RMR&(<^@h>6N!6 z%l)sqJniAzV}sFEH(Kz!Rtnr~b6+B5lP%9ne#+guxw*YROa21NgXUwl5ij@M zHs2YX_PeJVZT;B|Dd&IKclg@uVc8$oWoGt4!;`#xZYzZ2h*&KM*n^W*P=ZOJH9$A^&xIOP%nyInLZekSkMll^vdj2kk&@zK`jZesA|tD;4;`PjBpRnX{%$iEoNXqb z%q+MNkI4>lAvOv;-FYi3#2|m`5o`>7l<}n;l9x=jOdH3aB&3`~4BvU2P1(8Lcgx5} z?uOKd0yeg6VEIbk1X=qj&>}CI<3@?8u=EP*z^h?bpP)Q^D${B*f%m{Z6C=i=2+sf^ zw#xD<%1F3|S0hBuPUgcc7b-8)$wut?am)9tT%6zHfE{0DGZzkWjuSlq1FwD+g>>%k z1#g1CgS=445PJ~k(AWJ`7U}SGo9G-29GZT1j!4fxfGStJ*fPTM@FCJ$bP}UNZy05k zZM6EF*9MnS1T-pEpxzcHsrTk4DN!byk-Z)TC~*d(g(X%ZHGMNft|@yCvQoR??GnH7 zne-mP?ugbkE{@<~M0T!IpJe^?BXKMCAtd0yRVEZd~BlgS-uCB*JrOJWX zv=HDki76pReQCRvU#EmN#$}ETTu*6+4WIgvL{$|j#^VJjy&90l6x27;ig>85O#>e& zQu_)h6>9GP28G3)uY{4beH(F|HYprZ04>B)6HcG#)J%+Yo>d1thlow91^ZBqIR#9D!b5a>aad|CsrbxDZsiDwF>3h-YZn0v#%4ep@Z) z`XUb>ExJ_DCI#htmq^~w)Ih*tT&<#7I$n3vp&wb2fty;Y$~CMP5=T_*p;(|bC%2>C z;c+95zuJC#gx@PZqyS@G$}7T9l%AP2CO<62kA~E-vJ`5MoS_EfMWX>ddVw}-L^|u% zdD6x(6O)FW)JBJ9;IuZzyhljJi!ss|giKBO_U&7ELc;iugmE$;;>m*il==9TaN5ny z%d+xv#Epe)zI$c((Y7i9ku#$Ayk||WKq7{2nXtH58oFN4dwwTuEKx<6pe1QKc_#ET zsO>swQa0;FeRJItVqKiC`O#4!Pmb^)8;y8RV&@>`ySzbfne^xy$AuMfs*}{@?pG6@ zvjw^Nvi``&P;&^(N6lM{E9-Fn6%N`LdzdTQ$e_4rRrB>VyhIl%iMmeQn_FHBCu#1Z zY*v9*zrbti(?rr{8SecTdxX13Vxrcg>guXl>^Il4va)kkPF1{aCDjM}`%_fY-(>yE zcs<48!9QduM&Ei)&xoN?eV&-9#6&ydu$0S~RG&sv8l+7a;hM%T7SQvCdZlQNPe}H9 zsfoK*m6kbkQlJ&RAJMcBCt&2^a5&yj2QzPqSI*nFSterl*HBzf@pUldFL6|=EdW}W zVyeO@s$P02a?{=Nj+8CPDMvRDIMh){KAh7X8hTiy6lZ<>t37t+rw9@jwOo^S4IKn~ z8HEWzrTBfL-m5!0R#dlHUS-s7yryJ+OkM$_rQ87ew&;RJ!V%@da}yA^MpCL-)!_S} zsP*pdnC`-E!)*tSH<>9H$+s>zNRSLNb4j??l1&6;Fd*})i}Xz%kGDWj01g%P6F3z$ zjp62OK88bL@taHUYhXNWlR^QkL_sMYFDNJ|;r;X1wh4P788>)LyM8+PPIi=PQwq3$ zjRcE%M0h2PiJJ-8J0et56(j4-WX>cS_kSc|>4E3$Q+K|6;(y@(yD(j{UD8G*;jN@3lQKo;F*c;hpE>b%pHwAeS z6G=$`P11PZX1ROgo90SkEp%4a&G%wvRjUfQg7NW~t{CHJYGpj@)DOd7b(|3kw9y#V vl$9mfz^6lIZl8w7{s*7ak+HM~N^`8k3vElUFXa9IeL|}!ypgY#GY|a_w<$tV literal 0 HcmV?d00001 diff --git a/B4A/Files/frintal.png b/B4A/Files/frintal.png new file mode 100644 index 0000000000000000000000000000000000000000..b0c6420bd8c04f8d81e2c8197a3fe391613505f6 GIT binary patch literal 3236 zcmZ{nc{J4D|HlVONMk9IB?=`}w!~OkD8iH_BU!SI_%McKVlc?QRhCi4Pzj%6$dVap z7}@f%eX@mlW5~|TSZW4i`1*c+=lp)>dw%D8&+FX#cs|eb-uurz_uQL&2YORP=!6gm z1QM|@H?;+Uco_RUaENceM>>Iu_6O+@Gsh6SKzInsJ=hy`)hp1$Tfrj0-N)P3+ubWH zsMFhUKcs!f%HAvh5mZ-4%FN6eqf$dr;Vc#l6aDntx4+&Mm(0w}BqgWO>2w^ffKXBS zy}!Sysd;a2k6IipxIbMi#1?9|FaM)~lnJjqKp^2I3)8FiPsUd8^VlMiWPA?acjjKL z6u&*SS5+RpQffx4757>bKQRH=s2#?-@{|EogKLG6K*+xoR zb|G#nMW4BQ$Ox{VATaBVz7d>kBMd0(p38)#A7t20*Sn)>lBComghf(hjsF5_iM6*u zEPY5juOQ*mbXrLOWHib+9h{rjlC4~f^wO8o`UbRv3n8DGn$w-5(7yrnp0^2?>Y%u z!{0T$uL->g82A@wXN!YnQu!IO!Iou$yS7!c8aoI1fLB_6o|;{9b&~VOhiJVDOv$cm zh^>`;Dmr08uXQ}`HSB1soOLn}W2Rcsv&X`s^Lbwu1@9F3F|YP4LeB7z2=HF{>-n*x zZE^yCgHRa_Y~=R3@DfU5GOUol4an@ zPZspEjXBQv*o?J{A$s-~#YrY-dXKzSSB|uv2C|C}w!s1)f)mu$k(ex%$44re&x*+! zvRoG7-iSWV4~cu=7Vbube|7w=rTajGOZmtLN`qw8{HQGCmV`OYc=$Lp z6CA{jU+yA?--us1JKq(AUgq=`w5&Sqr|%G08HCSzsM z9BqW=<^cygv4Hs`-LKw4(HsxJy38f~^RahDkN;c?a=5)R^OTSMi6pbN0Ic+ub@C;7hADHRdWIXAW`eT=fp8eL9Awuo=RbEES!j7O(#$ej zD1CW5mxD7xV!A)*HV6uj#lI>#X8pP#Q76wxhOTz@Bqj3Hq)X^b#0&F) zMAsMav}5C6&cS-XcIUp9(jy#IF!y_X;|V%{v=Cs*ifQrLA*H&$*I4%)LY62VOl7rJ zN=83|5?O+`#U`w;-97huX-j>%K2%rCxn}&dHf{G~<4~A;()*I<7Qr7lvLBA{v4t><6%?aY8O@oT*E}DUBYPwnxZJpJ6G)&9NouW{~OUe&t@H zK-#XDUSUnnhW)_tRH^D0wm4D4!>K%*_Qw2-NuAt1(Yo5?0h2A&3s;=|Fg90B%&V+e zV>fu%x)pgQUil>>hA_MNn*klZ8#-a7sG|(!N0kMUb&D@u$&S6efYcPcHSqO!hm1#O z*03r0?yoFCe{c52Yntcw6}Atx72TmV9zflmS&^^$-spgBc%Xlh317>ZtZi8pRekCE zDe-^|(k%{c%sL!Y;TZ8ytG=Z^9F+jg6ZKhl=|golt?i~M?-v_rxei+TlT?_ zp$30Kg}&rvs0A^lp02&DhD)D+#1aU3D}&0KR$LYUU{j0?TD@RizltIe_k~=8KKM{vMrIutTnb_E$9NzGu*;;x^%viWcIk zBHdEac>@em2t}y?9$rlf&=#1XL`oxaKdQ`qgZT~AsTf(zlCTi`0Y+I+;)%OM8&78m zS?3vCQ-X;?*bt7FokJS86*p!@y3G)f75Q*zc7@6HErI%HR~|AkI6P)66bu$n>MD3Z ziPT{HP?s5JIQ~G4=Vt#t@?}THt7U{Er;Q_A-#*PCUXdkT=-@g^mUpIy87&PATpX^K zOyl(ZogJDcr?V?2$-%g(Y%^LWm56P++y;=Q@!5ariB z_|2rhp#8N}j?VlMLu6?i_sLMI>K=cG+Y^i#HAnYPrXMv1!pC^<7eskmpUYAX+&V_@ zR1{6$`p_y((w=f9u;w5sle>UhwI&5G$G)Dha4+BGNBGjvRuXLhx^ znTH)%cWfZyQht;wtBvrc6!xWU&ed;ds;?Ur6N#b1g!zw!{h&@F{;+ z;kUcWrF)R=zeagcen7ZUS>g1OL&UqD6G6tA*3c-iO}>3QB)~$|Vp0qxks|W%!*Y2f z%!JUbR=b$j^bt(KixL%fpRq6cTMZ-1n7?os1tZ3)0J4Mq z-E7{h;z6ANdL-Cm)}ijlZv%FO@dOVclEhE=1widK@K};5{n( zrXGO5Ov+Z>OA20qI1xv=6qaaJUr*^i+02W&1^5ML9ecCk-ITh&eFl0Y&LjIcZ1jrF z#Ph@KKi26g3eZV@;$$3Kw$1W=P~QOgbM-j0YLP0Zhr6>fYXU-j7$S2mS6_LpUsR9t zPy^fWqAmgc5(&Shk;~R+S+z41{Bd?Qw(Wv`4iAbb*fw|7oCb|=5RUKYvMnAaK^^sV z%r?8kRomZHLKx8y5yn;j6U9BKGgK=Q*F%1xPJ{{qRFNFalw>xC_J{7kY0Ju~cpcyy z!vjHHY8M1xKPO)InVbq+x2Hjq8w_~#kbM7B?DgQ3&YLG-a#DYNc;+eX*0_I7Mx#^0 zR2pLk)!Vj>L$W_oxJ!>b|$-s905V>JV*rh)M<{g!Z4V|Giv< z5q63Q5unMp9H}fvOrcS@xQyFhx{ir2;0i(~LF}pC(QKLiDVHiEBsJ|9)@p&9?V8+e!?J`H?7PBl0T^k&x!)lBBzDpL4$F_0Mz8>p9Ok&pFR?&a-ouyR98N9k>sCQvr&1 z@5bM}F>~5xWM~x4IibGJ=yqe%^S@qb=;~(W=FZRm!#Q&%Df@g9m+u!&4L{?H9g(iKaiev9@5nOI5*eR+lR&C=)wE0 z*NQqHcg3diw=TgQAdwT2YZ*H~TN?Nt*Zc}qe zXjnyM_0_9awP_Y2k(jt?g!=;bFD)(k{^qCWU`H~b#-^nrak$Jsv#P3VD8|NV8JU_} zEFHYO_}5C?9z1;dOn&@KyqT%lO-V!0frD1tww0GxZnmJ62`h?=OKWOsQ_?cHDQV&1 zN9R6$$}cSW^!fADhiNzxnVz05xSTikYW&#Alc(a&tT#4^kB@&oH1te9n0-+&Gy5?( zBEphJ=kZcLfBCX6FlfEsp5)}@gv6vAfxyz*W_b9eNL+7bvOetak=FZd{=ffWwP&}v z*#_Dsi{g^2^vyKaUAy$x>K#15$~u41|L~!cseA){>gJ7`0{+-X(br#1w;&OTl~vX6 zr#?J-^oZ&2fArXKTVLka#YH=x-I)dXnOE}ue)~?t*80`!H`_csCMKs+ua@-4WLEq9 z|6N#^oci$ji}G=2=M%Yn_TxuuE9(z4Gw-LStmu|DTep5uDmR#K@?rX_tE<-Gl) zfBUv{B89tge z{_}El_TKB{@8-I9&u>&WrXQU~-9-H({AlbUs^6h7b`;f>eUiGDeVh}?jy+^f-4zr4 zKM+QZj{1L=3p+I8$jRtaQDK__gYO8~FI~X=mpbsjiUDX9pu$i*B*Jz+di92&9!Ys; z2GPi~)T5!I>pa=&*mzGvr7VZ)nnl@lyQ(+W)K3)Dd%L>7fELsQ+40^x z*PoR!_|RI<#@fM3kK7HxeT_GUt}`n=uX^4Uy$}c7Irh5muK49GR%g~)uco@uJK;m3 z;QpriSNAv*eOJBWj;~?G|2zBQm3yRa+rTP}&*NHJoRbdwpy0)+2HhUEegAj5H-iw}yL0;|$5(sf zEUvATnlIJQe50n8B`47lrV1`X(?gN`-x*<&o zF6O+c(Mr3zDV}mN(;&T(bqIURSU8y<6s6ruXQi7>6^6h=YKo={19q<6)zm_`7)%~| zxqEP7!rc)){w~WwgURZl1*>hS6&_Wvr^_=v>()=?`e#3x# zht}=|UDNef7j!qOe%!h{(vjz}eK=kh-nly*=vE7g`}Fl?F#poPNLWGe>1~!(^^0Ri zADwvoiX+?f?NxM-GJQw|&8K24epe0VY(BYi7T3voZvY#~Oy1(D#&GZ^ti0LP*4&Meqvno#fyE-qy@<)m6%|)p3Wt79G=x}z+WVHM< z<_)K({5%~gejkU$sP0QO&s1%8#>;nF{9KUB-X_eAJi7Vx)A)y*UEdTL77sNaOkDg% zZc2Li+w?uDFF=8t13bh6pYBCj`fyA2-^#Z~kH8765I`=e?IA0%U%Z6M%p+|{)LQ_O z%m-{4&X7%eGCA9I^@g5yb$>aGh$}}MWS(~@RHmAGmt#)QT}TzrVm7eLeozC_ksJwz z*i)_^*V9SqW@GhmhDg<+!46VBGtI-1y()|BVkhVE$n89OHXE+NO405z>RDqs2`A;3 zr|edC|4i_3U)#;rd@~{>+Ij3SF@b3<2vaB@JY@ELm-LzgLP!UvajBW@+C2bwwTTpy zHU|T>Bn$)`0FId|)*_3Ft-Gl%j*)Ea9l3$dgLaye_uJgEg%s1BGsx44ma8rSllDte zo>%Mb3r5~4Yme;mvY$PXdUB-1nalfAy^sYb*#cVvxct-=;8IqYv31Qn{2cKyB3R&R zZq?9!%A1!rGEif4Zzjz{5_*N2eQ1+xSO5NW4sP3YMic^`62S^VK19^e_Hp5%hB22e zl%{Lj`l^sTjtrmYcpV!=%{o9{5TbY2x@h$=`Gzc^VbxB$iRWNe;6jDgAvQKmsdw5k zl=LP02rXmZo>Yp}rKO-LCjzraj$z}#Q#{IH&!OV6g&Nx@H++uTGoP<}d!2z7F*EG{ zqLaVYh6*|<*#<;%5Ll&Lne><`B5IEN6)nF<7`Dz6Li2q(jSwjKUSg1e;u!V!Tl zW^?w(OF^eVLC^=!m#t$jbfUYu1HTmy-_HMCJp^gK+aaUNjs+7LUj1OWDkMb=r-Dw+ zJfmS86ziN}RmxUNle-CqUB{jmpWe2|BS(Ep36iu>uHPMy3MZZbx2u+@ z4RR@9y!s#b`n?U>zJ+{P9rMo!TZ1jz$eUsg#OP>HzBS4(+>E`-hefc2`l|(>h;=L= zzK$yJ>5-M1+{P-JVU92+-twBm>&4cB#@0gDa1+JAMO)Ce)zmpY6Q-+S{NVwh&I!M{ zMhA$kf?i-QBy{-cd^HJ>60dze!>e?<5TN;J8UGBSV_pL6Sn8Co3jgI&RDtwq~n56(stA^~>N<6L>^3$xhFi_3i);gzOa}WGzg@sGM z8YKxS?xKBvRi!r|pK>FZ!nZFUy!m=FX49NO0N2jD9$m!i1g(jRSC_*9q6ZskPiCoY zRq_ZpVTNCGiPjqvz^u@UHyExB9ABgpE}dFh#H8un5DT(k;-3ktayK$@-Y=sa;+klLl+P#WO%-ldNXBiTFi z2&OQsH@8DCNeSr8ITM1J9Rza#gB2(MniOskz{>R5D|KEY5TjSxzdii%^9xsX-)5?K z)Lg>*=r4t9vj9FApqM8}I!^aKg`2N%QA`$mM1PR)LkzKVy}WcX0k~#7k6g&pY35Plc>otZ z4)F3Npf@KGQUVr4zevyMVEU=809%h^Fq=Y31(vLN# zAB|T(hKkZnUf zZ<;0$xbPh;^`;CkM3Qxb3=_)`Zp5sLfb6pjD6SA@;Q_x)MW<8${Cb_@NdrJ`^lJ{j zN(%9a$SX_)pNa5dWTIFnEm*j-&4}v&ydDjJ0HRxtyl0zpuMpWygQZ9?7SfAU7A``9 z;0qB{BJwo=L;x4vet8h0ER?XfwvZkQNTva0)C*3{lw1j+TmqM^fzgOC5(^i=!Nd?_ z6PRl?6$lawwnYjWYQYSzBYtoZBqdPB$gx#@k9(m+RLTjtTy!@P5J)^UC7?NQ*)I%d zE>TNop<){6$ zOuju8?#ziHDZyAST92rf&{B{%T97nTFfKs^Ffrvk^cVx-CC`tV$q&1c??goFOR=Fx z^FzL4{ubiLnWu7_DSMc(zZZ*y+Qk)i#Rv&v>yfouQc%=VTsK;L^LsIw1N09ftM-*N z?E)r=N2KgiS{TYYK{#Ktlvo2wwRPIQ6St3m_SDh=GgdGYwue=^>cqi4EPUUK(vi^v zhieYXW{6TIe2p-CRAqN8C@hw|CQ?^u8w%k%S zX>jd{b28DO?CBtAw@;{+AVhD7|4;kSe2X4tEbao=XqA1rMqs&SLOHpQK|uRBXH4ly)Is4y+A*w9)rMynXa=;_b?dKv4A@Om`3ZE>Z2Yo+5@rBiF=*>A!z z0b9`?PVx;zEDKkd_#FzY&vF%0r}{Vh>bd^Ou2#8`@!#LdOx)>d)bnD}9!IE;%V6JZ}=7!6;HgMxzMBJUK7a{wrk zSpVF<{;$CL;e`5;;`%Y2`WhBWtw8K8ydK zScYz+i$mj%{f+Kt8$C)IJ-smXOzb%&MCU@o+)8KaT_frp8=|_#JYXYGucqS1h-%dW zEb9k8RE)`Gf%_C1?kwcFuuBAR>xsK*oM-+AC;-S!Zl71L_+9cKcQM;IJ{r#qPQ=js{6nQCHtXULj14;KnjA!Xuu;eq-2t8Xc$8p zCbX5%Lc`D*SVO^s*pFx*I&}93)F>t73i0vSPRkYO7882!Nvf1Xpt9o@6~1nOkhZ@A zq`}KyYP^zn-jWjXHo}=+Ek77oP=ePQg!Kt=Z9?2LB`%<@E2s{)b5283h;x*7IWW2p zCw6HvwIav6qgJ{(6xm5fS!|H(bfPT2RF=>tOB|Oat;o2Po)pKP)S#a9#GcI3o-CcV fp6v0Siz__>O7CUI-n^jR{KVeE(%u9L5peiF4~VGm literal 0 HcmV?d00001 diff --git a/B4A/Files/frontal1.png b/B4A/Files/frontal1.png new file mode 100644 index 0000000000000000000000000000000000000000..5ed81e390e95a28ee555dd3963b9506c1a4433c6 GIT binary patch literal 7491 zcmcIpWm6o0uBEs`f#R~b7bq<56c#A%Qrw;5?owP9m&M(^$l?@dS=^yWX^~Rg;r7nF zpYZO7mrSF$1h_c=pGw-y!okMP#najHz1b?d z^uNS9c3OHKAFbRi-0WOE>|C7xQUA#QmkNUx#w7>{lxzwgrL=t3PK@k4h?diPp>`$) z6a-&o(PKsc_}1!)R7nFnG5Ohoq%W4{%o)u0gv_|-1u^+kA!5vNU@*pvz0FMC8T0d&w20;i@1@l&B&Q9HN=unP82b!$Hh;i`Cs!il+ziRSlA zzPW~Wb$9K0y*RM5nfvuXAk@`0E`AMr%ad&}Au@#Xqeob2s)y%uj* z&-X?_2@^R<4wc>hd~Y0U?aC4V&bK3U3@a|u@IP#QR^eG>of?{& ztOM4X$Ukn=Ip_s@U>iK-;asFMW-_|Ena>GO|KF;QH|q8VY;CQrYVPhW&e8-RPdENt zQY)P-^w5QNI?`Z?%D(<>1x1y_qn_22($L=Cuf15BKY}T_1Wuub&jl$dQe})~`&Oy% zh^9(|UnX>I$5RqR0-E3$|VOoEJpl#Hc%x~Q}1dv+3b{pF;nq+%w$VmrP&QqA})KNn(Ek=A-uB~~?!I7uta*l`H5ougDaANvMF$G$I@%gnW7agay+y;Lk-fM0|e! zo{*L=Mv!1>d8npgaFpgX_u{=>wuL_ZQA->%H|uAYAHO;Nn;ADGWzWw5i_p&)U z>~lp3!X9cc1$Afx$T+z~&G{ zjsA#}{?Ef_#)0Xnr(O~Gt>*V`*RdJ>FUV^Etd$jFyJMTA?eJAqu+Ry=yPUYM&;v$? zkfBTRvdGjZx9rBo#yxuEr6NguHxn=T`+%7!DsgMQ_^h*wIRNp8&eciBYvhIw7FOs& z-Uy;sHTM^%W_?yp2`;vxM5kC%M}t8poy4!07dEqvBb3H*I~|BX*k5kO79nM>ysG{E zZ3152h5kW=A<6E#n4)dU^`PCmFV(`qklHNM-NalGn?&p3Z)IOV$s^Um3oFDL0>-byVsNN9}$?kn{#{8GuBTM zhZls$cS{RIKm+s=)N_Aqa#@~#12}8o=Kzt8<~9}YAiaIi=oA|#^=&7kP|TKCP`rw5 z2Xgz7^}`KaR6QpfkIk2s?%Wd8I2U<(QQ()WWq1;}B=^a+H~73tK>jvFyB!acC`P0QG zM_pgt0#;#>gv^rn)vZ|ACS*NQ{QTD)azsT?bz?|=cfT?H$ahNo-!Z}|{tatNj=vsj zw&NoAstCN9Ud76Q@3lr3m(k@fEk;$-3~QH8`D+#v7liBdDW4t^N6c3Ryl)&287_$x z4L5#$Nth!RPxt{-5^u*~_4xY-=M4zMmKvR`+INMp_b2HR%zZaor{xI18~u$*tT@K6 zJtfITxua2^iVn|tUNt!;BRT)H0m#+~<%2hInRIrIpPr|6Z~l2qVc+%gw?%J|`BR`> zs}JR3F#n6*f8`0cCA62W;me&CX=rObY0jGFni`vQN6zjjg!;eAw_ja->2h^-m3Pt{ z?@_=Yr;XnpVSp!RbnH-(&cQ}%?rAJen@oa+1c75_R5W@L<+`42Zb8>Gy!x&9^TF#r z&rUfZJ{W8{vG;tfi-UdkX3eX7G_@V7*(3eSwk6<0Se0+W;NW20z}GL(wrfMOKCHqA{aa}>KLNc}8|VgB_=^ZfKYqBO@apdLZGA;U)w-123HU4k z`sD0&BMOD?|2~_)vB4>s;rhy?n_qqbQaX21a(qgZyXfy`aNBS8Uska&w#e_pUK0^M z5m;YS;d%D{+Y7!vEME~SU;^g@CuiOhJInb!yzld;lkN6CEsmIicM{E_ZiNQ9c?#NX zzdmuL6O+vM_+Huy@9z7b!2vb;Ss06s^yY(~2mcZ=v1fr($0!(zMpN^Y9=8I(y_cK8 z+DNJEW<9@8j+*_UTQVDFRt5@5IlPE-jY|hp>VQF7X@Eyu}GW&|X(j5v{)f z7JYgNqPTkcjxh09vfQ7DMf>@uH&X)G4)>|Qd-@;<{-aV>gCMAJL0z@AzJ)t`HP=TmiQt0F?lb=G37@nBjHuqV@dX(&>6T z9D2J|lj=S>F>!)L@}A?&w9jm;P8L_${?jwcgN<@y1Rr>ca) z!}OGbLm@D?1@$lKQoEy=rA9(RlB(GQXuJ{n<559GsQV5~;>tRAoDvb=*dw$VuXKk5 z=3Yhv8Vd7mITrfJR~r)#WT7lt8$0a{>I|`JAD}S-;2vmhT6r^xAqCTti6_YY`6p)q zx7|fg*kO^?-|*?x7zogF1zgG{dR~O<44^rFetuQ5sJU>MmlY-$bzp=HZ?QC5eTY|K4Qq@ec$y-}nwK9~c@rJL|(CGgJ^bsB1 zXAdrrR=3MG!WxXaRWjcj6|?Ksqk7PR-mza!!YPj<$OVEBh&1%Oy>JfpEt5ou`Ns89 zcOK`n0m+m1mx~?`S7ZfCEu>Wmp?Pi_$E5VRO(F4$io~-$zV3n7vWN&)xy`$>@tUDZ z;|UZ3zsFMOmEs+GG2||%~FFYVot}~#EtiVeR__bn$Rf~)NiJgj&{#FHXSuJk=R@``znw%YOOh`lvGOV z(!7Tk(tcTyjHc|Kth!$<8M;*6Hr@)YuGSv4F8*A7dMSd5$_M({y~&&`L!V!-d51AD zNZle!!8-nc1GF%C3a-2FBIo3mdb~ZW2uH(HTdV>fT{fY>;xYIw6sbFIrkPq&Y7`mE z%F-azfsv3Hwl|4TV4_F?$rVQ5++3t3Y(j^jKwqt&)|((bowH<6pLY?+{J5z${3;{k zY~|c2F|%!ta?Y8SZpCb4!@OuzZ6S1XPbXwkp{Xq%k*79#(ozs8ILm6@?iV=47o~m` z@m(oYL?5Z=;(|T)pv8K+IGXw)-rU>G4bwMk1S19`Z7K)Rv#S4RZ*P#Ig4Hy9tLQ!X z<=gCRvg#qVI%oVt1AbziDS@gS$eV;d4#oB{v)?O zvHpTYwZ9iFM@Dij)a-G6ZS7mQvZ5Sbt%<7LZ##~bH`LE$$V15)u|yGXH4%M{ZIol2 z0H{+eeAs+k(!OJJl{UhH+?7WuQd>5#{E8&;2er3Wn_Zr*&ViDd+@ z-Df?YoKBq__b}5i4UKimg^5(&PRUk76gC$YrsxBRJAEi3W|x*!GPz95=4=JVVpsUf zkE#hsATV5JbN6@z+ssb)Lk%M%D8UTe0%SK5o9?l_y;-4CE;B+$#}o1t9*U5?D36ZW zx*4p6cC^q$>sB}p+^=4FDnG7!I5}A?XFBjXTRBhd3L3M87e^jZ!czc>5(WOo&bX6J zM%lWB*@121OQ^|s7dnN$^B($M-rbcQcy3CX7r^~^T?REN_YlftO?>lyj07?sM3t(b zzXKRYU#@2dRWsRIX2TsFdVfux1W4!V={--6O_ng}IN8;{GZjfeT^lT+eu=8-0Ih0! zAf|rW$uB_ygHzLmp#cZ6)g>5pp?l#zvn&nJ8}iMztM@qqHtjCrLo{|(W(#M#xZMup zyWeaHZF@Jny};>#5HtbDS>cRnyNVXg1Rq;P2I6i#7G0mhse?C&1-ncRr1*?Y0_t(! zH00_VVx9#BOY`%MVzs!XW?5#b0dTjQ-&=u)REu0+eXL;+Ds@Y;MI+XDKdW^TE{%Mw z52na#*SjngH8Yj!@F|k;6eKVL2#b8E1g2_Bm0S9RM-=8{!wW8ukfB05qm{JLWu7)G zKpghFD~k4sFwp|rj$9tLsDfopo{w~^n$&9!f?l6*RefgIb!ts7)5&hyAVThPMkd^X zl(?R_-);(?_L=pLrL?uRtDUxcm1S|MJ3u&)D7k1w-w}jyn^R1aqJ{!xWCwa|M6~E8 zK(e|BG~FuN{rmM^Ag)L)07m)esx&O1x~i%S`$aT7CS!P%Wyfi@Q67pdiS7S6CY0uM zaTzjWp^ZmG0@JmWVisA&4w-gsHRT<+2!gU1e^_X$Pn9C}firEA)$MZEANaA0G{-2q zBg_(UQ^;}jnGGSe?p28V`jjLwQvz3NYiskk`lWt-|6?fH#rLYoX`Npi@8tF0a;4K? zAj__s!G4L(8<*G%_mjCN{ad>@c6iG^nc3o=Q>G*rE$;fny8%!I#Kq`}_Q}^ZYtl;a zVh3$*2$8>$%p25?^thSQ7x%K+Uwc2tB^`Ks^-U`rDF(Miua*xCbp-8My;B^h1-R*b zYt+g{U6JfDU)Xt9SK2y!_(rBJBb`$_2vyF8d3`c3kHerp;&K$pQRKWEsD#dpb+c+y zkjsBbq$=^OyadUfCqiLSn5iAzcZa^_+@12ZreMDmH1Zn$DGXE zPi>SrQV9lAYfm2oHyMEs-1dzU83c~&z48_BazK|XU|%z$&BhMgee@dOI|EuBF#5= zqJqC$eEQ3*O4)-k;WR-=gjTj^EqfUE$ojL|@4RXD98?4IAvSHDr`zr7z+B>uDOR?e zvpB@ho0}y!T!vi{Ao&XFumcw0%F52)(=$9%u6PzsRcGE0J3`|5V(@Gi~(Wxz4JEKh!R&!P>0FH-VmNY+|Kja`lIQ@cx+p)#LUn zL}ruNZ$Aa}YyNhV#1)k<jeI=+V!x3t$3cJovit)x-63IIEO+U6@70}!eHmGh7B@7MY=h=v=XnGcT+bIE`c*v=spLCD#^7ev@h2CMWQk0R z%#h6dDBtJE49Vg1noJX7h3)U~-oS+U{KxY06+^E|waDG`e2h)hXyE-mutw_hK2udWz29EXqk^dydW8O(Ra z2OL$T#ec1_EN3VoZ#d-x-Iu;aA1K@KEi8{*-$m}76{_Iy45HAHh|-=*$3s*EGe|SJ z1mIgGMDJ-mlRAO;pLoMuTN@j>^BP8+6+e4R4ykk|Ry2fOwUPJPR%Bp?G)JcchSSQO>6CSDHWBT$ui&r` zgpOm7HcK2mom6AvXhwQ0E@%2&u+nsm&N4}G-#7l@!H@Yuv;>71%~#a;cQJQLYAR*i zP!FNI`O_hLUlB?0Q%U2DbY14JW9r`A7Un zv%F%y61}M%ZN{9kTtw7^pS_)vdPCS-Q&zbz=ZHBla$(P@YT+>woMZKRlVwF0`q+Wy z&~Y_gZ`PY(NoM+1Y&mRO6pk&RPBR*!#@cr9D=C$Pml70{32jVWr~R{49t_WPg4Ts^ zj5_<4@a=w`MBh7_1a(708Hc5MGEi2oz=#}% zEe%;+d6;%VXWjjnT&EgrA?=QR3ZHmJxoWBsdg$mI0a^H5HOn`g`lfG*yQ;k{Zm-Yy zIh|dBnYjbHbi1sqFH&*p9!|v7c+B81F7}_VtUs(5_WyIjJJdK%IGcv=X zj?%YVR`7!MyeAQmNX{jo;p|+$hBrxlIGumEo{M-M{)}wzqMlsw8=VOh6!aoo7Gp$tdhM^J zA90iDbr8%46i{b=B>t*KPKmSc>A%pvltJ7^t(R^)fy?F1=%HEc&1Wy_bN=yT1L!%a z?2em)MZZwHj!bRQ>OtG6$`XpW-FWsGHns!q1A&>*!(_LTg^q&E#D^C5G&}|3ok-IR zOniqjg2%{_*cWi7i>OnN;S<=^x9YE+;Ohi+I_pg8@>0aw8?cF zr5~NE!36uI=MN=?)kR_Qwhz2=r?g8zHkiLgk>)&cR2oefbapf(r4kSXmVdOvVv26U zK_Xgj+>oZ1^SQuVP0OnjKQz_emwby)bfLBu8U<_#)m!yR8~!`SU*gfSW}<23b}a6u z*^Kw$bdvFANaq7aWq-8oAxN`>`y>#pf{#~hs= zZC*xa=*D@WF^uAoSE2gulB6__ekgJ+hb`j=xLT2$ni2Q@_~*KANxl^hj+vvTsI5;3&dD%FVY{b!n6fO*O4Kf6y-G!|lb*!kkLoVD zXw5D`w*~%%GxK|y<29aNsbB)n>|1pm>+;lRd5OR6Plz%vGoKPs;YB1EIxbfdBvi literal 0 HcmV?d00001 diff --git a/B4A/Files/izquierda.png b/B4A/Files/izquierda.png new file mode 100644 index 0000000000000000000000000000000000000000..bb268dc798221809fc180aca37b487871257414f GIT binary patch literal 8613 zcma)?RZtv2v+r?2U?GGAmkbQwTRz)D*zEb@_*1FfK7TJd=}7e>ZqG@uDYMfv61G2|F`RZbpA(2(+7vN z;SCfnkCDR`5vz0Pr+;4nH~Bv^3~$hr&L+9E`@}t;Ko*Hj$3HntCJ?(`>|s6wdn??O zv#hG*sTV&MWf-FyY}Iyet&`8t$ex zk?vOUpvaxhnPodL!(P~Iqn|#$pfBPXr$AS8Q{I!H?mHdWplULa=fLuN;xPYwdb(kf zFvK?|#u;;FUZiah$DuNWEFhHJJK9`IYTUz8+eqxknuLM2S2@mRYig)@U8ebcga2;%#oapV&&MxNHSxuAfdF zV!%=p*gq}gD&2STOL1L9f@kTSV_)k-Ma3J|O0kjrFWiJbC|jvXU81@+(5Fble`UI_ z&JXTKFzko(wz7S>&n9e$=eIau!SP`wJm0Va+=U`Ev#2d~<^xc;@WED%^ByJrd}H%r zdXZoFi?P6B8wA4!&jci^WGSBs#Jt_vH z{RtU!bl*#1-TLk}_DhS-^|F^SNcJ6&a`<)DfV~Bh$I)*vYh2hbHS+N^SV8vFE7E!9 zY0ym>Csvu@*GWeyh?<`!k^(0L0F6!Df;cVzU!{chcQzr96%fX}*T!T3ZRr{d%D1s@ zCZ$nW@<3Ax8D*UH6(Zy_WO$NnVA4COFf6Y%@gTcmcKViJyIh5Uy%D6Nc z8LZYzyys7)2ri4SDZTsbA(u$XxBr?D9`q-+B;nOYt2sz=VI38i)B1IU#aN$Wj{rcP z#6iEZqUBy2g6dqyxxrqec_;#47ZToiJ>thE)vuv`BzA#~944<=3$w*O|Kb#>to2cU zEKeg+j-L62w1zvlv!?vh#+GB)d&nAZzeX$lav3&KJ~Wav29K}KKXss}RT;C?!6mB+ zAq80clyu*ZY32IVZ_%2yteD)$U$|zEclgT_!FF;L<_wp66~V-d?-NV@gDP+0c0OGq z3wMDB+}Reznr3TWM$}JeRy<(O__rf$9n)1X@M^T9-0aiBd%le-4n_%(tU-|ORxw|e z&+$IS?8!C{E!og#`ij8p-q;Oaa@)7wl^93lZypRsery=C#8m9z5XFr~M)GE+mfnHm zYlZzrT3#vG=B4385h;b<)j_1%QVgR{2ZsB_;h{?_?_OqTfGXK4DJLo-Gji@QCy;aX z)uM)jn6_2Z&ycBmg5Gf{VR}OB+uy2NTryGg!$K0NHrT0aB<48TOT(Z&0#>AvbaE?3 zF4h`x`K@osEPD^tfgJca(~!gq>tBJ@BKP*2b}Xq{aBM?*=5UL8=wjybD-!dmp4aa3 z`^VP(+iU)1lrSv4^^9?al?9n=qTiasvg-mF+P{EaHk z32wuub^-rXsV?gsi0O>_u^l-KkVOVSvvYSjT_}NQp?q+PbaTLs3-5oH z@2p9K^<#?*?TJsrJCN1*iq&n#j@3Gs1I>E}QNBzt|3VW!Jf&_Hm3fmXXw_4Q+jnwv z_dDSw!7d_93YU+U&8F4x{m9_HzrJppzY&`16UsC0J=bL`jEU#e7RFgCTwsHU=13^I z!jZ#DNM?}7g4wfh^ILtLY_I~RC%yg8#Cl8 zgYczo%VUG)4#w;E+dkd-__2pm6wVU~r}sJ5u8c6zES3YNs*9Q?O#Y8itl9q>HvFb} z+;$BjUszVsm#Ajjp09ZXBDiJIP^+Bl%#K$}3>vvwQ}5E*vy_G5HL+{84Y!P1V8v3% zM)TZAJ}#nnc8__Ah+J~I-3Xx=P=!;^Xk-`J_2(-ken^6K?Uz)keglXEx~h6+Jj+p? z(My#}O7JAbalbYCBIk_M^^l;vJFy6IXozXYv7;V6d##koM_lZ~i7?TBFHu>gzj-dd zX{Wtwd9KNq>|s34k09oykkO&2Z3Y2uWzz~pDOa>NVhb5-E5d{}tXZ1ZQ;Okb_JPDz z>!Raycav{aBRFGx!QX%iQ<*J2bo;`9?O3>eKNU>K~~Y-E7^h zGt+v}LR;@tiQ*7FO*r5zmwn%cbGBHx#rgT}b0pm^sx2?-IK{ht7qeSb?*b)qGy#;F z#Tk~5R4$`QH)@Wh3tvzVNUR=AOm!ly=zy!;Xsxz&ViO8a=nyI67`f_jNi)+j`;AsL z+piyYg5VAQ9tSAuZZGY2ENnoT`yAHF$DyNQ`E9;7Wi1p_K6Da^uX$Cl>_TnH@-AbuUz;f01SH$TnVi=!#{seXBFE5k1gwkapqN~w4mU8;WMQbr0q(`( ztq*Rr=4#FK7IxG3s^G&&h^13$X~5-NRu}^@xb~Ot&t@$wICm4J!*r9^9iO>1^EBJB zs1<)Wze4`G7`(Z!yZ0XdbY*-%8`oNKg9Oh!oHjL_)9LoNE6%AU{?;nn(s@luIUT{m zGO%#Jl5Jp2!~dt)ep0y=GoYan9-)p4J=X^+)Ab)O)~8n;ajZ!VIN~Q9cnv%8`X@`w>*QF z*DM~%fP3z{!ak6n!Ei-+oHlREQny8&2Y(BbU>dNuLu~8-vvB~JX)DxsDc*bOVz!Pv z_A{$l6bI%SIT(T$U^2i*i?h=5hgy&C6s*@tS25!h?D~w1dtto78dI<15jzK0?DmJ? zUmt%kS&7wv%ssqF;sx>!zQtHz=)?$c za)@)o@?71)g)x&*6tP1^^v(z?^Y6=-vK{@GdYliQXJ#^OwAg%BSQcx7uUZ5sC9MA* z3igk$!&;K$>D$6vCi3>4U}u2~vW5rTsvBf5$pRZx9=(<$rP)vEpF4hez@uGtVeu3{ z6NqI|!4Hy$m+JS@IXU#5qk2&QYt62T4)r;C?y$R$oHG6GImwhKr;=iYDQjh8y!Pn& z4;If+AC60MOR@sB!n9uOtdm6c2VepmbKizysUk)Bt$=(ppy!jA<|}CbiC7DU4&!ci zib%QJSJ833M#OxKkeSX)4qi$9JjTng_cPVaP- za~*;Xvqf_0Y<10G=stOCz5rY4?R1WBBqgy4jyLa60R2Y%~%lT-!bxP1(=OzhP&L zNtE-_LQFhXqo@diLT5-;Jm*goI@4oRQ~q#yGs2XuMPOe=y%J}=9Es8ll7C;uys^>K z*md@R6VH`Oc^5`SYw66-Ni;)QjHw&z43n9d@OxH%%+b{~X?7kO?m7%E+HwTFjm$Qf z879_S)QI6sYx_6#l7icvgk364O7W+uj%5 z8dL?3Cv{$^55HS@SG)jC;FnqPSAM=ClHDWw#IRh3X%*wGfses6oH3%%IK^Akn0Ccd zn}6oUlJz0QhVvw7tws$POVN*&L#^YFQ-(azYC1u^Y$>bHU>4@rR-KIPb z>{gI@pNp^9Kze!_Q6H+K6o^+U1BrjHo=O_kSy~q!$p8J1m-rtE$edp5@yl7qF6Z1$ zCaksX%N;}Ba`nZHiPs<4sz!-L)q|HfYp1PQeS5Vl=}w_N`y13ngUi}Y=Yxn(Uj$DB zKrAa3OMHtV)dueGE>XQZYfrYZ!rAe2nXz=tRmAJ)g)V!OgE}BvsO1cmLEp67H z!UpH_q7BCC+eZ%EmeCaCnT?dXv)12PrUn#?wo4dyKu=UtBibJZgVdxMs$wr@icZ;r zZFZYSO7j5H?UxkT#%Hy2?#&t*1n9Hn+u!#wkWtfT{Oj~l5Hjy!`koq z8fTA~B`AUe%@3}@Z5VQs4m;7&%C}t2oWgi%E7kFrmLJ{>JERHM?494N&bxo4o879A z-?n;n*RJ0{SyrUYzGCstaG??>kWEi!pTAAcBV~izvVxTeVrr789U(&zsNuZkjbS_1 z7t85orA7r1T*JSSm$y^JW?js#u`ZrEk!P;B){y%`CZ_m4t1fn}V$dDeg>6m>(P&rv zvO%I`dVQ)dVcpRsF)!MA#4KW}CoVZJ(@!^cm*yxEBg>?Softpu!8XFC8}Q`>=_|d^ zY5E%21sBjBX>?&zuu4!;mlD=} zVt*YLg6d;s1SQ81Dzc2NH}NO~UaK^p#;%HNYAUA%yxXmM{w2`N5l7X~WD;CTc+%Qa z5j4WsX{t0p*#59O8mMM-Biu*jDbk!i)a!sRMEFd5Q!u2{+){M`G*HAZC^@$xg6Jl+ z6z)m$x8(*n68eL%o1FE&|K-L4-+JtqM}TfFjtQMI(&SQnN>+%#v~rBhEftVI0m}W* zN%_bh!3HD7RUm*XCnqBZUU-f)G?T&K3W+8@(IGN-u`BHmdY0`;-+5RO!?KOQr0s9h zp}b88`ES{AuG55gI+I)(7gwaOQ6U0YG3Vd>8btuid%%r!Gh(}>Vw$tR`Zs*i6de3@ zzoeptsEZ1q9I!IpS8C$_Q%29=$@r4s#ov6jY)K*@4JrVxMx=?)C2EeEBQz^DtKqHh z>Zyg}MYWvu3yu*#UF{V;9k2rkFXkbk;cBX`MT;yj2Fl~r7p_f-A^Vc$N%iu|#lt1C zjdZM%43g+^!$GGXU2W4Am*M3n$Vb*+i>D2oQwxBb@D86Q(T z;HA{SF>~OI;`49gd54`ie_V$rdx52l~9Hbr3R`hwzj%M(Z_sT?S{H_9$f0%bN zk)7B(+SRwb9o00sU%L33rTHQxR)2xd`oeThtS<`vS_QpqpK} zv%8SHQr~lIuYNnD@}`r2f?VU0pN5kzNoTY3xQ_Pt-09;hn8(J~(Z=wukj&PaR~GCXhmzVx{F$t6nQQJyM*$*!Mv2q6lG;zJ5p6yn)~Qnd(R_=93Di zJU&Iw0&=$R6|?U*W&EV|B9QP4ARb5D(^y*GmycY@zFy(X)5Iz*e{c8g!t|db<+wo zmQU0$`-V;KwI2pTX49XH$R{x)!^#JHu{1vMN(LHaG!pE*;rGCmj7{a%q6zjK($F6r z`8hMH5bvmP`nxye3m%;&dk})_VXE@77=g8;@ykKlSA?&jR!qS{p`=$2_`yq75*s_i zy(TR;%Xx22zc6;(n3g6OTExDVryJ(76`^i2DtaWn+sc8m{0n!G6OXwRf0rSym4L|U z*O(A0Fw9&F|8$@etz>fJ40aGo<^eaU=j@~)vDUFJ8T4c&-~$U|0$;cq)xMjN_-3#o zl$t1xWIHSoBTRdHMr>$%s*E z{`GSR>IEe5)$D5E#qq zfi(WrO)=1BKyn)2bK*2Nr)&3twNGCuh+?X8uod&6;s^YbVwLi|c>DMlwMf${UK0A8 zfVNMpuEB2jmTq>|QRaY-Cl4P1zuks4Pgwi~ASOfGaqgCJLy=rzdd7iYAite^i6%XE zfwYrtL|MEcE(L*eD2(oULSWL`wPH*jN#dtCcwwDhf^lGXkx>CjZ(q}2Qnlj&KPtS9 z)isw(sc*;jCp}F<*F0OT;7&!jIuo5$?#ZZT-J)W`PRtQV+9lnnsmkMQV_lwV^=E;; zj$%c^#rymv!!3;g!q`!Qd8p%@N3Sm$vZ&sAOn;#s8ODqo2;8vwd|NQ*j7}q~RS1g2 z)iTDiJ>)upZiG}OeiI^3<_kt*Qc}-!5HPQxFHGsoo5|Kn3d%|`yAe}z$sXqTwXvgv zDHTyZTCW>pUr}~y9u=?LY{3#*)m`dV1YWHXo6-eRl)miBM1hC2&Fx^lNIjz7#Go7$ z?{=@$pZyGQ2C#xVtOJjKa<4MV?u>zchDczBJ)r9FEzd^gUTK9q8HC8KAZdt z=_t$A4vn#pwOlY+77{%Ps&r?DwfpIQbSl=ndG!hsof5J{d-nbJ0}5qDk4ecLi4o^_T9HaA3m8Z%6zPU<6n-? z9MyEje(d1(fhPVa)HB^Rj|K`%dp|f6a-C}=6xmk%O%LU(UJBK5_6mpZcwj{~c)?;jtfu>fN^<(sRfoD? zdde3aHYYJq+jokwzF`ylZB*k&%Z(rHi!B=N#ofG|4#F=68a-rT-Z(ehzz%%iWx?oE z3=atrewDMBp`q%$F6Uab){{|SyL2RAV|z`dc3~G<1#gi1KH);NWRBuFf6k9sz*JM) z3e;|o=9-VL>1?cQc>DM%2n(X9Vs>V(%Mpc1u~eUw3h9dJ)2}y&O}rra{uEP4&oB2TYZ^g(Z;8)@EG zB$P?d098{OZHU`Vq`64HW!K&$LbmkkTZif>{h&o~!}w-Iv{4~WVQDG~f>1k>{XtrB{^E`@5E>W15C#Vc>PSeysN1*wf z^}2WFgGRG1GKnrt!+nm(iM9GkZrQt|PZERX?W)oacCP2~kSSes%k^#)UaSYRNe$t! z=$p#e?&z)(nmi&pEO*&f`zSPgQll?Cn#tYu@lZjw`pjPa=;xgs+~<35+PT3iR-4pc zrHqg*LxT-vn*zK;6w7!kbB^kKNLRIe$EPP`Mau^h+KcXl%LN9QJ}Pi?xX&u}mKkr_ zUI^#1o6QEOlofD&ewlvwL*uvMb%nxpBD%?hiD9B~=7i0yy|{WCqYN9 zJz+-UYmC6o?~TE*0=tHq;HJHJ8NRWZi=Q&kiDw|8joqCEs|=Bifm$nd3&GMUsdL*% z$J+e5x#qGK-2j$Z_K?79Bu{Tc<40h?e&^eQSrbb2ymtF$TO3>B&uiKGm7#3{uMElsN)z zJKNG6!ErRHp&)9@uS)*px19%vqd3^l?`^XD>~WAb?V;~u=0x-|$!T&L7a~yqC_7Rn z(kMu6XczQIjtogzjjlD^zc-rGCB>W&cI7S#Zl$6`qtYKB2ggB=|7bboS14|wW7b3%_cGF@InJ4KMWV$Y?SekKK)z+#6SsJgu zAv8tPlEZIf5CXWpMW)6C3hZifrB0d0`!%JJ)g{#^a)+(QDJ&o0#IO5t7gW??7(uau zIhM70L|hWZHVIvuyhAxayu@y zy5X&|<@L?KF)BiaX>5SM3=i=MVD*?A#O4IPS(0M3i!T3t;fuC0uVYV~R@k^-h>12) z`wdua?1VI4B4^2{xp z?qsfYO}47t6ln@;n%}WE#@cR~(jzOe7{0;&eaG*_3+{c4(8l!8H6$~p!K8|!Aa-xb z8#unw*wvOwHS)DfY(q@sOd6v5zGi#Huh(j^#RCa9#y`4% z%l+8K1cK{UHNsuz^D+d!Ho7YAvXFv&^wvOjpvoXWpPut@TnR=vpc;iAN2`bIca459 z*wgBEL#WxkbSi1mN~Yw(IZ?X$FpFf|tv^-yT;Pw2_3K~w5VTrIDc|R_yo$d4RGH9O z5P_?^ELF~Hn`c$j<<=5p*Oh?mBe>9{FyizBy?Iou3 zP0+@=3bfwB@caAyCu}YQ^Yq5_#6w^Iw&Ui_42B}d<1zWwepzoO*z7F96?oWo56dlV z_iDZSDI*rksG_n?b9?LIp@-|#PCXFUXQJu1w`*UxC%Y(gi+c3PQ_FFw%gfU<9(vji z#XiAx>*`7$gR|m~1zuaW3s3RwU&j!`pQ%Rdr1+y!R+ihIuV{KZd_x00y#K29Rq;L8 z?Q7+`&mZivR!s literal 0 HcmV?d00001 diff --git a/B4A/Files/izquierda1.png b/B4A/Files/izquierda1.png new file mode 100644 index 0000000000000000000000000000000000000000..20b153413bf82b7c6cc3cb8494d2234cfdaa806c GIT binary patch literal 6486 zcmcgx^-~l8(*K|s1rLXbE@q&tp28kEi>q`Nul zkbHe-zCYoccV>5=ooAle{cV4EHcC@nk%W+r5DN>7L|N&b_CE~&mn{JNe>Ep-YwaJ< zddeGm>bTl?`anFavEEv_T3E9vJ40-(wXGpme(t}lCI5-u|5x-@O;;CUi={6wr>mjO zBCo0QhL44Z#lX(q)0#!c+6v;rA_wtc(SIYB(FxmlEl%8#vxZuF*t>b!ySn_N{*nJL8@en_^RcjKq?F&i)%Be}$Rse= zoo?!Xm`hUTPd^BgrS4)%4GzN!2_w{(C;NutoK?{zr~0C8=I*aiMOE&+Y&mWlGldgP zZS*CWUOyl&gj+lIKo!*ROPKO&x>d~x`&s+3+7TZ?6gQ61_1)fKn*bCAz29CKAqi#y zg#6C~^vxGcLJBD_ev@pFHZf8UM+T}gj1HtxtxKmhS1Jbrw#+Oq;DV_2V$O=^*Xit2*ouBYqQE~*eAABM)Y zxb0E4H!UAY&lgazv595MYVb)YeRlCt3UrZMBCzg%E*lWgdfoo>Cw_lClNWPPa)YCz zqqr1;1AlZh)?1Q!5Cy>}rEP8VIhM|F%@lkgfn-6-hM}eSYQvZ zad7G?f<1Ew+t^4rcCf9Iy9%b}q&}*4Ug&2hqfk!pO&;?hcJ;U5qe*PDr%dJk5W<-q zK!Gv~YP%7U4wwHy!2ax++=m=k-Rl=`EEf6~+%{(4^z`*_i?+4SXgikwUCU44W{VwE zy4E-vuo}cFgnq9r=pD0?j&pyez!Es?7TbPlgb=#2T4-oczfO}zv1tMy83#(?goKy_ z5;Sk{@bTFA_==zgo>yev$Fra79Z?qJdGbmc8W9Nfh`w+IjC8}iktl<=VQGmuOH6J) z6vND?N$^F!7SfG>AmNGiM#?|rQBAmfjpJa8fmhj@|8w3{?@?l00@lHnX)z?8l83H- z?&G+zUr8L0^RzdBCj{<97L$E(uMx5f%M9XxWpln9BFB3rC&;lZdO*``e(imbBzwm!I`9{ z@6_0_m%VQoXHSo)ofhjUJEI6%GrkzPi$z(@-HV7AzN6Xh?1(rX%xi>5gV~4Y#)4&` zLO-oyJIi$no6AEvxdHLdOh4J<(S6S#r=t(ua8wK`^e+-h=d(QU9fHd+J1TjmKSjjm zT=jm_My1^cl22A1i;a%!8bs8DM!+Z-^SJ>;Ve5$o54UuePk}7lxr!OGt;w?OAKH%K zrYzt7q@2SsvJ@Y}|JJ2%{+Jz|n+oPqW&HVIN5Qe=){S7gA;3#YkQ67atOSRKmrR}z zo+!pF`?T~1?{ICZhyv=3%9T`ALu>2xNC@C#iD%--N>*a2{vTOL)x>FVgP1fT6?Ps z2z`fsQ7H!26~a%L4^F7$J!lYbMI(dUP;?_erZ19oIyySAHoq8;7p`q*!Ut1+pS55o z9B0flo4?;`e7Bc=c0R1>Py^oj5O|UAB?E}vT$fu@ea$uhZd0vE*#&FD2DP4aF@6tGq zhTte^_K`{}WK~ZwTDoC<+y?uwx^#(#U8=X|_*;!5{|;EXKmt7*rKJO8B&NDp19Gq&E2ooymP;u_sf`S6@=81ME zb-2#EBVW_BzCHz^{x?pue2?()Ex4PosfoI8s_g1EPgc8&az#TX7rP@!n{<}*r6|T^ zJ6##9MHpPGdhH4hiY&HW1oaINEsw#s2wPb%d4)_#KZ@>%0tl)C%%_)j5+QR>9{PgB zCI)jFP4!X~j5v6n;^F$|D!!y_B9L9HqdBUU4)HwS(muzY`2&ks>s#Es;Oz1-6bjL? z>h?5%8K;>h1`RdhnbuZ`AK`uO^yMf$y+CD><2To=hg}uRUw`Vz%eDra{k6XzLhYjfD4s9iLQr3~0@=cT31EFg6 zL!AE)v{-jH34oBWnVs5xB$TvU-!`;h9+c1j)T)M@j4X$Hya1GO+oDUIvhaC3N^;wW zLp^h&iKr!alRZ(DV#8EdUwe8bEH1#4h$JnIFUWBDZj6UG=@;>7j0#zWx=)E(Z$GO4 zuBjje7;z);U|T((qH-1FbHA~SZdq=Rr1g22k`i|oUPzyR)O(s>> zR;Ei6Gy2;h$1f9OD8iBO!LhLY*6{;3w)$2YKYt9X`v!n6F!Q}{lf-$fo}0I!+~M|~ zd8K!|q+y{>mXWSWSaR}`ZM;@ju3>&X-jfE|^K@<7=NzaYb&P$Tqt8=qd3ij7eDb>+ zOvEBYQ6Q=ZHOd@#ecrT|=hm=@{D^ORV;ByH0~>6>czZ^~-LE5fR)tWpvWP}eIWYKc z4`_OOr$&c`;Q6#=KbS%pURk;x8fwzs^lJe~b?mIyWp0gvs*TM=xy7sxeFq*rl1szx z>};-8@OF0QVG3Gv=e|uaTgz>N=H}OpEu!a}1W9~N`k{v|cAUnA`kTKqoj<78_o|>s z`if$;j_%aq6>PxSoOe4EUrEdF^lsg&Uze4Z#Z~?~n(6Ov85AzcU*@5XsYwoy$@(DE zXD66fS4RwikPi$F7DB(6?<97%S~Z9=!13|$)qMk2EmL2y#e&fURbSy}+)i^O6#-c~ zs`_FHA^OvwZN-OH?X;*1j1h*`RLvE^;U$|XGOZyWYHc8^>l%rPphcJdxj7?Bummi# z?fAs8;;ok+mBlWTxDj7VcdoR^0wWX3BP)R?UWTA|6eSe>f%~AMnQr|1UzyS;Aa@|| zwgc{c9FV$h&Lpb2S^W8ycQuo>9{r4~W+jEBsI73>4Bfl_ce$-)IE(A+EBot7!fW4G zGwe_V-@r7<6&}L;@Y3wvWDBp$lRuFR17cYw32qJPLmXja1Cf{_%BNJ+Yj>FCeqiz* zS`uHt<-kxaTaq?3f;d-;EWAMVn+1BU*LP>NiI1jB!d*G5e6&IP`^CygnK(EqEG!$$ zy!?fJL*2stEP}4aVICv+ayl45OzcKV{N$+wem28`rY$S1qTCu}M9(1VOC~QbeKSOby)8+Q78 z9oUYqGx*fEvVP}9m<}&k_Q&V1Y%_Xwga69LXIIk0qjq-e9$h`o@yCcxujmO{Je=(o zqGyaYNJz9Wrs{9LZq2JF(X=YFD=SCMRzrboT+kbFPQ^nYIa3Ax+gfk}mW<5n zVY5WO*IZyJSO#Kt)C+d@8|@d?b~duG;Q?~TEc&!?tel>`vAp)wosdK0dfZ$m%4~~N z85uGB#zRN08wRT`RU+@jIn>f}xCu3~9`;b9uz}lAiV*)YgqMv0HZOCnA5{3KdRsju zIuki2Zd#b1c7HqXShCfXpP~3V;WjM0Vht#BlWgpw<@m{^J>JKdyW2V_qg=mN?>3bd zh)m@%i%%D@ZRj-f>gf==@P##%N59e`>iC^f`DCF+ zOk%qR@C-9mT)@LqE`v<8q_cY(ct2-5^>-=FvzsJM+&bEWcRJOf$15furc-X3=Pti` zUsA?MPp?X9Sk6?Gm&XwF0m<}CA-3Z!Kf<-O`iX}01-n$EPegESC_tP<1Q2VCdivO?$hCYLL80`HGk*#%F%(bn$I*`w=-=HSDek6{8f zLmeZG66mo|(ywG?zrXkNdi7tq(>96;U|)BL>!vV=NVC!MEIq5fNo33rcGc-DRR_lU zB}hkWAY2V}2&jYiJMv{3sM0<5MPYE&;vA*^Ar z(iQTd(Yu3Mq_*>lV)ffcQ5NP8PlwXQu-`6mOyj?0eG?hkhHZA6PggqQq+M-fW%cya z+lq5wf>gL$bnQ_aMmjk)1#IUldS7Gve47Z^3<804n`y|YqU0i;bjENida4Q9s3Y+L z^EEo`OF^HjvHQ=4B4dgbD>rC<^v&dAo*`Bdyw18%a>=~e0xPX>{;WS^DyM@)z}LDq zH3HCOX=>4=T)X^qORV=awk9AH=t@|1gQ7cqSrAg?W&W+u2HbsKLNdf5uyns*wku*r z<@3JXo{c|ZCcnwyvD0w*Y)};rZ1sX>Y$Di7jxqc1Cb1;)pwc8m6a7y93xUu0nE*pe z)mYtiEa&_N_%VMFS=UO&j7zrP{xD)noS%)N826g(d5Pxc>Gg?Aq%uvUrJk%>C6+^v zO7b^&@LMFki26{+W!7VJwxH(EL)#ibmjYplcorf$rlz^~BVp^5M~@0yYBu-O?w1z& zGh%&j)@b{ATamA>Zd1+cOY2Z_0C05VJ+GuBs0n*mo6oqxNy}wQwm1+3!cn-W&10-LFm{YL%f@Zbn`!xvL!xUPJd$h z#3>2iTZtzXYOmP$&#uCbUYfgWz1iH}+zSv{@}-o%I>FUTUOOLB5R^-DVkQn=j-pxEW$?h@<48fwWF7uf`h}!)+o+%eJ1` z)zNBc?}l#V*6y@tz-a9CsMY`!Px>93I5kSn+=cV-(ir_bms-^a0YD3(*Hac7CW*>< zH(L`zh3kR&Mcb%oDExiv}h}QZu&TTS!ryH0@ z(oQmN1Z1)5Mqj1$gh^C3Jwm-HW$KfAk-#^WiQGcr$eziE3*mV9K(_YO`t*7iuT*fR3G$2G}WGzQMN`?8Q$w?2VlVI z?j@)>w_y9DbAqdpQeOKpuVt*^qbpZC)AC%{==Y2&|&yC0sL<2nNjT%RAxjo&I` zY(I$zB(wP~6_%Afm1v*My(AzZ@H(C>cLtRUXn9>S8b`%vb+4^A5oPzgl{i$Ek~CiR z+??JL7pDFEs-vVHDQl=N8B#=Yd+T-NM_Dm_er*3)4~5%{_jluKX!527!cbRtN1D?B z=GRiY_X;!WY8n7*Fg=)!_{Q1S_zASdpZ&lItuOlL+)VbF_?PDj)b@%vAzGMn=8nFz zuPLkw#ul=Bytf9_`R21$V`G+OVzjG}#SU<3-N!nC{FhG4(MRqd1t*j&1%|egMhml& zATo+w9AU1i*Bv(cdU_H8x2uIQ3Xpq<;E~H`R~6FRjpd&u-YTl};Z;>`nOx(n z80H0X%H5vblF64bt020<(s?nkYgN{=#A`v8+Db+#hnvkO(nJGl!+Aoyli2}##b_7| zHu({=oAIM9y+>pi4_LoAQG(O=qlbMH8l%>(6o1lJvEECQ`Zaigv(Mb=+A=Z@i!f%W zC~rrCYm6w41!`Nj0%~w~FaF;{-OZoB;q?f7mu%${~mo{m_bp@%< zk(v_mu*fd9$=w`rL2;erl=WYN@j>d@qN~!jwgp^=39V;mXFN8wFCuWpM+fTN0f~VH zwOh7*J z(uw<6=GBWgTXnr5%e!$EgZG@#%M6l&art-S&n9aHCKP{C(Z-pP{w&MU@Q|bcMJEai zQasEW5GEB1M+CUdZ@dU~ds#`*ubQ7|U?Ueb9{JJuFr-^Cf&0b-lP$|%3QBPurGRV z^U2*8doT#~u_5Zh-|0k6rfk_JFv>LeF5g!s4NzED7+pAYmZZF@4_o<)yz%ROn3sCN z>Rw%md|W5yLZiR4=+0+WO$+7J)jjIV%R9VIOw6e8qz`a?kXEor$WHenAvt^DlGbN^ z+>ygVRfb;vGV9<7ZEb5!1=7Z#R$g*QzkVIZA1mLyvSR-+6k9w?eYnDd&sfnt1(-QX z{gf(@*ZHLFAx69{$sY|r^-~|A+Sr1>>_C!D;Q#Lp^)AwH4?uIQ7Dx=7EqfOE-?xOa My!yKeka@^|064~V1^@s6 literal 0 HcmV?d00001 diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 3b489da8c28c13641a4db25583cda87f43b7dd71..0d114914fdb1da3a29a924a155a0dff5860cafd0 100644 GIT binary patch delta 542 zcmX>wm$7{jBQGlh0|O%)0|OV3HlN6=%*_sDB*iCZq$X!iw3Fcji95wR`*^wr1o^vc zj0$67)SA4JshE`+D8VvWky*N47|0R?Vj&%oR9AW0}9v6Yb6%1CS#B(^FNTMdb=j>OhLVrwF?wHV?NKGQ~$ z&_QDBBC+*=Y<(a$0AfQRHUeT}AT~i_n*!OekTcsnl_i#u@zCbatWP=Rm_Vvckm86F zDBui=teni^lFc{x&)G5VpWJBcGC9FcV)6thj>!#PER)&H<}n_ayirVea;CHPWDj*A lATM6pgz?~HZFA4b)%Ki>p_BDp3@5Ml6P~wBC)lQ*xE>J9VE6ckgW&A z`ao;|#D+j@1jNQjY!e_G7ILOYY>v%4SOOUt_iyH6d&;?)SKyr8cmjD0& diff --git a/B4A/ManageExternalStorage.bas b/B4A/ManageExternalStorage.bas new file mode 100644 index 0000000..7f0a197 --- /dev/null +++ b/B4A/ManageExternalStorage.bas @@ -0,0 +1,81 @@ +B4A=true +Group=Default Group +ModulesStructureVersion=1 +Type=Class +Version=10.7 +@EndOfDesignText@ +' Version 1.00 +#Event: StorageAvailable +Sub Class_Globals + Private ion As Object + Private mCallback As Object + Private mEventName As String + +End Sub + + +' This pretty trivial class is modelled on (plagiarised from!) Erel's ExternalStorage class +' It applies to devices implementing SDK30 and later +' It allows apps to access the internal 'external' storage as was possible on earlier Android versions ussing traditional file I/O +' You must manually add 'AddPermission(android.permission.MANAGE_EXTERNAL_STORAGE)' to the manifest +' You must ensure that you provide the package name of your app in Sub GetPermission +' This class uses the MANAGE_APP_ALL_FILES_ACCESS_PERMISSION intent action to direct users to a system settings page +' They must enable the option on that page to give permission + + + +'Initializes the object +Public Sub Initialize (Callback As Object, EventName As String) + mCallback = Callback + mEventName = EventName +End Sub + + +' Determine if the app already has MANAGE_EXTERNAL_STORAGE call Environment.isExternalStorageManager() +' Return True if this app already has MANAGE_EXTERNAL_STORAGE permission +Public Sub HasPermission As Boolean + Dim has As Boolean + Dim jo As JavaObject + jo.InitializeStatic("android.os.Environment") + has = jo.RunMethod("isExternalStorageManager", Null) + Return has +End Sub + +' Check whether this app has MANAGE_EXTERNAL_STORAGE permission +' If not show the user a dialog to enable MANAGE_EXTERNAL_STORAGE permission for this app +' Raises the StorageAvailable event in the calling activity when complete +Public Sub GetPermission + If HasPermission Then + RaiseEvent + Return + End If + Dim in As Intent + ' Be sure to reference your app package name in "pakageg:xxx" + in.Initialize("android.settings.MANAGE_APP_ALL_FILES_ACCESS_PERMISSION", $"package:${Application.PackageName}"$) + StartActivityForResult(in) +End Sub + + +Private Sub RaiseEvent + Log("Calling : " & mEventName & "_StorageAvailable") + CallSubDelayed(mCallback, mEventName & "_StorageAvailable") +End Sub + + +Private Sub ion_Event (MethodName As String, Args() As Object) As Object + RaiseEvent + Return Null +End Sub + + +Private Sub StartActivityForResult(i As Intent) + Dim jo As JavaObject = GetBA + ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null) + jo.RunMethod("startActivityForResult", Array As Object(ion, i)) +End Sub + +Private Sub GetBA As Object + Dim jo As JavaObject = Me + Return jo.RunMethod("getBA", Null) +End Sub + diff --git a/B4A/Mariana_Reparto.b4a b/B4A/Mariana_Reparto.b4a index 501b9f5..bf019af 100644 --- a/B4A/Mariana_Reparto.b4a +++ b/B4A/Mariana_Reparto.b4a @@ -1,33 +1,43 @@ Build1=Default,reparto_mariana.keymon.lat,HU2_PUBLIC File1=alert2.png -File10=guna_viejo.png -File11=guna_viejo2.png -File12=historico.bal -File13=intmex_logo_192x192.jpg -File14=itembuttonblue.png -File15=kelloggs.png -File16=login.bal -File17=logo_mariana.jpeg -File18=logo_mariana.jpg -File19=MainPage.bal -File2=cliente.bal -File20=mapa_cliente.bal -File21=mariana_logo_192x192.jpg -File22=no_venta.bal -File23=planfia_logo.png -File24=principal.bal -File25=proditem.bal -File26=productos.bal -File27=profina.jpg -File28=PROFINA.png -File29=sync.png -File3=clientes.bal -File4=dbc.png -File5=detalleVenta.bal -File6=durakelo1.png -File7=engrane.jpg -File8=fondo_kmt.jpg -File9=foto.bal +File10=derecha1.png +File11=detalleVenta.bal +File12=durakelo1.png +File13=engrane.jpg +File14=fondo_kmt.jpg +File15=foto.bal +File16=frintal.png +File17=frontal1.png +File18=guna_viejo.png +File19=guna_viejo2.png +File2=atras.png +File20=historico.bal +File21=intmex_logo_192x192.jpg +File22=itembuttonblue.png +File23=izquierda.png +File24=izquierda1.png +File25=kelloggs.png +File26=login.bal +File27=logo_mariana.jpeg +File28=logo_mariana.jpg +File29=MainPage.bal +File3=atras1.png +File30=mapa_cliente.bal +File31=mariana_logo_192x192.jpg +File32=no_venta.bal +File33=planfia_logo.png +File34=principal.bal +File35=proditem.bal +File36=productos.bal +File37=profina.jpg +File38=PROFINA.png +File39=sync.png +File4=check.bal +File5=checklist.bal +File6=cliente.bal +File7=clientes.bal +File8=dbc.png +File9=derecha.png FileGroup1=Default Group FileGroup10=Default Group FileGroup11=Default Group @@ -51,6 +61,16 @@ FileGroup27=Default Group FileGroup28=Default Group FileGroup29=Default Group FileGroup3=Default Group +FileGroup30=Default Group +FileGroup31=Default Group +FileGroup32=Default Group +FileGroup33=Default Group +FileGroup34=Default Group +FileGroup35=Default Group +FileGroup36=Default Group +FileGroup37=Default Group +FileGroup38=Default Group +FileGroup39=Default Group FileGroup4=Default Group FileGroup5=Default Group FileGroup6=Default Group @@ -59,61 +79,65 @@ FileGroup8=Default Group FileGroup9=Default Group Group=Default Group Library1=appupdating -Library10=googlemapsextras -Library11=gps -Library12=ime -Library13=javaobject -Library14=json -Library15=okhttputils2 -Library16=phone -Library17=randomaccessfile -Library18=reflection -Library19=runtimepermissions +Library10=googlemaps +Library11=googlemapsextras +Library12=gps +Library13=ime +Library14=javaobject +Library15=json +Library16=okhttputils2 +Library17=phone +Library18=randomaccessfile +Library19=reflection Library2=b4xpages -Library20=serial -Library21=sql -Library22=togglelibrary -Library23=xcustomlistview -Library24=zxing_scanner -Library25=fileprovider +Library20=runtimepermissions +Library21=serial +Library22=sql +Library23=togglelibrary +Library24=xcustomlistview +Library25=xui +Library26=zxing_scanner +Library27=xui views Library3=baqrcode Library4=byteconverter Library5=camera Library6=compressstrings Library7=core -Library8=fusedlocationprovider -Library9=googlemaps -ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~''''' CAMBIA LA CLAVE API~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddManifestText()~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~'AddManifestText()~\n~'AddManifestText()~\n~'AddManifestText() 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~AddManifestText()~\n~'/////////////// FLP y FBMessageing MOD Inicia /////////////////////~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~'CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'/////////////// FLP y FBMessageing MOD Termina /////////////////////~\n~~\n~'Si al cargar un mapa de google mande este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText()~\n~~\n~'/////////////////////// App Updating ////////////////~\n~ AddManifestText(~\n~ )~\n~ AddApplicationText(~\n~ ~\n~ ~\n~ ~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ ~\n~ ~\n~ ~\n~ ~\n~ ~\n~ )~\n~AddManifestText()~\n~AddManifestText()~\n~AddManifestText()~\n~AddManifestText()~\n~~\n~AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.INSTALL_PACKAGES)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.WAKE_LOCK)~\n~CreateResourceFromFile(Macro, JhsIceZxing1.CaturePortrait)~\n~ ~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~~\n~AddManifestText(~\n~ ~\n~ )~\n~ ~\n~ SetApplicationAttribute(android:allowBackup, "false") +Library8=fileprovider +Library9=fusedlocationprovider +ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~''''' CAMBIA LA CLAVE API~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddManifestText()~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~'AddManifestText()~\n~'AddManifestText()~\n~'AddManifestText() 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~AddManifestText()~\n~'/////////////// FLP y FBMessageing MOD Inicia /////////////////////~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~'CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'/////////////// FLP y FBMessageing MOD Termina /////////////////////~\n~~\n~'Si al cargar un mapa de google mande este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText()~\n~~\n~'/////////////////////// App Updating ////////////////~\n~ AddManifestText(~\n~ )~\n~ AddApplicationText(~\n~ ~\n~ ~\n~ ~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ ~\n~ ~\n~ ~\n~ ~\n~ ~\n~ )~\n~AddManifestText()~\n~AddManifestText()~\n~AddManifestText()~\n~AddManifestText()~\n~~\n~AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.INSTALL_PACKAGES)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.WAKE_LOCK)~\n~CreateResourceFromFile(Macro, JhsIceZxing1.CaturePortrait)~\n~ ~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~~\n~AddManifestText(~\n~ ~\n~ )~\n~ AddPermission(android.permission.MANAGE_EXTERNAL_STORAGE)~\n~ SetApplicationAttribute(android:allowBackup, "false") Module1=appUpdater -Module10=C_Historico -Module11=C_Mapas -Module12=C_NoVenta -Module13=C_NuevoCliente -Module14=C_Pedidos -Module15=C_Principal -Module16=C_Productos -Module17=C_tabulador -Module18=C_TicketsDia -Module19=C_UpdateAvailable +Module10=C_Foto +Module11=C_Historico +Module12=C_Mapas +Module13=C_NoVenta +Module14=C_NuevoCliente +Module15=C_Pedidos +Module16=C_Principal +Module17=C_Productos +Module18=C_tabulador +Module19=C_TicketsDia Module2=|relative|..\B4XMainPage -Module20=CameraExClass -Module21=DBRequestManager -Module22=foto -Module23=MAPA_CLIENTE -Module24=MAPA_RUTAS -Module25=Starter -Module26=Subs -Module27=Tracker +Module20=C_UpdateAvailable +Module21=CameraExClass +Module22=DBRequestManager +Module23=foto +Module24=ManageExternalStorage +Module25=MAPA_CLIENTE +Module26=MAPA_RUTAS +Module27=Starter +Module28=Subs +Module29=Tracker Module3=BatteryUtilities Module4=C_Buscar -Module5=C_Cliente -Module6=C_Clientes -Module7=C_Detalle_Promo -Module8=C_DetalleVenta -Module9=C_Foto -NumberOfFiles=29 -NumberOfLibraries=25 -NumberOfModules=27 +Module5=C_Cheklist +Module6=C_Cliente +Module7=C_Clientes +Module8=C_Detalle_Promo +Module9=C_DetalleVenta +NumberOfFiles=39 +NumberOfLibraries=27 +NumberOfModules=29 Version=12.5 @EndOfDesignText@ #Region Project Attributes diff --git a/B4A/Mariana_Reparto.b4a.meta b/B4A/Mariana_Reparto.b4a.meta index db6447c..10d1b8e 100644 --- a/B4A/Mariana_Reparto.b4a.meta +++ b/B4A/Mariana_Reparto.b4a.meta @@ -19,6 +19,8 @@ ModuleBookmarks24= ModuleBookmarks25= ModuleBookmarks26= ModuleBookmarks27= +ModuleBookmarks28= +ModuleBookmarks29= ModuleBookmarks3= ModuleBookmarks4= ModuleBookmarks5= @@ -47,6 +49,8 @@ ModuleBreakpoints24= ModuleBreakpoints25= ModuleBreakpoints26= ModuleBreakpoints27= +ModuleBreakpoints28= +ModuleBreakpoints29= ModuleBreakpoints3= ModuleBreakpoints4= ModuleBreakpoints5= @@ -56,32 +60,34 @@ ModuleBreakpoints8= ModuleBreakpoints9= ModuleClosedNodes0= ModuleClosedNodes1= -ModuleClosedNodes10=5,6,7,8,9 -ModuleClosedNodes11= +ModuleClosedNodes10=1,3,7,12,13,14,15 +ModuleClosedNodes11=5,6,7,8,9 ModuleClosedNodes12= ModuleClosedNodes13= ModuleClosedNodes14= ModuleClosedNodes15= -ModuleClosedNodes16=5,6,7,8,10,12,13,14,15,16,17,19,23,24 -ModuleClosedNodes17=4 -ModuleClosedNodes18= +ModuleClosedNodes16= +ModuleClosedNodes17=5,6,7,8,10,12,13,14,15,16,17,19,23,24 +ModuleClosedNodes18=4 ModuleClosedNodes19= ModuleClosedNodes2= ModuleClosedNodes20= ModuleClosedNodes21= -ModuleClosedNodes22=4 -ModuleClosedNodes23= +ModuleClosedNodes22= +ModuleClosedNodes23=4 ModuleClosedNodes24= ModuleClosedNodes25= -ModuleClosedNodes26=45,46,47,48,49,50,53,54 -ModuleClosedNodes27=2 +ModuleClosedNodes26= +ModuleClosedNodes27= +ModuleClosedNodes28=45,46,47,48,49,50,53,54 +ModuleClosedNodes29=2 ModuleClosedNodes3= ModuleClosedNodes4=3,4,5,7,8 ModuleClosedNodes5= -ModuleClosedNodes6=2 -ModuleClosedNodes7=1,3 -ModuleClosedNodes8=12,13 -ModuleClosedNodes9=1,3,7,12,13,14,15 -NavigationStack=C_Clientes,Mods,0,0,C_Cliente,JobDone,485,2,C_Cliente,mandaPendientesreparto,442,0,C_Cliente,B_PASO2_Click,437,0,C_Cliente,gest_Click,202,0,Starter,Service_Create,41,0,Starter,ENVIA_ULTIMA_GPS,112,0,Starter,JobDone,149,0,B4XMainPage,Class_Globals,28,0 +ModuleClosedNodes6= +ModuleClosedNodes7=2 +ModuleClosedNodes8=1,3 +ModuleClosedNodes9=12,13 +NavigationStack=C_Cheklist,B4XPage_Appear,48,0,ManageExternalStorage,GetPermission,47,0,ManageExternalStorage,Class_Globals,19,0,Diseñador Visual,checklist.bal,-100,2,ManageExternalStorage,HasPermission,31,0,ManageExternalStorage,Initialize,26,0,C_tabulador,Class_Globals,16,0,C_Cheklist,Class_Globals,21,0,Diseñador Visual,check.bal,-100,6,C_Cheklist,b_guardar_Click,260,6 SelectedBuild=0 -VisibleModules=2,25,15,26,1,19,17,23,6,12 +VisibleModules=2,27,16,28,1,20,18,25,7,13,21,5,24 diff --git a/B4A/cheklist.bas b/B4A/cheklist.bas new file mode 100644 index 0000000..b955c0b --- /dev/null +++ b/B4A/cheklist.bas @@ -0,0 +1,24 @@ +B4A=true +Group=Default Group +ModulesStructureVersion=1 +Type=Class +Version=12.5 +@EndOfDesignText@ +Sub Class_Globals + Private Root As B4XView 'ignore + Private xui As XUI 'ignore +End Sub + +'You can add more parameters here. +Public Sub Initialize As Object + Return Me +End Sub + +'This event will be called once, before the page becomes visible. +Private Sub B4XPage_Created (Root1 As B4XView) + Root = Root1 + 'load the layout to Root + +End Sub + +'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. \ No newline at end of file diff --git a/B4XMainPage.bas b/B4XMainPage.bas index 8609298..9a39ea0 100644 --- a/B4XMainPage.bas +++ b/B4XMainPage.bas @@ -61,7 +61,7 @@ Sub Class_Globals Dim user As EditText Dim pass As EditText Dim c As Cursor - Dim existe As String + Dim existe As String Dim paso1 As String Private IMEN As Label Dim IMEI As String @@ -69,6 +69,7 @@ Sub Class_Globals Dim server As String Private p_principal As Panel Private Entrar As Button + Public checklist As C_Cheklist Public tabulador As C_tabulador Dim batt As Int Dim porVisitar, entregas, rechazos, montoEntregado, montoRechazado As String @@ -129,6 +130,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) B4XPages.AddPage("Detalle_Promo", detalle_promo) tabulador.Initialize B4XPages.AddPage("tabulador", tabulador) + checklist.Initialize + B4XPages.AddPage("checklist",checklist) Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_MONEDAS(VEINTE TEXT, DIEZ TEXT, CINCO TEXT, DOS TEXT, PESO TEXT, CENTAVO TEXT, TOTAL TEXT)") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_BILLETES(MIL TEXT, QUINIENTOS TEXT, DOCIENTOS TEXT, CIEN TEXT, CINCUENTA TEXT, VEINTE TEXT)") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_VENTAS2 (HVD_PARCIAL TEXT, HVD_RECHAZO TEXT, HVD_NUM_REGISTRO TEXT, HVD_NUM_TICKET TEXT, HVD_PROID TEXT, HVD_CODPROMO TEXT, HVD_FECHA TEXT, HVD_ESTATUS TEXT, HVD_CLIENTE TEXT, HVD_PRONOMBRE TEXT, HVD_CANT TEXT, HVD_COSTO_TOT TEXT)")