From bf101ef41e8fe1f97108d6c210421d3c2d6e64ee Mon Sep 17 00:00:00 2001 From: fernando Date: Fri, 27 Dec 2013 00:25:35 +0100 Subject: [PATCH] Changeset: 113 - Condicionada la sobreescritura de los TXT (2) solo cuando el contenido sea distinto - Agregado soporte de Debug con archivo LOG bandera --- foxbin2prg.pj2 | 6 ++-- foxbin2prg.pjt | Bin 276276 -> 277794 bytes foxbin2prg.pjx | Bin 1582 -> 1582 bytes foxbin2prg.prg | 95 +++++++++++++++++++++++++++++++++---------------- 4 files changed, 67 insertions(+), 34 deletions(-) diff --git a/foxbin2prg.pj2 b/foxbin2prg.pj2 index 93c6094..738808e 100644 --- a/foxbin2prg.pj2 +++ b/foxbin2prg.pj2 @@ -2,7 +2,7 @@ * (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.16" SourceFile="C:\DESA\foxbin2prg\foxbin2prg.pjx" Generated="2013/12/26 21:00:42" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +*< FOXBIN2PRG: Version="1.16" SourceFile="C:\DESA\foxbin2prg\foxbin2prg.pjx" Generated="2013/12/27 00:21:18" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * LPARAMETERS tcDir @@ -26,7 +26,7 @@ _LegalTrademark = "Open Source" _ProductName = " FOXBIN2PRG" _MajorVer = "1" _MinorVer = "16" -_Revision = " 130" +_Revision = " 137" _LanguageID = "1034" _AutoIncrement = "1" * @@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx') WITH loProject.FILES .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" /> - .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1134208850" ID="1130644423" ObjRev="544" /> + .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1134231778" ID="1130644423" ObjRev="544" /> * .ITEM('__newproject.f2b').Remove() diff --git a/foxbin2prg.pjt b/foxbin2prg.pjt index ca98681eb95e181cfae2d1b031fcd3066fc8b768..93d38b90bce607ca4be85fcd870651e0c24f3e77 100644 GIT binary patch delta 16646 zcmeI4d2|)U_V0Ifb@$0k=6N_FB#;0h36qElnV3T$1dxjoLUM#)NFWK5iU*v*D}qr< z^eUhNf`SN0R4_~;2wr7S0SD$81Oy~RlJLIOog4z9_b%Uhf4txNxmM@w&#qn7Rn@z8 z?do%I^?A>?e)n`DvK}F#$W;qmT$NQmN|8nHNQnt;+m$mH-&LlO0|`)bLx}X{mjk;S6*A^NzpY@9Y(d)+B<4pm{~cp{Q1}zW-VVC z+l(zN-;2Ks%4?u`qdY1ugUu};7k9U|MyuBLm9L14@~YAu?S#vA9xFcU@k|U5PA@XdR`vIG3ljj$x7I54UcMzw=rLMt|*u4wzN1MAFq*GMj56?^xBuxSj4? z{!{C=p8K5ZOf4DOZ_6X%+aT>SFUL?OFCf) zmt9EG>ljD8-a)VOC%x-6esN{(_NoBdeBFt%lT-R6r}XU0FkjtU_@kv3uuZ7*qwK0c z_&@%nUh$%J{V2Z58^OHUU3c<+TQO6B+WOwT<)UC=#toWMw*%Rn- z?o)HchtRqG78=~MZ(8Qy0iGAp4s@ZkU!&B*+|p8CXFSzW!50MiqV4(qrq^05aZYRSoH28&2@V49;` z4onVE8pOch=3`?fI2!-cVcTy$#6KTHT`vs#PE+M|`*U}3u5Ah5z0>r;BT^bXLZ!MO zb1-%lBan~E!x%;L`WdSCPgB_fN^{E0*l0K1qOtQBp&N?`(XLu6SB;q<%q*O~w$6z{ zsy z7OTpxiO5qdJU-NjvTn4t1)^THc3Q&{z)l8(R&>#Y4yRVNhAWe&T$G2k^5pZrimr=f zR~9T@+rvg%H0sm0PkLW*Xggcd#GO)ex}_xb%j%w!nwgd^mVL|mSNyPp`7_b!d*W~XD<6#a)XU!|kP427HY{~4jsSFW7fLSd*#SjYV|M<8qw8bKB5NPihMeA3f z8F^*oyhR}+*`LN)8LNzdWB_HV`61H6775M4s$BdiiPwlb>>ywT{8fURv>M%>W)FYT6YBT`1&B;#u3DS)r}zD z$|6SZVI5h5Sbv#?iS>I}`hSe&wu;E_SPc6^7=O^m4C4#D>sFR0^bRUtK2K*_#e3hg zsf_(9TJ2+ZvmRpPJ~oIwDJu7|ds&XC*~iMf!Z}t}ys-m0(Wli~vY57?CBzJs>PlnL z$pkb`?!|F%T6ej(Aptc)Wt^DRL*2(?b072iDw*vzLz%gIx$|>=jqK8jpF6 zbhIP({J>hWIN|k*5?m4VBOAw9T*dQ0u?@_5lygJV_Z~qME;@k0##Ov>fVGB==zEk! zi&F<#KIDu;Y+&e5F7_9N*{C&_d-QHVK9u53}h(M_f%;g&l%nwRXU@!D|0u zmIo``?iqGje13#koiDgG6#jCA4L9$*%Gu4Mkv2p`A7g!-CpdJE9K+PcRqQ&(kafn1 zg#Jo|IDLYRfjsymE3`l1b#raVg=Hi)Z+IJPLo<^aV{TuuyTBJ31v z>UCQ>)80q)JH-Mbw|iG>x(`kgZZ$YSRjVFOG8=*>4hLdJRqe!cr&zpi`})<=!LeFe z`xvVw%g0E0oK#AYC%cZuqN#{D&B|HyZAp)>nd9X2%gXGYm7I~&BRx4SJxlC8!^SsW zIJt|J2xWz8E}Xm7x`*Y$5g(sr5y?o(Emz$fCqefH32CkcX9){VUY05^*m&2MV0&$R zI`j~}=Wsf77hTS=nBGPjAy0>Xgu@*UEjU8KOFZQ^izK8S=Ak9KnFPqU2M#kOsIgg= zSaA;LI8;}H8|x=GRM*H@%0^hmZ3CpQ?`C!BRP1-%#c{^WN!a=Y_E&$pL9VhVmTO87 zuHf%nYBw7>x22{kh-%k;*63Wi*K}ELrS2|~_6zf4{^B3Mu4wtD!PH z_{nkMTyXO}L8;Ox1MxABjB=ndDGR1LjiO>P1CR4+ZIMzx6*@Ik(Pj2z94KWLU^cFr zjr$vKA$B@iR}Iq$5r3Wq*?)JaaSC&^5N?J7Ob;@rYAuA{T$%FlY^=-FLp@3p{R-R?!}Yf8rfKua7Hh4ukx187z(AE zXmg20BWWTuCeML{#t3&bt6y=Wt3J}!SU70WcoSB@ZhD4SgJ(RY7@na!Vz&29&zQ}s zwW-R@nC;i#8EDZD`HUSe2H+aV8t`d&M!52yJj1B^w>$&W2`1g1&ggmiI98D(`n*Q#x|#4ymE^6oQ0&$;4_~)TEvX!cKJN z6}VhmZq!RXivW;Hu(^r?ulnO}8~GxwyB!r!B3{4DqOi@wrFuKOsZ|y0C9oxQ_%Fly z2Ul2l_lZiGO72iFqp5(|y;q*pf8z$0M8Yd2LI zPUR_`$`einNAV(ERQ|?V*bVP8JO;)-GM2=f9^-3T*T<5cw|I=vfFqU+g2$vccnn%` zc#I(dDCHzGKa(1|K!z$QT1_mgZpr4I1V5|7?OBSL^n>)G> z7K#yB+zj_&kCpG5?#C91S(>*ozf@e*~XR?6c;58C@aa2GR@toXhLq`cv}u$j~9$A z%4sImj8y8`w`cZwNg)pO!B=67@GSwQr4Pu?${eyy3gH4 zY2{3*#YGcrC1nLAmEt%`SYKiB;8ymLXyL(|vE3rWgNOShCYt6>lwX{ZoA>beu~Wq3 z9O)AStN$y?K$y9nsWm-zN zF}AW?`3@_(b3+r|ZDrX7V{8M;a>tC#5}r-ajY*fvraAzJEHnXS6-c*El zWqAMkNN&lX+`{6L`!o8S70I65kDU;MJ$WMgSxoojAu0204HZg@OUn9{6pt-UF3Lxh z@wQU80<-Mq^WI%-Y8p**H*vy~C$MKkfEVw`QbeW~k5Sr;7YV*RK+N>wE`h5j%SxQw zDX+wqTV}&eM%(hr-W4mncvR4hDQ2lheW~%CNnyc=_TrouW~zno^5#D5brJ2&t*vH0 zWg5HH8)w<@^0-WS+SIy|ZOquR$yv6%;*$JBVw^V*QJkI^Grf60i1m5X#*>Oi$h#XO zP0Fy1DIO^{c=KSkPy7gbc8{pSjj(A3`tWevy`vA0VS~glA09O7KGD!dX<13Z*qk&x z)uK}Pc4={ai9d}h$j`SGVG41BGTg_OpVKcnBlgvXey2;v$0SJY3v*4aI~5e+1$bFb zrqQ(@#X%n)?6dd{v($<3f-|QNoZ(U7<_oX+QnbN`OPfVzc`zP*8V`19xyyupH?_~ev~<_?qSlv3uzn)Uk4GqDHp?2p zmelmLfm!K6BF7KQ;<%XR$D=JzZZ~dWII3^h*XI2i`9g^};KxIJL%)+HDm5yZBi#K_ za?b%-qBSl_7x$pVvhIW|(T%2g&RG)u1Gv9S%J_mpIg_I!#hd= zVtmKrWr?#nbx8>ZG&Tzo9zif$)Lxdjm}b{I7|_`4jK~ebJj97)Uyb#Se9ENz5K53rq-P#^(@LPvPqYEO!N-siGFi>o24!^ z0P88kRyL|Q|06Lwn8&jB#M)rY=0oD=U>?ebi{FEB|K~+;2oDa68EIDYHp72TT6(vh zebaMN`y>w-@Q&yof-ZIx6GC`Q!mfuKZf|TIIrYAmRcNZ~_m7;6^z7ucoEwdD_;!DOC$kuA4odPt9yi{$dSA2g$qZ_8akB~XJc2o_o&I{cA938?;qOxpk9Booi+8EhIZ6rvK?P6iQN4B zoXkGyu294=@xNTBFDW(-6tgINuHOIubaPDV+|F~==0PZO3$gqn@ zH@VFTQ|n^3ZN$BnCrzD`p_AVEo}mfE+}GF5v*nL3u_d08hC#PAX*q3b&0+5_2$4aH z-~o!)84(`AgOmr)h)xmQ+P>{sX&ZuGkIgM9wWZl66y(`@7ClrPc+M>Fl)HIW@x+@Y zGcJgk5xi-_3wzo2mh(YNAzq zXyw+o5a{u%Nu~Hk3*|^n#a|ZOAA8!^l zn!El9rmDf|I9{oUJNUc`eqJ0YoWnLV_7H1nT5Akno=h9(T+;PCYpS^-N{F!KE`3UWQzDX z3Qzr8ySNd>{f91^D$8RXqHa-%6ZGDnPU#;t>Q zi#sn3OON^od3C*FUmf>f1W(-u_99i$N4Qc|gpH z;X(dw56bd(IJL=uIlxweqtJr1(>nBRdntvK17hpY)+?aGaF z<3lB5a&jl+7UkJg>Xw<6vCvzJ6lnVa)nn1H`h!JXCoiTkJT@gY26I%PLMr6{JAvw^SZAL>9WqLIig+yS~Ms zYk@RCD$*w>Go@F0cIGXm{U3IeW~KMb%*r-PGy51lYd#L8BJT*MD6>S^kMO4V4!6q+ zh84Cb!|Ij>$4`~z7*d}cl;2|4^%-&C2s|ckhHyU0nu|})GRUZD4yWFSz^Lb z-dq{{vY2<2H&ser7GB4=pV)Vl`zS82ieIF%)2mV$r;M5_?mdQ`uXwJo9YeZ3VXl~Q z4Bj<+u2^~ujXeLB*mDf_i{27dk{?|xtjBrNs5y&e|BU&&trvq&@Ttl!rDFdH zevT=LO2yVwd~BfKINC*}EYc;?IoT=FWtYbSN~V`8x-qp}@l4Xam>2(*l9;!8n6j8S z&DAWYM7E1|DGa}WR8?P*sj42g84hG(jH>3}Vi==DyNYU6?WPQ170H_F!EP33>S{b& zDIV9=HYgPz=xVc@g~m-z>Z+%;gny{)qNZ$|lE|{yX7;P1q9@bn*8W6U)KHi<7&4gV zvHt8%rVm?;R{smrip3W7oPT#KTR_X`qQ1bm$bwJ4fD#m3DCtCtXoDpYf2TUjzr(!~ zX(=V>Qa;4x-}&a>ihbeggQ|ViNTL~d-837Id_UwAJAQ_%;O!H1zd^P>OY}WB5&RkC z@aaTN;2)j9pFmETK@jt!u2h91o+8!h=zVZ^fUNHu-givH`fp)sYFY`Jt}bH zkBLTsSA$1G{`aRulfWN?C#}W0TSxRXcs+Q|H^2wLFK#CC z-bStO7}v<$M(RYVsZ(+^$+`9u{u z0p1KQzeaQxS2}nL`1xwg=I^)}cqe!~4(=hfL=S?01lu|dM!3w7R5euVP&Wu)qUBJEJDF1H5Xe-zivr>Ws_AWTb9t%bao^UsQyxX6V zKfbS;0e&?L86ckZ$Kcuc8kAb*GRn$h^cxf}!@xD4(W@ho);klu4<0fK->R1)X9CN| zu(%AJo5m;)d>I`31fwxeGx`Wz3wD2o(QD5!+5u*mweHgyZTu&rU%?u9#0!k(!FeL_ z#hJ5)=btf)(P>;MP`JY2nc0jsmow@QZUP?jGF}V3!l(r71zrMq>Ax6F1N(t{;Q0Ft zuJ6G?;FfPPO2%~n90EQHxo9DyW8g%v*CGsV2{K$)qWkPnECihTfDyI=8UcP`1x5?^ zeH1(yya)1kIQG5+ehNILf>D=G7_9@(0$+eUbuDbbZ-S%NF&d2PEO-I8WVH=>Q;U68k9ImCgtf{V7{{mD0sMu5+O-+^3jvIp4LhkRR&;oZn|9w!@0NS}K zbhii5DezB_HFt%EfG>iVL;ksmLWSTO@Uxx@ZT45_Nw60jtuR2LPr?;i1da#iM<{d@ zr>4E&RPan3m)2vws!iaq;Gz}^oo=I0KodOwGAQOCORCkF;|!T-8fp$(}DRf0bN z+tL);h(pIO;2q$yT!m(hROsKHM2ErcM=8_=seBC>zXhN{&ndKfrb5TOuw3ET6JJzl z&8xVfH-Z&7Z>~av7b)~OzI>x$P$*d3Cs!!+EqDfa)`tqcfGoPH5Bvk%X^ld!eX3A4 zcoVqWT7?E|P-r^%FqmyrDDw++5-e9v9pr4Jyw|{y;2V%T>{h6aFHti1G~^CQY3&a| zkq<>JqCw4Jg;s(e0WUbB(0gYv0`R-w`;m&?b4j5jKllXr4CHbIh+^<5@V(UvovKx6 zDOiE0zf`ACsS~Fk!AW3Gi~pM@O{`tK1kw}1O5j5KwC~r@8)C&TXVtVJkfiZVQh44zm~dJ*QeI?uKF;#r6a8K~F`#Ft0z$p?u5*&OGQ+kL~FK`j~6Ud8?;h#-`9|30{=QQ*Lr_tbPVD%)Y z=GB}gg7<*GsmAmF4ZFrkD59}e7rLp$BUBn3h9v`D0hz_9v<)G6sI=0GWeI+ECVt!_RI)~5UjPqyRi*U#Diwg=1wXPtrNSjDEeG!aPhF;x z-*T0drWhf(E9Codd4RtK7eOAfS|xAr74YMBz_v9ib%p|8%+p!OFMX_1cW||=uog42 zPNk7xhF}s8xfQNbumbK6`SnVbCW19^C1l$Mm7WA!z@A%Fx`Asc*bV&L7qH!`(#K%@ zBpKm&8-7CjrAl8w5ekL&Gx&f?L!%Hl!0$jla1bK~w*Zeiq*C!=mCC^J;M!v2mg3H0}A@{wa(WBr>@Hohi)M&J!C7%B=DCPrp-_WQU24}$* z9M2z9b#iHi^a;FF(<#VJrxxH4Y*6<={>WRW;oz>|u>mLx*QpYm1MUs^Ml^o!2Yv+H zE=H#faXLk`#%2fhY^Bo^NjfFlp?D99g@7w}=`pxyc;RrJ`sd=G@PP+`AA>x5v`%)l z4PrACs{zX=>C_Xv7W^$_{V|>X1>OYi4EfA+IxPbq2hW_LQ|&CB4uN&-h;wG^bVOj5 z5|9CdPraejTkqfo;9lS@kS{FLX$`ml+-$i{rK@#29f#sEC>DIAQ}1;;;p|FpfQulH z*o0AmH-gV^(P`yZI=uuw1pW^4s9id3178KthrAZoFW_t7i;z9O)#(yg!It~a{rDj! zuGUHDFgW%How^=DI@%tJ)==af(P`cpoyLRvf;*klY2PKCHiE~3uS0$lKVyp4G%cH~cKL3w#mW)Zaq)gjmSA9h@9n_`q-rx!I#F zbUzdcP_%(OEY?CZ!9Bni6D)LJqJ<8EdxO7${9clUPJpw)?b}+Ybvp}P1`h#$4f)mf z7GmuYL%`c0|BA~MJOVtmgN2UXXCW`}bZ}`G3)wrQS*QmTi=p@ma&31Dm4P>bdt{)u z{Vnt<_$Tl@$jR9jIt0eAUFmQ#R>BK7a4=lRA&x@cKO3iAj?RInzl1^ItcN6vrhqR% zzKkq;s}s?7@S1xRod1zlf7AqC55>&k3iU)9{kbQO#$dOn6iP#uy4wrSA8h$Sp=n4e z7x`kV20!M^>E&on30NU2a)=jWIDL$qFdPo*242;flNCAN2Cy&Kzdxr7$Pe=1AHBgV zld%5>rK^;IgrF}JKS6!~3BtGF{@{oQRJu47TPE^@Z1AdSC`W$qF7gAJsRi0OQz!z-qhJQV_zLne#0d>?z#Ba5tWNJEE_@0O06%a|r%8wdt+DPC zz;TEJy|C_gfZKzAhg^td-WAI>xiu8lI15>NSm+Zd27}i^&cHHz9m{MaxEAt9gDs?W d5NkWA4~EMBVS)S)Pss6KZs7xE_zBJf{|ER1wIKii delta 15107 zcmeI3cXU<7*Z23FIp^NwruW`SNFyW=q^hI>p@#q>LI}wfLP;P5DGC7#y+;^D;0J<= zsDOY*1VK6q(z~dX(2IaVK$7@;=boDo(ckm_p7pHvk9Vz?wNCE-?Ad3|ls$X)oO^ly z59bZHoo$GMHxNKvYIyU(_IG_9_%Bk{v7=2Kc6zK`u$-#X&5!uFKbk4lX9rmWxns3M4*D^n^o z%6`l!!JSuCJ5zY2EC`^gN7`()IzYDzE?pWG!9q&+MAc(+N^j!tj8d2A2sWj(S#(GC zX6dBp7TPlHk+!3BS9F-m1w(B;fwG`QJZ zjn%GrW{P}h7{$Z7xO94~Kc2NRHjW)FJsF#6=VMdtW@*Ro!KH}}!j$_qrM((Nu;9`O z4H`ceOcjyn1-klF>o?k<74KSV{ymr;M4?=zz-lM?vd55i4OBU_c z(!{t#_XW03H!RP#bVjTnTJ}y{f5$viwF7FZaF-oyUux5ERL_1UJm4G4Lu_dCBW<^- z+PkJ}!F2ufX-1u$VZF}umxje#8vdlA31COcs4TCFl!Fqy{zSv+%+a1YXQyX&%uec& z)F~ycG$+Ap{iK8p7j~ocaPlM;RQf_nz#C&y%EqLyFFGlOy!6&4ud?3rSa)U>kQ^Vy7s$_ttZKE>kHM{0Gp=yZU^i*~n}w_}Ap87mxcIg;^# zlQ_4Fc``e(^#F@zCUN}$3oLP_3K!y4N`)&`Cs9OjWlBng8{v;TExTu+$3(xGNYZ<7 ztT@9nh6)cdw0_9%tgHII!jpD9wxO(~sSn7gA*TP`^h_TfA|DRQf|{ zZJ@5eqOmAS&}3Z$_y4O&5EKD=MV!1VY;l=z*;pzJMxi|#VlNxgxvIJmHE^qx4gYIr zyfDyG>rM|DljD2+_IqeN`c&PN#@CCfZ1_L9=aI%l)Lxe0f*ysS0VhBqK6!eP_cS1^DQx1pdQQ}&=GxZm=3iS{qMS% zfiC{jsJO@}j;%Y#CflkQIOabM6=we#RkT0Kd`cWFEe^N#+&Z7SG6G6{DB$asfw2_V zbqY(o#A>K7!@y+K(rdzqAtqH-+mPQQ?Y>&=YY91#@-y0$69z6!srI6dkrn>p(LvTH>~AZqGg-Z6*_~ud z>#CR0W1~eg!d&cb$8EWs8ngBv#}*kQ{uWzgocK#@ zk+GrVFB-X6|Dp(m;@`%WFckjp7G6_oEQ8DcEVdk}jV&@J{GVe>#6QKB@Vc=DEA9VU zY?=CRVoMk44-PWo{?#GU{xgU8?*mb~$T*6~sfQdHHsmN-CstR=)aAd4L(+k2;!w1V zLqdBJhvX(@i9?#f8i)KXaVX|V9AbvLaVX{=<4|iuZ5)cV#-Rqaaj2O=k3%C2!v8pH zD$M&>t|b5o1fZ^B_X*}M%(IwN*_jh8f{9%kV%7>*J^oyEsa`D(`6wQxg-7f~+iQwL z*_)?W0kgZss{N7lnXqWZ>@&<;3^{`&B=`(-V5uVR4C}#4#9L?Bv#ht+afTJU_;L(f zoF#hN(AST&XGPl|S$tqmsor84Q$2TZpa&Qvef`IXB|owG>IMyJ%l?+valC zPjAtBTXL+U^%K8eVjXM;)#}<^#yH26ExpW;YQ%`2dniHTtE+4%FPdqKA z#?#7OtezG_zhlufdg5v4T*R>JtbMzuHo4ba(ZQ?=1=H|5lUt-*;ofZ@X)dmhw2rPw z&g?5u`bc%Ok^3ez(eMmdHWum)7U!O5^~ff*9$Dp z%kGldxlLwL$LzLgNvUa>Pj8UjZn2S~->XWHQo(gEoye;P=w8||TocdVW`SbH0VKnP z&6%g6!Wn6@i=HMsh$Xj?CfkeeZnFqI50z=MJ0Z(OGKbU>1L-V7F{UaJovF{BY!vc% zQfsF8)HOqztmmpKSzP>ynQvXQku_$TG!q5CGNUbGl&5r?17iHI%)6Nf{YiGR6~>2( z4=&&1rm7v4709-Yl@&;_H-A$nIX|h#4o9WBnV9%1^I#sL{8!cn!AdR>S9;)!x$=;G zLBjjwgfl>?31CQrVI|XN**Up2`%tw;VNvMLc>YLRs95`Dpqg6@mRn@pl7UdKT&+|2 zPNmw>8Xi@PX@L0l4)f`8yY`{TNbyj;hCqGoU=S=vQ78VyVdWlc360~p)nS9=jTJbn z)ud=+xOCVkRcbA9vB6WW`xV#YA`C*TUKm>Ig=@vqMi{f3qAO=!V&Xj(isQN^McZ}{ zVGAkRXz|`}EJ@t>jSczdG;OM)JK#Z9-B|cnAx*E2v7GC>KDMWn4%w;6>Eh2}il6Yl zkMJ_{5i`2zskuB;SkD(?b`|r-_9dsxo*p=(+lZ_cc49j2$ueat$3$iZRg{$%|2Fn#=__8<2ZgQAZg3_Psk=UF>` z)l6T-;}vm7VV)`e^d|gN=6tLwvNGkm56&Lf=c83)^;%MHzzb6dHV;tXVokGOk$%yp z1UH~Wtf*jN*i0<5u<1`0C+_^oGDO}(_RN169JW5h;+I>P#;Dyxrcck?HPa)yReBFUAJ$k#1O+y#s^1&o6g@}tJ%H_`XRc`hDH_T7n?g24(Ji8YaDAe+37<@ju`m8RqsG)qjSx}it`H#8g(l! zY9FSXJ5a$ZIYUO8v+?dEe?UQcJ*j4-QoBy=vW`pgtHnPog$fxdHLY7#X6IgOgo7K8 z#KH6#H(sAj5`Eoxi2LOjS%pHjlu}smin*vbzvu%|iW1gDeBs7}O^X`n27V;EJj?yq zM)BB<2fBGD=xQ6vD@@MG9XxVao``kFZCyksckUTm)>JRIrc?yFE zk79j9yax~Sc1_psaG)Xi1?C)#*pQL=c{#6%!5+N6DY=ba>P}*t8+S*b|J;Lz1dME_ zt6ix8r^lQj`D1g6dgKf#EPA11ha=)w5AI?5p@VJ`Nn&m?kL65`eyQ8@{ zCoiWsXOg+5Y(!yEahIaPVIz_X@=)PO^N8OD>Sa%+ePf}nsWaLQ#M_=co(&bdJb6NfUPn@saC^yQjWYe(jx!-~gb znsW<_^7e=zZ|;})>ooliC(4zt@hshL)X_Y&&^TQ$aHhikvXM_pI*9^r?#s4{si?pd zHcz)h6S`z_FH^$XI(yK9Ozy#)#3gSY!JZZNKHSGIT+~!LqPQr3SavF$qhJJ<#)uxG zwGR(M0PN?(J-mzG)$JT8zhDGhIlHr^4co;`AMWcmYq4HxLwG@u-2oocUwrKYr&=q1 zk{_N6e0iA3^)uZH?mjz%d)Q>BbV%yf?ftdF(GT;{sXe!44q~t`4`eTjX}&y2xwl1p zf=?W`_DRgzAuWB4DQT(QGt)>o_+d@#7Y+S*xN*?;mb%6G03P739?&0D#}#^s8GhW) zogbGaYTYF{PHaMnZ`jYWM5|j8TP{@wvCWTr7?)qxK|X+|-yrd)Kld~xkIWyEC!NMd zbnr(Ln>`S7{CR-Z)|`_!N6hx;p{6*zK}0QtUhnUP>1kQ5vp0lXDpLh$@H72n+koy^DHjyPJee5qh zV}ZJ6hlNuRX3<473_`dG5LrPyhJ7t21o3Dboj(cU!EuMu@L;8)P%H{TOD2kqA(%TZehR^WED%*8 zaP~yuABwnie6~mp<)Pl47S}u>J%4oPA?8Nu`Q{;cBSwkwq1?A*{`-0<-g6a=EXYO3 zk|xcT>)JZAKHH+QuR9MjKao}rbya&dNR?w<)yeOq%BimEUk9bi8LHIUovh1IsdK4o zHtd8{xmvf(IruJ!ksB({DbTlq7QMr`Ux{)?FMkp=3Hb&5C^b1{ z`(3H>$E;>s<9oZ*?4*>Gv~JzH+|!Hx+WQIj#ENkEuHAjHKb!~hL6uD03g-dJt43iT z!DAu^x+$d2H_t)2b!B26~BUFy~V9W5D+OmSos zD6gyRj;%;4f7g{_P89c3)If1I0+G@^P_X)#xO#y#55(pq6Qg#iErM%QwS9lfs?tZj zdzdr`{F}4=X4Shq<4i_pM(ZK?#53jvx?Qor+wrf68>LY6H9*+{!qj+$$h_Sl_C1}SZos}JQXgAu zH*=YogL-=2S*h!vw(s+))HkTLH?Pt8X}gehQXf}qcXNY<#rX&xX#A{92f31*kLzIV zvd>0Q62m=Rr)`ub4Quc3@r^~_V&XQbkFV9w+^O@^&wqcn)F;&1<$fm)qTUuK4@iBZ zTKyM?b$FnA7~UcrKRvc)oR7mM7wrD1&V`a}kbS&CZCSu{^5T z=V$aXH|eE%Q7TRvdNSMQN4?M*O!Z<*F#S;+h~?hOo?pb(SRSa@UbL`r_a%8l6LAZV zwa>h20h(>Q*(h9Ea<{VV2E6N+z6Jxg99ds38k(K+N=`wpS*7&OnH?*f#rGGHGVXH| zoyxhl;N{#y`6yI}M&;aB`L3aaMoOP}UAa&y?^@x2gvE&>@DleG>Lu>YdWwnV+($eE zg(8~jw+sRp8n=)w5Qi>tFK=hc&Ca!)MscRf?w>Qle6W=)EnSl6Ww9`<&#>@qaI?$U za&~5jfXisb@eI)wpN7kNdE7HzVkycE6*`XxtJ2=4y|^XqecFqVE7+={+ly9LFg?>c zir!bae~V+CWc>#DW)Hioo%~Gc-VKMXa_H^BK51#}-D#rUHC|u&c$S!W zox6#C*SM3ibCwu>jYldk%@glk!(*q^jI_u%)D+#` zD72e=f-;enO}@!*GUYBS8+n@#^L8p?A*K-9B%2V^VaH{ZRQ88KEmfTFX)er#-=#*( zRXtBfNG!HhGewDm>M0yds{K>t$4Nw))I2fYq(&&0OyV1pnywtBGR;nPWWvv0jblY3 z!(MF&rFhj|t*6)YjlJsV-H3m#9HvkysWnI}5 z6aU~=G>N&eN%ZfmK0>R#(pJ-FbjPsFa*+|Ad>O?nxY#mkP9M?)V*>uRwv~T_T@z>( z-O;4Hl*_;U^uJ}h>#2Rzl9B;L)9^xTE@tlo$c`oWb(VtnThMKTd~*`f32*{<>SUrz zQ;3`}LCwJvreYD`Re?YFdGIR8P4I@GJ~$P87V`ZWs1KY0J~@Y|A09LW+yy*wE|t(c zC|-f08x&)g5iNP22*16fzTjrdiQd6=4BQ`_v4SXc4be~F+2Es)&0i8VQt@!GQyG!n zS40EBI8{&rj8V&vm{QM@OA8@?|-U=SI89hAq4bdDZ_CWFa7NXVLi57#Aj8l&t zM5p%NGRzcJhyaW8=L!x!K(!jgGnU9F3|AB{r4}n|ZO~8dpqCQ}3HB>USis(FE z2MmYeA`~z7-H_29upLIFIgaS> zz&VZ@;S1nrTQJ($m60dD_?QOH&SZ2I*H_@V_~wc3^~3Qam(hJF-iE;u$l3BNjBiOk z1qTmgv}FXc9OC8O{@8g7a#afA=|z*5XQr!VU%<=Q5gB%BU;Y37q&gqrdCXUou(&eiNKphPN{t8Epp70e=a(%_c_2!Aro`AqQ?|bOXE$ zybUsKVRR2H{pw@LbH8QuC%9xC6!F^_J=~6ivOSE!@9cm9mP0gn54g!*Mu!eC>JPpN z9()jUit7XLui#;a7%e!>=u@yC{2&>}>Tj8MCp-EV;suNa%bj(PF);3hg%L(&e3`HM=yiZ#ylnsM- z!MQlcOioc~3wRAUHdUc1*$UkP?*q5YQK;ttg?@0x>H$|mHoT!wB^Y17Qot02-kqgT zxeJjS9Q(Q13XMa~?d6JK1&)4Kp}-Fn8jtU;sV@}Y0amY7=ook!xaa2zWqqMgs2hR` zn7&jf=WFP|+rbW-6!QI6p{d~W;JuJNcPq3FELYAh$bS13dI$~y?}l83WVWF@mN0nj z5%4L6N?wK{4~m_L20P9xv<^HLJn(`-Mc2^-@Jevd4TbnUg&KLlC%~UWeh~qp5PTJ^ zK2m5+6^0$Gz|(tGV>)d({RnOZK8awl)R|LDPog&9G#5_C0(c1xf?^sJ69YMQ4CizX z{0X>k6sLX-IW_Pi`WCEV7kQ--r)=;+a9Cqb!;w{%fbokxdiWft@>EWTz#2SzY8t2C z+Hg|5vBbek+j2VHnNujZ2{!MDMK=5V?(m(wjUk~;cu z9;Zts^Eui05_v)K`T|ZHKjahx9u6M+5vT9ha{2`PK6vEkoDP4%={|TJcoY()30paN z`C(50M}5obi|;x02RmS?_1ecN;xMNTVEn$6_CZd;R(cKG7?#>=Y*ta653P)0~?A%qavs0DK0dZyfD6DA&T&dA=hPEC3Va*# z{Y#w8;PK!kmpN^F$f*c?2%P^2^FJHA#sw%su~whAS7~t|exDzJWeLs*Qt7>Lm3DyN z2e*t+XeqSENsR2mk9jRI?T)_9d>Ojc=GFbu%kreH@wa$pxiR0wW@E$g6AsS9`} zSbbNeCI3=sF8EXMy5%ahS)tN-@CI-Z!D~wZe_)&Q4aLR) zMZjk&?Od%=1o(`+;d7Omtix#yd;#1Ka$j7T;EUilApfud|C<4P8GHw__)?|*;H%)| zO)4d9R%t5u7Wiw(AAbWI@I7!zvn?uRY*pz4D5{`ndK7#NLl}m2jOcX&vhxX*+JbGt z3n4E%sZuwv6S(1zDqX`h7VH5|zKGtHtF!?e03LSi8q8x5}n?}7Z?PL2A5-LQdFLvHbdMsvW? z;8O=QN;5e|G-`ETqpmTCBj5p$CtTO)Mex7C%OQVyPosau zVE%VOaRi{^*DR-CupitU^6Eb{x(1dz*xAP#@^u3lW3ktR3m{*yG0^ki5NufQI~eFi zcLOa3w+4@coZxSuqu}1)mm%K^#*eSSgTcw62HFs5px}}QNV%an35aNDpclZOgNqUj z6y3}~E5V1r9U;Hi%0NGZ%fYiDmpqG9C=MwZ*sZmJhNq)Kumg6$w;>Phfcn6Vz$bec z=#8ERIsZ#>d5a0TR$6$Y9Q&H(p-{J|;Zvz{57-%6*9Up<^7JUTrEnNG- zr@^6n4b=L3104p-EqlvB1H~UQkbNUG7~C6j(JA!E9STS6$@7tk9zJKFEO0~c;0p#a zT{F;9a93~x$cJtj=rp(h{LTXdb*?hdvyHJAfQuk6QjIhMycWD&Gg5-Rk=B9_gR>wP zAX~i(z6YM{Zbbg?XQZZy$YQal=RlqlWTc_sC~#^(L}@xbF+DLDTlt^UFZUJph0e)w@J(&(MeL}lQkknQj) z^@s~{KJWp^ZIM)d=#F;);1pXAR2qc*AQ7B4PNfCN z4+Qdqrr=)44@}4pH0^N2Qg>52k}#gEN<^bOhV`ez44%CX}qf zc8dMFF}B~XP;@F&=>=@ZL&1H)%C{>0vQ4FpV3|fu#}RnVNhBfQcfi@FRI0%Cn}_Xn zDR{+MmBwScodo_89D_F%A6-@HD0maN`!$t39W}ZNz5y=T2k3_F@By~Vdr&Cuh~3y6 zLa^I8Bkih$+z+vQAYy$u*mo(mTg2|kh~?4X(A65XMQE-Br-7>=FGMI_i%^^a&N!>l zW<=5kh@{!zVnovWh@1?OFfRb{f2A#=SP0fW6r*6U5pp6Tp(i5UIPew7GZE<)fG307 zK4+kGT+RqwQ@~Y_ALH@>PX(`e9zhF{&lfxk9NiI-6w7=8cs=+63fxB-sP$vYE7ZFI#gR3F`f;dqQz6YLj9$^`A;a$W9 z{J#~Nb=yFz5C`nB&Yj^$FCh-RhIPLR>;aB-HPR9+^B^q4kOoj>1{tZlMhT diff --git a/foxbin2prg.pjx b/foxbin2prg.pjx index 396ec49f8a09d0b9c4a0688b583772e229708f6a..cea648327c9b8d06c8ca5042e9308f6b75541e9a 100644 GIT binary patch delta 33 ncmZ3-vyO+wfR{&lBg;+}R%1g8bK}W}SZaYRb90NyF08Krk5CB( delta 33 pcmZ3-vyO+wfR{&VBg;+}Rs%}|V}r?uSZY}fEG$e7CcCh{0sxMQ2=xE} diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 72ada43..5267ef7 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -446,7 +446,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM *-- Ejecución normal THIS.l_ShowProgress = NOT (TRANSFORM(tcDontShowProgress)=='1') THIS.l_ShowErrors = NOT (TRANSFORM(tcDontShowErrors) == '1') - THIS.l_Debug = (TRANSFORM(tcDebug)=='1') + THIS.l_Debug = (TRANSFORM(tcDebug)=='1' OR FILE(FORCEEXT(THIS.c_Foxbin2prg_FullPath,'LOG'))) IF THIS.l_ShowProgress THIS.o_Frm_Avance = CREATEOBJECT("frm_avance") @@ -786,7 +786,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM LOCAL lcLog THIS.writeLog( '- Se ha solicitado capitalizar el archivo [' + tcFileName + ']' ) lcLog = '' - DO (tcEXE_CAPS) WITH tcFileName, '', 'F', lcLog + DO (tcEXE_CAPS) WITH tcFileName, '', 'F', lcLog, .T. toFSO.MoveFile( tcFileName, tcFileName ) THIS.writeLog( ' => Se renombrará a [' + tcFileName + ']' ) ENDPROC @@ -7253,8 +7253,11 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base ******************************************************************************************************************* PROCEDURE write_PROGRAM_HEADER + LOCAL lcText + lcText = '' + *-- Cabecera del PRG e inicio de DEF_CLASS - TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2 + TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2 *-------------------------------------------------------------------------------------------------------------------------------------------------------- * (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇNO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! @@ -7262,6 +7265,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base <> Version="<>" SourceFile="<>" Generated="<>" <> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * ENDTEXT + + RETURN lcText ENDPROC @@ -7765,7 +7770,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg DODEFAULT( @toModulo, @toEx ) TRY - LOCAL lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ; + LOCAL lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1), lnLen ; , laPropsAndValues(1), laPropsAndComments(1), lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle(1) STORE 0 TO lnCodError, lnLastClass STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1) @@ -7776,7 +7781,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ OF TABLABIN ADDITIVE SET ORDER TO 0 IN TABLABIN - THIS.write_PROGRAM_HEADER() + C_FB2PRG_CODE = C_FB2PRG_CODE + THIS.write_PROGRAM_HEADER() THIS.get_NombresObjetosOLEPublic( @la_NombresObjsOle ) @@ -7856,9 +7861,13 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg IF THIS.l_Test toModulo = C_FB2PRG_CODE ELSE - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + lnLen = LEN( THIS.write_PROGRAM_HEADER() ) + DO CASE + CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) + THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) + CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' - ENDIF + ENDCASE ENDIF @@ -7900,7 +7909,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg #ENDIF TRY - LOCAL lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ; + LOCAL lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1), lnLen ; , laPropsAndValues(1), laPropsAndComments(1), lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle(1) STORE 0 TO lnCodError, lnLastClass STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1) @@ -7914,7 +7923,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg *toModulo = NULL *toModulo = CREATEOBJECT('CL_MODULO') - THIS.write_PROGRAM_HEADER() + C_FB2PRG_CODE = C_FB2PRG_CODE + THIS.write_PROGRAM_HEADER() THIS.get_NombresObjetosOLEPublic( @la_NombresObjsOle ) @@ -8013,9 +8022,13 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg IF THIS.l_Test toModulo = C_FB2PRG_CODE ELSE - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + lnLen = LEN( THIS.write_PROGRAM_HEADER() ) + DO CASE + CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) + THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) + CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' - ENDIF + ENDCASE ENDIF @@ -8055,7 +8068,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg DODEFAULT( @toModulo, @toEx ) TRY - LOCAL lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo ; + LOCAL lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo, lnLen ; , loEx AS EXCEPTION ; , loProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG' ; , loServerHead AS CL_PROJ_SRV_HEAD OF 'FOXBIN2PRG.PRG' ; @@ -8121,7 +8134,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg ENDSCAN - THIS.write_PROGRAM_HEADER() + C_FB2PRG_CODE = C_FB2PRG_CODE + THIS.write_PROGRAM_HEADER() *-- Directorio de inicio @@ -8308,9 +8321,13 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg IF THIS.l_Test toModulo = C_FB2PRG_CODE ELSE - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + lnLen = LEN( THIS.write_PROGRAM_HEADER() ) + DO CASE + CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) + THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) + CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' - ENDIF + ENDCASE *COMPILE ( THIS.c_outputFile ) ENDIF @@ -8355,7 +8372,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg DODEFAULT( @toModulo, @toEx ) TRY - LOCAL lnCodError, loRegCab, loRegDataEnv, loRegCur, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1) ; + LOCAL lnCodError, loRegCab, loRegDataEnv, loRegCur, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1), lnLen ; , laPropsAndValues(1), laPropsAndComments(1), lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle(1) STORE 0 TO lnCodError, lnLastClass STORE '' TO laMethods(1), laCode(1), laProtected(1), laPropsAndComments(1) @@ -8398,7 +8415,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg USE IN (SELECT("TABLABIN_0")) - THIS.write_PROGRAM_HEADER() + C_FB2PRG_CODE = C_FB2PRG_CODE + THIS.write_PROGRAM_HEADER() *-- Recorro los registros y genero el texto IF VARTYPE(loRegCab) = "O" @@ -8425,9 +8442,13 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg IF THIS.l_Test toModulo = C_FB2PRG_CODE ELSE - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + lnLen = LEN( THIS.write_PROGRAM_HEADER() ) + DO CASE + CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) + THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) + CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' - ENDIF + ENDCASE ENDIF @@ -8466,7 +8487,7 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg DODEFAULT( @toModulo, @toEx ) TRY - LOCAL lnCodError, laDatabases(1), lnDatabases_Count, laDatabases2(1) ; + LOCAL lnCodError, laDatabases(1), lnDatabases_Count, laDatabases2(1), lnLen ; , ln_HexFileType, ll_FileHasCDX, ll_FileHasMemo, ll_FileIsDBC, lc_DBC_Name LOCAL loTable AS CL_DBF_TABLE OF 'FOXBIN2PRG.PRG' STORE 0 TO lnCodError @@ -8475,7 +8496,7 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg THIS.getDBFmetadata( THIS.c_InputFile, @ln_HexFileType, @ll_FileHasCDX, @ll_FileHasMemo, @ll_FileIsDBC, @lc_DBC_Name ) USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN - THIS.write_PROGRAM_HEADER() + C_FB2PRG_CODE = C_FB2PRG_CODE + THIS.write_PROGRAM_HEADER() *-- Header loTable = CREATEOBJECT('CL_DBF_TABLE') @@ -8486,9 +8507,13 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg IF THIS.l_Test toModulo = C_FB2PRG_CODE ELSE - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + lnLen = LEN( THIS.write_PROGRAM_HEADER() ) + DO CASE + CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) + THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) + CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' - ENDIF + ENDCASE ENDIF @@ -8539,7 +8564,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg #ENDIF TRY - LOCAL lnCodError, laDatabases(1), lnDatabases_Count, laDatabases2(1) ; + LOCAL lnCodError, laDatabases(1), lnDatabases_Count, laDatabases2(1), lnLen ; , ln_HexFileType, ll_FileHasCDX, ll_FileHasMemo, ll_FileIsDBC, lc_DBC_Name STORE 0 TO lnCodError @@ -8548,7 +8573,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN OPEN DATABASE (THIS.c_InputFile) SHARED NOUPDATE - THIS.write_PROGRAM_HEADER() + C_FB2PRG_CODE = C_FB2PRG_CODE + THIS.write_PROGRAM_HEADER() *-- Header toDatabase = CREATEOBJECT('CL_DBC') @@ -8559,9 +8584,13 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg IF THIS.l_Test toModulo = C_FB2PRG_CODE ELSE - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + lnLen = LEN( THIS.write_PROGRAM_HEADER() ) + DO CASE + CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) + THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) + CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' - ENDIF + ENDCASE ENDIF @@ -8604,7 +8633,7 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg #ENDIF TRY - LOCAL lnCodError, laDatabases(1), lnDatabases_Count, laDatabases2(1) ; + LOCAL lnCodError, laDatabases(1), lnDatabases_Count, laDatabases2(1), lnLen ; , ln_HexFileType, ll_FileHasCDX, ll_FileHasMemo, ll_FileIsDBC, lc_DBC_Name STORE 0 TO lnCodError @@ -8613,7 +8642,7 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg USE (THIS.c_InputFile) SHARED NOUPDATE ALIAS TABLABIN OPEN DATABASE (THIS.c_InputFile) SHARED NOUPDATE - THIS.write_PROGRAM_HEADER() + C_FB2PRG_CODE = C_FB2PRG_CODE + THIS.write_PROGRAM_HEADER() *-- Header toDatabase = CREATEOBJECT('CL_DBC') @@ -8624,9 +8653,13 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg IF THIS.l_Test toModulo = C_FB2PRG_CODE ELSE - IF STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + lnLen = LEN( THIS.write_PROGRAM_HEADER() ) + DO CASE + CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) + THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) + CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' - ENDIF + ENDCASE ENDIF