From ac758d9eb4ebdb1b82fec147729c7ceec33a28b6 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Fri, 7 Mar 2014 18:58:44 +0100
Subject: [PATCH] Changeset: 191 fdbozzo - 07/03/2014 18:56:09: Arreglo metodos
 propected/hidden que se muestran por duplicado

---
 foxbin2prg.prg | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index c3fcf46..738a8c2 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -7837,7 +7837,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 					
 					*-- Segunda barrida para las propiedades Hidden/Protected que no estén definidas en Properties
 					FOR I = 1 TO lnProtected_Count
-						IF EMPTY(taProtected(I,1)) OR ASCAN(taPropsAndValues, CHRTRAN( taProtected(I), '^', '' ), 1, 0, 1, 1) > 0
+						*-- La propiedad evaluada no debe ser vacía, debe estar en la lista de PROPERTIES y no debe ser un *Método
+						IF EMPTY(taProtected(I,1)) ;
+								OR ASCAN(taPropsAndValues, CHRTRAN( taProtected(I), '^', '' ), 1, 0, 1, 1) > 0 ;
+								OR ASCAN(taPropsAndComments, '*' + CHRTRAN( taProtected(I), '^', '' ), 1, 0, 1, 1) > 0
 							LOOP
 						ENDIF