- Agregado nuevo switch l_AutoClearProcessedFiles con .T. por defecto
- Arreglado reporte que tenía un CR en vez de un CR+LF en uno de los campos memo
This commit is contained in:
Binary file not shown.
Binary file not shown.
BIN
foxbin2prg.exe
BIN
foxbin2prg.exe
Binary file not shown.
@@ -549,6 +549,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
+ [<memberdata name="run_aftercreate_db2" display="run_AfterCreate_DB2"/>] ;
|
||||
+ [<memberdata name="lfilemode" display="lFileMode"/>] ;
|
||||
+ [<memberdata name="l_allowmulticonfig" display="l_AllowMultiConfig"/>] ;
|
||||
+ [<memberdata name="l_autoclearprocessedfiles" display="l_AutoClearProcessedFiles"/>] ;
|
||||
+ [<memberdata name="l_cancelwithesckey" display="l_CancelWithEscKey"/>] ;
|
||||
+ [<memberdata name="l_cfg_cachedaccess" display="l_CFG_CachedAccess"/>] ;
|
||||
+ [<memberdata name="l_classperfilecheck" display="l_ClassPerFileCheck"/>] ;
|
||||
@@ -649,6 +650,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
n_ShowProgressbar = 1
|
||||
n_ForceWriteIfReadOnly = 0
|
||||
l_AllowMultiConfig = .T.
|
||||
l_AutoClearProcessedFiles = .T. && Por defecto limpia archivos procesados entre ejecuci<63>n y ejecuci<63>n
|
||||
l_CancelWithEscKey = .T.
|
||||
l_DropNullCharsFromCode = .T.
|
||||
l_Recompile = .T.
|
||||
@@ -849,6 +851,9 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
|
||||
|
||||
PROCEDURE ClearProcessedFiles
|
||||
*-- Limpia las estad<61>sticas de archivos procesados que se usan para optimizar
|
||||
*-- el procesamiento y evitar el reproceso de los mismos archivos, por ejemplo,
|
||||
*-- de un mismo VCX compartido por 2 <20> m<>s proyectos.
|
||||
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
.n_ProcessedFilesCount = 0
|
||||
.n_ProcessedFiles = 0
|
||||
@@ -2030,6 +2035,10 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
lnPCount = 0
|
||||
lcInputFile_Type = ''
|
||||
|
||||
IF .l_AutoClearProcessedFiles THEN
|
||||
.ClearProcessedFiles() && Para evitar acumular procesos anteriores
|
||||
ENDIF
|
||||
|
||||
*-- Funciona y lee los par<61>metros, pero no le veo un caso de uso claro, ya que si se eligen
|
||||
*-- varios directorios de proyecto, la compilaci<63>n ser<65> err<72>nea. 12/12/2014
|
||||
*.ReadInputVFPParams( @laParams, @lnPCount )
|
||||
|
||||
Reference in New Issue
Block a user