From 87b0e44975ba5c788dfdfa8f8fc3242e29d15413 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Thu, 13 Nov 2014 22:35:27 +0100
Subject: [PATCH] Changeset: 483 fdbozzo - 13/11/2014 00:00:48:

---
 foxbin2prg.prg | 128 ++++++++++++++++++++++++-------------------------
 1 file changed, 64 insertions(+), 64 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index e47eebd..afe63ce 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -4045,6 +4045,70 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 
 
 
+	*******************************************************************************************************************
+	FUNCTION get_ValueByName_FromListNamesWithValues
+		*-- ASIGNO EL VALOR DEL ARRAY DE DATOS Y VALORES PARA LA PROPIEDAD INDICADA
+		LPARAMETERS tcPropName, tcValueType, taPropsAndValues
+		LOCAL lnPos, luPropValue
+
+		lnPos	= ASCAN( taPropsAndValues, tcPropName, 1, 0, 1, 1+2+4+8)
+
+		IF lnPos = 0 OR EMPTY( taPropsAndValues( lnPos, 2 ) )
+			*-- Valores no encontrados o vacíos
+			luPropValue	= ''
+		ELSE
+			luPropValue	= taPropsAndValues( lnPos, 2 )
+		ENDIF
+
+		DO CASE
+		CASE tcValueType = 'I'
+			luPropValue	= CAST( luPropValue AS INTEGER )
+
+		CASE tcValueType = 'N'
+			luPropValue	= CAST( luPropValue AS DOUBLE )
+
+		CASE tcValueType = 'T'
+			luPropValue	= CAST( luPropValue AS DATETIME )
+
+		CASE tcValueType = 'D'
+			luPropValue	= CAST( luPropValue AS DATE )
+
+		CASE tcValueType = 'E'
+			luPropValue	= EVALUATE( luPropValue )
+
+		OTHERWISE && Asumo 'C' para lo demás
+			luPropValue	= luPropValue
+
+		ENDCASE
+
+		RETURN luPropValue
+	ENDFUNC
+
+
+
+	*******************************************************************************************************************
+	PROCEDURE analizarBloque_FoxBin2Prg
+		*------------------------------------------------------
+		*-- Analiza el bloque <FOXBIN2PRG>
+		*------------------------------------------------------
+		LPARAMETERS toModulo, tcLine, taCodeLines, I, tnCodeLines
+
+		LOCAL llBloqueEncontrado, laPropsAndValues(1,2), lnPropsAndValues_Count
+
+		IF LEFT( tcLine + ' ', LEN(C_FB2PRG_META_I) + 1 ) == C_FB2PRG_META_I + ' '
+			llBloqueEncontrado	= .T.
+
+			*-- Metadatos del módulo
+			THIS.get_ListNamesWithValuesFrom_InLine_MetadataTag( @tcLine, @laPropsAndValues, @lnPropsAndValues_Count, C_FB2PRG_META_I, C_FB2PRG_META_F )
+			toModulo._Version		= THIS.get_ValueByName_FromListNamesWithValues( 'Version', 'N', @laPropsAndValues )
+			toModulo._SourceFile	= THIS.get_ValueByName_FromListNamesWithValues( 'SourceFile', 'C', @laPropsAndValues )
+		ENDIF
+
+		RETURN llBloqueEncontrado
+	ENDPROC
+
+
+
 	*******************************************************************************************************************
 	PROCEDURE createProject
 
@@ -4647,47 +4711,6 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 
 
 
-	*******************************************************************************************************************
-	FUNCTION get_ValueByName_FromListNamesWithValues
-		*-- ASIGNO EL VALOR DEL ARRAY DE DATOS Y VALORES PARA LA PROPIEDAD INDICADA
-		LPARAMETERS tcPropName, tcValueType, taPropsAndValues
-		LOCAL lnPos, luPropValue
-
-		lnPos	= ASCAN( taPropsAndValues, tcPropName, 1, 0, 1, 1+2+4+8)
-
-		IF lnPos = 0 OR EMPTY( taPropsAndValues( lnPos, 2 ) )
-			*-- Valores no encontrados o vacíos
-			luPropValue	= ''
-		ELSE
-			luPropValue	= taPropsAndValues( lnPos, 2 )
-		ENDIF
-
-		DO CASE
-		CASE tcValueType = 'I'
-			luPropValue	= CAST( luPropValue AS INTEGER )
-
-		CASE tcValueType = 'N'
-			luPropValue	= CAST( luPropValue AS DOUBLE )
-
-		CASE tcValueType = 'T'
-			luPropValue	= CAST( luPropValue AS DATETIME )
-
-		CASE tcValueType = 'D'
-			luPropValue	= CAST( luPropValue AS DATE )
-
-		CASE tcValueType = 'E'
-			luPropValue	= EVALUATE( luPropValue )
-
-		OTHERWISE && Asumo 'C' para lo demás
-			luPropValue	= luPropValue
-
-		ENDCASE
-
-		RETURN luPropValue
-	ENDFUNC
-
-
-
 	*******************************************************************************************************************
 	PROCEDURE defined_PAM2Memo
 		*--------------------------------------------------------------------------------------------------------------
@@ -5435,29 +5458,6 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 
 
 
-	*******************************************************************************************************************
-	PROCEDURE analizarBloque_FoxBin2Prg
-		*------------------------------------------------------
-		*-- Analiza el bloque <FOXBIN2PRG>
-		*------------------------------------------------------
-		LPARAMETERS toModulo, tcLine, taCodeLines, I, tnCodeLines
-
-		LOCAL llBloqueEncontrado, laPropsAndValues(1,2), lnPropsAndValues_Count
-
-		IF LEFT( tcLine + ' ', LEN(C_FB2PRG_META_I) + 1 ) == C_FB2PRG_META_I + ' '
-			llBloqueEncontrado	= .T.
-
-			*-- Metadatos del módulo
-			THIS.get_ListNamesWithValuesFrom_InLine_MetadataTag( @tcLine, @laPropsAndValues, @lnPropsAndValues_Count, C_FB2PRG_META_I, C_FB2PRG_META_F )
-			toModulo._Version		= THIS.get_ValueByName_FromListNamesWithValues( 'Version', 'N', @laPropsAndValues )
-			toModulo._SourceFile	= THIS.get_ValueByName_FromListNamesWithValues( 'SourceFile', 'C', @laPropsAndValues )
-		ENDIF
-
-		RETURN llBloqueEncontrado
-	ENDPROC
-
-
-
 	*******************************************************************************************************************
 	PROCEDURE analizarBloque_HIDDEN
 		LPARAMETERS toClase, tcLine