romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Reconocer el ENDPROC aunque haya TABS al final

Browse Source
This commit is contained in:
fdbozzo
2015-05-31 17:02:24 +02:00
parent 70dcc9fa83
commit dc2cb0072e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
foxbin2prg.prg
View File

@@ -12664,7 +12664,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
X = 0 X = 0
FOR I = lnFin TO 1 STEP -1 FOR I = lnFin TO 1 STEP -1
IF NOT EMPTY(laLineas(I)) && <20>ltima l<>nea de c<>digo 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 '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)) ERROR (TEXTMERGE(loLang.C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC))
ENDIF ENDIF