Changeset: 199 fdbozzo - 09/03/2014 14:22:20:

- Arreglo de bug: cuando 2 o más métodos contienen el mismo nombre (ej: met y met2) se genera mal el tx2 (Ryan Harris)

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<6F>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<6F>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