Changeset: 529 fdbozzo - 29/11/2014 16:39:20:

- Arreglo defecto: Quitada la capitalización a minúsculas de propiedades Protected
2014-11-29 17:16:34 +01:00
parent fe40d8dd83
commit 5af062db63
1 changed files with 2 additions and 2 deletions
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -9601,9 +9601,9 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base

 			FOR I = tnProtected_Count TO 1 STEP -1
 				*-- El ASCAN es para evitar valores repetidos, que se eliminar<61>n. v1.19.29
-				taProtected(I)	= LOWER( taProtected(I) )
+				taProtected(I)	= taProtected(I)
 				IF ASCAN( taProtected, taProtected(I), 1, -1, 0, 1+2+4 ) = I
-					tcSortedMemo	= tcSortedMemo + LOWER(taProtected(I)) + CR_LF
+					tcSortedMemo	= tcSortedMemo + taProtected(I) + CR_LF
 				ELSE
 					ADEL( taProtected, I )
 					tnProtected_Count	= tnProtected_Count - 1