- Algunos ajustes sobre la actualización de la progressbar

- Mejora API: Nuevo método get_DirSettings() para devolver el objeto CFG del directorio indicado

foxbin2prg.prg

@@ -246,10 +246,12 @@
 * tc_InputFile				(v! IN    ) Nombre completo (fullpath) del archivo a convertir o nombre del directorio a procesar
 *										- Si se indica "BIN2PRG", se procesa el directorio indicado en tcType para generar los TX2
 *										- Si se indica "PRG2BIN", se procesa el directorio indicado en tcType para generar los BIN
-* tcType					(v? IN    ) Tipo de archivo de entrada. Compatibilidad con SCCTEXT.PRG
+*										- En modo compatibilidad con Visual SourceSafe, se usa para preguntar el tipo de soporte de conversi<73>n para el tipo de archivo indicado
+* tcType					(v? IN    ) Tipo de archivo de entrada
 *										- Si se indica "*" y tc_InputFile es un PJX, se procesa todo el proyecto
-* tcTextName				(v? IN    ) Nombre del archivo texto. Compatibilidad con SCCTEXT.PRG
+*										- En modo compatibilidad con Visual SourceSafe, indica el tipo de archivo a convertir
-* tlGenText					(v? IN    ) .T.=Genera Texto, .F.=Genera Binario. Compatibilidad con SCCTEXT.PRG
+* tcTextName				(v? IN    ) Nombre del archivo texto. (Solo para compatibilidad con Visual SourceSafe)
+* tlGenText					(v? IN    ) .T.=Genera Texto, .F.=Genera Binario. (Solo para compatibilidad con Visual SourceSafe)
 * tcDontShowErrors			(v? IN    ) '1' para NO mostrar errores con MESSAGEBOX
 * tcDebug					(v? IN    ) '1' para depurar en el sitio donde ocurre el error (solo modo desarrollo)
 * tcDontShowProgress		(v? IN    ) '1' para NO mostrar la ventana de progreso
@@ -681,7 +683,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 	c_BackgroundImage				= ''
 	l_ClearUniqueID                 = .T.
 	l_ClearDBFLastUpdate        	= .T.
-	n_OptimizeByFilestamp           = 2
+	n_OptimizeByFilestamp           = 0
 	l_MethodSort_Enabled			= .T.			&& Para Unit Testing se puede cambiar a .F. para buscar diferencias
 	l_PropSort_Enabled				= .T.			&& Para Unit Testing se puede cambiar a .F. para buscar diferencias
 	l_ReportSort_Enabled			= .T.			&& Para Unit Testing se puede cambiar a .F. para buscar diferencias
@@ -896,7 +898,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 		TRY
 			*-- Si o_Frm_Avance se habilit<69> de forma externa, n_ShowProgressbar podr<64>a ser 0 para controlarlo desde fuera.
 			WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
-				IF .l_ProcessFiles AND VARTYPE(.o_Frm_Avance) = "O" THEN
+				IF VARTYPE(.o_Frm_Avance) = "O" THEN
 					*-- Cuando esta rutina se invoca desde el script, este m<>todo es el #1 y no puede cancelarse todav<61>a
 					IF .o_Frm_Avance.l_Cancelled AND PROGRAM(-1) > 1 THEN
 						ERROR 1799
@@ -2256,13 +2258,15 @@ DEFINE CLASS c_foxbin2prg AS Session
 		*--------------------------------------------------------------------------------------------------------------
 		* PAR<41>METROS:				(v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
 		* tc_InputFile				(v! IN    ) Nombre completo (fullpath) del archivo a convertir o nombre del directorio a procesar
+		*										- En modo compatibilidad con Visual SourceSafe, se usa para preguntar el tipo de soporte de conversi<73>n para el tipo de archivo indicado
 		* tcType					(v? IN    ) Tipo de archivo de entrada. Compatibilidad con SCCTEXT.PRG
 		*										- Si se indica "*" y tc_InputFile es un PJX, se procesan todos los archivos del proyecto y el PJX/2
 		*										- Si se indica "*-" y tc_InputFile es un PJX, se procesan todos los archivos del proyecto sin el PJX/2
 		*										- Si se indica "BIN2PRG", se procesa el directorio indicado en tc_InputFile para generar los TX2
 		*										- Si se indica "PRG2BIN", se procesa el directorio indicado en tc_InputFile para generar los BIN
-		* tcTextName				(v? IN    ) Nombre del archivo texto. Compatibilidad con SCCTEXT.PRG
+		*										- En modo compatibilidad con Visual SourceSafe, indica el tipo de archivo a convertir
-		* tlGenText					(v? IN    ) .T.=Genera Texto, .F.=Genera Binario. Compatibilidad con SCCTEXT.PRG
+		* tcTextName				(v? IN    ) Nombre del archivo texto. (Solo para compatibilidad con Visual SourceSafe)
+		* tlGenText					(v? IN    ) .T.=Genera Texto, .F.=Genera Binario. (Solo para compatibilidad con Visual SourceSafe)
 		* tcDontShowErrors			(v? IN    ) '1' para no mostrar mensajes de error (MESSAGEBOX)
 		* tcDebug					(v? IN    ) '1' para habilitar modo debug (SOLO DESARROLLO)
 		* tcDontShowProgress		(v? IN    ) '1' para inhabilitar la barra de progreso
@@ -2456,7 +2460,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 						ENDIF
 
 						IF EVL(tcType,'0') <> '*' THEN
-							IF .n_ShowProgressbar <> 0 THEN
+							IF .n_ShowProgressbar <> 0 AND .l_ProcessFiles THEN
 								.cargar_frm_avance()
 							ENDIF
 
@@ -2499,7 +2503,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 					CASE ATC('-BIN2PRG', ('-' + tcType)) >= 1
 						.writeLog( '> ' + loLang.C_OPTION_LOC + ': BIN2PRG' )
 
-						IF .n_ShowProgressbar <> 0 THEN
+						IF .n_ShowProgressbar <> 0 AND .l_ProcessFiles THEN
 							.cargar_frm_avance()
 							.o_Frm_Avance.Caption = STRTRAN( .o_Frm_Avance.Caption, '> -', '(Bin>Txt) -' )
 						ENDIF
@@ -2559,7 +2563,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 					CASE ATC('-PRG2BIN', ('-' + tcType)) >= 1
 						.writeLog( '> ' + loLang.C_OPTION_LOC + ': PRG2BIN' )
 
-						IF .n_ShowProgressbar <> 0 THEN
+						IF .n_ShowProgressbar <> 0 AND .l_ProcessFiles THEN
 							.cargar_frm_avance()
 							.o_Frm_Avance.Caption = STRTRAN( .o_Frm_Avance.Caption, '> -', '(Txt>Bin) -' )
 						ENDIF
@@ -2683,7 +2687,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 						ENDCASE
 
 						IF FILE(tc_InputFile)
-							IF .n_ShowProgressbar = 1 THEN
+							IF .n_ShowProgressbar <> 0 AND .l_ProcessFiles THEN
 								.cargar_frm_avance()
 							ENDIF
 
@@ -2824,7 +2828,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 				loLang		= _SCREEN.o_FoxBin2Prg_Lang
 				lcFileSpec	= FULLPATH( tc_InputFile )
 
-				IF .n_ShowProgressbar <> 0 THEN
+				IF .n_ShowProgressbar <> 0 AND .l_ProcessFiles THEN
 					.cargar_frm_avance()
 					.o_Frm_Avance.Caption = STRTRAN( .o_Frm_Avance.Caption, '> -', '(Bin>Txt) -' )
 				ENDIF
@@ -2925,7 +2929,7 @@ DEFINE CLASS c_foxbin2prg AS Session
 				loLang		= _SCREEN.o_FoxBin2Prg_Lang
 				lcFileSpec	= FULLPATH( tc_InputFile )
 
-				IF .n_ShowProgressbar <> 0 THEN
+				IF .n_ShowProgressbar <> 0 AND .l_ProcessFiles THEN
 					.cargar_frm_avance()
 					.o_Frm_Avance.Caption = STRTRAN( .o_Frm_Avance.Caption, '> -', '(Txt>Bin) -' )
 				ENDIF
@@ -3414,6 +3418,18 @@ DEFINE CLASS c_foxbin2prg AS Session
 	ENDPROC
 
 
+	PROCEDURE get_DirSettings
+		*---------------------------------------------------------------------------------------------------
+		* PAR<41>METROS:				(v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
+		* tcDir						(@? IN    ) Directorio del que devolver su configuraci<63>n
+		* RETORNO					(@?    OUT) Objeto CFG
+		*---------------------------------------------------------------------------------------------------
+		LPARAMETERS tcDir
+		THIS.EvaluarConfiguracion( '', '', '', '', '', '', '', '', tcDir, 'D' )
+		RETURN THIS.o_Configuration(THIS.n_CFG_Actual)
+	ENDPROC
+
+
 	PROCEDURE get_PROGRAM_HEADER
 		LOCAL lcText
 		lcText	= ''