From dc2cb0072e52fea68bc4bf95d8b38ac637384ea1 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 31 May 2015 17:02:24 +0200
Subject: [PATCH] - Reconocer el ENDPROC aunque haya TABS al final

---
 foxbin2prg.prg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index a5a9582..2ad23c0 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -12664,7 +12664,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 			X	= 0
 			FOR I = lnFin TO 1 STEP -1
 				IF NOT EMPTY(laLineas(I))	&& Última línea de código
-					IF llProcedure AND LEFT( laLineas(I), 10 ) <> C_ENDPROC
+					IF llProcedure AND LEFT( CHRTRAN(laLineas(I), C_TAB, ' ') + ' ', 8 ) <> C_ENDPROC + ' ' THEN
 						*ERROR 'Procedimiento sin cerrar. La última línea de código debe ser ENDPROC. [' + laLineas(1) + ']'
 						ERROR (TEXTMERGE(loLang.C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC))
 					ENDIF