From 48e966890760f054425dd1f57cf159fa08b5f3eb Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sat, 15 Mar 2014 20:19:41 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=20208=20fdbozzo=20-=2015/03/2014=201?=
 =?UTF-8?q?9:57:01:=20-=20Arreglo=20bug=20vcx-scx:=20Si=20la=20propiedad?=
 =?UTF-8?q?=20Dataenvironment=20se=20guarda=20en=20min=C3=BAsculas,=20no?=
 =?UTF-8?q?=20se=20calcula=20el=20valor=20de=20Reserved2=20-=20Adaptacione?=
 =?UTF-8?q?s=20en=20algunos=20tests=20para=20permitir=20diferencias=20de?=
 =?UTF-8?q?=20capitalizaci=C3=B3n=20en=20algunos=20campos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 TESTS/ut__foxbin2prg.prg | 32 ++++++++++++++++----------------
 foxbin2prg.prg           |  2 +-
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/TESTS/ut__foxbin2prg.prg b/TESTS/ut__foxbin2prg.prg
index 7b72982..982e33f 100644
--- a/TESTS/ut__foxbin2prg.prg
+++ b/TESTS/ut__foxbin2prg.prg
@@ -455,9 +455,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
-				lcClass				= loReg_Esperado.CLASS
-				lcParent			= loReg_Esperado.PARENT
-				lcObjName			= loReg_Esperado.objName
+				lcClass				= LOWER(loReg_Esperado.CLASS)
+				lcParent			= LOWER(loReg_Esperado.PARENT)
+				lcObjName			= LOWER(loReg_Esperado.objName)
 
 				*-- TEST
 				IF FILE(lc_OutputFile)
@@ -473,7 +473,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 						ERROR 'No se encontró el registro de cabecera "' + UNIQUEID + '"'
 					ENDIF
 				ELSE
-					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
 					IF NOT FOUND()
 						ERROR 'No se encontró el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
 					ENDIF
@@ -704,9 +704,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
-				lcClass				= loReg_Esperado.CLASS
-				lcParent			= loReg_Esperado.PARENT
-				lcObjName			= loReg_Esperado.objName
+				lcClass				= LOWER(loReg_Esperado.CLASS)
+				lcParent			= LOWER(loReg_Esperado.PARENT)
+				lcObjName			= LOWER(loReg_Esperado.objName)
 
 				*-- TEST
 				IF FILE(lc_OutputFile)
@@ -722,7 +722,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 						ERROR 'No se encontró el registro de cabecera "' + UNIQUEID + '"'
 					ENDIF
 				ELSE
-					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
 					IF NOT FOUND()
 						ERROR 'No se encontró el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
 					ENDIF
@@ -786,9 +786,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
-				lcClass				= loReg_Esperado.CLASS
-				lcParent			= loReg_Esperado.PARENT
-				lcObjName			= loReg_Esperado.objName
+				lcClass				= LOWER(loReg_Esperado.CLASS)
+				lcParent			= LOWER(loReg_Esperado.PARENT)
+				lcObjName			= LOWER(loReg_Esperado.objName)
 
 				*-- TEST
 				IF FILE(lc_OutputFile)
@@ -804,7 +804,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 						ERROR 'No se encontró el registro de cabecera "' + UNIQUEID + '"'
 					ENDIF
 				ELSE
-					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
 					IF NOT FOUND()
 						ERROR 'No se encontró el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
 					ENDIF
@@ -868,9 +868,9 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 				*-- DATOS ESPERADOS
 				STORE 0 TO lnCodError_Esperado
 				SCATTER MEMO NAME loReg_Esperado
-				lcClass				= loReg_Esperado.CLASS
-				lcParent			= loReg_Esperado.PARENT
-				lcObjName			= loReg_Esperado.objName
+				lcClass				= LOWER(loReg_Esperado.CLASS)
+				lcParent			= LOWER(loReg_Esperado.PARENT)
+				lcObjName			= LOWER(loReg_Esperado.objName)
 
 				*-- TEST
 				IF FILE(lc_OutputFile)
@@ -886,7 +886,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
 						ERROR 'No se encontró el registro de cabecera "' + UNIQUEID + '"'
 					ENDIF
 				ELSE
-					LOCATE FOR CLASS==lcClass AND PARENT==lcParent AND objName==lcObjName
+					LOCATE FOR LOWER(CLASS)==lcClass AND LOWER(PARENT)==lcParent AND LOWER(objName)==lcObjName
 					IF NOT FOUND()
 						ERROR 'No se encontró el registro para CLASS=="' + lcClass + '" AND PARENT=="' + lcParent + '" AND objName=="' + lcObjName + '"'
 					ENDIF
diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 481193e..bd8bc13 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -4267,7 +4267,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 					toClase._PROTECTED		= .hiddenAndProtected_PAM( toClase )
 					toClase._METHODS		= .classMethods2Memo( toClase )
 					toClase._RESERVED1		= IIF( .c_Type = 'SCX', '', 'Class' )
-					toClase._RESERVED2		= IIF( .c_Type = 'VCX' OR toClase._Nombre == 'Dataenvironment', TRANSFORM( toClase._AddObject_Count + 1 ), '' )
+					toClase._RESERVED2		= IIF( .c_Type = 'VCX' OR PROPER(toClase._Nombre) == 'Dataenvironment', TRANSFORM( toClase._AddObject_Count + 1 ), '' )
 					toClase._RESERVED3		= .defined_PAM2Memo( toClase )
 					toClase._RESERVED4		= toClase._ClassIcon
 					toClase._RESERVED5		= toClase._ProjectClassIcon