From f378b64024b13fcaab20843ab3af156eead6cef4 Mon Sep 17 00:00:00 2001 From: fernando Date: Sat, 22 Feb 2014 01:17:07 +0100 Subject: [PATCH] =?UTF-8?q?Changeset:=20172=20-=20Arreglo=20de=20casos=20d?= =?UTF-8?q?e=20prueba=20-=20Arreglo=20de=20bug=20introducido=20durante=20e?= =?UTF-8?q?l=20desarrollo=20(se=20acumulaban=20los=20objetos=20de=20todas?= =?UTF-8?q?=20las=20clases)=20-=20Limpieza=20de=20c=C3=B3digo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../ft__foxbin2prg__c_conversor_prg_a_dbf.prg | 12 +++++++++ TESTS/ut__foxbin2prg.prg | 8 ++++++ foxbin2prg.pj2 | 2 +- foxbin2prg.pjt | Bin 359296 -> 359296 bytes foxbin2prg.pjx | Bin 1583 -> 1583 bytes foxbin2prg.prg | 24 ++---------------- 6 files changed, 23 insertions(+), 23 deletions(-) diff --git a/TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg b/TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg index 1cc0ea2..7caff96 100644 --- a/TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg +++ b/TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg @@ -107,6 +107,9 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) + loCnv.DBF_Conversion_Support = 2 + loCnv.l_UseTimestamps = .T. + loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( lc_File ) @@ -176,6 +179,9 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) + loCnv.DBF_Conversion_Support = 2 + loCnv.l_UseTimestamps = .T. + loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( lc_File ) @@ -246,6 +252,9 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) + loCnv.DBF_Conversion_Support = 2 + loCnv.l_UseTimestamps = .T. + loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') ) @@ -316,6 +325,9 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) + loCnv.DBF_Conversion_Support = 2 + loCnv.l_UseTimestamps = .T. + loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') ) diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg index 302baec..2b93dc3 100644 --- a/TESTS/ut__foxbin2prg.prg +++ b/TESTS/ut__foxbin2prg.prg @@ -291,6 +291,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) + loCnv.l_UseTimestamps = .T. + loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) @@ -365,6 +367,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) + loCnv.l_UseTimestamps = .T. + loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) @@ -437,6 +441,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) + loCnv.l_UseTimestamps = .T. + loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) @@ -684,6 +690,8 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg lc_InputFile = FORCEPATH( lc_File, 'TESTS\DATOS_READONLY' ) lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) + loCnv.l_UseTimestamps = .T. + loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) diff --git a/foxbin2prg.pj2 b/foxbin2prg.pj2 index a12d939..30a3909 100644 --- a/foxbin2prg.pj2 +++ b/foxbin2prg.pj2 @@ -26,7 +26,7 @@ _LegalTrademark = "Open Source" _ProductName = " FOXBIN2PRG" _MajorVer = "1" _MinorVer = "19" -_Revision = " 269" +_Revision = " 270" _LanguageID = "1034" _AutoIncrement = "1" * diff --git a/foxbin2prg.pjt b/foxbin2prg.pjt index 40a7272f8faf74b0f1577cda8b2ce5e70704e75d..b68d64f19bc4af0a4c991ace4f60995b7d7d3ad5 100644 GIT binary patch delta 7013 zcmZ{p33yG{`o_P#v)A7HBt%Z86G_NC5F`;X1(gXQk~Cs0jgW)5kwgYuv?o=nH0J73 zs)o2!%~PXPP3`RsRW3CvLY1a5v{l0u>Hpnl$GMT-zvtP{d4KQv)>?b7wa@ph6Qz&c zN*}vz-)s;&MeN#Y80zIxQ1{!PzM?=xg9kAZa1B~ybo2eAbBNG`f?!wQx1*i6B%1OH zqmWRd*7qgaYIr*}s3J8;=y*jG4gA3{vAs}Uu}=_P1aXzhjm^Z9{9`*YO;i;Az)n13 z-;^>QJCIZD6M=7dgC4`SkMA(3xkVt|mt|II{`@DBf(iKB#So-B*SLT1HbS@aZu zR}`_iIA7*lndtAiQ?7HOjE9UK2VuNtM9=F~@_Ncn%DkG1p1i**rVG)0wJN&$tx)S+ zFtI%Xq>~98Tfud zT*Q|-ij#$%6;92>-vz;wOGfd#zbr%!PjtpYH0LLru@K$)ug+MAVcg(?h4_+V1zdTl zi#Sqi4(*=Dqo|DF8*5$|NlZ1 zs889a2JX{NH1TA2(MfbR=*#hCJ28qYCOBxeuE|}4ZB4q?uStw;O>P;iYa;m0{@f(u zva9&qBwcj0Y`G(lKuyU&@%ed^%!S1{g^7o!2MqA!k*y>*p)c>Q9yN_X2Z8y=~B5u@t-+NePe2UfiZ_MPldamcHJ`h1@Aja!RtZL{o-Foo~Mtx*uUeHGJ5`SD{9nzRlu9?2{BIpd?7ABcYksCGJ&t}is zY-MZTP9D4U#>U^CiF-BQ-_~i`ex3D)i00vKBvYVzP%{H;L648>+~CHS^6_mXKXKg+|_vP<$(c$k%~V_OdDpl8?&yS7?W#9tPoxZZ!U5ECN*cifC< z&5yKAeW`eDOz(h8Mz@sa&|jck9z7IU@k;)o5Ld_q}DJFKQU$Cao#CXit_)-tT#1&x}@=%-vz~iU;SP35JLGsBBcOf9^I#Tj8 z`jqNHFZL*%d$*TbxEbc@cEjoR@f0)-+&^D$YCPSt#hTyMwwPfnbZ$7r>D9W|xbH=N zs6CRv!S(zwrU;LVO@D2>78zq3EqR~LMlHc+CYZ-yKjN|qwQ5_+!=oh6A<U|d)lap)K@^*r`XmnvtL2*ugUNB!1C3zUl z7qpSO+3x2Tek@AzG8(I2w%1oYijsalC;Y^(+cT5UgFmrnzM^{|-{HVKczXxtCVn5O zLzV;c6g>EL2iBY~)%0dfM~OXS_4eoR#F_*hBAWo#_tL=(zzn5LSd=`YuY@x?|Fa1* z@l#EhGY-)=HNSYM<}cYY$i&AsWhQafP_3^E&uq$k#1C{>(sPK)SD;ncz;`ueQK+%E zwU0{f<%o|_<;j5<6;LS$^?~>+P{{6?8sUQefR-K)$ijpa-rvYVgn_)oh=GRlKH7-1s6X+&fhSDZmvJi-|?oo6^>k}_W6 z%>0B8IM-+g-|Ni$g#dn8qaM808H07=elGaf!F##DoWaLxRKv?On#Q-dVA{U?to9Mj zpSv(`xyM=StvacatKr2irdD)wWg&icXX!8>)DauMmM@QH`!%irKMPexIz-ZXI#n?w zldW{LoWCSdM?a#gPT0vS60LbG(PQvXBhk4h5+(aFI_Xao?u>SSMqcTRS_BeBxe!HW zFv>MET83Yi3&Cr~Fp8YSC_0$vFnG*lMx#m@tp@)H=5H}t{vM;dUFlO5wcwfH%h0WFFxmlL0R9|$+#N=Tz?;EO zpl94?bQ^pU?EQd|4}M>}wZ_wedp~0I^Ar4809*^Un4aPZaE*iUCkzy1Y9-6G2pr@_ zG#q-BgG~Pd$AB+E7kJ5Z7rX#m4jmIN)7UVgmhRX>XiJ<-IPlPB@ImN%y<}PjJ^*&@ zEmL8JOnbrhCbG~nz>`6kv@KpR6ZU1WOtB+m>IiNN9t}MW*WbY5;Bx4#xC+3L;B(Mb zxJtlLVE5N$^20S191R`{osG)^?gX9>JvvLKncx(Yg=h}o0l%PmrleJE8*c0ce*gGMT_@!LiU^O_#|G-UF_N{$!?1v%wd&_E|EiWiovYw(}tB z4n2LoOj0;eQwxm1g)+UvWoikdJ=kZNO#N2MG#vaY_^Wj?y}DVZ!{B0YG4!N8GSz~Y zf;U0mJ|I);2rM~x)y+WUX-vMvxpwN&Qh0cLDf~P@e#46;}0sH?Q zj4%5sv@RI~bRaqlJ_-HNAca_i(Dr79Zi9P*BcNA|Qz#~yC<%ND+ESuWDmWJ$ zFj=8nZzwbaya4>>n+hG9sn7xNZY_SULP?7i3b1s<{=moue6T{HOzn_AJPvyJc7>|JY2Z7%6sp^&Q1?zm6TyD_7217Jp%U;mGtqVMpi8)+Duu>@ zr53m$XosH^DhK<4&)h@*KQL(*qBw9ZbntV9UIClI$#n`fVXB3u!*~})I8!OfUZu~# z8^NQRsx;13CDxVb82CNt_~t5g2j2jn^;IdrPo??bTj1T$3;k7E3cd&S3{dISK$X^l z{{a66{Y8*UJHfT!8fdp*3rraJOBk&SRw*o8r6b^=mPGrZ&vj7gDL5XS8?Dm$&MF1P z5RC-;_fY9ttV$EWQ^6&1Dwz^hS^{1Qj_jvW`5={UfqwuWgU%bGQvYs5*T8$AS6IfV zGzf;f4~orrmD){FsS=zD9u2+jO_f5rV{-6i=)hSjjR4O94}tFcAtnSr0$ZR9R;d)x zgUINMZG}$Wp^_O~41NQ8$1atgfTw{kKwC@|SmIZ(1u*(R-#Ms~KlmTun@3ctJ+0DY z@H4Q_8I?Bupwa_yE1VHdL!ZLcttU|!`1LB4X5Ce32)F>e4|^*ngK2cZ-M^0yMfMuuYqfzt8qog6IFp1_cG8I zxbnd_!MCA13^PzMI644{3OaS9fo_2Zf~P^(PB4&T0umG0C(mM_qmvA@0LBFvzd>Iq z#iU?EAYPO?2C6E<0X7j^1in5T=~EFXTOb+%?x5nQaub0zqQvKG?a;e63-mL1JGf|z zK->0+)Yl&0k|3hO&qVt02a!~qrtHDPEmuYIW_Hxhg~$oUHR!SUbvOW}I27DE%Z>{1 zTdb#vs3Um75<6PC+m0?GZTA2#+ha!;j@!|#=0v@~XYlK%Q!5>h<}=}G-Ur`- zo`f@>7RzyU!I>{+5~FaO>6U}*pmR%cA_A`jhrh*W9nO5W!K=Y3WjKJ~NY@!BtPMfP z|9lCf?Kq=NfUy+;BUUh~!x3x)_yG8mb&O`MXY>^O6*zJOqXZnen&F7`6#NkS^TUj` zfCWr4<_K;MN37Fe6FBAsql)hs1>!{H4K|--)D|bAF5u)~3z7*S0Vkl|IMED1!0*sU zQ2!@_i@>?#WSWb5U5)d=yWoTcG7Uv}Hlh5^13P{!(;q0mi@=|NKmAfBj&j=<)pQHE z_X$)&RLe^65%8+JG8LgZZa{VX#sVX_R;KQ#enF^qm%xvpzecq?3ce1W5}>sq-J*I` zgReth#r03{FW{w73N68P99#qLjcPXv)$J7cSFkZop?N4yDJWjwKT6qiom7CVsVk05`e79@Z@j-r~O7VHEM1W&uDP;=z| zEad)S;7aHY$o1#IMc|*H2P3slLTaA^RveI;k;?CO!T!&L!8}!}>WqBfm1qTcX&2;n zq|y|m&Q0Jm(C_t8X)kyW_?0A;HX?JL1s?zp9jnqKB(B}aoTtHC4ykk%iOGyabp`Bu z6-Qt^J|L~#&zh$8N_?|oQ>Z$B?gZ3Y1+P|PhMwkBsgR-c0 delta 6909 zcmZvh2Ur!y`o_Oqc6RqD9S%pDfPgebs)7ZTqGA*w&8D4>ZYIkwpTwy2je zH!%?vqlxuug1u{Ei7^^A-l*7b)D&Y0dIh}ivdHC6;`7XN-rqa3voo`^-#3fXs*KaB zj9WJv#P;#qHyZ|dx@6Tpdg&_)MARvp(VhN`vfpS{=#5>jfp04lEk~Iq6c@9#h$`dK1dczgx4$1$fAef zbyco4&`{6bRg7w#D6sm8NL6|t(`CMgiLJzPnO8E=O*qWEs$zjDSgEz6tSXGPy2_hs zYE|-l&K9Y>otx;vGL+|RKEJ7o!Qvx@4;dm(2DnAq?_*KknCib@xTJlOeF%X@Bib@P&M3C>h+wsjl=XyBRS?Gff?kceFXJ1H zSd|19tjab%+XbuAy5fb4I7sk(sQh_V0_s+FIWIJd{_Z=KzwYz`|J*1RxOGzhVv)*t zxSQz7a@FT-B~Nq18Zm>uM!&jYjaC}!)=0R{SD8dF@dpDJ*4VfTE_2SCL=>Bf^Cs!C zy>-=30tsYC21+U%JJC{9GO8%-56!Y~Y#p`}VL3FmZnV)X$HvyaSj}>3Y|ZYhSscXlUS3XmpOgc2h8xDD8ABC1`N(#}qy1v4$u5m_DVXh@_LXqWPy|nf%$o7>z4of#_Myl>M({F`7 za!Wq!t$S*nr%kLIZx<}N1wMF9tMF*j#jQTNtIzrb9~~^UR2NUp-)_}XB} z&m%Iu&cleunTv`o$(D(uaxJN2-z;?FmBEs`FpobEmi%2O4bYnzXu`NWbBQH6F{y}0 zgh(DH8m!fLH@SZVH-|_*!W}+6L<$ld_y&zW<|nkDE&N`H)F$YoceM*!V*Qd6d!}S% zyq=yhXWIX)Ox;T4okJzRZu92oHH=1BN>Y>K=Ihv8!=%DIOJ7St;gH5=|6)s#W)|os z7s4e^;T^s!R0^0F|=6yI@;R_jZzYIm*Ex#|8iZP0wbhIV84 z@94!^yIr@NHXpE4^IJ7EH}BC|pM>Xrjr{*KiC^peSA)5FL~qwUg? zi@qM+(d?iGJN8~3*Y(xm?+^6KrhSe0S@T01E*kZl&idk%@Pp_%pvPm)3~Oi<`Ap|V zYq5*JXp1L#fqREbrjDM?ZE!)Gh6}>&b#8k1ZBClswxQh)f=PeSwwwGE!RO0ky-cJXjKt^dg^bq)%{mbJu~vJ z+l`FX{K$qou8Y&T>B#nU)ch!t2i8Z zc2Y}W9QTZnJdAtOwAxtGgJq_r2-&BQ_l}T4JGf`)RW90Q)oYT?C1x!s=ay`#udEMz zdbJk#&hgJ95cvA@V-b>%`2Ik?F+yq~6!VuF)(qjkk&>5j;xMi2INVha6n#_D`fua? zBBf~e(-ys|=``B$m66yk_WVGk-?QqAw!u%u2O z>fE@CovU=O>9q$|@f!3kWpqz2=hab?pHug(TFXuiy+!fxXvrh{%>%maq>tM2CX!Z$ zIZsQbp2zg6#`m*7t$X@wXsn~o*sYjya$=7HONkkY$J~>D94&ce+g{KbcShPmwUz)f z%p>a3)@wiL6|a`=yPG;Y(_2NON-Q}@Tsev6+%d?YW2)}`|F#P%9Al(=7dxG{mv9Ph zMsF4sXH6>-vB?&cck2$+`2YJdK+IcvfD zG-pO}ccczenllfvwyO?XG+5eAhg$%lHLq>XqQ!H`y7!tb8Z79cgH?mmJ$2X)5JvJd zwk%x8=QXx0T6lv;+Tmx6_T#ebodE{^g&i{qQ+4h-u$~vzG0yDF7dcq4$0b{|A0zK= z&squx_3EkisQ!+xw8w33@|{{uIKO1iyuIEYqRm^Tq(0iYr@8i<)IT#Pv3q99PVVTy zyo8~=tpl#!!qXg>H#*GMeoFa#2XwNZZ*XA#!a4qp1M?C8J&*tDz}y8}t~#<%@sDLZ z#*qaGPJECf3luWA)e-%S;j0{3u;9;6IO56#{);0E5iW9*6NvFnPAp7_;Uk<_kkE-Q zc47go64z)WtQ(p3fU{Fm1~h;+%pq%dnIm)M_nepuB5jS zT*MbUGe4~0HjOwx=ge9O2L4o|0Pg03p?dR9+7IW$Twspm(=|HB*J)(tU%6mZ5&Sp& z_-9Bct6&whDup0fZWpoML2E2H!mCOoVX;+Uq8xE#OJuP0&|wG5Qib6FlKI zqoa2i9Rn`{XWnHb{>+R&1f|E1=zX` za291Mj9M6{ZDcxPkf|ITU?lnjI^IF1E8vdc66j_=G6`WA0JsbEg(#V(fW6)D2%}|k z?;(?G8w?0M2zqXBnKpv=f;U6k4wUIM*kB?nMFEz+Ayb#Oc>7F5UqSykOs3x8HsBg) zqgf^^I2_ysx);hUa0GZ9^c0kN;3)7`=shTlz%k&*(6uPb!0o}o!)2<;lW7IGugQvy zVv(r`Wgm=wXs`l0ZH!Du!6U)_#>v!XyiC5~M1|l1(3_^n6b3E>{|G&FnoN_xJHWG` z6X(kGA@~Qa9(wg+nJ$CH7DShz-ImJKq8(mrD~$ci(D{clMZt&!?}EOwN~Uq(4DitP zGCkOWWd;|6?YGM0xCeU8ZV!wH!z;4|RyCuQWA4x9z8x+t_f3eW#%7+nA-ObQ)9gKDt5 zyF!&d3f%zvcwpIl73$YoA*bFH-2%-xca$ zZBKL&hFq#p#3u?BgP(#e&^yW%S`Ajch;FXKifmHoC^!r(ZdT}z?F!X`)4?+;6k4$# ztJDE+1b7d0+7X53foFqfLzkg!2G0dwgnn`igWL{dDU7013f)He6pXuP783M^p)ZcohS>tn`v zDm@2Z0p~%hgYn0g&d9dlbm&;?Xq868F!~_b6sYv|6wDHw2Cjiln4waqF4$Dy3DEoJ zVi4fD;78E6Kf(>cPr>dhRcf|IrQ`&hFnx*ILf_qiL4u3HrY}@_twJT+u0)f;MbOr5 zyRpPD=D@fKJ>!TY7)_PaGTx+%0`(9z6qWVeP)P(=7MAV5vZW=0-%V0GCyLO?0rYtegfD~K|zCM^}p(0S8Kr|Q} zqvCVeR-g@xXslKby?vuV_rP1g#hV1$@`Xsfo8c`9#FBq0(g#;XQk{|gz=N&VMDk)b z6z+lz1fvpq#4sDmbVZy7hnj7u2wz&=OhmEZf@Lp54)79iLLj39IP-;JHp{>>@b`X4ocUHmm!h19zJN1d63%!ZfLBb$5o;DsMBtCW zC!iB>=6eDD1pE{9OdRR@;Ka2q5b-~fGwO{q+H@G3(4Y!>1&&~Qzlyic#>fsw zsw3c2(ARL}@&`WyFFM316GyH?V8Tu4IF461V%-J1fiFP!JI5#vCn8VqOX#m~BI*l% zt+kbC>N9kR6VTsq!g(DH7S=EtjQsx|xCkug%M^foU5oR;9Pl;h$4Jj%NXHAn>&uWC zk$%g;pMsMQ%M^)pI~3`5BlrgNbY#n`;6vbeWJ|l3IHVvu9=F0c2)Kmo7msXr8N8&0 zLOIBGm%x=^=OAQ8WV1oYUiZM0+bi@o%D=$(!R)mC!{=Q$5=A~Y3T>b diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 8336652..ffc6e1f 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -8568,6 +8568,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg *------------------------------------------------------------------------------- *-- RECORRO LOS OBJETOS DENTRO DE LA CLASE ACTUAL PARA EXPORTAR SU DEFINICIÓN *------------------------------------------------------------------------------- + lnObjCount = 0 lnRecno = RECNO() LOCATE FOR TABLABIN.PLATFORM = "WINDOWS" AND ALLTRIM(GETWORDNUM(TABLABIN.PARENT, 1, '.')) == lcObjName @@ -8602,28 +8603,6 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg .write_CLASS_PROPERTIES( @loRegClass, @laPropsAndValues, @laPropsAndComments, @laProtected ) - - *------------------------------------------------------------------------------- - *-- RECORRO LOS OBJETOS DENTRO DE LA CLASE ACTUAL PARA EXPORTAR SU DEFINICIÓN - *------------------------------------------------------------------------------- - *lnRecno = RECNO() - *LOCATE FOR TABLABIN.PLATFORM = "WINDOWS" AND ALLTRIM(GETWORDNUM(TABLABIN.PARENT, 1, '.')) == lcObjName - - *SCAN REST WHILE TABLABIN.PLATFORM = "WINDOWS" AND ALLTRIM(GETWORDNUM(TABLABIN.PARENT, 1, '.')) == lcObjName - * SCATTER MEMO NAME loRegObj - - *IF NOT toFoxBin2Prg.l_UseTimestamps - * loRegObj.TIMESTAMP = 0 - *ENDIF - *IF toFoxBin2Prg.l_ClearUniqueID - * loRegObj.UNIQUEID = '' - *ENDIF - - *ADDPROPERTY( loRegObj, '_ZOrder', RECNO()*100 ) && Para permitir insertar objetos manualmente entre medias al integrar cambios - * .write_ADD_OBJECTS_WithProperties( @loRegObj ) - *ENDSCAN - - *GOTO RECORD (lnRecno) ASORT(laObjs, 3, -1, 0, 0) && Orden Alfabético (del SCAN original) FOR I = 1 TO lnObjCount @@ -8800,6 +8779,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg *------------------------------------------------------------------------------- *-- RECORRO LOS OBJETOS DENTRO DE LA CLASE ACTUAL PARA EXPORTAR SU DEFINICIÓN *------------------------------------------------------------------------------- + lnObjCount = 0 lnRecno = RECNO() LOCATE FOR TABLABIN.PLATFORM = "WINDOWS" AND ALLTRIM(GETWORDNUM(TABLABIN.PARENT, 1, '.')) == lcObjName