Bug Fix: ClassPerFile didn't work correctly starting from v1.19.49 Reported by Lutz Scheffler (https://github.com/fdbozzo/foxbin2prg/issues/9)

FoxBin2PRGVersionFile.txt

@@ -21,8 +21,13 @@ Demo video using FoxBin2Prg with PlasticSCM: http://youtu.be/sE4wQ50Itqg
 
 Change History -------------------------------------------------------------
 
+2017/12/02  v1.19.49.2
+- Bug Fix: ClassPerFile didn't work correctly starting from v1.19.49 / Reported by Lutz Scheffler (https://github.com/fdbozzo/foxbin2prg/issues/9)
+
+2017/06/25  v1.19.49.1
+- Bug Fix: DEVINFO field is only used when doing PJX conversions. On other files throw errors
+
 2017/04/26	v1.19.49
-v1.19.49
 - Replace Scripting.FileSystemObject MoveFile with Win32API equivalent
 - Added support for using temporal CFG file for low-level API operations
 - Bug Fix: Single-class export with "classlib.vcx::classname" syntax did not export (Lutz Scheffler)

foxbin2prg.prg

@@ -199,6 +199,7 @@
 * 11/04/2017	FDBOZZO		v1.19.49	Bug Fix frx: Cuando dentro de una expresión se usa "&&", se corrompe el registro del FRX generado (Alejandro A Sosa)
 * 11/04/2017	FDBOZZO		v1.19.49	Mejora cfg : En modo objeto permitir indicar un objeto CFG en lugar de un archivo CFG (Lutz Scheffler)
 * 12/04/2017	DH&FDBOZZO	v1.19.49	Bug Fix & Report pjx: No se estaba guardando el campo User en los archivos PJX (Doug Hennig)
+* 02/12/2017	FDBOZZO		v1.19.49.2	Bug Fix tx2 v1.19.49: No exporta los objetos a TX2 cuando se usa ClassPerFile (Lutz Scheffler)
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -312,6 +313,7 @@
 * 30/03/2017	Alejandro A Sosa	Reporte bug frx v1.19.48: Cuando dentro de una expresión se usa "&&", se corrompe el registro del FRX generado (Arreglado en v1.19.49)
 * 28/03/2017	Lutz Scheffler		Mejora cfg v1.19.48: En modo objeto permitir indicar un objeto CFG en lugar de un archivo CFG (Agragado en v1.19.49)
 * 06/04/2017	Doug Hennig			Reporte Bug y arreglo parcial PJX v1.19.48: No se estaba guardando el campo User en los archivos PJX (Agregado en v1.19.49)
+* 28/11/2017	Lutz Scheffler		Reporte Bug tx2 v1.19.49: No exporta los objetos a TX2 cuando se usa ClassPerFile (Arreglado en v1.19.49.2)
 * </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
 *
 *---------------------------------------------------------------------------------------------------
@@ -8577,8 +8579,6 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 				ENDIF
 
 				*-- Inserto el objeto
-				IF JUSTEXT(toFoxBin2Prg.c_InputFile) = toFoxBin2Prg.c_PJ2
-					* Solo los PJX/PJ2 tienen el campo DEVINFO
 				INSERT INTO TABLABIN ;
 					( PLATFORM ;
 					, UNIQUEID ;
@@ -8627,54 +8627,6 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 					, '' ;
 					, STRCONV(toObjeto._User,14) ;
 					, STRCONV(toObjeto._DevInfo,14) )
-				ELSE
-					INSERT INTO TABLABIN ;
-						( PLATFORM ;
-						, UNIQUEID ;
-						, TIMESTAMP ;
-						, CLASS ;
-						, CLASSLOC ;
-						, BASECLASS ;
-						, OBJNAME ;
-						, PARENT ;
-						, PROPERTIES ;
-						, PROTECTED ;
-						, METHODS ;
-						, OLE ;
-						, OLE2 ;
-						, RESERVED1 ;
-						, RESERVED2 ;
-						, RESERVED3 ;
-						, RESERVED4 ;
-						, RESERVED5 ;
-						, RESERVED6 ;
-						, RESERVED7 ;
-						, RESERVED8 ;
-						, USER ) ;
-						VALUES ;
-						( 'WINDOWS' ;
-						, toObjeto._UniqueID ;
-						, toObjeto._TimeStamp ;
-						, toObjeto._Class ;
-						, toObjeto._ClassLib ;
-						, toObjeto._BaseClass ;
-						, toObjeto._ObjName ;
-						, toObjeto._Parent ;
-						, lcPropsMemo ;
-						, '' ;
-						, lcMethodsMemo ;
-						, toObjeto._Ole ;
-						, toObjeto._Ole2 ;
-						, '' ;
-						, '' ;
-						, '' ;
-						, '' ;
-						, '' ;
-						, '' ;
-						, '' ;
-						, '' ;
-						, STRCONV(toObjeto._User,14) )
-				ENDIF
 			ENDIF
 		ENDWITH && THIS
 
@@ -15371,7 +15323,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
 			WITH THIS AS c_conversor_vcx_a_prg OF 'FOXBIN2PRG.PRG'
 				USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG
 
-				IF toFoxBin2Prg.n_UseClassPerFile = 0 AND EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
+				IF toFoxBin2Prg.n_UseClassPerFile = 0 OR EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
 					*-- Exportar la librería entera a texto
 					SELECT _TABLAORIG.*,RECNO() regnum FROM _TABLAORIG INTO CURSOR TABLABIN
 				ELSE
@@ -15458,7 +15410,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
 
 					.write_CLASSMETADATA( @loRegClass, @lcCodigo )
 
-					IF toFoxBin2Prg.n_UseClassPerFile > 0 OR EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
+					IF toFoxBin2Prg.n_UseClassPerFile > 0 OR NOT EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
 						.write_EXTERNAL_CLASS_HEADER( @loRegClass, @toFoxBin2Prg, @lcExternalHeader )
 					ENDIF