From 56064ce7a771a38ce3e578a4482a816c6f22ad4e Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Wed, 5 Nov 2014 20:50:58 +0100
Subject: [PATCH] Changeset: 465 fdbozzo - 05/11/2014 20:06:45: - Uso de
 Filename_caps como objeto

---
 filename_caps.exe | Bin 29493 -> 30077 bytes
 foxbin2prg.prg    |   9 ++++++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/filename_caps.exe b/filename_caps.exe
index 125449623871366371f2f5a83154b2aa7491e73f..056049b1f26cc7f5a6d4cfe8b2f3bf547f12a1b5 100644
GIT binary patch
delta 1299
zcmZWpTTC2P82--e?9A=}-G#y~vJ{qDtTeqL)+;2g!z_|)cX5}kw5Th}78V9rC?-}#
zL}Oy(C8@{8;6odl_+a9V5*~T6_Ep=&KKNuztwwn8Qo=%Z=fr=8dW$FX@Ba7m{r@@V
zU;c?%tLzI;zt;r`_Hyyc{*dQ^Z@*zk&0ppB_CLeg___W=tZnH^f2T+3s042Mxo@y`
z_L1e3o-~YjM<N=n(2_<fkxuG{Eio`OQ?f=M&`C7y2i_!kkob*{vc^v0OUnr1^8%n2
z7?DKeB9e*R5C%RgD8#CGyy%A>%S5|lMm%!V$mo%t)a7C&qO&<O8y^_UX7qvlse}2c
zA+?~9w--jAZuInaC*mTEUdrGv>EHSBoSBLKJ7P6%i59XewjG26gad>Fgad>FgkxRB
zMj0&O#iJ$iw1f-ka%kw)quu<~eC#0&F=Dr&xe-f5<9Y@DQaD&$=t*|TWHS0R5cuxi
zNUZyWF~f%jo8-JE-sf)*nyOj|P_;o`7(B#+d~f!xz%5Bsp}9nWiVRVowdG!6BFX25
zgZ%rfKKrXAe1yKnM!zZfpR%af=8{f|O-bu0YP4%YH#*ZvBV0|fJ0wv@?g6J63}M@k
zNxL=~Q!L>@Xv=-4Br0xukk%418bpW`%nq^hQt*>S7xZY?>Qze;aR*BJq|Vm({K;YY
zE?IOqs`{Z$X}8Ru9r}tb^1Z{Y>{EVxcn|w{>6PJ^8Jpt8T&r)~OPkd`w&ji}TkaQB
zes-jW_l&qDQ{hjHw6G8O+{ixmCI4h(UvN!va8(hEf{#wXgL|BiNpruHQTYW^=TDC|
zDreL!cbS*Bnl(z=F8DG(Kl&iE=r_b~jW$U4d-#RXI)1=xkS9E%o-d46?<n{|rEF)U
zSjxz5ES)!HcDJU9J(#Dub?OCu8#|#Fs<3)}^&04ZJ&283!qV;({KHs_Y--|!BQ%dE
z>ek8#G98@^0`iVVtz6me@z4C-@ql&*80im`iI<#+E8{aAb;u}13H!s!x`ILo3Y}@i
zwonhHsFKCZjc3D(ZrgW}_dgB|e0HLS-QedYjy*h9F3RZ4g4C=ZEvIj=`&LC*ea`i$
z#$nn!S1$aHSdIma<W#w6AuIvjo^NN3{B-_$wMrK|bv)I2pBJ%sPa;Lvsf))akIvF1
z9?0jW2h7}y*&MwX`cOen;^Hq3YrhcM^MB7xf&Tod>4~v68Ues>Y>^$4CF!j69*$s<
zy$0QT2@6t$UBetvg#Cdg*5r<04!?s*3v3Rg#U;j9Cci$?hKulPt#+pWES02y2J|%n
lhlziK$nw(MA^9NxaO(8#n>2~+$rL5}d%YgH&Cbwp`xDo;oGbtU

delta 723
zcmYL{Ur5tY6vxlG?)USz&H0<o&E=LkQfOkSs~#dH<+qK9YT>_!#;Bm_)ZhG*B^f0s
z(Mvr<hk_m)2)z~bM||i(2&$JLOi1X-hY%l(D8!t@?Pq7J=yLD5=iGblJ)isK=GJk3
z4PPixvj744Ca5gxQJ!B~L@=)V=}7b<2Iyh55d(AYqd`UfRSGauO6p~ITjO%4))5Mw
zZH<J(HcLmSGt%9mh4NAUqPo2K+fMVL3HHz10M=56Lk{+{c6u83nTjmNJ^B>aDcE}m
zoix^a*KtP}<xrPR3)n#jtGSFcPi1|vvT0$sp(~AG&uZGXu*Yb%FOHLRDv>a~E;3r_
zM_(m<Oa#Sz5jpzbVUWJ`H)9)F25PZou5sWdqD0RIn@iDb*uZ@<BYl=Kl9j#<dc>|o
zitfjH3h4FNO)<URH7RpeSGt_brB%oo3Iy`mGx|ZXA=9}bjnw2mpSL(8r4+*pB@6{=
z8*HO#s~CD2y}N?Zdnl4ThWFWe=t;5~KNP$b_5|gU`$bBjl-_{jbCDqv9+)v3weXm4
z(zX$~Z#h6?g7xL~CE$6}30p2kX(>GQ!LVQKnrUG;Q8j60R+h{JT(ZVum|%f<JsIf+
zofvT`m4Lkd#zL`?N3CwSAnyohsF62iNbdoewY2>SszBZ;<{iC%C|)CL`F#&(|4;Bz
z)2I{2DLmS997+r;>*Hj7R&xcZATL!p^Qp|Dr7NI`t7ff+y%3hbtcBw>tKnyS7kwXX
z!M#)+@1$E-rpYmO#`hCn;%#`Vyn<QLj!Q7bqa8QEhd!wtreKOz#unA)f4}O_Okb}~
O2>y|=YhKe)72r1{3-PZ2

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 31d27f6..b58225c 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -535,6 +535,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 		+ [<memberdata name="n_fb2prg_version" display="n_FB2PRG_Version"/>] ;
 		+ [<memberdata name="o_conversor" display="o_Conversor"/>] ;
 		+ [<memberdata name="o_frm_avance" display="o_Frm_Avance"/>] ;
+		+ [<memberdata name="o_fnc" display="o_FNC"/>] ;
 		+ [<memberdata name="o_fso" display="o_FSO"/>] ;
 		+ [<memberdata name="o_configuration" display="o_Configuration"/>] ;
 		+ [<memberdata name="pjx_conversion_support" display="PJX_Conversion_Support"/>] ;
@@ -605,6 +606,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 	o_Conversor				= NULL
 	o_Frm_Avance			= NULL
 	o_FSO					= NULL
+	o_FNC					= NULL	&& Filename_caps object
 	o_Configuration			= NULL
 	run_AfterCreateTable	= ''
 	run_AfterCreate_DB2		= ''
@@ -672,6 +674,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 
 		FINALLY
 			THIS.o_FSO	= NULL
+			THIS.o_FNC	= NULL
+			SET PROCEDURE TO
 		ENDTRY
 
 		RETURN
@@ -2280,6 +2284,9 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 					IF FILE(lcEXE_CAPS)
 						*.writeLog( '* Se ha encontrado el programa de capitalización de nombres [' + lcEXE_CAPS + ']' )
 						.writeLog( TEXTMERGE(C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC) )
+						SET PROCEDURE TO (lcEXE_CAPS) ADDITIVE
+						.o_FNC	= CREATEOBJECT( 'cl_FileName_Caps' )
+
 						.n_ExisteCapitalizacion	= 1
 					ELSE
 						*-- No existe el programa de capitalización, así que no se capitalizan los nombres.
@@ -2358,7 +2365,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 		THIS.writeLog( TEXTMERGE(C_REQUESTING_CAPITALIZATION_OF_FILE_LOC) )
 		THIS.ChangeFileAttribute( tcFileName, '+N' )
 		lcLog	= ''
-		DO (tcEXE_CAPS) WITH tcFileName, '', 'F', lcLog, tlRelanzarError, '1'
+		THIS.o_FNC.Capitalize( tcFileName, '', 'F', lcLog, tlRelanzarError, '1' )
 		THIS.writeLog( lcLog )
 	ENDPROC