From 5085588d29ae9a0cba5484ddc9c585a3a024dbb3 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 9 Mar 2014 17:53:23 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=20199=20fdbozzo=20-=2009/03/2014=201?=
 =?UTF-8?q?4:22:20:=20-=20Arreglo=20de=20bug:=20cuando=202=20o=20m=C3=A1s?=
 =?UTF-8?q?=20m=C3=A9todos=20contienen=20el=20mismo=20nombre=20(ej:=20met?=
 =?UTF-8?q?=20y=20met2)=20se=20genera=20mal=20el=20tx2=20(Ryan=20Harris)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index a4c9e55..31fbdfd 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -7867,23 +7867,24 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 				WITH THIS AS c_conversor_bin_a_prg OF 'FOXBIN2PRG.PRG'
 					FOR I = 1 TO tnMethodCount
 						lcMethod			= CHRTRAN( taMethods(I,1), '^', '' )
-						lnProtectedItem		= ASCAN( taProtected, taMethods(I,1), 1, 0, 0, 1)
-						lnCommentRow		= ASCAN( taPropsAndComments, '*' + lcMethod, 1, 0, 1, 1+8)
+						lnProtectedItem		= ASCAN( taProtected, taMethods(I,1), 1, 0, 0, 1+2+4)
 
-						DO CASE
-						CASE lnProtectedItem = 0
-							*-- Método común
-							lcProcDef	= 'PROCEDURE'
+						IF lnProtectedItem = 0
+							lnProtectedItem		= ASCAN( taProtected, taMethods(I,1) + '^', 1, 0, 0, 1+2+4)
 
-						CASE taProtected(lnProtectedItem) == taMethods(I,1)
+							IF lnProtectedItem = 0
+								*-- Método común
+								lcProcDef	= 'PROCEDURE'
+							ELSE
+								*-- Método oculto
+								lcProcDef	= 'HIDDEN PROCEDURE'
+							ENDIF
+						ELSE
 							*-- Método protegido
 							lcProcDef	= 'PROTECTED PROCEDURE'
+						ENDIF
 
-						CASE taProtected(lnProtectedItem) == taMethods(I,1) + '^'
-							*-- Método oculto
-							lcProcDef	= 'HIDDEN PROCEDURE'
-
-						ENDCASE
+						lnCommentRow		= ASCAN( taPropsAndComments, '*' + lcMethod, 1, 0, 1, 1+2+4+8)
 
 						*-- Nombre del método
 						TEXT TO lcMethods ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2