#1
|
|||
|
|||
Problema con REUSE_ALV_COMMENTARY_WRITE
Buenas noches:
Tengo el problema con REUSE_ALV_COMMENTARY_WRITE no muestra la cabecera nose cual es el problema. REPORT ZALV02. INITIALIZATION. TABLES : spfli. DATA: BEGIN OF ti_tabla OCCURS 0, " crea una variable estructura carrid LIKE spfli-carrid, cityfrom LIKE spfli-cityfrom, distance LIKE spfli-distance, END OF ti_tabla. type-POOLS : slis. DATA: wa_layout TYPE slis_layout_alv. DATA: ti_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE. "tabla, con un registro por cada campo DATA: it_listheader TYPE slis_t_listheader, wa_listheader TYPE slis_listheader. START-OF-SELECTION. PERFORM carga. PERFORM layout. PERFORM armadosalida. end-of-SELECTION. PERFORM build_alv_header. PERFORM salida. *&---------------------------------------------------------------------* *& Form CARGA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM CARGA . SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE ti_tabla. ENDFORM. " CARGA *&---------------------------------------------------------------------* *& Form ARMADOSALIDA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM ARMADOSALIDA . CLEAR ti_fieldcat. ti_fieldcat-fieldname = 'CARRID'. ti_fieldcat-tabname = 'TI_TABLA'. ti_fieldcat-seltext_m = 'CARRID'. ti_FIELDCAT-EMPHASIZE = 'C710'. ti_fieldcat-col_pos = 2. APPEND ti_fieldcat. CLEAR ti_fieldcat. ti_fieldcat-fieldname = 'CITYFROM'. ti_fieldcat-tabname = 'TI_TABLA'. ti_fieldcat-seltext_s = 'CIUDAD'. " descripcion corta ti_fieldcat-seltext_l = 'CIUDAD GRANDE'. " descripcion larga ti_fieldcat-seltext_m = 'CIUDAD MED'. " descripcion media ti_fieldcat-outputlen = 8. ti_fieldcat-col_pos = 3. APPEND ti_fieldcat. CLEAR ti_fieldcat. ti_fieldcat-fieldname = 'DISTANCE'. " NOMBRE DEL CAMPO DE LA TI ti_fieldcat-tabname = 'TI_TABLA'. " NOMBRE DE LA TABLA INTERNA ti_fieldcat-seltext_l = 'DISTANCIAA'. " NOMBRE A MOSTRAR EN EL MENU ti_fieldcat-outputlen = 20. " longitud del campo ti_fieldcat-col_pos = 1. " posicion en que columna va estar APPEND ti_fieldcat. ENDFORM. " ARMADOSALIDA *&---------------------------------------------------------------------* *& Form SALIDA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM SALIDA . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' ' I_CALLBACK_PROGRAM = sy-repid * I_CALLBACK_PF_STATUS_SET = ' ' * I_CALLBACK_USER_COMMAND = ' ' I_CALLBACK_TOP_OF_PAGE = 'top_of_page' * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_END_OF_LIST = ' ' * I_STRUCTURE_NAME = * I_BACKGROUND_ID = 'IMAGEN_PRUBA' " nombre de la imagen * I_GRID_TITLE = * I_GRID_SETTINGS = IS_LAYOUT = wa_layout IT_FIELDCAT = ti_fieldcat[] " nombre de tabla alv * IT_EXCLUDING = * IT_SPECIAL_GROUPS = * IT_SORT = * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' * I_SAVE = ' ' * IS_VARIANT = * IT_EVENTS = * IT_EVENT_EXIT = * IS_PRINT = * IS_REPREP_ID = * I_SCREEN_START_COLUMN = 0 * I_SCREEN_START_LINE = 0 * I_SCREEN_END_COLUMN = 0 * I_SCREEN_END_LINE = 0 * I_HTML_HEIGHT_TOP = 0 * I_HTML_HEIGHT_END = 0 * IT_ALV_GRAPHICS = * IT_HYPERLINK = * IT_ADD_FIELDCAT = * IT_EXCEPT_QINFO = * IR_SALV_FULLSCREEN_ADAPTER = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES T_OUTTAB = ti_tabla " nombre de la taba interna EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2 . IF SY-SUBRC <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. " SALIDA *&---------------------------------------------------------------------* *& Form LAYOUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM LAYOUT . wa_layout-zebra = 'X'. wa_layout-Lights_fieldname = '2'. wa_layout-Window_titlebar = 'Reporte ALV PRUEBA'. ENDFORM. " LAYOUT *&---------------------------------------------------------------------* *& Form BUILD_ALV_HEADER *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form BUILD_ALV_HEADER *&---------------------------------------------------------------------* FORM build_alv_header . * Type H is used to display headers i.e. big font wa_listheader-typ = 'H'. wa_listheader-info ='Flight Details'. APPEND wa_listheader TO it_listheader. CLEAR wa_listheader. * Type S is used to display key and value pairs wa_listheader-typ = 'S'. wa_listheader-key = 'Date :' . CONCATENATE sy-datum+6(2) sy-datum+4(2) sy-datum(4) INTO wa_listheader-info SEPARATED BY '/'. APPEND wa_listheader TO it_listheader. CLEAR wa_listheader. * Type A is used to display italic font wa_listheader-typ = 'A'. wa_listheader-info ='SAP ALV Report'. APPEND wa_listheader TO it_listheader. CLEAR wa_listheader. ENDFORM. " BUILD_ALV_HEADER *&---------------------------------------------------------------------* *& Form top_of_page *&---------------------------------------------------------------------* FORM top_of_page. CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING it_list_commentary = it_listheader. ENDFORM. "top_of_page |
Herramientas | Buscar en Tema |
Desplegado | |
|
|