romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 465 fdbozzo - 05/11/2014 20:06:45:

Browse Source 
- Uso de Filename_caps como objeto
This commit is contained in:
fdbozzo
2014-11-05 20:50:58 +01:00
parent 133aaea79c
commit 56064ce7a7
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
filename_caps.exe
View File

Binary file not shown.

9
foxbin2prg.prg
View File

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