MUNDOSAP

Regresar   MUNDOSAP > DESARROLLO > Programación ABAP IV
Nombre de Usuario
Contraseña
Home Descargas Registrar FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




 
 
 
Herramientas Buscar en Tema Desplegado
Prev Mensaje Previo   Próximo Mensaje Próx
  #1  
Viejo 07/07/14, 01:11:19
roberto.mejia roberto.mejia is offline
Junior Member
 
Fecha de Ingreso: jun 2014
Mensajes: 24
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
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Reglas de Mensajes
no puedes crear nuevos temas
no puedes responder temas
no puedes adjuntar archivos
no puedes editar tus mensajes

El código vB está On
Las caritas están On
Código [IMG] está On
Código HTML está Off
Saltar a Foro


Husos Horarios son GMT. La hora en este momento es 18:12:02.


www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web