From 0b7a3c7abd838ea719a742a87e61233340ed3d6f Mon Sep 17 00:00:00 2001 From: fernando Date: Wed, 26 Feb 2014 02:09:49 +0100 Subject: [PATCH] =?UTF-8?q?Changeset:=20175=20-=20Encapsulado=20del=20arch?= =?UTF-8?q?ivo=20de=20configuraci=C3=B3n=20foxbin2prg.cfg=20para=20poder?= =?UTF-8?q?=20testearlo=20-=20Cambio=20interno=20de=20l=5FUseTimestamps=20?= =?UTF-8?q?por=20l=5FNoTimestamps=20-=20ExtraBackupLevels=20ahora=20permit?= =?UTF-8?q?e=20desactivar=20los=20backups=20si=20se=20le=20pone=200=20(no?= =?UTF-8?q?=20recomendado)=20-=20Quitada=20la=20verificaci=C3=B3n=20de=20l?= =?UTF-8?q?a=20existencia=20del=20archivo=20foxbin2prg.log,=20solo=20se=20?= =?UTF-8?q?puede=20usar=20el=20archivo=20de=20configuraci=C3=B3n=20con=20D?= =?UTF-8?q?ebug=3D1=20para=20activar=20el=20log=20-=20Creados=20un=20mont?= =?UTF-8?q?=C3=B3n=20de=20casos=20de=20prueba=20de=20FoxUnit=20para=20veri?= =?UTF-8?q?ficar=20todas=20las=20configuraciones=20de=20foxbin2prg.cfg?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../ft__foxbin2prg__c_conversor_prg_a_dbf.prg | 8 +- TESTS/ut__foxbin2prg.prg | 8 +- foxbin2prg.pj2 | 6 +- foxbin2prg.pjt | Bin 359744 -> 359936 bytes foxbin2prg.pjx | Bin 1583 -> 1583 bytes foxbin2prg.prg | 155 +++++++++--------- 6 files changed, 91 insertions(+), 86 deletions(-) diff --git a/TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg b/TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg index 7caff96..0e8e61d 100644 --- a/TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg +++ b/TESTS/ft__foxbin2prg__c_conversor_prg_a_dbf.prg @@ -108,7 +108,7 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) loCnv.DBF_Conversion_Support = 2 - loCnv.l_UseTimestamps = .T. + loCnv.l_NoTimestamps = .F. loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( lc_File ) @@ -180,7 +180,7 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) loCnv.DBF_Conversion_Support = 2 - loCnv.l_UseTimestamps = .T. + loCnv.l_NoTimestamps = .F. loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( lc_File ) @@ -253,7 +253,7 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) loCnv.DBF_Conversion_Support = 2 - loCnv.l_UseTimestamps = .T. + loCnv.l_NoTimestamps = .F. loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') ) @@ -326,7 +326,7 @@ DEFINE CLASS ft__foxbin2prg__c_conversor_prg_a_dbf AS FxuTestCase OF FxuTestCase lc_OutputFile = FORCEPATH( lc_File, 'TESTS\DATOS_TEST' ) lcTipoBinario = UPPER( JUSTEXT( lc_OutputFile ) ) loCnv.DBF_Conversion_Support = 2 - loCnv.l_UseTimestamps = .T. + loCnv.l_NoTimestamps = .F. loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT(lc_File,'*') ) diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg index 2b93dc3..4da2ae9 100644 --- a/TESTS/ut__foxbin2prg.prg +++ b/TESTS/ut__foxbin2prg.prg @@ -291,7 +291,7 @@ 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_NoTimestamps = .F. loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) @@ -367,7 +367,7 @@ 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_NoTimestamps = .F. loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) @@ -441,7 +441,7 @@ 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_NoTimestamps = .F. loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) @@ -690,7 +690,7 @@ 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_NoTimestamps = .F. loCnv.l_ClearUniqueID = .F. oFXU_LIB.copiarArchivosParaTest( FORCEEXT( lc_File, LEFT( JUSTEXT(lc_File),2 ) + '?' ) ) diff --git a/foxbin2prg.pj2 b/foxbin2prg.pj2 index 1b87742..f9ade6f 100644 --- a/foxbin2prg.pj2 +++ b/foxbin2prg.pj2 @@ -26,7 +26,7 @@ _LegalTrademark = "Open Source" _ProductName = " FOXBIN2PRG" _MajorVer = "1" _MinorVer = "19" -_Revision = " 277" +_Revision = " 279" _LanguageID = "1034" _AutoIncrement = "1" * @@ -50,8 +50,8 @@ MODIFY PROJECT 'foxbin2prg.pjx' NOWAIT NOSHOW NOPROJECTHOOK loProject = _VFP.Projects('foxbin2prg.pjx') WITH loProject.FILES - .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="1131721714" ObjRev="0" /> - .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="1130644423" ObjRev="544" /> + .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" /> + .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1146752241" ID="1130644423" ObjRev="544" /> * .ITEM('__newproject.f2b').Remove() diff --git a/foxbin2prg.pjt b/foxbin2prg.pjt index 30551859772290e684450947cd12d19d96980b77..9b6dda08396015bbbef49e2125744fff5617c81a 100644 GIT binary patch delta 14652 zcmZ{r34BdQ`^TS|d(K_5@5{};FNiFbAeO8INsthGL~=vOLL|0UV{KK{(u<)~QL41I zQfa9+D1G}XN~?=nOKU4i)f(~toqLir)%XALIk~^@GtZeb>oaraUbT;1r`NgaiCiBN zQMa9ot)H-+8opV_I_%tP806*rWBuJ{{+uE4^MNuI;~KEo(KTSzrZCopLSWv1M?>{j zB)X6&Q`>N&iFYKrV>5VXpO9S6t(bXSRh0RMu#v&ulyi^K0}VOUB`bo{6AdM&b-(`2 z(|T7mO)@8jyD-^&x+>5-IoywF&CA1sJl!cdFD+|eQhH`=pMKr*lCv_?(z~an_fFlp zH~fjrA8JJYVCE_9c_eQzpNbk-y;f82LLqhc4D`T?9x`%#`bd6DQ}0YU4`k)xzdW#^ zU+!De(|Sjkw2h|g-#)GPfPps}kc1nwO8IQbqsJrp6g`p+yuK~j)FmVFmj|}E>~PuR za=_(?%PAaxoN>7*_3P6!V+$T{#ZV-hI@|Z8wY-Q%!)~%S0`BrOpKO1_WZ+cjB z&t%2(q&Yac!PDg*o_dN^N@SiE9fXY5Mh8S7SxeWyi8kQ26`F=}cjS*`uBo@Tlv_t@ zkv7qMBRash!CU*weOI)Gny$B`@8$LF%(tR_{Tp4LFlw!RprZy~%af63SH-E-znoNW zeWSNT-u0g3=wxYo^Ujz658R<^EayN?v&7$HLV6-m-U}IDKsfxWaf$j)Q?I4&G5!{3TO>SSgf_UQfni@m4xiyOsa`|< zJmTL*Kk&^ zrn*~F3lef!k$G>zo=A5kD{o7^IOU-?qg^ysPwU+jvya8Bv6y3!ZRhXpGRt#{OHC6h z^GnA~=;*(5X_p-K|IgYFyE!wh9re!3%-U&8{56t2e4`}F$k40zG=z>t<6R|8O|&G( z^kwEAC7n|*Q+*UH$>?5`CQ6&Ers;{Du(x0A&FFlH2fMNAg!#tk(1*E*u6vkH)Yh}oe?PVG8O!E;n?bB?!(&;Wn%^0B zW~}#a4fkipUApI<%`pm;XPZSQi3hP7ktcC?_MMm{@!y$Q6v}*xouvyJ9h1fHG8{(< z2Q3_Di*PL;%9e{cTE3jWAd4M3?kr+;d>XT@*{-0OZ;9jsIBEn58~+$E4rBcpo22t9h4QJ8cs^rtw&~IETCqrHGjWp^#9#$ z8Mb@^V?T=hc07(3Sc#jAFBY%Z^GQ6d9gOz3- zr3~Pldy@FZnR|P_){~rxMMAW)-FWJZNNX``(+|llz8`O56?tymCwNl&tO{=DM@7U1potoPH z4LG6Q+0h!4Cx7(+wKzZQq7GSYO=lm@8RMdxFMqvh^f@W*c}bk{MRVwu`SE4!Jt6#f zJbNO(@#Foh+i2>IXliRTu2}2G-9)lK_hLCB&!4xjZydswOy1Urv%VO32Q`BEaaZxJ zKTmaZmN4C;EK}YRiQ0*X03MC`GdO_TF}Av}rGKYwJax*kjC*5YU+ zujk(OO_mHBr8;V!uQZsu_T*_bt6K7h+j)uA@Ghw82Qy<2Ox1zZNho>@u*lOV&!#&(vyF8N1UFw~bU7Lm;Np^Z= zCsroV7&T# z=tC^;2PF0`g^rnS4=_n;NJEvdPpuv5WWKMo0qIyYwSUl%@ zNMUS**ySMwxYXvVsm*FrEv_MjhYS)np75V9T6#*sY?J8gDfx2!Ffra!@{h{NQ}27O zfO{LvHdKU$&Y3dKlw4kDdRct#DY>#M;uLb?wngHJrxd`x5I#mJLf56(l9L!8Ao+Ow zsRG$jNpYDeAC)huDlW_)CT1F?Fdj5kyl<4ec|wW!$|(8s0j1)G5$(RSTrG?Z^(&vG z>@>5Lo#s~I?Ip#qQzFw#@(LX=PxaALV^eottXi5?eTP`+B}H@18)Cng)Q){F9(qX; zhRw?qM-BOiETiNqwiieSK5)6{=`96#EM2Xp*-}A;DZkQ$frW8W`Kp-ZEd?1btW#6% z8d8%>@+V9vDIOWOLDVAMHFTqzZq<;UR$fuMLOk@A{L|)dQj=^NlKPp(l~+{K=6~Lh zVJfRSw@tNKlc{uE<&=J=g7S*Omp-%@#f%`y)%dOoWKRW30Z_(q6Jj$=rRATA*L@_< zc=;nW2S+tM!&EuCyioO+xLZwfqVkbS#hRy`7Uz5csq#Dzu&AnJ>2aN^Vix4m6gi zxNHLESYBdDNtUGm6VeZ>NqU-Ks?6(+M~oML`bvT5EjK@WtPmaiq#$-%4D-WaYk5ZW z^_Sd5-5|*jaOAHx4uRc99xp)7R)KlV; zpA^DvrFv25H`r#`LO z_=;whX=~{fm!6V3hnuDUDf|N@FIR)Tk|I;Hl)i4FPk?0P9X&-!0BTt-76xDr4Hi2B zFh}Q!6EJe$mf|nP`cSwBqV9>YqOE#*pzm8G3J@2Rjrb2pz##bixxN}$b4Oi9Vh zO6rM@$jeC0>5-L^UEYxHMPm2_)afJfNwCy{_nRz!3zj0-HQ^9~O05wwA(E@-?HOuj zwxmpn^s=lnlQOD0&JlSbQnYW*%WAR}Wn%(1jQ_c+&7VZpMC4Q~j)fp(W-SwULh!g* z!ZsAW^1EmiDj9vZuT!0!)X0;UlA4yDnVOf}J25-E`vzeOMQfiHuZBvYtWsip%CUsFvPR&h4Ns7t2VU3LFE^5P3za`xjs|%L<#^ABC!J@9E*DU0Ua{V(x zl7Q0mGFWe9>nA?2x?V^3qaMS>^X5)O25^5LhJs9`$LWRSU_M zQ-Mfmf#JST3~7PEzec>!LTVZQ`gHX+0}fler{?tOm(^$T%)d?9swwVOalD1(-)-uv zYLcuxBt0c!zKWJ@p0dAD;znk3V}Gn!igCDVT-F*vp-l8@iGcc&7}pX#y`aI}pbSK1 ztC*g0bU|YQnwraFp=weG=heju`Tc8fZhJ$uJ3ik=*?oeRt4Yne;Moe8oRCf9$hBH+ z@lgtyyZ0T{|M~IXVuND$Z@Opmdn!Ngr+;6u2Q>K&-D+Va@9NthscFyO(_@cf4{W-p z-#(SqO54;b6!fo3pKq`?*5cS9)vsAiOOB`}52f3Zgs!#Z68Y-a|2sSRxMB}(Dul;L zksl?wxxaHtv4=F-fBVtGN`?AuIj5#QU!mlSiaoUHp23$@e%|lW6~!LbfKqa`<|Uab|6=%yP};w<(KgW4Y?)Ux3BA|*xNMuEfEW15LfcWmKe$Cx}}ej+LqK9 zoo%YXo8bs?CPs>EZ`Dsta#n_+nv#-VnXiVwH4TXk(N#@WqU%A?ITk@UP2|R6*Ew^r z=n^Y=utKpI$Zm-pv67GLsF6y}@pz~jF)~s!`>zw1Vx>6azENt@^R@6V5z%qju{;xf z#hWe|A*0sZ&IIOrZqC67&SVWh*sR=3`;Xk3S}2+9E_h6&Y|<8l~*=>Z4&5TSUh1| zN&b}1fhBpFf6$>inmcvsNb@o3>J=Gh~C+#`PLbNXHgJR`v7us- z;#`XKK5HT7rAqDp|8Jed{#0po<4IjnniO)_xX%G6N0?ki6{UIk6Z6XoOcJGK^~;zS zBsSQ{etcx8SZphMh;ufwEB9}sf~~D=#I#yui?2fx75z}vRnUBXvf>oW_-!l+X4aFhdi{A*%_!Wr|$bVu1!Tk(dHrKqjJ3H?q-*^v)jCJsBw!F1((11*2qMt=Qy(C(Sw_j^Q)#>6cCSW82vi z89dj<$Aq&hs*j-5!BzHSUy4Dlau{EBQp|Kk!DoCYHoMAReBKY@OINh^%Jbrys~qX^ zhc<@tX$Su0TmJ2*{j^rv&qRcqT+0)gxaKDJ6fy3o2owF>Zh`0jm>~BL zFs#u8{E)*=(h1RKxZKx~*joC7)>5>*mKH%Ts#!K%KB}wMjwkxFg6JEZ>IPxlxKALu zg6krb+VHg30$v%-v-BP86Cv647?sZM#pHDp3&Rj&AggutPP`k zxPFFVI~-hXu^GknD|jcEys;$vC_mT0Pj<(@T9oLT0Rj^kz45ICb{fs-yRj&g9{qnGhAAbC5^;t#0}j~5(wESkag4PH zYzKY_-S$mJTfpwI9nXJ4Scmum}7RbkSuTJy;Xfft`M3G~gH~8+qi6Oh+M$)?=kx7K12V*-~qz~ z<;N8`;zKV#Gj>7W_W=IP~;jPTzyKf`dXhjSS^<5xg609mc6m1gBfz{orq*SGK_X zlkknvH!yT+$tf(BlNb1B@Db?fj`+0-ZJdmj!p7JxCK3_|drT271c4xI@Oz{pRz zz-cMoi4&aBdf<*%IXP=JR0+-pM_Oy>u#<+yxFA$3GX?LX$9*)k9=sC#qOXRk>kx?T zTruTf*w|7-bJ}Uh1pX5og*V07oiwx)?0}gOjW@#U-86Is+#0+rQA2fU8uE1`>I2@~ z9l!U=(9l3|1z5_|P))Xm7K4|7N9Jhg{vZwg7rYz1X|Sf62IXr=(Sy4f1~a4re}o&g^EDt=aF z*3hfq9pJj98v1^fhOUAC3x44(#NU})PyKvTk)`uH1s|=8NBin4ehDL_toH` z;Jp1B>hy(%VvIy(;H%JwzDBLV3&Hb_YiRoS8rlHf1g?P|b528Nz+Zt^KnMS#A)^;6 z4BlOhAA7!l-)U9Ba1Msxzt9DE5tswUFNG+sPD5>Bw7L%;Mbw;LL@p4-UP1x3ZRdW=sFC_T;2eErh`Pb zJ_tmZN^fK}{?1Qgjy)6lo(Ni-U~*uEO0 z_%(^Pyd}|(FkFJeu+Ej)dF0J^mYfaf}NG9EBFey?KxEFu|(QHqM~Zd_4D|xU9Vu7F2j(3xosUH zld-={vB5;$FqflqWy&2b)0Pl)2Y7z5Ox{yu>KTgV7TkBLOc}Fe`UrdnJae{8a~84d58?UFgMc$+QC;2ToXr2VhzK5!?}c0s6^$nXZBp!SgoA^z*wiJq$zt zXTp%QSElKoB9m}z5WzP4WHNn*2ZD!#Z$k&v%Crq!1m1Q~re$B?0pKzv{fJD5j>_a3 zK{OfM_n1s$kINJRo&ip~Ak#cto4~Wdeivmb#kD;G{r?IK^?;~LGS$FgG59dFD>i_K z!K=XQp|fwubPD_l_!4yKU76~@XTZ8YWwOGLnUH>D_7=VqxeGn1`LiS#S^VA?P7k_<0Ky0K5P?G*(M5f?FVb4uT$&swLN! zC=hrv^iSAVg1<)&S%>j1-?}z>x*F11HFw57H4X%aYByb9J7Oo}W6z~-2%tGV=9s;g}K8Wix za31&?^xI>!)pQ7ki7>3gE@av`Ed@joO#{CNT|X721aAYkd_hawscF3Ztu;EDX{DpVv4|<)4bX#}bhH%w7`y=5=&qw$uoV`h zF&;Xqj`q{hFEF%%Asc#Kh>pDDi28wVh3UxDT1O?|D)3zBvvE4w2!0Lh)J8|Vt&Wa> z&ERG2b(GviM>oK`!9~zrQ*;#42CE%-Q>Km8K8z0rncLqnF3(s83tG3xfATkD08aLhux@-BcZYGhIglyb4@ALq{LIqN9`G{fhtV zI%>02NAc~j*no4PXROvyC0K(6Z};kI9myMX^bQPeFvPv9qv$OwxhBz5?xt1E(Bt1-L!Kj|6pkS`1zaHtO}%##T>9z`McK84h~NcGr`!BT5g$ zMCd4QJ@o_M2G`;x&n{R`?||=u--do6L{FQ+Pr!1ho)WNKt^so_$!DQAhU@7|umSu7 zwDMwj0&ERl2<;ZDryszvzKH+t0`|AZLpot?heK|>o(|y6u_L$?Y@4X3|EB0^CioTb zh*UlC9(sBYybkQ0siy^l^z;~f9sCjWAiP)>GX{JRn(sjigO`HipuatUd%z!7!*J}7p01qI(|j28*d$neucu`f z^dxsfpaAcK-ixa*I3ApSSx@8s&{HXR8h8WrEUkfl0AB=u41LtsKywl?i?FBo1N!p_ z1EnQl#|yp*J*JI;1h{%T49fxAyBX*P48MbafIfw*XEI^{cv`xFHsYEM{sVjx+HaVF zUIixwVc0$YtY(AFsiS`Yped=~o4Sq3_tg8p~IF6YX8 z1AV>FKm$|JN8k%Xu?*`O6*9cFfa47~a>0?zR=kQ&17C)&!TbI#@MqvjTN!WHs z1SRZ}s%r3Zi8m!%C#-bf;paK|;LRw`8C?dx06hxt9Rppe(Zn!Bj?_>oUKCQ@v3h|= z&-xZWFV-mRf;vCqHmNt6RVc2q;L*vAVaG6#oW(vbB5iITlAW|VYjEA06? zpgUH8k3#Rlo{!LatH6`6&uy#ZG+_I#mJ zWJ+D}=-gS@5rN+a8)wV35PQBl@K$h#h1h^#OP7Hy*GJ%)IR09RE!s@*r{Er| zWx9qfSoNnc9D%{SQKoU5WU|AS>Ll2EvrMgPQ7EtunVyGU|AkBk!1mz2hh&<9E!Guq z2src`nbw_EZjW%9s|C=)ywd=$Dhc0fb1!N~`ogWjU7|1ZNZ1BTqOTB^c& z{S5noW#HCtXenh4)_*L=E5VPTFVteo1l|o^x?f8(vE1fix!ntn#Ua8;td{4%-+<>~ zwH%Js@l&jhr@)TSv=oljuOk+_tKf^!+d~lle}v%{3F6a~7r>9fu~_Xgu)6&Ueg>|Co{Yt*0E<^JS~Yr#jt*imT7<b868R2bTkpMe>8X( zv>#&q4e$)`3Fsum_SX>GUk2ZWPCzK<2(@p3|A79wlb)u5H-V=o;QY-Fp|k*@^Ai|8 zgPzz+Pe;KA!I8c7v;?8^I`{}UWsIIKB659&(0Kv8{2(*}(^Lem>tO4Pdb)(TF%W^M u4s1+B9Kk&Ai@4y8apE`|a~{(?Bo!6vIJ64C`VhNclyi9TKw&dYj{QH!;_77p delta 14686 zcmZ{r2Y6IP*T>Jy-n%7*kluTTgoF}$3n>stNJs;ugp>sWA%PSG6+=-e(pMM|X^Ip@ z1yQ0PRS{6YD4-&UfQSN0Q3MeZzyIt_V&L_Acy9Lm&h#@gXU?5nrayGu|F^4=$n{Sm z>b+x$?E|($$KNopPCMQ<4fS?*tN;C<0M3wDH&~@jcygCGx(3EB3THhj6zXSg>nQPO zh5X`GY8yfH(Jh7Mj?3MV5jvQ&8>?1Ck*&X+B)*u)GOJXcrmOxgETS^m;JTe@`D zhU)4aq0%?1uAQu__ke;oDv*Q%`fIgy_4ee^@4k9~?yG;Y`Z%(Cn1IAf_v|c3V|@J| z=qRIq+FNz^)w@*hf<&Z2m)Iw{C3H_%OtI0PwsglM=ue`qSz=tf&}1YU8#_CrS)!)a)kQpnWpuJyzlLX1y&dh2xJR)4 zX-E8)ws{uU-q&k-XRH48u7g=mOI_DFro#qJ z?`qZ8bQ{bvEDqi0urrnw_*-BJ?6Ir6o2<}BE+j14JWN+x7nm+mYJII*U4!;^OG?19 zw+=Wp9RrTFwWvM6Zjn=A&Mux{uBgnPFtMWRj;lShnPvSX_Z_*toteRbQuA`Ml6I8E z|I~`zvgDMs@gmI69UWncVCM^j{R5+O`iqfebxDsN=cv9FGzpk2bf%47cIz+3AjfXk zKTxPmpZEd#SR0i6mg<8s5e&VQIc3Hj{u6FIZEqsE&4cI<9ZK%-x?2BlKm4v+ddqa| zqev~iW^Zd2sWf&}ly+sG)NGGsJJp745e?ZYJF+{v#%wjn_O)K-!1fMq$T29M+4II6 z7QgFmHBTk5ULkIM6i_e|tvQ-|KcF_efe z$Fa@q3-Q!==EJ;%7|)`(lOpm*a~Ix85w{O;FY)Ji_EO_mYZjHT1&i5z;akT7SdHje z$A)+>VD%;%>D?c_(FR4b5jm*W#kM*O>ZmwX$BJ1S(X*bdWjDn6dbD=M68MaZxHX5F zgvUQ@d}9j&EyUJ*_z%nC{9Ti{IGnd*SvB#TJ2Rec5`$XuFGQ%qGrVgIkG0C>LXfS# zBo-+=*z*Hk-x3~Qp?jfn-QY;UpuOQ1#ODhCl`Rt=sC=q}T$6X2iYAF(dK4{ItVPww zi@qS9*7M=Y%WC~hvCzQX#AhzNnoSdv415W5sL>g@7xQ_!v14k3IhtzkX%M~jJjkoS z@ZZ%}8^kkuSbU+0XR@EfMH6OWfJr!ba4*%~cwg-++-!IRdq?!L;k$TWlen43OV~Uy z)|UJ5nI>)8Ho@H;;DI%JZ26l_yFs(+8hc*B_*omxs-tU?9k_|Hf|`t${0|oPnX%rs z;iS1-_rJCcvD$X580!QB&DS;BHvAFWZV?-tVB2D`#Fs3+FHJ4W9_Z5;ih zWuH*Re0Pk#%!S9ZQnB5IuV8~je^;3H$C`7ld?@pN%h=GbW~S9DA0*P<(XT4wf7iWK zyy(s+xcz0sd6$h1+VUY>Uc-7ADOz}NZ#BS#!&kKN;1T?wN%Xeilf?-Sp1_~5(agMB zO!tJDm)Tg&%xY_Pc=G%IY2YI+Rs$pw>Nk?>!;$vTalqq6?A79Y4>YS`b zy(}X9c`#fpwoTzp|gnb;O-(imbc_Z z&P_AgUi>08NS3=NcAbk{G1f>?I^$@p3N3nT>vCV612i4oS6Uclcs5BaZ_5Yr z6)xIl+v8&0Y{Iu4|Dd@C3#(!6xgn6x*K13`O9I)kd5ef(=-%YSUFY6dTY+ zZ=EUsG`$wixzN4VbjyY=CftjXu|!K5$tLNw37Mgn6XI4g@d=*Nv^i(*8^&w)4b%1C z%~lB;cg1HwSA|HvWjIq|*@TJ3CFbO^DH-KueTqx-%coZ21w|$rsi>?^e&P74iO-uf zjUyH2mygLW&l_DnAuoS&ercgONlbEAeEUpm(OAYj&RkeknP2YcqiIZ(P*ytGTwYmR z{#~@Da-uQj%Djxs^uC$#X?gvU;uDiH2a8&F#l_}CvX&))L~Tzcpt`=V#x|5`F3q1{ zPDWoxq-r`NJy~8{X-+L0vocN7v}n@gC6`oHjI|%A>Fp_LN}+jTWpP<)yR6Fcg-z>oUX^4<($97hlQ` zow)Cz1iBOs*0MDlb&zP|sRZ&PL&P9Y#h=B9NuEjwOBKsK6+iywaIw=<2}ry*QY-gZ zPeeMx^tEmzNU4x0yw6FD1}s%xEnWEXgvI z0Df_-Sm31uvE^c$m*Qqas7663o0x( z=U18&N-&Kj#RXq)5UQ^d?0R&gmTuFKo?KQwp}Xkes|56p*`g)cH6&%4C!+taHE0_P zq?t>rX1t^2v?cR|iIr0`&4p#+sv9nJ1LxHzc&AvI6V| z%`n!K&F_idd=<|To;$UoP7OKI%#~xyiYlymrhTZTxyxN*9h9sY8)#}m*@Ow^(#jWi zYZ+XdGHAscl8Z&5pAyzl?9p?lcY5Exe$Rt{)ddnzuiK!5Vmt)t5nw*HEj^KXZ=R3lYjbEl$3 zSJByD3F3uE~N%iX;9?09z`q`eQNva8;NB z6hAgqL$!^Ydz!s23k#oLgHn-r`d39ceQtrf$Aln|R=+FDDK4~YlGiVxljHp$ef z;%JZ(>9w_+mfEa2=U!4}ur_Ck>0<>#nCOE6_X@^9~PN)(P zlQLbFvn4x9DJ{ZU&o7r7YQ+pqYfq9=O4Ccta)JH$oY)Ym#Jbi!uO-`17Phgr8GOW5 zS*??B4pRb${$lhz2ka7=iV zhzwVJS%~Nx4nOu0i$%Ylxix6?R9Tj7o>E!V zzy``MD#}YwO&V`ixS^9$VfDB+DY6zfjM+S;xB?c1r>iVO-pvgO_SU>`%!SqFqN;N9 z3;ksQ53E~RN29}TGeFbYXiZt&W#3dyXSC|%GXB-7@x(MVlr6MYDbi#{ug9ufG*HuO zW~fT%BB2$I?cM1jzm?+24C3il2sXaY5Nlc~?%oFn$=tZ}l1Bv&@I>?E;zDyu>FBaJ zQQJxhP7WQaWiV0I#3C%6#6AgrBc#d~6PefG;ZqXx;u8{*va+@|Bt1IHb0b8T)>yPl z#E{lF!*>^m84~-8b*-_Yhl%~Im8gh*(`BuGFmhs_zDe0~ceS7SuPRGZ-Iya>qLhHH zadWjKRrWh2@$!or+FDOML_pFFnC3TA;%d(7DLh4K6ufDqSRAE!G!}~;F8^tZ;<^56{+>~qXA&r~$JX{QGgJqO>%vz$${u44sNK=WE zUuyh#`y)?FeP~m@_2M|HVPnP3Hi~=K`U^5OtSQy?vc`|svgT*04{yqM@tWuzgWw=u zwu_xH7Y%?52&b+V|{#Diz(t?)nf z9JZ7CsHWDxbI|zlL5y&g`sk*7>)fnttvpiarzJjKXkwt$w`nT$mRK08xH}eyOLa_> zdaT$PtArRLqpfOdmDPhZXmG2`+Q_8X|LMIxM$#Jw z6nok!9th`NX$K$HLwwW@&edOh4Qjt7PnPP4Qwv@tFEPI|Ke@bYLUw*ZNq#|bX;6Vo z?ToNU^CW3W19L`*i1tc*uPI}+q{jz+cD$%+j|ILJpv^M58xFSRe=8nQzirpBarvCzt+AtK3F~`CpZs!p$~uXFIK?aE@TXdi=56je zuIaQ5d*HYj8K=1Q{llv5j>w?#RX5RGQHb{w`PTly*Rn`=oX0S^dR`NnI zvw{6IPVLjc{u(DXazFz&))%O8+Q4>ocGjz^ASnJ~T=*p^X+|dR0kiK#is?zpn+Qas zl9f*4nPg>6<27GRKwl;FQ?Ds4ag~I{{_l;DLdofwX|+Kj&tCQCn?uEPdo`MmZZAJQ z#9@2Yi@y=C!2=0B`)Cl;0`OG>6iRqDSxXTTI``Aya|u&YH24RgcS)695Ui!@E;>4> zPI`|tsj&3Ubr&lgRClHq+Z|MAvDiTkVD3_G&m!c9tN7bN^f$T2uIbM*@&r*Y5*TrDONeEKD=bI z_z<70kNDbA_2c8FiMx(!5PufeKTfJ&pyfqbHTsd7hgi;9FFvh3_+W`l5`mv{7cs#} zb>y!u6Vsj45WZ)b*eE|At`f(bFlX+sh(H(BMKEX8nSZfXxH+SNYimVUXElP)d`%Qd z-u{}H&bp|9n2b6}3Bu1+4GMmLpX{ccHiG25l!1v!LmshD?LJZHik6NZ5OeT} za$8+d+(jIBRYQWFJuZtIthR;g#aFp7GK4&s-)aVX;q0b{^K)N{?rv(B|KXF5G?$Z| zlA2|pEJVAQsM@c^3^y46;(76!o7&2)R^OKLX*>SqTmK!P1GHWdKe?&<#U^*Pzxcx) zL!Ts^Jk)qG$pb5Fx`(R&k3Wt|K3l?TmU*aOaou{}wq~5S+TM{l)vSq9XW8JjHK>y+ z@Ug3t8jX)%I;lzcXwzAJ{t;!QuI#&l6bAkXiD1@2U{zl%Cc7wNuF-mkUaIc zp?c{=qNsAB6Syr7g3&V|2UHN92S-VU{7p5{4e(ewDbtDe&mh7ZAWa4T1i5Ab(Qxov zk|Db;Bzg~wdpAmk9Q!)ahhVsG%7JY68Bv&yXbz)lY6qB)+aNbgAzlb+H{?0E5VBK= zvcTIQ-~Nlp4{Qc+xKGrR;Y{%XEyUfR}@96nr(0=LPU9;0`LIeR!6D*Mmpv z(W-&b%iv8MBO8OOqFZ>rhT<(`aI{1CjpqV*8~C9Y0tFvLt9txY2V4soKVYG5U_{|` z39@G-qeSpc@Mn;R$1++Cw!tX%xGcgKz;qJq0*-(j6UXRButzl%MS!`T82tf-Ke&Bo zMvJ?kkbwwMBlYacXk1Ucyn}m!op717ECCS~cqq7cBBK*{hJr_dtCAQ!narpNYzDja zWi&ViRsxR$S3|bTWb{0^dN~w{fEGE7jzh6dGUVYS7+nOv2Yv`SCJ$Ey_)=jn_#EU8 zqwppO-VZ(n*}ecT7vRsqdm$GU!D?U}`ebWnR5+SZfAD#5i!qF9$1%z^V*c^72dWy6 zgT0i|GssW}{upwXNsL|u+hSeZf!uZ_qs?F!Ov~4hXS~ViBYdYZ7VNW?(d&4+*$|b1 z5A9|&Z!e>#!R6qDeQ59?>I2UMFZr0!(JvV7u)+MVgF;^mlbvMr8#2^@w?i)Y5f>r0 z@<%x6@nuGtKQnp?tiv?@4!QaorU`5SM_p(1F}BD~ur0XgCZqMY8C?N8fYX0xbRCbu z4(kg%=MP4Q{>1G>H59H;l-PKlmQxI31_G z;9&4~kZ1RJquYz9&3x7@#ft+@OH-kTi{7f+F0KWk!+ z8OI^NoychuxDEJ;Bu>BN!V2JO@Up?2Ohud~IA9xtYaquz!|6EK4(sSw$RX9$oJv|^ z0YPyLa{Y8pFM{Pt-ZTRh&f>HN919lDaZ14@#{1x8@GQtz7IFF(JQ%!aF-D6EgnMB5 z_1o+fob+p9B}byU;O&sFuj7;hUIKm@-pI9j3#YMA?1JJT5pXf1dJ_!(avRX=Q{Ba7uV?eYOTYzL`1Q^ZbPBu!yk)4a znufw<)kE;NiDjnX^(IU9K zjo{wkbsy+x-##7P0S^Ti!QJ)#SVvJ_MB~A~LH-ObF9SRuyyyfvds;{9z#G9IK`#4V zN8f&Z$-ua>vnm2Rs~n0P+xTg-Y?wZ3*}uWV;}R7J**^FNN$JqR?mHjk5d+ zfPI8QKS8kviZ>u%?5vQ{7mf&9>D4X@?e3${9Pj|}=mdpA`YLn^JOca~WX}wR{s7Mg zAA~#?k#lE1ENXD{aD~DO6q*PA8vHrrB(p*Xz!!1zOMd_^j#lV26u%(Dk}(SP919&- z?&b54-ziq;H}E}h&Nz%{qC)qK>lN{LWSUk4%I}f<|*{S=Um+GmR9KC@ zZg`;3v|yEffT9cbc8?I1QnOWx4uOolT#&2M>M<&94u#VIe}yBj0O3wj7|aP4Q&qCe zRB0Rd2KdMxQBb3Gb(Ri%^QPT;WDREpoA z(vRSt;9AIm8&&!v9P>W_iaEPf`gFHS^CO5d!I>Ya^yVHk2p$HG+lx!&eJU0wOa}h* zpi1XHMg!pSGW~OvY>(rY&XI^Ezyk926Doy(p9RnVL8V$e8^ANb<_jwA!1HD#=Knb; z5--9;msENe85V-=epG4LWt9$qSAwrWUU?0bfOmo;ucLz7_-!5d3^?s~l``(C6xs@h z6?n>DDtSFnX*5_5Z`lv>7(7$J(%TktJw0L6)B0*CVxU+6sI}MAx8NkOZ3`s&>ZuOA z5_}4BNn1TV*%|>PyyaTR+YoWKj6#RNw;=nc=xHO|0vUEV|0jAPJ`{?-%BCCwOCIsF>qwyoTYlI zS*fQs;O^iIL^02-MI|Lr41?m&je45-ww}HOKMQ^x@}?R+*~P-#;B$~Y_UoxDcqe%0 z0X>x+(NjM74A^*7PrFX&=@oDtcrOC}*H2*z!3xfgTF9@S*ORd=LVWNc$S10=z>H7~ zh2jq6QP=eJBDes&46@BlJ?0vY1l;+Sp8me8r#;}8z`pnq{PH^dq!;`lco4#(BPIjo zv_ogX*CDTUG|*x&evU<_Adhl0&~C5+2huio165DI&vi7=+#UwH0^R}M3ic^bbN?`-h!e9POw{$yN$uGox%OV`H+u|GthuIybFTy6IkG7Z`A1FYD9_y zHW+9P6wXjgeceElw;E_axFdKaXfYvA?Zjnx2~lLq=73V9|+L;meM19j*OrvsjS z4juZ@KvTdiaKx^J-2E2=?Etq1E4NYpFHBh%qEv7+>k|o`x?`dl-x~AG{Pi z3i4A3e?JB909RWajI`3tNUmL_lR?A+xzgK6Y2aVM`d}kv<5>f~3H}N40ffh|gZ}~# z2sP5oFeAMS{s$Z!ZlvGv90coeMEgby+2awl3VWbh= ziLQdLKt49sNTb04IO6A&7%A^5Bb@;c^@sm|32=J4kvjFjqCy6{8Ai&PZKMfc3wSQ% zr&pmtFyYMK26_E@BlYeHCj|Zk^0XaBsscX?ejDO%&e;2NSqGt=`7`%66xl|*@gQ8Wwj>_?((AynW2T!o*Xf@sgq+jm`Uh%$;zD1n>lP5+4K6y+> zoe;+_^@3jjM_)orkC?BgH|7}pE#zRtd>t?y%fMG4pF_;|0K5Xc_HTt|2di|Z8s=OD z#c4n;V!m*UW)0Xg2mf^pF`tyz;~9sTuVji!y%5uF0LLKaTaB3S4e%!Ls97qVM$C5) z{06vsAp#JDbo~%=Z3iELd=VkqH1G%Dg{xJHK?qh|1I1w|&H#39R>_2r>IAp|wyxTz zl0R67N<;UnbnRo6_JD1{;uDqjA;h`_4g{Bcq0%q4Ds@0a6b4@YrAi|a5v720!Or-9 zWmSlP1|y&u0S?id z;CI1iAs@kU`vi{H8t{}aa6IF*JOe%ku7$h-r(+FH$1lNy>-AKM(=QH(-DPk%PQSY$ z@c$>FxCX_RPy^-SG|R#1bqDMiXCMbWUxWVye+u~%JZHgo!BcSBS#Y{t06zftNi@)2 z98M!~cm=?!lcyNSG#maOhfyf_BgjK>*4W}K=?-?pS+lAdhs!P~;-MJ0!$2!>Saif$ zFc6$_2&Wm&f`i~Z@Yb^i>JQ&P3BJDw{5NDXeEk)$oL6@;(j55q7vS4xf;-#8HN%zH zffs^1;+De+o^=Xb@9W@CAy;R^m5zk#d>;y>pOHSoCEXG5KJdf=M*0q}^C$3O@VsIp zg~M}w0@ryCd>*m`98(n>*A?&}$dT|HS#U&ufk#O{f_nK6Vudooap}me6ZUB diff --git a/foxbin2prg.pjx b/foxbin2prg.pjx index d90ca09874ef5fd3da1f9c370c22d4dd9cf25ee9..2465c1b7e3ca0cab3871e32779e926de82067c33 100644 GIT binary patch delta 35 pcmZ3_vz~{=fR9OPBg+mJHgi)W6AP2chgklBm_{aslaH}x0sy6;3F80& delta 35 ncmZ3_vz~{=fR9ORBg+mJHd8|r15=C1hgkkWnC6p@v1S4Qq>~BR diff --git a/foxbin2prg.prg b/foxbin2prg.prg index fad7303..273ad9c 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -361,6 +361,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM + [] ; + [] ; + [] ; + + [] ; + [] ; + [] ; + [] ; @@ -393,7 +394,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM + [] ; + [] ; + [] ; - + [] ; + + [] ; + [] ; + [] ; + [] ; @@ -418,6 +419,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM n_FB2PRG_Version = 1.19 *-- c_Foxbin2prg_FullPath = '' + c_Foxbin2prg_ConfigFile = '' c_CurDir = '' c_InputFile = '' c_OriginalFileName = '' @@ -431,12 +433,12 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM l_ShowErrors = .F. l_ShowProgress = .F. l_Recompile = .F. - l_UseTimestamps = .F. + l_NoTimestamps = .T. l_ClearUniqueID = .F. l_MethodSort_Enabled = .T. && Para Unit Testing se puede cambiar a .F. para buscar diferencias l_PropSort_Enabled = .T. && Para Unit Testing se puede cambiar a .F. para buscar diferencias l_ReportSort_Enabled = .T. && Para Unit Testing se puede cambiar a .F. para buscar diferencias - n_ExtraBackupLevels = 0 + n_ExtraBackupLevels = 1 nClassTimeStamp = '' o_Conversor = NULL o_Frm_Avance = NULL @@ -468,9 +470,10 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM SET TABLEPROMPT OFF SET POINT TO '.' SET SEPARATOR TO ',' - THIS.c_Foxbin2prg_FullPath = SUBSTR( SYS(16), AT( 'C_FOXBIN2PRG.INIT', SYS(16) ) + LEN('C_FOXBIN2PRG.INIT') + 1 ) - THIS.c_CurDir = SYS(5) + CURDIR() - THIS.o_FSO = NEWOBJECT("Scripting.FileSystemObject") + THIS.c_Foxbin2prg_FullPath = SUBSTR( SYS(16), AT( 'C_FOXBIN2PRG.INIT', SYS(16) ) + LEN('C_FOXBIN2PRG.INIT') + 1 ) + THIS.c_Foxbin2prg_ConfigFile = FORCEEXT( THIS.c_Foxbin2prg_FullPath, 'CFG' ) + THIS.c_CurDir = SYS(5) + CURDIR() + THIS.o_FSO = NEWOBJECT("Scripting.FileSystemObject") ADDPROPERTY(_SCREEN, 'ExitCode', 0) ENDPROC @@ -621,55 +624,57 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM STORE '' TO tcBakFile_1, tcBakFile_2, tcBakFile_3 WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' - lcNext_Bak = .getNext_BAK( .c_OutputFile ) - lcExt_1 = JUSTEXT( .c_OutputFile ) - tcBakFile_1 = FORCEEXT(.c_OutputFile, lcExt_1 + lcNext_Bak) + IF THIS.n_ExtraBackupLevels > 0 THEN + lcNext_Bak = .getNext_BAK( .c_OutputFile ) + lcExt_1 = JUSTEXT( .c_OutputFile ) + tcBakFile_1 = FORCEEXT(.c_OutputFile, lcExt_1 + lcNext_Bak) - DO CASE - CASE INLIST( lcExt_1, .c_PJ2, .c_VC2, .c_SC2, .c_FR2, .c_LB2, .c_DB2, .c_DC2, .c_MN2, 'PJM' ) - *-- Extensiones TEXTO - - CASE lcExt_1 = 'DBF' - *-- DBF - lcExt_2 = 'FPT' - lcExt_3 = 'CDX' - tcBakFile_2 = FORCEEXT(.c_OutputFile, lcExt_2 + lcNext_Bak) - tcBakFile_3 = FORCEEXT(.c_OutputFile, lcExt_3 + lcNext_Bak) - - CASE lcExt_1 = 'DBC' - *-- DBC - lcExt_2 = 'DCT' - lcExt_3 = 'DCX' - tcBakFile_2 = FORCEEXT(.c_OutputFile, lcExt_2 + lcNext_Bak) - tcBakFile_3 = FORCEEXT(.c_OutputFile, lcExt_3 + lcNext_Bak) - - OTHERWISE - *-- PJX, VCX, SCX, FRX, LBX, MNX - lcExt_2 = LEFT(lcExt_1,2) + 'T' - tcBakFile_2 = FORCEEXT(.c_OutputFile, lcExt_2 + lcNext_Bak) - - ENDCASE - - IF NOT EMPTY(lcExt_1) AND FILE( FORCEEXT(.c_OutputFile, lcExt_1) ) - *-- LOG DO CASE - CASE EMPTY(lcExt_2) - .writeLog( C_BACKUP_OF_LOC + FORCEEXT(.c_OutputFile,lcExt_1) ) - CASE EMPTY(lcExt_3) - .writeLog( C_BACKUP_OF_LOC + FORCEEXT(.c_OutputFile,lcExt_1) + '/' + lcExt_2 ) + CASE INLIST( lcExt_1, .c_PJ2, .c_VC2, .c_SC2, .c_FR2, .c_LB2, .c_DB2, .c_DC2, .c_MN2, 'PJM' ) + *-- Extensiones TEXTO + + CASE lcExt_1 = 'DBF' + *-- DBF + lcExt_2 = 'FPT' + lcExt_3 = 'CDX' + tcBakFile_2 = FORCEEXT(.c_OutputFile, lcExt_2 + lcNext_Bak) + tcBakFile_3 = FORCEEXT(.c_OutputFile, lcExt_3 + lcNext_Bak) + + CASE lcExt_1 = 'DBC' + *-- DBC + lcExt_2 = 'DCT' + lcExt_3 = 'DCX' + tcBakFile_2 = FORCEEXT(.c_OutputFile, lcExt_2 + lcNext_Bak) + tcBakFile_3 = FORCEEXT(.c_OutputFile, lcExt_3 + lcNext_Bak) + OTHERWISE - .writeLog( C_BACKUP_OF_LOC + FORCEEXT(.c_OutputFile,lcExt_1) + '/' + lcExt_2 + '/' + lcExt_3 ) + *-- PJX, VCX, SCX, FRX, LBX, MNX + lcExt_2 = LEFT(lcExt_1,2) + 'T' + tcBakFile_2 = FORCEEXT(.c_OutputFile, lcExt_2 + lcNext_Bak) + ENDCASE - *-- COPIA BACKUP - COPY FILE ( FORCEEXT(.c_OutputFile, lcExt_1) ) TO ( tcBakFile_1 ) + IF NOT EMPTY(lcExt_1) AND FILE( FORCEEXT(.c_OutputFile, lcExt_1) ) + *-- LOG + DO CASE + CASE EMPTY(lcExt_2) + .writeLog( C_BACKUP_OF_LOC + FORCEEXT(.c_OutputFile,lcExt_1) ) + CASE EMPTY(lcExt_3) + .writeLog( C_BACKUP_OF_LOC + FORCEEXT(.c_OutputFile,lcExt_1) + '/' + lcExt_2 ) + OTHERWISE + .writeLog( C_BACKUP_OF_LOC + FORCEEXT(.c_OutputFile,lcExt_1) + '/' + lcExt_2 + '/' + lcExt_3 ) + ENDCASE - IF NOT EMPTY(lcExt_2) AND FILE( FORCEEXT(.c_OutputFile, lcExt_2) ) - COPY FILE ( FORCEEXT(.c_OutputFile, lcExt_2) ) TO ( tcBakFile_2 ) - ENDIF + *-- COPIA BACKUP + COPY FILE ( FORCEEXT(.c_OutputFile, lcExt_1) ) TO ( tcBakFile_1 ) - IF NOT EMPTY(lcExt_3) AND FILE( FORCEEXT(.c_OutputFile, lcExt_3) ) - COPY FILE ( FORCEEXT(.c_OutputFile, lcExt_3) ) TO ( tcBakFile_3 ) + IF NOT EMPTY(lcExt_2) AND FILE( FORCEEXT(.c_OutputFile, lcExt_2) ) + COPY FILE ( FORCEEXT(.c_OutputFile, lcExt_2) ) TO ( tcBakFile_2 ) + ENDIF + + IF NOT EMPTY(lcExt_3) AND FILE( FORCEEXT(.c_OutputFile, lcExt_3) ) + COPY FILE ( FORCEEXT(.c_OutputFile, lcExt_3) ) TO ( tcBakFile_3 ) + ENDIF ENDIF ENDIF ENDWITH && THIS @@ -700,7 +705,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM LOCAL lcConfigFile, llExisteConfig, laConfig(1), I, lcConfData, lcExt WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' - lcConfigFile = FORCEEXT( .c_Foxbin2prg_FullPath, 'CFG' ) + lcConfigFile = THIS.c_Foxbin2prg_ConfigFile llExisteConfig = FILE( lcConfigFile ) IF llExisteConfig @@ -744,7 +749,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM CASE LEFT( laConfig(I), 14 ) == LOWER('ClearUniqueID:') .l_ClearUniqueID = ( ALLTRIM( SUBSTR( laConfig(I), 15 ) ) == '1' ) - .writeLog( JUSTFNAME(lcConfigFile) + ' > ClearUniqueID: ' + TRANSFORM(.l_ClearUniqueID) ) + .writeLog( JUSTFNAME(lcConfigFile) + ' > ClearUniqueID: ' + TRANSFORM(ALLTRIM( SUBSTR( laConfig(I), 15 )) ) ) CASE LEFT( laConfig(I), 23 ) == LOWER('PJX_Conversion_Support:') .PJX_Conversion_Support = INT( VAL( ALLTRIM( SUBSTR( laConfig(I), 24 ) ) ) ) @@ -785,15 +790,15 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM .l_ShowProgress = NOT (TRANSFORM(tcDontShowProgress)=='1') .l_ShowErrors = NOT (TRANSFORM(tcDontShowErrors) == '1') .l_Recompile = (EMPTY(tcRecompile) OR TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile)) - .l_UseTimestamps = (TRANSFORM(tcNoTimestamps) == '1') - .l_Debug = (TRANSFORM(tcDebug)=='1' OR FILE(FORCEEXT(.c_Foxbin2prg_FullPath,'LOG'))) + .l_NoTimestamps = NOT (TRANSFORM(tcNoTimestamps) == '0') + .l_Debug = (TRANSFORM(tcDebug)=='1') .n_ExtraBackupLevels = INT(VAL(TRANSFORM(tcExtraBackupLevels))) .writeLog( '---' ) .writeLog( '> l_ShowProgress: ' + TRANSFORM(.l_ShowProgress) ) .writeLog( '> l_ShowErrors: ' + TRANSFORM(.l_ShowErrors) ) .writeLog( '> l_Recompile: ' + TRANSFORM(.l_Recompile) + ' (' + EVL(tcRecompile,'') + ')' ) - .writeLog( '> l_UseTimestamps: ' + TRANSFORM(.l_UseTimestamps) ) + .writeLog( '> l_NoTimestamps: ' + TRANSFORM(.l_NoTimestamps) ) .writeLog( '> ClearUniqueID: ' + TRANSFORM(.l_ClearUniqueID) ) .writeLog( '> l_Debug: ' + TRANSFORM(.l_Debug) ) .writeLog( '> n_ExtraBackupLevels: ' + TRANSFORM(.n_ExtraBackupLevels) ) @@ -1316,15 +1321,15 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM LOCAL lcNext_Bak, I lcNext_Bak = '.BAK' - FOR I = 0 TO THIS.n_ExtraBackupLevels - IF I = 0 + FOR I = 1 TO THIS.n_ExtraBackupLevels + IF I = 1 IF NOT FILE( tcOutputFileName + '.BAK' ) lcNext_Bak = '.BAK' EXIT ENDIF ELSE - IF NOT FILE( tcOutputFileName + '.' + PADL(I,1,'0') + '.BAK' ) - lcNext_Bak = '.' + PADL(I,1,'0') + '.BAK' + IF NOT FILE( tcOutputFileName + '.' + PADL(I-1,1,'0') + '.BAK' ) + lcNext_Bak = '.' + PADL(I-1,1,'0') + '.BAK' EXIT ENDIF ENDIF @@ -3645,7 +3650,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base VALUES ; ( 'WINDOWS' ; , IIF( toFoxBin2Prg.l_ClearUniqueID, '', toObjeto._UniqueID ) ; - , IIF( toFoxBin2Prg.l_UseTimestamps, toObjeto._TimeStamp, 0 ) ; + , IIF( toFoxBin2Prg.l_NoTimestamps, 0, toObjeto._TimeStamp ) ; , toObjeto._Class ; , toObjeto._ClassLib ; , toObjeto._BaseClass ; @@ -4802,7 +4807,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin VALUES ; ( 'WINDOWS' ; , IIF( toFoxBin2Prg.l_ClearUniqueID, '', loClase._UniqueID ) ; - , IIF( toFoxBin2Prg.l_UseTimestamps, loClase._TimeStamp, 0 ) ; + , IIF( toFoxBin2Prg.l_NoTimestamps, 0, loClase._TimeStamp ) ; , loClase._Class ; , loClase._ClassLoc ; , loClase._BaseClass ; @@ -5098,7 +5103,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin VALUES ; ( 'WINDOWS' ; , IIF( toFoxBin2Prg.l_ClearUniqueID, '', loClase._UniqueID ) ; - , IIF( toFoxBin2Prg.l_UseTimestamps, loClase._TimeStamp, 0 ) ; + , IIF( toFoxBin2Prg.l_NoTimestamps, 0, loClase._TimeStamp ) ; , loClase._Class ; , loClase._ClassLoc ; , loClase._BaseClass ; @@ -5354,7 +5359,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin , .T. ; , loFile._CPID ; , IIF( toFoxBin2Prg.l_ClearUniqueID, 0, loFile._ID ) ; - , IIF( toFoxBin2Prg.l_UseTimestamps, loFile._TimeStamp, 0 ) ; + , IIF( toFoxBin2Prg.l_NoTimestamps, 0, loFile._TimeStamp ) ; , loFile._ObjRev ; , UPPER(JUSTSTEM(loFile._Name)) ) ENDFOR @@ -6035,7 +6040,7 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin *-- Agrego los registros FOR EACH loReg IN toReport FOXOBJECT - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loReg.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -8387,7 +8392,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base SCAN ALL FOR TABLABIN.PLATFORM = "WINDOWS" AND BASECLASS = 'olecontrol' SCATTER MEMO NAME loReg - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loReg.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -8550,7 +8555,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg SCAN ALL FOR TABLABIN.PLATFORM = "WINDOWS" AND TABLABIN.RESERVED1=="Class" SCATTER MEMO NAME loRegClass - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegClass.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -8584,7 +8589,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg laObjs(lnObjCount,2) = RECNO() && ZOrder laObjs(lnObjCount,3) = lnObjCount && Alphabetic order - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegObj.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -8640,7 +8645,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg SCATTER MEMO NAME loRegObj - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegObj.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -8767,7 +8772,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg loRegClass = NULL SCATTER MEMO NAME loRegClass - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegClass.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -8801,7 +8806,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg laObjs(lnObjCount,2) = RECNO() && ZOrder laObjs(lnObjCount,3) = lnObjCount && Orden alfabético - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegObj.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -8860,7 +8865,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg SCATTER MEMO NAME loRegObj - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegObj.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -8958,7 +8963,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg loProject = CREATEOBJECT('CL_PROJECT') SCATTER MEMO NAME loReg - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loReg.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -9002,7 +9007,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg SCAN ALL FOR NOT INLIST(TYPE, 'H','W','i' ) SCATTER FIELDS NAME,TYPE,EXCLUDE,COMMENTS,CPID,TIMESTAMP,ID,OBJREV MEMO NAME loReg - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loReg.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -9667,7 +9672,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg IF FOUND() SCATTER MEMO NAME loRegCab - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegCab.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -9680,7 +9685,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg IF FOUND() SCATTER MEMO NAME loRegDataEnv - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegDataEnv.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -9693,7 +9698,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg IF FOUND() SCATTER MEMO NAME loRegCur - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegCur.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID @@ -9731,7 +9736,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg SCAN ALL SCATTER MEMO NAME loRegObj - IF NOT toFoxBin2Prg.l_UseTimestamps + IF toFoxBin2Prg.l_NoTimestamps loRegObj.TIMESTAMP = 0 ENDIF IF toFoxBin2Prg.l_ClearUniqueID