#1
|
|||
|
|||
Como hacer funcionar el scroll vertical de un table control
Buenas:
Tengo un report normalito en el que tengo q conseguir que funcione el scroll vertical, pero no se como y no encuentro información suficiente. Alguien podria indicarme más o menos como se hace. Mi codigo es el siguiente: INCLUDE ZTBLDTOP. " global Data call screen '0100'. *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE STATUS_0100 OUTPUT. ITAB_PHONELIST-NAME = 'hola'. ITAB_PHONELIST-PHONE = '123'. ITAB_PHONELIST-EMAIL = 'df@hotamil.com'. APPEND ITAB_PHONELIST. ITAB_PHONELIST-NAME = 'hola2'. ITAB_PHONELIST-PHONE = '3453453'. ITAB_PHONELIST-EMAIL = '23@2'. APPEND ITAB_PHONELIST. ITAB_PHONELIST-NAME = 'hola3'. ITAB_PHONELIST-PHONE = '34334'. ITAB_PHONELIST-EMAIL = 'sfasdf@hotmt'. APPEND ITAB_PHONELIST. ITAB_PHONELIST-NAME = 'hola4'. ITAB_PHONELIST-PHONE = '1234'. ITAB_PHONELIST-EMAIL = 'df@hotamil.com4'. APPEND ITAB_PHONELIST. SET PF-STATUS 'MENU100'. ENDMODULE. " STATUS_0100 OUTPUT *&---------------------------------------------------------------------* *& Module DISPLAY_USERDATA OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE DISPLAY_USERDATA OUTPUT. READ TABLE ITAB_PHONELIST INDEX tablecontrol-CURRENT_LINE. IF SY-SUBRC EQ 0. RECORD-NAME = ITAB_PHONELIST-NAME. RECORD-PHONE = ITAB_PHONELIST-PHONE. RECORD-EMAIL = ITAB_PHONELIST-EMAIL. SET CURSOR FIELD 'RECORD-NAME' line tablecontrol-current_line. ELSE. EXIT FROM STEP-LOOP. ENDIF. ENDMODULE. " DISPLAY_USERDATA OUTPUT EL INLCUDE: DATA: BEGIN OF RECORD, NAME(30), PHONE(20), EMAIL(50), END OF RECORD. DATA: ITAB_PHONELIST LIKE RECORD OCCURS 0 WITH HEADER LINE. CONTROLS: tablecontrol TYPE TABLEVIEW USING SCREEN 0100. DATA: SAVE_CODE(4), OK_CODE(4), FILENAME LIKE RLGRAP-FILENAME, CONFIRMATION, SELECTION. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|