- Reconocer el ENDPROC aunque haya TABS al final

2015-05-31 17:02:24 +02:00
parent 70dcc9fa83
commit dc2cb0072e
1 changed files with 1 additions and 1 deletions
--- 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))	&& <20>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 <20>ltima l<>nea de c<>digo debe ser ENDPROC. [' + laLineas(1) + ']'
 						ERROR (TEXTMERGE(loLang.C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC))
 					ENDIF