Quitar columnas table control
Hola buenas, quiero hacer ke algunas columnas de mi table control se muestren unas veces y otras no, estoy utilizando este codigo pero no me tira, que puede ser?.
gracias.
*----------------------------------------------------------------------*
***INCLUDE MZMMFOPA_top
*----------------------------------------------------------------------*
* Para manejar estructuras de Table Control
TYPE-POOLS CXTAB.
* Tabla interna de propiedades de columnas de table control
DATA: IT_COLS TYPE STANDARD TABLE OF CXTAB_COLUMN
WITH HEADER LINE WITH NON-UNIQUE DEFAULT KEY.
*----------------------------------------------------------------------*
***INCLUDE MZMMFOPA_STATUS_0500 .
*----------------------------------------------------------------------*
CLEAR IT_COLS.
REFRESH IT_COLS.
IT_COLS[] = TAB_ART_500-COLS[].
* Se lee las propiedades de la columna a poner de salida.
LOOP AT IT_COLS.
IF IT_COLS-SCREEN-NAME EQ 'GT_ZTMMFODMO-INCLUDE-ZUBICACIONO'.
IT_COLS-SCREEN-INVISIBLE = 0.
MODIFY IT_COLS FROM IT_COLS INDEX SY-TABIX.
REFRESH TAB_ART_500-COLS.
CLEAR TAB_ART_500-COLS.
TAB_ART_500-COLS[] = IT_COLS[].
ENDIF.
ENDLOOP.
|