From 8beb197040a2ff3382aa2052378c065c9a1851d7 Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Fri, 27 Mar 2015 01:02:59 +0100 Subject: [PATCH] =?UTF-8?q?-=20Ajuste=20de=20c=C3=B3digo=20-=20Agregada=20?= =?UTF-8?q?la=20toma=20de=20tiempo=20durante=20el=20proceso=20para=20poder?= =?UTF-8?q?=20saber=20cu=C3=A1nto=20lleva=20y=20cu=C3=A1nto=20le=20falta?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- foxbin2prg.exe | Bin 563069 -> 561102 bytes foxbin2prg.prg | 99 +++++++++++++++++++++++++++++++++---------------- 2 files changed, 68 insertions(+), 31 deletions(-) diff --git a/foxbin2prg.exe b/foxbin2prg.exe index 0e5efe67a6e940357e33e61a2e2e5eb4974a7fb2..0a5799f3d6b86b2972067a7616d51a7f974afb10 100644 GIT binary patch delta 20674 zcmc(nd3;P)`2U}|Gjs23+4n>w5=$&WVvj13g^*1aVjUwHL?vMoTU#AnbfHzM98`-| zOIuo7O;IgvwP;b*R#7Cj(psxTkobMhy^}E%-`Ds1&u{c*KJVu_&$(y2=bSrtrnR3$ z?OhVJ#z&=UI@ebuti~fM!}!13D8;6Y-vncTc>J z#=AG(r{TX~yf2s=8yuusBmdnwcPMnFtZ(qYg12h!tl&URjEZRP>|lRQ=X%k*UKBV* z>S&0`i9{=r`zZ}_#w#+1=vCP3c~vfvKkW6q4IG2g)$`eb>!U*Y``Tl~_DI#Aa>)0? zim8-FA-7^0OIGAuN+YR^$WBFaqPEnY+EOBp_9z4|Qd`m?xIUmif^1Zd@G^w*R~)s* z(FK3oQ#`o6oIV?=%BYAYP$5oxf7Jakoyl&*NqA{0bSC-jr}hbE-+@ZN2yWJHvs_Poi*p;~uajGv{HCdxUML)(y#o!6}h zhYjXJ{8N(i+C;)`#b2fN7CFN*WF3h@m7xYoQ%9l;A}K~bYqa8-cEyr779L5l@&M3@46>`h)&b2@n%e^1z9B(B^YcItqBXRL0kRI1Q9|L@l zl;OP?wJLTtFz>fm96WnvpxWf@Y`Attq3e`Ri$QItAYD1QIdY7Y3s8XqB~TmulbjGr7{3y!po>srw{i(45k&pWHH7<5&03ok*c2a(gXbN9}WT zG*CUKk$;!xt+`1#DJhxVvQkq$3^^&eS@}6hDV&z5lBfwzQM5)&RM6aSj1+Jm^|6xDh0lgS3}+ZH8C zLk>CGgMxe4XltoP8!y!Pkm+`{nr^7b8-YbCXWm51ct&khNPvty*)bngc%R`ar7&K+ zFaioA7tNcK%2_m5ekz{d5BKFa-L{;wT5f7qPKJR}vkH2qWyWXc^imW4h?Jh0o0634L7C}^ zxp|ODS^1fHo|N7*JtaLcJ2xdcFD)ZQqNK#^ytJ%L6UoUF^K$bNbMjaxKUD-X`>A%Q z+OsD9s&6zps@Ai_!J_|Q1Bth^6!~~$Y^3iv>si--++MDwJMU)3x z06pSj&w56$azAf>KF-vX@6FN!RKJ?Ph*|tqelJ}NR5>mN3Y*TV zf*mXG2r)sb;FtCXs&Qx>`vbLis=V4C;1{zB*`#Hr<$c4B-_QoxkNm0_y{NFHD9KV< zXdT-+X>4)f6Q#c?4j&pjVys*yesQ!;D=n^AIIyT!@R%k6RJAI6uuF*CXqK-3zp>-T@w)or%+u@6B*)6Sq@TyBnaufBkR`AA0FO-b)xWe|_(sq=xugP9! ztkyOZ#@t{nZljQGYgoo@ZH!^hEhRLR*!Gd4KfA0IMd6#`iKl`=>+d&C8d$9CF3fl>8zR{IvRjBSe3Yf63?jC4niwQ>%$e6& z3>Ttv=M4~>2v6qCdqxZ{9+6+4U3rDAc$_&I@KygOouf6-9ItCM>@9mB|M zVXahRBVo0LW#Qd$aio$0BXHkDG1PE)yux8J2k6X6nAUUGPGpg4F^J8YBL?3f@1>C!Tj(({v38nHw{3^zDCH20O4SOY<9z=jE;PUtp+jTX=dYhPop3u05D z-)!dKyxg%Zrt=G$3}%E;cZ>u@^OB zq;TvMTd6_AB>u(z)`;O^Z>y!~t@B(r5~f~ao?0_Yh`3Zg zCCKd@?}u=c{(=2}5*3HajYzCtk~8wUQVj)bwY; zI<(B2gIPD7*g_~D!isfb^XzVBo`s2mXcQ(`d6r1Em6e#YbF%VMlJZiLw_241CQ2*C z<&E6~pG4MN{R?j}D zdcAkza#m#!BZR~cm|zs6!uNilr1o*9&MU|>=cHt3<>aLltzd~r(%{NQC5d-^h7&5r zO{hpM9&7FIV0NPz5MI5xK9j7%$ypOB%8QHS#Ur`c7VrgIYZU$MpMRkwaqC>Kt=!~+ z(dyb)r2N87p6;fn&vTQPyJ?t44U;!QF@2{@uCQ4OE6hnb=c5&~TYiHYbCVD0$J{+f zK`giVx@Y)hXKwOyH*HVmCV%Jtud+9%0F=y9s%%|)jx8HM!P+-XvEQBAbJEx+CNaAI zQm4m5X|(!vd1N0YK-r}2mMQQ**>>p5Qw3tK-~)~i#m5wjyn(ULaJogRD9f`>uERo?=jgh(SC$9K!;aJ~my+)``W1*0j=*Wp4~+-dT?z)g`OsiE5gd1+%xGZ zD>pU72r)a??6hQaVp38{Zf?X##dU8PvqrMXUbu2K#cY8W*3i~Zux*^T+E^uj-#c}_ zx7gCYm{*M!u)auxd)m_PohH@ka9;eUts?Vdqz5M$?%2YG<|WTv%Uh48=?gwzTAex9UxZ_A1E%jzA&y-O!cFB-YS_{TYoVuWbS&!sSHLG4>ccQwW&Xo z&lI%&GwyDLO@VSn4A~?zv-^o*Ep}{CocCY6Ex+XUC|8huJA2kwjFg&uFWZ&iXMRu; z-5-2nAGb%lf&&k*3kc5s?pMXGv_#Y2IW_*z1zzK{*O&LXV@f)==9qX&Hp$f&=ALFx z`iYUfyv{y2zpj6AdlO7y_qKGF4U1gdMa5Zvvg*sM3YoPy`>$fZziMr7aC=i%)yi+N zmi`z@YwoZN{+=qZGJi2JsI^vubj@7pp47>#v|EZ%ao(T#Tu*L~aRvS6!>W*})YxCP zE5X+l_)oLl3gC%ax`N|FSVjOE{Z^P_R~o&fA*WXViS8bu*z4QjbYq3x8hw9j*(5i* zbfJv`d=T{-)=^1(e|@%g<@VSIxBTYrinIQV(|WSRKrymSNUCDLKeGvG+}_$%zt7WU zR>r{cerz>@1)qGjFA&Xtv4A_F&i@F|7wFUR$%+}_TW z?(8(yHdqWy81f>ww|Cj!eMRB>em00dsNyUzxKlHhd1s=SjZI@b&Gu)9rKD zUGHl7wvv;wK;~L)xI;Skj$&&>?C}t(kuY}&TM{CMg*9KQ*u7{RKZTN5&S)v~3KfHe zW6Rm45G*%+S1O$IF>4+Q{$n*u3l$p#=C9!ybj6NdnWAxbpTGMv_Ee}CFP#32eHtnT z3dNgQ>oD9-9t*|ook9<=;bCHf_N|X8 zcJ~w1IBouvFR!os?%s@bY=W&E_i{Invo&F2U}_SclB%eiD@X4O3cKf&eO0mD-)jS8 z`{RVqiMltJ0z9%4lSkF?r1hrYF-O!|nd>jPnVt&!@O96eY#oVS>S?j@ZPQ}^|GKg* zMcg$%RB^c%s-}@*Q!WIGVrv?RfxY9SxV1a3|B=`b^CdM|zKNATpjz2VaeCFS*V&d) z@|NU6oZ_f2W%*;wGh7UfT$psPJ)sxp9?o6pGii?A;o_~9LIWR`k|xgbN?M_=t@FU= z_eS}1R+bqrg*P*T`RA^&wRJ&|{3F*x1{!HAFMsj-@Ua{hO3x zgIG~+Ei5dXP+AccSyWt(JIyKGqDs?Y&$SjNaXVABltQDBs@zgh&Odc^Pl!b2i52n( zpDb>J7~=T3kNB#}&xiU|`_leu{=xVSp+T)w?a#)iiwy?^$mP|+5a?3;8N@l=nZJG~ zn1kFwt^)SLqsN&?Sjw%nbrWfR>+0YKXC5To5E>(g0CqV;4D6|7bm!0#o~v>)6_m48 zc$Uh?pUzA}?#Z+VQYs}bxWB|ayZ@oYdRK|#YwITQB8NUW_j`*R{IDXkhM8ipUl{Ue z;A+!6xrAw%Vt5F)zPAsFq+uo0DE)7BZ^{2}pY<@ojwjmNl?&)?#|@hmh)41ahehFlIWdCLbxK9M6fe0U^A zn;hBd0g+oD8Hs@=N5(!N(ku5-=foJ3BU?Wp(t^l`w=jm69NFf-k+`sH)Wg~M95MLe z@fcrneA|b_SIF_6_x2Er%M<-V;vN$6^8av33@Z7Q@ehe#{OI_23@SOk-9zHn$ng*D z;CKuwIlldW<5@=jBf2TReo%FIK;)7~M%E9ijt_{ug2;zh#}8xr2$#8Ssb> zj;|kDogWhKFUQ~C!Q1;_+oF9z$y=zv>@DWH&62kMqS1Pokx2d0oU^6(n(^-~;6^D-)EwH&OAe2!Etp zqaGqadNH2@G0@)q|CE`~>b}g7FLq#fGHlMX;NumHrB_hYTc&#+7C)fa_S=UdoKLtb zH+d=hr&;!%Ama zM)5|v+lGPnee>g?MW|6%y7pN2XZ?Uuyv&{{5Ziki=-qSt`<=wU9ngbK9V&Kb*9ye8 z;rD)9;lA$%IGPL;n`v18p<=Ws=aBE1FjO4w$BvH^=NgeC|Egh~f!<+L$BR3ZBu_dX zw}}_M9UY$+zgH=y4_VC%;zHv`N@9e4%#P0#8?r6a#pjKyT-MdH)iLTtF;UIdy&{^G z=+6~%%NgRcDz7g*IYv7s@$PrczHyRcN8 zVZ>u{-W*7ASvl3xWw-~dTqZWsr#eIb;h`}s{$0_Rty(I27&9{KGx^ui?p<-Jz&0#QAQv^BRI$|n83UG{BA#PL$+;N=`H!{vMs~jCZ7JuDUjLEixOK< zEw%{AaHY+3sVv9AYH_N>hTRckl{4dEw|wSMe&z_rCwIhl0{dGfIeTT`MnP(#VQoao zSyDX6meYH=O1iv3BYen!(KO6;8na6ccQlctB`UU8Cpj-ptK))B`avCl=iSb#jB=^b zY>!EL)mZE@jBylsNQ1P-CtQ}Xj$OV|xXM`KvXnZm_(`i&#xj>>99tP6<+Q~Ubmtjt zT%mahpAXALEqA#pTxx=&MW8fB%ial-@|D42cU%gSHmi-(Txp(lY>1F@G=a~#EYG{t z3o2GQQw(s#HI@bl?2V?9bFjXK9uH=xO}HM!X3~5W`yfX0Qcf`2fj;|DU@x_loa2-6 zUhLtx*;4vUWSin8=QQ%R<3zl4Q&PR-IGP~s^HnWztj>^X^r6K^@%3(0>F%w)244)z z$rz?*+XhHs!hr_t=m04~@NC2^1t>*effOKkbXFjxKnfMErgDfEmh@7LtGTgnZw0D2 zc%`$rfl??78Yl$|RT&)Og)Ui2imC93gLC-z@|k^*6vQ?RlzfFrxojs-HEIOA&EIE_ z;HmxQ&OWANeUVDoq!`$wK~jWxVgwJL+pRK)1##yKh4TkX{;YD4)KFN>b-eIfA#0C! z`<+6b)JRF`=A`^wbI-)w6x{CS=jLT)#1!3iWu?n510`jpr{l>dzVB8#>aLrAlLB9P zxhETQG4~_0bpG`09@mx?UhhBkS2D9+z$Jwu`>aq0#+_)3b#k3ByW!4aRcQ`}MTx$LMK z21mp&M9kU5+7FYO3JW%|A;Y9-VaX=;>@c+Mx0`sj&4is_v)#i`V$W~cMa~y?vLG|q zcNgnw#_3!Az=oKmNTK6C_6+BK``8k*)F}F!U-^klywQ?-rkc|-lT!-rX}V*-vXe+C z96ZRx;mF{hgDhq^3J~-=%fNedzhkZp@PMq3IW_IRwvRf&=JJ47PqEL3|**>RELaelwwFmE)w`b|Zx=l%ra!+OA5Z zMyh^DmI!B0jS8Z+a>i5Sg0GQ zdzY4~m(fSGRK@?kPwgE`cS&YX`|6bf4O}hIS}&p>C8Fn{O`iyK9{e*n7P@4uK-a-1 z!3&_9ti#s^@mrO1;C|30IKsexgWrPQgCi1r5$yN5KsRv=2VVn6ZxSdO#}nWi5`HgY z18l`H9)?>;@HccvJlmfP#@B_(0=)`{9W3bZ{qOw(`QnlNS#U#eXK3B80vUY>-#W%O zrJ-+B3KR(L4{lN=P#z8&xBxr{de&Lw51y#A6MYLX{3Xyj7@k9dw$S@72($w{1MG7V zC%7!oA@Bll3iQ}(0$l-b0WX6-fG_yQ_!4~sHr^1(^QJ(Z!QX?Ep|9LRt-(KmTizCE zv7n}Y;PZAEegaI8)bu6us^sD^bijO+}U2X6H=swNWR0_72!7vSQHVy@V;RSG$c$}=A znl^xEga3g}Yp>}Kjo|GZ6pW+pMWkXKrO&cz|TQ1!?6?G415Oq%kgU3 z1AYm70lM=GYMK~8bQC-ay8B`^)qvxTs5SHj98U*gynut=R?}NJUJOM4_kdv}p8FE)H5G$bfzLy?_#K4+uK^E+9*^TK@H+4k=rzaDir^o?$Dt!ns>xmn z!x0#=0o%{3NgaaA%!EFNo^nM^so-Gnr_cwkB2#c&9AFz2DlyA3Vpp=O)J2O z;AS_}^m`4u37ibp-&E5}_!{?aFun^;UqbuVsqJ(GhCwiN$9^df4;`+8p8!7xohoU_ zGZak-o(ygF*3eM!8t}`|RXEmx*Mq}+G?d>!Lz}^;!LLI<7mqKNh7tAjzz^P_$Mn$9 z67Ur82hg7lwrfagK(r5ri-R>(fJc}c!Ij`y&_~P~ItV@o_8qRFk4I?eJoq~JEc8e` zwbbIrgTeTH;Cs+tmuiUrm@p1ZWg3dB&`=S$2Y4LxoGBWb4$cJcgI;BSMnfOKFam~? z&>!MiMG1sX~M?*qpz)X=NTHS{LW z*>NKDjX$+?25bYzoz>E$%UXIVhUiW34Ew)YS`{SHVHm$Ocg1-6_#eO8T$8U zL@ELogG1~h&3aL!$>5pbz0i4!P$2Nn;2F@nm!bf%Sn2~X|6c=ye<;#u7#d)@O@lu9 zkw|O7ZNV)*7U}dSBK-tT1ABccQs73Bs=*V$-JmPBiqxq!x(K`)`khlEJq=F6?0Ert zH8yLdZO|RyQ_!{lh_o3zGYIp4{8f?Oz&5Q4hV@ABHFT^bQA}Hu7(5KRMlaD5;A7x+ z28kRdiKc-sg0Dia^^k~x`E>m^^h9ro-UkbqUDrZC=O@t?uow6f=-K`f9RLT}VfY$g z4V9=0hOXcR(7VI&-QhS)%V26Kkv>AAcHjbVPv}9B67>WR2hV^`?$JQI3fszed-m{Y*D(7_oJ<$>*&VCV(-F-xM!Fw}teLXXLoXeRhJIHjLNi=UHd zDflZ)&*jfcbataeC)*Ldg6Z}vheY#FNYteRCNfN~RoEzQ4%89rh?Nzy!l5*>9* zK#jn!*mTseTu1MMe*mXJ_rmcB_($+q=#3L}v<|!vd=a{8vW~t49|jwz=x8#I0}1H= zDj4=Xt)rr;_^}WYoCCiO{TdE+SE9eb>!5FAuO@*nfZI>gQM2cD$Fa*G`;ysjbxsC!JLwAFX@9XI7 z3LQm*TY!C5>S)Y|I!XYy1J8l}<|EV^+!efIwT@POq9YrauLnPUrla&tXaR5zcoOuS z%{tl(9t>{&gN{mY*mJsJgv0PYVC5eC=np&sTnSyZPe)epNN@nQu7xPa{o+`mJ!LeR?+7YFv zLEW+XVL`hAt?#I(tKgO3H0a+F?0TBn1D6d9w-b=Kx1Lsmby(r1L09(CQ^Q1j-~kT6 zUb=ZdJ+%b41owq5#4#Kk3!Vu*ABPp(2K*)TE*xXPao{>=eU6^W!0o_^(CK#kseqva z3=^UI=Idz+I2}A4I%c4r-T{vW=RtQJtf%k6lfV|}H8}nNKL!2``c;dbPJ-V6Ul^sQ zoul>Ct0&Py@KtE1i_zXJOb4y%#qCN5H;O2!Jl1rKd(oxUB-O zg#HsZ1QWp7V4pd9s>SgFcmVjzH}te%k)9TT?clA@x}|zL3SI*420ih8Jq0Ag2Yz~$ z-cI@rdU^_mN*G!}=WWr`MzA&-0||P^H+uRD+yHzNdhsqji799?aPDptX1|`=fCqyY zK_?$X6N8@tPl0~%4?V2{zXSfQQcqi}^rTJ2fCrzgLjTvDN3+22I}D93=xO|Q^eb4? z7~3vr^-W{|_5gQ=UR|fBZQusr6VS6%2KogY3!bGm&<&FTQ!EMuj=|l{vwj9j>xHWX zyc~K*n1P-He*(T~2fP|(p#3oX48t!?4b-=_f#Q2(IR=+Pf85?cC1C$1XeH>eUGQiD z91UIuy|$Zy)`2^KXFZO>q!{Qo@DOk{bVRy=0@KhU;5_KPIR?rBzYDgn$TLvGAqILM zh8-{@LccWJK$YO5;4h$8Sq!A>gLxcW1>LC7K>pxM;2}i@n*M}=I)MY5VvIl!9B-gW z-~{k2=ou3Yv;jN_ykMGvo_Q7(?27^16!ZUw0L^O#>IMTtf@aXW78z(R_z?IK^q_ap ztl$&i*P%CjY#>uQK5fCa>KwFrgMm7Ln}LUJG|<7X3}gfM2kW;PXvB90+6JBso(|n| zuYqd7E1TJ|gaYpTg5S4hV1tMRZyYv|@q~fafG>kvL*F=Spz~ng81(Zw13i5St(J*- z9lRDg@|uA9;80LYKp$}&msRsNRcuT&Kw&ON!WTa{&@MwuXgZ}bk z^iv)#J8&KJ&Q(Tg0uBS;fNr!JO$ZJLXF=C}W~2__RB-G@BW>Gaq%!bm@HOafze0F88if7@Z-s8Mz(mi3 zW7=TULeIdBe%HYmu;A6ufnS?Q8bWjcoD98vkBP>BP1s3ag3dc)qHns8R% zO+9EicqG^kUEJ1#4ucu^l`bAs`j`h5n6cP^BL{g<>SYg#7>;?Q9VV(3$iqGpA1(@* z`(dbrK7@}>vptcZJ&yGPZN?{`G2UnaF#pBVhxpWL2G|b14t)Xl^Ya5SPk_5`)6hcP zzP}NH0)zjCzJuHKNG$Dtf%|pTk_~smE3ne4JD}U3?R#2Cr0p1Dy0qzqP#-mHY*P;Kx zeZn88+|%HmxKCJ$`-FJtX*e#PknB{78-rIn61@n+m(V9$>L?8N0W-kua9{8^?hAeZ z&jQbazK#2Wr*U8K1~?t}1$Rnx)DheE`QVPF*h5ay(JSC(;O)>?u`RCxuL8H3uA}3x z>8Krc-CMzdv#_VX`nry0!0;^$t!86ij&1c)a4p#LV;ybAwtCQGSZq+pf1#IP8~rRe z9DE2m{|g-*14n^pLvK2bJi!CNx1g)AiEWKd=`e8k-#S`^E!tr4bnt#Vz=&;Acu(w5 zV90@f0b8WGNf`c3R;Vp6b;<{3aQRvG9txDs3iy$Jh>3#mv8 zJ`DX8_6NSbaU;?RyDIDt{=oYGBUlf%H^?LqkzgM5Rjf`M!Lz|}Se(vcF-78Wcx9s6Mm1s)821dGjY z;Pv3(a?FxgT+CQIz5?fAZLwl4sRDlkeh+#e){0)3>UVa+{J#UR7jyF(7)~I8*EVE` zsd!HwW+|TG4_Kb}UdgadFff-u@5Rj5wLd=n0Q=(O%{t6(ewf&z z!9B`M^b#f>0TWpV@R!h&Fi*6`yprDvhV_7_F;O(ZL{SP}1--M62aN~M1=m35VB+}N zG5U)1&ocWL>m|Y^jNhc(eTm%o+AazIXCBN>ckLu{V+EeyW)A#-E;bYL}3RN$2;y0Ze0Ak;`q$n!HvO(6~``j2RCkUI*zzI zxbgZiiPCsY&bxcK^||9pUK-V1kI0Q@G2!rthVBk-ymN*vdsF9UzjH>SIe#jN_!lVZ zUm`cATu>bS+#TF_=91zV?(X2mYnK(rM0W=_Mqg1Juev*;ub?@n{iAr6x_h{B$G?hW zjk|*zTU}Qi+uR-8c(6us>~nW;qYls3cr#SFJGjw46i?Z>2mh-T*GuHarYd~i0Fwdh zQ~gWi#{GB>#~t`hx9cTx;~m()OBX1Ftzf$J{;Kc-UJB!DB$zOXS8m zeu@MC%MI5{Q3%6%Z9E zDjWz>L{N~TfD{p=E4`c0lK*FJFXw^4@Adk}*K(it^UO0lJ2N|F_s+x10-vu7+~A^8 z`OkG#4G|7{&YdH)nY%@`L4VMbh&ti${<=_D>`_xgYCs6lcnP0f@ac%pEPQ(7bL8B3 zZ!gsc{9m6nu)$>c(^&ph(SkNaySP_4MRV7Adur~&F?WNvyM|O&;cOM5{tzMIL~ERh zE-M+(sbr!Vuvc+TDv>*~sN#{SUk~x=?)vrLO}#a9lUf#-N4%}w;p|KA###zMbP$Ym>36rN_1*sdP-z8r=_Y$s)Oi^^&(C5 zl&QmqGM#RXV))C{*lG0FS)r9jgu^P9Evec!-lM8;raI3e%T%;N|NOByiYi>e7az)0 zrX_9}P8Cj+rWja9S>@e$8a)-@(6;zw}T=WqPoh{QZM1 zWB{qCp7b1rPJ4(vjK~AkXk&*eMoAo5TZ1Z>T}YQ|vO@+{Csv|U^<$%rs%&jPl4*Sz z5ewI=+$J}1P??)J2wVSFk@?yqA=pbrlU*IuI5cKg2eI;k)0CrxKBOWI#U{k2;ll2S zULED%6r&Rj7?u;6oj1TVv~lFn+yQTWY;`E9_gP3FBjx007MX^c1{CM!=k+|n=G+l| zgo!8ET6~86a)M_jkR#75Ga*0Eq~zsyQn4#}4YiOOrH_hEO-o7a8G4#k+!5>6aQK}k zQhvtsXF6^E?G{3M%eBAcyY{fm%Uq(;nWn?=wQjO?I3XlUuj~rks z;8oHrwYcz*)oi4JxkF89qY6xs`8lR#x0MqZsk5m#Eq9nHwK#iN0o`Tw?u(&9&qQC{=BG*)zUU^lh%Bu*d1tS zZk{RIV$aRVUZ7?zAE4H5saf9#VhzDVWMdwP{z6xYEqNeT^Zr%KyMr2ynv(yvtwaZP z?8pPrL;papc!P=MXG_6d-3pdoAyv_B5Y~M&OH>pjQ`$MlN)nO zfbd}mQ#}$rgi}qK_aiYdaA*sjiH7&MLQ{6JDRO9bQPI%c{(pul_Ugo%lt|S*+l48t zx2B6h178edGardH!#lQ9d`7D;#Z-WcxN5alMZ}x(O4N}`N&}gO6%>z3F%8Hs%&8Z{ zZaosKwM>ptoVb&CAuLzlEZ#IMKiBGTru_axaO3>zIn#x;`$zQYSJ+hvb+x95Hx&=g z&ndD*FG)~*UNp#5Y`Huhk1jtdGJn`GQ(kesWF>)zErAklb$h0;um2J2gbqtpk~yP) z4@57?$xI55x11q8t;$nWT$o#s8HK)?$GcV0`)SOvO!RA#k*=gLQuGM4H|m)OYcdq8 z1Lfuwp+K35mdhL7gY_;GecUtpC~hqknTj*xaLSY{Hl+-WxID|!ylicrq!%uj*x@oU zP=BaENsbna&zGtTD@&MHIXbJ;yDY3+^cC{oV?D}6Kf!$xTUsvG&_^c5$44imrH*}{ zb8UUdR3+Y*SmkiZS6DfN-6$7>^ii{I_U{T|pFW4Rd5nCLKVoAai`BG|(NXCs(f$iK z`3qwfv89j2+H%lhOBA!*c8SZCENbxE&Qq7&-!#Bfm_2zVb9^EOlvaMGcaEr$(>)!e%wj6 zSD^ynRSEf0HNSE8}byR)R}v1_EWL8kno6YdWve>SI$m86@!}wJyY_uEA7lmZqmN; z;!dhr$TKle_(aFjo*~=mMmFjh#^ev2*vI(v2y+!Iv3A)l@MedfiPeOl8tghkJw^xd zBs%yj9i zdNW;dp)kXzqt8$7#THhG^@V}G+1?7Vo)FTH-K{`m?+$mISMuhUgrCE4kVfH9`n{BKVgN4JB z*_leTWAmBpc_nU+irMpgC7%X8=P5z1%HW+D6&(|s5UpH8*aF2@UGXthfZ9_ywQ$}j zsg97cXx?(EmT+RxyuDKG(5_3Aln&NhViO|c(xal!E>+BKRs`hDbY!ZDQVFetJxAH5iW0HyH%2RY3$~z z)5heEOdM)z7L#ilnp1RrYgG=314bs66c^>@nE34wm0PIYrnrohR#=iZ0K*&)`@(9q zYieOTPv~IZ=~^G-CdYqGUb%(&H@MB|Ut4ZrvYO=!l1HCE1J!Uj+q>dxag&R^sar#C za4$%#xObBj>Hm@37_!j&LMrDRaMn(pO1h)2~#mTcoO$xjFv!fHtP+%TNA zC8Z=L{XX?yQ>tQ`_W@fkN&apB_&{-q{Murprq5N-U|D`(oy&)&4fe)#EDpGF*IcHT zC4b?UxvZg#et3Q^OO_=M;qF{ESjMPPcRrgfOJ1eh7F3-ZJvRXzD>kaz$5kdageUO-Pw#ECRI$6fTt%r#;j0vvT?LmZ9t;ZF+QY$_uIo1A8t=zQQt1h$Ttdh>IDsnGb zOqMH`-@mK?FM2iMuUBW<_!@K8OVwR#-{Sr{wxV6X!`kan^fM1wre5;&s#V7QK{o%u zCl*%D^a*y~a9S#Gn&X;TUeFtt2wgv5XX6+3q zmX{mL;~=?P?aV4z*dnoErY8e9in6dsX$Gs->`9 z_5RSvVp1;pd}9SH)tlT>N&Is8H?&~|MpW;Y9k{=dt$an{Y>5%&H%7CaMwEYW7w&It z^MBFJ!pfOgk^=lpO*Cmr%9qb{A%okS*m6kiZDFN)H}zGVF9+phaeIg@Xutrr#6hYh zXAQL2mD5kL0zZA}!9hxd(pB5#a%%dYx;$aESJkDE_v&>1Z*zMy+xZudR`}&|UK`8p z%}FY?&RSLgXKUSpY(#yX!ViFigGm$9bKlDF{d zC#;(@W{wV@T3C+$oCk!lBxlJ-KC)JU-7b=sXP5OH+LGQnzhSSI{@pk1q_fnl-KlRB z-^*9tXDhe2qyOw#QccAr1^gMxhr3v`3)XmL-?Lm7sivH>*Al@dJQh8?m7U!0N0dye zI*h|nw%tXl;TdpNvD+8u=2>v)6<(11Dd%ZD4J;g%nQeL8_q-xSNGo$>8{MQj>}-bAgq`Rl z^<(>5$?oRw!=)K2Hz!IibEaR*T=)Z0p~iE$%#~$FN`4t`mM5lK7~E}2hPtM`di@l^ z>|qaA>=%B~KsU7tU>I3nVBP{F!sC%AhfcdX?1`bhLP zOJx05M1J|kNOUwyWP?{kR=zP3easTs@D-8CT_wNQ*D$)5C9=_fBXMItR%fy7SjqeK z@#tTc_{Oh^FSf)xzSu%6pqu38)8sWFQ~r-rqElH;8SQpWN8)<1^ViOYH z(7?^Ax>o3G;@vIrFE{YUcr|YU-_8>M`Ub+FWoe+W|HiX136kI7 z7keYB0W%(-rkbH^_2qYc8$`Cn^w^G1Zg@v4ms#dT?64q-8wD3ASBo-2S=J^hz7)ap zJ=`{Z1V{&_N|Zb^+W&uLCNz90Gvtef)6o7yGt;v1)~gvCnS{De_znPjD_yE*UYaiTanq!8emGcKXjpoUOn?eK{f{lkmG+tk4Uw)pYevIn?lwj` zq+)^Nq0i5m1Ya~{QR!e+|CpDo>WJr*}*;GlOzv2&*(|g89}p~dlIKe_5Ss+#Z#n1 zp8Me7*Kmz~w5gwnt+<0scuCERr%GQqX!gTt4rfv~%VoK;H47v!)eW|5ffUSkF2J+p zq^|7z0;w9SwNM&m#7kOhrg#3mu$rp7JiQ-#x=_-q?pd@N4}e(3LMe#Fe+=UTbB~Xu zaf0R{;@OeKsC8k9lptsxbMCqfr59?-uIAaxq|Itg1vhs51Z(DgpGd#BXjJ%y2n*gM z)ift>l9p&xqWR8N>6&PeU{|hCHecE)c{pnD#+KOqLsGIi{;+gcFu2%KxUvdA+0)$b zSII-xxbbAePDz{04Npsws0rfS@SN116`hmJ9*t~Kjcuxlx#OQwh^PtSNpmlwEFWH$ zB$WqVuv*K|(xyVqUtW=1)S6a2?Uui#=H^F#OXF3V_MG#t}iYYWmCOvst?PpkPeD{xq*dLO77-_N@X zU%Sb@&ED?vX0@TzmSVi6pyoSXayyO31em~X$d#ej>&!t7 zaWcZB zp@IC(y$^RfQ)FgjVnX-ml+?tO%!u&RXqi&+upHmg@%3Z3lVoq!Hc9pnYP3{fNRnJl z5TX=V%3+-qj&kS~%{|QozgQ(jn`9X8c2yt`pz6W`l4T$EKkgWk$aW;ljfD4;*sWwl zjmTsHDfnEL$1<81G(Wgn)?b%mG> zY+E{VpRtksnJxzljW;n}ckrN1oIO}XcQnrO&8%m4IY{_)Gn>#|t|hG7%vN_tQI2h9 z`?@2OlRMcR9^|{5xn+Q#?PcvUzybSMRt8Si_9r$WL-wx~eUO*Rs1!CPGbT1VF6xDf z$~wq?$dChsqet0aJn+_0rtJZ~dYm=rA^Que-&lMP6d>p~R>(iI&M?*k>6-q@ws2l_ zft}@C{}QX{fdW6i!h(9@^YULTp{HD3x^>-BEx+^;-CLoh(o@qC<16lSo2A_%V>(w^ zv!8M+zEKvJ85f?w%_T*}`NN#G=5Kq-5l%XPkEYaAbyN_TORk*S$RymO6xBx6ZdEu1 zsFL9dr*MkEq@hx^py70sAcSx{s=PpV%`8{Glp$@T;i`sp*n7L>E>8a=XY~q9;p0{O z-4}xz&AO2FHli)wVkD=dRC(vE+MetY9 zhjBasUjci5gKzcWXp8SF-UJ725~wqd81Nl%3G^-;ap3zhmC|iM7+%q)!te+Qa-i4a z=mmZZjyWWd$1eiy0efhP+Cm$C73eCs1~?Y_=^p~!1IL4d&kB@*Bi@B55&RMKoXf}` zJPiCJw8K?_W`aj)ONp8Tj$RXJISdn!!2LQ-a8safz_YyK6Z|8%ak)UtDgz63r7JyNZve&EVd7}f(Wh-!Kd z23besBdMvHR!tv)4d8g_Or4sRgI&PWpno=~X)V|j`~Z5ryPCcSM}VI|2jac5-i@d? zxEFMM9W}**2ZG;)zR?H;0GEz|A-J)cwl`7JY#1hkA3?{3sA(B^D)@cqccRp^5_|&u zIkZ!>nrh-3tf#?o(A7GtsV?{mI3BtTubtb0Z-X1-mGbWiC;(Wa$3@}g?J>NX9qEqt zcZA^zpm&;@CL=)&@FeJ!I6eXUfv-XD9;T)>;CH}xq1%pEQ?duqaqtl62)r#k4z6b) z8U%e8M+UwF+yq>0p_-QB$Og9p=dMvxd%V(H<%#xh1H(i>xAkh;gaoPJNzek`=lu!p z2W|&_coVJ)JP7;@dj3{5Id~Bb2Ooi+gI9KKz$M@v(AwQ<8VW82M?mL)k0u3A1TTQT zxK~Y|m%=au2Jd}piuqAZN5Qkf!=X!$sOfL;Lhu^sy~orPg)b|A0=@&?=(w8lz@LKq zK^Nl~0saj9Kj^Q|sA(*C5BMTeemFcxp@0(>yr8qw3C zPuxL209Oa=@2aWceKncD^}&OoA3spjL~v_x{fBBg^GHn#!EM3Df7CP$Z}?V$qrtnO zJ@AHaGdLL>0iE$oT}p>x=nuoBXXqem4P675fX6`hH)^PLHC!QhI`m~6Gr^yO{qP>I z2j0oe1OEa35PA|`p#2RFb0FFUJ*=IEMpq{)0DlI(1#h%2g7<;%LHF*3mp*f95S@f! zPA?6e!z-?@z~{jpeKfSLpN4(}-vZx&&K;nk^I#`@cYHPU-XR+D^2HqlR==g876lsW z2yO)~g8ryPLs{Tx@KNaXcpEhV+!K5idTr@M4XuLVZ5XaVkDI2UQ{Y+P&CrG!8q)b; z4hDCDe*6)>r3~H&Zh;p>vzKcqAN&{i0JPr*4ebKEU^wmpeSVvUYS%=8!0o@&Q2SFF zdK)|kTmW7AVVQ=E{-`b(u9a&j&`l&U00Rq#({$+arXtM;M}s?tigdK2Nb>@5%YoIM zM0z_;q%+_};0@4odW+Pf7SVq2Ph1Za=^Jo4cqa6!AtFh&QM(vT&khmM{`n$>!O#i@ zsX(MdB_b7rdxPZ>A{obu^c8plxHELxM3L@+KLt;R9yvv%5PZ-55ZDYoXtqfC;QQcT z=7{95NTeNLAB>J2pykylKoC(9xYO!VBv>cXKp662=nS3tjYuoOAA;vW585iyMesWC z66ig9MRKo;_5%w)iPYs6ktTp;jE7=G{jDYXD_o*k z;LTva2#NM~MH=ua@Iz?71c^Kwpn1WY`bso4OQIt1O>pTRz`#KgO@u*>;d2pmNr6OP zgX@D=K?jeLs2tn_+#mYPXo)&DB+3HU7$eb~i4vuPCxU;4&X|t^f%k)FLLXX;0yM%P z1TKg6$I3Ah?B|9?npEbJQ3WI>n9Q>Jd7h=82|SILew&; zLr`KQ$cBC<$`k|s4IC=TnCE5c4ZZ^Y2l^ZQ5TFoz8+;pjlu@Sf;K$%^peH%WG#@Ns zblnI&*IA}@U`Oy?=)w3s#&&SCQWzEi4*AG*3x>{Mbv2oc)n#&QiWLkv8oF-{nS8++ z;F-{g&17l_{t7$=I10(2aXso*`};n3TLYiTBUANT?E)nY9z z1pf+lEQTJ1LY z4mgqP@mf;1#Y6(WGD%CqWGyuTmxJp=cb=l9j^Ijg3G|7nT1o^PF+8tbh5|0v(%n)R zJYaBMp`}}&XsH4m0QOv|rTkS|@@R+5!1JMhTCJr(a5M0M&$P7hb1lV#+kk)DsHNmh zr~z;+cr5h%&05TQL@D6LScw+mXw)9VI{0(wFZXMyv;_=3VYmXg`m>fgf%}519n{ib z9C6?*@B-*sN3@g*E(Z64KKBbU1&;?Ce?=3V(9%Tk67Y5C;UFdY zJQ3UsOXUN8I%?SwvmYk3=g^MLbaWWJ44eRcCR9fQJK?SYt6J$OGpbZaQ(&lsVN#Ti zuEgl*F<6BeuUcmvHIBzmc*2PS!Aa1AakK^327ds(2uCMy5O@#tVI0xmV6Zv?1;Ei2 zTpt_*os1(9+z>nlI;k{SM`tFP(k2KWd#=o;F8 z#C;ugh#`6k!(wRdKga;Asf}8I{^|+Z8SDoB3wrKz9jyn~2G6b3(Q~byPJvUvjdXf? z-$_rkJL4_^e+GTPOHX~ltH71ebFiaX3*HYtT^gvTr22Yt=z{qeh9c+{%VK?-~zIwU@J_EiA9h9l3JK(F}>?}P^8>A=Ku0#$& z=p)emhUqB<+!Q<)dUhcWa58wwSUtTv4j0%B%?Dlwt(&SRZ}6-jjQ3kESx-NLb-@@|uIOpP z4Lv;u*8p#Zu5(XME(y3|@OkLm$9ifB?g5?w?NEs?>VV${M?hB-4fHvffp^LV`pwZm z&%s+tVJHWbxf!TsA|4Kao46YYzp|n%@NeK!=p~-`tr7Sf_$YK@H3JocZ-IN&G*E!Q zfwqG0gX5svVH>;$>{}0G3H0^02GS?t>cLCe87K%3#pZ%bXTT5(_%qf($6;6t-j!^i zeLV~mk&J-@d=1(y%Rr;ScftFhrNIU=gT3lw%ME=r4;KM$2Ofzn@jD|8l#+tE1iS)z z|2P9p1CIvpe#bzm6HveuwEtKbMgaOuGte(c@CDdux`9^AG*G=%bTIG_(4q5ifKP!l zpi`KEMu4w^A1yUd`Emn&4ZaQzSz(~2*e34;-v*nYzsB)1_#XHY^nleUbSm0k(*SJ- z*n@raT_iAo)oToN2nVHM0SbN&9fWrZ80bgv$2|QHsO^0Qx>X9pCK$8_4Rq?1fjXvRQ_&Cu1@tGs8|X{027Dd5 z=QRUu2DbzM@1}vmpBbn@cXTrF2xzllq&eV^z_+1W>5TLvcq8~N=)HbMdJYa~gaSg} zsBNUu6&c772FE%^lEaL20{jWMHS`W_@d{t`OAH0VCy}G}2OVB=`g9SvZ8g zSV4nB&l@QVM>}w5@O0=6|CAaj9ELS8od3s2_Y4lS2mCwO*XTe?eH;kyf2l=N^jc_B zpaYfm!_|U6f_|r=18oA&0xxapK<~D8pyrvFN5Cz+J5cYN4)g@9YmS&tQIpdJ(h3;+ z!RMj>D8-}GBuA9K1=fM<1^Nz8KGn_`>%mW;*W#&_2|OJ982T>u^TR!{LIy`{*U(~Y z--p%2I03#5Ei}Uh6pNWZz-iDW*bPs_%=!qt7y4IhUN>SG*YKtLK9NeNV0T)AQO^Me z=Udq6Vsp6?gGe>-5In$ch|S}8+%k2*>!HVBpU?pvb|Cm?=r!0U6l0$-1Y8dN0Q&?p zt}YK8iG9Kf>=St2g*fg&=VMAzE_5GJFcSE%fvfE#-jcg7-m}V_Ci(ycFC5&vP$h+3ko`^?Gpi zY4A_ik_o&S+;j%k@h7mX9s|Q27~DS9($3GZJHfKK9Q+u1nL-_$Td&FYR}5UX zLB=mZh;Y~0{v>WJzzZAnbZT!i^G9efX6#oS-RvFQILqq5kY)Rmxbf*B<}yR;R{Hdi zOh5giM89uKf^505;+W!CYVY92(%%%vCVK}rK0Tp0_S-wSap_6LamL=U^dufMoIay? zZrXde(S+Ae{Ax9-e?1a6{*1>D+<{-1+x{eOym(1*@UJpd{Yl(dd|7dHw0Cf0Y4CN$ zgWpoy{v>YPe^YT}**m!L)Gfs^!rsA+(rv{t!`{J-1MnVPWM9aN~KaV~D+j8!rn=R^#j)+*sN`t$60!d${p} zMseVsr0q}Q#->`u@vXgs8+As-anRnujRjW6IeP~;e&@iN&epmO`OX0kFr1ZWQrk{P t5;wl] ; + [] ; + [] ; + + [] ; + + [] ; + [] ; + [] ; + [] ; @@ -3992,10 +3996,37 @@ DEFINE CLASS frm_avance AS FORM Width = 604, ; Name = "lbl_Tarea2" + ADD OBJECT 'lblStartTime' AS label WITH ; + BackStyle = 0, ; + Caption = "Start time: __/__/____ __:__:__", ; + Height = 17, ; + Left = 12, ; + Name = "lblStartTime", ; + Top = 88, ; + Width = 176 + + ADD OBJECT 'lblElapsedTime' AS label WITH ; + BackStyle = 0, ; + Caption = "Elapsed Time: __:__:__", ; + Height = 17, ; + Left = 480, ; + Name = "lblElapsedTime", ; + Top = 88, ; + Width = 136 + PROCEDURE AvanceDelProceso LPARAMETERS tcTexto, tnValor, tnTotal, tnTipo - WITH THIS AS frm_avance OF foxbin2prg.prg + WITH THISFORM AS frm_avance OF foxbin2prg.prg + LOCAL lnSecs + + lnSecs = SECONDS() + + IF lnSecs - .nLastSecCount >= 1 THEN + .lblElapsedTime.Caption = 'Elapsed Time: ' + TTOC( {^2000-1-1,00:00:00} + lnSecs - .nSecsAtStart, 2 ) + .nLastSecCount = lnSecs + ENDIF + *-- Habilita el botón de cancelar una vez que se comienzan a pasar valores IF NOT EMPTY(tnValor) THEN IF NOT .cmdCancel.Enabled THEN @@ -4057,6 +4088,7 @@ DEFINE CLASS frm_avance AS FORM #IF .F. LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' + LOCAL THISFORM AS frm_avance OF foxbin2prg.prg #ENDIF LOCAL loLang as CL_LANG OF 'FOXBIN2PRG.PRG' loLang = _SCREEN.o_FoxBin2Prg_Lang @@ -4071,9 +4103,10 @@ DEFINE CLASS frm_avance AS FORM ENDIF ENDIF - THIS.CAPTION = 'FoxBin2Prg ' + _SCREEN.c_FB2PRG_EXE_Version + ' > - ' + loLang.C_PROCESS_PROGRESS_LOC + ' (' + loLang.C_PRESS_ESC_TO_CANCEL + ')' - THIS.nValue = 0 - THIS.nValue2 = 0 + THISFORM.CAPTION = 'FoxBin2Prg ' + _SCREEN.c_FB2PRG_EXE_Version + ' > - ' + loLang.C_PROCESS_PROGRESS_LOC + ' (' + loLang.C_PRESS_ESC_TO_CANCEL + ')' + THISFORM.nValue = 0 + THISFORM.nValue2 = 0 + THISFORM.nLastSecCount = SECONDS() ENDPROC @@ -4092,6 +4125,10 @@ DEFINE CLASS frm_avance AS FORM ENDPROC + PROCEDURE lblStartTime.Init + THIS.Caption = "Start Time: " + TTOC(DATETIME()) + ENDPROC + ENDDEFINE @@ -12957,7 +12994,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg .get_NombresObjetosOLEPublic( @la_NombresObjsOle ) - .write_DefinicionObjetosOLE( toFoxBin2Prg ) + .write_DefinicionObjetosOLE( @toFoxBin2Prg ) *-- Escribo los métodos ordenados lnLastClass = 0 @@ -13281,7 +13318,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg .get_NombresObjetosOLEPublic( @la_NombresObjsOle ) - .write_DefinicionObjetosOLE( toFoxBin2Prg ) + .write_DefinicionObjetosOLE( @toFoxBin2Prg ) *-- Escribo los métodos ordenados lnLastObj = 0 @@ -14712,7 +14749,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg lnDatabases_Count = ADATABASES(laDatabases) USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS TABLABIN - + IF toFoxBin2Prg.l_ProcessFiles THEN toDatabase = CREATEOBJECT('CL_DBC') toDatabase._DBC = .c_InputFile @@ -16086,13 +16123,13 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE IF INLIST( tcType, 'Index', 'Field' ) SELECT TB.Property FROM C_TABLABIN2 TB ; - INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentID)+TB.ObjectType+LOWER(TB.objectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(JUSTEXT(tcName)),128) ; - AND TB2.objectName = PADR(LOWER(JUSTSTEM(tcName)),128) ; + INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentId)+TB.ObjectType+LOWER(TB.ObjectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(JUSTEXT(tcName)),128) ; + AND TB2.ObjectName = PADR(LOWER(JUSTSTEM(tcName)),128) ; INTO ARRAY laProperty ELSE SELECT TB.Property FROM C_TABLABIN2 TB ; - INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentID)+TB.ObjectType+LOWER(TB.objectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(tcName),128) ; + INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentId)+TB.ObjectType+LOWER(TB.ObjectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(tcName),128) ; INTO ARRAY laProperty ENDIF @@ -16543,13 +16580,13 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE IF INLIST( tcType, 'Index', 'Field' ) SELECT TB.Property FROM C_TABLABIN2 TB ; - INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentID)+TB.ObjectType+LOWER(TB.objectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(JUSTEXT(tcName)),128) ; - AND TB2.objectName = PADR(LOWER(JUSTSTEM(tcName)),128) ; + INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentId)+TB.ObjectType+LOWER(TB.ObjectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(JUSTEXT(tcName)),128) ; + AND TB2.ObjectName = PADR(LOWER(JUSTSTEM(tcName)),128) ; INTO ARRAY laProperty ELSE SELECT TB.Property FROM C_TABLABIN2 TB ; - INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentID)+TB.ObjectType+LOWER(TB.objectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(tcName),128) ; + INNER JOIN C_TABLABIN2 TB2 ON STR(TB.ParentId)+TB.ObjectType+LOWER(TB.ObjectName) = STR(TB2.ObjectID)+PADR(tcType,10)+PADR(LOWER(tcName),128) ; INTO ARRAY laProperty ENDIF @@ -16850,9 +16887,9 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE INSERT INTO TABLABIN ; ( ObjectID ; - , ParentID ; + , ParentId ; , ObjectType ; - , objectName ; + , ObjectName ; , Property ; , CODE ; , RIInfo ; @@ -17111,12 +17148,12 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE lcMemoWithProperties = .getBinMemoFromProperties() UPDATE TABLABIN ; SET Property = lcMemoWithProperties ; - WHERE STR(ParentID) + ObjectType + LOWER(objectName) = STR(1) + PADR('Database',10) + PADR(LOWER('Database'),128) + WHERE STR(ParentId) + ObjectType + LOWER(ObjectName) = STR(1) + PADR('Database',10) + PADR(LOWER('Database'),128) IF NOT EMPTY(lcStoredProcedures) UPDATE TABLABIN ; SET CODE = lcStoredProcedures ; - WHERE STR(ParentID) + ObjectType + LOWER(objectName) = STR(1) + PADR('Database',10) + PADR(LOWER('StoredProceduresSource'),128) + WHERE STR(ParentId) + ObjectType + LOWER(ObjectName) = STR(1) + PADR('Database',10) + PADR(LOWER('StoredProceduresSource'),128) ENDIF loTables.updateDBC( tc_OutputFile, @tnLastID, tnParentID ) @@ -17188,7 +17225,7 @@ DEFINE CLASS CL_DBC AS CL_DBC_BASE SELECT CODE ; FROM TABLABIN ; - WHERE STR(ParentID) + ObjectType + LOWER(objectName) = STR(1) + PADR('Database',10) + PADR(LOWER('StoredProceduresSource'),128) ; + WHERE STR(ParentId) + ObjectType + LOWER(ObjectName) = STR(1) + PADR('Database',10) + PADR(LOWER('StoredProceduresSource'),128) ; INTO ARRAY laCode TEXT TO ._StoredProcedures TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 <<>> <> @@ -18370,9 +18407,9 @@ DEFINE CLASS CL_DBC_FIELDS_DB AS CL_DBC_COL_BASE STORE NULL TO loField STORE 0 TO I, lnField_Count _TALLY = 0 - SELECT LOWER(TB.objectName) FROM TABLABIN TB ; - INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ; - AND TB2.objectName = PADR(LOWER(tcTable),128) ; + SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ; + INNER JOIN TABLABIN TB2 ON STR(TB.ParentId)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ; + AND TB2.ObjectName = PADR(LOWER(tcTable),128) ; INTO ARRAY laFields lnField_Count = _TALLY @@ -18755,9 +18792,9 @@ DEFINE CLASS CL_DBC_INDEXES_DB AS CL_DBC_COL_BASE STORE NULL TO loIndex STORE 0 TO I, lnIndex_Count _TALLY = 0 - SELECT LOWER(TB.objectName) FROM TABLABIN TB ; - INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Index',10) ; - AND TB2.objectName = PADR(LOWER(tcTable),128) ; + SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ; + INNER JOIN TABLABIN TB2 ON STR(TB.ParentId)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Index',10) ; + AND TB2.ObjectName = PADR(LOWER(tcTable),128) ; INTO ARRAY laIndexes lnIndex_Count = _TALLY @@ -19768,9 +19805,9 @@ DEFINE CLASS CL_DBC_FIELDS_VW AS CL_DBC_COL_BASE ENDIF _TALLY = 0 - SELECT LOWER(TB.objectName) FROM TABLABIN TB ; - INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ; - AND TB2.objectName = PADR(LOWER(tcView),128) ; + SELECT LOWER(TB.ObjectName) FROM TABLABIN TB ; + INNER JOIN TABLABIN TB2 ON STR(TB.ParentId)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Field',10) ; + AND TB2.ObjectName = PADR(LOWER(tcView),128) ; INTO ARRAY laFields lnField_Count = _TALLY @@ -22699,17 +22736,17 @@ DEFINE CLASS CL_MENU AS CL_MENU_COL_BASE WITH THIS AS CL_MENU OF 'FOXBIN2PRG.PRG' IF VARTYPE( toObj.oReg ) = 'O' loReg = toObj.oReg - + IF loReg.ObjType = C_OBJTYPE_MENUTYPE_OPTION - lcTempName = '_' + PADL( INT( VAL(loReg.itemnum) ), 9, '0') - + lcTempName = '_' + PADL( INT( VAL(loReg.ItemNum) ), 9, '0') + *-- Si el nombre es del tipo "_0000000001" y coincide con el itemNum *-- que uso para darle un nombre temporal, lo vuelvo a quitar en el binario. IF loReg.Name = lcTempName THEN loReg.Name = '' ENDIF ENDIF - + INSERT INTO TABLABIN FROM NAME loReg IF .l_Debug