From 4f69cf19b3625b5d49f519a71a9515d1d24c4f46 Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Tue, 15 Jul 2014 22:20:35 +0200 Subject: [PATCH] Changeset: 367 fdbozzo - 15/07/2014 21:50:03: --- foxbin2prg.exe | Bin 439886 -> 440221 bytes foxbin2prg.prg | 41 +++++++++++++++++++++++++++-------------- 2 files changed, 27 insertions(+), 14 deletions(-) diff --git a/foxbin2prg.exe b/foxbin2prg.exe index ad11a4c34f653e8cff4fe4d51dbe1274159fd229..459d3d243629728ed7d793554be128aa79475ddc 100644 GIT binary patch delta 9865 zcmZwN3!F{m{>Sm}T6?Xv_a4Sz7~?XG`~4bncV@;A4dX5;(=bCWk!f;gE1^ROM@vbl zR4A9o6e5LmBDvp{qR_=9x5D^;mhJe@>Hqh7tux>E?^%1Twb$i&p0zvQ{90ncg%Yc3 z^a}J{wA+|av&>U#>i0Sj;mm07sA;=7QT<}g^(k|z_KT0H-rdsD!L~Z@wl%1RGVSj?QXe!gjweFNz3wSu~J!!T~g_^%gIZnWCnI(@s!^(gtT7hs9Z`Q|s@uSUZH zDtPNkVO@{b?c6wZy&k~)Pg3mlf{NvXR|@D_5jnSW3(^>MZ{?zHi;KPzp{RRJMO5+D z6~C^>=!Rhxy#1#=*~%@->OpT?wr*OgmDIWo+lXStB+7MIr<;`i}RLozZ)KAbtKR(#jg_$v3@n*CRePfBgyF(IjIMD4rBnqE@z@h#%JJu_fP z|MRtw|M6;^4>X&{eMolyb~UI@2v6x_xNwVSa;P$ zU+r@F^`~vxTp~_2m#ergM(9-1^%9(N6%6wA{&EYgF^XpNwEyp=7AL;h-K*|h{Yd2& zzk6Qtab7MuO5&8%@wU*-&UMtLY?a&y#owanyM6bdEp5sTD$%ct)$$7Z&=OU zsh50-6(f|A)HNY7C7BEC<+~^H;pCqA{*zm`O-XilUh=hfgPVMX-Nk=dvC#qb=-jqz za!P8OfYLfAC#807<#x(%70pS%?Cbk;lb+LkGE`TNvWIrf9GQLK<**AVeMtJ?0i)Bi z5(f_*_H1UsIbOZq{q@XO+}tBpOq1dBz4`<9>l@z)`|qD$xY(=LzrWtBx7`j$t(bPb z-}UMZ?$;OG^WQ%|XQ{Vd!~5&)z3=29eTQab4*bAfany=4e_i43I%*Y&a%&cEly0?y6RU6G+6>f`G|IF-gQ>*ms^wd5BGy7&&Umb3Y($nc#&t!(1 z+YaeBw8Lum@ncr3`Ta-kh+|f1v;8Mwcirf&_Iz@ayXTlys&tPn-Ugbm=VzbJNYBn} zpWLC_sqNufHMyNWu&b50b?s2P(Ip~mAFXo=u zVFe4HI^}Jw>HSktKxxpOX$w{Vn09?z3af@}Gy-c#ev>d8@l%pIy`Z zVw=0uTXXfkSN8Mg^L^er(Qcdl9KpVO7~|peKKFHRjjQ|IZ@s_He(!G)H}-&C+AOx; zZFGQQmHqDE19ow<@qTy80Xwegxr5$!3@Rxlt$k{%ZYinxyqMIjOIl(=mt^;_*Ge~) zl9rm1{9jG6$KCG^*d@(PC)`^H*n8CPZrnk;lo@}~ZR-8KcGc~9(2g@pUw20yw9A>} zEcf+;9LQ|j-FT1#$jRp(I%rpQ7Dw6a!Yw=47wr~5WJj7CqueTo>o7YotGGK4vz@pq?nTd+Yq-Ua;K-V8^CKKc zTy3}a5j)bbK(Q;;v;t1@@pG=+t2TvByP~OyS?y#ovPi9-7~Cc?r7=;j3Gx~H44-kyNHjVdm$gTRudZnt=|)-KB{M-@`yL~a zPd>+I6ZD1l80q{?)bpxqT+%GGSP3~}N;>;u%z{o%$9hh{3|*cl&73baHO1H=ts&2N zUFw0G%TyTL@hh->Ez`e+o-;lC#8{C6jZ=o~}x5pXeyN z+*1l^JV<*}nnxjx6=su%za=fknRq36$=lL0JP02r?_9!x;$iqIdBZ!>Mmz$aCNFze z+J?vBedJf)lfJ>sa2$&)~{L2>36267!es1XU7ls;zC|I1fMOzK^{I{WG zToxN&8+u{4p=WV3T>D!?pR&A$lW@i!&d6RvOYlS3-e;)w0Yj^Bdpv|(;-sPNcognT zjy+|lKt7%V+<`pqoS{%T3ND4X^M*S9VyF{djBk^>{c0!;zlE=oYyEC06R*JEktba= zGy;EuYh2=hFB_VMx8T};7%IzT+{K6ScJhpyhPL7#aFJVF!dxSyeH1QINWNp}`C_In z;uLP2%CV;QRyFlXe$Eays+l^HV5(>&2ZOT{P2FaB72m=qI-7d4o2ldY4(`?6)Y+b< ze#OQ7JVB3|I@QlqkpfapT)MxhnFB+nI#6gu;VZhh@5Y$Q!qf4zv8Hy@ej2;jKfzSP z=S}^E7vh8DzLQK9h~f<4f^>0v|7of|eiuJ8)zqq&O!dRdaqsD-{yD?c6ubggq6_RB znq_JMg%2r2&NkI}j;T%fBYc>A59L=o5>^IHT5Vyic7p_s>O1X_Z8_Z{(&4C@u8_tC=}q)C`F(8@j6p~;EK3Uj;V}K zOqD9+J@a%l>p6Y&v-NRHyp`N-lc`R)J-$I+`kATzxFb&4VrtswoKgG;uK$Ip$LW_t zxG%o7%?xSlm!{@Y$fA(3!_-DP>i6+P{KRfkm+7c^54`&iazzkr|}%}F1om(*y7Q0s`>PN9iQIBrEm%Q?4KI=^d+u?XEyZ7 zY2nj(+#atc*GcxNWKqs8J{AH++xYYlg@F{dlAlfWsTckiF4xhg?vMNQHr{|E(|nrH z&!>nOZa`eIzfaXC`;>%jo}80Yd^$73rzXX?!|~LaJ{4Nw(=gl~S6SoJ)b&0MiDi(( zq1qdK8ug`5?^5ud)k-^jdgp*o6^e5c;Z6sATKc_DWAJ6%nOB>EXMEa;qj)r9e)7rx zi%)lOUA%@o`Vt3Ff>9G!xy%9H@M$C-gO8HW@ZP)*FV0W@|MDF+ZdHjmL_1EXSq-@OX+1TeTe26?f!O~}VXC(c9wN{pY9yC2*sa#oU7rsU=f5cLAd>Vg7 zZg!1tiJzfwxJ|AgTXo9O)8XCZp|-8Dcq1jLQIP&RA_E%cSm-@3dQI= zMlfwJm&u3l0KAu6gmJWbMIJ-Eh5XfcTl4X0JRoH2&q=n9<4gGU$+q%MWmK!gJP}8d zm$F3TT>Qf{TL+fesvM#)j@~HZeOrBY*|I8gm(y9e-`J{kgVTn8z`v6_S98>^Do+J{ z!IL!{#kO>`vl=%f&wl%VI6B$c(bLtr{y4g;qvDS{I)|6z4!s@qdeTwD8hjbNXRxDw zPdN(Bqi~eMEHIPhZF~%`CFc%x^d3Hm8$Qhjo^iAmpTq8OM>R$`I)yLc9^`H;zv0Vx zG79m6bo9~-j+)>AE;`9koymM-9ECTN z3%=;+QCtd-c-_%Q3mpA{%j1MM9KE*Ck*^jv8Lq&jq5EP-g>Zd*`fW#FFJb$*nb-b- zqrX;!9F3sRn!@Cjjux$QG!3WXFSj_#_qn6U+VpyO5&3tPBDfn4ec@>QR!1dq8jjiK zD091`s(2v2LVjzfqegfNeqfiQPxm=W!^?1w{d}3wVMo&`d`sc^qmDW-XZ{8s!DGqu zS$@FBv3uIljPo2+9m%A--a@wc#WE4c;+EtCOnv&}!8jnl7DfAY3g5*0$fqm$HM%Zu zK6KX=D*F}cQr)k@^`zG*j3OUumB6pSJKX1Rb1;xXjOELU)0yeZKi(pMDzq)>#yALJd$e(@W$s^j0u&0G6b z{sH=R+?QND#jk3(H7?bOpV?U^C;!PQZp0iPZy>kH^{X4cfZaRn+zDs|j$uUf zUg|!I3@8UT$40?`MivVwUtco(f==LQ%?jv=S2-x$1WzO%T^P`IoR0gw70}pa0hMmfBaRo6>#Yo^JDwM! zFc3^)8AIVUyqP2BL?sGMuH*WeN5D{*5Wbl?iHQrJ#Oig$%rkyu3C5TFWv3KZ}#=2359RP*3CW zcscop2Z9=hC*g_pgKFO($UKi9H}E*}J1j1qfg3ao>U4{s79@n|2qfcxH>L3FQ~#F z1oa}GkK2$NtqH1nG8@Fb$d$GS^#qP%($a%`Vh20Hm9X^{KPd0y3$dAHNaghlL0Y#nmc$zX?R>(YOd5 z!*lRV@|K1Xn*EUO&Vo*RIVnOt+HyZsVopik-ytHT917VK%+v_&=*54*Y{%pSUm*X+ zl8x8lxfv1K%(4Q1jL(y|jf~J599fxugZ%yY2vvTVvx)Qb)5`RhBGeI2!K=t!=SFA` zUWF%;pIXRD{uI6;h3W4_C~J9yCgBUX>R9OoenjG@9}TF&WteWLGCvw^V90 z0yEyxF8md48e;xenmJu5=5R+S>>w|h$}ARtk2_6sl))TsGA_zN6nWFp5$13en4-nu z$?rH?!IZ5negOAc?dZ^l%$jf`JZX)iCz)Zb!UJ&J5l2gzQEg^M^)!CuWXMrvCKSI= zc$vZ;av8?|3?>Xq@DcJR#`^_~_sj4zll*#g3Bxtx_ck2Gc)pS0`zZc59{iDCB^ZAD zGCY5W_mZbE+_qtKJ&jxZ#7N3$x*K1|1wss`Uod<=#qfEX!f<|vDbMiuC-!q%Pm+(b zjAk?p;5nrOn#B^rL7dF!*^$xm1zZ5%AwS4y7s+V&0KP!(&*0XE!K@K3k~VCEErto;4HjocR;lnOtKhEM&R$r?HD^Q z&P%p#LY!+{&;dxi` zig)aA!?e5&UU6q2-0();2Cr!54>zpK+u#)^Mur=9mQ0 zkGu_D@kDgE!J-%Z&p*d24k!|CD3!OtEAB29ZfKad!7GM-Dj9BhC~u2b99b&d&?9ey zSFBMk+%O<-gIC;DA>1%BZ-ZAnUNPJ-BX5IOjHu+6UCTv?sKgsm}2r&v_fX;)UAbhClN*T&T@OX!St2CBONf6Uu$!6(bvl z8_MNv@QNQl7;b2px4|nWG!8d($=l!+pS#yEIB$bj44uB$!mro&|2baqY?JV|=H_ki zinW`D8&>3P@QP=eg&X*Z_x?Y}D>nE?xM6SJ2Co>|%3b}D6Fo4p75{G*7Vnhu8}0pn vj#u209By!Y_v>=J;>d@>4Y7F}yyBF$;f9)d8@yuEc5bb8PAO|aCrAGSsAa_* delta 9586 zcmZYE2XqwG-^TH0r|oX&5J`lD-a?ZuRUjcW=>#hhA_Sy&MA}jWBp|3LqbO38A_zng z5KxLVMFFW&MG%d2X(9^o{SJ#c@&D$Wk>~TfcV=g2ckjJ3&b?Y_@1;WN6`u_hd1s$b z3#Wg)y2i7IBb{rNURzx&N(sYk{k&{qa*rv= zJ$!7&y5t__w8>_&Rnl#rXvEH{@|)%6zHBoqG-J5xIJFo6#=2CR?J9dU~ z$NtF7j8@LO2{-+^olorer_We%?~Wa5WO`QN@)UOFx? zGh?%LjK0mWdF8Af^3s@-quAbS7jW-hH48P%`QTt)Tf~FYisZEZ_dxOv6!D;QK-KP_ zuBDjFD77wkJK(PP!Yt&@zGjxm71SNOw8a5R^B!l9G9!JlZobvNhm5w?{cBJ>kLusf zAwQ?WWmBf5O_@Q(d++UDrm0R*a$C%^8n|y>H{;#EubZuBwL21>-%(QAq{OF^0!nVt zrb*&ci5=ICzG05f$X{%_DW9s!(a-@&sUwEIH`C2?!YWwzhu6J&wXFI#Z-$*)Dg9IW z_8OToIKJn3~q_n7b1Yh=}*`XKE8-M{o=uU<2&U-!lCD)uk& z%u=sjE35uamJ|DT8_+$q>c?)z2`jeh>J?tUN0m=QQirxn89XGldyD=(2DIwcKlPsn zO%Y1z-aWZv>fqt2gFjvA);wv&8J$-TMx3%@3KrSoyt>wb6HDXWCBwcgA{S@{aZpM#Rtlh40lQRJ?7VF)(fY-G_*5OvfhMiA6Q->xuN$tTEj!zlveP_Nb z`Tv{RrF8e2*2RUJvY*85D&d-?7HwK2Wma(qo#v`lsp?KWZ56IixvtmxnDTh9lfWn4 zE~RIx_mTE%5N`PQn|h;}yYIABDF4H4|65<#Vcp-SE&E2HDI+Y2PpZe@e#t4rQ~GyH zwbZn2ht{vX=@vR@7d2jR-35p30&bN*(z(jN_zIn z1uDKK?*4=J!)}p7wEq5Ow*DQw%CgPbDwDm+g)P}C8>l#ww|Qsk7CUT5MdnqvU~uyDDMM1zw!8LWyP7fLfLq7=cj^Ie|44WIVY`Si=RT@A%MW;mnALxKl>0k} zF}^t929MBr&jGiA_wSDf+(G;sd-Z<597<@FoY1Lba(v^CiH=A~ZCmT0yXA--Yos4` zPam;kj4nU8_m0>P7d?I4J2XQlyR@SJe|Da9(yjS}UG%vlm%L6vuT$IjmWfGi|I;hu zN>*!!#CB~vB!yeswz_`;U*7auBfNdvb!gi%G2y?>zua;^`N1yHpowYI?f#xk;uG%g z`JWeg+Va|YH?5Ls|4+ZM5pLe2cAWDat^4&NU z=`KBLmo?sscK08(OBm_V?yaMCIiq=uTl5%yF~&_eW|ub>$GQWK*=39sv95c}E@^xg z>wa;Jk7Zx1d-53je^bWWzknNk+|Fa1E91r;r?|d?+u=9|IaI+New-IOSIKpc+r^A4 zRo(TTgVo&Q$L-?AsM_v5&$Da0MNZ(Eb=}4%=(nt{+wBA|wy&=HiuZ4eM(&Ce^efcF z-HS`U+|+xQe(yqf<5S*$Lvq4{3tphP8+nqmKHJi*&%Z_YwDNYy8NPB&lRG7~Xw}iL zj)@&RwrJbtNLzRONxN8d#*H=${>f4?*>yRKV*(oSz^Bn90*F-}aS0~+sZ?~C^x z@R`1AZ2Nr^6tBU)@xC)^tZmxwOX1&mO;A??n8d`eQ79ehI^9Z=SgF5YdnD~J1>xC;-{sMW`F?;rMD?0(_tZb@(0oaoQgM-*L)}~!+r22^2tTgYCH(ri=}Vb zzQ8Zyo8%2kq#bw+{+ayIQfV)qh!2q8{z&=(Pv!Ns6--$s{X}6V9n#6emrLjITX-Hh z^<(Ke=Hh4uIcbITH|E?mgFI!WWSJ7LrLE)*tE60*Cfy`oPL~Se)wt{@T*XhNqIf;8 zuV+9B{!FThci=7L^=qWM_*;B~d}%E!KfE8utm9p6ms;V6e3HRV8+S^} zaT)v*IoCmsg*)SV)1-L)1m*&$>wvX`;+;5sslc)Q% z2ET;+zvk0zwreNB7AZt!V8&cGu!`ZV+lpMnw6H9UvBU^DL!-@-@8e{bbQ@m;*=E1!(*KGhCU z@CMOz&}+9(iMTk<_pMKFaw9Md*T)UN_h}E?9GrlM?&pde@M#fljvqSc(-Vh%O2@77 zSaSIvxhnW2{5-kb8J}|J;8%dVkY7FTQ>X+5mqMirK6Sn5Q+vDs=ep!mDqAxC0Na;Y zB3z+{SK_PWw|@8OMZ6x@zs3n)_h}m5iW}Zwjr*rhEy-Yl-%)6l%$Awz8_G@)>;x1p<}3=PJw z;&(?II!*gI?Bb|#hMG<=^cS9oep(%JJuEh{IB=owWxfDL75c`Iq7PAa(!fWtvJ5xQL zGxZ_fh+~sYz1G82L_vO1xMojN^(LE2z&5{}D^pC}nqjJLlvD)InQ5x{N>hVyYg~J^ zsW}@=^^cZ%;84Sjrl#&PwS2>aT3dXRYzzxe= z`t1=*Nq8iFgL|I_H7(7=Z{iH{+{Tu+;O}xV{?~0{$!%$=Vl0aVI@Euho0cw?y5PqA z)^Cv8^sw|7ejX?HwiG|eQu89bBb-4VIE)j-GjZ&2`i`-*1gGQ8<19Tn#nNs34W2=6 zJkwI8qO37O6b6DhZ&>O>!5dsEF0^#*LrXjGJv?WTr4LqEI*dy&7PMb!spBe34;ABQ ziUaAE&aJgn94F$p*I8<~ixg5 zM=Vu8#%06j@b~0ae^}~@hcGtex^3~C!B&+LjCA-kIb_=!jlb~54#(Dqto!HV3%GS2 zTUHTU=W#`T%1g-;O55sGlFz>_g|cOAZ7FAKR!Qku+&|9N^$NC@;y!p`MO)8Svb7lx z#eb8JR<^YVkH%vkvDL7qtrK`Y{*@eC$5zf#e1GsR^0#$uRl;B55%p|MV_L0WD#Wsg zLX8HtPPeo5I31!GJf^g_RV~%lM%)XZC6{6ztx%euA>L0uHrCd=_#A#IWGgt?)=7K~ ze@rf%#;jI`lf|**^=t)jCcZw+)-TI!l?_oC!)R3KV_SpwaGA>TEoZP;ve(vQf7-f< z&*Dt-^W`12jN@0qSTLfZqjC)$eOF#;%Wwa=Mvks@a5S)j^a?JS@Njb{SvCY2-sMIl6{#;hZBK9T@HC9{va4BELD-2`OJC$;aq4exjrIUUpO$ z2XN_0jv7to9pgNBAGz2oj-J6Wc*=W@cFc8j1DC|@-*>cZo+Gm|Uou>SMMIATj`HCe z_~wU>PAua1xW3oE!coMkkfRqVG^H?mm80}@N7Hay{KHm9g}-u?>k+8~PA6xwMPi=$ zY34RZGq%$QC*v|Z91YvaWyig-wad}!?;O>}Q*go_M|%!BO2*4@&qI!ShmJaWmBRNF z-Z<{43v1@R_!yo}Ue0zFpTtYfIePzsqa0OO<1<|ECrAG7C>}@Sw&Y(}`t-zoaWpri z=>_~cga5`qlW&&sYh+dKd>F24l=Umrt%6_qt1-w>m`cv5?N>FNfpgXIt6x38KEUVk zLh{&h`t=iKFBFD#>;M=f;ndpJ2O+^Wtgb*=#p)e!Mr{AJQ=jcPKe3^42sy5mU*&OAT(P}h{tkXk#;tKRa+l})dL4)Gbn^8S zzkbHAAJ;VilMFu&69Mf}Zh-u+m=KEwr>aO%^4 z%gbCPToc!s?$^#)ezmX33J0GjUwqH6>G&mFY_4CO7x}dTzlQ%>>{kqnzcY9(UK0YF zKI27eNv9}`XQB7P2EQiab9fdxYKLDla3nKUUGh(R{5pl}VP~&jgZKMY_)(TucnLY? zh+mK3j=1FyoXn40MLZI(BER|z8(x4z%`f=1`5K=Qh3yp1l4sxH64z#2$KR5l%=D`h zzKWOp&^p`z=gS+=D^UUEs3Ud7%gKrfs3{(fYm!UH2Gkpm zjb;2_Uo@bzWdcg0u!s(J*?>A!3TQXpgTHt*poO&qYG0St5#B?doe)rG>}N_{Pu|`k zpq01@zCiBuL_q#}d?#=kxelw%!gwG))jgo1eFJKP-6D+tpMzdQ0-8x-6CDP;6wq(u z0=k3G;2h%vs+q=CU(B8Sw#n;X3#dCTfHPhXXy7{mO~!TcEb@hU0qw*oc=!haO0Db4e(q z;bAudTJu*x)9@$wD0vG{8o$Md@i8-~(-A=xYb5=FjT}L3$P?64I5%sAck%^QAu_0G zI4^EPJ`)|(+qfbgRVb)ju|XYb#OGg`LKU#E6rJesG~PzuR3@n6jTt8KOO=D##nu`3 z#!o#GRE;V@b;CpOCi1PSK@G$s@$70rb*&!MI6NM|MqbaBh9~0YHG;ZbKd9FlhnTA= zOlc5Qp@g7z(_t@8Cx@B^^%uU1cee^^O1q$%#q-3KRZMLApf>ZcpdT)Uk3Ah!W-2v2 z2$${=)HgkYs+hnD;=C_#^DsQ9ns_<>;-#Q+ObzOz5QSeUGy>yi29>7?qhLwClw{xR zpb~L0T$5aSc~GP9Yxo)RhB1%-h}f~uMk)F8Y7Cz0#l2g1eDZ*qS!u`+%?h5!7@uLeJx( zrMa^q_bVKsz4#TpkbI~{geEm-uE)2@iyB9$WeYy;GCblTXS9k4X&HrH6dvOK=)}_z zGF$R3$Hp_<-mvw=%kfg~mkzKkz$@@Q^3mZDT8xddtQlU6(2da%D)cz3WL$JigyyI5 zh#QZ_+sHjrPY(XPQK$V0hRTbhdnOB@d{x|mAj*34IsH-`h~WXa6{IZq2??sukdc?QkYHd z%ObN0c|O}C6&zJ-=;*8R-1*{L;j$j>h9Pxa?3CFk@K-;Z6AQ5bM9nuQ-Zf4Y!xVQSzEJRH{hbo=if1X zAIF>V=rzooOuyZjo)6)(@c>*u~l*wXGK(la9yqX-( zWRl8c(idMRKgZnh3!a4YFn8=_u9(DJk%q_mg8Dj7PyvSa+4#%6L0x4ocp1;B;NAZ} z%&^N?zlXv+I($?%sHx3@s>RT|7B^_l#M3dTa`DnmJSr)u>Q4ss2L2vrkaG_YY85_; zH<2eE4C>7Uo(bZ*hk_cwz?IyTK?r|B&ds>ex*0=xMGA>v#@qzL~qpvls^w zTk(G~@HX=HH4%D!-TXFA&eTv+hAl>Har~@5$19e;XR8CHPFZEvXI?RH!;{$?yyB^1;f7w>8@%G!lHrCC*&D`|(7dy7}x_@IGD{aJsG zSBx$b-sAJ^4PNoNa^Z%rvp0Cf?Q!9TquCq0VrW36a7#w^7OyzJa=776_6Dzbt7^C* zr;&A5a=hZE8sUZ#*&DoKuUg@ThS?ju;`K+}_G|eNu0P7ST|3;VZ}v`J@vR39JiX5P zbG+g^b;5hRmA%0${`8<>W%dTIIJ;hW4<7Mm{W-Ji@ge;BSh(dt_7< * *--------------------------------------------------------------------------------------------------- @@ -15900,7 +15900,7 @@ DEFINE CLASS CL_DBF_TABLE AS CL_CUS_BASE #ENDIF TRY - LOCAL lcText, loEx AS EXCEPTION ; + LOCAL lcText, lcTableCFG, lcIndexKey, lcIndexFile, loEx AS EXCEPTION ; , loRecords AS CL_DBF_RECORDS OF 'FOXBIN2PRG.PRG' ; , loFields AS CL_DBF_FIELDS OF 'FOXBIN2PRG.PRG' ; , loIndexes AS CL_DBF_INDEXES OF 'FOXBIN2PRG.PRG' @@ -15924,25 +15924,34 @@ DEFINE CLASS CL_DBF_TABLE AS CL_CUS_BASE *-- Fields loFields = THIS._Fields - DO CASE - CASE INLIST(toFoxBin2Prg.DBF_Conversion_Support, 1, 2) && BIN2PRG o PRG2BIN - lcText = lcText + loFields.toText() + *** DH 06/02/2014: passed variables to toText + lcText = lcText + loFields.toText(@laFields, @lnFieldCount) - CASE toFoxBin2Prg.DBF_Conversion_Support = 4 && BIN2PRG (DATA EXPORT FOR DIFF) - *** DH 06/02/2014: passed variables to toText - lcText = lcText + loFields.toText(@laFields, @lnFieldCount) + *-- Indexes + loIndexes = THIS._Indexes + lcText = lcText + loIndexes.toText( '', '', tc_InputFile ) - *-- Indexes - loIndexes = THIS._Indexes - lcText = lcText + loIndexes.toText( '', '', tc_InputFile ) + IF toFoxBin2Prg.DBF_Conversion_Support = 4 && BIN2PRG (DATA EXPORT FOR DIFF) + *-- If table CFG exists, use it to order records. FDBOZZO. 2014/06/15 + lcTableCFG = tc_InputFile + '.CFG' + IF FILE(lcTableCFG) + toFoxBin2Prg.writeLog() + toFoxBin2Prg.writeLog('* Found configuration file: ' + lcTableCFG) + lcIndexKey = ALLTRIM( FILETOSTR(lcTableCFG), 0, ' ', CHR(13), CHR(10) ) + + IF NOT EMPTY(lcIndexKey) + lcIndexFile = FORCEEXT(tc_InputFile,'IDX') + INDEX ON &lcIndexKey. TO (lcIndexFile) COMPACT + toFoxBin2Prg.writeLog(' > Using Index order key: ' + lcIndexKey) + ENDIF + ENDIF + *** DH 06/02/2014: added _Records loRecords = THIS._Records lcText = lcText + loRecords.toText(@laFields, lnFieldCount) - OTHERWISE - *-- Ignorar soporte no contemplado - ENDCASE + ENDIF TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 <> @@ -15960,6 +15969,10 @@ DEFINE CLASS CL_DBF_TABLE AS CL_CUS_BASE FINALLY STORE NULL TO loIndexes, loFields, loRecords RELEASE loFields, loIndexes, loRecords + IF NOT EMPTY(lcIndexFile) AND FILE(lcIndexFile) + SET INDEX TO + ERASE (lcIndexFile) + ENDIF ENDTRY RETURN lcText