Tweet
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.
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.
Comentario