Changeset: 520 fdbozzo - 23/11/2014 19:16:28:

- Arreglo bug introducido en el desarrollo respecto de la línea vacía en cabecera que solo debe crearse cuando hay OLE (por compatibilidad)

foxbin2prg.prg

@@ -10300,6 +10300,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 		*-- Crea la definici<63>n del tag *< OLE: /> con la informaci<63>n de todos los objetos OLE
 		LPARAMETERS toFoxBin2Prg
 
+		LOCAL laOLE(1)
 		*!*			LOCAL lnOLECount, lcOLEChecksum, llOleExistente, loReg
 
 		*!*			#IF .F.
@@ -10339,10 +10340,21 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 
 		*!*				ENDSCAN
 
-		TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-			<<>>
-			*
-		ENDTEXT
+		SELECT COUNT(*) FROM TABLABIN WHERE TABLABIN.PLATFORM = "WINDOWS" AND BASECLASS == 'olecontrol' INTO ARRAY laOLE
+		
+		IF laOLE(1) > 0 THEN
+			*-- Lo del <<>> para crear una l<>nea vac<61>a es solamente por compatibilidad con lo antiguo,
+			*-- donde se creaba esta l<>nea cuando el form o clase ten<65>a al menos un objeto OLE.
+			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
+				<<>>
+				*
+			ENDTEXT
+		ELSE
+
+			TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
+				*
+			ENDTEXT
+		ENDIF
 
 		*!*			CATCH TO loEx
 		*!*				IF THIS.l_Debug AND _VFP.STARTMODE = 0