Changeset: 432 fdbozzo - 29/08/2014 00:44:37:
- Arreglo Bug mnx: Si una opción tiene asociado un Procedure de 1 línea, no se mantiene como Procedure y se convierte a Command (Peter Hipp)
This commit is contained in:
fdbozzo
@@ -101,8 +101,8 @@
|
||||
* 17/08/2014 FDBOZZO v1.19.31 Agregada versi<73>n del EXE cuando se genera LOG de depuraci<63>n
|
||||
* 20/08/2014 FDBOZZO v1.19.31 Mejora vcx/scx: Mejorado el reconocimiento de instrucciones #IF..#ENDIF cuando hay espacios entre # y el nombre de funci<63>n
|
||||
* 20/08/2014 FDBOZZO v1.19.31 Mejora: Ajuste de capitalizaci<63>n de los archivos origen, as<61> ya no hay que hacerlo manualmente
|
||||
* 25/08/2014 FDBOZZO v1.19.32 Arreglo bug vcx/vct v1.19.31: Una propiedad llamada "text" es confundida con la estructura text/endtext (ph42)
|
||||
* 27/08/2014 FDBOZZO v1.19.33 Arreglo bug mnx v1.19.32: Si se crea un men<65> con una opci<63>n de tipo #Bar vac<61>a, el men<65> se genera mal (ph42)
|
||||
* 25/08/2014 FDBOZZO v1.19.32 Arreglo bug vcx/vct v1.19.31: Una propiedad llamada "text" es confundida con la estructura text/endtext (Peter Hipp)
|
||||
* 27/08/2014 FDBOZZO v1.19.33 Arreglo bug mnx v1.19.32: Si se crea un men<65> con una opci<63>n de tipo #Bar vac<61>a, el men<65> se genera mal (Peter Hipp)
|
||||
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
|
||||
*
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
@@ -144,8 +144,8 @@
|
||||
* 29/07/2014 M_N_M REPORTE BUG vcx/scx v1.19.28: Los campos de tabla con nombre "text" a veces provocan corrupci<63>n del binario generado (Arreglado en v1.19.29)
|
||||
* 07/08/2014 Jim Nelson REPORTE BUG vcx/scx v1.19.29: Cuando la l<>nea anterior a un ENDTEXT termina en ";" o "," no se reconoce como ENDTEXT sino como continuaci<63>n (Arreglado en v1.19.30)
|
||||
* 08/08/2014 Ryan Harris REPORTE BUG vcx/scx v1.19.29: En ciertos casos de herencia no se mantiene el orden alfabetico de algunos metodos (solucionado en v1.19.30)
|
||||
* 25/08/2014 ph42 REPORTE BUG bug vcx/scx v1.19.31: Una propiedad llamada "text" es confundida con la estructura text/endtext (solucionado en v1.19.32)
|
||||
* 27/08/2014 ph42 REPORTE BUG bug mnx v1.19.32: Si se crea un men<65> con una opci<63>n de tipo #Bar vac<61>a, el men<65> se genera mal (solucionado en v1.19.33)
|
||||
* 25/08/2014 Peter Hipp REPORTE BUG bug vcx/scx v1.19.31: Una propiedad llamada "text" es confundida con la estructura text/endtext (solucionado en v1.19.32)
|
||||
* 27/08/2014 Peter Hipp REPORTE BUG bug mnx v1.19.32: Si se crea un men<65> con una opci<63>n de tipo #Bar vac<61>a, el men<65> se genera mal (solucionado en v1.19.33)
|
||||
* </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
|
||||
*
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
@@ -332,7 +332,7 @@ LPARAMETERS tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDeb
|
||||
|
||||
*-- Menu OBJTYPE constants
|
||||
#DEFINE C_OBJTYPE_MENUTYPE_DEFAULT 1
|
||||
#DEFINE C_OBJTYPE_MENUTYPE_BARorPOPUP 2
|
||||
#DEFINE C_OBJTYPE_MENUTYPE_BARorPOPUP 2
|
||||
#DEFINE C_OBJTYPE_MENUTYPE_OPTION 3
|
||||
#DEFINE C_OBJTYPE_MENUTYPE_SHORTCUT 4
|
||||
#DEFINE C_OBJTYPE_MENUTYPE_MENUBARONTOP 5
|
||||
@@ -17543,11 +17543,12 @@ DEFINE CLASS CL_MENU_COL_BASE AS CL_COL_BASE
|
||||
* tcSourceCode (@? IN ) Si se indica, se buscar<61> el nombre de Procedure para obtener su c<>digo
|
||||
* tnIndentation (v? IN ) En caso de devolver c<>digo, indica si se debe indentar o quitar indentaci<63>n
|
||||
* tlAddProcEndproc (v? IN ) En caso de devolver c<>digo, indica si se debe encerrar con PROCEDURE/ENDPROC
|
||||
* tlForceProcedure (v? IN ) Indica que se eval<61>e como Procedure, no como Command
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* DETALLE: Los menus guardan en los primeros registros los Comandos o Procedimientos en el campo PROCEDURE,
|
||||
* y luego al generar el c<>digo lo muestran como Comando si es una sola l<>nea, y si no como Procedure.
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS tcExpr, tcProcName, tcProcCode, tcSourceCode, tnIndentation, tlAddProcEndproc
|
||||
LPARAMETERS tcExpr, tcProcName, tcProcCode, tcSourceCode, tnIndentation, tlAddProcEndproc, tlForceProcedure
|
||||
|
||||
LOCAL laProcLines(1), lnLine_Count, I
|
||||
tcProcName = ''
|
||||
@@ -17555,7 +17556,7 @@ DEFINE CLASS CL_MENU_COL_BASE AS CL_COL_BASE
|
||||
tnIndentation = EVL(tnIndentation,0)
|
||||
lnLine_Count = ALINES( laProcLines, tcExpr )
|
||||
|
||||
IF lnLine_Count > 1
|
||||
IF lnLine_Count > 1 OR tlForceProcedure
|
||||
*-- ES UN PROCEDIMIENTO
|
||||
tcProcCode = tcExpr
|
||||
|
||||
@@ -18151,7 +18152,7 @@ DEFINE CLASS CL_MENU AS CL_MENU_COL_BASE
|
||||
|
||||
DO CASE
|
||||
CASE loHeader.ObjType = C_OBJTYPE_MENUTYPE_DEFAULT OR loHeader.ObjType = C_OBJTYPE_MENUTYPE_MENUBARONTOP
|
||||
*-- Propecimiento principal de _MSYSMENU (ObjType:1, ObjCode:22)
|
||||
*-- Propecimiento principal de _MSYSMENU (ObjType:1, ObjCode:22) (C_OBJTYPE_MENUTYPE_DEFAULT, C_OBJCODE_MENUDEFAULT_DEFAULT)
|
||||
IF NOT EMPTY(loHeader.PROCEDURE)
|
||||
lcExpr = loHeader.PROCEDURE
|
||||
.AnalizarSiExpresionEsComandoOProcedimiento( lcExpr, @lcProcName, @lcProcCode, '', 1, .T. )
|
||||
@@ -19143,7 +19144,7 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
|
||||
IF loReg.OBJCODE = C_OBJCODE_MENUOPTION_PROCEDURE && Procedure de BAR o PAD
|
||||
*-- Reemplazo el nombre definitivo
|
||||
lcExpr = loReg.PROCEDURE
|
||||
.AnalizarSiExpresionEsComandoOProcedimiento( lcExpr, @lcProcName, @lcProcCode, '', 1, .T. )
|
||||
.AnalizarSiExpresionEsComandoOProcedimiento( lcExpr, @lcProcName, @lcProcCode, '', 1, .T., .T. )
|
||||
|
||||
IF EMPTY(lcProcCode)
|
||||
*-- Comando
|
||||
|
||||
Reference in New Issue
Block a user