From a5c4693922d02f65cf2413acd631bdc2b9f8ec4d Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Thu, 31 Jul 2014 20:56:34 +0200
Subject: [PATCH] =?UTF-8?q?Changeset:=20384=20fdbozzo=20-=2031/07/2014=202?=
 =?UTF-8?q?0:54:10:=20-=20Optimizaci=C3=B3n=20y=20normalizaci=C3=B3n=20de?=
 =?UTF-8?q?=20las=20propiedades=20y=20m=C3=A9todos=20que=20van=20en=20el?=
 =?UTF-8?q?=20memo=20PROTECTED=20para=20que=20no=20se=20repitan?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index d0da57c..505d86d 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -8495,9 +8495,17 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 				ASORT( taProtected, 1, -1, 0, 1 )
 			ENDIF
 
-			FOR I = 1 TO tnProtected_Count
-				tcSortedMemo	= tcSortedMemo + taProtected(I) + CR_LF
+			FOR I = tnProtected_Count TO 1 STEP -1
+				*-- El ASCAN es para evitar valores repetidos, que se eliminarán. v1.19.29
+				IF ASCAN( taProtected, taProtected(I), 1, -1, 0,1+2+4 ) = I
+					tcSortedMemo	= tcSortedMemo + LOWER(taProtected(I)) + CR_LF
+				ELSE
+					ADEL( taProtected, I )
+					tnProtected_Count	= tnProtected_Count - 1
+				ENDIF
 			ENDFOR
+			
+			DIMENSION taProtected(tnProtected_Count)
 		ENDIF
 
 		RETURN