Changeset: 428 fdbozzo - 27/08/2014 20:40:37:

- Agregado caso cuando #Bar es la última opción
2014-08-27 20:50:21 +02:00
parent 4be76cb35d
commit 942d527f74
1 changed files with 2 additions and 2 deletions
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -19011,8 +19011,8 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
 						CASE EMPTY( tcLine )
 							LOOP

-						CASE LEFT( tcLine, 11 ) == 'DEFINE BAR '
-							*-- Se encontr<74> el siguiente DEFNE BAR, por lo que el analizado es de tipo #BAR vac<61>o
+						CASE INLIST( LEFT( tcLine, 11 ), 'DEFINE BAR ', 'DEFINE PAD ' )
+							*-- Se encontr<74> el siguiente DEFINE BAR/PAD, por lo que el analizado es de tipo #BAR vac<61>o
 							*-- y no tiene ON BAR ni nada m<>s.
 							loReg.OBJCODE	= 78	&& Bar#
 							EXIT