From 16d56cd1fb261515dcfedbb4766fcf372eaa59a6 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 21 May 2025 21:41:50 -0600 Subject: [PATCH] - VERSION 5.05.21 . Se agrego un boton de "Revisar Avion". - Se agrego mensaje de "Avion abierto" cuando se presiona el boton de "Abrir Avion". --- Files/layout1.bal | Bin 82407 -> 83328 bytes soporteKMS.b4a | 54 +++++++++++++++++++++++++++++++++++++++----- soporteKMS.b4a.meta | 2 +- 3 files changed, 49 insertions(+), 7 deletions(-) diff --git a/Files/layout1.bal b/Files/layout1.bal index ef481ebd623cf08ad6eceb2cde5d0f2ca968aa0a..0806ee9649cb4dff285445d0278d1ed87f3b09a8 100644 GIT binary patch delta 8120 zcmb`LeO%O4*1+eCq0WReBZA^PzM~=nDhLAzB8ggxM2jz=3}uQKqU5F~f~Hwnq#o;L zI)>$rFJz*lVYZ68KE9W_TPka===NAro0PV_Dtqqz&C3~dKhHl8pU)k>zu!6c?VNMZ zz4!Ok3w~uQ{aX3ybh^eMoz6)AYj?HE(wijZO`SXKkNL&6)V$fx z&Mur*OfM(2+|vwBI9vHwLTNLSJw&Asl~5{usq~}LpGp{&0gS^L4`dv{IFfM`<3WrE zd%09M#QUI&W*ozKDC1bhag42uJmW=-OBgR^%;TwyyUNw==;;#_uq$V7!U(yNussyqWQz7(3i7{k6sYK>xQg-o|)4<4VTwGv2}Y z1I9ZUS25m2T{+3mMwxuw=n-nn&!v^*od3TgXmrB z=RkK~xAU=~AwVQ`g|+amYEULArXxq}e017yfcK;aF@Khc6v++M=I-z+z-HxFnZdl3 zl-yaD_$pvw;Q&lO+!JdGUDd=G3oOU7xkfD8Y{bfZBVI1BfdjjRhv^+I$L*ZufGzTk zd5cfG4qW}r71%1RVU{V-+v65#FW82+3d@Z$2~rg543&81atLmj-NsMmza3aJyHhur z728q)8Qe0Y4N}G%iY)Fcasfh|sYMZh+n=3ELy=JzF>f@c&aHwfWhI#*y|o<9$l?V6 zyOb?t!t{!&RE+O-M$TIa=)a&X7A0D7@d6XIBZGgB41TPtH(Cb(6A7(SM;G_Nma>r$Wb}jPwx&dzRD?yY=KIiN0axjQQ?!G>Xr;E+;1 zbib;MvFjNB;&wPJRZzTQqRza8h+Fcbq02%d}!e<3S^qt_p@zYV>kb;%alI zEW_N@1#nt*dD`2hE7e3{_z|OcB^=`M+}zf9E-etwkZK!m29etvYtfxSteA9ERkXn; zs)Ee7m@lMjrQ<(!XIU%md!qo(D$k!>r+Gd`C9HzuMl2aO0xOPnhI49?a%*ILsrWCu zMe#4TzD(+gP;c$?Y8ZcW46u!xamMR?q2VJ3#y{rad}0Vf-Yk1h8}PUS7-IY?sf;%s+rU_ z(Ufsw-ROY7%i-dW8xzcb_tB`uT@_X|rx{!=RleiE!2(|x!zD2%9>THbCcE(}Jr9uY>hScYk!JbmokuNpd)EruTvxuEntY9@ z_$QTSRCI@)j+-8Rc-wF*6sPMh2aDKZ3k9=Tt^;ci% zfZNL5x0}>(r&RwPcDSRBa+iCQGNJeSzz#pEnm_)Rnu$9z@uE{D67#>C=*U#RrYaMD zqG4<2k)Ix*abs5|j@#=>MSI<;sGd?$DaJYN@C(&Wr(b!-s8<`suQbOD+`Y#RzbV;o zO!m8y_508cca`ieliicHajvVTBSWLg(2Y%oLy1_g1JSxWq&X`;A~jfZAl(dfGW7;T zy-e47y{3g{4;Y-sKBnEFnbd6d0L_P7?VUY9?fFS9zXxbFXYJM3PZd}Njq*k<60{n zKQZYofOQkQQd31=E|WWG0kpyKCwr(NwDB2&1>vT4#(3gPCIsTD&mPmx7nVR@J;3Db z#klPgI|O-}3i4I)Gp`0{bk7I&Qu0_vqUMBfh3wr4!XowMtMHEFO{O8Zd* zwD&aK-nVJd?O~WJ>N_I^8ztp)VbXyW_e` zfoQoH=Q=ZW@@>^=`J9gJojsj)_7!{Pv-LtIbYZ6H;;W~b=J$(seOGN-UA1XBq4s^i zE?2bk@a!w@C1^q0z25q6t`I4?oa%dk9pu-Y+E<5HsKk|5yOQ~mzqq3Bp*7xv*=%OU z?^^up;^hgfYHw2_5c{5c@Rs#G3k3tgU`dRUpr`bbA>gEZ%s5SxOoNN z_}6qvwKM6Eouj7{{o%<)mI&Xjv=%O>8nD&3nfge;D!R=+*Pz;N7@LN-zIEuMGsp^=z~{xfgwB$2Y&Xk^yC0V)&(aipX*~Fj{u{A?`SIK(u>&=4jsmC}$ada6pWV zVsnhI)M>tL0XpQk*X&SVF@-}9wfvRE*WZaZ#*%{Co8$1>oh-15h(Qq6`VmUQ@g(un zwIVXa0nQoN-fZ=0Y^a(Toqq7dk2mnjFM)XE-w7E0tBJaoi#Ac4%>19KV3=n-!+e^M zW{;8I0-T$Fro5R%uEl+gCeo)k*Dj53Y^K~ocY1TOPfewvu8lBU2E=e*snd3^A3zFq z8wM#dRwK1p-)nT}M`$rN!ly=x7GtUIyl2FQclu%O));t1nfVc4Z8YDW=}s4GVWekz zBb%tX78V`y?U3ftO1oc6UG(*%R5)2i`N{!l@ri@&AzmakhhY6^Eigwn)k@B;!n2F$ zWPH=6AESlf7!`skAm zmzBrgUm58(=l%*H78=PT=jQej^+BMvHPNmuc=xsaVt-rO+~k!)gtY^cK0|YCrrWUv z@PuayIqhi#8EOhmzu1V$9cTxlyO?;t1GH?ZUB)uNnVj7bAj{o?Im>6XswvHr6O<># z{Lb1CTn@C0r@F}5)3=+6%KlVCB?tBGMn6e&+9Z!iIV~P<*=#V`)8}O0KD9*R`h+9a z_n_Ikzu|~)d#DMzgH?UG$?-Il^ph_| zGa4HkXA(dFRWFcl=tbi!0>d-(^HsRaW`#tv<*NzwR79YZ<`95Cy^(*~b>wMEiJ|Jm zFjuCB8 zNsFUJ*&x-d45yH&c#KFhiM<1%3g)}rEq)mc0ivP}n6NG`Ksy6oiU5axfr>iw0-s6E z_speb6ukcbbg^6LvZA`wE%fQnW5loV{ChKnelR%1jiJ!deXb1yYYJf delta 8010 zcmb`Ld0f=h7Qp9BVa_BosEFW_5NhQL7zzS1lHgW|N@^0}WafekV7$tu!R=LQWE|>d zI&SD#YKe_TX1Qd!uenw4Q%VbD8(8)#&3NbD-z?`h@_C>4$K&(4!}s?)=Wgemd+xoz zk|ja43xa}!37~jh{o^fwKI}CmN4~7KBiH!R)P9jdGl0u~)<5XfBmHt%H7~jWu z0ONGU4y{546AWZLi1A>?Ll_Tbd_Us{7-upb#yE@m_l8J7 z_#wt)J?xO?%3*?s8Rs&7gmE6@ag6PZA7wnA@nei97z_^I>>p=>iHs*Pp3Ha(<9xP4+cXa<08g089%|enDIXtKgswh#!oYzC0Y7kx?naF%was2@iUBh z+?3G!c~s_8S-^N9@gge!r1C7|=NLPlXAg@RFJZit@e7Pg8NbMQ8RM52moY|-9cpyt zOz<+}R~QS%uQFcF_%+5W7_VgPWW0*v&u605Ot6OWTE^=bS1?}Bcmrb>-ai zi%K&q{g^sqO#jY+BFYHyWsXpBdm@;OEsPj-F$PO=%wlm0m~mB(9m;WdTC@o1PU3Qd zxReM3Fn^^9XFu%3;<2GP?$s1LFxEn9h0aL4KGux0%50*i4NO=NQ#L%E|7TYR07#Yhbk+t;_>_OtJPpRhOb6 z4PcElKZZSSAx$#6`^_m!0gV$wac^=;h)fgyYO4+6bSv0|k*Cay0!is^NXoY~7H6OBwTK{#(rc$CaRVN}3OKNc!V?(btg`Sue)H5HkhxULMsExsV!(~rWYws<4FsZ1&}mS4Go8t&tUC({5e#d)McbwyAL z3=y_4NJ2-284I4BhcU@>pi=cElbOG|(uZx{zRG?vmF36bxY@<V+QVL;=n&*U_s@mQ}m>WptrStK(ACjF9$^)c;XkD9H_!G29O5G-1n3wzaU_XbF-GX`Vs3oh8F z>dHK=uWLg`X*PUFV`xPVc-ShlH`CDaL>x}rWk%~VJM33R+wU`4Bzz=|gK00h@JuO7 z2Os-YXzka-0oA|E^{jO=Vi8)(?}USD><0s+o@5h;f0pOtcP~vOtJ}wKK*#-Noc)R& z4trf?l{*A))}J#*;EJpFV717HBT8E)(Z|cZjy)>Ju2zo-34%EMG1H7W%k6MX4OZ?m zyj4%Cio+?d<->8MBDWvCN-dlqi6@Pp@TGAVob>g7dAWs@WMG~0^-n3>gg-gU;j}cc zRc=%Mc28jSswDUXqn7l*p{reRM(M~ci|fd&au%78)b8W)^bqm=s=*QC(J zvuj;&K@F*NU5fRBPUE~?DyGk|dC@?teDpV}s^GPCZOw95?JL#J z;gwf=U}la953Dc8?<+!usUM_Z(s~P=7qNYy3x2bqxo1`#UFrS5q)I9mUL?3ggjr62istM(eN3>pnJ7`vq#tw$4F#BJ-^gx8Rq4U?Xm=Td=7dOJCPE;O_&}rL`AtcHzc1WEQwh zly-#{+HUa28y4za2J2m$hTyd=F8GN?pJn|ipamH!KV#Hebx^1LSr;IeJuKMjf_f#b zze#Gt4V6x~qNGPx^B;gtKQevtNLcj zcASCVyh42LZBLyu?>Mom+n*KC>28V_;^nMmwEj*;9DzgMb>f*FekJ%rr4CKyPb}P7 z2iH{AxyIgKm-ctZ?V?TpFX}hT`j>t{GJnDiwFS9jJ{Se?x6=B%5v>OAMunA!P42us zi2w$yK9prO01us7)g)l-{t@oNeWYYmO2$T%ZgI!%UjlHeQneVglhIOR$IHjm zD!{PgQU^Y_;m;?t(Rd;hlRxdNZSNt?b-f1z!j5M!?X;8Dg_=VPy8Na5E+bN7t{5p%}88y zv8Aa4)%b5GPAT`NPw7x~;-oVjwz=fQj4!o=tuc}fsRO1~*F%&xeBctgK4gy|r_Imh|Rb(wn}>jYDfMGu_`-VBF9t~f_Xihr)yCRYFIQ7J{i6%IsmSf7nJ-$#^kiw=5kF_+ zzVD-O&GzARA>=+F9oe+AE*E-;eeEC~m;7iU+oaal;gdg2G^#c_$mkzZ_KOQ*RQDKO zCv~L#WXS)WMyI)|IJ6z@NjCO|eXPD8xxgvZ{b6sSvs5{{e(`!@-ES`3^J^ZpD^r1X zNAp}r+y3r^cx~eG0j1+k4|*Esy@_4<*Viy zl(G{^CCCs=WFn<)c@ZHAx>n;=F2II7Gur>Gfxc==IoDFCA8tBLjczb9(KWwb3CY?J zlXY5}ndYRJ+$n!00uH>U9o}EPW+8pKqSUn#`cWrY)_%IG9{HZBO94`qJhc&dRiqJa z1+dA^wP?qKH$0b0y6}rNx6pO?xdtuQe%4?Cn{q{(E@qu@pPHq-GT*1`L}`26FmYGxF4j&y-oUWy(bgL;js9gFj&b4Gr5ZCdb)(FJz|Ky17B$8 zZa0f&(KO$on%>Yx^vJhWm!lyOM3Z1pmpAMEI<=u*KZgLGoHhp@P`-Si5gkFkT;#dV zX*c3brJLD^F8M^>=R(DcVUQ2Q1UjLW2c`-sWfTWo7h#|TE^4UV^TDM zejb;iNevAR6A7RNRi7l^(2Iu21g0tU^G#2g2J?xg%2#9PX&Ql2noa=C=#Bi-Zbjqi z#F{t?X3)G;LTw8d#ip*%CSnHZ`geBuiAi0I@_ngP98I9i^YC$#7}gD(P{87~z_&S9 z<#m@I-U^l33Uy5uR8g`F11QqGRiqcn1uGWEKrYOrx`ErNi0Dp^DX5wh3++Ix?E%^` zBjgEvBi^wl3tKPPEn3GwlKeK;0<%h6s7*#>_5zcbbuTzYZ43)s@lY(qcCojc;Fd^tV-X1Eo);PkB9~E`=>bNdmNhr>Zak?f`h&Z*(y! z9@HlBCCp-PBl^%po(A04<4$#0qEC)h8A&p?^-rLq<+8E8t+RCln5EVM`xH1V1za$P zMj;Qsw~3H`(AzpkUqvOMxhe_KheMZeBzqhpP9; 0 Then + For Each records() As Object In result.Rows + Private fecha As String = records(result.Columns.Get("HVD_CIERREAVION")) + Private hora As String = Regex.Split(" ", fecha)(1) + hora = hora.SubString2(0, hora.IndexOf(".")) + Toast($"Cerrado a las ${hora}"$, 600) + Next + Else + Toast("¡Avión abierto!", 0) + End If +' cuantosAbrirAvion = cuantosAbrirAvion + 1 +' If cuantosAbrirAvion = 2 Then +' Log("¡Listo avión abierto!") +' Toast("¡Listo avión abierto!", 0) +' End If + End If + + + End If Job.Release End If @@ -1815,9 +1850,10 @@ Private Sub s_almacenAA_ItemClick (Position As Int, Value As Object) End Sub Private Sub b_abrirAvion_Click - Log(empresaAA) - Log(almacenAA) - Log(et_rutaAA.text) +' Log(empresaAA) +' Log(almacenAA) +' Log(et_rutaAA.text) + cuantosAbrirAvion = 0 reqManager.Initialize(Me, DBRS_1781) cmd.Name = $"abrirAvion1_${empresaAA}"$ cmd.Parameters = Array As Object(almacenAA, et_rutaAA.text) @@ -1825,4 +1861,10 @@ Private Sub b_abrirAvion_Click cmd.Name = $"abrirAvion2_${empresaAA}"$ cmd.Parameters = Array As Object(et_rutaAA.text, almacenAA) reqManager.ExecuteCommand(cmd, $"abrirAvion2_${empresaAA}"$) +End Sub + +Private Sub b_revisaAA_Click + cmd.Name = $"revisaAvion_${empresaAA}"$ + cmd.Parameters = Array As Object(almacenAA, et_rutaAA.text) + reqManager.ExecuteQuery(cmd, 0, $"revisaAvion_${empresaAA}"$, 0) End Sub \ No newline at end of file diff --git a/soporteKMS.b4a.meta b/soporteKMS.b4a.meta index 536e163..de04a15 100644 --- a/soporteKMS.b4a.meta +++ b/soporteKMS.b4a.meta @@ -10,6 +10,6 @@ ModuleClosedNodes0=2 ModuleClosedNodes1= ModuleClosedNodes2=1 ModuleClosedNodes3=1,9,11 -NavigationStack=Main,b_desbloquea_Click,489,0,Main,s_almacenBV_ItemClick,1640,0,Main,et_rutaBV_TextChanged,1639,0,Main,b_borrarVentaBV_Click,1549,0,Main,JobDone,842,0,Main,Globals,171,5,Main,s_empresaAA_ItemClick,1769,2,Diseñador Visual,layout1.bal,-100,1,Main,b_abrirAvion_Click,1788,6,Main,s_almacenAA_ItemClick,1778,2 +NavigationStack=Main,b_revisaAA_Click,1823,1,Main,Globals,174,6,Main,WobbleMenu1_Tab5Click,416,4,Main,b_abrirAvion_Click,1803,6,Main,s_empresaAA_ItemClick,1769,2,Main,s_almacenAA_ItemClick,1778,2,Main,Process_Globals,29,0,Main,b_borrarVentaBV_Click,1560,0,Main,JobDone,1281,6,Diseñador Visual,layout1.bal,-100,6 SelectedBuild=0 VisibleModules=2,3,1