Ver Mensaje Individual
  #7  
Viejo 25/07/06, 06:33:05
apozosanz apozosanz is offline
Member
 
Fecha de Ingreso: feb 2006
Mensajes: 86
solucionado

Gracias a todos, al final lo solucione con lo siguiente:
* Se genera el catálogo de campos
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = REPNAME
I_INTERNAL_TABNAME = 'IT_LISTADO'
I_INCLNAME = REPNAME
CHANGING
CT_FIELDCAT = FIELDTAB.
* Se modifica el catálogo de campos según interese
READ TABLE FIELDTAB INTO AUX_FIELDTAB WITH KEY FIELDNAME = 'FLAG'.
AUX_FIELDTAB-EDIT = 'X'.
AUX_FIELDTAB-CHECKBOX = 'X'.
AUX_FIELDTAB-INPUT = 'X'.
MODIFY FIELDTAB FROM AUX_FIELDTAB INDEX SY-TABIX.



* Se visualiza el popup con alv de selección
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
I_TITLE = 'Proceso de selección de campos'
I_SELECTION = 'X'
I_CHECKBOX_FIELDNAME = IT_LISTADO-FLAG
I_SCREEN_START_COLUMN = 5
I_SCREEN_START_LINE = 5
I_SCREEN_END_COLUMN = 120
I_SCREEN_END_LINE = 15
I_SCROLL_TO_SEL_LINE = 'X'
I_TABNAME = 'IT_LISTADO'
IT_FIELDCAT = FIELDTAB
TABLES
T_OUTTAB = IT_LISTADO
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.


Hasta otra
Responder Con Cita